Anexo I

Programa de obtención de datos estadísticos

BEGIN {
FS = "\|";
LAST_ENTRY = ""; FIRST_PRINT = 0;
TempAmbi = 1; Kambi = 0; KountHiper = 0; TempHiper = 1;
TOTAL_HIPER = 0; Kformhiper = 0; Temp_holomero = 0;
HOLO_0 = 0; HOLO_1 = 0; HOLO_2 = 0; HOLO_3 = 0;
HOLO_4 = 0; HOLO_5 = 0; HOLO_6 = 0; HOLO_7 = 0;
MERO_0 = 0; MERO_1 = 0; MERO_2 = 0; MERO_3 = 0;
MERO_4 = 0; MERO_5 = 0; MERO_6 = 0; MERO_7 = 0;
FLAG_AMBI = 0;
}
NR == 1 {for (w = 1; w <= length($1); w++) {ARRAY[w] = substr($1, w, 1); if (ARRAY[w] ~ "[-\§\ª\@\#]" || ARRAY[w] ~ "[0-9]") {} else {LAST_ENTRY = LAST_ENTRY ARRAY[w];} ARRAY[w] = ""; }}
{
#AMBIGUEDAD[Kambi] = 0; # K_(Nºentradas)
TEMP_ENTRY = "";
for (w = 1; w <= length($1); w++) {ARRAY[w] = substr($1, w, 1); if (ARRAY[w] ~ "[-\§\ª\@\#]" || ARRAY[w] ~ "[0-9]") {} else {TEMP_ENTRY = TEMP_ENTRY ARRAY[w];} ARRAY[w] = "";}
if (LAST_ENTRY ~ TEMP_ENTRY)
{
if (FLAG_AMBI == 1)
{
AMBIGUEDAD[TempAmbi - 1] = AMBIGUEDAD[TempAmbi - 1] - 1;
}
else
{
FLAG_AMBI = 1;
}
AMBIGUEDAD[TempAmbi] = AMBIGUEDAD[TempAmbi] + 1;
TempAmbi++;
if (TempAmbi > Kambi)
{
Kambi = TempAmbi;
}
}
else
{
if (FLAG_AMBI == 1)
{
FLAG_AMBI = 0;
TempAmbi = 1;
}
else
{
AMBIGUEDAD[TempAmbi] = AMBIGUEDAD[TempAmbi] + 1;
TempAmbi = 1;
}
}
#Hiperónimos: Media de hiperónimos.
#HIPERONIMOS[KountHiper] = 0 (Nºentradas);
if ($6 ~ "\@")
{
for (w = 1; w <= length($6); w++)
{
ARRAY[w] = substr($6, w, 1);
if (ARRAY[w] ~ "\@")
{
TOTAL_HIPER++;
TempHiper++;
}
ARRAY[w] = "";
}
if (TempHiper > KountHiper)
{
KountHiper = TempHiper;
}
HIPERONIMOS[TempHiper] = HIPERONIMOS[TempHiper] + 1;
TempHiper = 1;
TOTAL_HIPER++;
}
else
{
if (KountHiper < 1)
{
KountHiper = 1;
}
HIPERONIMOS[1] = HIPERONIMOS[1] + 1;
TOTAL_HIPER++;
}
#Hiperónimos: Hiperónimos más abundantes.
#FORMA_HIPER[Kformhiper] = "";
#CONT_FORMA_HIPER[Kformhiper] = 0;
TempHiperK = 1;
for (w = 1; w <= length($6); w++)
{
ARRAY[w] = substr($6, w, 1);
if (ARRAY[w] ~ "@")
{
TempHiperK++;
}
else
{
if (ARRAY[w] ~ "[-\§\ª\#]" || ARRAY[w] ~ "[0-9]")
{
printf "%s\n", ARRAY[w] > "2";
}
else
{
FHYPER[TempHiperK] = FHYPER[TempHiperK] ARRAY[w];
}
}
ARRAY[w] = "";
}
if (Kformhiper == 0)
{
Kformhiper = TempHiperK;
for (h = 1; h <= Kformhiper; h++)
{
FORMA_HIPER[h] = FHYPER[h];
CONT_FORMA_HIPER[h] = 1;
}
}
else
{
for (j = 1; j <= TempHiperK; j++)
{
for (h = 1; h <= Kformhiper; h++)
{
if (FHYPER[j] == FORMA_HIPER[h])
{
CONT_FORMA_HIPER[h] = CONT_FORMA_HIPER[h] + 1;
h = Kformhiper + 1;
}
else
{
if (h == Kformhiper)
{
NewT = h + 1;
FORMA_HIPER[NewT] = FHYPER[j];
CONT_FORMA_HIPER[NewT] = 0;
Kformhiper++;
}
}
}
FHYPER[j] = "";
}
}
for (e = 1; e <= TempHiperK; e++)
{ FHYPER[TempHiperK] = "" }
TempHiperK = 1;
#Merónimos/Holónimos: # de cada tipo (Tipo, contador)
if ($7 ~ "ho")
{
if ($7 ~ "[0]")
#HOLO_0 = 0;
{
HOLO_0 = HOLO_0 + 1;
}
if ($7 ~ "1")
#HOLO_1 = 0;
{
HOLO_1++;
}
if ($7 ~ "2")
#HOLO_2 = 0;
{
HOLO_2++;
}
if ($7 ~ "3")
#HOLO_3 = 0;
{
HOLO_3++;
}
if ($7 ~ "4")
#HOLO_4 = 0;
{
HOLO_4++;
}
if ($7 ~ "5")
#HOLO_5 = 0;
{
HOLO_5++;
}
if ($7 ~ "6")
#HOLO_6 = 0;
{
HOLO_6++;
}
if ($7 ~ "abs")
#HOLO_7 = 0;
{
HOLO_7++;
}
}
if ($9 ~ "ho")
{
if ($9 ~ "0")
#HOLO_0 = 0;
{
HOLO_0++;
}
if ($9 ~ "1")
#HOLO_1 = 0;
{
HOLO_1++;
}
if ($9 ~ "2")
#HOLO_2 = 0;
{
HOLO_2++;
}
if ($9 ~ "3")
#HOLO_3 = 0;
{
HOLO_3++;
}
if ($9 ~ "4")
#HOLO_4 = 0;
{
HOLO_4++;
}
if ($9 ~ "5")
#HOLO_5 = 0;
{
HOLO_5++;
}
if ($9 ~ "6")
#HOLO_6 = 0;
{
HOLO_6++;
}
if ($9 ~ "abs")
#HOLO_7 = 0;
{
HOLO_7++;
}
}
if ($11 ~ "ho")
{
if ($11 ~ "0")
#HOLO_0 = 0;
{
HOLO_0++;
}
if ($11 ~ "1")
#HOLO_1 = 0;
{
HOLO_1++;
}
if ($11 ~ "2")
#HOLO_2 = 0;
{
HOLO_2++;
}
if ($11 ~ "3")
#HOLO_3 = 0;
{
HOLO_3++;
}
if ($11 ~ "4")
#HOLO_4 = 0;
{
HOLO_4++;
}
if ($11 ~ "5")
#HOLO_5 = 0;
{
HOLO_5++;
}
if ($11 ~ "6")
#HOLO_6 = 0;
{
HOLO_6++;
}
if ($11 ~ "abs")
#HOLO_7 = 0;
{
HOLO_7++;
}
}
if ($7 ~ "me")
{
if ($7 ~ "0")
#MERO_0 = 0;
{
MERO_0++;
}
if ($7 ~ "1")
#MERO_1 = 0;
{
MERO_1++;
}
if ($7 ~ "2")
#MERO_2 = 0;
{
MERO_2++;
}
if ($7 ~ "3")
#MERO_3 = 0;
{
MERO_3++;
}
if ($7 ~ "4")
#MERO_4 = 0;
{
MERO_4++;
}
if ($7 ~ "5")
#MERO_5 = 0;
{
MERO_5++;
}
if ($7 ~ "6")
#MERO_6 = 0;
{
MERO_6++;
}
if ($7 ~ "abs")
#MERO_7 = 0;
{
MERO_7++;
}
}
if ($9 ~ "me")
{
if ($9 ~ "0")
#MERO_0 = 0;
{
MERO_0++;
}
if ($9 ~ "1")
#MERO_1 = 0;
{
MERO_1++;
}
if ($9 ~ "2")
#MERO_2 = 0;
{
MERO_2++;
}
if ($9 ~ "3")
#MERO_3 = 0;
{
MERO_3++;
}
if ($9 ~ "4")
#MERO_4 = 0;
{
MERO_4++;
}
if ($9 ~ "5")
#MERO_5 = 0;
{
MERO_5++;
}
if ($9 ~ "6")
#MERO_6 = 0;
{
MERO_6++;
}
if ($9 ~ "abs")
#MERO_7 = 0;
{
MERO_7++;
}
}
if ($11 ~ "me")
{
if ($11 ~ "0")
#MERO_0 = 0;
{
MERO_0++;
}
if ($11 ~ "1")
#MERO_1 = 0;
{
MERO_1++;
}
if ($11 ~ "2")
#MERO_2 = 0;
{
MERO_2++;
}
if ($11 ~ "3")
#MERO_3 = 0;
{
MERO_3++;
}
if ($11 ~ "4")
#MERO_4 = 0;
{
MERO_4++;
}
if ($11 ~ "5")
#MERO_5 = 0;
{
MERO_5++;
}
if ($11 ~ "6")
#MERO_6 = 0;
{
MERO_6++;
}
if ($11 ~ "abs")
#MERO_7 = 0;
{
MERO_7++;
}
}
#Merónimos/Holónimos: # media de merónimos/entrada (Entranda, #)
#Merónimos/Holónimos: # media de holónimos/entrada (Entranda, #)
#Merónimos/Holónimos: # total de merónimos (Contador)
#Merónimos/Holónimos: # total de holónimos (Contador)
#TODO_HOLO
#TODO_MERO
if ($7 ~ "ho" || $7 ~ "me")
{
for (w = 1; w <= length($8); w++)
{
ARRAY[w] = substr($8, w, 1);
if (ARRAY[w] ~ "@")
{
if ($7 ~ "ho")
{
TODO_HOLO++;
Temp_holomero++;
}
else
{
if ($7 ~ "me")
{
TODO_MERO++;
Temp_holomero++;
}
}
}
else
{
if (w == length($8))
{
if ($7 ~ "ho")
{
TODO_HOLO++;
Temp_holomero++;
}
else
{
if ($7 ~ "me")
{
TODO_MERO++;
Temp_holomero++;
}
}
}
}
ARRAY[w] = "";
}
}
if ($9 ~ "ho" || $9 ~ "me")
{
for (w = 1; w <= length($10); w++)
{
ARRAY[w] = substr($10, w, 1);
if (ARRAY[w] ~ "@")
{
if ($9 ~ "ho")
{
TODO_HOLO++;
Temp_holomero++;
}
else
{
if ($9 ~ "me")
{
TODO_MERO++;
Temp_holomero++;
}
}
}
else
{
if (w == length($10))
{
if ($9 ~ "ho")
{
TODO_HOLO++;
Temp_holomero++;
}
else
{
if ($9 ~ "me")
{
TODO_MERO++;
Temp_holomero++;
}
}
}
}
ARRAY[w] = "";
}
}
if ($11 ~ "ho" || $11 ~ "me")
{
for (w = 1; w <= length($12); w++)
{
ARRAY[w] = substr($12, w, 1);
if (ARRAY[w] ~ "@")
{
if ($11 ~ "ho")
{
TODO_HOLO++;
Temp_holomero++;
}
else
{
if ($11 ~ "me")
{
TODO_MERO++;
Temp_holomero++;
}
}
}
else
{
if (w == length($12))
{
if ($11 ~ "ho")
{
TODO_HOLO++;
Temp_holomero++;
}
else
{
if ($11 ~ "me")
{
TODO_MERO++;
Temp_holomero++;
}
}
}
}
ARRAY[w] = "";
}
}
#HOLOMERONIMOS[Kholo] = 0 (Nºentradas);
if (Kholomero < Temp_holomero)
{
Kholomero = Temp_holomero;
HOLOMERONIMOS[Kholomero] = 0;
}
HOLOMERONIMOS[Temp_holomero] = HOLOMERONIMOS[Temp_holomero] + 1;
Temp_holomero = 0;
#Merónimos/Holónimos: Combinaciones (Combinación, contador)
Tcom = 0;
for (f = 0; f <= 7; f++)
{
TIP[f] = 0;
}
if ($7 ~ "0" || $9 ~ "0" || $11 ~ "0")
{TIP[0] = TIP[0] + 1; Tcom++}
if ($7 ~ "1" || $9 ~ "1" || $11 ~ "1")
{TIP[1] = TIP[1] + 1; Tcom++}
if ($7 ~ "2" || $9 ~ "2" || $11 ~ "2")
{TIP[2] = TIP[2] + 1; Tcom++}
if ($7 ~ "3" || $9 ~ "3" || $11 ~ "3")
{TIP[3] = TIP[3] + 1; Tcom++}
if ($7 ~ "4" || $9 ~ "4" || $11 ~ "4")
{TIP[4] = TIP[4] + 1; Tcom++}
if ($7 ~ "5" || $9 ~ "5" || $11 ~ "5")
{TIP[5] = TIP[5] + 1; Tcom++}
if ($7 ~ "6" || $9 ~ "6" || $11 ~ "6")
{TIP[6] = TIP[6] + 1; Tcom++}
if ($7 ~ "abs" || $9 ~ "abs" || $11 ~ "abs")
{TIP[7] = TIP[7] + 1; Tcom++}
#COMBI[C_1, C_2, C_3, C4]
if (Tcom == 1)
{
for (y = 0; y <= 7; y++)
{
if (TIP[y] >= 1)
{
COMBI1[y]++; # = COMBI1[y] + 1;
}
}
}
else
{
if (Tcom == 2)
{
for (y = 0; y <= 7; y++)
{
for (h = 0; h <= 7; h++)
{
if (TIP[y] >= 1 && TIP[h] >= 1)
{
COMBI2[y, h]++; # COMBI2[y, h] + 1;
}
}
}
}
else
{
if (Tcom == 3)
{
for (y = 0; y <= 7; y++)
{
for (h = 0; h <= 7; h++)
{
for (w = 0; w <= 7; w++)
{
if (TIP[y] >= 1 && TIP[h] >= 1 && TIP[w] >= 1 )
{
COMBI3[y, h, w]++; # COMBI3[y, h, w] + 1;
}
}
}
}
}
else
{
if (Tcom == 4)
{
for (y = 0; y <= 7; y++)
{
for (h = 0; h <= 7; h++)
{
for (w = 0; w <= 7; w++)
{
for (l = 0; l <= 7; l++)
{
if (TIP[y] >= 1 && TIP[h] >= 1 && TIP[w] >= 1 && TIP[l] >= 1 )
{
COMBI4[y, h, w, l]++; # COMBI4[y, h, w, l] + 1;
printf "Combinación %d,%d,%d,%d: %d\n", tD_1, tD_2, tD_3, tD_4, COMBI4[D_1, D_2, D_3, D_4] ;
}
}
}
}
}
}
else
{
printf "No se, %d", NR > "2";
}
}
}
}
Tcom = 0;
h = 0;
w = 0;
l = 0;
y = 0;
#Ultimas acciones
for (w = 1; w <= length($1); w++) {ARRAY[w] = substr($1, w, 1); if (ARRAY[w] !~ "[-\§\ª\@\#]" || ARRAY[w] ~ "[0-9]") {} else {TEMP_ENTRY = TEMP_ENTRY ARRAY[w];} ARRAY[w] = "";}
LAST_ENTRY = TEMP_ENTRY;
}
END {
# IMPRIMIR
for (n = 1; n <= Kambi; n++)
{
printf "Ambigüedad, %d, %d\n", n, AMBIGUEDAD[n];
AMBIGUEDAD[n] = 0;
}
for (n = 1; n <= KountHiper; n++)
{
printf "Hiperónimos, %d, %d\n", n, HIPERONIMOS[n];
}
printf "Total Hiperónimos, %d\n", TOTAL_HIPER;
for (n = 1; n <= Kformhiper; n++)
{
printf "Forma Hiperónimo, %s\n", FORMA_HIPER[n];
printf "Contador Forma Hiperónimo, %d\n", CONT_FORMA_HIPER[n];
}
printf "HOLO_0, %d\n", HOLO_0;
printf "HOLO_1, %d\n", HOLO_1;
printf "HOLO_2, %d\n", HOLO_2;
printf "HOLO_3, %d\n", HOLO_3;
printf "HOLO_4, %d\n", HOLO_4;
printf "HOLO_5, %d\n", HOLO_5;
printf "HOLO_6, %d\n", HOLO_6;
printf "HOLO_7, %d\n", HOLO_7;
printf "MERO_0, %d\n", MERO_0;
printf "MERO_1, %d\n", MERO_1;
printf "MERO_2, %d\n", MERO_2;
printf "MERO_3, %d\n", MERO_3;
printf "MERO_4, %d\n", MERO_4;
printf "MERO_5, %d\n", MERO_5;
printf "MERO_6, %d\n", MERO_6;
printf "MERO_7, %d\n", MERO_7;
printf "TODO_HOLO, %d\n", TODO_HOLO;
printf "TODO_MERO, %d\n", TODO_MERO;
for (n = 1; n <= Kholomero; n++)
{
if (HOLOMERONIMOS[n] >= 1)
{
printf "Núm. de Holónimos/Merónimos por entrada, %d, %d\n", n, HOLOMERONIMOS[n];
}
}
for (tA = 0; tA <= 7; tA++)
{
if (COMBI1[tA] >= 1)
{
printf "Combinación %d: %d\n", tA, COMBI1[tA];
}
}
for (tB_1 = 0; tB_1 <= 7; tB_1++)
{
for (tD_2 = 0; tD_2 <= 7; tD_2++)
{
if (COMBI2[tB_1, tD_2] >= 1)
{
printf "Combinación %d,%d: %d\n", tB_1, tD_2, COMBI2[tB_1, tD_2];
}
}
}
for (tC_1 = 0; tC_1 <= 7; tC_1++)
{
for (tC_2 = 0; tC_2 <= 7; tC_2++)
{
for (tC_3 = 0; tC_3 <= 7; tC_3++)
{
if (COMBI3[tC_1, tC_2, tC_3] >= 1)
{
printf "Combinación %d,%d,%d: %d\n", tC_1, tC_2, tC_3, COMBI3[tC_1, tC_2, tC_3];
}
}
}
}
for (tD_1 = 0; tD_1 <= 7; tD_1++)
{
for (tD_2 = 0; tD_2 <= 7; tD_2++)
{
for (tD_3 = 0; tD_3 <= 7; tD_3++)
{
for (tD_4 = 0; tD_4 <= 7; tD_4++)
{
if (COMBI4[tD_1, tD_2, tD_3, tD_4] >= 1)
{
printf "Combinación %d,%d,%d,%d: %d\n", tD_1, tD_2, tD_3, tD_4, COMBI4[D_1, D_2, D_3, D_4] ;
COMBI1[y] = 0;
COMBI2[y, h] = 0;
COMBI3[y, h, w] = 0;
COMBI4[y, h, w, l] = 0;
}
}
}
}
}
}

Anterior  I  Siguiente  I  Índice General