clear all
        S= 15;
        A= 9;
        B= 13;
        m=64;
        K=3;
        S2=12;
        A2=5;
        B2=15;
        for  I=1:m
         n=A*S+B;
         u=mod(n,m);
          V= u/m;
        if V==0
           S=u;
          I=I+1;
      else 
         DPESO= (K^(1/K+1))/(V^(1/K+1));
         end 
         if DPESO==0
          S=u;   
      I=I+1;    
      else 
           S=u; 
         n=A*S+B;
         u=mod(n,m);
          V= u/m;
           if V==0
             S=u;
           I=I+1;     
       else
           CONDICIONAL= (-1/DPESO)*log(V)
            end
           S=u;   
           end
           S=u;
 end
 