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

Ностальгия по 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

1

Сообщение от m-ch Полином и кубический сплайн ведут себя по разному

Так а вкратце, сплайн работает через решение системы лин. уравнений?
Вроде бы что-то такое давно ещё говорил препод на "методах оптимизации"...
Мне просто понимать матем. сложность, надо мол лезть туда или не надо.

0

Суть метода:
На каждом участке функции между узлами строится полином не выше 3й степени
Ставится условие непрерывности первой и второй производной (отсутствие "переломов" функции)
Решение сводится к построению системы линейных уравнений

1

Блин да, это мне долго всё курить, ладно, тогда отбой m-ch... Спасибо, за прояснение ситуации.

0

В файле же есть рабочий код. Который не сложно адаптировать

0

Сообщение от m-ch В файле же есть рабочий код. Который не сложно адаптировать

Да уже его посмотрел. На самом деле не использую код, до того времени, пока полностью
не понимаю его принцип работы. Тут тот случай, когда нужно шарить полностью, а не просто
найти быстрое решение. Разобраться, портировать то там 20-30 минут.
Чуть позже для себя, может, линейки порешаю, раскурю всё это, тут ещё дела навалились.
Да и бошка ватная стала, ничё не поделаешь.

0

Quiet Snow.Никакой полином такую зависимость не с интерполирует:

Y=SIN(X^0.8)

X Y
1 0.84
2 0.99
3 0.67
4 0.11
5 -0.46
6 -086
7 -0.99
8 -0.84
9 -0.46
10 -2.63E-2
11 0.50
12 0.85
13 0.99
14 0.92
15 0.64
16 0.23
17 -0.82
18 -0.62
19 -0.90
20 -1.00
Но по моемому я вашу задачу решил, вернее придумал алгоритм решения, осталось написать программу, отладить ее, согласовать с вами, посчитать и тогда будет видно, правильный ли алгоритм или нет.

Добавлено через 38 минут
Это в лучшем случае, а в нормальном - убедится, что алгоритм ни к черту не годится и надо начинать все с начала: думать, думать, думать.

0

Сообщение от Georg Aleks Никакой полином такую зависимость не с интерполирует

Так идеального случая там и не будет, это мне понятно. В большинстве предметно-ориентированных
программ используют SINC метод т.е. два в одном фильтр + интерполяция.
Интерполирует эта штука обычно в районе от 32 до 512 точек.

А вот и смоделированная неточность.


Суть косяка крупным планом:


Вообще, чую, Лагранж из всего этого - самое быстрое, но оговорок много.

Georg Aleks, сегодня просто сам жёстко занят был, особо не было времени возиться. А под вечер
чё-то подустал.

0