87
87
88
88
# judge if the indeuce velocity is trimmed
89
89
# rmsind = trvind(vindj[1],vindj[2])
90
- if iternum> 10
90
+ if iternum> 100
91
91
print (" === Induced Velocity can not be converaged ===\n " )
92
92
print (" === Thrust is $(T0) ===\n " )
93
93
# print("=== The Total Power need is $(power)===\n")
@@ -107,26 +107,26 @@ end
107
107
vbertmp = vbeui (vall_s, β, dβ, rb)
108
108
vber = vbertmp
109
109
110
- # calculate the blade flap using 精细数值方法
111
- bftmp = bladeflap (β, dβ, ddβ, vber, chord, θ0, θ_lat, θ_lon, dr, rb)
112
- if bftmp[1 ] # judge if the flap iteration converaged
113
- β = bftmp[2 ]
114
- dβ = bftmp[3 ]
115
- ddβ = bftmp[4 ]
116
- β0 = bftmp[5 ]
117
- βlon = bftmp[6 ]
118
- βlat = bftmp[7 ]
119
- end
120
-
121
- # # 使用经验公式求解挥舞
122
- # vind_ = lmdui # mean(vdiskind)[3]/(Ω*R)
123
- # βtmp = staticbf(θ75, (twist1+twist2), θ_lon, θ_lat, μ_air, abs.(λ_air+vind_))
124
- # β = βtmp[1]
125
- # dβ = βtmp[2]
126
- # ddβ = βtmp[3]
127
- # β0 = βtmp[4]
128
- # βlon = βtmp[5]
129
- # βlat = βtmp[6]
110
+ # # calculate the blade flap using 精细数值方法
111
+ # bftmp = bladeflap(β, dβ, ddβ, vber, chord, θ0, θ_lat, θ_lon, dr, rb)
112
+ # if bftmp[1] # judge if the flap iteration converaged
113
+ # β = bftmp[2]
114
+ # dβ = bftmp[3]
115
+ # ddβ = bftmp[4]
116
+ # β0 = bftmp[5]
117
+ # βlon = bftmp[6]
118
+ # βlat = bftmp[7]
119
+ # end
120
+
121
+ # 使用经验公式求解挥舞
122
+ vind_ = lmdui # mean(vdiskind)[3]/(Ω*R)
123
+ βtmp = staticbf (θ75, (twist1+ twist2), θ_lon, θ_lat, μ_air, abs .(λ_air+ vind_))
124
+ β = βtmp[1 ]
125
+ dβ = βtmp[2 ]
126
+ ddβ = βtmp[3 ]
127
+ β0 = βtmp[4 ]
128
+ βlon = βtmp[5 ]
129
+ βlat = βtmp[6 ]
130
130
131
131
# calculate force, moment and power
132
132
rftmp = rotoraero (vber, chord, β, dβ, ddβ, θ0, θ_lat, θ_lon, dr, rb)
0 commit comments