Đến nội dung


Hình ảnh
- - - - -

Bạn nào có ý tưởng nào hay về thuật toán để giải quyết vấn đề này không ?


  • Please log in to reply
48 replies to this topic

#41 Skywings

Skywings

    biết lệnh erase

  • Members
  • PipPipPip
  • 102 Bài viết
Điểm đánh giá: 46 (tàm tạm)

Đã gửi 28 April 2013 - 04:51 PM

Rất tuyệt vời :blink:, đúng là mở mang đc tầm mắt  :D  !!

Chỉ có 1 góp ý nho nhỏ, bác nên thêm dòng (vl-load-com) ở đầu code vì nhiều bạn ko biết lisp sẽ ko biết bổ sung vào; xoá cái râu ria "<span>" trong hàm con Cuctri thì chương trình mới chạy đc :).


  • 0

#42 Doan Van Ha

Doan Van Ha

    biết lệnh adcenter

  • CADViet Team
  • PipPipPipPipPipPipPip
  • 5454 Bài viết
Điểm đánh giá: 2626 (tuyệt vời)

Đã gửi 28 April 2013 - 05:20 PM

Rất tuyệt vời :blink:, đúng là mở mang đc tầm mắt  :D  !!

Chỉ có 1 góp ý nho nhỏ, bác nên thêm dòng (vl-load-com) ở đầu code vì nhiều bạn ko biết lisp sẽ ko biết bổ sung vào; xoá cái râu ria "<span>" trong hàm con Cuctri thì chương trình mới chạy đc :).

(vl-load-com): đánh chết cái nết không chừa... hay quên.

CV kỳ lắm. Post bài lên tự dưng sinh cái <span> ngẫu hứng. Vào edit không được (vì code lisp trống trơn), góp ý BQT hoài không thấy nhúc nhích.

Đành xóa đi code lại vậy.


  • 0

* Chỉ nên yêu cầu Lisp khi bạn làm việc đó mất cả ngày nhưng họ chỉ viết 1 giờ. Đừng nêu yêu cầu Lisp khi bạn chỉ làm 1 giờ nhưng bắt họ phải mất cả ngày.

* Nhờ viết lisp cũng như đi khám bệnh. Chỉ gởi căn cước và than sắp chết thì không bác sỹ nào cứu sống được.


#43 gia_bach

gia_bach

    biết lệnh adcenter

  • CADViet Team
  • PipPipPipPipPipPipPip
  • 1436 Bài viết
Điểm đánh giá: 1426 (rất tốt)

Đã gửi 29 April 2013 - 02:53 PM

@ Hà :

Thuật toán này ở đâu ra nhỉ ?

(* (/ Spp (+ Sp Spp)) (- (car p2) (car (Cuctri lstx))))

Hay quá mà đọc hoài chưa thông được! (kiểm tra thì cho k/quả đúng) 

Hà có thể share ý tường này?

Thanks!


  • 0

#44 Doan Van Ha

Doan Van Ha

    biết lệnh adcenter

  • CADViet Team
  • PipPipPipPipPipPipPip
  • 5454 Bài viết
Điểm đánh giá: 2626 (tuyệt vời)

Đã gửi 29 April 2013 - 04:36 PM

 Hà :

Thuật toán này ở đâu ra nhỉ ?

(* (/ Spp (+ Sp Spp)) (- (car p2) (car (Cuctri lstx))))

Hay quá mà đọc hoài chưa thông được! (kiểm tra thì cho k/quả đúng) 

Hà có thể share ý tường này?

Thanks!

Cái này có thuật toán gì đâu, chỉ là biến đổi toán học dựa vào hình học thôi mà. Tôi chứng minh cho phía bên trái nhé!

67029_chia_dien_tich_2.png


  • 3

* Chỉ nên yêu cầu Lisp khi bạn làm việc đó mất cả ngày nhưng họ chỉ viết 1 giờ. Đừng nêu yêu cầu Lisp khi bạn chỉ làm 1 giờ nhưng bắt họ phải mất cả ngày.

* Nhờ viết lisp cũng như đi khám bệnh. Chỉ gởi căn cước và than sắp chết thì không bác sỹ nào cứu sống được.


#45 Song Nhi

Song Nhi

    biết vẽ rectang

  • Members
  • PipPip
  • 83 Bài viết
Điểm đánh giá: 52 (tàm tạm)

Đã gửi 02 May 2013 - 05:02 PM

Sao bác Garupro không có ý kiến gì hết vậy?!!

 

....

Nhưng nếu Garupro có thể chấp nhận thế này thử:

 

1. Cho H cố định, nghĩa là đường điều phối xác định, nằm ngang cũng được (giả sử xiên cũng được).

2. Cho B biến đổi, để 2 đường thẳng qua M và N tự do di chuyển, không còn ràng buộc nhau bằng B.

 

Khi đó, bài toán có thể giải quyết được, tôi tạm gọi là phương pháp “dao động tắt dần”. Và chúng ta giải quyết bằng một cách chung cho cả 2 nhánh đường cong, như sau:

 

22665_h1.jpg

 

@ Vì không biết mục đích Garupro sử dụng LISP này vào trường hợp cụ thể nào – nên mình mạo muội – mong các bạn đừng cho là spam! Mời các Mem tiếp tục viết giúp bạn í!

 

 

Cảm ơn bạn theo cách của bạn thì đoạn MN sẽ không còn chiều dài cố định nữa, và đường điều phối mình phải tự vạch. Cách này thì trước đây mình có hỏi và hiện tại đã giải quyết được. Giờ mình muốn nó tự xác định cái đường PQ thỏa mãn 2 điều kiện W1=W2 ^ W3=W4 và MN không đổi cơ nhưng mình nghĩ là sẽ có trường hợp cả hai không hội tụ tại 1 điểm  vậy thử theo hướng khác xem : Là MN không cố định nữa mà có chiều dài phải <= 1 đoạn L nào đó (Do mình nhập) liệu có được không nhỉ. Còn nếu vẫn khó khăn thì ta phải xét đến trường hợp là người dùng tự kẻ đường PQ, sau đó tự phân chia W1=W2 ^ W3=W4 và thỏa mãn MN <= L như vậy bài toán chắc đơn giản hơn. Các bạn xem giúp mình. Thank

 

Bác lyky đã đề nghị bạn giải quyết lần lượt cho từng nhánh, bác đã trả lời là: "Cách này thì trước đây mình có hỏi và hiện tại đã giải quyết được" giờ lại hỏi lại?


  • 0

#46 Doan Van Ha

Doan Van Ha

    biết lệnh adcenter

  • CADViet Team
  • PipPipPipPipPipPipPip
  • 5454 Bài viết
Điểm đánh giá: 2626 (tuyệt vời)

Đã gửi 02 May 2013 - 10:03 PM

Chắc chủ TP bận cái gì đó quan trọng hơn lisp chứ không đến nỗi ném đá xuống hồ để xem sóng đâu! Bởi không ai ném đá xuống hồ được 2 lần.


  • 1

* Chỉ nên yêu cầu Lisp khi bạn làm việc đó mất cả ngày nhưng họ chỉ viết 1 giờ. Đừng nêu yêu cầu Lisp khi bạn chỉ làm 1 giờ nhưng bắt họ phải mất cả ngày.

* Nhờ viết lisp cũng như đi khám bệnh. Chỉ gởi căn cước và than sắp chết thì không bác sỹ nào cứu sống được.


#47 garupro

garupro

    biết vẽ circle

  • Members
  • PipPip
  • 34 Bài viết
Điểm đánh giá: 7 (bình thường)

Đã gửi 03 May 2013 - 04:34 PM

Sao bác Garupro không có ý kiến gì hết vậy?!!

 

 

 

 

Bác lyky đã đề nghị bạn giải quyết lần lượt cho từng nhánh, bác đã trả lời là: "Cách này thì trước đây mình có hỏi và hiện tại đã giải quyết được" giờ lại hỏi lại?

 

Xin lỗi, mấy nay bận quá không có thời gian vô TP được.

 

Cái này không phải mình hỏi lại lần hai. Thực ra mình đang làm phần mềm liên quan đến phần điều phối đất. Đến phân chia mảnh thì mình bí quá .Theo bác lyky thì chỉ dịch chuyển cái đường thẳng đứng để W1=W2 còn đường điều phối, và đoạn MN ko cố định nữa thì trước đây mình có hỏi trên CV rùi.

Bạn Song Nhi để ý cách của bạn lyky  và TP mình đưa ra hoàn toàn khác nhau mà.


  • 0

#48 garupro

garupro

    biết vẽ circle

  • Members
  • PipPip
  • 34 Bài viết
Điểm đánh giá: 7 (bình thường)

Đã gửi 03 May 2013 - 04:36 PM

Cái này có thuật toán gì đâu, chỉ là biến đổi toán học dựa vào hình học thôi mà. Tôi chứng minh cho phía bên trái nhé!

67029_chia_dien_tich_2.png

Cảm ơn bác . Thuật toán hay quá, không phải dịch chuyển để dò vị trí nữa. Nhưng mình có một thắc mắc là cái CD thì biết, vậy S1, S2, S3, S4 thì xác định kiểu gì khi mà chưa có EC


  • 0

#49 Doan Van Ha

Doan Van Ha

    biết lệnh adcenter

  • CADViet Team
  • PipPipPipPipPipPipPip
  • 5454 Bài viết
Điểm đánh giá: 2626 (tuyệt vời)

Đã gửi 03 May 2013 - 05:00 PM

Cảm ơn bác . Thuật toán hay quá, không phải dịch chuyển để dò vị trí nữa. Nhưng mình có một thắc mắc là cái CD thì biết, vậy S1, S2, S3, S4 thì xác định kiểu gì khi mà chưa có EC

Không cần biết từng em S1, S2, S3, S4. Chỉ cần biết (S1+S4) và (S2+S3) là được (xem công thức của tôi ở trên). Việc xác định (S1+S4) và (S2+S3) thì chỉ là tính diện tích của hình tạo bởi 1 list points đã biết thôi.


  • 0

* Chỉ nên yêu cầu Lisp khi bạn làm việc đó mất cả ngày nhưng họ chỉ viết 1 giờ. Đừng nêu yêu cầu Lisp khi bạn chỉ làm 1 giờ nhưng bắt họ phải mất cả ngày.

* Nhờ viết lisp cũng như đi khám bệnh. Chỉ gởi căn cước và than sắp chết thì không bác sỹ nào cứu sống được.