Mercurial > hg > octave-nkf

comparison src/fsolve.cc @ 252:bc5e6cb785d1

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 1993-12-06 21:52:57 by jwe]
author jwe
date Mon, 06 Dec 1993 21:57:51 +0000
parents a99f28f5e351
children 7ec58832918f
comparison
equal deleted inserted replaced
251:d2ada1d8b70c 252:bc5e6cb785d1
48 int 48 int
49 hybrd_info_to_fsolve_info (int info) 49 hybrd_info_to_fsolve_info (int info)
50 { 50 {
51 switch (info) 51 switch (info)
52 { 52 {
53 case -1:
54 info = -2;
55 break;
53 case 0: 56 case 0:
54 info = -1; 57 info = -1;
55 break; 58 break;
56 case 1: 59 case 1:
57 break; 60 break;
101 tree_constant *tmp = fsolve_fcn->eval (args, 2, 1, 0); 104 tree_constant *tmp = fsolve_fcn->eval (args, 2, 1, 0);
102 delete [] args; 105 delete [] args;
103 if (tmp != NULL_TREE_CONST && tmp[0].is_defined ()) 106 if (tmp != NULL_TREE_CONST && tmp[0].is_defined ())
104 { 107 {
105 retval = tmp[0].to_vector (); 108 retval = tmp[0].to_vector ();
109
106 delete [] tmp; 110 delete [] tmp;
111
112 if (retval.length () <= 0)
113 gripe_user_supplied_eval ("fsolve");
107 } 114 }
108 else 115 else
109 { 116 {
110 delete [] tmp; 117 delete [] tmp;
111 gripe_user_supplied_eval ("fsolve"); 118 gripe_user_supplied_eval ("fsolve");
112 jump_to_top_level ();
113 } 119 }
114 } 120 }
115 121
116 return retval; 122 return retval;
117 } 123 }