06-03-2015, 12:43 PM
I found one of my old programmes recently & can't work out what it does.
Input is a real via Ans, output is a list of 3 integers in Ans, positive or negative.
Can anyone say what the programme is for?
MAX(ABS(Ans),2)►N:
DO
ROUND(N*(RANDOM,RANDOM),0):
{RE(Ans)^6,RE(Ans)^4,RE(Ans)^3,RE(Ans)^2,RE(Ans),
IM(Ans)^6,IM(Ans)^4,IM(Ans)^3,IM(Ans)^2,IM(Ans)}:
IFTE(RANDOM<.5,{Ans(7)+8*Ans(3)*Ans(10),4*(Ans(2)-Ans(5)*Ans(8)),Ans(6)-20*Ans(3)*Ans(8)-8*Ans(1)},
{6*Ans(4)*Ans(9)-3*Ans(2)+Ans(7),6*Ans(9)*Ans(4)-Ans(7)+3*Ans(2),6*(3*Ans(2)+Ans(7))*Ans(10)*Ans(5)}):
UNTIL
ΠLIST(Ans)
END:
Input is a real via Ans, output is a list of 3 integers in Ans, positive or negative.
Can anyone say what the programme is for?
MAX(ABS(Ans),2)►N:
DO
ROUND(N*(RANDOM,RANDOM),0):
{RE(Ans)^6,RE(Ans)^4,RE(Ans)^3,RE(Ans)^2,RE(Ans),
IM(Ans)^6,IM(Ans)^4,IM(Ans)^3,IM(Ans)^2,IM(Ans)}:
IFTE(RANDOM<.5,{Ans(7)+8*Ans(3)*Ans(10),4*(Ans(2)-Ans(5)*Ans(8)),Ans(6)-20*Ans(3)*Ans(8)-8*Ans(1)},
{6*Ans(4)*Ans(9)-3*Ans(2)+Ans(7),6*Ans(9)*Ans(4)-Ans(7)+3*Ans(2),6*(3*Ans(2)+Ans(7))*Ans(10)*Ans(5)}):
UNTIL
ΠLIST(Ans)
END: