Listing of file='TRIGFN.BAS;01' on disk='vmedia/chip_138-sector.ccvf'
1 REM **FUNCTION TEACHING PROGRAM, D. VAN PUTTE, 9/'79 2 REM FIND INSTRUCTIONS & FUNCTION EXAMPLES IN LINES 300-1200 3 PI= 3.14159 4 X= 0:SC= 50 5 P= 30 8 DEF FN A(X)= SC* SIN (2* PI* (X- X1)/ P) 9 PLOT 6,57,12 10 PLOT 2,63,0,242,63,127,255 20 PLOT 2,0,63,242,127,63,255 24 PLOT 30:PLOT 2:FOR I= 0TO 127STEP 10:PLOT (I+ 3):PLOT 63 26 PLOT 63:PLOT (I+ 3):NEXT I:PLOT 255:PLOT 29 40 X0= 63:Y0= 63 50 S= 1:XM= 127:PLOT 2 60 FOR X= X0TO XMSTEP S 70 X2= X- X0 80 Y= Y0+ FN A(X2) 90 IF Y< 0OR Y> 127THEN 100 95 PLOT X:PLOT Y 100 NEXT X 110 IF S= - 1THEN 200 120 XM= 0:S= - 1:GOTO 60 200 PLOT 255:PLOT 6,2:INPUT V:END 300 REM FUNCTION EXAMPLES : 310 REM ORDINATE & ABSISSA ARE MARKED IN UNITS OF 10 350 REM TYPE FUNCTION IN STATEMENT 8 AS GIVEN BELOW 360 REM TYPE EQUATION CONSTANTS IN STATEMENTS 3-7 370 REM CONSTANT SC IS FOR SCALING FNA(X) BETWEEN + & - 63 380 REM PI=3.14159 390 REM M, N, B, X1, P ARE CONSTANTS SELECTED BY STUDENT 400 REM DEF FNA(X) = M*(X-X1)+B 500 REM DEF FNA(X) = (X-X1)^N/SC 600 REM DEF FNA(X) = SC*SIN(2*PI*(X-X1)/P) 700 REM DEF FNA(X) = SC*COS(2*PI*(X-X1)/P) 800 REM DEF FNA(X) = SC*TAN(PI*(X-X1)/P) 900 REM DEF FNA(X) = ABS(X-X1) 1000 REM DEF FNA(X) = SQR(ABS(X-X1)) 1010 REM DEF FNA(X) = SC*EXP(X-X1)