Directory of image this file is from
This file as a plain text file
()0O:BTC-PS/8 FOCAL, 1971?MB&BAC HARMON BY STEVE POULSEN?MB<BBC OMSI SOFTWARE DEVELOPMENT GROUP?MCLBCC LAST CHANGE: 8/19/71?MC.BDC ***** TEKTRONIX T-4002 GRAPHICS TERMINAL REQUIRED *****?MC1BE?MDUBFC THIS PROGRAM PRODUCES A SIMILIAR GR PH AS A HARMONOGRAPH OR?MD9BGC SPIROGRAPH WOULD. THE GRAPH REPRESENTS THE RELATIVE MOTION OF ?ME^BHC TWO PENDULUMS MOVING WITH RESPECT TO EACH OTHER, OR IN EFFECT, THE?MFBBIC PATH OF A AS SEEN BY THE REFERENCE FRAME OF B. YOU CAN SET THE?MF^BJC DIFFEREN VARIABLES WHILE UNDER PROGRAM CONTROL.?MF=BKC ** PHASE DIFFERENCE IS THE ANGLE OF RELEASE. (0 TO 90)?MG"BLC ** SWING COEFFICIENT IS THE MAGNITUDE OF SWING ON A 0 TO 1 SCALE.?MHLBMC ** TIME DIFFERENCE IS THE % OF CYCLE A COMPLETED AS B IS RELEASED. (0 TO )?MH3BNC ** THE ANGLE BETWEEN IS THE ANGLE BETWEEN THE INITIAL PATHS OF A & B.?MI[BOC ** PERIOD RATIO IS (ONE COMPLETE CYCLE OF A)/(ONE COMPLETE CYCLE OF B).?MI:BPC ** DRAG COEFFICIENT IS AIR RESISTANCE ON 0 TO 1 SCALE.?MI>BQE?MJRBRI (FITR(/2)-(/2)) 1.19, .28,1.19?MJ9BST "YOU DO NOT HAVE ENOUGH FEATURES. RESTART FOCAL WITH FEATURE 1.",!;Q?MJ<BT?MK B\S N=200;A !"PHASE DIFFERENCE OF A ",PA,"PHASE DIFFERENCE OF B ",PB?MLAB]A !"SWING COEFFICIENT OF A ",S1,"SWING COEFFICIENT OF B ",S2?ML^B^A !"TIME DIFFERENCE ",T1,"ANGLE BETWEEN A AND B ",AD?ML<B(A !"PERIOD RATIO ",R,"DRAG COEFFICIENT ",D1;S D3=1-D1?MMWB*S C=3.1415926/180;S P1=PA*C;S P2=PB*C;S A1=AD*C?MM3B,S A=190*S1;S B=190*S2;S D1=FCOS(A1);S D2=FSIN(A1)?MNB2F Q3=0,.2,FOUT(24);?MNPB<F T=0,.15,N*3.1415926;D 2?MN\CFS B3=FOUT(1);G 1.1?MN1DJS X1=A*FCOS(R*T+P1);S Y1=A*FSIN(R*T)?MOGDTS X2=B FCOS(A1+T+P2);S Y2=B*FSIN(T+A1)?MO[D^S XP=X2*D1+Y2*D2;S YP=Y2*D1+X2*D2?MO.D(S B6=FDIS(1,500+X1-XP,380+Y1-YP)?MD2S A=A*D3;S B=B*D3?M3?L S HARMONMTHL S DTA2:HARMON;L C WEB?M?MTOBCC LAST CHANGE: 8/9/71?WEEN IS THE ANGLE BETWEEN THE INITIAL PATHS OF A & B ?.(0 TO 90)?M0)?M)-(3/2)) 1.19,2.8,1.19?M9?M?RT FOCAL WITH FEATURE 1.",!;L E?S TEMP1?M??M PROGRAM?MM?M?R MAN IS HUNG. NO PICTURE IS DRAWN BY Note: Lines longer than 256 characters were wrapped