Результат в AGrapher’e
Неравенства для заштрихованной области
Внутри полукруга
l1=x*x+y*y<=r*r .and. y>=0
Внутри сектора во 2-ой четверти
l2=l1 .and. y<=-x
Внутри сектора в 1-ой четверти
l3=l1 .and. y>=x .and. x>=0
Для всей области
l=l2 .or. l3
Уравнения графиков
Параметрическое уравнение окружности радиуса R
x=r*cos(a)
y=r*sin(a)
Уравнение для функции y=|x|
y=abs(x)
Формула для подсчета значений z
z=cos(x/(3.-x*y))-exp(-((x+1.)**2.))-(4./9.)+0.2*(10.**(-4.))
ОДЗ
x▪y≠3
Текст программы
program lab5
implicit none
real z,x,y,alpha,r/10./
logical l,l1,l2,l3
open(1, file='inside-odz.txt')
open(2, file='inside-neodz.txt')
open(3, file='outside.txt')
open(4, file='duga.txt')
open(5, file='lines.txt')
open(6, file='tabl.txt')
do alpha=180,0,-2
x=r*cosd(alpha)
y=r*sind(alpha)
write(4,*) x,y
enddo
do x=-r,r,r/29.
write(5,*) x, abs(x)
enddo
do x=-r,r,0.25
do y=0,r,0.25
l1=x*x+y*y<=r*r .and. y>=0 !Внутри полукруга
l2=l1 .and. y<=-x !Внутри сектора во 2-ой четверти
l3=l1 .and. y>=x .and. x>=0 !Внутри сектора в 1-ой четверти
l=l2 .or. l3
if(l) then
if(3.-x*y/=0) then
z=cos(x/(3.-x*y))-exp(-((x+1.)**2.))-(4./9.)+0.2*(10.**(-4.))
write(6,*) 'x=',x,' y=',y,' z=',z
write(1,*) x,y
else
write(2,*) x,y
endif
else
write(3,*) x,y
endif
enddo
enddo
end
Таблица значений (фрагметы: начало и конец)
x= -10.000000 y= 0.000000E+00 z= -1.426098
x= -9.750000 y= 0.000000E+00 z= -1.438554
x= -9.750000 y= 2.500000E-01 z= -6.649050E-01
x= -9.750000 y= 5.000000E-01 z= -1.178273E-01
x= -9.750000 y= 7.500000E-01 z= 1.409500E-01
x= -9.750000 y= 1.000000 z= 2.771616E-01
x= -9.750000 y= 1.250000 z= 3.564901E-01
x= -9.750000 y= 1.500000 z= 4.064276E-01
x= -9.750000 y= 1.750000 z= 4.397926E-01
x= -9.750000 y= 2.000000 z= 4.631467E-01
x= -9.500000 y= 0.000000E+00 z= -1.444110
x= -9.500000 y= 2.500000E-01 z= -6.398051E-01
x= -9.500000 y= 5.000000E-01 z= -1.062373E-01
x= -9.500000 y= 7.500000E-01 z= 1.467585E-01
x= -9.500000 y= 1.000000 z= 2.804116E-01
…
…
…
x= 6.250000 y= 6.500000 z= 5.418105E-01
x= 6.250000 y= 6.750000 z= 5.428840E-01
x= 6.250000 y= 7.000000 z= 5.438368E-01
x= 6.250000 y= 7.250000 z= 5.446862E-01
x= 6.250000 y= 7.500000 z= 5.454467E-01
x= 6.250000 y= 7.750000 z= 5.461302E-01
x= 6.500000 y= 6.500000 z= 5.418943E-01
x= 6.500000 y= 6.750000 z= 5.429583E-01
x= 6.500000 y= 7.000000 z= 5.439028E-01
x= 6.500000 y= 7.250000 z= 5.447452E-01
x= 6.500000 y= 7.500000 z= 5.454996E-01
x= 6.750000 y= 6.750000 z= 5.430264E-01
x= 6.750000 y= 7.000000 z= 5.439635E-01
x= 6.750000 y= 7.250000 z= 5.447994E-01
x= 7.000000 y= 7.000000 z= 5.440194E-01
Санкт-Петербургский Государственный Университет
Информационных технологий,
Механики и оптики
Отчет
по информатике
Студент:
Преподаватель:
2004 г.