14 lines
217 B
Text
14 lines
217 B
Text
for(I,1,10)
|
|
I/2→X
|
|
e^(ln((1.0
|
|
+76.18009173/(X+1)
|
|
-86.50532033/(X+2)
|
|
+24.01409824/(X+3)
|
|
-1.231739572/(X+4)
|
|
+1.208650974E-3/(X+5)
|
|
-5.395239385E-6/(X+6)
|
|
)√(2π)/X)
|
|
+(X+.5)ln(X+5.5)-X-5.5)->Y
|
|
Disp X,(X-1)!,Y
|
|
Pause
|
|
End
|