Полигон-2

В маткаде важен порядок на странице:

1 строка - задаёшь диапазон "иксов" х=1,2,....10 (не вспомню точно синтаксис, сверься со встроенной справкой)

2 строка - пишешь формулу-функцию, например y=2x+5

3 строка - задаёшь поле для графика, по одной оси ставишь "иксы", по другой F(x)
Нужный рЫсунок маткад соорудит сам.

PS. После можешь менять формулу произвольным образом (вручную), маткад будет перерисовывать график.

ДГРАФ (делограф), который родом из ВЦ АН СССР

Вот что у меня получилось.
График функции F = cos(2/x)-2*sin(1/x)+(1/x).

{Program Graphics ver 0.1 }
{Copyright WDFM 2014. E-Mail: wdfm888@gmail.com}
uses crt, windos, graph;
var GrDriver, GrMode:integer;
x0,y0:integer;
x,y,dx:real;
begin
write ('x=');
Readln (x);
ClearDevice;
GrDriver:=Detect;
InitGraph(0,0,'');
x0:=getmaxX div 2;
y0:=getmaxY div 2;
line(10,y0,630,y0);
outtextXY(625,y0+10,'X');
line(x0,0,x0,460);
outtextXY(x0+5,0,'Y');
outtextXY(x0+5,y0+10,'0');
line(x0-3,y0-100,x0+3,y0-100);
outtextXY(x0+5,y0-100,'5');
line(x0-50,y0-3,x0-50,y0+3);
outtextXY(x0-50,y0+10,'-2.5');
x:=-20;
dx:=0.001;
while x>=20 do
begin
y:=cos(2/x)-2*sin(1/x)+(1/x); {можно поменять на любую другую функцию}
putpixel(x0+round(x*20),round(y0-round(y*20)),12);
x:=x+dx;
end;
readln;
closegraph;
end.