#qbasic#
DEFINT i-j : DEFINT n: DEFDBL a-h : DEFDBL k-m: DEFDBL o-z
OPTION BASE 0 '数组下标从0开始
index=2001
DIM t(index), z(index), hfg(index ),v(index),p(index ),rho(index)
DIM muu(index), mach(index), mdot(index), q(index), tsat(index)
DIM bigx(index), delmdot(index), delq(index)
g=9.81 : rbar=8314
pi=3.14159: qsum=0: mtot=0
epps1 =.0001#: epps2 =.0000001#: epps3=.0003 : ncount=0: n=2000
i=0: iflag=0:epps = .000001#: limmach=10000!
nprint =10
slip=.014: molec=1!
delz=.001
di=.62*.0254
字数限制，其余代码见主页
DEFINT i-j : DEFINT n: DEFDBL a-h : DEFDBL k-m: DEFDBL o-z
OPTION BASE 0 '数组下标从0开始
index=2001
DIM t(index), z(index), hfg(index ),v(index),p(index ),rho(index)
DIM muu(index), mach(index), mdot(index), q(index), tsat(index)
DIM bigx(index), delmdot(index), delq(index)
g=9.81 : rbar=8314
pi=3.14159: qsum=0: mtot=0
epps1 =.0001#: epps2 =.0000001#: epps3=.0003 : ncount=0: n=2000
i=0: iflag=0:epps = .000001#: limmach=10000!
nprint =10
slip=.014: molec=1!
delz=.001
di=.62*.0254
字数限制，其余代码见主页
