char mens[6][124]={
"\n Programa que  grafica la funcion seno con amplitud=2 y frecuencia=1\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);

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

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

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