Chả có ứng dụng gì sất. Nó chỉ là nghiên kíu của mấy tay rảnh rỗi hồi mấy thế kỷ trước lận. (Vì vậy mới để nguyên trong box thư giãn).
Cách tạo ma phương mà mình học từ lớp 5 là thế này:
- Viết các số thứ tự theo đường chéo
- dời các số nằm ngoài vào trong theo hướng mũi tên
Rõ ràng là sau khi xoay, hoặc lật, vị trí bắt đầu sẽ thay đổi.
Đang viết code để tạo ma phương có bậc lẻ bất kỳ.
Nguyên văn bởi ndu96081631
Em hỏi ngoài lề 1 chút: Cái MA PHƯƠNG này dùng làm gì trong THỰC TẾ vậy sư phụ?
Có ứng dụng thì mới "hứng thú" nghiên cứu
Chả có ứng dụng gì sất. Nó chỉ là nghiên kíu của mấy tay rảnh rỗi hồi mấy thế kỷ trước lận. (Vì vậy mới để nguyên trong box thư giãn).
Còn mình thì muốn tìm 1 giải thuật cho bất kỳ 1 bài toán nào, nếu có khả năng. Vận động đầu óc thì mai mốt già đỡ bị ai zơ me.
Ẹc... Ẹc... sư phụ ơi,trên GPE này còn cả mấy trăm bài Excel chưa giải... cho sư phụ tha hồ vận động đầu óc
Toán học là món mà tôi "mặn" nhất, nhưng ý tôi nói là ỨNG DỤNG THỰC TẾ cơ... để "chơi" thì nói làm gì (chẳng trách gì sư phụ cho nó vào box THƯ GIÃN)
Cái này thì lại là phát triển cực kỳ đơn giản của ma phương mà bác. Bác điền từ 5-29 thì cũng như điền từ 1-25 rồi cộng thêm 4 vào mỗi ô mà. Còn 2,4,6,8,.. thì là nhân 2 với mỗi ô của ma phương thôi.
Sub MaPhuong(N As Integer)
Dim arr() As Integer
ReDim arr(0 To N - 1, 0 To N - 1)
Dim iValue As Integer
Dim iRow As Integer
Dim iCol As Integer
iRow = 0
iCol = N \ 2
For iValue = 1 To N ^ 2
arr(iRow, iCol) = iValue
If (arr((iRow - 1 + N) Mod N, (iCol + 1) Mod N) = 0) Then
iRow = (iRow - 1 + N) Mod N
iCol = (iCol + 1) Mod N
Else
iRow = (iRow + 1) Mod N
End If
Next
Range("A1").Resize(N, N) = arr
End SubKhi tôi gán N = 4 thì các chiều ngang không bằng nhau. Bạn test lại thử.
Đây là thuật toán cho ma phương bậc lẻ mà bác, ma phương bậc chẵn thì không đơn giản như vậy đâu.
Sub MaPhuong(N As Integer)
Const PntMir = "P"
Const VerMir = "V"
Const HorMir = "H"
Const IgnMir = "I"
Dim iRow As Integer
Dim iCol As Integer
Dim arr() As Integer
ReDim arr(1 To N, 1 To N)
For iRow = 1 To N
For iCol = 1 To N
arr(iRow, iCol) = (iRow - 1) * N + iCol
Next
Next
Dim iRowProc As Integer
iRowProc = N \ 2
Dim sKey As String
sKey = String(iRowProc \ 2, PntMir) & IIf(iRowProc Mod 2 = 1, VerMir & HorMir, "")
sKey = sKey & String(iRowProc - Len(sKey), IgnMir)
For iRow = 1 To iRowProc
For iCol = 1 To iRowProc
Select Case Mid(sKey, iCol, 1)
Case PntMir:
Swap arr(iRow, iCol), arr(N - iRow + 1, N - iCol + 1)
Swap arr(iRow, N - iCol + 1), arr(N - iRow + 1, iCol)
Case VerMir:
Swap arr(iRow, iCol), arr(N - iRow + 1, iCol)
Case HorMir:
Swap arr(iRow, iCol), arr(iRow, N - iCol + 1)
End Select
Next
sKey = Right(sKey, 1) & Left(sKey, Len(sKey) - 1)
Next
Range("A1").Resize(N, N) = arr
End Sub
Sub Swap(ByRef iNum1 As Integer, ByRef iNum2 As Integer)
Dim iTemp As Integer
iTemp = iNum1
iNum1 = iNum2
iNum2 = iTemp
End Sub
