Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Клуб программистов > Свободное общение
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 05.03.2020, 10:00   #81
сфинкс
Форумчанин
 
Аватар для сфинкс
 
Регистрация: 17.06.2012
Сообщений: 954
По умолчанию

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

Код:
'datable77.bas

n = 12000: s = 0
DIM b(n), d(n), e(n), f(n)
DIM j(n), k(n), m(n), p(16), q(16)

' OPEN "bb12.txt" FOR INPUT AS #1 
OPEN "zz12.txt" FOR OUTPUT AS #2
 
LOCATE 1, 1: PRINT " TEOP          CPED          MAL           4ET "

FOR i = 2 TO n - 1
    ' INPUT #1, b(i): s = s + b(i): m = s / i
    b(i) = INT(RND * 900) + 100: s = s + b(i): m = s / i

    IF b(i) < m THEN d(i) = 0 ELSE d(i) = 1
    IF b(i) / 2 = INT(b(i) / 2) THEN j(i) = 0 ELSE j(i) = 1

    IF d(i) = d(i - 1) THEN e(i) = e(i - 1) + 1 ELSE e(i) = 0
    IF e(i) = 0 THEN f(i) = e(i - 1) ELSE f(i) = 12
    IF f(i) > 12 THEN f(i) = 12

    IF j(i) = j(i - 1) THEN k(i) = k(i - 1) + 1 ELSE k(i) = 0
    IF k(i) = 0 THEN m(i) = k(i - 1) ELSE m(i) = 12
    IF m(i) > 12 THEN m(i) = 12

    p(f(i)) = p(f(i)) + 1: q(m(i)) = q(m(i)) + 1

    PRINT #2, i, b(i), INT(m), d(i), e(i), f(i), j(i), k(i), m(i)
    LOCATE 3, 1: FOR t = 1 TO 12
        PRINT INT(n / (2 ^ (t + 1))), INT((p(t - 1) + q(t - 1)) / 2), p(t - 1), q(t - 1)
    NEXT
NEXT

PRINT #2,: PRINT #2, " TEOP          CPED          MAL           4ET ": PRINT #2,
FOR t = 1 TO 12
    PRINT #2, INT(n / (2 ^ (t + 1))), INT((p(t - 1) + q(t - 1)) / 2), p(t - 1), q(t - 1)
NEXT
Результаты:

Код:
 TEOP          CPED          MAL           4ET 

 3000          2971          2915          3028 
 1500          1489          1452          1527 
 750           760           764           756 
 375           401           409           393 
 187           182           181           184 
 93            81            89            74 
 46            47            47            48 
 23            25            29            22 
 11            11            15            8 
 5             3             3             3 
 2             2             4             1 
 1             2             1             4
Практические распределения соответствуют теоретическим
значит случайная последовательность качественная
и возможно изучить паттерны различных последовательностей

Биномиальное Логарифмическое Интегральное Пирамидальное распределение
БЛИП распределение случайных чисел

Особенность программы: индексы индексов p(f(i)) & q(m(i))

Program distribution for the random spectra
number of consecutive identical features
less \ more and even \ odd

Practical distributions correspond to theoretical ones
so random sequence is qualitative
and it is possible to study patterns of different sequences

Binomial Logarithmic Integral Pyramidal Distribution
BLIP distribution of Random numbers

Feature of program: index of indixes p(f(i)) & q(m(i))

https://www.youtube.com/watch?v=YIJmgOTnkTU

новейшая версия считывает из файла количество эн
или может применять цифры секунд из времени чтобы без файлов
и исследует случайные тысячами обычно нормальные

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



ведь количество вариантов перестановки факториальное

плюс каждый может набрать вручную 3000 цифр и провериться
Случайные и Массивы https://programmersforum.ru/showthread.php?t=344371 Учим C# & basic & excel & python https://programmersforum.ru/showthre...=327446&page=5 ничего нерекомендую

Последний раз редактировалось сфинкс; 05.03.2020 в 18:25.
сфинкс вне форума Ответить с цитированием
Старый 10.04.2020, 15:55   #82
сфинкс
Форумчанин
 
Аватар для сфинкс
 
Регистрация: 17.06.2012
Сообщений: 954
По умолчанию

Проверка Wolframalpha: надёжность выиграть и проиграть
и вероятность выигрыша и проигрыша создают 4 комбинации:
C+p^N=1 ... (1-C)+p^N=1 ... C+(1-p)^N=1 ... (1-C)+(1-p)^N=1

Причём всё взаимозаменяемо:
C=1-c ... c=1-C ... P=1-p ... p=1-P

Искусственный интеллект Wolframalpha знает логарифм:
solve C+(1-p)^N=1 for N

https://wolframalpha.com/input/?i=so...%5EN%3D1+for+N



N=log(1-C)/log(1-p)

Checking in Wolframalpha: reliability win and lose
both probability of winning and losing create 4 combinations:
C+p^N=1 ... ... (1-C)+p^N=1 ... C+(1-p)^N=1 ... (1-C)+(1-p)^N=1

Everything is interchangeable:
C=1-c ... c=1-C ... P=1-p ... p=1-P

Artificial intelligence of Wolframalpha knows logarithm:
solve C+(1-p)^N=1 for N

https://wolframalpha.com/input/?i=so...%5EN%3D1+for+N



N=log(1-C)/log(1-p)

https://www.youtube.com/watch?v=I0QV2AZ5W5E
Случайные и Массивы https://programmersforum.ru/showthread.php?t=344371 Учим C# & basic & excel & python https://programmersforum.ru/showthre...=327446&page=5 ничего нерекомендую

Последний раз редактировалось сфинкс; 10.04.2020 в 15:59.
сфинкс вне форума Ответить с цитированием
Старый 22.05.2020, 09:00   #83
сфинкс
Форумчанин
 
Аватар для сфинкс
 
Регистрация: 17.06.2012
Сообщений: 954
По умолчанию

Лайфхак: скачиваем текст видя часовой диалог или монолог Youtube

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

Открываю нужный ютюб вида говорящая голова
Перематываю ютюб в конец и останавливаю экономя мегабайты

Вижу 3 точки и жму «Посмотреть расшифровку видео»
Появляется справа «Расшифровка видео»
Вверху 3 точки и жму «Показать или скрыть временные метки»
Отключаю столбец цифр
Курсором выделяю текст и копирую

В блокнот вставляю и сохраняю с понятным именем
Обычно далее озвучиваю через синтезатор речи

Итого: запасено 50 часов неважно чьих статей и ютюбов

Прослушиваю без эмоциональной привязки главное… бесплатно

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

Использующие сервис SSyoutube могут экономить главное время
видео не смотря скачивая аудио webm



Пример часового видео а-ля говорящая голова:
лично я скачаю 3% мегабайт или озвучу текст
Случайные и Массивы https://programmersforum.ru/showthread.php?t=344371 Учим C# & basic & excel & python https://programmersforum.ru/showthre...=327446&page=5 ничего нерекомендую
сфинкс вне форума Ответить с цитированием
Старый 20.06.2020, 16:16   #84
сфинкс
Форумчанин
 
Аватар для сфинкс
 
Регистрация: 17.06.2012
Сообщений: 954
По умолчанию

Другой форум в ответ на моё сообщение дарит
ссылку на сайт тексты до 1000 знаков озвучивающий 5-ю голосами
в спец окошке и сохраняющий mp3

https://voxworker.com/ru

Сайты онлайн озвучивающие ищутся:

tts russian
text to speech russian

mp3 ускоряют и переформатируют и сшивают mp3:

AudaCity
WavePad
Случайные и Массивы https://programmersforum.ru/showthread.php?t=344371 Учим C# & basic & excel & python https://programmersforum.ru/showthre...=327446&page=5 ничего нерекомендую

Последний раз редактировалось сфинкс; 20.06.2020 в 22:13.
сфинкс вне форума Ответить с цитированием
Старый 05.07.2020, 18:19   #85
сфинкс
Форумчанин
 
Аватар для сфинкс
 
Регистрация: 17.06.2012
Сообщений: 954
По умолчанию

Переводы и озвучивание и колоризация

Переводы

https://translate.yandex.ru/
https://translate.yandex.ru/translate
https://translate.yandex.ru/doc
https://translate.yandex.ru/ocr

https://translate.google.ru/
https://translate.google.ru/#view=ho...cs&sl=ru&tl=en

https://free-translation.imtranslato...h_translation/

https://promt.ru/


Озвучивание

https://voxworker.com/ru

https://text-to-speech.imtranslator....?dir=g_en-UK_m
https://texttospeechrobot.com/tts/ru...-rechi-onlayn/
https://ispeech.org/text.to.speech
http://fromtexttospeech.com/

http://balabolka-tts.ru/balabolka.html
http://vector-ski.ru/vecs/govorilka/


Колоризация

https://color.artlebedev.ru/
https://colourise.sg/#colorize


Конвертеры онлайн

https://convert-video-online.com/ru/
https://video.online-convert.com/ru


Архивация web.archive.org

Страница архивируется добавив в адрес в начало
https://web.archive.org/save/

Стартуется адрес https://web.archive.org/save/https://***
и получается адрес без букв save включая буквы web и цифры
https://web.archive.org/web/2020*/https://***
без рекламы и без счётчиков

Проверено всё на себе
Случайные и Массивы https://programmersforum.ru/showthread.php?t=344371 Учим C# & basic & excel & python https://programmersforum.ru/showthre...=327446&page=5 ничего нерекомендую
сфинкс вне форума Ответить с цитированием
Старый 29.07.2020, 11:57   #86
сфинкс
Форумчанин
 
Аватар для сфинкс
 
Регистрация: 17.06.2012
Сообщений: 954
По умолчанию

Список: инструкции бытовой техники

https://ftp.dns-shop.ru/
https://ftp.dns-shop.ru/bios/

Архивы и pdf с размерами файлов

Лично я скачивал через менеджер закачек
сохраняя дату размещения в каталоге
Случайные и Массивы https://programmersforum.ru/showthread.php?t=344371 Учим C# & basic & excel & python https://programmersforum.ru/showthre...=327446&page=5 ничего нерекомендую
сфинкс вне форума Ответить с цитированием
Старый 15.08.2020, 18:25   #87
сфинкс
Форумчанин
 
Аватар для сфинкс
 
Регистрация: 17.06.2012
Сообщений: 954
По умолчанию

3д форматы

Анаглиф = качество малое готово под красно-синие очки
пере-форматирование невозможно
цвета искажены

Стереопара = качество складывается для красно-синих очков
изменение формата возможно
цвета искажены

3д очки = качественно без искажений без красно-синих очков
изменение формата возможно
цвета без искажения

Светло-тёмные очки = устаревший для вращающихся сцен
пере-форматирование невозможно
цвета без искажения

плэйлисты:

стереопара
https://www.youtube.com/playlist?lis...xT6K5L692_eusF

анаглиф
https://www.youtube.com/playlist?lis...PLYffrAZW7xN14

дрон коптер высота
https://www.youtube.com/playlist?lis...3D26fAUWdIPxXg
Случайные и Массивы https://programmersforum.ru/showthread.php?t=344371 Учим C# & basic & excel & python https://programmersforum.ru/showthre...=327446&page=5 ничего нерекомендую

Последний раз редактировалось сфинкс; 15.08.2020 в 18:37.
сфинкс вне форума Ответить с цитированием
Старый 29.08.2020, 16:17   #88
сфинкс
Форумчанин
 
Аватар для сфинкс
 
Регистрация: 17.06.2012
Сообщений: 954
По умолчанию

онлайн компиляторы:

https://ideone.com
https://jdoodle.com
https://onlinegdb.com
https://rextester.com
https://ide.geeksforgeeks.org

сборник программ на разных языках программирования

http://rosettacode.org/wiki/Category:C_sharp
http://rosettacode.org/wiki/Category:QB64

всё проверено на себе

плюс форум по адресу компилятора находит сообщения
где работают программы онлайн
Случайные и Массивы https://programmersforum.ru/showthread.php?t=344371 Учим C# & basic & excel & python https://programmersforum.ru/showthre...=327446&page=5 ничего нерекомендую

Последний раз редактировалось сфинкс; 29.08.2020 в 16:22.
сфинкс вне форума Ответить с цитированием
Старый 07.10.2020, 21:52   #89
сфинкс
Форумчанин
 
Аватар для сфинкс
 
Регистрация: 17.06.2012
Сообщений: 954
По умолчанию

Интеграл букв: все комбинации букв всех слов

Дан словарь тысяч слов без лишних символов
12345.txt

Моя программа каждое слово раскладывает на буквы
и составляет таблицу 54321.txt
количества сочетаний всех букв



=26*25/2 = 25*13 = 325

Пока сортировка не реализована
упорядочил в Excel:

Код:
1	18912	E	S
2	17898	I	N
3	14121	A	E
4	13913	E	R
5	13057	E	N
6	12980	I	S
7	12694	A	N
8	12372	A	I
9	12010	A	T
10	11760	R	S
Код:
'izhitsaUS.bas
DIM a(26, 26)
OPEN "12345.txt" FOR INPUT AS #1
OPEN "54321.txt" FOR OUTPUT AS #2

FOR a = 1 TO 45400
    INPUT #1, s$: s = LEN(s$) ': PRINT s$ ' or all in memory

    FOR x = 1 TO s - 1: FOR y = x + 1 TO s
            v = ASC(MID$(s$, x, 1)) - 64
            w = ASC(MID$(s$, y, 1)) - 64
a(v, w) = a(v, w) + 1: NEXT: NEXT: NEXT

z = 1: FOR i = 1 TO 25: FOR j = i + 1 TO 26
        PRINT z, a(i, j), CHR$(i + 64), CHR$(j + 64)
        PRINT #2, z; CHR$(9); a(i, j); CHR$(9); CHR$(i + 64); CHR$(9); CHR$(j + 64)
z = z + 1: NEXT: PRINT: PRINT #2,: NEXT
Русские буквы: 32 без буквы Ё надеюсь правильно 192=А и 223=Я
плюс промежуточный файл выявляет лишние буквы

Массив свыше 400'000 слов исследован за 20 секунд
записывая на RAM-disk для экономии

Частые сочетания:

Код:
1	141574	Е	Н
2	134736	А	И
3	123388	А	Н
4	115612	Н	О
5	113545	А	Е
6	106810	О	Т
7	105007	Е	О
8	99756	А	О
9	97112	Е	И
10	94669	А	Т
Редкие сочетания упорядочиваются вниз

Код:
'izhitsa.bas
'=32*31/2 = 31*16 = 496
DIM a(32, 32)
OPEN "b:/12345ru.txt" FOR INPUT AS #1
OPEN "b:/54321ru.txt" FOR OUTPUT AS #2
OPEN "b:/321ru.txt" FOR OUTPUT AS #3
start = TIMER
u = 1: FOR a = 1 TO 430028
    INPUT #1, s$: s = LEN(s$) ': PRINT s$ ' or all words in memory
    LOCATE 1, 1: PRINT u, s$; "          ";: PRINT #3, s$: u = u + 1
    FOR x = 1 TO s - 1: FOR y = x + 1 TO s
            v = ASC(MID$(s$, x, 1)) - 191
            w = ASC(MID$(s$, y, 1)) - 191
a(v, w) = a(v, w) + 1: NEXT: NEXT: NEXT
finish = TIMER
z = 1: FOR i = 1 TO 31: FOR j = i + 1 TO 32
        PRINT z, a(i, j), CHR$(i + 191), CHR$(j + 191)
        PRINT #2, z; CHR$(9); a(i, j); CHR$(9); CHR$(i + 191); CHR$(9); CHR$(j + 191)
z = z + 1: NEXT: PRINT: PRINT #2,: NEXT
PRINT finish - start
PRINT #2, finish - start
А.С.П. "Е.О"
Код:
1	3711	Е	Н
2	3106	Н	О
3	2911	О	Т
4	2701	С	Т
5	2634	Е	Т
6	2539	А	Н
7	2518	В	Е
8	2371	Е	О
9	2292	А	Е
10	2266	В	О
Архив: только английские слова
Вложения
Тип файла: zip 12345.zip (124.2 Кб, 5 просмотров)
Случайные и Массивы https://programmersforum.ru/showthread.php?t=344371 Учим C# & basic & excel & python https://programmersforum.ru/showthre...=327446&page=5 ничего нерекомендую

Последний раз редактировалось сфинкс; 08.10.2020 в 00:37.
сфинкс вне форума Ответить с цитированием
Старый 30.11.2020, 22:45   #90
сфинкс
Форумчанин
 
Аватар для сфинкс
 
Регистрация: 17.06.2012
Сообщений: 954
По умолчанию

Улучшен подсчёт букв независимо от порядка букв по алфавиту

Практически: матрица квадратная
стала матрицей треугольной без главной диагонали

И ещё реально подсчитывать повторы комбинаций


Интеграл букв: все комбинации букв всех слов

Дан словарь тысяч слов без лишних символов
12345.txt

Моя программа каждое слово раскладывает на буквы
и составляет таблицу 54321.txt
количества сочетаний всех букв



=26*25/2 = 25*13 = 325

Пока сортировка не реализована
упорядочил в Excel:
Код:
269466	А	О
255418	Е	О
252248	А	И
249166	Н	О
245402	А	Р
242352	И	О
239686	О	Р
238594	А	Е
237210	Е	Н
229864	А	Н
...
542	Ж	Ъ
536	Ж	Э
462	Ж	Ф
348	Ф	Щ
232	Щ	Ъ
222	Ч	Ъ
106	Ф	Ъ
106	Щ	Э
88	Ц	Ъ
56	Ъ	Э

Код:
'izhitsa.bas
'=32*31/2 = 31*16 = 496
DIM a(32, 32)
OPEN "12345ru.txt" FOR INPUT AS #1
OPEN "321ru.txt" FOR OUTPUT AS #2
OPEN "54321ru.txt" FOR OUTPUT AS #3
start = TIMER
z = 1: FOR a = 1 TO 2 '4'30028
    INPUT #1, s$: s = LEN(s$) ': PRINT s$ ' or all words in memory
    FOR m = 1 TO s - 1: FOR n = m + 1 TO s
            IF MID$(s$, m, 1) = MID$(s$, n, 1) THEN s$ = MID$(s$, 1, n - 1) + MID$(s$, n + 1, LEN(s$))
    NEXT: NEXT: s = LEN(s$)
    LOCATE 1, 1: PRINT z, s$; "          ";: PRINT #2, s$: z = z + 1

    FOR x = 1 TO s: FOR y = 1 TO s
            v = ASC(MID$(s$, x, 1)) - 191
            w = ASC(MID$(s$, y, 1)) - 191
    a(v, w) = a(v, w) + 1: NEXT: NEXT

    FOR u = 1 TO 31: FOR v = u + 1 TO 32
            a(u, v) = a(u, v) + a(v, u): a(v, u) = 0
    NEXT: NEXT
NEXT: finish = TIMER

z = 1: FOR i = 1 TO 31: FOR j = i + 1 TO 32
        PRINT z, a(i, j), CHR$(i + 191), CHR$(j + 191)
        PRINT #3, z; CHR$(9); a(i, j); CHR$(9); CHR$(i + 191); CHR$(9); CHR$(j + 191)
z = z + 1: NEXT: PRINT: PRINT #3,: NEXT
PRINT finish - start
PRINT #2, finish - start
Предполагаю алгоритм пригодится чтоб исследовать и оптимизировать гигантские массивы

Improved counting of letters regardless of order of letters in alphabet

Practically: square matrix
has become a triangular matrix without main diagonal

And it is still possible to count repetitions of combinations

I assume this algorithm will be useful to explore and optimize giant arrays
Случайные и Массивы https://programmersforum.ru/showthread.php?t=344371 Учим C# & basic & excel & python https://programmersforum.ru/showthre...=327446&page=5 ничего нерекомендую

Последний раз редактировалось сфинкс; 30.11.2020 в 22:49.
сфинкс вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Перевод кода из qb64 qbasic на C++ AlexDolmat Помощь студентам 0 07.02.2022 01:02
сила трения на qbasic64 - программа, изображающей силу трению в qb64. Например движение бруска по земле блин ир Помощь студентам 3 17.12.2019 13:47
Задача Basic Excel tooooool Помощь студентам 0 20.04.2012 20:00
Visual Basic интегрированный в Excel a1b2 Microsoft Office Excel 3 23.12.2010 19:53