Red de conocimiento informático - Computadora portátil - Programación en lenguaje C para dibujar curvas, puedes aprender a hacerlo

Programación en lenguaje C para dibujar curvas, puedes aprender a hacerlo

Depuración aprobada bajo TC

/********************************* *** *************************

*Autor: Wacs5

*Fecha: 20090105( AAAA-MM -DD)

*Función: Dibujar un gráfico de curva simple****************************** ******* *************************/

#include lt;stdio.hgt;

#include lt;conio.hgt;

#include lt;stdlib.hgt;

#include lt;math.hgt;

#include lt;Graphics.hgt ;

#define n 8

int main()

{

int i, j;

datos flotantes[]={7, 3, 12, 6, 9, 5, 8, 11}

char str[40]; int gdrive=DETECT, gmode, código de error

int maxx, maxy

int perx,

int x0, x1, y0, y1; /p>

int coloraxis=2, colorline=3;

float mindata, maxdata, ndata;

initgraph(amp;gdrive,amp;gmode,""); /*Inicializar dispositivo*/

if ((errorcode=graphresult())!=grOk) /*Error al comprobar*/

{

printf(" Error de gráficos: s\nPresione cualquier tecla para salir: ", grapherrormsg(código de error));

getch();

exit(1);

}

maxx=getmaxx();

maxy=getmaxy();

mindata=maxdata=data[0];

para (i=1; ilt; n; i )

{

if (mindatagt; datos[i])

mindata=datos[i];

if (maxdatalt; datos[i])

maxdata=datos[i];

}

mindata=floor(mindata) ;

maxdata=ceil(maxdata);

perx=maxx/(n 4);

pery=maxy/(maxdata-mindata 4);

x0 =2*perx;

y0=maxy-2*p

ery;

x1=maxx-2*perx;

y1=2*pery;

setcolor(coloraxis);

línea (x0, y0, x1, y0);

línea(x0, y0, x0, y1)

línea(x1, y0, x1-4, y0 3); /p>

línea(x1, y0, x1-4, y0-3);

línea(x0, y1, x0 3, y1 4); x0, y1, x0-3, y1 4);

settextjustify(CENTER_TEXT, TOP_TEXT

for (i=0; ilt; n; i =n/3)

{

j=x0 i*perx;

line(j, y0, j, y0 2);

sprintf(cadena, "d", i);

outtextxy(j, y0 4, cadena

}

settextjustify(RIGHT_TEXT, CENTER_TEXT);

for (i=(maxdata-mindata)/3; ilt;=maxdata-mindata; i =(maxdata-mindata)/3)

{

j=y0-i*pery;

line(x0,j,x0-2,j); /*marca de verificación*/

sprintf(str," d", (int)mindata i);

outtextxy(x0-4, j, str);

}

setcolor(colorline);

p>

x1=x0 perx;

y1=y0-(datos[0]-mindata)*pery;

círculo(x1, y1, 2);

p>

moveto(x1, y1);

i=1

hacer

{

x1 =perx;

y1=y0-(datos[i]-mindata)*pery;

lineto(x1, y1);

círculo(x1, y1, 2 );

mover a(x1, y1

i

}mientras(ilt; n);

getch() ;

closegraph();

devuelve 0;

}