char mens[6][124]={
"\ngrafica la funcion seno con amplitud=1, frecuencia=1 y con amplitud=1, frecuencia=5\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);

    basey=150; factory=50; line(0,basey,360,basey); line(0,0,0,basey*2);

// Proceso
    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);

    angulo=0; moveto(0,basey); amplitud=1 ; frecuen=5;
    while( !kbhit() && (angulo++<360)) //grafica funciones seno
	lineto(angulo,basey-amplitud*sin(frecuen*angulo/57.29578)*factory);
// Fin
//	printf("\n****************\n**oprime una tecla para terminar**\n");
    getch();
    closegraph();
}