Open VB.NET και να δημιουργήσει ένα δισδιάστατο πίνακα . Θα πρέπει πρώτα να δηλώσει μια κατηγορία για την νέα μήτρα σας . Μπορείτε να χρησιμοποιήσετε το " M " μεταβλητή για τον αριθμό των στηλών και του "Ν" μεταβλητή για τον αριθμό των γραμμών . Εδώ είναι ο κώδικας για να δημιουργήσει αυτή την κατηγορία σε VB.NET :
Δημόσιας Τάξης MatrixImplements ICloneablePrivate M Όπως IntegerPrivate Ν Όπως IntegerPublic val ( , ) Όπως DoublePrivate currentX Όπως IntegerPrivate currenty Όπως IntegerEnd Class
Σημειώστε ότι ο αριθμός των στηλών και ο αριθμός των σειρών είναι ακέραιοι . " val ( , ) " είναι μια σειρά με δύο διαστάσεις , που περιέχει τα στοιχεία της μήτρας σας 2
Εκχώρηση κατάλληλες διαστάσεις για την μήτρα σας στον constructor τάξη με τη χρήση αυτού του κώδικα : .
Public Sub Νέα ( ByVal X As Integer , ByVal Y As Integer ) SetDimensions ( X , Y) = currentX 0currentY = 0End Sub
Εδώ είναι το πώς μπορείτε να δημιουργήσετε ένα τετραγωνικό πίνακα :
Public Sub Νέα ( ByVal X As Integer ) SetDimensions ( X , X) = currentX 0currentY = 0End Sub
εικόνων 3
Προσθέστε μία μήτρα σε ένα άλλο, χρησιμοποιώντας μια συνάρτηση που παίρνει έναν πίνακα ως παράμετρο και κάνει στοιχείου - προς-στοιχείο προσθήκης. Το αποτέλεσμα θα είναι μια μήτρα . Χρησιμοποιήστε αυτόν τον κωδικό για τη λειτουργία σας :
Public Function Προσθέστε ( ByVal C Όπως Matrix ) Όπως MatrixIf M <> CM Ή Ν <> CN ThenThrow Νέα εξαίρεση ( " Πίνακες μέγεθος Ασυμφωνία ». ) τέλος IfDim B Όπως Matrix = Νέα Matrix ( M , N) Για i As Integer = 0 Για M - 1 Για j As Integer = 0 Για να Ν - 1B.val ( i , j ) = val ( i , j ) + C.val ( i , j ) NextNextReturn Bend λειτουργία
Η 4
Πολλαπλασιάστε μία μήτρα από ένα άλλο, χρησιμοποιώντας μια συνάρτηση που επιστρέφει μια μήτρα . Σημειώστε ότι μπορείτε να πολλαπλασιάσει μόνο δύο μήτρες μόνον αν ο αριθμός των στηλών της πρώτης είναι ίσος με τον αριθμό των σειρών της δεύτερης . Η λειτουργία αυτή πολλαπλασιάζει μήτρα " X " με μήτρα " Υ " και επιστρέφει τη νέα μήτρα :
δημόσια τάξη Testpublic Shared Sub MainDim X As New Matrix ( 2.0F , 1.0f , 3.0f , 1.0f , 0.0f , 4.0F ) Dim Y Όπως New Matrix ( 0.0f , 1.0f , 1.0f - , 0.0f , 0.0f , 0.0f ) X.Multiply ( Y , MatrixOrder.Append ) Dim i Όπως IntegerFor i = 0 Για να X.Elements.Length - 1Console.WriteLine ( X.Elements ( i ) ToString ( ) . ) Επόμενο iEnd SubEnd τάξη
Σημειώστε ότι αυτή η λειτουργία έχει επίσης την προκύπτουσα μήτρα
5
Αύξηση μια μήτρα στην εξουσία με πολλαπλασιασμό με τον εαυτό του .
Η
εικόνων
Πνευματικά δικαιώματα © Γνώση Υπολογιστών Όλα τα δικαιώματα κατοχυρωμένα