home *** CD-ROM | disk | FTP | other *** search
/ ARM Club 3 / TheARMClub_PDCD3.iso / hensa / programming / clips_2 / CLIPS / Examples / Circuit3 < prev    next >
Encoding:
Text File  |  1993-06-02  |  2.4 KB  |  91 lines
  1. ;;;======================================================
  2. ;;;   Example Circuit #3
  3. ;;;
  4. ;;;     An example circuit to be loaded for use with
  5. ;;;     the "electronic.clp" example program.
  6. ;;;
  7. ;;; LEGEND
  8. ;;; ------------
  9. ;;; S = Source
  10. ;;; P = Splitter
  11. ;;; N = NOT Gate
  12. ;;; A = AND Gate
  13. ;;; D = NAND Gate
  14. ;;; O = OR Gate
  15. ;;; X = XOR Gate
  16. ;;; L = LED
  17. ;;; 
  18. ;;;
  19. ;;;          /----------\           
  20. ;;; S1>--P1>-|           O1>-------------\           /--N3>--L1
  21. ;;;          |      /---/                 X2>----P4>-|
  22. ;;;          |      |                /---/           \-------L2
  23. ;;;          \------)----N1>---\     |      
  24. ;;;                 |           X1>--/
  25. ;;;          /--N2>-/  /-------/
  26. ;;; S2>--P2>-|         |    
  27. ;;;          \---------)-------\
  28. ;;;                    |        A1>---------\
  29. ;;;          /---------/  /----/            |
  30. ;;; S3>--P3>-|            |                 |        
  31. ;;;          \------------)----\            \---\
  32. ;;;                       |     D1>------\       D2>---------L3
  33. ;;; S4>-------------------/    /          O2>---/
  34. ;;;                            |   /-----/
  35. ;;; S5>------------------------/   |
  36. ;;;                                |
  37. ;;; S6>----------------------------/    
  38. ;;;
  39. ;;;======================================================
  40.  
  41. (definstances circuit
  42.   (S-1 of SOURCE)
  43.   (S-2 of SOURCE)
  44.   (S-3 of SOURCE)
  45.   (S-4 of SOURCE)
  46.   (S-5 of SOURCE)
  47.   (S-6 of SOURCE)
  48.   (P-1 of SPLITTER)
  49.   (P-2 of SPLITTER)
  50.   (P-3 of SPLITTER)
  51.   (P-4 of SPLITTER)
  52.   (N-1 of NOT-GATE)
  53.   (N-2 of NOT-GATE)
  54.   (N-3 of NOT-GATE)
  55.   (O-1 of OR-GATE)
  56.   (O-2 of OR-GATE)
  57.   (X-1 of XOR-GATE)
  58.   (X-2 of XOR-GATE)
  59.   (A-1 of AND-GATE)
  60.   (D-1 of NAND-GATE)
  61.   (D-2 of NAND-GATE)
  62.   (L-1 of LED)
  63.   (L-2 of LED)
  64.   (L-3 of LED))
  65.  
  66. (deffunction connect-circuit ()
  67.   (connect [S-1] [P-1])
  68.   (connect [S-2] [P-2])
  69.   (connect [S-3] [P-3])
  70.   (connect [S-4] [A-1] 2)
  71.   (connect [S-5] [D-1] 2)
  72.   (connect [S-6] [O-2] 2)
  73.   (connect [P-1] 1 [O-1] 1)
  74.   (connect [P-1] 2 [N-1])
  75.   (connect [P-2] 1 [N-2])
  76.   (connect [P-2] 2 [A-1] 1)
  77.   (connect [P-3] 1 [X-1] 2)
  78.   (connect [P-3] 2 [D-1] 1)
  79.   (connect [N-1] [X-1] 1)
  80.   (connect [N-2] [O-1] 2)
  81.   (connect [O-1] [X-2] 1)
  82.   (connect [X-1] [X-2] 2)
  83.   (connect [A-1] [D-2] 1)
  84.   (connect [D-1] [O-2] 1)
  85.   (connect [X-2] [P-4])
  86.   (connect [O-2] [D-2] 2)
  87.   (connect [P-4] 1 [N-3])
  88.   (connect [P-4] 2 [L-2])
  89.   (connect [D-2] [L-3])
  90.   (connect [N-3] [L-1]))
  91.