RUSer Member Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору akaGM заменил уже на 9.0 - не помогло... Всего записей: 390 | Зарегистр. 24-08-2004 | Отправлено: 22:27 10-01-2007

RUSer Member Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору akaGM 1. на 2003 - нету такой возможности, прибил хороший дистриб по ошибке, а взять негде... Остался только кривой, какой не ставится... 2. пороюсь 3. пробовал и так, и так - пофигу 4. кода на 59 кбайт одной прогой... 5. Описываю расширенно...   Я пишу обычно на делфях, но если на них реализовать МКР, то расчёт будет длится довольно долго. Мне посоветовали писать на фортране, сказав, что расчёт на нём будет быстрее, да и заточен он под математику... Вот, написал... Поэтому и могу сравнить -   Цитата: нет ошибок в логике работы программы?   т.к. есть прога на делфях... Релиз совпадает с делфийской прогой, а отладка - на выходе пишет NaN. Цитата: риторически: а на хрен было вообще переходить на 2005? фортран он и в комманд-лайне -- фортран... я там ещё немного дописал по расчёту, поэтому мне и требуется пошаговая отладка кода со всеми промежуточными результатами. А писать для сравнения тоже самое на делфях - это получается только время тратить, мягко говоря... По поводу перехода см. п.1   Если есть что-то подобное VS, то скажите. Мне главное, чтобы особо долго в ней разбираться не пришлось... Всего записей: 390 | Зарегистр. 24-08-2004 | Отправлено: 18:59 13-01-2007

dima333a Advanced Member Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору RUSer Цитата: т.к. есть прога на делфях... Релиз совпадает с делфийской прогой, а отладка - на выходе пишет NaN.     Типичная проблемма в таком случае - это неициализорованные массивы и переменные.Т.е. если ничего в массив/переменную незанес, а потом пытаешся провести операцию с этой ячейкой, то получаем ерунду.   Если компилировать в режиме отладки, то там обычно автоматом обнуляются константы при инициализации. Всего записей: 798 | Зарегистр. 27-02-2004 | Отправлено: 00:51 14-01-2007

RUSer Member Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору akaGM Цитата: метод конечных разностей   Цитата: прогони под лахеем А что это?   Прога: http://ifolder.ru/865401 Пароль в ПМ   Цитата: решается элементарно с промежуточными райтами если ты имеешь ввиду выкидывать все промежуточные цифры в файл, то здесь это не пойдёт - объём будет слишком большим.   dima333a Цитата: Если компилировать в режиме отладки, то там обычно автоматом обнуляются константы при инициализации.   поясни свою фразу... А то я, глупый, всю жизнь считал, что константа всегда неизменна о_О На то она и константа... Всего записей: 390 | Зарегистр. 24-08-2004 | Отправлено: 14:57 14-01-2007

RUSer Member Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору что менять - понятно. Вопрос - для чего? Что означает "d"? Всего записей: 390 | Зарегистр. 24-08-2004 | Отправлено: 15:35 14-01-2007

dima333a Advanced Member Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору RUSer Цитата: поясни свою фразу...   А то я, глупый, всю жизнь считал, что константа всегда неизменна о_О На то она и константа...   O как накинулись...  имелось в виду _переменные_.   Цитата: стандарт фортрана гласит:   "переменная всегда имеет начальное значение ноль"   но сегодня я бы на это не расчитывал и никому не советовал полагаться...     Из личного опыта - _Это не правда_. В интеловском компиляторе есть специальная опция по этому поводу.   /Qzero        implicitly initialize all data to zero   /Qnobss_init  disable placement of zero-initialized vars in BSS (use DATA)   Сам с этим столкнулся. Всего записей: 798 | Зарегистр. 27-02-2004 | Отправлено: 16:14 14-01-2007 | Исправлено: dima333a, 16:24 14-01-2007

dima333a Advanced Member Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору akaGM Цитата: пример же интела -- пример реализации...   Ну тут вся соль в том, что "стандарт говорит одно, а в жизни ...", насчет того что бы "полагатся на это", я с тобой полностью согласен. Мой опыт собственно и заключался в том что ю слишком сильно полагался на стандарт. А каждый компилятор это как отдельный зверь, со своими повадками. Всего записей: 798 | Зарегистр. 27-02-2004 | Отправлено: 18:58 14-01-2007

RUSer Member Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору akaGM   Спасибо за свежий взгляд   Цитата: outepslow эта описана, инициализирована (читается из файла параметров), но не используется   ourepslow а эта описана, неинициализирована, но используется, причём как целое:   if (ourepslow.eq.1) then     клавиши "r" и "t" рядом расположены... или ошибка "копи/пасте"? гы     гы Этот случай всё равно никогда не возникает, если вх. параметры верны, а не от балды.   Щас вернулся к коду, буду менять всё как ты говорил.   Ещё раз спасибо. Всего записей: 390 | Зарегистр. 24-08-2004 | Отправлено: 14:57 27-01-2007

RUSer Member Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору Цитата: !               Если процесс затухает очень медленно !       --------------------------------------------------------------- !               if (outepslow.eq.1) then !          if (abs(epsmax/epsmaxold).gt.0.999) then !                  if (abs(epsmax/epsmaxold).lt.1) then !                     ctlow=ctlow+1 !                     print *, ctlow !                     if (ctlow.gt.ctlowmax) then !                        epsmax=0 !                        ! Прекращение расчета из-за очень медленного убывания погрешности !                        print *,'ЏаҐЄа йҐ-ЁҐ а бзҐв  Ё§-§  ®зҐ-м ¬Ґ¤«Ґ--®Ј® гЎлў -Ёп Ї®ЈаҐи-®бвЁ' !                     end if !                  end if !                end if !             end if !               if (int.gt.intermax) then !                   epsmax=0 !                   !Прекращение расчета из-за достижения  максимального количества итераций !                   print *, 'ЏаҐЄа йҐ-ЁҐ а бзҐв  Ё§-§  ¤®бвЁ¦Ґ-Ёп  ¬ ЄбЁ¬ «м-®Ј® Є®«ЁзҐбвў  ЁвҐа жЁ© ' !               end if Эти случаи у мя возникают, хотя и редко - пр. когда с параметрами модели эксперементирую. Вывод: по логике всё работает   В отладке же у меня срабатывает условие: Цитата: !               Защита от математического переполнения !       ---------------------------------------------------------------             if (epsmax.gt.1) then                                                print *,'         !!  Њ ⥬ вЁзҐбЄ®Ґ ЇҐаҐЇ®«-Ґ-ЁҐ  !! '                print *,'         !!  Ђў аЁ©-®Ґ § ўҐаиҐ-ЁҐ а Ў®вл  !! '                print *,'         !! ЌҐв १г«мв в®ў ¬®¤Ґ«Ёа®ў -Ёп !! '                                stop             end if З.Ы. И да, outepslow - там была очепятка Что самое интеросное - работало же о_О Всего записей: 390 | Зарегистр. 24-08-2004 | Отправлено: 15:55 27-01-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

Компьютерный форум Ru.Board » Компьютеры » Прикладное программирование » Работа с Intel Fortran через Visual Studio 2003 и не только

Переход по форумам  Закладки   » Компьютеры Цифровое изображение Программы Microsoft Windows UNIX Другие OS Hardware В помощь сисадмину Прикладное программирование Игры Форумные игры   » Интернет Web-программирование В помощь вебмастеру Графика Хостинг Зацените-ка!   » Тематические Ikonboard v.2 Ikonboard v.3 Invision Board Другие форумы PHP-Nuke и другие порталы Мобила   » Общие Спорт Флейм Темы по региональным встречам Музыка и Кино Юмор Литература и Живопись   » Ru.Board Новости Помощь по форуму   » Андеграунд eBookz Варезник Раздачи и акции Мобильный варезник Андеграунд Игры и фильмы   » Специальные Тестирование