VB变压器优化设计分析-1程序流程.doc

程序流程目录一）对优化设计程序的要求 二）优化设计框图 三）输入数据四）循环变量 五）电抗高度系数VB变压器设计程序分析(1)六）由最高电密确定线规的步骤 七）绕组高确定原则 八）主要的编程语句 九）信息的输入和输出 十）方案优化排队 十一）程序调试方法VB变压器设计程序分析(1)n 一）对优化设计程序的要求1.本设计程序使用VB6.0编写，采用循环遍数法。选择合理的跳 出运行出口，节省运行时间。2.从满足性能参数（PO，PK，UK，温升等）约束条件出发，先 在选定的铁心尺寸范围内从设定的最高磁密、最高电密开始 计算，无解时逐渐降低磁密和电密进行循环计算。3.循环变量：铁心尺寸（或直径）、磁密、电抗高度系数、高 压层数、低压层数、最高高压电密、最高低压电密。4.磁密以铁心截面和低压匝数实现。5.为满足阻抗UK要求，输入电抗高度系数，由程序估算绕组高 度。VB变压器设计程序分析(1)5.电密以导线截面实现，在绕组高度和设定的层数下导线的 宽度也就确定。然后以最小的导线厚度为起点开始运算， 每一次循环增加一级导线厚度，直到有解时跳出这一次循 环。高、低压导线均如此，要求每一种导线的组合都不放 过。6.在循环运算过程中要显示可行解的信息。使设计者了解循 环变量范围选取是否合适。7.运算无解时显示计算到什么阶段，便于设计者调整输入数 据。8.优化设计后应有人工调整功能。9.设计结果能存于数据库，便于查阅。10.设计结果输出一份详细的计算单，作为技术文件保存。VB变压器设计程序分析(1)二）优化设计程序框图输入数据铁心尺寸循环低压线宽循环材料成本计算保存方案磁密循环绕组计算方案比较排队保存计算单电抗高度循环 高压线宽循环 高压线厚循环低压线厚循环PO判断NoYesPK判断NoYesUK判断NoYesNo温升判断下一个循环 显示十个最优 选择方案人工调整绘制铁心图 结束YesVB变压器设计程序分析(1)n 设计程序框图说明：1.磁密循环：实际上是低压匝数循环。2.高压线宽循环：实际上是高压层数循环。3.低压线宽循环：实际上是低压层数循环。4.在取不到线规时，自动跳出进入下一循环。5.人工调整计算时跳出循环和约束条件的限制。VB变压器设计程序分析(1)n 三）输入数据VB变压器设计程序分析(1)1.一部分数据需人工输入，标准产品的性能参数由程序自动 输入。在Private Sub Form_Load()中打开TXT文件：Open App.Path & & FJGG.TXT For Input As #1Do Until EOF(1)循环输出Input #1, SP, SHW, SMO, SDOS, SDOL, SMO1If P = SP Then选择所需行的数据HW = SHW: MOO = SMO: DOOS = SDOS: DOOL = SDOL: MOO1 = SMO1Exit Do选到后退出End IfLoop循环Close #1VB变压器设计程序分析(1)2.为免除反复人工输入，设置了恢复上次输入按键。也 是一个TXT文件。是调用SC1012模块：Sub SC1012()Rem 恢复上次输入参数Open App.Path & SFJ-DA2.TXT For Input As #1Input #1, GXG$Input #1, KEE1, KEE2, IH, IW, BMM, KQ, BM2, DOOS1, DOOS2, DOOL1, DOOL2, M21, M22, TYZ, TYF, TYS, UD1, UD2, DOOLInput #1, M11, M12, U1, U2, JJ, JCU, JQB, JBO, JFE, JAL, JALQB, JALBO, A4, B4, KPO, KPK, JYOU, JGC, JCBXSClose #1End SubVB变压器设计程序分析(1)3.恢复上次输入。完成后存盘，调用SC1013模块：Sub SC1013() Rem 输入参数存盘Open App.Path & SFJ-DA2.TXT For Output As #1Print #1, GXG$Print #1, KEE1, KEE2, IH, IW, BMM, KQ, BM2, DOOS1, DOOS2, DOOL1, DOOL2, M21, M22, TYZ, TYF, TYS, UD1, UD2, DOOLPrint #1, M11, M12, U1, U2, JJ, JCU, JQB, JBO, JFE, JAL, JALQB, JALBO, A4, B4, KPO, KPK, JYOU, JGC, JCBXSClose #1End SubVB变压器设计程序分析(1)四）循环变量 循环变量的设置可参看输 入数据参考，运行后再作调整。原则是看最优解是否在所设定的范围中部，如最优解在设定铁心的边缘，则应调整铁心的设置。因高压是圆线，不需改线 宽，故无需优化层数。VB变压器设计程序分析(1)五）电抗高度系数For KEE = KEE1 To KEE2 Step 0.02电抗高度循环HH0 = KEE * 1.85 * I2 * N2 * DOO / (ET * UD * 10000!) * (DOO / 80 + 2 * UD + 4 + CZ1)电抗高度估算公式KEE是电抗高度的循环系数，一般从0.8到1.2，Step步长的大小应小于导线宽的变化率，也就是绕组高度的 变化率应小于导线宽的变化率，否则就会漏掉线规的组 合，可能漏掉最优解。1.85是经验系数，铜线和铝线不同，不同结构的绕组也有差 别。解决的办法是从最优解的列表中看KEE 值的范围。VB变压器设计程序分析(1)六）由最高电密确定线规的步骤BD = HH0 / (N2 / M2 + 1) * B4 * KH2) JBA2确定线宽AD = S22 / BD确定线厚AB = Int(Log(AD) * 17.452 + 2.5) 扁线厚数组下标BZ = Int(Log(BD) * 17.452 - 15.5) 扁线宽数组下标如果是圆线则：AC = Int(Log(AG * 10) * 17.17 - 18) 圆线宽数组下标这些是从线规的数列得出的公式。有了起始线规的数组下 标，以后的循环计算中每次数组下标加1就可以了。VB变压器设计程序分析(1)n七）绕组高确定原则1.先算出次级线圈高H2；2.由次级高H2加两线圈高差HGD（即两倍的高低端绝缘 差），初步确定高压线圈高H1；H1 = H2 - HGD * 23.由H1算出高压每层匝数N9，由N9最后确定高压线圈高H1；4.由H1加高压端绝缘H11D确定线圈总高H21：H21=H1+H11D*2 同时确定低压端绝缘H22D： H22D = H11D - HGDVB变压器设计程序分析(1)八）主要的编程语句1. 循环结构Do 循环结构Do While | Until 条件语句块Exit Do 语句块LoopFor 循环结构For 计数器 = 初始值 To 终止值 Step 步长语句块Exit For Exit 计数器2. 选择语句ifThen 结构if 条件 Then 语句if 条件 Then语句块End ifif 条件1 Then语句块1Elseif条件1 Then语句块2Else语句块nEnd ifVB变压器设计程序分析(1)select case 结构VB变压器设计程序分析(1)Select Case 变量 | 表达式Case 值1语句块1Case 值2语句块2.Case Else语句块nEnd Select3.联接模块，例如：Call XGJM1 线规截面计算VB变压器设计程序分析(1)八）信息的输入和输出1.输入 InputBox 函数InputBox（对话框字符串S，标题S，文本框字符串， 横坐标值N，纵横坐标值N，帮助文件S，帮助主题 号N）如：U1 = InputBox(请输入导变高压（V）：, ,10500)VB变压器设计程序分析(1)2.输出 MsgBox 函数MsgBox（消息文本S，显示按钮N，标题S，帮助文件S，帮助主题号N）消息文本作为消息显示的字符串，超过一行时插入回车 符Chr(13)或换行符Chr(10)进行换行。标题对话框标题 显示按钮是C1+C2+C3+C4的总和，用来指定显示按钮的数目、形式、使用的图标样式。C1：显示按钮的数目（05），0显示OK 按钮；10显示OK 及Cancel按钮。C2：使用的图标样式16显示关键信息图标；32显示 疑问图标；48显示警告图标；64显示通知图标。VB变压器设计程序分析(1)举例： M = 标准:PO= & POT & PK= & PKS & NL M = M & * & NL & NLM = M & NO & 报价 & DOOL & DOOS & N2 & M2 & CZ11 & M1 & M1n & PK & PO & UK & A1 & B1 & A2 & B2 & KEE & NL& NLFor I = 0 To 9M = M & I & KOG1$ & MM(I) & KOG1$ & D(I) & KOG$ & DD(I) & KOG$ & N(I) & KOG$ & III(I) & KOG$ & C(I) & KOG$ & II(I) & KOG$ & M1n0(I) & KOG$ & K(I) & KOG$ & O(I) & KOG$ & Format(U(I), #.#) & KOG$ & aa(I) & KOG$ & bb(I) & KOG$ & E(I) & KOG$ & F(I) & KOG$ & KOG$ & KE1(I) & NLNextM = M & NL & 方案数： & QMsgBox M, , 10个优化方案主要数据VB变压器设计程序分析(1)九）方案优化排队VB变压器设计程序分析(1)Rem 可行解方案排队，选取10个最优方案。3010If Z 11 Then Z = 11For I = 1 To Z: If JI = MM(I) Then ReturnNext IMM(Z) = JI: aa(Z) = A1: AA0(Z) = A01: bb(Z) = B1: C(Z) = CZ11: D(Z) = DOOL: DD(Z) = DOOS If Z = 11 Then GoSub 3090Z = Z + 1: Q = Q + 1Return3090 For I = 0 To 9For J = I + 1 To 11If MM(I) = MM(J) Then GoTo 3270H = MM(I): MM(I) = MM(J): MM(J) = H H = aa(I): aa(I) = aa(J): aa(J) = HH = AA0(I): AA0(I) = AA0(J): AA0(J) = H H = bb(I): bb(I) = bb(J): bb(J) = HH = C(I): C(I) = C(J): C(J) = H H = D(I): D(I) = D(J): D(J) = HH = DD(I): DD(I) = DD(J): DD(J) = H3270 Next J Next I ReturnVB变压器设计程序分析(1)n 说明：排队的变量有两类：1. 重现计算结果必需的变量，如高、低压线规，绕组高 度