//VerilogA for lightsource,cw_maginput,veriloga `include "constants.vams" `include "disciplines.vams" module cw_maginput(Vmag,Vphase,Vlam,Opow,Ophase,Olam); parameter real GainCoeff = 1 from [0:inf); parameter real PhaseCoeff = 0 from (-360:360); input Vmag,Vphase,Vlam; output Opow,Ophase,Olam; electrical Vmag,Vphase,Vlam,Pout,Opow,Ophase,Olam; analog begin V(Opow) <+ pow(V(Vmag)*GainCoeff,2); V(Ophase) <+ PhaseCoeff+V(Vphase); V(Olam) <+ V(Vlam); end endmodule