Special Relativity Effects
by Daniel Wedge

*** MORE GAMES AND PROGRAMS FOR CASIO CALCULATORS AT ***
******** http://www.student.uwa.edu.au/~wedgey *********

This program will calculate the relativistic mass, KE, momentum and
length of an object given its velocity, mass, length and momentum.

Size: 336 bytes

Symbols used:
-> assign key
=> if/then (under Prog)
sqrt square root sign ONLY
@  display sign (triangle)
^2 squared

'REL
"VELOCITY"? -> V
3E8 -> C
"BETA:"
V/C -> B%
"GAMMA:"
1/sqrt(1-B^2 -> G%
Lbl 0
"FIND RELATIVISTIC:"
"1.MASS"
"2.LENGTH"
"3.KE"
"4.MOMENTUM"
"0.QUIT"? -> X
X=1 => Goto 1
X=2 => Goto 2
X=3 => Goto 3
X=4 => Goto 4
X=0 => Goto A
Goto 0
Lbl 1
"REST MASS"? -> M
"REL MASS:":GM%
Goto 0
Lbl 2
"REST LENGTH"? -> L
"REL LENGTH:":L/G%
Goto 0
Lbl 3
"REST MASS"? -> M       ; yes, it is mass
"REL KE:"
(G-1)*M*C^2%
Goto 0
Lbl 4
"REST P"? -> P
"REL P:":GP%
Goto 0
Lbl A
"FINISHED"