Xóa bớt đỉnh

[phamthanhbinh 3.146]

Mình đã thử thay số 0.0000001 bằng (/ 5 180) ở các dòng 43, 51, 52 và 65 nhưng không thực hiện được. Bác kiểm tra lại giúp nhé!

Hề hề hề,

Mình chưa hiểu bác thay ở những dòng nói trên trong lisp là vì sao bởi thực tế trong lisp chỉ có duy nhất một dòng code có chứa (equal ang1  ang2  0.0000001)

các dòng khác tuy có chứa (equal ....0.0000001) nhưng đối số của nó không phải là góc đâu nên sử dụng tham số (5/180) đâu có được bởi yêu cầu các đối số này phải trùng nhau gần như hoàn toàn cơ mà.

Bác thử check lại xem nhé.

[ndtnv 481]

Hề hề hề,

Mình chưa hiểu bác thay ở những dòng nói trên trong lisp là vì sao bởi thực tế trong lisp chỉ có duy nhất một dòng code có chứa (equal ang1  ang2  0.0000001)

các dòng khác tuy có chứa (equal ....0.0000001) nhưng đối số của nó không phải là góc đâu nên sử dụng tham số (5/180) đâu có được bởi yêu cầu các đối số này phải trùng nhau gần như hoàn toàn cơ mà.

Bác thử check lại xem nhé.

2 góc chênh nhau 5/180 có thể chênh 2Pi  - 5/180 -> 2Pi

 

(or (equal ang1  ang2  saiso) (equal (* 2 pi) (abs (- ang1  ang2)) saiso))

[Doan Van Ha 3.180]

(/ 5 180) >> 0

[phamthanhbinh 3.146]

(/ 5 180) >> 0

Hề hề hề,

Quên béng mất cái vụ phép chia có đối số là các số nguyên. Sorry các bác. Cần đổi lại là (/ 5.0 180)

 

PS: Kết hợp với sự hướng dẫn của bác ndtnv phải sửa đoạn code (equal ang1 ang2 0.0000001) thành:

(or (equal ang1 ang2 (* pi (/ 5.0 180))) (equal (* 2 pi) (abs (- ang1 ang2)) (* 2 pi) (abs (- ang1 ang2)) (* pi (/ 5.0 180))))

 

Rất mong các bác tha lỗi vì cái sự kém hiểu biết nên đã nhầm lẫn và không xét hết các trường hợp.

[hiepttr 538]

Cái lisp giảm béo của bác Bình phải bổ sung thế nào nữa để thêm chức năng giảm béo khi cạnh nhỏ hơn 1 giá trị nhập vào các bác nhỉ ?!

(mới biết đc mấy chữ mà gặp mấy anh Lisp quá "hầm hố" nên ko dám sửa :D  

Vì mình đang cần gấp nó cho công việc mà tự sửa dẫn đến sai thì công sức đi toi ! Mong đc giúp đỡ)

Thanks !