[Yêu cầu] Lisp nội suy lưới tam giác, ed vào text trong blog att

[bach1212 4]

hic quên mất, trả lời bài #21 của tot77 bạn nhé  :)

[bach1212 4]

@phamthanhbinh: phần mềm nova do công ty hai hoa phát triển, dựa trên việc lập lưới tam giác.
nên theo mình là nội suy tuyến tính thôi. 

[Tot77 508]

Gửi bạn cái file của bạn trong đó có những vòng tròn tôi check như sau:

- Vòng màu đỏ là do hoặc bạn sai sót khi ed, hoặc nova tính sao đó mà trị số đều > max các cao độ chung quanh, hoặc < min.

- Vòng màu vàng là có sự sai biệt giữa nova và lisp, tôi đang xem lại tại sao khác.

Text nằm giữa vòng tròn là (trị số màu cyan) là trị của lisp tính.

 

http://www.cadviet.com/upfiles/3/127168_aaa2.dwg

[bach1212 4]

sory tot77, quên mất là 6 cái nút dưới cùng là đã dùng lisp để tính mà chưa xoá đi chứ ko phải nova tính. 6 nút đó là chỗ có nhìu vòng tròn đỏ nhất. 

 

 

Có nhìu con số bạn dùng lisp tính ra khác, mà mình dùng lisp tính ra khác nhỉ. (trong vòng tròn vàng của 6 cái nút dùng lisp này ấy)  :)

[Tot77 508]

Tôi đã sửa lại lisp, nhưng vẫn chưa hoàn toàn giống với nova, chừng nào tìm ra nguyên nhân khác biệt sẽ đưa lisp lên.

[Tot77 508]

Gửi file lisp "tương đối" gần giống nova.

Ngoài lệnh "test" như trước còn có thêm lệnh "tes" để kiểm tra block có sẵn, nếu trị của nova và lisp khác nhau trên 0.05m thì nó vẽ vòng tròn màu đỏ, bên trong có ghi text là trị của lisp.

http://www.cadviet.com/upfiles/3/127168_tmp1_42.lsp

[Tot77 508]

Sửa lại chút xíu, dòng cuối cùng

(setvar "CMDECHO" 0) -> (setvar "CMDECHO" 1)

[ndtnv 481]

Test thử 3 điểm trong vòng tròn màu 5

2 tam giác màu 1 là lệnh test dùng nội suy.

Cách tìm tam giác để nội suy chưa ổn. Có tam giác còn chứa điểm khác

Nếu dùng 2 tam giác màu 4 để nội suy kq giống Nova.

Riêng đối với điểm phía dưới có lẽ edit sai vì 5.70 nhỏ hơn cả 3 điểm xung quanh

http://www.cadviet.com/upfiles/3/19626_ns.dwg

[Doan Van Ha 3.200]

Bài toán này không đơn giản tí nào. Tôi đã nói ở bài #21, đó là phải tạo được hệ lưới tam giác Dalaunay (google sẽ có). Các tam giác của lưới này không bao giờ giao nhau!

Các bài toán về tính cao độ, vẽ đường đồng mức, vẽ mặt cắt, tính khối lượng san lấp... đều dựa vào lưới Dalaunay.

Nova cũng tính cao độ điểm dựa vào lưới tam giác Dalaunay, do đó, kết quả nói chung là khác lisp này.

[bach1212 4]

Cảm ơn tất cả các bạn, đặc biệt bạn tot77, test lại thì thấy khá ổn, so với nova là khoảng 96% kết quả tương đồng.  :) Thường kết quả sai khác ở rìa do cao độ thưa nên lưới mỏng, tam giác to. Còn ở trung tâm, lưới tam giác dày, nhỏ hơn thì là kết quả chính xác hơn.
Gửi các bạn cách tạo lưới của Nova: để các bạn nghiên cứu thêm. 
http://www.cadviet.com/upfiles/3/40304_luoi.rar

 

[levanhuong1989 50]

Gửi file lisp "tương đối" gần giống nova.

Ngoài lệnh "test" như trước còn có thêm lệnh "tes" để kiểm tra block có sẵn, nếu trị của nova và lisp khác nhau trên 0.05m thì nó vẽ vòng tròn màu đỏ, bên trong có ghi text là trị của lisp.

http://www.cadviet.com/upfiles/3/127168_tmp1_42.lsp

 

Em cũng đang cần 1 lisp nội suy nhưng dowload theo link của bác Tot77 không được, nhờ bác up lại lên để em cùng mọi thành viên có thể dowload được.

Cảm ơn bác!