есть емкость, объем = Х м3, Х не меньше 10 в емкость засыпали мытый гравий фракции 5-20, доверху. вопрос - сколько воды влезет в эту емкость? емкость для воды герметичная.
Группа: Участники форума
Сообщений: 49932
Регистрация: 24.4.2009
Пользователь №: 32666
Цитата(LordN @ 20.9.2018, 12:47)
есть емкость, объем = Х м3, Х не меньше 10 в емкость засыпали мытый гравий фракции 5-20, доверху. вопрос - сколько воды влезет в эту емкость? емкость для воды герметичная.
Надо использовать две плотности. Реальную и насыпную. Реальная - кг/м3, насыпная - т/м3. Например: Плотность гранита — 2,6 т/м³ Щебень гранитный фракция 20-40 ~ 1,35 т/м3 Т.е. если объём 10, то воды влезет чуть менее половины.
Группа: Участники форума
Сообщений: 1795
Регистрация: 31.3.2015
Пользователь №: 263772
накануне на форуме США обсуждалась qbasic игра "угадай число 1 ... 100"
с целью сделать программу короче и гордились достижением в 2 строки
за почти час я создал программу "угадай число" в 1 строку на qb & c#
обогнав американцев на пару часов и американскую программу не понимаю
народ попробуйте решить сценарий:
инициализируем генератор случайных компьютер загадывает от 1 до 100 человек вводит номер если мало комп подсказывает: больше если много комп подсказывает: меньше повторяя попытки до угадывания если угадано пишет "да" и всё
цель: меньше строк и реальна 1 строка
именно на человечески понятных простейших языках qbasic & c#
Сообщение отредактировал экспорт - 13.9.2019, 11:42
Группа: Участники форума
Сообщений: 1795
Регистрация: 31.3.2015
Пользователь №: 263772
математический форум обсуждая проверку последовательности случайной на случайность показал: там математики только копируют
чужую демагогию из старых книг и даже не способны задуматься над распределением повторений событий подряд
неудивительно: в учебниках теории вероятностей искомые формулы случайно отсутствуют но могли бы сами смоделировать в excel
пишу ранее на ряде форумов:
на примере вероятности 50% сколько раз было 7 раз подряд и другие количества признаков подряд чтоб соответствовали формулам включающим логарифм иначе генератор случайных чисел ... фальшивый
Сообщение отредактировал экспорт - 8.12.2019, 15:12
исследование E зелёным чисто excel: случайные распределились закономерно
исследование 0 жёлтым qb 0: случайные распределились закономерно
исследование 1 красным qb 1: явная подделка равное число подряд
исследование 2 лиловым qb 2: умная подделка но не запрограммированы все возможные и виден перекос из-за алгоритма
вывод: определить фальшивые случайные реально
Код
' 0.bas OPEN "0.txt" FOR OUTPUT AS #1 FOR s = 1 TO 50000: PRINT #1, (INT(RND * 1000) MOD 2): NEXT CLOSE
Код
' 1.bas OPEN "1.txt" FOR OUTPUT AS #1 FOR d = 1 TO 5: FOR s = 1 TO 100 FOR i = 1 TO s: PRINT #1, 1: NEXT FOR i = 1 TO s: PRINT #1, 0: NEXT NEXT: NEXT: CLOSE
Код
' 2.bas OPEN "2.txt" FOR OUTPUT AS #1 FOR k = 1 TO 100: FOR s = 1 TO 7 FOR d = 1 TO 2 ^ (7 - s) FOR i = 1 TO s: PRINT #1, 1: NEXT FOR i = 1 TO s: PRINT #1, 0: NEXT NEXT: NEXT: NEXT: CLOSE
Группа: Участники форума
Сообщений: 1795
Регистрация: 31.3.2015
Пользователь №: 263772
используя программу синтеза случайных и разделив на малые 0 и большие 1 синтезированы 55000 случайных и проверены
несмотря на нормальность количества подряд 0...7 большее число подряд невозможно поэтому последовательность хуже обычного rnd
using a random synthesis program and dividing into small 0 and large 1 synthesized 55000 random and tested
despite normality of number of consecutive 0...7 a larger number in a row is not possible therefore sequence is worse than usual rnd
Код
'rndxx.bas OPEN "rndxxx.txt" FOR OUTPUT AS #1
FOR i = 1 TO 55555: r = Rand IF r < 0.5 THEN PRINT #1, 0 ELSE PRINT #1, 1 'IF r <= 0.5 THEN PRINT #1, 0 ELSE PRINT #1, 1 'IF r <= 0.7 THEN PRINT #1, 0 ELSE PRINT #1, 1 NEXT: CLOSE
FUNCTION Rand: STATIC Seed x1 = (Seed * 214013 + 2531011) MOD 2 ^ 24 Seed = x1: Rand = x1 / 2 ^ 24 END FUNCTION
на языке C# случайность тоже маломощная предполагаю понимаемая людьми как якобы нормальная
in C# randomness is also low-power I suppose understood by people as supposedly normal
Код
using System;using System.Linq; using System.Collections.Generic; using System.Text.RegularExpressions; namespace Rextester { public class Program { public static void Main(string[] args) { Random rand = new Random(); for (int i = 1; i < 5555; i++) { var d = rand.Next(2); if (d<0.5) Console.WriteLine("0"); else Console.WriteLine("1"); }}}}
Группа: Участники форума
Сообщений: 1795
Регистрация: 31.3.2015
Пользователь №: 263772
достоверная случайность: перетасованная то бишь 2-сторонняя то бишь интегральная вероятность
Программа peretas.bas создаёт последовательность случайные a: 0 и 1 алгоритмом ручным из интернета
и программа создаёт случайные d: 0 ... 77777 для перетасовки и сортируя массив d упорядочили массив a и возможно против повторения лучше тасуемых 1000000
Код
'peretas.bas DIM a(55555), d(55555)
OPEN "aa.txt" FOR OUTPUT AS #1: OPEN "dd.txt" FOR OUTPUT AS #2 OPEN "aaaa.txt" FOR OUTPUT AS #3: OPEN "dddd.txt" FOR OUTPUT AS #4
FOR i = 1 TO 55555: r = Rand: a(i) = INT(r * 2): PRINT #1, a(i): NEXT FOR i = 1 TO 55555: r = Rand: d(i) = INT(r * 77777): PRINT #2, d(i): NEXT
FOR i = 1 TO 55554: FOR j = i TO 55555 IF d(i) > d(j) THEN SWAP d(i), d(j): SWAP a(i), a(j) NEXT: NEXT
FOR i = 1 TO 55555: PRINT #3, a(i): PRINT #4, d(i): NEXT CLOSE
FUNCTION Rand STATIC Seed x1 = (Seed * 214013 + 2531011) MOD 2 ^ 24 Seed = x1 Rand = x1 / 2 ^ 24 END FUNCTION
Теоретические значения в эксцель excel через формулы
=C3/2 =D3+C4 =D4*55000
показывают: из 55000 за 7 шагов охватывается 54570 номеров в своих последовательностях и вероятно отклонение выдаёт фальшивую случайность
и перетасовав задействовано 54885 близко к теории
Нобелевская премия сама себя не получит
Сообщение отредактировал экспорт - 28.12.2019, 22:31
Группа: Участники форума
Сообщений: 1795
Регистрация: 31.3.2015
Пользователь №: 263772
Проверка на случайность цифр числа ПИ
Используя 55000 цифр числа пи сначала в Word переведено в столбик заменой в Excel составлены формулы разделения на: чётные \ нечётные и малые \ большие
и далее использованы мои таблицы заодно сравнивая с теоретическим разделением
Результаты: среднее у обоих разделений: 0,5 и разделение соостветствует случайности истинной и ещё возможно перетасовать и ещё возможно исследовать другие константы и корни
Смысл задачи: истинная случайность для людей неестественна и возможно синтезировать маломощные человеческие вероятности
Зато если речь о преодолении случайности понимающий волны вероятности повышает надёжность
Волны вероятности повышают надёжность: моя разработка минувшего 10-летия
Check for randomness of digits of number of PI
Using 55,000 digits of pi first in Word translated to column by replacement Excel compiles formulas for dividing into: even \ odd and small \ big
and then my tables are used at same time comparing with theoretical separation
Results: average for both divisions: 0.5 and separation matches chance by true and it’s still possible to shuffle and it’s still possible to explore other constants and roots
Meaning of task: true chance for people is unnatural and it is possible to synthesize low-power human probabilities
But if we are talking about overcoming chance understanding wave of probability increases reliability
Probability waves increase reliability: my development of past 10th anniversary
Группа: Участники форума
Сообщений: 1795
Регистрация: 31.3.2015
Пользователь №: 263772
пиша через онлайн перевод всегда слежу чтобы иностранцам лишнее не выдать
и на зарубежном форуме начав тему в прошлом году вызвал знания от молчавшего единомышленника в начавшемся году и понявшего: теряет приоритет
barnes.x10host.com/index.html
Probability and Statistics Quantum Theory of Phonons Vectors and Trigonometry Classical Field Theory Statistical Mechanics Riemannian Geometry Special Relativity Number and Measure Strange Creatures Quantum Mechanics Complex Numbers Thermodynamics Ordo Ab Chao
' Russian Rebus Letters from Digitals.bas NN = 5: DIM a(NN) FOR u = 1 TO 9: a(1) = u FOR d = 1 TO 9: a(2) = d FOR a = 0 TO 9: a(3) = a FOR r = 0 TO 9: a(4) = r FOR k = 0 TO 9: a(5) = k FOR xx = 1 TO NN-1 FOR yy = xx + 1 TO NN IF a(xx) = a(yy) THEN GOTO 55 NEXT yy: NEXT xx udar = 1000*u + 100*d + 10*a + r draka = d*10000 + r*1000 + a*100 + k*10 + a IF udar + udar = draka THEN PRINT udar, draka 55 NEXT: NEXT: NEXT: NEXT: NEXT END
Группа: Участники форума
Сообщений: 5087
Регистрация: 5.12.2008
Из: Россия, Тюмень
Пользователь №: 26323
натолкнулся на старую логическую задачу. посидел для интереса (я - математик). решил минут за 10-15.
Как у вас получится? чисто для интереса
А. Эйнштейн придумал эту загадку в прошлом веке и полагал, что 98% жителей Земли не в состоянии ее решить. Принадлежите ли вы к 2% самых умных людей планеты? Зд есь нет никакого фокуса, только чистая логика.
1. Есть 5 домов каждый разного цвета. 2. В каждом доме живет по одному человеку отличной друг от друга национальности. 3. Каждый жилец пьет только один определенный напиток, курит определенную марку сигарет и держит определенное животное 4. Никто из 5 человек не пьет одинаковые с другими напитки, не курит одинаковые сигареты и не держит одинаковое животное.
Вопрос: кому принадлежит рыба?
Подсказки: Англичанин живет в красном доме Швед держит собаку Датчанин пьет чай Зеленый дом стоит слева от белого Жилец зеленого дома пьет кофе Человек, который курит Pall Mall, держит птицу Жилец из среднего дома пьет молоко Жилец из желтого дома курит Dunhill Норвежец живет в первом доме Курильщик Marlboro живет около того, кто держит кошку Человек, который содержит лошадь, живет около того, кто курит Dunhill Курильщик сигарет Winfield пьет пиво Норвежец живет около голубого дома Немец курит Rothmans Курильщик Marlboro живет по соседству с человеком, который пьет воду
Группа: Участники форума
Сообщений: 49932
Регистрация: 24.4.2009
Пользователь №: 32666
Цитата(nick2 @ 13.1.2021, 19:46)
натолкнулся на старую логическую задачу. посидел для интереса (я - математик). решил минут за 10-15.
Как у вас получится? чисто для интереса
А. Эйнштейн придумал эту загадку в прошлом веке и полагал, что 98% жителей Земли не в состоянии ее решить. Принадлежите ли вы к 2% самых умных людей планеты? Зд есь нет никакого фокуса, только чистая логика.
1. Есть 5 домов каждый разного цвета. 2. В каждом доме живет по одному человеку отличной друг от друга национальности. 3. Каждый жилец пьет только один определенный напиток, курит определенную марку сигарет и держит определенное животное 4. Никто из 5 человек не пьет одинаковые с другими напитки, не курит одинаковые сигареты и не держит одинаковое животное.
Вопрос: кому принадлежит рыба?
Подсказки: Англичанин живет в красном доме Швед держит собаку Датчанин пьет чай Зеленый дом стоит слева от белого Жилец зеленого дома пьет кофе Человек, который курит Pall Mall, держит птицу Жилец из среднего дома пьет молоко Жилец из желтого дома курит Dunhill Норвежец живет в первом доме Курильщик Marlboro живет около того, кто держит кошку Человек, который содержит лошадь, живет около того, кто курит Dunhill Курильщик сигарет Winfield пьет пиво Норвежец живет около голубого дома Немец курит Rothmans Курильщик Marlboro живет по соседству с человеком, который пьет воду
Бородатая задача, Николай. Решается довольно примитивной таблицей "тру-фалс". Её однажды задали моему товарищу какие-то дельцы, мол, мы оригинальные, а тот не будь дурак, понял, с кем придётся связаться если на работу примут и тут же сказал правильный ответ, у него брат математик и всё рассказал как-то. Оскорбились до глубины души. Кошелька, т.е.
Сообщение отредактировал HeatServ - 13.1.2021, 20:14
Группа: Участники форума
Сообщений: 5087
Регистрация: 5.12.2008
Из: Россия, Тюмень
Пользователь №: 26323
Цитата(HeatServ @ 13.1.2021, 22:10)
Бородатая задача, Николай.
я просто душу отвёл. Убедиться, что мозгИ не заржавели. в школе любил такие задачки решать. на всех контрольных по математике решал два варианта сразу. за себя и за соседку. Потом ждал пока она перепишет, и только тогда вставал и шёл домой.
Группа: Участники форума
Сообщений: 49932
Регистрация: 24.4.2009
Пользователь №: 32666
Цитата(nick2 @ 14.1.2021, 9:42)
я просто душу отвёл. Убедиться, что мозгИ не заржавели. в школе любил такие задачки решать. на всех контрольных по математике решал два варианта сразу. за себя и за соседку. Потом ждал пока она перепишет, и только тогда вставал и шёл домой.
Душу отводиь надо, а то она как шахид, возьмёт и начекрыжится.
Группа: Участники форума
Сообщений: 49932
Регистрация: 24.4.2009
Пользователь №: 32666
Цитата(экспорт @ 14.1.2021, 13:23)
Остроумная задачка: найти фальшивую 1 монету из 9-ти за 2 взвешивания
Разбиваем в группы по три монеты, первое взвешивание - "три на три", если вес одинаков, то фальшивка в третьей группе, из неё взвешиваем любые две, если вес одинаковый, то третья - фальшивка. Ну и так далее.
Группа: Участники форума
Сообщений: 12221
Регистрация: 14.1.2008
Из: Архангельск
Пользователь №: 14438
Цитата(HeatServ @ 14.1.2021, 14:40)
Разбиваем в группы по три монеты, первое взвешивание - "три на три", если вес одинаков, то фальшивка в третьей группе, из неё взвешиваем любые две, если вес одинаковый, то третья - фальшивка. Ну и так далее.
И что??? А если разный вес? В какой из трешек фальшивка? Мы не знаем, легче она или тяжелее. По-моему, тут четыре и четыре надо взвешивать сначала. А что потом, думать некогда пока)
Группа: Участники форума
Сообщений: 49932
Регистрация: 24.4.2009
Пользователь №: 32666
Цитата(Машинист @ 14.1.2021, 14:50)
И что??? А если разный вес? В какой из трешек фальшивка? Мы не знаем, легче она или тяжелее. По-моему, тут четыре и четыре надо взвешивать сначала. А что потом, думать некогда пока)
Бьём на три группы по три монеты. Взвешиваем любые две группы, ищем группу, в которой фальшивка. Т.е. или взвешиванием (одна группа легче) или логически, если обе группы одинаковы, то фальшивка в третьей. Разбиваем группу с фальшивкой на три монеты и взвешиваем любые две. Если обе одинаковы, то фальшивка - третья, если одна легче другой, то это и есть фальшивка.