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>