home *** CD-ROM | disk | FTP | other *** search
/ PC World Komputer 1997 February / PCWK0297.iso / technika / formcalc / optics / optc443.equ < prev    next >
Text File  |  1993-12-01  |  3KB  |  32 lines

  1. "AST1CAL3 EQUATION VARIABLE","12-01-1993","21:22:13"
  2. "FOCAL_L1=1/(N[L1]/NZE(N[M])-1)/(1/NZE(R11)-1/NZE(R12)+(N[L1]/NZE(N[M])-1)*D1*N[M]/N[L1]/NZE(R11*R12)) H11=-(N[L1]/NZE(N[M])-1)*D1*FOCAL_L1/NZE(R12*N[L1]/NZE(N[M])) H12=-(N[L1]/NZE(N[M])-1)*D1*FOCAL_L1/NZE(R11*N[L1]/NZE(N[M])) FFL1=FOCAL_L1+H12 FOCAL_L2=1/(N[L2]/NZE(N[M])-1)/(1/NZE(R21)-1/NZE(R22)+(N[L2]/NZE(N[M])-1)*D2*N[M]/N[L2]/NZE(R21*R22)) H21=-(N[L2]/NZE(N[M])-1)*D2*FOCAL_L2/NZE(R22*N[L2]/NZE(N[M])) H22=-(N[L2]/NZE(N[M])-1)*D2*FOCAL_L2/NZE(R21*N[L2]/NZE(N[M])) BFL2=FOCAL_L2-H21 FOCAL_LENGTH=1/(1/FOCAL_L1+1/FOCAL_L2-D/FOCAL_L1/FOCAL_L2) H11_H1=FOCAL_LENGTH*D/FOCAL_L2 H22_H2=-FOCAL_LENGTH*D/FOCAL_L1 S[I]=1/NZE(1/FOCAL_LENGTH-1/S[O]) M[T]=-S[I]/NZE(S[O])"
  3. "LENS COMBINATIONS, THICK LENSES, GAUSSIAN FORMULA.                             Definitions of variables follow:                                FOCAL_L? = effective focal length of thick lens #?, ?=1 or 2                    H?1, H?2 = locations of first and second principal planes of lens #?, ?=1 or 2  FFL1, BFL2 = front focal length of lens #1, back focal length of lens #2        H??_H? = distance from princ. plane of lens #? to system princ. plane.          FOCAL_LENGTH = system focal length measured from system princ. planes           S[I], S[O] = image and object distances of system                               M[T] = transverse magnitization of system                                       D = distance from lens #1 second princ. plane to lens #2 first princ. plane     D? = distances between princ. planes of each thick lens                         N[L?] = index of lense #?,  N[M] = index of medium (air = 1)                    R?1, R?2 = radii of curvature of lens #?, ?=1 or 2                              Note: distances to right are considered +.                                                                                     (c) Copyright PCSCC, Inc., 1993  *** Answer(s) to problem ***                                                    Note: variables are set to proper values at entry. the indiviual focal lengths  are FOCAL_L1=FOCAL_L2= 34.48 mm. The system focal length is FOCAL_LENGTH=30.52mm                          Type any key to exit.                                                || Two identical bi-convex lenses are separated by 30 mm.  Each  lens has a radius of 50 and 30 mm, a thickness of 20 mm and an index of 1.6.    Calculate individual and system focal lengths.                                       Type comma key to see answer.  Type (F2) to return to application file."
  4. 24
  5. 34.48275862068965,0,""
  6. 8.620689655172414,0,""
  7. -5.172413793103448,0,""
  8. 29.31034482758621,0,""
  9. 34.48275862068965,0,""
  10. 8.620689655172414,0,""
  11. -5.172413793103448,0,""
  12. 25.86206896551724,0,""
  13. 30.51571559353067,0,""
  14. 26.54867256637168,0,""
  15. -26.54867256637168,0,""
  16. 78.30853563038371,0,""
  17. -1.566170712607674,0,""
  18. 1,0,""
  19. 1.6,0,""
  20. 50,0,""
  21. -30,0,""
  22. 20,0,""
  23. 1.6,0,""
  24. 50,0,""
  25. -30,0,""
  26. 20,0,""
  27. 30,0,""
  28. 50,0,""
  29. 1
  30. 0
  31. 0
  32.