huganqitiexin.txt

互感器铁心和线圈计算

'----------<<<<<<<<<<   铁心及线圈计算    --------------------
Sub SM铁心线圈计算(rk As G窗口输入, cw As G铁心绕组)
    With rk
    If .S铁心型式 = "园形" Then
        cw.D铁心截面积 = (.D铁心外形尺寸(0) - .D铁心外形尺寸(1)) * .D铁心外形尺寸(3) * .D铁心填充系数 / 200    '平方厘米
        cw.D铁心磁路长 = (.D铁心外形尺寸(0) + .D铁心外形尺寸(1)) * Cd圆周率 / 20 'cm
        cw.D二次线总长 = (.D铁心外形尺寸(0) - .D铁心外形尺寸(1) + 2 * E圆铁心高 + 8 * .D二次包扎层厚) * cw.D二次匝数 / 1000 '米
    End If
    If rd.S铁心型式 = "方形" Then
        cw.D铁心截面积 = .D铁心外形尺寸(2) * .D铁心外形尺寸(3) * .D铁心填充系数 / 100 '平方厘米
        cw.D铁心磁路长 = (.D铁心外形尺寸(0) + .D铁心外形尺寸(1) - 4 * .D铁心外形尺寸(4) + (.D铁心外形尺寸(4) - .D铁心外形尺寸(3) / 2) * Cd圆周率) / 5  '厘米
        cw.D二次线总长 = (.D铁心外形尺寸(2) + .D铁心外形尺寸(3) + 4 * rd.D二次包扎层厚) * cw.D二次匝数 / 500     '米
    End If
    cw.D铁心质量 = 7.6 * cw.D铁心磁路长 * cw.D铁心截面积 / 1000  '铁心重量kg
    cw.D二次线截面 = .D二次线根数 * .D二次线直径 * .D二次线直径 * Cd圆周率 / 4   '平方毫米
    cw.D二次匝数 = .D额定一次电流 * .D一次匝数 / .D额定二次电流
    cw.D二次线质量 = 8.89 * cw.D二次线总长 * cw.D二次线截面 / 1000  '二次线重量kg
    cw.D绕组电阻55 = 0.02 * cw.D二次线总长 / cw.D二次线截面        ' 55°C 时电阻值
    cw.D绕组电阻75 = 0.024 * cw.D二次线总长 / cw.D二次线截面       ' 75°C 时电阻值
    cw.D绕组电抗 = .D二次漏电抗
    cw.D绕组阻抗55 = Sqr(cw.D绕组电阻55 * cw.D绕组电阻55 + cw.D绕组电抗 * cw.D绕组电抗)
    cw.D绕组阻抗75 = Sqr(cw.D绕组电阻75 * cw.D绕组电阻55 + cw.D绕组电抗 * cw.D绕组电抗)
    End With
  
End Sub