//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