#include<stdio.h>

/*Guarda tres arreglos con mismo numero de elementos (n) en un archivo[]*/
int escribe(int *p,int *q,int *r,int n,char archivo[])
{
FILE *fp;
int i;

if((fp=fopen(archivo,"w"))==NULL) return 0;
for(i=0;i<n;i++) 
	fprintf(fp,"%d	%d %d %d\n",i,*(p+i),*(q+i),*(r+i));
fclose(fp);
return 1;
}


/*Grafica el archivo creado por funcion escribe usando gnuplot*/
int grafica()
{
char *archivo[]={"insertion.diag","merge.diag","heap.diag"};
FILE *plot1;
int i;
int a[]={0,75,100};

/* Inicia Grafico*/
if((plot1 = popen("gnuplot", "w"))==NULL) return 0;
for(i=2;i<=4;i++)
{
fprintf(plot1,"set terminal x11\n");
fprintf(plot1,"set multiplot\n");
fprintf(plot1,"set size 1.0, 0.32\n");
fprintf(plot1,"set origin 0.0, 0.0\n");
fprintf(plot1,"plot '%s' using 1:%d title 'Insertion Sort' with points ps 0\n",archivo[0],i);
fprintf(plot1,"set origin 0.0, 0.32\n");
fprintf(plot1,"plot '%s' using 1:%d title 'Mergesort' with points ps 0\n",archivo[1],i);
fprintf(plot1,"set origin 0.0, 0.64\n");
fprintf(plot1,"set label 'Avance de algoritmos: %d por ciento' at screen 0.5,0.965 center\n",a[i-2]);
fprintf(plot1,"plot '%s' using 1:%d title 'Heapsort' with points ps 0\n",archivo[2],i);
fflush(plot1);
 getchar();
   /*fprintf(plot1,"pause 4\n ");*/
fprintf(plot1,"set nomultiplot\nreset\n");
}
fflush(plot1);
	
/*PararGrafica*/
pclose(plot1);
system("rm *.diag");
return 1;
 }