Различия

Здесь показаны различия между двумя версиями данной страницы.

--- howto:randomize [2024/12/01 10:32]
aleks_versus создано
+++ howto:randomize [2026/02/26 10:31] (текущий)
aleks_versus
@@ Строка 9: / Строка 9: @@
 [[https://ru.wikipedia.org/wiki/Нормальное_распределение|Нормальное распределение]]
+код для тестов распределения:
+<sxh qsp>
+local left, right, med = %arrpack('args')
+local d, x, items
+local N = 1000000
+*pl 'Генерируем числа. Подождите...'
+wait 0
+loop local i=0 while i < N step i+=1:
+    x = rand(LEFT, RIGHT, MED)
+    d[x]+=1
+end
+local stars = 100
+local total = 0
+loop i = LEFT while i<=RIGHT step i+=1:
+    items = d[i] * stars / N
+    loop while items > 0 step items-=1:
+        *p '*'
+    end
+    perc = d[i] * 1000/N
+    *pl ' <<perc/10>>.<<perc MOD 10>>% <<d[i]>>'
+    total += d[i]
+end
+'================== TOTAL: <<total>>'
+</sxh>

Документация QSPСайтФорум