异步启动永磁同步电机设计程序 （vb源码分享）

limengde2001

最近本人终于能够开始静心编写异步启动永磁同步电机设计程序，
代码编写进行中……，先分享部分阶段性成果
{:soso_e130:}{:soso_e130:} {:soso_e130:} {:soso_e130:} {:soso_e130:} {:soso_e130:} {:soso_e130:} {:soso_e130:} {:soso_e130:} {:soso_e130:}
回帖是中国梦的一部分
~~~~~~~~~~~~华丽的分割线~~~~~~~~~~~~~~~~~~~

程序如下
PMmotorDesign.zip (96.89 KB, 下载次数: 351)

2014-3-21 09:08 上传

点击文件名下载附件
编译程序

已经实现输入和部分计算输出功能（”文件及常用“工具条下：诊断，计算，输出 三个按钮可用）


源码打包如下
（为了赚积分升级，回复满两页再打包发{:soso_e103:} ，为弥补我的内疚之情，在后续楼层直接贴出部分源码）


界面如下

界面

limengde2001

异步启动永磁同步电机设计程序 （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

limengde2001

异步启动永磁同步电机计算程序（vb源码分享）福利2：编程规划 https://bbs.simol.cn/thread-131889-1-1.html

limengde2001

异步启动永磁同步电机设计程序 （vb源码分享）福利3：空载工作点计算程序代码
详见：
https://bbs.simol.cn/thread-131895-1-1.html

limengde2001

WEZDAH 发表于 2014-3-21 11:19
版主乃电机强人也！
期待您的大作造福电机界。
谢谢！！！！！！

过奖{:soso_e106:} ，楼主而已，

wjqdslz

高手啊{:soso_e163:}

5965

厉害厉害厉害厉害

leepeter

楼主很强大，感谢分享！

lzemg007

异步启动永磁同步电机设计程序 （vb源码分享）好人啊

libing811

牛人，，，好好编写吧。

omig001

楼主不错，表扬下{:soso_e179:}

lei285

期待中期待中

limengde2001

异步启动永磁同步电机设计程序 （vb源码分享）福利4：工作特性计算
https://bbs.simol.cn/thread-131992-1-1.html

超级小怪兽

谢谢分享谢谢分享

超级小怪兽

再回复一次

limengde2001

今天程序初步跑通王秀和书后的算例，上传程序，庆祝下{:soso_e142:}
不过好多图表处理还没有编写，继续编~

limengde2001

楼上的大家不要下，漏掉了磁化曲线文件，窗体加载不了。下面重新上传的可以运行。

lzemg007

楼主很强大，感谢分享！

limengde2001

异步启动永磁同步电机设计程序-v1.0发布啦，可到帖子中下载
https://bbs.simol.cn/thread-132236-1-1.html

lzemg007

期待您的大作造福电机界。
谢谢！！！！！！