5 DIM D(450) 7 N=450 10 PRINT "DAMP FAC ";\INPUT F 12 PRINT "# CYCLES ";\INPUT C 13 C=C*6.283/N 14 GOSUB 100 15 FOR I=0 TO N 20 D(I)=450+450*SIN(I*C) 25 D(I)=D(I)*EXP(-F*I/N) 30 D(I)=D(I)+50 45 NEXT I 50 CALL "YGRA"(2,D) 99 STOP 100 CALL "INIT" 105 CALL "SCAL"(0,0,1024,1300) 110 CALL "VECT"(1024,0)\CALL "APNT"(0,0,-1,-5) 120 CALL "VECT"(0,1024) 130 CALL "APNT"(50,50,-1,-5) 150 RETURN 999 END