.PS cct_init # Usual defs... qrt=dimen_/4; hlf=dimen_/2; dim=dimen_; "$v_i$ " rjust_ dot; resistor(right_); llabel(,R_B,) Q1:bi_tr(up_,,,E) ground(at Q1.E) move to Q1.C then up_ 1.6*dim right_; "$V_{CC}$ " above_ move down_ 0.1*dim;dot resistor(down_) diode(down_ hlf,LE) dot; line right_ hlf " $v_C$" ljust_ move right_ 3*dim Q2:bi_tr(up_,,,E) at (Here,Q1) ground(at Q2.E) resistor(from Q2.B left_); rlabel(,R_B,); dot; "$v_i$ " ljust_ inductor(from Q2.C up_,W); llabel(,RLA,) line right_ qrt;dot; {line up_ qrt; dot; move up_ dim/10; right_; "$V_{CC}$" above_} line right_ qrt line from Q2.C right_ hlf diode(up_) dot(at Q2.C) "\tiny Switch" at (3*dim, -1*dim) ljust_ .PE