Graphica
Библиотека Graphica содержит простые программы построения графиков для консольных приложений (т.е. в текстовом режиме).
В научно-технических и коммерческих расчетах наглядное представление результатов вычислений в виде графиков и диаграмм играет важную роль. На данный момент имеется несколько прикладных пакетов программ, предоставляющие богатые возможности в данной области. В качестве примера можно привести пакет научной графики SciGraph, отображатель массивов Array Visualizer, графические разделы математических пакетов Maple, Mathematica, а также система Gnuplot.
Однако применение таких пакетов не всегда оправдано. Не всегда требуется качественное и красочное изображение, пригодное для печати или для размещения в Интернете. Иногда достаточно получить простое представление о поведении функции в какой-либо области изменения аргумента. Тем более, если это не требует никакого предварительного программирования, а вызов функций возможен из программы на Фортране, то, на взгляд автора, вполне можно обойтись предлагаемой библиотекой.
Программы библиотеки Graphic, Graphar и Graphop строят изображение в текстовом режиме символом «*». Программы Graphic и Graphop строят графики функций, заданных аналитически, Graphic для функции одного переменного, Graphop для функции двух переменных. Программа Graphar строит график функции, заданной таблично, массивами X и Y.
Создание этих подпрограмм относится к тому периоду (80-е годы ХХ века), когда ещё не существовало персональных компьютеров, а ЭВМ занимали большие залы. Данные в компьютер вводили при помощи перфокарт или перфолент, а выводили на печатающее устройство с бесконечной бумажной лентой в виде рулона или гармошки. И поэтому все графики и диаграммы приходилось выводить в текстовом формате как единственно-возможный вариант. Понятно, что сейчас, при наличии дисплеев, использование этих подпрограмм врятли целесообразно. Автор поместил их в библиотеку, т.к., возможно, эти алгоритмы смогут помочь вам при написании ваших собственных программ построения графиков, уже на современных устройствах вывода информации.
Вызов программ библиотеки
CALL Graphic(A, B, Fun)
Real A, B - диапазон изменения аргумента;
Real Fun(Real X) - исследуемая функция;
график функции будет построен в файле gf.txt.
CALL Graphar(A, B)
Real X(1:N), Y(1:N) - исследуемая зависимость;
график функции будет построен в файле gr.txt.
CALL Graphop(Xmin, Xmax, Ymin, Ymax, Fun)
Real Xmin, Xmax, Ymin, Ymax - диапазон изменения аргумента;
Real Fun(Real X, Real Y) - исследуемая функция;
график функции будет построен в файле gp.txt.
Пример
! Использование программы "Graphar"
! для построения спирали.
program TestGR
!$objcomment lib: "D:/Fortran/Bib_GR/Debug/Graphica"
use GRAPHICA
implicit none
integer, parameter:: n=100
real, parameter:: pi=3.1415926
real:: X(n), Y(n), Ro, Teta, A, K
integer i
!begin
A=1.0; K=0.2
do i=1, n
Teta=K*float(i-1)
Ro=A*Teta
X(i)=Ro*cos(Teta)
Y(i)=Ro*sin(Teta)
end do
call Graphar(X, Y)
end program TestGR
По многочисленным просьбам привожу дополнительные
примеры вызова прогрвмм построения графиков
Библиотека оформлена в качестве модуля GRAPHICA
! Построение графика функции Fun(x)
program Test_Graphic
use GRAPHICA
implicit none
real, parameter:: pi=3.1415926
real A,B
A=0.0; B=2.0*pi
call Graphic(A, B, Fun)
contains
real function Fun(x)
real, intent(in):: x
Fun=0.5*x+sin(x)
return
end function Fun
end program Test_Graphic
! Построение графика функции
! двух переменных Fun(x,y)
program Test_Graphop
use GRAPHICA
implicit none
real A0,A1,B0,B1
A0=-2.0; A1=2.0; B0=-2.0; B1=2.0
call Graphop(A0, A1, B0, B1, Fun)
contains
real function Fun(x,y)
real, intent(in):: x,y
Fun=x*x+y*y-0.01*x*y
return
end function Fun
end program Test_Graphop
Вернуться к оглавлению Скачать библиотеку «Graphica»
