.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=-20*_mm _max_y=80*_mm _offset=5*_mm _V_a=33e3/sqrt(3)*_V _adj=1.00 O: (0,0) _delta=20 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_1}$" at label(E_af,_offset) if _delta > 1 then { "$j{X_s}\mathbf{I}_{a_1}$" at label(V_jXsIa,_offset) "$\mathbf{I}_{a_1}$" at label(I,_offset)} linethick_(0.5) arcd(O,0.25*_V_a,0,_delta) <-> ccw "$\delta_1$" at Rect_(0.25*_V_a+_offset,_delta/2) linethick_(0.2) arcd(O,_V_a,-5,_delta+5) _delta=35 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_2}$" at label(E_af,_offset) if _delta > 1 then { "$j{X_s}\mathbf{I}_{a_2}$" at label(V_jXsIa,_offset) "$\mathbf{I}_{a_2}$" at label(I,_offset)} linethick_(0.5) arcd(O,0.35*_V_a,0,_delta) <-> "$\delta_2$" at Rect_(0.35*_V_a+_offset,_delta/2) linethick_(0.2) arcd(O,_V_a,-5,_delta+5) _delta=50 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) arcd(O,_V_a,-5,_delta+5) line from (_min_x,0) to (_max_x,0) line from (0,_min_y) to (0,_max_y) .PE