PROGRAM NAME: REVIEW

Return to program description page.

ClrHome

Disp "ROLLER COASTER"

Disp " DESIGNER "

Disp " "

Disp " TRACK REVIEW "

Disp "================"

Output(8,10,"[ENTER]"

Pause

If [A](1,1)­1:Then

ClrHome

Output(4,1,"NO DATA ENTERED")

Output(8,10,"[ENTER]"

Pause

Return

End

ClrHome

2ÍJ

Disp " ALL"

Disp " MEASUREMENTS"

Disp " ARE IN MKS"

Disp " "

Disp "INITIAL"

Disp "VELOCITY IS"

[A](1,3)ÍV

Output(7,1,V)

Output(8,10,"[ENTER]"

Pause

Lbl A

While [A](J,1)­0

[A](J,1)ÍE

If E=1:Then

ClrHome

Disp "--LINEAR FORCE--"

Fix 1

Disp "M (KG)="

Disp "F (N)="

Disp "L (M)="

Disp "A (G'S)="

Disp "VF (M/S)="

Disp "TIME (S)="

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

Output(2,8,"500")

Output(3,7,[A](J,5))

Output(4,7,[A](J,6))

Output(5,9,[A](J,4))

Output(6,10,[A](J,3))

Fix 2

Output(7,10,[A](J,2))

Pause

End

If E=2:Then

ClrHome

Fix 1

Disp "---HILL DROP----"

Disp "DROP (M)="

Disp "VELOCITY AT THE"

Disp "HILL'S BOTTOM IS"

Disp "M/S:"

Disp "TIME (S):"

Output(2,11,[A](J,4))

Output(5,6,[A](J,3))

Fix 2

Output(6,11,[A](J,2))

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

Pause

End

If E=3:Then

ClrHome

Fix 1

Disp "---HILL RISE----"

Disp "RISE (M)="

Disp "VELOCITY AT THE"

Disp "HILL'S TOP IS"

Disp "M/S:"

Disp "TIME (S):"

Output(2,11,[A](J,4))

Output(5,6,[A](J,3))

Fix 2

Output(6,11,[A](J,2))

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

Pause

End

If E=4:Then

ClrHome

Fix 1

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

If [A](J,4)=[A](J,5):Then

Disp " SYMETRICAL "

Disp "RADIUS (M):"

Output(3,12,[A](J,4))

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

Pause

Else

Disp " IRREGULAR "

Disp "TOP"

Disp "RADIUS:"

Output(4,9,[A](J,5))

Disp "----------------"

Disp "BOTTOM"

Disp "RADIUS:"

Output(7,9,[A](J,4))

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

Pause

End

ClrHome

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

Disp "LOWER V:"

Disp "G'S FELT:"

Disp "HEIGHT:"

Disp "UPPER V:"

Disp "G'S FELT:"

Disp "TIME (S):"

Output(2,9,[A](J,3))

Output(3,10,[A](J,8))

Output(4,8,[A](J,9))

Output(5,9,[A](J,6))

Output(6,10,[A](J,7))

Fix 2

Output(7,10,[A](J,2))

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

Pause

End

If E=5:Then

ClrHome

Fix 1

Disp "--BANKED CURVE--"

Disp "VEL. (M/S):"

Disp "RADIUS (M):"

Disp "BANK ANGLE:"

Disp "ARC ANGLE°:

Disp "G'S FELT:"

Disp "TIME (S):"

Output(2,12,[A](J,3))

Output(3,12,[A](J,4))

Output(4,12,[A](J,5))

Output(5,12,[A](J,6))

Output(6,11,[A](J,7))

Fix 2

Output(7,11,[A](J,2))

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

Pause

End

J+1ÍJ

End

ClrHome

Disp "THE CAR'S FINAL"

Disp "VELOCITY IS: "

Disp " "

Disp "----------------"

Disp "RUN TIME IS (S):"

2ÍJ

While [A](J,1)­0

[A](J,2)+TÍT

[A](J,3)ÍV

J+1ÍJ

End

Fix 2

Output(3,4,V)

Output(3,12,"(M/S)")

Output(6,4,T)

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

Pause