我正在寻找一种绘画方式单线图配电网。到目前为止,我遇到过 CircuiTikZ,但这个包似乎面向不同类型的电路图,并且不包含总线等基本组件。有人知道我可以为此使用的包吗?
以下是此类图表的示例:
答案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