-
Notifications
You must be signed in to change notification settings - Fork 0
/
Copy pathMDHOLE.SIF
102 lines (64 loc) · 1.27 KB
/
MDHOLE.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
***************************
* SET UP THE INITIAL DATA *
***************************
NAME MDHOLE
* Problem :
* *********
* A small 2D problem
* Source:
* Ph. Toint, private communication.
* SIF input: Ph. Toint, March 1991.
* classification OBR2-AN-2-0
VARIABLES
X
Y
GROUPS
N G1 Y -1.0
N G1 'SCALE' 0.01
N G2 X 1.0
BOUNDS
FR MDHOLE Y
START POINT
MDHOLE X 10.0
MDHOLE Y 1.0
ELEMENT TYPE
EV SINE XX
ELEMENT USES
T E1 SINE
V E1 XX X
GROUP TYPE
GV L2 GVAR
GROUP USES
T G1 L2
E G1 E1
OBJECT BOUND
* Solution
*LO SOLTN 0.0
ENDATA
***********************
* SET UP THE FUNCTION *
* AND RANGE ROUTINES *
***********************
ELEMENTS MDHOLE
TEMPORARIES
R SINX
M SIN
M COS
INDIVIDUALS
T SINE
A SINX SIN( XX )
F SINX
G XX COS( XX )
H XX XX - SINX
ENDATA
*********************
* SET UP THE GROUPS *
* ROUTINE *
*********************
GROUPS MDHOLE
INDIVIDUALS
T L2
F GVAR * GVAR
G GVAR + GVAR
H 2.0
ENDATA