Advertisement
Guest User

Untitled

a guest
Jul 28th, 2017
56
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 1.30 KB | None | 0 0
  1. CDF[MultinormalDistribution[{0,0},({{1,37/40},{37/40,1}})],{0,0.2}]
  2.  
  3. 0.446357
  4.  
  5. NIntegrate[PDF[MultinormalDistribution[{0,0},({{1,37/40},{37/40,1}})],{x, y}],{x,-[Infinity],0},{y,-[Infinity],0.2}]
  6.  
  7. 0.470073
  8.  
  9. dist = MultinormalDistribution[{0, 0}, ({{1, 37/40}, {37/40, 1}})];
  10. CDF[dist, {0, 0.2`3}]
  11. Precision[0.2]
  12. $MachinePrecision
  13. CDF[dist, {0, 0.2}]
  14. (* 0.47 *)
  15. (* MachinePrecision *)
  16. (* 15.9546 *)
  17. (* 0.446357 *)
  18.  
  19. NMinimize[{CDF[dist, {0, y}], 0.0 <= y <= 0.4}, y]
  20. NMaximize[{CDF[dist, {0, y}], 0.0 <= y <= 0.4}, y]
  21. (* {0.437977, {y -> 0.}} *)
  22. (* {0.465287, {y -> 0.4}} *)
  23.  
  24. Plot[{
  25. NIntegrate[ PDF[ MultinormalDistribution[
  26. {0, 0}, ({{1, 37/40}, {37/40, 1}})], {x, y}],
  27. {x, -∞, 0}, {y, -∞, u}],
  28. CDF[dist, {0, u}]},
  29. {u, 0, 1}]
  30.  
  31. Plot[
  32. CDF[ MultinormalDistribution[
  33. {0, 0}, ({{1, SetPrecision[x, 15]}, {SetPrecision[x, 15], 1}})],
  34. {0, 0.2`15}] -
  35. CDF[MultinormalDistribution[{0, 0}, ({{1, x}, {x, 1}})],
  36. {0, 0.2}],
  37. {x, 0.8, 1}, PlotRange -> All]
  38.  
  39. dist = MultinormalDistribution[{0, 0}, ({{1, 37/40}, {37/40, 1}})];
  40.  
  41. cdf1 = CDF[dist, {0, .2}]
  42.  
  43. (* 0.446357 *)
  44.  
  45. cdf2 = CDF[dist, {0, .2`15}]
  46.  
  47. (* 0.47007303261424 *)
  48.  
  49. ContourPlot[
  50. CDF[dist, {x, y}], {x, -3, 3}, {y, -3, 3},
  51. PlotRange -> All,
  52. MaxRecursion -> 3,
  53. WorkingPrecision -> 15]
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement