qbasic代码

#qbasic##qbasic#
di=.62*.0254:dout=.87*.0254
tsink=27+273.13
emiss=.45
hbar=2.9*.018/(.06 *.0254)
w1$="Tsink [K]" : w2$="Outside Diam, [in]":#qbasic# w3$="lnside Dlam. [in]"
w4$="[p]网页链接 trns. coeff, [W/m^2/K]" : w5$="Stag. Temp. [K]"
w7$="Qsonic [W]": w8$="Qtot"
fluid$="octadecane"
tc=745 : tb=590 : tfus=301
k=1.1114 : mw=254.502
rg=rbar/mw
adum =.5*( k-1!)
FOR ii=1 TO 4
LOCATE 5,2
PRINT "Be sure the fluid properties are correct for the working fluid, ";
PRINT fluid$ :CLS
NEXT ii
LOCATE 10,2
PRINT "Be sure the fluid properties are correct for the working fluid, ";
PRINT fluid$
PRINT""
PRINT"To continue hi! RETURN. Otherwise, pull up the listing and check properties."