`include "disciplines.vams"
`include "constants.vams"
module sinVarFreq(p, n);
inout p, n;
electrical p, n;
parameter real freq = 100.0e2;
parameter real coeff = 1.0e-3;
real tempr;
analog begin
V(p,n) <+ sin(`M_TWO_PI * freq * $abstime * 8e2);
end
endmodule
..............
`include "disciplines.vams"
module amp(out, in);
inout out, in;
electrical out, in;
parameter real Gain = 1, Rin = 1, Cin = 1, Rout = 1, Lout = 1;
analog begin
// gain of amplifier
V(out) <+ Gain*V(in);
// model input admittance
I(in) <+ V(in)/Rin;
I(in) <+ Cin*ddt(V(in));
// model output impedance
V(out) <+ Rout*I(out);
V(out) <+ Lout*ddt(I(out));
end
endmodule