Calulate Caloires Percent