IPBIPB
Проектирование, монтаж, наладка, сервис

Здравствуйте, гость ( Вход | Регистрация )

- Рекомендации АВОК 7.8–2019
Проектирование инженерных систем лечебно-
профилактических учреждений

- Рекомендации АВОК 7.5–2020
Обеспечение микроклимата и энергосбережение в
крытых плавательных бассейнах. Нормы проектирования

АВОК в соц. сетях
 
Добавить ответ в эту темуОткрыть тему
> задачка для х-класса, продолжение
LordN
сообщение 20.9.2018, 12:47
Сообщение #1


МОДЕРАТОР


Группа: Модераторы
Сообщений: 9628
Регистрация: 3.7.2004
Из: Томск
Пользователь №: 32



есть емкость, объем = Х м3, Х не меньше 10
в емкость засыпали мытый гравий фракции 5-20, доверху.
вопрос - сколько воды влезет в эту емкость?
емкость для воды герметичная.
Вернуться в начало страницы
 
+Ответить с цитированием данного сообщения
HeatServ
сообщение 20.9.2018, 12:58
Сообщение #2


To my Beautiful, Unknown Future


Группа: Участники форума
Сообщений: 37290
Регистрация: 24.4.2009
Пользователь №: 32666



Цитата(LordN @ 20.9.2018, 12:47) *
есть емкость, объем = Х м3, Х не меньше 10
в емкость засыпали мытый гравий фракции 5-20, доверху.
вопрос - сколько воды влезет в эту емкость?
емкость для воды герметичная.
Надо использовать две плотности. Реальную и насыпную. Реальная - кг/м3, насыпная - т/м3. Например:
Плотность гранита — 2,6 т/м³
Щебень гранитный фракция 20-40 ~ 1,35 т/м3
Т.е. если объём 10, то воды влезет чуть менее половины.
Вернуться в начало страницы
 
+Ответить с цитированием данного сообщения
LordN
сообщение 24.9.2018, 18:55
Сообщение #3


МОДЕРАТОР


Группа: Модераторы
Сообщений: 9628
Регистрация: 3.7.2004
Из: Томск
Пользователь №: 32



понятно.. спасибо!
Вернуться в начало страницы
 
+Ответить с цитированием данного сообщения
экспорт
сообщение 13.9.2019, 11:38
Сообщение #4


проекты ТС без авансов


Группа: Участники форума
Сообщений: 1499
Регистрация: 31.3.2015
Пользователь №: 263772



накануне на форуме США обсуждалась
qbasic игра "угадай число 1 ... 100"

с целью сделать программу короче
и гордились достижением в 2 строки

за почти час я создал программу
"угадай число" в 1 строку на qb & c#

обогнав американцев на пару часов
и американскую программу не понимаю

народ попробуйте решить сценарий:

инициализируем генератор случайных
компьютер загадывает от 1 до 100
человек вводит номер
если мало комп подсказывает: больше
если много комп подсказывает: меньше
повторяя попытки до угадывания
если угадано пишет "да" и всё

цель: меньше строк и реальна 1 строка

именно на человечески понятных
простейших языках qbasic & c#

Сообщение отредактировал экспорт - 13.9.2019, 11:42
Вернуться в начало страницы
 
+Ответить с цитированием данного сообщения
экспорт
сообщение 8.12.2019, 15:11
Сообщение #5


проекты ТС без авансов


Группа: Участники форума
Сообщений: 1499
Регистрация: 31.3.2015
Пользователь №: 263772



математический форум обсуждая проверку последовательности
случайной на случайность показал: там математики только копируют

чужую демагогию из старых книг и даже не способны задуматься
над распределением повторений событий подряд

неудивительно: в учебниках теории вероятностей искомые формулы
случайно отсутствуют но могли бы сами смоделировать в excel



пишу ранее на ряде форумов:

на примере вероятности 50% сколько раз было 7 раз подряд
и другие количества признаков подряд
чтоб соответствовали формулам включающим логарифм
иначе генератор случайных чисел ... фальшивый


Сообщение отредактировал экспорт - 8.12.2019, 15:12
Вернуться в начало страницы
 
+Ответить с цитированием данного сообщения
HeatServ
сообщение 10.12.2019, 10:27
Сообщение #6


To my Beautiful, Unknown Future


Группа: Участники форума
Сообщений: 37290
Регистрация: 24.4.2009
Пользователь №: 32666



Хоть кто-то делом занят...
Вернуться в начало страницы
 
+Ответить с цитированием данного сообщения
экспорт
сообщение 10.12.2019, 11:58
Сообщение #7


проекты ТС без авансов


Группа: Участники форума
Сообщений: 1499
Регистрация: 31.3.2015
Пользователь №: 263772



да приходится думать за всех



получая благодарности обл.адм.
и участвуя в творческих конкурсах

используя автокад совместимые
и эксцель совместимые программы



но вместо внедрения предложений
небось пропускают через шрёдер

в то время как нечто предсказанное мной
народ внедряет сам
Вернуться в начало страницы
 
+Ответить с цитированием данного сообщения
timofeyprof
сообщение 10.12.2019, 19:17
Сообщение #8





Группа: Участники форума
Сообщений: 3135
Регистрация: 22.7.2009
Пользователь №: 36382



Цитата(экспорт @ 10.12.2019, 12:58) *
но вместо внедрения предложений
небось пропускают через шрёдер

это судьба многих изобретателей и их патентов
"Гений"
в фильме и ответ - что делать в этом случае...
Вернуться в начало страницы
 
+Ответить с цитированием данного сообщения
экспорт
сообщение 12.12.2019, 9:55
Сообщение #9


проекты ТС без авансов


Группа: Участники форума
Сообщений: 1499
Регистрация: 31.3.2015
Пользователь №: 263772



? фильм "Гений" ?
order is for fools: genius can handle chaos
порядок для глупцов: гений управляет хаосом
/ недоказанная цитата А.Э. /

исследуя возможность фальсификации случайных
за час были созданы программы qbasic qb64
и таблица использующая формулы

=СЛУЧМЕЖДУ(0;1)
=ЕСЛИ(B3=B2;C2+1;0)
=СЧЁТЕСЛИ(C$3:C$55000;D2)
=СУММ(E2:E10)
=E2/E3



идея: фальсифицировать вероятность 50%

результаты:

исследование 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
Вернуться в начало страницы
 
+Ответить с цитированием данного сообщения
HeatServ
сообщение 12.12.2019, 10:00
Сообщение #10


To my Beautiful, Unknown Future


Группа: Участники форума
Сообщений: 37290
Регистрация: 24.4.2009
Пользователь №: 32666



Андрей, ты до сих пор используешь буквы, это прошлый век, переходи на двоичный код, оно так прогрессивнее будет.
Вернуться в начало страницы
 
+Ответить с цитированием данного сообщения
экспорт
сообщение 15.12.2019, 23:05
Сообщение #11


проекты ТС без авансов


Группа: Участники форума
Сообщений: 1499
Регистрация: 31.3.2015
Пользователь №: 263772



двоичные ближе чем кажется
в массиве целых чисел двоичные: чётные или нечётные
и когда равномерно: больше половины или наоборот

последовательность фальшивая перетасованная
превращается в последовательность случайную

и стала соответствовать распределениям



причём эксцель нагляднее программ
зато возможны программы синтеза c# онлайн


sequence fake shuffled
turns into a random sequence



and began to correspond to distributions

and excel more clearly than programs
but c# synthesis programs are possible online


https://www.youtube.com/watch?v=I0QV2AZ5W5E
Вернуться в начало страницы
 
+Ответить с цитированием данного сообщения
экспорт
сообщение 22.12.2019, 2:30
Сообщение #12


проекты ТС без авансов


Группа: Участники форума
Сообщений: 1499
Регистрация: 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");
}}}}


https://rextester.com/WXH62544
Вернуться в начало страницы
 
+Ответить с цитированием данного сообщения
HeatServ
сообщение 22.12.2019, 23:10
Сообщение #13


To my Beautiful, Unknown Future


Группа: Участники форума
Сообщений: 37290
Регистрация: 24.4.2009
Пользователь №: 32666



Андрей, что ты будешь делать в новогоднюю ночь? Впрочем, не отвечай... И так понятно.
Вернуться в начало страницы
 
+Ответить с цитированием данного сообщения
экспорт
сообщение 28.12.2019, 22:27
Сообщение #14


проекты ТС без авансов


Группа: Участники форума
Сообщений: 1499
Регистрация: 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
Вернуться в начало страницы
 
+Ответить с цитированием данного сообщения
экспорт
сообщение 31.12.2019, 2:43
Сообщение #15


проекты ТС без авансов


Группа: Участники форума
Сообщений: 1499
Регистрация: 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

Вернуться в начало страницы
 
+Ответить с цитированием данного сообщения
экспорт
сообщение 22.1.2020, 14:28
Сообщение #16


проекты ТС без авансов


Группа: Участники форума
Сообщений: 1499
Регистрация: 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

новейшее заокеанское:

barnes.x10host.com/index.html
Вернуться в начало страницы
 
+Ответить с цитированием данного сообщения

Добавить ответ в эту темуОткрыть тему
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 

Реклама








Последние сообщения Форума





Rambler's Top100 Rambler's Top100

RSS Текстовая версия Сейчас: 26.1.2020, 13:56