0 Members and 1 Guest are viewing this topic.
I'll stick to the Seq( method, until someone can convert the code for me.
Disp "seq(Input "Arg1:",Str0Disp "Arg2:XInput "Arg3:",Str1Input "Arg4:",Str2Disp "If no Arg5, enter 1Input "Arg5:",Str3Pause "seq("+Str0+",X"+Str1+","+Str2+","+Str3String→Equ(Str1,LString→Equ(Str2,HString→Equ(Str3,Iint ((H-L)/I→NDisp ":If L-I≠0ThenDisp L-IDisp "+cumSum("ElseDisp "cumSum("EndIf I≠1Disp IDisp "binomcdf(Disp NPause ",0"":"→Str1For(I,1,length Str0sub(Str0,I,1→CIf C="XThenStr1+"Ans"→Str1ElseStr1+C→Str1EndEndIf Str1≠":AnsPause Str1