矩形體排樣問題

// TypeSet.cpp: implementation of the CTypeset class.
//
//////////////////////////////////////////////////////////////////////

#include "stdafx.h"
#include "../INC/TypeSet.h"
//用法示例
void TestTypeset(HDC dc)
{
 //聲明一個板材對象
 CTypeset typeset;
 //設置板材對象大小
 typeset.m_Desktop.m_dHeight=9999;
 typeset.m_Desktop.m_dWidth=100;
 //聲明一個排樣元素對象
 CMaterial material;
 //設置排樣元素對象大小
 material.SetSize(20,99);
 //添加進入板材對象
 typeset.Add(&material);
 //繼續添加
 material.SetSize(99,80);
 typeset.Add(&material);
 material.SetSize(10,60);
 typeset.Add(&material);
 material.SetSize(50,20);
 typeset.Add(&material);
 //添加完畢，進行排樣
 typeset.Go();
 //排樣完畢，輸出
 list<CMaterial*>::iterator iter;
 //畫板材對象
 ::Rectangle(dc,typeset.m_Desktop.m_dX,typeset.m_Desktop.m_dY,
  typeset.m_Desktop.m_dX+typeset.m_Desktop.m_dWidth,
  typeset.m_Desktop.m_dY+typeset.m_Desktop.m_dHeight);
 //畫排樣元素對象
 for(iter=typeset.m_MaterialList.begin();iter!=typeset.m_MaterialList.end();iter++)
 {
  ::Rectangle(dc,(*iter)->m_dX,(*iter)->m_dY,
   (*iter)->m_dX+(*iter)->m_dWidth,
   (*iter)->m_dY+(*iter)->m_dHeight);
 }
 
}
//////////////////////////////////////////////////////////////////////
// CMaterial Class
//////////////////////////////////////////////////////////////////////

//////////////////////////////////////////////////////////////////////
// Construction/Destruction
//////////////////////////////////////////////////////////////////////
#define ZERO 0.00001

CMaterial::CMaterial()
{
 m_dHeight=100;
 m_dWidth=100;
 m_dX=0;
 m_dY=0;
 m_bUsed=FALSE;
 m_bSeletcted=FALSE;
 m_bRotated=FALSE;
 m_iIndex=0;
}
CMaterial::CMaterial(double dWidth,double dHeight)
{
 SetSize(dWidth,dHeight);
 m_dX=0;
 m_dY=0;
 m_bUsed=FALSE;
 m_bSeletcted=FALSE;
 m_bRotated=FALSE;
 m_iIndex=0;
}
CMaterial::CMaterial(CMaterial *pMaterial)
{
 m_dX=pMaterial->m_dX;
 m_dY=pMaterial->m_dY;
 m_dHeight=pMaterial->m_dHeight;
 m_dWidth=pMaterial->m_dWidth;
 m_bUsed=pMaterial->m_bUsed;
 m_bSeletcted=pMaterial->m_bSeletcted;
 m_bRotated=pMaterial->m_bRotated;
 m_iIndex=pMaterial->m_iIndex;
}
void CMaterial::SetSize(double dWidth, double dHeight)
{
 m_dHeight=dHeight;
 m_dWidth=dWidth;
 
}
void CMaterial::Rotated()
{
 m_bRotated=!m_bRotated;
 double dA=m_dHeight;
 m_dHeight=m_dWidth;
 m_dWidth=dA;
}

CMaterial::~CMaterial()
{
}
//////////////////////////////////////////////////////////////////////
// Construction/Destruction
//////////////////////////////////////////////////////////////////////

CTypeset::CTypeset()
{
 Clear();
}

CTypeset::~CTypeset()
{
 Clear(); 
}

void CTypeset::Clear()
{
 list<CMaterial*>::iterator iter;
 for(iter=m_MaterialList.begin();iter!=m_MaterialList.end();iter++)
 {
  delete (*iter);
 }
 m_MaterialList.clear();
 m_iCurIndex=0;
}

void CTypeset::Add(CMaterial *pMaterial)
{
 CMaterial *p=new CMaterial(pMaterial);
 p->m_iIndex=m_iCurIndex;
 m_MaterialList.insert(m_MaterialList.end(),p);
 m_iCurIndex++;
}

void CTypeset::Sort()
{
 list<CMaterial*> MaterialList;
 list<CMaterial*>::iterator iter1,iter2,iter3;
 bool bSourceInvert=false;
 while (!m_MaterialList.empty())
 {
  double dMaxLen=0;
  iter2=m_MaterialList.begin();
  CMaterial *p=NULL;
  iter1=m_MaterialList.end()--;
  iter3=iter2;
  while(iter2!=iter1)
  {
   if((*iter2)->m_dWidth>dMaxLen)
   {
    p=*iter2;
    iter3=iter2;
    dMaxLen=(*iter2)->m_dWidth;
    bSourceInvert=false;
   }
   if((*iter2)->m_dHeight>dMaxLen)
   {
    p=*iter2;
    iter3=iter2;
    dMaxLen=(*iter2)->m_dHeight;
    bSourceInvert=true;
   }
   iter2++;
  }
  if(p!=NULL)
  {
   if(bSourceInvert)
    p->Rotated();  
   MaterialList.insert(MaterialList.end(),p);
   m_MaterialList.erase(iter3);
  }
 }
 m_MaterialList.clear();
 for(iter1=MaterialList.begin();iter1!=MaterialList.end();iter1++)
 {
  m_MaterialList.insert(m_MaterialList.end(),(*iter1));
 }
 MaterialList.clear();
}
double CTypeset::Go()
{
 double dRet=0;
 list<CMaterial*> List;
 list<CMaterial*>::iterator iter;
 Sort();
 Typeset(m_Desktop.m_dX,m_Desktop.m_dY,
  m_Desktop.m_dWidth,m_Desktop.m_dHeight,&List);
 m_MaterialList.clear();
 for(iter=List.begin();iter!=List.end();iter++)
 {
  if((*iter)->m_dX<ZERO)
  {
   dRet+=(*iter)->m_dY;
  }
  (*iter)->m_bUsed=FALSE;
  (*iter)->m_bSeletcted=FALSE;
  m_MaterialList.insert(m_MaterialList.end(),(*iter));
 }
 List.clear();
 return dRet;
}

double CTypeset::Typeset(double dStartX,double dStartY,double dStartHei,double dStartWid,
       list<CMaterial*> *pList)
{
 CMaterial  *tmpunit=NULL;
 list<CMaterial*>::iterator iter,iter1;
 double  dArea1,dArea2,dArea;//橫放和豎放時的排樣面積,和最後方案的排樣面積
 double  dRestArea1,dRestArea2;//橫放和豎放時排樣後的剩餘面積
 list<CMaterial*> List1,List2;////橫放和豎放時的最佳排樣序列
 double  dHeight,dWidth;

 dHeight=dStartHei;
 dWidth=dStartWid;

 if(m_MaterialList.empty())
  return 0;
 for(iter=m_MaterialList.begin();iter!=m_MaterialList.end();iter++)
 {
  if((*iter)->m_bUsed!=FALSE)
   continue;
  if((*iter)->m_dWidth<(*iter)->m_dHeight)
  {
   MessageBox(NULL,"錯誤","ERROR",MB_OK);
   return 0;
  }

  //找出一張能放入的最大的沒有排過的板材
  //如果板材橫豎都能放入
  if(((dHeight>(*iter)->m_dWidth-ZERO)&&(dWidth>(*iter)->m_dHeight-ZERO))
   &&((dHeight>(*iter)->m_dHeight-ZERO)&&(dWidth>(*iter)->m_dWidth-ZERO)))
  { 
   if(dStartX<ZERO)
    dWidth=(*iter)->m_dHeight;

   (*iter)->SetUsed(TRUE);//對該圖排樣

   //先橫着放入繼續排樣，計算剩餘面積
   dArea1=Typeset(dStartX+(*iter)->m_dWidth,dStartY,
      dHeight-(*iter)->m_dWidth,(*iter)->m_dHeight,&List1);
   dRestArea1=dHeight*dWidth-dArea1-(*iter)->GetArea();
   dRestArea1=dRestArea1/(dHeight*dWidth);//剩餘面積率

   //將剛纔排過的板材狀態還原，再豎直放入該圖繼續排樣，計算剩餘面積
   if(dStartX<ZERO)
    dWidth=(*iter)->m_dWidth;

   SetStatus(&List1,FALSE);
   tmpunit=(*iter)->Copy();
   tmpunit->Rotated();
   dArea2=Typeset(dStartX+tmpunit->m_dWidth,dStartY,
      dHeight-tmpunit->m_dWidth,tmpunit->m_dHeight,&List2);
   dRestArea2=dHeight*dWidth-dArea2-tmpunit->GetArea();
   dRestArea2=dRestArea2/(dHeight*dWidth);//剩餘面積率
  }
  else if((dHeight>(*iter)->m_dWidth-ZERO)&&(dWidth>(*iter)->m_dHeight-ZERO))//如果板材只能橫着放入
  {
   if(dStartX<ZERO)
    dWidth=(*iter)->m_dHeight;

   (*iter)->SetUsed(TRUE);//對該圖排樣
   dArea1=Typeset(dStartX+(*iter)->m_dWidth,dStartY,
      dHeight-(*iter)->m_dWidth,(*iter)->m_dHeight,&List1);
   dRestArea1=dHeight*dWidth-dArea1-(*iter)->GetArea();
   dRestArea1=dRestArea1/(dHeight*dWidth);//剩餘面積率

   dRestArea2=dRestArea1+10;//不再嘗試豎放，將豎放剩餘面積設大
  }
  else if((dHeight>(*iter)->m_dHeight-ZERO)&&(dWidth>(*iter)->m_dWidth-ZERO))//如果板材只能豎着放入
  {
   if(dStartX<ZERO)
    dWidth=(*iter)->m_dWidth;

   (*iter)->SetUsed(TRUE);//對該圖排樣
   tmpunit=(*iter)->Copy();
   tmpunit->Rotated();
   dArea2=Typeset(dStartX+tmpunit->m_dWidth,dStartY,
      dHeight-tmpunit->m_dWidth,tmpunit->m_dHeight,&List2);
   dRestArea2=dHeight*dWidth-dArea2-tmpunit->GetArea();
   dRestArea2=dRestArea2/(dHeight*dWidth);//剩餘面積率

   dRestArea1=dRestArea2+10;//不再嘗試橫放，將橫放剩餘面積設大
  }
  else
   continue;

  //記錄優化的排樣序列
  CMaterial *tmp=NULL;
  if(dRestArea1<dRestArea2+ZERO)//當前板材橫向排結果優化
  {
   SetStatus(&List2,FALSE);//將縱向排的排樣序列還原狀態
   SetStatus(&List1,TRUE);//將橫向排的排樣序列標誌爲使用
   dArea=dArea1+(*iter)->GetArea();;
   tmp=(*iter)->Copy();
   tmp->m_dX=(int)dStartX;
   tmp->m_dY=(int)dStartY;
   pList->insert(pList->end(),tmp);
   while(!List1.empty())
   {
    iter1=List1.begin();
    pList->insert(pList->end(),*iter1);
    List1.erase(iter1);
   }
   //釋放不好的序列
   for(iter1=List2.begin();iter1!=List2.end();iter1++)
   {
    delete (*iter1);
   }
   List2.clear();
   delete tmpunit;
  }
  else//當前板材縱向排結果優化
  {
   SetStatus(&List1,FALSE);//將橫向排的排樣序列還原狀態
   SetStatus(&List2,TRUE);//將縱向排的排樣序列標誌爲使用
   if(tmpunit==NULL)
   {
    MessageBox(NULL,"錯誤","ERROR",MB_OK);
    return 0;
   }
   
   dArea=dArea2+(*iter)->GetArea();
   tmp=tmpunit->Copy();
   tmp->m_dX=(int)dStartX;
   tmp->m_dY=(int)dStartY;
   pList->insert(pList->end(),tmp);
   while(!List2.empty())
   {
    iter1=List2.begin();
    pList->insert(pList->end(),*iter1);
    List2.erase(iter1);
   }
   //釋放不好的序列
   for(iter1=List1.begin();iter1!=List1.end();iter1++)
   {
    delete (*iter1);
   }
   List1.clear();

   delete tmpunit;
  }
  double next_x,next_y,next_len,next_wid;
  next_x=dStartX;
  next_y=dStartY+tmp->m_dHeight;
  next_len=dHeight;
  next_wid=dStartWid-tmp->m_dHeight;
  if(next_wid>ZERO)//板材還有剩餘
  {
   //繼續排下一行
   dArea=dArea+Typeset(next_x,next_y,next_len,next_wid,&List1);
   //記錄排樣序列
   SetStatus(&List1,TRUE);
   for(iter1=List1.begin();iter1!=List1.end();iter1++)
   {
    pList->insert(pList->end(),(*iter1));
   }
   List1.clear();
  }
  return dArea;
 }
 return 0;
}

void CMaterial::SetUsed(BOOL bUsed)
{
 m_bUsed=bUsed;
}

void CTypeset::SetStatus(list<CMaterial*> *pList, BOOL bUsed)
{
 list<CMaterial*>::iterator iter1,iter2;
 for(iter1=m_MaterialList.begin();iter1!=m_MaterialList.end();iter1++)
 {
  for(iter2=pList->begin();iter2!=pList->end();iter2++)
  {
   if((*iter1)->m_iIndex==(*iter2)->m_iIndex)
   {
    (*iter1)->m_bUsed=bUsed;
   }
  }
 }
}

CMaterial* CMaterial::Copy()
{
 CMaterial* p=new CMaterial(this);
 return p;
}

 

// TypeSet.h: interface for the CTypeset class.
//
//////////////////////////////////////////////////////////////////////

#if !defined(AFX_TYPESET_H__46213FAE_D2D6_42A6_B801_41D9109CD0FB__INCLUDED_)
#define AFX_TYPESET_H__46213FAE_D2D6_42A6_B801_41D9109CD0FB__INCLUDED_

#if _MSC_VER > 1000
#pragma once
#endif // _MSC_VER > 1000
#pragma warning(disable:4786)
#pragma warning(disable:4251)
#include <list>
#include <string>
using namespace std;

#ifdef TYPESETLIB_EXPORTS
#define TYPESETLIB_API __declspec(dllexport)
#else
#define TYPESETLIB_API __declspec(dllimport)
#endif

TYPESETLIB_API void TestTypeset(HDC dc);

class TYPESETLIB_API CMaterial 
{
public:
 virtual CMaterial* Copy();
 virtual void SetUsed(BOOL bUsed);
 virtual void Rotated();
 virtual void SetSize(double dWidth,double dHeight);
 virtual double GetArea(){ return m_dHeight*m_dWidth; }
 CMaterial();
 CMaterial(CMaterial *pMaterial);
 CMaterial(double dWidth,double dHeight);
 virtual ~CMaterial();
 double m_dHeight,m_dWidth;
 double m_dX,m_dY;
 BOOL m_bUsed;
 BOOL m_bSeletcted;
 BOOL m_bRotated;
 int m_iIndex;
 
};
class TYPESETLIB_API CTypeset 
{
public:
 virtual double Go();
 virtual void Add(CMaterial *pMaterial);
 CTypeset();
 virtual ~CTypeset();
 list<CMaterial*> m_MaterialList;
 CMaterial m_Desktop;
protected:
 virtual void SetStatus(list<CMaterial*> *pList, BOOL bUsed);
 virtual double Typeset(double dStatrX,double dStatrY,double dStatrHei,double dStatrWid,
  list<CMaterial*> *pList);
 virtual void Sort();
 virtual void Clear();
 int m_iCurIndex;
};

#endif // !defined(AFX_TYPESET_H__46213FAE_D2D6_42A6_B801_41D9109CD0FB__INCLUDED_)