/**
* Aplicación del Análisis de Sobrevivencia al estudio del tiempo requerido para graduarse en educación superior: el caso costarricense.
* Universidad de Costa Rica.
* Investigadores: Eugenia Gallardo Allen; Mauricio Molina Delgado; Rebeca Cordero Cantillo.
* Programador: Freiser Jiménez Corrales (freiser.jimenezcorrales@ucr.ac.cr).
* (C) Copirigth 2013, Semanario Universidad, Universidad de Costa Rica, todos los derechos reservados.
*/

// devuelve el valor del formulario del colegio seleccionado
function getColegio(){
var colegios = document.getElementsByName("colegio");
var elColegio = 0;
for(i=0; iif(colegios[i].checked){
elColegio = colegios[i];
}
}
return elColegio.value;
} // fin getColegio

// devuelve el valor del formulario de la beca seleccionado
function getBeca(){
var becas = document.getElementsByName("beca");
var laBeca = 0;
for(i=0; iif(becas[i].checked){
laBeca = becas[i];
}
}
return laBeca.value;
} // fin getBeca

// retorna verdadero en caso de que el dato no sea vacío y falso en caso contrario
function vacio(valor){
if(!valor || valor === '' || valor === undefined || valor === null){
return true;
}else{
return false;
}
} // fin vacio

// retorna verdadero si el valor es un número y falso si no
function esNumero(valor){
var decimalRegex = /^\-?[0-9]*\.?[0-9]+$/; // expresion regular numeros
if (decimalRegex.test(valor)){
return true;
}else{
return false;
}
} // fin esNumero

// retorna la nota de admisión [400, 800] introducida
function getNotaAdmision(){
var res = 0;
var error = "";
var entrada = document.getElementsByName("nota")[0].value;

// verificar que se ingresó algún dato
if( !vacio(entrada) ){
// verificar que la entrada sea un numero
if (esNumero(entrada)) {
// verificar que sea un número dentro del rango [4.0, 8.0]
entrada = parseFloat( entrada );
if( (entrada >= 400.0) && (entrada <= 800.0) ){
res = entrada;
}else{
error = " Solo se permiten números entre 400 y 800";
}
}else{
error = " Solo se permite el ingreso de números decimales (separados por un punto)";
}
}else{
error = " Debe ingresar un número";
}

// imprimir errores
if(error != ""){
document.getElementById('errores').style.backgroundColor="#00f4fd";
document.getElementById('errores').innerHTML = "Error: " + error;
document.getElementsByName("nota")[0].style.backgroundColor="#00f4fd";
}else{
// borrar errores
document.getElementById('errores').style.backgroundColor="#FFFFFF";
document.getElementById('errores').innerHTML = "";
document.getElementsByName("nota")[0].style.backgroundColor="#FFFFFF";
}
return res;
} // fin getNotaAdmision

// retorna el valor del sexo seleccionado en el formulario
function getValSexo(){
var sexos = document.getElementsByName("sexo");
var elSexo = 0;
for(i=0; iif(sexos[i].checked){
elSexo = sexos[i];
}
}
return elSexo.value;
} // fin getValSexo

// calcular y retornar la probabilidad de la sede central rodrigo fácio
function proba_facio(colegio, beca, admision, sexo){
var suma = Math.exp( (-0.106*colegio) + (0.435*beca) + (0.509*admision) + (-0.552*sexo) );
var sobrevivencia = Math.pow( 0.913, suma);
return 1-sobrevivencia;
} // fin proba_facio

// calcular y retornar la probabilidad de las sedes
function proba_sedes(colegio, beca, admision, sexo){
var suma = Math.exp( (0*colegio) + (0.48*beca) + (0.343*admision) + (-0.555*sexo) );
var sobrevivencia = Math.pow( 0.805, suma);
return 1-sobrevivencia;
} // fin proba_sedes

// calcula la probabilidad si la tecla presionada es "enter
function tecla_enter(e) {
if (e.keyCode == 13) {
calcular_probabilidad();
}
} // fin tecla_enter

// calcula la probabilidad con respecto a la nota de rango 100
function desFoco(){
calcular_probabilidad();
} // fin desFoco

// calcular la probabilidad de cada área según los datos suministrados
function calcular_probabilidad(){
var colegio = parseInt( getColegio() );
var beca = parseInt( getBeca() );
var admision = getNotaAdmision();
var sexo = parseInt( getValSexo() );

var nota = admision/100; // convertir la entrada [400.0, 800.0] en formato [4.0, 8.0]

var probaFacio = proba_facio(colegio, beca, nota, sexo); // probabilidad de la sede central
var probaSedes = proba_sedes(colegio, beca, nota, sexo); // probabilidad de las sedes regionales

// calcular porcentajes
var porcentFacio = probaFacio*100;
var porcentSedes = probaSedes*100;

// imprimir los porcentajes en los campos de los resultados
document.getElementsByName("res_facio")[0].value = porcentFacio.toPrecision(4) + "%";
document.getElementsByName("res_sedes")[0].value = porcentSedes.toPrecision(4) + "%";

// asignar como títulos las probabilidades a cada resultado
document.getElementsByName("res_facio")[0].title = probaFacio.toPrecision(4);
document.getElementsByName("res_sedes")[0].title = probaSedes.toPrecision(4);

} // fin calcular_probabilidad

// ventana creditos
function ventana_como() {
window.open( "/graduacion/como.html", "Cómo se hizo este análisis", "status=1, height=300, width=300, resizable=0, scrollbars" );
}
// ventana como
function ventana_creditos() {
window.open( "/graduacion/creditos.html", "Créditos", "status=1, height=300, width=300, resizable=0, scrollbars" );
}

calcular_probabilidad();

h1 { font-family: Arial; color: #00f4fd;}
#nom_var { font-style:normal; font-family: Arial; color: #FFFFFF; font-weight:bold; font-size: 20px;}
#form_datos {background-image:url('/graduacion/images/celda2.png'); background-repeat:no-repeat; background-size:100% 100%; background-position:center; font-family: Arial;}
#texto { font-style:normal; font-family: Arial; color: #00f4fd; }
#nombre_area { font-style:normal; font-family: Arial; color: #00f4fd; }
#nom_res_areas { font-family: Arial; color: #bcbcbc;}
#texto_creditos {font-style:italic; font-family: Arial; color: #7f7f7f;}
table { background-image:url('/graduacion/images/bg2.png'); background-position:right top;}
#input_nota { background-color:#FFFFFF ; font-family: MS Gothic; font-size: 35px;}
#output_form { background-color:#FFFFFF ; font-family: MS Gothic; font-size: 50px; font-weight:bold; }
#errores { font-family: Arial; color: solid gray; }

Tiempos de graduación para carreras de
bachillerato en UCR

En la UCR de cada 100 estudiantes solamente 12 se graduarían de
bachillerato, en cinco años o menos. No obstante si se conocen otras
características como tipo de colegio, sexo, nota de admisión y
tenencia de beca socioeconómica, se podría precisar más las
oportunidades para una persona con estas particularidades.
A continuación, ingrese sus datos y estime sus probabilidades de
graduación de bachillerato en cinco años o menos.

Colegio
Sexo
Nota admisión
Beca

Público
No público

Masculino
Femenino

Sí
No

 

Sede Central:
Sedes Regionales:

 

Al ver su resultado, tome en cuenta que las
probabilidades pueden variar según características individuales de cada
estudiante, que no están contempladas en el cálculo del estudio y de
esta aplicación.

 

 |  Cómo se hizo
este análisis  |
  Créditos  |