[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
Prev by Date:
**Re: Mathematica 9 does not read mathematica 8 ".mx" files**
Next by Date:
**Re: Do Plot**
Previous by thread:
**Re: How can a sub picture be resized with a Row?**
Next by thread:
**Re: Clustering algorithm Mathematica 7**
| |