PDA

View Full Version : Исходники программ для океанологов / Source codes

koldunovn
17th May 2005, 11:41 AM
Здесь предлогается публиковать исходники программ созданных океанологами для своих нужд, которые могут быть полезны и другим.
koldunovn
17th May 2005, 11:44 AM
Psoi90.f90 (http://www.oceanography.narod.ru/uchoba/soft/psoi90.f90)(38 Kb) - набор океанологических подпрограмм-функций для Фортрана от расчёта плотности по УС-80 до вычисления определенного интеграла методом трапеций. Эту программу можно подсоединять к любым своим проектам в Фортране и не прописывать кучу лишних действий. Вся эта программа написана Виктором Семеновичем Архипкиным с кафедры океанологии МГУ. Смотрите также калькулятор Архипкина (http://www.oceanography.narod.ru/uchoba/spravka/calcul.htm#1)в разделе океанологические калькуляторы. (http://www.oceanography.narod.ru/uchoba/spravka/calcul.htm)

Здесь файл представлен в .txt потому что форум .f90 вставлять не даёт.
koldunovn
17th May 2005, 11:47 AM
Work_unit.pas (http://www.oceanography.narod.ru/uchoba/soft/work_unit.pas) (22 Kb) - модуль в котором прописаны процедуры по расчёту различных океанологических характеристик (от температуры замерзания до коэффициента обмена теплом при солевых пальцах) но уже для Delphi. Автор - Сергей Александрович Кириллов.

также нужно переименовать .txt в .pas
koldunovn
19th May 2005, 01:41 PM
Библиотека инструментов для Delphi 4, реализующая вейвлет преобразование. Мощный и гибкий механизм обработки сигналов, применяемый для решения задач сглаживания, апроксимации, удаления шумов, сжатия сигналов. Библиотека поставляется с исходными текстами. Скачать – wavutils.exe (http://online.download.ru/Download/%5BProgramID=8600%5D), 36 Кб. Способ распространения – freeware.

В библиотеке реализованы вейвлет-преобразование при помощи вейвлетов Добеши до 10-го порядка и сглаживание сигналов методом удаления незначащих деталей.
В библиотеку включены функции, реализующие следующие операции: - Decompose -- разложение сигнала на апроксимацию и детали - Reconstruct -- восстановление сигнала из разложенного - Denoise -- удаление шума Дополнительно см.
http://www.basegroup.ru/download/wavelet_utils/
koldunovn
19th May 2005, 01:53 PM
А здесь Delphi код для мексиканской шляпы. Он не причёсан и не полностью откоментирован, но вдруг кому пригодится. :rolleyes: