esex3

esempio di grafica con turbo pascal 7

program linea;
uses crt,graph;
var a,c,x,y:integer;

procedure grafica;
var sc,tp:integer;
    drive:string;
begin
 sc:=0;
 tp:=0;
 drive:='c:/tp/bgi';
 initgraph(sc,tp,drive);
end;

procedure curva1(x,y,raggio,passo,colore:integer);
var rad:real;
    seno,coseno,a,angolo:integer;
begin
angolo:=0;
setcolor(colore);
for a:=1 to 720 do
begin
rad:=angolo*3.14/180;    (* trasforma gradi in radianti *)
seno:=round(raggio*sin(rad));
coseno:=round(raggio*cos(rad));
putpixel(a,y+seno,colore);
putpixel(a,y+coseno,colore+1);
angolo:=angolo+passo;
end;
end;
begin
clrscr;
grafica;
curva1(10,100,50,1,1) ; (* prima chiamata , plot *)
readln;
curva1(10,300,100,1,2); (* seconda chiamata, replot *)
readln;
closegraph;
end.

con gnuplot

plot sin(x) w lines 2,cos(x) with lines 3

pause -1

replot 2*sin(x) w lines 3,2*cos(x) w lines 4

pause -1

variante più simile al pascal

# rad:=angolo*3.14/180; (* trasforma gradi in radianti *)
set xrange[-2*pi:2*pi]
set angles radians
colore=2
raggio=1
seno(x)=raggio*sin(x)
coseno(x)=raggio*cos(x)
plot seno(x) w lines colore,coseno(x) w lines colore+1
pause -1
colore=3
raggio=2
replot raggio*seno(x) w lines colore,raggio*coseno(x) w lines colore+1
pause -1