水环境学——显式差分 计算均匀河段各断面BOD变化

#include "stdafx.h"
#include <iostream>
#include <fstream>
#include <iomanip>
#include <cmath>
void main()
{
	using namespace std;
	const int Nx = 8,  //等于x/dx
				  Nt = 10;//等于t/dt
	const double dx = 1.0, dt = 0.1, //要保证dt<=dx/u,E*dt<=dx*dx/2
						x = 8.0,//均匀河段长
						t = 1.0,//排污断面持续时间
						u = 5,//流速
						E = 2,//离散系数
						K1 = 0.015,//BOD降解系数
						C0 = 20;//排污断面持续时间内保持的BOD浓度
	double alpha  = E*dt/pow(dx, 2),
				 beta = u*dt/dx - 2*alpha - K1*dt,
				 gamma = 1 - u*dt/dx + alpha, 
				 C[Nx + 2][Nt + 1] = {0};
	ofstream outfile;
	outfile.open("output.txt");
	outfile<<"alpha  = "<<alpha<<endl
			<<"beta = "<<beta<<endl
			<<"gamma = "<<gamma<<endl;
	for(int i = 0; i < 2; i++)
		for(int j = 0; j<Nt + 1; j++)
			C[i][j] = C0;
	for(int i = 2; i < Nx + 2; i++)
		for(int j = 1; j<Nt + 1; j++)
			C[i][j] = alpha*C[i - 2][j - 1] +beta*C[i - 1][j - 1] + gamma*C[i][j - 1];
	for(int j = 0; j<Nt + 1; j++)
	{
		for(int i = 1; i < Nx + 2; i++)
			outfile<<setw(10)<<C[i][j];
		outfile<<endl;
	}
	outfile.close();
}

评论 1
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值