Форум программистов, компьютерный форум, киберфорум
QBasic
Войти
Регистрация
Восстановить пароль
 
 
Рейтинг 4.88/8: Рейтинг темы: голосов - 8, средняя оценка - 4.88
34 / 2 / 1
Регистрация: 11.04.2017
Сообщений: 19
1

Ностальгия по QuickBASIC

25.04.2017, 13:46. Просмотров 1609. Ответов 26
Метки нет (Все метки)

Ностальгия по QuickBASIC

Перебирая случайно сохранившиеся CD-диски с архивными файлами, я наткнулся на файл, с давно забытыми мною программами, которые я, в свое время, напрограммировал целую кучу.
Программы предназначались, как для обработки экспериментальных данных, так и для расчетов различных термодинамических процессов с которыми я сталкивался. К сожалению, не все программы сохранились, особенно это те, которые хранились на перфолентах, перфокарточках и на мягких дисках.
Мне крупно повезло, что у меня сохранилась машина Пентиум–486 с Виндовсом-95, сидиром которой и позволил прочитать сохранившийся архивный диск, записанный в конце того века.
Вот перечень сохраненных программ - Raschet.rar (1983 1995 гг.):
1. aproks.bas - Аппроксимация полиномом по методу наименьших квадратов
2. interpol.bas - Многоинтегральная двухмерная интерполяция по Лагранжу
3. minmax.bas - Поиск максимума (минимума) методом золотого сечения
4. minmax1.bas - Поиск максимума (минимума) методом поразрядного приближения
5. prog41.bas - Аппроксимация кривой методом выбранных точек
6. prog46.bas - Интерполяция по Лагранжу для N+1узлов
7. prog47.bas - Построение интерполяционного полинома Ньютона и интерполяция при произвольно расположенных узлах
8. prog4_10.bas - Многоинтервальная двухмерная квадратичная интерполяция-аппроксимация функции F(X<Y)
9. uravn1.bas - Численный метод решения уравнений по методу Зероина
10. uravn11.bas - Численный метод решения уравнений методом простых итераций
11. uravn2.bas - Решение квадратных уравнений
12. krusha.bas - Тепломассообмен через крышу холодильных камер (алгоритм доцента Кочетова)
13. progib2.bas - Расчет однопролетной панели (алгоритм доцента Кочетова)
14. progib3.bas – Расчет двупролетной панели (алгоритм доцента Кочетова)
15. sergey.bas – Расчет многопролетной трехслойной панели (В.Доминчик, О.Корыцки, В.Меуш (Польша) - алгоритм доцента Кочетова)
16. panel.bas - Расчет панельной системы охлаждения и определение ее геометрических, тепловых, массовых и объемных, а также стоимостных характеристик. Исследование вариантов с переохлажденным агентом. (Алгоритм профессора Авдеева)
17. p_bmnk.bas - Расчет Пс_БМНК (Алгоритм профессора Авдеева)
18. p_bmnkn.bas - Расчет Пс_БМНКН (Алгоритм профессора Авдеева)
19. p_bmpx.bas - Расчет Пс_БМПХ (Алгоритм профессора Авдеева)
20. p_ctnk.bas - Расчет Пс_СТНК (Алгоритм профессора Авдеева)
21. p_ctnkn.bas - Расчет Пс_СТНКН (Алгоритм профессора Авдеева)
22. p_ctpx.bas - Расчет Пс_СТПХ (Алгоритм профессора Авдеева)
23. termopar.bas - Расчет таблиц термоЭДС в зависимости от температур при градуировке термопар по полиному второй степени. (Исходные данные доцента Погонцева)
24. zarplata.bas – Расчет зарплаты (Алгоритм и программа Разумова)
Программы написаны на алгоритмическом языке QuickBASIC и были рассчитаны на ЭВМ Элетронника-Д3-28, которая была тогда в моем распоряжении.
Основная моя работа, в то время, была связана с расчетом, задуманного мною, создания всеобщего уравнения состояния для трех фаз. Расчеты были громоздкими и рассчитывались на Фортране-IV на ЭВМ серии ЕС разных модификаций. К сожалению, все расчеты были утрачены в гиблое для страны время. Чудом сохранившийся диск и вызвал эту ностальгию.
Вложение 825255
Кликните здесь для просмотра всего текста

Все программы работоспособны и я готов, по первому требованию, выслать их, если кто то в них заинтересован. пишите мне в этой теме
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
25.04.2017, 13:46
Ответы с готовыми решениями:

Функция в QuickBasic
y=((x^x+〖sin〗^2 x)/|2-x| )^(1/3) Помогите решить задачку в QuickBasic

QuickBasic 3D FAQ
Здравствуйте уважаемые форумчане! Написал небольшую FAQ-статейку про создание 3D графики на...

QuickBASIC.Разветвление
Помогите пожалуйста кто ни будь

Проблемы компиляции на QUICKBASIC
Привет, братцы по разуму. Пишу программы на QuickBASIC4.0 (1987г под DOS). В интерпретаторе (в...

26
Почетный модератор
Эксперт по компьютерным сетямЭксперт Windows
28012 / 15738 / 971
Регистрация: 15.09.2009
Сообщений: 67,812
Записей в блоге: 78
25.04.2017, 13:52 2
было бы неплохо, если бы вы просто, без лишних заморочек выложили архив в тему.
или в количестве нескольких архивов.
ну а я, со своей стороны, отсыпал бы в карму оптом плюсиков, и посовещался с коллегами на вопрос закрепления темы.
0
34 / 2 / 1
Регистрация: 11.04.2017
Сообщений: 19
25.04.2017, 14:03  [ТС] 3
Если вы считаете что тема не интересна, то не публикуйте ее, а что означают "отсыпать в карму оптом плюсиков" я не понимаю и как выложить этот архив я не знаю. Слишком далеки мы от народа.
0
Модератор
6424 / 2518 / 487
Регистрация: 24.04.2011
Сообщений: 4,576
Записей в блоге: 10
25.04.2017, 14:48 4
Цитата Сообщение от Georg Aleks Посмотреть сообщение
Если вы считаете что тема не интересна
Напротив, тема может заинтересовать, но только если вы к сообщению прикрепите Ваши найденные программы на QB.
Цитата Сообщение от Georg Aleks Посмотреть сообщение
отсыпать в карму оптом плюсиков
Это значит, что Ваша репутация (это слово не надо разъяснять?) может увеличится с сегодняшней 1 до до некоторого серьёзного числа, что сразу поднимет Вас в глазах форумчан, как специалиста в области QBasic
Цитата Сообщение от Georg Aleks Посмотреть сообщение
как выложить этот архив я не знаю
Сверху над редактором сообщения (где вы пишите ответ) есть различные иконки, последняя в первом ряду это СКРЕПКА со стрелкой вниз - "вложения".
Нажмите на неё, она поможет прикрепить архив к сообщению. Допускаются ZIP, RAR и т.п. архивы.
0
34 / 2 / 1
Регистрация: 11.04.2017
Сообщений: 19
25.04.2017, 17:59  [ТС] 5
Лучший ответ Сообщение было отмечено magirus как решение

Решение

Пересылаю целую кучу программ разработанных до 1995 года (вернее последнее когда я к ним касался, было в этом году, потом вообще все рухнуло и рушится до сих пор. Какой крепкий был Советский Союз!)RASCHET.RAR
0
34 / 2 / 1
Регистрация: 11.04.2017
Сообщений: 19
25.04.2017, 18:06  [ТС] 6
Слово "репутация" не водит в ваш птичий язык общения. Общайтесь по русски!
0
Почетный модератор
Эксперт по компьютерным сетямЭксперт Windows
28012 / 15738 / 971
Регистрация: 15.09.2009
Сообщений: 67,812
Записей в блоге: 78
25.04.2017, 18:17 7
это Вы, коли в интернет вышли - учитесь интернет сленгу.
ну а если по Русски -
Большое Вам Спасибо!!!

Добавлено через 7 минут
хотя ничего из заявленного в архиве не увидел.

Добавлено через 1 минуту
Цитата Сообщение от Georg Aleks Посмотреть сообщение
не водит в ваш птичий язык общения
коли для Вас это птичий язык - покиньте интернет, и больше его не включайте.
0
34 / 2 / 1
Регистрация: 11.04.2017
Сообщений: 19
25.04.2017, 18:35  [ТС] 8
Названия файлов раскрыты в тексте темы. В архиве все есть. Поместить файл "RASCHET" в тело QB и считайте на здоровье, если у вас есть исходные данные, если их нет, придумайте сами. Где изучают ваш язык общения?
0
4718 / 1392 / 384
Регистрация: 25.04.2010
Сообщений: 3,736
Записей в блоге: 1
25.04.2017, 21:24 9
Georg Aleks, понятно. Тема, конечно, полезная, только в таком виде ей тяжело пользоваться.
Меня вот лично интересуют алгоритмы интерполяции(больная тема), если бы вы могли снять
видео и наглядно объяснить, что происходит в программе - то теме цены бы не было.
Где-то возможно визуально показать и объяснить.

Единственное, поправлю - вы не могли написать это до появления QuickBASIC, т.е. до 1985 года
судя по оф. источникам. Возможно вы запамятовали, скорее всего это и писано на вашем 486-м
и т.п. машинах класса x86.

Где изучают ваш язык общения?
Да в общем то сильного сленга тут на форуме нет. Все общаются на классическом русском языке.
Разве что некоторые технические словца могут фигурировать с английского. В любом случае всегда
можно спросить.

Ув. модераторы, можно продублировать ссылку на программы в шапку темы?

Добавлено через 5 минут
Цитата Сообщение от magirus Посмотреть сообщение
и посовещался с коллегами на вопрос закрепления темы
Давайте не будем "торопить коней".
0
5660 / 870 / 289
Регистрация: 25.02.2011
Сообщений: 1,229
Записей в блоге: 1
26.04.2017, 08:45 10
Цитата Сообщение от Quiet Snow Посмотреть сообщение
Меня вот лично интересуют алгоритмы интерполяции
Делал варианты интерполяции, правда в Excel на VBA, не все можно перевести на QBasic, но вероятно будет полезным.
В качестве решений использованы следующие варианты интерполяции:
Линейная интерполяция по двум точкам, Интерполяция кубическим сплайном, Сплайн Акимы (ALGLIB), Сплайн Катмулла-Рома (ALGLIB), Сплайн Эрмита (ALGLIB), Полином Лагранжа

Добавлено через 5 минут
Интерполяционный многочлен Лагранжа
1
4718 / 1392 / 384
Регистрация: 25.04.2010
Сообщений: 3,736
Записей в блоге: 1
26.04.2017, 23:43 11
Линейная интерполяция по двум точкам, Интерполяция кубическим сплайном, Сплайн Акимы (ALGLIB), Сплайн Катмулла-Рома (ALGLIB), Сплайн Эрмита (ALGLIB), Полином Лагранжа
Не, ALGLIB не нужен, линейная тоже, Лагранж портировал, правда нифига не понял всех манипуляций
с весовыми коефф-тами, но он мне не шибко подходит(там функцию колбасит будь здоров),
если писать что-то на Лагранже, то там кучу логики вваливать, чтобы он более или менее работал.

Нужно что-то простое(не гипер навороченное матаном), быстро фурычащее(для оптимизации на SIMD,
под RealTime) и нелинейное.
0
5660 / 870 / 289
Регистрация: 25.02.2011
Сообщений: 1,229
Записей в блоге: 1
26.04.2017, 23:49 12
На мой взгляд самое доступное и интересное это интерполяция кубическим сплайном
Есть нелинейность, обеспечение непрерывности первой и второй производной (т.е. нет переломов функций), относительно не сложная реализация.
В отличие от полинома Лагранжа, получается предсказуемый результат.

Либо нужно смотреть в сторону аппроксимации
1
34 / 2 / 1
Регистрация: 11.04.2017
Сообщений: 19
27.04.2017, 08:37  [ТС] 13
Quiet Snow Насколько я понял, есть ряд кривых, которые надо проинтерполировать. В чате не удастся, нужны исходники и тп, т.е. нужен разговор. Мой скайп *****. Суббота, воскресенье с 18.00.

Добавлено через 1 минуту
По Киевскому времени.
0
4718 / 1392 / 384
Регистрация: 25.04.2010
Сообщений: 3,736
Записей в блоге: 1
27.04.2017, 12:05 14
Цитата Сообщение от Georg Aleks Посмотреть сообщение
Насколько я понял, есть ряд кривых, которые надо проинтерполировать.
Дискретные отсчёты. Интерполирую между отсчётов.
Исходников особых нет, кроме Лагранжа(который уже тут любезно выкладывал тучу времени тому
назад в закреплённой теме).
Суть - исходные отсчёты (можно взять синусоиду) идут с шагом 1.
Интерполированные берём например с шагом 0.9, интерполированный кусок немного растянется.
Сверять полученный кусок с опять же синусоидой(вычислить шаг, он будет = 1 / 0.9 ).
В идеальном случае погрешности быть не должно, но т.к. это всё вычисления и она накапливается, то
скорее всего она будет, абсолютно минимальная, но будет. Мне главное - форма сигнала.
Также наиболее интересно разрешение ситуаций, когда вращение синусоиды на начале отрезка чуть
меньше Pi, а на конце примерно 2 Pi, т.н. предсказание данных, т.е. то, что можно выжать из алгоритма
интерполяции. Для теста обычно вывожу график и между отсчётов интерполирую скажем 10 точек,
чтобы видеть какой вид приобретает функция, а между оригинальными отсчётами рисую линии, чтобы
визуально оценить погрешность.

Вообще мне нужна вот эта вот байда:
https://ccrma.stanford.edu/~jo... ation.html
но в упор не пойму как мне это закодить. Смотрю в книгу - вижу блин толстую фигу.
Формулы то вроде детские, а хр*н проссышь что там куда.

Цитата Сообщение от Georg Aleks Посмотреть сообщение
Мой скайп
Постучал, в выходной спишемся.

Товарищи модераторы, уберите, пожалуйста, контакт из сообщения. Человек ещё не
освоился в таких нюансах.
0
5660 / 870 / 289
Регистрация: 25.02.2011
Сообщений: 1,229
Записей в блоге: 1
27.04.2017, 13:01 15
Quiet Snow, если доступен MS Excel, то во вложении пример интерполяции кубическим сплайном.
Код на VBA не мой
Думаю, что переписать его на QBasic возможно без существенных правок

За исходную функцию брал y = sin(x^0.8) на интервале 0-20 с шагом 1
На графике и в таблице видно, что интерполяция очень близка к исходной функции
1
Вложения
Тип файла: rar Интерполяция.rar (43.3 Кб, 4 просмотров)
4718 / 1392 / 384
Регистрация: 25.04.2010
Сообщений: 3,736
Записей в блоге: 1
27.04.2017, 21:36 16
Цитата Сообщение от m-ch Посмотреть сообщение
Quiet Snow, если доступен MS Excel
На виртуалке имеется 2003-й. Посмотрю.
0
34 / 2 / 1
Регистрация: 11.04.2017
Сообщений: 19
28.04.2017, 00:25  [ТС] 17
Quiet Snow Я посмотрел в почте CyberForum.ru, приведенную вами задачу с заданными X,Y и попробывал посчитать их по программе: «Построение интерполяционного полинома Ньютона и интерполяция при произвольно расположенных узлах». Какая то закономерность видна, но решать вам.
На всякий случай привожу результаты расчета:

Исходные данные:

X -200 -50 50 200 400 500 670 800
Y 30 15 5 30 20 30 55 60
Yрасчетный
Yр 30 15 5 29.99 19.98 29.94 54.53 58.33
Как видно в узловых точках сходимость удовлетворитедьная

Коэффициенты полинома восьмой степени:
9.5676 Е-17 -2.1266Е-13 1.6042 Е-10 -3.9548 Е-08 -4.3144 Е-06 2.5767 Е-03 -9.0218 Е-02 3.8087

Я решил просчитать промежуточные значения:

X Yпр
-150 55.09
-100 37.13
-50 15
0 3.81
50 5
100 13.68
180 28.04
190 29.13
200 29.99
210 30.64
220 31.05
230 31.25
240 31.23
250 31.01
300 27.58
350 23.71
400 19.99
450 22.19
500 29.94

По внешнему виду это лекальная кривая сходящаяся в бесконечности. Но может быть я и ошибаюсь. Нужно считать и строить – тогда увидим.
1
4718 / 1392 / 384
Регистрация: 25.04.2010
Сообщений: 3,736
Записей в блоге: 1
28.04.2017, 02:06 18
Цитата Сообщение от m-ch Посмотреть сообщение
Интерполяционный многочлен Лагранжа
Блин не открылось. А можно пересохранить в формате 2003-го?

Цитата Сообщение от Georg Aleks Посмотреть сообщение
X -200 -50 50 200 400 500 670 800
Y 30 15 5 30 20 30 55 60
По X у меня приращение в единицу, т.е. X: 0, 1, 2, 3, 4, 5, 6, 7
В принципе ваш полином нормально работает.
Ностальгия по QuickBASIC
0
5660 / 870 / 289
Регистрация: 25.02.2011
Сообщений: 1,229
Записей в блоге: 1
28.04.2017, 07:43 19
Цитата Сообщение от Quiet Snow Посмотреть сообщение
Блин не открылось. А можно пересохранить в формате 2003-го?
Выкладываю в 2003
также прикладываю график в виде картинки
1
Миниатюры
Ностальгия по QuickBASIC  
Вложения
Тип файла: xls Интерполяция.xls (83.5 Кб, 5 просмотров)
5660 / 870 / 289
Регистрация: 25.02.2011
Сообщений: 1,229
Записей в блоге: 1
28.04.2017, 08:09 20
Цитата Сообщение от Georg Aleks Посмотреть сообщение
Исходные данные:
X -200 -50 50 200 400 500 670 800
Y 30 15 5 30 20 30 55 60
Полином и кубический сплайн ведут себя по разному
Полином сильно уходит в разнос на краях графика
1
Миниатюры
Ностальгия по QuickBASIC  
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
28.04.2017, 08:09

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь.

Возможности QBasic/QuickBasic
Ты крутой! Я и не знал что Basic на такое способен! =-O

Движение графических объектов в QuickBasic
Здравствуйте Помогите сделать с помощью оператора DRAW чтобы имя &quot;Сергей&quot; двигалось слева...

QuickBasic, разветвление: принадлежит ли точка с заданными координатами заштрихованной области?
1)Даны действвительные числа X и Y .Определить ,принадлежит ли точка с координатами X,Y...

Ностальгия
По вынужденным причинам пришлось перейти на Висту SP 2.Все летает ,но не в производительновти...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
20
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2020, vBulletin Solutions, Inc.