Compucolor.org – Virtual Media

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)