10N=40 20DT=PI/N 30A=512 40K=8 50MODE5 60VDU29,640;512; 70IF K MOD2=0THEN DT=2*DT 80E=0 90FORI%=1TOK 100T=PI/(2*K) 110FORJ%=1TON 120X=A*COS(K*T)*COS(T+E) 130Y=A*COS(K*T)+SIN(T+E) 140DRAWX,Y 150T=T+DT 160NEXT 170E=E+0.1 180NEXT