The Math Forum

Search All of the Math Forum:

Views expressed in these public forums are not endorsed by NCTM or The Math Forum.

Math Forum » Discussions » Inactive » comp.soft-sys.math.mathematica

Notice: We are no longer accepting new posts, but the forums will continue to be readable.

Topic: Manipulate in MATHEMATICA
Replies: 0  

Advanced Search

Back to Topic List Back to Topic List  

Posts: 3
From: India
Registered: 11/5/13
Manipulate in MATHEMATICA
Posted: Nov 6, 2013 12:26 AM
  Click to see the message monospaced in plain text Plain Text   Click to reply to this topic 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!

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,
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}]


Point your RSS reader here for a feed of the latest messages in this topic.

[Privacy Policy] [Terms of Use]

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