# source:doc/theses/mike_brooks_MMath/programs/hello-md.cfa@dab9fb93

Last change on this file since dab9fb93 was dab9fb93, checked in by Michael Brooks <mlbrooks@…>, 9 months ago

Accept Peter's proofreading and adjustment of examples to current syntax

• Property mode set to `100644`
File size: 1.3 KB
Line
1#include <fstream.hfa>
2#include <array.hfa>
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40forall( [N] )
41void print1d_cstyle( array(float, N) & c );
42
43forall( [N], C & | ar( C, float, N ) )
44void print1d( C & c );
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60forall( [N] )
61void print1d_cstyle( array(float, N) & c ) {
62    for ( i; N ) {
63        sout | c[i] | nonl;
64    }
65    sout | nl;
66}
67
68
69
70
71
72
73
74
75
76
77
78
79forall( [N], C & | ar( C, float, N ) )
80void print1d( C & c ) {
81    for( i; N ) {
82        sout | c[i] | nonl;
83    }
84    sout | nl;
85}
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100void fill( array(float, 5, 7) & a ) {
101    for ( i; (ptrdiff_t) 5 ) {
102        for ( j; 7 ) {
103            a[i,j] = 1.0 * i + 0.1 * j;
104            sout | a[[i,j]] | nonl;
105        }
106        sout | nl;
107    }
108    sout | nl;
109}
110
111int main() {
112
113
114
115
116
117
118array( float, 5, 7 ) a;
119fill(a);
120/*
1210.0  0.1  0.2  0.3  0.4  0.5  0.6
1221.0  1.1  1.2  1.3  1.4  1.5  1.6
1232.0  2.1  2.2  2.3  2.4  2.5  2.6
1243.0  3.1  3.2  3.3  3.4  3.5  3.6
1254.0  4.1  4.2  4.3  4.4  4.5  4.6
126*/
127
128
129
130
131
132
133
134
135
136
137
138
139
140print1d_cstyle( a[ 2 ] );  // 2.0  2.1  2.2  2.3  2.4  2.5  2.6
141
142
143
144
145print1d( a[ 2 ] );  // 2.0  2.1  2.2  2.3  2.4  2.5  2.6
146
147
148
149
150print1d( a[ 2, all ] );  // 2.0  2.1  2.2  2.3  2.4  2.5  2.6
151print1d( a[ all, 3 ] );  // 0.3  1.3  2.3  3.3  4.3
152
153
154
155print1d_cstyle( a[ 2, all ] );
156
157
158
159
160
161
162
163#ifdef SHOW_ERROR_1
164
165print1d_cstyle( a[ all, 2 ] );  // bad
166
167#endif
168
169}
Note: See TracBrowser for help on using the repository browser.