ingvistica's Semanta College

Program O taalbot Prototype AIML Versie 2.0
..prgo-chbt-For additional Information call +31-648078750 ask for Ed Kool

OPENING

".$invr_bzv1."

"; if ($invr_vgpt== null) { $invr_vgpt="semanta"; } if ($invr_chbt== null) { $invr_chbt="semmy"; } if ($invr_edtr == null) { $invr_edtr= "edkool"; } ?> INVR BZV1 ".$invr_bzv1."INVR BZV2 ".$invr_bzv2.""; // require_once ("../../../bepl-spec-func.php"); require_once ("../../../xtrt-aiml-func.php"); require_once("../../../smta-tlkd-func-0017.php"); require_once ("../../../xtrt-xxxx-func.php"); require_once ("../../../bepl-sgmt-func.php"); // echo "
INVR BZV1 ".$invr_bzv1; $invr_bzv2=$invr_bzv2."@".$invr_bzv1; echo "".$invr_bzv2.""; $bzv1_dtls=explode(" ",$invr_bzv1); foreach($bzv1_dtls as $bzv1_key => $bzv1_val) { if (strlen($bzv1_val) > 3) { // echo "".$bzv1_val.""; $gw27_rslt=xtrt_xxxx($bzv1_val,"nederlands","gw27",8); if(count($gw27_rslt) == 0) { echo "

".$bzv1_val."

"; } } } $sgmt_rslt=bepl_sgmt($invr_bzv1); // print_r($sgmt_rslt); $aiml_rslt=xtrt_aiml($invr_bzv1,"aiml"); // print_r($aiml_rslt); $sw=0; echo "
SEGMENTEN #".count($sgmt_rslt); $sgmt_cntr=count($sgmt_rslt); foreach($sgmt_rslt as $sgmt_key => $sgmt_val) { $sg=$sg+1; // echo "

".$sgmt_key."

"; $sgmt_dtls=explode("@",$sgmt_key); // print_r($sgmt_dtls); $sgmt_lngt=$sgmt_dtls[0]; $sgmt_text=$sgmt_dtls[1]; if ($sgmt_lngt >1) { // echo "

".$sgmt_text."

"; } // echo "
SG ".$sg; if ($sg == $sgmt_cntr) { // echo "

".$sgmt_text."

"; // $intn_array[$sgmt_key."-".$intn_text]=$intn_array[$sgmt_key."-".$sgmt_text]+1; } echo ""; $aiml_rslt=xtrt_aiml($sgmt_key,"aiml"); foreach ($aiml_rslt as $aiml_key => $aiml_val) { $aiml_dtls=explode("@",$aiml_key); // print_r($aiml_dtls); $aiml_tpic=$aiml_dtls[1]; $aiml_ptrn=$aiml_dtls[2]; $aiml_that=$aiml_dtls[3]; $aiml_tmpl=$aiml_dtls[4]; $aiml_fnam=$aiml_dtls[5]; $uaiml_fnam=urlencode($aiml_fnam); $uaiml_fnam=str_replace("%C3%A1","a",$uaiml_fnam); $aiml_fnam=urldecode($uaiml_fnam); // echo "
".$aiml_ptrn; if ($sw < 2 and $frelt != $aiml_fnam and $sgmt_lngt > 2) { $frelt=$aiml_fnam; $splt_tmpl=explode(".",$aiml_tmpl); $sintn_rchs=str_replace(" ","+",$aiml_tmpl); $lintn_rchs="".$aiml_tmpl.""; echo ""; $intn_array[$aiml_ptrn]=$intn_array[$aiml_ptrn]+1; // $intn_array[$sgmt_key."-".$aiml_ptrn]=$intn_array[$sgmt_key."-".$aiml_ptrn]+1; // echo ""; // echo ""; $sw=$sw+1; } } } echo "

INTN ARRAY "; krsort($intn_array); // print_r($intn_array); foreach($intn_array as $intn_key => $intn_val) { echo ""; } exit; ///////////////// $sgmt_rslt=bepl_sgmt($invr_bzv1); // echo "

BEPL SGMT "; // print_r($sgmt_rslt); echo "

".$lintn_rchs."
".$aiml_ptrn."--".$aiml_tmpl."
".$aiml_ptrn."--".$aiml_that."	".$aiml_tmpl." ".$aiml_fnam."
".$intn_key."

"; foreach($sgmt_rslt as $sgmt_key => $sgmt_val) { // $spec_rslt=bepl_spec($sgmt_key); // echo "
INTN RSLT ".$intn_rslt; $intn_rslt=xtrt_xxxx($sgmt_key,"nederlands","wtvr",4); // print_r($intn_rslt); $sw_intn=0; foreach($intn_rslt as $intn_key => $intn_val) { // echo ""; $intn_dtls=explode("!!",$intn_key); // print_r($intn_dtls); $intn_lnks=$intn_dtls[3]; $intn_rchs=$intn_dtls[4]; // $intn_array[$sgmt_key."-".$intn_text]=$intn_array[$sgmt_key."-".$intn_text]+1; // echo ""; if ($irelt != $intn_rchs and $sw_intn < 2) { $sw_intn=$sw_intn+1; $intn_text=substr($intn_rchs,0,256); if (substr($sgmt_key,0,1) == 3) { $sintn_rchs=str_replace(" ","+",$intn_rchs); $lintn_rchs="".$intn_rchs.""; echo ""; $intn_array[$sgmt_key."-".$intn_text]=$intn_array[$sgmt_key."-".$intn_text]+1; } $irelt=$intn_rchs; } } ///// // $smts_rslt=smta_tlkd(substr($sgmt_key,2,256)."@scnd"); // print_r($smts_rslt); foreach($smts_rslt as $smts_key => $smts_val) { // echo ""; $smts_dtls=explode("!!",$smts_key); // print_r($smts_dtls); $smts_word=$smts_dtls[0]; $smts_tlkd=$smts_dtls[1]; $tlkd_dtls=explode(",",$smts_word); $tlkd_tlkd=$tlkd_dtls[0]; $tlkd_gram=$tlkd_dtls[1]; $smts_posn=0; $smts_cntr=$smts_dtls[3]; if ($smts_cntr != 1 ) { $srelt=$smts_word; // echo ""; if ($smts_posn == 0 and substr($smts_tlkd,0,2) == "vr") { $display=$display.":Wat wordt uw antwoord op ".$sgmt_key."...?"; $mtsw_array["V-Van wie verwacht u een antwoord?"]=$mtsw_array["V-Van wie verwacht u een antwoord?"]+1; } if ($smts_posn == 0 and substr($tlkd_gram,1,2) == "pe") { $display=$display.":Van wie verwacht u een antwoord?"; $mtsw_array["V-Van wie verwacht u een antwoord?"]=$mtsw_array["V-Van wie verwacht u een antwoord?"]+1; } if ($smts_posn == 0 and substr($tlkd_gram,0,2) == "tp") { // $display=$display.":Verwacht u een antwoord van mij?"; $mtsw_array["V-Van wie verwacht u een antwoord?"]=$mtsw_array["V-Van wie verwacht u een antwoord?"]+1; } if ($smts_posn == 0 and substr($tlkd_gram,0,2) == "dp") { $display=$display.":Verwacht hij of zij een antwoord ?"; $mtsw_array["V-Van wie verwacht u een antwoord?"]=$mtsw_array["V-Van wie verwacht u een antwoord?"]+1; } if ($smts_posn == 0 and substr($tlkd_gram,1,2) == "pe") { $display=$display.":Heb vaak speciale gedachtes."; $mtsw_array["V-Van wie verwacht u een antwoord?"]=$mtsw_array["V-Van wie verwacht u een antwoord?"]+1; } if ($smts_posn == 0 and substr($tlkd_gram,0,3) == "wwd") { $display=$display.":Heb vaak speciale gedachtes."; $mtsw_array["V-Van wie verwacht u actie?"]=$mtsw_array["V-Van wie verwacht u actie?"]+1; } } } } // echo "

".$display."

"; // echo "

MTSW ARRAY"; // print_r($mtsw_array); // echo "

INTN ARRAY"; // print_r($intn_array); if (count($mtsw_array) > 0) { // print_r($mtsw_array); foreach($mtsw_array as $mtsw_key => $mtsw_val) { // echo ""; $dspl_splt=explode("-",$mtsw_key); $dspl_sgmt=$dspl_splt[0]; $dspl_mtsw=$dspl_[1]; // print_r($dspl_dtls); echo "

Kunt u aan de slag met ".$sgmt_key."?
Kunt u aan de slag met ".$intn_lnks. " INTN RCHS ".$intn_rchs."
".$lintn_rchs."
".$smts_key."
SMTS VERWERKING WORD ".$smts_word."	TLKD ".$smts_tlkd."	CNTR ".$smts_cntr."
".count($mtsw_array)."	".$mtsw_key."	".$mtsw_val."

"; $sw_frst=0; foreach($dspl_dtls as $say_key => $say_val) { $val_lngt=strlen($say_val); // echo ""; $chck_text=""; if (strlen($say_val) > 4) { $say_val="*".$say_val; } $val_lngt=strlen($say_val); for ($i = 0; $i <= $val_lngt; $i++) { $chck_char=$say_val[$i]; // if($chck_char == "!"){$chck_text=$chck_text."!!".$say_val."!!-opwinding,vreugde,boosheid,prfx";} if($chck_char == '"'){$chck_text=$chck_text."!!".$say_val."!!-quote,wie,waar,intensiteit,sufx";} if($chck_char == "#"){$chck_text=$chck_text."!!".$say_val."!!-aantal,volume,maat,exact,sufx";} if($chck_char == "$"){$chck_text=$chck_text."!!".$say_val."!!-dollar";} if($chck_char == "%"){$chck_text=$chck_text."!!".$say_val."!!-procent";} if($chck_char == "&"){$chck_text=$chck_text."!!".$say_val."!!-en,nevenschiking,keuze,sufx";} if($chck_char == "'"){$chck_text=$chck_text."!!".$say_val."!!-toelichting";} if($chck_char == "("){$chck_text=$chck_text."!!".$say_val."!!-verduidelijking,noodzaak,urgentie,prfx";} if($chck_char == ")"){$chck_text=$chck_text."!!".$say_val."!!-";} // if($chck_char == "*"){$chck_text=$chck_text."!!".$say_val."!!-intentie,10,50,prfx";} if($chck_char == "+"){$chck_text=$chck_text."!!".$say_val."!!-button";} if($chck_char == "o "){$chck_text=$chck_text."!!".$say_val."!!-pattern";} if($chck_char == ","){$chck_text=$chck_text."!!".$say_val."!!-multizin";} if($chck_char == "-"){$chck_text=$chck_text."!!".$say_val."!!-verbinding";} if($chck_char == "."){$chck_text=$chck_text."!!".$say_val."!!-einde";} if($chck_char == "/"){$chck_text=$chck_text."!!".$say_val."!!-optie";} if($chck_char == ":"){$chck_text=$chck_text."!!".$say_val."!!-uitleg,duidelijkheid,onduidelijkheid,sufx";} if($chck_char == ";"){$chck_text=$chck_text."!!".$say_val."!!-Puntkomma";} if($chck_char == "<"){$chck_text=$chck_text."!!".$say_val."!!-kleiner";} if($chck_char == "="){$chck_text=$chck_text."!!".$say_val."!!-definitie";} if($chck_char == ">"){$chck_text=$chck_text."!!".$say_val."!!-groter";} if($chck_char == "?"){$chck_text=$chck_text."!!".$say_val."!!-vraag,beantwoording,toelichting,prfx";} if($chck_char == "@"){$chck_text=$chck_text."!!".$say_val."!!-apestaart";} if($chck_char == "["){$chck_text=$chck_text."!!".$say_val."!!-verduidelijking,relatie,consquentie,sfx";} if($chck_char == "\\"){$chck_text=$chck_text."!!".$say_val."!!-terugkoppeling";} if($chck_char == "]"){$chck_text=$chck_text."!!".$say_val."!!-";} if($chck_char == "^"){$chck_text=$chck_text."!!".$say_val."!!-aandacht,doel,verwachting";} if($chck_char == "_"){$chck_text=$chck_text."!!".$say_val."!!-scheiding";} if($chck_char == "`"){$chck_text=$chck_text."!!".$say_val."!!-aanhaling";} if($chck_char == "{"){$chck_text=$chck_text."!!".$say_val."!!-formule";} if($chck_char == "|"){$chck_text=$chck_text."!!".$say_val."!!-scheiding";} if($chck_char == "}"){$chck_text=$chck_text."!!".$say_val."!!-";} if($chck_char == "~"){$chck_text=$chck_text."!!".$say_val."!!-vergelijking";} // if($chck_char == "A"){$chck_text=$chck_text."!!".$say_val."!!-hoofdletter,naam,nadruk,prfx";} if($chck_char == "B"){$chck_text=$chck_text."!!".$say_val."!!-hoofdletter,naam,nadruk,prfx";} if($chck_char == "C"){$chck_text=$chck_text."!!".$say_val."!!-hoofdletter,naam,nadruk,prfx";} if($chck_char == "D"){$chck_text=$chck_text."!!".$say_val."!!-hoofdletter,naam,nadruk,prfx";} if($chck_char == "E"){$chck_text=$chck_text."!!".$say_val."!!-hoofdletter,naam,nadruk,prfx";} if($chck_char == "F"){$chck_text=$chck_text."!!".$say_val."!!-hoofdletter,naam,nadruk,prfx";} if($chck_char == "G"){$chck_text=$chck_text."!!".$say_val."!!-hoofdletter,naam,nadruk,prfx";} if($chck_char == "H"){$chck_text=$chck_text."!!".$say_val."!!-hoofdletter,naam,nadruk,prfx";} if($chck_char == "I"){$chck_text=$chck_text."!!".$say_val."!!-hoofdletter,naam,nadruk,prfx";} if($chck_char == "J"){$chck_text=$chck_text."!!".$say_val."!!-hoofdletter,naam,nadruk,prfx";} if($chck_char == "K"){$chck_text=$chck_text."!!".$say_val."!!-hoofdletter,naam,nadruk,prfx";} if($chck_char == "L"){$chck_text=$chck_text."!!".$say_val."!!-hoofdletter,naam,nadruk,prfx";} if($chck_char == "M"){$chck_text=$chck_text."!!".$say_val."!!-hoofdletter,naam,nadruk,prfx";} if($chck_char == "N"){$chck_text=$chck_text."!!".$say_val."!!-hoofdletter,naam,nadruk,prfx";} if($chck_char == "O"){$chck_text=$chck_text."!!".$say_val."!!-hoofdletter,naam,nadruk,prfx";} if($chck_char == "P"){$chck_text=$chck_text."!!".$say_val."!!-hoofdletter,naam,nadruk,prfx";} if($chck_char == "Q"){$chck_text=$chck_text."!!".$say_val."!!-hoofdletter,naam,nadruk,prfx";} if($chck_char == "R"){$chck_text=$chck_text."!!".$say_val."!!-hoofdletter,naam,nadruk,prfx";} if($chck_char == "S"){$chck_text=$chck_text."!!".$say_val."!!-hoofdletter,naam,nadruk,prfx";} if($chck_char == "T"){$chck_text=$chck_text."!!".$say_val."!!-hoofdletter,naam,nadruk,prfx";} if($chck_char == "U"){$chck_text=$chck_text."!!".$say_val."!!-hoofdletter,naam,nadruk,prfx";} if($chck_char == "V"){$chck_text=$chck_text."!!".$say_val."!!-hoofdletter,naam,nadruk,prfx";} if($chck_char == "W"){$chck_text=$chck_text."!!".$say_val."!!-hoofdletter,naam,nadruk,prfx";} if($chck_char == "X"){$chck_text=$chck_text."!!".$say_val."!!-hoofdletter,naam,nadruk,prfx";} if($chck_char == "Y"){$chck_text=$chck_text."!!".$say_val."!!-hoofdletter,naam,nadruk,prfx";} if($chck_char == "Z"){$chck_text=$chck_text."!!".$say_val."!!-hoofdletter,naam,nadruk,prfx";} // if($chck_char == "a"){$chck_text=$chck_text."!!".$say_val."!!-letter,naam,zinbegin,prfx";} if($chck_char == "b"){$chck_text=$chck_text."!!".$say_val."!!-letter,naam,zinbegin,prfx";} if($chck_char == "c"){$chck_text=$chck_text."!!".$say_val."!!-letter,naam,zinbegin,prfx";} if($chck_char == "d"){$chck_text=$chck_text."!!".$say_val."!!-letter,naam,zinbegin,prfx";} if($chck_char == "e"){$chck_text=$chck_text."!!".$say_val."!!-letter,naam,zinbegin,prfx";} if($chck_char == "f"){$chck_text=$chck_text."!!".$say_val."!!-letter,naam,zinbegin,prfx";} if($chck_char == "g"){$chck_text=$chck_text."!!".$say_val."!!-letter,naam,zinbegin,prfx";} if($chck_char == "h"){$chck_text=$chck_text."!!".$say_val."!!-letter,naam,zinbegin,prfx";} if($chck_char == "i"){$chck_text=$chck_text."!!".$say_val."!!-letter,naam,zinbegin,prfx";} if($chck_char == "j"){$chck_text=$chck_text."!!".$say_val."!!-letter,naam,zinbegin,prfx";} if($chck_char == "k"){$chck_text=$chck_text."!!".$say_val."!!-letter,naam,zinbegin,prfx";} if($chck_char == "l"){$chck_text=$chck_text."!!".$say_val."!!-letter,naam,zinbegin,prfx";} if($chck_char == "m"){$chck_text=$chck_text."!!".$say_val."!!-letter,naam,zinbegin,prfx";} if($chck_char == "n"){$chck_text=$chck_text."!!".$say_val."!!-letter,naam,zinbegin,prfx";} if($chck_char == "o"){$chck_text=$chck_text."!!".$say_val."!!-letter,naam,zinbegin,prfx";} if($chck_char == "p"){$chck_text=$chck_text."!!".$say_val."!!-letter,naam,zinbegin,prfx";} if($chck_char == "q"){$chck_text=$chck_text."!!".$say_val."!!-letter,naam,zinbegin,prfx";} if($chck_char == "r"){$chck_text=$chck_text."!!".$say_val."!!-letter,naam,zinbegin,prfx";} if($chck_char == "s"){$chck_text=$chck_text."!!".$say_val."!!-letter,naam,zinbegin,prfx";} if($chck_char == "t"){$chck_text=$chck_text."!!".$say_val."!!-letter,naam,zinbegin,prfx";} if($chck_char == "u"){$chck_text=$chck_text."!!".$say_val."!!-letter,naam,zinbegin,prfx";} if($chck_char == "v"){$chck_text=$chck_text."!!".$say_val."!!-letter,naam,zinbegin,prfx";} if($chck_char == "w"){$chck_text=$chck_text."!!".$say_val."!!-letter,naam,zinbegin,prfx";} if($chck_char == "x"){$chck_text=$chck_text."!!".$say_val."!!-letter,naam,zinbegin,prfx";} if($chck_char == "y"){$chck_text=$chck_text."!!".$say_val."!!-letter,naam,zinbegin,prfx";} if($chck_char == "z"){$chck_text=$chck_text."!!".$say_val."!!-letter,naam,zinbegin,prfx";} $pos = strpos($chck_text,"letter"); if ($pos === false) { // echo ""; $text_dtls=explode("!!",$chck_key); if(count($text_dtls) > 0) { // print_r($text_dtls); foreach($text_dtls as $text_key => $text_val) { if ($chck_text == "hoofdletter") { // echo ""; } } if (count($text_dtls) > 0) { $chck_itms=explode("-",$text_val); // print_r($chck_itms); $text_text=$chck_itms[1]; $text_itms=explode(",",$text_text); // print_r($text_itms); $item_word=$text_itms[0]; $word_prts=explode(" ",$item_word); // print_r($word_prts); if ($word_prts[0] != null) { $item_lnks=$text_itms[1]; $item_rchs=$text_itms[2]; $item_posn=$text_itms[3]; // echo "
ITEM WORD ".$item_word; if($sw_frst == 1 and $item_word == "letter") { // echo ""; $sw_frst=0; } else { if ($sw_frst == 0 and $item_word != "letter") { $resp_lnks=$say." betekent ".$item_word."
betekent ".$item_lnks; $resp_rchs=$say." betekent is misschien ook ".$item_rchs; // echo ""; // echo ""; } } } } } } }}} /////////// // echo "

".count($dspl_dtls)."	".$val_lngt."	".$say_val."
CHCK TEXT ".$chck_text; $say=str_replace($chck_char,"",$say); $invr_bzv1=str_replace($chck_char,"",$invr_bzv1); $chck_rslt[$chck_text]=$chck_rslt[$chck_text]+1; } else { echo "
Found".$chck_text; } } // $say_parts=explode($chck_char,$say); // print_r($chck_rslt); ksort($chck_rslt); foreach($chck_rslt as $chck_key => $chck_val) { // echo "
".$chck_key."	".$chck_val."
De letter ".$chck_char." is een hoofdletter. Maar is ".$say_val." een of
".$item_word."	Is of van toepassing?
".$resp_lnks." ".$resp_rchs."
".$resp_rslt."	Is of van toepassing?