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.html,v 1.13 2008/03/31 10:27:45 hewitson 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.html,v 1.13 2008/03/31 10:27:45 hewitson Exp $ 0009 0010 n = length(Tinit); 0011 %% writing the generator 0012 r = randn(n,1); 0013 y = Tinit * r;