-
Notifications
You must be signed in to change notification settings - Fork 0
/
Copy pathCLPLATEC.SIF
170 lines (112 loc) · 3.7 KB
/
CLPLATEC.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
167
168
169
170
***************************
* SET UP THE INITIAL DATA *
***************************
NAME CLPLATEC
* Problem :
* *********
* The clamped plate problem (Strang, Nocedal, Dax)
* The problem comes from the discretization the following problem
* in mechanics: a plate is clamped on one edge and loaded on the
* opposite side. The plate is the unit square.
* In this version of the problem, part of the weight WGHT is put on the
* upper right corner of the plate, and the rest on the upper left corner.
* The plate is clamped on its lower edge, by fixing the
* corresponding variables to zero.
* Source:
* J. Nocedal,
* "Solving large nonlinear systems of equations arising in mechanics",
* Proceedings of the Cocoyoc Numerical Analysis Conference, Mexico,
* pp. 132-141, 1981.
* SIF input: Ph. Toint, Dec 1989.
* classification OXR2-MN-V-0
* P is the number of points in one side of the unit square
* The number of variables is P*P, of which (P-1)*(P-1) are free.
*IE P 4 $-PARAMETER n = 16
*IE P 7 $-PARAMETER n = 49 original value
*IE P 10 $-PARAMETER n = 100
*IE P 23 $-PARAMETER n = 529
*IE P 32 $-PARAMETER n = 1024
IE P 71 $-PARAMETER n = 5041
* Total weight on the upper edge
RE WGHT -0.1
* Constants
IE 1 1
IE 2 2
* Some useful parameters
I* P2 P P
RI RP2 P2
RM HP2 RP2 0.5
RD 1/HP2 HP2 1.0
RM WR WGHT 0.99
RM WL WGHT 0.01
VARIABLES
* Define one variable per discretized point in the unit square
DO J 1 P
DO I 1 P
X X(I,J)
ND
GROUPS
* Define four groups per node of the discretized grid
DO I 2 P
IA I-1 I -1
DO J 2 P
IA J-1 J -1
XN A(I,J) 'SCALE' 2.0
XN A(I,J) X(I,J) 1.0 X(I,J-1) -1.0
XN B(I,J) 'SCALE' 2.0
XN B(I,J) X(I,J) 1.0 X(I-1,J) -1.0
ZN A(I,J) 'SCALE' 1/HP2
XN C(I,J) X(I,J) 1.0 X(I,J-1) -1.0
ZN A(I,J) 'SCALE' 1/HP2
XN D(I,J) X(I,J) 1.0 X(I-1,J) -1.0
ND
* Define a linear group that will represent the weight
ZN W X(P,P) WR
ZN W X(P,1) WL
BOUNDS
FR CLPLATEC 'DEFAULT'
* Fix the variables on the lower edge of the unit square
DO J 1 P
XX CLPLATEC X(1,J) 0.0
ND
START POINT
XV CLPLATEC 'DEFAULT' .0
GROUP TYPE
* Least squares and least fourth power groups
GV L2 GVAR
GV L4 GVAR
GROUP USES
DO I 2 P
DO J 2 P
XT A(I,J) L2
XT B(I,J) L2
XT C(I,J) L4
XT D(I,J) L4
ND
OBJECT BOUND
LO CLPLATEC 0.0
* Solution
*LO SOLTN(4) -5.1476D-03
*LO SOLTN(7) -5.1340D-03
*LO SOLTN(10) -5.1140D-03
*LO SOLTN(23) -5.0590D-03
*LO SOLTN(32) -5.0439D-03
*LO SOLTN(71) -5.0207D-03
ENDATA
*********************
* SET UP THE GROUPS *
* ROUTINE *
*********************
GROUPS CLPLATEC
INDIVIDUALS
* Least squares groups
T L2
F GVAR * GVAR
G GVAR + GVAR
H 2.0
* Least fourth power
T L4
F GVAR**4
G 4.0 * GVAR**3
H 12.0 * GVAR**2
ENDATA