em

Script – Como Calcular a Redução de Prazo de Financiamento na Tabela Price Após Amortização Extra

A explicação do script a seguir está no artigo Como Calcular a Redução de Prazo de Financiamento na Tabela Price Após Amortização Extra

options(digits=10)
PV=120000.00          #valor do emprestimo
i=(1.07)^(1/12)-1     #convertendo taxa anual para mensal
n=120                 #tempo em meses
npa=6                 #amortizacao extra a partir da 6a parcela
Vamort=20000.00       #Valor da amortizacao extra
Juros=c(rep(0,n))     #inicializacao do vetor de juros
Amort=c(rep(0,n))     #inicializacao do vetor de amortizacao
Saldo=c(rep(0,n))     #inicializacao do vetor do saldo devedor
#calculo do PMT
PMT=round(PV*(1+i)^n*i/((1+i)^n-1),2)
PMT
Juros[1]=PV*i
Amort[1]=PMT-Juros[1]
Saldo[1]=PV-Amort[1]
for (j in 2:n){
  Juros[j]=i*Saldo[j-1]
  Amort[j]=PMT-Juros[j]
  Saldo[j]=Saldo[j-1]-Amort[j]
}
Price=cbind(Juros,Amort,Saldo)
round(Price,2)
#amortizacao extra apos o pagamento da npa parcela
PV=Saldo[npa-1]-Vamort  #saldo devedor referente a (npa-1)a parcela
R=PMT/PV
n1=ceiling(log(R/(R-i))/log(1+i))
n1
#proxima prestacao apos amortizacao
PMT=round(PV*(1+i)^n1*i/((1+i)^n1-1),2)
print(c(PV,PMT))
j1=n-n1+1
j1
#zera os vetores entre npa e (j1-1)
for (j in npa:(j1-1)){
  Juros[j]=0
  Amort[j]=0
  Saldo[j]=0
}
Juros[j1]=PV*i
Amort[j1]=PMT-Juros[j1]
Saldo[j1]=PV-Amort[j1]
for (j in (j1+1):n){
  Juros[j]=i*Saldo[j-1]
  Amort[j]=PMT-Juros[j]
  Saldo[j]=Saldo[j-1]-Amort[j]
}
Price=cbind(Juros,Amort,Saldo)
round((Price),2)
Jorge Kazuo Yamamoto

Escrito por Jorge Kazuo Yamamoto

Prof. Dr. Jorge Kazuo Yamamoto, fundador da Geokrigagem, é geólogo, foi pesquisador do IPT e docente do Instituto de Geociências da USP, onde se aposentou como Professor Titular do Departamento de Geologia Sedimentar e Ambiental. Atualmente, atua como Professor Sênior do Departamento de Engenharia de Minas e de Petróleo – Escola Politécnica – USP. É responsável pela disciplina “Métodos geoestatísticos” na Pós-Graduação do IPT – Investigação do subsolo: Geotecnia e Meio Ambiente. Dedica-se ao ensino de geoestatística, com ênfase no desenvolvimento de algoritmos e pesquisa de novas aplicações, tais como: variância de interpolação, cálculo da variância global de depósitos minerais e correção do efeito de suavização da krigagem. Ultimamente, seu interesse está voltado para o ensino e divulgação da linguagem R.

Deixe uma resposta

O seu endereço de e-mail não será publicado. Campos obrigatórios são marcados com *

Script – Como Calcular a Tabela Price Em R

Script – Como fazer Interpolação de Dados Geoespaciais e sua Representação Em Mapa usando a Linguagem R