Demo entry 6660937

1

   

Submitted by 1 on Nov 18, 2017 at 06:01
Language: Fortran. Code size: 454 Bytes.

procedure ffx;  //目标函数
begin
  with form1.sumt do   begin
    fx:=6280000*(x[1]*x[3])*(x[2]*x[2]-30*30);
  end;
end;

procedure ggx;  //约束函数
begin
  with form1.sumt do   begin
    gx[1]:=29*x[3]*x[3]*(x[1]+x[3])/(x[2]*x[2]*x[2]*x[2]-30*30*30*30)-1;
    gx[2]:=1-x[1]/300;
    gx[3]:=1-x[2]/60;
    gx[4]:=x[2]/140-1;
    gx[5]:=1-x[3]/90;
  end;
end;

procedure hhx;
begin
 with form1.sumt do   begin
    hx[1]:=hx[1];
 end;
end;

This snippet took 0.01 seconds to highlight.

Back to the Entry List or Home.

Delete this entry (admin only).