Discussion :

[Dextr]

Bonjour,

J'ai une boucle qui crée un tableau "vect" à 1-dim à chaque itération i et je veux faire un tableau 2-dim à partir de vect1, vect2, vect3, ......

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Dim vect(k) as decimal
Dim allvect(k,n) as decimal
For i = 0 to n-1
 
vect=....
allvect( ,i)=vect 'Je pensais pouvoir entrer X directement dans le tableau mais je trouve pas
 
Next

Possible à faire ? ou sinon peut-on joindre 2 tableaux 1-dim pour en faire un 2-dim ?
Merci

[Aspic]

Possible à faire ? ou sinon peut-on joindre 2 tableaux 1-dim pour en faire un 2-dim ?
Merci

Je ne pense pas

Sinon j'ai pas tres bien compris ce que tu voulais faire. Peux tu etre plus explicite ?

[Dextr]

En fait, en terme mathématique j'ai des vecteurs colonnes (les tableaux 1-dim) et je veux faire une matrice (le tableau 2-dim) à partir de ces vecteurs.
Donc je voudrais faire une boucle avec la commande : colonne j de la matrice(i,j) = au "j ième" vecteur. C'est peut être pas bcps plus clair

[Aspic]

En fait, en terme mathématique j'ai des vecteurs colonnes (les tableaux 1-dim) et je veux faire une matrice (le tableau 2-dim) à partir de ces vecteurs.
Donc je voudrais faire une boucle avec la commande : colonne j de la matrice(i,j) = au "j ième" vecteur. C'est peut être pas bcps plus clair

Exact c'est pas très clair mais il faut dire que je ne connais pas les matrices

Sinon avec ton début de code ca marche pas ? ca me parrait un bon début en tout cas.

Bonne chance !

[belocom]

Bonjour,
En utilisant les structures, j'arrive à mettre des vecteurs dans une matrice, mais l'écriture n'est pas belle ! On est loin de matrice (i,j) !!!!

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
Public Class Form1
    Public Structure vecteur
        Dim evect() As Decimal
        Public Sub Initialize()
            ReDim evect(50)
        End Sub
    End Structure
    Public Structure matrice
        Dim emat() As vecteur
        Public Sub Initialize()
            ReDim emat(25)
        End Sub
    End Structure
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim vect As New vecteur
        Dim mat As New matrice
        vect.Initialize()
        mat.Initialize()
        vect.evect(5) = 3.14159
        mat.emat(10) = vect
        MsgBox(mat.emat(10).evect(5).ToString)
    End Sub
End Class

[Aspic]

Je vois pas en quoi c'est pas beau ... si ca marche c'est l'essentiel !

Certes il y a peut etre plus court mais bon c'est deja pas mal...

[SaumonAgile]

Dans ce cas là, tu n'as qu'à créer un objet qui aurait le fonctionnement que tu veux obtenir. Tu peux par exemple ajouter une méthode Element ou Get ou CeQueTuVeux qui prend en paramètres les coordonnées et renvoie l'objet.

[Dextr]

Ok merci beaucoup