Advertisement
Guest User

Untitled

a guest
Mar 25th, 2017
80
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.41 KB | None | 0 0
  1. In[1]:= n=10
  2. q=RandomPrime[{n^2,2n^2}]
  3. m=1.1*n*Log[q]
  4. α=1/(Sqrt[n]*Log[n]^2)
  5. σ=α * q
  6. Floor[q/2]
  7. q/4
  8. Out[1]= 10
  9. Out[2]= 131
  10. Out[3]= 53.6272
  11. Out[4]= 1/(Sqrt[10]*Log[10]^2)
  12. Out[5]= 131/(Sqrt[10]*Log[10]^2)
  13. Out[6]= 65
  14. Out[7]= 131/4
  15.  
  16. In[323]:= (*Probability that sum is greater than q/4*)
  17. CDF[NormalDistribution[0,Sqrt[m]*α*q],-q/4]
  18. Out[323]= 0.279785
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement