ВУЗ:
Составители:
Рубрика:
30
begin
brush.Color:=clWhite;
Pen.Color:=clWhite;
Brush.Color:=clWhite;
Rectangle(0,0,mx,my);
FillRect(Rect(0,0,mx,my));
Pen.Color:=clBlack;
Moveto(mx div 2,0);
LineTo(mx div 2,my);
Moveto(mx div 2,0);
LineTo((mx div 2) - 3, 15);
Moveto(mx div 2,0);
LineTo((mx div 2) + 3, 15);
Moveto(0,my-20);
LineTo(mx,my-20);
Moveto(mx - 15 ,my-23);
LineTo(mx ,my-20);
Moveto(mx - 15 ,my - 17);
LineTo(mx ,my-20);
begy:=2.4;
hx:=abs(bx*2)/(Image1.Width-20);
hy:=begy/(image1.Height-20);
Pen.Color:=clBlue;
Pen.Style:=psSolid;
Moveto(10,my-20);
Moveto(10,my-20-Round(abs(
(F(tayI1,tay0-tayI2,a1,bx)+F(tayI2,tay0,a2,bx)+F(tayI3,tay0-
tayI2,a3,bx))/hy)));
for i:=10 to (Image1.Width-20) do
begin
x:=i;
rx:=bx+x*hx;
ry:=abs(F(tayI1,tay0-tayI2,a1,rx)+F(tayI2,tay0,a2,rx)+F(tayI3,tay0-
tayI2,a3,rx));
y:=my-20-Round(ry/hy);
LineTo(x+10,y);
end;
Pen.Color:=clGreen;
Pen.Style:=psDash;
Moveto(10,my-20-Round(abs(
(F(pi,-pi,-a,bx)+F(pi,0,a,bx)+F(pi,pi,-a,bx))/hy)));
for i:=10 to (Image1.Width-20) do
begin
x:=i;
rx:=bx+x*hx;
30 begin brush.Color:=clWhite; Pen.Color:=clWhite; Brush.Color:=clWhite; Rectangle(0,0,mx,my); FillRect(Rect(0,0,mx,my)); Pen.Color:=clBlack; Moveto(mx div 2,0); LineTo(mx div 2,my); Moveto(mx div 2,0); LineTo((mx div 2) - 3, 15); Moveto(mx div 2,0); LineTo((mx div 2) + 3, 15); Moveto(0,my-20); LineTo(mx,my-20); Moveto(mx - 15 ,my-23); LineTo(mx ,my-20); Moveto(mx - 15 ,my - 17); LineTo(mx ,my-20); begy:=2.4; hx:=abs(bx*2)/(Image1.Width-20); hy:=begy/(image1.Height-20); Pen.Color:=clBlue; Pen.Style:=psSolid; Moveto(10,my-20); Moveto(10,my-20-Round(abs( (F(tayI1,tay0-tayI2,a1,bx)+F(tayI2,tay0,a2,bx)+F(tayI3,tay0- tayI2,a3,bx))/hy))); for i:=10 to (Image1.Width-20) do begin x:=i; rx:=bx+x*hx; ry:=abs(F(tayI1,tay0-tayI2,a1,rx)+F(tayI2,tay0,a2,rx)+F(tayI3,tay0- tayI2,a3,rx)); y:=my-20-Round(ry/hy); LineTo(x+10,y); end; Pen.Color:=clGreen; Pen.Style:=psDash; Moveto(10,my-20-Round(abs( (F(pi,-pi,-a,bx)+F(pi,0,a,bx)+F(pi,pi,-a,bx))/hy))); for i:=10 to (Image1.Width-20) do begin x:=i; rx:=bx+x*hx;
Страницы
- « первая
- ‹ предыдущая
- …
- 28
- 29
- 30
- 31
- 32
- …
- следующая ›
- последняя »