MathGroup Archive 1996

[Date Index] [Thread Index] [Author Index]

Search the Archive

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/


  • Prev by Date: Q:Nicer than: Function[x,MapAt[Im,x,2]]/@data
  • Next by Date: live support on SGI
  • Previous by thread: bodeplot
  • Next by thread: Re: Re: Euclidean Matrix Norm