home *** CD-ROM | disk | FTP | other *** search
/ PC World Komputer 1997 February / PCWK0297.iso / technika / formcalc / optics / optc408a.equ < prev    next >
Text File  |  1993-10-17  |  2KB  |  17 lines

  1. "AST1CAL3 EQUATION VARIABLE","10-17-1993","13:03:43"
  2. "IMAGE_DISTANCE=F[I]+(1-SIGN(ABS(F[I])))*N[2]*R/((N[2]-N[1])+1E-30) OBJECT_DISTANCE=1/1E-30 INDEX_1=N[1]+(1-SIGN(ABS(N[1])))*N[2]*(F[I]-R)/(F[I]+1E-30) INDEX_2=N[2]+(1-SIGN(ABS(N[2])))*N[1]*F[I]/(F[I]-R+1E-30) RADIUS=R+(1-SIGN(ABS(R)))*(N[2]-N[1])*F[I]/(N[2]+1E-30)"
  3. "SPHERICAL REFRACTING SURFACES, IMAGE FOCAL LENGTH.             A diagram of the Problem is shown below. Surface is represented by 's'.                                 s                                                          ∞<· · · · · · · · ·o·A               F = object focus       N[1] = index              L[O]       s  · ·  L[I]        V = vertex of sphere          outside                      s   R·   ·           S = object at ∞        N[2] = index                       o· · · o · · ·o       L[O] = ∞                      inside                     V|s    C       F       L[I] = distance from A to image                  N[1]     | s      N[2] |       F[O] = ∞                                                  |   s         |       F[I] = image focal length                  ∞<---F[O]------|------F[I]---|       C = center of sphere  R = radius curvat.                                               (c) Copyright PCSCC, Inc., 1993  Sign Convention:  F[O] = ∞                                                                        F[I] + means image is right of vertex V                                         R    + means center C is right of V                           *** Answer(s) to problem ***                                                    Variables are set to proper values at entry.  Note, value of unknown should be  set to 0.0.  Enter any 3 of 4 knowns, program calculates missing (=0) one.      F[I] = 19.6. Image is real and to right of V.  Type any key to exit.                           ||An interface separates air on the left and glass (Ng=1.44) on  the right. (a) What is the image focal length if its radius of curvature is 6   cm?                                                                                  Type comma key to see answer. Type (F2) to return to application file."
  4. 9
  5. 19.63636363636364,0,""
  6. 1D+30,0,""
  7. 1,0,""
  8. 1.44,0,""
  9. 6,0,""
  10. 0,0,""
  11. 1.44,0,""
  12. 1,0,""
  13. 6,0,""
  14. 1
  15. 0
  16. 0
  17.