NGINIT is called by the function LTPDA_NOISEGEN it takes the matrix Tinit (calculated by NGSETUP) as input and returns the initial state vector y A Monsky 24-07-07 $Id: nginit.m,v 1.2 2008/01/23 17:23:56 anneke Exp $
0001 function y = nginit(Tinit) 0002 % NGINIT is called by the function LTPDA_NOISEGEN 0003 % it takes the matrix Tinit (calculated by NGSETUP) as input 0004 % and returns the initial state vector y 0005 % 0006 % A Monsky 24-07-07 0007 % 0008 % $Id: nginit.m,v 1.2 2008/01/23 17:23:56 anneke Exp $ 0009 0010 n = length(Tinit); 0011 %% writing the generator 0012 r = randn(n,1); 0013 y = Tinit * r;