Home > Mathematica, Mathematics > Not Seeing the Triangles for the Squares

Not Seeing the Triangles for the Squares

I could take solace in very active illness. However, it never ceases to amaze me how my stupidity and laziness can contrive an answer and miss the beauty and simplicity that a little thought could provide.

This post is a penance for an MSE question which sought (analytical) probability that 2 points within unit square will greater than 1 apart.

In the following there is a derivation of difference of independent uniformly distributed random variables. The points in top plot are sampled from triangular distribution {-1,1}.

ud
Using (the answer evaluates quickly with w=1):

pd = ProductDistribution[{TriangularDistribution[{-1, 1}], 2}]
Probability[a^2 + b^2 > w, {a, b} \[Distributed] pd]

a0ud

Advertisements
Categories: Mathematica, Mathematics
  1. No comments yet.
  1. No trackbacks yet.

Leave a Reply

Fill in your details below or click an icon to log in:

WordPress.com Logo

You are commenting using your WordPress.com account. Log Out / Change )

Twitter picture

You are commenting using your Twitter account. Log Out / Change )

Facebook photo

You are commenting using your Facebook account. Log Out / Change )

Google+ photo

You are commenting using your Google+ account. Log Out / Change )

Connecting to %s

%d bloggers like this: