home *** CD-ROM | disk | FTP | other *** search
/ Play and Learn 2 / 19941.ZIP / 19941 / EDUCNOMY / ASTROSET / WAVEL.BAS < prev    next >
Encoding:
BASIC Source File  |  1994-02-04  |  512 b   |  24 lines
  1.  
  2. 100 REM     WAVELENGTHS
  3. 110 REM
  4. 120 DATA 6563,14.5
  5. 130 DATA 4861,49.0
  6. 140 DATA 3889,85.0
  7. 150 READ W1,S1
  8. 160 READ W2,S2
  9. 170 READ W3,S3
  10. 180 P=W2-W1: Q=W3-W1: R=S2-S1
  11. 190 S=S3-S1: T=S3-S2
  12. 200 A=R/P: B=S/Q
  13. 210 U=A-B: V=T/U: L=W1-V
  14. 220 D1=A*(W2-L): D2=D1+S1
  15. 230 C=(D1*T)/U
  16. 240 PRINT
  17. 250 INPUT "DISTANCE";D
  18. 260 IF D<0 THEN 310
  19. 270 W=L+(C/(D2-D))
  20. 280 W=INT(W+0.5)
  21. 290 PRINT "WAVELENGTH = ";W
  22. 300 GOTO 240
  23. 310 END
  24.