symulacje

##########################################################################################
###                                                                      Paweł i Gaweł – różne podejście do ryzyka                                                                  ###
##########################################################################################

D=1000; S=44000; L=0.07; K=0.16
KP=0; KG=0; lsP=0; lsG=0
for (i in 1:480)
{

KP=KP+KP*L/12+D; KG=KG+KG*K/12+D
if (KP>=1.2*S) {lsP=lsP+1 ; KP=KP-S}
if (KG>=0) {lsG=lsG+1 ; KG=KG-S}
print(KG); print(lsP)

}
KP
KG
lsP
lsG