Технический форум - Turbo Pascal, построение графика нелинейного уравнения

Технический форум (http://www.tehnari.ru/)

- Помощь студентам (http://www.tehnari.ru/f41/)

Turbo Pascal, построение графика нелинейного уравнения

Помогите пожалуйста написать программу которая строит график заданного нелинейного уравнения :2^x=sin(x+Pi/6) или в запись в Pascal (exp(ln(2)*x)-sin(x+Pi/6)).
:tehnari_ru_837:
График должен выглядеть так.

Уже программа есть, работает в принципе правильно, но выдает ошибку, помогите исправить, чтобы ошибку не выдавало.

Код:

Program Grafik;

uses crt, graph;

const

s=0.001;

xs=30;

ys=-30;

var

j, X0, Y0, x, y, a, b:integer;

i:real;

st:string;



function f1(x:real):real;

begin

f1:=sin(x+Pi/6);

end;



function f2(x:real):real;

begin

f2:=exp(ln(2)*x);

end;



procedure labels;

begin

setcolor(white);

settextstyle(1,0,1);

outtextxy(x0-30,3,'y');

outtextxy(x0+290,y0-35,'x');

line(x0,1,x0,getmaxy);

line(1, y0,getmaxx,y0);

settextstyle(2,0,2);

for j:=-10 to 10 do

begin

setcolor(15);

line(x0+xs*j,y0-7,x0+xs*j,y0+7);

line(x0-7,y0+ys*j,x0+7,y0+ys*j);

setcolor(green);

str(j,st);

outtextxy(x0+xs*j-10,y0+7,st);

if j<>0 then

outtextxy(x0+10,y0+ys*j-10,st);

end;

end;



procedure drawgrafik1;

begin

i:=-10;

settextstyle(1,0,4);

repeat

i:=i+s;

x:=round(x0+i*xs);

y:=y0+round(f1(i)*ys);

putpixel(x,y,14);

until i>25;

begin

settextstyle(1,0,1);

setcolor(14);

outtextxy(x0+300,y0+50,'y1=cos2x');

end;

end;



procedure drawgrafik2;

begin

i:=-10;

repeat

i:=i+s;

x:=round(x0+i*xs);

y:=y0+round(f2(i)*ys);

putpixel(x,y,13);

until i>25;

begin

settextstyle(1,0,1);

setcolor(13);

outtextxy(x0+170,y0-200,'y2=lg(x+2)');

end;

end;



BEGIN

clrscr;

a:=detect;

initgraph(a,b,'');

line(682,0,690,10);

line(682,0,674,10);

line(1362,353,1357,363);

line(1362,353,1357,345);

x0:=round(getmaxx/2);

y0:=round(getmaxy/2);

labels;

drawgrafik1;

drawgrafik2;

readln;

closegraph;

END.

Цитата:

Сообщение от Sandra 2000 (Сообщение 901404)

К сожалению, помочь не смогу: у меня графика работает в DOS VGA моде, т.е. с экраном 640х480 пикселей, у Вас же в явной форме заданы параметры экрана с большим разрешением. Единственно, установил, что сбой происходит при рисовании графика второй (показательной) функции. Вот если бы все параметры экрана задавались через доли GetMaxX и GetMaxY, было бы другое дело. А то у Вас где-то так, где-то этак. Увы...

Выдает ошибку 201.Ошибка проверки диапазона.

Цитата:

Сообщение от Sandra 2000 (Сообщение 901797)

Выдает ошибку 201.Ошибка проверки диапазона.

Ладно, получите:

Код:

uses

 crt, graph;

const

 s=0.001;

 xs=30;

 ys=-30;

var

 j, X0, Y0, x, y, a, b:integer;

 i:real;

 st:string;



function f1(x:real):real;

begin

 f1:=sin(x+Pi/6);

end;



function f2(x:real):real;

begin

 f2:=exp(ln(2)*x);

end;



procedure labels;

begin

 setcolor(white);

 settextstyle(1,0,1);

 outtextxy(x0-30,3,'y');

 outtextxy(x0+290,y0-35,'x');

 line(x0,1,x0,getmaxy);

 line(1, y0,getmaxx,y0);

 settextstyle(2,0,2);

 for j:=-10 to 10 do

  begin

   setcolor(15);

   line(x0+xs*j,y0-7,x0+xs*j,y0+7);

   line(x0-7,y0+ys*j,x0+7,y0+ys*j);

   setcolor(green);

   str(j,st);

   outtextxy(x0+xs*j-10,y0+7,st);

   if j<>0 then outtextxy(x0+10,y0+ys*j-10,st);

  end;

end;



procedure drawgrafik1;

begin

 i:=-10;

 settextstyle(1,0,4);

 repeat

  i:=i+s;

  x:=round(x0+i*xs);

  y:=y0+round(f1(i)*ys);

  putpixel(x,y,14);

 until i>25;

 settextstyle(1,0,1);

 setcolor(14);

 SetTextJustify(RightText,CenterText);

 outtextxy(2*x0,y0+50,'y1=Sin(x+Pi/6)');

end;



procedure drawgrafik2;

var Xmax:Word;

begin

 i:=-10;

 repeat

  i:=i+s;

  x:=round(x0+i*xs);

  y:=y0+round(f2(i)*ys);

  putpixel(x,y,13);

  Xmax:=x;

 until i>3;

 settextstyle(1,0,1);

 setcolor(13);

 SetTextJustify(LeftText,CenterText);

 outtextxy(Xmax+20,40,'y2=Exp(x*Ln(2))');

end;



BEGIN

 a:=detect;

 initgraph(a,b,'');

 x0:=GetMaxX div 2;

 y0:=GetMaxY div 2;

 line(x0,0,x0+8,10);

 line(x0,0,x0-8,10);

 line(2*x0,y0,2*x0-5,y0+10);

 line(2*x0,y0,2*x0-5,y0-10);

 labels;

 drawgrafik1;

 drawgrafik2;

 ReadKey;

 closegraph;

END.

Основная ошибка в том, что при построении графика функции f2 (процедура drawgrafik2) был задан слишком большой предел (25), вследствие чего транслятор вылетал за границы разрядной сетки. Вполне достаточно оказалось значения 3 (выделено красным).
Кроме того, исправлены еще некоторые мелочи: графические выводы теперь годятся для любого экранного разрешения, исправлен вид формул выводимых функций (те, что прописаны в программе, явно не отсюда) и параметры вывода формул, убрана абсолютно ненужная команда очистки текстового экрана ClrScr: при включении (InitGraph) графического экрана он автоматически очищается; а чтобы очистить его в процессе работы принудительно, следует использовать команду ClearDevice, ну и т.п.