.PS # Pic input begins with .PS
cct_init # Set defaults
include(ikeda.m4)
elen = 0.75 # Variables are allowed; default units are inches
Origin: Here # Position names are capitalized
S21: dot
line up_ 0
move up_ 0.6
S22: dot
line right_ 0
resistor(from Here to Here+(0.6,0)); llabel(,"$R_2$",)
S23: dot
capacitor(from Here to Here+(0.6,0)); llabel(,"$C_2$",)
S24: dot
line up_ 0
resistor(from Here to Here+(0,0.6)); variable(,A); rlabel(,"$R_4$",)
S25: dot
line to (S23.x,Here.y) then down_ 0.1
capacitor(to S23+(0,0.1)); llabel(,"$C_3$",)
line to S23
move to S24
line right_ 0.2
A2: opamp with .In1 at Here;
dot
line right_ 0.4 from A2.Out;
S26: dot
line to (A2.Out.x,S25.y) from A2.Out then left to S25
line left_ 0.2 from A2.In2 then to (Here.x,S21.y)
dot
{line down_ 0; ground(,,S,-90)}
{line to (S23.x,Here.y)
{dot; line up_ 0
resistor(to S23); variable(,A); rlabel(,"$R_3$")}
line to S21}
line to (S26.x,Here.y)
line up_ 0
rgap(to S26); rlabel(,"$V_o$"); line invis right_ 0.4 then up_ 0
lgap(from S21 to S22); llabel(,"$V_i$"); line invis left_ 0.4
.PE # Pic input ends