Задание
На интервале [-2, 3] графически задана функция
Уравнения участков графика
№ |
Участок |
Уравнение |
шаг |
раз |
Примечание |
1 |
[-10; -6] [0, 180▫] |
x=2*cos()-8 y=2*sin()-2 |
-2 |
91 |
Параметрические уравнения окружности радиуса R=2 с центром в точке (-8; -2). |
2 |
[-6, 2] |
y =x/2 +1 |
0.5 |
17 |
Прямая пересекает оси в точках (-2,0) и (0,1). Уравнение прямой линии в отрезках. |
3 |
[2; 6] |
y=0 |
- |
- |
Участок оси Ох |
4 |
[6; 8] |
y=(x-6)2 |
0.02 |
101 |
Ветвь параболы с вершиной в точке (6; 0) |
Число повторений цикла рассчитывается по формуле:
Полученный график
Контрольная таблица значений
Дуга окружности
(x,y)= -10.000000 -2.000000
(x,y)= -9.969616 -1.652704
(x,y)= -9.879385 -1.315960
(x,y)= -9.732051 -1.000000
(x,y)= -9.532089 -7.144248E-01
(x,y)= -9.285575 -4.679111E-01
(x,y)= -9.000000 -2.679492E-01
(x,y)= -8.684040 -1.206148E-01
(x,y)= -8.347297 -3.038449E-02
(x,y)= -8.000000 0.000000E+00
(x,y)= -7.652704 -3.038449E-02
(x,y)= -7.315960 -1.206148E-01
(x,y)= -7.000000 -2.679492E-01
(x,y)= -6.714425 -4.679111E-01
(x,y)= -6.467911 -7.144248E-01
(x,y)= -6.267949 -1.000000
(x,y)= -6.120615 -1.315960
(x,y)= -6.030385 -1.652704
(x,y)= -6.000000 -2.000000
Прямая
(x,y)= -6.000000 -2.000000
(x,y)= -5.500000 -1.750000
(x,y)= -5.000000 -1.500000
(x,y)= -4.500000 -1.250000
(x,y)= -4.000000 -1.000000
(x,y)= -3.500000 -7.500000E-01
(x,y)= -3.000000 -5.000000E-01
(x,y)= -2.500000 -2.500000E-01
(x,y)= -2.000000 0.000000E+00
(x,y)= -1.500000 2.500000E-01
(x,y)= -1.000000 5.000000E-01
(x,y)= -5.000000E-01 7.500000E-01
(x,y)= 0.000000E+00 1.000000
(x,y)= 5.000000E-01 1.250000
(x,y)= 1.000000 1.500000
(x,y)= 1.500000 1.750000
(x,y)= 2.000000 2.000000
Горизонталь
(x,y)= 2 0
(x,y)= 6 0
Ветвь параболы
(x,y)= 6.000000 0.000000E+00
(x,y)= 6.100000 9.999981E-03
(x,y)= 6.200000 3.999992E-02
(x,y)= 6.300000 8.999982E-02
(x,y)= 6.400000 1.599997E-01
(x,y)= 6.500000 2.499995E-01
(x,y)= 6.599999 3.599993E-01
(x,y)= 6.699999 4.899991E-01
(x,y)= 6.799999 6.399988E-01
(x,y)= 6.899999 8.099985E-01
(x,y)= 6.999999 9.999981E-01
(x,y)= 7.099999 1.209998
(x,y)= 7.199999 1.439997
(x,y)= 7.299999 1.689997
(x,y)= 7.399999 1.959996
(x,y)= 7.499999 2.249996
(x,y)= 7.599998 2.559995
(x,y)= 7.699998 2.889994
(x,y)= 7.799998 3.239994
(x,y)= 7.899998 3.609993
(x,y)= 7.999998 3.999992
Код программы
Program Lab3
Implicit None
Real x, y, alpha
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,*) 'Дуга окружности'
k=0
do alpha=180,0,-2
x=2.*cosd(alpha)-8
y=2.*sind(alpha)-2
write(1,*) x,y
k=k+1
if(Mod(k,5)==1) Write(tabl,*)'(x,y)=', x,y
enddo
Write(tabl,*) 'Прямая'
Do x= -6, 2, 0.5
y=x/2.+1
Write(2,*) x,y
Write(tabl,*) '(x,y)=',x,y
Enddo
Write(tabl,*) 'Горизонталь'
Write(3,*) 2,0
Write(3,*) 6,0
Write(tabl,*)'(x,y)=',2,0
Write(tabl,*)'(x,y)=',6,0
Write(tabl,*) 'Ветвь параболы'
k=0
Do x=6, 8, 0.02
y=(x-6.)**2.
Write(4,*) x,y
k=k+1
if(Mod(k,5)==1) Write(tabl,*)'(x,y)=', x,y
Enddo
End
Санкт-Петербургский Государственный Университет
Информационных технологий,
Механики и оптики
Отчет
К лабораторной работе по информатике
Вариант № 8
Студент:
Преподаватель:
2004 г.