Sekans Hyperbolikus Lösung der NLSG

Manipulate[Plot[E0*Sech[(t-(z/vG))*(Sqrt[((-Γ)/α)])*E0]*Re[Exp[((-I)/2)*z*Γ*(E0^2)]],{z,-30,30},PlotRange->All],{t,-10,10},{E0,0,10},{vG,1,10},{Γ,0,10},{α,-10,-1}]

1/Cosinus Hyperbolikus Lösung der NLSG

Manipulate[Plot[Re[(((Sqrt[2])a*Exp[I*(k*z-(U/2)*z-ω*t)])/(Cosh[a*(z-U*t)]))],{z,-20,20},PlotRange->All],{t,-15,15},{k,0,10},{U,0,10},{ω,0,10},{a,0,1}]

Vergleich der Lösungen von Linearer und Nichtlinearer Schrödingergleichung

Manipulate[Plot[{E0*Sech[(t-(z/vG))*(Sqrt[((-Γ)/α)])*E0]*Re[Exp[((-I)/2)*z*Γ*(E0^2)]],a*Re[Exp[I*(b*z+(k*(a^2)-(b^2))*t+c)]]},{z,-30,30},PlotRange->All],{t,-10,10},{E0,0,10},{vG,1,10},{Γ,0,10},{α,-10,-1},{k,0,10},{b,0,10},{c,0,10},{a,1,10}]

Kerr-Effekt- Frequenzaufspaltung um die Mitte des Pulses

Manipulate[Plot[Sech[(t-(z/vG))*(Sqrt[((-Γ)/α)])*E0]*Re[Exp[-I*z*Γ*((Abs[Sech[(t-(z/vG))*(Sqrt[((-Γ)/α)])*E0]])^2)]],{z,-5,50},PlotRange->All],{t,0,20},{E0,0,10},{vG,1,10},{Γ,0,10},{α,-10,-1}]