home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 9 / 09.iso / e / e065 / 1.ddi / LAY_WTHN.IPB < prev    next >
Encoding:
Text File  |  1991-08-28  |  1.7 KB  |  71 lines
  1. inst3.1        ! Feb 7 1989
  2. !****************************************************************
  3. !*                                *
  4. !*    Hinton Diagram of weights between two layers        *
  5. !*                                *
  6. !****************************************************************
  7. !
  8. !    This script builds an instrument which displays the
  9. !    weights between two layers as a bar chart. Assumes
  10. !    the two layers are fully connected
  11. !
  12. @Vars    NDSP            !Prompt for layers and position
  13.  
  14. @NrLX                !Get layer index of near PE
  15. ?NPEl    0
  16. >blt laberr
  17. @SlLX                !Get layer index of selected PE
  18. ?SPEl    0
  19. >bge lab0
  20. :laberr
  21. @Err    "Non-constant source and destination layers required"
  22. :lab0
  23. =PNam    NPEl            !Write source layer number to name
  24. +PNam    "->"
  25. +PNam    SPEl            !Append destination layer number to name
  26. @PbAS                !Add Probe
  27. ?PbSt    0            !Check status of probe
  28. >beq    lab3            !Already there, don't add component
  29. @PALC                !Add Layer Connection to probe
  30. :lab3
  31. !    *** Build Instrument ***
  32.  
  33. @ILdD                !load default instrument
  34. =ITit    "Layer "        !Instrument title
  35. +ITit    NPEl            !Append source layer number to title
  36. +ITit    "->"            !Instrument title
  37. +ITit    SPEl            !Append destination layer number to title
  38. =Ivmn    &vmn
  39. =Ivmx    &vmx
  40. =LayN    NPEl            !Pointed to (source) layer
  41. @LLly                !Load it
  42. =n0    Lpes            !number of PEs in pointed to layer
  43. =LayN    SPEl            !Selected (destinataion) layer
  44. @LLly                !Load it
  45. =n1    Lpes            !number of PEs in selected layer
  46. =Ignx    n0
  47. =n2    0
  48. =n3    n1
  49. ! n2 = n0 * n1:
  50. :labloop
  51. +n2    n0
  52. -n3    1
  53. ?n3    0
  54. >bgt    labloop
  55. =Inpl    n2
  56. ! height and width:
  57. =f0    n0
  58. =f1    n1
  59. /f0    0.05
  60. /f1    0.07
  61. =Iwdt    f0            !Width of graph
  62. =Ihgt    f1            !height of graph
  63.  
  64. =IGVr    "Weight"
  65. =IGTy    "Hinton"
  66. =ITMd    0            !No transformation
  67. =IRcA    0            !Not active in recall
  68. =ILDv    10            !Every 10 iterations
  69. =IPrb    PNam            !Point to probe
  70. @IAdd                !Now create instrument
  71.