乔山办公网我们一直在努力
您的位置:乔山办公网 > excel表格制作 > 在<em>EXCEL</em>中使用单变量求解以下非线性方程的根请大神给出详...-excel

在<em>EXCEL</em>中使用单变量求解以下非线性方程的根请大神给出详...-excel

作者:乔山办公网日期:

返回目录: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)

然后按图找到单变量求解,设置参数求解即可

相关阅读

关键词不能为空
极力推荐

ppt怎么做_excel表格制作_office365_word文档_365办公网