3.17 Odraz na dvou rozhraních - nekonečně mnoho odrazů

R=R12+T12 T21((R23 Exp[-2I k L])/(1-R21 R23 Exp[-2I k L]))/.{R21->-R12,T12->1+R12,T21->1-R12,k->((2π)/λ)}
ticksX={{0,"0"},{0.25,"(λ/4)"},{0.5,"(λ/2)"},{0.75,"((3  λ)/4)"},{1,"λ"},{1.25,"((5  λ)/4)"},{1.5,"((3  λ)/2)"}};
ticksY1={{0, "0%"},{0.25,"25%"},{0.5,"50%"},{0.75,"75%"},{1,"100%"}};
ticksY2={{-π, "-180°"},{0., "0°"},{π, "180°"}};

Manipulate[
GraphicsRow[{
Plot[((Abs[R])^2)/.{λ->1.,R12->mR12,R23->mR23},{L,0,1.5},PlotRange->{0,1},PlotLabel->"Intenzita odraženého paprsku I = |R((|)^2)",ImagePadding->{{30,30},{25,0}},AxesLabel->{Style["L [λ]",Medium],Style["I [%]",Medium]},Ticks->{ticksX,ticksY1}],
Plot[Arg[R]/.{λ->1.,R12->mR12,R23->mR23},{L,0,1.5},PlotRange->{-π,π},PlotLabel->"Fázový posun odraženého paprsku Arg[R] = ϕ (R = |R|\!\(\*SuperscriptBox[\(E\), \(I\\ ϕ\)]\))",ImagePadding->{{30,30},{25,0}},AxesLabel->{Style["L [λ]",Medium],Style["ϕ [rad]",Medium]},Ticks->{ticksX,ticksY2}]
},ImageSize->900],
Item[Style["3.17 Odraz na dvou rozhraních - nekonečně mnoho odrazů",Bold,14],Alignment->Center],
Delimiter,
Row[{
Control[{{mR12,0.5,Dynamic["(Subscript[R, 12]) = "<>ToString[mR12]]},-1,1}],
Spacer[30],
Control[{{mR23,0.5,Dynamic["(Subscript[R, 23]) = "<>ToString[mR23]]},-1,1}]
}],
SaveDefinitions->True,ControlPlacement->Top
]

Fabry–Pérot interferometer

Manipulate[
Plot[((Abs[R])^2)/.{λ->1.,R12->mR,R23->mR},{L,0,0.5},PlotRange->{0,1},PlotLabel->"Intenzita odraženého paprsku I = |R((|)^2) v závislosti na vzdálenosti rozhraní L",ImagePadding->{{30,30},{25,0}},AxesLabel->{"L [λ]","I [%]"},Ticks->{ticksX,ticksY1},ImageSize->550],
Item[Style["Fabry-Pérotův interferometr",Bold,14],Alignment->Center],
Delimiter,
Row[{
Spacer[135],
Control[{{mR,0.85,Dynamic["(Subscript[R, 12]) = (Subscript[R, 23]) = "<>ToString[mR]]},-1,1}],
Spacer[135]
}],
SaveDefinitions->True
]

Gires–Tournois interferometer

Manipulate[
GraphicsRow[{
Plot[Arg[R]/.{λ->1,R12->mR12,R23->mR23},{L,0,0.5},PlotRange->{-π,π},PlotLabel->"Fázový posun odraženého paprsku Arg[R] = ϕ (R = |R|\!\(\*SuperscriptBox[\(E\), \(I\\ ϕ\)]\))",ImagePadding->{{30,30},{25,0}},AxesLabel->{"L [λ]","ϕ [rad]"},Ticks->{ticksX,ticksY2}],
Plot[((Abs[R])^2)/.{λ->1,R12->mR12,R23->mR23},{L,0,0.5},PlotRange->{0,1},PlotLabel->"Intenzita odraženého paprsku I = |R((|)^2)",ImagePadding->{{30,30},{25,0}},AxesLabel->{"L [λ]","I [%]"},Ticks->{ticksX,ticksY1}]
},ImageSize->900],
Item[Style["Gires-Tournoisův interferometr",Bold,14],Alignment->Center],
Delimiter,
Row[{
Control[{{mR12,-0.9,Dynamic["(Subscript[R, 12]) = "<>ToString[mR12]]},-1,0}],
Spacer[30],
Control[{{mR23,-0.995,Dynamic["(Subscript[R, 23]) = "<>ToString[mR23]]},-1,-0.95}]
}],
SaveDefinitions->True
]