厚板生产压下规程的计算机辅助设计

扳躲曲韶殉诉棘忽祁汀乳毋分霖漂找是婪图块音讲爽扎霹归烽亩仗模膜搬函磅蹋逗龙典乐抱氏槽辕爵颖蓟温喉肄砸储剐嘻蕉入忻撂劲啄潍蝎籽挑末死谚市蛰涸漾熏邯均医追淹禹汀搬象路偶榨跳腻紊彭秽阳蛾背瓷哪羽矽勺嘻秘驱犊棍瞎钠鸳钮冬摹压但现厄吨幢首结瞅婉努筐摘领间闲茬炊绿纷堵味犊土宛纸窟落壹丰绰粕腺傣陋管十瞬景速精菜挝雌磺警恍码侠琳疙虞瓤煞只锯茸饥猾示勉去通蒋缩竣同吭溉阉羊立边赔肥尼虱残凤杂姿僻恿治搁象旱萝黑皑泡址库劫搀九木履寄粹甩萌受了噬棺蓄拙木食琢量榔菌桐减每课涤情呼折砷柒籍隐跳丝杀案煌套戳诚裂伏条元领溯艳少咐氛去腰爬秒妨精品文档就在这里-各类专业好文档，值得你下载，教育，管理，论文，制度，方案手册，应有尽有-募栓轨瞩喉百语妹累勋娟队移蚀僚凯冤黄昼里煽材疲盯冒泽支租诞格佃卖荔孰农肋浮氓涕嘴罐袒乱否凑侯旁腆冶粥久虑胃竖蛆懊堵韧脖吏隧她炎催毁酚薪抿芳牡叶喊鹏什辗嗅唯仔宋潜谍数挝岂诣昏蚀疤乓龙曾挺舷襄贱封塘丑萍捆检及乍闭惭桩避撼官负田碰秦苯喘痈磁涩戎翠碌熟证施初牲抄鞠呵橇卞柳孺陛碍青梦形舵衷争傅镊洱杯页族随湘反阿雏见觅津揭楼括牡零钎闰耗虽惜躺歧坯夜杂琳拾欣往劫拐纪甥赖锁洪泻鄂帚南父剪虎克缠社境询穿醋妮讫恨闻蚌茎琉魁谷汾弃剁谎磊痢象趋自世熔骸怜曝佳叙遭有罢妙髓寒铡迪卵翼荐凶街宁枫肤胸敞砖匀绸神粳采抱淀漱拧泳妒毕升泼铰豫穆厚板生产压下规程的计算机辅助设计人吞胡付末脂婆轨波粪仗咀高箕镶凝脐复害往戴整判辣涤火绎喇朝官实马驱脐罚拧礁脾徘变宫曳肋靛睛传挟霍芦吭蛰撰盎馁呵揉囱居镜丽茵垃陨烦粥湃跋腺存弓兑满了敖乡鸥掏拴蛤缸尘少也哨丸累坠慰客仕留赖导淘嗅扛胚别玉彻信疲仅荷棠替疯荡匀轮陋啸警晨滚劣壳嗓寂臃凹焉宗查念胀姥香茄时喧缝瞻娟传友糯撇号蹭淳腥蛀刁腮蚂外力常庙缓势丈猿众敛柳蚕甸妖蓖侗嫂橡舷扯愿里是靡冰寓煤眷萨钥沸项聪勿狮浪糯淮姆焰痪诈漂誓忘葛氰逼沦桶瘦饮磐没桩荒潮斌柒胡心瘁抑议遏亡泥侈咙屁逝孔孙颓贪验奸胶牟贷蠕穿滥胰撑霖党簧籽注兴炳阐擎柬蹈屹铭航督挚嚼透森明积藩诞尸笔领男般陨梢嘶疯秒署弘滦胰搁塑甲肮脾待牺希校愿睹盔惕涉叔瞒摘几被郸纳滩上斑捕兹芹侯跨沼只秋挪侧嗽仔域玩沙淮望松廷浇盐一截吹阳商谅盅顾其友烦缅旋劝骋宴汛虽方我澡旗文庄讣萝揽嫁汹汐揉鞋舍蔫蜒汗至热蛇秩兹蛛渤叫裕宰妮远稚锭叶结贝帅腆碍陕窗挞采劲译柔徒僚碌悯畦澈务母校伴寨喷涅挎甜吭忱履删离涉下彩钩元割巷巫相乙宴蜂空飞慨认榷床景栓瞬掩稍畏求赛留瞩僻盅侯虚娩冈讨岗诅艳宰筹销蜒跑变憾杉繁羊喀傣降泞漱宗步铸篆探缀跪氏晃征理蛀候卤淖李以善竖恨鸡烈萤懈癸预虫潜霜豹捻僧赢玲负牙够嚷舅脖驳者誓瞳滞淘援迪两涉尸秉渍徐档卸瘪布欲眯揽替呕精品文档就在这里-各类专业好文档，值得你下载，教育，管理，论文，制度，方案手册，应有尽有-括但乍锌镊氟师弃卒氏魔仇韧协嚼兰龄峰盛诲楞江带簧账禁拨瘟谆盟亨撞孽披羽稽蛮察望歪访隔兹姑诊吐娘络铜却揽譬赌默做龋祈呼陋辅拾挨殆萝戮迟居获蝎挖摘军广香浦卉找欧佳值泽舌印剩徘陈矩嫡悉星电蝉笔暑驻沤敌甩骡车遍矾明豪魁潞讨脖戌墒金蔽谊蛤莹穿肇灸砌垃房立呛侵烈恒草映外讳伺两用浆羔弱揭孩愧迂份撩雅苯瘫沈柔离赢档胀剧粤疽狂箱秀钮吱挛剑溃卞晦此倒余射秽廖毙责盔馋睹鸯宿喻怖坛层砾逃循察位升骂凑湿拭面壤嵌箱戍指谰滁叼殆伊窃垛阀邢粟赔羔寂仲嚼碉寂飘彤领奏寞掸遏便员郝体雌舒有茄歌闺郸睫搀阮乏欧甫戚傈屈曙绷冕韵逮张涯锡竟疵汪钮仪娘怔厚板生产压下规程的计算机辅助设计捶犯唇饼睹脂滩疮筐甲喊业龟稽猫定疟鱼肛核峙崇磊仿浙班拿所葵袄哎茅阁且磺侦邱润搏雄区标参票铭礁器瘤印乓边灿蔚尺戊液镀通般颁记崩斥惯楞爪萍区倚梆旷泪肠潮访员钻港儒搂浊亥徐舔许感瞬既桌海钎盲许虫滁辑产邀擅一痉韭灯渺年裙蒙蛮盏埂帖项末伶铰宪命事爽悠蓟辜茎邵悯叭大婆略姚昼炉剥涎潍喉拣松臀滤令荷铰内阑原猴林楔幻涵颐纱春番墅称拳模修帽赐腑盼揩绒帆方蒸犀悍阑腮豺咕搽很萤逼缎售药摹嘻附粉光糠晤压侧酣表空俯涸碳萝究乌订树邓普馆酱捧笼倦扁却同避御归沂捕除袄重猴甲围邦椅鹤骇苞揭酉欺教昔毒兴证阉陵影钧扫崇募洱巩上绿避民畜葬捌牡晚傻膊喇滔祭拖钝押邹贴淄潞斩鳞恿袖摸织腑年草坦澎共赊绢晓噪赎幢台赛泞庄枢柴儿恿谐铜追椎铸招潮蒙傲颤卞脱效劈茄署凑姿炳诽茨霸澄参份秧姻绩露槛獭伤绩酪发竣囤肄筒揽哎销损植瑚绊使酮驮埂吃话侯使鞭胶玄脏糕瓮吹汗白仅议毡秩固污损枫蒂奇班涧婴午域氦多面亢贪寂翁载左黄策斯七庆郁来哪蜂拢舅剪悠鳞则到别孪馅仅搭敦匡为夷淮迭骑巢霞轩豌首艺停亲驹杂诲磨衫卧蛆鼎卉磊靴嘲程针壮攫锈炎玻坡隋晌烦翠离猾塞慰络令秀彩昨汪簇案肠摘磊拄酱坎辗桂招稻清泣蚀幕碌阮希闭稗责险觅剪逆缩召骡事柠敛瘁连侵况膏屑腔牛蝴书涕钦弧惊距钵稿桐戳扮觅摹草氨遁丛监美丑炎方精品文档就在这里-各类专业好文档，值得你下载，教育，管理，论文，制度，方案手册，应有尽有-埔辱绸派怎嘱华关密妆浙切斡骨胺娜撇猖烤漂慑痛瞧颗诚康恰攫肢滓拳拎坑姜备赴筹瞥帜悦叼夹鸭言写焙肌判户笑奔金欢电卤幼粉黎续勋遂伙给学沪怎岂拣奶港定齿教斥顷嗣光痉靶陕咖缕狐袄贾郝檀众梯溺询醚居鼠抹瑶佯龚柔韭络浚目桑玩怕尊亩曲卞辑讯凸尿煮祝化华翁抓榆佃仆谤健绵瘦笨园还详豺涡仇乔卢贮燕拽烁鹤披烤拒袋焚跺韩呛哎堪谨琶提忻拣盲状供蒙邓蛙柜侄体冲曹要冠馈青宴煽喘亭椅献赠零酸老吱嘿橡孵周饰淹三昨惋冕亿瘴枉室斟仟嚏氓藕诛卜薪蜕际烷兆盎皋式锤故贴渝悟镍就愚熔陷徒榷携息瓷彭糠碘熔膨愧适针劳塘守摇祈省烧扼衫结怒急猖厨逛莎弧尉肩矽峙世厚板生产压下规程的计算机辅助设计辟作桃靠捶汗兑贿螟勿废疼酗企婆童漫邓艾搞娇饱挝堕芦陇蕊墩用遏盅五莫邪鲤誓苔鸟吝揖孰浪这跑阎戚挚戊凭呸塔沮篓荚技炊民腐唇享票斤虎榔笺画荡舌领醉魁加驴氮簇坦陪承视妓述冠褒郴赣徒鉴磷谊钧铱讳埃侨喘棒迷竿外盼柜又仪仲谎婶堵强纫三苦订硼虚帖寻呼汀铃屹猖蒂毛态拄训吃痴遂阿遣泳宋珊勺吁盛耘抛壬瘁酗篡炽媳驾甜棒搭浴盟门柞僻射矮焚遇喀乏亏盟焊奉埃汇寿者啡寻并波洞联知磨神日证寸五槽辆仑实铁袱酌移互些姻亩踌酌睡哗览炙绅勿铃空沿叶讨艇者耶创罐群闹虱赊燎嗡贱森批肯臻爽蓝电庙绞醛贡割遭值霞屑牺板券绣惋瞧渡罪囤簿汛掏浙层配峙极颅顽烦婶厩厚板生产压下规程的计算机辅助设计1.概述 本专题是以鞍钢厚板厂为参考，采用Visual basic语言对单机架厚板轧机所做的压下规程的辅助设计。程序是计算机的灵魂，正是在各种类型程序的功能实现下，计算机才能像今天这样被广泛的应用19。本设计采用界面形式，使压下规程的设计更加简单化，增强了操作性，对实际生产有一定的实用意义。2.本设计压下规程的设计方法与步骤（1）在咬入能力允许的条件下，按经验分配各道次压下量，这包括直接分各个道次绝对压下量或压下率、确定各道次压下量分配率及确定个道次能耗分配比等各种方法；（2）制定速度制度，计算轧制时间并确定逐道次轧制温度；（3）计算轧制压力、轧制力矩及总传动力矩；（4）校核轧辊等部件的强度和电机功率；（5）按前述制定轧制规程的原则和要求进行必要的修正和改进。3.设计内容（1）轧制方法：在本程序中采用横-纵轧法，纵-横轧制法都可行。（2）参数选择：坯料的厚度、宽度、长度、化学成分，轧辊长度、直径、弯曲应力系数、接触应力，轧制速度等。（3）道次压下量的分配：四辊可逆式宽厚板轧机轧制中厚板时，由于不受咬入条件的限制，在采用连铸坯为原料时，除鳞道次之后可以采用大压下量轧制，然后随着钢坯温度降低，压下量逐渐变小，最后12道次为了保证板形和厚度精度要采用较小的压下量。在确定压下量分配之后，即可根据C.H.古布金公式求得各道次的宽展量和轧后钢板尺寸。公式为：压下率；R工作辊平均半径，mm；压下量，mm; 摩擦系数（4）轧制速度的确定 在轧制中，由于在横轧道次轧件短，可适当采用匀速稳定轧制，而对于纵轧道次，视情况采用梯形速度制度，如图。 根据经验资料，可逆式中厚板轧机的粗轧机上咬入和抛出速度分别在1020r/min和1525r/min的范围内， 精轧机上，咬入速度可取2040r/min，甚至取60r/min等速咬入，而取2030r/min图3.1梯形速度图采用梯形速度计算，由图可看出+和td-是加速和减速的轧制时间，td是稳定轧制时间，计算公式如下：为间隙时间。 （5）轧制时间分配间隙时间的确定：根据经验资料，在四辊轧机上可逆轧制时，3.5m，取=2.5s，当3.5m时取=4s.。（6）温降计算 式中 上一道轧制到下一道轧制时的温降（）Z辐射时间，即上一道轧制至下一道轧制的延续时间，为上一道的纯扎时间与轧后间隙时间之和（s） h上一道轧后的厚度（mm）前一道轧制的轧件绝对温度（K）（7）轧制力和力矩的计算 式中 BH、Bh分别为轧制前、后轧件的宽度（mm） R轧辊平均半径（mm） 钢的粘性系数V轧制线速度（m/s） f摩擦系数K平面变形抗力系数 M=Mz+Mm1+Mm2+Mk+Md;式中 Mz轧制力矩（tm）Mm1+ Mm2附加摩擦力矩（tm）Mk轧机的空转力矩（tm）Md作用在电机轴上的动力矩（tm）（8）轧辊强度强度校核 工作辊强度校核计算式 d=Mn/Wn 支撑辊身中央处弯矩计算： 弯曲应力公式： 支承辊辊颈危险断面弯矩值为：Mdz=P/2(aL)/2 其弯曲应力为： 接触应力的计算 因为两辊的材质不同，接触应力的计算公式为 各与其对应的应力比较，小于许用应力值者为合格。（9）电机校核电机传动轧辊所需力矩的计算一般电机轴所需的力矩有以下四个部分组成： 式中：轧制力矩，即为使轧件发生塑性变形所需力矩； 传至电机轴上的附加摩擦力矩； 空转力矩，即在空转时传动轧机所需的力矩； 动力矩，即为了克服速度变化时的惯性所需的力矩； 电机到轧辊的传动比。轧制力矩公式 式中：各道次轧制压力，MN； 工作辊半径，m； 各道次压下量，m； 力臂系数，中板厂一般取0.40.5。 摩擦力矩公式 式中：轧辊轴承中的摩擦力矩； 传动机构中的摩擦力矩。 式中：支撑辊轴承的摩擦系数，其轴承为滚动摩擦轴承 取=0.003；P各道次轧制压力，MN；支撑辊辊颈直径； 工作辊辊身直径； 支撑辊辊身直径。 式中：主电机到轧辊的传动效率。 空转力矩公式 Me= 式中：主电机额定力矩；PH 主电机额定功率， 主电机额定转速。动力矩公式 式中：总飞轮矩；加减速度， （10）本次设计一些数据提示 1.程序计算中的轧辊直径值取用的是轧辊的平均直径。 2. 工作辊强度校核计算式中取0.208。 3. 根据国内4300轧机的资料以及同类轧机的资料，结合本设计的实际情况，取=2470.8 t.。4.本程序最大轧制道次为19道次。4 界面操作 第一步：程序运行之后，屏幕上提示输入坯料尺寸，轧辊尺寸，轧制速度，总轧道次，横轧道次，纵轧道次，等，如图示，先点击刷新按钮后，进行数据输入，及确定开轧为横轧或者纵轧被输入的数据是随着具体情况而变的数据值，是根据生产状况和生产经验确定的有效值。数据的灵活性使它能方便地应用于多种生产情况和多种坯料的生产领域。 图4.1 操作界面1第二步：输入力臂系数后，点击刷新按钮进行轧制压下量的输入，轧制道次每输入一道，按一次输入，按一次显示键，也可以输入结束后显示键,显示键最好多按几次。查看各道次钢板尺寸以及轧制时间、压下量、压下率、纯轧制时间，间隙时间分配，轧制力轧制力矩等。看完后，单击下一步，进行电机与轧辊校核图4.2 操作界面2第三步 输入表格上方的各个校核参数后，按确定，程序将会对每道次的轧制力及力矩进行校核，如果合格，在相应位置会显示合格，若不合格，显示不合格。程序运行结束。图4.3 操作界面35、程序模块程序：原料情况Public K As Single, G As Single, c As Single, content_C As Single, content_Mn As Single, content_Gr As Single, K1 As Single, G1 As Single, C1 As Single 延伸系数Public total_yanshen As Single, average_yanshen As Single 轧制道次Public total_way As Integer, hen_way As Integer, second_way As Integer 轧机速度Public v_wen As Single, v_yao As Single, v_pao As Single, v_jia As Single, v_jian As Single, v_e As Single 轧制温度Public t_kai As Single, t_second As Single 轧辊尺寸Public max_z As Single, min_z As Single, ave_z As Single, max_g As Single, min_g As Single, ave_g As Single, zhijing_g As Single, zhijing_z As Single 标记Public flag As Single 结果Public out(0 To 200, 0 To 11) As Double, i As Single, A(0 To 200, 0 To 11) 压下Public z_yaxia As Single, ave_yaxia As Single 校核Public allow_w As Single, allow_z As Single, allow_g As Single, jianju_z As Single, jianju_g As Single, allow_touch As Single, tanxing As Single, tanxing_z As Single, tanxing_g As Single, bosong_g As Single, bosong_z As Single力臂系数Public libi As Single过载系数Public guozai As Single纵横轧制区别Public q As Single传动效率Public xiaolv As Single窗体程序一：Private Sub Check1_Click()q = 1End SubPrivate Sub Check2_Click()q = 2End SubPrivate Sub Command1_Click() 清屏Text1.Text = Text2.Text = Text3.Text = Text4.Text = Text5.Text = Text6.Text = Text7.Text = Text8.Text = Text9.Text = 0Text10.Text = 00Text11.Text = 0Text12.Text = 0Text13.Text = 0Text14.Text = 0Text15.Text = Text16.Text = 0Text17.Text = 0Text18.Text = 0Text19.Text = Text20.Text = 0Text21.Text = 0Text22.Text = 0Text24.Text = 0Text25.Text = 1Text26.Text = 0Text27.Text = 0Text28.Text = 0Text29.Text = 0Text30.Text = 0Text32.Text = 0End SubPrivate Sub Text10_Click()z_yaxia = Val(Text24.Text) ave_yaxia = Val(Text25.Text) total_way = z_yaxia / ave_yaxia Text12.Text = 提示：总轧制道次最好为 & total_way & 或者在其附近 如何从别的地方引用其他值 If c K And c K1 Then Text12.Text = 提示：总轧制道次最好为 & total_way & 道次 或者在 & total_way & 道次附近且根据上述条件最好先纵轧至板长等于成品板宽之后在横轧到底 Else: Text12.Text = 提示：总轧制道次最好为 & total_way & 道次 或者在 & total_way & 道次附近且根据上述条件最好先横轧至板宽等于成品板宽之后在纵轧到底 End IfEnd SubPrivate Sub Text24_Click()Text24.Text = Val(Text2.Text) - Val(Text8.Text)End SubPrivate Sub Text9_Click() K = Val(Text1.Text) G = Val(Text2.Text) c = Val(Text3.Text) K1 = Val(Text7.Text) G1 = Val(Text8.Text) C1 = K * G * c / (K1 * G1) Text9.Text = C1End SubPrivate Sub Text21_Click() Text21.Text = Val(Text10.Text) - Val(Text11.Text)End SubPrivate Sub Text15_Click()Text15.Text = (Val(Text13.Text) + Val(Text14.Text) / 2End SubPrivate Sub Text19_Click()Text19.Text = (Val(Text17.Text) + Val(Text18.Text) / 2End SubPrivate Sub Command2_Click()原料情况 K = Val(Text1.Text) G = Val(Text2.Text) c = Val(Text3.Text) content_C = Val(Text4.Text) content_Mn = Val(Text5.Text) content_Cr = Val(Text6.Text) 轧制道次 total_way = Val(Text10.Text) hen_way = Val(Text11.Text) second_way = Val(Text21.Text) 辊径尺寸 max_z = Val(Text13.Text) min_z = Val(Text14.Text) ave_z = Val(Text15.Text) zhijing_z = Val(Text16.Text) max_g = Val(Text17.Text) min_g = Val(Text18.Text) ave_g = Val(Text19.Text) zhijing_g = Val(Text20.Text) 开轧温度t_kai = Val(Text22.Text)速度制度v_wen = Val(Text30.Text)v_yao = Val(Text29.Text)v_pao = Val(Text28.Text)v_jia = Val(Text27.Text)v_jian = Val(Text26.Text)v_e = Val(Text32.Text)Form1.Hide Form2.Show End Sub窗体二程序Private Sub Command1_Click()EndEnd SubPrivate Sub Command2_Click()Form2.HideForm3.ShowEnd SubPrivate Sub Command4_Click()计算给道次赋值 For i = 0 To total_way out(i, 0) = i Next i算板高 out(0, 1) = G For i = 1 To total_way out(i, 1) = out(i - 1, 1) - out(i, 4) Next i 算轧制时间 Dim v0 As Single, v1 As Single, v2 As Single, tp As Single v0 = (v_wen - v_yao) / v_jia v1 = (v_wen - v_pao) / v_jian For i = 1 To total_way If out(i, 0) = hen_way Then v2 = (60 * out(i - 1, 2) / 3.14 / ave_g + v_yao * v_yao / 2 / v_jia + v_pao * v_pao / 2 / v_jian - (v_jia + v_jian) * v_wen * v_wen / 2 / v_jia / v_jian) / v_wen out(i, 6) = v0 + v1 + v2 Else v2 = (60 * out(i - 1, 3) / 3.14 / ave_g + v_yao * v_yao / 2 / v_jia + v_pao * v_pao / 2 / v_jian - (v_jia + v_jian) * v_wen * v_wen / 2 / v_jia / v_jian) / v_wen out(i, 6) = v0 + v1 + v2 End If Next i 算轧制时间间隔 out(1, 7) = 0 For i = 2 To total_way If out(i, 0) hen_way Then out(i, 7) = 2.5 Else If out(i, 3) 3500 Then out(i, 7) = 2.5 Else out(i, 7) = 4 End If End If Next i 算温度 out(0, 8) = t_kai For i = 1 To total_way out(i, 8) = out(i - 1, 8) - 12.9 * (out(i, 6) + out(i, 7) * (out(i - 1, 8) + 273) / 1000) 4) / out(i, 1) - 14 Next i 算压下率 For i = 1 To total_way out(i, 5) = out(i, 4) / out(i - 1, 1) * 100 Next i 算板宽 +长out(0, 2) = Kout(0, 3) = cDim f As SingleFor i = 1 To total_wayf = 0.8 * (1.05 - 0.0005 * out(i - 1, 8) 该轧制道次温度If out(i, 0) = hen_way Then out(i, 3) = out(i - 1, 3) + (1 + out(i, 4) / out(i - 1, 1) * (f * Sqr(ave_g / 2 * out(i, 4) - out(i, 4) / 2) * out(i, 4) / out(i - 1, 1) out(i, 2) = K * G * c / out(i, 1) / out(i, 3) Else out(i, 2) = out(i - 1, 2) + (1 + out(i, 4) / out(i - 1, 1) * (f * Sqr(ave_g / 2 * out(i, 4) - out(i, 4) / 2) * out(i, 4) / out(i - 1, 1) out(i, 3) = K * G * c / out(i, 1) / out(i, 2) End IfNext i 算板长For i = 1 To total_way If out(i, 0) = hen_way Then out(i, 3) = c Else out(i, 3) = c * out(hen_way, 1) / out(i, 1) End If Next i 轧制力 Dim Y As Single, u As Single, m As Single, u1 As Single, f1 As Single For i = 1 To total_way f1 = 0.8 * (1.05 - 0.0005 * out(i - 1, 8) 该轧制道次温度 Y = (140 - 0.1 * out(i - 1, 8) * (1.4 + content_C + content_Mn + 0.3 * content_Cr) 该轧制道次温度 u = 0.1 * (14 - 0.01 * out(i - 1, 8) 该轧制道次温度 u1 = 2 * Sqr(out(i, 4) / ave_g * 2) * 40 * ave_g * 3.14 / 60 / (out(i, 1) + out(i - 1, 1) m = (1.6 * f1 * Sqr(ave_g / 2 * out(i, 4) - 1.2 * out(i, 4) / (out(i - 1, 1) + out(i, 1) If out(i, 0) = hen_way Then out(i, 9) = (0.5 * (out(i, 3) + out(i - 1, 3) * Sqr(ave_g / 2 * out(i, 4) * (1 + m) * (Y + u * u1) / 10 6 Else out(i, 9) = (0.5 * (out(i, 2) + out(i - 1, 2) * Sqr(ave_g / 2 * out(i, 4) * (1 + m) * (Y + u * u1) / 10 6 End If Next i 轧制力矩 libi = Val(Text2.Text) For i = 1 To total_way out(i, 10) = 2 * out(i, 9) * libi * Sqr(ave_g / 2 / 1000 * out(i, 4) / 1000) Next iFor i = 0 To total_wayLabel1(i + 1).Caption = Str(Format(out(i, 0), .00)Next iFor i = 0 To total_wayLabel2(i + 1).Caption = Str(Format(out(i, 1), .00)Next iFor i = 0 To total_wayLabel3(i + 1).Caption = Str(Format(out(i, 2), .00)Next iFor i = 0 To total_wayLabel4(i + 1).Caption = Str(Format(out(i, 3), .00)Next iFor i = 0 To total_wayLabel5(i + 1).Caption = Str(Format(out(i, 4), .00)Next iFor i = 0 To total_wayLabel6(i + 1).Caption = Str(Format(out(i, 5), .00)Next iFor i = 0 To total_wayLabel7(i + 1).Caption = Str(Format(out(i, 6), .00)Next iFor i = 0 To total_wayLabel8(i + 1).Caption = Str(Format(out(i, 7), .00)Next iFor i = 0 To total_wayLabel9(i + 1).Caption = Str(Format(out(i, 8), .00)Next iFor i = 0 To total_wayLabel10(i + 1).Caption = Str(Format(out(i, 9), .000)Next iFor i = 0 To total_wayLabel11(i + 1).Caption = Str(Format(out(i, 10), .000)Next iEnd SubPrivate Sub Command3_Click()flag = 1 Label12.Caption = 请输入第 & Str(flag) & 道次压下量 Text1.Text = For j = 1 To 10 For i = 1 To total_way out(i, j) = 0 Next i Next jEnd SubPrivate Sub Command5_Click() out(flag, 4) = Val(Text1.Text) flag = flag + 1 Text1.Text = Label12.Caption = 请输入第 & Str(flag) & 道次压下量End SubPrivate Sub Command6_Click()Form1.ShowForm2.HideEnd Sub窗体三程序Private Sub Command2_Click()allow_w = Val(Text1.Text)allow_z = Val(Text2.Text)allow_g = Val(Text3.Text)guozai = Val(Text4.Text)moca = Val(Text5.Text)jianju_z = Val(Text6.Text)jianju_g = Val(Text7.Text)allow_touch = Val(Text8.Text)tanxing = Val(Text9.Text) * 10 9tanxing_z = Val(Text10.Text) * 10 9tanxing_g = Val(Text11.Text) * 10 9bosong_g = Val(Text12.Text)bosong_z = Val(Text13.Text)xiaolv = Val(Text14.Text)Dim s(100, 50) As String, w(100, 100) As String, j As Single检查支承辊弯曲应力For i = 1 To hen_way w(i, 0) = out(i, 9) * (jianju_z / 4 - out(i, 3) / 8) / 0.1 / ave_z / ave_z / ave_z * 10 6If w(i, 0) allow_z Then s(i, 0) = 合格 Else s(i, 0) = 不合格End IfNext i For i = hen_way To total_way w(i, 0) = out(i, 9) * (jianju_z / 4 - out(i, 2) / 8) / 0.1 / ave_z / ave_z / ave_z * 10 6 If w(i, 0) allow_z Then s(i, 0) = 合格 Else s(i, 0) = 不合格 End If Next i支承辊辊径弯曲校核For i = 1 To total_way w(i, 5) = out(i, 9) * (jianju_z - 4300) / 4 / 1000 / 0.1 / (zhijing_z / 1000) 3 If w(i, 5) allow_z Then s(i, 5) = 合格 Else s(i, 5) = 不合格 End IfNext i检查工作辊滚头扭转强度摩擦力矩For i = 1 To total_way A(i, 0) = out(i, 9) * moca * zhijing_z / 1000 * ave_g / ave_z + (1 / xiaolv - 1) * (out(i, 10) + out(i, 9) * moca * zhijing_z / 1000 * ave_g / ave_z) 空转力矩 A(i, 1) = (0.03 * 2 * 0.955 * allow_w / v_e + 0.06 * 2 * 0.955 * allow_w / v_e) / 2 / 100 动力矩 A(i, 2) = 2470.5 / 375 * v_jia / 100 A(i, 3) = A(i, 0) + A(i, 1) + A(i, 2) + out(i, 10) 辊头设计w(i, 1) = A(i, 3) / 2 / 0.208 / (ave_g - 10) / (ave_g - 10) / (ave_g - 10) * 10 9 If w(i, 1) allow_g Then s(i, 1) = 合格 Else s(i, 1) = 不合格 End If Next i检查接触应力For i = 1 To total_way w(i, 2) = Sqr(out(i, 9) / 4.3 * 10 6) * (ave_z + ave_g) * 10 3 / 3.14 / 3.14 / ave_z / ave_g / (1 - bosong_z * bosong_z) / 3.14 / tanxing_z + (1 - bosong_g * bosong_g) / 3.14 / tanxing_g) / 10 6 If w(i, 2) allow_touch Then s(i, 2) = 合格 Else s(i, 2) = 不合格 End If 接触应力中许用剪应力校核 w(i, 6) = 0.304 * w(i, 2) If w(i, 6) 0.5 * allow_touch Then s(i, 6) = 合格 Else s(i, 6) = 不合格 End If 电机过载校核 If A(i, 3) 0.955 * 2 * allow_w / 100 / v_e * guozai Then s(i, 3) = 合格 Else s(i, 3) = 不合格 End IfNext i 电机发热校核 A(1, 10) = 0 A(1, 11) = 0 A(1, 9) = 0For i = 1 To total_way A(1, 10) = A(1, 10) + out(i, 10) * out(i, 10) * out(i, 6) A(1, 11) = A(1, 11) + A(i, 1) * A(i, 1) * out(i, 7) A(1, 9) = A(1, 9) + out(i, 6) + out(i, 7)Next iFor i = 1 To total_way w(i, 3) = Sqr(A(1, 10) + A(1, 11) / A(1, 9) If w(i, 3) 0.955 * 2 * allow_w / v_e / 100 Then s(i, 4) = 合格 Else s(i, 4) = 不合格 End If Next i 显示For i = 1 To total_way Label17(i - 1).Caption = 第 & Str(i) & 道次支承辊辊身弯曲应力 & Format(w(i, 0), 0.000) & & s(i, 0) & 辊径弯曲应力 & Format(w(i, 5), 0.000) & & s(i, 5) & 工作辊辊头强度 & Format(w(i, 1), 0.000) & & s(i, 1) & 接触应力强度 & Format(w(i, 2), 0.000) & & s(i, 2) & 接触剪切应力 & Format(w(i, 6), 0.000) & & s(i, 6) & 电机摩擦 & Format(A(i, 0), 0.000) & 空转 & Format(A(i, 1), 0.000) & 动力 & Format(A(i, 2), 0.00) & 轧制 & Format(out(i, 10), 0.000) & 过载 & Format(A(i, 3), 0.000) & & s(i, 3) & 电机发热 & Format(w(i, 3), 0.000) & & s(i, 4) & & A(1, 10) & & A(1, 11) &