//VerilogA for modulator,idealam,veriloga

`include "constants.vams"
`include "disciplines.vams"

module idealam(Ipow,Iphase,Ilam,Opow,Ophase,Olam,Vdata);
    parameter real  m = 1 from [0:1];

    input Ipow, Iphase, Ilam, Vdata;
    output Opow, Ophase, Olam;
    electrical Ipow, Iphase, Ilam, Vdata, Opow, Ophase, Olam;

    analog begin
        V(Opow) <+ V(Ipow)*(1-m+m*V(Vdata));
        V(Ophase) <+ V(Iphase);
        V(Olam) <+ V(Ilam);
    end

endmodule