Отправлено: 13.05.11 07:00. Заголовок: Парадокс Монти Холла

http://ru.wikipedia.org/wiki/%CF%E0%F0%E0%E4%EE%EA%F1_%CC%EE%ED%F2%E8_%D5%EE%EB%EB%E0

Что-то мне непонятно рассуждение.
Решил проверить в лоб.
Набросал программку.

 
 function Start() 
 	local k1:=0 //количество успехов при изменении выбора 
 	local k2:=0 //количество успехов без изменения выбора 
 	local k3:=0 //всего попыток 
 	local nMa, n, nVed 
 	lStop:=.f. 
 	wMain.btn_Stop.Enabled:=.t. 
 	wMain.btn_Start.Enabled:=.f. 
 	 
 	do while !lStop 
 		k3++ 
 		wMain.txt_3.Value:=k3 
 		 
 		nMa:=random(3) //положение машины 
 		n:=random(3) //выбор игрока 
 		 
 		//открытие ведущим 
 		for nVed:=1 to 3 
 			if nVed=nMa .or. nVed=n; loop; endif 
 		next 
 		 
 		//проверяем результат 
 		if nMa=n //угадал и не сменил 
 			k2:=k2+1 
 		else 
 			k1:=k1+1 
 		endif 
 		wMain.txt_1.Value:=k1 
 		wMain.txt_2.Value:=k2 
 		 
 		DO EVENTS 
 		//hb_idleSleep( 0.5 ) 
 	enddo 
  
 return Nil 
 function Stop() 
 	lStop:=.t. 
 	wMain.btn_Stop.Enabled:=.f. 
 	wMain.btn_Start.Enabled:=.t. 
 return Nil 
 

Я поразился - соотношение 2/3 подтверждается!!! Но в голове не укладывается.
Единственное сомнение - правильность алгоритма.
Проверьте алгоритм. Может я накосячил.

 Отправлено: 13.05.11 07:11. Заголовок: Ура!!!! Понял !!!!..

Ура!!!! Понял !!!!

 Отправлено: 13.05.11 15:01. Заголовок: Однако... Видать мно..

Однако... Видать много свободного времени у вас !

 Отправлено: 14.05.11 10:49. Заголовок: считай это самообраз..

считай это самообразованием - расширением кругозора