对称分量法求出正序、负序、零序的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 发表
1 a7 S2 W( J$ B% F! R: A8 J

登录/注册后可看大图
2 Q6 f3 `* n0 [5 p
(*求三序向量*)% n* {9 t  v- b# i8 e

$ y/ X; I/ @- ^, M: q" p( C(*A相量幅值*)fa = 10
: E7 @) j+ W# V( ^% f(*A相量角度*)ja = 0
% c$ j- j6 c5 g$ i! X(*B相量幅值*)fb = 104 r( K5 e, P3 f. h# I# g& h
(*B相量角度*)jb = 1806 z$ t1 Q& A2 a. \* R. F
(*C相量幅值*)fc = 0& d  b) j" M2 _8 s% ?) p; i' p
(*C相量角度*)jc = 0
) y" A  |* m1 Z' |
4 b9 M9 `+ K! r! y4 p(*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程序

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

评分

相关帖子