大三機(jī)械設(shè)計(jì)課程設(shè)計(jì)報(bào)告vb-展示頁
2024-08-06 06:50本頁面
【正文】 blA_E As DoubleDim dblF_AB, dblF_DE As DoubleDim dblAB As Double, dblCD As Double, dblDE As Double, dblAC As Double, dblH As Double, dblSE As Double, dbldf_CD As DoubleDim PI As DoublePI = dblAB = Val()dblCD = Val()dblDE = Val()dblAC = Val()dblH = Val()dbln1 = Val()For 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_CD) (dblCD / 1000) * dblW_CD * dblW_CD
環(huán)評公示相關(guān)推薦
鄂ICP備17016276號(hào)-1