电网单线图

电网单线图

我正在寻找一种绘画方式单线图配电网。到目前为止,我遇到过 CircuiTikZ,但这个包似乎面向不同类型的电路图,并且不包含总线等基本组件。有人知道我可以为此使用的包吗?

以下是此类图表的示例:

光伏设备安装中低压配电网络的运行 - Georg Kerber

答案1

我从事电力系统工作,喜欢使用 LaTex。多年来,我一直在寻找合适的库来绘制单线图,包括输电线、电力变压器、发电机、电动机、负载、仪器变压器等。但直到现在,都没有成功。我使用电路宏它使用 M4 宏预处理器生成 .pic 文件,然后使用 dpic(或 gpic)生成 .tex 文件。它不适用于 Power Systems,但很有用。

示例代码:

% `Loop.m4'
.PS
cct_init
ifdef(`AND_gate',,`include(liblog.m4)')
xgap = 0.6
define(`dimen_',0.75)
dim1 = 1; dim2 = 0.75 ; dim3=0.5
P0 : Here
box fill_(0.9) wid 1 "Xingu" "\SI{500}{\kV}"
P01 : Here
move to P0
move down 0.4
"$R_0=\SI{1,682}{\ohm}$" wid 0.1 ht 0.1 at Here ljust
move to P01
source(right_ dim2, G); llabel(,YY,); rlabel(,18~\%,)
P1 : Here
move down 0.2
line thick 3*linethick up 0.4 
move up 0.1
"$s$" wid 0.1 ht 0.1 at Here
move to P1
move right 0.1
move down 0.1
arrow right 0.2
move down 0.1
move left 0.2
"$I^s$" wid 0.1 ht 0.1 at Here
move to P1
move right 1.5
move up 0.1
"$l=\SI{2600}{\km}$" wid 0.1 ht 0.1 at Here
move to P1
line right 3.0
P2 : Here
move down 0.2
line thick 3*linethick up 0.4 
move up 0.1
"$r$" wid 0.1 ht 0.1 at Here
move to P2
source(right_ dim2, G); llabel(,YY,); rlabel(,18~\%,)
P3 : Here
box fill_(0.9) wid 1 "Nova Igua\c{c}u" "\SI{500}{\kV}"
move to P3
move down 0.4
"$Z_0=a+b$" wid 0.1 ht 0.1 at Here ljust
move to P1
move right 0.6
move up  0.3
RELE : BOX_gate(PP,,,,21)
line left 0.15 from last [].In1
move left 0.1
"$V^s$"
line left 0.15 from last [].In2
move left 0.1
"$I^s$"
move to P1
move right 0.2
move down 0.2
"$R_0=\SI{2600}{\km}$" wid 0.1 ht 0.1 at Here ljust
move to P1
move right 2.8
move down 0.2
"$R_0=\SI{2600}{\km}$" wid 0.1 ht 0.1 at Here rjust
.PE 

按照手册使用 M4 宏和 dpic 可以生成一个 .tex 文件来生成下图(我在 .tex 文件中做了一些更改,修改了一些文本)。

在此处输入图片描述

我想为电力系统编写一个库,将其包含在电路宏中。

答案2

出于兴趣,这里是伦佐·法比安的代码没有那些内容move

.PS
log_init
xgap = 0.6
define(`dimen_',0.75)
  dim1 = 1; dim2 = 0.75 ; dim3=0.5
  X: box fill_(0.9) wid 1 "Xingu" "\SI{500}{\kV}"
  { "$R_0=\SI{1,682}{\ohm}$" wid 0.1 ht 0.1 at X.sw below ljust }
  source(right_ dim2, G); llabel(,YY,); rlabel(,18~\%,)
  { B1: line thick 3*linethick up 0.4 with .c at Here
    "$s$" wid 0.1 ht 0.1 }
  { arrow right 0.2 from last line.c+(0.1,-0.1) }
  { "$I^s$" wid 0.1 ht 0.1 at last line.start below }
  line right 3.0 "$l=\SI{2600}{\km}$" wid 0.1 ht 0.1 above
  { B2: line thick 3*linethick up 0.4 with .c at Here
    "$r$" wid 0.1 ht 0.1 above }
  source(right_ dim2, G); llabel(,YY,); rlabel(,18~\%,)
  NI: box fill_(0.9) wid 1 "Nova Igua\c{c}u" "\SI{500}{\kV}"
  "$Z_0=a+b$" wid 0.1 ht 0.1 at NI.sw below ljust
  RELE : BOX_gate(PP,,,,) with .w at B1+(0.6,0.3)
  line left 0.15 from last [].In1
  "$V^s$" rjust
  line left 0.15 from last [].In2
  "$I^s$" rjust
  "$R_0=\SI{2600}{\km}$" wid 0.1 ht 0.1 at B1+(0.2,-0.2) ljust
  "$R_0=\SI{2600}{\km}$" wid 0.1 ht 0.1 at B1+(2.8,-0.2) rjust
.PE

相关内容