Changeset dbff8ec for doc/theses/mike_brooks_MMath/programs/hello-md.cfa
- Timestamp:
- Jul 10, 2024, 3:39:37 AM (19 months ago)
- Branches:
- master
- Children:
- 725f777f
- Parents:
- bb336a6 (diff), f3811df (diff)
Note: this is a merge changeset, the changes displayed below correspond to the merge itself.
Use the(diff)links above to see all the changes relative to each parent. - File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
doc/theses/mike_brooks_MMath/programs/hello-md.cfa
rbb336a6 rdbff8ec 39 39 40 40 forall( [N] ) 41 void print1d_cstyle( array( float, N) & c );41 void print1d_cstyle( array( float, N ) & r ); $\C{// C style}$ 42 42 43 forall( [N], C & | ar( C, float, N ) )43 forall( [N], C & @| ar( C, float, N )@ ) $\C{// add trait}$ 44 44 void print1d( C & c ); 45 45 … … 59 59 60 60 forall( [N] ) 61 void print1d_cstyle( array(float, N) & c ) { 62 for ( i; N ) { 63 sout | c[i] | nonl; 64 } 61 void print1d_cstyle( array( float, N ) & r ) { $\C{// C style}$ 62 for ( i; N ) sout | r[i] | nonl; 65 63 sout | nl; 66 64 } 65 66 67 67 68 68 … … 98 98 99 99 100 void fill( array( float, 5, 7) & a ) {100 void fill( array( float, 5, 7 ) & a ) { 101 101 for ( i; (ptrdiff_t) 5 ) { 102 102 for ( j; 7 ) { … … 116 116 117 117 118 array( float, 5, 7 ) a;119 fill( a);118 array( float, 5, 7 ) m; 119 fill( m ); 120 120 /* 121 0.0 0.1 0.2 0.3 0.4 0.5 0.6 122 1.0 1.1 1.2 1.3 1.4 1.5 1.6 123 2.0 2.1 2.2 2.3 2.4 2.5 2.6 124 3.0 3.1 3.2 3.3 3.4 3.5 3.6 125 4.0 4.1 4.2 4.3 4.4 4.5 4.6 121 r/c 0 1 2 3 4 5 6 122 0 0.0 0.1 0.2 @0.3@ 0.4 0.5 0.6 123 1 1.0 1.1 1.2 @1.3@ 1.4 1.5 1.6 124 2 @2.0 2.1 2.2 2.3 2.4 2.5 2.6@ 125 3 3.0 3.1 3.2 @3.3@ 3.4 3.5 3.6 126 4 4.0 4.1 4.2 @4.3@ 4.4 4.5 4.6 126 127 */ 127 128 … … 137 138 138 139 139 140 print1d_cstyle( a[ 2 ] ); // 2.0 2.1 2.2 2.3 2.4 2.5 2.6 140 print1d_cstyle( m[ 2 ] ); $\C{// row 2: 2.0 2.1 2.2 2.3 2.4 2.5 2.6}$ 141 141 142 142 143 143 144 144 145 print1d( a[ 2 ] ); // 2.0 2.1 2.2 2.3 2.4 2.5 2.6145 print1d( m[ 2 ] ); $\C{// row: 2.0 2.1 2.2 2.3 2.4 2.5 2.6}$ 146 146 147 147 148 148 149 149 150 print1d( a[ 2, all ] ); // 2.0 2.1 2.2 2.3 2.4 2.5 2.6151 print1d( a[ all, 3 ] ); // 0.3 1.3 2.3 3.3 4.3150 print1d( m[ 2, all ] ); $\C{// row 2: 2.0 2.1 2.2 2.3 2.4 2.5 2.6}$ 151 print1d( m[ all, 3 ] ); $\C{// column 3: 0.3 1.3 2.3 3.3 4.3}$ 152 152 153 153 154 154 155 print1d_cstyle( a[ 2, all ] );155 print1d_cstyle( m[ 2, all ] ); 156 156 157 157 … … 163 163 #ifdef SHOW_ERROR_1 164 164 165 print1d_cstyle( a[ all, 2 ] ); // bad165 print1d_cstyle( m[ all, 2 ] ); $\C{// bad}$ 166 166 167 167 #endif
Note:
See TracChangeset
for help on using the changeset viewer.