.PS include(pstricks.m4) scale=25.4 cct_init dy=20 dx=30 O: (0,0) move to O Ia: source(up_ dy,I); llabel(,i_a,) { # Push current location to the "stack" N1: dot(at Here) line up dy R1: resistor(right_ 2*dx); llabel(,R_1,) line down to (Here.x,Ia.end.y) dot(at Here) } # Return to the previous location on the "stack" R2: resistor(right_ dx); llabel(,R_2,) { # Push current location to the "stack" N2: dot(at Here) R4: resistor(down_ to (Here.x,O.y)); llabel(,R_4,) dot(at Here) ground(at Here) } # Return to the previous location on the "stack" R3: resistor(right_ dx); llabel(,R_3,) line right dx*0.25 { # Push current location to the "stack" N3: dot(at Here) Vy: source(down_ to (Here.x,O.y),V,,R); rlabel(,v_y,) dot(at Here) } # Return to the previous location on the "stack" line right dx*0.75 Ib: source(down_ to (Here.x,O.y),I);llabel(,i_b,) line left to O I1: arcd(1/2 between Ia.end and R4.end,dy/4,-135,-45) cw -> I2: arcd(1/2 between Ia.end and R1.end,dy/4,-135,-45) cw -> I3: arcd(1/2 between R4.start and Vy.end,dy/4,-135,-45) cw -> I4: arcd(1/2 between Vy.start and Ib.end,dy/4,-135,-45) cw -> "$i_1$" at I1.c "$i_2$" at I2.c "$i_3$" at I3.c "$i_4$" at I4.c "$v_1$" at N1.n above rjust "$v_2$" at N2.n above "$v_3$" at N3.n above .PE