洪水调节演算电算程序(感谢冰山来客提供)
yeguiren
yeguiren Lv.11
2003年09月30日 01:40:29
来自于水利软件
只看楼主

2.1.7.2设计洪水电算程序由手算结果可知,洪水最大流量出现后2小时左右水库水位要下降下来,该程序仅计算了第13小时到第23小时的洪水过程,如果不满足此推断,可修改程序中的M值(控制计算时段的变量)。程序输出结果没有单位,与手算各项单位保持一致。电算程序演算了从调洪演算起始时刻到水库水位上升到最高水位回落的这段时间,此后洪水流量均小于最高水位的溢流堰的下泄能力,故可以认定电算程序确定的最高水位即为设计、校核洪水位。

2.1.7.2设计洪水电算程序
由手算结果可知,洪水最大流量出现后2小时左右水库水位要下降下来,该程序仅计算了第13小时到第23小时的洪水过程,如果不满足此推断,可修改程序中的M值(控制计算时段的变量)。程序输出结果没有单位,与手算各项单位保持一致。电算程序演算了从调洪演算起始时刻到水库水位上升到最高水位回落的这段时间,此后洪水流量均小于最高水位的溢流堰的下泄能力,故可以认定电算程序确定的最高水位即为设计、校核洪水位。
程序:
#include
#include
#include
#define M 11
void writeDat(void);
void lizheng(void);
float Q ,Z ,V ,Q1 ,q ,q1 ,VZ ;
float a,sw,kr,sl,sk,vz,ql;
int i,j,k;
void main(){
clrscr();
for(i=0;i printf("请输入时间为%d小时的入库流量\n",i+13);
scanf("%f",&Q );
}
for(j=1;j Q1 =(Q +Q )/2;
}
Z<0>=377.6;
V<0>=5493.03;
q<0>=0.0;
for(k=0;k printf("请试算第%d时段\n",k+1);
lizheng();
V =sk;
VZ =vz;
q1 =ql;
printf("请输入水库库容为:%7.1f时的 水库水位\n",sk);
scanf("%f",&Z );
printf("请输入水库库容为:%7.1f时的 下泄流量\n",sk);
scanf("%f",&q );
}
writeDat();
}
void writeDat(void){
FILE *fp;
fp=fopen("lizheng.dat","w");
fprintf(fp,"计算时段的水库下泄流量\n");
for(i=0;i fprintf(fp,"%7.1f\n",q );
}
fprintf(fp,"计算时段的水库入库平均流量\n");
for(i=0;i fprintf(fp,"%7.1f\n",Q1);
}
fprintf(fp,"计算时段的水库平均下泄流量\n");
for(i=0;i fprintf(fp,"%7.1f\n",q1);
}
fprintf(fp,"计算时段的水库存水量变化\n");
for(i=0;i fprintf(fp,"%7.1f\n",VZ);
}
fprintf(fp,"计算时段的水库存水量\n");
for(i=0;i fprintf(fp,"%7.1f\n",V);
}
fprintf(fp,"计算时段的水库水位\n");
for(i=0;i fprintf(fp,"%7.2f\n",Z);
}
}
void lizheng(void){
while(1)
{
printf("请输入试算水位\n");
scanf("%f",&sw);
printf("请输入试算库容\n");
scanf("%f",&kr);
printf("请输入试算水位的下泄流量\n");
scanf("%f",&sl);
ql=(sl+q )/2;
vz=(Q1 -ql)*0.36;
sk=V +vz;
printf("\n试算库容为:%7.1f\n",sk);
if(abs(sk-kr)<3) break;
printf("\n\n请再试算!!!\n");
}
}
jadelong
2003年12月14日 16:07:29
12楼
用vb包装把!!!
回复
ttt1234_5
2003年12月22日 23:26:29
13楼
用VB更好也更快
回复
ttt1234_5
2003年12月22日 23:49:29
14楼
回复
wcbsc@sl
2003年12月25日 14:12:29
15楼
我下载试用了晓东论坛的调洪演算数值解程序,发现计算不对,不能进行有闸控制计算。朋友们,你们有人用过吗?认为结果如何?
回复
sh_tv
2004年01月09日 08:47:29
16楼
回复
cwrobin
2004年01月11日 12:25:29
17楼
其实调洪计算程序应该很好改造的呀,就是水量平衡方程,最好不要执行文件,因为在实际工作过程中有时候控泻条件是不一样的,他的程序应该是敞泻的,一般好象没有这样复杂,传统的方法是输入坝址洪水过程线,通过泻流曲线进行水量平衡计算,如果需要控泻(下游有防洪要求的),就要通过来量判断,不知道你的程序里考虑了没有,不过比我现在用的简洁一些:),是我刚毕业的时候写的,我总希望有时间能完善一下这样的小程序,最好是建立一个函数库一样的打包成DLL,这样以后就好用了:),就是没有时间呀,你继续努力,最好是考虑的多一些,界面简单一点,但不应该在在DOS下运行了
回复
wyz@sl
2004年01月14日 11:43:29
18楼
回复
yfy2003
2004年01月14日 14:01:29
19楼
用vb包装比较好!
回复
csswjlm@sl
2004年01月29日 21:34:29
21楼
回复
johncsq
2004年01月30日 16:48:29
22楼
先试试看吧
回复

相关推荐

APP内打开