| Author |
Comment/Response |
Richard Taylor
|
 03/30/01 04:53am
I have set up a loop to plot out 3 plots in a combined plot, and label each
plot with its respective ''TMmnp'' designation. The combined plot however only
labels one plot, and not the other two. Can you help please.
Regards
Richard Taylor
\!\(TraditionalForm\`\(mTMstart = 0; \n
mTMend = 2; \n
gList = {}; \n
For[mTMaux = mTMstart, mTMaux <= mTMend, \(mTMaux++\), nTMaux = 1;
pTMaux = 0; \[Epsilon]r = 1; L = 25.73\/10\^3; a = 14.67\/10\^3;
faF(t_) = \((\(2\ a\ t\ 299792458\ \@\(\((\(pTMaux\ \[Pi]\)\/L)\)\^2 + \
\((\(BesselJZeros(mTMaux, {nTMaux, nTMaux})\)\[LeftDoubleBracket]1\
\[RightDoubleBracket]\/\(a\ t\))\)\^2\)\)\/\(2\ \[Pi]\ \@\[Epsilon]r\))\)\^2;
faL(t_) = \((\(2\ a\ t\)\/L)\)\^2;
g = ParametricPlot[{faL(t), faF(t)}, {t, .1, 2},
PlotRange -> {{ .01, 5}, All}, ImageSize -> 726, GridLines -> None,
TextStyle -> {FontSize -> 14}, DisplayFunction :> Identity,
Epilog -> {Text[''\<TM\>'', {4.2, \((\(2\ a\ 299792458\ \
\@\(\((\(BesselJZeros(mTMaux, {nTMaux, nTMaux})\)\[LeftDoubleBracket]1\
\[RightDoubleBracket]\/a)\)\^2 + \((\(pTMaux\ \[Pi]\)\/L)\)\^2\)\)\/\(2\ \
\[Pi]\ \@\[Epsilon]r\))\)\^2}],
Text[{mTMaux, nTMaux,
pTMaux}, {4.6, \((\(2\ a\ 299792458\ \
\@\(\((\(BesselJZeros(mTMaux, {nTMaux, nTMaux})\)\[LeftDoubleBracket]1\
\[RightDoubleBracket]\/a)\)\^2 + \((\(pTMaux\ \[Pi]\)\/L)\)\^2\)\)\/\(2\ \
\[Pi]\ \@\[Epsilon]r\))\)\^2}]}]; AppendTo[gList, {g}];
Print[mTMaux, nTMaux,
pTMaux, ''\< \>'', \((\(2\ a\ 299792458\ \@\(\((\(BesselJZeros(mTMaux, \
{nTMaux, nTMaux})\)\[LeftDoubleBracket]1\[RightDoubleBracket]\/a)\)\^2 + \
\((\(pTMaux\ \[Pi]\)\/L)\)\^2\)\)\/\(2\ \[Pi]\ \@\[Epsilon]r\))\)\^2]]\n
Show[gList, DisplayFunction :> $DisplayFunction]\)\)
URL: , |
|
