-
Notifications
You must be signed in to change notification settings - Fork 0
/
Copy pathCURLY20.SIF
111 lines (71 loc) · 1.92 KB
/
CURLY20.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
***************************
* SET UP THE INITIAL DATA *
***************************
NAME CURLY20
* Problem :
* --------
* A banded function with semi-bandwidth 20 and
* negative curvature near the starting point
* Source: Nick Gould
* SIF input: Nick Gould, September 1997.
* classification SUR2-AN-V-0
* Number of variables
*IE N 100 $-PARAMETER
*IE N 1000 $-PARAMETER original value
IE N 10000 $-PARAMETER
* Semi-bandwidth
IE K 20
* other parameter definitions
IE 1 1
I- N-K N K
IA N-K+1 N-K 1
RI RN N
RA RN+1 RN 1
VARIABLES
DO I 1 N
X X(I)
ND
GROUPS
DO I 1 N-K
I+ I+K I K
DO J I I+K
XN Q(I) X(J) 1.0D+0
ND
DO I N-K+1 N
DO J I N
XN Q(I) X(J) 1.0D+0
ND
BOUNDS
FR CURLY20 'DEFAULT'
START POINT
* start with X(I) = 0.0001/N+1.
DO I 1 N
RI RI I
R/ T RI RN+1
RM T T 0.0001
ZV CURLY20 X(I) T
ND
GROUP TYPE
GV P4 GVAR
GROUP USES
XT 'DEFAULT' P4
OBJECT BOUND
* Solution
*ZL SOLTN -1.003162D+5 $ (n=1000)
ENDATA
*********************
* SET UP THE GROUPS *
* ROUTINE *
*********************
GROUPS CURLY20
TEMPORARIES
R APB
INDIVIDUALS
T P4
A APB 2.0D+1
F GVAR * ( GVAR * ( GVAR ** 2 - APB )
F+ - 1.0D-1 )
G 2.0D+0 * GVAR * ( 2.0D+0 * GVAR ** 2
G+ - APB ) - 1.0D-1
H 1.2D+1 * GVAR ** 2 - 2.0D+0 * APB
ENDATA