New Lisp to get SUM and Total of numbers

[arash136]

I need a lisp to make a loop to do sum and save the total numbers. for example I need to run it and type in command line 5.45, 5.55, 5.89 or more  and give me a total and it doesn't matter each time how many number we are typing and each time giving us a sum and the total of numbers. May you help me please. Thank you!

[fuccaro]

(defun c:mysum()
  (setq i 0 sum 0 nr T)
  (while nr
    (setq nr (getreal (strcat "Number no " (itoa (setq i (1+ i))) "=")))
    (setq sum (+ sum (if nr nr 0)))
    )
  (princ (strcat "sum= " (rtos sum)))
  (princ)
  )

 

[hanhphuc]

command : ( + 5.45 5.55 5.89 ;|....etc....|; )

16.89

 

p/s: while inputting decimal <10, eg: '0.4' you can not suppress 0 as '.4' , zero '0' must be included, ie: 0.4 

[BIGAL]

Fuccaro not sure why need nr T and double check, this worked ok. Happy to take comments about method not right

 

Also CAL note Briscad opens a calculator.

Cal 23+42+36 enter it does much more than + - / etc.

 

hanhphuc nice idea.

 

(defun c:mysum()
  (setq i 0 sum 0 )
  (while   (setq nr (getreal (strcat "Number no " (itoa (setq i (1+ i))) "=")))
    (princ (strcat "sum= " (rtos  (setq sum (+ sum  nr)) 2 3) " "))
    )
  (princ)
)
(c:mysum)

 

Edited March 25, 2020 by BIGAL

[fuccaro]

@Bigal

I don't use AutoCAD these days and I decided to play Lisp when I have some time. And you know: if you (read: I) don't use it, you loose it.

I remember years ago my fingers running on the keybord and usually the programs used to run more or less from the first try.

Yes, I see that it works without that nr T too. We all know that a code can be more or less efficient. Maybe next time I will perform better.

Have a nice and virus free day!

[BIGAL]

I just thought that maybe there was a reason that I was missing with just doing (while. 

 

Thinking a bit more I am pretty sure did something in past.

enter 1st number

type +123.45 etc

follow with -23 +56.35 /23.2 it looks at the 1st character in a string and does that math action so much more than just +

 

Did the same for draw ortho lines L123 u45 r65.78 etc.

 

Had a few minutes

(defun c:alscalc ( / ans txt calc)
(setq ans (getreal "Enter 1st number "))
(setq calc "")
(while (/= (setq txt (getstring (strcat "\Enter calculation +-/*  Enter to exit " (rtos ans 2 3) " "))) "")
(setq calc (strcat calc " " txt))
(setq is (substr txt 1 1 ))
(setq num (atof (substr txt 2)))
(cond
((= is "/")(setq ans (/ ans num)))
((= is "+")(setq ans (+ ans num)))
((= is "-")(setq ans (- ans num)))
((= is "*")(setq ans (* ans num)))
)
)
(alert (strcat calc "\n\nAnswer =  " (rtos ans 2 3)))
(princ)
)

 

 

Edited March 26, 2020 by BIGAL