clc //initialisation f=5 r=2 //CALCULATIONS e=f/2 g=r/2 p=g*100/e //results printf(' fraction used to increase rotational energy= % 1f ',p)