boole函数求助

u=asdf

(Boole 6 9 5)
返回值12
请问：12是怎么算出来？

newer

理解boole

14 个回复 - 1300 次查看

boole一直是我的一个心结，对于怎么用，一搜高手都按二进制给出标准答案，对于计算机知识很空白的我来说，理解起来相当麻烦 下面是我自己的总结,大家看对否？ ;;boole 后面标准的是跟1 6 7 8，对应AND XOR OR NOR ...

2013-8-20 13:58 - /db_自贡黄明儒_ - A/VLISP

u=asdf

newer 发表于 2018-10-18 14:38
理解boole14 个回复 - 1300 次查看boole一直是我的一个心结，对于怎么用，一搜高手都按二进制给出标准答案 ...

我知道是1、6、7、8，但值是怎么算出来的

XDSoft

u=asdf 发表于 2018-10-18 14:42
我知道是1、6、7、8，但值是怎么算出来的

你看完上面那个帖子，就应该知道怎么算出来的了。

marting

6是按位 异或XOR操作，XOR操作是 比较的两个位，相反返回1，相同返回0

5二进制：0101
9二进制：1001

上面4位，上下对比下，很容易得多结果
1100 == 十进制 12

tzfcn

(Boole 6 9 5)
返回值12
请问：12是怎么算出来？
操作数6对应的规则是XOR
6          XOR           只有其中一个输入位为1
也就是说：
1+0=0+1=1
1+1=0
0+0=0
所以：
         9=1 0 0 1
XOR   5=0 1 0 1
——————
       12=1 1 0 0



一些值等效于标准的Boolean操作:AND, OR , XOR和NOT,如下所示:
   func        操作         结果位为1时的条件
   --------------------------------------------------------
    1          AND           两个输入位都为1
    6          XOR           只有其中一个输入位为1
    7          OR            有一个或两个输入位为1
    8          NOT           两个输入位都为0(即补码)
例如:
     (Boole 1 12 5)
   指定了数12和5的逻辑"与"(AND).其结果为4.同样:
     (Boole 6 6 5)
   指定了数6和5的逻辑"异或"(XOR),返回结果为3
   可以使用的其他值来完成其它的Boolean操作,这些操作可能没有标准名称.例
如,如果为4,那么当<整数2>中的位是1而<整数1>中的相应位是零时,其结果位才为
1. 因此:
     (Boole 4 3 14)
将返回结果12.

u=asdf

谢谢大家，太谢谢。现请教，LISP语言能把10进制数字转换成二进制？

newer

u=asdf 发表于 2018-10-18 20:28
谢谢大家，太谢谢。现请教，LISP语言能把10进制数字转换成二进制？

当然能，怎么不爱搜索呢

• （XD::Slide:Read）从幻灯库中读出指定的幻灯片二进制数据表
  14 个回复 - 194 次查看
  **** 本内容被作者隐藏 **** 命令: (xd::slide:read "d:\\acad.slb" "grass") (0 0 41 1 36 1 41 1 0 0 115 1 36 1 115 1 0 0 189 1 36 1 189 1 0 0 7 2 36 1 7 2 0 0 0 252 65 117 116 111 67 65 68 32 83 10 ...
  2018-4-7 19:58 - marting - 开源函数库
• （XD::File:Open）打开二进制或文本流读操作
  35 个回复 - 531 次查看
  **** 本内容被作者隐藏 ****
  2018-4-8 17:33 - marting - 开源函数库
• （xd::file:int2bin）整数转二进制存储表
  9 个回复 - 144 次查看
  **** 本内容被作者隐藏 **** 命令: (setq a (xd::file:int2bin 10546089)) (169 235 160 0) 命令: (xd::file:bin2int a) 10546089
  2018-4-7 19:36 - marting - 开源函数库
• （XD::Internet:Download）Internet下载文件（二进制、文本文件）
  20 个回复 - 306 次查看
  **** 本内容被作者隐藏 ****
  2018-3-16 17:04 - marting - 开源函数库
• （XD::Math:Dec->binary）十进制正整数转二进制字符串
  25 个回复 - 313 次查看
  **** 本内容被作者隐藏 **** 命令: (XD::MATH:DEC->BINARY 63 8) "00111111" 命令: (XD::MATH:DEC->BINARY 63 nil) "111111"
  2017-6-18 18:33 - marting - 开源函数库
• （Adodb.Stream）读写文本、二进制流（及ADO开发手册下载）
  10 个回复 - 93 次查看
  adodb.streamStream 对象用于表示二进制数据流或文本流。使用Stream对象可以为数据库应用程序很方便地添加图像数据。 说明在诸如文件系统或电子邮件系统这样的树状分级结构中，Record 可能有一个与之相关 ...
  2018-4-7 22:46 - marting - A/VLISP
• Base64 解码程序搞定，并且写入二进制到硬盘。
  8 个回复 - 1447 次查看
  下面一些函数和解码附件程序设置积分权限。 **** 本内容被作者隐藏 **** 下面是晓东空间 logo 的 base64 编码 运行解码程序，选择该txt文件后，可在原路径生成图片，欢迎验证。 有空再写个编码程序 进制 ...
  2013-5-17 07:01 - yxpxa - OpenDCL
• （XD::File:Type）判断当前打开的流文件是二进制或文本文件
  0 个回复 - 0 次查看
  
  
  2018-4-8 18:10 - marting - 开源函数库
• （XD::File:isClose）判断打开的二进制或者文本流是否关闭
  0 个回复 - 0 次查看
  
  
  2018-4-8 18:06 - marting - 开源函数库
• （XD::File:Size）获得二进制或者文本流的大小
  0 个回复 - 0 次查看
  
  
  2018-4-8 17:49 - marting - 开源函数库
• （XD::File:Close）关闭二进制或文本流
  0 个回复 - 0 次查看
  
  
  2018-4-8 17:40 - marting - 开源函数库
• （XD::File:Save）存盘二进制或文本文件
  0 个回复 - 0 次查看
  
  
  2018-4-8 17:36 - marting - 开源函数库
• （xd::file:bin2int）4字节（32位）二进制整数表转10进制
  0 个回复 - 0 次查看
  整数存储二进制，是4字节（32位），低16位在前，高16位在后 命令: (setq a (xd::file:int2bin 10546089)) (169 235 160 0) 命令: (xd::file:bin2int a) 10546089
  2018-4-7 19:29 - marting - 开源函数库
• （XD::File:Str2Bin）字符串转二进制文件表
  0 个回复 - 0 次查看
  (setq a "AutoCAD Slide Library 1.0") 命令: (xd::file:str2bin a 32) (65 117 116 111 67 65 68 32 83 108 105 100 101 32 76 105 98 114 97 114 121 32 49 46 48 0 0 0 0 0 0 0) 命令: (xd::file:str2 ...
  2018-4-7 19:18 - marting - 开源函数库
• （XD::File:Bin2Str）二进制文件表内容转字符串
  0 个回复 - 0 次查看
  命令: (setq a (xd::file:readbinary "d:\\acad.slb" 0 25)) (65 117 116 111 67 65 68 32 83 108 105 100 101 32 76 105 98 114 97 114 121 32 49 46 48) 命令: (xd::file:bin2str a) "AutoCAD Slide Li ...
  2018-4-7 19:10 - marting - 开源函数库
• （XD::String->BinList）字符串转二进制列表
  2 个回复 - 118 次查看
  命令: (xd::string->binlist "xdcad.net") ("01111000" "01100100" "01100011" "01100001" "01100100" "00101110" "01101110" "01100101" "01110100")
  2017-6-18 18:41 - marting - 开源函数库
• lsp 二进制 读写 文件
  4 个回复 - 133 次查看
  大家都知道lsp有函数 vl-get-resource 可以 返回 VLX 中保存的 .txt 文件中的文字，那么请问其他任意扩展名的类型文件怎么读写呀？求大神指点！
  2017-7-12 20:24 - pengfei2010 - A/VLISP
• [求助]：请问如何用VLISP写注册表健值——二进制？
  3 个回复 - 307 次查看
  请问如何用VLISP写注册表的二进制键值？好像用vl-registry-write无法实现
  2003-8-6 14:41 - 正航 - A/VLISP
• 将十进制数 转换为二进制数
  11 个回复 - 186 次查看
  ;;将十进制数 9 转换为 4 个字符的二进制数 (1001) (defun c:Dec2Bin (/ WorksheetFunction) (setq *excel* (vlax-get-or-create-object "excel.application")) (setq WorksheetFunction (vlax-get *exc ...
  2016-12-22 11:37 - /db_自贡黄明儒_ - A/VLISP
• 十进制转二进制
  7 个回复 - 1026 次查看
  (defun sr (str) (setq strlst (mapcar '(lambda (x) (- x 48)) (vl-string->list str))) strlst ) (defun ften->bin (lst) (setq blst nil binstr nil) (while (apply 'or (mapcar '(lambda (x) ...
  2014-12-12 19:26 - aimisiyou - 算法与数据结构
• 二进制转十进制
  0 个回复 - 835 次查看
  (defun sr (str) (mapcar '(lambda (x) (- x 48)) (vl-string->list str)) ) (defun fbin->ten (lst) (setq tenlst nil) (setq flst (mapcar '(lambda (x) 0) lst)) (mapcar '(lambda (y) ...
  2014-12-13 21:46 - aimisiyou - 算法与数据结构
  
  

u=asdf

66的二进制是多少啊

/db_自贡黄明儒_

u=asdf 发表于 2018-10-18 21:14
66的二进制是多少啊

用win的计算器就可以查看

sicky111

以前弄懂了，现在又忘了，重新学习一下。