对称分量法求出正序、负序、零序的mathematica程序

wyz2727 · 发表于 2008-7-4 00:27:57

马上加入，结交更多好友，共享更多资料，让你轻松玩转电力研学社区！

您需要登录才可以下载或查看，没有账号？立即加入

×

(*求三序向量*)

(*A相量幅值*)fa = 10
(*A相量角度*)ja = 0
(*B相量幅值*)fb = 10
(*B相量角度*)jb = 180
(*C相量幅值*)fc = 0
(*C相量角度*)jc = 0

(*A相量正序实部*)rea1 = fa*Cos[ja*Pi/180] + fb*Cos[(jb + 120)*Pi/180] + jc*Cos[(jc + 240)*Pi/180]
(*A相量正序虚部*)ima1 = fa*Sin[ja*Pi/180] + fb*Sin[(jb + 120)*Pi/180] + jc*Sin[(jc + 240)*Pi/180]
(*A相量负序实部*)rea2 = fa*Cos[ja*Pi/180] + fb*Cos[(jb + 240)*Pi/180] + jc*Cos[(jc + 120)*Pi/180]
(*A相量负序虚部*)ima2 = fa*Sin[ja*Pi/180] + fb*Sin[(jb + 240)*Pi/180] + jc*Sin[(jc + 120)*Pi/180]
(*A相量零序实部*)rea0 = fa*Cos[ja*Pi/180] + fb*Cos[jb*Pi/180] + jc*Cos[jc*Pi/180]
(*A相量零序虚部*)ima0 = fa*Sin[ja*Pi/180] + fb*Sin[jb*Pi/180] + jc*Sin[jc*Pi/180]

(*A相量正序实部*)rea1 = N[rea1/3]
(*A相量正序虚部*)ima1 = N[ima1/3]
(*A相量负序实部*)rea2 = N[rea2/3]
(*A相量负序虚部*)ima2 = N[ima2/3]
(*A相量零序实部*)rea0 = N[rea0/3]
(*A相量零序虚部*)ima0 = N[ima0/3]

(*作三序图*)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[sawline],
         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 编辑 ]

sadever · 发表于 2008-7-4 20:51:16

相信这里的人用Matlab比较多，要数据，你可以用matlab仿

damayi · 发表于 2008-7-4 22:30:02

原帖由 wyz2727 于 2008-7-4 00:27 发表

5 Q6 x) m) }6 u( n1 ?+ E2 @# ]( B7 h
登录/注册后可看大图
/ v9 H: q' x) A9 K1 ^0 B8 f( ~
(*求三序向量*)2 X3 h) o" Y7 B! L/ J
  ?% y# M5 Z9 T) e6 D  }3 L, H
(*A相量幅值*)fa = 10
- h8 B, ?7 T$ M' R* M/ q/ o+ @, W(*A相量角度*)ja = 0
5 H! c# q6 z, B! L(*B相量幅值*)fb = 10& Q7 I0 F% f' J) u8 u
(*B相量角度*)jb = 180/ h* @1 b0 p! S" N% Z/ g2 c, u
(*C相量幅值*)fc = 05 [) W- Z0 m# Z- s2 A  j5 q4 r8 C
(*C相量角度*)jc = 0
3 E& j7 U2 x  Y0 @" m) i1 K- t2 _1 P1 w- _/ \( d
(*A相量正序实部*)rea1 = fa*Cos[ja*Pi/180] + fb*Cos ...

写的太复杂了，算正负零序分量，用Mathematica简直是杀鸡用牛刀。

afandi · 发表于 2008-7-4 23:52:48

不错，支持一个。

wwwhjkhjk · 发表于 2010-7-30 07:27:32

非常好，感谢楼主

sdad · 发表于 2010-7-30 08:05:54

謝謝樓主提供!!!

kevinxjtu · 发表于 2010-10-13 15:44:37

感谢楼主分享

zouyanyun12 · 发表于 2011-4-26 12:45:21

谢谢，赶紧分享下

paradisesdu · 发表于 2011-5-20 08:39:35

谢谢，赶紧分享下

mxj_123 · 发表于 2011-5-20 19:23:12

感谢楼主分享啊

账号		自动登录	找回密码
密码			立即加入

对称分量法求出正序、负序、零序的mathematica程序

马上加入，结交更多好友，共享更多资料，让你轻松玩转电力研学社区！

评分

相关帖子