Re: Intepolation of an array with missing points
- To: mathgroup at smc.vnet.net
- Subject: [mg62352] Re: Intepolation of an array with missing points
- From: "Valeri Astanoff" <astanoff at yahoo.fr>
- Date: Tue, 22 Nov 2005 04:41:55 -0500 (EST)
- References: <dlp393$1jt$1@smc.vnet.net>
- Sender: owner-wri-mathgroup at wolfram.com
Hi James,
Maybe you could perform a first interpolation
rowwise then a second one columnwise :
In[1]:=data=Import["output.csv","Table"];
In[2]:=data2=ToExpression@StringSplit[#[[1]],","]& /@data;
In[3]:=data3[i_]:=Table[{j,data2[[i,j]]}, {j,1,31}] //
Select[#,NumericQ[#[[2]]]&]&;
In[4]:=f[i_]:=f[i]=Interpolation[data3[i]];
In[5]:=f[i_,j_]=Interpolation[Table[{k,f[k][j]},{k,1,31}]][i];
In[6]:=ContourPlot[f[i,j],{i,1,31},{j,1,31}]
Out[6]= - ContourGraphics -
hth
v.a.