unit1.cpp

在任务级并行平台P2HP上开发的demo应用

//---------------------------------------------------------------------------

#include <vcl.h>
#pragma hdrstop

#include "Unit1.h"
#include "New_Perm.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Button1Click(TObject *Sender)
{
  Reading_Data( ) ;
  Initializing( ) ;
  Drawing( ) ;
  Time_Start= clock() ;
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Button2Click(TObject *Sender)
{
  int step = 1 ;
  while( ( New_Best_Energy <= Optimized_Energy + 3 ) &&
         ( step < 1000000 ) )
   {
  //   Initializing( ) ;
     New_Perm( ) ;
 //   C = C - 0.001 ;
     //*********c0不断的在更新？
     C0 += 20000;
     for( int i = 0 ; i < Num ; i ++ )
      //********这个是什么意思呢？ 每做完一个round都重新清为1？？
      Number_Len[ i ] = 1 ;//( int )( step / 4 ) + 1;
     step ++;
   }
}
//---------------------------------------------------------------------------

void __fastcall TForm1::FormCreate(TObject *Sender)
{
 randomize();
}
//---------------------------------------------------------------------------