out_proc.de

微分进化法的pascal程序

Procedure  print_out;
Begin
    TextColor(15);
    Gotoxy(18,1);Writeln('**********************************************************');
    Gotoxy(18,2);Writeln('Iteration            : ',cur_gen);
    Gotoxy(18,4);Writeln('**********************************************************');
    Gotoxy(18,5);Writeln('VTR:      ',VTR);
    Gotoxy(18,6);Writeln('NP:       ',NP);
    Gotoxy(18,7);Writeln('F:        ',F);
    Gotoxy(18,8);Writeln('CR:       ',CR);
    Gotoxy(18,9);Writeln('strategy: ',strategy);
    Gotoxy(18,10);Writeln('**********************************************************');
    Gotoxy(18,11);Writeln('Best Fitness(st_dev) : ',bestval);
    Gotoxy(18,12);Writeln('Best Fitness(DC)     : ',DC);
    Gotoxy(18,13);Writeln('**********************************************************');
    Gotoxy(18,14);Writeln;
    Gotoxy(18,15);Writeln;
    Gotoxy(18,18);Writeln('**********************************************************');
    Gotoxy(18,19);Writeln('BEST values of opt par: ');
        for k := 1 to D do
           begin
             Gotoxy(18,19+k);Writeln('best(',k,') : ',bestmemiter[1,k]);
           end;
   Gotoxy(18,19+k+1);Writeln('**********************************************************');
End;


Procedure  print_file;
Begin
    assign(res,'d:\result.txt');
    rewrite(res);
    Writeln(res,'**********************************************************');
    Writeln(res,'**********************************************************');
    Writeln(res,'VTR:      ',VTR);
    Writeln(res,'NP:       ',NP);
    Writeln(res,'F:        ',F);
    Writeln(res,'CR:       ',CR);
    Writeln(res,'strategy: ',strategy);
    Writeln(res,'**********************************************************');
    Writeln(res,'Iteration            : ',cur_gen);
    Writeln(res,'Best Fitness(st_dev) : ',bestval);
    Writeln(res,'Best Fitness(DC)     : ',DC);
    Writeln(res,'**********************************************************');
    Writeln(res);
    Writeln(res);
    Writeln(res,'BEST values of opt par: ');
        for k := 1 to D do
            Writeln(res,'best(',k,') : ',bestmemiter[1,k]);
    Writeln(res,'**********************************************************');
    Writeln(res,'**********************************************************');
    Writeln(res,'** l.p.  X      Y_theor    Y_calc');
    Writeln(res);
    For k:=1 To XY Do
      Begin
         Write(res,'  ',k);
         Write(res,'  ',xdata[k]);
         Write(res,'  ',ydata[k]);
         Writeln(res,'  ',ydata_obl[k]);
      End;
    close(res);
End;