[求助]：不明白逻辑运算函数

游手好闲

按位逻辑与函数（logand ）
如果是
（logand 15 3）                 返回3
或函数（logior）
如果是
（logior 9 3）                     返回11
非函数(~)
(~ 4)                               返回－5
(~-6)                               返回5

上面都是书上写的，看不懂。返回值和原值一点联系都没有啊？

yi.gao

最初由 游手好闲 发布
[B]按位逻辑与函数（logand ）
如果是
（logand 15 3）                 返回3
或函数（logior）
如果是
（logior 9 3）                     返回11
非函数(~)
(~ 4)                               返回－5
(... [/B]

按位逻辑与函数是将列表中一系列十进制整数先转换为二进制，然后按位进行逻辑与运算。如（logand 15 3），实则为（and 1111 11），得到的结果为二进制11，换算为十进制就是3了。同样的道理，你可以计算其它结果。很少有人注意这个算式的。

XDSoft

最初由 游手好闲 发布
[B]按位逻辑与函数（logand ）
如果是
（logand 15 3）                 返回3
或函数（logior）
如果是
（logior 9 3）                     返回11
非函数(~)
(~ 4)                               返回－5
(... [/B]

这个函数的功能是测试某一位是否为1或者0

比如ACAD里面的一些组码都是在1 4 8 16 32 64 128 等位设置1或者0代表不同的状态。

用上面的函数就可以直接判断一个位是否被设置了。

比如：(logand 72 16)=0 说明二进制的第5位，值是0
再如：(logand 24 16)=16, 说明第5位设置了1

如果你理解二进制的不同的位是否设置1或者0代表的不同的10进制数，就很清楚了。
1－－第一位设置1
2－－第二位设置1
4－－第三位设置1
6－－表示第3位、第2位设置了1
8－－第四位设置1
16－－第五位设置1

cy956

哪些用到xd能想起来的？
我只想到osmode和dimension的类型。
刚学lisp时看abd的程序，觉得很神，
人家用1248的加值表示东南西北，输15就是全方位，
可后来用对话框，再去算就太土了。

游手好闲

多谢东哥及yi.gao兄，（logand ）和（logior）都明白了，可是非函数不懂，4应该是“100”返回值怎么还是－5？
还有相同表达式测试函数（eq)
例如：
(setq f1 '(a b) f2 '(a b))
(setq f3 f2)
(eq f1 f2)             返回nil    －－－此处不明白      
(eq f2 f3)             返回T   

我看不出f1与f2有什么区别。如果用equal返回就都是T。
还有还有，那个 ' 是什么意思？表吗？

XDSoft

最初由 游手好闲 发布
[B]多谢东哥及yi.gao兄，（logand ）和（logior）都明白了，可是非函数不懂，4应该是“100”返回值怎么还是－5？
还有相同表达式测试函数（eq)
例如：
(setq f1 '(a b) f2 '(a b))
(setq f3 f2)
(eq f1 f2)       ... [/B]

你看f1 和f2 没有什么不同，但是他们是不同的变量，什么是变量呢？变量就是内存地址，这个地址指向的连续的内存区域里面保存的内容才是变量的“值”，也就是说 eq 比较的不是值，而是两个变量是否指向了同一块内存，如果是才相等。

你试试，你上面的 (eq f2 f3) 肯定返回T ，因为你是赋值他们相等，实际上是f3 f2 变量指向了同一块内存。

2. [font=courier new][color=blue]
   
3. 命令: (setq a '(1 3) b '(1 3) c b)
   
4. (1 3)
   
5. 
   
6. 命令: (eq c b)
   
7. T
   
8. 
   
9. 命令: (eq a b)
   
10. nil
    
11. 
    
12. [/font][/color]

[font=courier new][color=blue]<br /> 命令: (setq a '(1 3) b '(1 3) c b)<br /> (1 3)<br /> <br /> 命令: (eq c b)<br /> T<br /> <br /> 命令: (eq a b)<br /> nil<br /> <br /> [/font][/color]

游手好闲

多谢东哥，上面还有问题呢！
”非函数“！
4的返回值是－5   不明白。

XDSoft

最初由 游手好闲 发布
[B]多谢东哥，上面还有问题呢！
”非函数“！
4的返回值是－5   不明白。 [/B]

“~ ”是按位取反，位是二进制的一位，反的含义就是1变成0，0变成1

比如：

4的二进制表示是：

00000100  ;;一个字节等于8个二进制位

按位取反后是：

11111011

由于二进制最高位是符号位，0代表正数，1代表负数，所以上面的取反后是负数了，由于机器用补码来表示负数，所以上面的负数换成10进制后就是：

-(2^8- (1*2^7+1*2^6+1*2^5+1*2^4+1*2^3+0*2^2+1*2^1+1*2^0)) =-(256-(128+64+32+16+8+0+2+1))=-5

梦断江南

（～ x） 的简单算法是： (－x－1）

游手好闲

感谢东哥，我回去慢慢消化！
南哥说的方法屡试屡爽，待我回去好好想想这是为什么。