
Labelling each curve and changing grid in ParametricPlot
Posted:
Feb 2, 2013 1:15 AM


Hello
I wonder whether someone out there could help me with the following problem.
plot[\[Tau]_, \[CapitalOmega]_] := Module[{arg, abs}, {arg, abs} = Factor[Together[ComplexExpand[ Through[{Arg, Abs}[(1 + I*2*\[CapitalOmega])/(1 + I*2*\[Tau]*\[CapitalOmega])]]]]]; {arg/Degree, 20*Log10[abs]}]
ParametricPlot[Table[plot[\[Tau], \[CapitalOmega]], {\[Tau], {7, 8, 9, 10, 11, 12, 13, 14, 15}}], {\[CapitalOmega], 0.5, 0.01}, AspectRatio > 1, GridLines > Automatic, GridLinesStyle > Dashed, ImageSize > Large]
I need to label each curve with the value of tau and, instead of the normal grid, a grid based on the values of Omega.
I saw something related to the label problem on the net but could not figure out how to change it to my case. Something with Epilog.
Many thanks
Ed

