| |
| | deltashellmodel_neu.nb |
 | | , \[Zeta]max}, PlotPoints \[Rule] 80, PlotRange \[Rule] {\(-PLR\), PLR}, PlotStyle \[Rule] {Thickness[.008], Hue[0]}], Plot[Re[1 + \[ImaginaryI]\ u\ \((\(-\(1\/\(2 \[Zeta]\)\)\)\ \ \[ImaginaryI]\ \((1 - \[ExponentialE]\^\(\(-2\)\ \[Zeta]\))\))\)], {\[Zeta], 0. |
 | | ,.01}], plst \[Rule] Hue[\[ScriptL]max/20]], {\[ScriptL]max, 0, 12}]];\)\)], "Input", CellTags->"b:3"], Cell[BoxData[ \(Do[\(DisplayTogether[ Table[lpo[ Table[{\[Xi], \[Sigma]t[\[ScriptL]max, \[Xi]]}, {\[Xi],.1, \ \[Xi]max,.01 \((\[ScriptL]max + 1)\)}], plst \[Rule] Hue[\[ScriptL]max/20]], {\[ScriptL]max, 0, 20, 2}]];\), {\[Xi]max, 1, 20}]\)], "Input", CellTags->"b:3"], Cell[BoxData[ \(\(lp1 = DisplayTogether[ Table[lpo[ Table[{\[Xi], \[Sigma]t[\[ScriptL]max, \[Xi]]}, {\[Xi], 10. |
 | | ,.0001}], pjt, plr \[Rule] All, Ticks \[Rule] {Table[k\ \[Pi]/2, {k, 1, 6}], Automatic}];\)\)\)], "Input", CellTags->"b:3"], Cell[BoxData[ \( (*bei\ moderaten\ u - Werten\ sieht\ es\ dagegen\ so\ \(\(aus\)\(:\)\)*) \)], "Input"], Cell[BoxData[ \(\(DisplayTogetherArray[ Table[lpo[ Table[{\[Xi], \(\(u\^2\) \(Sin[\[Xi]]\^4\) \[Xi]^0\)\/\(\((\[Xi] \ - \(u\/2\) Sin[2 \[Xi]])\)\^2 + \(u\^2\) Sin[\[Xi]]\^4\)}, {\[Xi],.1, 10. |
| cip.physik.uni-wuerzburg.de /~drgross/deltashellmodel_neu.nb |
|