.PS include(pstricks.m4) scale=25.4 cct_init vsp=25 hsp=25 O: (0,0) move to O VS1: source(up_ vsp,V,); llabel(,v_{s1},) { dot(at Here) line up vsp IS: source(right_ vsp*2,I,,R); llabel(,i_{s},) line down to (Here.x,VS1.end.y) VB: dot(at Here)} R1: resistor(right_ to 1/2 between Here and (IS.end.x,Here.y)); llabel(,R_1,) { VA: dot(at Here) R2: resistor(down_ to (Here.x,O.y)); llabel(,R_2,) dot(at Here) ground(at Here)} R3: resistor(right_ to (IS.end.x,Here.y)); llabel(,R_3,) R4: resistor(right_ hsp);rlabel(,R_4,) VS2: source(down_ to (Here.x,O.y),V,,R); rlabel(,v_{s2},) line to O "$v_a$" at VA.n above "$v_b$" at VB.s below IA: arcd(1/2 between VS1.end and R2.end,hsp/4,-145,-45) cw -> IB:arcd(1/2 between IS.start and R3.end,hsp/4,-145,-45) cw -> IC: arcd(1/2 between R2.start and VS2.end,hsp/4,-145,-45) cw -> "$i_a$" at IA "$i_b$" at IB "$i_c$" at IC .PE