Mercurial > hg > octave-avbm

comparison src/data.cc @ 5823:080c08b192d8

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 2006-05-19 05:32:17 by jwe]
author jwe
date Fri, 19 May 2006 05:32:19 +0000
parents 7e7ed81f5566
children 265723390e7b
comparison
equal deleted inserted replaced
5822:4fdc2515ebad 5823:080c08b192d8
66 } \ 66 } \
67 else \ 67 else \
68 error (#FCN ": expecting dimension argument to be an integer"); \ 68 error (#FCN ": expecting dimension argument to be an integer"); \
69 } \ 69 } \
70 else \ 70 else \
71 print_usage (#FCN); \ 71 print_usage (); \
72 \ 72 \
73 return retval 73 return retval
74 74
75 DEFUN (all, args, , 75 DEFUN (all, args, ,
76 "-*- texinfo -*-\n\ 76 "-*- texinfo -*-\n\
260 } 260 }
261 else 261 else
262 error ("atan2: nonconformant matrices"); 262 error ("atan2: nonconformant matrices");
263 } 263 }
264 else 264 else
265 print_usage ("atan2"); 265 print_usage ();
266 266
267 return retval; 267 return retval;
268 } 268 }
269 269
270 DEFUN (fmod, args, , 270 DEFUN (fmod, args, ,
351 } 351 }
352 else 352 else
353 error ("fmod: nonconformant matrices"); 353 error ("fmod: nonconformant matrices");
354 } 354 }
355 else 355 else
356 print_usage ("fmod"); 356 print_usage ();
357 357
358 return retval; 358 return retval;
359 } 359 }
360 360
361 #define DATA_REDUCTION(FCN) \ 361 #define DATA_REDUCTION(FCN) \
397 else \ 397 else \
398 error (#FCN ": invalid dimension argument = %d", dim + 1); \ 398 error (#FCN ": invalid dimension argument = %d", dim + 1); \
399 } \ 399 } \
400 } \ 400 } \
401 else \ 401 else \
402 print_usage (#FCN); \ 402 print_usage (); \
403 \ 403 \
404 return retval 404 return retval
405 405
406 DEFUN (cumprod, args, , 406 DEFUN (cumprod, args, ,
407 "-*- texinfo -*-\n\ 407 "-*- texinfo -*-\n\
662 if (nargin == 1 && args(0).is_defined ()) 662 if (nargin == 1 && args(0).is_defined ())
663 retval = make_diag (args(0)); 663 retval = make_diag (args(0));
664 else if (nargin == 2 && args(0).is_defined () && args(1).is_defined ()) 664 else if (nargin == 2 && args(0).is_defined () && args(1).is_defined ())
665 retval = make_diag (args(0), args(1)); 665 retval = make_diag (args(0), args(1));
666 else 666 else
667 print_usage ("diag"); 667 print_usage ();
668 668
669 return retval; 669 return retval;
670 } 670 }
671 671
672 DEFUN (prod, args, , 672 DEFUN (prod, args, ,
768 } 768 }
769 else 769 else
770 error ("%s: invalid dimension argument", fname.c_str ()); 770 error ("%s: invalid dimension argument", fname.c_str ());
771 } 771 }
772 else 772 else
773 print_usage (fname); 773 print_usage ();
774 774
775 return retval; 775 return retval;
776 } 776 }
777 777
778 DEFUN (horzcat, args, , 778 DEFUN (horzcat, args, ,
885 885
886 if (! error_state) 886 if (! error_state)
887 retval = ret; 887 retval = ret;
888 } 888 }
889 else 889 else
890 print_usage (fname); 890 print_usage ();
891 891
892 return retval; 892 return retval;
893 } 893 }
894 894
895 DEFUN (permute, args, , 895 DEFUN (permute, args, ,
935 935
936 if (! error_state) 936 if (! error_state)
937 retval = len; 937 retval = len;
938 } 938 }
939 else 939 else
940 print_usage ("length"); 940 print_usage ();
941 941
942 return retval; 942 return retval;
943 } 943 }
944 944
945 DEFUN (ndims, args, , 945 DEFUN (ndims, args, ,
958 958
959 if (! error_state) 959 if (! error_state)
960 retval = n_dims; 960 retval = n_dims;
961 } 961 }
962 else 962 else
963 print_usage ("ndims"); 963 print_usage ();
964 964
965 return retval; 965 return retval;
966 } 966 }
967 967
968 DEFUN (numel, args, , 968 DEFUN (numel, args, ,
985 985
986 retval = numel; 986 retval = numel;
987 } 987 }
988 } 988 }
989 else 989 else
990 print_usage ("numel"); 990 print_usage ();
991 991
992 return retval; 992 return retval;
993 } 993 }
994 994
995 DEFUN (size, args, nargout, 995 DEFUN (size, args, nargout,
1071 else 1071 else
1072 error ("size: requested dimension (= %d) out of range", nd); 1072 error ("size: requested dimension (= %d) out of range", nd);
1073 } 1073 }
1074 } 1074 }
1075 else 1075 else
1076 print_usage ("size"); 1076 print_usage ();
1077 1077
1078 return retval; 1078 return retval;
1079 } 1079 }
1080 1080
1081 DEFUN (nnz, args, , 1081 DEFUN (nnz, args, ,
1088 octave_value retval; 1088 octave_value retval;
1089 1089
1090 if (args.length () == 1) 1090 if (args.length () == 1)
1091 retval = args(0).nnz (); 1091 retval = args(0).nnz ();
1092 else 1092 else
1093 print_usage ("nnz"); 1093 print_usage ();
1094 1094
1095 return retval; 1095 return retval;
1096 } 1096 }
1097 1097
1098 DEFUN (nzmax, args, , 1098 DEFUN (nzmax, args, ,
1109 octave_value retval; 1109 octave_value retval;
1110 1110
1111 if (args.length() == 1) 1111 if (args.length() == 1)
1112 retval = args(0).nzmax (); 1112 retval = args(0).nzmax ();
1113 else 1113 else
1114 print_usage ("nzmax"); 1114 print_usage ();
1115 1115
1116 return retval; 1116 return retval;
1117 } 1117 }
1118 1118
1119 DEFUN (rows, args, , 1119 DEFUN (rows, args, ,
1126 octave_value retval; 1126 octave_value retval;
1127 1127
1128 if (args.length () == 1) 1128 if (args.length () == 1)
1129 retval = args(0).rows (); 1129 retval = args(0).rows ();
1130 else 1130 else
1131 print_usage ("rows"); 1131 print_usage ();
1132 1132
1133 return retval; 1133 return retval;
1134 } 1134 }
1135 1135
1136 DEFUN (columns, args, , 1136 DEFUN (columns, args, ,
1143 octave_value retval; 1143 octave_value retval;
1144 1144
1145 if (args.length () == 1) 1145 if (args.length () == 1)
1146 retval = args(0).columns (); 1146 retval = args(0).columns ();
1147 else 1147 else
1148 print_usage ("columns"); 1148 print_usage ();
1149 1149
1150 return retval; 1150 return retval;
1151 } 1151 }
1152 1152
1153 DEFUN (sum, args, , 1153 DEFUN (sum, args, ,
1191 octave_value retval; 1191 octave_value retval;
1192 1192
1193 if (args.length () == 1) 1193 if (args.length () == 1)
1194 retval = args(0).is_bool_type (); 1194 retval = args(0).is_bool_type ();
1195 else 1195 else
1196 print_usage ("isbool"); 1196 print_usage ();
1197 1197
1198 return retval; 1198 return retval;
1199 } 1199 }
1200 1200
1201 DEFALIAS (islogical, isbool); 1201 DEFALIAS (islogical, isbool);
1209 octave_value retval; 1209 octave_value retval;
1210 1210
1211 if (args.length () == 1) 1211 if (args.length () == 1)
1212 retval = args(0).is_complex_type (); 1212 retval = args(0).is_complex_type ();
1213 else 1213 else
1214 print_usage ("iscomplex"); 1214 print_usage ();
1215 1215
1216 return retval; 1216 return retval;
1217 } 1217 }
1218 1218
1219 // FIXME -- perhaps this should be implemented with an 1219 // FIXME -- perhaps this should be implemented with an
1329 1329
1330 if (error_state) 1330 if (error_state)
1331 error ("complex: invalid conversion"); 1331 error ("complex: invalid conversion");
1332 } 1332 }
1333 else 1333 else
1334 print_usage ("complex"); 1334 print_usage ();
1335 1335
1336 return retval; 1336 return retval;
1337 } 1337 }
1338 1338
1339 1339
1346 octave_value retval; 1346 octave_value retval;
1347 1347
1348 if (args.length () == 1) 1348 if (args.length () == 1)
1349 retval = args(0).is_real_type (); 1349 retval = args(0).is_real_type ();
1350 else 1350 else
1351 print_usage ("isreal"); 1351 print_usage ();
1352 1352
1353 return retval; 1353 return retval;
1354 } 1354 }
1355 1355
1356 DEFUN (isempty, args, , 1356 DEFUN (isempty, args, ,
1363 octave_value retval = false; 1363 octave_value retval = false;
1364 1364
1365 if (args.length () == 1) 1365 if (args.length () == 1)
1366 retval = args(0).is_empty (); 1366 retval = args(0).is_empty ();
1367 else 1367 else
1368 print_usage ("isempty"); 1368 print_usage ();
1369 1369
1370 return retval; 1370 return retval;
1371 } 1371 }
1372 1372
1373 DEFUN (isnumeric, args, , 1373 DEFUN (isnumeric, args, ,
1379 octave_value retval; 1379 octave_value retval;
1380 1380
1381 if (args.length () == 1) 1381 if (args.length () == 1)
1382 retval = args(0).is_numeric_type (); 1382 retval = args(0).is_numeric_type ();
1383 else 1383 else
1384 print_usage ("isnumeric"); 1384 print_usage ();
1385 1385
1386 return retval; 1386 return retval;
1387 } 1387 }
1388 1388
1389 DEFUN (islist, args, , 1389 DEFUN (islist, args, ,
1395 octave_value retval; 1395 octave_value retval;
1396 1396
1397 if (args.length () == 1) 1397 if (args.length () == 1)
1398 retval = args(0).is_list (); 1398 retval = args(0).is_list ();
1399 else 1399 else
1400 print_usage ("islist"); 1400 print_usage ();
1401 1401
1402 return retval; 1402 return retval;
1403 } 1403 }
1404 1404
1405 DEFUN (ismatrix, args, , 1405 DEFUN (ismatrix, args, ,
1418 retval = true; 1418 retval = true;
1419 else if (arg.is_matrix_type ()) 1419 else if (arg.is_matrix_type ())
1420 retval = (arg.rows () >= 1 && arg.columns () >= 1); 1420 retval = (arg.rows () >= 1 && arg.columns () >= 1);
1421 } 1421 }
1422 else 1422 else
1423 print_usage ("ismatrix"); 1423 print_usage ();
1424 1424
1425 return retval; 1425 return retval;
1426 } 1426 }
1427 1427
1428 static octave_value 1428 static octave_value
2237 retval = identity_matrix (nr, nc, dt); 2237 retval = identity_matrix (nr, nc, dt);
2238 } 2238 }
2239 break; 2239 break;
2240 2240
2241 default: 2241 default:
2242 print_usage ("eye"); 2242 print_usage ();
2243 break; 2243 break;
2244 } 2244 }
2245 2245
2246 return retval; 2246 return retval;
2247 } 2247 }
2265 2265
2266 int npoints = 100; 2266 int npoints = 100;
2267 2267
2268 if (nargin != 2 && nargin != 3) 2268 if (nargin != 2 && nargin != 3)
2269 { 2269 {
2270 print_usage ("linspace"); 2270 print_usage ();
2271 return retval; 2271 return retval;
2272 } 2272 }
2273 2273
2274 if (nargin == 3) 2274 if (nargin == 3)
2275 npoints = args(2).int_value (); 2275 npoints = args(2).int_value ();
2360 retval = args(0); 2360 retval = args(0);
2361 retval = retval.resize (dim_vector (m, n), true); 2361 retval = retval.resize (dim_vector (m, n), true);
2362 } 2362 }
2363 } 2363 }
2364 else 2364 else
2365 print_usage ("resize"); 2365 print_usage ();
2366 return retval; 2366 return retval;
2367 } 2367 }
2368 2368
2369 // FIXME -- should use octave_idx_type for dimensions. 2369 // FIXME -- should use octave_idx_type for dimensions.
2370 2370
2448 } 2448 }
2449 } 2449 }
2450 } 2450 }
2451 else 2451 else
2452 { 2452 {
2453 print_usage ("reshape"); 2453 print_usage ();
2454 return retval; 2454 return retval;
2455 } 2455 }
2456 2456
2457 if (error_state) 2457 if (error_state)
2458 { 2458 {
2507 octave_value retval; 2507 octave_value retval;
2508 2508
2509 if (args.length () == 1) 2509 if (args.length () == 1)
2510 retval = args(0).squeeze (); 2510 retval = args(0).squeeze ();
2511 else 2511 else
2512 print_usage ("squeeze"); 2512 print_usage ();
2513 2513
2514 return retval; 2514 return retval;
2515 } 2515 }
2516 2516
2517 /* 2517 /*