Advertisement
Guest User

Untitled

a guest
Aug 20th, 2017
64
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.58 KB | None | 0 0
  1. smat = {};
  2. For[j = 1, j < 3, j++,
  3.  
  4. ClearAll[zvec, UVect, uvec];
  5. zvec[-4] = ConstantArray[0, 12];
  6.  
  7. sigmaumat3 = IdentityMatrix[20];
  8. UVect[-4] =
  9. RandomVariate[
  10. MultinormalDistribution[ConstantArray[0, 20], sigmaumat3]];
  11. uvec[t_] :=
  12. uvec[t] =
  13. RandomVariate[
  14. MultinormalDistribution[ConstantArray[0, 4], IdentityMatrix[4]]];
  15. UVect[t_] := UVect[t] = Drop[Join[uvec[t], UVect[t - 1]], -4];
  16. zvec[t_] := zvec[t] = azmat.zvec[t - 1] + bumat.uvec[t];
  17. Zmat[t_] := Zmat[t] = Join[UVect[t], zvec[t - 3]];
  18.  
  19. smat = Join[smat, {Zmat[j]}];
  20. ];
  21. smat // MatrixForm
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement