MathGroup Archive 1996

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

Search the Archive

Re: bodeplot


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