24小时热门版块排行榜

>论坛更新日志 (3638)
>虫友互识 (244)
>休闲灌水 (218)
>文献求助 (200)
>导师招生 (148)
>考博 (109)
>硕博家园 (97)
>基金申请 (78)
>论文投稿 (69)
>考研 (54)
>博后之家 (50)
>公派出国 (37)
>招聘信息布告栏 (31)
>教师之家 (24)
>论文道贺祈福 (23)
>找工作 (22)

返回列表

wj_871215

银虫 (小有名气)

应助: 0 (幼儿园)
金币: 204.8
帖子: 132
在线: 141.7小时
虫号: 1229862
注册: 2011-03-11
专业: 钢铁冶金

[求助] 程序

CODE:

#include 

#include  

main()

{

double eps_l[55][55],mu_m[55][55],sig_l[55][55],sig_m[55][55],epsley[55][55]; 

double f01(double x1,double x2,double x3,double x4);

FILE *fp;

int i,j;

for(i=0;i<55;i++)

for(j=0;j<55;j++)

{

eps_l[i][j]=4.425;

mu_m[i][j]=0.975;

sig_l[i][j]=0.225;

sig_m[i][j]=0.17;

}

for(i=0;i<55;i++)

for(j=0;j<55;j++)

{

epsley[i][j]=1/4*i*j*(eps_l[i][j]+mu_m[i][j]+sig_l[i][j]+sig_m[i][j]);

}

for(i=0;i<55;i++)

for(j=0;j<55;j++)

{

printf("%10.2f",epsley[i][j]);

printf("\n");

}

fp=fopen("e:\chengxuaa.txt","w");

for(i=0;i<55;i++)

for(j=0;j<55;j++)

{

fprintf(fp,"%f %f %f\n",i*0.002,j*0.002,epsley[i][j]);

}

getchar();

}