利用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兄弟的提醒!
人气：181 ℃ 时间：2020-03-27 08:28:04
解答
A1=1/A5^(-1/2)+2*LOG(A2/3.71/A3+2.51/A4/A5^(-1/2))A2=0.00016A3=1.11A4=506000A5=100选项-公式-最大误差-"1E-30”数据-单变量求解-目标单元格A1,目标值0,可变单元格A5,-确定,保留5位,求得解为：67.22369...能不能利用VBA变成解决呢？excel2013版本没有这个功能，实现不了哇这个功能在：数据-假设分析-单变量求解还有，你的公式写错没？？？不好意思，公式是写错了，正确的我已经在补充说明里面了，谢谢你的知道啊！x的非精确解可有公式x=0.11*(a+68/c)^0.25计算得出 也不对吧。单变量求解计算出来 X=0.01488A1=A5^(-1/2)+2*LOG(A2/3.71/A3+2.51/A4/A5^(1/2))A2=0.00016A3=1.11A4=506000A5=0 如果用vba的话内容为： sub a()1i = i + 0.00001[a5] = iIf [a1] < 0.0000001 then m = i: goto 2goto 12i = i + 0.00001[a5] = iIf [a1] < 0.0000001 then n = i: goto 3goto 23If abs(m) < abs(n) then [a5] = mend sub
推荐
猜你喜欢
