рельеф произвольной функции двух переменных

[cote]

спасибо понял там должно быть так

if (x+y)<>0 then
           z:=100/(x+y);

теперь все нормально но осталась одна проблема на экран выводить закрашенную белым цветом квадрат 200X200(((

[Rin]

if (x+y)<>0 then
z:=100/(x+y);

Думаю так будет лучше:

if (x+y)<>0 then
           z:=random(100)/(x+y)
else z:=random(100);

И проверку я бы сделал так:

        for i:=1 to 16 do begin
           if (min+sector*(i-1)<=z) and (z<min+sector*i) then

Жаль паскаля нет, а так бы откомпилировал прогу и точно сказал бы где косяк

[BDA]

for i:=1 to 16 do begin
if z<min+sector*i then
  begin
    putpixel(...);
    break;
  end;

На самом деле, мне много чего не нравится
Но времени исправлять нет.
В качестве советов:
Вычислять цвет можно формулой, а не циклом: putpixel(...,round((z-min)/sector)); (или что-то близкое )
предварительно задав sector=1, если по каким-либо причинам он 0
Строить график не по абсолютным координатам, а по относительным, т.е. делать преобразование требуемых координат (xmin,...,ymax) в координаты поля вывода (у экрана, например, поле (10,10,470,630) ).
Производить расчет цвета пикселя для экранных координат (если делать "сжимаемый" график) - тогда нужно преобразовывать координаты экрана в координаты графика и считать
(достаточно сложные шаги)
Вынести формулу в отдельную функцию, примерно так:

function f(x,y:longint):longint;
begin
  f:=x+y;
end;

[cote]

нет вот так не пойдет

 z:=random(100)/(x+y)
else z:=random(100);

так как функция строго определена это:

 z:=(100)/(x+y)

пробовал так вычислять так цвет получяется либо тоже самое либо разноцветные полосо заполняющие всю область или по деагонали несколько цветных полос

[Rin]

 z:=100/(x+y)
else z:=100/0.00000000000000000000000000000000000000000001;