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: [mg22258] Re: interpolating function
  • From: "Atul Sharma" <atulksharma at yahoo.com>
  • Date: Sat, 19 Feb 2000 01:34:05 -0500 (EST)
  • References: <88jum7$9oe@smc.vnet.net>
  • Sender: owner-wri-mathgroup at wolfram.com

There are several equivalent ways to do this. Below, I imposed conditions on
the value of x, effectively overloading the function with different meanings
depending on these conditions (using /; ). You could do the same with If,
Which or related  statements if you prefer.

A. Sharma

In[1]:=
data1 = Table[{x, 1/x}, {x, 1, 10}];
data2 = Table[{x, 1/x^2}, {x, 10, 20}];

In[2]:=
f1 = Interpolation[data1]
f2 = Interpolation[data2]

In[3]:=
f[x_ /; x >= 1 && x <= 10] = f1[x]
f[x_ /; x > 10 && x <= 20] = f2[x]



In[4]:= Plot[f[x], {x, 1, 20}]


Bernd Brandt wrote in message <88jum7$9oe at smc.vnet.net>...
>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: Retaining bold characters in an expression
  • Next by Date: Help: Tensor Operators
  • Previous by thread: Re: interpolating function
  • Next by thread: Re: interpolating function