.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] _pi=atan2(0,-1) _min_x=-40*_mm _max_x=120*_mm _min_y=-40*_mm _max_y=80*_mm _offset=3*_mm _V_a=33e3/sqrt(3)*_V _adj=1.80 #old value was 1.4 _delta=asin((1.4/_adj)*sin(33.1734*_pi/180))*180/_pi # old value was 33.1734 O: (0,0) 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) _S=sqrt((E_af.x-V_a.x)^2+E_af.y^2) _theta=atan2(-V_jXsIa.x,V_jXsIa.y) _pi=atan2(0,-1) line from O to V_a -> line from O to E_af -> line from V_a to E_af -> "$S_{e|_\text{max}}$" at 1/2 between E_af and V_a above rjust "$-\dfrac{3V_a^2}{X_s}$" at O below "$\approx I_{f|_\text{max}}$" at 1/2 between O and E_af above rjust "0" at V_a below ljust "$P_e$" at (V_a.x,E_af.y) above ljust "$Q_e$" at (E_af.x,0) below linethick_(0.5) arcd(O,0.3*_V_a,0,_delta) <-> "$\delta$" at Rect_(0.3*_V_a+1.5*_offset,_delta/2) #arcr(V_a,0.1*_V_a,0,_pi/2+_theta) <-> #"$90^\circ{-}\theta$" at (V_a+(rect_(0.1*_V_a+_offset,_pi/4+_theta/2))) ljust linethick_(0.2) line from (_min_x*0.75,0) to (_max_x*1.25,0) line from (V_a.x,_min_y) to (V_a.x,_max_y) line dashed from E_af to (E_af.x,0) line dashed from (V_a.x,E_af.y) to E_af line from (0,_offset) to (0,-_offset) line from (V_a.x-_offset,E_af.y) to (V_a.x+_offset,E_af.y) command "`\pscustom[fillstyle=solid,fillcolor=lightgray,linecolor=lightgray]{'" arcd(V_a,_S+_offset,-15,175) ccw arcd(V_a,_S,175,-15) cw command "`}%'" arcd(V_a,_S,175,-15) cw command "`\pscustom[fillstyle=solid,fillcolor=lightgray,linecolor=lightgray]{'" arcd(O,_V_a*_adj+_offset,-10,35) ccw arcd(O,_V_a*_adj,35,-10) cw command "`}%'" arcd(O,_V_a*_adj,35,-10) cw .PE