| Semanta's xbotonderwijs | Versie 19.1.31
Contact +31-162-313323 |
| Step 1 Analysis of your utterance | Propose discussion partner and subject--->Make a choice |
';
echo "
Uw uiting ".$invr_lgrm." and additional choices leads semanta to the following conclusion:
";
echo "
The corpus ".$invr_corp." is asked to talk with you about ".$invr_bzv2." using the chatbot ".$invr_chbt." and the subject ".$invr_domn." Where the beginning of your utterance is leads to ".$invr_begn." en wordt afgesloten met de vraag ".$invr_eind."";
echo "is het waar INVR CORP ".$invr_corp." INVR NAME ".$invr_name." INVR bzv2 ".$invr_bzv2."INVR LGRM ".$invr_lgrm." INVR CHBT ".$invr_chbt." INVR VRAG ".$invr_vrag." INVR DOMN ".$invr_domn." INVR BEGN ".$invr_begn." INVR EIND ".$invr_eind;
require_once ("config-smta.php");
require_once ("conv.php");
// require_once ("word-expl-func.php");
// require_once ("letr-expl-func.php");
// require_once ("bwrk-line-func.php");
// require_once ("bepl-taal-func.php");
require_once ("bepl-spec-func.php");
require_once ("bepl-sgmt-func.php");
require_once ("shrt-long-func.php");
// require_once ("wiki-aiml-func.php");
require_once ("xtrt-aiml-func.php");
require_once ("xtrt-xxxx-func.php");
// require_once ("bepl-gram-func.php");
require_once ("tlkd-smts-func.php");
require_once ("smta-tlkd-func-0017.php");
// require_once ("taal-ipcd-func.php");// echo "
Dit toch wel INVR CORP ".$invr_corp." INVR NAME ".$invr_name." INVR bzv1 ".$invr_bzv1."INVR LGRM ".$invr_lgrm." INVR CHBT ".$invr_chbt." INVR VRAG ".$invr_vrag." INVR DOMN ".$invr_domn;
//////
//////////////
$sqltref="DELETE FROM `aiml` WHERE NULLIF(template, '') IS NULL or `template` like '%srai>BOTNUMMER ".$bot_id;
///////
//////////////////////////////////////////////
// echo "
// ALLE CONVERSATIE //";
$sqltref="SELECT * FROM conversation_log order by `timestamp` desc limit 64 ";
mysql_query("SET CHARACTER SET utf8");
mysql_query("SET NAMES utf8");
$trefresult = mysql_query($sqltref, $link);
$tref_num = mysql_num_rows($trefresult);
// $lr=$tref_num-8;
$tref_last=$tref_num-1;
// echo "
Display".$display;
echo "
Aantallen ".$sqltref." ".$tref_num." AFDRUKKEN ".$lr;
echo "";
if ($tref_num != 0)
{
$nd=0;
// echo "| DATUM | ".$invr_bzkr." | ".$invr_chbt." |
";
while ($row = mysql_fetch_assoc($trefresult))
{
$bot_id=$row['bot_id'];
$pattern=$row['input'];
$template=$row['response'];
$datm=$row['timestamp'];
if ($template != "Geen direct antwoord" and $template != null and $template != "javascript" and $prelt != $pattern.$template)
{
// echo "| ".$datm." | ".$pattern." | ".$template." |
";
$arelt = $pattern."@".$template;
$last_ptrn=$pattern;
if ($nd < 25 and $prelt!= $pattern.$template)
{
$prelt=$pattern.$template;
$relt_array[$nd]=$arelt;
$nd=$nd+1;
}
}
}
}
// print_r($relt_array);
///////////////
///////
// echo "
// Registreer de bezoeker //";
if ($invr_taal == null)
{
$invr_taal="nederlands";
}
// echo "
// wie spreken er met elkaar? //";
if ($invr_chbt == null)
{
// $invr_vgpt="Prototype";
$invr_chbt="Semantus";
}
foreach($relt_array as $relt_key => $relt_val)
{
// echo "
RELT KEY ".$relt_key." RELT VAL ".$relt_val;
}
$say=$invr_lgrm;
// bepl_calc($say);
$calc_dtls=explode(" ",$say);
// echo "
REGULAR";
print_r($calc_dtls);
foreach($calc_dtls as $calc_key => $calc_val)
{
if (strlen($calc_val) > 2)
{
// echo "
CALC FUNC".$calc_val;
$calc_rslt=xtrt_xxxx("xdotx".$calc_val,"nederlands","gw27");
// echo "
AANTAL CALC RSLT ".count($calc_rslt);
foreach($calc_rslt as $gw27_key => $gw27_val)
{
// echo "
GW27 KEY ".$gw27_key;
$gw27_dtls=explode("!!",$gw27_key);
// print_r($gw27_dtls);
foreach($gw27_dtls as $itms_key => $itms_val)
{
$gram_domn=$gw27_dtls[2];
$gram_val=$gw27_dtls[3];
$gram_word=$gw27_dtls[4];
// echo "
ITMS VAL ".$itms_val." GRAM VAL ".$gram_val." GRAM WORD ".$gram_word;
if ($gram_val== $calc_val and ($gram_word =="bed" or $gram_word == "merk" ))
{
$word_array[$gram_val]=$word_array[$gram_val]+1;
$text_array[$gram_word."@".$gram_val."@nummer@ondernemer"]=$text_array[$gram_word."@".$gram_val."@ondernemer@semantus"]+1;
// echo "
".$gw27_dtls[3]." ".$gw27_dtls[4];
}
if ($gram_val== $calc_val and ($gram_word =="znw" or $gram_word == "mvd" ))
{
$word_array[$gram_val]=$word_array[$gram_val]+1;
$text_array[$gram_word."@".$gram_val."@nummer@kenner"]=$text_array[$gram_word."@".$gram_val."@kenner@semantus"]+1;
// echo "
".$gw27_dtls[3]." ".$gw27_dtls[4];
}
if ($gram_val== $calc_val and ($gram_word =="znw" or $gram_word == "plt" ))
{
$word_array[$gram_val]=$word_array[$gram_val]+1;
$text_array[$gram_word."@".$gram_val."@nummer@politicus"]=$text_array[$gram_word."@".$gram_val."@politicus@semantus"]+1;
// echo "
".$gw27_dtls[3]." ".$gw27_dtls[4];
}
if ($gram_val== $calc_val and ($gram_word =="nmb" or $gram_word == "gtl" or $gram_word== "ant" ))
{
$word_array[$gram_val]=$word_array[$gram_val]+1;
$text_array[$gram_word."@".$gram_val."@nummer@semantus"]=$text_array[$gram_word."@".$gram_val."@nummer@semantus"]+1;
// echo "
".$gw27_dtls[3]." ".$gw27_dtls[4];
}
if ($gram_val== $calc_val and ($gram_word =="nmb" or $gram_word == "gtl" or $gram_word== "ant" or $gram_word == "vlt" or $gram_word== "fnc" or $gram_word== "kpt"))
{
$word_array[$gram_val]=$word_array[$gram_val]+1;
$text_array[$gram_word."@".$gram_val."@geld@geldwinkelier"]=$text_array[$gram_word."@".$gram_val."@geld@winkelier"]+1;
// echo "
".$gw27_dtls[3]." ".$gw27_dtls[4];
}
if ($gram_val== $calc_val and ($gram_word =="dtm" or $gram_word == "tijd" or $gram_word== "fut" ))
{
$word_array[$gram_val]=$word_array[$gram_val]+1;
$text_array[$gram_word."@".$gram_val."@tijd@semantus"]=$text_array[$gram_word."@".$gram_val."@tijd@semantus"]+1;
// echo "
".$gw27_dtls[3]." ".$gw27_dtls[4];
}
if ($gram_val== $calc_val and ($gram_word =="pts" or $gram_word == "gps" or $gram_word== "land" ))
{
$word_array[$gram_val]=$word_array[$gram_val]+1;
// echo "
ITMS VAL ".$itms_val." GRAM VAL ".$gram_val." GRAM WORD ".$gram_word;
$text_array[$gram_word."@".$gram_val."@plaats@topograaf"]=$text_array[$gram_word."@".$gram_val."@plaats@topograaf"]+1;
// echo "
".$gw27_dtls[3]." ".$gw27_dtls[4];
}
if ($gram_val== $calc_val and ($gram_word=="vnm" or $gram_word=="anm" or $gram_word=="msje" or $gram_word=="jngn" or $gram_word=="prs") )
{
$word_array[$gram_val]=$word_array[$gram_val]+1;
// echo "
ITMS VAL ".$itms_val." GRAM VAL ".$gram_val." GRAM WORD ".$gram_word;
$text_array[$gram_word."@".$gram_val."@persoon@mensenkenner"]=$text_array[$gram_word."@".$gram_val."@persoon@mensenkenner"]+1;
// echo "
BRON ".$gw27_dtls[3]." ".$gw27_dtls[4];
}
if ($gram_val== $calc_val and ($gram_word=="prs" or $gram_word=="com" or $gram_word=="vds" or $gram_word=="jngn" or $gram_word =="org" or $gram_word=="mens") )
{
$word_array[$gram_val]=$word_array[$gram_val]+1;
// echo "
ITMS VAL ".$itms_val." GRAM VAL ".$gram_val." GRAM WORD ".$gram_word;
$text_array[$gram_word."@".$gram_val."@persoon@mens"]=$text_array[$gram_word."@".$gram_val."@persoon@mens"]+1;
// echo "
BRON ".$gw27_dtls[3]." ".$gw27_dtls[4];
}
if ($gram_val== $calc_val and ($gram_word=="gvl" or $gram_word=="emt" or $gram_word=="onz" or $gram_word=="grd" or $gram_word=="znw" ))
{
$word_array[$gram_val]=$word_array[$gram_val]+1;
// echo "
ITMS VAL ".$itms_val." GRAM VAL ".$gram_val." GRAM WORD ".$gram_word;
$text_array[$gram_word."@".$gram_val."@emotie@mensenkenner"]=$text_array[$gram_word."@".$gram_val."@emotie@mensenkenner"]+1;
// echo "
BRON ".$gw27_dtls[3]." ".$gw27_dtls[4];
}
if ($gram_val== $calc_val and ($gram_word=="hwd" or $gram_word=="vdw" ))
{
$word_array[$gram_val]=$word_array[$gram_val]+1;
// echo "
ITMS VAL ".$itms_val." GRAM VAL ".$gram_val." GRAM WORD ".$gram_word;
// $text_array[$gram_word."@".$gram_val."@verleden@taalkundige"]=$text_array[$gram_word."@".$gram_val."@verleden@taalkundige"]+1;
}
if ($gram_val== $calc_val and ($gram_word=="bvn" or $gram_word =="znw" ))
{
$word_array[$gram_val]=$word_array[$gram_val]+1;
// echo "
ITMS VAL ".$itms_val." GRAM VAL ".$gram_val." GRAM WORD ".$gram_word;
$text_array[$gram_word."@".$gram_val."@kwalificatie@taalkundige"]=$text_array[$gram_word."@".$gram_val."@kwalificatie@taalkundige"]+1;
}
if ($gram_val== $calc_val and ($gram_word=="bwd" or $gram_word=="xpe" ))
{
$word_array[$gram_val]=$word_array[$gram_val]+1;
// echo "
ITMS VAL ".$itms_val." GRAM VAL ".$gram_val." GRAM WORD ".$gram_word;
$text_array[$gram_word."@".$gram_val."@activiteit@taalkundige"]=$text_array[$gram_word."@".$gram_val."@activiteit@taalkundige"]+1;
}
if ($gram_val== $calc_val and ($gram_word=="wsc" or $gram_word=="beta" or $gram_word=="grd" ))
{
$word_array[$gram_val]=$word_array[$gram_val]+1;
// echo "
ITMS VAL ".$itms_val." GRAM VAL ".$gram_val." GRAM WORD ".$gram_word;
$text_array[$gram_word."@".$gram_val."@karakter@wetenschapper"]=$text_array[$gram_word."@".$gram_val."@karakter@wetenschapper"]+1;
}
if ($gram_val== $calc_val and ($gram_word=="spt" or $gram_word=="org" or $gram_word=="grd" ))
{
$word_array[$gram_val]=$word_array[$gram_val]+1;
// echo "
ITMS VAL ".$itms_val." GRAM VAL ".$gram_val." GRAM WORD ".$gram_word;
$text_array[$gram_word."@".$gram_val."@karakter@sporter"]=$text_array[$gram_word."@".$gram_val."@karakter@sporter"]+1;
}
}
}
}
}
// print_r($text_array);
//////////////
// $calc_array=bepl_calc($say);
$ssay=str_replace(" ","+",$say);
if (count($text_array) > 0)
{
foreach ($text_array as $calc_key => $calc_val)
{
// echo "
CALC KEY ".$calc_key." CALC VAL ".$calc_val;
$calc_dtls=explode("@",$calc_key);
foreach($calc_dtls as $dtls_key => $dtls_val)
{
$dtls_gram=$calc_dtls[0];
$dtls_word=$calc_dtls[1];
$dtls_kwal=$calc_dtls[2];
$dtls_vgpt=$calc_dtls[3];
if ($dtls_gram != "znw" or $dtls_gram != "mvd")
{
$gram_rslt=gram_rule($dtls_gram,$dtls_word,"nederlands");
asort($gram_rslt);
// print_r($gram_rslt);
foreach($gram_rslt as $gram_key => $gram_val )
{
// echo "
KEY ".$gram_key." VAL ".$gram_val;
$gram_dtls=explode("!!",$gram_val);
// print_r($gram_dtls);
$vrag_rslt=str_replace("%%",$dtls_word,$gram_dtls[0]);
// echo "
".$vrag_rslt;
$vrag_array[$vrag_rslt]=$vrag_array[$vrag_rslt]+1;
}
$gram_array[$dtls_gram]=$gram_array[$dtls_gram]+1;
$word_array[$dtls_word]=$word_array[$dtls_word]+1;
$kwal_array[$dtls_kwal]=$kwal_array[$dtls_gram]+1;
$vgpt_array[$dtls_vgpt]=$vgpt_array[$dtls_vgpt]+1;
}
}
}
}
// echo "
GESPREKSPARTNER
";
// print_r($vgpt_array);
// echo "
GRAMMATICA
";
// print_r($gram_array);
// echo "
WOORDEN
";
// print_r($word_array);
// echo "
KWALIFICATIES
";
// print_r($kwal_array);
echo "
// Welke gesprekspartner kiest u voor uw gesprek
";
?>
";
}
if (count($kwal_array) > 0)
{
$cw=0;
echo "
// What is the subject of our conversation
";
?>
";
}
if (count($word_array) > 0)
{
// echo "
WOORDEN";
$cw=0;
echo "
// What word do you consider relevant
";
?>
";
}
if (count($gram_array) > 0)
{
// echo "
GRAMMATICA";
foreach ($gram_array as $vgpt_key => $vgpt_val)
{
$lvgpt_key="".$vgpt_key."";
// $lvgpt_key="".$vgpt_key."";
// echo "--".$lvgpt_key;
}
}
/////
?>
";
echo "
Aan ".$invr_vgpt." gerelateerde chatbots en corpora:
";
echo "";
//////////////////////////////////////////////
$data_rslt=xtrt_xxxx($invr_domn,"nederlands","data",24);
// print_r($data_rslt);
echo "
";
if (count($data_rslt) > 0 )
{
// echo "
";
krsort($data_rslt);
foreach($data_rslt as $data_key => $data_val)
{
// echo "";
$data_itms=explode("!!",$data_key);
// echo "
TITLES KEY ".$data_key." VAL ".$data_val;
$data_taal=$data_itms[1];
$data_corp=$data_itms[2];
$corp_array[$data_corp]=$corp_array[$corp_data]+1;
$data_cont=$data_itms[3];
$data_link=$data_itms[4];
$rslt_array[$data_link]=$rslt_array[$data_link]+1;
// echo "
DATA CORP ".$data_corp." DATA LINK ".urlencode($data_link);
if ($data_link != null)
{
// echo "
niet null DATA CORP ".$data_corp." DATA LINK ".urlencode($data_link);
if (substr($data_cont,0,7) == "./data/" and substr($data_link,0,7) != "./data/")
{
if ($drelt != $data_corp)
{
$drelt=$data_corp;
$sdata_link=str_replace(" ","+",$data_link);
$file_0000="./data/".$data_corp."/lnk00000.dat";
///
$text_file="./data/".$data_corp."/lnk00000.dat";
// echo "
TEXT FILE ".$text_file." SIZE ".filesize($text_file)."
";
$open_corp=$text_file;
$f = fopen($text_file, "r");
$word_count=0;
$line_count=0;
$full_docm="";
while ($line = fgets($f, 1000))
{
$title_lngt=(strlen($line)-10);
if (substr($line,0,10) == "THE_TITLE:")
{
$title=substr($line,10,$title_lngt);
$stitle=str_replace(" ","+",$title);
$ltitle="".$title."";
// echo "
LINE ".$line;
$titl_pntr=ftell($f);
if ($titl_sw ==0)
{
$titl_sw=1;
$domn_titl=$title;
if ($userip != "84.24.147.72")
{
// echo "This action cannot be completed for this IP Address. Please contact us";
// break;
}
}
}
}
///////////////////////////////////////////
$ldata_link="".$data_corp."";
$spec_rslt=bepl_spec($data_link);
// echo "
COUNTER SPEC RSLT ".count($spec_rslt);
$spec_dtls=explode("-",$spec_rslt);
// print_r($spec_dtls);
foreach($spec_dtls as $spec_key => $spec_val)
{
if (spec_dtls[1] != null)
{
$spec_dtls=explode("!!",$spec_val);
// echo "
| ".$spec_dtls[1]." |
";
// echo "| ".$spec_val." |
";
}
}
echo "| ".$title." | ".$ldata_link." |
";
}
}
}
}
}
echo "
";
////
exit;
$mtph_aiml=metaphone($invr_domn, 8);
$mtph_aiml=strtolower($mtph_aiml);
$file_name="./data/aiml/".$mtph_aiml.".aiml";
$file_name=str_replace(" ","_",$file_name);
echo "
FILE NAME".$file_name;
$f = fopen($file_name, "r");
$word_count=0;
$line_count=0;
$full_docm="";
while ($line = fgets($f, 1000))
{
echo "
".$line;
}
fclose($fq);
$fq = fopen($file_name, 'w');
$invr_lgrm=strtolower($invr_lgrm);
$rfer_srvr=$_SERVER['SERVER_NAME'];
$rfer_url=$_SERVER['HTTP_REFERER'];
$userip=$_SERVER['REMOTE_ADDR'];
$lgroet=chbt_date("IT@1@2@".$invr_taal."@".$invr_bzkr);
$curr_jaar=$lgroet[jaar];
$curr_dag=$lgroet[dag];
$curr_mand=$lgroet[deze_maand];
$zoek_datm=$curr_jaar."-".$curr_mand;
// print_r($lgroet);
$imge_name=str_replace("-","",$invr_corp);
?>
$posn_val)
{
// echo "
POSN KEY ".$posn_key." POSN VAL ".$posn_val;
$posn_itms=explode("!!",$posn_key);
// print_r($posn_itms);
$bild_posn=substr($posn_itms[0],0,2);
$bild_text=$posn_itms[1];
if (substr_count($bild_text, ' ') > 3 and $bild_posn != 50)
{
echo "
".$bild_posn." BILD TEXT ".$bild_text;
}
}
echo "
AIML RSLT ".$aiml_rslt;
echo "
";
$bild_rslt=tlkd_smts($invr_lgrm);
$sw=0;
foreach($bild_rslt as $bild_key => $bild_val)
{
$bild_key=strtolower($bild_key);
$bild_itms=explode("!!",$bild_key);
$bild_text=$bild_itms[0];
$bild_gram=$bild_itms[1];
$bild_posn=$bild_itms[2];
if ($bild_posn == "0")
{
$sw=$sw+1;
$bild_txt1=$bild_text;
$star_text=$bild_txt1." *";
$bild_txt2=str_replace($bild_text,"",$invr_lgrm);
$bild_txt2=trim($bild_txt2);
if (substr_count($itms_val, ' ') > 3)
{
$sw_lgrm=1;
}
}
}
// echo "
EN HOE IS HET BIJ AIML
INVR CORP ".$invr_corp." INVR NAME ".$invr_name." INVR bzv1 ".$invr_bzv1."INVR LGRM ".$invr_lgrm." INVR CHBT ".$invr_chbt." INVR VRAG ".$invr_vrag." INVR DOMN ".$invr_domn." INVR BEGN ".$invr_begn." INVR EIND ".$invr_eind;
// echo '
<category><pattern>'.$bild_txt1.' *</pattern><template>'.$invr_begn.'<think><set name="invrbegn"><star/></set></think>';
// echo '
'.$bild_txt1.'*<srai>'.$bild_txt1.'</srai><sr/></template></category>';
$srai_tmpl=$bild_txt1.'*<srai>'.$bild_txt1.'</srai><sr/>';
$sql1 = "INSERT INTO `aiml` (`id`,`bot_id`,`aiml`,`pattern`,`thatpattern`,`template`,`domn`,`taal`,`filename`,`levl`,`datm`) VALUES ('null','1','$invr_domn','$star_text','$bild_txt1','$srai_tmpl','$invr_domn','$invr_taal','uttr-srch','0','$datm')";
mysql_query("SET CHARACTER SET utf8");
mysql_query("SET NAMES utf8");
$logentry_result = mysql_query($sql1, $link);
// echo '
<category><pattern>'.$bild_txt2.'</pattern><template>'.$invr_eind.'</template></category>';
$sql1 = "INSERT INTO `aiml` (`id`,`bot_id`,`aiml`,`pattern`,`thatpattern`,`template`,`domn`,`taal`,`filename`,`levl`,`datm`) VALUES ('null','1','$invr_domn','$bild_txt2','','$ínvr_eind','$invr_domn','$invr_taal','uttr-srch','0','$datm')";
mysql_query("SET CHARACTER SET utf8");
mysql_query("SET NAMES utf8");
$logentry_result = mysql_query($sql1, $link);
$aiml_rslt='<category><pattern>'.$bild_txt2.' *</pattern><template>'.$invr_eind.'<think><set name="invreind"><star/></set></think><srai>'.$invr_bzv1.'</srai><sr/></template></category><category><pattern>'.$bild_txt2.'</pattern><template>'.$invr_domn.'</template></category>';
////
////$wrte_aiml=str_replace("<","/WRTE AIML ".$wrte_aiml;
if ($sw > 0)
{
?>