Re: interpolating function
- To: mathgroup at smc.vnet.net
- Subject: [mg22247] Re: [mg22216] interpolating function
- From: Jean-Marie Thomas <jmt at agat.net>
- Date: Sat, 19 Feb 2000 01:33:48 -0500 (EST)
- Organization: TeA
- References: <200002180734.CAA08279@smc.vnet.net>
- Sender: owner-wri-mathgroup at wolfram.com
Try this :
Clear at f1; f1[x_] = Interpolation[Sort at Table[Random[], {10}]][x]
Clear at f2;
f2[x_] = Interpolation[
Transpose[{Range[10, 20], Reverse at Sort@Table[Random[], {11}]}]][x]
Clear[f]; f[x_] = If[x <= 10, f1[x], f2[x]]
Plot[f[x], {x, 1, 20}]
On Fri, 18 Feb 2000, Bernd Brandt wrote:
> Dear Mathgroup members,
>
> I have been plotting, using interpolating functions:
>
> Show[Plot[Con[x] /. sol1, {x, 0, 10}], Plot[Con[x] /. sol2, {x, 10, 12}]]
>
> I imagine there is a way to join up these two interpolating functions
> to cover to complete domain {x, 0, 10} in one Interpolating function
> object. However, I cannot find how to do this.
>
> Any suggestions would be appreciated.
>
> Thank you.
>
> Bernd
- References:
- interpolating function
- From: bernd@bio.vu.nl (Bernd Brandt)
- interpolating function