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 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49
|
function geodesiques2
format long;
R0=1;
H0=65000;
cv=3*10^(8);
ctk=(2*cv)/(3*H0);
w1=ctk;
x1=3000;
y1=pi/2;
z1=pi/2;
xp=-1;
yp=0.001; % d(theta)/ds différent de 0
zp=0;
wp=sqrt((R0*R0*(3*H0)/(2*cv)*w1)^(4/3)*(xp^(2)+x1^(2)*yp^(2)+x1^(2)*(sin(y1))^(2)*zp^(2)));
options=ddeset('AbsTol',1e-15,'RelTol',1e-13);
[s ys]=ode15s(@syseq,1:10000, [ w1;wp;x1;xp;y1;yp;z1;zp],options);
figure(1);
plot(ys(:,1),ys(:,3),'b');
figure(2);
plot(ys(:,1),ys(:,5),'r');
function dydt = syseq(s,y)
R0=1;
H0=65000;
cv=3*10^(8);
dydt=zeros(8,1);
dydt=[ y(2) ;
-((2/3)*R0^(2)*(3*H0/(2*cv))^(4/3)*y(1)^(/3))*y(4)^(2)+y(3)^(2)*y(6)^(2)+y(3)^(2)*(sin(y(5)))^(2)*y(8)^(2) ;
y(4) ;
-(4/(3*y(1)))*y(2)*y(4)+y(3)*y(6)^(2)-(sin(y(5)))^(2)*y(8)^(2);
y(6) ;
-(2/y(3))*y(4)*y(6)-(4/(3*y(1)))*y(2)*y(6)+(sin(2*y(5)))*(y(8)^(2)/2);
y(8) ;
-2*y(8)*((2/(3*y(1)))*y(2)+(1/tan(y(5)))*y(6)+(1/y(3))*y(4)) ];
end
end |
Partager