電瓷帽設(shè)計(jì)與計(jì)算-在線瀏覽
2024-07-25 14:24本頁(yè)面
【正文】 pp As Object Sub main() Dim x() As Double, y() As Double 39。凸輪轉(zhuǎn)角、推桿位移、最大行程 Dim R0 As Double, P01 As Double, P02 As Double, P03 As Double, P04 As Double 39。凸輪廓線構(gòu)造點(diǎn) 步長(zhǎng)、曲線坐標(biāo)點(diǎn)數(shù)目 Dim PI As Double PI = Const Con = / 180 39。初始條件 P01 = 144 P01 = P01 * Con P02 = 90 P02 = P02 * Con P03 = 36 P03 = P03 * Con P04 = 90 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 Out
研究報(bào)告相關(guān)推薦
鄂ICP備17016276號(hào)-1