資源描述：
《哈工大機械原理大作業(yè)凸輪23.doc》由會員上傳分享，免費在線閱讀，更多相關(guān)內(nèi)容在應(yīng)用文檔-天天文庫。
1、凸輪機構(gòu)1.設(shè)計題目:23升程/mm升程運動角/。升程運動規(guī)律升程許用壓力角/?；爻踢\動角/?；爻踢\動規(guī)律回城許用壓力角/。遠(yuǎn)休止角/。近休止角/。120120余弦加速度3590余弦加速度65401102.運動方程式及運動線圖確定凸輪機構(gòu)推桿升程、回程運動方程，并繪制推桿位移、速度、加速度線圖。（設(shè)定角速度為ω=1）升程：（0<φ<2π/3）s=60*(1-Cos(1.5*φ))v=90*Sin(1.5*φ)a=135*Cos(1.5*φ)遠(yuǎn)休止程:s=120v=0a=0回程：（8*π/9<φ<25*π/18）s=60*(1+Cos(2*(φ-8*pi/9)))v
2、=-120*Sin(2*(φ-8*pi/9))a=-240*Cos(2*(φ-8*pi/9))近休止程:s=0v=0a=0由上述公式通過編程得到位移、速度、加速度曲線如下：位移S-轉(zhuǎn)角φ曲線速度V-轉(zhuǎn)角φ曲線加速度a-轉(zhuǎn)角φ曲線3.凸輪機構(gòu)的線圖及基圓半徑和偏距的確定凸輪機構(gòu)的線圖：確定凸輪半徑偏距e取25,S取50.11半徑r=(e^2+s^2)^(1/2)=564.滾子半徑的確定及凸輪理論廓線和實際廓線的繪制滾子半徑rr的確定：下圖為曲率-轉(zhuǎn)角曲線,20mm>Rmin>10mm取滾子半徑為10理論輪廓(外部)和工作輪廓(內(nèi)部)理論輪廓.工作輪廓.基圓(大圓).
3、偏距圓(小圓).滾子包絡(luò)線(見下頁圖)5.程序1.求位移、速度、加速度的程序PrivateSubCommand1_Click()DimsAsDoubleDimf0AsDoubleDimfsAsDoubleDimf01AsDoubleDimfs1AsDoubleDimffAsDoubleDimfAsDoubleDimpiAsDoubleDimpaAsDoublePicture1.DrawWidth=1Picture1.Scale(-30,150)-(390,-30)Picture1.Line(-30,0)-(390,0)'XPicture1.Line(0,-30)-
4、(0,150)'YPicture1.CurrentX=0:Picture1.CurrentY=130Picture1.Print"位移S"Picture1.CurrentX=330:Picture1.CurrentY=20Picture1.Print"角度/度"Fori=30To390Step30Picture1.Line(i,5)-(i,0)Picture1.CurrentX=i-7:Picture1.CurrentY=0Picture1.PrintiNextiFori=30To150Step30Picture1.Line(0,i)-(5,i)Picture1.
5、CurrentX=-20:Picture1.CurrentY=i+2Picture1.PrintiNextiPicture1.DrawStyle=2Fori=-30To150Step30Picture1.Line(-30,i)-(390,i),vbBlackNextiFori=30To360Step30Picture1.Line(i,150)-(i,-30),vbBlackNextiPicture2.DrawWidth=1Picture2.Scale(-30,120)-(390,-150)Picture2.Line(-30,0)-(390,0)'XPicture2
6、.Line(0,-150)-(0,120)'YPicture2.CurrentX=0:Picture2.CurrentY=100Picture2.Print"速度V"Picture2.CurrentX=330:Picture2.CurrentY=20Picture2.Print"角度/度"Fori=30To390Step30Picture2.Line(i,5)-(i,0)Picture2.CurrentX=i-7:Picture2.CurrentY=0Picture2.PrintiNextiFori=-150To120Step30Picture2.Line(0,i
7、)-(5,i)Picture2.CurrentX=-20:Picture2.CurrentY=i+2Picture2.PrintiNextiPicture2.DrawStyle=2Fori=-150To120Step30Picture2.Line(-30,i)-(390,i),vbBlackNextiFori=30To360Step30Picture2.Line(i,120)-(i,-150),vbBlackNextiPicture3.DrawWidth=1Picture3.Scale(-30,280)-(390,-300)Picture3.Line(-30,0)
8、-(390
