XProfan

p.specht

Hab´s something weiterentwickelt to a Primzahlenfinder on FLOAT-Base...

Compile Mark Separation

Window Title "Zufallsprimzahlengenerator"
'(D)demonstration 2018-05 by P.woodpecker/Wien, after a idea of Jörg Sellmeyer

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

    x!=x!-round(x!,0):case 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

    Parameters f!
    Return (f! - Intf(f!) = 0)

ENDPROC

Proc NaheMultiplikatoren

    Parameters worth![],number!
    Declare a!,f_0!,f_1!
    f_0! = Sqrt(number!)
    Case number!=0:Return 0

    If IsIntf(f_0!)

        worth![0] = f_0!
        worth![1] = f_0!

    Else

        WhileLoop 0,Intf(f_0!)

            a! = Intf(f_0!) - &Loop
            f_1! = number! / a!

            If IsIntf(f_1!)

                worth![0] = a!
                worth![1] = number! / a!
                Break

            EndIf

        Endwhile

    EndIf

    Return f_0!

ENDPROC

Cls
Declare Test![1],ZufallsZahl!
Randomize:set("decimals",1)

While 1

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

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

        cls
        Print "\n near-Multiplikatoren:",Test![0],"*",Test![1],"=",ZufallsZahl!
        '   If (Test![0]=1.0) and (Test![1]>1)
        font 2
        print "\n These Zufallszahl is a 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'...

05/19/18 ▲

Jörg
Sellmeyer

there would I Yes sooner ~~Doubles~~ Quadint (meant I naturally!) as Übergabeparameter take.
And if it only around the Primzahlen goes, can the Yes yet very speed, if one 0 zurückgibt, when the first Multiplikant <> 1 found is.

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

p.specht

is correct, thanks! be but yet on XProfan-11, were on The Full Version of X4. Ausserdem runs The Loop dzt. only with Integers. Wenn´s with Float too long lasts, should one on Inline-Assembler sheer. your idea is super!

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

Jörg
Sellmeyer

and one can naturally vornedran too another Sieb install, in the any numbers hängenbleiben, The through 2,3,5,7,11,13,17,23,... primzahl&& divisible are and a worth > 1 yield.

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

p.specht

..and Mersenne-Primzahlen works... there there Formeln. I need but real Zufallsprimeln for RSA, there can it quiet something longer last

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

Jörg
Sellmeyer

the Sieb is Yes only, around the process To speed, because numbers faster rausgeworfen go, The no Primzahlen are.

means:

Compile Mark Separation

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

    Print "kann no 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

everything clear.
so, be then again on Paules PC-Forum / XProfan to find...

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