* @author Dave Child * @link http://www.ilovejackdaniels.com/resources/readability-score/ * @license GPL 2 */ $text = $_REQUEST['html'].'. '; $text = preg_replace('!!i','. ',$text); //make sentences from those tags $text = strip_tags($text); $gf = gunning_fog_score($text); $fs = calculate_flesch($text); $fg = calculate_flesch_grade($text); $rt = calculate_readingtime($text); echo 'Readability Analysis'; echo '

Gunning-Fog Score: %.2f ',$gf); if($gf < 12){ echo '(very good)'; }elseif($gf < 15){ echo '(okay)'; }else{ echo '(bad)'; } echo ' lower is better'; echo '
Flesch-Kincaid Score: %.2f ',$fs); if($fs < 50){ echo '(bad)'; }elseif($fs < 80){ echo '(okay)'; }else{ echo '(very good)'; } echo ' higher is better'; echo '
Flesch-Kincaid Grade: %.2f ',$fg); if($fg < 10){ echo '(very good)'; }elseif($fg < 18){ echo '(okay)'; }else{ echo '(bad)'; } echo ' lower is better'; echo '
Estimated reading time: '.$rt.'

'; /** * Calculate estimated reading time * * @author Brian Cray * @link http://briancray.com/2010/04/09/estimated-reading-time-web-design/ */ function calculate_readingtime($text){ $word = str_word_count($text); $m = floor($word / 200); $s = floor($word % 200 / (200 / 60)); return "$m:$s"; } /** * Calculate the Gunning-Fog score * * @author Dave Child */ function gunning_fog_score($text) { return ((average_words_sentence($text) + percentage_number_words_three_syllables($text)) * 0.4); } /** * Calculate the Flesch-Kinkaid reading ease score * * @author Dave Child */ function calculate_flesch($text) { return (206.835 - (1.015 * average_words_sentence($text)) - (84.6 * average_syllables_word($text))); } /** * Calculate the Flesch-Kinkaid Grade level * * @author Dave Child */ function calculate_flesch_grade($text) { return ((.39 * average_words_sentence($text)) + (11.8 * average_syllables_word($text)) - 15.59); } /** * Calculate the percentage of words with more than 3 syllables * * @author Dave Child */ function percentage_number_words_three_syllables($text) { $syllables = 0; $words = explode(' ', $text); for ($i = 0; $i < count($words); $i++) { if (count_syllables($words[$i]) > 2) { $syllables ++; } } $score = number_format((($syllables / count($words)) * 100)); return ($score); } /** * Calculate the ratio of words to sentences * * @author Dave Child */ function average_words_sentence($text) { $sentences = strlen(preg_replace('/[^\.!?]/', '', $text)); $words = strlen(preg_replace('/[^ ]/', '', $text)); if($sentences == 0) $sentences = 1; return ($words/$sentences); } /** * Calculate the average number of syllables per word * * @author Dave Child */ function average_syllables_word($text) { $words = explode(' ', $text); $syllables = 0; for ($i = 0; $i < count($words); $i++) { $syllables = $syllables + count_syllables($words[$i]); } return ($syllables/count($words)); } /** * Count the number of syllables in the given word * * @author Dave Child */ function count_syllables($word) { $subsyl = Array( 'cial', 'tia', 'cius', 'cious', 'giu', 'ion', 'iou', 'sia$', '.ely$' ); $addsyl = Array( 'ia', 'riet', 'dien', 'iu', 'io', 'ii', '[aeiouym]bl$', '[aeiou]{3}', '^mc', 'ism$', '([^aeiouy])\1l$', '[^l]lien', '^coa[dglx].', '[^gq]ua[^auieo]', 'dnt$' ); // Based on Greg Fast's Perl module Lingua::EN::Syllables $word = preg_replace('/[^a-z]/is', '', strtolower($word)); $word_parts = preg_split('/[^aeiouy]+/', $word); $valid_word_parts = array(); foreach ($word_parts as $key => $value) { if ($value <> '') { $valid_word_parts[] = $value; } } $syllables = 0; foreach ($subsyl as $syl) { if (strpos($word, $syl) !== false) { $syllables--; } } foreach ($addsyl as $syl) { if (strpos($word, $syl) !== false) { $syllables++; } } if (strlen($word) == 1) { $syllables++; } $syllables += count($valid_word_parts); $syllables = ($syllables == 0) ? 1 : $syllables; return $syllables; }