凸轮轮廓曲线.doc

姓名：雷小舟 班级：机制04班 学号：1103010411 利用VB绘制凸轮轮廓曲线及计算相关直角坐标和压力角VB程序语言如下：Private Sub Command1_Click()参数初始化Dim r0%, r1%, h%, e%Dim a1%, a01%, a2%, a02%r0 = Val(InputBox(请输入基圆半径)r1 = Val(InputBox(请输入滚子半径)h = Val(InputBox(请输入升程)e = Val(InputBox(请输入偏距)a1 = Val(InputBox(请输入推程运动角)a01 = Val(InputBox(请输入远休止角)a2 = Val(InputBox(请输入回程运动角)a02 = Val(InputBox(请输入近休止角)Text1.Text = r0Text2.Text = r1Text3.Text = hText4.Text = eText5.Text = a1Text6.Text = a01Text7.Text = a2Text8.Text = a02Picture1.Scale (-75, 55)-(75, -55) 建立坐标系Picture1.Line (0, 50)-(0, -50)Picture1.Line (-55, 0)-(55, 0)初始化参数Dim i!, j!, k!, m!, n!, l!Dim a!, b!, c!, d!, f!Const pi = 3.141592653Dim s#(360), s1#(360)Dim ds#(360), ds1#(360)Dim dx#(360), dy#(360)a = a1b = a1 + a01c = a1 + a01 + a2 / 2d = a1 + a01 + a2f = 360j = 0For i = 0 To a 推程段s(j) = h * (1 - Cos(pi * i / a1) / 2ds(j) = h * pi * Sin(pi * i / a1) / (2 * a1)ds1(j) = ds(j) / 2s1(j) = s(j) / 2 按比例定义参数值j = j + 1Next iFor i = (a + 1) To b 远休段s(j) = hds(j) = 0ds1(j) = 0s1(j) = s(j) / 2j = j + 1Next iFor i = (b + 1) To c 回程等减速段s(j) = h - 2 * h * (i - a1 - a01) 2 / (a2 2)ds(j) = -4 * h * (i - a1 - a01) / (a2 2)ds1(j) = ds(j) / 2s1(j) = s(j) / 2j = j + 1Next iFor i = (c + 1) To d 回程等加速段s(j) = 2 * h * (a1 + a01 + a2 - i) 2 / (a2 2)ds(j) = -4 * h * (a1 + a01 + a2 - i) / (a2 2)ds1(j) = ds(j) / 2s1(j) = s(j) / 2j = j + 1Next iFor i = (d + 1) To f 近休段s(j) = 0ds(j) = 0ds1(j) = 0s1(j) = s(j) / 2j = j + 1Next i初始化参数Dim X0#, Y0#, X1#, Y1#, X2#, Y2#Dim X11#, Y12#, X21#, Y22#Dim e1#, r#, p#, q#, r11#Dim s0#, a3#, a03#, a13#按比例定义参数值e1 = e / 2r = r0 / 2r11 = r1 / 2s0 = Sqr(r 2 - e1 2)For i = 1 To 360dx(i) = (ds1(i) - e) * Sin(i * pi / 180) + (s0 + s1(i) * Cos(i * pi / 180)dy(i) = (ds1(i) - e) * Cos(i * pi / 180) - (s0 + s1(i) * Sin(i * pi / 180)Next i输出理论、实际轮廓线图像及坐标值X0 = e1: Y0 = s0For g = 2 To 360m = g - 1求理论轮廓线X2 = (s1(g) + s0) * Sin(g * pi / 180) + e1 * Cos(g * pi / 180)Y2 = (s1(g) + s0) * Cos(g * pi / 180) - e1 * Sin(g * pi / 180)X1 = (s1(m) + s0) * Sin(m * pi / 180) + e1 * Cos(m * pi / 180)Y1 = (s1(m) + s0) * Cos(m * pi / 180) - e1 * Sin(m * pi / 180)Picture1.Line (X0, Y0)-(X1, Y1) 输出理论轮廓线图Picture1.Line (X1, Y1)-(X2, Y2)求实际轮廓线p = dx(m) / Sqr(dx(m) 2 + dy(m) 2)q = -dy(m) / Sqr(dx(m) 2 + dy(m) 2)p1 = dx(g) / Sqr(dx(g) 2 + dy(g) 2)q1 = -dy(g) / Sqr(dx(g) 2 + dy(g) 2)X11 = X1 - r11 * qY12 = Y1 - r11 * pX21 = X2 - r11 * q1Y22 = Y2 - r11 * p1Picture1.PSet (X11, Y12) 输出实际轮廓线图求压力角a3 = Abs(ds1(m) - e1) / (s1(m) + s0)a03 = Atn(a3) * 180 / pia13 = Abs(a03)If m Mod 5 = 0 ThenText9.Text = Text9.Text & & m & & 2 * X1 & & 2 * Y1 & & 2 * X11 & & 2 * Y12 & & a13 & & vbCrLf 每隔5输出理论、实际轮廓线坐标值及压力角End IfX0 = X2: Y0 = Y2Next gEnd Sub代码编辑完成之后进行控件编辑，然后运行，图片如下：凸轮轮廓曲线图单独如下：（内轮廓为凸轮实际轮廓曲线，外轮廓为凸轮理论轮廓曲线）理论坐标值，实际坐标值及压力角分别如下： 角度 理论坐标X1值 理论坐标Y1值 实际坐标X11值 5 13.3422488649574 37.7654699135133 8.00563520863182 29.3084873143164 （实际坐标Y12值） 14.4275917751835 （压力角） 10 16.6113888240431 36.6201626123094 10.5751606870804 28.6474623245437 14.3395586049324 15 19.8099518319073 35.2947136880551 13.1258634706131 27.856772926096 14.2154851012779 20 22.9390013468958 33.786344231391 15.6611472387024 26.9282949766938 14.0583301511266 25 25.9972138724791 32.0891892397401 18.1814385503099 25.8511081154383 13.8717847601794 30 28.9800857936919 30.1949810103691 20.6835375066202 24.6122140870338 13.6600868103377 35 31.8793010533959 28.0938923077854 23.16012077977 23.1973736101787 13.4278219312224 40 34.6822889682749 25.7755042172997 25.5994160643274 21.5920343882299 13.1797270422329 45 37.3719941167773 23.229858501982 27.985062991446 19.7823196627103 12.9205106604117 50 39.9268720143513 20.4485506973342 30.2961708002451 17.7560436639891 12.6547002911991 55 42.3211155304441 17.4258182420722 32.5075774448079 15.5037177655705 12.3865229198335 60 44.5251080223162 14.1595777289496 34.5903083545665 13.0195095021838 12.1198205174591 65 46.5060902965086 10.6523668774477 36.5122259542568 10.3021162405198 11.8579990820075 70 48.2290200895894 6.91215002731713 38.2388536146616 7.35551647082509 11.6040073161022 75 49.6575950992337 2.95295071320818 39.7343503575917 4.18956455652113 11.3603396435603 80 50.755403980713 -1.20471896705107 40.9626058162162 .820399328117849 11.1290577603493 85 51.4871644002125 -5.53365515911432 41.8884190713341 -2.72935700960609 10.9118250940043 90 51.8200034054071 -9.99999998471846 42.4787204023372 -6.43062582997395 10.7099491725521 95 51.7247331809868 -14.5635261361755 42.703791981655 -10.2481327730858 10.5244277665238 100 51.1770747877666 -19.1781651797988 42.5384422811835 -14.1409011986077 10.3559955978335 105 50.1587837607284 -23.792767386665 41.9630895289492 -18.0629684321482 10.2051692917602 110 48.6586344217534 -28.3520722730608 40.964711941724 -21.9643060851593 10.0722890154272 115 46.673224342148 -32.7978611078048 39.5376265682527 -25.7919176018107 9.95755586824093 120 44.2075664047356 -37.0702557219873 37.6840642391778 -29.4910790189435 9.8610645632329 125 41.2754431487963 -41.1091222946528 35.4145151038628 -33.0066830044075 9.78283127563007 130 37.8995062720208 -44.8555345958003 32.74782726321 -36.2846417957369 9.7228167566893 135 34.1111130150826 -48.2532486023801 29.7110497677609 -39.2733018642547 9.6809449397216 140 29.9499003450573 -51.2501395609079 26.3390204055926 -41.9248220830537 9.65711732312722 145 25.4631070496697 -53.7995534860555 22.6737079083436 -44.1964679178452 9.6512234212581 150 20.7046627206483 -55.8615277280094 18.7633271119198 -46.0517766580646 9.66314754375353 155 15.7572222888754 -57.4534880074477 14.6782501887699 -47.5118674550833 9.66314754387064 160 10.6898598810582 -58.6081925519488 10.481462918737 -48.6103642524582 9.66314754387064 165 5.54114118486271 -59.3168533627028 6.20490538704218 -49.3389068262703 9.66314754387064 170 .350251058433762 -59.5740771030407 1.88112477874535 -49.6919505276289 9.66314754387064 175 -4.84330469003621 -59.3779061449833 -2.45697232496655 -49.666808480794 9.66314754387064 180 -9.99999996536154 -58.7298334679721 -6.77637038573203 -49.2636720319233 9.66314754387064 185 -15.0745367207206 -57.5656111090232 -11.0309594505501 -48.4196019869985 9.7007343960619 190 -19.9981704458301 -55.8275558531771 -15.1595919107961 -47.07608981826 9.76109683882332 195 -24.6978957411788 -53.536768837998 -19.0962502669739 -45.252955224612 9.8448875174968 200 -29.1036898513368 -50.7236867981278 -22.7778642759138 -42.9787574382612 9.95309952314434 205 -33.149665708605 -47.4276717837425 -26.1454294146404 -40.2903982189764 10.0870993202687 210 -36.7751707388143 -43.6964642540292 -29.1450765576733 -37.2325905867212 10.248674264752 215 -39.9258158481975 -39.5855064328986 -31.7290786412417 -33.8571996010235 10.4400979065219 220 -42.5544198533926 -35.1571445333176 -33.8567812466153 -30.2224629158374 10.6642177066071 225 -44.6218556442095 -30.4797200758465 -35.4954454802181 -26.3921000447533 10.9245717745374 230 -46.0977855692624 -25.6265620268804 -36.6209932859852 -22.4343201783329 11.2255440327002 235 -46.961274894428 -20.67489284471 -37.2186474299426 -18.420738881855 11.5725712768119 240 -47.2012736879912 -15.7046627303114 -37.2834608920572 -14.4252138861576 11.9724216180152 245 -46.942835198741 -10.8560244008044 -36.9471992675453 -10.5606224187693 12.3336309643983 250 -46.3399833366382 -6.22459690598456 -36.3636123320494 -6.91163517187719 12.681655391662 255 -45.431669611272 -1.82061741740468 -35.569935142498 -3.47778164203514 13.0121159629415 260 -44.2548453917153 2.35094281186775 -34.6000158015688 -.253719466668754 13.3204288555372 265 -42.8438413668393 6.28984791720825 -33.483781229324 2.77000783247466 13.6019181075986 270 -41.2298334709211 9.99999996352438 -32.2468376148195 5.60616502701814 13.8519513559864 275 -39.4404020217594 13.4887864006403 -30.9102073318016 8.26999549168302 14.0660937671204 280 -37.4991893417156 16.766384917381 -29.4901988911806 10.7783909324777 14.2402728080712 285 -35.4256595978295 19.8450386466316 -27.9984018412384 13.1490814919631 14.3709442613559 290 -33.2349630249241 22.7383149633246 -26.4417948741549 15.3998637319424 14.4552483369191 295 -30.93790510528 25.460361226109 -24.8229530749793 17.5478798411627 14.491144224404 300 -28.5410196900453 28.025170740826 -23.1403393798392 19.6089570917465 14.4775121886479 305 -25.9898579223067 30.4060402745624 -21.3432501827544 21.5511525556394 14.