core/tool/interpr3.cxx

1743     double M = ::rtl::math::approxFloor(GetDouble());  in ScHypGeomDist()  local
1747     if( (x < 0.0) || (n < x) || (M < x) || (N < n) || (N < M) || (x < n - N + M) )  in ScHypGeomDist()
1756     size_t nEstContainerSize = static_cast<size_t>( x + ::std::min( n, M ) );  in ScHypGeomDist()
1767     double fCNumVarUpper = N - n - M + x - 1.0;  in ScHypGeomDist()
1769     if ( N - n - M + x >= M - x + 1.0 )  in ScHypGeomDist()
1771         fCNumVarUpper = M - x - 1.0;  in ScHypGeomDist()
1772         fCDenomVarLower = N - n - 2.0*(M - x) + 1.0;  in ScHypGeomDist()
1778     double fCDenomUpper = N - n - M + x + 1.0 - fCDenomVarLower;  in ScHypGeomDist()
1780     double fDNumVarLower = n - M;  in ScHypGeomDist()
1782     if ( n >= M + 1.0 )  in ScHypGeomDist()
1784         if ( N - M < n + 1.0 )  in ScHypGeomDist()
1802             DBG_ASSERT( fCDenomUpper <= N - M, "ScHypGeomDist: wrong assertion" );  in ScHypGeomDist()
1806                 lcl_PutFactorialElements( cnNumer, 1.0, N - M - n + x, N - M + 1.0 );  in ScHypGeomDist()
1810                 lcl_PutFactorialElements( cnNumer, 1.0, N - M - fCDenomUpper, N - M + 1.0 );  in ScHypGeomDist()
1813                 fCDenomVarLower = N - M - 2.0*(n - x) + 1.0;  in ScHypGeomDist()
1820             if ( n > M - 1.0 )  in ScHypGeomDist()
1824                 lcl_PutFactorialElements( cnDenom, 0.0, M - 1.0, N );  in ScHypGeomDist()
1828                 lcl_PutFactorialElements( cnNumer, M - n, fCNumVarUpper, N - n );  in ScHypGeomDist()
1836                 lcl_PutFactorialElements( cnNumer, N - M - n + 1.0, N - M - n + x, N - M + 1.0 );  in ScHypGeomDist()
1839 …           lcl_PutFactorialElements( cnNumer, N - M - n + 1.0, N - M - fCDenomUpper, N - M + 1.0 );  in ScHypGeomDist()
1841                 fCDenomVarLower = N - M - 2.0*(n - x) + 1.0;  in ScHypGeomDist()
1845         DBG_ASSERT( fCDenomUpper <= M, "ScHypGeomDist: wrong assertion" );  in ScHypGeomDist()
1849         if ( N - M < M + 1.0 )  in ScHypGeomDist()
1853             if ( N - n < M + 1.0 )  in ScHypGeomDist()
1857                 lcl_PutFactorialElements( cnDenom, 0.0, N - M - 1.0, N );  in ScHypGeomDist()
1861                 lcl_PutFactorialElements( cnNumer, N - n - M, fCNumVarUpper, N - n );  in ScHypGeomDist()
1867                 lcl_PutFactorialElements( cnNumer, 1.0, N - M - n + x, N - M + 1.0 );  in ScHypGeomDist()
1871                 lcl_PutFactorialElements( cnNumer, 1.0, N - M - fCDenomUpper, N - M + 1.0 );  in ScHypGeomDist()
1873                 fCDenomVarLower = N - M - 2.0*(n - x) + 1.0;  in ScHypGeomDist()
1881             DBG_ASSERT( M >= n - x, "ScHypGeomDist: wrong assertion" );  in ScHypGeomDist()
1882             DBG_ASSERT( M - x <= N - M + 1.0, "ScHypGeomDist: wrong assertion" );  in ScHypGeomDist()
1884             if ( N - n < N - M + 1.0 )  in ScHypGeomDist()
1888                 lcl_PutFactorialElements( cnDenom, 0.0, M - 1.0, N );  in ScHypGeomDist()
1893                 DBG_ASSERT( fCNumLower <= N - M + 1.0, "ScHypGeomDist: wrong assertion" );  in ScHypGeomDist()
1895                 lcl_PutFactorialElements( cnNumer, M - n, fCNumVarUpper, N - n );  in ScHypGeomDist()
1901                 lcl_PutFactorialElements( cnNumer, N - 2.0*M + 1.0, N - M - n + x, N - M + 1.0 );  in ScHypGeomDist()
1902             else if ( M >= fCDenomUpper )  in ScHypGeomDist()
1904 …           lcl_PutFactorialElements( cnNumer, N - 2.0*M + 1.0, N - M - fCDenomUpper, N - M + 1.0 );  in ScHypGeomDist()
1907                 fCDenomVarLower = N - M - 2.0*(n - x) + 1.0;  in ScHypGeomDist()
1911                 DBG_ASSERT( M <= fCDenomUpper, "ScHypGeomDist: wrong assertion" );  in ScHypGeomDist()
1912                 lcl_PutFactorialElements( cnDenom, fCDenomVarLower, N - n - 2.0*M + x,  in ScHypGeomDist()
1913                         N - n - M + x + 1.0 );  in ScHypGeomDist()
1916                 fCDenomVarLower = N - M - 2.0*(n - x) + 1.0;  in ScHypGeomDist()
1926     double nDDenomVarLower = fCDenomUpper < x + 1.0 ? fCDenomVarLower : N - n - M + 1.0;  in ScHypGeomDist()
1928     lcl_PutFactorialElements( cnDenom, nDDenomVarLower, N - n - M + x, N - n - M + x + 1.0 );  in ScHypGeomDist()