Woordvormanalyse
Semanta Tel:+31-162-313323 of International +1-514-331-0572 |
Host 10.184.19.84 1
Host 10.184.19.84 2
Connected successfully
Host 10.184.19.84 3
function gram_rule($form,$taal)
{
include ("config-smta.php");
// require_once ("smta-tlkd-func-0017.php");
// require_once ("xtrt-xxxx-func.php");
// include ("text-isrt-func.php");
$func="gram-rule-func";
$wrds_form=$form;
$invr_taal=$taal;
// echo "
TAAL ".$taal." FORM ".$form;
///////////////
// $invr_bzv1="uw internet is ";
// $invr_domn="zomaar een domein";
//
if ($taal == null)
{
$taal= "nederlands";
}
$sql = "SELECT * FROM `gw27` where `taal` = '$taal' and `lnks` = '$form' order by `lnks` asc ";
mysql_query("SET CHARACTER SET utf8");
mysql_query("SET NAMES utf8");
$tablresult = mysql_query($sql, $link);
$tabl_num = mysql_num_rows($tablresult);
// echo "
Aantallen gw27 ".$sql." ".$tabl_num;
// echo "
////////////
require_once ("conv.php");
// echo "
".$invr_domn;
$spec_rslt=bepl_spec($invr_lnks);
// echo "
SPEC RSLT ".$spec_rslt;
// include ("chbt-cmds-code-2.php");
//////////
$sinvr_lnks=str_replace(" ","+",$invr_lnks);
$lnks_itms=explode(" ",$invr_lnks);
// echo "
".$invr_lnks." We gaan aan de slag ";
$taal_rslt=bepl_taal($invr_lnks);
ksort($taal_rslt);
// print_r($taal_rslt);
foreach($taal_rslt as $taal_key => $taal_val)
{
$text_taal=$taal_key;
$invr_taal=$text_taal;
}
// echo "
INVR TAAL ".$invr_taal;
if (count($lnks_itms) > 3)
{
// echo "
".$invr_lnks." kan niet worden verwerkt ik gebruik ";
}
echo "";
$cmds_ipad="semanta.nl";
$cmds_bzv2=$invr_lnks."[".$invr_tabl."[".$invr_taal."[semantiek[".$invr_rchs."[0";
// echo "
CMDS BZV2 ".$cmds_bzv2;
echo "
";
foreach($lnks_itms as $summ_key => $summ_lnks)
{
// $summ_lnks=$lnks_itms[0].$lnks_itms[1].$lnks_itms[2];
// echo $summ_lnks." als een(1) woordvorm.";
$lnks_lngt=strlen($summ_lnks)+1;
$lnks_stop=strlen($summ_lnks)+1;
echo "";
$f=0;
$e=0;
$n=0;
for ($i=$n; $i < $lnks_lngt; $i++)
{
$l=$lnks_lngt-$i;
$last_part=substr($summ_lnks,$i,$l);
$frst_part=str_replace($last_part,"",$summ_lnks);
// echo "
LAST PART #".$i." ".$last_part." FRST PART ".$frst_part;
$gw27_rslt=xtrt_xxxx("xdotx".$last_part,$invr_taal,"gw27",8);
if (count($gw27_rslt) != null and strlen($last_part) > 2)
{
$cntr_frst=count($gw27_rslt);
$last_lngt=strlen($last_part);
$last_array[$last_lngt]=$last_part;
$f=$f+1;
// print_r($gw27_rslt);
foreach($gw27_rslt as $gw27_key => $gw27_val)
{
$gw27_dtls=explode("!!",$gw27_key);
$gw27_scre=$gw27_dtls[0];
$gw27_taal=$gw27_dtls[1];
$gw27_domn=$gw27_dtls[2];
$gw27_lnks=$gw27_dtls[3];
$gw27_rchs=$gw27_dtls[4];
$last_array[$last_lngt."@".$gw27_rchs]=$last_part;
$gw27_datm=$gw27_dtls[5];
$gw27_levl=$gw27_dtls[6];
$gw27_ipad=$gw27_dtls[7];
// echo "".$gw27_lnks."--".$gw27_rchs." |
";
}
}
if ($invr_lnks== $last_part)
{
$gw27_rslt=xtrt_xxxx("xdotx".$invr_lnks,$invr_taal,"gw27",4);
if (count($gw27_rslt) != null)
{
$cntr_frst=count($gw27_rslt);
// print_r($gw27_rslt);
$rchs_rslt="";
foreach($gw27_rslt as $gw27_key => $gw27_val)
{
$gw27_dtls=explode("!!",$gw27_key);
$gw27_scre=$gw27_dtls[0];
$gw27_taal=$gw27_dtls[1];
$gw27_domn=$gw27_dtls[2];
$gw27_lnks=$gw27_dtls[3];
$gw27_rchs=$gw27_dtls[4];
$rchs_itms=explode(",",$gw27_rchs);
foreach ($rchs_itms as $rchs_key => $rchs_val)
{
$rchs_val=$rchs_val.",";
$rchs_rslt=$rchs_rslt.$rchs_key;
}
echo "
RCHS RSLT ".$rchs_rslt;
// $last_array[$last_lngt."@".$gw27_rchs]=$last_part;
$gw27_datm=$gw27_dtls[5];
$gw27_levl=$gw27_dtls[6];
$gw27_ipad=$gw27_dtls[7];
// echo "
".$gw27_lnks."--".$rchs_rslt_rchs." |
";
?>
echo "
| ";
////////////
////
?>
}
echo "
WAS DIT HET ?";
exit;
}
}
$gw27_rslt=xtrt_xxxx("xdotx".$frst_part,$invr_taal,"gw27",8);
if (count($gw27_rslt) != null and strlen($frst_part) > 2)
{
$cntr_frst=count($gw27_rslt);
$frst_lngt=strlen($frst_part);
// $frst_array[$frst_lngt]=$frst_part;
$f=$f+1;
// print_r($gw27_rslt);
foreach($gw27_rslt as $gw27_key => $gw27_val)
{
$gw27_dtls=explode("!!",$gw27_key);
$gw27_scre=$gw27_dtls[0];
$gw27_taal=$gw27_dtls[1];
$gw27_domn=$gw27_dtls[2];
$gw27_lnks=$gw27_dtls[3];
$gw27_rchs=$gw27_dtls[4];
$frst_array[$frst_lngt."@".$gw27_rchs]=$frst_part;
$gw27_datm=$gw27_dtls[5];
$gw27_levl=$gw27_dtls[6];
$gw27_ipad=$gw27_dtls[7];
// echo "
".$gw27_lnks."--".$gw27_rchs." |
";
}
}
}
}
krsort($frst_array);
// echo "
FRST ARRAY ";
// print_r($frst_array);
// echo "
";
// echo "
LAST ARRAY ";
krsort($last_array);
// print_r($last_array);
// echo "
";
$sw=0;
$lrelt="";
foreach($last_array as $last_key => $last_val)
{
// echo "
LAST KEY ".$last_key." LAST VAL ".$last_val;
$key_itms=explode("@",$last_key);
// echo "
LAST KEY ITMS
";
// print_r($key_itms);
if (count($key_itms) == 2)
{
$last_gram=$key_itms[0];
$last_text=$key_itms[1];
// echo "
LAST TEXT ".$last_text." LAST VAL ".$last_val;
$rule_rslt=gram_rule($last_text,$last_val,$invr_taal);
foreach($rule_rslt as $rule_key => $rule_val)
{
$val_itms=explode("!!",$rule_val);
$val_last=$val_itms[0];
// echo "
VAL LAST ".$val_last;
$last_spec=bepl_spec($val_last);
// echo " | ".$last_spec." |
";
echo "".$last_val." | ".$val_itms[0]." | ";
if ($invr_tabl != "gw27")
{
$invr_tabl="gw27";
}
////
?>
////
}
// print_r($rule_rslt);
$last_rslt=$last_val;
}
if ($invr_lnks == $invr_domn)
{
echo "
Dit was het ";
exit;
}
}
$sw=0;
$lrelt="";
echo "
";
echo "";
foreach($frst_array as $frst_key => $frst_val)
{
// echo "
FRST KEY ".$frst_key." FRST VAL ".$frst_val;
$key_itms=explode("@",$frst_key);
// echo "
FRST KEY ITMS
";
// print_r($key_itms);
if (count($key_itms) == 2)
{
$last_gram=$key_itms[0];
$last_text=$key_itms[1];
// echo "
LAST TEXT ".$last_text." LAST VAL ".$last_val;
$rule_rslt=gram_rule($last_text,$frst_val,$invr_taal);
foreach($rule_rslt as $rule_key => $rule_val)
{
$val_itms=explode("!!",$rule_val);
$val_frst=$val_itms[0];
// echo "
VAL FRST ".$val_frst;
$frst_spec=bepl_spec($val_frst);
// echo " | ".$frst_spec." | ";
echo "".$frst_val." | ".$val_itms[0]." |
";
}
// print_r($rule_rslt);
$frst_rslt=$frst_val;
}
}
echo "
";
////////////////
$conv_tabl[base]="Semanta.Intentie. Domn. ".$invr_lnks;
$conv_tabl[smta]="Semantus.Leraar. Uiting. Ongestructureerde tekst";
$conv_tabl[mtsw]="Leraar. Intentie. Gesprekskonderwerp van de tekst in een woord";
$conv_tabl[aiml]="Humanoid.Artificial Intelligence. Humanoid. Response van humanoid op de tekst";
$conv_tabl[emot]="Mensenkenner.Emoties. Beleving. Gesprekspartners. Herkenning van tekstueel gevoel over de tekst";
$conv_tabl[gram]="Taalkundige. Part of Speech. Part of Speech welke woordvorm";
$conv_tabl[vgpt]="Gesprekspartner.Narrative. Advies over de mogelijke gesprekspartner";
$conv_tabl[chbt]="Chatbot.Gesprek. Pattern en Template van de tekst";
$conv_tabl[wtvr]="Wetenschapper.Wetenschap Vragen. Wetenschapsvragen Nederlandse volk";
$conv_tabl[lpzg]="Webeditor. Teksten. Corpus van Uni van Leipzig";
$conv_tabl[mdls]="Ict Consultant. Bronnen. Infra alles wat gebouwd is";
$botl_text=$conv_tabl[$invr_tabl];
// echo "
BOTL TEXT ".$invr_tabl;
$text_itms=explode(".",$botl_text);
$invr_vgpt=trim($text_itms[0]);
$invr_sess=trim($text_itms[1]);
$invr_domn=trim($text_itms[2]);
$invr_cont=trim($text_itms[3]);
$botl_array[0]=$invr_lnks;
if ($invr_rchs == null)
{
$botl_array[1]="en nu";
}
if ($invr_rchs != null)
{
$botl_array[1]=$invrlnks." betekent ".$invr_rchs;
}
$botl_array[1]=$invr_rchs;
$botl_array[2]=$invr_vgpt;
$botl_array[3]=$invr_sess;
$botl_array[4]=$invr_domn;
$botl_array[5]=$invr_cont;
// print_r($text_itms);
// $botl_array[1]=$frst_rslt;
// $botl_array[2]=$last_rslt;
echo "";
// print_r($botl_array);
foreach($botl_array as $botl_key => $botl_val)
{
if ($invr_lnks != $botl_val)
{
$sbotl_val=str_replace(" ","+",$botl_val);
$url="https://www.botlibre.biz/rest/api/form-chat?instance=10463366&message=$sbotl_val&application=2763691806767550099";
$p = xml_parser_create();
$url_rslt= file_get_contents($url);
xml_parse_into_struct($p, $url_rslt, $vals, $index);
xml_parser_free($p);
// echo "Index array\n";
// print_r($index);
// echo "\nVals array\n";
foreach($vals as $vals_key => $vals_val)
{
$vals_rslt=$vals_val[value];
if ($vals_key == 1)
{
if ($vrelt != $botl_val.$vals_rslt)
{
echo "".$botl_val." | ".$vals_rslt."
";
$vrelt = $botl_val.$vals_rslt;
}
}
}
}
}
//////////////////
if ($frst_rslt == $last_rslt)
{
echo "We gaan aan de slag met ".$frst_rslt."
";
echo "".$frst_rslt."
";
echo "";
$tabl_rslt=xtrt_xxxx($frst_rslt,$invr_taal,$invr_tabl,2);
// print_r($tabl_rslt);
foreach($tabl_rslt as $tabl_key => $tabl_val)
{
$tabl_dtls=explode("!!",$tabl_key);
$tabl_scre=$tabl_dtls[0];
$tabl_taal=$tabl_dtls[1];
$tabl_domn=$tabl_dtls[2];
$tabl_lnks=$tabl_dtls[3];
$tabl_rchs=$tabl_dtls[4];
$tabl_datm=$tabl_dtls[5];
$tabl_levl=$tabl_dtls[6];
$tabl_ipad=$tabl_dtls[7];
echo " | ".$tabl_lnks." | ".$tabl_rchs." |
";
}
echo "
";
}
if ($frst_rslt != $last_rslt)
{
echo "We gaan aan de slag met ".$frst_rslt." en ".$last_rslt."
";
echo "".$frst_rslt."
";
echo "";
$tabl_rslt=xtrt_xxxx($frst_rslt,$invr_taal,$invr_tabl,2);
// print_r($tabl_rslt);
foreach($tabl_rslt as $tabl_key => $tabl_val)
{
$tabl_dtls=explode("!!",$tabl_key);
$tabl_scre=$tabl_dtls[0];
$tabl_taal=$tabl_dtls[1];
$tabl_domn=$tabl_dtls[2];
$tabl_lnks=$tabl_dtls[3];
$tabl_rchs=$tabl_dtls[4];
$tabl_datm=$tabl_dtls[5];
$tabl_levl=$tabl_dtls[6];
$tabl_ipad=$tabl_dtls[7];
if ($frelt != $tabl_lnks.$tabl_rchs)
{
echo " | ".$tabl_lnks." | ".$tabl_rchs." |
";
$frelt=$tabl_lnks.$tabl_rchs;
}
}
echo "
";
echo "";
echo "".$last_rslt."
";
$tabl_rslt=xtrt_xxxx($last_rslt,$invr_taal,$invr_tabl,2);
// print_r($tabl_rslt);
foreach($tabl_rslt as $tabl_key => $tabl_val)
{
$tabl_dtls=explode("!!",$tabl_key);
$tabl_scre=$tabl_dtls[0];
$tabl_taal=$tabl_dtls[1];
$tabl_domn=$tabl_dtls[2];
$tabl_lnks=$tabl_dtls[3];
$tabl_rchs=$tabl_dtls[4];
$tabl_datm=$tabl_dtls[5];
$tabl_levl=$tabl_dtls[6];
$tabl_ipad=$tabl_dtls[7];
if ($lrelt != $tabl_lnks.$tabl_rchs)
{
echo " | ".$tabl_lnks." | ".$tabl_rchs." |
";
$lrelt=$tabl_lnks.$tabl_rchs;
}
}
}
echo "
";
echo "
".$frst_rslt." ".$last_rslt;
$spec_rslt=bepl_spec($frst_rslt." ".$last_rslt);
// echo "
".$spec_rslt;
// print_r($last_array);
// print_r($intn_array);
// echo "".$last_part."";
foreach($intn_array as $intn_key => $intn_val)
{
// echo "
INTN KEY ".$intn_key." INTN VAL ".$intn_val;
if ($irelt != $intn_key)
{
$intn_dtls=explode("@",$intn_key);
$intn_lnks=$intn_dtls[0];
$intn_rchs=$intn_dtls[1];
// echo " | ".$intn_lnks." | ".$intn_rchs." |
";
$irelt = $intn_key;
}
}
echo "";
?>