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.
Corrections to the code are available for download at https://github.com/carltape/mtbeach/blob/master/mathematica/elasticity/wolfram/CorrectionsForOurWolframCommunityPost.nb
-- 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!