et je voudrais savoir si les matrices existent
j'ai vu qu'il existe les "Data"


Code : Tout sélectionner
Dim TableauMultiple.b(NbColonnes,NbLignes)
TableauMultiple(10,20) = 10
TableauMultiple(20,30) = 20
Code : Tout sélectionner
Structure Matrice33
C1R1.f : C2R1.f : C3R1.f
C1R2.f : C2R2.f : C3R2.f
C1R3.f : C2R3.f : C3R3.f
EndStructure
Code : Tout sélectionner
Structure matrix33row
j.f[3]
EndStructure
Structure matrix33
i.matrix33row[3]
EndStructure
Procedure matrix33_sum(*mat1.matrix33, *mat2.matrix33)
For i = 0 To 2
For j = 0 To 2
*mat1\i[i]\j[j] + *mat2\i[i]\j[j]
Next j
Next i
EndProcedure
DataSection
matrix :
Data.f 1, 2, 3
Data.f 4, 5, 6
Data.f 7, 8, 9
EndDataSection
;- exemple
*mat.matrix33 = ?matrix
Debug *mat\i[0]\j[2]
mat_nulle.matrix33
matrix33_sum(mat_nulle, *mat)
Debug mat_nulle\i[0]\j[2]