In[1]:=
Needs["Wavica`Wavica`"]
+++++++++++++++++++++++++++++++++++++++
Holographic Recording
In[2]:=
system = {GaussianBeam[1,.001,WaveLength->.405],
Move[BeamSplitterCube[{10,90},10],20],
Move[PlanoConcaveLens[-10,8,3],50],
Move[PlanoConvexLens[100,25,4,CurvatureDirection->Back],130],
Move[PlanoConvexLens[100,25,4],135],
MoveReflected[Mirror[10,3],{25,0},{25,-75},{175,0}],
MoveLinear[PlanoConcaveLens[-35,8,3],{25,-75},25,{175,0}],
Move[Screen[25, "H"],175]}
Out[2]=
In[3]:=
AnalyzeSystem[{system,Move[Boundary[250,140],{0,-20}]},PlotType->TopView(*, RayLineRGB->Black*)];
FindInterference can be used to examine the 2-D intereference fringes on the surface.
In[4]:=
?FindInterference
In[5]:=
interference = FindInterference[system]
Out[5]=
In[6]:=
interferencefunction = InterferenceFunction/.interference;
In[7]:=
Plot[interferencefunction[x],{x,0,.01},PlotPoints->200];
In[8]:=
?FindGratingFunction
In[9]:=
Options[FindGratingFunction]
Out[9]=
In[10]:=
gratingfunction = FindGratingFunction[system]
Out[10]=
In[11]:=
Options[Grating]
Out[11]=
In[12]:=
grating = Grating[GratingFunction/.gratingfunction,25,1,"HOE",DiffractedOrders->{{-1,.8},{0,.2},{1,0}}]
Out[12]=
Holographic Reconstruction
In[14]:=
AnalyzeSystem[{
GaussianBeam[.9,.001,WaveLength->.405],
GaussianBeam[.9,.001,WaveLength->.532],
GaussianBeam[.9,.001,WaveLength->.660],
Move[Mirror[10,3],25,45],
MoveReflected[Mirror[10,3],{25,0},{25,-75},{175,0}],
MoveLinear[PlanoConcaveLens[-35,8,3],{25,-75},25,{175,0}],
Move[grating,175],
Move[Boundary[250,140],{0,-20}]},PlotType->TopView, ShowArrows->True];
Created by Mathematica (July 29, 2005)