| Текст подпрограммы и версий sf73r_c.zip | Тексты тестовых примеров tsf73r_c.zip | 
Вычисление функции треугольного распределения вероятностей.
sf73r_c вычисляет вероятность P того, что случайная величина, имеющая треугольное распределение с параметрами G1, G2, меньше или pавна значению x:
                     x
           P = 2 ∫  ( ( 1 / |G1 - G2| ) - ( |G1 + G2 - 2Z| / (G1 - G2)2 ) ) dz ,
                 min(G1, G2) 
            min(G1, G2) ≤ x ≤ max(G1,G2)
Справочник по специальным функциям. Под ред. M.Абрамовица, И.Стеган. M.: "Hаука", 1979.
    int sf73r_c (real *x, real *g1, real *g2, real *p)
Параметры
| x - | заданное значение аргумента (тип: вещественный); | 
| g1, g2 - | параметры треугольного распределения (границы интервала, на котоpом сосредоточено распределение) (тип: вещественный); | 
| p - | вещественная переменная, содержащая вычисленное значение вероятности. | 
Версии: нет
Вызываемые подпрограммы: нет
Замечания по использованию
| Границы интервала g1, g2 допустимо задавать в любом порядке (т.е. g2 можно задавать как больше, так и меньше g1). | 
int main(void)
{
    /* Local variables */
    extern int sf73r_c(float *, float *, float *, float *);
    static float p;
    static float c_b1 = 1.f;
    static float c_b2 = 0.f;
    static float c_b3 = 2.f;
    sf73r_c(&c_b1, &c_b2, &c_b3, &p);
    printf("\n %16.7e \n",p);
    return 0;
} /* main */
Результат:    p  =  0.5