马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。
您需要 登录 才可以下载或查看,没有账号?我要加入
x
<P># include <iostream.h><br># include <math.h><br># include "WASPCN.h" //在附件里此头文件.和该文件的lib文件<br>void main()<br>{<br> int n=99,i,range;<br> double h,tm;<br> cout<<"请输入步长h和tm\n";<br> cin>>h>>"\n">>tm;<br>double ps[100],hs[100],dhs[100],hst[100],Ts[100],dts[100],Ms[100],dms[100];<br>double k=4.3715,v=2.04,cp=4.1901,Au=340,rs=0.4615;<br>//初始化//<br> ps[0]=4.2;Ts[0]=256.0;<br> Ms[0]=20.8;hs[0]=2796.5;<br> range=0;<br>for(i=1;i<n;i++)<br>{<br>//ms//<br> P2HL(ps[i-1],hst[i-1],range);//饱和水焓值//<br>dms=-k*Au*(Ts[i-1]-tm)/(hs[i-1]-hst[i-1]);<br> Ms=Ms[i-1]+dms*h;<br>//han//<br> dhs=(Ms[i-1]*hs[i-1]-dms*(hs[i-1]-hst[i-1]))/Ms;<br> hs=hs[i-1]+dhs*h;<br>//wendu//<br> dts=(Ms[i-1]*hs[i-1]-Ms*hs+k*Au*(Ts[i-1]-tm))/Ms/cp;<br> Ts=Ts[i-1]+dts*h;<br> ps=ps[i-1]+dms*rs*Ts/v+Ms*rs*dts/v;<br>//ditui//<br> Ms[i-1]=Ms;<br> hs[i-1]=hs;<br> Ts[i-1]=Ts;<br> ps[i-1]=ps;<br> cout<<Ms<<"\n";<br> cout<<hs[i-1]<<"\n"<<endl;<br> cout<<Ts[i-1]<<"\n";<br>}<br>}<br><br>WASPCN.h" //在附件里此头文件.和该文件的lib文件<br></P>打开附件<br>错误:zhengqi.exe(.exe是我编译程序时起的名字)遇到问题要关闭。我们对此引起的不便表示抱歉。<br>如果您正处于进程当中,信息可能丢失。<br>关于此错识的其他信息,请单击此处<br>调试(B) 关闭(C)<br>
[此贴子已经被作者于2006-6-9 16:42:07编辑过]
[ 本帖最后由 happyman 于 2006-12-23 12:23 编辑 ] |