对称分量法求出正序、负序、零序的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 发表
  k- r/ A* h/ n/ I7 [9 s# i

登录/注册后可看大图
8 d, Z8 N3 e: z4 P5 z( N
(*求三序向量*)' A  h5 c6 @- n/ y

# P' C+ k' G9 t(*A相量幅值*)fa = 10: y8 ~/ e- h. O8 U
(*A相量角度*)ja = 00 T0 S$ H+ H9 ^. q% D4 o/ v
(*B相量幅值*)fb = 10# E! G" `( F# }: P- O/ S, ]
(*B相量角度*)jb = 180/ _( Q' J( C: |  ]
(*C相量幅值*)fc = 0
& n/ r- z% e& A& m: @$ H7 O(*C相量角度*)jc = 03 z  W2 K  L3 R1 K+ y- f

, C& W3 w, C* `; I  x; K(*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程序

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

评分

相关帖子