symulacje

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

# wprowadzenie danych zadania
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)
 }
# końcowy stan kapitału Pawła i Gawła
KP
KG
# ile mieli samochodów Paweł i Gaweł
lsP
lsG