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
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
|
-- File: Approx_ComputeCLine.cdl
-- Created: Fri May 14 15:22:38 1993
-- Author: Laurent PAINNOT
-- <lpa@phobox>
---Copyright: Matra Datavision 1993
generic class ComputeCLine from Approx
(MultiLine as any;
LineTool as any) --as TheLineTool from AppCont(MultiLine)
uses ParametrizationType from Approx,
SequenceOfReal from TColStd,
HArray1OfReal from TColStd,
SequenceOfMultiCurve from AppParCurves,
MultiCurve from AppParCurves,
Constraint from AppParCurves,
Vector from math
private class MyLeastSquare instantiates LeastSquare from AppCont
(MultiLine,
LineTool);
is
Create(Line: MultiLine;
degreemin: Integer = 3;
degreemax: Integer = 8;
Tolerance3d: Real = 1.0e-5;
Tolerance2d: Real = 1.0e-5;
cutting: Boolean = Standard_False;
FirstC: Constraint = AppParCurves_TangencyPoint;
LastC: Constraint = AppParCurves_TangencyPoint)
---Purpose: The MultiLine <Line> will be approximated until tolerances
-- will be reached.
-- The approximation will be done from degreemin to degreemax
-- with a cutting if the corresponding boolean is True.
returns ComputeCLine;
Create(degreemin: Integer = 3;
degreemax: Integer = 8;
Tolerance3d: Real = 1.0e-05;
Tolerance2d: Real = 1.0e-05;
cutting: Boolean = Standard_False;
FirstC: Constraint = AppParCurves_TangencyPoint;
LastC: Constraint = AppParCurves_TangencyPoint)
---Purpose: Initializes the fields of the algorithm.
returns ComputeCLine;
Perform(me: in out; Line: MultiLine)
---Purpose: runs the algorithm after having initialized the fields.
is static;
Compute(me: in out; Line: MultiLine; Ufirst, Ulast: Real;
TheTol3d, TheTol2d: in out Real)
---Purpose: is internally used by the algorithms.
returns Boolean
is static private;
SetDegrees(me: in out; degreemin, degreemax: Integer)
---Purpose: changes the degrees of the approximation.
is static;
SetTolerances(me: in out; Tolerance3d, Tolerance2d: Real)
---Purpose: Changes the tolerances of the approximation.
is static;
SetConstraints(me: in out; FirstC, LastC: Constraint)
---Purpose: Changes the constraints of the approximation.
is static;
IsAllApproximated(me)
---Purpose: returns False if at a moment of the approximation,
-- the status NoApproximation has been sent by the user
-- when more points were needed.
returns Boolean
is static;
IsToleranceReached(me)
---Purpose: returns False if the status NoPointsAdded has been sent.
returns Boolean
is static;
Error(me; Index: Integer; tol3d: in out Real; tol2d: in out Real)
---Purpose: returns the tolerances 2d and 3d of the <Index> MultiCurve.
is static;
NbMultiCurves(me)
---Purpose: Returns the number of MultiCurve doing the approximation
-- of the MultiLine.
returns Integer
is static;
Value(me; Index: Integer = 1)
---Purpose: returns the approximation MultiCurve of range <Index>.
returns MultiCurve from AppParCurves;
Parameters(me; Index: Integer; firstp, lastp: in out Real)
---purpose: returns the first and last parameters of the
-- <Index> MultiCurve.
is static;
fields
myMultiCurves: SequenceOfMultiCurve from AppParCurves;
myfirstparam: SequenceOfReal from TColStd;
mylastparam: SequenceOfReal from TColStd;
TheMultiCurve: MultiCurve from AppParCurves;
alldone: Boolean;
tolreached: Boolean;
Tolers3d: SequenceOfReal from TColStd;
Tolers2d: SequenceOfReal from TColStd;
mydegremin: Integer;
mydegremax: Integer;
mytol3d: Real;
mytol2d: Real;
currenttol3d: Real;
currenttol2d: Real;
mycut: Boolean;
myfirstC: Constraint;
mylastC: Constraint;
end ComputeCLine;
|
