Corrections to the code are available for download at https://github.com/carltape/mtbeach/blob/master/mathematica/elasticity/wolfram/CorrectionsForOurWolframCommunityPost.nb
We recommend the notebook DOWNLOAD-DESKTOP-NOTEBOOK.nb, since its rendering of the mathematical notation is slightly better than that of the post. The notebook is available as an attachment near the end of the post.
-- you have earned Featured Contributor Badge Your exceptional post has been selected for our editorial columns Staff Picks http://wolfr.am/StaffPicks and Publication Materials https://wolfr.am/PubMat and Your Profile is now distinguished by a Featured Contributor Badge and is displayed on the Featured Contributor Board. Thank you!