VB.NET如何进行线性插值计算?
比如说一组数据:X分别是0 5 10 15 20;相对应Y为0 0.1 0.4 0.7 0.8。计算X=7时,Y是多少?
![](https://profile-avatar.csdnimg.cn/ba12f97225ba4d409f115e226bc97b8b_dsj19930503.jpg!4)
VB.NET如何进行线性插值计算?
- 写回答
- 好问题 0 提建议
- 追加酬金
- 关注问题
- 邀请回答
-
1条回答 默认 最新
- 丨Haruna 2022-08-30 10:38关注
Dim divIn() As Double = {0, 5, 10, 15, 20} Dim divOut() As Double = {0, 0.1, 0.4, 0.7, 0.8} Dim x As Double = 7 Dim y As Double = 0 For i As Integer = 0 To divIn.Length - 2 If x > divIn(i) And x <= divIn(i + 1) Then y = (divOut(i + 1) - divOut(i)) / (divIn(i + 1) - divIn(i)) * (x - divIn(i)) + divOut(i) End If Next MessageBox.Show(y)
本回答被题主选为最佳回答 , 对您是否有帮助呢?解决 1无用
悬赏问题
- ¥15 metadata提取的PDF元数据,如何转换为一个Excel
- ¥15 关于arduino编程toCharArray()函数的使用
- ¥100 vc++混合CEF采用CLR方式编译报错
- ¥15 coze 的插件输入飞书多维表格 app_token 后一直显示错误,如何解决?
- ¥15 vite+vue3+plyr播放本地public文件夹下视频无法加载
- ¥15 c#逐行读取txt文本,但是每一行里面数据之间空格数量不同
- ¥50 如何openEuler 22.03上安装配置drbd
- ¥20 ING91680C BLE5.3 芯片怎么实现串口收发数据
- ¥15 无线连接树莓派,无法执行update,如何解决?(相关搜索:软件下载)
- ¥15 Windows11, backspace, enter, space键失灵