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

  1. "AST1CAL3 EQUATION VARIABLE","12-04-1993","14:44:01"
  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, LENSMAKER'S FORMULA.             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 < 0                        S[I] + means its right  of vertex V1       means                                R?   + means center C is right of V     diverging lens.       *** Answer(s) to problem ***                                                    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.      N[L] = 1.59. The source radius is R2 and image is R1, see above diagram.                       ||The source and image points are located 5 and 7 cm,            respectively, from a spherical concave lens with source radius of -3 cm and     image radius of 4 cm.   What should the index of refraction of the glass be?         Type comma key to see answer. Type (F2) to return to application file."
  4. 13
  5. 5,0,""
  6. 7,0,""
  7. 1.587755102040816,0,""
  8. 1,0,""
  9. 4,0,""
  10. -3,0,""
  11. 2.916666666666667,0,""
  12. 5,0,""
  13. -3,0,""
  14. 4,0,""
  15. 1,0,""
  16. 0,0,""
  17. 7,0,""
  18. 1
  19. 0
  20. 0
  21.