.PS include(libcct.m4) cct_init # Usual defs... qrt=dimen_/4; hlf=dimen_/2; dim=dimen_; mm=1/25.4; pi=atan2(0,-1); # wire radius, wire separation, and wire length wr=6*mm; ws=15*mm; wl=40*mm; Orig:Here # Two-wire line E1:ellipse wid wr/2 ht wr line from E1.n right_ wl line from E1.s right_ wl E2:ellipse wid wr/2 ht wr with .s at Here # Default TeX pic output is a linethickness of 8 mils!! box invis fill 0 wid wr/2 ht wr-0.016 with .e at E2.c # Paste. move to E1 then down_ ws E1:ellipse wid wr/2 ht wr line from E1.n right_ wl line from E1.s right_ wl E2:ellipse wid wr/2 ht wr with .s at Here # Default TeX pic output is a linethickness of 8 mils!! box invis fill 0 wid wr/2 ht wr-0.016 with .e at E2.c dimension_(from E1.s to E1.n, 7*mm, 2a, 3*mm) dimension_(from E2.c+(0,ws+wr/2) to E2.c, 12*mm, D,3*mm,2*mm) move to E1+(4*mm,ws-wr) line -> 5*mm left_ "$-\infty$" below_ move to E2+(-4*mm,ws-wr) line -> 5*mm right_ "$-\infty$" above_ move to E1+(7*mm,-wr/2-2*mm) L1:line dashed up_ ws+2*wr+2*mm move to E1+(wl-7*mm,-wr/2-2*mm) L2:line dashed up_ ws+2*wr+2*mm dimension_(from L1.start to L2.start, -3*mm, dx, 5*mm) move to (L1,E1) + (4*mm,wr/2) line -> up_ ws-wr/2 right_ " $V(x,t)$" at last line.center ljust_ move to last line.end+(-3*mm,wr/2) line -> 6*mm right_ " $I(x,t)$" at last line.center above_ "{\tiny inftx}" at Orig+(40*mm,-25*mm) .PE