VasilisaAndreevna
Newbie | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
FuzzyLogic
Я пробовала как в один, так и в разные.
Вот как-то так:
Текст программы...
WRITE(2,235) 11, 22 (Это эаписывается)
235 FORMAT(G22.16,G22.16)
CALL LAGUERE(0,0,PI*q/pe,lag)
WRITE(2,235) 33, 44 (это уже не пишется в файл)
**********************************
SUBROUTINE LAGUERE(n,m,x,lag)
REAL x,lag,bin
INTEGER ll,m,n
WRITE(2,235) 9, 9 (И ЭТО ТОЖЕ НЕ ПИШЕТСЯ)
235 FORMAT(G22.16,G22.16)
lag=0.0d0
do 98 ll=0,n
bin=FACTORIAL(n+m)/FACTORIAL(n-ll)/FACTORIAL(m+ll)
lag=lag+bin/FACTORIAL(ll)*(x**ll)*((-1)**ll)
98 continue
RETURN
END
**********************************
|
