SHARE
TWEET

Scilab ANN Toolbox

a guest Jun 14th, 2019 85 in 81 days
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. clear
  2. clc
  3. rand('seed',0);
  4. tic();
  5. X = [3  10  25  32  43  1   3
  6. 6   12  35  39  49  4   9
  7. 2   9   23  36  47  2   9
  8. 24  25  28  35  48  4   8
  9. 6   29  38  45  47  2   3
  10. 5   8   21  24  26  4   5
  11. 1   24  30  31  47  7   9
  12. 14  16  21  25  26  8   10
  13. 7   16  18  19  24  1   6
  14. 4   29  30  31  45  1   7
  15. 1   2   11  19  47  2   7
  16. 15  20  24  44  49  7   9
  17. 4   9   15  24  42  8   9
  18. 22  31  43  44  50  1   9
  19. 14  16  21  30  37  4   8
  20. 18  21  37  43  47  1   3
  21. 1   6   11  17  38  4   8
  22. 3   9   10  19  42  1   7
  23. 5   7   15  19  29  3   8
  24. 20  27  33  35  46  5   9
  25. 8   26  38  47  50  3   7
  26. 10  12  35  36  43  2   5];
  27.  
  28. k=7;
  29. c=3;
  30.  
  31. [rows,cols]=size(X);
  32.  
  33. mx=max(X);
  34. mn=min(X);
  35. mx1=mx+0.1*(mx-mn);
  36. mn1=mn-0.1*(mx-mn);
  37. X=(X-mn1)/(mx1-mn1);
  38.  
  39. plot(X);
  40.  
  41. res=[];
  42.  
  43. for col=1:cols
  44.     U=[];
  45.     Z=[];
  46.     for i=1:rows-k-c
  47.         U=[U X(i:i+k-1,col)];
  48.         Z=[Z X(i+k:i+k+c-1,col)];
  49.     end;
  50.  
  51.     [in_count, pattern_count]=size(U);
  52.     [out_count, pattern_count]=size(Z);
  53.  
  54.     lp=[0.1 0.05 0.5 0.1];
  55.     epochs=12000;
  56.     N=[in_count 5 out_count];
  57.  
  58.     r=[0,1];
  59.     rb=[0,0];
  60.  
  61.     W=ann_FF_init(N,r,rb);
  62.  
  63.     disp(cols-col+1);
  64.     [W,sW]=ann_FF_Mom_online(U,Z,N,W,lp,epochs);
  65.  
  66.     Y=ann_FF_run(X(rows-k+1:rows,col),N,W);
  67.  
  68.     pY=1:1:rows+out_count;
  69.     Y=[X(:,col);Y];
  70.     plot(pY,Y(:,1)',"red");
  71.  
  72.     Y=(Y*(mx1-mn1))+mn1;
  73.     res=[res Y];
  74. end
  75.  
  76. disp(res);
  77. disp(toc(),"time(s)=");
  78. disp("done");
RAW Paste Data
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy. OK, I Understand
 
Top