Parabol çizen lisp
Kadmaster - 18.09.2006 13:47
Buraya tıklayarak açılan pencereden AutoLISP kodlarını Ctrl + C ile kopyalayabilirsiniz
Kod:
;;; 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 "")
)
;;; 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 "")
)
Yazar: Kadmaster
İçerik: autocadokulu.com
Tag: parabol çizmek, parabol çizen lisp, autolisp, lisp, lsp
Yorumlar :
varedero 17.04.2013 12:56 #15074
na , nb, nc değerleri derken ne kastediliyor? lisp in açıklamasını bulamadım. Çalışma mantığı nedir?
rana-aksu 17.03.2012 12:28 #14546
komutu parabol olması lazım
identify 07.10.2011 11:35 #14315
İyi hoşta komut yazmamışın be usta
enginaltan 15.07.2010 18:16 #13095
komutunu da yazarsaniz sevinirim