-
Notifications
You must be signed in to change notification settings - Fork 0
/
Copy pathSINROSNB.SIF
156 lines (104 loc) · 2.68 KB
/
SINROSNB.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
155
156
***************************
* SET UP THE INITIAL DATA *
***************************
NAME SINROSNB
* Problem :
* --------
* A variation on the extended Rosenbrock function in which
* the squares are replaced by sines.
* Source: a modification of an original idea by
* Ali Bouriacha, private communication.
* SIF input: Nick Gould and Ph. Toint, October, 1993.
* classification OQR2-AN-V-V
* Number of variables
*IE N 2 $-PARAMETER original value
*IE N 4 $-PARAMETER
*IE N 10 $-PARAMETER
*IE N 100 $-PARAMETER
IE N 1000 $-PARAMETER
* other parameter definitions
RE PI 3.1415926535
RM -PI PI -1.0
RM -3PI/2 PI -1.5
RM 2PI PI 2.0
RA 1-3PI/2 -3PI/2 1.0
IE 1 1
IE 2 2
IA N-1 N -1
VARIABLES
DO I 1 N
X X(I)
ND
GROUPS
N SQ1 X1 1.0
DO I 2 N
XN SQ(I) X(I) -1.0
XN SQ(I) 'SCALE' 0.01
XG C(I) X(I) -1.0
ND
CONSTANTS
Z SINROSNB SQ1 1-3PI/2
DO I 2 N
Z SINROSNB SQ(I) -3PI/2
Z SINROSNB C(I) -PI
OD I
RANGES
DO I 2 N
Z SINROSNB C(I) 2PI
OD I
BOUNDS
FR SINROSNB 'DEFAULT'
ZL SINROSNB X1 -PI
ZU SINROSNB X1 PI
START POINT
XV SINROSNB 'DEFAULT' 10.0
XV SINROSNB X1 -1.0
ELEMENT TYPE
EV ETYPE V1
ELEMENT USES
XT 'DEFAULT' ETYPE
DO I 1 N-1
ZV XSQ(I) V1 X(I)
ND
GROUP TYPE
GV SIN GVAR
GROUP USES
XT SQ1 SIN
DO I 2 N
IA I-1 I -1
XT SQ(I) SIN
XE SQ(I) XSQ(I-1)
XE C(I) XSQ(I-1)
ND
OBJECT BOUND
LO SINROSNB 0.0
* Solution ( 1, 1, ..., 1 )
*LO SOLTN 0.0
ENDATA
***********************
* SET UP THE FUNCTION *
* AND RANGE ROUTINES *
***********************
ELEMENTS SINROSNB
INDIVIDUALS
T ETYPE
F V1 * V1
G V1 2.0 * V1
H V1 V1 2.0
ENDATA
*********************
* SET UP THE GROUPS *
* ROUTINE *
*********************
GROUPS SINROSNB
TEMPORARIES
R SING
M SIN
M COS
INDIVIDUALS
T SIN
A SING SIN( GVAR )
F SING + 1.0
G COS( GVAR )
H - SING
ENDATA