Лаборатоные 2 семестр (паскаль) / 2 семестр / К заданию №1 Построение графиков в среде Open Watcom Fortran 1.7а

Приложение к заданию № 1.

Построение графиков в среде Open Watcom Fortran 1.7а

Для построения графиков используется графическая библиотека пакета DISLIN (http://www.mps.mpg.de/dislin/) – набор графических подпрограмм и функций, которые в представленном варианте адаптированы под Open Watcom Fortran 1.7а (http://www.openwatcom.org/index.php/Main_Page). Несмотря на наличие собственной графической библиотеки у Open Watcom Fortran с достаточным для визуализации научных расчетов количеством примитивов, затраты времени на их освоение и использование не всегда удовлетворяет пользователя.

Для работы актуальной версии пакета требуется наличие среды Open Watcom Fortran 1.7а (Пуск→Программы→ Open Watcom FortranIDE или диск c:\ директория c:\WATCOM\binnt\ide.exe) и файла diswfl.lib (который, как правило, находиться в директории kaf14\Fort_project на сетевом диске z:\).

Начать работу в оболочке Open Watcom Integrated Development Environment (IDE) следует с создания нового проекта. Для этого в меню IDE нужно выбрать File→NewProject. В появившемся окне следует открыть директорию, отведенную для вашей группы на сетевом диске, где создать папку с собственным именем (например MYDIR) и файл проекта типа myname.wpj и нажать ОК. В рабочей области Open Watcom IDE появится окно цели проекта (New Target), где вы нажимаете OK, чтобы согласиться с заданным по умолчанию именем цели ( такое же, как и у проекта - myname ) и типом выходного приложения (Character-mod Executable – exe). В рабочей области появиться новое, пока ещё пустое, окно myname.exe.

В созданную вами на сетевом диске директорию необходимо с помощью проводника или любыми другими средствами (не средствами Open Watcom IDE) скопировать файлы diswfl.lib и Graphic.for

Далее следует снова вернуться в Open Watcom IDE и вставить в проект скопированные вами файлы из вашей директории (SourcesNewSourcez:\ MYDIR\ diswfl.lib и z:\ MYDIR\ Graphic.for). В окне проекта появятся соответствующие файлы.

Для просмотра и редактирования исходного файла, выделите его с помощью мышки и в меню Sources выберите EditText или дважды щёлкните мышью по выбранному файлу. Перед вами откроется окно текстового редактора Open Watcom Editor с содержимым выбранного файла.

Open Watcom Fortran соответствует стандарту Fortran77, поэтому необходимо строго придерживаться правил размещения операторов, меток и т.д. в строке (оператор начинается с 7 колонки, метки с 1 по 5, знак комментария 'с' - в первой колонке и т.д.).

Чтобы откомпилировать исходный файл в Open Watcom IDE в меню Sources выберите Make (F3) или щелкните мышкой по соответствующей пиктограмме в меню ( при наведении курсора на пиктограмму, в нижней части окна появляется соответствующая подсказка).

Если компиляция завершилась успешно (без ошибок), то можно запустить редактор связей (меню Targets→Make(F4) или соответствующая пиктограмма), который соберёт выполняемый модуль (myname.exe.) с подсоединенной графической библиотекой diswfl.lib. При отсутствии ошибок на стадии редактирования, будет создан исполняемый файл myname.exe.

Запуск программы осуществляется из меню Targets→Run(CTRL+R) или соответствующей пиктограммой. Кроме того этот файл может запускаться любым другим способом, пригодным для запуска исполняемых файлов в ОС Windows.

Файл Graphic.for представляет собой исходный текст простейшей программы, рисующий график синуса и косинуса. В качестве массивов для хранения абсцисс и ординат точек будущего графика использованы следующие:

XRAY(N) – абсциссы кривых;

Y1RAY(N) – ордината первой кривой на графике;

Y2RAY(N) - ордината второй кривой на графике;

где N – число точек в каждом массиве ( в данном примере N =100).

Название графика и осей задаются в массивах TITL(2)*22 и AXIS(2)*6 типа CHARACTER длиной 22 и 6 символов соответственно.

График строится на отрезке [0,π]. Построение графика осуществляется вызовом подпрограммы SUBROUTINE GRAF_1, в которую передаются значения соответствующих переменных

CALL GRAF_1(XRAY,Y1RAY,Y2RAY,N,AXIS,TITL)

Используя данную программу как образец, необходимо построить график заданной в вашем задании функции.

Примечание.

Если исходные данные заданы лишь для одной кривой, то она одна и появится на графике.