-
Notifications
You must be signed in to change notification settings - Fork 0
/
Copy pathEG2.SIF
116 lines (79 loc) · 1.8 KB
/
EG2.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
***************************
* SET UP THE INITIAL DATA *
***************************
NAME EG2
* Problem:
* ********
* A simple nonlinear problem given as an example in Section 1.2.4 of
* the LANCELOT Manual.
* The problem is non convex and has several local minima.
* Source:
* A.R. Conn, N. Gould and Ph.L. Toint,
* "LANCELOT, A Fortran Package for Large-Scale Nonlinear Optimization
* (Release A)"
* Springer Verlag, 1992.
* SIF input: N. Gould and Ph. Toint, June 1994.
* classification OUR2-AN-1000-0
IE ONE 1
IE N 1000
IA NM1 N -1
VARIABLES
DO I ONE N
X X(I)
ND
GROUPS
DO I ONE NM1
XN G(I) X(ONE) 1.0
ND
XN G(N)
CONSTANTS
EG2 'DEFAULT' 1.0
X EG2 G(N) 0.0
BOUNDS
FR EG2 'DEFAULT'
ELEMENT TYPE
EV SQUARE V
ELEMENT USES
DO I ONE N
XT E(I) SQUARE
ZV E(I) V X(I)
ND
GROUP TYPE
GV SINE ALPHA
GP SINE P
GROUP USES
XT 'DEFAULT' SINE
DO I ONE NM1
XE G(I) E(I)
XP G(I) P 1.0
ND
E G1000 E1000
P G1000 P 0.5
ENDATA
***********************
* SET UP THE FUNCTION *
* AND RANGE ROUTINES *
***********************
ELEMENTS EG2
INDIVIDUALS
T SQUARE
F V ** 2
G V 2.0D0 * V
H V V 2.0D0
ENDATA
*********************
* SET UP THE GROUPS *
* ROUTINE *
*********************
GROUPS EG2
TEMPORARIES
R ISINA
M SIN
M COS
INDIVIDUALS
T SINE
A ISINA P * SIN( ALPHA )
F ISINA
G P * COS( ALPHA )
H - ISINA
ENDATA