Diferencia entre revisiones de «Cosas temporales para cursos»
De Grupo de Inteligencia Computacional (GIC)
Sin resumen de edición |
Sin resumen de edición |
||
| Línea 1: | Línea 1: | ||
algunos codigos matlab para vision por computador | algunos codigos matlab para vision por computador | ||
************************* | |||
function modelo=construir_modelo(nimagen) | function modelo=construir_modelo(nimagen) | ||
cd orlfaces | cd orlfaces | ||
| Línea 14: | Línea 14: | ||
cd .. | cd .. | ||
******************************* | |||
function [error_acumulado, matriz_confusion]=calcular_error_test(modelo,nimagen) | function [error_acumulado, matriz_confusion]=calcular_error_test(modelo,nimagen) | ||
Revisión del 09:42 3 oct 2011
algunos codigos matlab para vision por computador
function modelo=construir_modelo(nimagen) cd orlfaces d=dir; modelo=zeros(112,92,size(d,1)-2); for i=3:size(d,1);
cd (d(i).name) ds=dir; modelo(:,:,i-2)=imread(ds(nimagen+2).name); cd ..
end cd ..
function [error_acumulado, matriz_confusion]=calcular_error_test(modelo,nimagen)
cd orlfaces d=dir; nclases=size(d,1)-2; distancia=zeros(nclases,1); matriz_confusion=zeros(nclases); error_acumulado=0; for i=3:size(d,1);
cd(d(i).name)
ds=dir;
for j=3:size(ds,1)
if j ~= nimagen + 2
y=double(imread(ds(j).name));
for k=1:size(d,1)-2
distancia(k)=sum(sum(abs(modelo(:,:,k)-y)));
end
%
[dmin, clase]=min(distancia);
matriz_confusion(i-2,clase)=matriz_confusion(i-2,clase)+1;
error= (i-2) ~=clase;
error_acumulado= error_acumulado + error;
end
end
cd ..
end
cd ..
