ANSYS Modal Energy Analysis - Part 1

Sum up the Potential and Kinetic Energy on each body in a structure to learn which body to make stiffer to lower potential energy and which body to lightweight to lower kinetic energy to move the natural frequency of each mode higher.
This article contains a more complicated script that does more.
/ energize-your-ansys-dy...
Here is the link to Part 2: • ANSYS Modal Energy Ana...
Here is the APDL code.
/sys,del energy.out
*cfopen,energy,out
*vwrite,'MODE', 'SENE', 'KENE', 'BODY'
(A,A,A,A)
*cfclos
resume
*do,iii,1,4,1
cmsel,s,body%iii%
*do,jjj,1,6
set,1,jjj
etab,sene,sene
etab,kene,kene
ssum
*get,sene1,ssum,,ITEM,sene
*get,kene1,ssum,,ITEM,kene
*cfopen,energy,out,,APPEND
*vwrite,jjj,sene1,kene1,iii
(F4.0,2E12.4,F5.0)
*cfclose
*enddo
*enddo