Как подписать оси?

@nikoletta · Регистрация: 19.12.2012

Author24 — интернет-сервис помощи студентам

Как теперь сделать засечки на осях и подписать?

Delphi

with Image1 do
    begin
       kx:=(width-0)/(xk-x0);
       ky:=(height-0)/2;
       By:=ky;
       Bx:=-kx*x0;
       u:=Round(x0*kx+bx);
       v:=Round(Height-(y0*ky+by));
       Canvas.MoveTo(u,v);
 
While x0<xk do
           begin
            x0:=x0+0.01;
            y0:=sin(x0);
            u:=Round(x0*kx+bx);
            v:=Round(Height-(y0*ky+by));
            Image1.Canvas.LineTo(u,v);
           end;
      Image1.Canvas.MoveTo(0,Round(height/2));
      Image1.Canvas.LineTo(width,Round(height/2));
      Image1.Canvas.MoveTo(Round(bx),height);
      Image1.Canvas.LineTo(Round(bx),0);
      Image1.Canvas.TextOut(width-10,Round((height+10)/2),'X');
      Image1.Canvas.TextOut(Round(bx)-10,(5),'Y');
 
      Image1.Canvas.MoveTo(width-5,Round(height/2)-5);
      Image1.Canvas.LineTo(width,Round(height/2));
      Image1.Canvas.MoveTo(width-5,Round(height/2)+5);
      Image1.Canvas.LineTo(width,Round(height/2));

@krapotkin · 21.03.2015, 21:39

засечки - это просто линии
Image1.Canvas.MoveTo(x,y);Image1.Canvas.LineTo(x1,y1);
подбери координатки

подписи
Image1.Canvas.TextOut(x, у, s);

@nikoletta · 21.03.2015, 22:24 **[ТС]**

krapotkin, это я понимаю) я не понимаю,куда это вписывать? в цикл?

@krapotkin · 21.03.2015, 22:44

цикл - действие, повторяющееся несколько раз,
если засечки повторяются несколько раз, то... ?

подписи к осям - явно 1 раз

@krapotkin 5841 / 4573 / 1443 Регистрация: 14.04.2014 Сообщений: 20,311 Записей в блоге: 20
	21.03.2015, 21:39	2
	засечки - это просто линии Image1.Canvas.MoveTo(x,y);Image1.Canvas.LineTo(x1,y1); подбери координатки подписи Image1.Canvas.TextOut(x, у, s); 0

@nikoletta 0 / 0 / 0 Регистрация: 19.12.2012 Сообщений: 17
	21.03.2015, 22:24 [ТС]	3
	krapotkin, это я понимаю) я не понимаю,куда это вписывать? в цикл? 0

@krapotkin 5841 / 4573 / 1443 Регистрация: 14.04.2014 Сообщений: 20,311 Записей в блоге: 20
	21.03.2015, 22:44	4
	цикл - действие, повторяющееся несколько раз, если засечки повторяются несколько раз, то... ? подписи к осям - явно 1 раз 0

Опции темы