Mercurial > hg > octave-lyh

comparison src/data.cc @ 648:4b3702b878fc

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 1994-08-24 15:37:52 by jwe]
author jwe
date Wed, 24 Aug 1994 15:39:39 +0000
parents e04527366917
children 1a674dba2e9e
comparison
equal deleted inserted replaced
647:d5ae051388b0 648:4b3702b878fc
68 68
69 if (nargin != 2) 69 if (nargin != 2)
70 print_usage ("any"); 70 print_usage ("any");
71 else if (nargin > 0 && args(1).is_defined ()) 71 else if (nargin > 0 && args(1).is_defined ())
72 retval = args(1).any (); 72 retval = args(1).any ();
73
74 return retval;
75 }
76
77 DEFUN ("atan2", Fatan2, Satan2, 3, 1,
78 "atan2 (Y, X): atan (Y / X) in range -pi to pi")
79 {
80 Octave_object retval;
81
82 if (args.length () != 3)
83 print_usage ("atan2");
84 else
85 {
86 double y = args(1).double_value ();
87
88 if (! error_state)
89 {
90 double x = args(2).double_value ();
91
92 if (! error_state)
93 retval = atan2 (y, x);
94 }
95 }
96 73
97 return retval; 74 return retval;
98 } 75 }
99 76
100 DEFUN ("cumprod", Fcumprod, Scumprod, 2, 1, 77 DEFUN ("cumprod", Fcumprod, Scumprod, 2, 1,