Как переписать программу с Fortran на Python?

@supmener · Регистрация: 26.06.2013

Студворк — интернет-сервис помощи студентам

Раньше изучал Fortran под понимание этого кода, сейчас уже забыл, но думаю, что могу вспомнить в случае необходимости за некоторое время, что выучил тогда.
Другой вариант, это писать медицинские алгоритмы на каком - нибудь движке. Некоторое время потратил на изучение одного такого, так что возможно на нем.
Поэтому предлагаю Вам эту задачу с развлекательно-познавательной целью, если кого-то заинтересует на данный момент. Самому тоже интересно Ваше мнение, может займусь сам в будущем, если никто не заинтересуется. С конструкцией GO ознакомился, когда изучал основы Lisp.
C помощью кода программируются алгоритмы диагностики, для примера фрагмент которых на отображаемых на этой странице скриншотах во вложении темы.
Это из книги автора Наумов Л.Б. "Учебные игры в медицине" (дополнения к этому алгоритму есть в других книгах автора, книги серии выпущены в 70-80 годах).
Сейчас в национальном руководстве алгоритм другой, возможно из-за того, что этот более сложен для усвоения и применения.

Сканы в скачиваемом архиве из книги авторов Наумов Л.Б., Мамиконян Р.С., Наумов В.Л. "Болезни органов живота. Алгоритмы дифференциальной диагностики, распознавания, тактики. Справочное программированное руководство для врачей с программой для компьютерной диагностики." Ереван. Айастан. 1990г.
http://vedomo.ru/1TEMP/Automatic-diagnosis.zip
Если что, существуют сканы более высокого качества, только нет под рукой, надо искать, не помню куда положил.
Там, где папка подписана "Можно посмотреть сначала с конца", это значит, что код Fortran в конце этих страниц, а сначала идут примеры, что увидит пользователь на мониторе.
В файле "Смотреть с 27 страницы или с 11.pdf" описание устройства программы на 27 странице.
Папка "Эмуляторы" нам наверное сейчас не понадобится, так как тогда думал, что можно будет легко запустить этот код таким образом, однако потом что-то меня остановило насчет этого способа.

@supmener · 13.12.2020, 10:26 **[ТС]**

возможно из-за того, что этот более сложен для усвоения и применения.

Следует читать:

возможно частично из-за того, что этот более сложен для усвоения и применения.

Пример алгоритма на отображаемых скриншотах не самый удачный, так как другие часто не требуют мгновенного действия без промедления. А этот больше учебный, чем для возможностей практического применения, когда нету времени читать и отвечать на вопросы программы. Привел его, так как он на ПК есть, не надо сканировать другой.

Рыжий Лис · 13.12.2020, 11:39

Так напиши на питоне. if-else

Добавлено через 18 минут
Вообще такие простые пошаговые "алгоритмы" надо отделить от кода и хранить отдельно. То есть написать свой движок. Пример (без бд):

Python
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
db = {
    # pk: parent_id, a, a_detail, q
    1: (None, None, None, 'Пульсация на сонных артериях?'),
    2: (1, 'есть', 'Жизнь…', ''),
    3: (1, 'нет', '', 'Кошачий глаз?'),
    4: (3, 'есть', 'Биологическая смерть', ''),
    5: (3, 'нет', '', 'Длительность?'),
}
pk = 1
while True:
    _, _, a_detail, q = db[pk]
    if a_detail is not None:
        print(a_detail)
    print(q)
    for pk2, (parent_id, a, _, _) in db.items():
        if parent_id == pk:
            print('{}) {}'.format(pk2, a))
    pk = int(input('> '))

@supmener · 13.12.2020, 12:48 **[ТС]**

Благодарю. Не мог тогда понять, как работает движок на Fortrane, код которого в скачиваемом архиве. Была мысль расширение Фортрана для Пайтон задействовать.
У Вас код только для одного алгоритма. Там вроде код разных таких алгоритмов взаимодействует между собой. То есть по разным файлам надо разложить алгоритмы и связать их между собой. Я возможно попробую потом запустить оригинальный код с приделыванием к нему двух-трех алгоритмов, чтобы посмотреть, какой там вывод.

Добавлено через 3 минуты
А можно ли названия алгоритмов писать в именах файлов на русском?

Рыжий Лис · 14.12.2020, 09:30

ты даже не понял, что написано в моём коде.

Просто сядь - и начни писать код. Всё разговоры - пустые. Напиши один "алгоритм" из книги (ввод/вывод if'ы). Проверь, что код работает, как ожидалось. Оберни в функцию - проверь, что ничего не сломал. Напиши ещё с десяток "алгоритмов". Как только код разрастётся - можно и подумать о разделении в модули.

Сообщение от supmener

А можно ли названия алгоритмов писать в именах файлов на русском?

Проверь - узнаешь.

@supmener · 14.12.2020, 10:42 **[ТС]**

После вопроса про кошачий глаз ввожу 5 - нет, появляется вопрос длительность, что указывать, какие возможны варианты?

Рыжий Лис · 14.12.2020, 11:00

Какие запрограммируешь - такие и будут

@Alli_Lupin · 14.12.2020, 12:26

Не по теме:

supmener, а я так надеялся, что ты таки взялся за ум и понял, что программирование - не твоё. Не тот у тебя склад ума.

@supmener · 14.12.2020, 12:46 **[ТС]**

А Вы какие языки программирования знаете?

Рыжий Лис · 14.12.2020, 12:49

Какая тебе разница и как это связано с темой? Ты даже первую картинку перевести в код не можешь. Слабо, а?

@supmener · 14.12.2020, 14:13 **[ТС]**

Если бы он знал Fortran, то возможно что-то дельное в перспективе мог посоветовать. Я пока что занят другими делами.

@Alli_Lupin · 14.12.2020, 15:33

supmener, фортран не имеет перспектив, окститесь.

@supmener · 14.12.2020, 15:37 **[ТС]**

Почему?

@Alli_Lupin · 14.12.2020, 15:43

supmener, потому что этот язык старше тебя и последнее обновление было аж 2 года назад. Посмотри рейтинг популярности ЯП и попробуй найти там фортран.

@WH · 15.12.2020, 13:23

Сообщение от Alli_Lupin

supmener, потому что этот язык старше тебя и последнее обновление было аж 2 года назад. Посмотри рейтинг популярности ЯП и попробуй найти там фортран.

Фортран нишевый язык, для математических вычислений он очень хорош в его современных версиях.

@Alli_Lupin · 15.12.2020, 13:25

WH, так тут не математика, а ифы.

@supmener · 15.12.2020, 13:33 **[ТС]**

Вы в код заглядывали в скачиваемом архиве?

Рыжий Лис · 15.12.2020, 13:38

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

Перепечатайте интересующий вас код текстом на форум.

@WH · 15.12.2020, 13:40

Сообщение от Alli_Lupin

WH, так тут не математика, а ифы.

Просто утверждение было о языке, а не о ифах (с которыми в фортране кстати все в порядке).

@Alli_Lupin · 15.12.2020, 13:46

WH, ещё бы в языке, который успешно работает более полувека, было плохо с ифами))).

Добавлено через 1 минуту
supmener, зачем нам? дерево ветвлений вы скриншотами приложили. в случае необходимости мы на фортране это за пару дней напишем. но мы тут в ветке про пайтон. на нём мы напишем сильно быстрее.

Новые блоги и статьи Все статьи Все блоги /
Знаешь почему 90% людей редко бывают счастливыми? kumehtar 14.04.2026 Потому что они ждут. Ждут выходных, ждут отпуска, ждут удачного момента. . . а удачный момент так и не приходит.	Фиксация колонок в отчете СКД Maks 14.04.2026 Фиксация колонок в СКД отчета типа Таблица. Задача: зафиксировать три левых колонки в отчете. Процедура ПриКомпоновкеРезультата(ДокументРезультат, ДанныеРасшифровки, СтандартнаяОбработка) / / . . .	Настройки VS Code Loafer 13.04.2026 { "cmake. configureOnOpen": false, "diffEditor. ignoreTrimWhitespace": true, "editor. guides. bracketPairs": "active", "extensions. ignoreRecommendations": true, . . .	Оптимизация кода на разграничение прав доступа к элементам формы Maks 13.04.2026 Алгоритм из решения ниже реализован на нетиповом документе, разработанного в конфигурации КА2. Задачи, как таковой, поставлено не было, проделанное ниже исключительно моя инициатива. Было так:. . .
Контроль заполнения и очистка дат в зависимости от значения перечислений Maks 12.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача: реализовать контроль корректности заполнения дат назначения. . .	Архитектура слоя интернета для сервера-слоя. Hrethgir 11.04.2026 В продолжение https:/ / www. cyberforum. ru/ blogs/ 223907/ 10860. html Знаешь что я подумал? Раз мы все источники пишем в голове ветки, то ничего не мешает добавить в голову такой источник, который сам. . .	Подстановка значения реквизита справочника в табличную часть документа Maks 10.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача: при выборе сотрудника (справочник Сотрудники) в ТЧ документа. . .	Очистка реквизитов документа при копировании Maks 09.04.2026 Алгоритм из решения ниже применим как для типовых, так и для нетиповых документов на самых различных конфигурациях. Задача: при копировании документа очищать определенные реквизиты и табличную. . .

@supmener 87 / 95 / 15 Регистрация: 26.06.2013 Сообщений: 4,756

	Как переписать программу с Fortran на Python? 13.12.2020, 10:16. Показов 9207. Ответов 37 Метки нет (Все метки) Раньше изучал Fortran под понимание этого кода, сейчас уже забыл, но думаю, что могу вспомнить в случае необходимости за некоторое время, что выучил тогда. Другой вариант, это писать медицинские алгоритмы на каком - нибудь движке. Некоторое время потратил на изучение одного такого, так что возможно на нем. Поэтому предлагаю Вам эту задачу с развлекательно-познавательной целью, если кого-то заинтересует на данный момент. Самому тоже интересно Ваше мнение, может займусь сам в будущем, если никто не заинтересуется. С конструкцией GO ознакомился, когда изучал основы Lisp. C помощью кода программируются алгоритмы диагностики, для примера фрагмент которых на отображаемых на этой странице скриншотах во вложении темы. Это из книги автора Наумов Л.Б. "Учебные игры в медицине" (дополнения к этому алгоритму есть в других книгах автора, книги серии выпущены в 70-80 годах). Сейчас в национальном руководстве алгоритм другой, возможно из-за того, что этот более сложен для усвоения и применения. Сканы в скачиваемом архиве из книги авторов Наумов Л.Б., Мамиконян Р.С., Наумов В.Л. "Болезни органов живота. Алгоритмы дифференциальной диагностики, распознавания, тактики. Справочное программированное руководство для врачей с программой для компьютерной диагностики." Ереван. Айастан. 1990г. http://vedomo.ru/1TEMP/Automatic-diagnosis.zip Если что, существуют сканы более высокого качества, только нет под рукой, надо искать, не помню куда положил. Там, где папка подписана "Можно посмотреть сначала с конца", это значит, что код Fortran в конце этих страниц, а сначала идут примеры, что увидит пользователь на мониторе. В файле "Смотреть с 27 страницы или с 11.pdf" описание устройства программы на 27 странице. Папка "Эмуляторы" нам наверное сейчас не понадобится, так как тогда думал, что можно будет легко запустить этот код таким образом, однако потом что-то меня остановило насчет этого способа. Миниатюры 0

@supmener 87 / 95 / 15 Регистрация: 26.06.2013 Сообщений: 4,756
	13.12.2020, 12:48 [ТС]
	Благодарю. Не мог тогда понять, как работает движок на Fortrane, код которого в скачиваемом архиве. Была мысль расширение Фортрана для Пайтон задействовать. У Вас код только для одного алгоритма. Там вроде код разных таких алгоритмов взаимодействует между собой. То есть по разным файлам надо разложить алгоритмы и связать их между собой. Я возможно попробую потом запустить оригинальный код с приделыванием к нему двух-трех алгоритмов, чтобы посмотреть, какой там вывод. Добавлено через 3 минуты А можно ли названия алгоритмов писать в именах файлов на русском? 0

@supmener 87 / 95 / 15 Регистрация: 26.06.2013 Сообщений: 4,756
	14.12.2020, 10:42 [ТС]
	После вопроса про кошачий глаз ввожу 5 - нет, появляется вопрос длительность, что указывать, какие возможны варианты? 0

Рыжий Лис Просто Лис 5973 / 3735 / 1099 Регистрация: 17.05.2012 Сообщений: 10,791 Записей в блоге: 9
	14.12.2020, 11:00
	Какие запрограммируешь - такие и будут 0

@Alli_Lupin
	14.12.2020, 12:26
	Не по теме: supmener, а я так надеялся, что ты таки взялся за ум и понял, что программирование - не твоё. Не тот у тебя склад ума. 0

@supmener 87 / 95 / 15 Регистрация: 26.06.2013 Сообщений: 4,756
	14.12.2020, 12:46 [ТС]
	А Вы какие языки программирования знаете? 0

Рыжий Лис Просто Лис 5973 / 3735 / 1099 Регистрация: 17.05.2012 Сообщений: 10,791 Записей в блоге: 9
	14.12.2020, 12:49
	Какая тебе разница и как это связано с темой? Ты даже первую картинку перевести в код не можешь. Слабо, а? 2

@supmener 87 / 95 / 15 Регистрация: 26.06.2013 Сообщений: 4,756
	14.12.2020, 14:13 [ТС]
	Если бы он знал Fortran, то возможно что-то дельное в перспективе мог посоветовать. Я пока что занят другими делами. 0

@Alli_Lupin 5042 / 1069 / 149 Регистрация: 29.01.2013 Сообщений: 6,248
	14.12.2020, 15:33
	supmener, фортран не имеет перспектив, окститесь. 1

@supmener 87 / 95 / 15 Регистрация: 26.06.2013 Сообщений: 4,756
	14.12.2020, 15:37 [ТС]
	Почему? 0

@Alli_Lupin 5042 / 1069 / 149 Регистрация: 29.01.2013 Сообщений: 6,248
	14.12.2020, 15:43
	supmener, потому что этот язык старше тебя и последнее обновление было аж 2 года назад. Посмотри рейтинг популярности ЯП и попробуй найти там фортран. 2

@Alli_Lupin 5042 / 1069 / 149 Регистрация: 29.01.2013 Сообщений: 6,248
	15.12.2020, 13:25
	WH, так тут не математика, а ифы. 0

@supmener 87 / 95 / 15 Регистрация: 26.06.2013 Сообщений: 4,756
	15.12.2020, 13:33 [ТС]
	Вы в код заглядывали в скачиваемом архиве? 0

Рыжий Лис Просто Лис 5973 / 3735 / 1099 Регистрация: 17.05.2012 Сообщений: 10,791 Записей в блоге: 9
	15.12.2020, 13:38
	Делать нам больше нечего заглядывать в архивы. Перепечатайте интересующий вас код текстом на форум. 0

@Alli_Lupin 5042 / 1069 / 149 Регистрация: 29.01.2013 Сообщений: 6,248
	15.12.2020, 13:46
	WH, ещё бы в языке, который успешно работает более полувека, было плохо с ифами))). Добавлено через 1 минуту supmener, зачем нам? дерево ветвлений вы скриншотами приложили. в случае необходимости мы на фортране это за пару дней напишем. но мы тут в ветке про пайтон. на нём мы напишем сильно быстрее. 0