[z,x] = size(cpv);
[z,y] = size(cpl);
[w,z] = size(cps);
global icpv icpl icps

for j=1:nc
 a = cpv(j,:);
 b = a(x:-1:1) ;
 c= b./(x:-1:1);
 icpv(j,:) = c;
end
 
for j=1:nc
 a = cpl(j,:);
 b = a(y:-1:1); 
 c= b./(y:-1:1);
 icpl(j,:) = c;
end

for j=1:nc
 a = cps(j,:);
 b = a(z:-1:1) ;
 c= b./(z:-1:1);
 icps(j,:) = c;
end

clear a b c j x y z 
