ramprasad
Posts:
3
From:
India
Registered:
11/5/13


Manipulate in MATHEMATICA
Posted:
Nov 6, 2013 12:26 AM


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

