/********************************************
UNIVERSIDAD DE LA CIUDAD DE MEXICO
YURI & ALUCARDO & KRLOS
********************************************/
//DECLARACION DE BIBLIOTECAS
#include<winbgim.h>
#include <windows.h>
#include<stdio.h>
#include<stdlib.h>
#include<conio.h>
#include<math.h>
//FUNCIONES
double seno(double);
double factorial(double);
double taylor(double);
/* INICIO PROGRAMA */
int main()
{
//DECLARACION DE VARIABLES
int O=90;
int P=80;
int Q=70;
int R=60;
Int S=50;
int valsen=0;
double valtay;
int M=0;
int N=0;
int x=12;
int y=8;
/*
initwindow(640,480);
int gdriver=DETECT,gmode;
initgraph(&gdriver,&gmode,"");
HANDLE hStdout = GetStdHandle(STD_OUTPUT_HANDLE);
SetConsoleTextAttribute(hStdout,BACKGROUND_BLUE | FOREGROUND_RED | FOREGROUND_INTENSITY);
*/
//VENTANA GRAFICA
initwindow(640,480);
system("cls");
//system("color f0");
//PLANO CARTESIANO
outtextxy(getmaxx()-10,getmaxy()/2+10,"X");
outtextxy(getmaxx()/2+10,getmaxy()-10,"Y");
setcolor(;
line(0,getmaxy()/2,getmaxx(),getmaxy()/2);
line(getmaxx()/2,0,getmaxx()/2,getmaxy());
for(M=320;M<=640;M++)
{
line(x,getmaxy()/2+5,x,getmaxy()/2-5);
x=x+12;
}
for(N=0;N<=480;N++)
{
line(getmaxx()/2+5,y,getmaxx()/2-5,y);
y=y+12;
}
for(valsen=0;valsen<=700;valsen+=1)
{
putpixel(valsen-40,getmaxy()/2-seno(valsen),9);
printf("%f\n",seno(valsen));
}
for(valsen=0,valtay=-2;valsen<=7600;valsen+=5,valtay+=0.01)
{
putpixel(valtay*40+70,getmaxy()/2-taylor(valtay)*100,7);
printf("%f,%f\n",taylor(valtay)*100,valtay);
}
system("PAUSE");
closegraph();
}
/* FIN PROGRAMA */
double seno (double valsen)
{
return sin(valsen/180*3.1416)*100;
}
double factorial(double inicial)
{
double A=1;
if(inicial>1)
{
A=inicial*factorial(inicial-1);
return A;
}
else
{
return A;
}
}
double taylor(double var)
{
double A=0;
int B=1;
int C=1;
int M=1;
for(M=1;M<=15;M++)
{
if(M%2==0)
{
B=-1;
}
else
{
B=1;
}
A=A+(B)*(pow(var,C)/factorial(C));
C+=2;
}
return A;
}
UNIVERSIDAD DE LA CIUDAD DE MEXICO
YURI & ALUCARDO & KRLOS
********************************************/
//DECLARACION DE BIBLIOTECAS
#include<winbgim.h>
#include <windows.h>
#include<stdio.h>
#include<stdlib.h>
#include<conio.h>
#include<math.h>
//FUNCIONES
double seno(double);
double factorial(double);
double taylor(double);
/* INICIO PROGRAMA */
int main()
{
//DECLARACION DE VARIABLES
int O=90;
int P=80;
int Q=70;
int R=60;
Int S=50;
int valsen=0;
double valtay;
int M=0;
int N=0;
int x=12;
int y=8;
/*
initwindow(640,480);
int gdriver=DETECT,gmode;
initgraph(&gdriver,&gmode,"");
HANDLE hStdout = GetStdHandle(STD_OUTPUT_HANDLE);
SetConsoleTextAttribute(hStdout,BACKGROUND_BLUE | FOREGROUND_RED | FOREGROUND_INTENSITY);
*/
//VENTANA GRAFICA
initwindow(640,480);
system("cls");
//system("color f0");
//PLANO CARTESIANO
outtextxy(getmaxx()-10,getmaxy()/2+10,"X");
outtextxy(getmaxx()/2+10,getmaxy()-10,"Y");
setcolor(;
line(0,getmaxy()/2,getmaxx(),getmaxy()/2);
line(getmaxx()/2,0,getmaxx()/2,getmaxy());
for(M=320;M<=640;M++)
{
line(x,getmaxy()/2+5,x,getmaxy()/2-5);
x=x+12;
}
for(N=0;N<=480;N++)
{
line(getmaxx()/2+5,y,getmaxx()/2-5,y);
y=y+12;
}
for(valsen=0;valsen<=700;valsen+=1)
{
putpixel(valsen-40,getmaxy()/2-seno(valsen),9);
printf("%f\n",seno(valsen));
}
for(valsen=0,valtay=-2;valsen<=7600;valsen+=5,valtay+=0.01)
{
putpixel(valtay*40+70,getmaxy()/2-taylor(valtay)*100,7);
printf("%f,%f\n",taylor(valtay)*100,valtay);
}
system("PAUSE");
closegraph();
}
/* FIN PROGRAMA */
double seno (double valsen)
{
return sin(valsen/180*3.1416)*100;
}
double factorial(double inicial)
{
double A=1;
if(inicial>1)
{
A=inicial*factorial(inicial-1);
return A;
}
else
{
return A;
}
}
double taylor(double var)
{
double A=0;
int B=1;
int C=1;
int M=1;
for(M=1;M<=15;M++)
{
if(M%2==0)
{
B=-1;
}
else
{
B=1;
}
A=A+(B)*(pow(var,C)/factorial(C));
C+=2;
}
return A;
}