1060 lines
29 KiB
C++
1060 lines
29 KiB
C++
/* -*- Mode: C++; tab-width: 4; indent-tabs-mode: nil; c-basic-offset: 4 -*- */
|
|
/*
|
|
* This file is part of the LibreOffice project.
|
|
*
|
|
* This Source Code Form is subject to the terms of the Mozilla Public
|
|
* License, v. 2.0. If a copy of the MPL was not distributed with this
|
|
* file, You can obtain one at http://mozilla.org/MPL/2.0/.
|
|
*
|
|
* This file incorporates work covered by the following license notice:
|
|
*
|
|
* Licensed to the Apache Software Foundation (ASF) under one or more
|
|
* contributor license agreements. See the NOTICE file distributed
|
|
* with this work for additional information regarding copyright
|
|
* ownership. The ASF licenses this file to you under the Apache
|
|
* License, Version 2.0 (the "License"); you may not use this file
|
|
* except in compliance with the License. You may obtain a copy of
|
|
* the License at http://www.apache.org/licenses/LICENSE-2.0 .
|
|
*/
|
|
|
|
#include "analysisdefs.hxx"
|
|
#include "analysis.hxx"
|
|
#include "bessel.hxx"
|
|
#include <comphelper/random.hxx>
|
|
#include <cppuhelper/supportsservice.hxx>
|
|
#include <cppuhelper/weak.hxx>
|
|
#include <o3tl/any.hxx>
|
|
#include <rtl/math.hxx>
|
|
#include <sal/macros.h>
|
|
#include <unotools/resmgr.hxx>
|
|
#include <i18nlangtag/languagetag.hxx>
|
|
#include <algorithm>
|
|
#include <cmath>
|
|
#include <float.h>
|
|
|
|
constexpr OUString ADDIN_SERVICE = u"com.sun.star.sheet.AddIn"_ustr;
|
|
constexpr OUString MY_SERVICE = u"com.sun.star.sheet.addin.Analysis"_ustr;
|
|
constexpr OUStringLiteral MY_IMPLNAME = u"com.sun.star.sheet.addin.AnalysisImpl";
|
|
|
|
using namespace ::com::sun::star;
|
|
using namespace sca::analysis;
|
|
|
|
OUString AnalysisAddIn::GetFuncDescrStr(const TranslateId* pResId, sal_uInt16 nStrIndex)
|
|
{
|
|
return AnalysisResId(pResId[nStrIndex - 1]);
|
|
}
|
|
|
|
void AnalysisAddIn::InitData()
|
|
{
|
|
aResLocale = Translate::Create("sca", LanguageTag(aFuncLoc));
|
|
|
|
pFD.reset(new FuncDataList);
|
|
InitFuncDataList(*pFD);
|
|
|
|
pDefLocales.reset();
|
|
}
|
|
|
|
AnalysisAddIn::AnalysisAddIn( const uno::Reference< uno::XComponentContext >& xContext ) :
|
|
AnalysisAddIn_Base(m_aMutex),
|
|
aAnyConv( xContext )
|
|
{
|
|
}
|
|
|
|
AnalysisAddIn::~AnalysisAddIn()
|
|
{
|
|
}
|
|
|
|
sal_Int32 AnalysisAddIn::getDateMode(
|
|
const uno::Reference< beans::XPropertySet >& xPropSet,
|
|
const uno::Any& rAny )
|
|
{
|
|
sal_Int32 nMode = aAnyConv.getInt32( xPropSet, rAny, 0 );
|
|
if( (nMode < 0) || (nMode > 4) )
|
|
throw lang::IllegalArgumentException();
|
|
return nMode;
|
|
}
|
|
|
|
#define MAXFACTDOUBLE 300
|
|
|
|
double AnalysisAddIn::FactDouble( sal_Int32 nNum )
|
|
{
|
|
if( nNum < 0 || nNum > MAXFACTDOUBLE )
|
|
throw lang::IllegalArgumentException();
|
|
|
|
if( !pFactDoubles )
|
|
{
|
|
pFactDoubles.reset( new double[ MAXFACTDOUBLE + 1 ] );
|
|
|
|
pFactDoubles[ 0 ] = 1.0; // by default
|
|
|
|
double fOdd = 1.0;
|
|
double fEven = 2.0;
|
|
|
|
pFactDoubles[ 1 ] = fOdd;
|
|
pFactDoubles[ 2 ] = fEven;
|
|
|
|
bool bOdd = true;
|
|
|
|
for( sal_uInt16 nCnt = 3 ; nCnt <= MAXFACTDOUBLE ; nCnt++ )
|
|
{
|
|
if( bOdd )
|
|
{
|
|
fOdd *= nCnt;
|
|
pFactDoubles[ nCnt ] = fOdd;
|
|
}
|
|
else
|
|
{
|
|
fEven *= nCnt;
|
|
pFactDoubles[ nCnt ] = fEven;
|
|
}
|
|
|
|
bOdd = !bOdd;
|
|
|
|
}
|
|
}
|
|
|
|
return pFactDoubles[ nNum ];
|
|
}
|
|
|
|
// XServiceName
|
|
OUString SAL_CALL AnalysisAddIn::getServiceName()
|
|
{
|
|
// name of specific AddIn service
|
|
return MY_SERVICE;
|
|
}
|
|
|
|
// XServiceInfo
|
|
OUString SAL_CALL AnalysisAddIn::getImplementationName()
|
|
{
|
|
return MY_IMPLNAME;
|
|
}
|
|
|
|
sal_Bool SAL_CALL AnalysisAddIn::supportsService( const OUString& aName )
|
|
{
|
|
return cppu::supportsService(this, aName);
|
|
}
|
|
|
|
uno::Sequence< OUString > SAL_CALL AnalysisAddIn::getSupportedServiceNames()
|
|
{
|
|
return { ADDIN_SERVICE, MY_SERVICE };
|
|
}
|
|
|
|
// XLocalizable
|
|
void SAL_CALL AnalysisAddIn::setLocale( const lang::Locale& eLocale )
|
|
{
|
|
aFuncLoc = eLocale;
|
|
|
|
InitData(); // change of locale invalidates resources!
|
|
}
|
|
|
|
lang::Locale SAL_CALL AnalysisAddIn::getLocale()
|
|
{
|
|
return aFuncLoc;
|
|
}
|
|
|
|
// XAddIn
|
|
OUString SAL_CALL AnalysisAddIn::getProgrammaticFuntionName( const OUString& )
|
|
{
|
|
// not used by calc
|
|
// (but should be implemented for other uses of the AddIn service)
|
|
|
|
return OUString();
|
|
}
|
|
|
|
OUString SAL_CALL AnalysisAddIn::getDisplayFunctionName( const OUString& aProgrammaticName )
|
|
{
|
|
OUString aRet;
|
|
|
|
auto it = std::find_if(pFD->begin(), pFD->end(), FindFuncData( aProgrammaticName ) );
|
|
if( it != pFD->end() )
|
|
{
|
|
aRet = AnalysisResId(it->GetUINameID());
|
|
if( it->IsDouble() )
|
|
{
|
|
const OUString& rSuffix = it->GetSuffix();
|
|
if (!rSuffix.isEmpty())
|
|
aRet += rSuffix;
|
|
else
|
|
aRet += "_ADD";
|
|
}
|
|
}
|
|
else
|
|
{
|
|
aRet = "UNKNOWNFUNC_" + aProgrammaticName;
|
|
}
|
|
|
|
return aRet;
|
|
}
|
|
|
|
OUString SAL_CALL AnalysisAddIn::getFunctionDescription( const OUString& aProgrammaticName )
|
|
{
|
|
OUString aRet;
|
|
|
|
auto it = std::find_if(pFD->begin(), pFD->end(), FindFuncData( aProgrammaticName ) );
|
|
if( it != pFD->end() )
|
|
aRet = GetFuncDescrStr( it->GetDescrID(), 1 );
|
|
|
|
return aRet;
|
|
}
|
|
|
|
OUString SAL_CALL AnalysisAddIn::getDisplayArgumentName( const OUString& aName, sal_Int32 nArg )
|
|
{
|
|
OUString aRet;
|
|
|
|
auto it = std::find_if(pFD->begin(), pFD->end(), FindFuncData( aName ) );
|
|
if( it != pFD->end() && nArg <= 0xFFFF )
|
|
{
|
|
sal_uInt16 nStr = it->GetStrIndex( sal_uInt16( nArg ) );
|
|
if( nStr )
|
|
aRet = GetFuncDescrStr( it->GetDescrID(), nStr );
|
|
else
|
|
aRet = "internal";
|
|
}
|
|
|
|
return aRet;
|
|
}
|
|
|
|
OUString SAL_CALL AnalysisAddIn::getArgumentDescription( const OUString& aName, sal_Int32 nArg )
|
|
{
|
|
OUString aRet;
|
|
|
|
auto it = std::find_if(pFD->begin(), pFD->end(), FindFuncData( aName ) );
|
|
if( it != pFD->end() && nArg <= 0xFFFF )
|
|
{
|
|
sal_uInt16 nStr = it->GetStrIndex( sal_uInt16( nArg ) );
|
|
if( nStr )
|
|
aRet = GetFuncDescrStr( it->GetDescrID(), nStr + 1 );
|
|
else
|
|
aRet = "for internal use only";
|
|
}
|
|
|
|
return aRet;
|
|
}
|
|
|
|
constexpr OUString pDefCatName = u"Add-In"_ustr;
|
|
|
|
OUString SAL_CALL AnalysisAddIn::getProgrammaticCategoryName( const OUString& aName )
|
|
{
|
|
// return non-translated strings
|
|
// return OUString( "Add-In" );
|
|
auto it = std::find_if(pFD->begin(), pFD->end(), FindFuncData( aName ) );
|
|
OUString aRet;
|
|
if( it != pFD->end() )
|
|
{
|
|
switch( it->GetCategory() )
|
|
{
|
|
case FDCategory::DateTime: aRet = "Date&Time"; break;
|
|
case FDCategory::Finance: aRet = "Financial"; break;
|
|
case FDCategory::Inf: aRet = "Information"; break;
|
|
case FDCategory::Math: aRet = "Mathematical"; break;
|
|
case FDCategory::Tech: aRet = "Technical"; break;
|
|
}
|
|
}
|
|
else
|
|
aRet = pDefCatName;
|
|
|
|
return aRet;
|
|
}
|
|
|
|
OUString SAL_CALL AnalysisAddIn::getDisplayCategoryName( const OUString& aProgrammaticFunctionName )
|
|
{
|
|
// return translated strings, not used for predefined categories
|
|
auto it = std::find_if(pFD->begin(), pFD->end(), FindFuncData( aProgrammaticFunctionName ) );
|
|
OUString aRet;
|
|
if( it != pFD->end() )
|
|
{
|
|
switch( it->GetCategory() )
|
|
{
|
|
case FDCategory::DateTime: aRet = "Date&Time"; break;
|
|
case FDCategory::Finance: aRet = "Financial"; break;
|
|
case FDCategory::Inf: aRet = "Information"; break;
|
|
case FDCategory::Math: aRet = "Mathematical"; break;
|
|
case FDCategory::Tech: aRet = "Technical"; break;
|
|
}
|
|
}
|
|
else
|
|
aRet = pDefCatName;
|
|
|
|
return aRet;
|
|
}
|
|
|
|
static const char* pLang[] = { "de", "en" };
|
|
static const char* pCoun[] = { "DE", "US" };
|
|
constexpr sal_uInt32 nNumOfLoc = std::size(pLang);
|
|
|
|
void AnalysisAddIn::InitDefLocales()
|
|
{
|
|
pDefLocales.reset( new lang::Locale[ nNumOfLoc ] );
|
|
|
|
for( sal_uInt32 n = 0 ; n < nNumOfLoc ; n++ )
|
|
{
|
|
pDefLocales[ n ].Language = OUString::createFromAscii( pLang[ n ] );
|
|
pDefLocales[ n ].Country = OUString::createFromAscii( pCoun[ n ] );
|
|
}
|
|
}
|
|
|
|
inline const lang::Locale& AnalysisAddIn::GetLocale( sal_uInt32 nInd )
|
|
{
|
|
if( !pDefLocales )
|
|
InitDefLocales();
|
|
|
|
if( nInd < nNumOfLoc )
|
|
return pDefLocales[ nInd ];
|
|
else
|
|
return aFuncLoc;
|
|
}
|
|
|
|
uno::Sequence< sheet::LocalizedName > SAL_CALL AnalysisAddIn::getCompatibilityNames( const OUString& aProgrammaticName )
|
|
{
|
|
auto it = std::find_if(pFD->begin(), pFD->end(), FindFuncData( aProgrammaticName ) );
|
|
if( it == pFD->end() )
|
|
return uno::Sequence< sheet::LocalizedName >( 0 );
|
|
|
|
const std::vector<OUString>& r = it->GetCompNameList();
|
|
sal_uInt32 nCount = r.size();
|
|
|
|
uno::Sequence< sheet::LocalizedName > aRet( nCount );
|
|
|
|
sheet::LocalizedName* pArray = aRet.getArray();
|
|
|
|
for( sal_uInt32 n = 0 ; n < nCount ; n++ )
|
|
{
|
|
pArray[ n ] = sheet::LocalizedName( GetLocale( n ), r[n] );
|
|
}
|
|
|
|
return aRet;
|
|
}
|
|
|
|
// XAnalysis
|
|
/** Workday */
|
|
sal_Int32 SAL_CALL AnalysisAddIn::getWorkday( const uno::Reference< beans::XPropertySet >& xOptions,
|
|
sal_Int32 nDate, sal_Int32 nDays, const uno::Any& aHDay )
|
|
{
|
|
if( !nDays )
|
|
return nDate;
|
|
|
|
sal_Int32 nNullDate = GetNullDate( xOptions );
|
|
|
|
SortedIndividualInt32List aSrtLst;
|
|
|
|
aSrtLst.InsertHolidayList( aAnyConv, xOptions, aHDay, nNullDate );
|
|
|
|
sal_Int32 nActDate = nDate + nNullDate;
|
|
|
|
if( nDays > 0 )
|
|
{
|
|
if( GetDayOfWeek( nActDate ) == 5 )
|
|
// when starting on Saturday, assuming we're starting on Sunday to get the jump over the weekend
|
|
nActDate++;
|
|
|
|
while( nDays )
|
|
{
|
|
nActDate++;
|
|
|
|
if( GetDayOfWeek( nActDate ) < 5 )
|
|
{
|
|
if( !aSrtLst.Find( nActDate ) )
|
|
nDays--;
|
|
}
|
|
else
|
|
nActDate++; // jump over weekend
|
|
}
|
|
}
|
|
else
|
|
{
|
|
if( GetDayOfWeek( nActDate ) == 6 )
|
|
// when starting on Sunday, assuming we're starting on Saturday to get the jump over the weekend
|
|
nActDate--;
|
|
|
|
while( nDays )
|
|
{
|
|
nActDate--;
|
|
|
|
if( GetDayOfWeek( nActDate ) < 5 )
|
|
{
|
|
if( !aSrtLst.Find( nActDate ) )
|
|
nDays++;
|
|
}
|
|
else
|
|
nActDate--; // jump over weekend
|
|
}
|
|
}
|
|
|
|
return nActDate - nNullDate;
|
|
}
|
|
|
|
/** Yearfrac */
|
|
double SAL_CALL AnalysisAddIn::getYearfrac( const uno::Reference< beans::XPropertySet >& xOpt,
|
|
sal_Int32 nStartDate, sal_Int32 nEndDate, const uno::Any& rMode )
|
|
{
|
|
double fRet = GetYearFrac( xOpt, nStartDate, nEndDate, getDateMode( xOpt, rMode ) );
|
|
return finiteOrThrow( fRet );
|
|
}
|
|
|
|
sal_Int32 SAL_CALL AnalysisAddIn::getEdate( const uno::Reference< beans::XPropertySet >& xOpt, sal_Int32 nStartDate, sal_Int32 nMonths )
|
|
{
|
|
sal_Int32 nNullDate = GetNullDate( xOpt );
|
|
ScaDate aDate( nNullDate, nStartDate, 5 );
|
|
aDate.addMonths( nMonths );
|
|
return aDate.getDate( nNullDate );
|
|
}
|
|
|
|
sal_Int32 SAL_CALL AnalysisAddIn::getWeeknum( const uno::Reference< beans::XPropertySet >& xOpt, sal_Int32 nDate, sal_Int32 nMode )
|
|
{
|
|
nDate += GetNullDate( xOpt );
|
|
|
|
sal_uInt16 nDay, nMonth, nYear;
|
|
DaysToDate( nDate, nDay, nMonth, nYear );
|
|
|
|
sal_Int32 nFirstInYear = DateToDays( 1, 1, nYear );
|
|
// coverity[ tainted_data_return : FALSE ] version 2023.12.2
|
|
sal_uInt16 nFirstDayInYear = GetDayOfWeek( nFirstInYear );
|
|
|
|
return ( nDate - nFirstInYear + ( ( nMode == 1 )? ( nFirstDayInYear + 1 ) % 7 : nFirstDayInYear ) ) / 7 + 1;
|
|
}
|
|
|
|
sal_Int32 SAL_CALL AnalysisAddIn::getEomonth( const uno::Reference< beans::XPropertySet >& xOpt, sal_Int32 nDate, sal_Int32 nMonths )
|
|
{
|
|
sal_Int32 nNullDate = GetNullDate( xOpt );
|
|
nDate += nNullDate;
|
|
sal_uInt16 nDay, nMonth, nYear;
|
|
DaysToDate( nDate, nDay, nMonth, nYear );
|
|
|
|
sal_Int32 nNewMonth = nMonth + nMonths;
|
|
|
|
if( nNewMonth > 12 )
|
|
{
|
|
nYear = sal::static_int_cast<sal_uInt16>( nYear + ( nNewMonth / 12 ) );
|
|
nNewMonth %= 12;
|
|
}
|
|
else if( nNewMonth < 1 )
|
|
{
|
|
nNewMonth = -nNewMonth;
|
|
nYear = sal::static_int_cast<sal_uInt16>( nYear - ( nNewMonth / 12 ) );
|
|
nYear--;
|
|
nNewMonth %= 12;
|
|
nNewMonth = 12 - nNewMonth;
|
|
}
|
|
|
|
return DateToDays( DaysInMonth( sal_uInt16( nNewMonth ), nYear ), sal_uInt16( nNewMonth ), nYear ) - nNullDate;
|
|
}
|
|
|
|
sal_Int32 SAL_CALL AnalysisAddIn::getNetworkdays( const uno::Reference< beans::XPropertySet >& xOpt,
|
|
sal_Int32 nStartDate, sal_Int32 nEndDate, const uno::Any& aHDay )
|
|
{
|
|
sal_Int32 nNullDate = GetNullDate( xOpt );
|
|
|
|
SortedIndividualInt32List aSrtLst;
|
|
|
|
aSrtLst.InsertHolidayList( aAnyConv, xOpt, aHDay, nNullDate );
|
|
|
|
sal_Int32 nActDate = nStartDate + nNullDate;
|
|
sal_Int32 nStopDate = nEndDate + nNullDate;
|
|
sal_Int32 nCnt = 0;
|
|
|
|
if( nActDate <= nStopDate )
|
|
{
|
|
while( nActDate <= nStopDate )
|
|
{
|
|
if( GetDayOfWeek( nActDate ) < 5 && !aSrtLst.Find( nActDate ) )
|
|
nCnt++;
|
|
|
|
nActDate++;
|
|
}
|
|
}
|
|
else
|
|
{
|
|
while( nActDate >= nStopDate )
|
|
{
|
|
if( GetDayOfWeek( nActDate ) < 5 && !aSrtLst.Find( nActDate ) )
|
|
nCnt--;
|
|
|
|
nActDate--;
|
|
}
|
|
}
|
|
|
|
return nCnt;
|
|
}
|
|
|
|
sal_Int32 SAL_CALL AnalysisAddIn::getIseven( sal_Int32 nVal )
|
|
{
|
|
return ( nVal & 0x00000001 )? 0 : 1;
|
|
}
|
|
|
|
sal_Int32 SAL_CALL AnalysisAddIn::getIsodd( sal_Int32 nVal )
|
|
{
|
|
return ( nVal & 0x00000001 )? 1 : 0;
|
|
}
|
|
|
|
double SAL_CALL
|
|
AnalysisAddIn::getMultinomial( const uno::Reference< beans::XPropertySet >& xOpt, const uno::Sequence< uno::Sequence< sal_Int32 > >& aVLst,
|
|
const uno::Sequence< uno::Any >& aOptVLst )
|
|
{
|
|
ScaDoubleListGE0 aValList;
|
|
|
|
aValList.Append( aVLst );
|
|
aValList.Append( aAnyConv, xOpt, aOptVLst );
|
|
|
|
if( aValList.Count() == 0 )
|
|
return 0.0;
|
|
|
|
double nZ = 0;
|
|
double fRet = 1.0;
|
|
|
|
for( sal_uInt32 i = 0; i < aValList.Count(); ++i )
|
|
{
|
|
const double d = aValList.Get(i);
|
|
double n = (d >= 0.0) ? rtl::math::approxFloor( d ) : rtl::math::approxCeil( d );
|
|
if ( n < 0.0 )
|
|
throw lang::IllegalArgumentException();
|
|
|
|
if( n > 0.0 )
|
|
{
|
|
nZ += n;
|
|
fRet *= BinomialCoefficient(nZ, n);
|
|
}
|
|
}
|
|
return finiteOrThrow( fRet );
|
|
}
|
|
|
|
double SAL_CALL AnalysisAddIn::getSeriessum( double fX, double fN, double fM, const uno::Sequence< uno::Sequence< double > >& aCoeffList )
|
|
{
|
|
double fRet = 0.0;
|
|
|
|
// #i32269# 0^0 is undefined, Excel returns #NUM! error
|
|
if( fX == 0.0 && fN == 0 )
|
|
throw uno::RuntimeException(u"undefined expression: 0^0"_ustr);
|
|
|
|
if( fX != 0.0 )
|
|
{
|
|
for( const uno::Sequence< double >& rList : aCoeffList )
|
|
{
|
|
for( const double fCoef : rList )
|
|
{
|
|
fRet += fCoef * pow( fX, fN );
|
|
|
|
fN += fM;
|
|
}
|
|
}
|
|
}
|
|
|
|
return finiteOrThrow( fRet );
|
|
}
|
|
|
|
double SAL_CALL AnalysisAddIn::getQuotient( double fNum, double fDenom )
|
|
{
|
|
double fRet;
|
|
if( (fNum < 0) != (fDenom < 0) )
|
|
fRet = ::rtl::math::approxCeil( fNum / fDenom );
|
|
else
|
|
fRet = ::rtl::math::approxFloor( fNum / fDenom );
|
|
return finiteOrThrow( fRet );
|
|
}
|
|
|
|
double SAL_CALL AnalysisAddIn::getMround( double fNum, double fMult )
|
|
{
|
|
if( fMult == 0.0 )
|
|
return fMult;
|
|
|
|
double fRet = fMult * ::rtl::math::round( ::rtl::math::approxValue( fNum / fMult));
|
|
return finiteOrThrow( fRet );
|
|
}
|
|
|
|
double SAL_CALL AnalysisAddIn::getSqrtpi( double fNum )
|
|
{
|
|
double fRet = sqrt( fNum * M_PI );
|
|
return finiteOrThrow( fRet );
|
|
}
|
|
|
|
double SAL_CALL AnalysisAddIn::getRandbetween( double fMin, double fMax )
|
|
{
|
|
fMin = ::rtl::math::round( fMin, 0, rtl_math_RoundingMode_Up );
|
|
fMax = ::rtl::math::round( fMax, 0, rtl_math_RoundingMode_Up );
|
|
if( fMin > fMax )
|
|
throw lang::IllegalArgumentException();
|
|
|
|
double fRet = floor(comphelper::rng::uniform_real_distribution(fMin, nextafter(fMax+1, -DBL_MAX)));
|
|
return finiteOrThrow( fRet );
|
|
}
|
|
|
|
double SAL_CALL AnalysisAddIn::getGcd( const uno::Reference< beans::XPropertySet >& xOpt, const uno::Sequence< uno::Sequence< double > >& aVLst, const uno::Sequence< uno::Any >& aOptVLst )
|
|
{
|
|
ScaDoubleListGT0 aValList;
|
|
|
|
aValList.Append( aVLst );
|
|
aValList.Append( aAnyConv, xOpt, aOptVLst );
|
|
|
|
if( aValList.Count() == 0 )
|
|
return 0.0;
|
|
|
|
double f = aValList.Get(0);
|
|
for( sal_uInt32 i = 1; i < aValList.Count(); ++i )
|
|
{
|
|
f = GetGcd( aValList.Get(i), f );
|
|
}
|
|
|
|
return finiteOrThrow( f );
|
|
}
|
|
|
|
double SAL_CALL AnalysisAddIn::getLcm( const uno::Reference< beans::XPropertySet >& xOpt, const uno::Sequence< uno::Sequence< double > >& aVLst, const uno::Sequence< uno::Any >& aOptVLst )
|
|
{
|
|
ScaDoubleListGE0 aValList;
|
|
|
|
aValList.Append( aVLst );
|
|
aValList.Append( aAnyConv, xOpt, aOptVLst );
|
|
|
|
if( aValList.Count() == 0 )
|
|
return 0.0;
|
|
|
|
double f = rtl::math::approxFloor( aValList.Get(0) );
|
|
if( f < 0.0 )
|
|
throw lang::IllegalArgumentException();
|
|
|
|
if( f == 0.0 )
|
|
return f;
|
|
|
|
for( sal_uInt32 i = 1; i < aValList.Count(); ++i )
|
|
{
|
|
double fTmp = rtl::math::approxFloor( aValList.Get(i) );
|
|
if( fTmp < 0.0 )
|
|
throw lang::IllegalArgumentException();
|
|
|
|
f = fTmp * f / GetGcd( fTmp, f );
|
|
if( f == 0.0 )
|
|
return f;
|
|
}
|
|
|
|
return finiteOrThrow( f );
|
|
}
|
|
|
|
double SAL_CALL AnalysisAddIn::getBesseli( double fNum, sal_Int32 nOrder )
|
|
{
|
|
double fRet = sca::analysis::BesselI( fNum, nOrder );
|
|
return finiteOrThrow( fRet );
|
|
}
|
|
|
|
double SAL_CALL AnalysisAddIn::getBesselj( double fNum, sal_Int32 nOrder )
|
|
{
|
|
double fRet = sca::analysis::BesselJ( fNum, nOrder );
|
|
return finiteOrThrow( fRet );
|
|
}
|
|
|
|
double SAL_CALL AnalysisAddIn::getBesselk( double fNum, sal_Int32 nOrder )
|
|
{
|
|
if( nOrder < 0 || fNum <= 0.0 )
|
|
throw lang::IllegalArgumentException();
|
|
|
|
double fRet = sca::analysis::BesselK( fNum, nOrder );
|
|
return finiteOrThrow( fRet );
|
|
}
|
|
|
|
double SAL_CALL AnalysisAddIn::getBessely( double fNum, sal_Int32 nOrder )
|
|
{
|
|
if( nOrder < 0 || fNum <= 0.0 )
|
|
throw lang::IllegalArgumentException();
|
|
|
|
double fRet = sca::analysis::BesselY( fNum, nOrder );
|
|
return finiteOrThrow( fRet );
|
|
}
|
|
|
|
const double SCA_MAX2 = 511.0; // min. val for binary numbers (9 bits + sign)
|
|
const double SCA_MIN2 = -SCA_MAX2-1.0; // min. val for binary numbers (9 bits + sign)
|
|
const double SCA_MAX8 = 536870911.0; // max. val for octal numbers (29 bits + sign)
|
|
const double SCA_MIN8 = -SCA_MAX8-1.0; // min. val for octal numbers (29 bits + sign)
|
|
const double SCA_MAX16 = 549755813887.0; // max. val for hexadecimal numbers (39 bits + sign)
|
|
const double SCA_MIN16 = -SCA_MAX16-1.0; // min. val for hexadecimal numbers (39 bits + sign)
|
|
const sal_Int32 SCA_MAXPLACES = 10; // max. number of places
|
|
|
|
OUString SAL_CALL AnalysisAddIn::getBin2Oct( const uno::Reference< beans::XPropertySet >& xOpt, const OUString& aNum, const uno::Any& rPlaces )
|
|
{
|
|
double fVal = ConvertToDec( aNum, 2, SCA_MAXPLACES );
|
|
sal_Int32 nPlaces = 0;
|
|
bool bUsePlaces = aAnyConv.getInt32( nPlaces, xOpt, rPlaces );
|
|
return ConvertFromDec( fVal, SCA_MIN8, SCA_MAX8, 8, nPlaces, SCA_MAXPLACES, bUsePlaces );
|
|
}
|
|
|
|
double SAL_CALL AnalysisAddIn::getBin2Dec( const OUString& aNum )
|
|
{
|
|
double fRet = ConvertToDec( aNum, 2, SCA_MAXPLACES );
|
|
return finiteOrThrow( fRet );
|
|
}
|
|
|
|
OUString SAL_CALL AnalysisAddIn::getBin2Hex( const uno::Reference< beans::XPropertySet >& xOpt, const OUString& aNum, const uno::Any& rPlaces )
|
|
{
|
|
double fVal = ConvertToDec( aNum, 2, SCA_MAXPLACES );
|
|
sal_Int32 nPlaces = 0;
|
|
bool bUsePlaces = aAnyConv.getInt32( nPlaces, xOpt, rPlaces );
|
|
return ConvertFromDec( fVal, SCA_MIN16, SCA_MAX16, 16, nPlaces, SCA_MAXPLACES, bUsePlaces );
|
|
}
|
|
|
|
OUString SAL_CALL AnalysisAddIn::getOct2Bin( const uno::Reference< beans::XPropertySet >& xOpt, const OUString& aNum, const uno::Any& rPlaces )
|
|
{
|
|
double fVal = ConvertToDec( aNum, 8, SCA_MAXPLACES );
|
|
sal_Int32 nPlaces = 0;
|
|
bool bUsePlaces = aAnyConv.getInt32( nPlaces, xOpt, rPlaces );
|
|
return ConvertFromDec( fVal, SCA_MIN2, SCA_MAX2, 2, nPlaces, SCA_MAXPLACES, bUsePlaces );
|
|
}
|
|
|
|
double SAL_CALL AnalysisAddIn::getOct2Dec( const OUString& aNum )
|
|
{
|
|
double fRet = ConvertToDec( aNum, 8, SCA_MAXPLACES );
|
|
return finiteOrThrow( fRet );
|
|
}
|
|
|
|
OUString SAL_CALL AnalysisAddIn::getOct2Hex( const uno::Reference< beans::XPropertySet >& xOpt, const OUString& aNum, const uno::Any& rPlaces )
|
|
{
|
|
double fVal = ConvertToDec( aNum, 8, SCA_MAXPLACES );
|
|
sal_Int32 nPlaces = 0;
|
|
bool bUsePlaces = aAnyConv.getInt32( nPlaces, xOpt, rPlaces );
|
|
return ConvertFromDec( fVal, SCA_MIN16, SCA_MAX16, 16, nPlaces, SCA_MAXPLACES, bUsePlaces );
|
|
}
|
|
|
|
OUString SAL_CALL AnalysisAddIn::getDec2Bin( const uno::Reference< beans::XPropertySet >& xOpt, sal_Int32 nNum, const uno::Any& rPlaces )
|
|
{
|
|
sal_Int32 nPlaces = 0;
|
|
bool bUsePlaces = aAnyConv.getInt32( nPlaces, xOpt, rPlaces );
|
|
return ConvertFromDec( nNum, SCA_MIN2, SCA_MAX2, 2, nPlaces, SCA_MAXPLACES, bUsePlaces );
|
|
}
|
|
|
|
OUString SAL_CALL AnalysisAddIn::getDec2Oct( const uno::Reference< beans::XPropertySet >& xOpt, sal_Int32 nNum, const uno::Any& rPlaces )
|
|
{
|
|
sal_Int32 nPlaces = 0;
|
|
bool bUsePlaces = aAnyConv.getInt32( nPlaces, xOpt, rPlaces );
|
|
return ConvertFromDec( nNum, SCA_MIN8, SCA_MAX8, 8, nPlaces, SCA_MAXPLACES, bUsePlaces );
|
|
}
|
|
|
|
OUString SAL_CALL AnalysisAddIn::getDec2Hex( const uno::Reference< beans::XPropertySet >& xOpt, double fNum, const uno::Any& rPlaces )
|
|
{
|
|
sal_Int32 nPlaces = 0;
|
|
bool bUsePlaces = aAnyConv.getInt32( nPlaces, xOpt, rPlaces );
|
|
return ConvertFromDec( fNum, SCA_MIN16, SCA_MAX16, 16, nPlaces, SCA_MAXPLACES, bUsePlaces );
|
|
}
|
|
|
|
OUString SAL_CALL AnalysisAddIn::getHex2Bin( const uno::Reference< beans::XPropertySet >& xOpt, const OUString& aNum, const uno::Any& rPlaces )
|
|
{
|
|
double fVal = ConvertToDec( aNum, 16, SCA_MAXPLACES );
|
|
sal_Int32 nPlaces = 0;
|
|
bool bUsePlaces = aAnyConv.getInt32( nPlaces, xOpt, rPlaces );
|
|
return ConvertFromDec( fVal, SCA_MIN2, SCA_MAX2, 2, nPlaces, SCA_MAXPLACES, bUsePlaces );
|
|
}
|
|
|
|
double SAL_CALL AnalysisAddIn::getHex2Dec( const OUString& aNum )
|
|
{
|
|
double fRet = ConvertToDec( aNum, 16, SCA_MAXPLACES );
|
|
return finiteOrThrow( fRet );
|
|
}
|
|
|
|
OUString SAL_CALL AnalysisAddIn::getHex2Oct( const uno::Reference< beans::XPropertySet >& xOpt, const OUString& aNum, const uno::Any& rPlaces )
|
|
{
|
|
double fVal = ConvertToDec( aNum, 16, SCA_MAXPLACES );
|
|
sal_Int32 nPlaces = 0;
|
|
bool bUsePlaces = aAnyConv.getInt32( nPlaces, xOpt, rPlaces );
|
|
return ConvertFromDec( fVal, SCA_MIN8, SCA_MAX8, 8, nPlaces, SCA_MAXPLACES, bUsePlaces );
|
|
}
|
|
|
|
sal_Int32 SAL_CALL AnalysisAddIn::getDelta( const uno::Reference< beans::XPropertySet >& xOpt, double fNum1, const uno::Any& rNum2 )
|
|
{
|
|
return sal_Int32(fNum1 == aAnyConv.getDouble( xOpt, rNum2, 0.0 ));
|
|
}
|
|
|
|
double SAL_CALL AnalysisAddIn::getErf( const uno::Reference< beans::XPropertySet >& xOpt, double fLL, const uno::Any& rUL )
|
|
{
|
|
double fUL, fRet;
|
|
bool bContainsValue = aAnyConv.getDouble( fUL, xOpt, rUL );
|
|
|
|
fRet = bContainsValue ? (Erf( fUL ) - Erf( fLL )) : Erf( fLL );
|
|
return finiteOrThrow( fRet );
|
|
}
|
|
|
|
double SAL_CALL AnalysisAddIn::getErfc( double f )
|
|
{
|
|
double fRet = Erfc( f );
|
|
return finiteOrThrow( fRet );
|
|
}
|
|
|
|
sal_Int32 SAL_CALL AnalysisAddIn::getGestep( const uno::Reference< beans::XPropertySet >& xOpt, double fNum, const uno::Any& rStep )
|
|
{
|
|
return sal_Int32(fNum >= aAnyConv.getDouble( xOpt, rStep, 0.0 ));
|
|
}
|
|
|
|
double SAL_CALL AnalysisAddIn::getFactdouble( sal_Int32 nNum )
|
|
{
|
|
double fRet = FactDouble( nNum );
|
|
return finiteOrThrow( fRet );
|
|
}
|
|
|
|
double SAL_CALL AnalysisAddIn::getImabs( const OUString& aNum )
|
|
{
|
|
double fRet = Complex( aNum ).Abs();
|
|
return finiteOrThrow( fRet );
|
|
}
|
|
|
|
double SAL_CALL AnalysisAddIn::getImaginary( const OUString& aNum )
|
|
{
|
|
double fRet = Complex( aNum ).Imag();
|
|
return finiteOrThrow( fRet );
|
|
}
|
|
|
|
OUString SAL_CALL AnalysisAddIn::getImpower( const OUString& aNum, double f )
|
|
{
|
|
Complex z( aNum );
|
|
|
|
z.Power( f );
|
|
|
|
return z.GetString();
|
|
}
|
|
|
|
double SAL_CALL AnalysisAddIn::getImargument( const OUString& aNum )
|
|
{
|
|
double fRet = Complex( aNum ).Arg();
|
|
return finiteOrThrow( fRet );
|
|
}
|
|
|
|
OUString SAL_CALL AnalysisAddIn::getImcos( const OUString& aNum )
|
|
{
|
|
Complex z( aNum );
|
|
|
|
z.Cos();
|
|
|
|
return z.GetString();
|
|
}
|
|
|
|
OUString SAL_CALL AnalysisAddIn::getImdiv( const OUString& aDivid, const OUString& aDivis )
|
|
{
|
|
Complex z( aDivid );
|
|
|
|
z.Div( Complex( aDivis ) );
|
|
|
|
return z.GetString();
|
|
}
|
|
|
|
OUString SAL_CALL AnalysisAddIn::getImexp( const OUString& aNum )
|
|
{
|
|
Complex z( aNum );
|
|
|
|
z.Exp();
|
|
|
|
return z.GetString();
|
|
}
|
|
|
|
OUString SAL_CALL AnalysisAddIn::getImconjugate( const OUString& aNum )
|
|
{
|
|
Complex z( aNum );
|
|
|
|
z.Conjugate();
|
|
|
|
return z.GetString();
|
|
}
|
|
|
|
OUString SAL_CALL AnalysisAddIn::getImln( const OUString& aNum )
|
|
{
|
|
Complex z( aNum );
|
|
|
|
z.Ln();
|
|
|
|
return z.GetString();
|
|
}
|
|
|
|
OUString SAL_CALL AnalysisAddIn::getImlog10( const OUString& aNum )
|
|
{
|
|
Complex z( aNum );
|
|
|
|
z.Log10();
|
|
|
|
return z.GetString();
|
|
}
|
|
|
|
OUString SAL_CALL AnalysisAddIn::getImlog2( const OUString& aNum )
|
|
{
|
|
Complex z( aNum );
|
|
|
|
z.Log2();
|
|
|
|
return z.GetString();
|
|
}
|
|
|
|
OUString SAL_CALL AnalysisAddIn::getImproduct( const uno::Reference< beans::XPropertySet >&, const uno::Sequence< uno::Sequence< OUString > >& aNum1, const uno::Sequence< uno::Any >& aNL )
|
|
{
|
|
ComplexList z_list;
|
|
|
|
z_list.Append( aNum1 );
|
|
z_list.Append( aNL );
|
|
|
|
if( z_list.empty() )
|
|
return Complex( 0 ).GetString();
|
|
|
|
Complex z = z_list.Get(0);
|
|
for( sal_uInt32 i = 1; i < z_list.Count(); ++i )
|
|
z.Mult( z_list.Get(i) );
|
|
|
|
return z.GetString();
|
|
}
|
|
|
|
double SAL_CALL AnalysisAddIn::getImreal( const OUString& aNum )
|
|
{
|
|
double fRet = Complex( aNum ).Real();
|
|
return finiteOrThrow( fRet );
|
|
}
|
|
|
|
OUString SAL_CALL AnalysisAddIn::getImsin( const OUString& aNum )
|
|
{
|
|
Complex z( aNum );
|
|
|
|
z.Sin();
|
|
|
|
return z.GetString();
|
|
}
|
|
|
|
OUString SAL_CALL AnalysisAddIn::getImsub( const OUString& aNum1, const OUString& aNum2 )
|
|
{
|
|
Complex z( aNum1 );
|
|
|
|
z.Sub( Complex( aNum2 ) );
|
|
|
|
return z.GetString();
|
|
}
|
|
|
|
OUString SAL_CALL AnalysisAddIn::getImsum( const uno::Reference< beans::XPropertySet >&, const uno::Sequence< uno::Sequence< OUString > >& aNum1, const uno::Sequence< uno::Any >& aFollowingPars )
|
|
{
|
|
ComplexList z_list;
|
|
|
|
z_list.Append( aNum1 );
|
|
z_list.Append( aFollowingPars );
|
|
|
|
if( z_list.empty() )
|
|
return Complex( 0 ).GetString();
|
|
|
|
Complex z( z_list.Get(0) );
|
|
for( sal_uInt32 i = 1; i < z_list.Count(); ++i )
|
|
z.Add( z_list.Get(i) );
|
|
|
|
return z.GetString();
|
|
}
|
|
|
|
OUString SAL_CALL AnalysisAddIn::getImsqrt( const OUString& aNum )
|
|
{
|
|
Complex z( aNum );
|
|
|
|
z.Sqrt();
|
|
|
|
return z.GetString();
|
|
}
|
|
|
|
OUString SAL_CALL AnalysisAddIn::getImtan( const OUString& aNum )
|
|
{
|
|
Complex z( aNum );
|
|
|
|
z.Tan();
|
|
|
|
return z.GetString();
|
|
}
|
|
|
|
OUString SAL_CALL AnalysisAddIn::getImsec( const OUString& aNum )
|
|
{
|
|
Complex z( aNum );
|
|
|
|
z.Sec();
|
|
|
|
return z.GetString();
|
|
}
|
|
|
|
OUString SAL_CALL AnalysisAddIn::getImcsc( const OUString& aNum )
|
|
{
|
|
Complex z( aNum );
|
|
|
|
z.Csc();
|
|
|
|
return z.GetString();
|
|
}
|
|
|
|
OUString SAL_CALL AnalysisAddIn::getImcot( const OUString& aNum )
|
|
{
|
|
Complex z( aNum );
|
|
|
|
z.Cot();
|
|
|
|
return z.GetString();
|
|
}
|
|
|
|
OUString SAL_CALL AnalysisAddIn::getImsinh( const OUString& aNum )
|
|
{
|
|
Complex z( aNum );
|
|
|
|
z.Sinh();
|
|
|
|
return z.GetString();
|
|
}
|
|
|
|
OUString SAL_CALL AnalysisAddIn::getImcosh( const OUString& aNum )
|
|
{
|
|
Complex z( aNum );
|
|
|
|
z.Cosh();
|
|
|
|
return z.GetString();
|
|
}
|
|
|
|
OUString SAL_CALL AnalysisAddIn::getImsech( const OUString& aNum )
|
|
{
|
|
Complex z( aNum );
|
|
|
|
z.Sech();
|
|
|
|
return z.GetString();
|
|
}
|
|
|
|
OUString SAL_CALL AnalysisAddIn::getImcsch( const OUString& aNum )
|
|
{
|
|
Complex z( aNum );
|
|
|
|
z.Csch();
|
|
|
|
return z.GetString();
|
|
}
|
|
|
|
OUString SAL_CALL AnalysisAddIn::getComplex( double fR, double fI, const uno::Any& rSuff )
|
|
{
|
|
bool bi;
|
|
|
|
switch( rSuff.getValueTypeClass() )
|
|
{
|
|
case uno::TypeClass_VOID:
|
|
bi = true;
|
|
break;
|
|
case uno::TypeClass_STRING:
|
|
{
|
|
auto pSuff = o3tl::forceAccess<OUString>(rSuff);
|
|
bi = *pSuff == "i" || pSuff->isEmpty();
|
|
if( !bi && *pSuff != "j" )
|
|
throw lang::IllegalArgumentException();
|
|
}
|
|
break;
|
|
default:
|
|
throw lang::IllegalArgumentException();
|
|
}
|
|
|
|
return Complex( fR, fI, bi ? 'i' : 'j' ).GetString();
|
|
}
|
|
|
|
double SAL_CALL AnalysisAddIn::getConvert( double f, const OUString& aFU, const OUString& aTU )
|
|
{
|
|
if( !pCDL )
|
|
pCDL.reset(new ConvertDataList());
|
|
|
|
double fRet = pCDL->Convert( f, aFU, aTU );
|
|
return finiteOrThrow( fRet );
|
|
}
|
|
|
|
OUString AnalysisAddIn::AnalysisResId(TranslateId aResId)
|
|
{
|
|
return Translate::get(aResId, aResLocale);
|
|
}
|
|
|
|
extern "C" SAL_DLLPUBLIC_EXPORT css::uno::XInterface*
|
|
scaddins_AnalysisAddIn_get_implementation(
|
|
css::uno::XComponentContext* context, css::uno::Sequence<css::uno::Any> const&)
|
|
{
|
|
return cppu::acquire(new AnalysisAddIn(context));
|
|
}
|
|
|
|
/* vim:set shiftwidth=4 softtabstop=4 expandtab: */
|