没有合适的资源?快使用搜索试试~ 我知道了~
轧制过程隐式方程对流+辐射金属凝固模拟C语言
资源推荐
资源详情
资源评论
#include<stdio.h>
#include<math.h>
#define N 11
#define M 12
#define S 0.35
void TDMA(void);
double A[N+1],B[N+1],C[N+1],D[N+1],Told[N],TMID[N],Pc,Th,x,T;
long float ar;
long float lamda=30.0,cp=610.0,rou=7840.0,ac=6840.0,Q=350,Hh=1.67,J=9.81,Tf=15.0,epsilon=0.10,
sigma=0.0000000567,armax=7.94;
double dx=S/(N-1),dt;
double F0;
/*main function*/
main()
{ int i,p;
double F0;
dt=6.0;
F0=lamda*dt/(rou*cp*dx*dx);
printf(" dx= %5.2lf (mm)\n",dx*1000);
printf(" dt= %5.2lf (min)\n",(dt/60));
printf(" Temperature Results(C)\n");
if(F0<=0.5/(1+(ac+armax)*dx/lamda)&&F0<=0.5)
{ printf(" 方程稳定!\n") ;
x=log(Hh);
Pc=1.15*Q;
Th=Pc*x*1000000/J/rou/cp;
T=1000+Th;
for(i=0;i<=N;i++) printf("------");printf("\n");
printf(" min ");
for(i=1;i<=N;i++) printf("%d P ",i);printf("\n");
#include<math.h>
#define N 11
#define M 12
#define S 0.35
void TDMA(void);
double A[N+1],B[N+1],C[N+1],D[N+1],Told[N],TMID[N],Pc,Th,x,T;
long float ar;
long float lamda=30.0,cp=610.0,rou=7840.0,ac=6840.0,Q=350,Hh=1.67,J=9.81,Tf=15.0,epsilon=0.10,
sigma=0.0000000567,armax=7.94;
double dx=S/(N-1),dt;
double F0;
/*main function*/
main()
{ int i,p;
double F0;
dt=6.0;
F0=lamda*dt/(rou*cp*dx*dx);
printf(" dx= %5.2lf (mm)\n",dx*1000);
printf(" dt= %5.2lf (min)\n",(dt/60));
printf(" Temperature Results(C)\n");
if(F0<=0.5/(1+(ac+armax)*dx/lamda)&&F0<=0.5)
{ printf(" 方程稳定!\n") ;
x=log(Hh);
Pc=1.15*Q;
Th=Pc*x*1000000/J/rou/cp;
T=1000+Th;
for(i=0;i<=N;i++) printf("------");printf("\n");
printf(" min ");
for(i=1;i<=N;i++) printf("%d P ",i);printf("\n");
资源评论
beixing612
- 粉丝: 0
- 资源: 1
上传资源 快速赚钱
- 我的内容管理 展开
- 我的资源 快来上传第一个资源
- 我的收益 登录查看自己的收益
- 我的积分 登录查看自己的积分
- 我的C币 登录后查看C币余额
- 我的收藏
- 我的下载
- 下载帮助
安全验证
文档复制为VIP权益,开通VIP直接复制
信息提交成功