You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
50 lines
1.7 KiB
50 lines
1.7 KiB
%read CSV file
|
|
filename = 'C:\Users\Karthik\Documents\Git Repos\ULE Cavity Characterisitics\ReflectivityCurve_ULECavity.csv';
|
|
delimiter = ',';
|
|
startRow = 1;
|
|
formatSpec = '%f%f';
|
|
fileID = fopen(filename,'r');
|
|
dataset = textscan(fileID, formatSpec, 'Delimiter', delimiter, 'EmptyValue', NaN, 'ReturnOnError', false, 'EndOfLine', '\r\n');
|
|
fclose(fileID);
|
|
|
|
wavelengths = dataset{1};
|
|
reflectance = dataset{2};
|
|
|
|
figure(1);
|
|
clf;
|
|
|
|
xq = 549:1:1100;
|
|
vq1 = interp1(wavelengths(30:end),reflectance(30:end),xq);
|
|
plot(wavelengths,reflectance,'o',xq, vq1,':.');
|
|
%scatter(wavelengths, reflectance, 'LineWidth', 2)
|
|
|
|
R_626 = vq1(xq==626);
|
|
R_842 = vq1(xq==842);
|
|
F_626 = pi * sqrt(R_626) / (1 - R_626);
|
|
F_842 = pi * sqrt(R_842) / (1 - R_842);
|
|
hold on
|
|
plot(626, R_626, 'o', 'MarkerSize', 15, 'LineWidth', 3)
|
|
line([626 626], [0 2],'Color','red','LineStyle','--')
|
|
line([500 1100], [R_626 R_626],'Color','red','LineStyle','--')
|
|
text(630, R_626 - 0.1, sprintf('626, %.3f', R_626))
|
|
text(630, R_626 - 0.15, sprintf('F = %.3f', F_626))
|
|
%annotation('arrow', [0.293 0.293], [0.11 0.3]);
|
|
|
|
plot(842, R_842, 'o', 'MarkerSize', 15, 'LineWidth', 3)
|
|
line([842 842], [0 2],'Color','red','LineStyle','--')
|
|
line([500 1100], [R_842 R_842],'Color','red','LineStyle','--')
|
|
text(846, R_842 - 0.1, sprintf('842, %.3f', R_842))
|
|
text(846, R_842 - 0.15, sprintf('F = %.3f', F_842))
|
|
%annotation('arrow', [0.571 0.571], [0.11 0.2]);
|
|
|
|
hold off
|
|
|
|
|
|
hXLabel = xlabel('Wavelength (nm)');
|
|
hYLabel = ylabel('?? Mirror Reflectivity R(%) ??');
|
|
hTitle = sgtitle('??Reflectivity Curve of the ULE Cavity Mirrors??');
|
|
set([hXLabel, hYLabel] , ...
|
|
'FontSize' , 14 );
|
|
set( hTitle , ...
|
|
'FontSize' , 18 );
|
|
grid on
|