Split up files

Matlab/axial.m

@@ -0,0 +1,65 @@
+clear
+close all
+clc
+format compact
+
+% These calculations are based on Ashkin's article "Forces of a single-beam
+% gradient laser trap on a dielectric sphere in the ray optics regime".
+% There are axial forces only
+
+load_constants
+import factors.*
+
+% Factors plots
+
+theta = linspace(0, pi/2, 500);
+figure
+plot(theta, Qs(theta, pi/4), theta, -Qg(theta, pi/4), theta, Qmag(theta, pi/4))
+grid
+xlabel('$\theta$, $^{\circ}$', 'Interpreter', 'latex')
+ylabel('Q')
+
+% Intensity profile plots
+rho = linspace(-r_max, r_max, 500);
+figure
+plot(rho, I(rho)/max(I(rho)),'k')
+grid
+xlabel('r, м')
+ylabel('I(r)')
+
+% Integration
+G0 = 2/(A*pi^2*r_max^2*w0^2);
+Qres_g = @(z) G0 * integral2(@(beta,r) r.*I(r).*...
+    iscomplex(Qgz(r,z)),0,2*pi,0,r_max,...
+    'Method','iterated','AbsTol',1e-6,'RelTol',1e-6);
+
+Qres_s = @(z) G0 * integral2(@(beta,r) r.*I(r).*...
+    iscomplex(Qsz(r,z)),0,2*pi,0,r_max,...
+    'Method','iterated','AbsTol',1e-6,'RelTol',1e-6);
+
+% Calulation
+N = 200;
+z = linspace(-2*Rsp,2*Rsp,N);
+Axial_g = zeros(1,N);
+Axial_s = zeros(1,N);
+
+wb = waitbar(0, 'Calculating...');
+for ii = 1:N
+    Axial_g(ii) = Qres_g(z(ii));
+    Axial_s(ii) = Qres_s(z(ii));
+    waitbar(ii / N, wb, 'Calculating...');
+end
+close(wb);
+
+Axial_g = fliplr(Axial_g);
+Axial_s = fliplr(Axial_s);
+Axial = Axial_g + Axial_s;
+z = -fliplr(z);
+
+% Plots
+figure
+plot(z,F0*Axial_g,'b-.',z,F0*Axial_s,'r--',z,F0*Axial,'k')
+legend('F_{g}','F_{s}','F_{t}')
+xlabel('r, м')
+ylabel('F, Н')
+grid