Đến nội dung


Hình ảnh

Đố vui


  • Please log in to reply
1743 replies to this topic

#1301 phamthanhbinh

phamthanhbinh

    biết lệnh adcenter

  • Moderator
  • PipPipPipPipPipPipPip
  • 6007 Bài viết
Điểm đánh giá: 3113 (tuyệt vời)

Đã gửi 20 December 2013 - 11:58 AM

Hề hề hề,

Với k=1, 2,3, 5  kết quả của bác trùng với kết quả mình tính ra. Nhưng chưa hiểu lắm cái công thức bác đưa ra vì với k=5 . Theo công thức này ta có

N(5) = 4* [N(3) + (n-2)^2* N(3)]

Ở đây chưa rõ n là gì? có phải là k không? nếu là k thì N(5)= 4* (2+9*1)=44 như bác đã nói.

Nếu (n-2) là N(k-2) thì N(5)=4* (2+4*1)= 24 ????

Với k=4

N(4)= 3*(1+4*)=3 !!!!

Vậy nên có nhẽ công thức trên chưa thật chuẩn xác. mong bác xem lại.

 

Công thức là:

N(k) = (k-1) * [ N(k-2) + (k-2)* X]

Hôm qua, lúc tìm công thức đã bị sai phần tìm X.

Công thức mới là:

N(1)= 0, M(1) = 1

N(k+1) = k*M(k)

M(k+1) = k*M(k) + N(k) = N(k+1) + N(k)

 

k    N                  M
1    0                   1
2    1                   1
3    2                   3
4    9                   11
5    44                  53
6    265                309
7    1854              2119
8    14833            16687
9    133496           148329
10    1334961       1468457
11    14684570      16019531
12    176214841    190899411
 

Hề hề hề,

Về kết quả của bác có thể nói là trùng với kết quả mình đã làm. Tuy nhiên về phương pháp suy luận thì mình chưa hiểu lắm. Hàm số M ở đây được xác định ra sao là một vấn đề khá đau đầu.

@ Bác DoanVanHa: Bác dùng lisp hay dùng gì để giải cũng đều cần có một phương pháp suy luận cả. Vấn đề chính là phương pháp luận để giải, nếu không quá bí mật bác có thể trình bày để mọi người tham khảo. Với phương pháp luận của mình, cũng có thể sử dụng lisp để giải được nhưng có lẽ phải dùng tới việc đệ quy bác ạ.

@ Em Hoan2182: Đáp án của em vì chỉ đúng trở lên nên chưa đúng. mà quả thật mình cũng chưa hiểu được những điều cao hơn cái đúng là cái chi. Có nhẽ là siêu tưởng, là thần hay là Thánh chi đó chăng??? Vốn là kẻ người trần mắt thịt, chữ nghĩa không đấy cái là mít, lại do học mót mà biết nên mong em tha cho cái tội không hiểu những điều từ đúng trỏ lên ấy. Mình chỉ hiểu được những điều đúng và từ đúng trở xuống thôi......

Hề hề hề, ......


  • 0
Chúc các quý Anh trên diễn đàn luôn khỏe, đẻ thêm được nhiều thứ để mót.

#1302 Hoan1111

Hoan1111

    biết lệnh adcenter

  • Members
  • PipPipPipPipPipPipPip
  • 2587 Bài viết
Điểm đánh giá: 692 (tốt)

Đã gửi 20 December 2013 - 12:15 PM

Bác Bình có thể chỉ ra cho em thêm một khả năng thứ 5 được không???

 

114276_%C3%A9p_duy%C3%AAn_1.png


  • 1

66 Câu Phật Học Cho Cuộc Sống : http://ngocchinh.com...-cho-cuoc-song/

Gió đưa cây cải về trời / Rau răm ở lại chịu lời đắng cay...

 

 


#1303 Doan Van Ha

Doan Van Ha

    biết lệnh adcenter

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

Đã gửi 20 December 2013 - 01:46 PM

Đơn giản là:

(Ab Be Cd Da Ec) thì khác với (Be Ab Cd Da Ec)


  • 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.


#1304 ndtnv

ndtnv

    biết lệnh minsert

  • Members
  • PipPipPipPipPipPip
  • 437 Bài viết
Điểm đánh giá: 384 (khá)

Đã gửi 20 December 2013 - 02:50 PM

Bác Bình có thể chỉ ra cho em thêm một khả năng thứ 5 được không???

 

114276_%C3%A9p_duy%C3%AAn_1.png

Đang rãnh nên viết lisp xếp cặp, Hoằn và các bạn có thể test.

lệnh là XEPhttp://www.cadviet.c...19626_xep_1.rar

Nhớ đừng chọn n lớn quá sẽ treo chương trình


  • 0

#1305 thannuoc7

thannuoc7

    biết zoom

  • Members
  • Pip
  • 10 Bài viết
Điểm đánh giá: -2 (bình thường)

Đã gửi 20 December 2013 - 04:26 PM

Đăng căng hết cả đầu! Tưởng đố có gì vui! Ai dè toãn kỹ thuật!

 

Mệt quá!

 

.............................

 

Chuyên cung cấp đồ len cho bé giá rẻ!


  • -2

Dụng cụ học tập, dụng cụ học tập handmade


#1306 phamthanhbinh

phamthanhbinh

    biết lệnh adcenter

  • Moderator
  • PipPipPipPipPipPipPip
  • 6007 Bài viết
Điểm đánh giá: 3113 (tuyệt vời)

Đã gửi 20 December 2013 - 04:46 PM

Bác Bình có thể chỉ ra cho em thêm một khả năng thứ 5 được không???

 

114276_%C3%A9p_duy%C3%AAn_1.png

Hề hề hề,

Thế  bộ xếp Cặp này thì sao nhỉ:

Ac Bd Ca De Eb 

Và còn nhiều bộ xếp cặp như vậy nữa cơ. Đề bài như vậy là hoàn chỉnh rồi, không cần phải thêm gì nữa đâu em gái ạ.

Ví dụ bác DoanvanHa đưa ra vẫn chỉ tính là một bộ xếp cặp mà thôi. Bài toán này không xét tới vị trí tức là chỉnh hợp đâu bác Hà ạ.


  • 1
Chúc các quý Anh trên diễn đàn luôn khỏe, đẻ thêm được nhiều thứ để mót.

#1307 Doan Van Ha

Doan Van Ha

    biết lệnh adcenter

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

Đã gửi 20 December 2013 - 05:22 PM

Hề hề hề,

Thế  bộ xếp Cặp này thì sao nhỉ:

Ac Bd Ca De Eb 

Và còn nhiều bộ xếp cặp như vậy nữa cơ. Đề bài như vậy là hoàn chỉnh rồi, không cần phải thêm gì nữa đâu em gái ạ.

Ví dụ bác DoanvanHa đưa ra vẫn chỉ tính là một bộ xếp cặp mà thôi. Bài toán này không xét tới vị trí tức là chỉnh hợp đâu bác Hà ạ.

Màu đỏ: srr, tôi viết nhầm.


  • 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.


#1308 Hoan1111

Hoan1111

    biết lệnh adcenter

  • Members
  • PipPipPipPipPipPipPip
  • 2587 Bài viết
Điểm đánh giá: 692 (tốt)

Đã gửi 25 December 2013 - 03:10 PM

Em giải theo phương pháp giải bậc tiểu học bác Bình ạ! :) :) :)

Có 5 anh chàng A,B,C,D,E và 5 cô nàng a,b,c,d,e. Hỏi có bao nhiêu cách xếp cặp mỗi anh một cô sao cho không có cặp nào trùng mã như Aa, Bb, Cc,Dd, Ee.

Số cặp 1 đôi là n(n-1) = 20

Số cặp 5 đôi là n(2-1)/n= 4


  • 0

66 Câu Phật Học Cho Cuộc Sống : http://ngocchinh.com...-cho-cuoc-song/

Gió đưa cây cải về trời / Rau răm ở lại chịu lời đắng cay...

 

 


#1309 phamthanhbinh

phamthanhbinh

    biết lệnh adcenter

  • Moderator
  • PipPipPipPipPipPipPip
  • 6007 Bài viết
Điểm đánh giá: 3113 (tuyệt vời)

Đã gửi 05 January 2014 - 09:49 PM

Màu đỏ: srr, tôi viết nhầm.

Hề hề hề,

Xin lỗi tất cả vì đã hẹn là ngày đầu năm mới sẽ công bố lời giải. Song do có việc đột xuất nên quên béng mất và hôm nay mới nhớ ra.

Lời giải của mình có thể chưa hoàn toàn chuẩn xác, mong mọi người góp ý thêm.

Gọi D(n) là số cặp không trùng mã có thể có của tập hợp có n anh và n cô

Gọi C(k,n) là tổ hợp chập k của n phần tử, với 0 < k <= n.

1/- Giả thiết rằng không loại trừ cặp nào cả mà lấy tất cả các cặp có thể  ta sẽ có n! cặp

2/- Trường hợp có n cặp trùng mã : 1

Lưu ý đây cũng là trường hợp chung khi có n-1 cặp trùng mã.

3/-Truờng hợp có 1 cặp trùng mã, ta sẽ có số cặp có thể là:  C(1,n) * D(n-1)

4/- Trường hợp có 2 cặp trùng mã ta sẽ có số cặp có thể là: C(2,n) * D(n-2)

...................................

n/- Trường hợp có n-2 cặp trùng mã, ta sẽ có số cặp có thể là: C( n-2, n) D(2)

 

Như vậy số cặp không trùng mã của n anh và n cô sẽ là: D(n) = n! - {1 + [C(1,n) * D(n-1)] + [C(2,n) * D(n-2)] + ...... + [C(n-2,n) * D(2)]}

 

Vậy với  n=1. Ta có:

D(1) = 1! - { 1 + [1 * D(0)]} = 1 - 1 = 0

Với n = 2, ta có:

D(2) = 2! - { 1 + [ 2 * D(1)] } = 2 - {1 + [2 * 0]} = 2 - 1 = 1

Với n = 3, ta có:

D(3) = 3! - {1 + [3* D(2)] + [ 3 * D(1)]} = 6 - [1 + 3] = 2

Với n = 4 , ta có:

D(4) = 4! - {1 + [4 * D(3)] + [6 * D(2)] + [4 * D(1)]} = 24 - {1 + 8 + 6} = 9

Với n = 5, ta có:

D(5) = 5! - {1 + [ 5 * D(4)] + [10 * D(3)] + [10 * D(2)]} = 120 - { 1 + 5 * 9 + 10 * 2 + 10 * 1} = 120 - 76 = 44

Với n = 6, ta có:

D(6) = 6! - { 1 + [6*D(5)] + [15*D(4)] + [20*D(3)] + [15*D(2)]} = 720 - {1 + 264 + 135 + 40 + 15} = 720 - 455 = 265

Với n = ......

Các bác tiếp tục kiểm chứng nhé.

 Với cách lập luận của mình như trên, các bác có gì chưa rõ xin cứ chất vấn, mình sẽ giải thích thêm.


  • 0
Chúc các quý Anh trên diễn đàn luôn khỏe, đẻ thêm được nhiều thứ để mót.

#1310 phamthanhbinh

phamthanhbinh

    biết lệnh adcenter

  • Moderator
  • PipPipPipPipPipPipPip
  • 6007 Bài viết
Điểm đánh giá: 3113 (tuyệt vời)

Đã gửi 06 January 2014 - 02:21 PM

Hề hề hề,

Xin lỗi tất cả vì đã hẹn là ngày đầu năm mới sẽ công bố lời giải. Song do có việc đột xuất nên quên béng mất và hôm nay mới nhớ ra.

Lời giải của mình có thể chưa hoàn toàn chuẩn xác, mong mọi người góp ý thêm.

Gọi D(n) là số cặp không trùng mã có thể có của tập hợp có n anh và n cô

Gọi C(k,n) là tổ hợp chập k của n phần tử, với 0 < k <= n.

1/- Giả thiết rằng không loại trừ cặp nào cả mà lấy tất cả các cặp có thể  ta sẽ có n! cặp

2/- Trường hợp có n cặp trùng mã : 1

Lưu ý đây cũng là trường hợp chung khi có n-1 cặp trùng mã.

3/-Truờng hợp có 1 cặp trùng mã, ta sẽ có số cặp có thể là:  C(1,n) * D(n-1)

4/- Trường hợp có 2 cặp trùng mã ta sẽ có số cặp có thể là: C(2,n) * D(n-2)

...................................

n/- Trường hợp có n-2 cặp trùng mã, ta sẽ có số cặp có thể là: C( n-2, n) D(2)

 

Như vậy số cặp không trùng mã của n anh và n cô sẽ là: D(n) = n! - {1 + [C(1,n) * D(n-1)] + [C(2,n) * D(n-2)] + ...... + [C(n-2,n) * D(2)]}

 

Vậy với  n=1. Ta có:

D(1) = 1! - { 1 + [1 * D(0)]} = 1 - 1 = 0

Với n = 2, ta có:

D(2) = 2! - { 1 + [ 2 * D(1)] } = 2 - {1 + [2 * 0]} = 2 - 1 = 1

Với n = 3, ta có:

D(3) = 3! - {1 + [3* D(2)] + [ 3 * D(1)]} = 6 - [1 + 3] = 2

Với n = 4 , ta có:

D(4) = 4! - {1 + [4 * D(3)] + [6 * D(2)] + [4 * D(1)]} = 24 - {1 + 8 + 6} = 9

Với n = 5, ta có:

D(5) = 5! - {1 + [ 5 * D(4)] + [10 * D(3)] + [10 * D(2)]} = 120 - { 1 + 5 * 9 + 10 * 2 + 10 * 1} = 120 - 76 = 44

Với n = 6, ta có:

D(6) = 6! - { 1 + [6*D(5)] + [15*D(4)] + [20*D(3)] + [15*D(2)]} = 720 - {1 + 264 + 135 + 40 + 15} = 720 - 455 = 265

Với n = ......

Các bác tiếp tục kiểm chứng nhé.

 Với cách lập luận của mình như trên, các bác có gì chưa rõ xin cứ chất vấn, mình sẽ giải thích thêm.

 

Mình xin bổ sung lisp dùng đệ quy để tính toán số cặp đôi này. nhờ các bác đèn giời soi xét giùm:

http://www.cadviet.c...hongtrungma.lsp

(defun tgt (n)

(if (<= n 1)

    (setq G 1)

    (setq G (* n (tgt (1- n))))

)

G

)

(defun Ckm (k m)

(if (<= k m)

(setq C (/ (tgt m) (* (tgt k) (tgt (- m k)))))

)

C

)

(defun Dck (a / k d1)

  (setq k 1 D1 0)

  (if (<= a 1)

      (setq D 0)

      (if (= a 2)

          (setq D 1)

          (progn

                (while (< k (1- a))

                          (setq k (1+ k))

                          (setq  D1 (+ D1 (* (Dck k) (Ckm (- a k) a))) )

                ) 

                (setq D (- (tgt a) (1+  D1)))

          )

       )

  )

  D

)


  • 0
Chúc các quý Anh trên diễn đàn luôn khỏe, đẻ thêm được nhiều thứ để mót.

#1311 Doan Van Ha

Doan Van Ha

    biết lệnh adcenter

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

Đã gửi 06 January 2014 - 02:28 PM

Không có nhiều thời gian để kiểm tra lập luận của bác Bình, nhưng lisp thì không đúng.


  • 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.


#1312 ndtnv

ndtnv

    biết lệnh minsert

  • Members
  • PipPipPipPipPipPip
  • 437 Bài viết
Điểm đánh giá: 384 (khá)

Đã gửi 06 January 2014 - 03:30 PM

Mình xin bổ sung lisp dùng đệ quy để tính toán số cặp đôi này. nhờ các bác đèn giời soi xét giùm:

http://www.cadviet.c...hongtrungma.lsp

 

Còn đây là hàm đệ quy của mình (n>0)

Bạn Bình thử viết lisp xuất ra kết quả giống như bài #1309 không?

(defun Pair (n)
    (if (< n 3) (1- n) (* (1- n) (+ (Pair (1- n)) (Pair (- n 2)))))
)


  • 0

#1313 phamthanhbinh

phamthanhbinh

    biết lệnh adcenter

  • Moderator
  • PipPipPipPipPipPipPip
  • 6007 Bài viết
Điểm đánh giá: 3113 (tuyệt vời)

Đã gửi 06 January 2014 - 08:58 PM

Không có nhiều thời gian để kiểm tra lập luận của bác Bình, nhưng lisp thì không đúng.

Hề hề hề,

Bác có thể chỉ rõ hơn chỗ sai được không.???

Mình đã test lisp trên tới n=12 thì vẩn chuẩn như chỉnh.


  • 0
Chúc các quý Anh trên diễn đàn luôn khỏe, đẻ thêm được nhiều thứ để mót.

#1314 Doan Van Ha

Doan Van Ha

    biết lệnh adcenter

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

Đã gửi 06 January 2014 - 09:04 PM

Lisp của bác với cho kết quả khác của ndtnv. Mà ndtnv thì... đúng.


  • 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.


#1315 phamthanhbinh

phamthanhbinh

    biết lệnh adcenter

  • Moderator
  • PipPipPipPipPipPipPip
  • 6007 Bài viết
Điểm đánh giá: 3113 (tuyệt vời)

Đã gửi 06 January 2014 - 09:12 PM

Mình xin bổ sung lisp dùng đệ quy để tính toán số cặp đôi này. nhờ các bác đèn giời soi xét giùm:

http://www.cadviet.c...hongtrungma.lsp

 

Còn đây là hàm đệ quy của mình (n>0)

Bạn Bình thử viết lisp xuất ra kết quả giống như bài #1309 không?

(defun Pair (n)
    (if (< n 3) (1- n) (* (1- n) (+ (Pair (1- n)) (Pair (- n 2)))))
)

Hề hề hề,

Mình đã test kết quả của lisp bác viết, so với lisp mình viết thì kết quả không khác chi nhau. Có điều lisp bác viết ngắn gọn hơn nhiều nhưng mình chưa hiểu rõ về phương pháp suy luận của bác để có lisp như vầy.


  • 0
Chúc các quý Anh trên diễn đàn luôn khỏe, đẻ thêm được nhiều thứ để mót.

#1316 phamthanhbinh

phamthanhbinh

    biết lệnh adcenter

  • Moderator
  • PipPipPipPipPipPipPip
  • 6007 Bài viết
Điểm đánh giá: 3113 (tuyệt vời)

Đã gửi 06 January 2014 - 09:15 PM

Lisp của bác với cho kết quả khác của ndtnv. Mà ndtnv thì... đúng.

Hề hề hề,

Bác cho biết kết quả khác nhau ở giá trị n bằng bao nhiêu vậy ạ.???


  • 2
Chúc các quý Anh trên diễn đàn luôn khỏe, đẻ thêm được nhiều thứ để mót.

#1317 Doan Van Ha

Doan Van Ha

    biết lệnh adcenter

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

Đã gửi 06 January 2014 - 09:22 PM

1). Ồ. Test với hàm tgt, ai ngờ là dck. OK and SRR and "1 LIKE".

2). Hình như công thức của bác có thể biến đổi để thành công thức của ndtnv. Lâu quá quên mất mấy công thức này rồi.


  • 2

* 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.


#1318 Hoan1111

Hoan1111

    biết lệnh adcenter

  • Members
  • PipPipPipPipPipPipPip
  • 2587 Bài viết
Điểm đánh giá: 692 (tốt)

Đã gửi 15 January 2014 - 09:18 PM

114276_987777_1.png

(Hình bên phải chủ thớt đã vẽ sai hình chiếu!)

File hình vẽ: http://www.cadviet.c...6_hoanblock.dwg

 

1/  Câu 1:

Đố vui làm thế nào để xác định nhanh được 4 điểm A, B, C và D, có cùng  nằm trên cùng một mặt phẳng hay không ???

Nguồn câu đố: http://www.cadviet.c...g-cad-3d/page-2

 

2/ Câu đố tiếp theo của em là làm thế nào để biết được tọa độ vị trí chủ thớt đã vẽ sai lệnh trên hình chiếu bằng, hãy xác định tọa độ thực của nó một cách chính xác tuyện đối???


  • 1

66 Câu Phật Học Cho Cuộc Sống : http://ngocchinh.com...-cho-cuoc-song/

Gió đưa cây cải về trời / Rau răm ở lại chịu lời đắng cay...

 

 


#1319 hiepttr

hiepttr

    Edu level: li10

  • Members
  • PipPipPipPipPipPipPip
  • 1298 Bài viết
Điểm đánh giá: 518 (tốt)

Đã gửi 16 January 2014 - 08:45 AM

Nếu thêm chữ "nhanh" thì chưa biết xác định thế nào, còn câu đó đến đây thì thế này:

 

(mới xác định H max, còn Hmin để Hoằn lo :D :D :D )

80156_hoan_1.jpg


  • 2

Có vợ dù dữ dù hiền , bạn đều có lợi
_ Nếu vợ hiền, bạn sẽ là người đàn ông sung sướng
_ Nếu vợ dữ, bạn sẽ thành ... triết gia !

Bergson


#1320 ndtnv

ndtnv

    biết lệnh minsert

  • Members
  • PipPipPipPipPipPip
  • 437 Bài viết
Điểm đánh giá: 384 (khá)

Đã gửi 16 January 2014 - 08:49 AM

2/ Câu đố tiếp theo của em là làm thế nào để biết được tọa độ vị trí chủ thớt đã vẽ sai lệnh trên hình chiếu bằng, hãy xác định tọa độ thực của nó một cách chính xác tuyện đối???

Vẽ giao tuyến của ABCD với MP chứa đường tròn.

Từ tâm O của đường tròn, vẽ đường thẳng vuông góc với giao tuyến.

http://www.cadviet.c...kqhoanblock.dwg


  • 2