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

欢迎来到 Mathematica 问答社区

提问时请贴上文本代码

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

被禁止的话题:广告破解

请阅读:《提问的智慧》

备用域名:mma.ooo

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

社区建议QQ群:365716997

分类

0 投票
1.3k 浏览

我从EXCEL中导入了离散数据,利用这些数据绘制了插值函数,现在想求出插值函数的曲率曲线表达式以及曲率最大值及其位置

data={{0., 0.}, {0.04, 58.6775}, {0.08, 117.328}, {0.14, 205.435}, {0.23, 
  337.688}, {0.365, 528.584}, {0.5675, 605.676}, {0.87125, 
  689.843}, {1.32687, 807.57}, {2.01031, 956.839}, {3.03547, 
  1059.23}, {4.5732, 1121.24}, {6.8798, 1161.24}, {10.3397, 
  1194.51}, {14.3397, 1224.71}, {18.3397, 1253.23}, {22.3397, 
  1281.55}, {26.3397, 1309.88}, {30.3397, 1338.22}, {34.3397, 
  1366.58}, {38.3397, 1396.17}, {40., 1409.02}}
spp = Interpolation[data, InterpolationOrder -> 2]
Plot[spp[x], {x, 0, 40}, PlotRange -> All]

 

貌似位置不对

分类:绘图 | 用户: mma-2-2-2 (1.3k 分)
修改于 用户:mma-2-2-2

2 个回答

+1 投票
 
已采纳
Maximize[{FrenetSerretSystem[{x, spp[x]}, x][[1, 1]], 
  Min[First /@ data] < x < Max[First /@ data]}, x]

{0.000320428,{x->34.3397}}

用户: Lozmlve*永 (1.1k 分)
采纳于 用户:mma-2-2-2
用Minimize找到弯曲程度最大的点为x=3.035469965,效果很好,谢谢永
对了,如何把x位置对应的曲率函数曲线绘制出来
貌似返回的结果不太正确,很明显应该是一点多处的曲率最大,问题描述已加到提问里面了
+1 投票
你的插值函数不光滑没问题吗?
用户: keanhy (361 分)
这个我没有相关...那该怎么处理才好
你可以尝试用Spline样条插值或者其他的
...