blob: 20bfd5ef14d8b627b8991e71d77fdca72c181c57 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
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
|
