hello,C.Ret a écrit : ARRY-> 1E7 ACarry // Reporte les retenues et agrandit si nécessaire le vecteur résultat
A quoi correspond cette fonction ACarry? (autre programme RPL ou library?)
hello,C.Ret a écrit : ARRY-> 1E7 ACarry // Reporte les retenues et agrandit si nécessaire le vecteur résultat
Code : Tout sélectionner
<< DUP ->NUM 1.E12 * 1.E12 -> o n m
<< n ABS m
DO SWAP OVER MOD
UNTIL DUP 10000000 / IP NOT
END DROP n OVER / IP DUP ABS m 4 ROLL / IP DUP
IF 1 <>
THEN 10 SF R->I ->STR "'" ROT R->I ->STR + "/" + SWAP + STR-> SWAP SIGN * DUP
IF ->NUM o ->NUM - ABS .000000001 >
THEN DROP o
END
ELSE DROP2
END
>>
>>
Code : Tout sélectionner
<< EVAL
IF REDUC DUP DUP TYPE SWAP DUP IP SAME OR NOT
THEN
<< DUP DUP
IF 1 <>
THEN \/ IP 1 + -> a g
<< g 2
FOR X
IF a X SQ / DUP DUP IP ==
THEN DUP a SWAP / \/ SWAP 0 'X' STO
ELSE DROP
IF X 2 <=
THEN 1 a
END
END -1
STEP
>>
END
>> -> raci
<< DUP SIGN SWAP DUP SQ REDUC DUP DUP ->STR
IF "." POS SWAP EVAL NOT OR NOT
THEN SWAP DROP DUP
IF TYPE NOT OVER DUP IP SAME OR
THEN 1
ELSE DUP 1 EXGET SWAP 3 EXGET
END -> s n d
<< n raci EVAL d raci EVAL 4 ROLL ROT / REDUC 3 ROLLD / REDUC DUP ->STR -> p q
<< "'\/"
IF p TYPE
THEN "(" q 2 q SIZE 1 - SUB + ")" +
ELSE q
END + STR-> * s
>>
>>
ELSE DROP
END *
>>
END
>>
Code : Tout sélectionner
<<
IF 1 FS?
THEN DUP 35 CF EVAL 35 SF
IF TYPE NOT
THEN RACINE
ELSE
IF DUP TYPE 1 ==
THEN 10 SF DUP RE RACINE SWAP IM RACINE 'i' * +
ELSE
IF DUP TYPE DUP 3 == SWAP 4 == OR
THEN ->STR "" SWAP
DO DUP " " POS DUP2 1 SWAP SUB 3 ROLLD 1 + 999 SUB SWAP
IFERR STR->
THEN
ELSE 10 CF FRAC ->STR
IF 1 FC?
THEN DUP DUP
IF TYPE
THEN SIZE 1
ELSE SIZE 1 - 2
END SWAP SUB
END " " +
END ROT SWAP + SWAP
UNTIL DUP SIZE 2 <=
END +
ELSE
IF DUP TYPE 9 ==
THEN -> a
<< a 1 1 a SIZE
FOR X -> y
<< a X EXGET
IF DUP TYPE 2 <
THEN FRAC DUP
IF TYPE 2 <
THEN 1
ELSE DUP SIZE
END -> s
<< y SWAP EXSUB y s +
>>
ELSE DROP y 1 +
END
>>
NEXT
>> DROP
END
END
END
END
END
>>
Et ma HP28s m'a également confirmé en 15 secondes que 1000! faisait 4.02387267E2567 (fonction SPEED activée) et 8 secondes sur HP50GPaul Tergeist a écrit :Allez plus loin avec le logarithme décimal !!!
Code : Tout sélectionner
4 FIX RND STD
Code : Tout sélectionner
4 RND
Code : Tout sélectionner
<< 0 1 ROT FOR X X LOG + NEXT DUP FP ALOG 8 FIX RND STD ->STR "E" + SWAP FLOOR ->STR + >>
Code : Tout sélectionner
0 1 ROT FOR X X LOG + NEXT DUP FP ALOG 8 RND ->STR "E" + SWAP FLOOR ->STR +