ARRAYs

[Gintaras]

Macro Macro2485

Code:

Copy      Help

;2-dim array
ARRAY(double) a
a.create(3 2) ;;3 columns, 2 rows
;row 0
a[0 0]=4800
a[1 0]=160
a[2 0]=160
;row 1
a[0 1]=4900
a[1 1]=163.333333
a[2 1]=160
;resizing example
a.redim(3) ;;3 rows
;row 2
a[0 2]=5000
a[1 2]=166.666666
a[2 2]=170
;__________________________

int i
for i 0 a.len
,out F"{a[0 i]} {a[1 i]} {a[2 i]}"

To set a 2-dim array easier, can be used CSV
Macro Macro2483

Code:

Copy      Help

str csv=
;4800, 160, 160
;4900, 163.333333, 160
;5000, 166.666666, 170
ICsv x._create
x.FromString(csv)
ARRAY(str) a
x.ToArray(a)
;__________________________

int i
for i 0 a.len
,out F"{a[0 i]} {a[1 i]} {a[2 i]}"

;note: the array is str, not double. If need numeric values, use val to convert.
for i 0 a.len
,double d0 d1 d2
,d0=val(a[0 i] 2)
,d1=val(a[1 i] 2)
,d2=val(a[2 i] 2)
,out F"{d0} {d1} {d2}"