HiAsm
HiAsm
Вверх ↑
Форумы"Игра в слова"Проверим теорию вероятности! ← Ctrl1Ctrl →
Этот топик читают: Гость
Ответов: 4641
Рейтинг: 334
#1: 2009-03-20 18:47:40 ЛС | профиль | цитата
Так между делом, если есть желание проветить теорию вероятности, вот схема
code_12322.txt

У меня при 15000 срабатываний, все равно выходит приблизительно 50/50
------------ Дoбавленo:

на то она и теория
карма: 1
Время верстки: %cr_time% Текущее время: %time%
0
файлы: 1code_12322.txt [3KB] [179]
Ответов: 1397
Рейтинг: 50
#2: 2009-03-20 19:04:05 ЛС | профиль | цитата
Нее, это мы проверяем в этой схеме компонент "Random"
карма: 0
Время верстки: %cr_time% Текущее время: %time%
0
Ответов: 1304
Рейтинг: 405
#3: 2009-03-20 20:52:33 ЛС | профиль | цитата
Ravilr, проверять так проверять . Слегка изменил схему, и увеличил колличество случайных генераций. 

Add(MainForm,6709208,84,168)
{
 Width=211
 Height=143
 Caption="Теория 50/50"
 BorderStyle=1
 Position=1
}
Add(Hub,16712762,203,168)
{
 link(onEvent1,2956182:doOperation,[])
 link(onEvent2,2956182:doCompare,[])
}
Add(Label,5429462,336,168)
{
 Left=4
 Top=40
 Width=85
 Height=25
 Font=[MS Sans Serif,14,0,0,1]
 Caption="0"
}
Add(Label,14628689,336,217)
{
 Left=115
 Top=40
 Width=85
 Height=25
 Font=[MS Sans Serif,14,0,0,1]
 Caption="0"
}
Add(Button,9834731,77,35)
{
 Left=3
 Top=90
 Caption="Старт"
 link(onClick,3982370:doFor,[(144,41)(144,125)])
}
Add(Button,16642466,77,70)
{
 Left=142
 Top=90
 Caption="Стоп"
 link(onClick,3982370:doStop,[(135,76)(135,132)])
}
Add(Edit,12918912,77,112)
{
 Left=64
 Top=90
 Width=70
 Text="2000000"
}
Add(Random,4063129,162,168)
{
 Max=1
 link(onRandom,16712762:doEvent1,[])
}
Add(For,3982370,162,119)
{
 link(onEvent,4063129:doRandom,[(202,125)(202,157)(150,157)(150,174)])
 link(onStop,2956182:doEvent1,[(234,132)(234,188)])
 link(End,12918912:Text,[(175,107)(129,107)(129,156)(83,156)])
}
Add(FTCG_Tools,2956182,245,168)
{
 link(onEventData,5429462:doText,[])
 link(onEventData1,14628689:doText,[(307,181)(307,223)])
}
BEGIN_SDK
  Add(EditMultiEx,11634873,21,21)
  {
   WorkCount=#11:doOperation|9:doCompare|8:doEvent1|
   EventCount=#11:onEventData|12:onEventData1|
   Width=244
   Height=228
   link(doOperation,6737351:doCompare,[(39,27)(39,48)])
   link(doCompare,6293956:doCompare,[(33,34)(33,146)])
   link(doEvent1,9833923:doEvent1,[(28,41)(28,104)])
  }
  Add(FT_Math,45643,133,42)
  {
   Op2=1
   link(Op1,6523218:Var1,[(139,37)(127,37)])
  }
  Add(FT_If_else,6737351,70,42)
  {
   Op2=Integer(0)
   link(onTrue,45643:doOperation,[])
  }
  Add(FT_Math,16513272,189,140)
  {
   Op2=1
   link(Op1,8659318:Var1,[(195,128)(183,128)])
  }
  Add(FT_If_else,6293956,126,140)
  {
   Op2=Integer(1)
   link(onTrue,16513272:doOperation,[])
  }
  Add(GetDataEx,6523218,119,77)
  {
   Angle=1
   link(Data,45643:Result,[(139,86)])
  }
  Add(GetDataEx,8659318,175,175)
  {
   Angle=1
   link(Data,16513272:Result,[(195,184)])
  }
  Add(FT_DoData,8412686,182,196)
  {
   link(onEventData,11634873:onEventData1,[(240,202)(240,34)])
   link(Data,8659318:Var2,[])
  }
  Add(FT_DoData,5075062,126,98)
  {
   link(onEventData,11634873:onEventData,[(212,104)(212,27)])
   link(Data,6523218:Var2,[])
  }
  Add(FT_Hub,9833923,77,98)
  {
   link(onEvent1,5075062:doData,[])
   link(onEvent2,8412686:doData,[(106,111)(106,202)])
  }
END_SDK
Add(Label,3511485,160,35)
{
 Left=25
 Top=15
 Width=155
 Caption="Нолик                      Единица"
}
карма: 3

0
файлы: 1image1.png [2.6KB] [267]
Администрация
Ответов: 15295
Рейтинг: 1519
#4: 2009-03-20 21:12:33 ЛС | профиль | цитата
MAV, нельзя doRandomize выставлять при каждой итерации цикла - для большего диапозона значений это привело бы к совершенно не верным результатам
карма: 27
https://hiasm.com
0
Ответов: 8958
Рейтинг: 824
#5: 2009-03-20 21:50:51 ЛС | профиль | цитата
Ravilr, а монетку слабо 15000 раз подбросить (по теории вероятностей один раз на ребро станет )
карма: 19

0
Ответов: 4641
Рейтинг: 334
#6: 2009-03-20 22:09:40 ЛС | профиль | цитата
Леонид, а если 1500000 раз подкинуть, то по теории вероятностей, зависнет в воздухе.
карма: 1
Время верстки: %cr_time% Текущее время: %time%
0
Ответов: 5227
Рейтинг: 587
#7: 2009-03-20 22:09:55 ЛС | профиль | цитата
Леонид, в трясучку многие в школе играли, так что тыка гораздо чаще чем орёл или решка
карма: 4
Мой форум - http://hiasm.bbtalk.me/ схемы, компоненты...
0
Ответов: 1304
Рейтинг: 405
#8: 2009-03-20 22:14:07 ЛС | профиль | цитата
Dilma писал(а):
нельзя doRandomize выставлять при каждой итерации цикла

И правда перестарался, схему поправил.
Леонид, помоему по теории для 15000, как минимум должно быть два выпадения ребра .

карма: 3

0
Ответов: 632
Рейтинг: 16
#9: 2009-03-22 04:08:43 ЛС | профиль | цитата
так можно еще
если до точки 1. то лидирует 1., если 0. то 0.

code_2341.txt

а вообще лучше кенерировать вручную с таймером 

Add(MainForm,1748941,28,154)
{
 Left=20
 Top=105
 Width=196
 Height=149
 link(onCreate,12196662:doTimer,[])
}
Add(Button,9834731,119,210)
{
 Left=28
 Top=90
 Width=125
 Caption="OK"
 link(onClick,13973654:doData,[])
}
Add(Hub,16712762,119,168)
{
 link(onEvent1,4063129:doRandom,[])
 link(onEvent2,4063129:doRandomize,[])
}
Add(Random,4063129,162,168)
{
 Max=1
}
Add(Timer,12196662,75,168)
{
 Interval=3
 Enable=1
 Point(doAutoStop)
 link(onTimer,16712762:doEvent1,[])
}
Add(Label,14628689,243,245)
{
 Left=65
 Top=20
 Width=55
 Height=50
 Font=[MS Sans Serif,18,0,0,1]
 Caption="0"
}
Add(Label,5429462,336,210)
{
 Left=24
 Top=30
 Width=25
 Height=25
 Font=[MS Sans Serif,14,0,0,1]
 Caption="0"
}
Add(Label,14494346,336,259)
{
 Left=130
 Top=25
 Width=25
 Height=25
 Font=[MS Sans Serif,14,0,0,1]
 Caption="0"
}
Add(Case,1270019,245,210)
{
 Value=String(1)
 link(onNextCase,2955534:doNext,[])
 link(onTrue,10541530:doNext,[(285,223)(285,265)])
}
Add(Counter,10541530,292,259)
{
 Max=100000
 link(onNext,14494346:doText,[])
}
Add(Counter,2955534,292,210)
{
 Max=100000
 link(onNext,5429462:doText,[])
}
Add(MathParse,10067894,334,308)
{
 MathStr="%1/%2"
 link(onResult,1133347:doText,[])
 link(X1,14494346:Caption,[(340,303)(342,303)])
 link(X2,5429462:Caption,[(347,279)(342,279)])
}
Add(Label,1133347,376,308)
{
 Left=65
 Top=75
 Caption="0"
}
Add(Hub,5416662,203,210)
{
 OutCount=3
 link(onEvent1,1270019:doCase,[])
 link(onEvent2,14628689:doText,[(239,223)(239,251)])
 link(onEvent3,10067894:doCalc,[(238,230)(238,314)])
}
Add(Label,3511485,75,112)
{
 Left=25
 Top=5
 Width=155
 Caption="Нолик                      Единица"
}
Add(DoData,13973654,161,210)
{
 link(onEventData,5416662:doEvent1,[])
 link(Data,4063129:Random,[(167,205)(168,205)])
}
правда в самом начале пару ошибок т.к. 0 не делится на 0
карма: 0

0
файлы: 1code_2341.txt [1.8KB] [328]
9
Форумы"Игра в слова"Проверим теорию вероятности! ← Ctrl1Ctrl →
Сообщение
...
Прикрепленные файлы
(файлы не залиты)
HiAsm Studio 2003 - 2025
Пользовательское соглашение | support@hiasm.com
Яндекс.Метрика