Div, Grad, Curl, and All That: An Informal Text on Vector Calculus

July 28, 2014 Leave a comment

 

This is an excellent informal introduction. It is written clearly, uses simple but illustrative worked examples with helpful graphics. It covers the title topics and uses electrostatics as a tangible application for illustration. There a lot of problems and solutions at the end.

Categories: books, Mathematics

What to Expect

July 28, 2014 Leave a comment

I found this question on Mathematica Stackexhange interesting. I  learned a lot from wolfies answer. I post this not as an answer to the question of closed form but to illustrate consistency of a number of approaches.

The calculations take some time but it does not seem onerous.

Insights into the expectation can be obtained from the region of of interest.


ms[p_] :=
Show[Plot3D[(1 - x)^y, {x, 0, 1}, {y, 2, 5},
PlotStyle -> {LightBlue, Opacity[0.5]}
, PerformanceGoal -> "Speed", PlotRange -> {0, 1}],
Plot3D[(1 - x)^y, {x, 0, 1}, {y, 2, 5}, MeshFunctions -> {#3 &},
Mesh -> {{1 - p}}, MeshStyle -> {Red, Thick},
RegionFunction -> Function[{x, y, z}, (1 - x)^y "Speed", PlotRange -> {0, 1}],
AxesLabel -> (Style[#, 20] & /@ {x, y, (1 - x)^y}), ImageSize -> 500]
Manipulate[ms[t], {{t, 0, "p"}, 0, 1, Appearance -> "Labeled"}]

mseexpec
Or more easily with:

Manipulate[
RegionPlot[(1 - x)^y < 1 - p, {x, 0, 1}, {y, 2, 5}], {p, 0, 1}]

mseexpec02
Now to numerically calculate the expectation:

int[p_] :=
Integrate[
Boole[{x, y} \[Element]
ImplicitRegion[0 < x < 1 && 2 < y < 5, {x, y}]] x/3, {x, 0,
1}, {y, Log[1 - p]/Log[1 - x], 5}]
td = TransformedDistribution[(1 - x)^y, {x, y} \[Distributed]
UniformDistribution[{{0, 1}, {2, 5}}]];
d[p_] := Probability[z < 1 - p, z \[Distributed] td]
result[p_] := int[p]/d[p]
ex[p_] :=
Expectation[
x \[Conditioned] (1 - x)^y < 1 - p, {x, y} \[Distributed]
UniformDistribution[{{0, 1}, {2, 5}}]]
Definition[rp]
rv[p_, n_] :=
Module[{r},
r = RandomVariate[UniformDistribution[{{0, 1}, {2, 5}}], n];
Mean[Pick[r, ((1 - #1)^#2 < 1 - p) & @@@ r][[All, 1]]]]
rv1000[p_] := rv[p, 1000];

The above firstly uses wolfies method, then just asks Mathematica to calculate explicitly and the simulates.
Tabulating:

grid = Prepend[
Through[{Identity, result, ex, rv1000}[#]] & /@
Range[0.1, 0.9, 0.1],
Style[#, Bold] & /@ {"p", "Derived", "Expectation",
"Estimated (N=1000)"}];
gr = Grid[grid, Frame -> All,
Background -> {None, {{White, LightBlue}}}]

msexpect01

Plotting (using Table to minimize computation time):

plt = ListLinePlot[Table[ex[t], {t, 0.1, 0.9, 0.1}], Frame -> True,
FrameLabel -> {"p", "Conditional Expectation x"}, BaseStyle -> 16,
ImageSize -> 600]

mseexpect

This does little to answer the closed form question but I found it fun.

Categories: Mathematica, Mathematics

How Not to Be Wrong

July 26, 2014 Leave a comment

.

 

This is a wonderful book. I thoroughly enjoyed it. I learned Mathematical, historical and cultural jewels that I very much look forward to contemplating further or delving into. The author is refreshingly forthright in exploring the impediments to Mathematics Education and its appreciation in society at large. He does this from the position of a working Mathematician and educator.  A broad array of concepts are covered and their exposition are an intricate weaving of historical events and individuals with current events and instructive toy examples.  Wald, Fisher, Pascal, Shannon,  Galton, Hilbert and many more appear at varying times.  These insights into these individuals was remarkably more complex for the amount of words: strengths and weaknesses of their contributions (and the positions, e.g Galton and eugenics).

 

One of the greatest joys of this book is the discussions are neither superficial nor simplistic. The author starts from the simple and when you think you have digested what is at hand, he add another wrinke and another and enriches your understanding. He supports his case that Mathematics is the extension of common  sense. Particularly informative were the discussions of the law  of large numbers,  lotteries, the concept of regression to the mean. The importance of the role of uncertaintuy in our lives, acknowledging its existence and the value of quantifying marries well with Nate Silvers “The Signal and The Noise” (Silver also discussed in the book).

 

The author discusses the “cult of genius” and the obstacle it creates to recruitment and retention of Mathematicians and the enrichment of other disciplines by Mathematics. This was compelling and struck me and derived from the insights of one who had negotiated the journey (though admittedly a prodigy) as well as tasked with guiding  and supporting others through it.

 

There is a lot in this book. It is, however, more than content. It is a challenge to think more deeply about everyday life, about culture, about history and the seeing the “unreasonable effectiveness of Mathematics”.

Categories: books, Mathematics

Money money

July 21, 2014 Leave a comment

I am thoroughly enjoying Jordan Ellenberg’s “How not to be wrong”. This small post is some fun looking at Buffon’s coin puzzle. This shows a sample of twenty coins of varying radius relative to the underlying square. The fair game arises when the radius to length of square side is \frac{1}{4+2\sqrt{2}}\approx 0.15. The fraction in the boxes are the observed number of coins in the square and the predicted fraction. The value below the  box is the ratio of radius to square length.

 

buffoncoin

 

Categories: Mathematica, Mathematics

Joy in Small Things

July 13, 2014 2 comments


profile for ubpdqn on Stack Exchange, a network of free, community-driven Q&A sites

I have learned a lot from the Mathematica Stackexchane community. I just crossed the 10 k…(it could easily go down). It has been a trying, stressful  period in the everyday life, the small thing brings me some joy. I am not an expert nor a professional, dwell on the simpler level of the question spectrum  and I have made some major gaffes (great opportunities to learn). I take each question as an opportunity to learn but learn the most from the creative, sometimes amazing but always inspirational other answers.

Peace to all, and solace to fellow sufferers of the ‘black dog’.

Categories: Mathematica

Real Mathematical Analysis

July 13, 2014 Leave a comment

realanalysis

 

This is another excellent Springer undergraduate Mathematics textbook. This book is clearly written. The book goes systematically progressively deeper. It covers continuty, differntiability, integration, introduces differential forms and Lebesgue theory. In addition to showing the results, the author shows the “pathological” functions, spaces and points to the wonderful unexpected results, e.g. unmeasurable sets and Banach-Traski paradox. I learned a lot from the Cantor sets.

I should have taken the time to dive into this book but even with my quick read, this book explains the strong foundations of  real analysis and calculus that we use in tame, smooth, well behaved domains and provides insights into the world beyond the tame shores I usually play in…”there be dragons out there”.

Categories: books, Mathematics

A matter of heart

June 17, 2014 Leave a comment

Here are some animated gifs explaining unit conversions in cardiology:

bernoulli

hru

Categories: Uncategorized
Follow

Get every new post delivered to your Inbox.

Join 34 other followers