CMACsimple.rar_Cmac simple_Known_cmac

clear all; clc; u=1:1:90; y0=u'.^(-1); eff=1.8; %Learning efficient q=100; %Quantification level c=5; %Activate c neurons at once number=5; %number is the divisor for calculating the spurious encoding min=-0.1; max=0.9; w=zeros(number,1); %Build a random weight matrix w1=w; dw=w; for p=1:length(u) M(p)=round((u(p)-min)*q/(max-min)); %Input u is quantized % M(p)= pi/10*[sin(p)+0.3*sin(3*p)]; sum=0; for i=1:c A(i)=mod(M(p)+i,number)+1; %Finding Stray Addresses sum=sum+w(A(i)); %Find weights and end for step=1:100 y(p)=sum ;%CMAC output e(p)=y0(p)-y(p); E(p)=e(p)^2/2 ;%Objective function dw=eff*e(p)/c ;%Weight increment for i=1:c A(i)=mod(M(p)+i,number)+1; w(A(i))=w1(A(i))+dw ;%Adjust the weight value end end w1=w; end figure(1); %Figure 1 plots the expected output and the actual output plot(1:length(u),y0,'g'); hold on; plot(1:length(u),y,'r'); figure(2); %Figure 2 Draws the error curve plot(1:length(u),e,'r'); e