Mathematica 9 is now available
Services & Resources / Wolfram Forums
-----
 /
MathGroup Archive
2005
*January
*February
*March
*April
*May
*June
*July
*August
*September
*October
*November
*December
*Archive Index
*Ask about this page
*Print this page
*Give us feedback
*Sign up for the Wolfram Insider

MathGroup Archive 2005

[Date Index] [Thread Index] [Author Index]

Search the Archive

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.


  • Prev by Date: Modeling Saturation - Sensor or Acutuator
  • Next by Date: Re: How to View Mathematica and Hardcopy Books
  • Previous by thread: Re: Intepolation of an array with missing points
  • Next by thread: Re: Intepolation of an array with missing points