Los metodos de restauracion deben llamar a seleccion_lambda siendo el ultimo parametro el que indica a que funcion se va a llamar para obtener el lambda 1: pasando_norma_ruido 2: max_incr_pend_Lcurva
0001 function valorlambda = seleccion_lambda(x,y,lambdas,normaruido,metodo); 0002 0003 % Los metodos de restauracion deben llamar a seleccion_lambda siendo el ultimo 0004 % parametro el que indica a que funcion se va a llamar para obtener el lambda 0005 % 0006 % 1: pasando_norma_ruido 0007 % 2: max_incr_pend_Lcurva 0008 % 0009 0010 0011 % Posibles criterios para la selección del lambda 0012 % Añadir mas cuando sea conveniente 0013 % 0014 0015 fun = [@pasando_norma_ruido; @max_incr_pend_Lcurva]; 0016 0017 val = 0; 0018 0019 switch metodo 0020 case 1 0021 val = feval(fun(metodo),x,lambdas,normaruido); 0022 case 2 0023 val = feval(fun(metodo),x,y,lambdas); 0024 otherwise 0025 disp('Este criterio para el parametro de regularizacion no existe!'); 0026 end 0027 0028 valorlambda = val; 0029