Санкт-Петербургский государственный университет
Информационных технологий
Механики и Оптики
Отчет
по лабораторной работе №3
Вариант №14
Студент:
Преподаватель:
2004 г.
Задание: Построить график
На промежутке [-6;12]
Уравнения участков графика
|
№ |
Участок |
Уравнение |
шаг |
раз |
Примечание |
|
1 |
[-6; -4] |
y =-2 |
- |
нет |
Прямая параллельная оси ОХ |
|
2 |
[-4; 0] |
y=x/4 |
0.25 |
9 |
Прямая задана двумя точками P1=(-4; -1) и P2=(0; 0) |
|
3 |
[0, 2] |
y = x2 |
0.02 |
101 |
Ветвь параболы с вершиной в начале координат, ветви направлены вверхы |
|
4 |
[2; 12] |
y=5-x/2 |
0.5 |
21 |
Прямая задана двумя точками P1=(2; 4) и P2=(10; 0) |
Таблица результатов
Горизонталь
(x,y)= -6 -2
(x,y)= -4 -2
Прямая
(x,y)= -4.000000 -1.000000
(x,y)= -3.750000 -9.375000E-01
(x,y)= -3.500000 -8.750000E-01
(x,y)= -3.250000 -8.125000E-01
(x,y)= -3.000000 -7.500000E-01
(x,y)= -2.750000 -6.875000E-01
(x,y)= -2.500000 -6.250000E-01
(x,y)= -2.250000 -5.625000E-01
(x,y)= -2.000000 -5.000000E-01
(x,y)= -1.750000 -4.375000E-01
(x,y)= -1.500000 -3.750000E-01
(x,y)= -1.250000 -3.125000E-01
(x,y)= -1.000000 -2.500000E-01
(x,y)= -7.500000E-01 -1.875000E-01
(x,y)= -5.000000E-01 -1.250000E-01
(x,y)= -2.500000E-01 -6.250000E-02
(x,y)= 0.000000E+00 0.000000E+00
Ветвь параболы
(x,y)= 0.000000E+00 0.000000E+00
(x,y)= 9.999999E-02 9.999999E-03
(x,y)= 2.000000E-01 3.999999E-02
(x,y)= 3.000000E-01 8.999999E-02
(x,y)= 4.000000E-01 1.600000E-01
(x,y)= 5.000001E-01 2.500001E-01
(x,y)= 6.000000E-01 3.600000E-01
(x,y)= 6.999999E-01 4.899998E-01
(x,y)= 7.999998E-01 6.399996E-01
(x,y)= 8.999997E-01 8.099994E-01
(x,y)= 9.999996E-01 9.999992E-01
(x,y)= 1.100000 1.209999
(x,y)= 1.199999 1.439999
(x,y)= 1.299999 1.689998
(x,y)= 1.399999 1.959998
(x,y)= 1.499999 2.249998
(x,y)= 1.599999 2.559997
(x,y)= 1.699999 2.889997
(x,y)= 1.799999 3.239996
(x,y)= 1.899999 3.609995
(x,y)= 1.999999 3.999995
Прямая
(x,y)= 2.000000 4.000000
(x,y)= 4.500000 2.750000
(x,y)= 7.000000 1.500000
(x,y)= 9.500000 2.500000E-01
(x,y)= 12.000000 -1.000000
Текст программы
Program Lab4
Implicit None
Real x, y
Integer::tabl=5
Integer k
Open(1,File='1.dat')! 1 - горизонталь
Open(2,File='2.dat')! 2 - прямая
Open(3,File='3.dat')! 3 - ветвь параболы
Open(4,File='4.dat')! 4 - прямая
Open(tabl,file='tabl.txt')! текстовый файл с таблицей
Write(tabl,*) 'Горизонталь'
Write(1,*) -6,-2
Write(1,*) -4,-2
Write(tabl,*)'(x,y)=',-6,-2
Write(tabl,*)'(x,y)=',-4,-2
Write(tabl,*) 'Прямая'
Do x= -4, 0, 0.25
y=x/4.
Write(2,*) x,y
Write(tabl,*) '(x,y)=',x,y
Enddo
Write(tabl,*) 'Ветвь параболы'
k=0
Do x=0, 2, 0.02
y=x*x
Write(3,*) x,y
k=k+1
if(Mod(k,5)==1) Write(tabl,*)'(x,y)=', x,y
Enddo
Write(tabl,*) 'Прямая'
k=0
Do x= 2, 12, 0.5
y=5-x/2.
Write(4,*) x,y
k=k+1
if(Mod(k,5)==1) Write(tabl,*)'(x,y)=', x,y
Enddo
End