Есть функция abs(cos(3*x)). В Фортране мне её надо затабулировать. Проверьте пжлста коды. В екселе у меня получился график , но приподнятый по у вверх.
program lab1
real a,b,h,x,y
integer i,N
open(10,file='lab1.txt')
a=0
b=(2./3.)*(3.141593)
N=31
h=(b-a)/(N-1)
do i=1,N
x=a+(i-1)*h
y=abs(cos(3*x))
print*,x,y
write(10,*)x,y
end do
end