末尾数字乘积取整及单个加15,

chenbh2

       这是论坛内下载在文本末尾整数进行四则运算的lisp,本想自己
修改下,搞了好久,都没有修改好,特向高手请教或帮修改下!!
要求功能如下:
     每个数字增加15后,再乘以1.03倍数取末尾数为5或0的整数!
不知道描述清楚了没有
感谢版主回复!
比如单行文字100   则100+15=115*1.03=118.4(取整5或0)=120
比如单行文字230   则230+15=245*1.03=252.35(取整5或0)=255
另框选线段会外角平分线能不能帮我做个源码给我!!

lijiao

(* 5 (fix (+ 0.5 (/ (* 1.03 (+ x 15)) 5.0))))

lijiao

学过数学的人不会这样写：100+15=115*1.03=118.4

fl202

2. (while (setq n1 (getreal "\n input:"))
   
3.            (repeat 24
   
4.            (setq n2 (* 1.03 (+ n1 15)))           
   
5.            (if (equal (fix (/ n2 5)) (/ n2 5))
   
6.            (setq n3 (* (/ n2 5) 5))
   
7.            (setq n3 (* (+ 1  (fix (/ n2 5))) 5)) )
   
8.            (princ (list n1 n2 n3 ) )   
   
9.            (setq n1 (+ n1 0.5))        
   
10.            )
    
11.         )

(while (setq n1 (getreal "\n input:"))<br />            (repeat 24 <br />            (setq n2 (* 1.03 (+ n1 15)))           <br />            (if (equal (fix (/ n2 5)) (/ n2 5))<br />            (setq n3 (* (/ n2 5) 5))<br />            (setq n3 (* (+ 1  (fix (/ n2 5))) 5)) )<br />            (princ (list n1 n2 n3 ) )   <br />            (setq n1 (+ n1 0.5))        <br />            )<br />         )

input:7.8
(7.8 23.484 25)(8.3 23.999 25)(8.8 24.514 25)(9.3 25.029 30)(9.8 25.544
30)(10.3 26.059 30)(10.8 26.574 30)(11.3 27.089 30)(11.8 27.604 30)(12.3 28.119
30)(12.8 28.634 30)(13.3 29.149 30)(13.8 29.664 30)(14.3 30.179 35)(14.8 30.694
35)(15.3 31.209 35)(15.8 31.724 35)(16.3 32.239 35)(16.8 32.754 35)(17.3 33.269
35)(17.8 33.784 35)(18.3 34.299 35)(18.8 34.814 35)(19.3 35.329 40)

chenbh2

lijiao 发表于 2015-3-16 09:18
学过数学的人不会这样写：100+15=115*1.03=118.4

谢谢回复!谢谢指教!!
请问能不能帮我将附件的lisp修改下?
附件只能乘以整数.

chenbh2

lijiao 发表于 2015-3-16 09:17
(* 5 (fix (+ 0.5 (/ (* 1.03 (+ x 15)) 5.0))))

谢谢!,已消化代码!
请谅解,文化好差!

xyp1964

2. (defun abc (x / n1 n2 n3 n4)
   
3.   (setq n1 (fix (* (+ x 15) 1.03))
   
4.         n2 (/ n1 10.)
   
5.         n3 (distof (rtos n2 2 0))
   
6.         n4 (cond ((> n3 n2) (* n3 10))
   
7.                  ((= n3 n2) n1)
   
8.                  ((< n3 n2) (+ (* n3 10) 5))
   
9.            )
   
10.   )
    
11.   (fix n4)
    
12. )

(defun abc (x / n1 n2 n3 n4)<br />   (setq n1 (fix (* (+ x 15) 1.03))<br />         n2 (/ n1 10.)<br />         n3 (distof (rtos n2 2 0))<br />         n4 (cond ((> n3 n2) (* n3 10))<br />                  ((= n3 n2) n1)<br />                  ((< n3 n2) (+ (* n3 10) 5))<br />            )<br />   )<br />   (fix n4)<br /> )

lijiao

252.35在250与255之间，但与250更接近，应圆整为250