@三层层状介质速度模型C语言程序
//**************************************************
// 本程序是模型建立程序
// 时间:2021.3.26
//**************************************************
#include <stdio.h>
#include <conio.h>
#include <stdlib.h>
#include <math.h>
#define NZ 151
#define NX 151
int i,j;
int main()
{
FILE *fp;
float V[NZ][NX];
//*************************************************************
// 模型设置
//*************************************************************
//*************模型一:层状介质的建立***********************
for(i=0;i<NZ;i++)
{
for(j=0;j<NX/3;j++)
V[i][j]=2000.0;
for(j=NX/3;j<2*NX/3;j++)
V[i][j]=3000.0;
for(j=2*NX/3;j<NX;j++)
V[i][j]=4000.0;
}```
//********************************************************
// 进行文件写入
//************************************************************
if((fp=fopen("模型.dat","wb"))!=NULL)
{
for(i=0;i<NZ;i++)
fwrite(&V[i], sizeof(float), NX*NZ, fp);
}
fclose(fp);
printf("this is end !");
return 0;
}