Through Differential Geometry it is very easy to obtain the envelope of a family of Poncelet triangles (it is known as caustic), which I have not been able to obtain as observed in this notebook, is a caustic concentric to the circumscribed circumference, can someone guide me how to do it in Mathematica?