859 lines
33 KiB
C++
859 lines
33 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 <StatisticsItemConverter.hxx>
|
|
#include "SchWhichPairs.hxx"
|
|
#include <RegressionCurveHelper.hxx>
|
|
#include <RegressionCurveModel.hxx>
|
|
#include <ErrorBar.hxx>
|
|
#include <StatisticsHelper.hxx>
|
|
#include <ChartModel.hxx>
|
|
#include <unonames.hxx>
|
|
|
|
#include <svl/stritem.hxx>
|
|
#include <svx/chrtitem.hxx>
|
|
#include <svl/intitem.hxx>
|
|
#include <rtl/math.hxx>
|
|
|
|
#include <com/sun/star/chart2/XInternalDataProvider.hpp>
|
|
#include <com/sun/star/chart2/XRegressionCurveContainer.hpp>
|
|
#include <com/sun/star/chart/ErrorBarStyle.hpp>
|
|
#include <utility>
|
|
#include <comphelper/diagnose_ex.hxx>
|
|
|
|
using namespace ::com::sun::star;
|
|
|
|
namespace
|
|
{
|
|
|
|
uno::Reference< beans::XPropertySet > lcl_GetErrorBar(
|
|
const uno::Reference< beans::XPropertySet > & xProp, bool bYError )
|
|
{
|
|
uno::Reference< beans::XPropertySet > xResult;
|
|
|
|
if( xProp.is())
|
|
try
|
|
{
|
|
( xProp->getPropertyValue( bYError ? CHART_UNONAME_ERRORBAR_Y : CHART_UNONAME_ERRORBAR_X ) >>= xResult );
|
|
}
|
|
catch( const uno::Exception & )
|
|
{
|
|
DBG_UNHANDLED_EXCEPTION("chart2");
|
|
}
|
|
|
|
return xResult;
|
|
}
|
|
|
|
uno::Reference< beans::XPropertySet > lcl_GetDefaultErrorBar()
|
|
{
|
|
return uno::Reference< beans::XPropertySet >( new ::chart::ErrorBar );
|
|
}
|
|
|
|
void lcl_getErrorValues( const uno::Reference< beans::XPropertySet > & xErrorBarProp,
|
|
double & rOutPosError, double & rOutNegError )
|
|
{
|
|
if( ! xErrorBarProp.is())
|
|
return;
|
|
|
|
try
|
|
{
|
|
xErrorBarProp->getPropertyValue( u"PositiveError"_ustr ) >>= rOutPosError;
|
|
xErrorBarProp->getPropertyValue( u"NegativeError"_ustr ) >>= rOutNegError;
|
|
}
|
|
catch( const uno::Exception & )
|
|
{
|
|
DBG_UNHANDLED_EXCEPTION("chart2");
|
|
}
|
|
}
|
|
|
|
void lcl_getErrorIndicatorValues(
|
|
const uno::Reference< beans::XPropertySet > & xErrorBarProp,
|
|
bool & rOutShowPosError, bool & rOutShowNegError )
|
|
{
|
|
if( ! xErrorBarProp.is())
|
|
return;
|
|
|
|
try
|
|
{
|
|
xErrorBarProp->getPropertyValue( u"ShowPositiveError"_ustr ) >>= rOutShowPosError;
|
|
xErrorBarProp->getPropertyValue( u"ShowNegativeError"_ustr ) >>= rOutShowNegError;
|
|
}
|
|
catch( const uno::Exception & )
|
|
{
|
|
DBG_UNHANDLED_EXCEPTION("chart2");
|
|
}
|
|
}
|
|
|
|
uno::Reference< beans::XPropertySet > lcl_getEquationProperties(
|
|
const uno::Reference< beans::XPropertySet > & xSeriesPropSet, const SfxItemSet * pItemSet )
|
|
{
|
|
bool bEquationExists = true;
|
|
|
|
// ensure that a trendline is on
|
|
if( pItemSet )
|
|
{
|
|
if( const SvxChartRegressItem* pRegressionItem = pItemSet->GetItemIfSet( SCHATTR_REGRESSION_TYPE ) )
|
|
{
|
|
SvxChartRegress eRegress = pRegressionItem->GetValue();
|
|
bEquationExists = ( eRegress != SvxChartRegress::NONE );
|
|
}
|
|
}
|
|
|
|
if( bEquationExists )
|
|
{
|
|
uno::Reference< chart2::XRegressionCurveContainer > xRegCnt( xSeriesPropSet, uno::UNO_QUERY );
|
|
rtl::Reference< ::chart::RegressionCurveModel > xCurve =
|
|
::chart::RegressionCurveHelper::getFirstCurveNotMeanValueLine( xRegCnt );
|
|
if( xCurve.is())
|
|
{
|
|
return xCurve->getEquationProperties();
|
|
}
|
|
}
|
|
|
|
return uno::Reference< beans::XPropertySet >();
|
|
}
|
|
|
|
uno::Reference< beans::XPropertySet > lcl_getCurveProperties(
|
|
const uno::Reference< beans::XPropertySet > & xSeriesPropSet, const SfxItemSet * pItemSet )
|
|
{
|
|
bool bExists = true;
|
|
|
|
// ensure that a trendline is on
|
|
if( pItemSet )
|
|
{
|
|
if( const SvxChartRegressItem* pRegressionItem = pItemSet->GetItemIfSet( SCHATTR_REGRESSION_TYPE ) )
|
|
{
|
|
SvxChartRegress eRegress = pRegressionItem->GetValue();
|
|
bExists = ( eRegress != SvxChartRegress::NONE );
|
|
}
|
|
}
|
|
|
|
if( bExists )
|
|
{
|
|
uno::Reference< chart2::XRegressionCurveContainer > xRegCnt( xSeriesPropSet, uno::UNO_QUERY );
|
|
uno::Reference< chart2::XRegressionCurve > xCurve(
|
|
::chart::RegressionCurveHelper::getFirstCurveNotMeanValueLine( xRegCnt ));
|
|
if( xCurve.is())
|
|
{
|
|
uno::Reference< beans::XPropertySet > xProperties( xCurve, uno::UNO_QUERY );
|
|
return xProperties;
|
|
}
|
|
}
|
|
|
|
return uno::Reference< beans::XPropertySet >();
|
|
}
|
|
|
|
template <class T, class D>
|
|
bool lclConvertToPropertySet(const SfxItemSet& rItemSet, sal_uInt16 nWhichId, const uno::Reference<beans::XPropertySet>& xProperties, const OUString& aPropertyID)
|
|
{
|
|
OSL_ASSERT(xProperties.is());
|
|
if( xProperties.is() )
|
|
{
|
|
T aValue = static_cast<T>(static_cast<const D&>(rItemSet.Get( nWhichId )).GetValue());
|
|
T aOldValue = aValue;
|
|
bool aSuccess = xProperties->getPropertyValue( aPropertyID ) >>= aOldValue;
|
|
if (!aSuccess || aOldValue != aValue)
|
|
{
|
|
xProperties->setPropertyValue( aPropertyID , uno::Any( aValue ));
|
|
return true;
|
|
}
|
|
}
|
|
return false;
|
|
}
|
|
|
|
template <class T, class D>
|
|
void lclConvertToItemSet(SfxItemSet& rItemSet, sal_uInt16 nWhichId, const uno::Reference<beans::XPropertySet>& xProperties, const OUString& aPropertyID)
|
|
{
|
|
OSL_ASSERT(xProperties.is());
|
|
if( xProperties.is() )
|
|
{
|
|
T aValue = static_cast<T>(static_cast<const D&>(rItemSet.Get( nWhichId )).GetValue());
|
|
if(xProperties->getPropertyValue( aPropertyID ) >>= aValue)
|
|
{
|
|
rItemSet.Put(D( nWhichId, aValue ));
|
|
}
|
|
}
|
|
}
|
|
|
|
void lclConvertToItemSetDouble(SfxItemSet& rItemSet, TypedWhichId<SvxDoubleItem> nWhichId, const uno::Reference<beans::XPropertySet>& xProperties, const OUString& aPropertyID)
|
|
{
|
|
OSL_ASSERT(xProperties.is());
|
|
if( xProperties.is() )
|
|
{
|
|
double aValue = rItemSet.Get( nWhichId ).GetValue();
|
|
if(xProperties->getPropertyValue( aPropertyID ) >>= aValue)
|
|
{
|
|
rItemSet.Put(SvxDoubleItem( aValue, nWhichId ));
|
|
}
|
|
}
|
|
}
|
|
|
|
} // anonymous namespace
|
|
|
|
namespace chart::wrapper
|
|
{
|
|
|
|
StatisticsItemConverter::StatisticsItemConverter(
|
|
rtl::Reference<::chart::ChartModel> xModel,
|
|
const uno::Reference< beans::XPropertySet > & rPropertySet,
|
|
SfxItemPool& rItemPool ) :
|
|
ItemConverter( rPropertySet, rItemPool ),
|
|
m_xModel(std::move( xModel ))
|
|
{
|
|
}
|
|
|
|
StatisticsItemConverter::~StatisticsItemConverter()
|
|
{
|
|
}
|
|
|
|
const WhichRangesContainer& StatisticsItemConverter::GetWhichPairs() const
|
|
{
|
|
// must span all used items!
|
|
return nStatWhichPairs;
|
|
}
|
|
|
|
bool StatisticsItemConverter::GetItemProperty(
|
|
tWhichIdType /* nWhichId */,
|
|
tPropertyNameWithMemberId & /* rOutProperty */ ) const
|
|
{
|
|
return false;
|
|
}
|
|
|
|
bool StatisticsItemConverter::ApplySpecialItem(
|
|
sal_uInt16 nWhichId, const SfxItemSet & rItemSet )
|
|
{
|
|
bool bChanged = false;
|
|
|
|
switch( nWhichId )
|
|
{
|
|
case SCHATTR_STAT_AVERAGE:
|
|
{
|
|
uno::Reference< chart2::XRegressionCurveContainer > xRegCnt(
|
|
GetPropertySet(), uno::UNO_QUERY );
|
|
bool bOldHasMeanValueLine = RegressionCurveHelper::hasMeanValueLine( xRegCnt );
|
|
|
|
bool bNewHasMeanValueLine =
|
|
static_cast< const SfxBoolItem & >( rItemSet.Get( nWhichId )).GetValue();
|
|
|
|
if( bOldHasMeanValueLine != bNewHasMeanValueLine )
|
|
{
|
|
if( ! bNewHasMeanValueLine )
|
|
RegressionCurveHelper::removeMeanValueLine( xRegCnt );
|
|
else
|
|
RegressionCurveHelper::addMeanValueLine( xRegCnt, GetPropertySet() );
|
|
bChanged = true;
|
|
}
|
|
}
|
|
break;
|
|
|
|
// Attention !!! This case must be passed before SCHATTR_STAT_PERCENT,
|
|
// SCHATTR_STAT_BIGERROR, SCHATTR_STAT_CONSTPLUS,
|
|
// SCHATTR_STAT_CONSTMINUS and SCHATTR_STAT_INDICATE
|
|
case SCHATTR_STAT_KIND_ERROR:
|
|
{
|
|
bool bYError =
|
|
rItemSet.Get(SCHATTR_STAT_ERRORBAR_TYPE).GetValue();
|
|
|
|
uno::Reference< beans::XPropertySet > xErrorBarProp(
|
|
lcl_GetErrorBar( GetPropertySet(), bYError ));
|
|
|
|
SvxChartKindError eErrorKind =
|
|
static_cast< const SvxChartKindErrorItem & >(
|
|
rItemSet.Get( nWhichId )).GetValue();
|
|
|
|
if( !xErrorBarProp.is() && eErrorKind == SvxChartKindError::NONE)
|
|
{
|
|
//nothing to do
|
|
}
|
|
else
|
|
{
|
|
sal_Int32 nStyle = css::chart::ErrorBarStyle::NONE;
|
|
|
|
switch( eErrorKind )
|
|
{
|
|
case SvxChartKindError::NONE:
|
|
nStyle = css::chart::ErrorBarStyle::NONE; break;
|
|
case SvxChartKindError::Variant:
|
|
nStyle = css::chart::ErrorBarStyle::VARIANCE; break;
|
|
case SvxChartKindError::Sigma:
|
|
nStyle = css::chart::ErrorBarStyle::STANDARD_DEVIATION; break;
|
|
case SvxChartKindError::Percent:
|
|
nStyle = css::chart::ErrorBarStyle::RELATIVE; break;
|
|
case SvxChartKindError::BigError:
|
|
nStyle = css::chart::ErrorBarStyle::ERROR_MARGIN; break;
|
|
case SvxChartKindError::Const:
|
|
nStyle = css::chart::ErrorBarStyle::ABSOLUTE; break;
|
|
case SvxChartKindError::StdError:
|
|
nStyle = css::chart::ErrorBarStyle::STANDARD_ERROR; break;
|
|
case SvxChartKindError::Range:
|
|
nStyle = css::chart::ErrorBarStyle::FROM_DATA; break;
|
|
}
|
|
|
|
if( !xErrorBarProp.is() )
|
|
{
|
|
xErrorBarProp = lcl_GetDefaultErrorBar();
|
|
GetPropertySet()->setPropertyValue( bYError ? CHART_UNONAME_ERRORBAR_Y : CHART_UNONAME_ERRORBAR_X,
|
|
uno::Any( xErrorBarProp ));
|
|
}
|
|
|
|
xErrorBarProp->setPropertyValue( u"ErrorBarStyle"_ustr , uno::Any( nStyle ));
|
|
bChanged = true;
|
|
}
|
|
}
|
|
break;
|
|
|
|
case SCHATTR_STAT_PERCENT:
|
|
case SCHATTR_STAT_BIGERROR:
|
|
{
|
|
OSL_FAIL( "Deprecated item" );
|
|
bool bYError =
|
|
rItemSet.Get(SCHATTR_STAT_ERRORBAR_TYPE).GetValue();
|
|
|
|
uno::Reference< beans::XPropertySet > xErrorBarProp(
|
|
lcl_GetErrorBar( GetPropertySet(), bYError));
|
|
bool bOldHasErrorBar = xErrorBarProp.is();
|
|
|
|
double fValue =
|
|
static_cast< const SvxDoubleItem & >(
|
|
rItemSet.Get( nWhichId )).GetValue();
|
|
double fPos(0.0), fNeg(0.0);
|
|
lcl_getErrorValues( xErrorBarProp, fPos, fNeg );
|
|
|
|
if( bOldHasErrorBar &&
|
|
! ( ::rtl::math::approxEqual( fPos, fValue ) &&
|
|
::rtl::math::approxEqual( fNeg, fValue )))
|
|
{
|
|
xErrorBarProp->setPropertyValue( u"PositiveError"_ustr , uno::Any( fValue ));
|
|
xErrorBarProp->setPropertyValue( u"NegativeError"_ustr , uno::Any( fValue ));
|
|
bChanged = true;
|
|
}
|
|
}
|
|
break;
|
|
|
|
case SCHATTR_STAT_CONSTPLUS:
|
|
{
|
|
bool bYError =
|
|
rItemSet.Get(SCHATTR_STAT_ERRORBAR_TYPE).GetValue();
|
|
|
|
uno::Reference< beans::XPropertySet > xErrorBarProp(
|
|
lcl_GetErrorBar( GetPropertySet(),bYError));
|
|
bool bOldHasErrorBar = xErrorBarProp.is();
|
|
|
|
double fValue =
|
|
static_cast< const SvxDoubleItem & >(
|
|
rItemSet.Get( nWhichId )).GetValue();
|
|
double fPos(0.0), fNeg(0.0);
|
|
lcl_getErrorValues( xErrorBarProp, fPos, fNeg );
|
|
|
|
if( bOldHasErrorBar &&
|
|
! ::rtl::math::approxEqual( fPos, fValue ))
|
|
{
|
|
xErrorBarProp->setPropertyValue( u"PositiveError"_ustr , uno::Any( fValue ));
|
|
bChanged = true;
|
|
}
|
|
}
|
|
break;
|
|
|
|
case SCHATTR_STAT_CONSTMINUS:
|
|
{
|
|
bool bYError =
|
|
rItemSet.Get(SCHATTR_STAT_ERRORBAR_TYPE).GetValue();
|
|
uno::Reference< beans::XPropertySet > xErrorBarProp(
|
|
lcl_GetErrorBar( GetPropertySet(),bYError));
|
|
bool bOldHasErrorBar = xErrorBarProp.is();
|
|
|
|
double fValue =
|
|
static_cast< const SvxDoubleItem & >(
|
|
rItemSet.Get( nWhichId )).GetValue();
|
|
double fPos(0.0), fNeg(0.0);
|
|
lcl_getErrorValues( xErrorBarProp, fPos, fNeg );
|
|
|
|
if( bOldHasErrorBar &&
|
|
! ::rtl::math::approxEqual( fNeg, fValue ))
|
|
{
|
|
xErrorBarProp->setPropertyValue( u"NegativeError"_ustr , uno::Any( fValue ));
|
|
bChanged = true;
|
|
}
|
|
}
|
|
break;
|
|
|
|
case SCHATTR_REGRESSION_TYPE:
|
|
{
|
|
SvxChartRegress eRegress =
|
|
static_cast< const SvxChartRegressItem& >(
|
|
rItemSet.Get( nWhichId )).GetValue();
|
|
|
|
uno::Reference< chart2::XRegressionCurve > xCurve( GetPropertySet(), uno::UNO_QUERY );
|
|
uno::Reference< chart2::XRegressionCurveContainer > xContainer( GetPropertySet(), uno::UNO_QUERY );
|
|
|
|
if( eRegress == SvxChartRegress::NONE )
|
|
{
|
|
if ( xContainer.is() )
|
|
{
|
|
xContainer->removeRegressionCurve( xCurve );
|
|
bChanged = true;
|
|
}
|
|
}
|
|
else
|
|
{
|
|
if ( xCurve.is() )
|
|
{
|
|
SvxChartRegress eOldRegress(
|
|
RegressionCurveHelper::getRegressionType(xCurve));
|
|
|
|
if( eOldRegress != eRegress )
|
|
{
|
|
xCurve = RegressionCurveHelper::changeRegressionCurveType(
|
|
eRegress,
|
|
xContainer,
|
|
xCurve);
|
|
uno::Reference< beans::XPropertySet > xProperties( xCurve, uno::UNO_QUERY );
|
|
resetPropertySet( xProperties );
|
|
bChanged = true;
|
|
}
|
|
}
|
|
}
|
|
}
|
|
break;
|
|
|
|
case SCHATTR_REGRESSION_DEGREE:
|
|
{
|
|
uno::Reference< beans::XPropertySet > xProperties( lcl_getCurveProperties( GetPropertySet(), &rItemSet ));
|
|
bChanged = lclConvertToPropertySet<sal_Int32, SfxInt32Item>(rItemSet, nWhichId, xProperties, u"PolynomialDegree"_ustr);
|
|
}
|
|
break;
|
|
|
|
case SCHATTR_REGRESSION_PERIOD:
|
|
{
|
|
uno::Reference< beans::XPropertySet > xProperties( lcl_getCurveProperties( GetPropertySet(), &rItemSet ));
|
|
bChanged = lclConvertToPropertySet<sal_Int32, SfxInt32Item>(rItemSet, nWhichId, xProperties, u"MovingAveragePeriod"_ustr);
|
|
}
|
|
break;
|
|
|
|
case SCHATTR_REGRESSION_MOVING_TYPE:
|
|
{
|
|
uno::Reference< beans::XPropertySet > xProperties( lcl_getCurveProperties( GetPropertySet(), &rItemSet ));
|
|
bChanged = lclConvertToPropertySet<sal_Int32, SfxInt32Item>(rItemSet, nWhichId, xProperties, u"MovingAverageType"_ustr);
|
|
}
|
|
break;
|
|
|
|
case SCHATTR_REGRESSION_EXTRAPOLATE_FORWARD:
|
|
{
|
|
uno::Reference< beans::XPropertySet > xProperties( lcl_getCurveProperties( GetPropertySet(), &rItemSet ));
|
|
bChanged = lclConvertToPropertySet<double, SvxDoubleItem>(rItemSet, nWhichId, xProperties, u"ExtrapolateForward"_ustr);
|
|
}
|
|
break;
|
|
|
|
case SCHATTR_REGRESSION_EXTRAPOLATE_BACKWARD:
|
|
{
|
|
uno::Reference< beans::XPropertySet > xProperties( lcl_getCurveProperties( GetPropertySet(), &rItemSet ));
|
|
bChanged = lclConvertToPropertySet<double, SvxDoubleItem>(rItemSet, nWhichId, xProperties, u"ExtrapolateBackward"_ustr);
|
|
}
|
|
break;
|
|
|
|
case SCHATTR_REGRESSION_SET_INTERCEPT:
|
|
{
|
|
uno::Reference< beans::XPropertySet > xProperties( lcl_getCurveProperties( GetPropertySet(), &rItemSet ));
|
|
bChanged = lclConvertToPropertySet<bool, SfxBoolItem>(rItemSet, nWhichId, xProperties, u"ForceIntercept"_ustr);
|
|
}
|
|
break;
|
|
|
|
case SCHATTR_REGRESSION_INTERCEPT_VALUE:
|
|
{
|
|
uno::Reference< beans::XPropertySet > xProperties( lcl_getCurveProperties( GetPropertySet(), &rItemSet ));
|
|
bChanged = lclConvertToPropertySet<double, SvxDoubleItem>(rItemSet, nWhichId, xProperties, u"InterceptValue"_ustr);
|
|
}
|
|
break;
|
|
|
|
case SCHATTR_REGRESSION_CURVE_NAME:
|
|
{
|
|
uno::Reference< beans::XPropertySet > xProperties( lcl_getCurveProperties( GetPropertySet(), &rItemSet ));
|
|
bChanged = lclConvertToPropertySet<OUString, SfxStringItem>(rItemSet, nWhichId, xProperties, u"CurveName"_ustr);
|
|
}
|
|
break;
|
|
|
|
case SCHATTR_REGRESSION_SHOW_EQUATION:
|
|
{
|
|
uno::Reference< beans::XPropertySet > xEqProp( lcl_getEquationProperties( GetPropertySet(), &rItemSet ));
|
|
bChanged = lclConvertToPropertySet<bool, SfxBoolItem>(rItemSet, nWhichId, xEqProp, u"ShowEquation"_ustr);
|
|
}
|
|
break;
|
|
|
|
case SCHATTR_REGRESSION_XNAME:
|
|
{
|
|
uno::Reference< beans::XPropertySet > xEqProp( lcl_getEquationProperties( GetPropertySet(), &rItemSet ));
|
|
bChanged = lclConvertToPropertySet<OUString, SfxStringItem>(rItemSet, nWhichId, xEqProp, u"XName"_ustr);
|
|
}
|
|
break;
|
|
|
|
case SCHATTR_REGRESSION_YNAME:
|
|
{
|
|
uno::Reference< beans::XPropertySet > xEqProp( lcl_getEquationProperties( GetPropertySet(), &rItemSet ));
|
|
bChanged = lclConvertToPropertySet<OUString, SfxStringItem>(rItemSet, nWhichId, xEqProp, u"YName"_ustr);
|
|
}
|
|
break;
|
|
|
|
case SCHATTR_REGRESSION_SHOW_COEFF:
|
|
{
|
|
uno::Reference< beans::XPropertySet > xEqProp( lcl_getEquationProperties( GetPropertySet(), &rItemSet ));
|
|
bChanged = lclConvertToPropertySet<bool, SfxBoolItem>(rItemSet, nWhichId, xEqProp, u"ShowCorrelationCoefficient"_ustr);
|
|
}
|
|
break;
|
|
|
|
case SCHATTR_STAT_INDICATE:
|
|
{
|
|
bool bYError =
|
|
rItemSet.Get(SCHATTR_STAT_ERRORBAR_TYPE).GetValue();
|
|
uno::Reference< beans::XPropertySet > xErrorBarProp(
|
|
lcl_GetErrorBar( GetPropertySet(),bYError));
|
|
bool bOldHasErrorBar = xErrorBarProp.is();
|
|
|
|
SvxChartIndicate eIndicate =
|
|
static_cast< const SvxChartIndicateItem & >(
|
|
rItemSet.Get( nWhichId )).GetValue();
|
|
|
|
bool bNewIndPos = (eIndicate == SvxChartIndicate::Both || eIndicate == SvxChartIndicate::Up );
|
|
bool bNewIndNeg = (eIndicate == SvxChartIndicate::Both || eIndicate == SvxChartIndicate::Down );
|
|
|
|
bool bShowPos(false), bShowNeg(false);
|
|
lcl_getErrorIndicatorValues( xErrorBarProp, bShowPos, bShowNeg );
|
|
|
|
if( bOldHasErrorBar &&
|
|
( bShowPos != bNewIndPos ||
|
|
bShowNeg != bNewIndNeg ))
|
|
{
|
|
xErrorBarProp->setPropertyValue( u"ShowPositiveError"_ustr , uno::Any( bNewIndPos ));
|
|
xErrorBarProp->setPropertyValue( u"ShowNegativeError"_ustr , uno::Any( bNewIndNeg ));
|
|
bChanged = true;
|
|
}
|
|
}
|
|
break;
|
|
|
|
case SCHATTR_STAT_RANGE_POS:
|
|
case SCHATTR_STAT_RANGE_NEG:
|
|
{
|
|
const bool bYError =
|
|
rItemSet.Get(SCHATTR_STAT_ERRORBAR_TYPE).GetValue();
|
|
uno::Reference< chart2::data::XDataSource > xErrorBarSource( lcl_GetErrorBar( GetPropertySet(), bYError),
|
|
uno::UNO_QUERY );
|
|
uno::Reference< chart2::data::XDataProvider > xDataProvider;
|
|
|
|
if( m_xModel.is())
|
|
xDataProvider.set( m_xModel->getDataProvider());
|
|
if( xErrorBarSource.is() && xDataProvider.is())
|
|
{
|
|
OUString aNewRange( static_cast< const SfxStringItem & >( rItemSet.Get( nWhichId )).GetValue());
|
|
bool bApplyNewRange = false;
|
|
|
|
bool bIsPositiveValue( nWhichId == SCHATTR_STAT_RANGE_POS );
|
|
if( m_xModel->hasInternalDataProvider())
|
|
{
|
|
if( !aNewRange.isEmpty())
|
|
{
|
|
uno::Reference< chart2::data::XDataSequence > xSeq(
|
|
StatisticsHelper::getErrorDataSequenceFromDataSource(
|
|
xErrorBarSource, bIsPositiveValue, bYError ));
|
|
if( ! xSeq.is())
|
|
{
|
|
// no data range for error bars yet => create
|
|
uno::Reference< chart2::XInternalDataProvider > xIntDataProvider( xDataProvider, uno::UNO_QUERY );
|
|
OSL_ASSERT( xIntDataProvider.is());
|
|
if( xIntDataProvider.is())
|
|
{
|
|
xIntDataProvider->appendSequence();
|
|
aNewRange = "last";
|
|
bApplyNewRange = true;
|
|
}
|
|
}
|
|
}
|
|
}
|
|
else
|
|
{
|
|
uno::Reference< chart2::data::XDataSequence > xSeq(
|
|
StatisticsHelper::getErrorDataSequenceFromDataSource(
|
|
xErrorBarSource, bIsPositiveValue, bYError ));
|
|
bApplyNewRange =
|
|
! ( xSeq.is() && (aNewRange == xSeq->getSourceRangeRepresentation()));
|
|
}
|
|
|
|
if( bApplyNewRange )
|
|
StatisticsHelper::setErrorDataSequence(
|
|
xErrorBarSource, xDataProvider, aNewRange, bIsPositiveValue, bYError );
|
|
}
|
|
}
|
|
break;
|
|
}
|
|
|
|
return bChanged;
|
|
}
|
|
|
|
void StatisticsItemConverter::FillSpecialItem(
|
|
sal_uInt16 nWhichId, SfxItemSet & rOutItemSet ) const
|
|
{
|
|
switch( nWhichId )
|
|
{
|
|
case SCHATTR_STAT_AVERAGE:
|
|
rOutItemSet.Put(
|
|
SfxBoolItem( nWhichId,
|
|
RegressionCurveHelper::hasMeanValueLine(
|
|
uno::Reference< chart2::XRegressionCurveContainer >(
|
|
GetPropertySet(), uno::UNO_QUERY ))));
|
|
break;
|
|
|
|
case SCHATTR_STAT_KIND_ERROR:
|
|
{
|
|
bool bYError =
|
|
rOutItemSet.Get(SCHATTR_STAT_ERRORBAR_TYPE).GetValue();
|
|
SvxChartKindError eErrorKind = SvxChartKindError::NONE;
|
|
uno::Reference< beans::XPropertySet > xErrorBarProp(
|
|
lcl_GetErrorBar( GetPropertySet(), bYError));
|
|
if( xErrorBarProp.is() )
|
|
{
|
|
sal_Int32 nStyle = 0;
|
|
if( xErrorBarProp->getPropertyValue( u"ErrorBarStyle"_ustr ) >>= nStyle )
|
|
{
|
|
switch( nStyle )
|
|
{
|
|
case css::chart::ErrorBarStyle::NONE:
|
|
break;
|
|
case css::chart::ErrorBarStyle::VARIANCE:
|
|
eErrorKind = SvxChartKindError::Variant; break;
|
|
case css::chart::ErrorBarStyle::STANDARD_DEVIATION:
|
|
eErrorKind = SvxChartKindError::Sigma; break;
|
|
case css::chart::ErrorBarStyle::ABSOLUTE:
|
|
eErrorKind = SvxChartKindError::Const; break;
|
|
case css::chart::ErrorBarStyle::RELATIVE:
|
|
eErrorKind = SvxChartKindError::Percent; break;
|
|
case css::chart::ErrorBarStyle::ERROR_MARGIN:
|
|
eErrorKind = SvxChartKindError::BigError; break;
|
|
case css::chart::ErrorBarStyle::STANDARD_ERROR:
|
|
eErrorKind = SvxChartKindError::StdError; break;
|
|
case css::chart::ErrorBarStyle::FROM_DATA:
|
|
eErrorKind = SvxChartKindError::Range; break;
|
|
}
|
|
}
|
|
}
|
|
rOutItemSet.Put( SvxChartKindErrorItem( eErrorKind, SCHATTR_STAT_KIND_ERROR ));
|
|
}
|
|
break;
|
|
|
|
case SCHATTR_STAT_PERCENT:
|
|
{
|
|
bool bYError =
|
|
rOutItemSet.Get(SCHATTR_STAT_ERRORBAR_TYPE).GetValue();
|
|
uno::Reference< beans::XPropertySet > xErrorBarProp( lcl_GetErrorBar( GetPropertySet(),bYError));
|
|
if( xErrorBarProp.is())
|
|
{
|
|
double fPos(0.0), fNeg(0.0);
|
|
lcl_getErrorValues( xErrorBarProp, fPos, fNeg );
|
|
rOutItemSet.Put( SvxDoubleItem( ( fPos + fNeg ) / 2.0, SCHATTR_STAT_PERCENT ));
|
|
}
|
|
}
|
|
break;
|
|
|
|
case SCHATTR_STAT_BIGERROR:
|
|
{
|
|
bool bYError =
|
|
rOutItemSet.Get(SCHATTR_STAT_ERRORBAR_TYPE).GetValue();
|
|
uno::Reference< beans::XPropertySet > xErrorBarProp( lcl_GetErrorBar( GetPropertySet(),bYError));
|
|
if( xErrorBarProp.is())
|
|
{
|
|
double fPos(0.0), fNeg(0.0);
|
|
lcl_getErrorValues( xErrorBarProp, fPos, fNeg );
|
|
rOutItemSet.Put( SvxDoubleItem( ( fPos + fNeg ) / 2.0, SCHATTR_STAT_BIGERROR ));
|
|
}
|
|
}
|
|
break;
|
|
|
|
case SCHATTR_STAT_CONSTPLUS:
|
|
{
|
|
bool bYError =
|
|
rOutItemSet.Get(SCHATTR_STAT_ERRORBAR_TYPE).GetValue();
|
|
uno::Reference< beans::XPropertySet > xErrorBarProp( lcl_GetErrorBar( GetPropertySet(),bYError));
|
|
if( xErrorBarProp.is())
|
|
{
|
|
double fPos(0.0), fNeg(0.0);
|
|
lcl_getErrorValues( xErrorBarProp, fPos, fNeg );
|
|
rOutItemSet.Put( SvxDoubleItem( fPos, SCHATTR_STAT_CONSTPLUS ));
|
|
}
|
|
}
|
|
break;
|
|
|
|
case SCHATTR_STAT_CONSTMINUS:
|
|
{
|
|
bool bYError =
|
|
rOutItemSet.Get(SCHATTR_STAT_ERRORBAR_TYPE).GetValue();
|
|
uno::Reference< beans::XPropertySet > xErrorBarProp( lcl_GetErrorBar( GetPropertySet(),bYError));
|
|
if( xErrorBarProp.is())
|
|
{
|
|
double fPos(0.0), fNeg(0.0);
|
|
lcl_getErrorValues( xErrorBarProp, fPos, fNeg );
|
|
rOutItemSet.Put( SvxDoubleItem( fNeg, SCHATTR_STAT_CONSTMINUS ));
|
|
}
|
|
}
|
|
break;
|
|
|
|
case SCHATTR_REGRESSION_TYPE:
|
|
{
|
|
SvxChartRegress eRegress =
|
|
RegressionCurveHelper::getFirstRegressTypeNotMeanValueLine(
|
|
uno::Reference< chart2::XRegressionCurveContainer >(
|
|
GetPropertySet(), uno::UNO_QUERY ) );
|
|
rOutItemSet.Put( SvxChartRegressItem( eRegress, SCHATTR_REGRESSION_TYPE ));
|
|
}
|
|
break;
|
|
|
|
case SCHATTR_REGRESSION_DEGREE:
|
|
{
|
|
|
|
uno::Reference<beans::XPropertySet> xProperties( lcl_getCurveProperties( GetPropertySet(), nullptr ));
|
|
lclConvertToItemSet<sal_Int32, SfxInt32Item>(rOutItemSet, nWhichId, xProperties, u"PolynomialDegree"_ustr);
|
|
}
|
|
break;
|
|
|
|
case SCHATTR_REGRESSION_PERIOD:
|
|
{
|
|
uno::Reference< beans::XPropertySet > xProperties( lcl_getCurveProperties( GetPropertySet(), nullptr ));
|
|
lclConvertToItemSet<sal_Int32, SfxInt32Item>(rOutItemSet, nWhichId, xProperties, u"MovingAveragePeriod"_ustr);
|
|
}
|
|
break;
|
|
|
|
case SCHATTR_REGRESSION_MOVING_TYPE:
|
|
{
|
|
uno::Reference< beans::XPropertySet > xProperties( lcl_getCurveProperties( GetPropertySet(), nullptr ));
|
|
lclConvertToItemSet<sal_Int32, SfxInt32Item>(rOutItemSet, nWhichId, xProperties, u"MovingAverageType"_ustr);
|
|
}
|
|
break;
|
|
|
|
case SCHATTR_REGRESSION_EXTRAPOLATE_FORWARD:
|
|
{
|
|
uno::Reference< beans::XPropertySet > xProperties( lcl_getCurveProperties( GetPropertySet(), nullptr ));
|
|
lclConvertToItemSetDouble(rOutItemSet, SCHATTR_REGRESSION_EXTRAPOLATE_FORWARD, xProperties, u"ExtrapolateForward"_ustr);
|
|
}
|
|
break;
|
|
|
|
case SCHATTR_REGRESSION_EXTRAPOLATE_BACKWARD:
|
|
{
|
|
uno::Reference< beans::XPropertySet > xProperties( lcl_getCurveProperties( GetPropertySet(), nullptr ));
|
|
lclConvertToItemSetDouble(rOutItemSet, SCHATTR_REGRESSION_EXTRAPOLATE_BACKWARD, xProperties, u"ExtrapolateBackward"_ustr);
|
|
}
|
|
break;
|
|
|
|
case SCHATTR_REGRESSION_SET_INTERCEPT:
|
|
{
|
|
uno::Reference< beans::XPropertySet > xProperties( lcl_getCurveProperties( GetPropertySet(), nullptr ));
|
|
lclConvertToItemSet<bool, SfxBoolItem>(rOutItemSet, nWhichId, xProperties, u"ForceIntercept"_ustr);
|
|
}
|
|
break;
|
|
|
|
case SCHATTR_REGRESSION_INTERCEPT_VALUE:
|
|
{
|
|
uno::Reference< beans::XPropertySet > xProperties( lcl_getCurveProperties( GetPropertySet(), nullptr ));
|
|
lclConvertToItemSetDouble(rOutItemSet, SCHATTR_REGRESSION_INTERCEPT_VALUE, xProperties, u"InterceptValue"_ustr);
|
|
}
|
|
break;
|
|
|
|
case SCHATTR_REGRESSION_CURVE_NAME:
|
|
{
|
|
uno::Reference< beans::XPropertySet > xProperties( lcl_getCurveProperties( GetPropertySet(), nullptr ));
|
|
lclConvertToItemSet<OUString, SfxStringItem>(rOutItemSet, nWhichId, xProperties, u"CurveName"_ustr);
|
|
}
|
|
break;
|
|
|
|
case SCHATTR_REGRESSION_SHOW_EQUATION:
|
|
{
|
|
uno::Reference< beans::XPropertySet > xEqProp( lcl_getEquationProperties( GetPropertySet(), nullptr ));
|
|
lclConvertToItemSet<bool, SfxBoolItem>(rOutItemSet, nWhichId, xEqProp, u"ShowEquation"_ustr);
|
|
}
|
|
break;
|
|
|
|
case SCHATTR_REGRESSION_XNAME:
|
|
{
|
|
uno::Reference< beans::XPropertySet > xEqProp( lcl_getEquationProperties( GetPropertySet(), nullptr ));
|
|
lclConvertToItemSet<OUString, SfxStringItem>(rOutItemSet, nWhichId, xEqProp, u"XName"_ustr);
|
|
}
|
|
break;
|
|
|
|
case SCHATTR_REGRESSION_YNAME:
|
|
{
|
|
uno::Reference< beans::XPropertySet > xEqProp( lcl_getEquationProperties( GetPropertySet(), nullptr ));
|
|
lclConvertToItemSet<OUString, SfxStringItem>(rOutItemSet, nWhichId, xEqProp, u"YName"_ustr);
|
|
}
|
|
break;
|
|
|
|
case SCHATTR_REGRESSION_SHOW_COEFF:
|
|
{
|
|
uno::Reference< beans::XPropertySet > xEqProp( lcl_getEquationProperties( GetPropertySet(), nullptr ));
|
|
lclConvertToItemSet<bool, SfxBoolItem>(rOutItemSet, nWhichId, xEqProp, u"ShowCorrelationCoefficient"_ustr);
|
|
}
|
|
break;
|
|
|
|
case SCHATTR_STAT_INDICATE:
|
|
{
|
|
bool bYError =
|
|
rOutItemSet.Get(SCHATTR_STAT_ERRORBAR_TYPE).GetValue();
|
|
uno::Reference< beans::XPropertySet > xErrorBarProp( lcl_GetErrorBar( GetPropertySet(),bYError));
|
|
SvxChartIndicate eIndicate = SvxChartIndicate::Both;
|
|
if( xErrorBarProp.is())
|
|
{
|
|
bool bShowPos(false), bShowNeg(false);
|
|
lcl_getErrorIndicatorValues( xErrorBarProp, bShowPos, bShowNeg );
|
|
|
|
if( bShowPos )
|
|
{
|
|
if( bShowNeg )
|
|
eIndicate = SvxChartIndicate::Both;
|
|
else
|
|
eIndicate = SvxChartIndicate::Up;
|
|
}
|
|
else
|
|
{
|
|
if( bShowNeg )
|
|
eIndicate = SvxChartIndicate::Down;
|
|
else
|
|
eIndicate = SvxChartIndicate::NONE;
|
|
}
|
|
}
|
|
rOutItemSet.Put( SvxChartIndicateItem( eIndicate, SCHATTR_STAT_INDICATE ));
|
|
}
|
|
break;
|
|
|
|
case SCHATTR_STAT_RANGE_POS:
|
|
case SCHATTR_STAT_RANGE_NEG:
|
|
{
|
|
bool bYError =
|
|
rOutItemSet.Get(SCHATTR_STAT_ERRORBAR_TYPE).GetValue();
|
|
uno::Reference< chart2::data::XDataSource > xErrorBarSource( lcl_GetErrorBar( GetPropertySet(),bYError),
|
|
uno::UNO_QUERY );
|
|
if( xErrorBarSource.is())
|
|
{
|
|
uno::Reference< chart2::data::XDataSequence > xSeq(
|
|
StatisticsHelper::getErrorDataSequenceFromDataSource(
|
|
xErrorBarSource, (nWhichId == SCHATTR_STAT_RANGE_POS), bYError ));
|
|
if( xSeq.is())
|
|
rOutItemSet.Put( SfxStringItem( nWhichId, xSeq->getSourceRangeRepresentation()));
|
|
}
|
|
}
|
|
break;
|
|
}
|
|
}
|
|
|
|
} // namespace chart
|
|
|
|
/* vim:set shiftwidth=4 softtabstop=4 expandtab: */
|