Changeset 237 for trunk/SRC/Matrix
- Timestamp:
- 03/26/07 17:37:03 (17 years ago)
- Location:
- trunk/SRC/Matrix
- Files:
-
- 5 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/SRC/Matrix/cmapply.pro
r232 r237 6 6 ; @param X 7 7 ; 8 ; 9 ; @version$Id$8 ; @version 9 ; $Id$ 10 10 ; 11 11 ; @todo seb 12 12 ;- 13 13 ; 14 functioncmapply_product, x14 FUNCTION cmapply_product, x 15 15 ; 16 16 compile_opt idl2, strictarrsubs … … 29 29 30 30 ;+ 31 ; 31 32 ; @file_comments 32 33 ; cmapply_redim : Utility function, used to collect collaped dimensions … … 34 35 ; @param newarr 35 36 ; 36 ;37 37 ; @param dimapply 38 38 ; 39 ;40 39 ; @param dimkeep 41 40 ; 42 ;43 41 ; @param nkeep 44 42 ; 45 ;46 43 ; @param totcol 47 44 ; 48 ;49 45 ; @param totkeep 50 46 ; 51 ;52 47 ; @todo seb 48 ; 53 49 ;- 54 50 ; 55 procmapply_redim, newarr, dimapply, dimkeep, nkeep, totcol, totkeep51 PRO cmapply_redim, newarr, dimapply, dimkeep, nkeep, totcol, totkeep 56 52 ; 57 53 compile_opt idl2, strictarrsubs … … 78 74 end 79 75 80 ; ;Main function76 ;Main function 81 77 ;+ 82 78 ; … … 237 233 ; 238 234 ;- 239 function cmapply, op, array, dimapply, double=dbl, type=type, $ 235 ; 236 FUNCTION cmapply, op, array, dimapply, double=dbl, type=type, $ 240 237 functargs=functargs, nocatch=nocatch 241 238 ; -
trunk/SRC/Matrix/cmset_op.pro
r163 r237 1 1 ;+ 2 ; 2 3 ; @hidden 3 4 ; … … 7 8 ; 8 9 ; @todo seb 10 ; 9 11 ;- 10 12 ; 11 functioncmset_op_uniq, a13 FUNCTION cmset_op_uniq, a 12 14 ; 13 15 compile_opt idl2, strictarrsubs … … 129 131 ; SET_UTILS.PRO by RSI 130 132 ; 131 ; @history Written, CM, 23 Feb 2000 133 ; @history 134 ; Written, CM, 23 Feb 2000 132 135 ; Added empty set capability, CM, 25 Feb 2000 133 136 ; Documentation clarification, CM 02 Mar 2000 … … 160 163 ; craigm\@lheamail.gsfc.nasa.gov 161 164 ; 162 ; @version $Id$ 165 ; @version 166 ; $Id$ 163 167 ; 164 168 ; @examples … … 192 196 ; 193 197 ;- 194 195 196 function cmset_op, a, op0, b, not1=not1, not2=not2, count=count, $ 198 ; 199 FUNCTION cmset_op, a, op0, b, not1=not1, not2=not2, count=count, $ 197 200 empty1=empty1, empty2=empty2, maxarray=ma, index=index 198 201 ; -
trunk/SRC/Matrix/inter.pro
r232 r237 7 7 ; Calculation 8 8 ; 9 ; @param a {in}{required} arrays of positive integers, which need not to be 9 ; @param a {in}{required} 10 ; arrays of positive integers, which need not to be 10 11 ; sorted. Duplicate elements are ignored, as they have no effect on the 11 12 ; result 12 13 ; 13 ; @param b {in}{required} see a 14 ; @param b {in}{required} 15 ; see a 14 16 ; 15 ; @returns tableau 17 ; @returns 18 ; tableau 16 19 ; 17 ; @restrictions The empty set is denoted by an array with the first element equal to 20 ; @restrictions 21 ; The empty set is denoted by an array with the first element equal to 18 22 ; -1. 19 23 ; 20 ; @restrictions These functions will not be efficient on sparse sets with wide 21 ; ranges, as they trade memory for efficiency. The HISTOGRAM function 24 ; @restrictions 25 ; These functions will not be efficient on sparse sets with wide 26 ; ranges, as they trade memory for efficiency. 27 ; The <proidl>HISTOGRAM</proidl> function 22 28 ; is used, which creates arrays of size equal to the range of the 23 29 ; resulting set. -
trunk/SRC/Matrix/union.pro
r232 r237 12 12 ; effect on the result 13 13 ; 14 ; @param b {in}{required} see a 14 ; @param b {in}{required} 15 ; see a 15 16 ; 16 17 ; @returns … … 20 21 ; The empty set is denoted by an array with the first element equal to -1. 21 22 ; 22 ; @restrictions These functions will not be efficient on sparse sets with wide 23 ; ranges, as they trade memory for efficiency. The HISTOGRAM function 23 ; @restrictions 24 ; These functions will not be efficient on sparse sets with wide 25 ; ranges, as they trade memory for efficiency. 26 ; The <proidl>HISTOGRAM</proidl> function 24 27 ; is used, which creates arrays of size equal to the range of the 25 28 ; resulting set. -
trunk/SRC/Matrix/zero_one.pro
r231 r237 1 1 ;+ 2 ; @file_comments 2 ; @file_comments 3 3 ; Send back a vector or a matrix constituted of 0 and 1 in alternation 4 4 ; 5 ; @categories 5 ; @categories 6 6 ; Function, Matrix 7 7 ; 8 ; @param n1 {in}{required} number of elements in the first dimension9 ; @param n2 {in}{required} number of elements in the seconddimension8 ; @param n1 {in}{required} 9 ; number of elements in the first dimension 10 10 ; 11 ; @returns result 12 ; 13 ; @history Sebastien Masson (smasson\@lodyc.jussieu.fr) 11 ; @param n2 {in}{required} 12 ; number of elements in the second dimension 13 ; 14 ; @returns 15 ; result 16 ; 17 ; @history 18 ; Sebastien Masson (smasson\@lodyc.jussieu.fr) 14 19 ; 1/12/98 15 20 ; 16 ; @version $Id$ 21 ; @version 22 ; $Id$ 17 23 ; 18 24 ;- 19 25 ; 20 functionzero_one, n1,n226 FUNCTION zero_one, n1,n2 21 27 ; 22 28 compile_opt idl2, strictarrsubs … … 24 30 CASE N_PARAMS() OF 25 31 1:return, findgen(n1) mod 2 26 2:BEGIN 32 2:BEGIN 27 33 if fix(n1/2) EQ n1/2. then BEGIN ;even number of columns 28 34 res = findgen(n1+1,n2) mod 2 … … 31 37 END 32 38 else: return, report('bad number of arguments') 33 endcase 39 endcase 34 40 end
Note: See TracChangeset
for help on using the changeset viewer.