motion pendulum TI Motion motion :select device, 333 3:custom device 333 333 0 3 enter :collect data READY t=0 t CBL 6 ( t=0 t 7 ) t ~t 6 6 6 6 6 L L 4
L 5 L 6 motion N- L Gate ( ) CBL samping L () Gate L Pendulum Pendulum motion L N L Pulse
9 0 0. Motion enter CBL done L 0 L (0) T. Gate /0 3. Pendulum ( ) /5 4. Pulse /0 pulse 0 pulse Motion d 3
8 0.0 00.00.00.030.040.050.06 0.07 ~t 7 6 L 5 L 6 d t 0~t t ~t 0~t t ~t ' v ' v t v 0~t a v v ' v v d t t d t ' t v a () t t v a () v a ' v( t t) v t t ' ' ( v v) t ' TI-83 \start83\ \comment=program file dated 0/4/0, 3:06 \protected=true \name=phztimer \file=e:\progra~\tieduc~\ti-gra~\cbl_cbr\phztimer.txt [A](4,3)\->\U 4
[A](4,4)\->\D If G= and [A](4,3)\!=\0 Goto 5 Disp "CONNECT" Disp "PHOTOGATE" Disp "TO CHANNEL." Output(8,0,"[ENTER]" Lbl 0\->\[A](4,4) 0\->\[A](4,3) Lbl O Menu("**TIMING MODES**","MOTION",0,"GATE",B,"PENDULUM",C,"PULSE",D,"CHECK GATE",,"RETURN TO MAIN",3) Lbl 0 Menu("*MOTION TIMING*","SELECT DEVICE",M,"COLLECT DATA",N,"TIMING MENU",) Lbl M 0\->\Y Menu("SELECT DEVICE","VERNIER PICKET",F,"SMART PULLEY",G,"CUSTOM DEVICE",L) Lbl F.05\->\D 8\->\U Lbl G 0\->\Y Menu("SMART PULLEY","0 SPOKE INSIDE",H,"0 SPOKE OUTSIDE",I,"3 SPOKE INSIDE",J,"3 SPOKE OUTSIDE",K) Lbl H.05\->\D Lbl I.06\->\D Lbl J 3\->\Y.048\->\D Lbl K 3\->\Y.05\->\D 5
Lbl L Disp "ENTER LEADING" Disp "EDGE DISTANCE" Disp "IN METERS." Input D Disp "ENTER NUMBER OF" Disp "LEADING EDGES." Input U Lbl N {,,}\->\L\6\ Lbl 6 If Y>0 Then Disp "ESTIMATE NUMBER" Disp "OF REVOLUTIONS." Input R 99+int(.5*86\->\U If Y*R>U U/Y\->\R Y*R\->\U Lbl 5 Disp "PRESS [ENTER]" Disp "TO ARM GATE." 0\->\S 0\->\W 0\->\L D\->\[A](4,4) U\->\[A](4,3) Disp "READY..." {3,0,U,3,,,0,,}\->\L\6\ Get(L\\) Get(L\\) seq(d*n,n,0,u-,)\->\l\4\ Disp "TIME IN L\\" Disp "DISTANCE IN L\4\" L\\-(L\\())\->\L\\ U\->\dim(L\5\ U\->\dim(L\6\ For(N,,U-,) (((L\4\(N)-L\4\(N-))/(L\\(N)-L\\(N-)))*(L\\(N+)- L\\(N))+((L\4\(N+)-L\4\(N))/(L\\(N+)- L\\(N)))*(L\\(N)-L\\(N-)))/(L\\(N+)-L\\(N-))\- >\L\5\(N) 6
*((L\4\(N+)-L\4\(N))/(L\\(N+)-L\\(N))-(L\4\(N)-L\4\(N- ))/(L\\(N)-L\\(N-)))/(L\\(N+)-L\\(N-))\->\L\6\(N) Disp "VELOCITY IN L\5\" For(N,,U-,) L\\(N+)\->\L\\(N) L\4\(N+)\->\L\4\(N) L\5\(N+)\->\L\5\(N) L\6\(N+)\->\L\6\(N) Disp "ACC. IN L\6\" U-\->\dim(L\\ U-\->\dim(L\4\ U-\->\dim(L\5\ U-\->\dim(L\6\ Output(8,0,"[ENTER]" Lbl 7 \->\H prgmphzgraph Menu("**REPEAT?**","NO",O,"YES",5) Lbl B {,,5}\->\L\6\ 0\->\I \->\Z Menu("NUMBER OF GATES","ONE",X,"TWO",Y) Lbl Y \->\Z Lbl X I+\->\I {3,.5,Z,5,,}\->\L\6\ Disp "TO ARM CBL, MOVE" Disp "HAND THRU GATE." Output(8,0,"[ENTER]" Disp "SEND OBJECT THRU","PHOTOGATE(S).","","PRESS [ENTER]","WHEN CBL","DISPLAYS DONE." Get(L\3\) Float Output(,,"TIME(S) STORED" Output(,,"IN L\\" Output(4,,"TIME =" Output(5,,L\3\() Output(5,3,"SEC." If Z= Then 7
Output(6,,L\3\() Output(6,3,"SEC." Output(,7,"AND L\\" L\3\()\->\L\\(I) L\3\()\->\L\\(I) Output(8,0,"[ENTER]" Fix 3 Menu("**REPEAT?**","NO",,"YES",X) Lbl C ClrList L\\ Disp "ENTER NUMBER OF" Disp "OSCILLATIONS" Input N {,,}\->\L\6\ Disp "READY EXPERIMENT" Disp "PRESS [ENTER] TO" Disp "COLLECT DATA." {3,0,*N+,3,,,0,,}\->\L\6\ Get(L\\) Get(L\\) \->\C For(I,3,N+,) L\\(I)+L\\(I-)\->\L\\(C) C+\->\C Output(,,"PERIOD STORED" Output(,,"IN L\\." Output(4,,"AVG PERIOD =" Output(5,,mean(L\\)) Output(5,3,"SEC." Menu("**REPEAT?**","NO",,"YES",C) Lbl D 0\->\I Lbl Z I+\->\I {,,}\->\L\6\ Disp "PRESS [ENTER]","TO ARM GATE." Disp "READY..." {3,0,,3,,,0,,}\->\L\6\ 8
Get(L\\) Get(L\\) L\\-L\\()\->\L\\ L\\()\->\L\\(I) Disp "TIME STORED" Disp "IN L\\" Output(5,,L\\() Output(5,4,"SEC" Output(8,0,"[ENTER]" Menu("**REPEAT?**","NO",,"YES",Z) Lbl {,,}\->\L\6\ {0}\->\L\\ {3,.,\(-)\,0}\->\L\6\ Output(,,"MONITORING " Output(,,"PHOTOGATE. PRESS" Output(3,,"[+] TO QUIT" While getkey\!=\95 Get(L\\()) If L\\()\<=\.:Output(6,,"BLOCKED " If L\\()>.:Output(6,,"UNBLOCKED" Goto Lbl 3 Return \stop83\ 9