temperaturedependence.nb

RowBox[{RowBox[{(*, RowBox[{In this plot we can observe the importance of a stable temperature ... eam}], , *)}], , RowBox[{RowBox[{d, =, 0.0006}], , RowBox[{R, =, 0.3}]}]}]

Out[24]=

Out[25]=

In[26]:=

Out[26]=

In[27]:=

λ = 1080 10^-9 (4 π n d)/(2 λ)

Out[27]=

Out[28]=

In[29]:=

Out[29]=

In[32]:=

$RowBox[{Plot3D, [, RowBox[{RowBox[{1, /, RowBox[{(, RowBox[{1, +, , RowBox[{(4 R)/(1 - R)^2, ... ,, 1.}], }}]}], ,, AxesLabel {temperature, angle θ, transmission }}], ]}]$

[Graphics:HTMLFiles/index_12.gif]

Out[32]=

Created by Mathematica (October 20, 2003)