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: Manipulate in MATHEMATICA
Replies: 0

 Search Thread: Advanced Search

 ramprasad Posts: 3 From: India Registered: 11/5/13
Manipulate in MATHEMATICA
Posted: Nov 6, 2013 12:26 AM
 Plain Text Reply

Dear all,

I am trying to implement the following code using 'manipulate'. It appears that 'Do' loop is not being executed properly. Also I am not able to figure out the error.
Kindly help me!

Manipulate[
Module[{G, f, h, n, A, p}, Off[]; G[t_, s_] := Gr; f[0][t_] := g;
h[t_] := r; n = 3;
f[1][t_] := Integrate[G[t, s]*h[f[0][t]], {s, 0, 1}];
Do[f[i + 1][t] = Integrate[G[t, s]*h[f[i][t]], {s, 0, 1}], {i,
n}];
Do[Print[Panel[f[i][t]]], {i, n}]; p[k_] := f[k][t];
A = Array[p, {n}];
Plot[A, {t, a, b}]], {{Gr, s*(t - 1), "Green's Function"}},
{{r, Sin[t], "Function in RHS"}}, {{g, t, "First Guess Solution"}},
{{a, 0, "Left extreme of interval"}}, {{b, 5,
"Right extreme of interval"}},
TrackedSymbols -> True, AutorunSequencing -> {1}]

Regards,
ramprasad

© The Math Forum at NCTM 1994-2018. All Rights Reserved.