//VerilogA for lightsource,led,veriloga `include "constants.vams" `include "disciplines.vams" module led(Vcurr,Vlam,Opow,Ophase,Olam); input Vcurr,Vlam; output Opow,Ophase,Olam; electrical Vcurr,Vlam,Opow,Ophase,Olam; parameter real eta = 1 from (-inf:inf); analog begin V(Opow) <+ eta*`P_H*`P_C/V(Vlam)*I(Vcurr)/`P_Q; V(Ophase) <+ 0; V(Olam) <+ V(Vlam); end endmodule