【正文】 (N(i + 1) N(i)) / (M(i + 1) M(i)) Else For j = 1 To 12 If x = M(j) And x M(j + 1) Then i = j ZXBLf = N(i) + (x M(i)) * (N(i + 1) N(i)) / (M(i + 1) M(i)) Exit For End If Next j End IfEnd FunctionFunction SinHf(x) SinHf = (Exp(x) Exp(x)) / 233End FunctionFunction CosHf(x) CosHf = (Exp(x) + Exp(x)) / 2End FunctionFunction LCBHf(x) 39。啟動(dòng)時(shí)的漏磁飽和系數(shù) Kx=f(BL) Dim M, N, i, j M = Array(1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15) N = Array(, , , , , , , , , , , , , , ) If x M(1) Then i = 0 LCBHf = N(i) + (x M(i)) * (N(i + 1) N(i)) / (M(i + 1) M(i)) ElseIf x = M(13) Then i = 13 LCBHf = N(i) + (x M(i)) * (N(i + 1) N(i)) / (M(i + 1) M(i)) Else For j = 1 To 12 If x = M(j) And x M(j + 1) Then i = j LCBHf = N(i) + (x M(i)) * (N(i + 1) N(i)) / (M(i + 1) M(i)) Exit For End If Next j End IfEnd Function（3）主窗體下的程序代碼Public ata1, cosfai1, f, Ist1, kw, li, Nn, p, Pf, Pmc, PN, Tm1, Un, zp2 As SinglePrivate Sub cmd計(jì)算_Click() 39。輸入數(shù)據(jù) Un = 380 PN = 11000 p = 2 li = ata1 = cosfai1 = Di1 = 34 D1 = Z1 = 36 Ni1 = 2 r21 = b11 = b01 = h11 = h21 = bi1 = h01 = dat = Di2 = r22 = b12 = b02 = bi2 = h02 = h12 = h22 = lB = AR = z2 = 26 f = 50 d11 = DR = Tm1 = Tst1 = Ist1 = 7 pai = 39。其中的基本參數(shù) PN = Val() Un = Val() p = Val() f = Val() Nn = Val() li = Val() ata1 = Val() cosfai1 = Val() Tm1 = Val() Tst1 = Val()35 Ist1 = Val() 39。其中的定子參數(shù) Di1 = Val() D1 = Val() Z1 = Val() l = Val() Ni1 = Val() Ns1 = Val() dl = Val() r21 = Val() b11 = Val() b01 = Val() h11 = Val() h21 = Val() bi1 = Val() h01 = Val() 39。其中的轉(zhuǎn)子參數(shù) dat = Val() Di2 = Val() lB = Val() DR = Val() AR = Val() rou = Val() r22 = Val() b12 = Val() b02 = Val() bi2 = Val() h02 = Val() h12 = Val() h22 = Val() Sxbl = Array(, , , , , ) 39。三相60度相帶諧波比漏磁導(dǎo)系數(shù)，取整距繞組，β=1 m1 = 3 39。三相 Unfai = Un 39。三角接法36 Ikw = PN / (m1 * Unfai) 39。Unfai為外施相電壓 Zp1 = Z1 / (2 * p) zp2 = z2 / (2 * p) lef = li + 2 * dat 39。鐵芯有效長(zhǎng)度 D2 = Di1 2 * dat 39。轉(zhuǎn)子外徑 tao = * Di1 / (2 * p) 39。tao為極距 t1 = * Di1 / Z1 39。t1為定子齒距 z2 = 26 t2 = * D2 / z2 39。t2為轉(zhuǎn)子齒距 bsk = t1 39。轉(zhuǎn)子斜槽寬 Apie = 26000 39。線負(fù)荷 Nfai = ata1 * cosfai1 * * Di1 * Apie / (m1 * Ikw) 39。每相串聯(lián)導(dǎo)體數(shù) a1 = 1 39。取并聯(lián)之路為 1 Ns1 = m1 * a1 * Nfai / Z1 39。每槽導(dǎo)體數(shù) Ns1 = Ns1 1 Nfai = Ns1 * Z1 / (m1 * a1) 39。16 每相串聯(lián)導(dǎo)體數(shù) N1 = Nfai / 2 39。每相串聯(lián)匝數(shù) I11 = Ikw / (ata1 * cosfai1) 39。定子電流初步估計(jì)值 j11 = 5 39。定子電密 NA = * 10 ^ (6) 39。NA = I11 / (a1 * j11) 39。17 導(dǎo)線并繞根數(shù)與每根導(dǎo)線截面積的乘積cycle3: h = Acj = (2 * r21 + b11) * (h21 + h11 h) / 2 + * r21 * r21 / 2 39。槽面積 datai = Ah = datai * (2 * (h21 + h11) + * r21) 39。 槽絕緣占面積 Aef = Acj Ah 39。槽有效面積 d12 = d11 + Sf = Ni1 * Ns1 * d12 * d12 / Aef 39。Sf為槽滿率，d12 為絕緣后線徑 Kp1 = 1 a = 2 * p * / Z1 q = 3 kd1 = Sin(q * a / 2) / (q * Sin(a / 2)) 39。短距系數(shù) Kdp1 = kd1 * Kp1 39。繞組系數(shù) Mxyx = Nfai * Kdp1 39。每相有效串聯(lián)導(dǎo)體數(shù)37 Ab = (b02 + b12) * h12 / 2 + b12 * h22 + * r22 * r22 / 2 39。轉(zhuǎn)子導(dǎo)條截面積 39。磁路計(jì)算 Ke1 = cycle2: E1 = Ke1 * Unfai Ks1 = cycle1: Knm1 = KNMf(Ks1) fai = E1 / (4 * Knm1 * Kdp1 * f * N1) 39。23 每極磁通 Kfe = Ai1 = Kfe * li * bi1 * Zp1 Ai2 = Kfe * li * bi2 * zp2 39。每極下齒部截面積 Hj1pie = (D1 Di1) / 2 (r21 + h01 + h11 + h21) + r21 / 3 39。定子軛部計(jì)算高度 Hj2pie = (D2 Di2) / 2 (r22 + h02 + h12 + h22) + r22 / 3 39。轉(zhuǎn)子軛部計(jì)算高度 Aj1 = Kfe * li * Hj1pie Aj2 = Kfe * li * Hj2pie 39。軛部導(dǎo)磁面積 Adat = tao * lef 39。一極下空氣隙截面積 Fs = FSf(Ks1) 39。波幅系數(shù) Bdat = Fs * fai / Adat 39。氣隙磁密 bii1 = Fs * fai / Ai1 39。 29 定子齒部磁密 Bii1 為磁密的 Bi1 bii2 = Fs * fai / Ai2 39。 30 轉(zhuǎn)子齒部磁密 Bii2 為磁密的 Bi2 39。處理磁化曲線 Hi1 = CHQXf(bii1) 39。 定子齒磁場(chǎng)強(qiáng)度 Hi2 = CHQXf(bii2) 39。 轉(zhuǎn)子齒磁場(chǎng)強(qiáng)度 Kdat1 = t1 * ( * dat + * b01) / (t1 * ( * dat + * b01) b01 * b01) Kdat2 = t2 * ( * dat + * b02) / (t2 * ( * dat + * b02) b02 * b02) Kdat = Kdat1 * Kdat2 39。氣隙系數(shù) datef = Kdat * dat 39。有效氣隙長(zhǎng)度 Li1 = (h11 + h21) + r21 / 3 39。齒部磁路計(jì)算長(zhǎng)度 Li2 = (h12 + h22) + r22 / 3 39。齒部磁路計(jì)算長(zhǎng)度 Lj1pie = * (D1 Hj1pie) / (4 * p) Lj2pie = * (Di2 + Hj2pie) / (4 * p) 39。軛部磁路計(jì)算長(zhǎng)度 miu0 = * * 10 ^ (6) 39?？諝獯艑?dǎo)率 10^(6) Fdat = Kdat * Bdat * dat / miu0 Fi1 = Hi1 * Li1 Fi2 = Hi2 * Li2 39。齒部磁壓降38 Ks = (Fdat + Fi1 + Fi2) / Fdat 39。飽和系數(shù) wucha = Abs((Ks1 Ks) / Ks) 39。誤差 If wucha Then Ks1 = Ks (Ks Ks1) / 3 GoTo cycle1 Else GoTo line1 End Ifline1: Bjj1 = fai / (2 * Aj1) 39。定子軛部磁密 Bjj2 = fai / (2 * Aj2) 39。轉(zhuǎn)子軛部磁密 Hjj1 = CHQXf(Bjj1) Hjj2 = CHQXf(Bjj2) 39。磁場(chǎng)強(qiáng)度 Cj1 = 2 * Bjj1 / 3 39。這是什么？ Cj2 = 2 * Bjj2 / 3 39。軛部磁位降校正系數(shù) Fj1 = C