您当前的位置: 最近研究遗传算法，找了一个DELPHI的例子，代码有部分看不懂，希望懂DELPHI的兄弟帮忙翻译成C#的，谢谢。
type KT=record Fs,Se:integer;end;
TTm=Record T:array of KT;f:integer;End;
TP=array of TTm;
Const N:integer=10;M:Integer=12;
Pc:integer=50;Pm:integer=80;
Fs:array[0..11] of integer=
(4,9,9,9,9,15,15,15,15,15,5,20);
procedure TForm1.Button1Click(…);
Var P:TP;E,t,TMax:Integer;
begin
Initialize(P);t:=0;//初始化种群
TMax:=StrToInt(Edit2.Text);
E:=Evaluate(P); //评估种群
While (P[E].f<100)and(t<TMax) do
Begin
crossover(P); //杂交
mutation(P); //变异
E:=Evaluate(P);t:=t+1; //评估种群
Edit1.Text:=inttostr(t); //输出显示
Edit3.Text:=inttostr(P[E].f);
Print(P[E]);Application.ProcessMessages;
if (P[E].f=100)or(t=TMax) then Break;
Select(P); //择优
End;
end;
------解决方案--------------------
工具翻译的。。。。参考一下
int } type KT==record Fs,Se;
array of KTf:int ; } TTm==Record T;
TP==array of TTm;
int ==10M:int ==12; Const N;
int ==50Pm:int ==80; Pc;
ray[0->.11] of i[11]nt == Fs;
(4,9,9,9,9,15,15,15,15,15,5,20);
procedure TForm1->Button1Click(…);
TPE,t,TMax:int ; { P;
Initialize(P);t= 0;//初始化种群
TMax= StrToInt(Edit2->Text);
E= Evaluate(P); //评估种群
While( (P[E]->f<100)&& (t<TMax))
{
crossover(P); //杂交
mutation(P); //变异
E= Evaluate(P);t= t+1; //评估种群
Edit1->Text= inttostr(t); //输出显示
Edit3->Text= inttostr(P[E]->f);
Print(P[E]);Application->ProcessMessages;
if((P[E]->f==100)
------解决方案--------------------
(t==TMax) ) Break;
Select(P); //择优
}
}
------解决方案--------------------
工具翻译的。。。。参考一下
int } type KT==record Fs,Se;
array of KTf:int ; } TTm==Record T;
TP==array of TTm;
int ==10M:int ==12; Const N;
int ==50Pm:int ==80; Pc;
ray[0->.11] of i[11]nt == Fs;
(4,9,9,9,9,15,15,15,15,15,5,20);
procedure TForm1->Button1Click(…);
TPE,t,TMax:int ; { P;
Initialize(P);t= 0;//初始化种群
TMax= StrToInt(Edit2->Text);
E= Evaluate(P); //评估种群
While( (P[E]->f<100)&& (t<TMax))
{
crossover(P); //杂交
mutation(P); //变异
E= Evaluate(P);t= t+1; //评估种群
Edit1->Text= inttostr(t); //输出显示
Edit3->Text= inttostr(P[E]->f);
Print(P[E]);Application->ProcessMessages;
if((P[E]->f==100)
------解决方案--------------------
(t==TMax) ) Break;