function DAeffR = effiR(tsInt)

length = uint32(size(tsInt,1))
R0 = 10.2                  %input('Förster Radius ');  -> aus Paper
n1 = 100                   %input('Zetimittel 1 '); -> willkürlich
n2 = 500                   %input('Zetimittel 2 ');
n3 = 1000                  %input('Zetimittel 3 ');
   for i=1:length-n1
       DAeffR(i,1) = tsInt(i,2)/(tsInt(i,1)+tsInt(i,2));
       DAeffR(i,2) = (R0.^6/DAeffR(i,1)-R0.^6).^(1/6);
   end;
       
   for i=1:length-n2
       DAeffR(i,3) = tsInt(i,6)/(tsInt(i,5)+tsInt(i,6));
       DAeffR(i,4) = (R0.^6/DAeffR(i,3)-R0.^6).^(1/6);
   end;
   
  for i=1:length-n3
       DAeffR(i,5) = tsInt(i,10)/(tsInt(i,9)+tsInt(i,10));
       DAeffR(i,6) = (R0.^6/DAeffR(i,5)-R0.^6).^(1/6);
  end;