Physics

MihaiG · **Posted:** Fri Dec 17, 2004 10:32 pm

heres a code that gets time dialation, length distortion, and mass increase... for high speeds.... remeber speeds must be in fractions of C(speed of light) just a little etool fo r physics Smile

he he he

code:

var t1, v, c, t, a, b, d, l, l1, l2, m, M : real
c := 186000
put "Physics!!"
loop
put "Time Dialation"
put "You are on a rocket going near the speed of light."
put "How much time a=has passed for an observer"
put "Please enter your speed in decimal form(of LightSpeed)i.e V / 186,000)"
get v
put "Please enter number of years/days spent on rocket."
get t1
a := v ** 2
b := 1 - a
d := b ** 0.5
t := t1 / d
put " The time elapsed on earth is"
put t
put "Here for lenght dialation(means to an observer you look shorter)"
put "*Remember your still going the same speed as inputed before"
put "What the lenght of ur ship"
get l
l1 := (1 - v) ** 0.5
l2 := l1 * l
put "Your length form an observer is"
put l2
put "Mass distortion"
put "What is ur mass(kg)"
get m
M := (m * (1 - v ** 2) ** -0.5)
put "Your mass at the speed of ", v, " will be ", M, "!!"
delay (1000)
end loop

there are a lot variables there for speed dont put anything >1 or it will say cannot devide by zero.... ihope u enjoy
i think its bugless9you cant faster than the speed of light!!)