/tags/rel-0-4-1/FreeSpeech/NNet/m/exportnet3.m

# · MATLAB · 19 lines · 14 code · 5 blank · 0 comment · 0 complexity · 01b4ab4012a2d3447c4d1ac8fc3075dd MD5 · raw file 

    

  1. function exportnet3 (filename,W1,B1,layer1,W2,B2,layer2,W3,B3,layer3)
    2. 

  2. 

  3. [T2,T1]=size(W1);
    4. 

  4. [T3,T2]=size(W2);
    5. 

  5. [T4,T3]=size(W3);
    6. 

  6. 

  7. file = fopen(filename,"w");
    8. 

  8. 

  9. fprintf (file, "<FFNet\n");
    10. 

  10. fprintf (file, "<topo <Vector  %d %d %d %d > >\n",T1,T2,T3, T4);
    11. 

  11. fprintf (file, "<layers <Vector \n");
    12. 

  12. 

  13. exportlayer(file, W1,B1,layer1);
    14. 

  14. exportlayer(file, W2,B2,layer2);
    15. 

  15. exportlayer(file, W3,B3,layer3);
    16. 

  16. 

  17. fprintf (file, "> >\n");
    18. 

  18. fprintf (file, ">\n");
    19. 

  19. fclose(file);
    20.