char mens[7][124]={
"\n Programa que  grafica la funcion seno con amplitud=1, frecuencia=1\n",
"   y desplazamiento de fase de 45 grados o phi/4 radianes\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 basex, basey, factory, angulo, amplitud, frecuen, fase;
    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);

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

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

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