Insertar figuras - Sistema solar
Publicado por Deyner (28 intervenciones) el 13/11/2016 04:50:15
Buenas estimados amigos
Estuve haciendo un programa para graficar en un plano inclinado trayectorias (elipses) y adicionar esferas de colores, todo esto para asemejar al sistema solar, bueno mi pregunta es si alguno sabe como colocarle apariencia más realistas como la imagen adjunta (pertenecen a este video por si alguien quiere verlo).
Y por si a alguien le sirva les dejo mi programa (el estático).
Estuve haciendo un programa para graficar en un plano inclinado trayectorias (elipses) y adicionar esferas de colores, todo esto para asemejar al sistema solar, bueno mi pregunta es si alguno sabe como colocarle apariencia más realistas como la imagen adjunta (pertenecen a este video por si alguien quiere verlo).
Y por si a alguien le sirva les dejo mi programa (el estático).
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
%Programa para dibujar elipses en un plano inclinado (giro respecto al eje x)
ang0=60;
ang=ang0*pi/180;
%Valores de parámetros
a=4:0.5:7.5;
b=2:0.5:5.5;
%Parametrización
t=0:pi/50:2*pi;
lo=length(t);
%Graficar los planetas
figure(1)
color='mcrgbwmc';
tam=[100 300 400 200 800 700 600 500];
title('Gráfica de representación del sistema solar');
scatter3(0,0,0,1500,'yellow','filled');
%Bloque para cambiar las curvas para cada elipse
for i=1:8
x=a(i)*cos(t);
y=b(i)*sin(t)*cos(ang);
z=-b(i)*sin(t)*sin(ang);
x0=x(randi(lo));
y0=(-1)^(randi(2))*b(i)*cos(ang)*sqrt(1-x0^2/a(i)^2);
z0=-y0*tan(ang);
hold on;plot3(x,y,z,color(i));
hold on;scatter3(x0,y0,z0,tam(i),color(i),'filled');
end
xlabel('X');ylabel('Y');zlabel('Z');grid on;whitebg('black');
- planetas.rar(65,5 KB)
Valora esta pregunta
0