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
|
-- File: Extrema_GenLocateExtPC.cdl
-- Created: Tue Jul 18 17:40:06 1995
-- Author: Modelistation
-- <model@metrox>
---Copyright: Matra Datavision 1995
generic class GenLocateExtPC from Extrema
(Curve as any;
Tool as any; -- as ToolCurve(Curve);
POnC as any;
Pnt as any;
Vec as any )
---Purpose: It calculates the distance between a point and a
-- curve with a close point.
-- This distance can be a minimum or a maximum.
raises DomainError from Standard,
TypeMismatch from Standard,
NotDone from StdFail
private class PCLocF instantiates FuncExtPC (Curve, Tool, POnC, Pnt, Vec);
is
Create returns GenLocateExtPC;
Create (P: Pnt; C: Curve; U0: Real; TolU: Real)
returns GenLocateExtPC
---Purpose: Calculates the distance with a close point.
-- The close point is defined by the parameter value
-- U0.
-- The function F(u)=distance(P,C(u)) has an extremum
-- when g(u)=dF/du=0. The algorithm searchs a zero
-- near the close point.
-- TolU is used to decide to stop the iterations.
-- At the nth iteration, the criteria is:
-- abs(Un - Un-1) < TolU.
raises DomainError;
-- if U0 is outside the definition range of the curve.
Create (P: Pnt; C: Curve; U0: Real; Umin, Usup: Real; TolU: Real)
returns GenLocateExtPC
---Purpose: Calculates the distance with a close point.
-- The close point is defined by the parameter value
-- U0.
-- The function F(u)=distance(P,C(u)) has an extremum
-- when g(u)=dF/du=0. The algorithm searchs a zero
-- near the close point.
-- Zeros are searched between Umin et Usup.
-- TolU is used to decide to stop the iterations.
-- At the nth iteration, the criteria is:
-- abs(Un - Un-1) < TolU.
raises DomainError;
-- if U0 is outside the definition range of the curve.
Initialize(me: in out; C: Curve; Umin, Usup: Real; TolU: Real)
---Purpose: sets the fields of the algorithm.
is static;
Perform(me: in out; P: Pnt; U0: Real)
---Purpose: the algorithm is done with the point P.
-- An exception is raised if the fields have not
-- been initialized.
raises TypeMismatch from Standard
is static;
IsDone (me) returns Boolean
---Purpose: Returns True if the distance is found.
is static;
SquareDistance (me) returns Real
---Purpose: Returns the value of the extremum square distance.
raises NotDone from StdFail
-- if IsDone(me)=False.
is static;
IsMin (me) returns Boolean
---Purpose: Returns True if the extremum distance is a minimum.
raises NotDone from StdFail
-- if IsDone(me)=False.
is static;
Point (me) returns POnC
---Purpose: Returns the point of the extremum distance.
raises NotDone from StdFail
-- if IsDone(me)=False.
is static;
fields
myDone : Boolean;
mytolU : Real;
myumin: Real;
myusup: Real;
myF: PCLocF;
end GenLocateExtPC;
|
