利用excel怎么求解公式1*x^(-1/2)=-2log(2.51/a*x^(-1/2)+b/3.7)的最优解?

问题描述:

利用excel怎么求解公式1*x^(-1/2)=-2log(2.51/a*x^(-1/2)+b/3.7)的最优解?
利用excel怎么求解公式1/x^(-1/2)=-2log(a/3.71/b+2.51/c/x^(-1/2))的最优解?已知:a=0.00016,b=1.11,c=506000.其中x的非精确解可有公式x=0.11*(a+68/c)^0.25计算得出,要求x的精度为0.00001.通过直接写公式也好,通过VBA代码也好,怎么能实现?
再三检查,公式还是写错了,正确的是:x^(-1/2)=-2log(a/3.71/b+2.51/c/x^(1/2)),感谢ougouw兄弟的提醒!
1个回答 分类:综合 2014-10-17

问题解答:

我来补答
A1=1/A5^(-1/2)+2*LOG(A2/3.71/A3+2.51/A4/A5^(-1/2))
A2=0.00016
A3=1.11
A4=506000
A5=100
选项-公式-最大误差-"1E-30”
数据-单变量求解-目标单元格A1,目标值0,可变单元格A5,-确定,
保留5位,求得解为:67.22369
再问: 能不能利用VBA变成解决呢?excel2013版本没有这个功能,实现不了哇
再答: 这个功能在:数据-假设分析-单变量求解 还有,你的公式写错没???
再问: 不好意思,公式是写错了,正确的我已经在补充说明里面了,谢谢你的知道啊!
再答: x的非精确解可有公式x=0.11*(a+68/c)^0.25计算得出 也不对吧。 单变量求解计算出来 X=0.01488 A1=A5^(-1/2)+2*LOG(A2/3.71/A3+2.51/A4/A5^(1/2)) A2=0.00016 A3=1.11 A4=506000 A5=0 如果用vba的话内容为: sub a() 1 i = i + 0.00001 [a5] = i If [a1] < 0.0000001 then m = i: goto 2 goto 1 2 i = i + 0.00001 [a5] = i If [a1] < 0.0000001 then n = i: goto 3 goto 2 3 If abs(m) < abs(n) then [a5] = m end sub
 
 
展开全文阅读
剩余:2000