如何实现非常复杂的计算公式

因为昨天主要是如何将该公式转换为代码，所以我简化了实际公式，因此代码中的a与我提出的问题中的a不相同. 现在的主要麻烦是，我不会使用这种迭代方法，而是根据信息中给出的步骤编写了代码:

1. 将pt的值分配给p15

2. 将p15的值分配给P155

3，p15 = pt / Exp（-a * 21 *（1 + a * 16.8））''''''''21和16.8是我的验证数据

4，p155 = pt / Exp（-a * 21 *（1 + a * 16.8））

5. 对于p15和p155之间的差，如果差的绝对值小于给定的误差极限（例如0.0005），则p155是计算结果. 如果误差的绝对值超过0.005，则转到第二步并重新计算，直到差的绝对值小于0.005.

昏暗k0，k1vb选择查找公式，ptvb选择查找公式，p15，p155，p20，一个As Double

k0 = 186.9696

k1 = 0.4862

pt = 845 *（1-2.3 * 10 ^（-5）*（36-20）-2 * 10 ^（-8）*（36-20）*（36-20））

p15 = pt

做

p155 = p15

a = k0 /（p15 * p15）+ k1 / p15

p15 = pt / Exp（-a * 21 *（1 + a * 16.8））

p155 = pt / Exp（-a * 21 *（1 + a * 16.8））

直到Abs的循环（p15-p155）<0.005

p20 = p155 / Exp（-a * 10 *（1 + a * 8））

打印p155

本文来自电脑杂谈，转载请注明本文网址：
http://www.pc-fly.com/a/ruanjian/article-256329-1.html