Học AutoLisp – Bài 2 : Một số hàm cơ bản của Autolisp

Mình tiếp tục với Bài 2 với một số hàm cơ bản nhé:

Xem lại bài 1: Các phép toán trong AutoLisp

1./ Hàm setq 

Cú pháp: (setq b1 gt1 [b2 gt2] …)

Chức năng : Gán giá trị cho 1 biến

Gán gt1 cho biến b1, gt2 cho biến b2 … Mỗi biến nhận một giá trị viết sau nó
Giá trị có thể là dữ liệu, một biến khác hoặc một biểu thức đã xác định trước đó

Ví dụ :

(setq b 5.0) -> Gán giá trị 5.0 cho biến b

(setq a b) -> gán biến b cho biến a, biến b =5.0, nghĩa là biến a cũng bằng b và a nhận giá trị 5.0

(setq c "Hoc Lisp") -> Gán giá trị chuỗi "Hoc Lisp" cho biến c

(setq d (+ 1 2 3)) -> Gán giá trị 6 cho biến d (nghĩa là biến d nhận giá trị 1+2+3=6)

2./ Hàm princ 

Cú pháp: (Princ [expr [file-desc]])

Trong đó :

+ expr : có thể là 1 chuỗi kí tự. Có thể là 1 biến, 1 biểu thức của AutoLisp

+ file-desc : Tính năng ghi ra file. Đến lúc sang bài tập về xuất dữ liệu ra file txt, mình sẽ trở lại chỗ này…

* Chức năng : In ra expr ra màn hình, dưới dòng command  của CAD.

Ví dụ 1: (princ “a+b=”) -> In ra dưới dòng command của CAD chuỗi “a+b=”

Ví dụ 2 : (princ 5.0) -> In ra dưới dòng command của CAD giá trị 5.0

Ví dụ 3:

(setq a 6.0) -> gán giá trị 6.0 cho biến a

(princ  a)  -> In ra dưới dòng command của CAD giá trị 6.0 (tức là giá trị của biến a)

Ví dụ 4 : (princ (+ 5 6)) -> -> In ra dưới dòng command của CAD giá trị 11 (tức là giá trị 5+6)

3./ Các Hàm xử lý về số học :

3.1./ Hàm khai căn bậc 2 : sqrt

Cú pháp (sqrt number)

Giải thích : Tính căn bậc 2 của 1 number

Ví dụ : (sqrt 2.0) -> return 1.1421

3.2./ Hàm lũy thừa và khai căn bậc n : Expt 

-.) Công thức tổng quát đã học hồi phổ thông:

– Cú pháp hàm Expt: (expt a b)

Hàm expt tính  lũy thừa bậc b của a, số a gọi là cơ số, số b gọi là số mũ.

Ví dụ: (expt 2 3) -> trả về 8. Vì 2 mũ 3 bằng 8

 Áp dụng hãy tính số sau bằng Lisp

4. Hàm lấy phần nguyên của một số : Hàm Fix

Cú pháp : (Fix number)

Giải thích : Lấy phần nguyên của số number

Ví dụ

[pre]
(fix 3.7) -> return 3

(fix 4.1)-> return 4

(fix 4) -> return 4

 5. Hàm chuyển thành số thực : Hàm Float

Cú pháp : (Float number)

Giải thích : Chuyển 1 số number thành số thực

Có bạn thắc mắc đã là số thì cần gì hàm chuyển về số thực nữa

Mình nghĩ đôi khi rất cần thiết vì số thì có thể là số thực hoặc là số nguyên. Nếu như mà số nguyên thì như phép chia các bạn đã thấy, nếu các đối số của hàm chia (/) đều là số nguyên thì kết quả sẽ trả về số nguyên, có thể không như ý của bạn, vì kết quả bạn muốn trả về số thực (xem lại bài các phép toán trong lisp). Lúc đó nên sử dụng hàm Float

Ví dụ :

(setq a 5 b2) -> gán giá trị 5 cho biến a, gán giá trị 2 cho biến b

(/ a b) -> return 2 (vì a và b đều là số nguyên nên kết quả là số nguyên

(/ (float a) b) -> 2.5 (Vì bạn đã chuyển 1 số a thành số thực rồi nên kết quả là 1 số thực)

Bài tập áp dụng:

– Sử dụng Hàm Fix và các hàm + – * / hãy viết hàm làm tròn số :

nếu phần thập phân của số đó >0,5 thì làm tròn đến 1,0.

Nếu phần thập phân của số đó <=0,5 thì làm tròn đến 0,5.

Ví dụ :

15,1 -> làm tròn thành 15,5

15,6 -> làm tròn thành 16,0

……..