📄 baimananopti.h
字号:
//---------------------------------------------------------------------------
#ifndef BaiMaNanOptiH
#define BaiMaNanOptiH
//---------------------------------------------------------------------------
#include <Classes.hpp>
#include <Controls.hpp>
#include <StdCtrls.hpp>
#include <Forms.hpp>
#include <ADODB.hpp>
#include <DB.hpp>
#include <ExtCtrls.hpp>
#include "WuXing.h"
#include "SearchMap.h"
#include <math.h>
//---------------------------------------------------------------------------
class TTBaiMaNanOpti : public TForm
{
__published: // IDE-managed Components
TLabel *Label1;
TButton *GuanBi;
TADOTable *ADOWell;
TADOTable *ADOPipe;
TTimer *Timer;
TADOTable *ADOResult;
void __fastcall TimerTimer(TObject *Sender);
void __fastcall FormDestroy(TObject *Sender);
private: // User declarations
bool Terminated;
TTWuXingCanShu WuXing;
WellHead *Head;
TTSearchMap Map;
int GenNum,popsize,NewPopsize;
GenUnit * population;
long Generation;
double PMutation,PCross;
int* StationFlag;
double *Uper,*Lower;
GenUnit * BestUnit;
GenUnit* NewPop;
//数据信息
double JiShuBanJing,JingKouWenDu,ZuiDiRuZhanYaLi,JingKouHuiYa,ZuiDiRuWenDu,K;
double QiYaLi,SheJiHanShuiLv,YouSheJiYaLi,JingJiLiuSu,TuRangWenDu,QiXiangDuiMiDu;
double NianDu50,MiDu20;
int ShuRuHanShuiLv;
//数据信息结束
double GuanJing,BiHou,DanWeiZhiLiang;
double GetYaJiang(double G,double T,double Pz,double QiYouBi,double HanShuiLv,double d,double L,double GaoCha);
void BuJuJieGuo();
void Cross(long generation);
void Evaluate();
void GetBest();
void GetPipePara();
void GetWellPara();
void Initialize();
void Mutate(long generation);
void Select();
void ShuiLiJiSuan();
void Execute();
void Terminate();
public: // User declarations
__fastcall TTBaiMaNanOpti(TComponent* Owner);
};
//---------------------------------------------------------------------------
extern PACKAGE TTBaiMaNanOpti *TBaiMaNanOpti;
//---------------------------------------------------------------------------
#endif
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -