Angle of refraction
Version: 1.0, 971210
Creators: Daniel Bergman, Mattias Morén.
Description: The program calculates the angle of refraction for a lightbeam going through
two different materials. Angles are given from the normal. If total reflection arise, the program
prints "TR". The first two numbers ar the refractive index for the materials the light passes.
The last number is the angle of incidence from the normal. Remember to think in witch direction
the light goes.
Comments: "<=" is the "smaller or equal"-sign, ">=" is the "larger or equal"-sign.
Known bugs: None.
Size: 83 bytes.
For more games and programs, please visit http://ti80.burtrask.net.
PROGRAM:REFR
INPUT"F?",A
INPUT"T?",B
INPUT"V?",X
IF A<=B:GOTO 0
IF X>=SIN-1(B/A)
THEN
DISP "TR"
STOP:END
LBL 0
DISP SIN-1((A SIN X/B)
--------------------------------------------------------------------
Copyright (C) 1998 by Daniel Bergman & Mattias Morén
http://ti80.burtrask.net