Re: bodeplot
- To: mathgroup at smc.vnet.net
- Subject: [mg5465] Re: [mg5358] bodeplot
- From: "Andrew B. Watson" <beau at vision.arc.nasa.gov>
- Date: Sat, 7 Dec 1996 00:26:45 -0500
- Organization: NASA
- Sender: owner-wri-mathgroup at wolfram.com
Jari-Pascal Curty wrote:
>
> Hi there,
>
> does anyone know a script for Mma that could do a bodeplot.
BodePlot[f_, range_, opts___Rule]:=
Show[GraphicsArray[
MapThread[
((#1[#2[f], range, opts,
DisplayFunction -> Identity,
PlotRange -> {Drop[range, 1], Automatic},
Frame -> {True, True, False, False},
FrameLabel -> {"Hz", #3}]))&,
{{LogLogPlot, LogLinearPlot}, {Abs, Arg}
, {"Magnitude", "Phase"}}]]
, DisplayFunction -> $DisplayFunction]
BodePlot[(I 2 Pi w .05 + 1) ^ (-6), {w,1,100}]
--
Andrew B. Watson
MS 262-2 NASA Ames Research Center
Moffett Field CA 94035-1000
(415) 604-5419 -3323 fax
beau at vision.arc.nasa.gov
http://vision.arc.nasa.gov/