作业帮请高手编一个VB迭代程序,方程式为：lnP = A - B/T + C*lnT + D*P/T^2
来源：学生作业帮 编辑：作业帮 分类：数学作业 时间：2024/10/04 01:55:28
请高手编一个VB迭代程序,方程式为：lnP = A - B/T + C*lnT + D*P/T^2
其中A、B、C、D是已知常数,自变量T已知,求P
其中A、B、C、D是已知常数,自变量T已知,求P
Private Sub Command1_Click()
Dim a As Double,b As Double,c As Double,d As Double,t As Double
Dim P As Double,dbl1 As Double,dblDalta As Double
a = Val(Text1)
b = Val(Text2)
c = Val(Text3)
d = Val(Text4)
t = Val(Text5)
P = 2:dbl1 = 1.5
dblDalta = 0.001 '误差
Do While Abs(P - dbl1) > dblDalta
P = (P + dbl1) / 2
dbl1 = t * t * (Log(P) - a + b / t - c * Log(t)) / d
Debug.Print dbl1
Loop
End Sub
Private Sub Form_Load()
Text1 = 5
Text2 = 208
Text3 = 2
Text4 = 8
Text5 = 9'假设的5个数
End Su
Dim a As Double,b As Double,c As Double,d As Double,t As Double
Dim P As Double,dbl1 As Double,dblDalta As Double
a = Val(Text1)
b = Val(Text2)
c = Val(Text3)
d = Val(Text4)
t = Val(Text5)
P = 2:dbl1 = 1.5
dblDalta = 0.001 '误差
Do While Abs(P - dbl1) > dblDalta
P = (P + dbl1) / 2
dbl1 = t * t * (Log(P) - a + b / t - c * Log(t)) / d
Debug.Print dbl1
Loop
End Sub
Private Sub Form_Load()
Text1 = 5
Text2 = 208
Text3 = 2
Text4 = 8
Text5 = 9'假设的5个数
End Su
请高手编一个VB迭代程序,方程式为：lnP = A - B/T + C*lnT + D*P/T^2
求助高手用vb编一个程序计算：T(i,n + 1) = [T(i+1,n)+T(i-1,n)] / M + (1 - M
求做个C语言程序.#includemain(){int a,b,c,d,t;printf("请输入一个四位数:\n");
高手帮我做下,101、有以下程序#include void main(){ int a=1,b=2,c=3,t;t=c;
MATLAB程序问题解一个方程组如下syms x y z t a b c d m s; f = x+z-a;g = (2
VB程序 下列为整形变量的是?A.B.X# C.X% D.X$
用VB求 设a=5,b=2.5,c=7.8,编程序计算：y=a*b*π/a+b*c
T=[(b/a)+(d/c)]
a+b+c+d=40且用a,b,c,d四个数可表示1到40的所有数（用 +,-）用c语言编一个程序,求出a,b,c,d的
设参数方程x=t方分之（1+lnt）,y=t分之（3+2lnt）确定y=y（x）,求dx分之dy,dx方分之d方y
T/T M/T D/D D/P D/A L/C
哪位高手可以帮做个公式程序 直接输A,B,C算出P,P = A*B*C/（A*B+B*C+A*C）