Next MeetingNewsletterPast NewslettersAmusement Park Related
     
     

PROGRAM NAME: DROP


This program is for the TI-82/83 calculator it is a smaller part of the larger program. Becuase of font limitations the "->" means to use the "STO" key on the calculator.

Return to program description page.


ClrHome

[A]((C-1),3)->V

Lbl A

Menu(" LOOP TYPE ","SYMETRICAL",B,"IRREGULAR",C,"GO BACK",D)

Lbl B

ClrHome

Disp "SYMETRICAL LOOP":Disp "================"

Output(7,1,"ENTER '0' TO GO"):Output(8,1,"BACK")

Input "RADIUS (M):",R

If R=0:Then:Return:End

R->P

Goto E

Lbl C

ClrHome

Disp " IRREGULAR LOOP ":Disp "================"

Output(3,1,"LOWER RADIUS":Output(4,1,"IN (M):"):Output(5,1,"&endash;&endash;&endash;&endash;&endash;&endash;&endash;&endash;&endash;&endash;&endash;&endash;&endash;&endash;&endash;&endash;")

Output(6,1,"UPPER RADIUS"):Output(7,1,"IN (M):")

Disp "LOWER RADIUS":Input "IN (M):",R

If R=0:Then:Return:End

Disp "&endash;&endash;&endash;&endash;&endash;&endash;&endash;&endash;&endash;&endash;&endash;&endash;&endash;&endash;&endash;&endash;"::Disp "UPPER RADIUS":Input "IN (M):",P

If P=0:Then:Return:End

Goto E

Lbl D

Return

Lbl E

 

If (V‰-2*G*(R+P))<0:Then

ClrHome

Disp " "

Disp "THE CAR WON'T"

Disp " MAKE IT TO"

Disp " THE TOP OF"

Disp " THE LOOP. "

Output(8,10,"[ENTER]")

Pause :Goto A:End

 

V‰/(R*G)->A

Ã(V‰-(2*G*(R+P)))->U

U‰/(P*G)->B

2*((V-U)/G)->T

ClrHome

Disp "------LOOP------"

Disp "LOWER V:"

Disp "G'S FELT:"

Disp "HEIGHT:"

Disp "UPPER V:"

Disp "G'S FELT:"

Disp "TIME (S):"

Output(8,7,"ACCEPT Y/N")

Fix 1

Output(2,10,V)

Output(3,11,A)

Output(4,9,(R+P))

Output(5,10,U)

Output(6,11,B)

Fix 2

Output(7,11,T)

getKey->K

 

While (K=0):getKey->K:End

If K=71:Then:Goto A:End

ClrHome:Disp "YES"

4->[A](C,1)

T->[A](C,2)

V->[A](C,3)

R->[A](C,4)

P->[A](C,5)

U->[A](C,6)

B->[A](C,7)

A->[A](C,8)

(R+P)->[A](C,9)

C+1->C


 
A special thanks to VASTfor hosting our web site.