File: noisegen.sci

package info (click to toggle)
scilab 2.4-1
  • links: PTS
  • area: non-free
  • in suites: potato, slink
  • size: 55,196 kB
  • ctags: 38,019
  • sloc: ansic: 231,970; fortran: 148,976; tcl: 7,099; makefile: 4,585; sh: 2,978; csh: 154; cpp: 101; asm: 39; sed: 5
file content (17 lines) | stat: -rw-r--r-- 558 bytes parent folder | download | duplicates (2) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
 
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.
//!
// Copyright INRIA
dua_g=sig*rand(0:pas:Tmax,'n');
[nn1,nn2]=size(dua_g);
deff('[b]=Noise(t)','b=dua_g(mini(maxi((t/'+string(Tmax)+...
   ')*'+string(nn2)+',1),'+string(nn2)+'))');
[dua_g,Noise]=resume(dua_g,Noise);