对称分量法求出正序、负序、零序的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 发表

0 d) J  a6 o# u: W5 M
登录/注册后可看大图
, F  g- Y% M8 l9 g; O$ X# x
(*求三序向量*)
* V+ ^- e2 r* K+ o8 t
$ K# V& R5 ?0 K9 j+ _$ a& a5 _" N(*A相量幅值*)fa = 10# Y/ f. P1 F) k. ?! e' `, R
(*A相量角度*)ja = 04 W( w" }  K2 x3 z
(*B相量幅值*)fb = 10
; G. [$ c0 P7 [(*B相量角度*)jb = 180. ?$ ]" \1 F# L, J8 b; v
(*C相量幅值*)fc = 0- f& y# q* b8 Q/ a1 `* l- ^
(*C相量角度*)jc = 0
& |, P$ F$ N* F1 U' x4 J8 N1 B# a6 }1 _( Q/ W* O
(*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程序

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

评分

相关帖子

浏览过的版块