function DAeffR = effiR(tsInt1, tsInt2, tsInt3)

length = uint32(size(tsInt,1));
%einlesen der Parameter                  
R0 = input('Förster Radius ');                
n1 = input('Zetimittel 1 '); 
n2 = input('Zetimittel 2 ');
n3 = input('Zetimittel 3 ');
row = input('Einfügen ab Spalte');
%erstellen der Effizienz & Radius Matrix
DAeffR=zeros(length,5+row)   
%Errechnen und Positionieren der Effizienzen
    for i=1:length-n1
       DAeffR(i,row) = tsInt(i,2)/(tsInt(i,1)+tsInt(i,2));
       DAeffR(i,row+1) = (R0.^6/DAeffR(i,1)-R0.^6).^(1/6);
   end;
       
   for i=1:length-n2
       DAeffR(i,row+2) = tsInt(i,6)/(tsInt(i,5)+tsInt(i,6));
       DAeffR(i,row+3) = (R0.^6/DAeffR(i,3)-R0.^6).^(1/6);
   end;
   
  for i=1:length-n3
       DAeffR(i,row+4) = tsInt(i,10)/(tsInt(i,9)+tsInt(i,10));
       DAeffR(i,row+5) = (R0.^6/DAeffR(i,5)-R0.^6).^(1/6);
  end;