diff options
Diffstat (limited to 'modules/cacsd/macros/noisegen.sci')
| -rwxr-xr-x | modules/cacsd/macros/noisegen.sci | 24 |
1 files changed, 24 insertions, 0 deletions
diff --git a/modules/cacsd/macros/noisegen.sci b/modules/cacsd/macros/noisegen.sci new file mode 100755 index 000000000..20bfd5ef1 --- /dev/null +++ b/modules/cacsd/macros/noisegen.sci @@ -0,0 +1,24 @@ +// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab +// Copyright (C) INRIA - +// +// This file must be used under the terms of the CeCILL. +// This source file is licensed as described in the file COPYING, which +// you should have received as part of this distribution. The terms +// are also available at +// http://www.cecill.info/licences/Licence_CeCILL_V2.1-en.txt + +function noisegen(pas,Tmax,sig) + // This function returns in the calling env + // a macro [b]=Noise(t) + // Noize(t) is a piecewise constant function [k*pas,(k+1)*pas] + //The value on each constant interval are random values from + // i.i.d Gaussian variables of standard deviation sig. + // The function is constant for t<=0 and t>=Tmax. + //! + + dua_g=sig*rand(0:pas:Tmax,"n"); + [nn1,nn2]=size(dua_g); + deff("[b]=Noise(t)","b=dua_g(min(max((t/"+string(Tmax)+... + ")*"+string(nn2)+",1),"+string(nn2)+"))"); + [dua_g,Noise]=resume(dua_g,Noise); +endfunction |