-
Notifications
You must be signed in to change notification settings - Fork 0
/
Copy pathSINQUAD.SIF
166 lines (108 loc) · 2.72 KB
/
SINQUAD.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
157
158
159
160
161
162
163
164
165
166
***************************
* SET UP THE INITIAL DATA *
***************************
NAME SINQUAD
* Problem :
* *********
* Another function with nontrivial groups and
* repetitious elements.
* Source:
* N. Gould, private communication.
* SIF input: N. Gould, Dec 1989.
* classification OUR2-AY-V-0
* number of variables
*IE N 5 $-PARAMETER original value
*IE N 50 $-PARAMETER
*IE N 100 $-PARAMETER
*IE N 500 $-PARAMETER
*IE N 1000 $-PARAMETER
IE N 5000 $-PARAMETER
*IE N 10000 $-PARAMETER
* other parameter definitions
IE 1 1
IE 2 2
IA NM1 N -1
VARIABLES
DO I 1 N
X X(I)
ND
GROUPS
* objective function (1st group)
N G1 X1 1.0
* objective function (remaining groups)
DO I 2 N
XN G(I)
OD
CONSTANTS
SINQUAD G1 1.0
BOUNDS
FR SINQUAD 'DEFAULT'
START POINT
XV SINQUAD 'DEFAULT' 0.1
ELEMENT TYPE
EV SQ V1
EV SINE V1 V2
IV SINE U1
ELEMENT USES
T E1 SQ
ZV E1 V1 X1
DO I 2 N
XT E(I) SQ
ZV E(I) V1 X(I)
ND
DO I 2 NM1
XT S(I) SINE
ZV S(I) V1 X(I)
ZV S(I) V2 X(N)
ND
GROUP TYPE
GV L2 GVAR
GV L4 GVAR
GROUP USES
T G1 L4
DO I 2 N
XT G(I) L2
XE G(I) E(I) E(1) -1.0
ND
DO I 2 NM1
XE G(I) S(I)
ND
OBJECT BOUND
LO SINQUAD 0.0
* Solution
*LO SOLTN -3.0
ENDATA
***********************
* SET UP THE FUNCTION *
* AND RANGE ROUTINES *
***********************
ELEMENTS SINQUAD
TEMPORARIES
M SIN
M COS
INDIVIDUALS
T SQ
F V1 * V1
G V1 V1 + V1
H V1 V1 2.0
T SINE
R U1 V1 1.0 V2 -1.0
F SIN( U1 )
G U1 COS( U1 )
H U1 U1 - SIN( U1 )
ENDATA
*********************
* SET UP THE GROUPS *
* ROUTINE *
*********************
GROUPS SINQUAD
INDIVIDUALS
T L2
F GVAR * GVAR
G GVAR + GVAR
H 2.0
T L4
F GVAR ** 4
G 4.0 * GVAR ** 3
H 12.0 * GVAR ** 2
ENDATA