exec('find_priority.sci',-1)


//--------------------- MATRICES DE COMPARACIONES 1 A 1 ---------------------//

// El orden es:
//      UTEC PUCP UPN UNI
// UTEC
// PUCP
// UPN
// UNI

coste_pension = [1 1/3 1/5 1/7
3 1 1/4 1/8
5 4 1 1/3
7 8 3 1]

coste_movilidad = [1 5 5 1/7
1/5 1 1/4 1/8
1/5 4 1 1/3
7 8 3 1]

tiempo_de_viaje = [1 1/3 1/3 1/9
3 1 1/2 1/9
3 2 1 1
9 9 8 1]

dificultad_admision = [1 3 1/5 7
1/3 1 1/5 4
5 5 1 9
1/7 1/4 1/9 1]

dificultad_educacion = [1 3 5 1/7
1/3 1 7 1/5
1/5 1/7 1 1/9
7 5 9 1]


// El orden es:
//           movilidad   pensión
// movilidad
// pensión
subcriterios_costo = [1 1/7
7 1]


// El orden es:
//          admisión   educación
//  admisión
// educación
subcriterios_dificultad = [1 1/3
3 1]


// El orden es:
//                 costo   dificultad   tiempo_de_viaje
//           costo
//      dificultad
// tiempo_de_viaje
criterios_prioridad_final = [1 1 8
1 1 5
1/8 1/5 1]


//---------------------- CÁLCULO DE PRIORIDADES RELATIVAS -------------------//

// El orden es:
// UTEC
// PUCP
// UPN
// UNI

temp = find_priority(coste_pension)
UTEC_coste_pension = temp(1, 1)
PUCP_coste_pension = temp(2, 1)
UPN_coste_pension = temp(3, 1)
UNI_coste_pension = temp(4, 1)

temp = find_priority(coste_movilidad)
UTEC_coste_movilidad = temp(1, 1)
PUCP_coste_movilidad = temp(2, 1)
UPN_coste_movilidad = temp(3, 1)
UNI_coste_movilidad = temp(4, 1)

temp = find_priority(tiempo_de_viaje)
UTEC_tiempo_de_viaje = temp(1, 1)
PUCP_tiempo_de_viaje = temp(2, 1)
UPN_tiempo_de_viaje = temp(3, 1)
UNI_tiempo_de_viaje = temp(4, 1)

temp = find_priority(dificultad_admision)
UTEC_dificultad_admision = temp(1, 1)
PUCP_dificultad_admision = temp(2, 1)
UPN_dificultad_admision = temp(3, 1)
UNI_dificultad_admision = temp(4, 1)

temp = find_priority(dificultad_educacion)
UTEC_dificultad_educacion = temp(1, 1)
PUCP_dificultad_educacion = temp(2, 1)
UPN_dificultad_educacion = temp(3, 1)
UNI_dificultad_educacion = temp(4, 1)

temp = find_priority(subcriterios_costo)
coste_movilidad = temp(1, 1)
coste_pension = temp(2, 1)

temp = find_priority(subcriterios_dificultad)
dificultad_admision = temp(1, 1)
dificultad_educacion = temp(2, 1)

temp = find_priority(criterios_prioridad_final)
final_costo = temp(1, 1)
final_dificultad = temp(2, 1)
final_tiempo_de_viaje = temp(3, 1)


//----------------------- CÁLCULO DE PRIORIDADES FINALES --------------------//

final_UTEC = UTEC_coste_pension * coste_pension * final_costo + ..
             UTEC_coste_movilidad * coste_movilidad * final_costo + ..
             UTEC_dificultad_admision * dificultad_admision * final_dificultad + ..
             UTEC_dificultad_educacion * dificultad_educacion * final_dificultad + ..
             UTEC_tiempo_de_viaje * final_tiempo_de_viaje

final_PUCP = PUCP_coste_pension * coste_pension * final_costo + ..
             PUCP_coste_movilidad * coste_movilidad * final_costo + ..
             PUCP_dificultad_admision * dificultad_admision * final_dificultad + ..
             PUCP_dificultad_educacion * dificultad_educacion * final_dificultad + ..
             PUCP_tiempo_de_viaje * final_tiempo_de_viaje

final_UPN = UPN_coste_pension * coste_pension * final_costo + ..
            UPN_coste_movilidad * coste_movilidad * final_costo + ..
            UPN_dificultad_admision * dificultad_admision * final_dificultad + ..
            UPN_dificultad_educacion * dificultad_educacion * final_dificultad + ..
            UPN_tiempo_de_viaje * final_tiempo_de_viaje

final_UNI = UNI_coste_pension * coste_pension * final_costo + ..
            UNI_coste_movilidad * coste_movilidad * final_costo + ..
            UNI_dificultad_admision * dificultad_admision * final_dificultad + ..
            UNI_dificultad_educacion * dificultad_educacion * final_dificultad + ..
            UNI_tiempo_de_viaje * final_tiempo_de_viaje


//------------------------ IMPRIMIR PRIORIDADES FINALES ---------------------//

disp("Prioridades:")
disp("UTEC: ", final_UTEC)
disp("PUCP: ", final_PUCP)
disp("UPN: ", final_UPN)
disp("UNI: ", final_UNI)