Fabry-Perrot

Manipulate[Plot[(1/(1+F ((Sin[φ/2])^2))),{φ,-3,10},PlotRange->{0,1}],{F,0.01,200}]

Interferencja od N fal przesuniętych w fazie o φ

Manipulate[Plot[(((Sin[N φ/2])^2)/((Sin[φ/2])^2)),{φ,-3,10},PlotRange->All],{N,1,20,1}]

ComplexExpand[Table[{{Re[(r^n)],Im[(r^n)]},{Re[(r^(n+1))],Im[(r^(n+1))]}},{n,0,10}]/.r->Exp[I φ]]

{{{1, 0}, {Cos[φ], Sin[φ]}}, {{Cos[φ], Sin[φ]}, {Cos[2 φ], Sin[2 φ]}}, {{Cos[2 φ], Sin[2 φ]}, {Cos[3 φ], Sin[3 φ]}}, {{Cos[3 φ], Sin[3 φ]}, {Cos[4 φ], Sin[4 φ]}}, {{Cos[4 φ], Sin[4 φ]}, {Cos[5 φ], Sin[5 φ]}}, {{Cos[5 φ], Sin[5 φ]}, {Cos[6 φ], Sin[6 φ]}}, {{Cos[6 φ], Sin[6 φ]}, {Cos[7 φ], Sin[7 φ]}}, {{Cos[7 φ], Sin[7 φ]}, {Cos[8 φ], Sin[8 φ]}}, {{Cos[8 φ], Sin[8 φ]}, {Cos[9 φ], Sin[9 φ]}}, {{Cos[9 φ], Sin[9 φ]}, {Cos[10 φ], Sin[10 φ]}}, {{Cos[10 φ], Sin[10 φ]}, {Cos[11 φ], Sin[11 φ]}}}

Suma amplitud zespolonych “nn” fal, o określonych różnicach fazy i coraz mniejszych amplitudach

Manipulate[(
amplitudes=ComplexExpand[Table[{Re[(r^n)],Im[(r^n)]},{n,0,nn}]/.r->N[Amp Exp[I φ]]];
vectors={{{0,0},{1,0}}};
Do[vectors=Append[vectors,vectors[[n]]+{amplitudes[[n]],amplitudes[[n+1]]}],{n,1,nn-1}];
Graphics[{Table[Arrow[vectors[[i]]],{i,nn}],Red,Arrow[{{0,0},vectors[[nn,2]]}]},PlotRange-> All]), {nn,1,500,1},{Amp,0,1},{φ,0,2π}]

Manipulate[(
amplitudes=ComplexExpand[Table[{Re[(r^n)],Im[(r^n)]},{n,0,nn}]/.r->N[Amp Exp[I φ]]];
vectors={{{0,0},{1,0}}};
Do[vectors=Append[vectors,vectors[[n]]+{amplitudes[[n]],amplitudes[[n+1]]}],{n,1,nn-1}];
Graphics[{Table[Arrow[vectors[[i]]],{i,nn}],Red,Arrow[{{0,0},vectors[[nn,2]]}]},PlotRange-> {{-nn,nn},{-nn,nn}}]), {nn,1,50,1},{Amp,0,1},{φ,0,4π}]