| Xem chủ đề trước :: Xem chủ đề kế |
| Tác giả |
Thông điệp |
hochoaivandot
Quản trị
Ngày tham gia: 04/12/2011
Bài gửi: 107
Đến từ: Quảng Nam
|
 gửi: 13.11.2012 Tiêu đề: Hàm về hình học điểm |
 |
|
Nguồn Cadviet.com
Tác dụng: Trả lại điểm P trên đường thẳng nối p1 p2
K=PP1/P1P2
| Code: | (defun CV:Geom-divpoint (p1 p2 k)
(polar p1 (angle p1 p2) (* (distance p1 p2) k))
) |
_________________
Học hoài vẫn dốt
Được sửa chữa bởi hochoaivandot ngày 13.11.2012, sửa lần 1 |
|
| Chuyển lên trên |
|
 |
hochoaivandot
Quản trị
Ngày tham gia: 04/12/2011
Bài gửi: 107
Đến từ: Quảng Nam
|
| gửi: 13.11.2012 Tiêu đề: Điểm gióng của pt lên đường p1-p2 |
|
|
Nguồn: lee-mac.com
Tác dụng: Trả lại điểm gióng điểm Pt lên đường nối p1 p2
| Code: | (defun LM:ProjectPointToLine ( pt p1 p2 / nm )
(setq nm (mapcar '- p2 p1)
p1 (trans p1 0 nm)
pt (trans pt 0 nm)
)
(trans (list (car p1) (cadr p1) (caddr pt)) nm 0)
) |
_________________
Học hoài vẫn dốt |
|
| Chuyển lên trên |
|
|
hochoaivandot
Quản trị
Ngày tham gia: 04/12/2011
Bài gửi: 107
Đến từ: Quảng Nam
|
| gửi: 13.11.2012 Tiêu đề: |
|
|
Nguồn: lee-mac.com
Tác dụng: Lấy điểm đối xứng của pt qua trục đối xứng p1-p2
| Code: | (defun LM:Reflect ( pt p1 p2 / ax )
(setq ax (mapcar '- p1 p2)
p1 (trans p1 0 ax)
pt (trans pt 0 ax)
)
(trans (cons (- (+ (car p1) (car p1)) (car pt)) (cdr pt)) ax 0)
) |
_________________
Học hoài vẫn dốt |
|
| Chuyển lên trên |
|
|
|
|
|
Trợ giúp
Tìm kiếm
Nhóm làm việc
Thông tin cá nhân
Tin nhắn riêng
Đăng nhập
