symulacje

##########################################################################################
###                                               Paweł i Gaweł – różne podejście do ryzyka (wariant 2)                                                  ###
##########################################################################################

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

KP=KP+KP*L/12+D; KG=KG-abs(KG)*K/12+D
lmP=lmP+1; lmG=lmG+1
if ((KP>=1.2*S && (lmP>48 || i<=48)) || lmP>72)

{ lsP=lsP+1 ; KP=KP-S; lmP=0}

if ((KG>=0 && (lmG>48 || i<=48)) || lmG>72)

{ lsG=lsG+1 ; KG=KG-S; lmG=0}

print(i)
print(KP); print(lsP)
print(KG); print(lsG)

}
KP
KG
lsP
lsG