13 lines
599 B
Mathematica
13 lines
599 B
Mathematica
Rsp = 1.0e-6; % sphere radius [m]
|
|
n1 = 1.33; % index of refraction of the immersion medium
|
|
n2 = 1.6; % index of refraction of the fused silica at wavelength 523 nm
|
|
n = n2/n1; % relative refraction index
|
|
c0 = 3e8; % speed of light [m/s]
|
|
NA = 1.25; % numerical apertur e
|
|
f = 100.0e-3; % objective lens focus or WD [m]
|
|
P = 20.0e-3; % power of the laser [W]
|
|
F0 = n1*P/c0; % resulting force [N]
|
|
th_max = asin(NA/n1); % maximum incidence angle
|
|
r_max = f * tan(th_max); % radius of a Gaussian beam (1:1 with input aperture condition)
|
|
aperture = 1.0;
|
|
w0 = aperture * r_max; % Gaussian beam waist radius [m] |