Delphi, Оптимизация раскроя листа произвольной формы на детали произвольного размера

[ТипичныйСтудент]

Добрый день. Задача следующая: есть лист (размеры задаем), есть детали прямоугольной формы (размеры задаем), как их разместить на листе с учётом отступов между ними и от края наиболее оптимально?
__________
Пока что не знаю с чего начать вообще....прошу помочь ссылками, литературой или примерами подобных задач. В гугле смотрела...нашла вот это: http://matica.org.ua/issledovanie-op...malniy-raskroy
помогите пожалуйста понять формулы на реально вводимых данных....
______________
а вообще было бы шикарно пример хоть самого простенького исходника на эту тему....чтобы глянуть с чего вообще начинать....

[Smitt&Wesson]

В принципе, задача так и решается. Если Вам нужна программа, то вот она.
В бесплатном варианте, она решает уравнения с 15-ю ограничениями и переменными.

[ТипичныйСтудент]

программа, но мне нужно ее написать самой...
Проблемы:
1) не совсем понятен процесс математических расчетов
2) вот получу я количество прямоугольников одного размера и другого, которые поместятся на лист, а как графически оформить?
т.е. должно быть что-то вроде "вводим размеры, нажимаем "рассчитать" и перед нами графическая область с чертежом этих деталий + последующий вывод ее например в ворд".....
как-то так...

Обозначения:
J —индекс материала, J = 1,..., П;
K —индекс вида заготовки, K = 1, ..., Q;
I — индекс способа раскроя единицы материала, I = 1,..., Р;
АIjk — количество (целое число) заготовок вида K, полученных при раскрое единицы J-го материала I-м способом;
Bk — число заготовок вида K В комплекте, поставляемом заказ*чику;
Dj — количество материала J-го вида;
Xji — количество единицу J-го материала, раскраиваемых по I-му способу (интенсивность использования способа раскроя);
Cji — величина отхода, полученного при раскрое единицы J-го материала по I-му способу;
У — число комплектов заготовок различного вида, поставля*емых заказчику.

J - если 1 лист, то =1
K - допустим детали 2-х видов, значит K1 и K2
I - ?
АIjk - как узнать то???
Bk - 2
Dj - 1
Xji - 1
Cji - ? (надо узнать)
У - ?
___________________
:conf used:

[ТипичныйСтудент]

Добрый день.
Имеется 2 DBGrida на форме, каждый из которых соединен со своим ZQuery.
В левом (первом) гриде данные о размерах листа и их количестве, в правом (втором) - данные о деталях.
По этим данным должен производиться чертеж раскроя листа материала....
По идеи вариант раскроя должен быть произведен именно оптимальны способом, но пока что он просто "рисует (чертит)" детали на листе...
Ниже приведен код...
Возможно ли его "усовершенствование" для приближения именно к оптимальному варианту раскроя??
Да и вообще какие у кого идеи и советы на эту тему?

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, cxGraphics, cxControls, cxLookAndFeels, cxLookAndFeelPainters,
  cxStyles, dxSkinsCore, dxSkinBlack, dxSkinBlue, dxSkinBlueprint,
  dxSkinCaramel, dxSkinCoffee, dxSkinDarkRoom, dxSkinDarkSide,
  dxSkinDevExpressDarkStyle, dxSkinDevExpressStyle, dxSkinFoggy,
  dxSkinGlassOceans, dxSkinHighContrast, dxSkiniMaginary, dxSkinLilian,
  dxSkinLiquidSky, dxSkinLondonLiquidSky, dxSkinMcSkin, dxSkinMoneyTwins,
  dxSkinOffice2007Black, dxSkinOffice2007Blue, dxSkinOffice2007Green,
  dxSkinOffice2007Pink, dxSkinOffice2007Silver, dxSkinOffice2010Black,
  dxSkinOffice2010Blue, dxSkinOffice2010Silver, dxSkinPumpkin, dxSkinSeven,
  dxSkinSevenClassic, dxSkinSharp, dxSkinSharpPlus, dxSkinSilver,
  dxSkinSpringTime, dxSkinStardust, dxSkinSummer2008,
  dxSkinTheAsphaltWorld, dxSkinsDefaultPainters, dxSkinValentine,
  dxSkinVS2010, dxSkinWhiteprint, dxSkinXmas2008Blue, dxSkinscxPCPainter,
  cxCustomData, cxFilter, cxData, cxDataStorage, cxEdit, DB, cxDBData,
  cxGridLevel, cxClasses, cxGridCustomView, cxGridCustomTableView,
  cxGridTableView, cxGridDBTableView, cxGrid, ExtCtrls, Menus, Grids,
  DBGrids, StdCtrls, ZAbstractRODataset, ZAbstractDataset, ZDataset,
  ZAbstractConnection, ZConnection, DBCtrls, cxContainer, cxImage, Buttons,
  PropFilerEh, PropStorageEh;

type
  TForm1 = class(TForm)
    mm1: TMainMenu;
    pnl1: TPanel;
    mniN1: TMenuItem;
    mniN2: TMenuItem;
    mniN3: TMenuItem;
    GroupBox1: TGroupBox;
    DBGrid1: TDBGrid;
    GroupBox2: TGroupBox;
    dbgrd1: TDBGrid;
    ZConnection1: TZConnection;
    ZQuery1: TZQuery;
    DataSource1: TDataSource;
    Image2: TImage;
    ZQuery2: TZQuery;
    DataSource2: TDataSource;
    BitBtn1: TBitBtn;

    procedure BitBtn1Click(Sender: TObject);
    procedure mniN3Click(Sender: TObject);

  private
    { Private declarations }
  public
    { Public declarations }

  end;

var
  Form1: TForm1;
    L:Integer;
    H:Integer;
    Q:Integer;
    ld:Integer;
    hd:Integer;
    P:Integer;
    j:Integer;
    i:Integer;
    X,Y, X2, Y2:Integer;
    a: integer;

implementation

{$R *.dfm}




procedure TForm1.BitBtn1Click(Sender: TObject);
begin
  while not ZQuery1.Eof do
  begin
   H := ZQuery1.FieldByName('x_list').Value;// ширина листа
   L := ZQuery1.FieldByName('y_list').Value;// длина листа

   Image2.Width:= H;  
   Image2.Height := L;  
   X:= 0;     //начальные координаты
   Y:= 0;
   i:= 0;      //количество деталей

   ZQuery2.First;
   while not ZQuery2.Eof do
    begin
     hd := ZQuery2.FieldByName('x_det').Value;   // ширина детали
     ld := ZQuery2.FieldByName('y_det').Value;   // длина детали
     P  := ZQuery2.FieldByName('k_det').Value;   // количество деталей
     X2 := 0;
     Y2 := 0;
     a := 5; // отступ от края листа и между деталями
       while (Y < L) and ((Y2+ld) < L) and not ZQuery2.Eof do
       begin
         while (X < H) and ((X2+hd) < H) and not ZQuery2.Eof do
         begin
          Image2.Canvas.Rectangle((X+a),(Y+a),(hd+X2),(ld+Y2));
           i:= i+1;  //количество деталей
           X := X+hd; //перемещаемся вправо
           X2 := X2+hd;
          if i = P then
          begin
           ZQuery2.Next;
           i := 0;
           hd := ZQuery2.FieldByName('x_det').Value;   
           ld := ZQuery2.FieldByName('y_det').Value;   
           P  := ZQuery2.FieldByName('k_det').Value;   
          end;

         end;
         Y := Y+ld; //переход на новый ряд
         X := 0;
         X2 := 0;
         Y2 := Y2+ld;
       end;
     ZQuery2.Next;
    end;
    ZQuery1.Next;
  end;

end;
procedure TForm1.mniN3Click(Sender: TObject);
begin
 Close;
end;

end.