home *** CD-ROM | disk | FTP | other *** search
/ Play and Learn 2 / 19941.ZIP / 19941 / EDUCNOMY / ASTROSET / LENS.BAS < prev    next >
Encoding:
BASIC Source File  |  1994-02-04  |  768 b   |  33 lines
  1.  
  2. 10 REM  APLANATIC DOUBLET DESIGN
  3. 12 REM
  4. 14 INPUT "FRONT INDEXES";A,B,C
  5. 16 INPUT "REAR INDEXES ";D,E,F
  6. 18 INPUT "FOCAL LENGTH ";FL
  7. 20 PRINT
  8. 22 G=B/(B-1): H=E/(E-1)
  9. 24 I=(B-1)/(C-A): J=(E-1)/(F-D)
  10. 26 K=I^2: L=I^3: M=J^2: N=J^3
  11. 28 O=(3-2/G)*I: P=(3-2/H)*J
  12. 30 Q=(3*G-1)*K
  13. 32 R=(8-4/H)*I*J-(3*H-1)*M
  14. 34 S=(G^2)*L-(5-2/H)*K*J
  15. 36 T=(4*H-1)*I*M-(H^2)*N
  16. 38 U=(2-1/G)*I: V=(2-1/H)*J
  17. 40 W=G*K-(3-1/H)*I*J+H*M
  18. 42 X=(U^2)*P-(V^2)*O
  19. 44 Y=2*U*W*P-(V^2)*Q+U*V*R
  20. 46 Z=(W^2)*P-(V^2)*(S+T)+V*W*R
  21. 48 A1=(Y-SQR(Y^2-4*X*Z))/(2*X)
  22. 50 A2=(U*A1)/V-W/V
  23. 52 R1=((I-J)/A1)*FL
  24. 54 R2=((I-J)/(A1-(I*(G-1))))*FL
  25. 56 R3=((I-J)/A2)*FL
  26. 58 R4=((I-J)/(A2+(J*(H-1))))*FL
  27. 60 PRINT "R1 = ";R1
  28. 62 PRINT "R2 = ";R2
  29. 64 PRINT "R3 = ";R3
  30. 66 PRINT "R4 = ";R4
  31. 68 END
  32.  
  33.