($percent_alpha) =CalculatePercentage($alpha, $totalresidues);