 n = [0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16];
intensity = [4.499 2.568 0.157 0.575 0.106 0.198 0.064 0.097 0.05 0.068 0.052 0.07 0.05 0.052 0.043 0.029 0.023];

plot(n*8.43,intensity)

odd = [0 1 3 5 7 9 11 13 15];
freq = 8.43 * odd;
int_full = [1 0.57079351 0.383418537 0.2200489 0.150922427 0.136030229 0.171149144 0.150255612 0.096688153];
int_5 = [1 0.426856381 0.20475767 0.050022232];
int_10 = [1 0.496141125 0.268577729 0.144432194 0.09724366 0.059536935];
plot(freq,int_full);
hold
plot(freq(1:length(int_5)),int_5);
plot(freq(1:length(int_10)),int_10);
