公告:1)网站程序升级:Q2A升级到1.8.6,Wordpress升级到5.7.2
2)修复了头像加载慢与提交问题反应慢等问题
2021-06-16

欢迎来到 Mathematica 问答社区

提问时请贴上文本代码

语法高亮:在编辑器中点击

被禁止的话题:广告破解

请阅读:《提问的智慧》

备用域名:mma.ooo

支持LaTex数学公式
行内公式标识符:\$ 或“$\backslash ($”+“$\backslash )$”,
行间公式标识符:\$\$ 或 “$\backslash [$”+“$\backslash ]$”

社区建议QQ群:365716997

分类

0 投票
211 浏览

下面是我的代码,但插值效果和计算效率都不好。

f[x_, y_] := Sin[x y]
(* 实际上,f是一个复杂得多的,含有数值积分的函数 *)

datTemp = 
  ContourPlot[f[x, y], {x, 0, 3}, {y, 0, 3}][[1, 1]] // 
   DeleteDuplicatesBy[First];

dat = {#[[1]], #[[2]], f[#[[1]], #[[2]]]} & /@ datTemp;

finterp = Interpolation[dat]

Plot3D[{f[x, y], finterp[x, y]}, {x, 0, 3}, {y, 0, 3}]
@namespace url(http://www.w3.org/1999/xhtml); /*背景图片*/
分类:函数 | 用户: pfg (486 分)

1个回答

0 投票
你对二维函数插值把x相同的数据点只保留一个,相当于y方向的变化都忽略了,那肯定插不准啊。。。

把DeleteDuplicatesBy[First]去掉就可以了,或者你要担心有重复点的话就改用DeleteDuplicates
用户: 无影东瓜 (1.2k 分)
...