XProfan

Kompilieren Marque Séparation

p.specht

Hab´s quelque chose weiterentwickelt trop einem Primzahlenfinder sur FLOAT-la base...

Titre de la fenêtre "Zufallsprimzahlengenerator"
'(D)Demo 2018-05 by P.Specht/vienne, pour einer concept de Jörg Sellmeyer

proc frac :parameters x!:var s!=(x!>0)-(x!<0):x!=abs(x!)

    x!=x!-round(x!,0):cas x!<0:x!=1+x!:return s!*x!

endproc

proc intf :parameters x!

    var s!=(x!>0)-(x!<0)
    x!=abs(x!)
    x!=x!-frac(x!)
    return s!*x!

endproc

Proc IsIntf

    Paramètres f!
    Retour (f! - Intf(f!) = 0)

ENDPROC

Proc NaheMultiplikatoren

    Paramètres Wert![],numéro!
    Déclarer a!,f_0!,f_1!
    f_0! = Sqrt(numéro!)
    Cas numéro!=0:Retour 0

    Si IsIntf(f_0!)

        Wert![0] = f_0!
        Wert![1] = f_0!

    D'autre

        WhileLoop 0,Intf(f_0!)

            a! = Intf(f_0!) - &Boucle
            f_1! = numéro! / a!

            Si IsIntf(f_1!)

                Wert![0] = a!
                Wert![1] = numéro! / a!
                Pause

            EndIf

        Endwhile

    EndIf

    Retour f_0!

ENDPROC

Cls
Déclarer Test![1],ZufallsZahl!
Randomiser:set("decimals",1)

Tandis que 1

    ZufallsZahl! = intf(10000000.00000*Tour()+rnd())
    NaheMultiplikatoren(Test![],ZufallsZahl!)

    Si (Test![0]=1.0) and (Test![1]>1.0)

        cls
        Imprimer "\n près-Multiplikatoren:",Test![0],"*",Test![1],"=",ZufallsZahl!
        '   Si (Test![0]=1.0) and (Test![1]>1)
        font 2
        imprimer "\n cet Zufallszahl ist une Primzahl!"
        sound 60,16
        font 0
        waitinput 1000

    Endif

Endwhile

XProfan 11
Computer: Gerät, daß es in Mikrosekunden erlaubt, 50.000 Fehler zu machen, zB 'daß' statt 'das'...

19.05.2018 ▲

Jörg
Sellmeyer

là serait je oui plutôt ~~Doubles~~ Quadint (meinte je naturellement!) comme Übergabeparameter prendre.
et si es seulement à Primzahlen allez, peux on cela oui encore très beschleunigen, si on 0 zurückgibt, sobald qui erste Multiplikant <> 1 trouvé ist.

Windows XP SP2 XProfan X4
... und hier mal was ganz anderes als Profan ...

p.specht

Stimmt, merci! suis mais encore sur XProfan-11, attends sur qui Vollversion de X4. Ausserdem fonctionne qui Boucle dzt. seulement avec Integers. Wenn´s chez Float trop longtemps dauert, devrait on sur Inline-Assembler ausweichen. Votre concept ist mais super!

Computer: Gerät, daß es in Mikrosekunden erlaubt, 50.000 Fehler zu machen, zB 'daß' statt 'das'...

Jörg
Sellmeyer

et il peut naturellement vornedran aussi encore un Sieb einbauen, dans dem alle payons hängenbleiben, qui par 2,3,5,7,11,13,17,23,... primzahl&& teilbar sommes et une Wert > 1 ergeben.

Windows XP SP2 XProfan X4
... und hier mal was ganz anderes als Profan ...

p.specht

..et Mersenne-Primzahlen travailler... là gibt es Formeln. il me faut mais echte Zufallsprimeln pour RSA, là peux es calme quelque chose länger dauern

XProfan 11
Computer: Gerät, daß es in Mikrosekunden erlaubt, 50.000 Fehler zu machen, zB 'daß' statt 'das'...

Kompilieren Marque Séparation

Jörg
Sellmeyer

cela Sieb ist oui seulement, um den Vorgang trop beschleunigen, indem payons plus rapide rausgeworfen volonté, qui aucun Primzahlen sommes.

Donc:

Si (Eingang&& \ Prim&&) > 1

    Imprimer "kann aucun Primzahl sein"
    return 0

ElseIf (Eingang&& \ NaechstePrim&&) > 1

    ...

EndIf

XProfan X3
Windows XP SP2 XProfan X4
... und hier mal was ganz anderes als Profan ...

p.specht

Alles bien sûr.
So, suis ensuite wieder sur Paules PC-Forum / Xprofan pour trouver...

XProfan 11
Computer: Gerät, daß es in Mikrosekunden erlaubt, 50.000 Fehler zu machen, zB 'daß' statt 'das'...