沥青粗集料筛分自动编程

粗集料筛分试验检测记录表（水洗法）
记录编
试验复核：日期：2016年07月30日
粗集料筛分试验检测记录表（水洗法）
记录编
试验复核：日期：2016年07月30日
记录编
试验
复核：
日期：
粗集料筛分试验检测记录表（水洗法）
2016年07月30日
记录编
试验
复核：
日期：
粗集料筛分试验检测记录表（水洗法）
2016年07月30日
细集料筛分试验检测记录表（水洗法）
记录编
试验复核：日期：2016年07月30日
记录编
试验：
复核：日期：矿粉筛分试验检测记录表（水筛法）
试验室名称：四川诚通公路工程试验检测有限责任公司若瓦路改建工程SG3工地试验室JL-2016-KFJ-SG3-1-1-06
2016年07月30日。

一种沥青路面旧料筛分机的调试及改进【摘要】截至2014年底，中国大陆高速公路的通车总里程达11.195万公里，到2015年底全国高速公路通车总里程将达到12万公里！成为仅次于美国的高速公路大国。

随着高速公路的使用，道路的养护维修工作量不断增加，会产生大量的旧料，旧料的处理势必会增加费用，而且会造成环境的污染，近十几年来，旧料的利用技术逐渐引起相关人士的重视。

根据多路段的检测，铣刨下来的沥青路面旧料中沥青的含量仍在4%左右，所含石子等骨料以及粉料仍能重复利用，回收沥青路面材料（以下简称RAP）的利用具有较高的经济效益和社会效益。

【关键词】沥青路面旧料筛分机调试改进1旧料如何再次利用RAP再次用于沥青路面主要有两种方式，一种是采用冷再生施工工艺，将旧料与一定比例的新骨料、稳定剂拌和形成冷再生混合料，用于道路基层或下面层，另一种是采用热再生施工工艺，将RAP加热后与一定比例的新料、沥青、再生剂拌和形成热再生混合料，代替传统沥青混合料用于沥青路面的面层。

1.1铣刨后的旧料需要筛分沥青路面在铣刨过程中对石子的切削，造成了对石子等骨料的破坏，使RAP中细集料成份增多，粗集料减少。

在铣刨过程中会产生直径大于30mm的料块，不能直接使用，重新筛分，以筛选出可以利用的材料，根据旧粒径的不同，确定不同的添加量，以控制各集料的级配，最终制备出符合施工要求的混合料。

1.2 RAP的筛分是旧料利用过程中的主要环节之一目前还没有找到专门针对RAP的筛分机，所以研制一种适合RAP筛分的设备就显得非常重要。

我们在相关筛分机制造厂家的忙助下，制造了一种筛分机。

下面主要介绍该筛分机的结构，调试过程中出现的主要问题，以及改进方案，希望能给需要的朋友们带来帮助。

2筛分机结构概述筛分机结构概述：该筛分机采用电动振动筛的结构形式，如图1，主要有储料斗3，给料器2，皮带输送机12，后振动器4，筛箱5，前振动器6，粗筛网7、中筛网8，细筛网9，弹簧10，皮带输送机底座1，以及支腿11。

试验操作规程(路面)洛杉矶磨耗试验操作规程一、将不同规格的集料用水冲洗干净,置烘箱中烘干至恒重。

二、分级称量(准确至5g),称取总质量(m1),装入磨耗机之圆筒中。

三、选择钢球,使钢球的数量及总质量符合规定.将钢球加入钢筒中,盖好筒盖,紧固密封。

四、将计数器调整到零位,设定要求的回转次数,回转次数应符合要求,开动磨耗机,以30r/min---33r/min之转速转动至要求的回转次数为止。

五、取出钢球,将经过磨耗后的式样从投料口倒入接受容器中。

六、将试样过筛,筛去试样中被撞击磨碎的细屑。

七、用水冲洗干净留在筛上的碎石,置105℃±5℃烘箱中烘干至恒重(通常不少于4h),准确称量(m2)。

粗集料磨光值试验操作规程一、安装试件.将同一种集料的四个试件分为一组,编号为1---4,5---8,9---12,标准试件编号为13---14等,安装于道路轮上.每两块试件间应置一块橡胶石棉垫片，最后一块试件应紧紧挤入轮槽中,以达到各个试件挤紧.最后,顺序旋紧螺丝,必要时可让在道路轮端板上加垫木版,用锤轻轻敲打,以保证紧装试块,在磨光过程中不致使试件松动或断裂。

二、磨光试件.将道路轮安装在试验机的轮轴上,使橡胶轮的轮幅完全压着露出的集料表面,然后,盖上机盖,接通水源及打开金刚砂(30号)储料斗中调节闸板.开启电源后,磨光机开始运转.3h后关掉电源,换上280号金刚砂重启电源,3h后停止试验。

三、同一试样至少进行平行试验4次,若标准试件的平均值PSV均标在46—52范围,测试有效。

粗集料冲击值试验操作规程一、用铲将集料的1/3从容器上方不超过50mm处装入量筒,用捣棒半球形端将集料捣实25次,同样的方法3次做完,除去多余的集料,并外加集料填满空隙。

二、称量量筒中集料质量(m)(准确至0.1g)三、将冲击试验仪置于坚硬地面上并在仪器底放置垫块。

四、将集料倒入仪器底的冲击杯中用捣杆捣实25次。

五、调整锤高，使高度在380mm±5mm.六、使锤自由落下连续锤击15次,间隔不少于1s。

(19)中华人民共和国国家知识产权局(12)实用新型专利(10)授权公告号 (45)授权公告日 (21)申请号 201920466714.X(22)申请日 2019.04.08(73)专利权人 广州市和富市政工程有限公司地址 510000 广东省广州市增城区中新镇福中路65号(72)发明人 廖国权　(51)Int.Cl.B01D 46/10(2006.01)B08B 15/00(2006.01)(54)实用新型名称一种沥青搅拌站粗集料自动投料除尘装置(57)摘要本实用新型提供一种沥青搅拌站粗集料自动投料除尘装置，属于沥青加工设备技术领域，包括投料仓、吸尘装置和除尘箱，投料仓设有若干个，若干个投料仓并排设置在同一水平面上，每个投料仓上方都设有一个吸尘装置，吸尘装置的输出端延伸到投料仓内部，吸尘装置和除尘箱之间设置有连接管道，吸尘装置和除尘箱之间通过连接管道相通连接，本实用新型的有益效果是通过投料仓用来对沥青粗集料进行投料除尘的工作，吸尘装置用来将投入到投料仓内的沥青粗集料所产生的灰尘吸除，通过在吸尘装置和除尘箱之间设置连接管道用来将吸尘装置所吸除的灰尘放至除尘箱内进行处理，解决沥青粗集料在投料的过程中会产生大量的灰尘会对人体和环境造成损坏的问题。

权利要求书1页 说明书4页 附图2页CN 209885440 U 2020.01.03C N 209885440U权　利　要　求　书1/1页CN 209885440 U1.一种沥青搅拌站粗集料自动投料除尘装置，其特征在于，包括投料仓(1)、吸尘装置(2)和除尘箱(3)，所述投料仓(1)设有若干个，若干个所述投料仓(1)并排设置在同一水平面上，每个所述投料仓(1)上方都设有一个吸尘装置(2)，所述吸尘装置(2)的输出端延伸到所述投料仓(1)内部，所述吸尘装置(2)和所述除尘箱(3)之间设置有连接管道(4)，所述吸尘装置(2)和所述除尘箱(3)之间通过所述连接管道(4)相通连接。

Private Sub Command1_Click() Form2.ShowEnd SubPrivate Sub Command3_Click() Unload MeEnd Subform2:Public I, J As IntegerPublic K As StringPrivate Sub Command1_Click() I = Text1If I > 2 And I < 8 ThenIf J > 6 ThenForm4.ShowEnd IfEnd IfEnd SubPrivate Sub Command2_Click() Unload MeEnd SubPrivate Sub Command3_Click() I = Text1Form5.ShowEnd SubPrivate Sub Form_Load()I = 0J = 0Text1 =""End SubPrivate Sub Option1_Click()J = 13K = "AC-30I”Text1.SetFocusEnd SubPrivate Sub Option2_Click()J = 13K = "AC-30II”Textl.SetFocusPrivate Sub Option3_Click() J = 12K = "AC-25I”Text1.SetFocusEnd SubPrivate Sub Option4_Click() J = 12K = "AC-25II”Text1.SetFocusEnd SubPrivate Sub Option5_Click() J = 11K = "AC-20I”Text1.SetFocusEnd SubPrivate Sub Option6_Click() J = 11K = "AC-20II”Text1.SetFocusEnd SubPrivate Sub Option7_Click() J = 10K = "AC-16I”Text1.SetFocusEnd SubPrivate Sub Option8_Click() J = 10K = "AC-16II”Text1.SetFocusEnd SubPrivate Sub Option9_Click() J = 9K = "AC-13I”Text1.SetFocusPrivate Sub Option10_Click() J = 9K = "AC-13II”Textl.SetFocusEnd SubPrivate Sub Option11_Click() J = 8K = "AC-10I”Text1.SetFocusEnd SubPrivate Sub Option12_Click() J = 8K = "AC-10II”Text1.SetFocusEnd SubPrivate Sub Option13_Click() J = 7K = "AC-5I”Text1.SetFocusEnd SubPrivate Sub Option14_Click() J = 10K = "AK-16"Text1.SetFocusEnd SubPrivate Sub Option15_Click() J = 9K = "AK-13A”Text1.SetFocusEnd SubPrivate Sub Option16_Click() J = 9K = "AK-13B”Text1.SetFocusEnd Subform3Private Sub Command1_Click()Dim jg00, jgll, jg22, jg33, jg44, jg55, jg66, jg77, jg88, jg99, jglOO, jgllO, jg120 As IntegerDim II, JJ As IntegerDim KK As StringDim Shangxian() As SingleDim Xiaxian() As SingleDim Zhongzhi() As SingleDim jgg() As SingleII = Form2.IJJ = Form2.JKK = Form2.KTextl = KKIf KK = "AC-30I” Then上下限与中值ReDim Shangxian(l2) As SingleReDim Xiaxian(l2) As SingleReDim Zhongzhi(l2) As SingleShangxian(0) = 7: Shangxian(l) = l3: Shangxian(2) = l8: Shangxian(3) = 25: Shangxian(4) = 32: Shangxian(5) = 42Shangxian(6) = 52: Shangxian(7) = 63: Shangxian(8) = 72: Shangxian(9) = 77: Shangxian(l0)= 82: Shangxian(ll) = 92Shangxian(l2) = l00Xiaxian(0) = 3: Xiaxian(l) = 5: Xiaxian(2) = 8: Xiaxian(3) = l3: Xiaxian(4) = l8: Xiaxian(5) = 25: Xiaxian(6) = 32Xiaxian(7) = 43: Xiaxian(8) = 52: Xiaxian(9) = 59: Xiaxian(l0) = 66: Xiaxian(ll) = 79:Xiaxian(l2) = 90Zhongzhi(0) = 5: Zhongzhi(l) = 9: Zhongzhi(2) = l3: Zhongzhi(3) = l9: Zhongzhi(4) = 25: Zhongzhi(5) = 33.5Zhongzhi(6) = 42: Zhongzhi(7) = 53: Zhongzhi(8) = 62: Zhongzhi(9) = 68: Zhongzhi(l0) = 74: Zhongzhi(ll) = 85,5Zhongzhi(l2) = 95End IfIf KK = "AC-30II" ThenReDim Shangxian(l2) As SingleReDim Xiaxian(l2) As SingleReDim Zhongzhi(l2) As SingleShangxian(0) = 5: Shangxian(l) = 7: Shangxian(2) = ll: Shangxian(3) = l4: Shangxian(4) = 20: Shangxian(5) = 28Shangxian(6) = 38: Shangxian(7) = 50: Shangxian(8) = 58: Shangxian(9) = 65: Shangxian(l0)= 70: Shangxian(ll) = 85Shangxian(12) = 100Xiaxian(0) = 1: Xiaxian(l) = 2: Xiaxian(2) = 3: Xiaxian(3) = 4: Xiaxian(4) = 8: Xiaxian(5) = 12: Xiaxian(6) = 18Xiaxian(7) = 30: Xiaxian(8) = 38: Xiaxian(9) = 45: Xiaxian(10) = 52: Xiaxian(11) = 65:Xiaxian(12) = 90Zhongzhi(0) = 3: Zhongzhi(1) = 4.5: Zhongzhi(2) = 7: Zhongzhi(3) = 9: Zhongzhi(4) = 12: Zhongzhi(5) = 20Zhongzhi(6) = 28: Zhongzhi(7) = 40: Zhongzhi(8) = 48: Zhongzhi(9) = 55: Zhongzhi(10) = 61: Zhongzhi(11) = 75Zhongzhi(12) = 95End IfIf KK = "AC-25I" ThenReDim Shangxian(11) As SingleReDim Xiaxian(11) As SingleReDim Zhongzhi(11) As SingleShangxian(0) = 7: Shangxian(1) = 13: Shangxian(2) = 18: Shangxian(3) = 25: Shangxian(4) = 32: Shangxian(5) = 42Shangxian(6) = 52: Shangxian(7) = 63: Shangxian(8) = 73: Shangxian(9) = 80: Shangxian(10)= 90: Shangxian(11) = 100Xiaxian(0) = 3: Xiaxian(1) = 5: Xiaxian(2) = 8: Xiaxian(3) = 13: Xiaxian(4) = 18: Xiaxian(5) = 25 Xiaxian(6) = 32: Xiaxian(7) = 43: Xiaxian(8) = 53: Xiaxian(9) = 62: Xiaxian(10) = 75:Xiaxian(11) = 95Zhongzhi(0) = 5: Zhongzhi(1) = 8.5: Zhongzhi(2) = 13: Zhongzhi(3) = 19: Zhongzhi(4) = 25: Zhongzhi(5) = 33.5Zhongzhi(6) = 42: Zhongzhi(7) = 53: Zhongzhi(8) = 63: Zhongzhi(9) = 71: Zhongzhi(10) = 82.5: Zhongzhi(11) = 97.5End IfIf KK = "AC-25II" ThenReDim Shangxian(11) As SingleReDim Xiaxian(11) As SingleReDim Zhongzhi(11) As SingleShangxian(0) = 5: Shangxian(1) = 8: Shangxian(2) = 12: Shangxian(3) = 16: Shangxian(4) = 23: Shangxian(5) = 30Shangxian(6) = 40: Shangxian(7) = 52: Shangxian(8) = 62: Shangxian(9) = 70: Shangxian(10)= 85: Shangxian(11) = 100Xiaxian(0) = 2: Xiaxian(1) = 3: Xiaxian(2) = 4: Xiaxian(3) = 6: Xiaxian(4) = 9: Xiaxian(5) = 13 Xiaxian(6) = 20: Xiaxian(7) = 32: Xiaxian(8) = 42: Xiaxian(9) = 52: Xiaxian(10) = 65:Xiaxian(11) = 90Zhongzhi(0) = 3.5: Zhongzhi(1) = 5.5: Zhongzhi(2) = 8: Zhongzhi(3) =11: Zhongzhi(4) = 16: Zhongzhi(5) = 21.5Zhongzhi(6) = 30: Zhongzhi(7) = 42: Zhongzhi(8) = 52: Zhongzhi(9) = 61: Zhongzhi(10) = 75: Zhongzhi(11) = 95End IfIf KK = "AC-20I" ThenReDim Shangxian(10) As SingleReDim Xiaxian(10) As SingleReDim Zhongzhi(10) As SingleShangxian(0) = 8: Shangxian(1) = 14: Shangxian(2) = 20: Shangxian(3) = 27: Shangxian(4) = 34: Shangxian(5) = 46Shangxian(6) = 58: Shangxian(7) = 72: Shangxian(8) = 80: Shangxian(9) = 90: Shangxian(10)= 100 Xiaxian(0) = 4: Xiaxian(1) = 6: Xiaxian(2) = 10: Xiaxian(3) = 15: Xiaxian(4) = 20: Xiaxian(5)= 28 Xiaxian(6) = 38: Xiaxian(7) = 52: Xiaxian(8) = 62: Xiaxian(9) = 75: Xiaxian(10) = 95Zhongzhi(0) = 6: Zhongzhi(1) =10: Zhongzhi(2) = 15: Zhongzhi(3) = 21: Zhongzhi(4) = 27: Zhongzhi(5) = 37Zhongzhi(6) = 48: Zhongzhi(7) = 62: Zhongzhi(8) = 71: Zhongzhi(9) = 82.5: Zhongzhi(10) = 97.5 End IfIf KK = "AC-20II" ThenReDim Shangxian(10) As SingleReDim Xiaxian(10) As SingleReDim Zhongzhi(10) As SingleShangxian(0) = 5: Shangxian(1) = 9: Shangxian(2) = 13: Shangxian(3) = 18: Shangxian(4) = 25: Shangxian(5) = 33Shangxian(6) = 45: Shangxian(7) = 60: Shangxian(8) = 70: Shangxian(9) = 85: Shangxian(10)= 100 Xiaxian(0) = 2: Xiaxian(1) = 3: Xiaxian(2) = 4: Xiaxian(3) = 7: Xiaxian(4) = 11: Xiaxian(5) = 16 Xiaxian(6) = 26: Xiaxian(7) = 40: Xiaxian(8) = 52: Xiaxian(9) = 65: Xiaxian(10) = 90Zhongzhi(0) = 3.5: Zhongzhi(1) = 6: Zhongzhi(2) = 8.5: Zhongzhi(3) = 12.5: Zhongzhi(4) = 18: Zhongzhi(5) = 24.5Zhongzhi(6) = 35.5: Zhongzhi(7) = 50: Zhongzhi(8) = 61: Zhongzhi(9) = 75: Zhongzhi(10) = 95 End IfIf KK = "AC-16I" ThenReDim Shangxian(9) As SingleReDim Xiaxian(9) As SingleReDim Zhongzhi(9) As SingleShangxian(0) = 8: Shangxian(1) = 15: Shangxian(2) = 21: Shangxian(3) = 28: Shangxian(4) = 37 Shangxian(5) = 50: Shangxian(6) = 63: Shangxian(7) = 78: Shangxian(8) = 90: Shangxian(9) = 100 Xiaxian(0) = 4: Xiaxian(1) = 7: Xiaxian(2) = 11: Xiaxian(3) = 16: Xiaxian(4) = 22Xiaxian(5) = 32: Xiaxian(6) = 42: Xiaxian(7) = 58: Xiaxian(8) = 75: Xiaxian(9) = 95Zhongzhi(0) = 6: Zhongzhi(1) = 11: Zhongzhi(2) = 16: Zhongzhi(3) = 22: Zhongzhi(4) = 29.5Zhongzhi(5) = 41: Zhongzhi(6) = 52.5: Zhongzhi(7) = 68: Zhongzhi(8) = 82.5: Zhongzhi(9)= 97.5 End IfIf KK = "AC-16II" ThenReDim Shangxian(9) As SingleReDim Xiaxian(9) As SingleReDim Zhongzhi(9) As SingleShangxian(0) = 5: Shangxian(1) = 9: Shangxian(2) = 14: Shangxian(3) = 19: Shangxian(4) = 26 Shangxian(5) = 35: Shangxian(6) = 50: Shangxian(7) = 70: Shangxian(8) = 85: Shangxian(9)= 100 Xiaxian(0) = 2: Xiaxian(1) = 3: Xiaxian(2) = 4: Xiaxian(3) = 7: Xiaxian(4) = 12Xiaxian(5) = 18: Xiaxian(6) = 30: Xiaxian(7) = 50: Xiaxian(8) = 65: Xiaxian(9) = 90Zhongzhi(0) = 3.5: Zhongzhi(1) = 6: Zhongzhi(2) = 9: Zhongzhi(3) = 13: Zhongzhi(4) = 19 Zhongzhi(5) = 26.5: Zhongzhi(6) = 40: Zhongzhi(7) = 60: Zhongzhi(8) = 75: Zhongzhi(9) = 95 End IfIf KK = "AC-13I" ThenReDim Shangxian(8) As SingleReDim Xiaxian(8) As SingleReDim Zhongzhi(8) As SingleShangxian(0) = 8: Shangxian(1) = 16: Shangxian(2) = 22: Shangxian(3) = 30: Shangxian(4) = 41 Shangxian(5) = 53: Shangxian(6) = 68: Shangxian(7) = 88: Shangxian(8) = 100Xiaxian(0) = 4: Xiaxian(1) = 8: Xiaxian(2) = 12: Xiaxian(3) = 18: Xiaxian(4) = 24Xiaxian(5) = 36: Xiaxian(6) = 48: Xiaxian(7) = 70: Xiaxian(8) = 95Zhongzhi(0) = 6: Zhongzhi(1) = 12: Zhongzhi(2) = 17: Zhongzhi(3) = 24: Zhongzhi(4) = 32.5 Zhongzhi(5) = 44.5: Zhongzhi(6) = 58: Zhongzhi(7) = 79: Zhongzhi(8) = 97.5End IfIf KK = "AC-13II" ThenReDim Shangxian(8) As SingleReDim Xiaxian(8) As SingleReDim Zhongzhi(8) As SingleShangxian(0) = 6: Shangxian(1) = 10: Shangxian(2) = 14: Shangxian(3) = 20: Shangxian(4) = 28 Shangxian(5) = 38: Shangxian(6) = 52: Shangxian(7) = 80: Shangxian(8) = 100Xiaxian(0) = 2: Xiaxian(1) = 3: Xiaxian(2) = 5: Xiaxian(3) = 8: Xiaxian(4) = 14Xiaxian(5) = 22: Xiaxian(6) = 34: Xiaxian(7) = 60: Xiaxian(8) = 90Zhongzhi(0) = 4: Zhongzhi(1) = 6.5: Zhongzhi(2) = 9.5: Zhongzhi(3) = 14: Zhongzhi(4) = 21 Zhongzhi(5) = 30: Zhongzhi(6) = 43: Zhongzhi(7) = 70: Zhongzhi(8) = 95End IfIf KK = "AC-10I" ThenReDim Shangxian(7) As SingleReDim Xiaxian(7) As SingleReDim Zhongzhi(7) As SingleShangxian(0) = 9: Shangxian(l) = 16: Shangxian(2) = 24: Shangxian(3) = 33Shangxian(4) = 43: Shangxian(5) = 58: Shangxian(6) = 75: Shangxian(7) = 100Xiaxian(0) = 4: Xiaxian(1) = 6: Xiaxian(2) = 10: Xiaxian(3) = 17Xiaxian(4) = 26: Xiaxian(5) = 38: Xiaxian(6) = 55: Xiaxian(7) = 95Zhongzhi(0) = 6.5: Zhongzhi(1) = 11: Zhongzhi(2) = 17: Zhongzhi(3) = 25Zhongzhi(4) = 34.5: Zhongzhi(5) = 48: Zhongzhi(6) = 65: Zhongzhi(7) = 97.5End IfIf KK = "AC-10II" ThenReDim Shangxian(7) As SingleReDim Xiaxian(7) As SingleReDim Zhongzhi(7) As SingleShangxian(0) = 6: Shangxian(1) = 10: Shangxian(2) = 15: Shangxian(3) = 22Shangxian(4) = 30: Shangxian(5) = 40: Shangxian(6) = 60: Shangxian(7) = 100Xiaxian(0) = 2: Xiaxian(1) = 4: Xiaxian(2) = 6: Xiaxian(3) = 9Xiaxian(4) = 15: Xiaxian(5) = 24: Xiaxian(6) = 40: Xiaxian(7) = 90Zhongzhi(0) = 4: Zhongzhi(1) = 7: Zhongzhi(2) = 10.5: Zhongzhi(3) = 15.5Zhongzhi(4) = 22.5: Zhongzhi(5) = 33: Zhongzhi(6) = 50: Zhongzhi(7) = 95 End IfIf KK = "AC-5I" ThenReDim Shangxian(6) As SingleReDim Xiaxian(6) As SingleReDim Zhongzhi(6) As SingleShangxian(0) = 10: Shangxian(1) = 18: Shangxian(2) = 28: Shangxian(3) = 40Shangxian(4) = 55: Shangxian(5) = 75: Shangxian(6) = 100Xiaxian(0) = 5: Xiaxian(1) = 7: Xiaxian(2) = 12: Xiaxian(3) = 20Xiaxian(4) = 35: Xiaxian(5) = 55: Xiaxian(6) = 95Zhongzhi(0) = 7.5: Zhongzhi(1) = 12.5: Zhongzhi(2) = 20: Zhongzhi(3) = 30Zhongzhi(4) = 45: Zhongzhi(5) = 65: Zhongzhi(6) = 97.5End IfIf KK = "AK-16" ThenReDim Shangxian(9) As SingleReDim Xiaxian(9) As SingleReDim Zhongzhi(9) As SingleShangxian(0) = 7: Shangxian(1) = 10: Shangxian(2) = 13: Shangxian(3) = 18: Shangxian(4) = 25 Shangxian(5) = 35: Shangxian(6) = 45: Shangxian(7) = 70: Shangxian(8) = 82: Shangxian(9)= 100 Xiaxian(0) = 3: Xiaxian(1) = 4: Xiaxian(2) = 6: Xiaxian(3) = 8: Xiaxian(4) = 10Xiaxian(5) = 15: Xiaxian(6) = 25: Xiaxian(7) = 45: Xiaxian(8) = 60: Xiaxian(9) = 90Zhongzhi(0) = 5: Zhongzhi(1) = 7: Zhongzhi(2) = 9.5: Zhongzhi(3) = 13: Zhongzhi(4) = 17.5 Zhongzhi(5) = 25: Zhongzhi(6) = 35: Zhongzhi(7) = 57.5: Zhongzhi(8) = 72: Zhongzhi(9) = 95End IfIf KK = "AK-13A" ThenReDim Shangxian(8) As SingleReDim Xiaxian(8) As SingleReDim Zhongzhi(8) As SingleShangxian(0) = 8: Shangxian(1) = 12: Shangxian(2) = 18: Shangxian(3) = 23: Shangxian(4) = 30 Shangxian(5) = 40: Shangxian(6) = 53: Shangxian(7) = 80: Shangxian(8) = 100Xiaxian(0) = 4: Xiaxian(1) = 5: Xiaxian(2) = 7: Xiaxian(3) = 10: Xiaxian(4) = 15Xiaxian(5) = 20: Xiaxian(6) = 30: Xiaxian(7) = 60: Xiaxian(8) = 90Zhongzhi(0) = 6: Zhongzhi(1) = 8.5: Zhongzhi(2) = 12.5: Zhongzhi(3) = 16.5: Zhongzhi(4) = 22.5 Zhongzhi(5) = 30: Zhongzhi(6) = 41.5: Zhongzhi(7) = 70: Zhongzhi(8) = 95 End IfIf KK = "AK-13B" ThenReDim Shangxian(8) As SingleReDim Xiaxian(8) As SingleReDim Zhongzhi(8) As SingleShangxian(0) = 6: Shangxian(1) = 9: Shangxian(2) = 12: Shangxian(3) = 15: Shangxian(4) = 22 Shangxian(5) = 30: Shangxian(6) = 40: Shangxian(7) = 70: Shangxian(8) = 100Xiaxian(0) = 2: Xiaxian(1) = 3: Xiaxian(2) = 3: Xiaxian(3) = 5: Xiaxian(4) = 8Xiaxian(5) = 10: Xiaxian(6) = 18: Xiaxian(7) = 50: Xiaxian(8) = 85Zhongzhi(0) = 4: Zhongzhi(1) = 6: Zhongzhi(2) = 7.5: Zhongzhi(3) = 10: Zhongzhi(4) = 15 Zhongzhi(5) = 20: Zhongzhi(6) = 29: Zhongzhi(7) = 60: Zhongzhi(8) = 92.5 End Ifjg00 = Form4.jg0: jg11 = Form4.jg1jg22 = Form4.jg2: jg33 = Form4.jg3jg44 = Form4.jg4: jg55 = Form4.jg5jg66 = Form4.jg6If JJ > 7 Then jg77 = Form4.jg7If JJ > 8 Then jg88 = Form4.jg8If JJ > 9 Then jg99 = Form4,jg9If JJ > 10 Then jg100 = Form4,jg10If JJ > 11 Then jg110 = Form4,jg11If JJ = 13 Then jg120 = Form4,jg12ReDim jgg(JJ - 1) As Single jgg(0) = jg00: jgg(1) = jg11 jgg(2) = jg22: jgg(3) = jg33 jgg(4) = jg44: jgg(5) = jg55 jgg(6) = jg66If JJ > 7 Then jgg(7) = jg77If JJ > 8 Then jgg(8) = jg88If JJ > 9 Then jgg(9) = jg99If JJ > 10 Then jgg(10) = jg100If JJ > 11 Then jgg(11) = jg110If JJ = 13 Then jgg(12) = jg120Picture1.Scale (0, 100)-(13, 0)定义坐标For x = 0 To 100 Step 10 画横线Picture1.Line (0, x)-(13, x)NextFor x = 0 To 13 Step 1 画竖线Picture1.Line (x, 0)-(x, 100)NextFor x = 1 To JJ - 1 Step 1 画上限Picture1.Line (x - 1, Shangxian(x - 1))-(x, Shangxian(x))NextFor x = 1 To JJ - 1 Step 1 画下限Picture1.Line (x - 1, Xiaxian(x - 1))-(x, Xiaxian(x))NextFor x = 1 To JJ - 1 Step 1 画中值Picture1.Line (x - 1, Zhongzhi(x - 1))-(x, Zhongzhi(x))NextFor x = 1 To JJ - 1 Step 1 画合成级配Picture1.Line (x - 1, jgg(x - 1))-(x, jgg(x))NextEnd SubPrivate Sub Command2_Click()Unload MeEnd Subform4:Public III, JJJ As IntegerPublic KKK As StringPublic jg0, jg1, jg2, jg3, jg4, jg5, jg6, jg7, jg8, jg9, jg10, jg11, jg12 As Integer Dim Shangxian() As SingleDim Xiaxian() As SingleDim Zhongzhi() As SingleDim LM() As String 'LM-料名Dim SG0() As Single 'SG—筛分结果Dim SG1() As SingleDim SG2() As SingleDim SG3() As SingleDim SG4() As SingleDim SG5() As SingleDim SG6() As SingleDim jg() As Single 'JG—计算结果Dim BL() As Single 'BI一比例Dim wenjianming As StringDim filenumber As IntegerPrivate Sub Command3_Click()For y = 0 To JJJ Step 1 级配计算If III = 2 Thenjg(y) = BL(0) * SG0(y) + BL(1) * SG1(y) + BL(2) * SG2(y)End IfIf III = 3 Thenjg(y) = BL(0) * SG0(y) + BL(1) * SG1(y) + BL(2) * SG2(y) + BL(3) * SG3(y)End IfIf III = 4 Thenjg(y) = BL(0) * SG0(y) + BL(1) * SG1(y) + BL(2) * SG2(y) + BL(3) * SG3(y) + BL(4) * SG4(y) End If If III = 5 Thenjg(y) = BL(0) * SG0(y) + BL(1) * SG1(y) + BL(2) * SG2(y) + BL(3) * SG3(y) + BL(4) * SG4(y)+ BL(5) * SG5(y)End IfIf III = 6 Thenjg(y) = BL(0) * SG0(y) + BL(1) * SG1(y) + BL(2) * SG2(y) + BL(3) * SG3(y) + BL(4) * SG4(y) +BL(5) * SG5(y) + BL(6) * SG6(y) End Ifjg(y) = Int(jg(y) * 10 + 0.5) / 10Text11(y) = jg(y)Nextjg0 = jg(0)：jg1 = jg(1)’将合成级配由数组表示转化为非数组表示jg2 = jg(2): jg3 = jg(3)jg4 = jg(4): jg5 = jg(5)jg6 = jg(6)If JJJ > 6 Then jg7 = jg(7)If JJJ > 7 Then jg8 = jg(8)If JJJ > 8 Then jg9 = jg(9)If JJJ > 9 Then jg10 = jg(10)If JJJ > 10 Then jg11 = jg(11)If JJJ = 12 Then jg12 = jg(12)End SubPrivate Sub Command4_Click()显示级配图Form3.ShowEnd SubPrivate Sub Command5_Click()'退出Unload MeEnd SubPrivate Sub Command7_Click()'数据保存Open wenjianming For Output As #filenumber For x = 0 To III Step 1If x = 0 ThenWrite #filenumber, LM(0)Write #filenumber, BL(0)For y = 0 To JJJ Step 1SG0(y) = Text3(y)Write #filenumber, SG0(y)NextEnd IfIf x = 1 ThenWrite #filenumber, LM(1) Write #filenumber, BL(1) For y = 0 To JJJ Step 1 SG1(y) = Text5(y)Write #filenumber, SG1(y) NextEnd IfIf x = 2 ThenWrite #filenumber, LM(2) Write #filenumber, BL(2) For y = 0 To JJJ Step 1 SG2(y) = Text6(y)Write #filenumber, SG2(y) NextEnd IfIf x = 3 ThenWrite #filenumber, LM(3) Write #filenumber, BL(3)For y = 0 To JJJ Step 1 SG3(y) = Text7(y)Write #filenumber, SG3(y) NextEnd IfIf x = 4 ThenWrite #filenumber, LM(4) Write #filenumber, BL(4) For y = 0 To JJJ Step 1 SG4(y) = Text8(y)Write #filenumber, SG4(y) NextEnd IfIf x = 5 ThenWrite #filenumber, LM(5) Write #filenumber, BL(5) For y = 0 To JJJ Step 1 SG5(y) = Text9(y)Write #filenumber, SG5(y) NextEnd IfIf x = 6 ThenWrite #filenumber, LM(6)For y = 0 To JJJ Step 1SG6(y) = Text10(y)Write #filenumber, SG6(y)NextEnd IfNextClose #filenumberEnd SubPrivate Sub Command8_Click()'数据恢复Open wenjianming For Input As #filenumber For x = 0 To III Step 1If x = 0 ThenInput #filenumber, LM(0)Text1(0) = LM(0)Input #filenumber, BL(0)Text2(0) = BL(0)For y = 0 To JJJ Step 1Input #filenumber, SG0(y)Text3(y) = SG0(y)NextEnd IfIf x = 1 ThenInput #filenumber, LM(1)Text1(1) = LM(1)Input #filenumber, BL(1)Text2(1) = BL(1)For y = 0 To JJJ Step 1Input #filenumber, SG1(y)Text5(y) = SG1(y)NextEnd IfIf x = 2 ThenInput #filenumber, LM(2)Text1(2) = LM(2)Input #filenumber, BL(2)Text2(2) = BL(2)For y = 0 To JJJ Step 1Input #filenumber, SG2(y)Text6(y) = SG2(y)NextEnd IfIf x = 3 ThenInput #filenumber, LM(3)Text1(3) = LM(3)Text2(3) = BL(3)For y = 0 To JJJ Step 1 Input #filenumber, SG3(y) Text7(y) = SG3(y)NextEnd IfIf x = 4 ThenInput #filenumber, LM(4) Text1(4) = LM(4)Input #filenumber, BL(4) Text2(4) = BL(4)For y = 0 To JJJ Step 1 Input #filenumber, SG4(y) Text8(y) = SG4(y)NextEnd IfIf x = 5 ThenInput #filenumber, LM(5) Text1(5) = LM(5)Input #filenumber, BL(5) Text2(5) = BL(5)For y = 0 To JJJ Step 1 Input #filenumber, SG5(y) Text9(y) = SG5(y)NextEnd IfIf x = 6 ThenInput #filenumber, LM(6) Text1(6) = LM(6)Input #filenumber, BL(6) Text2(6) = BL(6)For y = 0 To JJJ Step 1 Input #filenumber, SG6(y) Text10(y) = SG6(y)NextEnd IfNextClose #filenumberEnd SubPrivate Sub Form_Load() III = Form2.I: III = III - 1 JJJ = Form2.J: JJJ = JJJ - 1 KKK = Form2.K wenjianming = Form2.Kfilenumber = Form2.IReDim LM(III) As StringReDim SGO(JJJ) As SingleReDim SG1(JJJ) As SingleReDim SG2(JJJ) As SingleReDim SG3(JJJ) As SingleReDim SG4(JJJ) As SingleReDim SG5(JJJ) As SingleReDim SG6(JJJ) As SingleReDim jg(JJJ) As SingleReDim BL(III) As SingleText4 = KKKIf KKK = "AC-30I" Then '上下限与中值ReDim Shangxian(12) As SingleReDim Xiaxian(12) As SingleReDim Zhongzhi(12) As SingleShangxian(0) = 7: Shangxian(1) = 13: Shangxian(2) = 18: Shangxian(3) = 25: Shangxian(4) = 32: Shangxian(5) = 42Shangxian(6) = 52: Shangxian(7) = 63: Shangxian(8) = 72: Shangxian(9) = 77: Shangxian(10)= 82: Shangxian(ll) = 92Shangxian(12) = 100Xiaxian(0) = 3: Xiaxian(l) = 5: Xiaxian(2) = 8: Xiaxian(3) = 13: Xiaxian(4) = 18: Xiaxian(5) = 25: Xiaxian(6) = 32Xiaxian(7) = 43: Xiaxian(8) = 52: Xiaxian(9) = 59: Xiaxian(10) = 66: Xiaxian(11) = 79:Xiaxian(12) = 90Zhongzhi(0) = 5: Zhongzhi(1) = 9: Zhongzhi(2) = 13: Zhongzhi(3) = 19: Zhongzhi(4) = 25: Zhongzhi(5) = 33.5Zhongzhi(6) = 42: Zhongzhi(7) = 53: Zhongzhi(8) = 62: Zhongzhi(9) = 68: Zhongzhi(10) = 74: Zhongzhi(11) = 85.5Zhongzhi(12) = 95End IfIf KKK = "AC-30II" ThenReDim Shangxian(12) As SingleReDim Xiaxian(12) As SingleReDim Zhongzhi(12) As SingleShangxian(0) = 5: Shangxian(1) = 7: Shangxian(2) = 11: Shangxian(3) = 14: Shangxian(4) = 20: Shangxian(5) = 28Shangxian(6) = 38: Shangxian(7) = 50: Shangxian(8) = 58: Shangxian(9) = 65: Shangxian(10)= 70: Shangxian(11) = 85Shangxian(12) = 100Xiaxian(0) = 1: Xiaxian(1) = 2: Xiaxian(2) = 3: Xiaxian(3) = 4: Xiaxian(4) = 8: Xiaxian(5) = 12: Xiaxian(6) = 18Xiaxian(7) = 30: Xiaxian(8) = 38: Xiaxian(9) = 45: Xiaxian(10) = 52: Xiaxian(11) = 65:Xiaxian(12) = 90Zhongzhi(0) = 3: Zhongzhi(1) = 4.5: Zhongzhi(2) = 7: Zhongzhi(3) = 9: Zhongzhi(4) = 12: Zhongzhi(5) = 20Zhongzhi(12) = 95End IfIf KKK = "AC-25I" ThenReDim Shangxian(11) As SingleReDim Xiaxian(11) As SingleReDim Zhongzhi(11) As SingleShangxian(0) = 7: Shangxian(1) = 13: Shangxian(2) = 18: Shangxian(3) = 25: Shangxian(4) = 32: Shangxian(5) = 42Shangxian(6) = 52: Shangxian(7) = 63: Shangxian(8) = 73: Shangxian(9) = 80: Shangxian(10)= 90: Shangxian(11) = 100Xiaxian(0) = 3: Xiaxian(1) = 5: Xiaxian(2) = 8: Xiaxian(3) = 13: Xiaxian(4) = 18: Xiaxian(5) = 25 Xiaxian(6) = 32: Xiaxian(7) = 43: Xiaxian(8) = 53: Xiaxian(9) = 62: Xiaxian(10) = 75:Xiaxian(11) = 95Zhongzhi(0) = 5: Zhongzhi(l) = 8.5: Zhongzhi(2) = 13: Zhongzhi(3) = 19: Zhongzhi(4) = 25: Zhongzhi(5) = 33.5Zhongzhi(6) = 42: Zhongzhi(7) = 53: Zhongzhi(8) = 63: Zhongzhi(9) = 71: Zhongzhi(10) = 82.5: Zhongzhi(ll) = 97.5End IfIf KKK = "AC-25II" ThenReDim Shangxian(11) As SingleReDim Xiaxian(11) As SingleReDim Zhongzhi(11) As SingleShangxian(0) = 5: Shangxian(1) = 8: Shangxian(2) = 12: Shangxian(3) = 16: Shangxian(4) = 23: Shangxian(5) = 30Shangxian(6) = 40: Shangxian(7) = 52: Shangxian(8) = 62: Shangxian(9) = 70: Shangxian(10)= 85: Shangxian(11) = 100Xiaxian(0) = 2: Xiaxian(1) = 3: Xiaxian(2) = 4: Xiaxian(3) = 6: Xiaxian(4) = 9: Xiaxian(5) = 13 Xiaxian(6) = 20: Xiaxian(7) = 32: Xiaxian(8) = 42: Xiaxian(9) = 52: Xiaxian(10) = 65:Xiaxian(11) = 90Zhongzhi(0) = 3.5: Zhongzhi(1) = 5.5: Zhongzhi(2) = 8: Zhongzhi(3) =11: Zhongzhi(4) =11: Zhongzhi(5) = 21.5Zhongzhi(6) = 30: Zhongzhi(7) = 42: Zhongzhi(8) = 52: Zhongzhi(9) = 61: Zhongzhi(10) = 75: Zhongzhi(11) = 95End IfIf KKK = "AC-20I" ThenReDim Shangxian(10) As SingleReDim Xiaxian(10) As SingleReDim Zhongzhi(10) As SingleShangxian(0) = 8: Shangxian(1) = 14: Shangxian(2) = 20: Shangxian(3) = 27: Shangxian(4) = 34: Shangxian(5) = 46Shangxian(6) = 58: Shangxian(7) = 72: Shangxian(8) = 80: Shangxian(9) = 90: Shangxian(10)= 100 Xiaxian(0) = 4: Xiaxian(1) = 6: Xiaxian(2) = 10: Xiaxian(3) = 15: Xiaxian(4) = 20: Xiaxian(5) = 28 Xiaxian(6) = 38: Xiaxian(7) = 52: Xiaxian(8) = 62: Xiaxian(9) = 75: Xiaxian(10) = 95Zhongzhi(6) = 48: Zhongzhi(7) = 62: Zhongzhi(8) = 71: Zhongzhi(9) = 82.5: Zhongzhi(10) = 97.5 End IfIf KKK = "AC-20II" ThenReDim Shangxian(10) As SingleReDim Xiaxian(10) As SingleReDim Zhongzhi(10) As SingleShangxian(0) = 5: Shangxian(1) = 9: Shangxian(2) = 13: Shangxian(3) = 18: Shangxian(4) = 25: Shangxian(5) = 33Shangxian(6) = 45: Shangxian(7) = 60: Shangxian(8) = 70: Shangxian(9) = 85: Shangxian(10)= 100 Xiaxian(0) = 2: Xiaxian(l) = 3: Xiaxian(2) = 4: Xiaxian(3) = 7: Xiaxian(4) = 11: Xiaxian(5) = 16 Xiaxian(6) = 26: Xiaxian(7) = 40: Xiaxian(8) = 52: Xiaxian(9) = 65: Xiaxian(10) = 90Zhongzhi(0) = 3.5: Zhongzhi(1) = 6: Zhongzhi(2) = 8.5: Zhongzhi(3) = 12.5: Zhongzhi(4) = 18: Zhongzhi(5) = 24.5Zhongzhi(6) = 35.5: Zhongzhi(7) = 50: Zhongzhi(8) = 61: Zhongzhi(9) = 75: Zhongzhi(10) = 95 End If If KKK = "AC-16I" ThenReDim Shangxian(9) As SingleReDim Xiaxian(9) As SingleReDim Zhongzhi(9) As SingleShangxian(0) = 8: Shangxian(1) = 15: Shangxian(2) = 21: Shangxian(3) = 28: Shangxian(4) = 37 Shangxian(5) = 50: Shangxian(6) = 63: Shangxian(7) = 78: Shangxian(8) = 90: Shangxian(9)= 100 Xiaxian(0) = 4: Xiaxian(1) = 7: Xiaxian(2) = 11: Xiaxian(3) = 16: Xiaxian(4) = 22Xiaxian(5) = 32: Xiaxian(6) = 42: Xiaxian(7) = 58: Xiaxian(8) = 75: Xiaxian(9) = 95Zhongzhi(0) = 6: Zhongzhi(1) = 11: Zhongzhi(2) = 16: Zhongzhi(3) = 22: Zhongzhi(4) = 29.5 Zhongzhi(5) = 41: Zhongzhi(6) = 52.5: Zhongzhi(7) = 68: Zhongzhi(8) = 82.5: Zhongzhi(9)= 97.5End IfIf KKK = "AC-16II" ThenReDim Shangxian(9) As SingleReDim Xiaxian(9) As SingleReDim Zhongzhi(9) As SingleShangxian(0) = 5: Shangxian(1) = 9: Shangxian(2) = 14: Shangxian(3) = 19: Shangxian(4) = 26 Shangxian(5) = 35: Shangxian(6) = 50: Shangxian(7) = 70: Shangxian(8) = 85: Shangxian(9)= 100 Xiaxian(0) = 2: Xiaxian(1) = 3: Xiaxian(2) = 4: Xiaxian(3) = 7: Xiaxian(4) = 12Xiaxian(5) = 18: Xiaxian(6) = 30: Xiaxian(7) = 50: Xiaxian(8) = 65: Xiaxian(9) = 90Zhongzhi(0) = 3.5: Zhongzhi(1) = 6: Zhongzhi(2) = 9: Zhongzhi(3) = 13: Zhongzhi(4) = 19 Zhongzhi(5) = 26.5: Zhongzhi(6) = 40: Zhongzhi(7) = 60: Zhongzhi(8) = 75: Zhongzhi(9) = 95 End IfIf KKK = "AC-13I" ThenReDim Shangxian(8) As SingleReDim Xiaxian(8) As SingleReDim Zhongzhi(8) As SingleShangxian(0) = 8: Shangxian(1) = 16: Shangxian(2) = 22: Shangxian(3) = 30: Shangxian(4) = 41 Shangxian(5) = 53: Shangxian(6) = 68: Shangxian(7) = 88: Shangxian(8) = 100Xiaxian(0) = 4: Xiaxian(1) = 8: Xiaxian(2) = 12: Xiaxian(3) = 18: Xiaxian(4) = 24Xiaxian(5) = 36: Xiaxian(6) = 48: Xiaxian(7) = 70: Xiaxian(8) = 95Zhongzhi(0) = 6: Zhongzhi(1) = 12: Zhongzhi(2) = 17: Zhongzhi(3) = 24: Zhongzhi(4) = 32.5 Zhongzhi(5) = 44.5: Zhongzhi(6) = 58: Zhongzhi(7) = 79: Zhongzhi(8) = 97.5End IfIf KKK = "AC-13II" ThenReDim Shangxian(8) As SingleReDim Xiaxian(8) As SingleReDim Zhongzhi(8) As SingleShangxian(0) = 6: Shangxian(1) = 10: Shangxian(2) = 14: Shangxian(3) = 20: Shangxian(4) = 28 Shangxian(5) = 38: Shangxian(6) = 52: Shangxian(7) = 80: Shangxian(8) = 100Xiaxian(0) = 2: Xiaxian(1) = 3: Xiaxian(2) = 5: Xiaxian(3) = 8: Xiaxian(4) = 14Xiaxian(5) = 22: Xiaxian(6) = 34: Xiaxian(7) = 60: Xiaxian(8) = 90Zhongzhi(0) = 4: Zhongzhi(1) = 6.5: Zhongzhi(2) = 9.5: Zhongzhi(3) = 14: Zhongzhi(4) = 21 Zhongzhi(5) = 30: Zhongzhi(6) = 43: Zhongzhi(7) = 70: Zhongzhi(8) = 95End IfIf KKK = "AC-10I" ThenReDim Shangxian(7) As SingleReDim Xiaxian(7) As SingleReDim Zhongzhi(7) As SingleShangxian(0) = 9: Shangxian(1) = 16: Shangxian(2) = 24: Shangxian(3) = 33Shangxian(4) = 43: Shangxian(5) = 58: Shangxian(6) = 75: Shangxian(7) = 100Xiaxian(0) = 4: Xiaxian(1) = 6: Xiaxian(2) = 10: Xiaxian(3) = 17Xiaxian(4) = 26: Xiaxian(5) = 38: Xiaxian(6) = 55: Xiaxian(7) = 95Zhongzhi(0) = 6.5: Zhongzhi(1) = 11: Zhongzhi(2) = 17: Zhongzhi(3) = 25Zhongzhi(4) = 34.5: Zhongzhi(5) = 48: Zhongzhi(6) = 65: Zhongzhi(7) = 97.5End IfIf KKK = "AC-10II" ThenReDim Shangxian(7) As SingleReDim Xiaxian(7) As SingleReDim Zhongzhi(7) As SingleShangxian(0) = 6: Shangxian(1) = 10: Shangxian(2) = 15: Shangxian(3) = 22Shangxian(4) = 30: Shangxian(5) = 40: Shangxian(6) = 60: Shangxian(7) = 100Xiaxian(0) = 2: Xiaxian(1) = 4: Xiaxian(2) = 6: Xiaxian(3) = 9Xiaxian(4) = 15: Xiaxian(5) = 24: Xiaxian(6) = 40: Xiaxian(7) = 90Zhongzhi(0) = 4: Zhongzhi(1) = 7: Zhongzhi(2) = 10.5: Zhongzhi(3) = 15.5Zhongzhi(4) = 22.5: Zhongzhi(5) = 33: Zhongzhi(6) = 50: Zhongzhi(7) = 95End IfIf KKK = "AC-5I" ThenReDim Shangxian(6) As SingleReDim Xiaxian(6) As SingleReDim Zhongzhi(6) As SingleShangxian(0) = 10: Shangxian(1) = 18: Shangxian(2) = 28: Shangxian(3) = 40Shangxian(4) = 55: Shangxian(5) = 75: Shangxian(6) = 100Xiaxian(0) = 5: Xiaxian(1) = 7: Xiaxian(2) = 12: Xiaxian(3) = 20Xiaxian(4) = 35: Xiaxian(5) = 55: Xiaxian(6) = 95Zhongzhi(0) = 7.5: Zhongzhi(1) = 12.5: Zhongzhi(2) = 20: Zhongzhi(3) = 30。

集料混合料的筛分试验一、试验准备按规定将来料用分料器或四分法缩分至试验所需量，风干后备用。

根据需要可按要求的集料最大粒径的筛孔尺寸过筛，除去超粒径部分颗粒后，再进行筛分。

二、沥青混合料及基层用粗集料水洗法试验1、取一份试样，将试样置105℃±5℃烘箱中烘干至恒重，称取干燥集料试样的总质量，准确至0.1％。

2、将试样置一洁净容器中，加入足够数量的洁净水，将集料全部淹没，但不得使用任何洗涤剂、分散剂或表面活性剂。

3、用搅棒充分搅动集料，使集料表面洗涤干净，使细粉悬浮在水中，但不得破碎集料或有集料从水中溅出。

4、根据集料粒径大小选择组成一组套筛，其底部为0.075㎜标准筛，上部为2.36㎜或4.75㎜筛。

仔细将容器中混有细粉的悬浮液倒出，经过套筛流入另一容器中，尽量不将粗集料倒出，以免损坏标准筛筛面。

5、重复以上步骤，直至倒出的水洁净为止，必要时可采用水流缓慢冲洗。

6、将套筛每个筛子上的集料及容器中的集料全部回收在一个搪瓷盘中，容器上不得有沾附的集料颗粒。

7、在确保细粉不散失的前提下，小心泌去搪瓷盘中的积水，将搪瓷盘连同集料一起置105℃±5℃烘箱中烘干至恒重，称取干燥集料试样的总质量，准确至0.1％。

以m3与m4之差作为0.075㎜的筛下部分。

8、将回收的干燥集料按干筛方法筛分出0.075㎜筛以上各筛的筛余量，此时0.075㎜筛下部分应为0，如果尚能筛出，则应将其并入水洗得到的0.075㎜的筛下部分，且表示水洗得不干净。

三、水洗筛法筛分结果及计算1、计算各筛分计筛余量及筛底存量的总和与筛分前试样的干燥总质量m4之差，作为筛分时的损耗，并计算损耗率记入表。

2、计算各筛的分计筛余百分率、累计筛余百分率、质量通过百分率。

3、试验结果以两次试验的平均值表示。

粗集料筛分试验操作规程1.取一份有代表性的试样,将试样置于托盘中用酒精燃烧至恒重,称取干燥集料试样的总质量(m1)(应不少于4kg),准确至0.1%.2.用搪瓷盘做筛分容器,按筛孔大小排列顺序逐个将集料过筛.过筛时,须使集料在筛面上同时有水平方向及上下方向的不停顿运动,使小于筛孔的集料通过筛孔,直至1min内通过筛孔的质量小于筛上残余量的1%为止, 将筛出通过的颗粒并入下一号筛,和下一号筛中的试样一起过筛,这样顺序进行,直到各号筛全部筛完为止.3.如果某个筛上的集料过多,影响筛分作业时,可分两次筛分.当筛余颗粒的粒径大于20mm时,筛分过程中允许用手指轻轻拨动颗粒,但不得逐颗塞过筛孔.4.称取每个筛上的筛余量,准确至总量的0.1%.各筛分计筛余量及筛底存量的总和与筛分前试样的总质量m0相比,其相差不得超过0.5%.5.计算5.1集料中通过0.075mm的含量按式(1)计算,准确至0.1%.P0.075= (m1-m2)/m1 (1)5.2各号筛上的分计筛余百分率按式(2)计算,但0.075mm筛不计算分计筛余,准确至0.1%.P i=(m i/m0)*(100-P0.075)/100 (2)式中: P i-各号筛上的分计筛余百分率,%;m0-用于干筛的干燥集料总质量,g;m i-各号筛上的分计筛余,g;i-依次为0.15mm、0.3mm、0.6mm……至集料最大粒径.5.3各号筛的累计筛余百分率为该号筛及大于该号筛的各号筛的分计筛余百分率之和,但0.075mm筛不计算累计筛余,准确至0.1%.5.4各号筛的质量通过百分率等于100减去该号筛累计筛余,但0.075mm筛的质量通过百分率即为P0.075,准确至0.1%.5.5根据需要,绘制集料筛分曲线.。