Рисование графиков функций в Паскале

[maliyusha]

Привет!
y = sin(x); x = [0,1; 1];
Как разбить на отрезки ось Х, чтобы получилось,как на оси У, и можно ли вместо 0,0 поставить просто 0 и при этом оставить все как есть? Пожалуйста,помогите  особенно с Х!!!

Код:

Uses crt, graph;
Var dr,m: integer;
    xe,ye,xen,yen,xex,yex,xs,ys,kdx,kdy,kt,xl,yl,i: integer;
    x,y,xmin,ymin,xmax,ymax,mx,my,hx,hdx,hdy: real;
    xst, yst: string[5];
begin
    dr := detect;
    initgraph (dr,m,'c:\bp\bgi');
{Granicy okna v dekardovoi sisteme koordinat}
    xmin:=0.1;
    xmax:=1;
    ymin:=-0.9;
    ymax:=1.3;
{Granicy ekrannogo okna}
    xen:=60;
    xex:=620;
    yen:=450;
    yex:=30;
{Shagi razmetki storon okna i koli4estvo delenii}
    hdx:=pi/2;
    hdy:=0.1;
    kdx := round ((xmax-xmin)/hdx);
    kdy := round ((ymax-ymin)/hdy);

{masshtabnye koefficienty dlya X i Y}
    mx:=(xmax-xmin)/(xex-xen);
    my:=(ymax-ymin)/(yen-yex);
{Koordinaty osei}
    xs := round (xen+(0.1-xmin)/mx);
    ys := round (yen-(0-ymin)/my);
    setcolor (19);
    line (xen,ys,xex,ys);
    line (xs,yen,xs,yex);
    outtextxy(trunc(xs+100),trunc(ys-239),'F(X)=SIN(X), 0.1<X<1');
    outtextxy(trunc(xs+6), trunc(ys-239), 'Y');
    outtextxy(trunc(xs+550), trunc(ys-14), 'X');
{Razmetka storony okna po osi X}
    x:=xmin;
    for i:=1 to kdx do
     begin
      xe := round (xen+(x-xmin)/mx);
      str (x:6:1,xst);
      line (xe,yen,xe,yen);
      outtextxy (xe-4,yen,xst);
      x:=x+hdx;
     end;
{Razmetka storony okna po osi Y}
    y:=ymin;
    for i:=1 to kdy do
     begin
      ye := round (yen-(y-ymin)/my);
      str (y:6:1,yst);
      line (xen,ye,xen-5,ye);
      outtextxy (xen-50,ye-4,yst);
      y:=y+hdy;
     end;
 {Vyvod grafika funkcii}
    x:=xmin;
    hx:=mx;
    kt:=xex-xen+1;
    for i:=1 to kt do
     begin
      y := sin(x);
      xe := round (xen+(x-xmin)/mx);
      ye := round (yen-(y-ymin)/my);
      putpixel (xe,ye,30);
      x:=x+hx;
     end;
    readln;
 closegraph;
end.

[Finch]

У тебя X в формуле меняется откуда и до куда? Давай я ее обзову alpha, чтоб не путаться.

X = alpha*(X_end-X_beg)/(alpha_end-alpha_beg)+X_beg

,где
 alpha - текуший угол в формуле (наверно в радианах)
 alpha_beg - Самое наименьшее значение угла
 alpha_end - Самое наибольшее значение угла
 X_beg - Наименьшая координата экрана
 X_end - Наибольшая координата экрана

[maliyusha]

Ну... если так удобнее, то я только ЗА!

А что даст замена переменных?

[Finch]

Она ничего не даст. Но угол обычно в математике обозначают греческими буквами. Чтоб не произошла у тебя же путаница между углами и координатами графика.

[Finch]

Код честно говоря не смотрел, может быть так и реализовано Но мне пришла такая идея, Прирашение координаты экрана и прирашение угла имеют линейную зависимость. Значит тебе надо только посчитать, на сколько должен возрасти угол, если изменить координату на одно деление.
deltaAlpha = (alpha_end-alpha_beg)/(X_end-X_beg)
Теперь только останется прибавлять единицу к координате и deltaAlpha к углу. И считать Y и строить график.
Получится типа

Код:

   for x:=1 to kdx do
     begin
          alpha = alpha + deltaAlpha;
          y = sin(alpha);
          ...............................
     end;

[maliyusha]

Спасибо за отзыв и помощь, я уже разобралась и теперь все работает правильно.