曲面拟合的难处在哪里
1、给出一幅单通道图片。

3、获取图片数据:data=ImageData[img]

5、画出数据的散点图:sandiantu = ListPlot3D[shuju, PlotRange -> All]

7、改变拟合方案,增加复杂度:nihe = Fit[ shuju, {x, y, x y巳呀屋饔, x^2, y^2, x^3, y^2, x y^2, x^2 y, x^4, y^4, x y^3荑樊综鲶, x^3 y, x^2 y^2}, {x, y}]看样子,复杂度还是不够。

9、再增加复杂度:nihe = Fit[shuju, Flatten[{a0 = Flatten[{1, Table[x^m y^n, {m, 1, 9, 1}, {n, 1, 9, 1}]}], Sin /@ a0}], {x, y}]

11、用这个拟合出来的曲面,来还原原来的img:Image[Table[nihe, {x, 1, 30, 1}, {y, 1, 30, 1}]]把图片放大到500像素,结果得到下图,与原图相差太远。
