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