//----------------------------------------
// Slide 70
// ========
function [i,d] = icc(n,y)
q = sqrt(n*3)
i = (q^y) / 6
d = 10*log10(i)
endfunction


//----------------------------------------
// Slide 71
// ========

// Para gama = 2
//Saida: [dec,dBms] = icc2(N)
function [i,d] = icc2(n)
q = sqrt(n*3)
i = n / 3
d = 10*log10(i)
endfunction


// Para gama = 4
//Saida: [dec,dBms] = icc4(N)
function [i,d] = icc4(n)
q = sqrt(n*3)
i = (4/3)*(n^2)
d = 10*log10(i)
endfunction


// Para gama 2 ou 4, na mesma funcao
function [i,d] = iccX(n,y)
  q = sqrt(n*3)
  if y == 2 then
    i = n / 3
  elseif y == 4 then
    i = (4/3)*(n^2)
  else 
    error("Valor gama nao definido")
  end
  d = 10*log10(i)
endfunction