1
0
This repository has been archived on 2025-03-06. You can view files and clone it, but cannot push or open issues or pull requests.
on-restart-benchmarks/test/float/trigonometric.cpp
Jip J. Dekker 981be2067e Squashed 'software/gecode_on_replay/' content from commit 8051d92b9
git-subtree-dir: software/gecode_on_replay
git-subtree-split: 8051d92b9c89e49cccfbd1c201371580d7703ab4
2021-06-16 14:04:29 +10:00

516 lines
18 KiB
C++

/* -*- mode: C++; c-basic-offset: 2; indent-tabs-mode: nil -*- */
/*
* Main authors:
* Christian Schulte <schulte@gecode.org>
* Vincent Barichard <Vincent.Barichard@univ-angers.fr>
*
* Copyright:
* Christian Schulte, 2005
* Vincent Barichard, 2012
*
* This file is part of Gecode, the generic constraint
* development environment:
* http://www.gecode.org
*
* Permission is hereby granted, free of charge, to any person obtaining
* a copy of this software and associated documentation files (the
* "Software"), to deal in the Software without restriction, including
* without limitation the rights to use, copy, modify, merge, publish,
* distribute, sublicense, and/or sell copies of the Software, and to
* permit persons to whom the Software is furnished to do so, subject to
* the following conditions:
*
* The above copyright notice and this permission notice shall be
* included in all copies or substantial portions of the Software.
*
* THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND,
* EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF
* MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND
* NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE
* LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION
* OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION
* WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
*
*/
#include "test/float.hh"
#include <gecode/minimodel.hh>
#ifdef GECODE_HAS_MPFR
#include <cmath>
#include <algorithm>
namespace Test { namespace Float {
/// %Tests for trigonometric constraints
namespace Trigonometric {
/// %Test for sinus constraint
class SinXY : public Test {
public:
/// Create and register test
SinXY(const std::string& s, const Gecode::FloatVal& d, Gecode::FloatNum st)
: Test("Trigonometric::Sin::XY::"+s,2,d,st,CPLT_ASSIGNMENT,false) {}
/// %Test whether \a x is solution
virtual MaybeType solution(const Assignment& x) const {
return eq(sin(x[0]), x[1]);
}
/// Post constraint on \a x
virtual void post(Gecode::Space& home, Gecode::FloatVarArray& x) {
if (flip())
Gecode::sin(home, x[0], x[1]);
else
Gecode::rel(home, sin(x[0]) == x[1]);
}
};
/// %Test for sinus constraint where solution is ensured
class SinXYSol : public Test {
public:
/// Create and register test
SinXYSol(const std::string& s, const Gecode::FloatVal& d, Gecode::FloatNum st)
: Test("Trigonometric::Sin::XY::Sol::"+s,2,d,st,EXTEND_ASSIGNMENT,false) {}
/// %Test whether \a x is solution
virtual MaybeType solution(const Assignment& x) const {
return eq(sin(x[0]), x[1]);
}
/// Extend assignment \a x
virtual bool extendAssignement(Assignment& x) const {
Gecode::FloatVal d = sin(x[0]);
if (Gecode::Float::subset(d, dom)) {
x.set(1, d);
return true;
} else {
return false;
}
}
/// Post constraint on \a x
virtual void post(Gecode::Space& home, Gecode::FloatVarArray& x) {
Gecode::sin(home, x[0], x[1]);
}
};
/// %Test for sinus constraint with shared variables
class SinXX : public Test {
public:
/// Create and register test
SinXX(const std::string& s, const Gecode::FloatVal& d, Gecode::FloatNum st)
: Test("Trigonometric::Sin::XX::"+s,1,d,st,CPLT_ASSIGNMENT,false) {}
/// %Test whether \a x is solution
virtual MaybeType solution(const Assignment& x) const {
return eq(sin(x[0]), x[0]);
}
/// Post constraint on \a x
virtual void post(Gecode::Space& home, Gecode::FloatVarArray& x) {
Gecode::sin(home, x[0], x[0]);
}
};
/// %Test for cosinus constraint
class CosXY : public Test {
public:
/// Create and register test
CosXY(const std::string& s, const Gecode::FloatVal& d, Gecode::FloatNum st)
: Test("Trigonometric::Cos::XY::"+s,2,d,st,CPLT_ASSIGNMENT,false) {}
/// %Test whether \a x is solution
virtual MaybeType solution(const Assignment& x) const {
return eq(cos(x[0]), x[1]);
}
/// Post constraint on \a x
virtual void post(Gecode::Space& home, Gecode::FloatVarArray& x) {
if (flip())
Gecode::cos(home, x[0], x[1]);
else
Gecode::rel(home, cos(x[0]) == x[1]);
}
};
/// %Test for cosinus constraint where solution is ensured
class CosXYSol : public Test {
public:
/// Create and register test
CosXYSol(const std::string& s, const Gecode::FloatVal& d, Gecode::FloatNum st)
: Test("Trigonometric::Cos::XY::Sol::"+s,2,d,st,EXTEND_ASSIGNMENT,false) {}
/// %Test whether \a x is solution
virtual MaybeType solution(const Assignment& x) const {
return eq(cos(x[0]), x[1]);
}
/// Extend assignment \a x
virtual bool extendAssignement(Assignment& x) const {
Gecode::FloatVal d = cos(x[0]);
if (Gecode::Float::subset(d, dom)) {
x.set(1, d);
return true;
} else {
return false;
}
}
/// Post constraint on \a x
virtual void post(Gecode::Space& home, Gecode::FloatVarArray& x) {
Gecode::cos(home, x[0], x[1]);
}
};
/// %Test for cosinus constraint with shared variables
class CosXX : public Test {
public:
/// Create and register test
CosXX(const std::string& s, const Gecode::FloatVal& d, Gecode::FloatNum st)
: Test("Trigonometric::Cos::XX::"+s,1,d,st,CPLT_ASSIGNMENT,false) {}
/// %Test whether \a x is solution
virtual MaybeType solution(const Assignment& x) const {
return eq(cos(x[0]), x[0]);
}
/// Post constraint on \a x
virtual void post(Gecode::Space& home, Gecode::FloatVarArray& x) {
Gecode::cos(home, x[0], x[0]);
}
};
/// %Test for tangent constraint
class TanXY : public Test {
public:
/// Create and register test
TanXY(const std::string& s, const Gecode::FloatVal& d, Gecode::FloatNum st)
: Test("Trigonometric::Tan::XY::"+s,2,d,st,CPLT_ASSIGNMENT,false) {}
/// %Test whether \a x is solution
virtual MaybeType solution(const Assignment& x) const {
return eq(tan(x[0]), x[1]);
}
/// Post constraint on \a x
virtual void post(Gecode::Space& home, Gecode::FloatVarArray& x) {
if (flip())
Gecode::tan(home, x[0], x[1]);
else
Gecode::rel(home, tan(x[0]) == x[1]);
}
};
/// %Test for tangent constraint where solution is ensured
class TanXYSol : public Test {
public:
/// Create and register test
TanXYSol(const std::string& s, const Gecode::FloatVal& d, Gecode::FloatNum st)
: Test("Trigonometric::Tan::XY::Sol::"+s,2,d,st,EXTEND_ASSIGNMENT,false) {}
/// %Test whether \a x is solution
virtual MaybeType solution(const Assignment& x) const {
return eq(tan(x[0]), x[1]);
}
/// Extend assignment \a x
virtual bool extendAssignement(Assignment& x) const {
Gecode::FloatVal d = tan(x[0]);
if (Gecode::Float::subset(d, dom)) {
x.set(1, d);
return true;
} else {
return false;
}
}
/// Post constraint on \a x
virtual void post(Gecode::Space& home, Gecode::FloatVarArray& x) {
Gecode::tan(home, x[0], x[1]);
}
};
/// %Test for tangent constraint with shared variables
class TanXX : public Test {
public:
/// Create and register test
TanXX(const std::string& s, const Gecode::FloatVal& d, Gecode::FloatNum st)
: Test("Trigonometric::Tan::XX::"+s,1,d,st,CPLT_ASSIGNMENT,false) {}
/// %Test whether \a x is solution
virtual MaybeType solution(const Assignment& x) const {
return eq(tan(x[0]), x[0]);
}
/// Post constraint on \a x
virtual void post(Gecode::Space& home, Gecode::FloatVarArray& x) {
Gecode::tan(home, x[0], x[0]);
}
};
/// %Test for asinus constraint
class ASinXY : public Test {
public:
/// Create and register test
ASinXY(const std::string& s, const Gecode::FloatVal& d, Gecode::FloatNum st)
: Test("Trigonometric::ASin::XY::"+s,2,d,st,CPLT_ASSIGNMENT,false) {}
/// %Test whether \a x is solution
virtual MaybeType solution(const Assignment& x) const {
if ((x[0].min() > 1.0) || (x[0].max() < -1.0))
return MT_FALSE;
return eq(asin(x[0]), x[1]);
}
/// Post constraint on \a x
virtual void post(Gecode::Space& home, Gecode::FloatVarArray& x) {
if (flip())
Gecode::asin(home, x[0], x[1]);
else
Gecode::rel(home, asin(x[0]) == x[1]);
}
};
/// %Test for asinus constraint where solution is ensured
class ASinXYSol : public Test {
public:
/// Create and register test
ASinXYSol(const std::string& s, const Gecode::FloatVal& d, Gecode::FloatNum st)
: Test("Trigonometric::ASin::XY::Sol::"+s,2,d,st,EXTEND_ASSIGNMENT,false) {}
/// %Test whether \a x is solution
virtual MaybeType solution(const Assignment& x) const {
if ((x[0].min() > 1.0) || (x[0].max() < -1.0))
return MT_FALSE;
return eq(asin(x[0]), x[1]);
}
/// Extend assignment \a x
virtual bool extendAssignement(Assignment& x) const {
if ((x[0].min() > 1.0) || (x[0].max() < -1.0))
return false;
Gecode::FloatVal d = asin(x[0]);
if (Gecode::Float::subset(d, dom)) {
x.set(1, d);
return true;
} else {
return false;
}
}
/// Post constraint on \a x
virtual void post(Gecode::Space& home, Gecode::FloatVarArray& x) {
Gecode::asin(home, x[0], x[1]);
}
};
/// %Test for asinus constraint with shared variables
class ASinXX : public Test {
public:
/// Create and register test
ASinXX(const std::string& s, const Gecode::FloatVal& d, Gecode::FloatNum st)
: Test("Trigonometric::ASin::XX::"+s,1,d,st,CPLT_ASSIGNMENT,false) {}
/// %Test whether \a x is solution
virtual MaybeType solution(const Assignment& x) const {
if ((x[0].min() > 1.0) || (x[0].max() < -1.0))
return MT_FALSE;
return eq(asin(x[0]), x[0]);
}
/// Post constraint on \a x
virtual void post(Gecode::Space& home, Gecode::FloatVarArray& x) {
Gecode::asin(home, x[0], x[0]);
}
};
/// %Test for acosinus constraint
class ACosXY : public Test {
public:
/// Create and register test
ACosXY(const std::string& s, const Gecode::FloatVal& d, Gecode::FloatNum st)
: Test("Trigonometric::ACos::XY::"+s,2,d,st,CPLT_ASSIGNMENT,false) {}
/// %Test whether \a x is solution
virtual MaybeType solution(const Assignment& x) const {
if ((x[0].min() > 1.0) || (x[0].max() < -1.0))
return MT_FALSE;
return eq(acos(x[0]), x[1]);
}
/// Post constraint on \a x
virtual void post(Gecode::Space& home, Gecode::FloatVarArray& x) {
if (flip())
Gecode::acos(home, x[0], x[1]);
else
Gecode::rel(home, acos(x[0]) == x[1]);
}
};
/// %Test for acosinus constraint where solution is ensured
class ACosXYSol : public Test {
public:
/// Create and register test
ACosXYSol(const std::string& s, const Gecode::FloatVal& d, Gecode::FloatNum st)
: Test("Trigonometric::ACos::XY::Sol::"+s,2,d,st,EXTEND_ASSIGNMENT,false) {}
/// %Test whether \a x is solution
virtual MaybeType solution(const Assignment& x) const {
if ((x[0].min() > 1.0) || (x[0].max() < -1.0))
return MT_FALSE;
return eq(acos(x[0]), x[1]);
}
/// Extend assignment \a x
virtual bool extendAssignement(Assignment& x) const {
if ((x[0].min() > 1.0) || (x[0].max() < -1.0))
return false;
Gecode::FloatVal d = acos(x[0]);
if (Gecode::Float::subset(d, dom)) {
x.set(1, d);
return true;
} else {
return false;
}
}
/// Post constraint on \a x
virtual void post(Gecode::Space& home, Gecode::FloatVarArray& x) {
Gecode::acos(home, x[0], x[1]);
}
};
/// %Test for acosinus constraint with shared variables
class ACosXX : public Test {
public:
/// Create and register test
ACosXX(const std::string& s, const Gecode::FloatVal& d, Gecode::FloatNum st)
: Test("Trigonometric::ACos::XX::"+s,1,d,st,CPLT_ASSIGNMENT,false) {}
/// %Test whether \a x is solution
virtual MaybeType solution(const Assignment& x) const {
if ((x[0].min() > 1.0) || (x[0].max() < -1.0))
return MT_FALSE;
return eq(acos(x[0]), x[0]);
}
/// Post constraint on \a x
virtual void post(Gecode::Space& home, Gecode::FloatVarArray& x) {
Gecode::acos(home, x[0], x[0]);
}
};
/// %Test for atangent constraint
class ATanXY : public Test {
public:
/// Create and register test
ATanXY(const std::string& s, const Gecode::FloatVal& d, Gecode::FloatNum st)
: Test("Trigonometric::ATan::XY::"+s,2,d,st,CPLT_ASSIGNMENT,false) {}
/// %Test whether \a x is solution
virtual MaybeType solution(const Assignment& x) const {
return eq(atan(x[0]), x[1]);
}
/// Post constraint on \a x
virtual void post(Gecode::Space& home, Gecode::FloatVarArray& x) {
if (flip())
Gecode::atan(home, x[0], x[1]);
else
Gecode::rel(home, atan(x[0]) == x[1]);
}
};
/// %Test for atangent constraint where solution is ensured
class ATanXYSol : public Test {
public:
/// Create and register test
ATanXYSol(const std::string& s, const Gecode::FloatVal& d, Gecode::FloatNum st)
: Test("Trigonometric::ATan::XY::Sol::"+s,2,d,st,EXTEND_ASSIGNMENT,false) {}
/// %Test whether \a x is solution
virtual MaybeType solution(const Assignment& x) const {
return eq(atan(x[0]), x[1]);
}
/// Extend assignment \a x
virtual bool extendAssignement(Assignment& x) const {
Gecode::FloatVal d = atan(x[0]);
if (Gecode::Float::subset(d, dom)) {
x.set(1, d);
return true;
} else {
return false;
}
}
/// Post constraint on \a x
virtual void post(Gecode::Space& home, Gecode::FloatVarArray& x) {
Gecode::atan(home, x[0], x[1]);
}
};
/// %Test for atangent constraint with shared variables
class ATanXX : public Test {
public:
/// Create and register test
ATanXX(const std::string& s, const Gecode::FloatVal& d, Gecode::FloatNum st)
: Test("Trigonometric::ATan::XX::"+s,1,d,st,CPLT_ASSIGNMENT,false) {}
/// %Test whether \a x is solution
virtual MaybeType solution(const Assignment& x) const {
return eq(atan(x[0]), x[0]);
}
/// Post constraint on \a x
virtual void post(Gecode::Space& home, Gecode::FloatVarArray& x) {
Gecode::atan(home, x[0], x[0]);
}
};
const Gecode::FloatNum step = 0.15;
const Gecode::FloatNum step2 = 2*step;
Gecode::FloatVal a(-8,5);
Gecode::FloatVal b(9,12);
Gecode::FloatVal c(-8,8);
SinXY sin_xy_a("A",a,step);
SinXY sin_xy_b("B",b,step);
SinXY sin_xy_c("C",c,step);
SinXYSol sin_xy_sol_a("A",a,step);
SinXYSol sin_xy_sol_b("B",b,step);
SinXYSol sin_xy_sol_c("C",c,step);
SinXX sin_xx_a("A",a,step);
SinXX sin_xx_b("B",b,step);
SinXX sin_xx_c("C",c,step);
CosXY cos_xy_a("A",a,step);
CosXY cos_xy_b("B",b,step);
CosXY cos_xy_c("C",c,step);
CosXYSol cos_xy_sol_a("A",a,step);
CosXYSol cos_xy_sol_b("B",b,step);
CosXYSol cos_xy_sol_c("C",c,step);
CosXX cos_xx_a("A",a,step);
CosXX cos_xx_b("B",b,step);
CosXX cos_xx_c("C",c,step);
TanXY tan_xy_a("A",a,step);
TanXY tan_xy_b("B",b,step);
TanXY tan_xy_c("C",c,step);
TanXYSol tan_xy_sol_a("A",a,step);
TanXYSol tan_xy_sol_b("B",b,step);
TanXYSol tan_xy_sol_c("C",c,step);
TanXX tan_xx_a("A",a,step);
TanXX tan_xx_b("B",b,step);
TanXX tan_xx_c("C",c,step);
ASinXY asin_xy_a("A",a,step);
ASinXY asin_xy_b("B",b,step);
ASinXY asin_xy_c("C",c,step);
ASinXYSol asin_xy_sol_a("A",a,step);
ASinXYSol asin_xy_sol_b("B",b,step);
ASinXYSol asin_xy_sol_c("C",c,step);
ASinXX asin_xx_a("A",a,step);
ASinXX asin_xx_b("B",b,step);
ASinXX asin_xx_c("C",c,step);
ACosXY acos_xy_a("A",a,step);
ACosXY acos_xy_b("B",b,step);
ACosXY acos_xy_c("C",c,step);
ACosXYSol acos_xy_sol_a("A",a,step);
ACosXYSol acos_xy_sol_b("B",b,step);
ACosXYSol acos_xy_sol_c("C",c,step);
ACosXX acos_xx_a("A",a,step);
ACosXX acos_xx_b("B",b,step);
ACosXX acos_xx_c("C",c,step);
ATanXY atan_xy_a("A",a,step);
ATanXY atan_xy_b("B",b,step);
ATanXY atan_xy_c("C",c,step);
ATanXYSol atan_xy_sol_a("A",a,step);
ATanXYSol atan_xy_sol_b("B",b,step);
ATanXYSol atan_xy_sol_c("C",c,step);
ATanXX atan_xx_a("A",a,step);
ATanXX atan_xx_b("B",b,step);
ATanXX atan_xx_c("C",c,step);
//@}
}
}}
#endif
// STATISTICS: test-float