-
Notifications
You must be signed in to change notification settings - Fork 0
/
Copy pathHATFLDFL.SIF
133 lines (90 loc) · 2.21 KB
/
HATFLDFL.SIF
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
***************************
* SET UP THE INITIAL DATA *
***************************
NAME HATFLDFL
* Problem :
* *********
* Fletcher's variation of a test problem (HATFLDF) from the OPTIMA user manual.
* Monotonic paths to the solution from the initial point move to infinity
* and back
* Source:
* "The OPTIMA user manual (issue No.8, p. 47)",
* Numerical Optimization Centre, Hatfield Polytechnic (UK), 1989.
* SIF input: Ph. Toint, May 1990, mods Nick Gould, August 2008
* Nonlinear least-squares variant
* classification OUR2-AN-3-3
* Constants
IE 1 1
IE 3 3
VARIABLES
X1
X2
X3
GROUPS
DO I 1 3
XN G(I) X1 1.0
ND
CONSTANTS
HATFLDFL G1 0.032
HATFLDFL G2 0.056
HATFLDFL G3 0.099
BOUNDS
FR HATFLDFL 'DEFAULT'
START POINT
* the nasty starting point
XV HATFLDFL X1 1.2
XV HATFLDFL X2 -1.2
XV HATFLDFL X3 0.98
*XV HATFLDFL X1 1.0
*XV HATFLDFL X2 1.0
*XV HATFLDFL X3 1.0
ELEMENT TYPE
EV XPEXP X Y
EP XPEXP T
ELEMENT USES
XT 'DEFAULT' XPEXP
DO I 1 3
RI RI I
ZV A(I) X X2
ZV A(I) Y X3
ZP A(I) T RI
ND
GROUP TYPE
GV L2 GVAR
GROUP USES
XT 'DEFAULT' L2
DO I 1 3
XE G(I) A(I)
ND
ENDATA
***********************
* SET UP THE FUNCTION *
* AND RANGE ROUTINES *
***********************
ELEMENTS HATFLDFL
TEMPORARIES
I IT
R EX
M EXP
INDIVIDUALS
T XPEXP
A IT T
A EX Y ** IT
F X * EX
G X EX
G Y T * X * Y ** ( IT - 1 )
H X Y T * Y ** ( IT - 1 )
H Y Y T * ( T - 1.0 ) * X * Y ** ( IT - 2 )
ENDATA
*********************
* SET UP THE GROUPS *
* ROUTINE *
*********************
GROUPS HATFLDFL
INDIVIDUALS
* Least-square root groups
T L2
F GVAR * GVAR
G GVAR + GVAR
H 2.0
ENDATA