1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
|
/* -*- 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 .
*/
#pragma once
#include <com/sun/star/sheet/XSolver.hpp>
#include <com/sun/star/sheet/XSolverDescription.hpp>
#include <com/sun/star/sheet/SensitivityReport.hpp>
#include <com/sun/star/table/CellAddress.hpp>
#include <com/sun/star/lang/XServiceInfo.hpp>
#include <cppuhelper/implbase.hxx>
#include <comphelper/compbase.hxx>
#include <comphelper/propertycontainer2.hxx>
#include <comphelper/proparrhlp.hxx>
#include <unotools/resmgr.hxx>
#include <unordered_map>
namespace com::sun::star::table { class XCell; }
// hash map for the coefficients of a dependent cell (objective or constraint)
// The size of each vector is the number of columns (variable cells) plus one, first entry is initial value.
struct ScSolverCellHash
{
size_t operator()( const css::table::CellAddress& rAddress ) const;
};
inline bool AddressEqual( const css::table::CellAddress& rAddr1, const css::table::CellAddress& rAddr2 )
{
return rAddr1.Sheet == rAddr2.Sheet && rAddr1.Column == rAddr2.Column && rAddr1.Row == rAddr2.Row;
}
struct ScSolverCellEqual
{
bool operator()( const css::table::CellAddress& rAddr1, const css::table::CellAddress& rAddr2 ) const;
};
typedef std::unordered_map< css::table::CellAddress, std::vector<double>, ScSolverCellHash, ScSolverCellEqual > ScSolverCellHashMap;
typedef comphelper::WeakImplHelper<
css::sheet::XSolver,
css::sheet::XSolverDescription,
css::lang::XServiceInfo >
SolverComponent_Base;
class SolverComponent : public comphelper::OPropertyContainer2,
public comphelper::OPropertyArrayUsageHelper< SolverComponent >,
public SolverComponent_Base
{
protected:
// settings
css::uno::Reference< css::sheet::XSpreadsheetDocument > mxDoc;
css::table::CellAddress maObjective;
css::uno::Sequence< css::table::CellAddress > maVariables;
css::uno::Sequence< css::sheet::SolverConstraint > maConstraints;
bool mbMaximize;
// set via XPropertySet
bool mbNonNegative;
bool mbInteger;
sal_Int32 mnTimeout;
sal_Int32 mnEpsilonLevel;
bool mbLimitBBDepth;
bool mbGenSensitivity;
// results
bool mbSuccess;
double mfResultValue;
css::uno::Sequence< double > maSolution;
OUString maStatus;
// Sensitivity report
css::uno::Sequence<double> m_aObjCoefficients;
css::uno::Sequence<double> m_aObjDecrease;
css::uno::Sequence<double> m_aObjIncrease;
css::uno::Sequence<double> m_aObjRedCost;
css::uno::Sequence<double> m_aConstrValue;
css::uno::Sequence<double> m_aConstrRHS;
css::uno::Sequence<double> m_aConstrDual;
css::uno::Sequence<double> m_aConstrIncrease;
css::uno::Sequence<double> m_aConstrDecrease;
css::sheet::SensitivityReport m_aSensitivityReport;
static OUString GetResourceString(TranslateId aId);
static css::uno::Reference<css::table::XCell> GetCell(
const css::uno::Reference<css::sheet::XSpreadsheetDocument>& xDoc,
const css::table::CellAddress& rPos );
static void SetValue(
const css::uno::Reference<css::sheet::XSpreadsheetDocument>& xDoc,
const css::table::CellAddress& rPos, double fValue );
static double GetValue(
const css::uno::Reference<css::sheet::XSpreadsheetDocument>& xDoc,
const css::table::CellAddress& rPos );
public:
SolverComponent();
virtual ~SolverComponent() override;
DECLARE_XINTERFACE()
DECLARE_XTYPEPROVIDER()
virtual css::uno::Reference< css::beans::XPropertySetInfo > SAL_CALL getPropertySetInfo() override;
virtual ::cppu::IPropertyArrayHelper& getInfoHelper() override; // from OPropertySetHelper
virtual ::cppu::IPropertyArrayHelper* createArrayHelper() const override; // from OPropertyArrayUsageHelper
// XSolver
virtual css::uno::Reference< css::sheet::XSpreadsheetDocument > SAL_CALL getDocument() override;
virtual void SAL_CALL setDocument( const css::uno::Reference<
css::sheet::XSpreadsheetDocument >& _document ) override;
virtual css::table::CellAddress SAL_CALL getObjective() override;
virtual void SAL_CALL setObjective( const css::table::CellAddress& _objective ) override;
virtual css::uno::Sequence< css::table::CellAddress > SAL_CALL getVariables() override;
virtual void SAL_CALL setVariables( const css::uno::Sequence<
css::table::CellAddress >& _variables ) override;
virtual css::uno::Sequence< css::sheet::SolverConstraint > SAL_CALL getConstraints() override;
virtual void SAL_CALL setConstraints( const css::uno::Sequence<
css::sheet::SolverConstraint >& _constraints ) override;
virtual sal_Bool SAL_CALL getMaximize() override;
virtual void SAL_CALL setMaximize( sal_Bool _maximize ) override;
virtual sal_Bool SAL_CALL getSuccess() override;
virtual double SAL_CALL getResultValue() override;
virtual css::uno::Sequence< double > SAL_CALL getSolution() override;
virtual void SAL_CALL solve() override = 0;
// XSolverDescription
virtual OUString SAL_CALL getComponentDescription() override = 0;
virtual OUString SAL_CALL getStatusDescription() override;
virtual OUString SAL_CALL getPropertyDescription( const OUString& aPropertyName ) override;
// XServiceInfo
virtual OUString SAL_CALL getImplementationName() override = 0;
virtual sal_Bool SAL_CALL supportsService( const OUString& ServiceName ) override;
virtual css::uno::Sequence< OUString > SAL_CALL getSupportedServiceNames() override;
};
/* vim:set shiftwidth=4 softtabstop=4 expandtab: */
|
