Services & Resources / Wolfram Forums / MathGroup Archive
-----

MathGroup Archive 2007

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

Search the Archive

Joining InterpolatingFunctions into Piecewise - doman?

  • To: mathgroup at smc.vnet.net
  • Subject: [mg83505] Joining InterpolatingFunctions into Piecewise - doman?
  • From: janos <janostothmeister at gmail.com>
  • Date: Wed, 21 Nov 2007 05:58:12 -0500 (EST)

I would like to solve a diff eq on a very large interval, therefore I
solve it on successive intervals.
When putting the results together I get a _relatively_ good figure and
an error message.
Note that there is a hole on the graph of the function. Any other
solution to join InterpolatingFunction objects would be appreciated.

Thank you, Janos

f[ini_, tlast_] :=
 Module[{from = tlast, to = tlast + 1,
   X}, {X = (x /.
       NDSolve[{x'[t] == -0.5 x[t], ini}, x, {t, from, to }])[[1]],
   to, X[to]}]
nl = NestList[f[x[#[[2]]] == #[[3]], #[[2]]] &, {zzz, 0, 2.0}, 3];
full[t_] :=
 Piecewise[
  Transpose[{Table[nl[[k, 1]][t], {k, 2, 4}],
    Table[k <= t < k + 1, {k, 0, 2}]}]]
Plot[full[t], {t, 0, 3}]


  • Prev by Date: Re: Fast way of checking for perfect squares?
  • Next by Date: Re: StringInput Question
  • Previous by thread: Re: Graphics3D exported to pdf
  • Next by thread: Re: Joining InterpolatingFunctions into Piecewise - doman?