异步启动永磁同步电机设计程序 （vb源码分享）福利4：工作特性计算

limengde2001

最近杂务多，编的有点慢{:soso__651267b6cf5854bf-549f46f2ad86626a-f2e77041dc633e3f6195ef8db5b323fc.jpg_2:}

异步启动永磁同步电机设计程序 （vb源码分享）福利4：工作特性计算

Public Sub performance()
Dim i As Integer

For i = 0 To 565 '！！！！！！！！！！应为1800，调试用（只算到56.5度）！！！！！！
Theta = i / 10
ePerformance
mPerformance
pPerformance
outPerformance (i)
Next i

hPerformance
bPerformance

End Sub



'   Pmcalc三级程序（performance子程序）************
Public Sub ePerformance()
'调试设置变量
'Theta = 56.5
id = (r1 * un * Sin(deg2red(Theta)) + xq * (e0 - un * Cos(deg2red(Theta)))) / (r1 ^ 2 + xq * xd)
iq = (xd * un * Sin(deg2red(Theta)) - r1 * (e0 - un * Cos(deg2red(Theta)))) / (r1 ^ 2 + xq * xd)
i1 = (id ^ 2 + iq ^ 2) ^ 0.5

Psi = red2deg(Atn(id / iq))
fai = Theta - Psi
cosfai = Cos(deg2red(fai))

edelte = ((e0 - id * xad) ^ 2 + (iq * xaq) ^ 2) ^ 0.5
Public Sub mPerformance()

fai_delte = edelte / (4.44 * freq * kdp * n * kfai)
b_delted = (fai_delte * 10 ^ 4) / (Alphai * tau1 * lef)
b_t1d = b_delted * (t1 * lef) / (bt1 * kfe * l1)
b_j1d = (fai_delte * 10 ^ 4) / (2 * l1 * kfe * hj1)

End Sub
Public Sub pPerformance() '拟合公式，可与Y2手册对比
Select Case pole * 2
   Case 2
     Select Case ip
     Case "IP23"
     pfw = 5.5 * (3 / pole) ^ 2 * d2 ^ 3 * 10 ^ -3
     Case Else
     pfw = 13 * (1 - d1 * 10 ^ -2) * (3 / pole) ^ 2 * d1 ^ 4 * 10 ^ -5
     End Select
   Case Else
     Select Case ip
     Case "IP23"
     pfw = 6.5 * (3 / pole) ^ 2 * d2 ^ 3 * 10 ^ -3
     Case Else
     pfw = (3 / pole) ^ 2 * d1 ^ 4 * 10 ^ -4
     End Select
End Select
p1 = m / (xd * xq + r1 ^ 2) * (e0 * un * (xq * Sin(deg2red(Theta)) - r1 * Cos(deg2red(Theta))) + r1 * un ^ 2 + 0.5 * un ^ 2 * (xd - xq) * Sin(2 * deg2red(Theta)))
pcu = m * i1 ^ 2 * r1
pt1d = b2p(b_t1d)
pj1d = b2p(b_j1d)
pfe = k1 * pt1d * vt1 * rhofe * 10 ^ -3 + k2 * pj1d * vj1 * rhofe * 10 ^ -3

ps = (i1 / in_) ^ 2 * psn_x * pn * 10 ^ 3
sigmap = pcu + pfe + pfw + ps
p2 = p1 - sigmap
eta = p2 / p1


End Sub


Public Sub outPerformance(ByVal i As Integer)
'！！！！！！！！！！！！！！暂时写入数组，输出到txt，或调用数据库！！！！！！！！！！！！！！！！！！！
ReDim Preserve array_performance(7, i)
array_performance(0, i) = Theta
array_performance(1, i) = p1
array_performance(2, i) = p2
array_performance(3, i) = i1
array_performance(4, i) = id
array_performance(5, i) = iq
array_performance(6, i) = eta
array_performance(7, i) = cosfai
End Sub

lei285

912980207s

lei285

很有用的留着以后看看

singfo88

路过！了解一下{:soso_e100:}

若虚子

楼主：你好！
本想单与你发个消息，可我级别太低，没有权限。先简介：86年华工电机毕业，十一年电机国企，高工。现浙江。几十年风雨，电机为手艺。搞过电机很多种类。
现对你编写的异步起动永磁电机有兴趣，可否进一步深谈？如同意，请加我微信。电话：13606668126 微信：新宇 13606668126  谢谢！   2015-8-11

王进

路过！了解一下~~~

dream-ttt

若虚子 发表于 2015-8-15 14:11
楼主：你好！
本想单与你发个消息，可我级别太低，没有权限。先简介：86年华工电机毕业，十一年电机国企， ...

您是雷工？？

soyoa

不错不错。。。。。