set_step.m

用matlab实现的JPEG算法

% get_config

%function set_step(ss_i,ss_t,ss_l,q_val)


%----------------------------------------
function [S_Step]= set_step(ss_i,ss_t,ss_l,ss_Fstep,q_val)


% initialisation de la variable Fstep par q_val

if q_val < 0.0005 
 q_val = 0.000005 ;
end ;

if q_val > 1 
 q_val = 1 ;
end ;


% ouverture fichier 
FIB = fopen('Fstep.ini','w');

% 閏riture


	if ss_t<1
		
	  ss_Fstep((ss_i-1)*7+1,1) = q_val ;

	else

	  ss_Fstep((ss_i-1)*7+2+ss_l,ss_t) = q_val ;


	end ;

%sprintf('i=%g \t t=%g \t l=%g \n',double(ss_i),double(ss_t),double(ss_l))


for i=1:21

     fprintf(FIB, '%.2f \t %.2f \t %.2f \n',ss_Fstep(i,1),ss_Fstep(i,2),ss_Fstep(i,3));
   
end

S_Step = ss_Fstep ;


%[st_sb1,st_sb2,st_sb3] = textread('Fstep.ini','%f %f %f',21) ;

% fermeture

	fclose(FIB) ;



% *********** Fstep JM version *********************