Mercurial > hg > octave-lyh

comparison src/ov-base.cc @ 7789:82be108cc558

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
First attempt at single precision tyeps * * * corrections to qrupdate single precision routines * * * prefer demotion to single over promotion to double * * * Add single precision support to log2 function * * * Trivial PROJECT file update * * * Cache optimized hermitian/transpose methods * * * Add tests for tranpose/hermitian and ChangeLog entry for new transpose code
author David Bateman <dbateman@free.fr>
date Sun, 27 Apr 2008 22:34:17 +0200
parents 5adeea5de26c
children f336dd8e96d0
comparison
equal deleted inserted replaced
7788:45f5faba05a2 7789:82be108cc558
424 double retval = lo_ieee_nan_value (); 424 double retval = lo_ieee_nan_value ();
425 gripe_wrong_type_arg ("octave_base_value::double_value ()", type_name ()); 425 gripe_wrong_type_arg ("octave_base_value::double_value ()", type_name ());
426 return retval; 426 return retval;
427 } 427 }
428 428
429 float
430 octave_base_value::float_value (bool) const
431 {
432 float retval = lo_ieee_float_nan_value ();
433 gripe_wrong_type_arg ("octave_base_value::float_value ()", type_name ());
434 return retval;
435 }
436
429 Cell 437 Cell
430 octave_base_value::cell_value () const 438 octave_base_value::cell_value () const
431 { 439 {
432 Cell retval; 440 Cell retval;
433 gripe_wrong_type_arg ("octave_base_value::cell_value()", type_name ()); 441 gripe_wrong_type_arg ("octave_base_value::cell_value()", type_name ());
440 Matrix retval; 448 Matrix retval;
441 gripe_wrong_type_arg ("octave_base_value::matrix_value()", type_name ()); 449 gripe_wrong_type_arg ("octave_base_value::matrix_value()", type_name ());
442 return retval; 450 return retval;
443 } 451 }
444 452
453 FloatMatrix
454 octave_base_value::float_matrix_value (bool) const
455 {
456 FloatMatrix retval;
457 gripe_wrong_type_arg ("octave_base_value::float_matrix_value()", type_name ());
458 return retval;
459 }
460
445 NDArray 461 NDArray
446 octave_base_value::array_value (bool) const 462 octave_base_value::array_value (bool) const
447 { 463 {
448 NDArray retval; 464 FloatNDArray retval;
449 gripe_wrong_type_arg ("octave_base_value::array_value()", type_name ()); 465 gripe_wrong_type_arg ("octave_base_value::array_value()", type_name ());
466 return retval;
467 }
468
469 FloatNDArray
470 octave_base_value::float_array_value (bool) const
471 {
472 FloatNDArray retval;
473 gripe_wrong_type_arg ("octave_base_value::float_array_value()", type_name ());
450 return retval; 474 return retval;
451 } 475 }
452 476
453 Complex 477 Complex
454 octave_base_value::complex_value (bool) const 478 octave_base_value::complex_value (bool) const
457 Complex retval (tmp, tmp); 481 Complex retval (tmp, tmp);
458 gripe_wrong_type_arg ("octave_base_value::complex_value()", type_name ()); 482 gripe_wrong_type_arg ("octave_base_value::complex_value()", type_name ());
459 return retval; 483 return retval;
460 } 484 }
461 485
486 FloatComplex
487 octave_base_value::float_complex_value (bool) const
488 {
489 float tmp = lo_ieee_float_nan_value ();
490 FloatComplex retval (tmp, tmp);
491 gripe_wrong_type_arg ("octave_base_value::float_complex_value()", type_name ());
492 return retval;
493 }
494
462 ComplexMatrix 495 ComplexMatrix
463 octave_base_value::complex_matrix_value (bool) const 496 octave_base_value::complex_matrix_value (bool) const
464 { 497 {
465 ComplexMatrix retval; 498 ComplexMatrix retval;
466 gripe_wrong_type_arg ("octave_base_value::complex_matrix_value()", 499 gripe_wrong_type_arg ("octave_base_value::complex_matrix_value()",
467 type_name ()); 500 type_name ());
468 return retval; 501 return retval;
469 } 502 }
470 503
504 FloatComplexMatrix
505 octave_base_value::float_complex_matrix_value (bool) const
506 {
507 FloatComplexMatrix retval;
508 gripe_wrong_type_arg ("octave_base_value::float_complex_matrix_value()",
509 type_name ());
510 return retval;
511 }
512
471 ComplexNDArray 513 ComplexNDArray
472 octave_base_value::complex_array_value (bool) const 514 octave_base_value::complex_array_value (bool) const
473 { 515 {
474 ComplexNDArray retval; 516 ComplexNDArray retval;
475 gripe_wrong_type_arg ("octave_base_value::complex_array_value()", 517 gripe_wrong_type_arg ("octave_base_value::complex_array_value()",
518 type_name ());
519 return retval;
520 }
521
522 FloatComplexNDArray
523 octave_base_value::float_complex_array_value (bool) const
524 {
525 FloatComplexNDArray retval;
526 gripe_wrong_type_arg ("octave_base_value::float_complex_array_value()",
476 type_name ()); 527 type_name ());
477 return retval; 528 return retval;
478 } 529 }
479 530
480 bool 531 bool