Indentation corrections

Author: flandrade

cdma.m

@@ -10,7 +10,7 @@
 clc
 
 %--------------------------------------------------------------------------
-%----------------- COMUMUNICATION OPTIONS ---------------------------------
+%----------------- COMMUNICATION OPTIONS ----------------------------------
 %--------------------------------------------------------------------------
 
 %----------------- Quantization -------------------------------------------
@@ -87,7 +87,6 @@
 
 
 %------------------------- QUANTIZATION -----------------------------------
-
 %Quantization
 [y_1, x2_1, errorcuantizacion_1] = cuantizar(x1,opcion,nivel);
 [y_2, x2_2, errorcuantizacion_2] = cuantizar(x2,opcion,nivel);
@@ -123,7 +122,6 @@
 
 
 %---------------------- REMAP MATRIX TO TRANSMIT --------------------------
-
 %------------  USER 1
 %Transform
 x3=x2_1-1;
@@ -458,8 +456,6 @@
                 break
         end
 
-
-
     end
 
     %p=mean(pe);

cuantizar.m

@@ -1,57 +1,58 @@
 function [y, x2, errorcuantizacion] = cuantizar(x,opcion,nivel)
 
-% Levels of uniform quantization 
-dif=(max(x)-min(x))/(nivel-1);
-val=[min(x):dif:max(x)];
-
-% y = vector to plot levels of quantization
-y=kron(val',ones(1,size(x,1)));
-
-
-%------------ TYPES OF QUANTIZATION
-switch opcion
-    case 1
-        %------------  UNIFORM QUANTIZATION
-        %No amplification
-        xp=x;
-    case 2
-        %------------  MU LAW
-        mu=255;
-        xp=sign(x).*(log(1+mu*abs(x))/log(1 + mu));
-
-     case 3
-        %------------  A LAW
-        A=87.6;
-
-        for i=1:length(x)
-            if abs(x(i))<(1/A)
-                xp(i,1)=sign(x(i)).*((A*abs(x(i)))/(1+log(A)));
-            else
-                xp(i,1)=sign(x(i)).*((1+log(A*abs(x(i))))/(1+log(A)));
+    % Levels of uniform quantization
+    dif=(max(x)-min(x))/(nivel-1);
+    val=[min(x):dif:max(x)];
+
+    % y = vector to plot levels of quantization
+    y=kron(val',ones(1,size(x,1)));
+
+
+    %------------ TYPES OF QUANTIZATION
+    switch opcion
+        case 1
+            %------------  UNIFORM QUANTIZATION
+            %No amplification
+            xp=x;
+        case 2
+            %------------  MU LAW
+            mu=255;
+            xp=sign(x).*(log(1+mu*abs(x))/log(1 + mu));
+
+         case 3
+            %------------  A LAW
+            A=87.6;
+
+            for i=1:length(x)
+                if abs(x(i))<(1/A)
+                    xp(i,1)=sign(x(i)).*((A*abs(x(i)))/(1+log(A)));
+                else
+                    xp(i,1)=sign(x(i)).*((1+log(A*abs(x(i))))/(1+log(A)));
+                end
             end
-        end
 
 
-end
+    end
 
-% Value decision: it decides where the value corresponds to one level
-% according minimum distance
-ref=repmat(xp',nivel,1);
-x1=abs(y-ref);
-[distancia x2]=min(x1);
+    % Value decision: it decides where the value corresponds to one level
+    % according minimum distance
+    ref=repmat(xp',nivel,1);
+    x1=abs(y-ref);
+    [distancia x2]=min(x1);
 
-%------------ QUANTIZATION ERROR
+    %------------ QUANTIZATION ERROR
 
-%Signal normalization
-m=2/(nivel-1);
-b=(-nivel-1)/(nivel-1);
-xerror=m.*x2+b;
+    %Signal normalization
+    m=2/(nivel-1);
+    b=(-nivel-1)/(nivel-1);
+    xerror=m.*x2+b;
 
-for i=1:size(xp,1)
-    if xp(i)==0
-        xp(i)=0.001;
+    for i=1:size(xp,1)
+        if xp(i)==0
+            xp(i)=0.001;
+        end
+        er(i)=abs((xp(i)-xerror(i))/xp(i));
     end
-    er(i)=abs((xp(i)-xerror(i))/xp(i));
-end
 
-errorcuantizacion=mean(er);
+    errorcuantizacion=mean(er);
+end

dec_bin.m

@@ -1,13 +1,14 @@
 function bin_state = dec_bin( int_state, m )
- 
-% cambia matriz de decimal a binario
-
-for j = 1:length( int_state )
-   for i = m:-1:1
-       state(j,m-i+1) = fix( int_state(j)/ (2^(i-1)) );
-       int_state(j) = int_state(j) - state(j,m-i+1)*2^(i-1);
-   end
-end
 
-bin_state = state;
+    % cambia matriz de decimal a binario
+
+    for j = 1:length( int_state )
+       for i = m:-1:1
+           state(j,m-i+1) = fix( int_state(j)/ (2^(i-1)) );
+           int_state(j) = int_state(j) - state(j,m-i+1)*2^(i-1);
+       end
+    end
 
+    bin_state = state;
+
+end

int_state.m

@@ -1,14 +1,15 @@
 function int_state = int_state( state )
-% Copyright 1996 Matthew C. Valenti
-% MPRG lab, Virginia Tech.
-% for academic use only
+    % Copyright 1996 Matthew C. Valenti
+    % MPRG lab, Virginia Tech.
+    % for academic use only
 
-% converts a row vector of m bits into a integer (base 10)
+    % converts a row vector of m bits into a integer (base 10)
 
-[dummy, m] = size( state );
+    [dummy, m] = size( state );
 
-for i = 1:m
-   vect(i) = 2^(m-i);
-end
+    for i = 1:m
+       vect(i) = 2^(m-i);
+    end
 
-int_state = state*vect';
+    int_state = state*vect';
+end