apis/examples_dotnet/CutstockGUI_2Form1_8cs_source.html

사용 중시스템;

사용 중System.Collections.Generic;

사용 중System.ComponentModel;

사용 중시스템.데이터;

사용 중시스템.드로잉;

사용 중System.Linq;

사용 중시스템.텍스트;

사용 중System.Windows.Forms;

사용 중메가 슬롯;

사용 중시스템.반사;

사용 중System.Data.OleDb;


네임스페이스CutStockGUI

{


    공개 부분 수업양식1: 양식

{

        비공개목록<string> 컷 =신규목록<문자열>()"i1", "i2", "i3", "i4"};

        비공개사전<string, int> d =신규사전<string, int>()"i1", 97 }, {"i2", 610 }, {"i3", 395 }, {"i4", 211 } };

        비공개사전<string, int> w =신규사전<string, int>()"i1", 47 }, {"i2", 36 }, {"i3", 31 }, {"i4", 14 } };

        비공개 intr = 100;// 원시 너비

        비공개 int최대 패턴 = 35;

        비공개 intnrCuts = 0;

        비공개목록<색상> 색상 =신규목록<색상>()  Color.FromArgb(255, 192, 255, 255), Color.FromArgb(255, 255, 255, 192),

Color.FromArgb(255, 192, 255, 192), Color.FromArgb(255, 255, 224, 192),

Color.FromArgb(255, 255, 192, 255), Color.FromArgb(255, 129, 255, 192),

Color.FromArgb(255, 192, 192, 255), Color.FromArgb(255, 255, 192, 192),

Color.FromArgb(255, 100, 192, 220), Color.FromArgb(255, 129, 100, 192),

Color.FromArgb(255, 192, 192, 100), Color.FromArgb(255, 255, 192, 100) ;


        공개 양식1()

{

초기화구성요소();

nudWidth.Value = r;

nudMax.Value = 최대 패턴;


            // 절단 너비 추가

            foreach (문자열iin컷)

{

flowLayoutPanel1.Controls.Add(신규 CutWidthsControl(i, w[i], (int) nudWidth.Value, d[i], colors[nrCuts%colors.Count], nudWidth));

nrCuts++;

}

}


        //새 절단 너비 추가

        비공개 무효button3_Click(객체발신자, EventArgs e)

{

flowLayoutPanel1.Controls.Add(신규 CutWidthsControl("나"+ (nrCuts + 1), (int)nudWidth.값, (int)nudWidth.Value, 0, colors[nrCuts % colors.Count], nudWidth));

flowLayoutPanel1.VerticalScroll.Value = flowLayoutPanel1.VerticalScroll.Maximum;

flowLayoutPanel1.Update();

flowLayoutPanel1.VerticalScroll.Value = flowLayoutPanel1.VerticalScroll.Maximum;

nrCuts++;

}


        //마지막 절단 너비 삭제

        비공개 무효button2_Click(객체발신자, EventArgs e)

{

            if(nrCuts <= 1)

MessageBox.Show("적어도 하나는 있어야 하기 때문에 마지막 절단 너비를 삭제할 수 없습니다.");

            그밖에

{

flowLayoutPanel1.Controls.RemoveAt(nrCuts-1);

flowLayoutPanel1.Update();

nrCuts--;

}

}


        비공개 무효button1_Click(객체발신자, EventArgs e)

{

richTextBox1.Clear();

tabControl1.Visible =거짓;

tabControl1.TabPages.Clear();

            시도해 보세요

{

                메가 슬롯작업공간ws =신규 메가 슬롯작업공간();


                // GAMSOptions 인스턴스화 및 매개변수 정의

                메가 슬롯옵션opt = ws.추가옵션();

                메가 슬롯데이터베이스cutstockData = ws.데이터베이스 추가("csdata");

opt.AllModelTypes ="CBC";

opt.OptCR = 0.0;// 최적으로 해결

선택.정의.추가("pmax", nudMax.Value.ToString());

선택.정의.추가("solveMasterAs", "RMIP");


                GAMSSet너비 = cutstockData.AddSet("나", 1,"너비");

                메가 슬롯매개변수rawWidth = cutstockData.매개변수 추가("r", 0,"원시 너비");

                메가 슬롯매개변수수요 = cutstockData.매개변수 추가("d", 1,"수요");

                메가 슬롯매개변수너비 = cutstockData.매개변수 추가("w", 1,"너비");


원시 너비.AddRecord().값= (int)nudWidth.Value;


                foreach(CutWidthsControl컷폭inflowLayoutPanel1.Controls)

{

widths.AddRecord(cutWidth.Name);

demand.AddRecord(cutWidth.Name).Value = cutWidth.DemandValue;

너비.AddRecord(cutWidth.Name).Value = cutWidth.WidthValue;

}


                // 초기 체크포인트 생성

                메가 슬롯체크포인트masterCP = ws.AddCheckpoint();

                GAMSJobmasterInitJob = ws.AddJobFromString(GetMasterModel());

masterInitJob.실행(opt, masterCP, cutstockData);


                GAMSJobmasterJob = ws.AddJobFromString("execute_load 'csdata', aip, pp; %solveMasterAs%를 사용하여 마스터 min z 해결;", 마스터CP);


                GAMSSet패턴 = cutstockData.AddSet("pp", 1,"패턴 색인");

                메가 슬롯매개변수patternData = cutstockData.AddParameter("아이피", 2,"패턴 데이터");


                // 초기 패턴: 패턴 i는 너비 i를 유지합니다.

                int패턴수 = 0;


                foreach (GAMSParameterRecordrecin폭)

{

patternData.AddRecord(rec.Keys[0], 패턴.AddRecord((++patternCount).ToString()).Keys[0]).Value = (int)((int)nudWidth.값/rec.값);

}


                // 하위 작업에 대한 모델 인스턴스 생성

                메가 슬롯체크포인트subCP = ws.AddCheckpoint();

ws.AddJobFromString(GetSubModel()).Run(opt, subCP, cutstockData);

                GAMSModelInstancesubMI = 하위 CP.AddModelInstance();


                // 수식어 demdual 정의

                메가 슬롯매개변수demandDual = subMI.SyncDB.매개변수 추가("뎀듀얼", 1,"마스터의 이중 요구");

subMI.인스턴스화("mip를 사용하여 min z 가격 책정", 선택,신규 GAMSModifier(demandDual));


                // 새로운 패턴 찾기

                부울패턴 추가됨 =참;

                할

{

masterJob.Run(opt, masterCP, cutstockData);

                    // gmssubMI.SyncDB DB에 이중 복사

demandDual.Clear();

                    foreach (GAMSequationRecorddeminmasterJob.OutDB.GetEquation("수요"))

수요이중.AddRecord(dem.Keys[0]).값= dem.한계;


subMI.해결();

                    if(subMI.SyncDB.GetVariable("z").기록 찾기().레벨< -0.00001)

{

                        if(patternCount == maxpattern)

{

richTextBox1.AppendText("패턴이 벗어났습니다. 최대 패턴을 늘리십시오(현재 "+ nudMax.Value +")."+ Environment.NewLine);

패턴 추가됨 =거짓;

}

                        그밖에

{

richTextBox1.AppendText("새 패턴! 값: "+ 하위MI.SyncDB.GetVariable("z").기록 찾기().레벨+ Environment.NewLine);

richTextBox1.ScrollToCaret();

                            GAMSSetRecords = 패턴.AddRecord((++patternCount).ToString());

                            foreach (GAMSVariableRecordyinsubMI.SyncDB.GetVariable("y"))

{

                                if(y.레벨> 0.5)

{

patternData.AddRecord(y.Keys[0], s.Keys[0]).Value = Math.Round(y.레벨);

}

}

}

}

                    그밖에패턴 추가됨 =거짓;

}그동안(패턴 추가됨);


                // 최종 MIP 해결

opt.정의["solveMasterAs"] ="MIP";

masterJob.Run(opt, cutstockData);

richTextBox1.AppendText("최적의 해결책: "+ masterJob.OutDB.GetVariable("z").FindRecord().레벨 + Environment.NewLine); richTextBox1.ScrollToCaret();

tabControl1.Visible =참;

                foreach (GAMSVariableRecordxpinmasterJob.OutDB.GetVariable("xp"))

{

                    if(xp.레벨> 0.5)

{

richTextBox1.AppendText(String.Format(" 패턴 0,2 1,4 회: ", xp.Keys[0], Math.Round(xp.레벨))); richTextBox1.ScrollToCaret();

                        GAMSParameterRecordaip = masterJob.OutDB.GetParameter("aip").첫 번째 레코드(" ", xp.Keys[0]);

탭페이지 tp =신규탭페이지("패턴"+ xp.Keys[0].ToString());

tp.BackColor = Color.White;

tabControl1.TabPages.Add(tp);


                        intx = 0;

                        더블scale = tp.Width/masterJob.OutDB.GetParameter("r").FirstRecord().값;

                        할 것

{

richTextBox1.AppendText(" "+ aip.Keys[0] +": "+ aip.값.ToString()); richTextBox1.ScrollToCaret();

                            // 드로컷

                            for (inti = 0; 나 <알았어.값; 나++)

{

패널 p =신규패널();

p.BorderStyle = BorderStyle.FixedSingle;

p.BackColor = flowLayoutPanel1.Controls.Find(aip.Keys[0],참)[0].BackColor;

p.높이 = tp.높이;

p.Width = (int) (width.FindRecord(aip.Keys[0]).Value * scale);

p.왼쪽 = x;

x += p.너비 - 1;

tp.Controls.Add(p);

}

}그동안(aip.MoveNext());


패널 pExcess =신규패널();

pExcess.BorderStyle = BorderStyle.FixedSingle;

pExcess.BackColor = Color.LightGray;

pExcess.Height = tp.Height;

pExcess.Width = (int) (rawWidth.FirstRecord().Value*scale - x);

pExcess.Left = x;

tp.Controls.Add(pExcess);


richTextBox1.AppendText(Environment.NewLine); richTextBox1.ScrollToCaret();

}

}

                // 관리되지 않는 리소스 정리

cutstockData.Dispose();

subMI.Dispose();

opt.Dispose();

}

            잡기(예외 예)

{

richTextBox1.AppendText("예외: "+ 예: 메시지);

}

}


        정적문자열 GetMasterModel()

{

문자열 모델 =@"

$Title 절단 재고 - 마스터 문제


i 너비 설정

매개변수

w(i) 너비

d(i) 수요

스칼라

r 원시 너비;

$gdxin csdata

$load i w d r


$pmax를 설정하지 않은 경우 $set pmax 1000

p개의 가능한 패턴 설정 /1*%pmax%/

pp(p) p의 동적 하위 집합

매개변수

aip(i,p) p에서 성장하는 패턴의 너비 i 수;


* 마스터 모델

변수 xp(p) 패턴이 사용됨

z 목적변수

정수 변수 xp; xp.up(p) = 합계(i, d(i));


사용된 패턴의 방정식 숫자

수요(i) 수요를 충족함;


numpat.. z =e= sum(pp, xp(pp));

수요(i).. sum(pp, aip(i,pp)*xp(pp)) =g= d(i);


모델 마스터 /numpat, 수요/;";


            반환모델;

}

        정적문자열 GetSubModel()

{

문자열 하위 모델 =@"

$제목 절단 재고 - 가격 문제는 배낭 모델임


i 너비 설정

매개변수

w(i) 너비;

스칼라

r 원시 너비;


$gdxin csdata

$load i w r


매개변수

demdual(i) 마스터 수요 제약 조건의 이중 /#i eps/;


변수 z, y(i) 새로운 패턴;

정수 변수 y; y.up(i) = ceil(r/w(i));


수식 defobj

배낭 배낭 제약 조건;


defobj.. z =e= 1 - sum(i, demdual(i)*y(i));

배낭.. sum(i, w(i)*y(i)) =l= r;

옵션 optcr=0;

모델 가격 /defobj, 배낭/; 가격.optfile=1";


            반환하위 모델;

}


        비공개 공허button4_Click(객체발신자, EventArgs e)

{

OpenFileDialog 브라우저 =신규OpenFileDialog();


browser.DefaultExt ="accdb";

browser.Filter ="액세스 데이터베이스(*.accdb)|*.accdb";

browser.InitialDirectory = 환경.CurrentDirectory;


            if(browser.ShowDialog() == DialogResult.OK)

{

                // 액세스 데이터베이스에서 읽기

OleDbConnection 연결 =널;

                시도해 보세요

{

연결 =신규OleDbConnection("공급자=Microsoft.ACE.OLEDB.12.0;데이터 소스="+ 브라우저.파일 이름);


                    // 절단 너비 삭제

                    그동안(nrCuts>0)

{

flowLayoutPanel1.Controls.RemoveAt(nrCuts-1);

nrCuts--;

}

flowLayoutPanel1.Update();


OleDbCommand cmd =신규OleDb명령("RawWidth에서 너비 선택", 연결);

연결.열기();

OleDbDataReader 리더 = cmd.ExecuteReader();

                    그동안(reader.Read())

{

nudWidth.Value = (int)reader.GetValue(0);

nudWidth.Update();

}


cmd =신규OleDb명령("CutWidths에서 라벨, 너비, 수요 선택", 연결);

reader = cmd.ExecuteReader();

                    그동안(reader.Read())

flowLayoutPanel1.Controls.Add(신규 CutWidthsControl(reader.GetString(0), (int)reader.GetValue(1), (int)nudWidth.값, (int)reader.GetValue(2), colors[nrCuts % colors.Count], nudWidth));

flowLayoutPanel1.VerticalScroll.Value = flowLayoutPanel1.VerticalScroll.Maximum;

flowLayoutPanel1.Update();

flowLayoutPanel1.VerticalScroll.Value = flowLayoutPanel1.VerticalScroll.Maximum;

nrCuts++;

}

연결.닫기();

}

                잡기(예외 예)

{

MessageBox.Show("데이터베이스에서 데이터를 읽는 동안 오류가 발생했습니다. \n"+ 예: 메시지);

연결.닫기();

환경.종료(1);

}

}


}

}


}

CutStockGUI.CutWidthsControl
정의 CutWidthsControl.cs:13

CutStockGUI.Form1
이 예에서는 데이터베이스에서 데이터를 로드하거나 수동으로 데이터를 입력할 수 있습니다....
정의 Form1.cs:22

메가 슬롯::메가 슬롯체크포인트

메가 슬롯::GAMSCheckpoint::AddModelInstance
GAMSModelInstance AddModelInstance(string modelInstanceName=null)

메가 슬롯::메가 슬롯데이터베이스

메가 슬롯::메가 슬롯데이터베이스::GetVariable
GAMSVariable GetVariable(문자열 변수 식별자)

메가 슬롯::GAMSDatabase::AddSet
GAMSSet AddSet(문자열 식별자, int 차원, 문자열 설명Text="", SetType setType=SetType.multi)

메가 슬롯::GAMSDatabase::AddParameter
GAMSParameter AddParameter(문자열 식별자, 정수 차원, 문자열 설명텍스트="")

메가 슬롯::GAMSequationRecord

메가 슬롯::GAMSequationRecord::Marginal
이중 한계

메가 슬롯::GAMSJob

메가 슬롯::GAMSJob::실행
void Run(GAMSOptions gamsOptions=null, GAMSCheckpoint 체크포인트=null, TextWriter 출력=null, Boolean createOutDB=true)

메가 슬롯::GAMSModelInstance

메가 슬롯::GAMSModelInstance::SyncDB
메가 슬롯데이터베이스 SyncDB

메가 슬롯::GAMSModelInstance::해결
void Solve(SymbolUpdateType 업데이트 유형=SymbolUpdateType.BaseCase, TextWriter 출력=null, GAMSModelInstanceOpt miOpt=null)

메가 슬롯::GAMSModelInstance::인스턴스화
void 인스턴스화(문자열 모델 정의, params GAMSModifier[] 수정자)

메가 슬롯::GAMSModifier

메가 슬롯::메가 슬롯옵션

메가 슬롯::메가 슬롯옵션::정의
사전< 문자열, 문자열 > 정의

메가 슬롯::GAMSParameterRecord

메가 슬롯::GAMSParameterRecord::값
이중 값

메가 슬롯::메가 슬롯매개변수

메가 슬롯::GAMSParameter::AddRecord
새 GAMSParameterRecord AddRecord(params 문자열[] 키)

메가 슬롯::GAMSSetRecord

메가 슬롯::GAMSSet

메가 슬롯::GAMSVariableRecord

메가 슬롯::GAMSVariableRecord::레벨
더블 레벨

메가 슬롯::GAMSVariable::FindRecord
새 GAMSVariableRecord FindRecord(params 문자열[] 키)

메가 슬롯::메가 슬롯작업공간

메가 슬롯::GAMSWorkspace::AddDatabase
GAMSDatabase AddDatabase(문자열 데이터베이스 이름=null, 문자열 inModelName=null)

메가 슬롯::GAMSWorkspace::AddOptions
GAMSOptions AddOptions(GAMSOptions optFrom=null)

CutStockGUI
정의 CutWidthsControl.cs:11

메가 슬롯