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

НовостиФайловые архивы
ПоискАктивные темыТоп лист
ПравилаКто в 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
akaGM

Platinum Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
и всё-таки, All, кто реально делал нормальный качественный гуй для своих программ
на Ф и довёл всё это дело до конца, что может скрины показать?
ну под винду для начала...
на чём?
устал я спрашивать и получать только общие слова, типа: юзай qt, wxWid и тд...
может кто-нибудь действующий прототип показать?
 
+
 
я плохо знаком с библиотеками для ХУ- и 2Д-графиков...
так сильно на ТееСhart заложился и привык, кто что может сказать?

Всего записей: 24055 | Зарегистр. 06-12-2002 | Отправлено: 17:35 08-09-2007 | Исправлено: akaGM, 17:44 08-09-2007
terminat0r



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

Цитата:
кто реально делал нормальный качественный гуй для своих программ  
на Ф и довёл всё это дело до конца

 
А зачем писать гуи на фортране? Из принципа?
 

Всего записей: 2084 | Зарегистр. 31-03-2002 | Отправлено: 19:14 08-09-2007
akaGM

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

Всего записей: 24055 | Зарегистр. 06-12-2002 | Отправлено: 20:09 08-09-2007
FuzzyLogic



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

Цитата:
и всё-таки, All, кто реально делал нормальный качественный гуй для своих программ
на Ф и довёл всё это дело до конца, что может скрины показать?  

Не знаю насколько качественный, но вот нечто что делал лет 5 назад: ссылка делал на Avenue (встроенный язык в ArcView 3.x) с моментами на C++ в виде .dll (по ссылке PDF с некоторыми скриншотами, анимации итд выкладывать не стал).
Сейчас получили контракт переписать всё это под ArcGIS 9.2 (.NET) с дополнениями итд, учитывая кол-во денег и времени в этот раз думаю будет нечто гораздо более качественное.
 
А вообще последнее время всё больше вкладываемся в веб-интерфейсы (в основном Perl + MapServer в моём случае).

Всего записей: 1920 | Зарегистр. 27-07-2002 | Отправлено: 08:01 10-09-2007 | Исправлено: FuzzyLogic, 08:18 10-09-2007
akaGM

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

Цитата:
Не знаю насколько качественный...

глянул, спасибо...
пахнет кроссплатформой и каким-нибудь теклом, и, если честно, так себе...
ну больше, наверное, и не надо...
а 2Д и ХУ-плот тоже в нём?
 

Цитата:
А вообще последнее время всё больше вкладываемся в веб-интерфейсы...

проекты -- научные расчёты...
гуй -- минимальный (риббоны и стеклянные аеро не нужны) + немного визуализации и ХУ-графики...
 
тут одно время бегал за gino и winteracter'ом, но первое зашкалило за 800 гринов и оказалось полным отстоем (имхо), а второе так и не удалось пощупать "здесь", так и пришлось давать задание "там"...
 
_http://www.winteracter.com
_http://www.bradassoc.co.uk/

Всего записей: 24055 | Зарегистр. 06-12-2002 | Отправлено: 12:41 10-09-2007
FuzzyLogic



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

Цитата:
пахнет кроссплатформой и каким-нибудь теклом, и, если честно, так себе...
ну больше, наверное, и не надо...
а 2Д и ХУ-плот тоже в нём?  

Ну сколько времени и денег дали, то и получилось, да и было это давно Да, всё в нём.
 

Цитата:
проекты -- научные расчёты...
гуй -- минимальный (риббоны и стеклянные аеро не нужны) + немного визуализации и ХУ-графики...

Аналогично, только у меня в дополнение к XY, ещё и 2D контуры. И в том гуе что я показал основная ф-я это делать сетки расчётные.
 
Из того что могу показать есть ещё например это
там вообще сплошной opensource и халява. А вообще, по моему опыту обычно оказывается проще и качественнее делать гуй устоявшимися продуктами. Обычно во всех них есть способ прикрутить что-то своё. Мы помнится делали и на базе Matlab, и на базе TecPlot.
Обязательно ли встраивать все эти гуи в ваши расчёты? Если нет, то зачем мучаться с чем-то базированным на Фортране? Писать выходные данные в какой-нибудь стандартный формат а-ля NetCDF или что там подойдёт. А потом уж на выбор, хочешь так его отображай хочешь эдак.

Всего записей: 1920 | Зарегистр. 27-07-2002 | Отправлено: 19:30 10-09-2007
akaGM

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

Цитата:
на базе Matlab

именно на базе? это ж сколько таскать за собой надо...
а на его С со статикой не переходили?
 

Цитата:
Обязательно ли встраивать все эти гуи в ваши расчёты? Если нет, то зачем мучаться с чем-то базированным на Фортране?

нет конечно...
но я хозяин и, соответственно, -- барин
мне достаточно консоли в своих программах, но хочешь чтоб их кто-то использовал, делай гуй (это не общее правило, это я так для себя решил)
 

Цитата:
зачем мучаться с чем-то базированным на Фортране?

наверное я где-то не так сказал...
обязательное _базирование_ на Ф не надо... надо что-то простое отличное от vcl, mfc, qt и подобных _несвободных_ монстров...
 
вот вин32 (гуй на Дельфи) + весь счёт на Ф:
глянь (120 кб)
 
да, кнопки там просто так для резервирования места, не обращай внимания...
гы, скрин на фоне поста получился... живенько...
 
 
-------
 

Цитата:
Из того что могу показать есть ещё например это...

круто, это вы катьку препарировали?

Всего записей: 24055 | Зарегистр. 06-12-2002 | Отправлено: 19:47 10-09-2007 | Исправлено: akaGM, 19:56 10-09-2007
FuzzyLogic



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

Цитата:
 именно на базе? это ж сколько таскать за собой надо...
а на его С со статикой не переходили?  

Ну да именно так и делали, я просто выразился видимо не так
 

Цитата:
 мне достаточно консоли в своих программах, но хочешь чтоб их кто-то использовал, делай гуй (это не общее правило, это я так для себя решил)  

Может и не правило, но в большинстве случаев это именно так.
 

Цитата:
 круто, это вы катьку препарировали?

Угу, там же кстати если потыкаться и другие есть (ткнуть Dynamic Map, а потом Select Storm by Date). Есть ещё и интерфейсы для внутреннего пользования, там где можно менять цветовые гаммы, более гибкие, комбинировать модели, итд, но к сожалению показать не могу пока.
 

Цитата:
 гы, скрин на фоне поста получился... живенько...  

Мне тоже понравилось да и гуй выглядит приятненько. Я считаю что если функционала того же TeeChart достаточно для того что вы хотите сделать, то нет особого смысла прыгать. Если появляется что-то что хочется но сделать нельзя, вот тут уже можно поискать.
 
Вообще понятно направление вашей мысли и почему делается "два в одном", просто у нас требования к ресурсам не позволяют считать всё на локальной машине, отсюда всякие кластеры, распределённые ресурсы итд итп.  Потому увязывать гуй и сами расчеты смысла не имело никакого. Всё равно гигабайты данных с мест на которых считают в места хранения таскать Отсюда и вебсервисы итыды итыпы.

Всего записей: 1920 | Зарегистр. 27-07-2002 | Отправлено: 20:53 10-09-2007
akaGM

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

Цитата:
Я считаю что если функционала того же TeeChart достаточно для того что вы хотите сделать, то нет особого смысла прыгать

 
для виндов-то да, а вот что с *никсами делать -- ума не приложу...
 
---------
а всё-таки, есть какой-нибудь станд-алон (автономный т.е.) проект с Ф+гуй? хотя бы тот же матлабовский?
для ориентира...

Всего записей: 24055 | Зарегистр. 06-12-2002 | Отправлено: 21:57 10-09-2007 | Исправлено: akaGM, 21:59 10-09-2007
akaGM

Platinum Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
ещё вопрос
 
есть ли в природе библиотеки (парсеры) для XML на Фортране (и именно на нём)?
 
NB
гулить/яндексить умею (просто сейчас нет времени)

Всего записей: 24055 | Зарегистр. 06-12-2002 | Отправлено: 10:50 11-09-2007
Hryundel

Newbie
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Уважаемые Дамы и Господа. Прошу вас и молю помочь сделать задачу на фортране77. Очень срочно нужно, я без понятия как написать код программы. Молюсь на вас, что вы мне поможете! Задача детская и лёгкая до не могу просто, но я не в силах её решить ((
 
Задача: Дан массив из 14 элементов. Найти сумму всех не чётных индексов массива.

Всего записей: 7 | Зарегистр. 11-09-2007 | Отправлено: 20:34 11-09-2007
XPEHOMETP

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

Цитата:
Найти сумму всех не чётных индексов массива.

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

Всего записей: 2485 | Зарегистр. 21-06-2005 | Отправлено: 22:20 11-09-2007
FuzzyLogic



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

Код:
 
      program STUPID
 
        implicit none
 
        integer   N, SUM, i, INDSUM
        parameter (N=14)
        integer   ARR(N)
 
C filling in the array
        do i=1,N
          print *, 'Input element ',i,' = '
          read  (5,*) ARR(i)
        end do
 
C get the sum
        SUM = 0
        INDSUM = 0
        do i=1,N,2
          SUM = SUM + ARR(i)
          INDSUM = INDSUM + i
        end do
        print *,'SUM = ', SUM
        print *,'INDSUM = ', INDSUM
 
      end program STUPID
 

Всего записей: 1920 | Зарегистр. 27-07-2002 | Отправлено: 22:21 11-09-2007 | Исправлено: FuzzyLogic, 22:22 11-09-2007
Hryundel

Newbie
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
вах! спсибо большое! только чтото сложноватый код, мы такого не проходили... но попробую разобраться

Всего записей: 7 | Зарегистр. 11-09-2007 | Отправлено: 22:38 11-09-2007
FuzzyLogic



Advanced Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Да ладно вам, сложноватый
Сначала объявили переменные. ARR - массив.
INDSUM - сумма индексов
SUM - сумма элементов массива с этими индексами.
 
секция с print/read - читают с клавиатуры числа в массив
 
секция с do i=1,N,2 и до end do просто крутит цикл от 1, до N (N=14) с шагом 2 (т.е. чтобы были i=1, i=3, i=5, ... т.е. нечётные) и суммирует их и соотв. элементы массива.
Ну и потом показать это всё на экран (print)

Всего записей: 1920 | Зарегистр. 27-07-2002 | Отправлено: 22:48 11-09-2007
Hryundel

Newbie
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
не у нас просто немного другая манера написания.... вот например задача с выводом минимума на первое место
 
      program zd9
      integer k,z
      real min
      dimension RS(24)
      read(5,1001) k, (rs(i),i=1,k)
 1001 format(i2/24 f3.0)
      i=1
      min=300
    1 if (rs(i).le.min) then
       min=rs(i)
       z=i
      end if
      i=i+1
      if (i.LE.k) go to 1
      rs(z)=rs(1)
      rs(1)=min
    2 write(6,1002) (rs(i),i=1,k)
 1002 format(' ',F4.0,', ')
      end

Всего записей: 7 | Зарегистр. 11-09-2007 | Отправлено: 22:56 11-09-2007
XPEHOMETP

Silver Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
FuzzyLogic
- человек же хотел Fortran77!

Цитата:
implicit none  

 - не входит в стандарт F77 (хотя на практике большинство компиляторов понимают)

Цитата:
        do i=1,N  
          print *, 'Input element ',i,' = '  
          read  (5,*) ARR(i)  
        end do  

Конструкция do - end do - это уже Fortran90 и дальше, в F77 - только циклы с меткой.

Всего записей: 2485 | Зарегистр. 21-06-2005 | Отправлено: 10:15 12-09-2007
akaGM

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

Цитата:
Конструкция do - end do - это уже Fortran90 и дальше...

я бы всё-таки сказал: это Ф77 с расширениями...

Цитата:
хотя на практике большинство компиляторов понимают

 
 
интересно в каких ностальгических оазисах такие задания дают...

Всего записей: 24055 | Зарегистр. 06-12-2002 | Отправлено: 14:56 12-09-2007
Hryundel

Newbie
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Московский Государственный Университет Леса

Всего записей: 7 | Зарегистр. 11-09-2007 | Отправлено: 15:28 12-09-2007
akaGM

Platinum Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Hryundel
круто...
 
тогда я взял на себя смелость поправить код FuzzyLogic...
на, в вашем "стиле", никто не должен придраться...
вообще Ф66...

Код:
 
      program zdn9
C
      integer N, isum, i, indsum
      integer iarr
      dimension iarr(14)
      data N/14/
C  
C get/filling in the array, 14 numbers separated by space or comma
      read (5,1001) (iarr(i), i=1,N)
C  
C calc sum
      isum = 0
      indsum = 0
      do 10 i=1,N,2
        isum = isum + iarr(i)
        indsum = indsum + i
 10   continue
      write (6, 1002) isum
      write (6, 1002) indsum
C
 1001 format(14I2)
 1002 format(2X, I4)  
      end
 

 

Цитата:
zdn9

zadanie что ли?
гы
точно оазис...

Всего записей: 24055 | Зарегистр. 06-12-2002 | Отправлено: 17:36 12-09-2007 | Исправлено: akaGM, 17:46 12-09-2007
Открыть новую тему     Написать ответ в эту тему

Страницы: 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