mirror of
https://github.com/KevinMidboe/linguist.git
synced 2025-10-29 17:50:22 +00:00
c85255c5af
All of these code samples currently are mis-identified in my repositories. I'm donating them to the cause.
41 lines
1.2 KiB
Matlab
41 lines
1.2 KiB
Matlab
function [ x_T, y_T, vx_T, e_T, filter ] = Integrate_FILE( x_0, y_0, vx_0, e_0, T, N, mu, options)
|
|
%Integrate
|
|
% This function performs Runge-Kutta-Fehlberg integration for given
|
|
% initial conditions to compute FILE
|
|
nx=length(x_0);
|
|
ny=length(y_0);
|
|
nvx=length(vx_0);
|
|
ne=length(e_0);
|
|
vy_0=zeros(nx,ny,nvx,ne);
|
|
x_T=zeros(nx,ny,nvx,ne);
|
|
y_T=zeros(nx,ny,nvx,ne);
|
|
vx_T=zeros(nx,ny,nvx,ne);
|
|
vy_T=zeros(nx,ny,nvx,ne);
|
|
e_T=zeros(nx,ny,nvx,ne);
|
|
%% Look for phisically meaningful points
|
|
filter=zeros(nx,ny,nvx,ne); %0=meaningless point 1=meaningful point
|
|
|
|
%% Integrate only meaningful points
|
|
h=waitbar(0,'','Name','Integration in progress, please wait!');
|
|
for i=1:nx
|
|
waitbar(i/nx,h,sprintf('Computing i=%i',i));
|
|
for j=1:ny
|
|
parfor k=1:nvx
|
|
for l=1:ne
|
|
vy_0(i,j,k,l)=sqrt(2*Potential(x_0(i),y_0(j),mu)+2*e_0(l)-vx_0(k)^2);
|
|
if isreal(vy_0(i,j,k,l))
|
|
filter(i,j,k,l)=1;
|
|
ci=[x_0(i), y_0(j), vx_0(k), vy_0(i,j,k,l)];
|
|
[t,Y,te,ye,ie]=ode45(@f,[0 T], ci, options, mu);
|
|
x_T(i,j,k,l)=ye(N+1,1);
|
|
y_T(i,j,k,l)=ye(N+1,2);
|
|
vx_T(i,j,k,l)=ye(N+1,3);
|
|
vy_T(i,j,k,l)=ye(N+1,4);
|
|
e_T(i,j,k,l)=0.5*(vx_T(i,j,k,l)^2+vy_T(i,j,k,l)^2)-Potential(x_T(i,j,k,l),y_T(i,j,k,l),mu);
|
|
end
|
|
end
|
|
end
|
|
end
|
|
end
|
|
close(h);
|