Anexo 1. Programas para solucionar el problema -Cutting Stock- a través del método de generación de columnas- Evaluación del método de generación de columnas para el problema de corte -Cutting Stock- usandReportar como inadecuado




Anexo 1. Programas para solucionar el problema -Cutting Stock- a través del método de generación de columnas- Evaluación del método de generación de columnas para el problema de corte -Cutting Stock- usand - Descarga este documento en PDF. Documentación en PDF para descargar gratis. Disponible también para leer online.

Anexo 1. Programas para solucionar el problema -Cutting Stock- a través del método de generación de columnas- Evaluación del método de generación de columnas para el problema de corte -Cutting Stock- usando heurísticas para la obtención de patrones de corte - Departamento de Ingeniería Industrial y Mecánica. - - Licenciatura en Ingeniería Industrial con áre

Autor: Díaz Smith, Santiago

Fuente: http://catarina.udlap.mx/


Introducción



Anexo Anexo 1.
Programas para solucionar el problema “Cutting Stock” a través del método de generación de columnas. A continuación se anexan los códigos de los diferentes programas utilizados para solucionar el problema “Cutting Stock” a través del método de generación de columnas. El Anexo 1.1 es el programa con el algoritmo tradicional, en el Anexo 1.2 se incluye la heurística para solucionar el problema de la mochila, en el Anexo 1.3 se incluye la heurística para obtener un patrón de corte inicial, y llegar a la solución optima con menos iteraciones, y en el Anexo 1.4 se encuentra el programa que utiliza ambas heurísticas. Anexo 1.1 Programa Algoritmo para solucionar el problema “Cutting Stock” a través del método de generación de columnas (Fair Isaac Corporation, 2008). model Cuttingstock uses -mmxprs- uses -mmsystem- forward procedure generacion_columnas forward function knapsack(C:array(range) of real, A:array(range) of real,B:real, mejor_x:array(range) of integer,pass: integer): real forward procedure nuevo_patron(columna: integer) forward procedure solucion declarations NO_FINALS: integer RAW: real end-declarations initializations from -cuttingstock.dat- NO_FINALS RAW end-initializations declarations FINALS = 1..NO_FINALS EPS = 1e-6 RP: range ANCHO: array(FINALS) of real DEMANDA: array(FINALS) of integer BASICA: array(FINALS,FINALS) of integer rollos_usados: array(RP) of mpvar solusados: array(RP) of real Dem: array(FINALS) of linctr MinRollos: linctr KnapsackRestricciones, ObjetivoKnapsack: linctr x: array(FINALS) of mpvar npase: integer matriz: array(FINALS,RP) of integer starttime,endtime: real end-declarations initializations from -cuttingstock.dat- ANCHO DEMANDA end-initializations starttime:= gettime forall(j in FINALS) BASICA(j,j) := floor(RAW-ANCHO(j)) writeln(-La Matriz Basica es: -) writeln forall(i in FINALS)do write(-Ancho= -,ANCHO(i), -: -) forall(j in FINALS )do write(BASICA(i,j),- -) end-do writeln end-do forall(j...






Documentos relacionados