最新大三機械設計課程設計vb(編輯修改稿)
2025-07-23 08:05 本頁面
【文章內(nèi)容簡介】 Abs(dblE_CD) If Abs(dblS_E) dblMax_s_E Then dblMax_s_E = Abs(dblS_E) If Abs(dblV_E) dblMax_v_E Then dblMax_v_E = Abs(dblV_E) If Abs(dblA_E) dblMax_a_E Then dblMax_a_E = Abs(dblA_E)Next iDim dblSx As Double, dblSy As DoubledblSx = (dblWP 240) / 360For i = 0 To 360 dblF_AB = i * PI / 180 dblF_CD = Atn((dblAC + dblAB * Sin(dblF_AB)) / (dblAB * Cos(dblF_AB))) If dblF_CD 0 Then dblF_CD = dblF_CD + PI dblW_CD = dblAB * (2 * PI * dbln1 / 60) * Cos(dblF_AB dblF_CD) / Sqr(Abs(dblAB * dblAB + dblAC * dblAC + 2 * dblAC * dblAB * Sin(dblF_AB))) dblE_CD = (dblAB * (2 * PI * dbln1 / 60) * (2 * PI * dbln1 / 60) * Sin(dblF_AB dblF_CD) + 2 * dblAB * (2 * PI * dbln1 / 60) * Sin(dblF_AB dblF_CD) * dblW_CD) / Sqr(Abs(dblAB * dblAB + dblAC * dblAC + 2 * dblAC * dblAB * Sin(dblF_AB))) dblF_DE = Atn(((dblH dblCD * Sin(dblF_CD)) / dblDE) / Sqr(Abs(1 (dblH dblCD * Sin(dblF_CD)) * (dblH dblCD * Sin(dblF_CD)) / (dblDE * dblDE)))) dblw_DE = ((dblCD * dblW_CD * Cos(dblF_CD)) / (dblDE * Cos(dblF_DE))) dble_DE = ((dblDE * dblw_DE * dblw_DE * Sin(dblF_DE)) + dblCD * dblW_CD * dblW_CD * Sin(dblF_CD) dblCD * dblE_CD * Cos(dblF_CD)) / (dblDE * Cos(dblF_DE)) dblS2 = Sqr(dblAB * dblAB + dblAC * dblAC + 2 * dblAC * dblAB * Sin(dblF_AB)) dblS_E = dblCD * Cos(dblF_CD) + dblDE * Cos(dblF_DE) dblV_E = (dblCD / 1000) * dblW_CD * Sin(dblF_CD) (dblDE / 1000) * ((dblCD / 1000) * dblW_CD * Cos(dblF_CD) / ((dblDE / 1000) * Cos(dblF_DE))) * (((dblH / 1000) (dblCD / 1000) * Sin(dblF_CD)) / (dblDE / 1000)) dblA_E = (dblCD / 1000) * dblE_CD * Sin(dblF_
規(guī)章制度相關推薦
鄂ICP備17016276號-1