Merging InterpolatingFunctions
- To: mathgroup at smc.vnet.net
- Subject: [mg9660] Merging InterpolatingFunctions
- From: Christian Zemlin <christian at satchmo.physik.tu-berlin.de>
- Date: Fri, 21 Nov 1997 01:30:58 -0500
- Organization: Technical University Berlin, Germany
- Sender: owner-wri-mathgroup at wolfram.com
Hi,
I have a set of InterpolatingFunctions, such that the endpoint of each
is the starting point of the next. Is there any way to merge them into
one InterpolationFunction? I tried myself and produced the following
program:
Merge[f1_,f2_] := Module[{Start,Stop}, Start=Extract[f1,{1,1,1}];
Stop = Extract[f2,{1,1,2}];
Part1 = Extract[f1,2];
Part21=Extract[f1,{3,1}];
Part22=Delete[Extract[f2,{3,1}],1]; Part31= Extract[f1,4];
Part32=Delete[Extract[f2,4],1];
InterpolatingFunction[{{Start,Stop}},Part1,{Join[Part21,Part22]},
Join[Part31, Part32]]
];
I guessed the meaning of the entries in an InterpolatingFunction from
looking at examples, and the program does work in many cases. But
sometimes it produces an expression that looks to me like an
InterpolationFunction, but is not treated as one by Mathematica.
Unfortunately, I did not find a full documentation of
InterpolatingFunction Objects.
Can anybody help me with this?
Thanks,
Christian
Christian Zemlin
Sekretariat PN 7-1, Raum 706
Institut f=FCr Theoretische Physik
Hardenbergstr. 36
10623 Berlin
Telefon (030) 314 23 000
email: chr at sirius.physik.tu-berlin.de