Перейти из форума на сайт.

НовостиФайловые архивы
ПоискАктивные темыТоп лист
ПравилаКто в on-line?
Вход Забыли пароль? Первый раз на этом сайте? Регистрация
Компьютерный форум Ru.Board » Компьютеры » Прикладное программирование » Вопросы программирования на FORTRAN (ФОРТРАН)

Модерирует : ShIvADeSt

 Версия для печати • ПодписатьсяДобавить в закладки
Страницы: 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135 136 137 138 139 140 141 142 143 144 145 146 147 148 149 150 151 152 153 154 155 156 157 158 159 160 161 162 163 164 165 166 167 168 169 170 171 172 173 174 175 176 177 178 179 180 181 182 183 184 185 186 187 188 189 190 191 192 193 194 195 196 197 198 199 200 201 202 203 204 205 206 207 208 209 210 211 212 213 214 215 216 217 218 219 220 221 222 223 224 225 226 227 228 229 230 231 232 233 234 235 236 237 238 239 240 241 242 243 244 245 246 247 248 249 250 251 252 253 254 255 256 257 258 259 260 261 262 263 264 265 266 267 268 269 270 271 272 273 274 275 276 277 278 279 280 281 282 283 284 285 286 287 288 289 290 291 292 293 294 295 296 297 298 299 300 301 302 303 304 305 306 307 308 309 310 311 312 313 314 315 316 317 318 319 320 321 322 323 324 325 326 327 328 329

Открыть новую тему     Написать ответ в эту тему

akaGM

Platinum Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Обсуждаются все вопросы, связанные с программированием на ФОРТРАН, как общего так и конкретного характера.
Постарайтесь дать как можно больше информации о возникшей проблеме -- это в конце концов в ваших же интересах чтобы вам помогли...

прежде чем просить помощи в задании
платное решение задач

ресурсы этого топика
ссылка на подборку ресурсов, собранных посетителями этого форума
 
то, чем мы решили поделиться
ссылка на страничку программ etc собственного изготовления, которыми любезно делятся наши форумчане


если вам вдруг не отвечают или ответ вас не устраивает
и вообще полезно прочитать всем спрашивающим
 
просьба к пишущим и отвечающим все большие листинги оформлять тегом more
и отключать графические смайлики при размещении фортран-кода

Всего записей: 24055 | Зарегистр. 06-12-2002 | Отправлено: 18:11 14-01-2007 | Исправлено: akaGM, 09:47 01-03-2020
IDodov

Newbie
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Добрый день, уважаемые!
Пытаюсь провести линейную интерполяцию, где температура зависит от высоты Т(z), я правильно начал? Пишу по примеру с книги, но не понимаю что и как, механизм не понятен
 
PROGRAM TEST_INTERPOLATION
              USE INTERPOLATION
              IMPLICIT NONE
               
              REAL, DIMENSION(20) :: Z = (/ 0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20 /)
              REAL, DIMENSION(20) :: T = (/ 1940, 1800, 1720, 1650, 1615, 1570, 1525, 1480, 1480, 1440, 1405, 1370, 1340, 1310, 1285, 1260, 1235, 1210, 1190, 1170, 1150, 1130 /)
              TYPE(INTERPOLATION_DATA) :: INTERP
              INTEGER :: i
              REAL :: ZP, RESULT
              LOGICAL :: SUCCESS
               
              INTERP = INTERPOLATION_OBJECT (Z, T, EXTRAPOLATION_CONSTANT)
 
 
Добавлено:
И если в дальнейшем писать сюда код, нужно его под определенный тег ставить?
 
В книге рассматриваются два варианта решения интерполяции, первый очень длинный но лучше как я понял, а второй по объему меньше но тяжелее что-ли

Всего записей: 15 | Зарегистр. 13-03-2018 | Отправлено: 22:55 28-03-2018 | Исправлено: IDodov, 23:06 28-03-2018
akaGM

Platinum Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
IDodov

Цитата:
И если в дальнейшем писать сюда код, нужно его под определенный тег ставить?
прямо над твоим постом написано:
Цитата:
просьба к пишущим и отвечающим все большие листинги оформлять тегом more и отключать графические смайлики при размещении фортран-кода

 

Цитата:
я правильно начал?
вопрос-то в чём?
 

Цитата:
Пишу по примеру с книги
в книге тоже всё капсами написано?

Всего записей: 24055 | Зарегистр. 06-12-2002 | Отправлено: 23:26 28-03-2018
FuzzyLogic



Advanced Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Судя по  

Цитата:
USE INTERPOLATION

Правильно ))
 

Цитата:
в книге тоже всё капсами написано?

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

Всего записей: 1920 | Зарегистр. 27-07-2002 | Отправлено: 23:34 28-03-2018 | Исправлено: FuzzyLogic, 23:36 28-03-2018
akaGM

Platinum Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
судя именно по этому -- неправильно :)
сначало надо наколотить "с книги" модуль INTERPOLATION...

Всего записей: 24055 | Зарегистр. 06-12-2002 | Отправлено: 23:39 28-03-2018
FuzzyLogic



Advanced Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору

Цитата:
судя именно по этому -- неправильно  
сначало надо наколотить "с книги" модуль INTERPOLATION...

Ничего вы не понимаете в современном программировании...  

Код:
 
use HELLOWORLD
call HELLOWORLD()
 

наше всё!
 
Добавлено:
IDodov
ну и если по делу ... пока вы только завели массивы с данными для интерполяции и вызываете функцию которая сделает эту самую интерполяцию (INTERP = INTERPOLATION_OBJECT (Z, T, EXTRAPOLATION_CONSTANT)  )
Теперь нужен модуль INTERPOLATION (то что стоит у вас в USE) в котором будет та самая функция interpolation_object

Всего записей: 1920 | Зарегистр. 27-07-2002 | Отправлено: 23:43 28-03-2018
IDodov

Newbie
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору

Цитата:
прямо над твоим постом написано:

))) извиняюсь))
 

Цитата:
вопрос-то в чём?

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

Всего записей: 15 | Зарегистр. 13-03-2018 | Отправлено: 23:53 28-03-2018
akaGM

Platinum Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
IDodov

Цитата:
В топочной камере температура зависит от высоты
опечатки нет, может в "пыточной"?
 

Цитата:
пытаюсь понять как в фортране провести линейную интерполяцию, чтоб при...
формулы/алгоритм на бумажке есть? вот и используй фортран по назначению как FORмулаTRANслятор...

Всего записей: 24055 | Зарегистр. 06-12-2002 | Отправлено: 23:57 28-03-2018
IDodov

Newbie
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
FuzzyLogic
 

Цитата:
пока вы только завели массивы с данными для интерполяции

Спасибо за отзыв) Стало быть я на правильном пути?))  
 
akaGM

Цитата:
в книге тоже всё капсами написано?

Нет)) я прост не придал этому значения и набрал на капсе)) Теперь буду знать шо так нельзя))
 

Всего записей: 15 | Зарегистр. 13-03-2018 | Отправлено: 00:07 29-03-2018
Igorr

Silver Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
IDodov

Цитата:
Пишу по примеру с книги, но не понимаю что и как, механизм не понятен  

При изучении Фортрана, как и любого другого языка, должна быть понятна каждая строчка кода примера. Если это не так, то вы либо что-то пропустили в описании языка перед примером, либо при объяснении примера, либо это книжка не является удачным вариантом для вас.

Всего записей: 2003 | Зарегистр. 01-05-2002 | Отправлено: 00:08 29-03-2018
IDodov

Newbie
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Igorr

Цитата:
должна быть понятна каждая строчка кода примера

Золотые слова, я не раз над этим думал, к сожалению наставника у меня нет, а по книге не всегда получается всё понять) Спасибо) Буду ждать Ваших советов))
 

Всего записей: 15 | Зарегистр. 13-03-2018 | Отправлено: 00:14 29-03-2018
akaGM

Platinum Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
IDodov

Цитата:
Нет)) я прост не придал этому значения и набрал на капсе)) Теперь буду знать шо так нельзя))
так можно, и не так можно, и сто раз по другому тоже можно...
главное, чтоб за время обучения и к моменту использования Ф как известного вдоль и поперёк инструмента выработался свой стиль и использования языка и стиль оформления кода и чтобы всё это было разумно, функционально, эффективно... и красиво :)

Всего записей: 24055 | Зарегистр. 06-12-2002 | Отправлено: 00:25 29-03-2018
Igorr

Silver Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
IDodov
Если вы ничего не пропускаете в книге при описании языка и примеров, а они все-равно непонятны, то попробуйте другую книгу. Например, если вам не нужны современные навороты Фортрана, а лишь бы начать его понимать, то попробуйте книгу Меткалфа "Описание языка программирования Фортран 90".

Всего записей: 2003 | Зарегистр. 01-05-2002 | Отправлено: 00:59 29-03-2018
IDodov

Newbie
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
akaGM
 

Цитата:
выработался свой стиль и использования языка и стиль оформления кода

Отличный совет)) спасибо))
 

Цитата:
к моменту использования Ф как известного

очень надеюсь
 
Igorr

Цитата:
книгу Меткалфа "Описание языка программирования Фортран 90"

Загрузил)) буду знакомиться)

Всего записей: 15 | Зарегистр. 13-03-2018 | Отправлено: 09:15 29-03-2018
IDodov

Newbie
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Всем добрый день,
Ребят, почему бы Вам не сделать обучающий видео-курс по Фортрану? Вы ведь спецы в нём
И если учесть, что на ютубе таких видео нет, оно могло бы очень помочь многим новичкам да и не только. Там конечно есть неск курсов но они на иностранном

Всего записей: 15 | Зарегистр. 13-03-2018 | Отправлено: 16:47 29-03-2018
FuzzyLogic



Advanced Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
IDodov
Я думаю что основная проблема в том что с возрастом опыта становится всё больше а свободного времени всё меньше. И делать огромную работу чтобы потом это посмотрели 10 человек мало кто захочет.

Всего записей: 1920 | Зарегистр. 27-07-2002 | Отправлено: 04:38 30-03-2018
akaGM

Platinum Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
я уже даже аспирантов не беру...

Всего записей: 24055 | Зарегистр. 06-12-2002 | Отправлено: 09:42 30-03-2018
plazmon



Junior Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору

Цитата:
 REAL, DIMENSION(20) :: Z = (/ 0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20 /)
              REAL, DIMENSION(20) :: T = (/ 1940, 1800, 1720, 1650, 1615, 1570, 1525, 1480, 1480, 1440, 1405, 1370, 1340, 1310, 1285, 1260, 1235, 1210, 1190, 1170, 1150, 1130 /)  

  Меня одного смущает, что массивы объявлены размерности 20, а инициализуруются в первом случае 21, а во втором 22 значениями?

Всего записей: 107 | Зарегистр. 29-05-2007 | Отправлено: 13:35 31-03-2018
IDodov

Newbie
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
plazmon

Цитата:
Меня одного смущает, что

 
Вот это поворот)) и правда)) надо глянуть)
 
 
 
Добавлено:
FuzzyLogic
akaGM
 
Не знаю, мне кажется стоило бы...
я придерживаюсь такого мнения: "Никогда не знаешь, какой вклад может дать, сегодня оказанная тобой помощь, в развитии этого мира")

Всего записей: 15 | Зарегистр. 13-03-2018 | Отправлено: 15:01 31-03-2018
FuzzyLogic



Advanced Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
plazmon
Это последующее упражнение на дебаг
 
IDodov

Цитата:
я придерживаюсь такого мнения: "Никогда не знаешь, какой вклад может дать, сегодня оказанная тобой помощь, в развитии этого мира")  

Подростковый максимализм это замечательно

Всего записей: 1920 | Зарегистр. 27-07-2002 | Отправлено: 19:01 31-03-2018
plazmon



Junior Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
akaGM

Цитата:
опечатки нет, может в "пыточной"?

Да, а пытают отладкой фортрановских программ с помощью телепатии.
Igorr, а какую книгу вы порекомендуете для ознакомления с современными наворотами?
 
 

Всего записей: 107 | Зарегистр. 29-05-2007 | Отправлено: 16:28 01-04-2018
Открыть новую тему     Написать ответ в эту тему

Страницы: 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135 136 137 138 139 140 141 142 143 144 145 146 147 148 149 150 151 152 153 154 155 156 157 158 159 160 161 162 163 164 165 166 167 168 169 170 171 172 173 174 175 176 177 178 179 180 181 182 183 184 185 186 187 188 189 190 191 192 193 194 195 196 197 198 199 200 201 202 203 204 205 206 207 208 209 210 211 212 213 214 215 216 217 218 219 220 221 222 223 224 225 226 227 228 229 230 231 232 233 234 235 236 237 238 239 240 241 242 243 244 245 246 247 248 249 250 251 252 253 254 255 256 257 258 259 260 261 262 263 264 265 266 267 268 269 270 271 272 273 274 275 276 277 278 279 280 281 282 283 284 285 286 287 288 289 290 291 292 293 294 295 296 297 298 299 300 301 302 303 304 305 306 307 308 309 310 311 312 313 314 315 316 317 318 319 320 321 322 323 324 325 326 327 328 329

Компьютерный форум Ru.Board » Компьютеры » Прикладное программирование » Вопросы программирования на FORTRAN (ФОРТРАН)


Реклама на форуме Ru.Board.

Powered by Ikonboard "v2.1.7b" © 2000 Ikonboard.com
Modified by Ru.B0ard
© Ru.B0ard 2000-2024

BitCoin: 1NGG1chHtUvrtEqjeerQCKDMUi6S6CG4iC

Рейтинг.ru