Mercurial > octave-nkf

comparison src/DLD-FUNCTIONS/dassl.cc @ 14854:5ae9f0f77635

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
maint: Use Octave coding conventions for coddling parenthis is DLD-FUNCTIONS directory * __fltk_uigetfile__.cc, __glpk__.cc, __init_fltk__.cc, __magick_read__.cc, besselj.cc, bsxfun.cc, ccolamd.cc, cellfun.cc, chol.cc, colamd.cc, daspk.cc, dasrt.cc, dassl.cc, dmperm.cc, fft.cc, filter.cc, find.cc, gcd.cc, kron.cc, lsode.cc, lu.cc, luinc.cc, quad.cc, quadcc.cc, rand.cc, regexp.cc, schur.cc, str2double.cc, symbfact.cc, symrcm.cc, tril.cc, urlwrite.cc: Use Octave coding conventions for coddling parenthis is DLD-FUNCTIONS directory.
author Rik <octave@nomad.inbox5.com>
date Mon, 09 Jul 2012 13:01:49 -0700
parents 460a3c6d8bf1
children
comparison
equal deleted inserted replaced
14853:72b8b39e12be 14854:5ae9f0f77635
320 dassl_jac = c(1).function_value (); 320 dassl_jac = c(1).function_value ();
321 else 321 else
322 { 322 {
323 jac_name = unique_symbol_name ("__dassl_jac__"); 323 jac_name = unique_symbol_name ("__dassl_jac__");
324 jname = "function jac = "; 324 jname = "function jac = ";
325 jname.append(jac_name); 325 jname.append (jac_name);
326 jname.append (" (x, xdot, t, cj) jac = "); 326 jname.append (" (x, xdot, t, cj) jac = ");
327 dassl_jac = extract_function 327 dassl_jac = extract_function
328 (c(1), "dassl", jac_name, jname, "; endfunction"); 328 (c(1), "dassl", jac_name, jname, "; endfunction");
329 329
330 if (!dassl_jac) 330 if (!dassl_jac)
376 376
377 if (dassl_fcn) 377 if (dassl_fcn)
378 { 378 {
379 jac_name = unique_symbol_name ("__dassl_jac__"); 379 jac_name = unique_symbol_name ("__dassl_jac__");
380 jname = "function jac = "; 380 jname = "function jac = ";
381 jname.append(jac_name); 381 jname.append (jac_name);
382 jname.append (" (x, xdot, t, cj) jac = "); 382 jname.append (" (x, xdot, t, cj) jac = ");
383 dassl_jac = extract_function 383 dassl_jac = extract_function
384 (tmp(1), "dassl", jac_name, jname, 384 (tmp(1), "dassl", jac_name, jname,
385 "; endfunction"); 385 "; endfunction");
386 386