Страница 1 из 1
Вопрос по Compaq Visual Fortran
Добавлено: 06 ноя 2011, 13:16
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
Вопрос по Compaq Visual Fortran
Добавлено: 06 ноя 2011, 15:49
folk
Так у вас корень наверное там не вычисляется из за отрицательного значения под корнем, где используется c d не понятно.
Вопрос по Compaq Visual Fortran
Добавлено: 07 ноя 2011, 02:38
DefendeR
как задать два цикла?
Вопрос по Compaq Visual Fortran
Добавлено: 07 ноя 2011, 12:15
folk
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
Вопрос по Compaq Visual Fortran
Добавлено: 07 ноя 2011, 14:00
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
Спасибо :yes:
Вопрос по Compaq Visual Fortran
Добавлено: 09 ноя 2011, 09:56
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