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
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