流体工学 管内流れの圧力損失 ホームページプログラミング
非線形方程式を逐次代入法で解く。 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>