Read from LISP in QuickCalc

[b.ssss.12]

Hi,


I have LISP for drawing function

(defun mfc (x)
(+ 0 (* aaa x x x) (* bbb x) ccc)
)

(defun drawfc ()
(command "._pline")
(while (< start ende)
(command (list start (mfc start)))
(setq start (+ start delta))
)
(command (list ende (mfc ende)) "")
)

(defun c:drawfunc (/ aaa bbb ccc start ende delta)
(setvar "CMDECHO" 0)
(setq aaa (getreal "\nvalue a: "))
(setq bbb (getreal "\nvalue b: "))
(setq ccc (getreal "\nvalue c: "))
(setq start (getreal "\nStart value (X): "))
(setq ende (getreal "\nEnd value (X): "))
(setq delta (getreal "\nPrecision: "))
(drawfc)
(princ)
)

How can I read values (aaa bbb ccc) from LISP in QuickCalc? Can I run QC from LISP?

I would like calculate "y" value for defined "x" value of these function... "x" is value I would like put in command line...

Thanks in advance...

[TimSpangler]

Hi,


I have LISP for drawing function



How can I read values (aaa bbb ccc) from LISP in QuickCalc? Can I run QC from LISP?

I would like calculate "y" value for defined "x" value of these function... "x" is value I would like put in command line...

Thanks in advance...

Why are you using quick calc?

[b.ssss.12]

I would like to use quickcalc for calculate "y" values....

[Tharwat]

You can use the direct calculator from AutoCAD which is CAL
and so on ...

Regards

Tharwat

[alanjt]

or you could just do the math with LISP. No need for anything else.

[Tharwat]

exactly .... for example (+ 1 1) = 2

Regards
Tharwat313

[TimSpangler]

or you could just do the math with LISP. No need for anything else.

'
That was my thought, just wasn't sure of his needs.

[alanjt]

'
That was my thought, just wasn't sure of his needs.

Nor I.......

[b.ssss.12]

I get LISP

(defun prov (/)
(setq aaa (getreal "\nvalue a: "))
(setq bbb (getreal "\nvalue b: "))
(setq ccc (getreal "\nvalue c: "))
)

(defun mfc (x)
(+ 0 (* aaa x x) (* bbb x) ccc)
)

(defun drawfc ()
(command "._pline")
(while (< start ende)
(command (list start (mfc start)))
(setq start (+ start delta))
)
(command (list ende (mfc ende)) "")
)

(defun c:drawfunc (/ start ende delta)
(setvar "CMDECHO" 0)
(setq start (getreal "\nStart value (X): "))
(setq ende (getreal "\nEnd value (X): "))
(setq delta (getreal "\nPrecision: "))
(prov)
(drawfc)
(princ)
)

(defun C:prov (/ x)
(setq x (getreal "\nvalue x: "))
(alert (strcat "rezultat je " (rtos (+ 0 (* aaa x x) (* bbb x) ccc))))
)

But I apologize, I would like find minimum of function... Which "x" is for minimum "y"...

[irneb]

But I apologize, I would like find minimum of function... Which "x" is for minimum "y"...

You could use the min function:

(min 10.2 12.4 6.2 6.3 8.9) ;--> 6.2