- 积分
- 28524
- 回帖
- 0
- 西莫币
-
- 贡献
-
- 威望
-
- 存款
-
- 阅读权限
- 120
- 最后登录
- 1970-1-1
该用户从未签到
|
马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。
您需要 登录 才可以下载或查看,没有账号?立即注册
×
本帖最后由 limengde2001 于 2014-3-21 12:50 编辑
异步启动永磁同步电机设计程序 (vb源码分享)福利3:空载工作点计算程序代码如下
主贴附程序见:http://bbs.simol.cn/thread-131885-1-1.html
—~~~~~~~~~~~~~~华丽的分割线~~~~~~~~~~~~~~~~~~~~~~~———
回帖是一种美德,送上祝福:
live long and prosper!
—~~~~~~~~~~~~~~华丽的分割线~~~~~~~~~~~~~~~~~~~~~~~———
Public Sub bm0calc()
bm0_p = 0.791 'set original value
Do
sigma0calc
kst = (f_delteq + f_t1 + f_t2) / f_delteq
LambdaDelte = fai_delte0 / sigmaf_
'LambdaDelte_1
Select Case lww
Case 4, 5, 6, 7
LambdaDelte_1 = 2 * (LambdaDelte * hm * 10 ^ 2) / (mu0 * mu1 * am)
Case 1, 2, 3
LambdaDelte_1 = (LambdaDelte * hm * 10 ^ 2) / (mu0 * mu1 * am)
End Select
Lambdasigma_1 = (Sigma0 - 1) * LambdaDelte_1
Lambdan_1 = Sigma0 * LambdaDelte_1
bm0 = Lambdan_1 / (Lambdan_1 + 1)
Loop While (bm0_p - bm0) / bm0_p > 0.01
End Sub |
评分
-
查看全部评分
|