*A2 a)
* Würfel 1 ist gleich dem Würfel 2 aus A1 b)
clear
set obs 100000
set seed 1234
gen u1 = uniform()
gen w1 = int(1+4*u1)
replace w1 = 1 if w1 == 2
set seed 2345
gen u2 = uniform()
gen w2 = 1*(u2<0.75) + 6*(0.75<=u2)
gen a1 = w1 + w2
tabulate a1
*A2 b)
set seed 3456
gen u3 = uniform()
gen w3 = int(1+4*u3)
replace w3 = 1 if w3 == 2
gen a2 = w1 + w2 + w3
tabulate a2
*A2 c)
gen win1 = 0
replace win1 = 0 if w1 < w2
replace win1 = 1 if w1 == w2
replace win1 = 2 if w1 > w2
label define label_win 0 "verliert" 1"gleichstand" 2"gewinnt"
label values win label_win
tabulate win