Объявление переменной xyпроизводного типа (структуры) xycoord. которая содержит координаты (x,y) видеопорта

 

type(xycoord) xy

 

Производный тип (структура) wxycoord. содержит координаты (x,y) окна и определена как:

 

TYPE wxycoord

REAL(8) wx! x window coordinate

REAL(8) wy! y window coordinate

END TYPE wxycoord

Графическая функция MOVETO перемещает текущую графическую позицию в заданную точку видеопорта с координатами (x, y). Графическая функция MOVETO_W перемещает текущую графическую позицию в заданную точку окна с координатами (wx, wy). При этом рисования не происходит. Функции MOVETO и MOVETO_W присваивает координаты предыдущей позиции переменным t и wt, соответственно.

 

CALL MOVETO (x, y, t)

CALL MOVETO_W (wx, wy, wt)

 

· x, y - (Input) INTEGER(2). Координаты новой графической позиции в системе координат видеопорта;

· t - (Output) производный тип xycoord. Координаты предыдущей графической позиции в системе координат видеопорта;

· wx, wy - (Input) REAL(8). Координаты новой графической позиции в системе координат окна;

· wt - (Output) производный тип wxycoord. Координаты предыдущей графической позиции в системе координат окна.

 

 

Графическая функция рисует линию из текущей графической позиции в заданную конечную точку включительно. Линия рисуется текущим цветом (устанавливается с помощью SETCOLORRGB), в логическом режиме вывода (устанавливается SETWRITEMODE) и стилем (устанавливается SETLINESTYLE). Если не возникает ошибок, LINETO устанавливает текущую графическую позицию в точку видеопорта (x, y), а LINETO_W устанавливает текущую графическую позицию в точку окна (wx, wy).

result = LINETO (x, y)

result = LINETO_W (wx, wy)

 

x, y - (Input) INTEGER(2). Конечная точка видеопорта;

wx, wy - (Input) REAL(8). Конечная точка окна;

result - INTEGER(2). Результат имеет ненулевое значение, если успешно завершена функция, иначе 0.

 

Графическая функция SETPIXEL устанавливает заданный пиксел в текущий цвет, который устанавливается SETCOLOR и может быть получен с помощью GETCOLOR. Не RGB цветовые функции (такие как SETCOLOR and SETPIXELS) используют индексы цвета вместо реальных значений цвета.

 

result = SETPIXEL (x, y)

result = SETPIXEL_W (wx, wy)

 

x, y - (Input) INTEGER(2). Координаты заданного пиксела в системе координат видеопорта;

wx, wy - (Input) REAL(8). Координаты заданного пиксела в системе координат окна;

result - INTEGER(2). Результатом является предыдущий цвет заданного пиксела, если функция успешна; в противном случае, -1 (например, если пиксел находится вне области рисования).

 

КАТЕГОРИЯ 2. Реализация процедуры W вывода в текстовый файл 'DZ2.out' массива С коэффициентов полинома аппроксимации степени m

 

Вариант 1

subroutine W(m,C)

integer,parameter::fpw=2! устройство вывода

integer m! степень полинома

real(8) C(0:m)! массив коэффициентов

open(unit=fpw,file='DZ2.out')! открыть файл

write(fpw,*) 'Коэффициенты полинома Pm(x):'

write(fpw,'(100f8.4)') (c(i),i=0,m)

close(fpw)! закрыть файл

end subroutine W

 

Вариант 2

subroutine W(m,C)

integer m! степень полинома

double precision C(0:m)! массив коэффициентов

open(unit=2,file="DZ2.out")! открыть файл

write(2,*) "Коэффициенты полинома Pm(x):"

write(2,"(100f8.4)") (c(i),i=0,m)

close(2)! закрыть файл

end subroutine

 

Вариант 3

subroutine W(m,C)

integer m! степень полинома

real*8 C(0:m)! массив коэффициентов

open(2,file='DZ2.out')! открыть файл

write(2,10) 'Коэффициенты полинома Pm(x):'

10 format(a)

do i=0,m

write(2,11) c(i),' '

end do

11 format(f8.4,a,$)

close(2)! закрыть файл

end

 

КАТЕГОРИЯ 3. Реализация процедуры R считывания из текстового файла 'DZ.txt' динамических массивов X, Y координат n узлов аппроксимации.

Текстовый файл DZ.txt.

 

Вариант 1

subroutine R(n,X,Y)

implicit none

integer,parameter::fi=1! устройство ввода

integer,parameter::MAX=100! максимальное количество точек

integer i! счетчик точек полинома

real(8):: X(0:MAX),Y(0:MAX)! таблица данных X(n),Y(n)

integer n! количество точек функции (i=0..n-1)

open(unit=fi,file='DZ.txt')! открытие файла данных

read(fi,*) n! чтение количества узлов аппроксимации

do i=0,n-1! проход по узлам аппроксимации

read(fi,*) X(i),Y(i)! чтение координат узлов

enddo

close(fi)! закрытие файла

end subroutine R

 

Вариант 2

subroutine R1(n,X,Y)

implicit none

integer,parameter::MAX=100! максимальное количество точек

integer i! счетчик точек полинома

double precision X(0:MAX),Y(0:MAX)! таблица данных X(n),Y(n)

integer n! количество точек функции (i=0..n-1)

open(unit=1,file='DZ.txt')! открытие файла данных

read(1,*) n! чтение количества узлов

do 2 i=0,n-1! проход по узлам аппроксимации

read(1,*) X(i),Y(i)! чтение координат узлов

2 continue

close(1)! закрытие файла

end subroutine

 

Вариант 3

subroutine R2(n,X,Y)

real*8 X(0:100),Y(0:100)! таблица данных X(n),Y(n)

open(1,file='DZ.txt')! открытие файла данных

read(1,*) n! чтение количества узлов аппроксимации

do 2 i=0,n-1! проход по узлам аппроксимации

2 read(1,*) X(i),Y(i)! чтение координат узлов

close(1)! закрытие файла

end