求VBA凑数(多元一次方程求解) 序号 零件名称 牌号 每架件数 零件规格(厚*宽*长) 进料长度 修整端头 可制件数 余料尺寸 再制尺寸 余料尺寸 利用率 备注 (%) 1 第1片 51CrV4 1 15 * 90 * 1728 6000 30 3 786 610 176 96.6 第5片 2 第2片 51CrV4 1 15 * 90 * 1728 6000 30 3 786 760 26 99.1 第6片
问题:相同规格材料的进料长度一致的前提下,利用长度拼凑后,使得不能利用的材料≤2%(若有个别零件大于2%,不允许超过3%) 限制:①可以修改进料长度,但相同规格材料的进料长度一致,且长度在5500-6500之间取50的整数,例如6050 ②可以修改端头30,只要满足0<端头<60即可
例如,进料规格是15*90*6000,加工第1片(长度为1728),为了保证利用率,余料尺寸+修整端头≤6000*2%(即120) 方案1:余料尺寸+修整端头=进料长度-已利用长度=6000(进料)-1728(第1片长)*3-610(第5片长)=206 因为>120,所以方案1× 方案2:余料尺寸+修整端头=进料长度-已利用长度=6000(进料)-3*1728(第1片长)-2*380(第5片长)=56 因为<120,所以方案2√
求大神用VBA优化凑数(对每行都进行规划求解貌似实现不了),能自动求出当满足废料率≤2%时的进料长度和再制件长度
|