irr read

loadIrr.m

function [power,wlength]=loadIrr(fnameL)

fid=fopen(fnameL,'rt');

Nskp=5; 
for uilp=1:Nskp
	[dummyStr] = fgetl(fid);
end
dummyStr = fgetl(fid);
%[dummyStr,dummyVal] = sscanf(dummyStr,['保存開始波長[nm]' '\t' '%f'])
lambdaStart = sscanf(dummyStr(18:end),'%f');
dummyStr = fgetl(fid);
lambdaEnd = sscanf(dummyStr(18:end),'%f');
dummyStr = fgetl(fid);
lambdaStep = sscanf(dummyStr(18:end),'%f');
N_lensp = (lambdaEnd-lambdaStart)/lambdaStep+1;

N_data=1;

Nskp=52;
for uilp=1:Nskp
	[dummyStr] = fgetl(fid);
end

dat = fscanf(fid,'%f',[ (N_data+1) ,N_lensp]);

FCL=fclose(fid);

dat=dat';

power=dat(:,2);
wlength=dat(:,1);