CommitLineData
b311480e 1// Created on: 1998-09-23
2// Created by: Philippe MANGIN
3// Copyright (c) 1998-1999 Matra Datavision
5//
6// The content of this file is subject to the Open CASCADE Technology Public
7// License Version 6.5 (the "License"). You may not use the content of this file
10//
11// The Initial Developer of the Original Code is Open CASCADE S.A.S., having its
12// main offices at: 1, place des Freres Montgolfier, 78280 Guyancourt, France.
13//
15// distributed on an "AS IS" basis, without warranty of any kind, and the
16// Initial Developer hereby disclaims all such warranties, including without
17// limitation, any warranties of merchantability, fitness for a particular
18// purpose or non-infringement. Please see the License for the specific terms
19// and conditions governing the rights and limitations under the License.
20
7fd59977 21
22
23#include <GeomLib_LogSample.ixx>
24
25#include <Standard_OutOfRange.hxx>
26
27
b311480e 28GeomLib_LogSample::GeomLib_LogSample(const Standard_Real A,
7fd59977 29 const Standard_Real B,
30 const Standard_Integer N)
31 :math_FunctionSample(A, B, N)
32{
33 myF = A - 1;
34 myexp = Log(B-A)/N;
35}
36
37Standard_Real GeomLib_LogSample::GetParameter(const Standard_Integer Index) const
38{
75259fc5 39 Standard_Integer aN = NbPoints();
7fd59977 40
41
75259fc5 42 if ((Index >= aN) || (Index <= 1)) {
43 Standard_Real aA, aB;
44 Bounds(aA, aB);
45 if (Index == 1) return aA;
46 else if (Index == aN) return aB;
7fd59977 47 else Standard_OutOfRange::Raise("GeomLib_LogSample::GetParameter");
48 }
49
50 Standard_Real v = myF + Exp(myexp*Index);
51 return v;
52}