Concloo LotusScript Essentials Beispiele

Dim matrix As Variant

matrix = CNCL_MatrixIdentity(3)
matrix = CNCL_MatrixScalarMul(matrix,4.2)

Print matrix(0,0), matrix(0,1), matrix(0,2)
Print matrix(1,0), matrix(1,1), matrix(1,2)
Print matrix(2,0), matrix(2,1), matrix(2,2)
Print

matrix(0,0) = 56.23
matrix(0,1) = 7.87
matrix(0,2) = 65.12
matrix(1,0) = 876.23
matrix(1,1) = 3.42
matrix(1,2) = 87.55
matrix(2,0) = 9.96
matrix(2,1) = 5.64
matrix(2,2) = 0.74
matrix = CNCL_MatrixScalarMul(matrix,2.772)

Print matrix(0,0), matrix(0,1), matrix(0,2)
Print matrix(1,0), matrix(1,1), matrix(1,2)
Print matrix(2,0), matrix(2,1), matrix(2,2)

4.2          0             0 
0            4.2           0 
0            0             4.2 

155.86956    21.81564      180.51264 
2428.90956   9.48024       242.6886 
27.60912     15.63408      2.05128