Manipulate in MATHEMATICA
- To: mathgroup at smc.vnet.net
- Subject: [mg131949] Manipulate in MATHEMATICA
- From: ramprasadmnambisan at gmail.com
- Date: Wed, 6 Nov 2013 00:33:23 -0500 (EST)
- Delivered-to: l-mathgroup@mail-archive0.wolfram.com
- Delivered-to: l-mathgroup@wolfram.com
- Delivered-to: mathgroup-outx@smc.vnet.net
- Delivered-to: mathgroup-newsendx@smc.vnet.net
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