《凸轮轮廓曲线》由会员分享，可在线阅读，更多相关《凸轮轮廓曲线（8页珍藏版）》请在金锄头文库上搜索。
1、姓名：雷小舟 班级：机制04班 学号：1103010411利用VB绘制凸轮轮廓曲线及计算相关直角坐标和压力角VB程序语言如下：Private Sub Commandl_Click()参数初始化Dim r0%, rl%, h%, e%Dim a1%, a01%, a2%, a02% r0 = Val(InputBox(请输入基圆半径) rl = Val(InputBox(请输入滚子半径) h = Val(InputBox(请输入升程) e = Val(InputBox(请输入偏距”) al = Val(InputBox(请输入推程运动角) a01 = Val(InputBox(请输入远休止角)
2、a2 = Val(InputBox(请输入回程运动角) a02 = Val(InputBox(请输入近休止角”) Textl.Text = r0Text2.Text = rlText3.Text = hText4.Text = eText5.Text = alText6.Text = a0lText7.Text = a2Text8.Text = a02Picturel.Scale (-75, 55)-(75, -55)建立坐标系Picturel.Line (0, 50)-(0, -50)Picturel.Line (-55, 0)-(55, 0)初始化参数Dim i!, j!, k!, m!,
3、 n!, l!Dim a!, b!, c!, d!, f!Const pi = 3.l4l592653Dim s#(360), sl#(360)Dim ds#(360), dsl#(360)Dim dx#(360), dy#(360)a = alb = al + a0lc = al + a0l + a2 / 2d = al + a0l + a2f = 360j = 0For i = 0 To a推程段s(j) = h * (l - Cos(pi * i / al) / 2ds(j) = h * pi * Sin(pi * i / al) / (2 * al)dsl(j) = ds(j) / 2
4、sl(j) = s(j) / 2按比例定义参数值j = j + 1Next iFor i = (a + 1) To b远休段s(j) = h ds(j) = 0 ds1(j) = 0 s1(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) / 2 s1(j) = s(j) / 2j = j + 1Next iFor i = (c
5、 + 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) / 2 s1(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
6、#, 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) = (dsl(i) - e) * Sin(i * pi / 180) + (s0 + sl(i) * Cos(i * pi / 180)dy(i) = (dsl(i) - e) * Cos(i * pi / 180) - (s0 + sl(i) * Sin(i * pi / 180)Next i输出理论、实际轮廓线
7、图像及坐标值X0 = el: Y0 = s0For g = 2 To 360m = g - 1求理论轮廓线X2 = (sl(g) + s0) * Sin(g * pi / 180) + el * Cos(g * pi / 180)Y2 = (sl(g) + s0) * Cos(g * pi / 180) - el * Sin(g * pi / 180)XI = (sl(m) + s0) * Sin(m * pi / 180) + el * Cos(m * pi / 180)Y1 = (sl(m) + s0) * Cos(m * pi / 180) - el * Sin(m * pi / 180
8、)Picturel.Line (X0, Y0)-(X1, Yl)输出理论轮廓线图Picturel.Line (Xl, Y1)-(X2, Y2)求实际轮廓线p = dx(m) / Sqr(dx(m)人 2 + dy(m)人 2)q = -dy(m) / Sqr(dx(m)人 2 + dy(m)人 2)pl = dx(g) / Sqr(dx(g) A 2 + dy(g) A 2)ql = -dy(g) / Sqr(dx(g) a 2 + dy(g) a 2)XII = Xl - rll * qY12 = Yl - rll * pX21 = X2 - rll * qlY22 = Y2 - rll *
9、 plPicturel.PSet (Xll, Y12)输出实际轮廓线图求压力角a3 = Abs(ds1(m) - el) / (sl(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 SubTex
10、t9513.342248364957437.76546991351338.00101&.Bl 1388824043136.620162612309410.1519.809951831907335.294713688055113.2022.939001346895833.78634423139115.62525.997213872479132.089189239740118.3028.980085793691930.194981010369120.3531.879301053395928.093892307785423Vl叵I冈凸轮轮廓曲线图单独如下：（内轮廓为凸轮实际轮廓曲线，外轮廓为凸轮理论
11、轮廓曲线）理论坐标值，实际坐标值及压力角分别如下:角度理论坐标XI值513.3422488649574理论坐标Y1值37.7654699135133实际坐标X11值8.0056352086318210.575160687080413.125863470613115.661147238702418.181438550309920.683537506620223.1601207797725.599416064327427.98506299144630.296170800245132.507577444807934.590308354566536.512225954256838.2388536146
12、61639.7343503575917-1.2047189670510741.888419071334142.478720402337242.70379198165542.538442281183541.963089528949240.96471194172439.53762656825271016.611388824043136.620162612309428.647462324543714.33955860493241519.809951831907335.294713688055127.85677292609614.21548510127792022.939001346895833.78
13、634423139126.928294976693814.05833015112662525.997213872479132.089189239740125.851108115438313.87178476017943028.980085793691930.194981010369124.612214087033813.66008681033773531.879301053395928.093892307785423.197373610178713.42782193122244034.682288968274925.775504217299721.592034388229913.1797270
14、4223294537.371994116777323.22985850198219.782319662710312.92051066041175039.926872014351320.448550697334217.756043663989112.65470029119915542.321115530444117.425818242072215.503717765570512.38652291983356044.525108022316214.159577728949613.019509502183812.11982051745916546.506090296508610.652366877447710.302116240519811.85799908200757048.22902008958946.912150027317137.3555164708250911.60400731610227549.65759509923372.952950713208184.1895645565211311.36033964356038050.75540398071340.9626058162162.82039932811784911.12905776034938551.4871644002125-
