| EEN ".$invr_chbt."--".$invr_corp."--".$invr_taal." | ";
// echo "| WEE ".$invr_lnks."--".$invr_rchs."--".$invr_intn." |
";
require_once ("config-smta.php");
require_once ("xtrt-xxxx-func.php");
/////////////////
// echo "".$invr_chbt."--".$invr_corp."--".$invr_taal." |
";
// echo "".$invr_lnks."--".$invr_rchs."--".$invr_intn." |
";
//////////////////////////////
require_once ("bepl-sgmt-func.php");
// require_once ("bepl-spec-func.php");
require_once ("bepl-taal-func.php");
require_once ("smta-tlkd-func-0017.php");
require_once ("gram-rule-func.php");
// require_once ("isrt-botl-func.php");
require_once ("xtrt-aiml-func.php");
// require_once ("xtrt-botl-func.php");
// require_once ("xtrt-wiki-func.php");
require_once ("gram-tabl.php");
// echo "
sccv TABL";
// print_r($sccv_tabl);
$invr_lnks=str_replace("+"," ",$invr_lnks);
$invr_rchs=str_replace("+"," ",$invr_rchs);
$lnks_itms=explode(" ",$invr_lnks);
// print_r($lnks_itms);
foreach($lnks_itms as $lnks_key => $lnks_val)
{
$lnks_val=$lnks_val." ";
$lnks_rslt=$splt_tabl[$lnks_val]."";
echo "".$lnks_val."--".$lnks_rslt."
";
}
echo "
splt TABL";
// print_r($splt_tabl);
echo "";
// echo "".$invr_chbt."--".$invr_corp."--".$invr_taal." |
";
// echo "".$invr_lnks."--".$invr_rchs."--".$invr_intn." |
";
echo "
";
if ($invr_bzv1 == null)
{
$invr_bzv1="Proloog Welkom";
}
if ($invr_lnks ==null)
{
$invr_lnks="Opening";
}
if ($invr_rchs == null)
{
$invr_rchs="Wat gaan we doen?";
}
///////
require_once ("mtsw-tabl.php");
// print_r($splt_tabl);
$sgmt_rslt=bepl_sgmt($invr_lnks,2);
foreach($sgmt_rslt as $sgmt_key => $sgmt_val)
{
$vgpt_array="";
$line=$sgmt_key;
// echo "".urlencode($sgmt_key)." | ";
$tabl_text=$splt_tabl[$sgmt_key];
// echo "Praat met . ".$tabl_text."
";
// echo "
tabl_itms";
// print_r($tabl_itms);
foreach($tabl_itms as $tabl_key => $tabl_val)
{
$tabl_text=$splt_tabl[$tabl_val];
echo "Praat met . ".$tabl_text."
";
}
}
/////
if ($invr_lnks !=null and $invr_rchs != null and $invr_intn != null)
{
$cmds_ipad=$_SERVER['REMOTE_ADDR'];
$cmds_bzv2=$invr_lnks."@".$invr_bzkr."[bzv1[".$invr_taal."[".$invr_bzv1."[".$invr_rchs."[0";
// echo "
BOTL RSLT ".$botl_rslt;
echo "
CMDS IPAD ".$cmds_ipad." INVR BZV2 ".$cmds_bzv2."
";
$tabl_bzv2=explode("[",$cmds_bzv2);
//print_r($tabl_bzv2);
$tabl_bzv2_cntr=count($tabl_bzv2);
$datm=date("Y-m-d H:i:s", time());
// echo "
DATM ".$datm;
// echo "
Teller ".$tabl_bzv2_cntr;
if ($tabl_bzv2_cntr == 6 )
{
// print_r($tabl_bzv2);
$chbt_role="teacher";
$cmds_lnks=$tabl_bzv2[0];
$cmds_tabl=$tabl_bzv2[1];
$cmds_taal=$tabl_bzv2[2];
if ($cmds_taal == null)
{
$cmds_taal= "nederlands";
}
$cmds_domn=$tabl_bzv2[3];
$cmds_rchs=$tabl_bzv2[4];
$cmds_levl=$tabl_bzv2[5];
$cmds_tabl_prms=$cmds_ipad."@".$cmds_taal."@".$cmds_domn."@".$cmds_tabl."@".$cmds_lnks."@".$cmds_rchs."@".$cmds_levl."@".$cmds_datm;
// echo "
CHBT ROLE ".$chbt_role." 6 CHBT Kennisparameters zijn".$cmds_tabl_prms;
// echo "
Vlak voor het schrijven ipad=".$cmds_ipad." lnks= ".$cmds_lnks." rchs= ".$cmds_rchs." tabl= ".$cmds_tabl." domn= ".$cmds_domn." taal= ".$cmds_taal."datum= ".$datm." level= ".$cmds_levl;
if ($cmds_lnks != null and $cmds_rchs !=null)
{
$sql = "INSERT INTO `bzv1` (`id`, `ipad`,`domn`,`taal`, `lnks`, `rchs`, `levl`, `datm`) VALUES (0,'$cmds_ipad','$cmds_domn','$cmds_taal','$cmds_lnks','$cmds_rchs','$cmds_levl','$datm')";
///////////
// $sql = "INSERT INTO aard (ipad,domn,taal,lnks,rchs,levl,datm) VALUES ('$cmds_ipad','$cmds_domn','$cmds_taal','$cmds_lnks','$cmds_rchs','$cmds_levl','$cmds_datm')";
mysql_query("SET CHARACTER SET utf8");
mysql_query("SET NAMES utf8");
// echo "
".$sql;
if(mysql_query($link, $sql))
{
echo "
Records inserted successfully.";
}
else
{
echo "
ERROR: Could not able to execute $sql. " . mysql_error($link);
}
$retval = mysql_query($sql, $link);
// echo "
RETVAL ".$retval;
}
}
}
// echo "| EEN ".$invr_chbt."--".$invr_corp."--".$invr_taal." |
";
// echo "| WEE ".$invr_lnks."--".$invr_rchs."--".$invr_intn." |
";
?>
Semanta conversatietraining
Handmatige invoer |
U zegt of tikt uw uiting in.
Vervolgens meldt u de reactie verwacht aan de webeditor.
U kunt vervolgens de gesprekspartner vertellen welke semantische kenmerken u aan uw uiting wilt toevoegen. |
////////////////
".$datm_time." ".$datm_date."
";
// echo "
Bepaal taal van de invoer";
$taal_rslt=bepl_taal($invr_bzv1);
arsort($taal_rslt);
// print_r($taal_rslt);
$taal_sw=0;
foreach($taal_rslt as $taal_key => $taal_val)
{
if ($taal_sw == 0)
{
$taal_sw = 1;
$text_taal=$taal_key;
}
}
$invr_taal=$text_taal;
if($invr_taal== null)
{
$invr_land="nederland";
$invr_taal="Nederlands";
}
if ($invr_bzkr ==null)
{
$invr_bzkr="gast";
}
// echo "
TEXT TAAL ".$text_taal." INVR TAAL ".$invr_taal;
$bzv1_rslt=xtrt_xxxx($invr_lnks,$text_taal,"bzv1",12);
// print_r($bzv1_rslt);
$intn_array[uiting]=$invr_lnks;
$intn_array[response]=$invr_rchs;
$intn_array[intention]=$invr_intn;
$intn_array[text]=strtolower($invr_lnks." ".$invr_rchs);
$vrag_array="";
$intn_educ=$invr_lnks." betekent ".$invr_rchs;
$sinvr_bzv1=str_replace(" ","+",$invr_lnks);
$invr_mail="ed@semanta.nl";
$whatsapp="https://www.semanta.nl/semanta/smta-educ.php?bzv1=".$sinvr_lnks;
/////////////////
echo "
INN ARRAY";
print_r($intn_array);
foreach($intn_array as $intn_key => $intn_val)
{
$vrag_array[$intn_val]=$vrag_array[$intn_val]+1;
$sinvr_lnks=str_replace(" ","+",$invr_lnks);
// $sinvr_bzv1=str_replace("++","+",$intn_val);
// echo "
INt N VAL ".$intn_val. " SINVR BZV1 ".urlencode($sinvr_bzv1);
echo "";
///////////////
$url='https://api-free.deepl.com/v2/translate?auth_key=14dbc0b8-a5fb-e856-c764-f58ee171ede0:fx&text='.$sinvr_lnks.'&target_lang=fr&source_lang=nl&preserve_formatting=1&tag_handling=0&formality=less';
echo "
".$sinvr_lnks;
// echo "
1 URL DEEP ".$url;
$rslt= file_get_contents($url);
// print_r($rslt);
$deep_data = json_decode($rslt);
foreach($deep_data as $deep_key => $deep_val)
{
// echo "
DEEP KEY .".$deep_key." DEEP VAL ".$deep_val;
// print_r($deep_val);
foreach ($deep_val as $key => $object)
{
$sdeep_val=str_replace(" ","+",$val_val);
// echo $deep_val->object_property;
// print_r($deep_val);
foreach($object as $val_key => $val_val)
{
if ($val_key == "text")
{
echo "
".$intn_val;
{
if ($val_key == "text")
{
echo "
VAL VAL ".$val_val;
}
}
$sinvr_bzv1=str_replace(" ","+",$val_val);
$url='https://api-free.deepl.com/v2/translate?auth_key=14dbc0b8-a5fb-e856-c764-f58ee171ede0:fx&text='.$sinvr_bzv1_val.'&target_lang=nl&source_lang=fr&preserve_formatting=1&tag_handling=0&formality=less';
// echo "
2 URL DEEP ".$url;
$rslt= file_get_contents($url);
$deep_data = json_decode($rslt);
print_r($deep_data);
foreach($deep_data as $deep_key => $deep_val)
{
// echo "
REPHRASE DEEP KEY .".$deep_key." DEEP VAL ".$deep_val;
// print_r($deep_data);
foreach ($deep_val as $key => $object)
{
// echo $deep_val->object_property;
}
}
// print_r($deep_val);
foreach($object as $val_key => $val_val)
{
if ($val_key == "text")
{
if ($intn_val != $val_val)
{
echo "".$val_val."
";
$vrag_array[$val_val]=$vrag_array[$val_val]+1;
}
}
}
}
}
}
}
}
exit;
//////////////////
// print_r($intn_array);
$tabl_list="gw27,base,smta,wtvr";
// $tabl_list="gw27";
$tabl_itms=explode(",",$tabl_list);
// print_r($tabl_itms);
foreach($intn_array as $intn_key => $intn_val)
{
$line=$intn_val;
// echo "
tables ".$intn_val." | ";
if ($intn_key != null and $intn_val != null)
{
$mtsw_rslt=xtrt_xxxx($intn_val,$text_taal,"mtsw",12);
// echo "
MTSW";
// print_r($mtsw_rslt);
foreach($mtsw_rslt as $mtsw_key => $mtsw_val)
{
$mtsw_key=str_replace("~","",$mtsw_key);
$mtsw_itms=explode("!!",$mtsw_key);
// print_r($mtsw_itms);
$mtsw_lnks=trim($mtsw_itms[3]);
$mtsw_rchs=trim($mtsw_itms[4]);
// echo "
substr_count($mtsw_lnks ".substr_count($mtsw_lnks," ");
// echo "
substr_count($mtsw_rchs ".substr_count($mtsw_rchs," ");
if (substr_count($mtsw_lnks, ' ') > 0)
{
$phrs_array[$mtsw_lnks]=$phrs_array[$mtsw_lnks]+1;
}
if (substr_count($mtsw_rchs, ' ') > 0)
{
$phrs_array[$mtsw_rchs]=$phrs_array[$mtsw_rchs]+1;
}
if (substr_count($mtsw_lnks, ' ') == 0)
{
$mtsw_array[$mtsw_lnks]=$mtsw_array[$mtsw_lnks]+1;
}
if (substr_count($mtsw_rchs, ' ') == 0)
{
$mtsw_array[$mtsw_rchs]=$mtsw_array[$mtsw_rchs]+1;
}
}
echo "
";
foreach($sgmt_rslt as $sgmt_key => $sgmt_val)
{
$vgpt_array="";
$line=$sgmt_key;
// echo "".$sgmt_key." | ";
// echo "
tabl_itms";
// print_r($tabl_itms);
foreach($tabl_itms as $tabl_key => $tabl_val)
{
$tabl_text=$conv_tabl[$tabl_val];
// echo "Praat met . ".$tabl_text."
";
$tabl_dtls=explode("@",$tabl_text);
// print_r($tabl_dtls);
$tabl_desc=$tabl_dtls[1];
// echo "".urlencode($tabl_val)."
".$tabl_text."
";
$tn=0;
$sql0="SELECT * , MATCH (lnks,rchs,domn,ipad) AGAINST ('$line') AS score FROM `$tabl_val` WHERE MATCH (lnks,rchs,domn,ipad) AGAINST ('$line') order by `score` desc";
// $sql0 = "SELECT * FROM `$tabl_val` where `rchs` like '%$invr_bzv1%' or `lnks` like '%$invr_bzv1%' or `domn` like '%$invr_bzv1%' order by `domn`,`lnks`, `rchs` asc ";
mysql_query("SET CHARACTER SET utf8");
mysql_query("SET NAMES utf8");
$tablresult = mysql_query($sql0, $link);
$tabl_num = mysql_num_rows($tablresult);
$corp_num=$tabl_num;
if ($corp_num > 0 and strlen($line) > 3)
{
$rchs=$row['rchs'];
$lnks=$row['lnks'];
// echo "".urlencode($tabl_val)."
".$tabl_desc."
";
if ($tabl_val == "gw27")
{
// echo "Aantallen LNKS ".$lnks." RCHS ".$rchs."
";
}
// echo "Aantallen ".$tabl_val."--".$tabl_num."
";
// echo "".$tabl_desc."--".$line."
";
while ($row = mysql_fetch_assoc($tablresult) and $tn < 1)
{
// echo "
TN ".$tn;
$tn=$tn+1;
$tabl_ipad="LINGVISTICA";
$scre=$row['score'];
$scre= round($scre, 0);
$nscr="00".$scre."00";
if (strlen($scre) < 4)
{
$new_scre=substr($nscr,0,3);
}
$id=$row['id'];
$ipad=$row['ipad'];
$ipad_array[$ipad]=$ipad_array[$ipad]+1;
if ($tabl_val == "gw27")
{
foreach ($rchs_itms as $rchs_key => $rchs_val)
{
$gw27_array[$lnks."@".$rchs_val]=$gw27_array[$lnks."@".$rchs_val]+1;
}
}
$rchs_array[$rchs]=$rchs_array[$rchs]+1;
$domn=$row['domn'];
$domn_dtls=explode(",",$domn);
foreach($domn_dtls as $domn_key => $domn_val)
{
$domn_val=trim($domn_val);
$domn_val=strtolower($domn_val);
$domn_array[$domn_val]=$domn_array[$domn_val]+1;
$lnks=$row['lnks'];
$vrag_itms=explode("?",$lnks);
foreach($vrag_itms as $vrag_key => $vrag_val)
{
$vrag_array[$vrag_val]=$vrag_array[$vrag_val]+1;
// $rslt_array[$rchs]=$rslt_array[$rchs]+1;
}
}
}
}
}
}
}
}
/////////////////
/////////////////
// print_r($phrs_array);
arsort($mtsw_array);
// print_r($mtsw_array);
$invr_intn="";
$m=0;
foreach($mtsw_array as $mtsw_key => $mtsw_val)
{
if ($m < 4)
{
$m=$m+1;
$invr_intn=$invr_intn.$mtsw_key.",";
$invr_intn[0]=str_replace(",","",$invr_intn[0]);
// echo "
".$m."." .$mtsw_key." |
";
}
}
$sinvr_lnks=str_replace(" ","+",$invr_lnks);
$sinvr_rchs=str_replace(" ","+",$invr_rchs);
$sinvr_bzv1=str_replace(" ","+",$invr_bzv1);
?>
| SGM RSL ".$invr_lnks." ".$invr_rchs." | ";
$sgmt_rslt=bepl_sgmt($invr_lnks." ".$invr_rchs,3);
echo "
SGM RSL".
print_r($sgmt_rslt);
foreach($sgmt_rslt as $sgmt_key => $sgmt_val)
{
echo "".$sgmt_key." |
";
$sgmt_intn=$splt_tabl[$sgmt_key];
echo "".$sgmt_key." ".$sgmt_intn." |
";
$tlkd_rslt=smta_tlkd($invr_lnks." ".$invr_rchs."@scnd");
$smta_rslt=smta_tlkd($sgmt_key);
print_r($smta_rslt);
echo "";
$invr_bzv1=strtolower($invr_bzv1);
foreach($smta_rslt as $smta_key => $smta_val)
{
$smta_key=strtolower($smta_key);
echo "".$smta_key." | ".$smta_val." |
";
$smta_text=trim($smta_key);
$smta_text=str_replace("@ ","@",$smta_key);
$smta_text=str_replace(",","",$smta_text);
$smta_text=str_replace(" ","",$smta_text);
$smta_text=str_replace(" ","",$smta_text);
$smta_text=trim($smta_text);
$smta_itms=explode("@",$smta_text);
asort($smta_itms);
// print_r($smta_itms);
$smta_sgmt=$smta_itms[1];
if ($smta_sgmt == $invr_bzv1)
{
$prmr_rslt=xtrt_xxxx($smta_val,$invr_taal,"tlkd");
// print_r($prmr_rslt);
// echo "SMTA VAL ".$smta_val." |
";
}
foreach($smta_itms as $itms_key => $itms_val)
{
$cntr=$cntr+1;
// echo "+".$cntr." ".$itms_val." |
";
}
}
}
echo "
";
echo "
GW27 ARRAY";
print_r($gw27_array);
echo "
LNKS ARRAY";
print_r($lnks_array);
echo "
IPAD ARRAY";
print_r($ipad_array);
echo "
VRAG ARRAY";
print_r($vrag_array);
echo "
DOMN ARRAY";
print_r($domn_array);
/////////////////
$sgmt_rslt=bepl_sgmt($invr_lnks." ".$invr_rchs." ".$invr_intn,3);
print_r($sgmt_rslt);
echo "".$invr_lnks." |
";
foreach($sgmt_rslt as $sgmt_key => $sgmt_val)
{
// echo "".$sgmt_key." |
";
$sgmt_intn=$splt_tabl[$sgmt_key];
echo "".$sgmt_key." ".$sgmt_intn." |
";
$tlkd_rslt=smta_tlkd($sgmt_intn."@scnd");
$smta_rslt=smta_tlkd($sgmt_key);
// print_r($smta_rslt);
echo "";
$invr_bzv1=strtolower($invr_bzv1);
foreach($smta_rslt as $smta_key => $smta_val)
{
$smta_key=strtolower($smta_key);
echo "".$smta_key." | ".$smta_val." |
";
$smta_text=trim($smta_key);
$smta_text=str_replace("@ ","@",$smta_key);
$smta_text=str_replace(",","",$smta_text);
$smta_text=str_replace(" ","",$smta_text);
$smta_text=str_replace(" ","",$smta_text);
$smta_text=trim($smta_text);
$smta_itms=explode("@",$smta_text);
asort($smta_itms);
// print_r($smta_itms);
$smta_sgmt=$smta_itms[1];
if ($smta_sgmt == $invr_bzv1)
{
$prmr_rslt=xtrt_xxxx($smta_val,$invr_taal,"tlkd");
// print_r($prmr_rslt);
// echo "SMTA VAL ".$smta_val." |
";
}
foreach($smta_itms as $itms_key => $itms_val)
{
$cntr=$cntr+1;
// echo "+".$cntr." ".$itms_val." |
";
}
}
}
?>
///////