-
Notifications
You must be signed in to change notification settings - Fork 0
/
Copy pathCOSINE.SIF
128 lines (82 loc) · 1.87 KB
/
COSINE.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
***************************
* SET UP THE INITIAL DATA *
***************************
NAME COSINE
* Problem :
* *********
* Another function with nontrivial groups and
* repetitious elements.
* Source:
* N. Gould, private communication.
* SIF input: N. Gould, Jan 1996
* classification OUR2-AN-V-0
* number of variables
*IE N 10 $-PARAMETER
*IE N 100 $-PARAMETER
*IE N 1000 $-PARAMETER original valu
IE N 10000 $-PARAMETER
* other parameter definitions
IE 1 1
IA N-1 N -1
RI RN-1 N-1
RM -RN-1 RN-1 -1.0
VARIABLES
DO I 1 N
X X(I)
ND
GROUPS
* objective function
DO I 1 N-1
IA I+1 I 1
XN G(I) X(I+1) -0.5
OD
BOUNDS
FR COSINE 'DEFAULT'
START POINT
XV COSINE 'DEFAULT' 1.0
ELEMENT TYPE
EV SQ V
ELEMENT USES
DO I 1 N-1
XT E(I) SQ
ZV E(I) V X(I)
ND
GROUP TYPE
GV COS GVAR
GROUP USES
DO I 1 N-1
XT G(I) COS
XE G(I) E(I)
ND
OBJECT BOUND
XL COSINE -RN-1
* Solution
*LO SOLTN ???
ENDATA
***********************
* SET UP THE FUNCTION *
* AND RANGE ROUTINES *
***********************
ELEMENTS COSINE
INDIVIDUALS
T SQ
F V * V
G V V + V
H V V 2.0
ENDATA
*********************
* SET UP THE GROUPS *
* ROUTINE *
*********************
GROUPS COSINE
TEMPORARIES
R COSG
M SIN
M COS
INDIVIDUALS
T COS
A COSG COS( GVAR )
F COSG
G - SIN( GVAR )
H - COSG
ENDATA