数值传热学第四章编程题_第1页
数值传热学第四章编程题_第2页
数值传热学第四章编程题_第3页
全文预览已结束

下载本文档

版权说明:本文档由用户提供并上传,收益归属内容提供方,若内容存在侵权,请进行举报或认领

文档简介

1、精品好资料学习推荐4-5迭代法求解节点温度。说明:此处给出的是C+程序代码,使用牛顿迭代法,迭代收敛精度1.0e-6;程序运行结果附后。/*NHT 4-5 newton*created on 2012-10-19 by Sanye*/#include #include #include using namespace std;int main() double funT=1.0,dfunT=1.0,temp1=1.0,temp2=1.0; double T=20.0;/primary value int i=0; /for TEST! coutprimary T= T ;=1.0e-6) i+

2、; if(i=1&(T=20.0)T=100.0;/in case unreasonable T; temp1=pow(T-20.0,0.25);temp2=pow(T-20.0,-0.75); funT=0.5*T-80+2*T*temp1-40*temp1; dfunT=0.5+2*temp1+0.5*T*temp2-10*temp2; T=T-funT/dfunT; cout step i;tT3-T3= funT/dfunT ;endl; couttotal steps: iendl; couttT1= 100tT2= 0.5*(T+130)tT3= T endl; return 0;

3、运行结果:4-12 编写TDMA算法程序验证其正确性。说明:此处给出的是C+程序代码,程序运行结果附后。/*TDMA.cpp *Created on 2012-10-19 by Sanye*/#include #include #include #include #include TDMA.husing namespace std;int main() int num=10;/num: number of T points; vector A,B,C,D,T_before,T_after; int rand_temp1,rand_temp2; /*Generate A,B,C,D,T_befo

4、re Randomly*/ for(int i=0;inum;+i) rand_temp1=rand()%10; rand_temp2=rand()%20; A.push_back(1.0+rand_temp1/2.0); B.push_back(rand_temp2/(rand_temp1+3.0)/5.0+1.0); C.push_back(rand_temp1*rand_temp2/10.0+2.0); T_before.push_back(sqrt(i*i+1.0)*11.0-20.0); B0=0.0;Cnum-1=0.0; for(int i=0;inum;+i) double t

5、emp; if(i=0) temp=A0*T_before0-B0*T_before1; else if(i=num-1) temp=Anum-1*T_beforenum-1-Cnum-1*T_beforenum-1-1;else temp=Ai*T_beforei-Bi*T_beforei+1-Ci*T_beforei-1; D.push_back(temp); /*Get T_after*/ T_after.resize(num); T_after=TDMA(A,B,C,D); /*Calculate T_err*/ vector T_err; for(int i=0;inum;+i)T_

6、err.push_back(T_afteri-T_beforei); /*Cout T*/ cout.setf(ios:fixed); cout.precision(4); for(int i=0;inum;+i) coutT_beforei+1= T_beforeitT_afteri+1= T_afteri tT_erri+1= T_erri endl; return 0;/* TDMA.h*/#ifndef TDMA_H_INCLUDED#define TDMA_H_INCLUDED#include using namespace std;vector TDMA(vector &A, vector &B, vector &C, vector &D)vector P,Q,T; int n=A.size(); P.resize(n); Q.resize(n); T.resize(n); /*Get P,Q*/

温馨提示

  • 1. 本站所有资源如无特殊说明,都需要本地电脑安装OFFICE2007和PDF阅读器。图纸软件为CAD,CAXA,PROE,UG,SolidWorks等.压缩文件请下载最新的WinRAR软件解压。
  • 2. 本站的文档不包含任何第三方提供的附件图纸等,如果需要附件,请联系上传者。文件的所有权益归上传用户所有。
  • 3. 本站RAR压缩包中若带图纸,网页内容里面会有图纸预览,若没有图纸预览就没有图纸。
  • 4. 未经权益所有人同意不得将文件中的内容挪作商业或盈利用途。
  • 5. 人人文库网仅提供信息存储空间,仅对用户上传内容的表现方式做保护处理,对用户上传分享的文档内容本身不做任何修改或编辑,并不能对任何下载内容负责。
  • 6. 下载文件中如有侵权或不适当内容,请与我们联系,我们立即纠正。
  • 7. 本站不保证下载资源的准确性、安全性和完整性, 同时也不承担用户因使用这些下载资源对自己和他人造成任何形式的伤害或损失。

评论

0/150

提交评论