作者:乔山办公网日期:
返回目录:excel表格制作
如果是确百定形式的,就需要两对值带进去解二元方程组。
如果是随机形式的话就度要用回归分析,懂吗?
不懂的话,把你的数据连同这个问题发给我,我教你。
发到这知个邮箱:
问题的解答过程已经道发你邮箱里了,见附件,估计的结果是:
a=9.26951654244815
b=0.77914075456947
我没有用excel而用的MATLAB,因为前者回不是专业的数学软件。另外求相关系数的方法很简单,我就没有帮你做了,虽然那只是简单的一句程序。答
1、在B1单元格输入以下公式
=A1^4-3*A1^2+8*A1
2、在“数据”抄选项下的“模拟分析”中,选择“单变量求解”袭,选择目标单元格为B1,目标值为1236,可变单元格为A1,确zd定;
3、得到A1为6时,B1单元格目标值符合1236 。
在网上找的代码,参考一下。
Function GetV(dbTarget As Double) As Double
Dim dbL As Double
Dim dbH As Double
dbL = 0 'x的下界
dbH = 10000000 'x的上界
dbP = 0.1 '与目标值的误差
dbSkip = 0.000001 '没有结果的判定(当下界与上届的差小于等于此值时,认为在给定范围内无解——此程序用-1表示无解)
dbM = (dbH - dbL) / 2 '中点值
dbV = dbM * Log(dbM / 30)
Do Until Abs(dbV - dbTarget) <= dbP
If dbH - dbL <= dbSkip Then '下界与上界是否接近临界值
blSkip = True '跳出,636f7079e799bee5baa6330无解
Exit Do
End If
If dbV > dbTarget Then
dbH = dbM
Else
dbL = dbM
End If
dbM = dbL + (dbH - dbL) / 2
dbV = dbM * Log(dbM / 30)
' Debug.Print dbL, dbH, dbM, dbV, dbTarget
Loop
GetV = IIf(blSkip, -1, dbM) '根据blskip判断是否是无解跳出
End Function
Sub test()
Dim i As Long
For i = 2 To [a1].End(xlDown).Row
Cells(i, 2) = GetV(Cells(i, 1))
Next
End Sub
使用单变量求解即可
把GA\GB的值输入A1和B1单元copy格,模拟任意K值在C1单元格
在A2单元格输zd入公式:
=(A1*B1*(PI()/C1)^2-36)/(6*(A1+B1))-PI()/C1/TAN(PI()/C1)
然后按图找到单变量求解,设置参数求解即可