home *** CD-ROM | disk | FTP | other *** search
/ PC World Komputer 1997 February / PCWK0297.iso / technika / formcalc / optics / optc413.equ < prev    next >
Text File  |  1993-10-17  |  3KB  |  21 lines
  1. "AST1CAL3 EQUATION VARIABLE","10-17-1993","20:26:41"
  2. "OBJECT_DISTANCE=S[O]+(1-SIGN(ABS(S[O])))*S[I]*R1*R2/(S[I]*(R2-R1)*(N[L]/(N[M]+1E-30)-1)-R2*R1) IMAGE_DISTANCE=S[I]+(1-SIGN(ABS(S[I])))*S[O]*R1*R2/(S[O]*(R2-R1)*(N[L]/(N[M]+1E-30)-1)-R2*R1) INDEX_L=N[L]+(1-SIGN(ABS(N[L])))*(R1*R2*(S[I]+S[O])/(S[O]*S[I]+1E-30)/(R2-R1+1E-30)+1)*N[M] INDEX_M=N[M]+(1-SIGN(ABS(N[M])))*1/((R1*R2*(S[I]+S[O])/(S[O]*S[I]+1E-30)/(R2-R1+1E-30)+1))*N[L] RADIUS_1=R1+(1-SIGN(ABS(R1)))*R2*S[I]*S[O]*(N[L]/(N[M]+1E-30)-1)/(S[I]*S[O]*(N[L]/(N[M]+1E-30)-1)+R2*(S[I]+S[O])+1E-30) RADIUS_2=R2+(1-SIGN(ABS(R2)))*R1*S[I]*S[O]*(N[L]/(N[M]+1E-30)-1)/(S[I]*S[O]*(N[L]/(N[M]+1E-30)-1)-R1*(S[I]+S[O])+1E-30) FOCAL_LENGTH=RADIUS_1*RADIUS_2/(RADIUS_2-RADIUS_1)/(INDEX_L/INDEX_M-1)"
  3. "THIN SPHERICAL LENS EQUATION, FOCAL LENGTH vs  N[G], N[L].     A diagram of the Problem is shown below. Surface is represented by 's'.                            · s ·                    R1 radius at center C1                       ray   · °s·    s °  ·              R2 radius at center C2                         · °  s    ° ·  s    °  ·         V1 vertex of sphere 1                     · °      s     R1   °s ·       °  ·   V2 vertex of sphere 2                 o······o·····sV1·······V2s····°··o········o  S source point                     S      C2 ° ·s       n[l]s       C1       P  P image point                                    s° ·R2    s                    S[O] Source distance                     n[m]      s  ° ·s                      S[I] Image distance                                   s                       |V2-V1|<< S[O] or S[I].              |--------S[O]------|-----------S[I]-------|  (c) Copyright PCSCC, Inc., 1993  Sign Convention:  S[O] + means its left of vertex V2           focal length                       S[I] + means its right  of vertex V1            <0  means                       R?   + means center C is right of V           diverging lens. *** Answer(s) to problem ***        Type any key to exit.                       Variables are set to proper values at entry.  Note, value of unknown should be  set to 0.0.  Enter any 5 of 6 knowns, program calculates missing (=0) one.      Bi-concave: R1<0 Center C1 is left of Vertex V.   Focal_length= -32.4 cm        (diverging). Now set N[L]=1.46 and N[M]=1.66, focal_length = 49.8 (converging!)                ||Calculate the focal length of a bi-concave thin lens made of   glass (Ng=1.6) and immersed in isopropanol (Na=1.35). The source radius is -9   and the image radius is 18 cm.  Type (F2) to return to application file."
  4. 13
  5. 0,0,""
  6. 0,0,""
  7. 1.6,0,""
  8. 1.35,0,""
  9. -9,0,""
  10. 18,0,""
  11. -32.4,0,""
  12. 0,0,""
  13. 18,0,""
  14. -9,0,""
  15. 1.35,0,""
  16. 1.6,0,""
  17. 0,0,""
  18. 1
  19. 0
  20. 0
  21.