KevinMidboe/linguist
1
0
Fork 0
mirror of https://github.com/KevinMidboe/linguist.git synced 2025-10-29 17:50:22 +00:00
Code Issues Packages Projects Releases Wiki Activity

Added matlab code samples.

Browse Source 
All of these code samples currently are mis-identified in my repositories. I'm
donating them to the cause.
This commit is contained in:
Michele Mastropietro
2013-02-22 10:57:51 +01:00
parent b45c4f5379
commit c85255c5af
14 changed files with 803 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

40
samples/Matlab/Integrate1.m Normal file
View File

@@ -0,0 +1,40 @@
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);