Comment rajouter une nouvelle Condition calcul en boucles?

Postez ici vos questions, réponses, commentaires ou suggestions - Les sujets seront ultérieurement répartis dans les archives par les modérateurs

Modérateur : Groupe des modérateurs

Abdel Bessaad
Messages : 3
Enregistré le : 18 Jan 2021, 13:54

Comment rajouter une nouvelle Condition calcul en boucles?

Messagepar Abdel Bessaad » 20 Jan 2021, 17:07

NB: je suis nouveau dans ce monde :)
Bonjour,
Je souhaite faire des calculs économique sur une échelle de temps de 300 ans. J'ai fait un petit test pour calculer la valeur actualisée net de mon investissement (ici plantation forestière).
La méthode : calculer la van (npv) pour chaque année s'il y'a coupe pour des rotations de 15 ans. Après chaque rotation (n+1) il va falloir prendre la nouvelle valeur npv0 et non pas la précédente npv ex: année 16, 31, 46...etc, puis faire le caulcul ci-dessous durant les rotations de 15 ans.
Pourriez-vous m'aider à résoudre ce problème qui me bloque depuis un moment ?
En vous remerciant par avance,

time<-c(0:300)
growth<-c(0,0,0,0,20,37,58,83,116,151,182,203,215,224,231,236,0,0,0,20,37,58,83,116,151,182,203,215,224,231,236,0,0,0,20,37,58,83,116,151,182,203,215,224,231,236,0,0,0,20,37,58,83,116,151,182,203,215,224,231,236,0,0,0,20,37,58,83,116,151,182,203,215,224,231,236,0,0,0,20,37,58,83,116,151,182,203,215,224,231,236,0,0,0,20,37,58,83,116,151,182,203,215,224,231,236,0,0,0,20,37,58,83,116,151,182,203,215,224,231,236,0,0,0,20,37,58,83,116,151,182,203,215,224,231,236,0,0,0,20,37,58,83,116,151,182,203,215,224,231,236,0,0,0,20,37,58,83,116,151,182,203,215,224,231,236,0,0,0,20,37,58,83,116,151,182,203,215,224,231,236,0,0,0,20,37,58,83,116,151,182,203,215,224,231,236,0,0,0,20,37,58,83,116,151,182,203,215,224,231,236,0,0,0,20,37,58,83,116,151,182,203,215,224,231,236,0,0,0,20,37,58,83,116,151,182,203,215,224,231,236,0,0,0,20,37,58,83,116,151,182,203,215,224,231,236,0,0,0,20,37,58,83,116,151,182,203,215,224,231,236,0,0,0,20,37,58,83,116,151,182,203,215,224,231,236,0,0,0,20,37,58,83,116,151,182,203,215,224,231,236)
price<-c(66)
i<-c(0.02)
costs <- vector("integer", 300)
costs[time %% 45 ==0] <- 1800
i_rate<-1/(1+i)^time
i_coeff<-1/(1+i)^time

npv <- vector("double", length(time))

for(i in time){
index = i + 1
if(i == 0){
npv[index] <- -costs[index]
}else{
npv[index] <- i_rate[index] * (npv[index-1] + price*(growth[index] -growth[index-1]))
}
}

View(npv)

Retourner vers « Questions en cours »

Qui est en ligne

Utilisateurs parcourant ce forum : Google [Bot] et 1 invité