线材优化含源码.xls
《线材优化含源码.xls》由会员分享,可在线阅读,更多相关《线材优化含源码.xls(5页珍藏版)》请在三一文库上搜索。
1、原料名50A-36刀缝5mm 需要长度数量原料长度6000mm 10882 105050 1048100 104595 98065 计算 线线条条材材优优化化专专业业版版本本 本本次次下下料料方方案案如如下下:时间:2012年8月23日 原材料50A-36 原原材材料料 长长度度: 6000mm刀刀缝缝:5mm 合合计计共共 用用料料: 61根剩剩余余料料头头:42294mm利利用用率率: 88.44% 序号下料方法根数每根剩余 11088mm2 1050mm3 1654 21050mm5 9730 31050mm2 1048mm3 1736 41048mm5 19740 51048mm2 1
2、045mm3 1749 61045mm5 18755 71045mm2 980mm3 1950 8980mm6 1095 9980mm2 14035 Option Explicit Sub xiaodao() Sheets(“下料“).Select 从大到小排序 Sheets(“下料“).Range(“A3:B65536“).Sort key1:=Range(“A4“), Order1:=xlDescending, Header:=xlGuess, _ OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, SortMetho
3、d _ :=xlPinYin, DataOption1:=xlSortNormal Sheets(“输出“).Range(“A6:G65536“).ClearContents Dim hmax, pxid, i, l, t, h, wyid, mlgs As Integer Dim lzg, zx, df, yc, temp1, temp2, sumtol As Single Dim sczh As Variant Dim scc As String lzg = Application.WorksheetFunction.Sum(Sheets(“下料“).B4:B65536) zx = App
4、lication.WorksheetFunction.Min(Sheets(“下料“).A4:A65536) df = Sheets(“下料“).d2 yc = Sheets(“下料“).d3 Dim px(), zgs(), wy() ReDim px(1 To lzg) px数组为所有条材从大到小排序 pxid = 1 For i = 4 To Sheets(“下料“).A65536.End(xlUp).Row temp1 = Sheets(“下料“).Cells(i, 1).Value temp2 = Sheets(“下料“).Cells(i, 2).Value For l = 1 To
5、 temp2 px(pxid) = temp1 pxid = pxid + 1 Next Next zgs数组就是每根原料的属性,第二维的1组是组合方式,2组是长度 ReDim zgs(1 To lzg, 1 To 2) lzg假设用每根一个原料时共用多少原料 For t = 1 To lzg For h = 1 To lzg If h hmax Then hmax = h hmax最后得出的是用多少根原料 If Len(zgs(h, 1) = 0 Then zgs(h, 1) = px(t) zgs(h, 2) = px(t) Exit For Else If yc - zgs(h, 2)
6、- df - px(t) = 0 Then zgs(h, 1) = zgs(h, 1) & “+“ & px(t) zgs(h, 2) = zgs(h, 2) + df + px(t) Exit For End If End If Next Next wy数组是整合zgs数组即输出信息,第二维1组同zgs的第二维的1组的唯一, 2组每样剩余,3组处理1组使之更直观,4组是每样个数 ReDim wy(1 To hmax, 1 To 4) wy(1, 1) = zgs(1, 1) wy(1, 2) = yc - zgs(1, 2) wyid = 2 sumtol = zgs(1, 2) sumto
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- 线材 优化 源码
链接地址:https://www.31doc.com/p-5189603.html