Mathematica 9 is now available
Services & Resources / Wolfram Forums
-----
 /
MathGroup Archive
2001
*January
*February
*March
*April
*May
*June
*July
*August
*September
*October
*November
*December
*Archive Index
*Ask about this page
*Print this page
*Give us feedback
*Sign up for the Wolfram Insider

MathGroup Archive 2001

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

Search the Archive

Re: Combining several InterploatingFunction to one

  • To: mathgroup at smc.vnet.net
  • Subject: [mg30254] Re: Combining several InterploatingFunction to one
  • From: Max Ulbrich <ulbrich at biochem.mpg.de>
  • Date: Sat, 4 Aug 2001 01:14:22 -0400 (EDT)
  • References: <9kb06q$c4d$1@smc.vnet.net> <9kdb83$f1k$1@smc.vnet.net>
  • Sender: owner-wri-mathgroup at wolfram.com

Hi Jens,

thanks for your answer!
This works really well if the number of x- and y-values in the
InterpolatingFunction are equal. However, when I tried to apply it to my
problem, it didn't work!
You can see the problem when you try to combine Sin1 and Sin2 from

Sin1 = n /.
    NDSolve[{n''[x] == -n[x], n[0] == 0, n'[0] == 1}, n, {x, 0, 2}][[1]]
Sin2 = n /.
    NDSolve[{n''[x] == -n[x], n[2] == Sin1[2], n'[2] == Sin1'[2]},
        n, {x, 2, 4}][[1]]

I found the difference using InputForm[Sin1]. In your answer, you get an
interpolation table in your Sin interpolations with the same number of x- and
y-values. In my example, the lists have various lengths. Do you have any idea
how to proceed now?

Max



>Hi,
>
>have the functions continuous derivatives at the interval ends ???
>If yes
>
>GlueInterpolation[ips : {__InterpolatingFunction}] :=
>  Module[{dta},
>    dta =
>      Union[Transpose[
>          Join @@@ Transpose[{#[[3, 1]], Last[Last[#]]} & /@ ips]]];
>    Interpolation[dta]
>    ]
>
>
>and
>
>itab = Table[
>    FunctionInterpolation[Sin[x], {x, i*0.6, (i + 1)*0.6}], {i, 0, 2}];
>
>dd = GlueInterpolation[itab];
>
>Plot[Evaluate[dd[x]], {x, 0, 1.8}];
>
>works fine. You should be carefull look if you have a argument
>in the interpolation function.
>
>Regards
>  Jens
>
>
>Max Ulbrich wrote:
>
> Hi,
>
> does anyone know how to combine several interpolating functions to ONE
> single interploating function?
> I now have
>
> Which[0. <= t <= 0.01, InterpolatingFunction[{{0., 0.01}}, "<>"],
>         0.01 <= t <= 0.02, InterpolatingFunction[{{0.01, 0.02}}, "<>"],
>         0.02 <= t <= 0.03, InterpolatingFunction[{{0.02, 0.03}},
> "<>"]][t]
>
> but I would like to have
>
> InterpolatingFunction[{{0., 0.03}}, "<>"][t]
>
> that is piecewise defined from all of the three.
> Suggestions please to
>
> ulbrich at biochem.mpg.de
>
> Thanks!
>
> Max




  • Prev by Date: Re: Loading packages within packages
  • Next by Date: 2^3^4^5 in Mathematica?
  • Previous by thread: Re: Combining several InterploatingFunction to one
  • Next by thread: Drawing transparent objects.