";
$tlkd_rslt=smta_tlkd($sgmt_key."@scnd");
// print_r($tlkd_rslt);
ksort($tlkd_rslt);
$tn=0;
foreach($tlkd_rslt as $tlkd_key => $tlkd_val)
{
$tlkd_dtls=explode("@",$tlkd_key);
// print_r($tlkd_dtls);
$tlkd_lnks=trim($tlkd_dtls[1]);
$tlkd_rchs=trim($tlkd_val);
if (strlen($tlkd_lnks) > 4)
{
if ($trelt != $tlkd_lnks)
{
// echo "".$tlkd_dtls[1]." | ".$tlkd_val." ";
$trelt=$tlkd_lnks;
}
if ($trelt == $tlkd_lnks)
{
if ($tn < 8)
{
$tn=$tn+1;
// echo " | | ".$tlkd_val." | ";
$tlkd_array[$tlkd_val]=$tlkd_array[$tlkd_val]+1;
}
}
}
// $smta_array[$tlkd_val]=$smta_array[$tlkd_val]+1;
}
// print_r($bzv1_dtls);
foreach($bzv1_dtls as $bzv1_key => $bzv1_val)
{
// echo "
BZV1 VAL ".$bzv1_val;
if (strlen($bzv1_val) < 5)
{
// $shrt_line=str_replace($bzv1_val,"*",$shrt_line);
}
$posn_word=$posn_word+1;
if (strlen($bzv1_val) > 4)
{
$shrt_line=str_replace($bzv1_val,"*",$shrt_line);
$smta_rslt=xtrt_xxxx($bzv1_val,"nederlands","berp",12);
foreach($smta_rslt as $smta_key => $smta_val)
{
$smta_dtls=explode("!!",$smta_key);
// echo "
FREQ DTLS";
// print_r($freq_dtls);
$smta_domn=$smta_dtls[2];
$smta_rchs=$smta_dtls[4];
$smta_lnks=$smta_dtls[3];
if ($smta_relt != $smta_rchs)
{
// echo "".$conv_tabl[smta]." ".substr($smta_lnks,0,128)."... | ".substr($smta_rchs,0,48)."... |
";
// echo "".substr($smta_lnks,0,128)."... | ".substr($smta_rchs,0,128)."... |
";
$rslt_array[$sgmt_key."!!".$smta_rchs]=$rslt_array[$sgmt_key."!!".$smta_rchs]+1;
$smta_relt=$smta_rchs;
}
}
$smta_rslt=xtrt_xxxx($bzv1_val,"nederlands","data",4);
foreach($smta_rslt as $smta_key => $smta_val)
{
$smta_dtls=explode("!!",$smta_key);
// echo "
FREQ DTLS";
// print_r($freq_dtls);
$smta_domn=$smta_dtls[2];
$smta_rchs=$smta_dtls[4];
$smta_lnks=$smta_dtls[3];
$data_dtls=explode("/",$smta_rchs);
// echo "
DATA DTLS";
// print_r($data_dtls);
$data_corp=$data_dtls[2];
$base_rslt=xtrt_xxxx($data_corp,"nederlands","base",2);
foreach($base_rslt as $base_key => $base_val)
{
$base_dtls=explode("!!",$base_key);
// echo "
BASE DTLS";
// print_r($base_dtls);
$base_vgpt=$base_dtls[2];
if ($data_relt != $smta_rchs)
{
$lsmta_rchs="".substr($smta_rchs,0,64)."deze dan.. ...";
// echo "".$conv_tabl[data]." ".substr($smta_lnks,0,64)."... | ".$lsmta_rchs." |
";
// echo " | ".substr($smta_lnks,0,64)."... | ".$lsmta_rchs." |
";
// $rslt_array[$sgmt_key."!!".$smta_rchs]=$rslt_array[$sgmt_key."!!".$smta_rchs]+1;
$data_relt=$smta_rchs;
}
}
}
$smta_rslt=xtrt_xxxx($bzv1_val,"nederlands","wiki",4);
foreach($smta_rslt as $smta_key => $smta_val)
{
$smta_dtls=explode("!!",$smta_key);
// echo "
FREQ DTLS";
// print_r($freq_dtls);
$smta_domn=$smta_dtls[2];
$smta_rchs=$smta_dtls[4];
$smta_lnks=$smta_dtls[3];
if ($wiki_relt != $smta_rchs and $smta_rchs != null)
{
// echo "".$conv_tabl[wiki]." ".substr($smta_lnks,0,64)."... | ".substr($smta_rchs,0,48)."... |
";
$wiki_relt=$smta_rchs;
$rslt_array[$sgmt_key."!!".$smta_rchs]=$rslt_array[$sgmt_key."!!".$smta_rchs]+1;
}
// echo "".$smta_lnks." | ".$smta_rchs." |
";
}
$word_cntr=$word_cntr+1;
$posn_line=$posn_line.$posn_word." ";
// $long_line=$long_line." ".$bzv1_val;
// echo "
BZV1 VAL ".$bzv1_val." WORD POSN".$posn_word;
// echo "".$shrt_key." | | ".$shrt_val."
";
$data_rslt=xtrt_xxxx($bzv1_val,"nederlands","mtsw",4);
$data_cntr=count($data_rslt);
// echo "".$bzv1_val." ".$data_cntr." |
";
$gw27_rslt=xtrt_xxxx($bzv1_val,"nederlands","gw27");
// echo "
GW27 RSLT";
// print_r($gw27_rslt);
$gram_rslt=smta_tlkd($bzv1_val."@gram");
// $gram_rslt=tlkd_smts($bzv1_val);
// echo "
GRAM RSLT";
// print_r($gram_rslt);
foreach($gram_rslt as $gram_key => $gram_val)
{
// echo " GRAM KEY ".$gram_key." |
";
$gram_dtls=explode("@",$gram_key);
// echo "
GRAM DTLS ";
// print_r($gram_dtls);
foreach($gram_dtls as $dtls_key => $dtls_val)
{
$dtls_itms=explode(",",$dtls_val);
if (count($dtls_itms) > 1)
{
// echo "
DTLS ITMS ";
// print_r($dtls_itms);
}
foreach($dtls_itms as $itms_key => $itms_val)
{
$bzv1_val=trim($bzv1_val);
$itms_val=trim($itms_val);
// echo "
BZV1 VAL ".urlencode($bzv1_val)." ITMS VAL ".urlencode($itms_val);
if ($itms_val !="znw znw" or $bzv1_val != $itms_val)
{
// echo "
BZV1 VAL ".$bzv1_val." ITMS VAL ".$itms_val;
$dtls_array[$itms_val]=$dtls_array[$itms_val]+1;
}
}
}
}
$gram_text=$gram_dtls[1];
// echo "GRAM KEY ".$gram_key." GRAM TEXT ".$gram_text." |
";
// $smta_array[$tlkd_val]=$smta_array[$tlkd_val]+1;
$wrds_array[$bzv1_val]=$data_cntr;
$tlkd_rslt=smta_tlkd($bzv1_val."@scnd");
foreach($tlkd_rslt as $tlkd_key => $tlkd_val)
{
// echo " TLKD VAL ".$tlkd_val." |
";
$smta_array[$tlkd_val]=$smta_array[$tlkd_val]+1;
}
if (count($gw27_rslt) == 0)
{
$gram_array[$bzv1_val]=$gram_array[$bzv1_val]+1;
// echo " wikipedia ";
// echo "".urlencode($bzv1_val)."";
}
}
}
// echo " |
".$sgmt_key." |
";
$nd=0;
foreach($dtls_array as $dtls_key => $dtls_val)
{
$dtls_itms=explode(".",$dtls_key);
// print_r($dtls_itms);
$dtls_word=$dtls_itms[0];
$dtls_gram=$dtls_itms[1];
// echo "
DTLS GRAM".$dtls_gram;
$conv_text="";
$conv_text=$conv_tabl[$dtls_gram];
// echo "
CONV TEXT ".$conv_text." |
";
if ($conv_text == null)
{
$freq_rslt=xtrt_xxxx($dtls_word,"nederlands","freq",1);
// print_r($freq_rslt);
foreach($freq_rslt as $freq_key => $freq_val)
{
$freq_dtls=explode("!!",$freq_key);
// echo "
FREQ DTLS";
// print_r($freq_dtls);
$freq_domn=$freq_dtls[2];
$freq_rchs=$freq_dtls[3];
$freq_lnks=$freq_dtls[4];
$freq_bron=$conv_tabl[$freq_lnks];
$sfreq_rchs=str_replace(" ","+",$freq_rchs);
// echo "".$freq_bron." |
";
}
}
$dtls_taal=$dtls_itms[2];
// echo "
INVR VGPT ".$invr_vgpt;
// echo "
INVR BZKR ".$invr_bzkr;
$conv_rslt=str_replace("invraiml",$dtls_word,$conv_text);
// echo "
CONV RSLT ".$conv_rslt;
$conv_rslt=str_replace("invrvgpt",$invr_vgpt,$conv_rslt);
$conv_rslt=str_replace("invrbzkr",$invr_bzkr,$conv_rslt);
$conv_itms=explode("@ ",$conv_rslt);
// print_r($conv_itms);
echo "
";
// echo "".$mtsw_domn." ".$mtsw_rchs." |
";
$rslt_array[$sgmt_key."!!".$mtsw_rchs]=$rslt_array[$sgmt_key."!!".$mtsw_rchs]+1;
}
}
// echo "
BZV1 VAL ".$bzv1_val." SHRT LINE ".$shrt_line;
// echo "
ASTERISKS ".substr_count($shrt_line, '*');
}
}
echo "
";
print_r($tlkd_array);
///////////////////////
echo "
";
// echo "
SHRT LINE ".$shrt_line;
$shrt_rslt=bepl_sgmt($shrt_line);
// print_r($shrt_rslt);
// echo "
SHRT RSLT ".$shrt_rslt;
foreach($shrt_rslt as $shrt_key => $shrt_val)
{
$shrt_itms=explode("*",$shrt_key);
// echo "
SHRT ITMS";
// print_r($shrt_itms);
foreach($shrt_itms as $itms_key => $itms_val)
{
$itms_dtls=explode(" ",$itms_val);
// print_r($itms_dtls);
// echo "
COUNT IMS DTLS ".count($itms_dtls);
if (count($itms_dtls) == 2 )
{
$shrt_comb=$itms_dtls[0]." ".$itms_dtls[1];
$shrt_comb=trim($shrt_comb);
$zoek_sgmt="%".$shrt_comb."%";
// echo "
SHRT COMB ".$shrt_comb;
$sql = "SELECT * FROM mtsw WHERE `lnks` like '$zoek_sgmt' or `lnks`= '$shrt_comb' ";
$trefresult = mysql_query($sql, $link);
$tref_num = mysql_num_rows($trefresult);
// echo "
SQL TEXT ".$sql." Aantallen ".$tref_num." in mtsw voor ".$zoek_sgmt;
while ($row = mysql_fetch_assoc($trefresult) )
{
$lnks=$row['lnks'];
$rchs=$row['rchs'];
// echo "".$invr-bzv1." met semantische kenmerken | ".$rchs." |
";
$rslt_array[$lnks."!!".$rchs]=$rslt_array[$lnks."!!".$rchs]+1;
}
}
if (count($itms_dtls) > 2 )
{
$shrt_comb=$itms_dtls[0]." ".$itms_dtls[1]." ".$itms_dtls[2];
}
$shrt_comb=trim($shrt_comb);
$zoek_sgmt="%".$shrt_comb."%";
// echo "
SHRT COMB ".$shrt_comb;
$sql = "SELECT * FROM mtsw WHERE `lnks` like '$zoek_sgmt' or `lnks`= '$shrt_comb' ";
$trefresult = mysql_query($sql, $link);
$tref_num = mysql_num_rows($trefresult);
// echo "
SQL TEXT ".$sql." Aantallen ".$tref_num." in mtsw voor ".$zoek_sgmt;
while ($row = mysql_fetch_assoc($trefresult) )
{
$lnks=$row['lnks'];
$rchs=$row['rchs'];
// echo "".$invr-bzv1." met semantische kenmerken | ".$rchs." |
";
$rslt_array[$lnks."!!".$rchs]=$rslt_array[$lnks."!!".$rchs]+1;
}
}
}
// echo "
";
echo "
";
////////////////////////
foreach($sgmt_array as $sgmt_key => $sgmt_val)
{
$sgmt_dtls=explode("!!",$sgmt_key);
$sgmt_text=$sgmt_dtls[0];
$sgmt_smta=$sgmt_dtls[1];
if ($srelt != $sgmt_text)
{
// echo "
".$sgmt_text." | ";
$srelt=$sgmt_text;
}
// echo "".$sgmt_smta." |
";
/////////////////
arsort($tlkd_array);
// echo "
TLKD ARRAY";
// print_r($tlkd_array);
if (count($tlkd_array) > 0)
{
$tr=0;
foreach ($tlkd_array as $tlkd_key => $tlkd_val)
{
if ($tr< 4)
{
$tlkd_dtls=explode("!!",$tlkd_key);
$tlkd_sgmt=$tlkd_dtls[0];
$tlkd_sgmt=trim($tlkd_sgmt);
$tlkd_resp=$tlkd_dtls[1];
if ($tlkd_resp == $sgmt_smta)
{
// echo "
TLKD RESP ".$tlkd_resp." SGMT SMTA ".$sgmt_smta;
echo "
".$tlkd_resp."-".$tlkd_sgmt."-".$sgmt_text."-".$sgmt_smta." |
";
echo "
".$tlkd_sgmt."-".$sgmt_smta." |
";
$fnal_array[$sgmt_smta]=$fnal_array[$sgmt_smta]+1;
$tr=$tr+1;
}
}
}
}
}
$datm=date("Y-m-d H:i:s", time());
// echo "
Alle TLKD ".$datm;
echo "