MathGroup Archive 2013

[Date Index] [Thread Index] [Author Index]

Search the Archive

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



  • Prev by Date: Re: defining averages over unknown PDF
  • Next by Date: Re: defining averages over unknown PDF
  • Previous by thread: Copy and Paste problem between OSs
  • Next by thread: Manipulate semi-share