Mathematica 9 is now available
Student Support Forum
-----
Student Support Forum: 'Mathematica graphics' topicStudent Support Forum > General > "Mathematica graphics"

< Previous CommentHelp | Reply To Comment | Reply To Topic
Author Comment/Response
Martin Wijaya
10/21/12 1:19pm

In Response To 'Re: Re: Re: Mathematica graphics'
---------
Hello

I also have a problem with the chart presentation. It is related to positioning the chart.

I'm using Manipulate function for several chart. The problem is that, all of the chart appears lining in a row.

I want it to be 2 by 2 at each row and column. How can I positioned my chart?
the code that I used (I attached my mathematica notebook):

w[\[Psi]_, af_, nf_, mf_, w0_] = (w0)/(Log[E + (\[Psi]/af)^nf])^mf;
e[wn_, ash_, bsh_, csh_] = ash*(((wn/100)^csh)/(bsh^csh) + 1)^(1/csh);
n[wn_, ash_, bsh_, csh_] =
e[wn, ash, bsh, csh]/(1 + e[wn, ash, bsh, csh]);
S[\[Psi]_, af_, nf_, mf_, w0_, gs_, ash_, bsh_, csh_] =
w[\[Psi], af, nf, mf, w0]*
gs/e[w[\[Psi], af, nf, mf, w0], ash, bsh, csh];
dw[\[Psi]_, af_, nf_, mf_, w0_] = D[w[\[Psi], af, nf, mf, w0], \[Psi]];
ultimateplot =
Manipulate[
Grid[{{LogLinearPlot[
w[\[Psi], af, nf, mf, w0], {\[Psi], 0.01, 1000000},
AxesLabel -> {"\[Psi]", "w"}, ImageSize -> 300],
Plot[e[wn, ash, bsh, csh], {wn, 0, 100}, AxesLabel -> {"w", "e"},
ImageSize -> 300],
Plot[n[wn, ash, bsh, csh], {wn, 0, 100}, AxesLabel -> {"w", "n"},
ImageSize -> 300],
LogLinearPlot[
S[\[Psi], af, nf, mf, w0, gs, ash, bsh, csh], {\[Psi], 0.01,
1000000}, AxesLabel -> {"\[Psi]", "S"},
ImageSize -> 300]}}], {af, 0.1, 1000000}, {nf, 0.1, 100}, {mf,
0.1, 100}, {w0, 1, 1000}, {ash, 0.1, 1}, {bsh, 0.1, 1}, {csh, 0.1,
10}, {gs, 2, 3}, ControlPlacement -> Left]

Thx in advance
Regards
Martin


Attachment: Practice.nb, URL: ,

Subject (listing for 'Mathematica graphics')
Author Date Posted
Mathematica graphics How to draw ... 10/17/12 06:58am
Re: Mathematica graphics Bill Simpson 10/17/12 11:24am
Re: Re: Mathematica graphics How to draw ... 10/18/12 01:38am
Re: Re: Re: Mathematica graphics Bill Simpson 10/18/12 1:36pm
Re: Re: Re: Re: Mathematica graphics Martin Wijaya 10/21/12 1:19pm
< Previous CommentHelp | Reply To Comment | Reply To Topic