Code covered by the BSD License

Highlights from
Optical_bench

opt_absorption(glass,waveleng... OPT_ABSORPTION - Calculate the absorption coefficient
opt_all_refrindx(wavelength) OPT_REFRINDX refractive index calculations.
opt_aperture(opt_type,opt_arg... OPT_APERTURE Circular aperture, iris
opt_build(file) OPT_BUILD - Builds optical system specified in FILE
opt_cbar(cax)
opt_elem(type) OPT_ELEM - Default opt_elem structure
opt_f2r(f,n) OPT_F2R Thin lens focal width to lens curvature radius.
opt_f_of_r1nr2zc(r1,n,r2,zc) OPT_R2_OF_FNR1_THICK - second radii of curvature given F, N R1 and ZC, thick lens
opt_fcn(opt_type,opt_args) OPT_FCN optical surface with general shape
opt_findstr(H,s) OPT_FINDSTR - find string S in character array H,
opt_fresnel(opt_type,opt_spec) OPT_LENS - Spherical lens single glass.
opt_fresnellens(opt_type,opt_... OPT_FRESNELLENS - Fresnel lens conical groves.
opt_grid(opt_type,opt_args) OPT_GRID - Simple difractive grating
opt_intersection(optelem,rayi... OPT_INTERSECTION - Determine the impact point of an optical
opt_lens(opt_type,opt_spec) OPT_LENS - Spherical lens single glass.
opt_plotoptics(opt_el,plotmod... OPT_PLOTOPTICS - Plot the optical system.
opt_prism(opt_type,opt_spec) OPT_LENS - Spherical lens single glass.
opt_project_direction(e,I,wav... OPT_PROJECT_POINT - Project light from direction E with intensity I throug OPT_EL
opt_project_point(r,I,wavelen... OPT_PROJECT_POINT - Project light from point R with intensity I through optics OPT_EL
opt_r2_of_fnr1_thick(f,n,r1,z... r2 = opt_r2_of_fnr1_thick(f,n,r1,zc)
opt_r2_of_fnr1_thin(f,n,r1) OPT_R2_OF_FNR1_THIN - second radii of curvature given F, N and R1, thin lens
opt_ray() OPT_RAY - RAY creator for OPT_TOOLS
opt_refraction(r_int,ray,opte... OPT_REFRACTION - calculation of optical refraction - Snells law.
opt_refrindx(glass,wavelength) OPT_REFRINDX refractive index calculations.
opt_rot(in_v,rot_v,theta) OPT_ROT - rotate vector IN_V THEDA radians around ROT_V
opt_screen(opt_type,opt_args) OPT_SCREEN - Screen - imaging detector.
opt_slit(opt_type,opt_args) OPT_SLIT - optical slit.
opt_sphereintersection(rl,e_i... OPT_SPHEREINTERSECTION - intersection between a ray and a spherical lens surface
opt_trace(optelements,rays,op... OPT_TRACE - ray tracing through optical systems.
opt_typical_ops() OPT_TYPICAL_OPS - typical standard options for the ray tracer
opt_vini(r1,r2,ng,zc) OPT_VINI - Rear nodal point distance from rear vertex of thick lens
optf_coshyp(r,s_or_n_or_p,arg... OPTF_HYPERBOLC defines a cosh lens surface
point_on_line(r_0,e_l,l); POINT_ON_LINE - calculates the vector to a point
Contents.m
aberation_spherical.m
dGauss_cell.m
grating_fig.m
opt_exempel.m
opt_exempel2.m
opt_exempel3.m
opt_exempel5.m
opt_exempel6.m
opt_exmpl_astigmatic.m
opt_exmpl_chromatic_ab.m
opt_exmpl_coma.m
opt_exmpl_field_curv.m
opt_exmpl_sphere_coma.m
opt_pinhole1.m
rover_cell.m
View all files

from Optical_bench by Bjorn Gustavsson
Optical_bench - a simple ray-tracing tool for optical systems.

Description of opt_grid

opt_grid

PURPOSE

OPT_GRID - Simple difractive grating

SYNOPSIS

function [opt1] = opt_grid(opt_type,opt_args)

DESCRIPTION

 OPT_GRID - Simple difractive grating
 OPT_TYPE should be 'grid' (hm good and vital argument), OPT_SPEC
 should be a string matrix, see README_OPT for specification.
   Necessary specification fields: 
 r1, dxdydx, linespmm,
 glass should be name of the glass type, the other 1x3 array
   Optional specification fields:
 normal, e_slit,
 example OPT_SPEC:
 'r1          12 0 0'
 'dxdydz      0 2 1'
 'linespmm    600'
 'normal      cos(10*pi/180) sin(10*pi/180) 0'
 
 Calling:
 [opt1] = opt_grid(opt_type,opt_args)
 
 See also OPT_APERTURE, OPT_SCREEN, OPT_LENS, OPT_PRISM, OPT_SLIT

CROSS-REFERENCE INFORMATION

This function calls:

opt_elem OPT_ELEM - Default opt_elem structure
opt_findstr OPT_FINDSTR - find string S in character array H,
opt_grid OPT_GRID - Simple difractive grating

This function is called by:

opt_build OPT_BUILD - Builds optical system specified in FILE
opt_grid OPT_GRID - Simple difractive grating

SOURCE CODE

0001 function [opt1] = opt_grid(opt_type,opt_args)
0002 % OPT_GRID - Simple difractive grating
0003 % OPT_TYPE should be 'grid' (hm good and vital argument), OPT_SPEC
0004 % should be a string matrix, see README_OPT for specification.
0005 %   Necessary specification fields:
0006 % r1, dxdydx, linespmm,
0007 % glass should be name of the glass type, the other 1x3 array
0008 %   Optional specification fields:
0009 % normal, e_slit,
0010 % example OPT_SPEC:
0011 % 'r1          12 0 0'
0012 % 'dxdydz      0 2 1'
0013 % 'linespmm    600'
0014 % 'normal      cos(10*pi/180) sin(10*pi/180) 0'
0015 %
0016 % Calling:
0017 % [opt1] = opt_grid(opt_type,opt_args)
0018 %
0019 % See also OPT_APERTURE, OPT_SCREEN, OPT_LENS, OPT_PRISM, OPT_SLIT
0020 
0021 % Version: 1.0
0022 % Copyright: Bjorn Gustavsson 20020430
0023 
0024 
0025 if nargin ~= 2,
0026   help opt_grid;
0027   ok = 0;
0028   return;
0029 end;
0030 
0031 opt1 = opt_elem(opt_type);
0032 opt1.glass = 'air'; %
0033 
0034 % defaults
0035 opt1.r(2:3) = 0; % Grid centered on the optical axis
0036 opt1.n = [1 0 0]; % Grid paralell with the optical axis
0037 opt1.e_slits = [0 0 1]; % Grid slits paralell with e_z
0038 
0039 % set the necessary ones:
0040 % grid size
0041 ii = opt_findstr(opt_args,'dydz');
0042 opt1.dxdydz = str2num(opt_args(ii,12:end));
0043 % grid position
0044 ii = opt_findstr(opt_args,'r1');
0045 opt1.r = str2num(opt_args(ii,12:end));
0046 % lines per mm
0047 ii = opt_findstr(opt_args,'linespmm');
0048 opt1.lpmm = str2num(opt_args(ii,12:end));
0049 
0050 % set the optional ones
0051 ii = opt_findstr(opt_args,'normal');
0052 if length(ii) == 1
0053   
0054   opt1.n = str2num(opt_args(ii(1),12:end));
0055   
0056 end
0057 
0058 ii = opt_findstr(opt_args,'e_slit');
0059 if length(ii) == 1
0060   
0061   opt1.e_slits = str2num(opt_args(ii(1),12:end));
0062   
0063 end