-
Notifications
You must be signed in to change notification settings - Fork 0
/
ALLINITU.SIF
198 lines (142 loc) · 3.42 KB
/
ALLINITU.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
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
***************************
* SET UP THE INITIAL DATA *
***************************
NAME ALLINITU
* Problem :
* *********
* A problem with "all in it". Intended to verify that changes
* to LANCELOT are safe.
* Source:
* N. Gould, private communication.
* SIF input: Nick Gould, June 1990.
* classification OUR2-AY-4-0
VARIABLES
X1
X2
X3
X4
GROUPS
N FT1
N FT2 X3 1.0
N FT3
N FT4
N FT5 X4 1.0
N FT6
N FNT1
N FNT2 X4 1.0
N FNT3
N FNT4
N FNT5 X1 1.0
N FNT6
CONSTANTS
ALLINITU FT2 1.0
ALLINITU FT5 3.0
ALLINITU FNT2 1.0
ALLINITU FNT5 4.0
BOUNDS
FR ALLINITU 'DEFAULT'
ELEMENT TYPE
EV SQR X
EV SQR2 Y Z
IV SQR2 X
EV SINSQR X
EV PRODSQR X Y
ELEMENT USES
T 'DEFAULT' SQR
V FT3E1 X X1
V FT4E1 X X2
T FT4E2 SQR2
V FT4E2 Y X3
V FT4E2 Z X4
T FT56E1 SINSQR
V FT56E1 X X3
T FT5E2 PRODSQR
V FT5E2 X X1
V FT5E2 Y X2
V FNT3E1 X X2
V FNT4E1 X X3
T FNT4E2 SQR2
V FNT4E2 Y X4
V FNT4E2 Z X1
T FNT56E1 SINSQR
V FNT56E1 X X4
T FNT5E2 PRODSQR
V FNT5E2 X X2
V FNT5E2 Y X3
GROUP TYPE
GV TRIVIAL GVAR
GV L2 GVAR
GROUP USES
T 'DEFAULT' L2
T FT1 TRIVIAL
T FT2 TRIVIAL
T FT3 TRIVIAL
E FT3 FT3E1
T FT4 TRIVIAL
E FT4 FT4E1 FT4E2
T FT5 TRIVIAL
E FT5 FT56E1 FT5E2
T FT6 TRIVIAL
E FT6 FT56E1
E FNT3 FNT3E1
E FNT4 FNT4E1 FNT4E2
E FNT5 FNT56E1 FNT5E2
E FNT6 FNT56E1
ENDATA
***********************
* SET UP THE FUNCTION *
* AND RANGE ROUTINES *
***********************
ELEMENTS ALLINITU
TEMPORARIES
R SINX
R COSX
R XX
R YY
M SIN
M COS
INDIVIDUALS
* square of x
T SQR
F X * X
G X X + X
H X X 2.0
* square of x = y + z
T SQR2
R X Y 1.0 Z 1.0
F X * X
G X X + X
H X X 2.0
* square of sin x
T SINSQR
A SINX SIN( X )
A COSX COS( X )
F SINX * SINX
G X 2.0 * SINX * COSX
H X X 2.0 * ( COSX * COSX - SINX * SINX )
* square of x times y
T PRODSQR
A XX X * X
A YY Y * Y
F XX * YY
G X 2.0 * X * YY
G Y 2.0 * XX * Y
H X X 2.0 * YY
H X Y 4.0 * X * Y
H Y Y 2.0 * XX
ENDATA
*********************
* SET UP THE GROUPS *
* ROUTINE *
*********************
GROUPS ALLINITU
INDIVIDUALS
T TRIVIAL
F GVAR
G 1.0
H 0.0
T L2
F GVAR * GVAR
G GVAR + GVAR
H 2.0
ENDATA