i is an integer ; e is a real ; score is a real ; // piso y tope para que el score no de overflow al convertirse en pd... piso is a real initially -20; tope is a real initially 20; pd is a real; print("|\n funcion : corabilidad de Default "); // seteo valor variable e e = Math.E; // determino PD de cada integrante DEUDOR APORTANTE según el Score correspondiente (definido por la variable pesoComportamiento) if laSolicitud.solicitantes.solicitante.count is known then { for each Solicitante in laSolicitud.solicitantes.solicitante such that it.actividades.actividad.count is known do { i = it.nroSolicitante; // seteo variable score = 0; pd = 0; // calculo PD de cada DEUDOR APORTANTE if ( elSetVariablesMotor.integrantes.integrante[i].flagDeudorAportante = true and elSetVariablesMotor.integrantes.integrante[i].pesoComportamiento = 0 ) then { // uso APPLICATION SCORE (incluye Score Veraz) score = MinR2(MaxR2(elSetVariablesMotor.integrantes.integrante[i].scoreInternoApplication.resultado, piso), tope); // calculo PD ( probabilidad de default ) pd = ( 1 / ( 1 + Math.Pow(e , score))); }; else { if ( elSetVariablesMotor.integrantes.integrante[i].flagDeudorAportante = true and elSetVariablesMotor.integrantes.integrante[i].pesoComportamiento > 0 ) then { // uso BEHAVIOR SCORE (no incluye Score Veraz) score = MinR2(MaxR2(elSetVariablesMotor.integrantes.integrante[i].scoreInternoBehavior.resultado, piso), tope); // calculo PD ( probabilidad de default ) pd = ( 1 / ( 1 + Math.Pow(e , score))); }; }; // guardo PD elSetVariablesMotor.integrantes.integrante[i].probDefault = pd; }; }; // defino PD TOTAL como PD del Titular( ver comments) //SOLO BUHO BANK NO LE DEFINO PD if (laSolicitud.canalVenta = canalesVenta.CV_BUHOBANK_FULL or laSolicitud.canalVenta = canalesVenta.CV_BUHOBANK_LEADS) then {elSetVariablesMotor.integrantes.integrante[0].probDefault = 0}; elSetVariablesMotor.varIntermedias.probDefaultTotal = elSetVariablesMotor.integrantes.integrante[0].probDefault; print("");

## Install