Delphiで簡単な線形計画を解きたいです (ID:150511)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文

現在のコードです↓
procedure TForm2.Button1Click(Sender: TObject);

var
  i:integer;
  s:AnsiString;
  nvars:integer;
  colData:PFloatArray ;
  lp:THandle ;

begin
  with Memo1 do
  begin
    for i:=lines.count-1 downto 0 do
    begin
      if (length(lines[i])>=2) and (copy(lines[i],1,2)= '--')
      then break
      else lines.delete(i);
    end;
  end;

begin
    lp := make_lp(0,2);
    set_col_name(lp, 1, 'x');
    set_col_name(lp, 2, 'y');
    colData:=AllocMem(SizeOf(Double)*2) ;
    if (lp <> 0) then

begin
       s:= '120' + ' ' + '210';
       str_add_constraint(lp,PAnsiChar(s),1,15000);
       s:= '110' + ' ' + '30';
       str_add_constraint(lp,PAnsiChar(s),1,4000);
       s:= '1' + ' ' + '1';
       str_add_constraint(lp,PAnsiChar(s),1,75);
       s:= '143' + ' ' + '60';
       if  str_set_obj_fn(lp, PAnsiChar(s)) then
       begin
       set_maxim(lp);
       if solve(lp)=0 then
       with memo1, lines do
        begin
        add('');
        add('Solved');
        add('Optimum variable values are:');
        nvars:=get_nColumns(lp);
        get_variables(lp,colData);
  
        for i:=0 to nvars-1 do  {display variable values}
        begin
         add(format('%s = %.3f',[get_col_name(lp,i+1),colData[i]]));
         add(format('Objective value: %f', [get_objective(lp)]));
         end;
        end;
        end;
       end;
    end;
  end;
  delete_lp(lp);
end.

←解決時は質問者本人がここをチェックしてください。

戻る