char mens[7][124]={
"\n Programa que  grafica la funcion seno con amplitud=1, frecuencia=1\n",
"   con 1 periodo, y con 3 periodos\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",
" 11 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, periodos,t;
    float 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=50; factorx=0.5; line(0,0,0,480);

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

    basey=150; moveto(0,basey);
    amplitud=1 ; frecuen=1; periodos=3; line(0,basey,360*factorx*periodos,basey);
    for (t=0;t<periodos;t++)
       for (angulo=0; !kbhit() && (angulo<360);angulo++)
	  lineto((360*t+angulo)*factorx,basey-amplitud*sin(2*3.1416*t+angulo/57.29578)*factory); //grafica de lineas

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