home *** CD-ROM | disk | FTP | other *** search
/ ticalc.org / ticalc_org_rev_b.iso / archives / 80 / basic / science / refr.80 < prev   
Encoding:
Text File  |  2001-07-01  |  1.0 KB  |  30 lines
  1. Angle of refraction
  2.  
  3. Version: 1.0, 971210
  4. Creators: Daniel Bergman, Mattias MorΘn.
  5. Description: The program calculates the angle of refraction for a lightbeam going through
  6.              two different materials. Angles are given from the normal. If total reflection arise, the program
  7.              prints "TR". The first two numbers ar the refractive index for the materials the light passes.
  8.              The last number is the angle of incidence from the normal. Remember to think in witch direction
  9.              the light goes.
  10. Comments: "<=" is the "smaller or equal"-sign, ">=" is the "larger or equal"-sign.
  11. Known bugs: None.
  12. Size: 83 bytes.
  13.  
  14. For more games and programs, please visit http://ti80.burtrask.net.
  15.  
  16. PROGRAM:REFR
  17. INPUT"F?",A
  18. INPUT"T?",B
  19. INPUT"V?",X
  20. IF A<=B:GOTO 0
  21. IF X>=SIN-1(B/A)
  22. THEN
  23. DISP "TR"
  24. STOP:END
  25. LBL 0
  26. DISP SIN-1((A SIN X/B)
  27.  
  28. --------------------------------------------------------------------
  29. Copyright (C) 1998 by Daniel Bergman & Mattias MorΘn
  30. http://ti80.burtrask.net