Mercurial > hg > octave-lyh

comparison src/quad.cc @ 216:e83d64b26659

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 1993-11-13 09:04:18 by jwe]
author jwe
date Sat, 13 Nov 1993 09:11:10 +0000
parents d1c5e5edbf1e
children a99f28f5e351
comparison
equal deleted inserted replaced
215:cf3f13026ff6 216:e83d64b26659
124 switch (nargin) 124 switch (nargin)
125 { 125 {
126 case 6: 126 case 6:
127 if (indefinite) 127 if (indefinite)
128 { 128 {
129 message ("quad", "sorry, singularities not allowed on infinite intervals"); 129 error("quad: singularities not allowed on infinite intervals");
130 return retval; 130 return retval;
131 } 131 }
132 have_sing = 1; 132 have_sing = 1;
133 sing = args[5].to_vector (); 133 sing = args[5].to_vector ();
134 case 5: 134 case 5:
139 reltol = tol.elem (1); 139 reltol = tol.elem (1);
140 case 1: 140 case 1:
141 abstol = tol.elem (0); 141 abstol = tol.elem (0);
142 break; 142 break;
143 default: 143 default:
144 message ("quad", "expecting tol to contain no more than two values"); 144 error ("quad: expecting tol to contain no more than two values");
145 return retval; 145 return retval;
146 } 146 }
147 case 4: 147 case 4:
148 if (indefinite) 148 if (indefinite)
149 { 149 {