home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 9 / 09.iso / e / e065 / 1.ddi / LAY_WGTH.IPB < prev    next >
Encoding:
Text File  |  1991-08-28  |  1.2 KB  |  54 lines
  1. inst3.1        ! Feb 7 1989
  2. !****************************************************************
  3. !*                                *
  4. !*    Histogram of weights into pointed to layer        *
  5. !*                                *
  6. !****************************************************************
  7. !
  8. !    This script builds an instrument which displays the
  9. !    weights into the pointed to layer as a histogram
  10. !
  11. @Vars    NP            !Prompt for near layer and position
  12.  
  13. @NrLX                !Get layer index of near PE
  14. ?NPEl    0
  15. >bge lab0
  16. @Err    "A non-constant layer must be pointed to"
  17. :lab0
  18. =PNam    "_lay_"
  19. +PNam    NPEl            !Append layer number to name
  20. @PbAS                !Add Probe
  21. ?PbSt    0            !Check status of probe
  22. >beq    lab3            !Already there, don't add component
  23. @PALy                !Add Near Layer to probe
  24. :lab3
  25. !    *** Build Instrument ***
  26.  
  27. @ILdD                !load default instrument
  28. =ITit    "Layer "        !Instrument title
  29. +ITit    NPEl            !Append layer number to title
  30. +ITit    " Weights"
  31. =Ivmn    &vmn
  32. =Ivmx    &vmx
  33. ?&gnx    1
  34. >bgt    lab1
  35. =Ignx    2
  36. >br    lab2
  37. :lab1
  38. =Ignx    &gnx
  39. :lab2
  40.  
  41. ! Height and width
  42. =f0    Ignx
  43. /f0    0.1            !multiply by 10
  44. =Ihgt    50            !height of graph
  45. =Iwdt    f0            !Width of graph
  46.  
  47. =IGVr    "Weight"
  48. =IGTy    "Hist"
  49. =ITMd    0            !No transformation
  50. =IRcA    0            !Not active in recall
  51. =ILDv    10            !Every 10 iterations
  52. =IPrb    PNam            !Point to probe
  53. @IAdd                !Now create instrument
  54.