VB编写的，你看看呢？
叶轮几何尺寸计算
Clarkx(1) = 0: Clarkx(2) = 1.25: Clarkx(3) = 2.5: Clarkx(4) = 5: Clarkx(5) = 7.5: Clarkx(6) = 10: Clarkx(7) = 15
Clarkx(8) = 20: Clarkx(9) = 30: Clarkx(10) = 40: Clarkx(11) = 50: Clarkx(12) = 60: Clarkx(13) = 70: Clarkx(14) = 80
Clarkx(15) = 90: Clarkx(16) = 95: Clarkx(17) = 100
Clarky(1, 1) = 2.99: Clarky(1, 2) = 4.66: Clarky(1, 3) = 5.56: Clarky(1, 4) = 6.75: Clarky(1, 5) = 7.56
Clarky(1, 6) = 8.2: Clarky(1, 7) = 9.14: Clarky(1, 8) = 9.72: Clarky(1, 9) = 10: Clarky(1, 10) = 9.75
Clarky(1, 11) = 9: Clarky(1, 12) = 7.82: Clarky(1, 13) = 6.28: Clarky(1, 14) = 4.46: Clarky(1, 15) = 2.39
Clarky(1, 16) = 1.27: Clarky(1, 17) = 0.1
Clarky(2, 1) = 2.99: Clarky(2, 2) = 1.65: Clarky(2, 3) = 1.26: Clarky(2, 4) = 0.8: Clarky(2, 5) = 0.54
Clarky(2, 6) = 0.36: Clarky(2, 7) = 0.13: Clarky(2, 8) = 0.03: Clarky(2, 9) = 0: Clarky(2, 10) = 0
Clarky(2, 11) = 0: Clarky(2, 12) = 0: Clarky(2, 13) = 0: Clarky(2, 14) = 0: Clarky(2, 15) = 0: Clarky(2, 16) = 0
Clarky(2, 17) = 0
Ls(1, 1) = 0.05: Ls(1, 2) = 0.1: Ls(1, 3) = 0.2: Ls(1, 4) = 0.3: Ls(1, 5) = 0.4: Ls(1, 6) = 0.5: Ls(1, 7) = 0.6
Ls(1, 8) = 0.7: Ls(1, 9) = 0.8: Ls(1, 10) = 0.9: Ls(1, 11) = 0.12
Ls(2, 1) = 0.592: Ls(2, 2) = 0.786: Ls(2, 3) = 0.961: Ls(2, 4) = 1: Ls(2, 5) = 0.991
Ls(2, 6) = 0.961: Ls(2, 7) = 0.873
Ls(2, 8) = 0.747: Ls(2, 9) = 0.572: Ls(2, 10) = 0.369: Ls(2, 11) = 0.09

计算弦长b在叶栅额叶及轴线方向的投影
Dim i As Integer
Dim j As Integer

For j = 1 To 7
B(1, j) = A(13, j) * Cos(A(12, j) * Pi / 180)
List2(j - 1).AddItem B(1, j)
B(2, j) = A(13, j) * Sin(A(12, j) * Pi / 180)
List2(j - 1).AddItem B(2, j)
重心坐标
  B(3, j) = 0.445 * A(13, j)
  List2(j - 1).AddItem B(3, j)
 
B(4, j) = 0
List2(j - 1).AddItem B(4, j)
 
  B(5, j) = B(3, j) * Sin(A(12, j) * Pi / 180)
  List2(j - 1).AddItem B(5, j)
 
  B(6, j) = B(3, j) * Cos(A(12, j) * Pi / 180)
  List2(j - 1).AddItem B(6, j)

  B(7, j) = (A(13, j) - B(3, j)) * Sin(A(12, j) * Pi / 180)
  List2(j - 1).AddItem B(7, j)
 
  B(8, j) = (A(13, j) - B(3, j)) * Cos(A(12, j) * Pi / 180)
  List2(j - 1).AddItem B(8, j)
Next j
 
坐标
For i = 1 To 7
For j = 1 To 17

    cx(i, j) = A(13, i) * Clarkx(j) / 100
   
   
    cy1(i, j) = A(13, i) * Clarky(1, j) / 100 * C(i)
   
    cy2(i, j) = A(13, i) * Clarky(2, j) / 100 * C(i)
   
Next j
Next i
      


End Sub

Ͳ ӷ ޹ ˾ ַ http://www.zbfj888.com ӭ Ĺ ٣
ٶ һ £ ɽ ÷ ¯ͨ