[试用]：数字十进制和二进制的转换

fylinwater

数字十进制和二进制的转换

2. 
   
3. ;;———————————————————————————————————
   
4. ;;#$fildname-> math.lsp
   
5. ;;time-stamp-> 11:03 02-4-22 zjw
   
6. ;;Copyright (C) 2001 by zjw ,WuXi Municipal Enginerring Design Institue. All Rights Reserved.
   
7. ;;-------------------------------------------------
   
8. ;;#$help.begin
   
9. ;;##function.name-> DD_BIN->NUM DD_NUM->BIN
   
10. ;;##keyword-> BIN NUM  数字十进制和二进制的转换 (二进制用表表示) 只处理正整数
    
11. ;;##Description->
    
12. ;;##Arguments.begin
    
13. ;|              |;
    
14. ;;##Arguments.end
    
15. ;;##return-> <int>   or <list>
    
16. ;;##examples.begin
    
17. ;|   (DD_NUM->BIN 6) => (1 1 0)
    
18.                               |;
    
19. ;;##examples.end
    
20. ;;##see also->
    
21. ;;#$help.end
    
22. ;;-------------------------------------------------
    
23. (defun DD_BIN->NUM (numlst / i n)
    
24.   (setq n 0)
    
25.   (foreach i numlst
    
26.     (setq n
    
27.       (cond
    
28.         ((= i 0) (lsh n 1))
    
29.         ((= i 1) (1+ (lsh n 1)))
    
30.         (T (chr (chr (+ 48 i)))))))
    
31.   )   
    
32. 
    
33. ;;;
    
34. (defun DD_NUM->BIN (i / lst)
    
35.   (while (> i 0)
    
36.     (setq lst (cons (rem i 2) lst)
    
37.           i   (lsh i -1)))
    
38.   lst
    
39. )
    
40. 
    
41. ;;—————————————————END—————————————————
    

<br /> ;;———————————————————————————————————<br /> ;;#$fildname-> math.lsp<br /> ;;time-stamp-> 11:03 02-4-22 zjw<br /> ;;Copyright (C) 2001 by zjw ,WuXi Municipal Enginerring Design Institue. All Rights Reserved.<br /> ;;-------------------------------------------------<br /> ;;#$help.begin<br /> ;;##function.name-> DD_BIN->NUM DD_NUM->BIN<br /> ;;##keyword-> BIN NUM  数字十进制和二进制的转换 (二进制用表表示) 只处理正整数<br /> ;;##Description-> <br /> ;;##Arguments.begin<br /> ;|              |;<br /> ;;##Arguments.end<br /> ;;##return-> <int>   or <list><br /> ;;##examples.begin<br /> ;|   (DD_NUM->BIN 6) => (1 1 0)<br />                               |;<br /> ;;##examples.end<br /> ;;##see also-><br /> ;;#$help.end<br /> ;;-------------------------------------------------<br /> (defun DD_BIN->NUM (numlst / i n)<br />   (setq n 0)<br />   (foreach i numlst<br />     (setq n<br />       (cond<br />         ((= i 0) (lsh n 1))<br />         ((= i 1) (1+ (lsh n 1)))<br />         (T (chr (chr (+ 48 i)))))))<br />   )    <br /> <br /> ;;;<br /> (defun DD_NUM->BIN (i / lst)<br />   (while (> i 0)<br />     (setq lst (cons (rem i 2) lst)<br />           i   (lsh i -1)))<br />   lst<br /> )<br /> <br /> ;;—————————————————END—————————————————<br />