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: