Форум программистов
 
О проблемах, например, с регистрацией пишите сюда - alarforum@yandex.ru, проверяйте папку спам! Обязательно пройдите активизацию e-mail, а тут можно восстановить пароль.

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

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

Здесь нужно купить рекламу за 20 тыс руб в месяц! ) пишите сюда - alarforum@yandex.ru
Без учёта ботов - 20000 человек в день, 350000 в месяц.

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

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

Код:
'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 цифр и провериться
учим C# зная basic & excel
https://programmersforum.ru/showthre...=327446&page=9

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

Проверка 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
учим C# зная basic & excel
https://programmersforum.ru/showthre...=327446&page=9

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

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

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

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

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

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

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

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

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

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



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

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

https://voxworker.com/ru

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

tts russian
text to speech russian

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

AudaCity
WavePad
учим C# зная basic & excel
https://programmersforum.ru/showthre...=327446&page=9

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

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

Переводы

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://***
без рекламы и без счётчиков

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

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

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

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

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

3д форматы

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

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

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

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

плэйлисты:

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

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

дрон коптер высота
https://www.youtube.com/playlist?lis...3D26fAUWdIPxXg
учим C# зная basic & excel
https://programmersforum.ru/showthre...=327446&page=9

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

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

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

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

плюс форум по адресу компилятора находит сообщения
где работают программы онлайн
учим C# зная basic & excel
https://programmersforum.ru/showthre...=327446&page=9

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

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

Дан словарь тысяч слов без лишних символов
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 Кб, 2 просмотров)
учим C# зная basic & excel
https://programmersforum.ru/showthre...=327446&page=9

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

Здесь нужно купить рекламу за 20 тыс руб в месяц! ) пишите сюда - alarforum@yandex.ru
Без учёта ботов - 20000 человек в день, 350000 в месяц.

Опции темы


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
макрос Excel Visual Basic arly123 Помощь студентам 0 20.04.2013 00:43
Visual Basic Microsoft Excel Людмила. Помощь студентам 3 23.11.2012 18:51
Задача Basic Excel tooooool Помощь студентам 0 20.04.2012 19:00
Kак связать Visual Basic с Excel Vceznayka Microsoft Office Excel 2 23.12.2011 03:12
Visual Basic интегрированный в Excel a1b2 Microsoft Office Excel 3 23.12.2010 19:53


Проекты отопления, пеллетные котлы, бойлеры, радиаторы
интернет магазин respective.ru
Пеллетный котёл Emtas
котлы EMTAS
Здесь нужно купить рекламу за 7 тыс руб в месяц! )
пишите сюда - alarforum@yandex.ru
ИКС 840