流体工学 管内流れの圧力損失 ホームページプログラミング 


非線形方程式を逐次代入法で解く。 cepd.html

スクリプト部分の記述

<script language="VBScript"><!--
Dim d,l,v,ro,mu,u,re,f1,f2,f,p1,p2,p3,e,ed
Sub A_onClick
d=Vald.value
l=Vall.value
v=Valv.value
ro=Valro.value
mu=Valmu.value
e=Vale.value
u=v/(3.14*d^2/4)
Valu.value=u
re=ro*u*d/mu
Valre.value=re
ed=e*0.001/d
Valed.value=ed
f1=16/re
Valf1.value=f1
f2=0.0626/(Log((ed/3.7)+5.74/(re^0.9))/Log(10))^2
Valf2.value=f2
If re<3.0e3 Then
 Vallort.value="層流":f=f1
Else
 Vallort.value="乱流":f=f2
End If
Valf.value=f
p1=4*f*(ro*u^2/2)*(l/d)
Valp1.value=p1
p2=p1/1000
Valp2.value=p2
p3=p1*1.02e-5
Valp3.value=p3
End Sub
--></script>