-
Notifications
You must be signed in to change notification settings - Fork 0
/
Copy pathMOREBV.SIF
154 lines (103 loc) · 2.87 KB
/
MOREBV.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
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
***************************
* SET UP THE INITIAL DATA *
***************************
NAME MOREBV
* Problem :
* *********
* The Boundary Value problem.
* This is the nonlinear least-squares version without fixed variables.
* Source: problem 28 in
* J.J. More', B.S. Garbow and K.E. Hillstrom,
* "Testing Unconstrained Optimization Software",
* ACM Transactions on Mathematical Software, vol. 7(1), pp. 17-41, 1981.
* See also Buckley#17 (p. 75).
* SIF input: Ph. Toint, Dec 1989 and Nick Gould, Oct 1992.
* classification SUR2-MN-V-0
* The number of variables is N.
*IE N 10 $-PARAMETER original value
*IE N 50 $-PARAMETER
*IE N 100 $-PARAMETER
*IE N 500 $-PARAMETER
*IE N 1000 $-PARAMETER
IE N 5000 $-PARAMETER
* Define useful parameters
IE 1 1
IE 2 2
RE 1.0 1.0
IA N-1 N -1
IA N+1 N 1
RI RN+1 N+1
R/ H 1.0 RN+1
R* H2 H H
RM HALFH2 H2 0.5D0
VARIABLES
DO I 1 N
X X(I)
ND
GROUPS
N G1 X2 -1.0 X1 2.0
DO I 2 N-1
IA I-1 I -1
IA I+1 I 1
XN G(I) X(I-1) -1.0 X(I) 2.0
XN G(I) X(I+1) -1.0
ND
XN G(N) X(N-1) -1.0 X(I) 2.0
BOUNDS
FR MOREBV 'DEFAULT'
START POINT
DO I 1 N
RI RI I
R* IH RI H
RA IH-1 IH -1.0
R* TI IH IH-1
Z MOREBV X(I) TI
ND
ELEMENT TYPE
EV WCUBE V
EP WCUBE B
ELEMENT USES
T 'DEFAULT' WCUBE
DO I 1 N
RI REALI I
R* IH REALI H
RA IH+1 IH 1.0
ZV E(I) V X(I)
ZP E(I) B IH+1
ND
GROUP TYPE
GV L2 GVAR
GROUP USES
XT 'DEFAULT' L2
DO I 1 N
ZE G(I) E(I) HALFH2
ND
OBJECT BOUND
* Solution
*LO SOLTN 0.0
ENDATA
***********************
* SET UP THE FUNCTION *
* AND RANGE ROUTINES *
***********************
ELEMENTS MOREBV
TEMPORARIES
R VPLUSB
INDIVIDUALS
T WCUBE
A VPLUSB V + B
F VPLUSB**3
G V 3.0 * VPLUSB**2
H V V 6.0 * VPLUSB
ENDATA
*********************
* SET UP THE GROUPS *
* ROUTINE *
*********************
GROUPS MOREBV
INDIVIDUALS
T L2
F GVAR * GVAR
G GVAR + GVAR
H 2.0
ENDATA