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

名前

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

本文

AAAAA様
親身になって相談に乗っていただきありがとうございます。研究室には相談に乗ってもらえる人もいなくて途方に暮れていました。
ここまで優しく最後まで面倒を見て頂けて本当に嬉しいです！！
現在のコードです↓

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;
    delete_lp(lp);
   end;
end.

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

戻る