/*	Gauss channel simulator	jinle@2008.3.1*/#include <math.h>#include <stdio.h>#include <stdlib.h>#include <time.h>#include "channel.h"/*#################################################################Func:	Generate gauss white noiseInput:	mean	mean	sigma	sigmaReturn:	noise data#################################################################*/float gngauss(float mean, float sigma){    /* This uses the fact that a Rayleigh-distributed random variable R, with    the probability distribution F(R) = 0 if R < 0 and F(R) =    1 - exp(-R^2/2*sigma^2) if R >= 0, is related to a pair of Gaussian    variables C and D through the transformation C = R * cos(theta) and    D = R * sin(theta), where theta is a uniformly distributed variable    in the interval (0, 2*pi()).    */     double u, r;            /* uniform and Rayleigh random variables */     /* generate a uniformly distributed random number u between 0 and 1 - 1E-6*/    //u = (double)_lrand() / LRAND_MAX;    u = (double)drand48();    if (u == 1.0) u = 0.999999999;     /* generate a Rayleigh-distributed random number r using u */    r = sigma * sqrt( 2.0 * log( 1.0 / (1.0 - u) ) );     /* generate another uniformly-distributed random number u as before*/    //u = (double)_lrand() / LRAND_MAX;    u = (double)drand48();    if (u == 1.0) u = 0.999999999;     /* generate and return a Gaussian-distributed random number using r and u */    return( (float) ( mean + r * cos(2 * 3.1415926 * u) ) );}/*#################################################################Func:	Add gauss white noise to channelInput:	mean	mean	sigma	sigmaReturn:	noise data#################################################################*/void add_gauss_channel_noise(float es_ovr_n0, long channel_len, int *in_array, float *out_array) {    long t;    float mean, es, sn_ratio, sigma, signal;     /* given the desired Es/No (for BPSK, = Eb/No - 3 dB), calculate the    standard deviation of the additive white gaussian noise (AWGN). The    standard deviation of the AWGN will be used to generate Gaussian random    variables simulating the noise that is added to the signal. */    mean = 0;    es = 1;    sn_ratio = (float) pow(10, ( es_ovr_n0 / 10) );    sigma =  (float) sqrt (es / ( 2 * sn_ratio ) );        /* now transform the data from 0/1 to +1/-1 and add noise */    for (t = 0; t < channel_len; t++) {        /*if the binary data value is 1, the channel symbol is -1; if the        binary data value is 0, the channel symbol is +1. */        signal = 1 - 2 * *( in_array + t );         /*  now generate the gaussian noise point, add it to the channel symbol,            and output the noisy channel symbol */        *( out_array + t ) = signal + gngauss(mean, sigma);    }}