char mens[6][124]={
"\nSuma seno con amplitud 1 frecuencia 1 mas seno con amplitud 1 frecuencia 2\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 basey, factory, angulo, amplitud, frecuen;
    int gd=DETECT,gm;
// inicio
    clrscr();
    printf("%s%s%s%s%s%s",mens[0],mens[1],mens[2],mens[3],mens[4],mens[5]);
    getch();
    initgraph(&gd,&gm,"");
    setrgbpalette(0, 63,63,63); setrgbpalette(1, 0, 0, 0); setcolor(1);

    factory=40; line(0,0,0,480);

// Proceso
    basey=45; line(0,basey,360,basey); angulo=0; moveto(0,basey);
    amplitud=1 ; frecuen=1;
    while( !kbhit() && (angulo++<360)) //grafica funciones seno
	lineto(angulo,basey-amplitud*sin(frecuen*angulo/57.29578)*factory);

    basey=135; line(0,basey,360,basey); angulo=0; moveto(0,basey);
    amplitud=1 ; frecuen=2;
    while( !kbhit() && (angulo++<360)) //grafica funciones seno
	lineto(angulo,basey-amplitud*sin(frecuen*angulo/57.29578)*factory);

/* Suma seno con amplitud 1 frecuencia 1 mas seno con amplitud 1 frecuencia 2*/
    basey=250; line(0,basey,360,basey); angulo=0; moveto(0,basey);
    while( !kbhit() && (angulo++<360)) //grafica funciones seno
       lineto(angulo,basey-(1*sin(1*angulo/57.29578)+1*sin(2*angulo/57.29578))*factory);

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