/dports/comms/wsjtz/wsjtx/lib/ |
H A D | determ.f90 | 5 determ=1. 11 determ=0. 19 determ=-1.*determ 20 41 determ=determ*array(k,k)
|
H A D | polyfit.f90 | 42 delta=determ(array,nterms) 55 a(l)=determ(array,nterms)/delta
|
/dports/science/InsightToolkit/ITK-5.0.1/Modules/ThirdParty/VNL/src/vxl/core/vnl/algo/ |
H A D | vnl_sparse_lu.cxx | 190 double determ; in determinant() local 199 spDeterminant(pmatrix_, &exponent, &determ); in determinant() 204 determ *= 0.1; in determinant() 207 return determ; in determinant() 212 determ *= 10.0; in determinant() 216 return determ; in determinant()
|
/dports/misc/vxl/vxl-3.3.2/core/vnl/algo/ |
H A D | vnl_sparse_lu.cxx | 204 double determ; in determinant() local 213 spDeterminant(pmatrix_, &exponent, &determ); in determinant() 218 determ *= 0.1; in determinant() 221 return determ; in determinant() 226 determ *= 10.0; in determinant() 230 return determ; in determinant()
|
/dports/math/scilab/scilab-6.1.1/scilab/modules/polynomials/tests/nonreg_tests/ |
H A D | bug_205.dia.ref | 15 // determ oublie les termes de plus haut degre. 17 // On Scilab 2.5 with " determ " function 26 // p=determ(eye(N,N)*s-a) 34 P = determ( eye(N,N)*%s - A );
|
H A D | bug_205.tst | 17 // determ oublie les termes de plus haut degre. 19 // On Scilab 2.5 with " determ " function 28 // p=determ(eye(N,N)*s-a) 37 P = determ( eye(N,N)*%s - A );
|
/dports/science/cdo/cdo-2.0.0/src/ |
H A D | remap_conserv_scrip.cc | 310 determ = mat1 * mat4 - mat2 * mat3; in pole_intersection() 323 if (std::fabs(determ) > 1.e-30) in pole_intersection() 325 s1 = (rhs1 * mat4 - mat2 * rhs2) / determ; in pole_intersection() 350 determ = mat1 * mat4 - mat2 * mat3; in pole_intersection() 358 if (IS_NOT_EQUAL(determ, 0)) in pole_intersection() 388 if (s1 - eps / determ < ONE) in pole_intersection() 783 determ = mat1 * mat4 - mat2 * mat3; in intersection() 796 if (std::fabs(determ) > 1.e-30) in intersection() 832 determ = mat1 * mat4 - mat2 * mat3; in intersection() 840 if (IS_NOT_EQUAL(determ, 0)) in intersection() [all …]
|
/dports/graphics/freeglut/freeglut-3.2.1/progs/demos/Fractals/ |
H A D | fractals.c | 290 double determ ; /* Determinant of this matrix */ in readConfigFile() local 299 determ = m00 * m11 - m01 * m10 ; in readConfigFile() 301 if ( fabs ( determ ) > 1.e-6 ) in readConfigFile() 303 affine[i].statx = ( m11 * affine[i].b0 - m01 * affine[i].b1 ) / determ ; in readConfigFile() 304 affine[i].staty = ( -m10 * affine[i].b0 + m00 * affine[i].b1 ) / determ ; in readConfigFile()
|
/dports/graphics/mupdf/mupdf-1.18.0-source/thirdparty/freeglut/progs/demos/Fractals/ |
H A D | fractals.c | 290 double determ ; /* Determinant of this matrix */ in readConfigFile() local 299 determ = m00 * m11 - m01 * m10 ; in readConfigFile() 301 if ( fabs ( determ ) > 1.e-6 ) in readConfigFile() 303 affine[i].statx = ( m11 * affine[i].b0 - m01 * affine[i].b1 ) / determ ; in readConfigFile() 304 affine[i].staty = ( -m10 * affine[i].b0 + m00 * affine[i].b1 ) / determ ; in readConfigFile()
|
/dports/graphics/freeglut/freeglut-3.2.1/progs/demos/Fractals_random/ |
H A D | fractals_random.c | 334 double determ ; /* Determinant of this matrix */ in readConfigFile() local 343 determ = m00 * m11 - m01 * m10 ; in readConfigFile() 345 if ( fabs ( determ ) > 1.e-6 ) in readConfigFile() 347 affine[i].statx = ( m11 * affine[i].b0 - m01 * affine[i].b1 ) / determ ; in readConfigFile() 348 affine[i].staty = ( -m10 * affine[i].b0 + m00 * affine[i].b1 ) / determ ; in readConfigFile()
|
/dports/graphics/mupdf/mupdf-1.18.0-source/thirdparty/freeglut/progs/demos/Fractals_random/ |
H A D | fractals_random.c | 334 double determ ; /* Determinant of this matrix */ in readConfigFile() local 343 determ = m00 * m11 - m01 * m10 ; in readConfigFile() 345 if ( fabs ( determ ) > 1.e-6 ) in readConfigFile() 347 affine[i].statx = ( m11 * affine[i].b0 - m01 * affine[i].b1 ) / determ ; in readConfigFile() 348 affine[i].staty = ( -m10 * affine[i].b0 + m00 * affine[i].b1 ) / determ ; in readConfigFile()
|
/dports/science/siesta/siesta-4.1.5/Src/ |
H A D | detover.F | 72 complex(dp) :: det(2), pipj, determ 195 determ=det(1) 196 deti=aimag(determ) 197 detr=real(determ)
|
/dports/audio/ardour6/Ardour-6.8.0/libs/qm-dsp/maths/ |
H A D | Polyfit.h | 294 double determ; in GaussJordan2() local 303 determ = 1.0; in GaussJordan2() 336 determ = -determ; in GaussJordan2() 346 determ *= pivot; in GaussJordan2()
|
/dports/science/mpqc/mpqc-2.3.1/src/lib/math/optimize/ |
H A D | diis.cc | 248 double norm, determ; in extrapolate() local 312 determ = cmat_solve_lin(bmat,0,btemp,col); in extrapolate() 315 while (fabs(determ) < 1.0e-19 && trial < last) { in extrapolate() 339 determ = cmat_solve_lin(bmat,0,btemp,col); in extrapolate() 342 if (fabs(determ) < 10.0e-20) { in extrapolate()
|
/dports/audio/zrythm/zrythm-1.0.0-alpha.26.0.13/ext/qm-dsp/maths/ |
H A D | Polyfit.h | 300 double determ; in GaussJordan2() local 310 determ = 1.0; in GaussJordan2() 340 determ = -determ; in GaussJordan2() 353 determ *= pivot; in GaussJordan2()
|
/dports/audio/mixxx/mixxx-2.3.0/lib/qm-dsp/maths/ |
H A D | Polyfit.h | 300 double determ; in GaussJordan2() local 310 determ = 1.0; in GaussJordan2() 340 determ = -determ; in GaussJordan2() 353 determ *= pivot; in GaussJordan2()
|
/dports/math/scilab/scilab-6.1.1/scilab/modules/overloading/macros/ |
H A D | %r_det.sci | 16 x=determ(n)/determ(d);
|
/dports/science/frontistr/FrontISTR-c66bdc397de319ca59a0565b3f3b1a3b33f0c50c/fistr1/src/lib/contact/ |
H A D | contact_lib.f90 | 235 real(kind=kreal) :: determ, inverse(2,2) local 273 determ = d2F(1,1)*d2F(2,2) - d2F(1,2)*d2f(2,1) 274 if( determ==0.d0 ) stop "Math error in contact searching" 275 inverse(1,1) = d2F(2,2) / determ 276 inverse(2,2) = d2F(1,1) / determ 277 inverse(1,2) = -d2F(1,2) / determ 278 inverse(2,1) = -d2F(2,1) / determ
|
/dports/math/libpgmath/flang-d07daf3/runtime/libpgmath/lib/x86_64/ |
H A D | libm_inlines_amd.h | 1945 int first, last, i, rexp, xexp, resexp, ltb, determ, bc; in __remainder_piby2f_inline() local 2019 determ = ltb & 1; in __remainder_piby2f_inline() 2027 determ); in __remainder_piby2f_inline() 2031 if (determ) { in __remainder_piby2f_inline() 2080 if (determ) in __remainder_piby2f_inline() 2121 int first, last, i, rexp, xexp, resexp, ltb, determ; in __remainder_piby2_inline() local 2239 determ = ltb & 1; in __remainder_piby2_inline() 2247 determ); in __remainder_piby2_inline() 2251 if (determ) { in __remainder_piby2_inline() 2290 if (determ) in __remainder_piby2_inline() [all …]
|
/dports/math/lidia/lidia-2.3.0+latte-patches-2014-10-04/src/lattices/ |
H A D | bi_basis.cc | 327 bigint determ; in Tr_make_basis() local 331 determ.assign_zero(); in Tr_make_basis() 333 determ = det(TrBiM); in Tr_make_basis() 337 determ = det(TrBiM*TrTrBiM); in Tr_make_basis() 340 determ.assign_zero(); in Tr_make_basis() 346 if (determ.is_zero()) { in Tr_make_basis()
|
H A D | bf_basis.cc | 450 bigint determ; in Tr_make_basis() local 463 determ.assign_zero(); in Tr_make_basis() 465 determ = det(TrBiM); in Tr_make_basis() 469 determ = det(TrBiM*TrTrBiM); in Tr_make_basis() 472 determ.assign_zero(); in Tr_make_basis() 476 if (determ.is_zero()) { in Tr_make_basis()
|
/dports/math/scilab/scilab-6.1.1/scilab/modules/polynomials/macros/ |
H A D | determ.sci | 14 function res=determ(W,k) 25 …nt #%d: A floating point number or polynomial or rational fraction array expected.\n"),"determ",1)) 28 …msprintf(gettext("%s: Wrong size for input argument #%d: A square matrix expected.\n"),"determ",1))
|
/dports/print/scribus-devel/scribus-1.5.7/scribus/third_party/lib2geom/ |
H A D | matrix.cpp | 177 Geom::Coord const determ = det(); in inverse() local 178 if (!are_near(determ, 0.0)) { in inverse() 179 Geom::Coord const ideterm = 1.0 / determ; in inverse()
|
/dports/editors/emacs/emacs-27.2/lisp/ |
H A D | icomplete.el | 635 (determ (unless (or (eq t compare) (eq t most-try) 650 (or determ (concat open-bracket close-bracket))) 698 (setq determ (concat open-bracket "" close-bracket))) 722 (concat determ 727 (concat determ " [Matched]"))))))
|
/dports/science/lammps/lammps-stable_29Sep2021/src/RIGID/ |
H A D | fix_rattle.cpp | 519 double determ, determinv; in solve2x2exactly() local 523 determ = a[0][0] * a[1][1] - a[0][1] * a[1][0]; in solve2x2exactly() 527 if (determ == 0.0) error->one(FLERR,"Rattle determinant = 0.0"); in solve2x2exactly() 528 determinv = 1.0/determ; in solve2x2exactly() 542 double determ, determinv; in solve3x3exactly() local 546 determ = a[0][0]*a[1][1]*a[2][2] + a[0][1]*a[1][2]*a[2][0] + in solve3x3exactly() 552 if (determ == 0.0) error->one(FLERR,"Rattle determinant = 0.0"); in solve3x3exactly() 556 determinv = 1.0/determ; in solve3x3exactly()
|