Реферат Особливі властивості Гамма-функції Ейлера

.0/6.0) * (7.0 * log (a)-log (42/0)-log (eps))) + I;

For (N = 1; n <= nb; n + +)

{

B = a/n;

Si = 0;

For (j = 0; j <5; j + +)

{

Si = si + b/(j +1.0);

B =-b * a/n;

}

S = s + si-log (1.0 + a/n);

}

Y = exp (-ce * a + s);

Return y * fc;

}

Main ()

}

Double dx, dy, xfrom = 0, xto = 4, yto = 5, h, maxy, miny;

Int n = 100, I, gdriver = DETECT, gmode, X0, YN0, X, Y, Y0, pr = 0;

Initgraph (& gdriver, & gmode, ""); p> X0 = 30;

YN0 = getmaxy () -20;

Line (30, getmaxy () -10,30,30); p> Line (20, getmaxy () -30, Getmaxx () -20, getmaxy () -30);

X = 170;

Y = 450;

Do {

Moveto (X, Y);

DO {

Y = Y-1;

Lineto (X, Y);

Y = Y-10;

Moveto (X, Y);

} while (Y> 30);

X = X +150;

Y = 450;

} while (X <700);

X = 30;

Y = 366;

Do {

Moveto (X, Y);

Do {

X = X +1;

Lineto (X, Y);

X = X +10;

Moveto (X, Y);

} while (X <= 620);

Y = Y-84;

X = 30;

} while (y> = 30);

X = 30 +150.0 * 0,1845;

Moveto (X, 30);

For9i = 1; i

{

Dx = (4.0 * i)/n;

Dy = gam (dx, 1e-3);

X = 30 + (600/0 * i)/n;

Y = 450-84 * dy;

If (Y <30) continue;

Lineto (X, Y);

}

X = 30 +150.0 * 308523;

Lineto (X, 30);

Line (30,30,30,10);

Line (620,450,640,450);

Line (30,10,25,15);

Line (30,10,25,15);

Line (640,450,635,445);

Line (640,450,635,455);

Line (170,445,170,455);

Line (320,445,320,455);

Line (470,445,470,455);

Line (620,445,620,455);

Line (25,366,35,366);

Line (25,282,35,282);

Line (25,114,35,114);

Line (25,30,35,30);

Outtexty (20,465, "0");

Outtexty (165,465, "1";

Outtexty (315,465, "2";

Outtexty (465,465, "3";

Outtexty (615,465, "4";

Outtexty (630,465, "x";

Outtexty (15,364, "1";

Outtexty (15,280, "2";

Outtexty (15,196, "3";

Outtexty (15,112, "4";

Outtexty (15,30, "5";

Outtexty (15,10, "y";

Getch ()

}