char mens[7][124]={
"\nPrograma que  grafica los expectros de frecuencia de amplitud y fase de la se¤al\n",
"f(t)=3coseno(5 t-p/2)+6coseno(7 t+p)+4coseno(10 t-p/3)+5coseno(14 t+p/3)\n\n",
" Se autoriza la distribucion y uso libre de este programa (freeware)\n",
" Fernando Galindo Soria     Cd. de Mexico\n",
" fgalindo@ipn.mx     www.fgalindosoria.com   www.laredi.com\n\n",
" 7 de Agosto de 2004\n\n",
" oprime una tecla para continuar"};

# include <stdio.h>
#include <conio.h>
#include <dos.h>
#include <graphics.h>
#include <math.h>
#include <stdlib.h>

void main(void)
{
    int i, frecu[]={5, 7, 10, 14}, amplit[]={3, 6, 4, 5};
    float fase[]={-3.1416/2, 3.1416, -3.1416/3, 3.1416/3};
    int basey, factory, factorx;
    int gd=DETECT,gm;
// inicio
    clrscr();
    printf("%s%s%s%s%s%s%s",mens[0],mens[1],mens[2],mens[3],mens[4],mens[5],mens[6]);
    getch();
    initgraph(&gd,&gm,"");
    setrgbpalette(0, 63,63,63); setrgbpalette(1, 0, 0, 0); setcolor(1);

    factory=15; factorx=15;  line(0,0,0,480);

// Proceso
    basey=150; line(0,basey,360,basey);
    for(i=0; !kbhit() && (i<4); i++)
	line(frecu[i]*factorx,basey,frecu[i]*factorx,basey-amplit[i]*factory); //grafica de lineas

    basey=300; line(0,basey,360,basey);
    for(i=0; !kbhit() && (i<4); i++)
	line(frecu[i]*factorx,basey,frecu[i]*factorx,basey-fase[i]*factory); //grafica de lineas

// Fin
//	printf("\n****************\n**oprime una tecla para terminar**\n");
    getch();
    closegraph();
}