Mercurial > hg > octave-lyh

comparison src/data.cc @ 777:a2f9d3fd720c

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 1994-10-07 14:01:53 by jwe]
author jwe
date Fri, 07 Oct 1994 14:13:44 +0000
parents 42731861ee09
children 5e45f8f8f8c1
comparison
equal deleted inserted replaced
776:f19fb97286c6 777:a2f9d3fd720c
36 #include "tree-const.h" 36 #include "tree-const.h"
37 #include "user-prefs.h" 37 #include "user-prefs.h"
38 #include "help.h" 38 #include "help.h"
39 #include "utils.h" 39 #include "utils.h"
40 #include "error.h" 40 #include "error.h"
41 #include "gripes.h"
41 #include "defun.h" 42 #include "defun.h"
42 43
43 #ifndef MIN 44 #ifndef MIN
44 #define MIN(a,b) ((a) < (b) ? (a) : (b)) 45 #define MIN(a,b) ((a) < (b) ? (a) : (b))
45 #endif 46 #endif
826 switch (nargin) 827 switch (nargin)
827 { 828 {
828 case 0: 829 case 0:
829 retval = 1.0; 830 retval = 1.0;
830 break; 831 break;
832
831 case 1: 833 case 1:
832 retval = fill_matrix (args(0), 1.0, "ones"); 834 retval = fill_matrix (args(0), 1.0, "ones");
833 break; 835 break;
836
834 case 2: 837 case 2:
835 retval = fill_matrix (args(0), args(1), 1.0, "ones"); 838 retval = fill_matrix (args(0), args(1), 1.0, "ones");
836 break; 839 break;
840
837 default: 841 default:
838 print_usage ("ones"); 842 print_usage ("ones");
839 break; 843 break;
840 } 844 }
841 845
852 switch (nargin) 856 switch (nargin)
853 { 857 {
854 case 0: 858 case 0:
855 retval = 0.0; 859 retval = 0.0;
856 break; 860 break;
861
857 case 1: 862 case 1:
858 retval = fill_matrix (args(0), 0.0, "zeros"); 863 retval = fill_matrix (args(0), 0.0, "zeros");
859 break; 864 break;
865
860 case 2: 866 case 2:
861 retval = fill_matrix (args(0), args(1), 0.0, "zeros"); 867 retval = fill_matrix (args(0), args(1), 0.0, "zeros");
862 break; 868 break;
869
863 default: 870 default:
864 print_usage ("zeros"); 871 print_usage ("zeros");
865 break; 872 break;
866 } 873 }
867 874
920 switch (nargin) 927 switch (nargin)
921 { 928 {
922 case 0: 929 case 0:
923 retval = 1.0; 930 retval = 1.0;
924 break; 931 break;
932
925 case 1: 933 case 1:
926 retval = identity_matrix (args(0)); 934 retval = identity_matrix (args(0));
927 break; 935 break;
936
928 case 2: 937 case 2:
929 retval = identity_matrix (args(0), args(1)); 938 retval = identity_matrix (args(0), args(1));
930 break; 939 break;
940
931 default: 941 default:
932 print_usage ("eye"); 942 print_usage ("eye");
933 break; 943 break;
934 } 944 }
935 945