资源描述：
《凸轮轮廓曲线》由会员上传分享，免费在线阅读，更多相关内容在应用文档-天天文库。
1、姓名：雷小舟班级：机制04班学号：1103010411利用VB绘制凸轮轮廓曲线及计算相关直角坐标和压力角VB程序语言如下：PrivateSubCommand1_Click()'参数初始化Dimr0%,r1%,h%,e%Dima1%,a01%,a2%,a02%r0=Val(InputBox("请输入基圆半径"))r1=Val(InputBox("请输入滚子半径"))h=Val(InputBox("请输入升程"))e=Val(InputBox("请输入偏距"))a1=Val(InputBox("请输入推程运动角"))a01=Val(InputB
2、ox("请输入远休止角"))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)'初始化参数Di
3、mi!,j!,k!,m!,n!,l!Dima!,b!,c!,d!,f!Constpi=3.141592653Dims#(360),s1#(360)Dimds#(360),ds1#(360)Dimdx#(360),dy#(360)a=a1b=a1+a01c=a1+a01+a2/2d=a1+a01+a2f=360j=0Fori=0Toa'推程段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+1NextiFo
4、ri=(a+1)Tob'远休段s(j)=hds(j)=0ds1(j)=0s1(j)=s(j)/2j=j+1NextiFori=(b+1)Toc'回程等减速段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+1NextiFori=(c+1)Tod'回程等加速段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)
5、=s(j)/2j=j+1NextiFori=(d+1)Tof'近休段s(j)=0ds(j)=0ds1(j)=0s1(j)=s(j)/2j=j+1Nexti'初始化参数'DimX0#,Y0#,X1#,Y1#,X2#,Y2#DimX11#,Y12#,X21#,Y22#Dime1#,r#,p#,q#,r11#Dims0#,a3#,a03#,a13#'按比例定义参数值'e1=e/2r=r0/2r11=r1/2s0=Sqr(r^2-e1^2)Fori=1To360dx(i)=(ds1(i)-e)*Sin(i*pi/180)+(s0+s1(i))*Co
6、s(i*pi/180)dy(i)=(ds1(i)-e)*Cos(i*pi/180)-(s0+s1(i))*Sin(i*pi/180)Nexti'输出理论、实际轮廓线图像及坐标值'X0=e1:Y0=s0Forg=2To360m=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(
7、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.
8、PSet(X11,Y12)'输出实际轮廓线图'求压力角a3=Abs(ds1(m)-e1)/(s1(m)+s0)a03=Atn(a3)*180/pia13=Abs(a03)IfmM
