Adjusting the DC excitation

.PS
include(pstricks.m4)

scale=25.4	#scale in [mm]

cct_init

define(`label',`rect_(sqrt($1.x^2+$1.y^2)+$2,atan2($1.y,$1.x))')

_mm=0.5			#[mm]
_V=(1/220)*_mm	#[mm/V]

_min_x=-40*_mm
_max_x=120*_mm
_min_y=-40*_mm
_max_y=80*_mm

_offset=5*_mm

_V_a=33e3/sqrt(3)*_V

O: (0,0)

_adj=1.00
_delta=50.000
linethick_(0.75)

V_a: Rect_(_V_a,0)
E_af: Rect_(_V_a*_adj,_delta)
V_jXsIa: E_af-V_a
I: (V_jXsIa.y*1.5,-V_jXsIa.x*1.5)

line from O to V_a ->
line from O to E_af ->
if _delta > 1 then {
	line from O to V_jXsIa ->
	line from O to I ->}

"$\mathbf{V}_a$" at label(V_a,_offset) below
"$\mathbf{E}_{af_3}$" at label(E_af,_offset) 
if _delta > 1 then {
	"$j{X_s}\mathbf{I}_{a_3}$" at label(V_jXsIa,_offset)
	"$\mathbf{I}_{a_3}$" at label(I,_offset)}

linethick_(0.5)

arcd(O,0.45*_V_a,0,_delta) <->
"$\delta_3$" at Rect_(0.45*_V_a+_offset,_delta/2)

linethick_(0.2)

line from E_af to (V_a+(20*_mm,E_af.y))
line from I to ((I.x,0)-(0,30*_mm))

_adj=1.20
_delta=39.6704
linethick_(0.75)

E_af: Rect_(_V_a*_adj,_delta)
V_jXsIa: E_af-V_a
I: (V_jXsIa.y*1.5,-V_jXsIa.x*1.5)

line from O to V_a ->
line from O to E_af ->
if _delta > 1 then {
	line from O to V_jXsIa ->
	line from O to I ->}

"$\mathbf{V}_a$" at label(V_a,_offset) below
"$\mathbf{E}_{af_4}$" at label(E_af,_offset) 
if _delta > 1 then {
	"$j{X_s}\mathbf{I}_{a_4}$" at label(V_jXsIa,_offset)
	"$\mathbf{I}_{a_4}$" at label(I,_offset)}


linethick_(0.5)

arcd(O,0.35*_V_a,0,_delta) <->
"$\delta_4$" at Rect_(0.35*_V_a+_offset,_delta/2)

_adj=1.40
_delta=33.1734
linethick_(0.75)

E_af: Rect_(_V_a*_adj,_delta)
V_jXsIa: E_af-V_a
I: (V_jXsIa.y*1.5,-V_jXsIa.x*1.5)

line from O to V_a ->
line from O to E_af ->
if _delta > 1 then {
	line from O to V_jXsIa ->
	line from O to I ->}

"$\mathbf{V}_a$" at label(V_a,_offset) below
"$\mathbf{E}_{af_5}$" at label(E_af,_offset) 
if _delta > 1 then {
	"$j{X_s}\mathbf{I}_{a_5}$" at label(V_jXsIa,_offset)
	"$\mathbf{I}_{a_5}$" at label(I,_offset)}

linethick_(0.5)

arcd(O,0.25*_V_a,0,_delta) <->
"$\delta_5$" at Rect_(0.25*_V_a+_offset,_delta/2)

dimension_(from (V_a+(40*_mm,0)) to (V_a+(40*_mm,E_af.y)), _offset*2,"$\quad\propto{P}$",12pt__,_offset,<->)
dimension_(from (O-(0,40*_mm)) to ((I.x,0)-(0,40*_mm)), _offset*2,"$\propto{P}$",24pt__,_offset,<->)

linethick_(0.2)

line from (_min_x,0) to (_max_x,0)
line from (0,_min_y) to (0,_max_y)

.PE