;;;   Parabol.lsp
;;;   Copyright (C) 2006, Kadmaster www.autocadokulu.com
;;; 
;;;   ;;;
;;;   
;;;   
(defun c:parabol ()
(setvar "cmdecho" 0)
(prompt "nParabol formu ax^2+bx+c.")
(prompt "nKadmaster ulu insan tarafından hazırlanmıştır!!!")
(setq a (getreal "na: için değer gir ")
      b (getreal "nb: için deÄŸer gir ")
      c (getreal "nc: için deÄŸer gir ")
   xmin (getreal "nminimum x için baÅŸlangıc deÄŸerini girin ")
   xmax (getreal "nminimum x için bitiÅŸ deÄŸerini ")
)
(while (<= xmax xmin)
      (prompt "nMaximum x deÄŸeri minimum x deÄŸerinden az olmamalı")
      (setq xmax (getreal "nx deÄŸerini tekrar gir: "))
)
(setq yxmin (+ (* xmin xmin a) (* b xmin) c)
      yxmax (+ (* xmax xmax a) (* b xmax) c)
        div (getint "nxmin ve xmax deÄŸerleri arasındaki bölmelerin sayısını gir: ")
      range (abs (- xmin xmax))
       step (/ range div)
          x xmin
)
(command "pline" (list xmin yxmin))
(while (<= x xmax)
        (command (list x (+ (* x x a) (* b x) c)))
        (setq x (+ x step))
)
(command "")
)