(50g) USER key ": division" a) decimal into (pi) fractions b) no limits

05132021, 06:29 PM
Post: #21




RE: (50g) USER key ": division" a) decimal into (pi) fractions b) no limits
New version 4.2
For the 65.3 assigned key. \<< "Version 4.2 1 single Arg like \[]'7/3*' \[] or {'7/3*' 300} for 300 digits " DROP DUP TYPE 5 == IF THEN OBJ\> DROP ELSE 100 "Put above 200 if you want by default 200 digits & not 100" DROP END SWAP DUP UNROT 0 0 0 RCLF \> digit x1 x2 x21 num f \<< RAD STD 3 CF 105 CF x1 \>STR "." "" SREPL 0 == IF THEN DROP ELSE OBJ\> 'x2' STO x2 x1 / \>NUM LOG DUP FP 0 \=/ IF THEN DROP "Instead of decimals (ab.c), Try fractions ('abc/10') !" DOERR END \>STR "." "" SREPL DROP OBJ\> ALOG 'x21' STO IF x21 1 > THEN x2 x21 / ELSE IF x21 1 < THEN x2 x21 INV * ELSE x2 END END \>STR "." "" SREPL DROP OBJ\> END DUP EXPAND DUP2 SAME DROPN DUP \>NUM DUP 'num' STO num ABS 100000000000 > num FP 0 \=/ OR IF THEN OVER 10 digit ^ * PROPFRAC PROPFRAC 105 SF DUP TYPE 9 == IF THEN OBJ\> 3 DROPN END ELSE DROP END f STOF \>> \>> 65.3 ASN You can chose how many digits have to be shown when executing '736/82*4/3' ROOT2. Instead of writing the above, give as argument {'736/82*4/3' 400} ROOT2 if you want 400 digits. Regards, Gil 

05132021, 06:39 PM
Post: #22




RE: (50g) USER key ": division" a) decimal into (pi) fractions b) no limits
The file document included in my previous post is correct, but of course not its name — that should be called 'fraction_digit' or something similar.
Regards, Gil 

05132021, 07:05 PM
Post: #23




RE: (50g) USER key ": division" a) decimal into (pi) fractions b) no limits
The file document included in my previous post is correct, but of course not its name — that should be called 'fraction_digit' or something similar.
Regards, Gil 

05132021, 07:17 PM
(This post was last modified: 01122023 02:05 PM by Gil.)
Post: #24




RE: (50g) USER key ": division" a) decimal into (pi) fractions b) no limits
Version 5
for 65.3 key assignment. Sorry, I was somewhat in a hurry : The approximate mode, when scivsted, gives an error. I corrected (in bold) the previous version. Do the following, please: 1) 65.3 DELKEYS 2) Put the program \<< "Version 5 1 single Arg like \[]'7/3*' \[] or {'7/3*' 300} for 300 digits " DROP DUP TYPE 5 == IF THEN OBJ\> DROP ELSE 100 "Put above 200 if you want by default 200 digits & not 100" DROP END SWAP DUP UNROT 0 0 0 RCLF \> digit x1 x2 x21 num f \<< RAD STD 3 CF 105 CF digit \>STR "." "" SREPL DROP OBJ\> 'digit' STO x1 \>STR "." "" SREPL 0 == IF THEN DROP ELSE OBJ\> 'x2' STO x2 x1 / \>NUM LOG DUP FP 0 \=/ IF THEN DROP "Instead of decimals (ab.c), Try fractions ('abc/10') !" DOERR END \>STR "." "" SREPL DROP OBJ\> ALOG 'x21' STO IF x21 1 > THEN x2 x21 / ELSE IF x21 1 < THEN x2 x21 INV * ELSE x2 END END \>STR "." "" SREPL DROP OBJ\> END DUP EXPAND DUP2 SAME DROPN DUP \>NUM DUP 'num' STO num ABS 100000000000 > num FP 0 \=/ OR IF THEN OVER 10 digit ^ * PROPFRAC PROPFRAC 105 SF DUP TYPE 9 == IF THEN OBJ\> 3 DROPN END ELSE DROP END f STOF \>> \>> in the stack. 3) Then write 65.3 ASN Thanks and enjoy! Gil 

01122023, 02:07 PM
Post: #25




RE: (50g) USER key ": division" a) decimal into (pi) fractions b) no limits
DIGITS.MANY.5.2.hp
with .hp ending. 

« Next Oldest  Next Newest »

User(s) browsing this thread: 1 Guest(s)