jincnajie的个人资料 - RAT

jincnajie jincnajie

关注数: 1 粉丝数: 9 发帖数: 180 关注贴吧数: 9

#HarmonyOS# 华为matepad pro为什么这么贵？买不起啊！

VBA：关于MInverse逆矩阵的问题如下代码始终跑不通！！求大神解答！！ Public Function spline(x As Range, y As Range) Dim l1 As Integer l1 = x.Rows.Count Dim l2 As Integer l2 = y.Rows.Count If l1 <> l2 Then spline = "Error: Range count does not match" GoTo endnow End If Dim a() As Double Dim aInv() As Double Dim i As Integer Dim b() As Double Dim k() As Double Dim n As Integer n = l1 ReDim a(1 To n, 1 To n) ReDim aInv(1 To n, 1 To n) ReDim b(1 To n) '第1个点 a(1, 1) = 2 / (x(2) - x(1)) a(1, 2) = 1 / (x(2) - x(1)) b(1) = 3 * (y(2) - y(1)) / ((x(2).Value - x(1)) ^ 2) '第n个点 a(n, n) = 2 / (x(n) - x(n - 1)) a(n, n - 1) = 1 / (x(n) - x(n - 1)) b(n) = 3 * (y(n) - y(n - 1)) / ((x(n) - x(n - 1)) ^ 2) '第i个点 For i = 2 To n - 1 a(i, i - 1) = 1 / (x(i) - x(i - 1)) a(i, i + 1) = 1 / (x(i + 1) - x(i)) a(i, i) = 2 * a(i, i - 1) + 2 * a(i, i + 1) b(i) = 3 * (y(i) - y(i - 1)) / ((x(i) - x(i - 1)) ^ 2) + 3 * (y(i + 1) - y(i)) / ((x(i + 1) - x(i)) ^ 2) Next i aInv = Application.WorksheetFunction.MInverse(a) spline = aInv(1, 1) endnow: End Function

无法在 WordPress.com 中上传您自己的插件。下载了WORDPRESS客户端想用来写BLOG。想放点有颜色的代码却没有这个功能。查到可以用CodeColorer插件。然而发生了标题所示的问题。求大神帮助。谢！

下一变成苍茫老祖然后王林苏铭... 猜一猜...

WIN10 软件安装问题如何在WIN10 安装ANSYS 和 VISUAL STUDIO 2008 等软件？谢谢大家。

1 下一页