BOOLE函数求值，8-15函数位

pastor

http://bbs.mjtd.com/forum.php?mod=viewthread&tid=82033&highlight=boole

用作一个通用的按位逻辑运算函数

(Boole operator int1 [int2 ...])

参数

operator

0 和 15 之间的整数，代表 16 种可能的双变量布尔函数。

int1, int2...

整数。

请注意 Boole 可以接受单一整数参数，但结果不可预料。

后续的整数参数将根据函数和如下真值表逐位（逻辑上）组合在一起：

[td]

布尔真值表
Int1	Int2	操作位
0	0	8
0	1	4
1	0	2
1	1	1

参数 int1 的每一位与参数 int2 的对应位相匹配，指定真值表中的某一行。运算结果的该位可能是 0 或 1，这取决于真值表中这一行所对应的操作位的设置情况。

如果相应操作位和真值表一致，则结果位为 1；否则结果位为 0。operator 参数的某些取值等效于标准布尔运算 AND（与）、OR（或）、XOR（异或）和 NOT（非）。

[td]

Boole 函数的位值
运算符	运算	结果位为 1 的条件
1	AND	两个输入位均为 1
6	XOR	两个输入位仅有一个为 1
7	OR	有一个或两个输入位为 1
8	NOR	两个输入位均为 0（1 的补）

返回值

整数。

示例

下列代码进行数 12 和 5 的逻辑与 (AND) 运算：

命令： (Boole 1 12 5)

4

下列代码进行数 6 和 5 的逻辑异或 (XOR) 运算：

命令： (Boole 6 6 5)

3

也可以使用 operator 的其他值来执行没有标准名的其他布尔运算。例如，如果 operator 是 4，那么只有在 int2 的位为 1，而 int1
的对应位为 0 时，其结果位才为 1，因此：

命令： (Boole 4 3 14)

12

(boole 0 12 5) ;;0结果为0
(boole 1; 12 5) ;4  根据真值表计算
12=（1100）2
5=（0101）2
(boole 1 12 5)=（0100）2=4

  (boole 2 12 5);;8
12=（1100）2
5=（0101）2
(boole 2 12 5)=（1000）2=8


  (boole 3 12 5);;12（此时为1和2的情况的组合，也是1和2的数值求和）
12=（1100）2
5=（0101）2
(boole 3 12 5)=（1000）2=12=(boole 1 12 5)+(boole 2 12 5)


  (boole 4 12 5);;1
12=（1100）2
5=（0101）2
(boole  4 12 5)=（0001）2=1


  (boole 5 12 5);;5
12=（1100）2
5=（0101）2
(boole  5 12 5)=（0101）2=5=(boole 1 12 5)+(boole 4 12 5)


  (boole 6 12 5);;9
12=（1100）2
5=（0101）2
(boole  6 12 5)=（1001）2=9=(boole 1 12 5)+(boole 5 12 5)=(boole 1 12 5)+(boole 1 12 5)+(boole 4 12 5)


  (boole 7 12 5);;13
12=（1100）2
5=（0101）2
(boole  7 12 5)=（1101）2=13=(boole 1 12 5)+(boole 2 12 5)+(boole 4 12 5)



  (boole 8 12 5);;-14    函数位7的结果1的补码
  (boole 9 12 5);;-10   函数位6的结果1的补码
  (boole 10 12 5);;-6   函数位5的结果1的补码
  (boole 11 12 5);;-2  函数位4的结果1的补码
  (boole 12 12 5);;-13  函数位3的结果1的补码
  (boole 13 12 5);;-9   函数位2的结果1的补码
  (boole 14 12 5);;-5  函数位1的结果1的补码
  (boole 15 12 5);;-1  函数位0的结果1的补码

综合boole所有函数位的计算均明晰了，之前的大侠给出的是0-7的，8以后的解释还请各位大侠赐教。