weird interpolation issues

*To*: mathgroup at smc.vnet.net*Subject*: [mg96602] weird interpolation issues*From*: "Ned Lieb" <okty.gy.ned at gmail.com>*Date*: Tue, 17 Feb 2009 06:24:19 -0500 (EST)

Hello I'm new to Mathematica and unfortunately am having some issues. I'm trying to construct a program to create an approximate symbolic function from a very large list of data points (6900 points, each with five associated variables). Mathematica is fritzing in two areas: first (this is probably trivial to fix), parallelization doesn't initialize; second, the lists of variables I'm extracting from my data table aren't being recognized as data points Mathematica can interpolate between. I've copied the plaintext of my source-code with comments explaining what each function is meant to do below. Thanks, Edward Lieb This is the Function I use to import my table. This seems to work correctly: I get a list of numbers which matches my data q[]=Import["C:\wfout2_k1_b1_s1_in.dat","FieldSeperators"->" ","LineSeperators"->"/[NewLine]" ,"RepeatedSeperators"->"True"] This is a function I use to switch rows and columns, so that I have five lists of values coresponsing to my variables instead of a list of ~60000 points each carrying five values w[q]:=Transpose[q]; This defines the last two variables as the real and complex values of the function I'm trying to create by interpolation wf[r_,c_]:=r+I*c; This is supposed to interpolate my imported values into a function DistributeDefinitions[w,wf,\[Psi],q]; \[Psi][x_,y_,z_,r_,c_]:=Interpolation[{x,y,z},Abs[wf[r,c]],{x,{w[[1]]}},{y,{ w[[2]]}},{z,{w[[3]]}},{r,{w[[4]]}},{c,{w[[5]]}}]; This is supposed to make a graph of the function I made above with the function's values being shown by contour density ContourPlot3D[\[Psi],{x,0,20},{y,0,20},{z,0,20}] No virus found in this outgoing message. Checked by AVG. Version: 7.5.552 / Virus Database: 270.10.25/1955 - Release Date: 2/16/2009 6:55 AM