symulacje

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

# wprowadzenie danych zadania
D=1000; S=44000; L=0.07; K=0.16
KP=0; KG=0; lsP=0; lsG=0
# symulacja dla 480 miesięcy
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)
 }
# końcowy stan kapitału Pawła i Gawła
KP
KG
# ile mieli samochodów Paweł i Gaweł
lsP
lsG