Chuyển đến nội dung
Diễn đàn CADViet
  • Thông báo

    • Nguyen Hoanh

      CADViet đã hoàn tất nâng cấp   14/09/2017

      Chào các bạn, CADViet đã hoàn tất việc nâng cấp lên phiên bản mới. Tất cả các chức năng đã hoạt động theo kỳ vọng của ban quản trị. Nếu có vấn đề gì cần phản hồi, các bản post ở đây nhé: Trân trọng, Nguyễn Hoành.
Jin Yong

Hỏi về Lisp (thuật toán, ý tưởng, coding,...)

Các bài được khuyến nghị

Detailing    278

Ơ hay! kA và kB là các hằng số đã biết thì quan hệ giữa kA và kB là đã biết rồi, và bài toán 2 điểm thì giải được chứ sao lại không!

Nhắc lại cho rõ đề: các hằng số kX là đã biết, không phụ thuộc vị trí M.

Bạn biết chứ mình đã biết đâu,

nếu mình giả sử

Ka =1 and Kb =2 => M ?? 

Ka = 2 and Kb = 1 => M ??

Ka = 100 and Kb = 1 => M ??

hay có gì đó mình ko hiểu nhỉ??

Chia sẻ bài đăng này


Liên kết tới bài đăng
Chia sẻ trên các trang web khác
ndtnv    396

Ai biết thuật toán này tên gì không mách bảo tí để tìm hiểu:

Cho n điểm A,B,C,D,E... (gọi chung là các điểm X) trên m.phẳng. M là điểm di động. Các chi phí đơn vị từ M đến X là kX (đã biết). MX là các khoảng cách từ M đến X.

Tìm vị trí điểm M sao cho tổng chi phí là nhỏ nhất:

(MA*kA+MB*kB+MC*kC+MD*kD+ME*kE+...) -> Min

Bạn search Bài toán cực trị của hàm nhiều biến, ở đây là hàm 2 biến

fz = Σ{ki*sqrt[ (xi-x)^2 + (yi-y)^2 ]}

Chia sẻ bài đăng này


Liên kết tới bài đăng
Chia sẻ trên các trang web khác
quocmanh04tt    385

@Detailing: (Theo kiểu C#)

baitoaquyhoachtuyentinh = Bài toán quy hoạch tuyến tính;

baitoanvantai = Bài toán vận tải;

baitoancuabacha = Bài toán của bác Hạ;

 

=>

baitoaquyhoachtuyentinh.baitoanvantai​.baitoancuabacha

Chia sẻ bài đăng này


Liên kết tới bài đăng
Chia sẻ trên các trang web khác
Doan Van Ha    2.676

Bài toán nó thế này đây (xin đừng hỏi các giá trị kX bằng bao nhiêu, kệ nó, tổng quát là thế).

Tôi chỉ hỏi ai biết bài toán này có tên thuật toán quen thuộc nào để tự nghiên cứu.

67029_trung_tam_phu_tai.png

Chia sẻ bài đăng này


Liên kết tới bài đăng
Chia sẻ trên các trang web khác
quocmanh04tt    385

@Doan Van Ha: Nhắc như thế mà bác không nhớ, có lẽ ngày xưa bác không được học môn QUY HOẠCH TUYẾN TÍNH (Hình như Xây dựng, Giao thông được học môn này, trường khác thì không biết sao...)

Đây bác (về mặt thuật toán): https://vi.wikipedia.org/wiki/B%C3%A0i_to%C3%A1n_v%E1%BA%ADn_t%E1%BA%A3i

Chia sẻ bài đăng này


Liên kết tới bài đăng
Chia sẻ trên các trang web khác
Doan Van Ha    2.676

@Doan Van Ha: Nhắc như thế mà bác không nhớ, có lẽ ngày xưa bác không được học môn QUY HOẠCH TUYẾN TÍNH (Hình như Xây dựng, Giao thông được học môn này, trường khác thì không biết sao...)

Đây bác (về mặt thuật toán): https://vi.wikipedia.org/wiki/B%C3%A0i_to%C3%A1n_v%E1%BA%ADn_t%E1%BA%A3i

Bạn xem lại lý thuyết bài toán vận tải giùm tí xem có giống đề toán này không nhé. Bài toán của tôi là tìm vị trí điểm M sao cho chi phí bé nhất.

Chia sẻ bài đăng này


Liên kết tới bài đăng
Chia sẻ trên các trang web khác
Detailing    278

@quocmanh04tt: về cách viết và thuật toán thì sai bạn à, bài toán của Doan Van Ha ko thuộc về bài toán vận chuyển do đó ko nằm trong bài toán tuyến tính. :D

@Doan Van Ha: bạn tự giải với 2 điểm, 3 điểm thì chắc sẽ giải được, để tận dụng máy tính thì áp dụng thử dần, Bài toán của bạn tương đối giống với bào toán tìm đường ngắn nhất nhưng độ phức tạp chắc gấp nhiều lần.

Chia sẻ bài đăng này


Liên kết tới bài đăng
Chia sẻ trên các trang web khác
Doan Van Ha    2.676

Trong "Ai là triệu phú" MC Lại Văn Sâm luôn nói câu "Ai biết chắc chắn thì xin trợ giúp" nhưng đa số vẫn trả lời cho có trả lời. Chán như con gián.

Chia sẻ bài đăng này


Liên kết tới bài đăng
Chia sẻ trên các trang web khác
quocmanh04tt    385

Uh, nhầm!

@Detailing: ở trên ý là diễn giải cái này nằm trong cái kia, không phải là cách viết và thuật toán, không phải là bài toán vận chuyển thì chưa chắc là không phải tuyến tính... :D

@Doan Van Ha: Cụ thể bài toán của bác giống bài toán này:

.Tùy theo trường hợp cụ thể mà ta có các cách giải quyết khác nhau, chủ yếu chọn
vị trí đặt kho theo yêu cầu chi phí vận chuyển nhỏ nhất.
Hàm mục tiêu có dạng:

G = Tong (ci.qi.li) =>min
Với G_tổng giá thành vận chuyển từ kho đến các điểm tiêu thụ.
ci_giá thành vận chuyển cho 1 tấn vữa/km.
qi_ khối lượng vữa cung ứng cho từng điểm tiêu thụ.
li_khoảng cách từ điểm cung ứng đến từng điểm tiêu thụ.
Có thể giải bài toán theo phương pháp giải tích, phương pháp Gradien_bài toán
quy hoạch phi tuyến.

P/s: Trích từ giáo trình tổ chức thi công.

Chia sẻ bài đăng này


Liên kết tới bài đăng
Chia sẻ trên các trang web khác
Detailing    278

Trong "Ai là triệu phú" MC Lại Văn Sâm luôn nói câu "Ai biết chắc chắn thì xin trợ giúp" nhưng đa số vẫn trả lời cho có trả lời. Chán như con gián.

Bạn add câu này vô signature để nhắc nhở mọi người luôn, bây giờ mình nhớ rồi :D.

Chia sẻ bài đăng này


Liên kết tới bài đăng
Chia sẻ trên các trang web khác
quansla    232

[Hỏi]

Các bác làm ơn cho hỏi , trong khi viết LISP đến phần hộp thoại Dialog thì trong cấu trúc cú pháp LISP làm thế nào để căn chỉnh độ rộng các dòng cho đồng đều

Chẳng hạn em có CODE như sau:

  


quan_thong_so : dialog {label = "THIET LAP THONG SO CHO TINH TOAN THONG KE THEP";

  :row{

     :boxed_column{label = "Thong so chinh";

        :popup_list {key = "lt_L"; label = "Lam tron cho L (chieu dai 1 thanh)          .";width = 3;}

        :popup_list {key = "lt_TongL"; label = "Lam tron cho TongL (chieu dai Toan bo CK)   .";width = 3;}

        :edit_box {key = "L1t"; label = "Chieu dai 1 thanh thep (11700 mm)           .";width = 3;}

        :edit_box {key = "Noi"; label = "He so noi thep (30D)                        .";width = 3;}

        :popup_list {key = "lt_Noi"; label = "Boi lam tron moi noi (25,50,100)            .";width = 3;}

        }

      :boxed_column{label = "TT";

         }

       }

   ok_cancel;

   }

 

 

 

Khi đó nếu dùng Vlisp vào Tools/ Interface Tools/ Preview DCL Editor thì bảng hiện lên không có độ rộng đều nhau, dù em đã cố gắng để string của các mục có tổng chữ cái như nhau mà không được

Các bác có phương án nào khác không ạ?

xin cảm ơn

Chia sẻ bài đăng này


Liên kết tới bài đăng
Chia sẻ trên các trang web khác
Doan Van Ha    2.676

Dùng chiêu này:

 

quan_thong_so : dialog {label = "THIET LAP THONG SO CHO TINH TOAN THONG KE THEP";
  :column{
     :boxed_row {label = "Thong so chinh";
       :column {
         :text {label = "Lam tron cho L (chieu dai 1 thanh)";}
         :text {label = "Lam tron cho TongL (chieu dai Toan bo CK)";}
         :text {label = "Chieu dai 1 thanh thep (11700 mm)";}
         :text {label = "He so noi thep (30D)";}
         :text {label = "Boi lam tron moi noi (25,50,100)";}
        }
       :column {
         :popup_list {key = "lt_L";}
         :popup_list {key = "lt_TongL";}
         :edit_box {key = "L1t";}
         :edit_box {key = "Noi";}
         :popup_list {key = "lt_Noi";}
        }
       }
        :boxed_column{label = "TT";
         }
       }
       ok_cancel;
   }
  • Vote tăng 1

Chia sẻ bài đăng này


Liên kết tới bài đăng
Chia sẻ trên các trang web khác
quansla    232

Dùng chiêu này:

Em cảm ơn bác rất nhiều, điều này rất có ích với em, xin cảm ơn bác

Chia sẻ bài đăng này


Liên kết tới bài đăng
Chia sẻ trên các trang web khác
quansla    232

Bạn viết dư cặp này :{column ... } . Nó nằm ở dòng thứ 2 và dòng trên ok_cancel nhé!

Thanks bác, những cái đó em có thể sửa được, và đã ứng dụng rồi, :D

Chia sẻ bài đăng này


Liên kết tới bài đăng
Chia sẻ trên các trang web khác
quantvxd    0

Chào mọi người, có thể cho em hỏi chút ý tưởng về thuật toán bảo vệ file LISP không, chẳng hạn muốn khoá file LISP để cho file đó chỉ có thể dùng cho 1 máy, trong thời gian 30ngày kề từ ngày đăng ký Lisp lần đầu, hết 30 ngày căn cứ vào mốc thời gian lúc đó tự sinh PASS đăng ký phù hợp (nếu người dùng nhập đúng sẽ cho sử dụng tiếp), khi đó người viết lissp sẽ có Lisp khác tự tạo Key phù hơpj với thời điểm đó và gửi cho Người dùng

Về cơ bản là như vậy, em muốn hỏi mọi người có ý tưởng nào có thể giúp em không. Hiện em đã làm được 1 số việc sau:

 

Hàm con:

1. Hàm lấy tên máy (tên USER máy tính), định dùng làm nhận diện máy, nhưng chưa ổn lắm không biết có cách khác không

(defun layTenUser(/ str)
  (setq str (substr (vla-get-supportpath(vla-get-files(vla-get-preferences(vlax-get-acad-object)))) 1 40)
	str (substr str (+ 7 (vl-string-search "Users\\" str)) 25)
	str (substr str 1 (vl-string-search "\\appdata" str)))
  str)
2. Hàm lấy ngày tháng hiện tại

(defun NowDate (/ DD MO RR YY) ; lay ngay hom nay
  (setq rr (rtos (getvar 'cdate) 2 8))
  (setq YY (substr rr 1 4)
	MO (substr rr 5 2)
	DD (substr rr 7 2))
  (list DD MO YY))
3. Hàm lấy ngày kết thúc dựa theo hai thống số: ngày bắt đầu (dạng list) và số ngày cho phép (dạng interger)


;; Ví dụ dùng (ngKT_tuNg (nowdate) 30)
(defun ngKT_tuNg (DStart delta)
  (setq coTh 0 coYY 0)
  (setq ngKT (+ delta (read(car DStart))))
  (if (> ngKT 30) (setq coTh 1 ngKT (rem ngKT 30)))
  (setq thKT (+ coTh (read (cadr DStart))))
  (if (> thKT 12) (setq coYY 1 thKT (rem thKT 12)))
  (setq YYKT (+ coYY (read(last DStart))))
  (mapcar '(lambda(x) (rtos x 2 0)) (list ngKT thKT YYKT))
  (list
    (apply '+ (mapcar '(lambda(x y ) (* x y)) '( 1 12 365) (list ngKT thKT YYKT)))
    (strcat (car (setq r1
			(mapcar '(lambda(x) (if (< x 10)
					      (strcat "0" (rtos x 2 0))
					      (rtos x 2 0)))
				(list ngKT thKT YYKT))))
	    "." (cadr r1) "." (last r1)))
  )
mong các bác giúp thêm

 

1. Hàm nhận diện máy.

2. Thuật toán đăng ký lần đầu (1 lần duy nhất)

3. Thuật toán tự sinh Key đăng ký phù hợp với : tên máy, thời điểm đăng ký, thêm một số thônt tín khác thì càng tốt (ví dụ Gmail đăng ký, key có giá trị đăng ký trong 3 ngày,... chẳng hạn

Chỉnh sửa theo quantvxd

Chia sẻ bài đăng này


Liên kết tới bài đăng
Chia sẻ trên các trang web khác
Doan Van Ha    2.676

Khóa lisp là 1 vấn đề không đơn giản. Ngay cả những chương trình đồ sộ như window, autocad... cũng chả là gì với hacker, thì lisp chỉ là đinh rỉ.

1). Hàm nhận diện máy: tôi test trên máy của tôi trả về 2 dấu nháy "", chắc bị lỗi gì đó của bạn.

User có thể đổi tên từ Ngọc Trinh sang Hồ Ngọc Hà, rồi Tập Cận Bình... Và dùng mê thâu.

2) và 3). Ngày tháng thì vặn đồng hồ là xong!

4). Số lần dùng thì "nó" cài lại lisp.

Dùng serial của máy khả dĩ hơn. Biết đến đâu nói đến đó. Nghe và Ngóng thêm.

Chia sẻ bài đăng này


Liên kết tới bài đăng
Chia sẻ trên các trang web khác
quantvxd    0

Khóa lisp là 1 vấn đề không đơn giản. Ngay cả những chương trình đồ sộ như window, autocad... cũng chả là gì với hacker, thì lisp chỉ là đinh rỉ.

1). Hàm nhận diện máy: tôi test trên máy của tôi trả về 2 dấu nháy "", chắc bị lỗi gì đó của bạn.

User có thể đổi tên từ Ngọc Trinh sang Hồ Ngọc Hà, rồi Tập Cận Bình... Và dùng mê thâu.

2) và 3). Ngày tháng thì vặn đồng hồ là xong!

4). Số lần dùng thì "nó" cài lại lisp.

Dùng serial của máy khả dĩ hơn. Biết đến đâu nói đến đó. Nghe và Ngóng thêm.

Cảm ơn bác , trước mắt chỉ cần tiếp xúc cấp độ này thôi, về cơ bản, đối tượng sử dụng: 1 không biết LISP, 2 không rõ hướng viết ban đầu, mò sẽ khó khăn hơn, 3 không rảnh để nhờ vả, viết lại, hay phá LISP.

Mà làm thì được là tốt, không được cho không

Quan trong là học hỏi tiếp cận thôi bác ahj

Chứ viết Free suốt mờ. hhahaha

Chia sẻ bài đăng này


Liên kết tới bài đăng
Chia sẻ trên các trang web khác
Thaistreetz    515

Chào mọi người, có thể cho em hỏi chút ý tưởng về thuật toán bảo vệ file LISP không, chẳng hạn muốn khoá file LISP để cho file đó chỉ có thể dùng cho 1 máy, trong thời gian 30ngày kề từ ngày đăng ký Lisp lần đầu, hết 30 ngày căn cứ vào mốc thời gian lúc đó tự sinh PASS đăng ký phù hợp (nếu người dùng nhập đúng sẽ cho sử dụng tiếp), khi đó người viết lissp sẽ có Lisp khác tự tạo Key phù hơpj với thời điểm đó và gửi cho Người dùng

Về cơ bản là như vậy, em muốn hỏi mọi người có ý tưởng nào có thể giúp em không. Hiện em đã làm được 1 số việc sau:

 

Hàm con:

1. Hàm lấy tên máy (tên USER máy tính), định dùng làm nhận diện máy, nhưng chưa ổn lắm không biết có cách khác không

(defun layTenUser(/ str)
  (setq str (substr (vla-get-supportpath(vla-get-files(vla-get-preferences(vlax-get-acad-object)))) 1 40)
	str (substr str (+ 7 (vl-string-search "Users\\" str)) 25)
	str (substr str 1 (vl-string-search "\\appdata" str)))
  str)
2. Hàm lấy ngày tháng hiện tại

(defun NowDate (/ DD MO RR YY) ; lay ngay hom nay
  (setq rr (rtos (getvar 'cdate) 2 8))
  (setq YY (substr rr 1 4)
	MO (substr rr 5 2)
	DD (substr rr 7 2))
  (list DD MO YY))
3. Hàm lấy ngày kết thúc dựa theo hai thống số: ngày bắt đầu (dạng list) và số ngày cho phép (dạng interger)


;; Ví dụ dùng (ngKT_tuNg (nowdate) 30)
(defun ngKT_tuNg (DStart delta)
  (setq coTh 0 coYY 0)
  (setq ngKT (+ delta (read(car DStart))))
  (if (> ngKT 30) (setq coTh 1 ngKT (rem ngKT 30)))
  (setq thKT (+ coTh (read (cadr DStart))))
  (if (> thKT 12) (setq coYY 1 thKT (rem thKT 12)))
  (setq YYKT (+ coYY (read(last DStart))))
  (mapcar '(lambda(x) (rtos x 2 0)) (list ngKT thKT YYKT))
  (list
    (apply '+ (mapcar '(lambda(x y ) (* x y)) '( 1 12 365) (list ngKT thKT YYKT)))
    (strcat (car (setq r1
			(mapcar '(lambda(x) (if (< x 10)
					      (strcat "0" (rtos x 2 0))
					      (rtos x 2 0)))
				(list ngKT thKT YYKT))))
	    "." (cadr r1) "." (last r1)))
  )
mong các bác giúp thêm

 

1. Hàm nhận diện máy.

2. Thuật toán đăng ký lần đầu (1 lần duy nhất)

3. Thuật toán tự sinh Key đăng ký phù hợp với : tên máy, thời điểm đăng ký, thêm một số thônt tín khác thì càng tốt (ví dụ Gmail đăng ký, key có giá trị đăng ký trong 3 ngày,... chẳng hạn

 

 

Mình có chút ý kiến chia sẻ với bạn về vấn đề này.

 

1. Hiện nay việc cấp quyền sử dụng phần mềm hay ứng dụng dần chuyển sang xu hướng quản lý theo tài khoản đăng ký. Cái này đảm bảo quyền lợi cho người dùng khi nâng cấp máy, thay máy hoặc sở hữu nhiều máy cho công việc (máy nhà, máy cơ quan...). Từ Cad 2014 trở lên Autodesk đã hỗ trợ cung cấp ID người dùng thông qua tài khoản A360. Bạn tham khảo các biến hệ thống ONLINEUSERID, ONLINENAME. ID người dùng được cung cấp bởi ONLINEUSERID được đảm bảo là duy nhất cho mỗi User. Tất nhiên nếu bạn bán hàng cho đối tượng người dùng sử dụng cad từ 2013 trở xuống thì cách này không được hỗ trợ.

 

2 Về cách xác định thời gian dùng thử mình nghĩ chỉ cần dùng biến hệ thống Date là đủ. Khi khởi chạy ứng dụng lần đầu, lấy giá trị của biến Date, mã hóa lại, lưu registry. Các lần chạy ứng dụng sau, lại lấy giá trị biến Date trừ đi giá trị đã lưu registry là ra số ngày sử dụng. Việc mã hóa như thế nào và lưu registry ra sao để khó mò ra thì mình không bàn nhé. Nó phụ thuộc vào khả năng của bạn.

Gợi ý thêm cho bạn về việc mã hóa để tránh decode. Toàn bộ thuật toán mã hóa nên nhúng trong 1 hàm không tên. các công cụ decode file fas hoặc vlx hiện nay như mình biết thì đang bó tay trong việc truy cập nội dung hàm không tên.

 

3. Thuật toán tự sinh keys đăng ký mình nghĩ cũng không nên bàn, mỗi người có 1 cách làm và chẳng ai giống ai. Nó phụ thuộc vào kiến thức về lĩnh vực mã hóa của mỗi người.

 

Mình có một số ứng dụng bán trên Autodesk AppStore cũng sử dụng phương pháp trên. Hiệu quả.

  • Vote tăng 1

Chia sẻ bài đăng này


Liên kết tới bài đăng
Chia sẻ trên các trang web khác
naturooo    1

Chào các anh:

Do nhu cầu công việc em muốn nhờ các anh điều chỉnh giúp em lisp xuất tọa độ COORN cho đường Pline kín như sau:

 

1. Thêm lựa chọn điểm đầu của danh sách xuất ra;

 

2. Lựa chọn chiều xuất tọa độ các đỉnh đường Pline kín (theo chiều kim đồng hồ hoặc ngược kim đồng hồ hoặc lisp để cố định chiều xuất là theo chiều kim đồng hồ luôn cũng được) bắt đầu từ điểm lựa chọn trên.

 

Trân trọng cảm ơn!

 

http://www.cadviet.com/upfiles/6/136008_coorn.lsp

  • Vote giảm 1

Chia sẻ bài đăng này


Liên kết tới bài đăng
Chia sẻ trên các trang web khác

Tạo một tài khoản hoặc đăng nhập để nhận xét

Bạn cần phải là một thành viên để lại một bình luận

Tạo tài khoản

Đăng ký một tài khoản mới trong cộng đồng của chúng tôi. Điều đó dễ mà.

Đăng ký tài khoản mới

Đăng nhập

Bạn có sẵn sàng để tạo một tài khoản ? Đăng nhập tại đây.

Đăng nhập ngay


×