欢迎来到天天文库
浏览记录
ID:12436105
大小:101.00 KB
页数:5页
时间:2018-07-17
《传热学上机编程题答案》由会员上传分享,免费在线阅读,更多相关内容在行业资料-天天文库。
1、传热学上机传热学上机高牥杰2012/11/3传热学上机4-2.#includeusingnamespacestd;voidmain(){inti=0,j=0,M=9,N=7,K,IT,B;intp=1;doubleEPS,TTB,TRB,TLB,TBB,TT,eps,TI,A;cout<<"请输入K,EPS,TI,TTB,TRB,TLB,TBB:"<>K>>EPS>>TI>>TTB>>TRB>>TLB>>TBB;doubleT[9][7];for(i=0;i2、M-1][i]=TRB;}cout<=0;j--)B=p;for(IT=0;IT=1;j--){TT=T[i]3、[j];T[i][j]=0.25*(T[i-1][j]+T[i][j-1]+T[i+1][j]+T[i][j+1]);A=T[i][j]-TT;if(eps<0)eps=-eps;if(A<0)A=-A;if(eps<=A)eps=A;}}if(eps<=EPS){for(j=N-1;j>=0;j--){for(i=0;i4、l;}4-4.#includeusingnamespacestd;voidmain(){intN,t,NP,TM,IT,M;doubleBi,Fo,d,tf,a,h,y,dx,T0;doubleT[11],TT[11];cout<<"请输入壁厚d:";cin>>d;cout<<"请输入半壁厚等分数N:";cin>>N;cout<<"请输入控制打印节点节点温度的时间间隔NP:";cin>>NP;传热学上机cout<<"请输入流体温度tf:";cin>>tf;cout<<"请输入时间间隔t:";cin>>t;cout<<"请输入终止计算时间TM5、:";cin>>TM;cout<<"请输入表面传热系数h:";cin>>h;cout<<"请输入平壁导热系数y:";cin>>y;cout<<"请输入初始温度T0:";cin>>T0;cout<<"请输入热扩散率a:";cin>>a;dx=d/(2.0*(double)N);Bi=h*dx/y;Fo=a*t/(dx*dx);cout<1.0/(2.0*Bi+2.0))cout<<"不稳定"<6、0;i<11;i++)cout<=1;i--){TT[i]=Fo*(T[i-1]+T[i+1])+(1.0-2.0*Fo)*T[i];}TT[N]=2.0*Fo*(T[N-1]+tf*Bi)+(1.0-2.0*Fo-2.0*Fo*Bi)*T[N];TT[0]=2.0*Fo*T[1]+(1.0-2.0*Fo)*T[0];for(i=0;i<11;i++)T[i]=TT[i];if(IT%NP==0){cout<7、";for(inti=0;i<=10;i++){cout<
2、M-1][i]=TRB;}cout<=0;j--)B=p;for(IT=0;IT=1;j--){TT=T[i]
3、[j];T[i][j]=0.25*(T[i-1][j]+T[i][j-1]+T[i+1][j]+T[i][j+1]);A=T[i][j]-TT;if(eps<0)eps=-eps;if(A<0)A=-A;if(eps<=A)eps=A;}}if(eps<=EPS){for(j=N-1;j>=0;j--){for(i=0;i4、l;}4-4.#includeusingnamespacestd;voidmain(){intN,t,NP,TM,IT,M;doubleBi,Fo,d,tf,a,h,y,dx,T0;doubleT[11],TT[11];cout<<"请输入壁厚d:";cin>>d;cout<<"请输入半壁厚等分数N:";cin>>N;cout<<"请输入控制打印节点节点温度的时间间隔NP:";cin>>NP;传热学上机cout<<"请输入流体温度tf:";cin>>tf;cout<<"请输入时间间隔t:";cin>>t;cout<<"请输入终止计算时间TM5、:";cin>>TM;cout<<"请输入表面传热系数h:";cin>>h;cout<<"请输入平壁导热系数y:";cin>>y;cout<<"请输入初始温度T0:";cin>>T0;cout<<"请输入热扩散率a:";cin>>a;dx=d/(2.0*(double)N);Bi=h*dx/y;Fo=a*t/(dx*dx);cout<1.0/(2.0*Bi+2.0))cout<<"不稳定"<6、0;i<11;i++)cout<=1;i--){TT[i]=Fo*(T[i-1]+T[i+1])+(1.0-2.0*Fo)*T[i];}TT[N]=2.0*Fo*(T[N-1]+tf*Bi)+(1.0-2.0*Fo-2.0*Fo*Bi)*T[N];TT[0]=2.0*Fo*T[1]+(1.0-2.0*Fo)*T[0];for(i=0;i<11;i++)T[i]=TT[i];if(IT%NP==0){cout<7、";for(inti=0;i<=10;i++){cout<
4、l;}4-4.#includeusingnamespacestd;voidmain(){intN,t,NP,TM,IT,M;doubleBi,Fo,d,tf,a,h,y,dx,T0;doubleT[11],TT[11];cout<<"请输入壁厚d:";cin>>d;cout<<"请输入半壁厚等分数N:";cin>>N;cout<<"请输入控制打印节点节点温度的时间间隔NP:";cin>>NP;传热学上机cout<<"请输入流体温度tf:";cin>>tf;cout<<"请输入时间间隔t:";cin>>t;cout<<"请输入终止计算时间TM
5、:";cin>>TM;cout<<"请输入表面传热系数h:";cin>>h;cout<<"请输入平壁导热系数y:";cin>>y;cout<<"请输入初始温度T0:";cin>>T0;cout<<"请输入热扩散率a:";cin>>a;dx=d/(2.0*(double)N);Bi=h*dx/y;Fo=a*t/(dx*dx);cout<1.0/(2.0*Bi+2.0))cout<<"不稳定"<6、0;i<11;i++)cout<=1;i--){TT[i]=Fo*(T[i-1]+T[i+1])+(1.0-2.0*Fo)*T[i];}TT[N]=2.0*Fo*(T[N-1]+tf*Bi)+(1.0-2.0*Fo-2.0*Fo*Bi)*T[N];TT[0]=2.0*Fo*T[1]+(1.0-2.0*Fo)*T[0];for(i=0;i<11;i++)T[i]=TT[i];if(IT%NP==0){cout<7、";for(inti=0;i<=10;i++){cout<
6、0;i<11;i++)cout<=1;i--){TT[i]=Fo*(T[i-1]+T[i+1])+(1.0-2.0*Fo)*T[i];}TT[N]=2.0*Fo*(T[N-1]+tf*Bi)+(1.0-2.0*Fo-2.0*Fo*Bi)*T[N];TT[0]=2.0*Fo*T[1]+(1.0-2.0*Fo)*T[0];for(i=0;i<11;i++)T[i]=TT[i];if(IT%NP==0){cout<7、";for(inti=0;i<=10;i++){cout<
7、";for(inti=0;i<=10;i++){cout<
此文档下载收益归作者所有