Most advantageous program written for 41/42?
03-11-2021, 06:22 AM
Post: #7
 Gerald H Senior Member Posts: 1,627 Joined: May 2014
RE: Most advantageous program written for 41/42?
Shanks' square form factorization generally faster than Pollard rho on 42S.

For info on SQFOF see

https://en.wikipedia.org/wiki/Shanks%27s...torization

The two programmes below realize SQFOF on 42S.

Enter number N to factorize on stack level X & actuate SQFO, programme returns factor to stack level X or declares “Elliptic Period” if the continued fraction is too short to discover a factor.

If no factor found you can try multiplying N by a small factor, eg 3 or 5 or 7...... & run SQFO on the product, possibly resulting in a proper factor of N being returned.

Code:
0.    { 217-Byte Prgm } 1.    LBL 04 2.    “Elliptic Period” 3.    AVIEW 4.    TONE 0 5.    STOP 6.    LBL 01 7.    RCL 08 8.    RCL+ ST X 9.    LBL “SQFO” 10.    STO 08 11.    ENTER 12.    SQRT 13.    IP 14.    STO 04 15.    STO 02 16.    X^2 17.    – 18.    X=0? 19.    GTO 00 20.    STO 03 21.    1 22.    X=Y? 23.    GTO 01 24.    40 25.    X<>Y 26.    STO 07 27.    NEWMAT 28.    STO “MATA” 29.    INDEX “MATA” 30.    CF 00 31.    8 32.    RCL* 02 33.    SQRT 34.    IP 35.    STO 05 36.    LBL 03 37.    RCL 05 38.    RCL 03 39.    RCL ST X 40.    –2 41.    MOD 42.    RCL- ST L 43.    /  44.    X>Y? 45.    GTO 06 46.    RCL 07 47.    1 48.    STOIJ 49.    RCL ST Z 50.    STOEL 51.    ISG 07 52.    LBL 06 53.    RCL 02 54.    ENTER 55.    RCL+ 04 56.    RCL 03 57.    MOD 58.    – 59.    STO 04 60.    X^2 61.    +/- 62.    RCL+ 08 63.    RCL/ 03 64.    STO 03 65.    ENTER 66.    SQRT 67.    FS?C 00 68.    GTO 03 69.    SF 00 70.    FP 71.    X≠0? 72.    GTO 03 73.    1 74.    LASTX 75.    X=Y? 76.    GTO 04 77.    [FIND] 78.    GTO 03 79.    STO 06 80.    RCL 08 81.    XEQ “GCF” 82.    1 83.    X=Y? 84.    GTO 05 85.    R↓ 86.    TONE 9 87.    RTN 88.    LBL 05 89.    RCL 06 90.    RCL 02 91.    RCL- 04 92.    RCL ST X 93.    RCL 06 94.    MOD 95.    – 96.    RCL+ 04 97.    LBL 02 98.    RCL 08 99.    RCL ST Y 100.    X^2 101.    – 102.    RCL/ 06 103.    STO 06 104.    RCL 02 105.    RCL+ ST Z 106.    X<>Y 107.    MOD 108.    +/- 109.    RCL+ 02 110.    X≠Y? 111.    GTO 02 112.    RCL 06 113.    RCL ST X 114.    –2 115.    MOD 116.    RCL- ST L 117.    / 118.    TONE 5 119.    RTN 120.    LBL 00 121.    RCL 04 122.    END 0.    { 16-Byte Prgm } 1.    LBL “GCF” 2.    LBL 00 3.    MOD 4.    LASTX 5.    X<>Y 6.    X≠0? 7.    GTO 00 8.    R↓ 9.    ABS 10.    END
 « Next Oldest | Next Newest »