⭐ 欢迎来到虫虫下载站! | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站

📄 baimananopti.h

📁 石油公司网管系统优化系统软件源码,很有价值的.
💻 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 + -