- 3


, . , QUAN. : y = sin 3x + sin 120x. , 100 :

70 VQUAN U : U! ( -> U) - U 0 DO 3 I * SIN 120 I * SIN + 100 / I TO U LOOP ; U!

, :

: B-? ( -> ) >IN @ >R [COMPILE] - R> >IN ! ' SWAP 0 DO I OVER EXECUTE 8 .R LOOP DROP ; B-? U

:

0 93 -78 15 109 -62 30 124 -47 45 138 -34 58 151 -21 70 162 -10 80 172 0 89 179 4 95 185 9 98 188 11 100 188 10 98 186 7 95 181 2 89 177 -4 80 166 -14 70 155 -25 58 143 -38 45 129 -52 30 114 -67 15 99 -83 0 83 -99 -15 67 -114 -30 52 -129 -45 OK

PLOT () :

VOCABULARY PLOT PLOT DEFINITIONS QUAN RHO 4 TO RHO ( Y-.) QUAN MU0 16 TO MU0 ( ) QUAN NU0 64 RHO - TO NU0 ( ) QUAN WSTA ( ) QUAN MU ( ) QUAN NU ( ) QUAN WX ( X- ) QUAN WY ( Y- ) QUAN KAPPA ( ) QUAN LAMBDA ( ) QUAN MA ( .) QUAN MIN0 ( ) QUAN VAL ( )

, , MU0 NU0 . RH0 . LAMBDA ( ) KAPPA ( ). , .