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/08/01 13:19:42 ingo Exp $
0001 % NGINIT is called by the function LTPDA_NOISEGEN 0002 % it takes the matrix Tinit (calculated by NGSETUP) as input 0003 % and returns the initial state vector y 0004 % 0005 % A Monsky 24-07-07 0006 % 0007 % $Id: nginit.m,v 1.2 2008/08/01 13:19:42 ingo Exp $ 0008 0009 function y = nginit(Tinit) 0010 0011 n = length(Tinit); 0012 0013 % writing the generator 0014 r = randn(n,1); 0015 y = Tinit * r; 0016 0017 end 0018