Services & ResourcesWolfram ForumsMathGroup Archive

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

Re: How can a sub picture be resized with a Row?

• To: mathgroup at smc.vnet.net
• Subject: [mg129122] Re: How can a sub picture be resized with a Row?
• From: Bob Hanlon <hanlonr357 at gmail.com>
• Date: Mon, 17 Dec 2012 02:54:09 -0500 (EST)
• Delivered-to: l-mathgroup@mail-archive0.wolfram.com
• Delivered-to: l-mathgroup@wolfram.com
• Delivered-to: mathgroup-newout@smc.vnet.net
• Delivered-to: mathgroup-newsend@smc.vnet.net
• References: <20121216060609.9AA9368DA@smc.vnet.net>

It would also make more sense to use Column rather than Row and to
post an executable form of the TransferFunctionModel

Manipulate[
 Column[{
   NicholsPlot[
    TransferFunctionModel[(k/(s (s^2 + s + 1))), s],
    Mesh -> {{0.45, 0.72, 0.9, 1.0, 1.2}},
    MeshStyle -> Directive[PointSize[Large], Red],
    PlotRange -> {{-210, -60}, {-24, 18}},
    NicholsGridLines -> Automatic,
    Frame -> True,
    StabilityMargins -> True,
    StabilityMarginsStyle -> {Blue, Blue},
    ImageSize -> {600, 400}],
   BodePlot[
    TransferFunctionModel[(k/(s (s^2 + s + 1))), s],
    StabilityMargins -> True,
    StabilityMarginsStyle -> Red,
    GridLines -> Automatic,
    PlotLabel -> {"Magnitude", "Phase"},
    AxesLabel -> {{"j\[Omega]", "dB"}, {"j\[Omega]", "dB"}},
    ImageSize -> {400, 400}
    (* or use ImageSize -> {{400, 245}, {400, 245}} *)]}],
 {{k, 0.64}, 0, 10, Appearance -> "Labeled"}]


Bob Hanlon


On Sun, Dec 16, 2012 at 5:06 AM, Eduardo M. A. M. Mendes
<emammendes at gmail.com> wrote:
> Hello
>
> I found my mistake.  ImageSize->{400,200}.
>
> Many thanks
>
> Ed
> On Dec 16, 2012, at 4:06 AM, Eduardo MAM Mendes <emammendes at me.com> =
> wrote:
>
>> Hello
>>
>> In the following example the phase plot is smaller when compared to =
> the magnitude plot.   I have tried =
> {ImageSize->{400,200},ImageSize->{400,200}} as argument but it did not =
> work.   How can the two pictures showed at the same size?
>>
>> Manipulate[Row[{NicholsPlot[Subsuperscript[(k/(s (s^2+s+1))
>>
>> ), , =
> \[ScriptCapitalT]],Mesh->{{0.45,0.72,0.9,1.0,1.2}},MeshStyle->Directive[Po=
> intSize[Large],Red],PlotRange->{{-210,-60},{-24,18}},NicholsGridLines->Aut=
> omatic,Frame->True,StabilityMargins->True,StabilityMarginsStyle->{Blue,Blu=
> e},ImageSize->{600,400}],BodePlot[Subsuperscript[(k/(s (s^2+s+1))
>>
>> ), , \[ScriptCapitalT]],StabilityMargins->True,StabilityMarginsStyle =
> ->Red,GridLines->Automatic,PlotLabel->{"Magnitude","Phase" =
> },AxesLabel->{{"j\[Omega]","dB"},{"j\[Omega]","dB"}},ImageSize->{400,200}]=
> }],{{k,0.64},0,10,Appearance->"Labeled"}]
>>
>> Many thanks
>>
>> Ed

• References:
  • How can a sub picture be resized with a Row?
    • From: Eduardo MAM Mendes <emammendes@me.com>