对称分量法求出正序、负序、零序的mathematica程序
(*求三序向量*)(*A相量幅值*)fa = 10
(*A相量角度*)ja = 0
(*B相量幅值*)fb = 10
(*B相量角度*)jb = 180
(*C相量幅值*)fc = 0
(*C相量角度*)jc = 0
(*A相量正序实部*)rea1 = fa*Cos + fb*Cos[(jb + 120)*Pi/180] + jc*Cos[(jc + 240)*Pi/180]
(*A相量正序虚部*)ima1 = fa*Sin + fb*Sin[(jb + 120)*Pi/180] + jc*Sin[(jc + 240)*Pi/180]
(*A相量负序实部*)rea2 = fa*Cos + fb*Cos[(jb + 240)*Pi/180] + jc*Cos[(jc + 120)*Pi/180]
(*A相量负序虚部*)ima2 = fa*Sin + fb*Sin[(jb + 240)*Pi/180] + jc*Sin[(jc + 120)*Pi/180]
(*A相量零序实部*)rea0 = fa*Cos + fb*Cos + jc*Cos
(*A相量零序虚部*)ima0 = fa*Sin + fb*Sin + jc*Sin
(*A相量正序实部*)rea1 = N
(*A相量正序虚部*)ima1 = N
(*A相量负序实部*)rea2 = N
(*A相量负序虚部*)ima2 = N
(*A相量零序实部*)rea0 = N
(*A相量零序虚部*)ima0 = N
(*作三序图*)sawline = Line[{{0,0},{rea1,ima1},
{rea1,0},{rea1,ima1},
{0,ima1},{rea1,ima1},
{0,0},{rea2,ima2},
{rea2,0},{rea2,ima2},
{0,ima2},{rea2,ima2},
{0,0},{rea0,ima0},
{rea0,0},{rea0,ima0},
{0,ima0},{rea0,ima0}}]
(*作三序图*)Show,
Graphics[{Text[" 正序", {rea1, ima1}]}],
Graphics[{Text[" 负序", {rea2, ima2}]}],
Graphics[{Text[" 零序", {rea0, ima0}]}],
Axes ->True]
以上是我用mathematica写的程序，不知对不对，还请大虾们指正。
最近我正在学习故障时的三序电流，苦于手里没有例子，不知道有谁可以贡献一些数据。
我想问一下：
假设有{A相：10安0度B相：10安240度C相：100安0度}，这组数据能大致表示大电流接地系统的C相单相接地吗？
假设有{A相：100安0度 B相：100安180度 C相：10安120度}，这组数据能大致表示系统的AB相间短路吗？
[ 本帖最后由 wyz2727 于 2008-7-4 00:49 编辑 ] 相信这里的人用Matlab比较多，要数据，你可以用matlab仿 原帖由 wyz2727 于 2008-7-4 00:27 发表 https://tech.cepsc.com/images/common/back.gif
(*求三序向量*)
(*A相量幅值*)fa = 10
(*A相量角度*)ja = 0
(*B相量幅值*)fb = 10
(*B相量角度*)jb = 180
(*C相量幅值*)fc = 0
(*C相量角度*)jc = 0
(*A相量正序实部*)rea1 = fa*Cos + fb*Cos ...
写的太复杂了，算正负零序分量，用Mathematica简直是杀鸡用牛刀。 不错，支持一个。
::handshake:: 非常好，感谢楼主 謝謝樓主提供!!! 感谢楼主分享 谢谢，赶紧分享下 谢谢，赶紧分享下 感谢楼主分享啊
页:
[1]
2
