?? 新建 文本文檔.txt
字號:
// dpView.cpp : implementation of the CDpView class
//
#include "stdafx.h"
#include "dp.h"
#include "dpDoc.h"
#include "dpView.h"
#ifdef _DEBUG
#define new DEBUG_NEW
#undef THIS_FILE
static char THIS_FILE[] = __FILE__;
#endif
/////////////////////////////////////////////////////////////////////////////
// CDpView
IMPLEMENT_DYNCREATE(CDpView, CView)
BEGIN_MESSAGE_MAP(CDpView, CView)
//{{AFX_MSG_MAP(CDpView)
ON_COMMAND(IDM_DPYH, OnDpyh)
//}}AFX_MSG_MAP
// Standard printing commands
ON_COMMAND(ID_FILE_PRINT, CView::OnFilePrint)
ON_COMMAND(ID_FILE_PRINT_DIRECT, CView::OnFilePrint)
ON_COMMAND(ID_FILE_PRINT_PREVIEW, CView::OnFilePrintPreview)
END_MESSAGE_MAP()
/////////////////////////////////////////////////////////////////////////////
// CDpView construction/destruction
CDpView::CDpView()
{
// TODO: add construction code here
}
CDpView::~CDpView()
{
}
BOOL CDpView::PreCreateWindow(CREATESTRUCT& cs)
{
// TODO: Modify the Window class or styles here by modifying
// the CREATESTRUCT cs
return CView::PreCreateWindow(cs);
}
/////////////////////////////////////////////////////////////////////////////
// CDpView drawing
void CDpView::OnDraw(CDC* pDC)
{
CDpDoc* pDoc = GetDocument();
ASSERT_VALID(pDoc);
// TODO: add draw code for native data here
}
/////////////////////////////////////////////////////////////////////////////
// CDpView printing
BOOL CDpView::OnPreparePrinting(CPrintInfo* pInfo)
{
// default preparation
return DoPreparePrinting(pInfo);
}
void CDpView::OnBeginPrinting(CDC* /*pDC*/, CPrintInfo* /*pInfo*/)
{
// TODO: add extra initialization before printing
}
void CDpView::OnEndPrinting(CDC* /*pDC*/, CPrintInfo* /*pInfo*/)
{
// TODO: add cleanup after printing
}
/////////////////////////////////////////////////////////////////////////////
// CDpView diagnostics
#ifdef _DEBUG
void CDpView::AssertValid() const
{
CView::AssertValid();
}
void CDpView::Dump(CDumpContext& dc) const
{
CView::Dump(dc);
}
CDpDoc* CDpView::GetDocument() // non-debug version is inline
{
ASSERT(m_pDocument->IsKindOf(RUNTIME_CLASS(CDpDoc)));
return (CDpDoc*)m_pDocument;
}
#endif //_DEBUG
/////////////////////////////////////////////////////////////////////////////
// CDpView message handlers
void CDpView::OnDpyh()
{
int i,j,k,l,m,n;//循環變量
int ll,kk;
long int a,b,c;//備用參數
float x,y,z;//備用參數
float x1,x2,x3;
int mark;//標記用
int sign;
float Vu_bottom,Vu_top,hu_bottom=615.0,hu_top=620.0;
float Vd_bottom,Vd_top,hd_bottom=554.5,hd_top=556.5;
int U_st_num,D_st_num;
float U_st[1000],D_st[1000];
readdata_flood_TZY();
////以庫容作為狀態變量，步長100萬m3
long int step=4.5e5;//步長
///////////生成狀態序列
///////////上庫
Vu_bottom=HtoV_TZY(hu_bottom);
Vu_top=HtoV_TZY(hu_top);
a=Vu_bottom/step;
Vu_bottom=(a+1)*step;//忽略不足步長的庫容
a=Vu_top/step;
Vu_top=a*step;//忽略小于步長的庫容
U_st_num=(Vu_top-Vu_bottom)/step;
for(i=0;i<U_st_num;i++)
U_st[i]=Vu_bottom+i*step;//上庫狀態序列
Vd_bottom=HtoV_LD(hd_bottom);
Vd_top=HtoV_LD(hd_top);
a=Vd_bottom/step;
Vd_bottom=(a+1)*step;//忽略不足步長的庫容
a=Vd_top/step;
Vd_top=a*step;//忽略小于步長的庫容
D_st_num=(Vd_top-Vd_bottom)/step;
for(i=0;i<D_st_num;i++)
D_st[i]=Vd_bottom+i*step;//下庫狀態序列
///////////////////////////////////////////////////
///////////////////////////////////////////////////
///////////////////////////////////////////////////
FILE *fp=fopen("檢驗狀態序列.txt","w");
for (i=0;i<U_st_num;i++)
{
fprintf(fp,"%4.2f\n",U_st[i]);
}
for (i=0;i<D_st_num;i++)
{
fprintf(fp,"%4.2f\n",D_st[i]);
}
fclose(fp);
////////////////////////////////////////////////////
////////////////////////////////////////////////////
////////////////////////////////////////////////////
////dp優化
float ff[50][50];//階段優化目標存儲數組[U_st][D_st]
float Qo_dp_TZY[50][50];
float tt=3600;
float Qin_dp_LD[50][50],Qo_dp_LD_0[50][25];
float y1;
float Qo_dp_LD_tmp[50][50];
float ff_tmp[50];
float AA=10e10;
////////////第一階段
for(ll=0;ll<U_st_num;ll++)
for(kk=0;kk<D_st_num;kk++)
{
Qo_dp_TZY[0][ll]=Qin_TZY[0]-(U_st[ll]-U_st[0])/tt;
Qin_dp_LD[0][ll]=Qin_TZY[0]*0.4632+Qo_dp_TZY[0][ll];
Qo_dp_LD_0[ll][kk]=Qin_dp_LD[0][ll]-(D_st[kk]-D_st[0])/tt;
x1=VtoH_LD(D_st[kk]);
if((Qo_dp_TZY[0][ll]>=0)&&(Qo_dp_LD_0[ll][kk]>=0))///水量平衡所得流量為正值
{
if(
((x1<=553.8)&&(Qo_dp_LD_0[ll][kk]<=1800))///（下游）泄流限制，可能要調整
||
(x1>553.8)
)
{
ff[ll][kk]=0.6*Qo_dp_TZY[0][ll]+0.4*Qo_dp_LD_0[ll][kk];
z=10;
}
else
{
ff[ll][kk]=AA;
}
}
else
{
ff[ll][kk]=AA;
}
z=0;
}
z=0;
//////////中間階段
float ff_tmp1[50][50][25];
float ff_tmp2[50][25];
int path_tmp[50][50][25],path_u[50][50],path_d[50][25];
for(i=1;i<amount_flood-1;i++)
{
for(l=0;l<U_st_num;l++)
for(ll=0;ll<U_st_num;ll++)
for(k=0;k<D_st_num;k++)
{
for(kk=0;kk<D_st_num;kk++)
{
Qo_dp_TZY[ll][l]=Qin_TZY[i]-(U_st[l]-U_st[ll])/tt;
Qin_dp_LD[ll][l]=Qin_TZY[i]*0.4632+Qo_dp_TZY[ll][l];
Qo_dp_LD_tmp[kk][k]=Qin_dp_LD[ll][l]-(D_st[k]-D_st[kk])/tt;
x1=VtoH_LD(D_st[k]);
if((Qo_dp_TZY[ll][l]>0)&&(Qo_dp_LD_tmp[kk][k]>0))
{
if(
((x1<=553.8)&&(Qo_dp_LD_tmp[kk][k]<=1800))
||
(x1>553.8)
)
{
ff_tmp[kk]=0.6*Qo_dp_TZY[ll][l]+0.4*Qo_dp_LD_tmp[kk][k];
}
else
{
ff_tmp[kk]=AA;
}
}
else
{
ff_tmp[kk]=AA;
}
}//kk循環
x=ff_tmp[0];
a=-1;
for(kk=0;kk<D_st_num;kk++)
{
if(x>=ff_tmp[kk])
{
x=ff_tmp[kk];
a=kk;
}
}
ff_tmp1[l][ll][k]=x;
path_tmp[l][ll][k]=a;
z=0;
if(i==3)
{
z=9;
}
if(i==2)
{
z=0;
z=9;
}
}//k,ll,l循環
for(l=0;l<U_st_num;l++)
for(k=0;k<D_st_num;k++)
{
x=ff_tmp1[l][0][k];
a=-1;
b=-1;
for(ll=0;ll<U_st_num;ll++)
{
if(x>=ff_tmp1[l][ll][k])
{
x=ff_tmp1[l][ll][k];
a=ll;
b=path_tmp[l][ll][k];
}
}
path_u[i+1][l]=a;
path_d[i+1][k]=b;
if(x>=ff[a][b])
{
ff_tmp2[l][k]=x;
}
else
{
ff_tmp2[l][k]=ff[a][b];
}
}//k,l循環
z=0;
x3=0;
for(l=0;l<U_st_num;l++)
for(k=0;k<D_st_num;k++)
{
ff[l][k]=ff_tmp2[l][k];
if(
/*((ff[l][k]-3649.71)>1)
||
((ff[l][k]-3649.71)<-1)*/
ff[l][k]==AA
)
{
x3=-1;
}
else
{
z=1;
}
}//k,l循環
if(z==0)
{
z=12;
z=11;
}
}//i循環
/////////////////最后階段
float ff_tmp3[50][25];
float Qo_dp_LD_00[50][25];
i=amount_flood-1;
for(ll=0;ll<U_st_num;ll++)
for(kk=0;kk<D_st_num;kk++)
{
Qo_dp_TZY[ll][0]=Qin_TZY[i]-(U_st[ll]-U_st[0])/tt;
Qin_dp_LD[ll][0]=0.4623*Qin_TZY[i]+Qo_dp_TZY[ll][0];
Qo_dp_LD_00[ll][kk]=Qin_dp_LD[ll][0]-(D_st[kk]-D_st[0])/tt;
if((Qo_dp_TZY[ll][0]>0)&&(Qo_dp_LD_00[ll][kk]>0))
{
ff_tmp3[ll][kk]=0.6*Qo_dp_TZY[ll][0]+0.4*Qo_dp_LD_00[ll][kk];
}
else
{
ff_tmp3[ll][kk]=AA;
}
if(ff_tmp3[ll][kk]>ff[ll][kk])
{
ff[ll][kk]=ff_tmp3[ll][kk];
}
}
x=ff[0][0];
path_u[amount_flood-1][0]=0;
path_d[amount_flood-1][0]=0;
for(l=0;l<U_st_num;l++)
for(k=0;k<D_st_num;k++)
{
if(x>=ff[l][k])
{
x=ff[l][k];
path_u[amount_flood][0]=a=l;
path_d[amount_flood][0]=b=k;
}
}
z=0;
for(l=0;l<U_st_num;l++)
for(k=0;k<D_st_num;k++)
{
if(ff[l][k]==AA)
x3=0;
else
{
z=1;
x2=ff[l][k];
}
}
////////////////////////////提取軌跡
int aa,bb;
float UU[50],DD[50];
UU[amount_flood]=U_st[0];
DD[amount_flood]=D_st[0];
a=path_u[amount_flood][0];
b=path_d[amount_flood][0];
for(i=amount_flood-1;i>0;i--)
{
aa=path_u[i][a];
UU[i]=U_st[a];
a=aa;
bb=path_d[i][b];
DD[i]=D_st[b];
b=bb;
}
UU[0]=U_st[0];
DD[0]=D_st[0];
z=0;
}
void CDpView::readdata_flood_TZY()
{
int i,j,k;
for(i=0;i<1000;i++)
{
Qin_TZY[i]=-1;
Qin_LD[i]=-1;
Qout_TZY[i]=-1;
Qout_LD[i]=-1;
}///////////////////////////將未賦值的洪水序列初始化為-1；實際洪水序列的長度由amount_flood決定
FILE *fp=fopen("桐子營洪水過程線.txt","r");
fscanf(fp,"%d",&amount_flood);
for (i=0;i<amount_flood;i++)
{
fscanf(fp,"%f",&Qin_TZY[i]);
}
fclose(fp);
fp=fopen("檢驗桐子營洪水過程線.txt","w");
fprintf(fp,"入庫流量\n");
for (i=0;i<amount_flood;i++)
{
fprintf(fp,"%4.2f\n",Qin_TZY[i]);
}
fclose(fp);
}
float CDpView::HtoV_TZY(float h)
{
int i;
float H[15],V[15];
float v;
FILE *fp=fopen("桐子營水位庫容曲線.txt","r");
for (i=0;i<15;i++)
{
fscanf(fp,"%f %f",&H[i],&V[i]);
}
fclose(fp);
if((h<590)||(h>625))//最小死水位，最大為所給范圍上限
v=-100;//溢出
for(i=0;i<14;i++) //求h水位對應的庫容v
if((h>=H[i])&&(h<H[i+1]))
v=V[i]+(V[i+1]-V[i])*(h-H[i])/(H[i+1]-H[i]);
return v;
}
float CDpView::HtoV_LD(float h)
{
int i;
float H[34],V[34];
float v;
FILE *fp=fopen("龍洞水位庫容曲線.txt","r");
for (i=0;i<34;i++)
{
fscanf(fp,"%f %f",&H[i],&V[i]);
}
fclose(fp);
if((h<535.5)||(h>557))//最小死水位，最大為所給范圍上限
v=-100;//溢出
for(i=0;i<33;i++)
if((h>=H[i])&&(h<H[i+1]))
v=V[i]+(V[i+1]-V[i])*(h-H[i])/(H[i+1]-H[i]);
return v;
}
float CDpView::VtoQo_TZY(float v)
{
int i;
float H[15],V[15];
float Qo;
float h;
FILE *fp=fopen("桐子營水位庫容曲線.txt","r");
for (i=0;i<15;i++)
{
fscanf(fp,"%f %f",&H[i],&V[i]);
}
fclose(fp);
if((v<15038000)||(v>101142000))v=-1000;//溢出：最小為死庫容，最大為所給范圍上限
for(i=0;i<33;i++)
if((v>=V[i])&&(v<V[i+1]))
h=H[i]+(H[i+1]-H[i])*(v-V[i])/(V[i+1]-V[i]);//V插出H
Qo=HtoQo_TZY(h);
return Qo;
}
float CDpView::VtoQo_LD(float v)
{
int i;
float h;
float H[34],V[34];
float Qo;
FILE *fp=fopen("龍洞水位庫容曲線.txt","r");
for (i=0;i<34;i++)
{
fscanf(fp,"%f %f",&H[i],&V[i]);
}
fclose(fp);
if((v<27230000)||(v>68480000))v=-1000;//溢出：最小為死庫容，最大為所給范圍上限
for(i=0;i<33;i++)
if((v>=V[i])&&(v<V[i+1]))
h=H[i]+(H[i+1]-H[i])*(v-V[i])/(V[i+1]-V[i]);//V插出H
Qo=HtoQo_LD(h);
return Qo;
}
float CDpView::HtoQo_TZY(float h)
{
int i;
float H[18],Qout[18];
float Qo;
FILE *fp=fopen("桐子營水位泄流曲線.txt","r");
for (i=0;i<18;i++)
{
fscanf(fp,"%f %f",&H[i],&Qout[i]);
}
fclose(fp);
if((h<608)||(h>620))//所給庫泄曲線范圍
Qo=-1000;//溢出
for(i=0;i<17;i++) //求h水位對應的泄流能力Qo
if((h>=H[i])&&(h<H[i+1]))
Qo=Qout[i]+(Qout[i+1]-Qout[i])*(h-H[i])/(H[i+1]-H[i]);
return Qo;
}
float CDpView::HtoQo_LD(float h)
{
int i;
float H[14],Qout[14];
float Qo;
FILE *fp=fopen("龍洞水位泄流曲線.txt","r");
for (i=0;i<14;i++)
{
fscanf(fp,"%f %f",&H[i],&Qout[i]);
}
fclose(fp);
if((h<544)||(h>555))//所給庫泄曲線范圍
Qo=-1000;//溢出
for(i=0;i<13;i++) //求h水位對應的泄流能力Qo
if((h>=H[i])&&(h<H[i+1]))
Qo=Qout[i]+(Qout[i+1]-Qout[i])*(h-H[i])/(H[i+1]-H[i]);
return Qo;
}
float CDpView::VtoH_TZY(float v)
{
int i;
float H[15],V[15];
float h;
FILE *fp=fopen("桐子營水位庫容曲線.txt","r");
for (i=0;i<15;i++)
{
fscanf(fp,"%f %f",&H[i],&V[i]);
}
fclose(fp);
if((v<122000)||(v>101142000))//所給范圍
h=-100;//溢出
for(i=0;i<14;i++) //求h水位對應的庫容v
if((v>=V[i])&&(v<V[i+1]))
h=H[i]+(H[i+1]-H[i])*(v-V[i])/(V[i+1]-V[i]);
return h;
}
float CDpView::VtoH_LD(float v)
{
int i;
float H[34],V[34];
float h;
FILE *fp=fopen("龍洞水位庫容曲線.txt","r");
for (i=0;i<34;i++)
{
fscanf(fp,"%f %f",&H[i],&V[i]);
}
fclose(fp);
if((v<27230000)||(v>68480000))//所給范圍
h=-100;//溢出
for(i=0;i<33;i++)
if((v>=V[i])&&(v<V[i+1]))
h=H[i]+(H[i+1]-H[i])*(v-V[i])/(V[i+1]-V[i]);
return h;
}
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -