Вопрос по Compaq Visual Fortran

[DefendeR]

Как задать такую разрывную функцию? Я дал параметр c,d. Но график не рисует...

Код: Выбрать все

program lab1
real a,b,c,d,h,x,y
integer i,N
 open(10,file='lab1.txt')
 a=-5
 b=-13./10.
 c=23./10.
 d=5
 N=31
 h=(b-a)/(N-1)
 do i=1,N
 x=a+(i-1)*h
 y=2-(3./4.)*(sqrt(x**2-x-3.))
 print*,x,y
 write(10,*)x,y
 end do
end


[folk]

Так у вас корень наверное там не вычисляется из за отрицательного значения под корнем, где используется c d не понятно.

[DefendeR]

как задать два цикла?

[folk]

Source of the post
как задать два цикла?

DO 4 I = 1, 5
J0 = MAX0(1, I - ML)
J1 = MIN0(N, I + MU)
DO 3 J = J0, J1
K = J - I + ML + 1
A(I, K) = FLOAT(I*10 + J)
B(I, J) = A(I, K)
B(I, J + 5) = A(I, K)
3 CONTINUE
4 CONTINUE

[DefendeR]

Source of the post

Source of the post
как задать два цикла?

DO 4 I = 1, 5
J0 = MAX0(1, I - ML)
J1 = MIN0(N, I + MU)
DO 3 J = J0, J1
K = J - I + ML + 1
A(I, K) = FLOAT(I*10 + J)
B(I, J) = A(I, K)
B(I, J + 5) = A(I, K)
3 CONTINUE
4 CONTINUE

Спасибо :yes:

[DefendeR]

Вообщем вопрос в следующем. Есть функция y=tan(x/2-1). Период беру от -1.13 до 5.13. Но в екселе рисует так:
Как сделать чтобы была плавная линия, взять ограничения по y?

program lab1
real a,b,h,x,y
integer i,N
open(10,file='lab1.txt')
a=-1.13
b=5.13
N=31
h=(b-a)/(N-1)
do i=1,N
x=a+(i-1)*h
y=tan(x/2-1)
print*,x,y
write(10,*)x,y
end do
end