Advertisement
Guest User

Untitled

a guest
Jul 17th, 2019
70
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.31 KB | None | 0 0
  1. iid[k_] := TransformedDistribution[Abs[Sum[Exp[2 Pi I a[i]], {i, k}]],
  2. Table[Distributed[a[i], UniformDistribution], {i, k}]]
  3.  
  4. Plot[PDF[iid[5],x],{x,0,5}]
  5.  
  6. iid[k_] := TransformedDistribution[Norm[Sum[{Cos[a[i]], Sin[a[i]]}, {i, k}]],
  7. Table[Distributed[a[i], UniformDistribution], {i, k}]]
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement