電瓷帽設(shè)計(jì)與計(jì)算-預(yù)覽頁(yè)
【正文】 P04 = P04 * Con St = / 180 Num = 0 For Ph = 0 To P01 Step St 15 Ps = 0 Num = Num + 1 ReDim Preserve x(Num), y(Num) x(Num) = (R0 + Ps) * Sin(Ph) y(Num) = (R0 + Ps) * Cos(Ph) Next For Ph = 0 To P02 Step St Ps = H * ((Ph / P02) Sin(2 * PI * Ph / P02) / (2 * PI)) Num = Num + 1 ReDim Preserve x(Num), y(Num) x(Num) = (R0 + Ps) * Sin(P01 + Ph) y(Num) = (R0 + Ps) * Cos(P01 + Ph) Next For Ph = 0 To P03 Step St Ps = H Num = Num + 1 ReDim Preserve x(Num), y(Num) x(Num) = (R0 + Ps) * Sin(P01 + P02 + Ph) y(Num) = (R0 + Ps) * Cos(P01 + P02 + Ph) Next For Ph = 0 To P04 Step St Ps = H * (1 (Ph / P04) + Sin(2 * PI * Ph / P04) / (2 * PI)) Num = Num + 1 ReDim Preserve x(Num), y(Num) x(Num) = (R0 + Ps) * Sin(P01 + P02 + P03 + Ph) y(Num) = (R0 + Ps) * Cos(P01 + P02 + P03 + Ph) 16 Next Open f:\ For Output As 1 For i = 1 To Num Print 1, x(i), 。 0 Close 1 Set swApp = End Sub （ 2） 凸輪 1代碼： Dim swApp As Object Sub Main() Dim x() As Double, y() As Double 39。凸輪廓線構(gòu)造點(diǎn)步長(zhǎng)、曲線坐標(biāo)點(diǎn)數(shù)目 Dim PI As Double PI = Const Con = / 180 39。 0 Next i Close 1 Set swApp = End Sub 參考資料 （ 1） 孫桓、陳作模、葛文杰主編，機(jī)械原理（第七版），北京：高等教育出版社， 20xx （ 2） 鄒慧君主編，機(jī)械原理課程設(shè)計(jì)手冊(cè)，北京：高等教育出版社， 1998
研究報(bào)告相關(guān)推薦
鄂ICP備17016276號(hào)-1