दो आयामी सरणी में पुनरावृत्ति के लिए खोजें, या एक सही ढंग से चयनित उपकरण

शुभ दिन।

एक या दूसरे डिग्री पर, मुझे एल्गोरिदम में दिलचस्पी है। एक ताजा लेख के पार आया
"द्वि-आयामी सरणी में पुनरावृत्ति खोजें, या एक उदाहरण का उपयोग करके कम्प्यूटेशनल जटिलता" http://habrahabr.ru/post/141258/ । लेख के लेखक, सिंगरॉफ्टफॉल , एक समस्या को हल करने और एक एल्गोरिदम का अनुकूलन करने के बारे में काफी दिलचस्प बात करते हैं। बहुत दिलचस्प है। हालांकि, मेरी राय में, सबसे पहले, एल्गोरिथ्म नहीं, बल्कि एक उपकरण निर्धारित करना आवश्यक था, जिसके द्वारा समस्या हल हो जाएगी। और गलत उपकरण चुना गया था, इसलिए पूरी जटिलता और अनुकूलन।
लेखक की समस्या को हल करने के लिए, डीबी उपकरण सबसे उपयुक्त थे, और तदनुसार, उनका उपयोग किया जाना था।

2 तरीके संभव हैं।

1. डेटाबेस के रूप में xls फ़ाइल तक पहुँचना यहाँ और अधिक विस्तार से पाया जा सकता है। http://vbadud.blogspot.com/2008/05/use-excel-as-database.html
2. डेटाबेस में डेटा स्थानांतरित करना और बाद के आउटपुट के साथ प्रसंस्करण करना।

क्योंकि काम करते समय, मैं अक्सर एक समान कार्य का सामना करता हूं, दो-आयामी सरणी को संसाधित करता हूं, लेकिन xls फ़ाइलों में नहीं, लेकिन ऑटोकैड में और निर्देशांक के साथ, फिर मैं यह दिखाने की कोशिश करूंगा कि यह कैसे काम करता है।

सबसे सरल उपाय

1. हम एक डेटाबेस बनाते हैं, सादगी के लिए मैं DAO का उपयोग करता हूं। यदि गति महत्वपूर्ण है, तो यह रामडिस्क पर एक आधार बनाने के लिए समझ में आता है।
2. डेटा प्राप्त करने के लिए एक तालिका बनाएं
3. हम तालिका में प्रारंभिक डेटा को डिस्टिल करते हैं
4. हम डेटा को समूहीकृत और सॉर्ट करके सबसे सरल SQL क्वेरी करते हैं।
5. हम डेटा प्रदर्शित करते हैं।

'  ,       IDE VBA      "Ioeaea! Auiieiaiea i?ia?aiiu i?a?aaii!" Sub grid() Dim retObj As AcadObject Dim retPnt As Variant Dim db As DAO.Database Dim rst As Recordset Dim ssetObj As AcadSelectionSet Dim Items As Object Dim handle As String mesto_db = Environ("APPDATA") & "\" name_db = Environ("UserName") & "_grid" Set fs1 = CreateObject("Scripting.FileSystemObject") fs1.CreateTextFile mesto_db & name_db & ".mdb" fs1.DeleteFile mesto_db & name_db & ".mdb" Set db = DAO.CreateDatabase(mesto_db & name_db & ".mdb", dbLangCyrillic) db.Execute "CREATE TABLE Tabl1 " & "(x REAL, y REAL, h CHAR(10));" On Error Resume Next Set ssetObj = ThisDrawing.SelectionSets("Boxa") If Err <> 0 Then Err.Clear Set ssetObj = ThisDrawing.SelectionSets.Add("Boxa") End If ssetObj.Clear ssetObj.SelectOnScreen On Error GoTo fuck Dim temp_block As AcadBlockReference For Each item In ssetObj If item.ObjectName = "AcDbBlockReference" Then If item.EffectiveName = "SV" Then Attributes = item.GetAttributes BlockProperties = item.GetDynamicBlockProperties point = item.insertionPoint point1 = CLng(point(0)) point2 = CLng(point(1)) Set temp_block = item handle = CStr(temp_block.handle) db.Execute "INSERT INTO Tabl1 (x,y,h) VALUES (" & point1 & ", " & point2 & ", \'" & handle & "\');" End If End If Next Set rst = db.OpenRecordset("SELECT x, y, h FROM Tabl1 GROUP BY x, y, h ORDER BY x, y, h ;") If rst.RecordCount > 0 Then rst.MoveFirst Do While Not rst.EOF = True X0 = rst.Fields(0) Y0 = rst.Fields(1) rst.MoveNext Loop End If fuck: If Err <> 0 Then ThisDrawing.Utility.Prompt (vbCrLf & "Error!" & vbCrLf) rst.Close db.Close Set db = Nothing ssetObj.Clear ssetObj.Delete End Sub 

निष्पादन की गति:

अंकों की संख्या - रनटाइम
100 * 100 - 5.89 सेकंड
200 * 200 - 24.73 सेकंड
400 * 200 - 47.33 सेकंड
रैखिक संबंध

निष्कर्ष:

लेख में निष्कर्ष, जिसे मैंने शुरुआत में संदर्भित किया था, वे बहुत अच्छे हैं और मेरे पास उनके लिए दो हाथ हैं।
मैं केवल तीसरा बिंदु जोड़ूंगा कि हमेशा सबसे अच्छा परिणाम सबसे उपयुक्त उपकरण देगा।

पुनश्च

1. हालांकि नोट में स्रोत (स्रोत) टैग के लिए संकेत नहीं दिया गया है, VBA काम करता है।
2. किसी सरणी में दोहराव को ट्रैक करने के लिए, आप संग्रह का उपयोग कर सकते हैं

  Dim x_col As New Collection Dim txt_arr() As Variant For Q = 1 To UBound(txt_arr) x_col_Item = txt_arr(Q) x_col.Add x_col_Item, CStr(x_col_Item) Next 

इसमें पहले से ही कुंजी के साथ संग्रह में एक आइटम जोड़ते समय, आपको एक त्रुटि मिलेगी। इसे संसाधित करते समय, आपको केवल दोहराए जाने वाले तत्वों का एक सेट प्राप्त होगा।