MathGroup Archive 2000

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

Search the Archive

Re: interpolating function


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


  • Prev by Date: Getting the 2D equivalent of a 3D point
  • Next by Date: Re: interpolating function
  • Previous by thread: interpolating function
  • Next by thread: Re: interpolating function