home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 9 / 09.iso / e / e004 / 1.img / BOOLEAN.MCD < prev    next >
Encoding:
Text File  |  1987-10-22  |  1.3 KB  |  66 lines
  1. .MCD 20000 0
  2. .CMD PLOTFORMAT logs=0,0 subdivs=1,1 size=5,15 type=l
  3. .CMD FORMAT  rd=d ct=10 im=i et=3 zt=15 pr=3 mass length time charge
  4. .CMD SET ORIGIN 0
  5. .CMD SET TOL 0.001000
  6. .CMD MARGIN 0
  7. .CMD LINELENGTH 78
  8. .CMD SET PRNCOLWIDTH 8
  9. .CMD SET PRNPRECISION 4
  10. .TXT 1 0 1 31 
  11. a1,30,28,29
  12. Boolean Algebraic Functions:
  13. .TXT 2 20 2 45 
  14. a2,45,43,70
  15. By using 1 and 0 as true and false, MathCAD 
  16. can model Boolean logic.
  17. .TXT 3 0 1 53 
  18. a1,53,51,52
  19. Define Boolean and comparison functions as follows:
  20. .EQN 2 1 1 24 
  21. and(a,b)~Φ(a*b-.5)
  22. .EQN 0 25 1 25 
  23. or(a,b)~Φ(a+b-.5)
  24. .EQN 1 -25 1 20 
  25. not(a)~Φ(.5-a)
  26. .EQN 0 25 1 34 
  27. xor(a,b)~Φ(a+b-2*a*b-.5)
  28. .EQN 2 -25 1 27 
  29. max2(a,b)~if(a>b,a,b)
  30. .EQN 1 0 1 27 
  31. min2(a,b)~if(a<b,a,b)
  32. .TXT 2 -21 1 60 
  33. a1,60,58,59
  34. For example, the following is a simulation of an AND-gate:
  35. .EQN 2 20 1 9 
  36. N:20
  37. .EQN 0 10 1 12 
  38. i:1;N
  39. .EQN 2 -10 2 24 
  40. S1[i:Φ(rnd(1)-0.5)
  41. .TXT 0 30 1 18 
  42. a1,18,16,17
  43. ... first signal
  44. .EQN 3 -30 2 24 
  45. S2[i:Φ(rnd(1)-0.8)
  46. .TXT 0 30 1 19 
  47. a1,19,17,18
  48. ... second signal
  49. .EQN 3 -30 2 21 
  50. A1[i:and(S1[i,S2[i)
  51. .TXT 0 30 2 20 
  52. a2,20,18,35
  53. ... logical AND of 
  54.     S1 and S2.
  55. .EQN 3 -50 9 66 
  56. 6&-2&A1[i-1,S1[i+2,S2[i+4{1,1,8,40,s}@N&1&i
  57. .TXT 1 66 1 4 
  58. a1,4,2,3
  59. S2
  60. .TXT 2 0 1 4 
  61. a1,4,2,3
  62. S1
  63. .TXT 3 0 1 4 
  64. a1,4,2,3
  65. A1
  66.