欢迎来到天天文库
浏览记录
ID:57437820
大小:10.17 KB
页数:5页
时间:2020-08-16
《传热学上机——C语言.docx》由会员上传分享,免费在线阅读,更多相关内容在教育资源-天天文库。
1、1#include#include#defineN6main(){inti;floatcha;floatt[N],a[N],b[N];floath,t1,t0,r,D,H,x,m,A,p;printf("ttt一维稳态导热问题tt");printf("已知:h=45,t1=80,t0=300,r=110,D=0.01,H=0.1(ISO)");h=45.0;t1=80.0;t0=300.0;r=110.0;D=0.01;H=0.1;x=H/(N-1);A=3.*D*D/4;p=3.*D;m=sq
2、rt((h*p)/(r*A));printf("请首先假定一个温度场的初始分布,即给出各节点的温度初值:");for(i=0;i0.0001){a[0]=1;for(i=1;i3、ha/N;}for(i=0;i0.0001){a[0]=1;for(i=1;i4、m*x*x);cha=0;for(i=0;i#include#defineN8#defineM8main(){chars;inti,j,l;float5、cha,x,y;floatt[N][M],a[N][M];printf("ttt二维稳态导热问题tt");printf("题目:补充材料练习题二");printf("矩形区域,边长L=W=1,假设区域内无内热源,导热系数为常熟,三个边温度为T1=0,一个边温度为T2=1,求该矩形区域内的温度分布。");printf("是否要手动对温度场赋予初值?(Y/N):");scanf("%c",&s);if(s=='y'6、7、s=='Y'){printf("请首先假定一个温度场的初始分布,即给出各节点的温度初值(一行一行8、进行):");for(i=0;i0.0001){for(i=0;i9、[i][j]=t[i][j];for(i=1;i=010、;j--)for(i=0;i
3、ha/N;}for(i=0;i0.0001){a[0]=1;for(i=1;i4、m*x*x);cha=0;for(i=0;i#include#defineN8#defineM8main(){chars;inti,j,l;float5、cha,x,y;floatt[N][M],a[N][M];printf("ttt二维稳态导热问题tt");printf("题目:补充材料练习题二");printf("矩形区域,边长L=W=1,假设区域内无内热源,导热系数为常熟,三个边温度为T1=0,一个边温度为T2=1,求该矩形区域内的温度分布。");printf("是否要手动对温度场赋予初值?(Y/N):");scanf("%c",&s);if(s=='y'6、7、s=='Y'){printf("请首先假定一个温度场的初始分布,即给出各节点的温度初值(一行一行8、进行):");for(i=0;i0.0001){for(i=0;i9、[i][j]=t[i][j];for(i=1;i=010、;j--)for(i=0;i
4、m*x*x);cha=0;for(i=0;i#include#defineN8#defineM8main(){chars;inti,j,l;float
5、cha,x,y;floatt[N][M],a[N][M];printf("ttt二维稳态导热问题tt");printf("题目:补充材料练习题二");printf("矩形区域,边长L=W=1,假设区域内无内热源,导热系数为常熟,三个边温度为T1=0,一个边温度为T2=1,求该矩形区域内的温度分布。");printf("是否要手动对温度场赋予初值?(Y/N):");scanf("%c",&s);if(s=='y'
6、
7、s=='Y'){printf("请首先假定一个温度场的初始分布,即给出各节点的温度初值(一行一行
8、进行):");for(i=0;i0.0001){for(i=0;i9、[i][j]=t[i][j];for(i=1;i=010、;j--)for(i=0;i
9、[i][j]=t[i][j];for(i=1;i=0
10、;j--)for(i=0;i
此文档下载收益归作者所有