An algorithm to predict the helical content of peptides