Drexel dragonThe Math ForumDonate to the Math Forum



Search All of the Math Forum:

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


Math Forum » Discussions » Software » comp.soft-sys.math.mathematica

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

Advanced Search

Back to Topic List Back to Topic List Jump to Tree View Jump to Tree View   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
  Click to see the message monospaced in plain text Plain Text   Click to reply to this topic Reply

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





Point your RSS reader here for a feed of the latest messages in this topic.

[Privacy Policy] [Terms of Use]

© Drexel University 1994-2014. All Rights Reserved.
The Math Forum is a research and educational enterprise of the Drexel University School of Education.