RE: Interpolation
- To: mathgroup at smc.vnet.net
- Subject: [mg75065] RE: [mg75040] Interpolation
- From: "David Annetts" <davidannetts at aapt.net.au>
- Date: Mon, 16 Apr 2007 04:10:35 -0400 (EDT)
- References: <200704150907.FAA00619@smc.vnet.net>
Hi Robert,
> Here is the situation: I have four notebooks.
> In each I have datasets and I use Interpolation[dataset] to
> get an interpolation function for each dataset. Now I need to
> use those four interpolations in a fifth notebook that is
> not, probably, going to run at the same time as the other
> (they will be closed). I do not want to read all the data
> again and compute the interpolations to use them. So, is it
> possible to save or copy the different interpolations to a
> new notebook and use them?
>
> I could probably use FindFit and then copy
> the polynomial function in a different notebook to use it.
> But I need a good fit, a very good fit. Actually I need the
> precision given by Interpolation.
You might try DumpSave[].
data = {#, Sin[3. #/Pi]} & /@ Range[-Pi, Pi, Pi/12.];
int = Interpolation[data];
Plot[int[t], {t, -Pi, Pi},
Epilog -> {Point[#] & /@ data}
];
DumpSave["test.mx", int];
Remove[int];
Clear[int];
Get["test.mx"]
Plot[int[t], {t, -Pi, Pi},
Epilog -> {Point[#] & /@ data}
];
Regards,
Dave.
- References:
- Interpolation
- From: Robert Pigeon <robert.pigeon@videotron.ca>
- Interpolation