dim a(8) for i=1to 8input""a(i)next for b=0to 10t=b/10 w=1-t for n=0to 1?w^3*a(1+n)+3*w^2*t*a(3+n)+3*w*t^2*a(5+n)+a(7+n)*t^3;next ?next
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page