Курсовая работа: Особые свойства Гамма-функции Эйлера

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<n,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);