home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 9 / 09.iso / e / e065 / 1.ddi / LAY_ENGY.IPB < prev    next >
Encoding:
Text File  |  1991-08-28  |  1.1 KB  |  45 lines
  1. inst3.1        ! Feb 7 1989
  2. !****************************************************************
  3. !*                                *
  4. !*    Energy InstaProbe                    *
  5. !*                                *
  6. !****************************************************************
  7. !
  8. !    This script builds an instrument which plots the energy
  9. !    for the pointed to (near) layer of a network.
  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    lab1            !Already there, don't add component
  23. @PALy                !Add Near Layer to Probe
  24. :lab1
  25. !    *** Build Instrument ***
  26.  
  27. @ILdD                !load default instrument
  28. =ITit    "Energy Lay "        !Instrument title
  29. +ITit    NPEl
  30. =Ivmn    &vmn
  31. =Ivmx    &vmx
  32. =ICTh    &cth
  33. =Ignx    &gnx
  34. ?&gnx    0
  35. >bgt    lab3
  36. =Ignx    100            !100 graph points
  37. :lab3
  38. =IGVr    "Energy"        !graph energy
  39. =ITTy    "Avg"            !type of transform
  40. =ILnA    0            !Not active in learn
  41. =IRcA    1            !active in recall
  42. =IRDv    1            !divisor of 1
  43. =IPrb    PNam            !Point to probe
  44. @IAdd                !Now create instrument
  45.