function [Wv,NPwr]=QAMChannel(Wv,NPwr);


%AWGN Channel Model
%[Wv,NPwr]=QAMChannel(Wv,NPwr)
%INPUT
%Wv: Input Waveform
%NPwr: Noise Power, Variance of Gaussian Random Noise
%OUTPUT
%Wv: Contaminated Waveform
%NPwr: Measured Noise Power 
Ns=sqrt(NPwr)*randn(size(Wv));
Wv=Wv+Ns;
NPwr=mean(Ns.^2);