| CALC_SALARIO_LIQUIDO |
#IF HORAS_MES 1.0 <
"HORAS_MES" 220.0 @GUARDA_VARIAVEL
#END_IF
#IF SALARIO_BASE 1200.0 <
"SALARIO_BASE" 1200.0 @GUARDA_VARIAVEL
#END_IF
"SALARIO_LIQUIDO" SALARIO_BASE 220 / HORAS_MES * @GUARDA_VARIAVEL
SALARIO_LIQUIDO
|
| CALCULA_PRESENTE |
PRESTACAO 1 JUROS 100 / 1 + PERIODO -1 * ^ - * JUROS 100 / / FUTURO 1 JUROS 100 / + PERIODO -1 * ^ * + ; "PRESENTE" ; @GUARDA_VARIAVEL
PRESENTE
|
| CALCULA_JUROS |
#IF PRESTACAO @FABS 0.001 <
FUTURO PRESENTE / PERIODO @RAIZN 1 - 100 * "JUROS" @GUARDA_VARIAVEL
#ELSE
"PREST" PRESTACAO -1 * @GUARDA_VARIAVEL
"FUT" FUTURO -1 * @GUARDA_VARIAVEL
"RCL0" FUT @FABS PREST PERIODO * PRESENTE + @FABS - PREST PERIODO * FUT + @FABS PRESENTE @FABS - * @GUARDA_VARIAVEL
"RCL9" RCL0 RCL0 @FABS / 0.000000001 * @GUARDA_VARIAVEL
"RCLZ" 0.00002 @GUARDA_VARIAVEL
#WHILE 0.0000001 RCLZ @FABS <=
"RCL7" RCL9 1 + @GUARDA_VARIAVEL
"RCL8" RCL7 PERIODO -1 * ^ @GUARDA_VARIAVEL
"RCL6" RCL8 RCL7 / PERIODO * @GUARDA_VARIAVEL
"RCLZ" PREST 1 RCL8 - * RCL9 / PRESENTE + FUT RCL8 * + RCL6 1 RCL8 - RCL9 / - PREST RCL9 / * FUT RCL6 * - / @GUARDA_VARIAVEL
"RCL9" RCL9 RCLZ - @GUARDA_VARIAVEL
#END_WHILE
RCL9 100 * "JUROS" @GUARDA_VARIAVEL
#END_IF
JUROS
|
| CALCULA_PRESTACAO |
JUROS 100 / 1 JUROS 100 / 1 + PERIODO -1 * ^ - / PRESENTE FUTURO 1 JUROS 100 / + PERIODO -1 * ^ * - * ; "PRESTACAO" ; @GUARDA_VARIAVEL
PRESTACAO
|
| CALCULA_PERIODO |
PRESTACAO JUROS 100 / / FUTURO - PRESTACAO JUROS 100 / / PRESENTE - / @LOG JUROS 100 / 1 + @LOG / ; "PERIODO" ; @GUARDA_VARIAVEL
PERIODO
|
| CALCULA_FUTURO |
PRESTACAO 1 JUROS 100 / 1 + PERIODO -1 * ^ - * JUROS 100 / / PRESENTE - 1 JUROS 100 / + PERIODO -1 * ^ / -1 * ; "FUTURO" ; @GUARDA_VARIAVEL
FUTURO
|