Текст подпрограммы и версий ( Фортран )
sf45r.zip  		Тексты тестовых примеров ( Фортран )
tsf45r.zip 
Текст подпрограммы и версий ( Си )
sf45r_c.zip  		Тексты тестовых примеров ( Си )
tsf45r_c.zip 
Текст подпрограммы и версий ( Паскаль )
sf45r_p.zip 		Тексты тестовых примеров ( Паскаль )
tsf45r_p.zip

Подпрограмма:  SF45R

Назначение

Вычисление значений интегралов Френеля  S(x) и  C(x).

Математическое описание

Подпрограма SF45R вычисляет значения интегралов Френеля 

                                x
     S(x) = 1/(2π)1/2  ∫ sin t / √t dt
                               0
                                 x
     C(x) = 1/(2π)1/2  ∫ cos t / √t dt
                               0

для вещественных значений аргумента  x.

G.Nemeth, Chebyshev Expansions for Fresnel Integrals, Numer. Math., 7, 4, 1965.

Использование 

    SUBROUTINE  SF45R (X, C, S) 
   Параметры
X - заданное значение аргумента  x (тип: вещественный);
C, S - вещественные переменные, которым в результате pаботы подпрограммы присваиваются значения  C (x) и S (x) соответственно. 
   Версии:  нет 
   Вызываемые подпрограммы:  нет 
   Замечания по использованию
  B результате работы подпрограмы SF45R для  X < 0 переменным C и S присваиваются значения C ( | x | ) и S ( | x | ) соответственно.

Пример использования 

         X = 13.
         CALL  SF45R (X, C, S)

Результаты:

       C  =  0.542510411403
       S  =  0.39826772111