10 OPTION ANGLE DEGREES @ G=360
15 IMAGE 'PA',mz.5d,',',mz.5d
20 INPUT 'AUFLOESUNG IN GRAD ';A
30 INPUT 'RELATIVE FREQUENZ ';F
40 INPUT 'DAEMPFUMG FUER F1 ';B @ IF B<1 THEN 40
50 D1=LOG(1/B)/G
60 INPUT 'DAEMPFUNG FUER F2 ';B @ IF B<1 THEN 60
65 D2=LOG(1/B)/G
70 Z=0 @ Q=0
80 PRINT 'IN,SP1,SC-1,1,-1,1'
90 PRINT 'PU;PA0,1;PD'
100 Z=Z+A @ Q=Q+A*F
110 X=SIN(MOD(Z,G))*EXP(D1*Z) @ Y=COS(MOD(Q,G))*EXP(D2*Z)
120 PRINT USING 15;X;Y
130 GOTO 100
140 END
