График функции

[Леха]

zetrix
Не совсем понял что имелось в виду,если это

const n=100;
var
x,y : real;
i,j,k : integer;
z : array [1..n,1..n] of extended;
begin
x := 0; y := 0;
for i := 1 to n do begin
for j := 1 to n do begin
z[i,j] := Int(exp(sqr(x)+sqr(y))+2*x-3.5*y);
y := y+10/n;
end;
x := x+10/n;
end;
x := 0; y := 0;
for i:=0 to n do begin
for j:=0 to n do begin
if z[i,j]=exp(sqr(x)+sqr(y))+2*x-3.5*y then pbGraf.Canvas.Pixels[i,j];
y := y+10/n;
end;
x := x+10/n;
end;
end;
то появляется ошибка 'floating point overflow'(народ скиньте кто-нибудб русский help плиз)

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

2) движемся от нее в сторону - возможно 8 вариантов берем самый подходящий (тут все равно округление)

эээ...и как это реализовать?пока получилось вот что,тока тоже появляется ошибка 'floating point overflow'
const n=100;
a=10;//граница по x
b=10;//граница по y
var i,j,h:integer;{значение z}
x,y:real;
z:array[1..n,1..n] of real;
begin
x:=0;y:=0;h:=5;
for i:=1 to n do begin
for j:=1 to n do begin
if exp(sqr(x)+sqr(y))+2*x-3.5*y=h then image1.Canvas.pixels[i,j];
y:=y+b/n;
end;
x:=x+a/n;
end;
end;

ЗЫ:сорри отступы почемуто не отображаются

[zetrix]

for i := 1 to n do begin
for j := 1 to n do begin
z[i,j] := Int(exp(sqr(x)+sqr(y))+2*x-3.5*y);
y := y+10/n;
end;
x := x+10/n;
end;
x := 0; y := 0;
for i:=0 to n do begin
for j:=0 to n do begin
if z[i,j]=exp(sqr(x)+sqr(y))+2*x-3.5*y then pbGraf.Canvas.Pixels[i,j];
y := y+10/n;
end;
x := x+10/n;
end;

Это что такое? масло масленное? Забиваем массив.. а потом сравниваем с этими значениями, что и загнали.. Услови IF будет всегда выполнятся... Ты же говорил, что Z - const! Только я в упор не вижу, где она постоянная.

[Леха]

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

Это что такое? масло масленное?

Вот и я думаю ахинея какая-то ,все башка совсем не варит
полный завал
но это то вроде лучше

Сообщение от Леха

const n=100;
a=10;//граница по x
b=10;//граница по y
var i,j,h:integer;{значение z}
x,y:real;
z:array[1..n,1..n] of real;
begin
x:=0;y:=0;h:=5;
for i:=1 to n do begin
for j:=1 to n do begin
if exp(sqr(x)+sqr(y))+2*x-3.5*y=h then image1.Canvas.pixels[i,j];
y:=y+b/n;
end;
x:=x+a/n;
end;
end;

[Virtson]

завтра разберемся..

[zetrix]

О, так должно работать, только массив z - не нужен получается.

[Леха]

Должон но не работает появляется ошибка 'floating point overflow'
Что делать???

[zetrix]

Пробовал строить через Maple - 'floating point overflow' ошибка. Потом изменил интервал x и y, всё ок!
См. график (в Maple) :

[Леха]

zetrix
сделал интервал
a:=1;b:=1;
ошибка исчезла, но теперь совсем ничего не выводит,если сделать больше то опять ошибка
попробуй в дельфи

ЗЫ:не знаешь в маткаде можно такой график сделать, а потом как нибудь в дельфи его перенести?

[zetrix]

если честно, я начинаю сомневаться в идеи...