断熱反応温度　ホームページプログラミング　

４次方程式を簡単な試行法で解く

スクリプト部分の記述

<script language="VBScript">
<!--
Dim a,b,c,d,e,g,t
Sub A_onClick
a=Vala.Value
b=Valb.Value
c=Valc.Value
d=Vald.Value
e=Vale.Value
t=Valf.Value
g=a*(t-25)+((b*((t^2)-(25^2)))/2)+((c*((t^3)-(25^3)))/3)+((d*((t^4)-(25^4)))/4)+e
Valg.Value=g
End Sub
--> </script> </p>