clear all;
tem=220:1:300;
for i=1:length(tem)
IN353(i)=0.1*diff_backscatter(354.7,tem(i),4,-1,'nitrogen')+0.3*diff_backscatter(354.7,tem(i),5,-1,'nitrogen')+0.9*diff_backscatter(354.7,tem(i),6,-1,'nitrogen')+0.9*diff_backscatter(354.7,tem(i),7,-1,'nitrogen')+0.3*diff_backscatter(354.7,tem(i),8,-1,'nitrogen')+0.1*diff_backscatter(354.7,tem(i),9,-1,'nitrogen');
IO353(i)=0.1*diff_backscatter(354.7,tem(i),5,-1,'oxygen')+0.25*diff_backscatter(354.7,tem(i),6,-1,'oxygen')+0.5*diff_backscatter(354.7,tem(i),7,-1,'oxygen')+0.92*diff_backscatter(354.7,tem(i),8,-1,'oxygen')+0.89*diff_backscatter(354.7,tem(i),9,-1,'oxygen')+0.22*diff_backscatter(354.7,tem(i),10,-1,'oxygen')+0.15*diff_backscatter(354.7,tem(i),11,-1,'oxygen')+0.08*diff_backscatter(354.7,tem(i),12,-1,'oxygen');
TI(i)=0.77*IN353(i)+0.23*IO353(i);
sTI(i)=0.77*diff_backscatter(354.7,tem(i),6,-1,'nitrogen')+0.23*diff_backscatter(354.7,tem(i),8,-1,'oxygen');
end