
clear all
%read data from excel spreadshit

[NUMERIC_412LED_FIL,TXT]=xlsread('BB9-132 LEDs and Filters.xls','406NMLED');
WL_412=NUMERIC_412LED_FIL(:,1);
LED_412=NUMERIC_412LED_FIL(:,3);
FIL_412=NUMERIC_412LED_FIL(:,7);

LED_412=LED_412/max(LED_412);
FIL_412=FIL_412/max(FIL_412);

[NUMERIC_440LED_FIL,TXT]=xlsread('BB9-132 LEDs and Filters.xls','440nmLED');
WL_440=NUMERIC_440LED_FIL(:,1);
LED_440=NUMERIC_440LED_FIL(:,2);
FIL_440=NUMERIC_440LED_FIL(:,3);
FIL_440=FIL_440/max(FIL_440);

LED_440=LED_440/max(LED_440);
[NUMERIC_488LED_FIL,TXT]=xlsread('BB9-132 LEDs and Filters.xls','488DF40');
WL_488=NUMERIC_488LED_FIL(:,1);
LED_488=NUMERIC_488LED_FIL(:,2);
FIL_488=NUMERIC_488LED_FIL(:,3);
FIL_488=FIL_488/max(FIL_488);

LED_488=LED_488/max(LED_488);
[NUMERIC_510LED_FIL,TXT]=xlsread('BB9-132 LEDs and Filters.xls','509NMLED');
WL_510=NUMERIC_510LED_FIL(:,1);
LED_510=NUMERIC_510LED_FIL(:,3);
FIL_510=NUMERIC_510LED_FIL(:,4);
LED_510=LED_510/max(LED_510);
FIL_510=FIL_510/max(FIL_510);

[NUMERIC_532LED_FIL,TXT]=xlsread('BB9-132 LEDs and Filters.xls','532NMLED');
WL_532=NUMERIC_532LED_FIL(:,1);
LED_532=NUMERIC_532LED_FIL(:,2);
FIL_532=NUMERIC_532LED_FIL(:,3);
LED_532=LED_532/max(LED_532);
FIL_532=FIL_532/max(FIL_532);
[NUMERIC_593LED_FIL,TXT]=xlsread('BB9-132 LEDs and Filters.xls','593nmLED,filter');
WL_593=NUMERIC_593LED_FIL(:,1);
LED_593=NUMERIC_593LED_FIL(:,3);
FIL_593=NUMERIC_593LED_FIL(:,5);
LED_593=LED_593/max(LED_593);
FIL_593=FIL_593/max(FIL_593);
[NUMERIC_650LED_FIL,TXT]=xlsread('BB9-132 LEDs and Filters.xls','660led,650DF20');
WL_650=NUMERIC_650LED_FIL(:,1);
LED_650=NUMERIC_650LED_FIL(:,2);
FIL_650=NUMERIC_650LED_FIL(:,3);
LED_650=LED_650/max(LED_650);
FIL_650=FIL_650/max(FIL_650);
[NUMERIC_676LED_FIL,TXT]=xlsread('BB9-132 LEDs and Filters.xls','680nmLED,d695 70');
WL_676=NUMERIC_676LED_FIL(:,1);
LED_676=NUMERIC_676LED_FIL(:,2);
FIL_676=NUMERIC_676LED_FIL(:,3);
LED_676=LED_676/max(LED_676);
FIL_676=FIL_676/max(FIL_676);
[NUMERIC_715LED_FIL,TXT]=xlsread('BB9-132 LEDs and Filters.xls','715DF20');
WL_715=NUMERIC_715LED_FIL(:,1);
LED_715=NUMERIC_715LED_FIL(:,3);
FIL_715=NUMERIC_715LED_FIL(:,5);
LED_715=LED_715/max(LED_715);
FIL_715=FIL_715/max(FIL_715);


wl=[WL_412,WL_440,WL_488,WL_510,WL_532,WL_593,WL_650,WL_676,WL_715]';
es_all=[LED_412,LED_440,LED_488,LED_510,LED_532,LED_593,LED_650,LED_676,LED_715]';
fl_all=[FIL_412,FIL_440,FIL_488,FIL_510,FIL_532,FIL_593,FIL_650,FIL_676,FIL_715]';

% Set default plotting parameters
set(0, 'DefaultLineLineWidth', 0.75)
set(0, 'DefaultLineMarkerSize', 10)
set(0, 'DefaultAxesLineWidth', 0.75)
set(0, 'DefaultTextFontSize', 10)
set(0, 'DefaultAxesFontSize', 10)

% ------ Plot for bb-9
colors_bb9 = jet(9);

figure, hold on
set(gcf, 'paperunits', 'inches', 'papersize', [6.5 4.0])
set(gcf, 'paperposition', [0.25 0.25 6.0 3.5])

	plot(wl(1,:), es_all(1,:), '-', 'Color', colors_bb9(1,:))
	plot(wl(2,:), es_all(2,:), '-', 'Color', colors_bb9(2,:))
	plot(wl(3,:), es_all(3,:), '-', 'Color', colors_bb9(3,:))
	plot(wl(4,:), es_all(4,:), '-', 'Color', colors_bb9(4,:))
	plot(wl(5,:), es_all(5,:), '-', 'Color', colors_bb9(5,:))
	plot(wl(6,:), es_all(6,:), '-', 'Color', colors_bb9(6,:))
	plot(wl(7,:), es_all(7,:), '-', 'Color', colors_bb9(7,:))
	plot(wl(8,:), es_all(8,:), '-', 'Color', colors_bb9(8,:))
	plot(wl(9,:), es_all(9,:), '-', 'Color', colors_bb9(9,:))
    
    plot(wl(1,:), fl_all(1,:), ':', 'Color', colors_bb9(1,:))
	plot(wl(2,:), fl_all(2,:), ':', 'Color', colors_bb9(2,:))
	plot(wl(3,:), fl_all(3,:), ':', 'Color', colors_bb9(3,:))
	plot(wl(4,:), fl_all(4,:), ':', 'Color', colors_bb9(4,:))
	plot(wl(5,:), fl_all(5,:), ':', 'Color', colors_bb9(5,:))
	plot(wl(6,:), fl_all(6,:), ':', 'Color', colors_bb9(6,:))
	plot(wl(7,:), fl_all(7,:), ':', 'Color', colors_bb9(7,:))
	plot(wl(8,:), fl_all(8,:), ':', 'Color', colors_bb9(8,:))
	plot(wl(9,:), fl_all(9,:), ':', 'Color', colors_bb9(9,:))

	
	set(gca, 'Box', 'on')
	set(gca, 'xlim', [350 800], 'ylim', [0 1])
	xlabel('Wavelength [nm]')
	ylabel('LED and filters Relative Response')

print -djpeg90 -r300 ledcurves-wetlabs-bb9.jpg 







