Построение любого графика, может это кому надо ... Опции

[Altair]

На Free Pascal у меня отработало без ошибок.

Только область конечно надо ограничить справа.

[Гость]

было бы здорово, если бы автор добавил описания к константам :-)

з.ы. Altair, Спасибо :-)

[volvo]

const
  { OPTIONS }
  shag     = 0.0001; { <-- Шаг изменения X }
  lgr      =    -50; { <-- Начальное значение X}
  pgr      =     50; { <-- Конечное значение X }
  zcrtX    =    320; { <-- Координата X центра экрана }
  zcrty    =    240; { <-- Координата Y центра экрана }
  mtrX     =     10; { <-- Коэффициент масштабирования по оси X }
  mtrY     =     10; { <-- Коэффициент масштабирования по оси Y }
  colorG   =     15; { <-- Цвет графика }
  colorOXY =      4; { <-- Цвет координатных осей }
  OXYminX  =   -200; { <-- Минимальное отображаемое значение оси X }
  OXYmaxX  =    200; { <-- Максимальное отображаемое значение оси X }
  OXYminY  =   -200; { <-- Минимальное отображаемое значение оси Y }
  oxymaxY  =    200; { <-- Максимальное отображаемое значение оси Y }

Все вроде прозрачно...

[NadBlack]

У меня почему то не получилось построить график
запускаю всё это дло а оно выдаёт мне с верху вниз пол экрана серым,вторая половина чёрным и красненькая полоска посередине всё...

Код

Uses Graph,crt;
const
{ OPTIONS }
shag=0.0001;
lgr = -50;
pgr = 50;
zcrtX=320;
zcrty=240;
mtrX=10;
mtrY=10;
colorG=15;
colorOXY=4;
OXYminX=-200;
OXYmaxX=200;
OXYminY=-200;
oxymaxY=200;

Var grDriver : Integer;
     grMode : Integer;

   x,y:real;{extended;}
       i:integer;
Begin
grDriver:=Detect;
InitGraph(grDriver, grMode, '');
for i:=OXYminX to OXYmaxX do putpixel(zcrtX+i,zcrty,colorOXY);
for i:=OXYminY to OXYmaxY do putpixel(zcrtX,zcrty-i,colorOXY);

x:=lgr;
while x<=pgr do
begin
{ readln(x);}
{***} if x<>1 then begin y:=abs(x-1); {***}
{ writeln(y:1:8);}
putpixel(zcrtx+trunc(x*mtrX),zcrty-trunc(y*mtrY),colorg) end;
x:=x+shag;
end;
readkey;
closegraph;
end.

Сообщение отредактировано: volvo - 15.10.2006 2:46

[Bokul]

Странно, у меня все хорошо отрисовало в FreePascal:

[volvo]

NadBlack, в Турбо Паскале тоже прекрасно отрисовывается...

[Гость]

Хм,у меня возможно из-за неполной версии паскаля такой глюк
А как мне нужно изменить эту строчку
{***} if x<>1 then begin y:=abs(x-1); {***}
если у меня формула y:=abs(x)-1

[Bokul]

А как мне нужно изменить эту строчку
{***} if x<>1 then begin y:=abs(x-1); {***}
если у меня формула y:=abs(x)-1

Гость, ты что смеешься? Вот так:

 if true then begin y:=abs(x)-1;

.

Сообщение отредактировано: volvo - 2.11.2006 19:05

[Reflex]

как построить график функции X^X

[Atos]

http://forum.pascal.net.ru/index.php?showt...&st=0&p=38226&# возведение в степень