Search All of the Math Forum:

Views expressed in these public forums are not endorsed by NCTM or The Math Forum.

Notice: We are no longer accepting new posts, but the forums will continue to be readable.

Topic: How can a sub picture be resized with a Row?
Replies: 2   Last Post: Dec 17, 2012 2:53 AM

 Messages: [ Previous | Next ]
 Bob Hanlon Posts: 906 Registered: 10/29/11
Re: How can a sub picture be resized with a Row?
Posted: Dec 17, 2012 2:53 AM

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@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@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

Date Subject Author
12/16/12 emammendes@gmail.com
12/17/12 Bob Hanlon