elhacker.net cabecera Bienvenido(a), Visitante. Por favor Ingresar o Registrarse
¿Perdiste tu email de activación?.

 

 


Tema destacado: Sigue las noticias más importantes de seguridad informática en el Twitter! de elhacker.NET


+  Foro de elhacker.net
|-+  Programación
| |-+  Programación C/C++ (Moderadores: Eternal Idol, Littlehorse, K-YreX)
| | |-+  PROBLEMA DE LOS DOS CUERPOS
0 Usuarios y 1 Visitante están viendo este tema.
Páginas: 1 [2] Ir Abajo Respuesta Imprimir
Autor Tema: PROBLEMA DE LOS DOS CUERPOS  (Leído 4,351 veces)
cypascal

Desconectado Desconectado

Mensajes: 42


Ver Perfil WWW
Re: PROBLEMA DE LOS DOS CUERPOS
« Respuesta #10 en: 28 Noviembre 2012, 23:11 pm »

Les dejo en el siguiente enlace el programa:
http://cypascal.blogspot.com.es/2012/11/orbita-de-la-tierra-entorno-al-sol.html

y aqui mismo:
Código:
#include <stdio.h>
#include <math.h>


const int L=31536000;/*SEGS. EN UN AÑO*/
const double dt=1;/*DT ES UN SEG.*/
const double m1=5.97e24, m2=1.99e30, G= 6.674e-11;

int i;
double F,coseno,seno,d;

struct estado{
double X;
double Y;
double Vx;
double Vy;
double Ax;
double Ay;
}Solido1[L];

//Situacion inicial;


int main()
{
Solido1[0].X=1.5e11;
Solido1[0].Y=0;
Solido1[0].Vx=0;
Solido1[0].Vy=2.98e4;

d=sqrt(pow(Solido1[0].X,2)+pow(Solido1[0].X,2));
F=(G*m1*m2)/(pow(d,2));

Solido1[0].Ax=-F/m1;
Solido1[0].Ay=0;

printf("\n\n     ORBITA DE LA TIERRA EN TORNO AL SOL\n\n\n");

for (i=1;i<=L;i++)
{
Solido1[i].X=Solido1[i-1].X+Solido1[i-1].Vx*dt;
Solido1[i].Y=Solido1[i-1].Y+Solido1[i-1].Vy*dt;

d=sqrt(pow(Solido1[i].X,2)+pow(Solido1[i].Y,2));
coseno=Solido1[i].X/d;
seno=Solido1[i].Y/d;

Solido1[i].Vx=Solido1[i-1].Vx+Solido1[i-1].Ax*dt;
Solido1[i].Vy=Solido1[i-1].Vy+Solido1[i-1].Ay*dt;

F=(G*m1*m2)/(pow(d,2));
Solido1[i].Ax=-F*coseno/m1;
Solido1[i].Ay=-F*seno/m1;

if ((i%86400)==1){/*PARA NO IMPRIMIR DEMASIDADOS DATOS*/
printf(" DIA %4d)  X=%10.4f MKm",i/86400,Solido1[i].X/1000000000);
printf("   Y=%10.4f MKm",Solido1[i].Y/1000000000);
printf("   d=%10.4f MKm\n",d/1000000000);
}
}

printf("\n\n MKm significa MegaKilometro o Millones de kilometros.");
return 0;
}


Un Saludo!


En línea

Problemas interesantes de programación en C/C++ y Pascal en:
BLOG C/C++


WWW.CYPASCAL.BLOGSPOT.COM.ES
saraou

Desconectado Desconectado

Mensajes: 6


Ver Perfil
Re: PROBLEMA DE LOS DOS CUERPOS
« Respuesta #11 en: 15 Diciembre 2012, 14:46 pm »

Muchisimas gracias! ahora ya puedo avanzar con el trabajo.
Un saludo! :)


En línea

Páginas: 1 [2] Ir Arriba Respuesta Imprimir 

Ir a:  

Mensajes similares
Asunto Iniciado por Respuestas Vistas Último mensaje
Problema BlueZScanner y problema de conexión
Hacking Mobile
Kasswed 3 6,327 Último mensaje 6 Mayo 2006, 22:04 pm
por Gospel
La Gran Cita: cómo aplicar la teoría de los n-cuerpos a los n-datos
Noticias
wolfbcn 0 1,450 Último mensaje 30 Abril 2013, 17:45 pm
por wolfbcn
WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines