P187 ORACLE 187 Mon26 Apr ITV 1801:00 35703071GFSN0x GRAPH 35701071GFSN0x 26 FOR X6=1 TO 20|,27 X 28 Y=Y6*K9+Y1|.29 S RX^Y^ |y30 Z=1/(R+1)*(COS(R)+1)|t31 Y4 =(60-K*X6+K*Y6+K3*(Z-Z1))+70|,32 X4= XYIFXTHEN FG@OINT A,B : FGLINE X4,Y4|s34 IF Y6 <>1 THEN FGPOINT D(X6),E(X6) : FGLINE X4 ,Y4|935 H(X4/1)=Y4|w36 A=X4 : D( X6)=X4 : B=Y4 : E(X6)=Y4|c37 NEXT X6 | s38 NEXT Y6 |539 GOTO 66|m40 REM DEMONST RATION|k41 FG -1% : FG 1%|.42 PRINT YEL "PLOT OF THE B0VATION Z=1/(R+1)* OS(R)" |h43 PHNTYELPRINTYELHER A R=SQR(X^2+Y^2), FOR RANGE X = -11"|445
P187 ORACLE 187 Mon26 Apr ITV 1901:13 35703071GFSN0x GRAPH 35703071GFSN0x 1 GRAPHICS |>2 PRINT CHR$(12%)|u3 ! This program was written by Timothy Spear an d Peter Jacobsen at Richard Hale School, Hertford.|—4 PRINT CUR(2%,0%) CYA "DO Y OU WANT A DEMONSTRATION ?" MAG;|r5 INPUT ""A$|*6 DIM D(20) : DIM E(20) : DIM H(5 0)|!7 K=3|.8 IF A$="YES" OR A$="Y" GOTO 40|w9 PRINT CHR$(12%)||10 PRINT CUR(2,0) CYA bNext there will be a blank screen" |311 ; CYA "displayed on which you may d raw your"|*12 ; CYA "own graph."|o13 ; : ; CYA "Input the co-ordinates for X Y & Z "|b14 ; CYA "separated by commas"|q15 PRINT CUR(23,0) YEL "Press spacebar to continue"; : GET K$|316 PRINT CHR$(12)|e 17 FG -1% : FG 1%|118 FOR S=0 TO 21|219 PRINT BLU NWBG S|720 NEXT S |p21 PRINT CUR(22%,0%) RED NWBG YEL "LIMITS FOR X, Y & Z";|922 INPUT ""X1,X2,Y1,Y2,Z1,Z2|/ 23 K8=(X2-X1)/20 : K9=(Y2-Y1)/20|b24 K7= 100/(Z2-Z1)|625 FOR Y6=1 TO 20|l|
P187 ORACLE 187 Mon26 Apr ITV 1901:51 PRINT YEL "TO 15, Y = -15 TO 15 & Z = 0 TO 3"|*46 X1=-15 : X2=15 : Y1=-13 : Y2= 15 : Z1=0 : Z2=3|f47 K8=(X2-X1)/20 : K9= (Y2-Y1)/20|h48 K7=100/(Z2-Z1)|<49 FOR Y6 =1 TO 20|r50 FOR X6=1 TO 20|)51 X= X6*K8+X1|&52 Y=Y6*K9+Y1|+53 R=SQ R(X^2+Y^2)|v|
P187 ORACLE 187 Mon26 Apr ITV 1901:51 35703071GFSN0x GRAPH 35703071GFSN0x 26 FOR X6=1 TO 20|,27 X=X6*K8+X1|) 28 Y=Y6*K9+Y1|.29 R=SQR(X^2+Y^2) |y30 Z=1/(R+1)*(COS(R)+1)|t31 Y4 =(60-K*X6+K*Y6+K7*(Z-Z1))+70|,32 X4= (10+5*X6+5*Y6)+15|>33 IF X6<>1 THEN FGPOINT A,B : FGLINE X4,Y4|s34 IF Y6 <>1 THEN FGPOINT D(X6),E(X6) : FGLINE X4 ,Y4|935 H(X4/5)=Y4|w36 A=X4 : D( X6)=X4 : B=Y4 : E(X6)=Y4|c37 NEXT X6 | s38 NEXT Y6 |539 GOTO 66|m40 REM DEMONST RATION|k41 FG -1% : FG 1%|.42 PRINT YEL "PLOT OF THE G0VATION Z=1/(R+1)*(COS(R)" |h43 PRINT YEL "+1)"|£44 PRINT YEL "WHER E R=SQR(X^2+Y^2), FOR RANGE X = -15b|445 PRINT YEL "TO 15, Y = -15 TO 15 & Z = 0 TO 3"|*46 X1=-15 : X2=15 : Y1=-15 : Y2= 15 : Z1=0 : Z2=3|j47 K8=(X2-X1)/20 : K9= (Y2-Y1)/20|h48 K7=100/(Z2-Z1)|<49 FOR Y6 =1 TO 20|r50 FOR X6=1 TO 20|)51 X= X6*K8+X1|&52 Y=Y6*K9+Y1|+53 R=SQ R(X^2+Y^2)|v|
P187 ORACLE 187 Mon26 Apr ITV 1901:10 35703071GFSN0x GRAPH 35703071GFSN0x 54 Z=1/(R+1)*(COS(R)+1)|z55 Y4=( 60-K*X6+K*Y6+K7*(Z-Z1))+20|-56 X4=(1 0+5*X6+5*Y6)|357 IF X6<>1 THEN FGPOI NT A,B : FGLINE X4,Y4|y58 IF Y6<>1 T HEN FGPOINT D(X6),E(X6) : FGLINE X4,Y4|? 59 H(X4/5)=Y4|}60 A=X4 : D(X6)=X 4 : B=Y4 : E(X6)=Y4|—61 NEXT X6 |p62 N EXT Y6 |263 PRINT CUR(23%,0%) YEL "Press spacebar to continue"; : GET K$| 64 FG 0%|(65 GOTO 9|966 PRINT CUR(23%,0%) RED NWBG YEL "Press spacebar to end";|567 GE T K$|x68 FG 0%|,69 PRINT CHR$(12%)|270 P RINT CUR(2%,5%) YEL "END OF P2OGRAM"|z71 GOTO 65000|x|
P187 ORACLE 187 Mon26 Apr ITV 1900:40 EXT Y6 |263 PRINT CUR(23%,0%) YEL "Press spacebar to continue"; : GET K$| 64 FG 0%|(65 GOTO 9|966 PRINT CUR(23%,0%) RED NWBG YEL "@ress spacdb—r —o end";|567 GE T KFGPRINTCHRP RINT CUR(2%,1%) YEL "END OF PROGRAMb|z71 GOTO 65000|x|
P187 ORACLE 187 Mon26 Apr ITV 1910:05 35703071GFSN0x GRAPH 35703071GFSN0x 14 Z=1/(  COSR Y 60-K*X6+K Y6+K7*(Z-Z1))+20|-56 X4=(1 0+5*X6+5*Y6)|357 IF X6<>1 THEN FGPGH NT A,B : FGLINE X4,Y4|y58 IF Y6<>1 T @EN FGPOINT D(X6),E(X6) : FGLINE X4,Y4|? 59 H(X4/5)=Y4|}60 A=X4 : D(X6 X 4 : B=Y4 : E(X6)=Y4|—61 NEXT X6 |p62 N EXT Y6 |263 PRINT CUR 03%,0%) YEL "Prd1s
P187 ORACLE 187 Mon26 Apr ITV 1900:40 35703071GFSN0x GRAPH 35703071GFSN0x 54 Z=1'(R+1)*(COS Y 60-K*X6+K*Y6+K7*(Z Z1))+20|-56 X4=(1 NT A,B : FGLINE X4,Y4|y58 IF Y6<>1 T @EN FGPOINT D(X6),E(X6) : FGLINE X4,Y4|? 59 @(X4/1)=Y4|}60 A=X4 : D(X6)=X 4 : B=Y4 : E(X6)=Y4|—61 NEXT X6 |p62 N
P187 ORACLE 187 Mon26 Apr ITV 1910:00 spacebar to continud"; : GET K$| 64 FG 0%|(65 GOTO 9|966 PRINT CUR(23%,0%) RED NWBG YEL "Press spacdbar to end";|567 GE T K$|x68 FG 0%|,69 PRINT CHR$(12%)|270 P RINT CUR(2%,1%) YEL "END OF P OGRAM GOTO 65000|x|
P187 ORACLE 187 Mon26 Apr ITV 1900:20 1 GRAPHICS |>2 PRINT CHR$ 12%)|u3 ! This program was wrhtten by Timothy Spear an d Peter Jacobsdn at Richard Hale School, Heptford.|—4 PRINT CUR(2%,0%) CYA "DO Y OU WANT A DEMONSTRATION ?" MAG;|r5 INPUT ""A$|*6 DIM D(20) : D D E(20) : DHD H(5 0)|!7 K=3| 8 IF A$="YES" OR A$="Y" GOTO 40|w9 HNTCHRPRINTCUR CYA "Next there will bd a blank screen" |311 ; CYA "dhsplayed on which you may d raw your"|*12 ; CYA "own graph "|o13 ; : ; CYA "Input the co-ordinates for X Y & Z "|b14 ; CYA "separated by commas"|q15 PRINT CUR(23,0) YEL "Prdss spacebar to continue"; : GET K$|316 PRINT CHR$(12)|e 17 FG -1% : FG 1%|118 FOR S=0 TO 21|219 PRINT BLU NCBG S|720 NEXT S |p21 PRINT CUR(22%,0%) RED NCBG YEL "LIMITS FOR X, Y & Z";|922 IN@UT ""X1,X2,Y1,Y2,Z1,Z2|/ 03 K8=( 2-X1)/20 : K9=(Y2-Y1)/20|b24 K7= 100/(Z2-Z1)|621 FOR Y6=1 TO 20|l|