异步启动永磁同步电机设计程序 （vb源码分享）
本帖最后由 limengde2001 于 2014-3-21 12:55 编辑最近本人终于能够开始静心编写异步启动永磁同步电机设计程序，
代码编写进行中……，先分享部分阶段性成果
{:soso_e130:}{:soso_e130:} {:soso_e130:} {:soso_e130:} {:soso_e130:} {:soso_e130:} {:soso_e130:} {:soso_e130:} {:soso_e130:} {:soso_e130:}
回帖是中国梦的一部分
~~~~~~~~~~~~华丽的分割线~~~~~~~~~~~~~~~~~~~
程序如下
已经实现输入和部分计算输出功能（”文件及常用“工具条下：诊断，计算，输出 三个按钮可用）
源码打包如下
（为了赚积分升级，回复满两页再打包发{:soso_e103:} ，为弥补我的内疚之情，在后续楼层直接贴出部分源码）
界面如下
异步启动永磁同步电机设计程序 （vb源码分享）福利1：b-h曲线查询：https://bbs.simol.cn/thread-131886-1-1.html
b-h曲线查询方法简介：
1、读入b-h曲线文件到二维数组
1、采用拉格朗日插值法查询值
'load B-H CURVE file读入b-h曲线文件到二维数组
Dim a() As String
Dim b() As String
Dim i As Integer
i = 0
'''read text
Open App.Path & "\" & "BH_" & materialfe & ".TXT" For Input As #1
On Error GoTo h
Do While Not EOF(1)
ReDim Preserve a(i)
ReDim Preserve b(i)
Input #1, a(i), b(i)
i = i + 1
Loop
h:
Close #1
'''load into variable
ReDim Preserve bh_fe(UBound(a), 1)
For i = 0 To UBound(a)
bh_fe(i, 0) = CDbl(a(i))
bh_fe(i, 1) = CDbl(b(i))
'show b-h curve
'Formmain.Text_output.Text = Formmain.Text_output.Text & bh_fe(i, 1) & "," & bh_fe(i, 2) & vbCrLf
Next
'插值算法
'lagrangeczfun拉格朗日插值法
Public Function lag(a() As Double, ByVal u As Double) As Double'a(1,n)存储n+1个节点，u为插值点
Dim i As Integer, j As Integer, n As Integer
Dim l As Double, v As Double
v = 0
n = UBound(a, 1)
l = bh_fe(2, 0)
s = materialfe
l = br_20
For j = 0 To n
l = 1
For i = 0 To n
If (i <> j) Then
l = l * (u - a(i, 0)) / (a(j, 0) - a(i, 0))
Else
End If
Next i
v = v + l * a(j, 1)
Next j
lag = v
End Function
'''''''''''''''''''''''''''''''''''''''''''''''''
'磁化曲线查询
Public Function b2h(b As Double) As Double 'lookup b-h curve
b2h = lag(bh_fe(), b)
End Function 异步启动永磁同步电机计算程序（vb源码分享）福利2：编程规划 https://bbs.simol.cn/thread-131889-1-1.html 异步启动永磁同步电机设计程序 （vb源码分享）福利3：空载工作点计算程序代码
详见：
https://bbs.simol.cn/thread-131895-1-1.html WEZDAH 发表于 2014-3-21 11:19
版主乃电机强人也！
期待您的大作造福电机界。
谢谢！！！！！！
过奖{:soso_e106:} ，楼主而已， 高手啊{:soso_e163:} 厉害厉害厉害厉害 楼主很强大，感谢分享！ 异步启动永磁同步电机设计程序 （vb源码分享）好人啊 牛人，，，好好编写吧。 楼主不错，表扬下{:soso_e179:} 期待中期待中 异步启动永磁同步电机设计程序 （vb源码分享）福利4：工作特性计算
https://bbs.simol.cn/thread-131992-1-1.html 谢谢分享谢谢分享 再回复一次 今天程序初步跑通王秀和书后的算例，上传程序，庆祝下{:soso_e142:}
不过好多图表处理还没有编写，继续编~ 楼上的大家不要下，漏掉了磁化曲线文件，窗体加载不了。下面重新上传的可以运行。 楼主很强大，感谢分享！
异步启动永磁同步电机设计程序-v1.0发布啦，可到帖子中下载
https://bbs.simol.cn/thread-132236-1-1.html
期待您的大作造福电机界。
谢谢！！！！！！