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

Next Comment >Help | Reply To Topic
Author Comment/Response
n00dle0
04/27/12 05:03am

Try out the code below. I am not able to understand why doesn't the power loss field update when the slider on field amplitude, edge length or no. of edges are changed.

Thanks.

\[Delta] = Sqrt[2/(\[Mu]*\[Sigma]*\[Omega])];
\[Omega] = 2*\[Pi]*\[Nu];
\[Mu] = 4*\[Pi]*10^-7;
f = 2*n*Tan[\[Pi]/n];
S = 1/4*n*a^2*Cot[\[Pi]/n];
P = 1/2*\[Sigma]*h*S^2/f*\[Pi]^2*\[Nu]^2*B^2;
SimpleRegularPolygon[B_, \[Nu]_, \[Sigma]_, a_, n_, h_] = P;

Manipulate[
Plot[SimpleRegularPolygon[B, \[Nu], \[Sigma], a, n, h], {h, 0.0001,
1}],
{{F, "Simple", ""}, {"Simple", "Improved"}}, Delimiter,
{{Shapes, "Circular Plate", "Shape"}, {"Circular Plate",
"Regular Polygon", "Rectangular Plate"}, PopupMenu},
{{d, N[\[Delta]], "Skin Depth (m)"}, Enabled -> False},
{{Z, N[P], "Power Loss (W)"}, Enabled -> False},
{{B, 0.05, "Field Amplitude (T)"}, 0.01, 1, 0.01,
Appearance -> "Labeled", ImageSize -> Tiny},
{{\[Nu], 60, "Field Frequency (Hz)"}, 1, 10000, 1,
Appearance -> "Labeled", ImageSize -> Tiny},
{{\[Sigma], 10^7, "Conductivity (S/m)"}, 10^3, 10^8, 100,
Appearance -> "Labeled",
ImageSize -> Tiny}, {{a, 0.25, "Edge Length (m)"}, 0.01, 1, 0.01,
Appearance -> "Labeled",
ImageSize -> Tiny}, {{n, 6, "No. of Edges"}, 3, 12, 1,
Appearance -> "Labeled", ImageSize -> Tiny},
{{h, 0.0001, "Thickness (m)"}, 0.000001, 1, 10^-6,
Appearance -> "Labeled", ImageSize -> Tiny}]

Attachment: manipulate_example.nb, URL: ,

Subject (listing for 'manipulate help')
Author Date Posted
manipulate help n00dle0 04/27/12 05:03am
Re: manipulate help n00dle0 04/27/12 2:07pm
Next Comment >Help | Reply To Topic