→ sjgau:畫出來的圖形，如上面的 連結 05/04 08:23
; file name: d:\plot-fx.lsp
; plot y= f(x) 的函數圖形
; x= x1 to x2 step dx do ...
; dx= (x2 - x1)/no
; no= ???, 以下為設定 32個等分
(setq no 32)
; 以下為設定 x1, x2, dx= ???
(setq x1 (- 1.0 2.0) x2 (+ 1.0 2.0))
(setq dx (/ (- x2 x1) no))
; 為了避免浮點數的運算誤差，導致最後一個點被忽略，
; 必須把 x2 往外面推出去 一點點
; x2= x2 + 0.1*dx
(setq x2 (+ x2 (* 0.1 dx)))
(command "spline")
; for x= x1 to x2 step dx do ...
(setq x x1)
(while (<= x x2)
; plot y= fx(x) 的函數圖形
(setq y (+ (* x x) (* -2.0 x) -1.0))
(command (list x y))
(setq x (+ x dx))
); end while
(command "" "" "")
(princ)
; end of file
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 118.231.67.192