CDA vw140 Manuel d'utilisateur télécharger pdf (Page 42)

2. Theoretische Schwingungsanalyse 40

End Sub

Private Sub SchreibeHeader()

Print #1, "C Modelldaten"

Print #1, "C"

Print #1, "C I1 = "; Format(I1, Pattern); Tab(22); "m^4"

Print #1, "C I2 = "; Format(I2, Pattern); Tab(22); "m^4"

Print #1, "C I3 = "; Format(I3, Pattern); Tab(22); "m^4"

Print #1, "C I4 = "; Format(I4, Pattern); Tab(22); "m^4"

Print #1, "C x1 = "; Format(x1, Pattern); Tab(22); "m"

Print #1, "C x2 = "; Format(x2, Pattern); Tab(22); "m"

Print #1, "C x3 = "; Format(x3, Pattern); Tab(22); "m"

Print #1, "C x4 = "; Format(x4, Pattern); Tab(22); "m"

Print #1, "C A1 = "; Format(A1, Pattern); Tab(22); "m^2"

Print #1, "C A2 = "; Format(A2, Pattern); Tab(22); "m^2"

Print #1, "C A3 = "; Format(A3, Pattern); Tab(22); "m^2"

Print #1, "C A4 = "; Format(A4, Pattern); Tab(22); "m^2"

Print #1, "C m1 = "; Format(m1, Pattern); Tab(22); "kg"

Print #1, "C m2 = "; Format(m2, Pattern); Tab(22); "kg"

Print #1, "C m3 = "; Format(m3, Pattern); Tab(22); "kg"

Print #1, "C m4 = "; Format(m4, Pattern); Tab(22); "kg"

Print #1, "C m5 = "; Format(m5, Pattern); Tab(22); "kg"

Print #1, "C m6 = "; Format(m6, Pattern); Tab(22); "kg"

Print #1, "C c1 = "; Format(c1, Pattern); Tab(22); "N/m"

Print #1, "C c2 = "; Format(c2, Pattern); Tab(22); "N/m"

Print #1, "C"

End Sub

Private Sub SchreibeNodes(x1, x2, x3, x4)

Print #1, "CONTROL"

Print #1, "CONTROL.END"

Print #1, "C"

Print #1, "C ** Die NODES verwenden kartesische Koordinaten"

Print #1, "C"

Print #1, "NODES"

Print #1, "Z= 0.0000"

Print #1, " NODE X Y"

For k = 1 To 10

Print #1, Tab(4); Str(k); Tab(13); _

Format(1 + (k - 1) * x1 / 9, Pattern); Tab(30); "1.0000"

For k = 1 To 9

Print #1, Tab(4); Str(k + 10); Tab(13); _

Format(1 + x1 + k * (x2 - x1) / 9, Pattern); Tab(30); "1.0000"

For k = 1 To 9

Print #1, Tab(4); Str(k + 19); Tab(13); _

Format(1 + x2 + k * (x3 - x2) / 9, Pattern); Tab(30); "1.0000"

For k = 1 To 9

Print #1, Tab(4); Str(k + 28); Tab(13); _

Format(1 + x3 + k * (x4 - x3) / 9, Pattern); Tab(30); "1.0000"

Print #1, Tab(4); " 38"; Tab(13); "1.0000"; Tab(30); "0.5000"

Print #1, Tab(4); " 39"; Tab(13); Format(1 + x2, Pattern); Tab(30); "0.5000"

Print #1, "C"

End Sub

1 2 ... 37 38 39 40 41 42 43 44 45 46 47 ... 68 69

Commentaires sur ces manuels

Pas de commentaire

CDA vw140 Manuel d'utilisateur Page 42

Commentaires sur ces manuels

Produits connexes et manuels pour Tiroirs chauffants CDA vw140