home *** CD-ROM | disk | FTP | other *** search
/ AMOS PD CD / amospdcd.iso / 451-475 / apd453 / refraction.amos / refraction.amosSourceCode
AMOS Source Code  |  1993-01-08  |  315b  |  11 lines
  1. ' This program will calculate the refraction from light travelling 
  2. ' from air->water
  3. ' Program written by Brett George  
  4. N#=1.333 : N�#=1.007
  5. N#=N#/N�#
  6. Degree 
  7. Def Fn _ASIN(X#)=90-Acos(X#)
  8. Do 
  9.    Input "Enter angle of incidence: ";I# : Print 
  10.    Print "Angle of refraction="; Fn _ASIN(Sin(I#)/N#) : Print 
  11. Loop