Off[General :: spell]

���fFresnel����

�֐�

θt[θ_] := ArcSin[n Sin[θ]]    (* Snell̖@θtvZ *)

rs[θ_] := -Sin[θ - θt[θ]]/Sin[θ + θt[θ]]       (* Fresnel̎ sΌ *)

rp[θ_] := Tan[θ - θt[θ]]/Tan[θ + θt[θ]]         (* Fresnel̎ pΌ *)

����

�v�Z

p�Ό����˗�

Plot[Abs[rp[Rad[θ]]], {θ, 0, 90}, PlotRange→All] ;

[Graphics:HTMLFiles/index_8.gif]

Plot[Arg[rp[Rad[θ]]], {θ, 0, 90}, PlotRange→All] ;

[Graphics:HTMLFiles/index_10.gif]

Plot[Re[θt[Rad[θ]]], {θ, 0, 90}, PlotRange→All] ;

[Graphics:HTMLFiles/index_12.gif]

Plot[Im[θt[Rad[θ]]], {θ, 0, 90}, PlotRange→All] ;

[Graphics:HTMLFiles/index_14.gif]

Created by Mathematica  (June 6, 2008) Valid XHTML 1.1!