## Symmetric Polynomials

This post is inspired by the video and post of Presh Talwakar

## Ellipses in Triangles

This post is motivated by a tweet about Steiner inellipse.

The code used:

Module[{s = RegionCentroid[Polygon[{a, b, c}]], ab = b - a, m1, m2,

m3, sc, rt},

sc = c - s;

{m1, m2, m3} = Mean /@ Partition[{a, b, c, a}, 2, 1];

rt = Quiet[

ReIm[z] /.

Solve[1/(z - Complex @@ a) + 1/(z - Complex @@ b) +

1/(z - Complex @@ c) == 0, z]];

ParametricPlot[s + sc Cos[t]/2 + ab Sin[t]/(2 Sqrt[3]), {t, 0, 2 Pi},

PlotRange -> Table[{-3, 3}, 2], Frame -> True,

Epilog -> {PointSize[0.03], EdgeForm[Black], FaceForm[None],

Polygon[{a, b, c}], Point[{a, b, c}], Red, Point[{m1, m2, m3}],

Orange, Point[s], Purple, Point[rt]}]]

Manipulate[

se[p1, p2, p3], {{p1, {0, 0}}, Locator}, {{p2, {0, 1}},

Locator}, {{p3, {1, 1}}, Locator}]

## Squares

This post was motivated by Stackexchange question.

## Squares and Triangles

This post is inspired by a puzzle I found on Twitter. I cannot find the source right now. What is the area of the shaded triangle? The following gif provides the clue:

Note all basic elements are squares. The small upper squares have sides of unit length. Note the whatever the triangle the base as the upper right unit square diagonal drawn diagonal always has a height of the drawn square with side 2.

## Fun with Fractions

This post is inspired by tweet from @CutTheKnotMath and his post.

He posed this puzzle for the New Year:

Consider the list:

Consider the product:

For , replacing randomly chosen with in the expression does not change its value as . So repeating till there is one number allows you solve the problem, i.e. process ends a unique number. For the particular sequence this is particularly pleasing: .

Simulating a small example with Mathematica:

## A Bookmark

This post is just a bookmark for a “history of cardiac catheterization”.

## Fun Animation

This is an adaptation of code from:here.