blob: db3f8dd236aec79045d70fb8d267cd4dace55f5b (
plain)
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
|
-- File: GeomLib_LogSample.cdl
-- Created: Wed Sep 23 16:50:25 1998
-- Author: Philippe MANGIN
-- <pmn@sgi29>
---Copyright: Matra Datavision 1998
private class LogSample from GeomLib inherits FunctionSample from math
---Purpose:
raises
OutOfRange from Standard
is
Create(A,B: Real; N: Integer)
returns LogSample from GeomLib;
GetParameter(me; Index: Integer)
---Purpose: Returns the value of parameter of the point of
-- range Index : A + ((Index-1)/(NbPoints-1))*B.
-- An exception is raised if Index<=0 or Index>NbPoints.
returns Real
raises OutOfRange
is redefined;
fields
myF : Real;
myexp : Real;
end LogSample;
|