0024530: TKMesh - remove unused package IntPoly
[occt.git] / src / GeomLib / GeomLib_LogSample.cxx
CommitLineData
b311480e 1// Created on: 1998-09-23
2// Created by: Philippe MANGIN
3// Copyright (c) 1998-1999 Matra Datavision
973c2be1 4// Copyright (c) 1999-2014 OPEN CASCADE SAS
b311480e 5//
973c2be1 6// This file is part of Open CASCADE Technology software library.
b311480e 7//
973c2be1 8// This library is free software; you can redistribute it and / or modify it
9// under the terms of the GNU Lesser General Public version 2.1 as published
10// by the Free Software Foundation, with special exception defined in the file
11// OCCT_LGPL_EXCEPTION.txt. Consult the file LICENSE_LGPL_21.txt included in OCCT
12// distribution for complete text of the license and disclaimer of any warranty.
b311480e 13//
973c2be1 14// Alternatively, this file may be used under the terms of Open CASCADE
15// commercial license or contractual agreement.
7fd59977 16
17#include <GeomLib_LogSample.ixx>
18
19#include <Standard_OutOfRange.hxx>
20
21
b311480e 22GeomLib_LogSample::GeomLib_LogSample(const Standard_Real A,
7fd59977 23 const Standard_Real B,
24 const Standard_Integer N)
25 :math_FunctionSample(A, B, N)
26{
27 myF = A - 1;
28 myexp = Log(B-A)/N;
29}
30
31Standard_Real GeomLib_LogSample::GetParameter(const Standard_Integer Index) const
32{
75259fc5 33 Standard_Integer aN = NbPoints();
7fd59977 34
35
75259fc5 36 if ((Index >= aN) || (Index <= 1)) {
37 Standard_Real aA, aB;
38 Bounds(aA, aB);
39 if (Index == 1) return aA;
40 else if (Index == aN) return aB;
7fd59977 41 else Standard_OutOfRange::Raise("GeomLib_LogSample::GetParameter");
42 }
43
44 Standard_Real v = myF + Exp(myexp*Index);
45 return v;
46}