.SUBCKT INVRIAA in inrtn invRIAA invRIAA_nopole outrtn1 pole_nosou nopole_nosou outrtn2 V1 source 0 SINE(0 1m 1000) AC 1m 0 B1 invRIAA outrtn1 v=V(source)/10 laplace=(1+s*3180e-6)*(1+s*75e-6)/(1+s*318e-6)/(1+s*3.18e-6) B2 invRIAA_nopole outrtn1 v=V(source)/10 laplace=(1+s*3180e-6)*(1+s*75e-6)/(1+s*318e-6) R1 0 inrtn 1e9 R2 outrtn1 0 1e9 R3 0 in 1e9 B3 pole_nosou outrtn2 v=(V(in)-V(inrtn))/10 laplace=(1+s*3180e-6)*(1+s*75e-6)/(1+s*318e-6)/(1+s*3.18e-6) B4 nopole_nosou outrtn2 v=(V(in)-V(inrtn))/10 laplace=(1+s*3180e-6)*(1+s*75e-6)/(1+s*318e-6) R4 outrtn2 0 1e9 .ENDS