P187 ORACLE 187 Fri25 Dec ITV 2000:06 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 PROGRAM"|z71 GOTO 65000|x|
P187 ORACLE 187 Fri25 Dec ITV 2041:07 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 "Next 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 Fri25 Dec ITV 2000:04 35703071GFSN0x G APHGFSN 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= XYIFXTHEN FGPOINT A,B : FGLINE X4,Y4|s34 IF Y6 <>1 THEN FGPOIN D(X6),A(X6) : FGLINE X4
P187 ORACLE 187 Fri21 Dec ITV 2051:06 26 FOR X6=1 TO 20|,27 =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 4) Y4|w36 A=X4 : D( X6)=X4 : B=Y4 : E(X6)=Y4|c37 NEXT X6 | s38 NEXT Y6 |539 GOTO 66|m40 @M DEMONST RATION|k41 FG -1% : FG 1%| 42 PRINT YEL "PLOT OF THE A PATIONZR COSR |h43 PRINT YEL "+1)"|£44 P INTYELGHER E R=SQR(X^2+Y^2), FOR RANGE X = -11"|445 PRINT YEL "TO 15, Y = -15 TO 15 & Z = 0 TO 3"|*06 X1=-11 : X2=15 : Y1=-15 : Y2= 15 : Z1=0 : Z2=3|b47 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 Fri25 Dec ITV 2101:04 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) =(60-K*X6+K*Y6+K7*(Z-Z1))+70|,32 X4= (10+5*X6+5*Y6)+15|>33 IF X6<>1 THEN
P187 ORACLE 187 Fri25 Dec ITV 2101:04 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 YAL "PLOT OF THE @ PATIONZRCOSR |—43 PRINT YEL "+1)"|£44 PRINT YEL "GHER E R=SQR(X^2+Y^2), FOR RANGE X = -15"|445 PRINT YEL "TO 13, Y = ,11 TO 15 & Z = 0 TO 3"|*46 X1=-11 : X2=15 : Y1=-15 : Y2= 11 : Z1=0 : Z2=3|b47 K8=(X2 1)/20 : K9= =1 TO 20|r50 FOR X6=1 TO 20|)51 X= X6*K8+ 1|&52 Y=Y6*K9+Y1|+53 R=SQ R(X^2+Y^2)|v|
P187 ORACLE 187 Fri25 Dec ITV 2052:37 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 K0ZATION Z=1/(R+1)*(COS(R)" |h43 PRINT YEL "+1)"|£44 PRINT YEL "WHER E R=SQR(X^2+Y^2), FOR RANGE X = -15"|443 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=(X2MX1)/20 : K9=
P187 ORACLE 187 Fri25 Dec ITV 2043:04 54 Z=1/( "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/1)=Y4|}60 A=X4 : D(X6)=X 4 : B=Y4 : E(X6)=Y4|—61 NEXT X6 |p62 N DXT 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 P INTCHRP RINT CUR(2%,5%) YEL "END OF PROGRAM"|z71 GOTO 65000|x|
P187 ORACLE 187 Fri25 Dec ITV 2006:37 |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 6 | s38 NEXT Y6 |539 GOTO 66|m40 REM DEMONST ATIONFGFGP INTYEL "PLOT OF THE EQUATION Z=1/( COSR |h43 P INTYELPRINTYELWHER E R=SQR(X^2+Y^2), FOR RANGE X = -15"|445 P HNTYELTOYTOZ TO 3"|*46 X1=-15 : X2=15 : Y1=-11 : Y2= 15 : Z1=0 : Z2=3|j47 K8=( XK =1 TO 20|r50 FOR X6=1 TO 20<)51 X= X6*K8+ 1|&52 Y=Y6*K9+Y1|+53 R=SQ R(X^2+Y^2)|v|
P187 ORACLE 187 Fri25 Dec ITV 2000:06 ,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%|N42 PRINT YEL "PLOT OF THE EQUATION Z=1/(R+1)*(COS(R " |h43 PRINT YEL "+1)"|£44 PRINT YEL "cHER E R=SQR(X^2+Y^2), FOR RANGE X = -15"|441 PRINT YEL "TO 15, Y = -15 TO 15 & Z = 0 TO 3"|*46 1=-15 : X2=11 : Y1=-15 : Y2= 11 : Z1=0 : Z2=3|b47 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|)11 X= X6*K8+X1|&52 Y=Y6*K9+Y1|+53 R=SQ R(X^2+Y^2)|v|
P187 ORACLE 187 Fri25 Dec ITV 2000:05 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 = -15"|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|