[perekatipole]

у меня есть код,строящий график функций

Код:

procedure TForm2.GrClick(Sender: TObject);
function f(x:real): real;
Var
  c : real;
Begin
    c :=(2*x-1)/(sqr(x-1));
    f:=c;
end;
Var
  a,b,x : real;
  x0,y0,i : integer;
  flag:boolean;
Begin
  flag:=true;
  x0 := line1.Width div 2;
  y0 := line1.Height div 2;
  With line1.Canvas do
    Begin
      Pen.Color:=clBlack;
      MoveTo(x0,0);
      LineTo(x0,line1.ClientHeight);
      MoveTo(0,y0);
      LineTo(line1.ClientWidth,y0);
      MoveTo(0,y0);
      Pen.Color := clBlue;
      a :=-line1.ClientHeight div 5;
      b :=-line1.ClientWidth div 15;
      x :=-10;
      For i:=-100 to 100 do
        Begin
          x:=x+0.1;
          if (not((x<-0.99) and (x>-1.01))) then begin
            if(flag=true) then begin
              MoveTo(Trunc(x0+x*b),Trunc(y0+f(-x)*a));
              flag:=false;
            end;
            LineTo(Trunc(x0+x*b),Trunc(y0+f(-x)*a));
          end;
        End;
    End;
End;



procedure TForm2.line1Click(Sender: TObject);
begin

end;

procedure TForm2.ExitClick(Sender: TObject);
begin
  close;
end;

end.

помогите понять почему вместо

Код:

(not((x<-0.99) and (x>-1.01)))

я не могу поставить просто -1(он крашится при -1 и работает при диапазоне)?

[Alegun]

Да не крашится, под D7 при диапазоне рисуется на форме сетка и пиковый зубец, а при постоянном х=-1 только сетка

[perekatipole]

Сообщение от Alegun

Да не крашится, под D7 при диапазоне рисуется на форме сетка и пиковый зубец, а при постоянном х=-1 только сетка

как мне тогда правильно с -1 записать?

[Alegun]

Сообщение от perekatipole

...не могу поставить просто -1(он крашится при -1 и работает при диапазоне)?

А как вы подставляли -1 вместо

Код:

if (not((x<-0.99) and (x>-1.01))) then begin...

часом не x:= -1 ?

[perekatipole]

Сообщение от Alegun

А как вы подставляли -1 вместо

Код:

if (not((x<-0.99) and (x>-1.01))) then begin...

часом не x:= -1 ?

можно как-нибудь записать вместо диапазона -1?
я понял что неправильно писал значение,но не знаю как написать

[Alegun]

Можно, if x=-1 then.., надо было сразу спросить, для чего?

[perekatipole]

Сообщение от Alegun

Можно, if x=-1 then.., надо было сразу спросить, для чего?

так он не строит график

[Alegun]

Не, строит, просто в другом месте и этого не видно

[perekatipole]

Сообщение от Alegun

Не, строит, просто в другом месте и этого не видно

мне же надо if not -1,а ты написал if -1,как записать?

[Alegun]

Сообщение от perekatipole

мне же надо if not -1,а ты написал if -1,как записать?

if x <> -1 then..

[lmikle]

а ничего, что при x = -1 деление на 0 получается?
ну и, до кучи, сравнивать действительные числа через =, это надо что бы круто свезло. Т.е. указание диапазона в том if'е вполне оправданно.

[perekatipole]

Сообщение от lmikle

а ничего, что при x = -1 деление на 0 получается?
ну и, до кучи, сравнивать действительные числа через =, это надо что бы круто свезло. Т.е. указание диапазона в том if'е вполне оправданно.

можно поподробнее про сравнение через =?я знаю что при х=-1 получается и у меня в коде ограничение

[lmikle]

А чего уж тут подробнее.
Имеет место проблема при прямом сравнении чисел с плавающей точкой, т.к. в следствии погрешности при расчете 2 действительных числа могут оказаться не равны с точки зрения компьютера. Соответсвенно, такие числа надо сравнивать через эпсилон.
Вот пример как надо это сравнивать:

Код:

procedure TForm1.Button1Click(Sender: TObject);
var
  f1, f2 : double;
begin
  f1 := 1.3000000;
  f2 := 1.2999999;
  if abs(f1-f2) < 0.00001
  then ShowMessage('f1 and f2 are equal')
  else ShowMessage('f1 and f2 are not equal');
end;

Взято тут: https://edn.embarcadero.com/article/22507

[perekatipole]

как в коде записать не диапазон а просто значение -1?

[perekatipole]

Сообщение от lmikle

А чего уж тут подробнее.
Имеет место проблема при прямом сравнении чисел с плавающей точкой, т.к. в следствии погрешности при расчете 2 действительных числа могут оказаться не равны с точки зрения компьютера. Соответсвенно, такие числа надо сравнивать через эпсилон.
Вот пример как надо это сравнивать:

Код:

procedure TForm1.Button1Click(Sender: TObject);
var
  f1, f2 : double;
begin
  f1 := 1.3000000;
  f2 := 1.2999999;
  if abs(f1-f2) < 0.00001
  then ShowMessage('f1 and f2 are equal')
  else ShowMessage('f1 and f2 are not equal');
end;

Взято тут: https://edn.embarcadero.com/article/22507

тоесть,компьютер например может 0.999999 посчитать за 1 и не построить график?