Mathematica 9 is now available
Services & Resources / Wolfram Forums
-----
 /
MathGroup Archive
2000
*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 2000

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

Search the Archive

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


  • 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