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.