R1:relay
{"\sl V1" wid 0.16 rjust at last [].V1
"\sl V2" ljust at last [].V2
"\sl P1" rjust at last [].P1-(dotrad_,0)
"\sl O1" ljust at last [].O1
"\sl C1" ljust at last [].C1 }
S: `"\tt relay"' at last [].s+(0,-0.2)
R5:relay(2,CTh) with .sw at last [].sw+(skip,0)
{ for_(1,2,1,`
"\sl P`'m4x" rjust at last [].P`'m4x-(dotrad_,0)
"\sl C`'m4x" ljust at last [].C`'m4x ') }
`"\tt (2,CTh)"' at (last [],S)
R4:relay(2,O) with .sw at last [].sw+(skip,0)
{for_(1,2,1,`
"\sl P1" rjust at last [].P1-(dotrad_,0)
"\sl O`'m4x" ljust at last [].O`'m4x ')}
`"\tt (2,O)"' at (last [],S)
R3:relay(2,PIAX) with .sw at last [].sw+(skip,0)
{"\sl V1" rjust at last [].V1
"\sl V2" rjust at last [].V2
for_(1,2,1,
`"\sl P`'m4x" rjust at last [].P`'m4x-(dotrad_,0)
"\sl O`'m4x" ljust at last [].O`'m4x+(dotrad_,0)
"\sl C`'m4x" ljust at last [].C`'m4x+(dotrad_,-2pt__) ') }
`"\tt (2,PIAX)"' at (last [],S)
R2:relay(2,R) with .sw at last [].sw+(skip,0)
{"\sl V1" rjust at last [].V1
"\sl V2" ljust at last [].V2
for_(1,2,1,
`"\sl P`'m4x" rjust at last [].P`'m4x-(dotrad_,0)
"\sl O`'m4x" ljust at last [].O`'m4x
"\sl C`'m4x" ljust at last [].C`'m4x ') }
`"\tt relay(2,R)"' at (last [],S)
PE
