« back to all changes in this revision
Viewing changes to test/reports/kim_daegon_27-04-2005.eml
- browse files at revision 12
- compare with another revision
- download diff
- download tarball
- view history from revision 12
- Committer: Package Import Robot
- Author(s): Matthias Klose
- Date: 2014-02-26 14:21:11 UTC
- mfrom: (3.1.8 sid)
- Revision ID: package-import@ubuntu.com-20140226142111-vsbb1isby30uundd
Tags: 0.18.2-1
New upstream version.
- files added:
- .pc
- .pc/add-cmake-files.diff
- .pc/add-cmake-files.diff/cmake
- debian/patches
- debian/source
- files removed:
- .gitignore
- autom4te.cache
- isl/autom4te.cache
- osl
- osl/autoconf
- osl/autom4te.cache
- osl/doc
- osl/doc/images
- osl/include
- osl/include/osl
- osl/include/osl/extensions
- osl/m4
- osl/source
- osl/source/extensions
- osl/tests
- test/bigs
- test/challenges
- test/openscop
- test/published
- test/published/CC2003
- test/published/CC2006
- test/published/PACT2004
- test/published/Web
- test/reports
- test/urgent
- files modified:
- Makefile.in
added
removed
test/reports/kim_daegon_27-04-2005.eml
1
X-UIDL: 38762.1114626251
2
X-Mozilla-Status: 0003
3
X-Mozilla-Status2: 00000000
4
Received: from soleil.uvsq.fr (soleil.uvsq.fr [193.51.24.1])
5
by relay-6m.club-internet.fr (Postfix) with ESMTP id DCFE125639
6
for <netced@club-internet.fr>; Wed, 27 Apr 2005 20:24:09 +0200 (CEST)
7
Received: from torquenada.prism.uvsq.fr (torquenada.prism.uvsq.fr [193.51.25.9])
8
by soleil.uvsq.fr (8.12.11/jtpda-5.4) with ESMTP id j3RIO8Nk002407
9
for <netced@club-internet.fr>; Wed, 27 Apr 2005 20:24:09 +0200 (CEST)
10
Received: from soleil.uvsq.fr (root@soleil.uvsq.fr [193.51.24.1])
11
by torquenada.prism.uvsq.fr (8.11.4/jtpda-5.3.2) with ESMTP id j3RIO7C02410
12
for <cedric.bastoul@prism.uvsq.fr>; Wed, 27 Apr 2005 20:24:08 +0200 (MEST)
13
Received: from wproxy.gmail.com (wproxy.gmail.com [64.233.184.205])
14
by soleil.uvsq.fr (8.12.11/jtpda-5.4) with ESMTP id j3RIO6e7001164
15
for <cedric.bastoul@prism.uvsq.fr>; Wed, 27 Apr 2005 20:24:06 +0200 (CEST)
16
Received: by wproxy.gmail.com with SMTP id 68so387084wri
17
for <cedric.bastoul@prism.uvsq.fr>; Wed, 27 Apr 2005 11:24:00 -0700 (PDT)
18
DomainKey-Signature: a=rsa-sha1; q=dns; c=nofws;
19
s=beta; d=gmail.com;
20
h=received:message-id:date:from:reply-to:to:subject:cc:mime-version:content-type;
21
b=LoJNXKibxMTIYItkoT/Sqykpnxxkeik4zUmMeWoVeasUn+yIfBWhF0UkkR0kHBRIeOFOZ/As82OpJ6TQiYZxy/WwuxyQ2aameC9qouWqE6R/dFG1zSY5MilV5/9RLrfinOfdyAoCZ1XzM6VMGspBtK4l5NBZYpsFxJBnVJ5AeW0=
22
Received: by 10.54.121.20 with SMTP id t20mr277933wrc;
23
Wed, 27 Apr 2005 10:24:00 -0700 (PDT)
24
Received: by 10.54.5.57 with HTTP; Wed, 27 Apr 2005 10:24:00 -0700 (PDT)
25
Message-ID: <fc5f19de05042710245f9acadd@mail.gmail.com>
26
Date: Wed, 27 Apr 2005 11:24:00 -0600
27
From: DaeGon Kim <daegonk@gmail.com>
28
Reply-To: DaeGon Kim <daegonk@gmail.com>
29
To: cedric.bastoul@prism.uvsq.fr
30
Subject: Question about Cloog
31
Cc: svr@cs.colostate.edu
32
Mime-Version: 1.0
33
Content-Type: multipart/mixed;
34
boundary="----=_Part_1422_26966204.1114622640387"
35
X-Greylist: Sender IP whitelisted, not delayed by milter-greylist-1.7.5 (soleil.uvsq.fr [193.51.24.1]); Wed, 27 Apr 2005 20:24:09 +0200 (CEST)
36
X-Greylist: Delayed for 00:53:20 by milter-greylist-1.7.5 (soleil.uvsq.fr [193.51.24.1]); Wed, 27 Apr 2005 20:24:07 +0200 (CEST)
37
X-Miltered: at soleil.uvsq.fr with ID 426FD8C9.000 by Joe's j-chkmail (http://j-chkmail.ensmp.fr)!
38
X-Miltered: at soleil.uvsq.fr with ID 426FD8C6.000 by Joe's j-chkmail (http://j-chkmail.ensmp.fr)!
39
X-Antivirus: scanned by sophie at soleil.uvsq.fr
40
X-Antivirus: scanned by sophie at soleil.uvsq.fr
41
Status:
42
X-Mmail: \Recent
43
X-M-Uid: 38762.1114626251
44
45
------=_Part_1422_26966204.1114622640387
46
Content-Type: text/plain; charset=ISO-8859-1
47
Content-Transfer-Encoding: quoted-printable
48
Content-Disposition: inline
49
50
Hello Dr Cedric Bastoul,
51
52
I am a graduate student in CSU working with Dr. Sanjay Rajopadhye.
53
I am working on experiments on code generation software.=20
54
A few days ago I wrote three cloog input files: LUDom_cloog,
55
OSP_cloog, and LUDom_OSP_cloog. The last file is nothing but
56
concatenation of two previous files. So it has two statements since
57
each of the first two has one statement each.
58
59
When I generated, I got something strange:=20
60
- The numbers of visited points are different between the first two
61
and the last one.
62
- The numbers of visited points become different, if I use different
63
options: default and "-f 3".
64
- Domains of all statements are 3-dimensional, but there are
65
statements having only two indices inside one if block. I added
66
generated code below.
67
68
Also, I attached my three inputs and C programs in which generated
69
code from cloog can be executed. type1 files contain generated code
70
without any options and type2 files contains generated code with -f 3
71
option.
72
73
/* Generated from LUDom_OSP_cloog by CLooG v0.12.2 64 bits in 0.03s. */
74
for (I1=3D0;I1<=3D3*N1;I1++) {
75
for (I2=3Dmax(max(1,ceild(I1-2*N1+2,2)),I1-2*N1);I2<=3DN1;I2++) {
76
for (I3=3Dmax(max(I1-2*I2,ceild(I1-I2,2)),1);I3<=3Dmin(min(N1,floord(I1=
77
+2*I2-1,2)),I1-I2);I3++)
78
{
79
J3 =3D I1-(I2)-(I3) ;
80
S1(J1 =3D I2,J2 =3D I3) ;
81
}
82
for (I3=3Dceild(I1+2*I2,2);I3<=3Dmin(min(N1,I1-2*I2-1),floord(2*I1+3*I2=
83
,3));I3++)
84
{
85
J3 =3D -I1-2*(I2)+2*I3 ;
86
S2(J1 =3D I2,J2 =3D I3) ;
87
}
88
for (I3=3Dmax(I1-2*I2,ceild(I1+2*I2,2));I3<=3Dmin(N1,floord(2*I1+I2-1,3=
89
));I3++)
90
{
91
J3 =3D -I1-2*(I2)+2*I3 ;
92
S2(J1 =3D I2,J2 =3D I3) ;
93
J3 =3D I1-(I2)-(I3) ;
94
S1(J1 =3D I2,J2 =3D I3) ;
95
}
96
if ((2*I1+I2)%3 =3D=3D 0) {
97
I3 =3D (2*I1+I2)/3 ;
98
J1 =3D -2*I1+3*I3 ;
99
if ((2*I1+J1)%3 =3D=3D 0) {
100
J2 =3D (2*I1+J1)/3 ;
101
J3 =3D 3*I1-4*J2 ;
102
S1 ;
103
S2 ;
104
}
105
}
106
for (I3=3Dmax(I1-2*I2,ceild(2*I1+I2+1,3));I3<=3Dmin(min(N1,floord(2*I1+=
107
3*I2,3)),I1-I2);I3++)
108
{
109
J3 =3D I1-(I2)-(I3) ;
110
S1(J1 =3D I2,J2 =3D I3) ;
111
J3 =3D -I1-2*(I2)+2*I3 ;
112
S2(J1 =3D I2,J2 =3D I3) ;
113
}
114
for (I3=3Dmax(ceild(2*I1+3*I2+1,3),I1-2*I2);I3<=3Dmin(N1,I1-I2);I3++) {
115
J3 =3D I1-(I2)-(I3) ;
116
S1(J1 =3D I2,J2 =3D I3) ;
117
}
118
for (I3=3Dmax(ceild(I1+2*I2,2),I1-I2+1);I3<=3Dmin(floord(2*I1+3*I2,3),N=
119
1);I3++)
120
{
121
J3 =3D -I1-2*(I2)+2*I3 ;
122
S2(J1 =3D I2,J2 =3D I3) ;
123
}
124
}
125
}
126
127
128
Thank you for reading.
129
130
--=20
131
DaeGon Kim
132
133
Graduate Student, Computer Science Department,
134
Colorado State University, Fort Collins, CO
135
Tel. Office: (1) 970 491 5937
136
kim@cs.colostate.edu
137
Personal Homepage : http://www.roadtohome.com/
138
139
------=_Part_1422_26966204.1114622640387
140
Content-Type: application/octet-stream; name=LUDom_cloog
141
Content-Transfer-Encoding: 7bit
142
Content-Disposition: attachment; filename="LUDom_cloog"
143
144
###############################################################################
145
#
146
# Problem : LU Decomposition
147
# Date : 2005. 4. 25
148
# Author : DaeGon Kim
149
#
150
###############################################################################
151
152
### Context -------------------------------------------------------------------
153
c # language is c
154
155
1 # Context
156
1 3 # 1 lines and 3 coloumns
157
# N1 1
158
1 1 -2 # N > 1
159
160
1 # 1 - Specify the names of parameters
161
N1 # parameter names
162
163
### ----------------------------------------------------------------------------
164
165
### Statements -----------------------------------------------------------------
166
1 # number of statements
167
# first statement
168
1
169
7 6
170
# Eq/In J J K N1 Constants
171
1 1 0 0 0 -1 # 1 <= I
172
1 0 1 0 0 -1 # 1 <= J
173
1 0 0 1 0 0 # 0 <= K
174
1 -1 0 0 1 0 # I <= N1
175
1 0 -1 0 1 0 # J <= N1
176
1 1 0 -1 0 0 # K <= I
177
1 0 1 -1 0 0 # K <= J
178
0 0 0
179
180
1 # Iterators
181
J1 J2 J3 # iterator names
182
183
### ----------------------------------------------------------------------------
184
185
186
### Scattering Functions -------------------------------------------------------
187
188
1 # Number of scattering functions
189
190
3 9
191
# I1 I2 I3 I J K N1 1
192
0 1 0 0 -1 -1 -1 0 0 # I1 = I+J+K
193
0 0 1 0 -1 0 0 0 0 # I2 = I
194
0 0 0 1 0 -1 0 0 0 # I3 = J
195
196
197
1 # Specify scattering dimension names
198
I1 I2 I3 # Scattering dimension names
199
200
### ----------------------------------------------------------------------------
201
202
203
204
------=_Part_1422_26966204.1114622640387
205
Content-Type: application/octet-stream; name=OSP_cloog
206
Content-Transfer-Encoding: 7bit
207
Content-Disposition: attachment; filename="OSP_cloog"
208
209
###############################################################################
210
#
211
# Problem : Optimal String Parentheses
212
# Date : 2005. 4. 25
213
# Author : DaeGon Kim
214
#
215
###############################################################################
216
217
### Context -------------------------------------------------------------------
218
c # language is c
219
1 # Context
220
1 3 # 1 lines and 3 coloumns
221
# N1 1
222
1 1 -2
223
224
1 # We want to set manually the parameter names
225
N1 # parameter names
226
227
### ----------------------------------------------------------------------------
228
229
### Statements -----------------------------------------------------------------
230
1 # number of statements
231
# first statement
232
1
233
6 6
234
# Eq/In I J K N1 Constants
235
1 1 0 0 0 -1 # 1 <= I
236
1 0 1 0 0 -1 # 1 <= J
237
1 0 0 1 0 0 # 0 <= K
238
1 0 -1 0 1 0 # J <= N1
239
1 -1 1 0 0 0 # I <= J
240
1 -1 1 -2 0 0 # 2K <= J-I
241
0 0 0
242
243
1 # Iterators
244
J1 J2 J3 # Iterators name
245
246
### ----------------------------------------------------------------------------
247
248
249
### Scattering Functions -------------------------------------------------------
250
251
1 # Number of scattering functions
252
253
3 9
254
# I1 I2 I3 I J K N1 1
255
0 1 0 0 2 -2 1 0 0 # I1 = -2I + 2J - K
256
0 0 1 0 -1 0 0 0 0 # I2 = I
257
0 0 0 1 0 -1 0 0 0 # I3 = J
258
259
260
1 # Specify scattering dimension names
261
I1 I2 I3 # Scattering dimension names
262
263
### ----------------------------------------------------------------------------
264
265
266
267
------=_Part_1422_26966204.1114622640387
268
Content-Type: application/octet-stream; name=LUDom_OSP_cloog
269
Content-Transfer-Encoding: 7bit
270
Content-Disposition: attachment; filename="LUDom_OSP_cloog"
271
272
###############################################################################
273
#
274
# Problem : LU Decomposition +
275
# Date : 2005. 4. 25
276
# Author : DaeGon Kim
277
#
278
###############################################################################
279
280
### Context -------------------------------------------------------------------
281
c # language is c
282
283
1 # Context
284
1 3 # 1 lines and 3 coloumns
285
# N1 1
286
1 1 -2 # N > 1
287
288
1 # 1 - Specify the names of parameters
289
N1 # parameter names
290
291
### ----------------------------------------------------------------------------
292
293
### Statements -----------------------------------------------------------------
294
2 # number of statements
295
# first statement
296
1
297
7 6
298
# Eq/In J J K N1 Constants
299
1 1 0 0 0 -1 # 1 <= I
300
1 0 1 0 0 -1 # 1 <= J
301
1 0 0 1 0 0 # 0 <= K
302
1 -1 0 0 1 0 # I <= N1
303
1 0 -1 0 1 0 # J <= N1
304
1 1 0 -1 0 0 # K <= I
305
1 0 1 -1 0 0 # K <= J
306
0 0 0
307
308
# second statement
309
1
310
6 6
311
# Eq/In I J K N1 Constants
312
1 1 0 0 0 -1 # 1 <= I
313
1 0 1 0 0 -1 # 1 <= J
314
1 0 0 1 0 0 # 0 <= K
315
1 0 -1 0 1 0 # J <= N1
316
1 -1 1 0 0 0 # I <= J
317
1 -1 1 -2 0 0 # 2K <= J-I
318
0 0 0
319
320
1 # Iterators
321
J1 J2 J3 # Iterators name
322
323
### ----------------------------------------------------------------------------
324
325
326
### Scattering Functions -------------------------------------------------------
327
328
2 # Number of scattering functions
329
330
# First statement
331
3 9
332
# I1 I2 I3 I J K N1 1
333
0 1 0 0 -1 -1 -1 0 0 # I1 = I+J+K
334
0 0 1 0 -1 0 0 0 0 # I2 = I
335
0 0 0 1 0 -1 0 0 0 # I3 = J
336
337
# Second statement
338
3 9
339
# I1 I2 I3 I J K N1 1
340
0 1 0 0 2 -2 1 0 0 # I1 = -2I + 2J - K
341
0 0 1 0 -1 0 0 0 0 # I2 = I
342
0 0 0 1 0 -1 0 0 0 # I3 = J
343
344
345
1 # Specify scattering dimension names
346
I1 I2 I3 # Scattering dimension names
347
348
### ----------------------------------------------------------------------------
349
350
351
352
353
------=_Part_1422_26966204.1114622640387
354
Content-Type: application/octet-stream; name=LUDom.type1.c
355
Content-Transfer-Encoding: 7bit
356
Content-Disposition: attachment; filename="LUDom.type1.c"
357
358
/* Author : DaeGon Kim
359
Date : Tue Apr 26 20:03:32 MDT 2005 */
360
361
#include <stdio.h>
362
#include <stdlib.h>
363
364
#define max(x,y) ((x)>(y) ? (x) : (y))
365
#define min(x,y) ((x)>(y) ? (y) : (x))
366
#define ceild(x,y) ((x)+1) / (y)
367
#define floord(x,y) (x) / (y)
368
369
int main(int argc, char **argv) {
370
371
/* parameters declaration */
372
int N1 = 0;
373
374
/* statements declaration */
375
int S1 = 0;
376
377
/* iterators declaration */
378
int I1 = 0;
379
int J1 = 0;
380
int I2 = 0;
381
int J2 = 0;
382
int I3 = 0;
383
int J3 = 0;
384
385
/* check arguements and get values of parameters */
386
if ( argc != 1 + 1) {
387
printf("The number of arguements for %s is 1\n", argv[0]);
388
exit(0);
389
}
390
391
N1 = atoi(argv[1]);
392
393
/* Generated from ./INPUT/CLOOG/LUDom_cloog by CLooG v0.12.2 64 bits in 0.00s. */
394
for (I1=2;I1<=3*N1;I1++) {
395
for (I2=max(ceild(I1-N1,2),1);I2<=min(N1,I1-1);I2++) {
396
for (I3=max(max(1,ceild(I1-I2,2)),I1-2*I2);I3<=min(N1,I1-I2);I3++) {
397
J3 = I1-(I2)-(I3) ;
398
S1++;
399
}
400
}
401
}
402
403
404
/* statements print */
405
fprintf(stderr, "S1 : %d\n", S1);
406
407
408
}
409
410
411
412
------=_Part_1422_26966204.1114622640387
413
Content-Type: application/octet-stream; name=LUDom.type2.c
414
Content-Transfer-Encoding: 7bit
415
Content-Disposition: attachment; filename="LUDom.type2.c"
416
417
/* Author : DaeGon Kim
418
Date : Tue Apr 26 20:03:33 MDT 2005 */
419
420
#include <stdio.h>
421
#include <stdlib.h>
422
423
#define max(x,y) ((x)>(y) ? (x) : (y))
424
#define min(x,y) ((x)>(y) ? (y) : (x))
425
#define ceild(x,y) ((x)+1) / (y)
426
#define floord(x,y) (x) / (y)
427
428
int main(int argc, char **argv) {
429
430
/* parameters declaration */
431
int N1 = 0;
432
433
/* statements declaration */
434
int S1 = 0;
435
436
/* iterators declaration */
437
int I1 = 0;
438
int J1 = 0;
439
int I2 = 0;
440
int J2 = 0;
441
int I3 = 0;
442
int J3 = 0;
443
444
/* check arguements and get values of parameters */
445
if ( argc != 1 + 1) {
446
printf("The number of arguements for %s is 1\n", argv[0]);
447
exit(0);
448
}
449
450
N1 = atoi(argv[1]);
451
452
/* Generated from ./INPUT/CLOOG/LUDom_cloog by CLooG v0.12.2 64 bits in 0.00s. */
453
for (I1=2;I1<=3*N1;I1++) {
454
for (I2=max(ceild(I1-N1,2),1);I2<=min(N1,I1-1);I2++) {
455
for (I3=max(max(1,ceild(I1-I2,2)),I1-2*I2);I3<=min(N1,I1-I2);I3++) {
456
J3 = I1-(I2)-(I3) ;
457
S1++;
458
}
459
}
460
}
461
462
/* statements print */
463
fprintf(stderr, "S1 : %d\n", S1);
464
465
466
}
467
468
469
470
------=_Part_1422_26966204.1114622640387
471
Content-Type: application/octet-stream; name=OSP.type1.c
472
Content-Transfer-Encoding: 7bit
473
Content-Disposition: attachment; filename="OSP.type1.c"
474
475
/* Author : DaeGon Kim
476
Date : Tue Apr 26 20:04:18 MDT 2005 */
477
478
#include <stdio.h>
479
#include <stdlib.h>
480
481
#define max(x,y) ((x)>(y) ? (x) : (y))
482
#define min(x,y) ((x)>(y) ? (y) : (x))
483
#define ceild(x,y) ((x)+1) / (y)
484
#define floord(x,y) (x) / (y)
485
486
int main(int argc, char **argv) {
487
488
/* parameters declaration */
489
int N1 = 0;
490
491
/* statements declaration */
492
int S1 = 0;
493
494
/* iterators declaration */
495
int I1 = 0;
496
int J1 = 0;
497
int I2 = 0;
498
int J2 = 0;
499
int I3 = 0;
500
int J3 = 0;
501
502
/* check arguements and get values of parameters */
503
if ( argc != 1 + 1) {
504
printf("The number of arguements for %s is 1\n", argv[0]);
505
exit(0);
506
}
507
508
N1 = atoi(argv[1]);
509
510
/* Generated from ./INPUT/CLOOG/OSP_cloog by CLooG v0.12.2 64 bits in 0.00s. */
511
for (I1=0;I1<=2*N1-2;I1++) {
512
for (I2=1;I2<=floord(-I1+2*N1,2);I2++) {
513
for (I3=ceild(I1+2*I2,2);I3<=min(floord(2*I1+3*I2,3),N1);I3++) {
514
J3 = -I1-2*(I2)+2*I3 ;
515
S1++;
516
}
517
}
518
}
519
520
521
/* statements print */
522
fprintf(stderr, "S1 : %d\n", S1);
523
524
}
525
526
527
528
------=_Part_1422_26966204.1114622640387
529
Content-Type: application/octet-stream; name=OSP.type2.c
530
Content-Transfer-Encoding: 7bit
531
Content-Disposition: attachment; filename="OSP.type2.c"
532
533
/* Author : DaeGon Kim
534
Date : Tue Apr 26 20:04:19 MDT 2005 */
535
536
#include <stdio.h>
537
#include <stdlib.h>
538
539
#define max(x,y) ((x)>(y) ? (x) : (y))
540
#define min(x,y) ((x)>(y) ? (y) : (x))
541
#define ceild(x,y) ((x)+1) / (y)
542
#define floord(x,y) (x) / (y)
543
544
int main(int argc, char **argv) {
545
546
/* parameters declaration */
547
int N1 = 0;
548
549
/* statements declaration */
550
int S1 = 0;
551
552
/* iterators declaration */
553
int I1 = 0;
554
int J1 = 0;
555
int I2 = 0;
556
int J2 = 0;
557
int I3 = 0;
558
int J3 = 0;
559
560
/* check arguements and get values of parameters */
561
if ( argc != 1 + 1) {
562
printf("The number of arguements for %s is 1\n", argv[0]);
563
exit(0);
564
}
565
566
N1 = atoi(argv[1]);
567
568
/* Generated from ./INPUT/CLOOG/OSP_cloog by CLooG v0.12.2 64 bits in 0.00s. */
569
for (I1=0;I1<=2*N1-2;I1++) {
570
for (I2=1;I2<=floord(-I1+2*N1,2);I2++) {
571
for (I3=ceild(I1+2*I2,2);I3<=min(floord(2*I1+3*I2,3),N1);I3++) {
572
J3 = -I1-2*(I2)+2*I3 ;
573
S1++;
574
}
575
}
576
}
577
578
579
/* statements print */
580
fprintf(stderr, "S1 : %d\n", S1);
581
582
583
}
584
585
586
587
------=_Part_1422_26966204.1114622640387
588
Content-Type: application/octet-stream; name=LUDom_OSP.type1.c
589
Content-Transfer-Encoding: 7bit
590
Content-Disposition: attachment; filename="LUDom_OSP.type1.c"
591
592
/* Author : DaeGon Kim
593
Date : Tue Apr 26 20:28:05 MDT 2005 */
594
595
#include <stdio.h>
596
#include <stdlib.h>
597
598
#define max(x,y) ((x)>(y) ? (x) : (y))
599
#define min(x,y) ((x)>(y) ? (y) : (x))
600
#define ceild(x,y) ((x)+1) / (y)
601
#define floord(x,y) (x) / (y)
602
603
int main(int argc, char **argv) {
604
605
/* parameters declaration */
606
int N1 = 0;
607
608
/* statements declaration */
609
int S1 = 0;
610
int S2 = 0;
611
612
/* iterators declaration */
613
int I1 = 0;
614
int J1 = 0;
615
int I2 = 0;
616
int J2 = 0;
617
int I3 = 0;
618
int J3 = 0;
619
620
/* check arguements and get values of parameters */
621
if ( argc != 1 + 1) {
622
printf("The number of arguements for %s is 1\n", argv[0]);
623
exit(0);
624
}
625
626
N1 = atoi(argv[1]);
627
628
/* Generated from ./INPUT/CLOOG/LUDom_OSP_cloog by CLooG v0.12.2 64 bits in 0.76s. */
629
for (I1=0;I1<=1;I1++) {
630
for (I2=1;I2<=floord(-I1+2*N1,2);I2++) {
631
for (I3=ceild(I1+2*I2,2);I3<=min(floord(2*I1+3*I2,3),N1);I3++) {
632
J3 = -I1-2*(I2)+2*I3 ;
633
S2++;
634
}
635
}
636
}
637
for (I1=2;I1<=min(3,floord(2*N1,3));I1++) {
638
for (I2=max(ceild(I1+1,4),1);I2<=I1-1;I2++) {
639
for (I3=max(max(1,ceild(I1-I2,2)),I1-2*I2);I3<=I1-I2;I3++) {
640
J3 = I1-(I2)-(I3) ;
641
S1++;
642
}
643
for (I3=max(I1-I2+1,ceild(I1+2*I2,2));I3<=min(N1,floord(2*I1+3*I2,3));I3++) {
644
J3 = -I1-2*(I2)+2*I3 ;
645
S2++;
646
}
647
}
648
for (I2=I1;I2<=floord(-I1+2*N1,2);I2++) {
649
for (I3=ceild(I1+2*I2,2);I3<=min(N1,floord(2*I1+3*I2,3));I3++) {
650
J3 = -I1-2*(I2)+2*I3 ;
651
S2++;
652
}
653
}
654
}
655
if (N1 >= 6) {
656
J3 = 4-(I2)-(I3) ;
657
S1++;
658
J1 = -2*(4)+3*3 ;
659
if ((2*4+J1)%3 == 0) {
660
J2 = (2*4+J1)/3 ;
661
J3 = 3*4-4*J2 ;
662
S1++;
663
S2++;
664
}
665
for (I2=2;I2<=3;I2++) {
666
for (I3=max(max(1,ceild(4-I2,2)),4-2*I2);I3<=4-I2;I3++) {
667
J3 = 4-(I2)-(I3) ;
668
S1++;
669
}
670
for (I3=max(4-I2+1,ceild(4+2*I2,2));I3<=min(N1,floord(2*4+3*I2,3));I3++) {
671
J3 = -(4)-2*(I2)+2*I3 ;
672
S2++;
673
}
674
}
675
for (I2=4;I2<=N1-2;I2++) {
676
for (I3=ceild(4+2*I2,2);I3<=min(N1,floord(2*4+3*I2,3));I3++) {
677
J3 = -(4)-2*(I2)+2*I3 ;
678
S2++;
679
}
680
}
681
}
682
if ((N1 <= 5) && (N1 >= 5)) {
683
J3 = 4-(I2)-(I3) ;
684
S1++;
685
J1 = -2*(4)+3*3 ;
686
if ((2*4+J1)%3 == 0) {
687
J2 = (2*4+J1)/3 ;
688
J3 = 3*4-4*J2 ;
689
S1++;
690
S2++;
691
}
692
for (I2=2;I2<=3;I2++) {
693
for (I3=max(max(1,ceild(4-I2,2)),4-2*I2);I3<=4-I2;I3++) {
694
J3 = 4-(I2)-(I3) ;
695
S1++;
696
}
697
for (I3=max(4-I2+1,ceild(4+2*I2,2));I3<=min(N1,floord(2*4+3*I2,3));I3++) {
698
J3 = -(4)-2*(I2)+2*I3 ;
699
S2++;
700
}
701
}
702
}
703
for (I1=max(2,ceild(2*N1+1,3));I1<=min(3,floord(2*N1+2,3));I1++) {
704
for (I2=max(ceild(I1+1,4),1);I2<=I1-1;I2++) {
705
for (I3=max(max(1,ceild(I1-I2,2)),I1-2*I2);I3<=I1-I2;I3++) {
706
J3 = I1-(I2)-(I3) ;
707
S1++;
708
}
709
for (I3=max(I1-I2+1,ceild(I1+2*I2,2));I3<=min(N1,floord(2*I1+3*I2,3));I3++) {
710
J3 = -I1-2*(I2)+2*I3 ;
711
S2++;
712
}
713
}
714
}
715
if (N1 >= 8) {
716
for (I3=2*1+1;I3<=3*1;I3++) {
717
J3 = 5-(I2)-(I3) ;
718
S1++;
719
}
720
if ((9*5-1)%12 == 0) {
721
I3 = (9*5-1)/12 ;
722
J1 = -2*(5)+3*I3 ;
723
if ((2*5+J1)%3 == 0) {
724
J2 = (2*5+J1)/3 ;
725
J3 = 3*5-4*J2 ;
726
S1++;
727
S2++;
728
}
729
}
730
if ((3*5+1)%4 == 0) {
731
I3 = (3*5+1)/4 ;
732
J3 = 5-(I2)-(I3) ;
733
S1++;
734
J3 = -(5)-2*(I2)+2*I3 ;
735
S2++;
736
}
737
for (I2=2;I2<=4;I2++) {
738
for (I3=max(max(1,ceild(5-I2,2)),5-2*I2);I3<=5-I2;I3++) {
739
J3 = 5-(I2)-(I3) ;
740
S1++;
741
}
742
for (I3=max(5-I2+1,ceild(5+2*I2,2));I3<=min(N1,floord(2*5+3*I2,3));I3++) {
743
J3 = -(5)-2*(I2)+2*I3 ;
744
S2++;
745
}
746
}
747
for (I2=5;I2<=floord(2*N1-5,2);I2++) {
748
for (I3=ceild(5+2*I2,2);I3<=min(N1,floord(2*5+3*I2,3));I3++) {
749
J3 = -(5)-2*(I2)+2*I3 ;
750
S2++;
751
}
752
}
753
}
754
if ((N1 <= 7) && (N1 >= 7)) {
755
for (I3=2*1+1;I3<=3*1;I3++) {
756
J3 = 5-(I2)-(I3) ;
757
S1++;
758
}
759
if ((9*5-1)%12 == 0) {
760
I3 = (9*5-1)/12 ;
761
J1 = -2*(5)+3*I3 ;
762
if ((2*5+J1)%3 == 0) {
763
J2 = (2*5+J1)/3 ;
764
J3 = 3*5-4*J2 ;
765
S1++;
766
S2++;
767
}
768
}
769
if ((3*5+1)%4 == 0) {
770
I3 = (3*5+1)/4 ;
771
J3 = 5-(I2)-(I3) ;
772
S1++;
773
J3 = -(5)-2*(I2)+2*I3 ;
774
S2++;
775
}
776
for (I2=2;I2<=4;I2++) {
777
for (I3=max(max(1,ceild(5-I2,2)),5-2*I2);I3<=5-I2;I3++) {
778
J3 = 5-(I2)-(I3) ;
779
S1++;
780
}
781
for (I3=max(5-I2+1,ceild(5+2*I2,2));I3<=min(N1,floord(2*5+3*I2,3));I3++) {
782
J3 = -(5)-2*(I2)+2*I3 ;
783
S2++;
784
}
785
}
786
}
787
for (I1=ceild(2*N1+3,3);I1<=min(floord(4*N1-2,3),3);I1++) {
788
for (I2=max(ceild(I1+1,4),I1-N1+1);I2<=floord(-I1+2*N1,2);I2++) {
789
for (I3=max(max(1,ceild(I1-I2,2)),I1-2*I2);I3<=I1-I2;I3++) {
790
J3 = I1-(I2)-(I3) ;
791
S1++;
792
}
793
for (I3=max(I1-I2+1,ceild(I1+2*I2,2));I3<=min(N1,floord(2*I1+3*I2,3));I3++) {
794
J3 = -I1-2*(I2)+2*I3 ;
795
S2++;
796
}
797
}
798
for (I2=ceild(-I1+2*N1+1,2);I2<=I1-1;I2++) {
799
for (I3=max(max(ceild(I1-I2,2),I1-2*I2),1);I3<=min(I1-I2,N1);I3++) {
800
J3 = I1-(I2)-(I3) ;
801
S1++;
802
}
803
}
804
}
805
if ((N1 <= 4) && (N1 >= 4)) {
806
J3 = 4-(I2)-(I3) ;
807
S1++;
808
J1 = -2*(4)+3*3 ;
809
if ((2*4+J1)%3 == 0) {
810
J2 = (2*4+J1)/3 ;
811
J3 = 3*4-4*J2 ;
812
S1++;
813
S2++;
814
}
815
for (I2=max(2,-N1+5);I2<=N1-2;I2++) {
816
for (I3=max(max(1,ceild(4-I2,2)),4-2*I2);I3<=4-I2;I3++) {
817
J3 = 4-(I2)-(I3) ;
818
S1++;
819
}
820
for (I3=max(4-I2+1,ceild(4+2*I2,2));I3<=min(N1,floord(2*4+3*I2,3));I3++) {
821
J3 = -(4)-2*(I2)+2*I3 ;
822
S2++;
823
}
824
}
825
for (I2=ceild(2*N1-3,2);I2<=3;I2++) {
826
for (I3=max(max(ceild(4-I2,2),4-2*I2),1);I3<=min(4-I2,N1);I3++) {
827
J3 = 4-(I2)-(I3) ;
828
S1++;
829
}
830
}
831
}
832
if (N1 >= 9) {
833
for (I3=4*1;I3<=floord(13*1-1,3);I3++) {
834
J3 = -(6)-2*(I2)+2*I3 ;
835
S2++;
836
J3 = 6-(I2)-(I3) ;
837
S1++;
838
}
839
if (13*6%18 == 0) {
840
I3 = 13*6/18 ;
841
J1 = -2*(6)+3*I3 ;
842
if ((2*6+J1)%3 == 0) {
843
J2 = (2*6+J1)/3 ;
844
J3 = 3*6-4*J2 ;
845
S1++;
846
S2++;
847
}
848
}
849
for (I3=ceild(13*1+1,3);I3<=min(N1,5*1);I3++) {
850
J3 = 6-(I2)-(I3) ;
851
S1++;
852
J3 = -(6)-2*(I2)+2*I3 ;
853
S2++;
854
}
855
if (5%4 == 0) {
856
for (I3=2*5/4+1;I3<=3*5/4;I3++) {
857
J3 = 6-(I2)-(I3) ;
858
S1++;
859
}
860
if ((9*6-1)%12 == 0) {
861
I3 = (9*6-1)/12 ;
862
J1 = -2*(6)+3*I3 ;
863
if ((2*6+J1)%3 == 0) {
864
J2 = (2*6+J1)/3 ;
865
J3 = 3*6-4*J2 ;
866
S1++;
867
S2++;
868
}
869
}
870
if ((3*6+1)%4 == 0) {
871
I3 = (3*6+1)/4 ;
872
J3 = 6-(I2)-(I3) ;
873
S1++;
874
J3 = -(6)-2*(I2)+2*I3 ;
875
S2++;
876
}
877
}
878
if (3%2 == 0) {
879
for (I3=2*3/2;I3<=floord(6*3/2-1,2);I3++) {
880
J3 = 6-(I2)-(I3) ;
881
S1++;
882
}
883
if (3*6%4 == 0) {
884
I3 = 3*6/4 ;
885
J1 = -2*(6)+3*I3 ;
886
if ((2*6+J1)%3 == 0) {
887
J2 = (2*6+J1)/3 ;
888
J3 = 3*6-4*J2 ;
889
S1++;
890
S2++;
891
}
892
}
893
for (I3=3*3/2+1;I3<=min(N1,floord(11*3/2,3));I3++) {
894
J3 = -(6)-2*(I2)+2*I3 ;
895
S2++;
896
}
897
}
898
for (I2=2;I2<=5;I2++) {
899
for (I3=max(max(1,ceild(6-I2,2)),6-2*I2);I3<=6-I2;I3++) {
900
J3 = 6-(I2)-(I3) ;
901
S1++;
902
}
903
for (I3=max(6-I2+1,ceild(6+2*I2,2));I3<=min(N1,floord(2*6+3*I2,3));I3++) {
904
J3 = -(6)-2*(I2)+2*I3 ;
905
S2++;
906
}
907
}
908
for (I2=6;I2<=N1-3;I2++) {
909
for (I3=ceild(6+2*I2,2);I3<=min(N1,floord(2*6+3*I2,3));I3++) {
910
J3 = -(6)-2*(I2)+2*I3 ;
911
S2++;
912
}
913
}
914
}
915
if ((N1 <= 8) && (N1 >= 8)) {
916
for (I3=4*1;I3<=floord(13*1-1,3);I3++) {
917
J3 = -(6)-2*(I2)+2*I3 ;
918
S2++;
919
J3 = 6-(I2)-(I3) ;
920
S1++;
921
}
922
if (13*6%18 == 0) {
923
I3 = 13*6/18 ;
924
J1 = -2*(6)+3*I3 ;
925
if ((2*6+J1)%3 == 0) {
926
J2 = (2*6+J1)/3 ;
927
J3 = 3*6-4*J2 ;
928
S1++;
929
S2++;
930
}
931
}
932
for (I3=ceild(13*1+1,3);I3<=min(N1,5*1);I3++) {
933
J3 = 6-(I2)-(I3) ;
934
S1++;
935
J3 = -(6)-2*(I2)+2*I3 ;
936
S2++;
937
}
938
if (5%4 == 0) {
939
for (I3=2*5/4+1;I3<=3*5/4;I3++) {
940
J3 = 6-(I2)-(I3) ;
941
S1++;
942
}
943
if ((9*6-1)%12 == 0) {
944
I3 = (9*6-1)/12 ;
945
J1 = -2*(6)+3*I3 ;
946
if ((2*6+J1)%3 == 0) {
947
J2 = (2*6+J1)/3 ;
948
J3 = 3*6-4*J2 ;
949
S1++;
950
S2++;
951
}
952
}
953
if ((3*6+1)%4 == 0) {
954
I3 = (3*6+1)/4 ;
955
J3 = 6-(I2)-(I3) ;
956
S1++;
957
J3 = -(6)-2*(I2)+2*I3 ;
958
S2++;
959
}
960
}
961
if (3%2 == 0) {
962
for (I3=2*3/2;I3<=floord(6*3/2-1,2);I3++) {
963
J3 = 6-(I2)-(I3) ;
964
S1++;
965
}
966
if (3*6%4 == 0) {
967
I3 = 3*6/4 ;
968
J1 = -2*(6)+3*I3 ;
969
if ((2*6+J1)%3 == 0) {
970
J2 = (2*6+J1)/3 ;
971
J3 = 3*6-4*J2 ;
972
S1++;
973
S2++;
974
}
975
}
976
for (I3=3*3/2+1;I3<=min(N1,floord(11*3/2,3));I3++) {
977
J3 = -(6)-2*(I2)+2*I3 ;
978
S2++;
979
}
980
}
981
for (I2=2;I2<=5;I2++) {
982
for (I3=max(max(1,ceild(6-I2,2)),6-2*I2);I3<=6-I2;I3++) {
983
J3 = 6-(I2)-(I3) ;
984
S1++;
985
}
986
for (I3=max(6-I2+1,ceild(6+2*I2,2));I3<=min(N1,floord(2*6+3*I2,3));I3++) {
987
J3 = -(6)-2*(I2)+2*I3 ;
988
S2++;
989
}
990
}
991
}
992
if ((N1 <= 3) && (N1 >= 3)) {
993
if ((4*N1-1)%3 == 0) {
994
I1 = (4*N1-1)/3 ;
995
for (I2=ceild(N1+2,3);I2<=floord(4*N1-4,3);I2++) {
996
for (I3=max(max(ceild(I1-I2,2),I1-2*I2),1);I3<=min(I1-I2,N1);I3++) {
997
J3 = I1-(I2)-(I3) ;
998
S1++;
999
}
1000
}
1001
}
1002
}
1003
if (N1 >= 11) {
1004
J1 = -2*(7)+3*5 ;
1005
if ((2*7+J1)%3 == 0) {
1006
J2 = (2*7+J1)/3 ;
1007
J3 = 3*7-4*J2 ;
1008
S1++;
1009
S2++;
1010
}
1011
for (I3=6;I3<=5;I3++) {
1012
J3 = 7-(I2)-(I3) ;
1013
S1++;
1014
J3 = -(7)-2*(I2)+2*I3 ;
1015
S2++;
1016
}
1017
J3 = 7-(I2)-(I3) ;
1018
S1++;
1019
if (7%6 == 0) {
1020
for (I3=4*7/6;I3<=floord(13*7/6-1,3);I3++) {
1021
J3 = -(7)-2*(I2)+2*I3 ;
1022
S2++;
1023
J3 = 7-(I2)-(I3) ;
1024
S1++;
1025
}
1026
if (13*7%18 == 0) {
1027
I3 = 13*7/18 ;
1028
J1 = -2*(7)+3*I3 ;
1029
if ((2*7+J1)%3 == 0) {
1030
J2 = (2*7+J1)/3 ;
1031
J3 = 3*7-4*J2 ;
1032
S1++;
1033
S2++;
1034
}
1035
}
1036
for (I3=ceild(13*7/6+1,3);I3<=min(N1,5*7/6);I3++) {
1037
J3 = 7-(I2)-(I3) ;
1038
S1++;
1039
J3 = -(7)-2*(I2)+2*I3 ;
1040
S2++;
1041
}
1042
}
1043
if (3%2 == 0) {
1044
for (I3=2*3/2+1;I3<=3*3/2;I3++) {
1045
J3 = 7-(I2)-(I3) ;
1046
S1++;
1047
}
1048
if ((9*7-1)%12 == 0) {
1049
I3 = (9*7-1)/12 ;
1050
J1 = -2*(7)+3*I3 ;
1051
if ((2*7+J1)%3 == 0) {
1052
J2 = (2*7+J1)/3 ;
1053
J3 = 3*7-4*J2 ;
1054
S1++;
1055
S2++;
1056
}
1057
}
1058
if ((3*7+1)%4 == 0) {
1059
I3 = (3*7+1)/4 ;
1060
J3 = 7-(I2)-(I3) ;
1061
S1++;
1062
J3 = -(7)-2*(I2)+2*I3 ;
1063
S2++;
1064
}
1065
}
1066
if (7%4 == 0) {
1067
for (I3=2*7/4;I3<=floord(6*7/4-1,2);I3++) {
1068
J3 = 7-(I2)-(I3) ;
1069
S1++;
1070
}
1071
if (3*7%4 == 0) {
1072
I3 = 3*7/4 ;
1073
J1 = -2*(7)+3*I3 ;
1074
if ((2*7+J1)%3 == 0) {
1075
J2 = (2*7+J1)/3 ;
1076
J3 = 3*7-4*J2 ;
1077
S1++;
1078
S2++;
1079
}
1080
}
1081
for (I3=3*7/4+1;I3<=min(N1,floord(11*7/4,3));I3++) {
1082
J3 = -(7)-2*(I2)+2*I3 ;
1083
S2++;
1084
}
1085
}
1086
for (I2=2;I2<=6;I2++) {
1087
for (I3=max(max(1,ceild(7-I2,2)),7-2*I2);I3<=7-I2;I3++) {
1088
J3 = 7-(I2)-(I3) ;
1089
S1++;
1090
}
1091
for (I3=max(7-I2+1,ceild(7+2*I2,2));I3<=min(N1,floord(2*7+3*I2,3));I3++) {
1092
J3 = -(7)-2*(I2)+2*I3 ;
1093
S2++;
1094
}
1095
}
1096
for (I2=7;I2<=floord(2*N1-7,2);I2++) {
1097
for (I3=ceild(7+2*I2,2);I3<=min(N1,floord(2*7+3*I2,3));I3++) {
1098
J3 = -(7)-2*(I2)+2*I3 ;
1099
S2++;
1100
}
1101
}
1102
}
1103
if ((N1 <= 10) && (N1 >= 10)) {
1104
J1 = -2*(7)+3*5 ;
1105
if ((2*7+J1)%3 == 0) {
1106
J2 = (2*7+J1)/3 ;
1107
J3 = 3*7-4*J2 ;
1108
S1++;
1109
S2++;
1110
}
1111
for (I3=6;I3<=5;I3++) {
1112
J3 = 7-(I2)-(I3) ;
1113
S1++;
1114
J3 = -(7)-2*(I2)+2*I3 ;
1115
S2++;
1116
}
1117
J3 = 7-(I2)-(I3) ;
1118
S1++;
1119
if (7%6 == 0) {
1120
for (I3=4*7/6;I3<=floord(13*7/6-1,3);I3++) {
1121
J3 = -(7)-2*(I2)+2*I3 ;
1122
S2++;
1123
J3 = 7-(I2)-(I3) ;
1124
S1++;
1125
}
1126
if (13*7%18 == 0) {
1127
I3 = 13*7/18 ;
1128
J1 = -2*(7)+3*I3 ;
1129
if ((2*7+J1)%3 == 0) {
1130
J2 = (2*7+J1)/3 ;
1131
J3 = 3*7-4*J2 ;
1132
S1++;
1133
S2++;
1134
}
1135
}
1136
for (I3=ceild(13*7/6+1,3);I3<=min(N1,5*7/6);I3++) {
1137
J3 = 7-(I2)-(I3) ;
1138
S1++;
1139
J3 = -(7)-2*(I2)+2*I3 ;
1140
S2++;
1141
}
1142
}
1143
if (3%2 == 0) {
1144
for (I3=2*3/2+1;I3<=3*3/2;I3++) {
1145
J3 = 7-(I2)-(I3) ;
1146
S1++;
1147
}
1148
if ((9*7-1)%12 == 0) {
1149
I3 = (9*7-1)/12 ;
1150
J1 = -2*(7)+3*I3 ;
1151
if ((2*7+J1)%3 == 0) {
1152
J2 = (2*7+J1)/3 ;
1153
J3 = 3*7-4*J2 ;
1154
S1++;
1155
S2++;
1156
}
1157
}
1158
if ((3*7+1)%4 == 0) {
1159
I3 = (3*7+1)/4 ;
1160
J3 = 7-(I2)-(I3) ;
1161
S1++;
1162
J3 = -(7)-2*(I2)+2*I3 ;
1163
S2++;
1164
}
1165
}
1166
if (7%4 == 0) {
1167
for (I3=2*7/4;I3<=floord(6*7/4-1,2);I3++) {
1168
J3 = 7-(I2)-(I3) ;
1169
S1++;
1170
}
1171
if (3*7%4 == 0) {
1172
I3 = 3*7/4 ;
1173
J1 = -2*(7)+3*I3 ;
1174
if ((2*7+J1)%3 == 0) {
1175
J2 = (2*7+J1)/3 ;
1176
J3 = 3*7-4*J2 ;
1177
S1++;
1178
S2++;
1179
}
1180
}
1181
for (I3=3*7/4+1;I3<=min(N1,floord(11*7/4,3));I3++) {
1182
J3 = -(7)-2*(I2)+2*I3 ;
1183
S2++;
1184
}
1185
}
1186
for (I2=2;I2<=6;I2++) {
1187
for (I3=max(max(1,ceild(7-I2,2)),7-2*I2);I3<=7-I2;I3++) {
1188
J3 = 7-(I2)-(I3) ;
1189
S1++;
1190
}
1191
for (I3=max(7-I2+1,ceild(7+2*I2,2));I3<=min(N1,floord(2*7+3*I2,3));I3++) {
1192
J3 = -(7)-2*(I2)+2*I3 ;
1193
S2++;
1194
}
1195
}
1196
}
1197
if ((N1 <= 6) && (N1 >= 5)) {
1198
for (I3=2*1+1;I3<=3*1;I3++) {
1199
J3 = 5-(I2)-(I3) ;
1200
S1++;
1201
}
1202
if ((9*5-1)%12 == 0) {
1203
I3 = (9*5-1)/12 ;
1204
J1 = -2*(5)+3*I3 ;
1205
if ((2*5+J1)%3 == 0) {
1206
J2 = (2*5+J1)/3 ;
1207
J3 = 3*5-4*J2 ;
1208
S1++;
1209
S2++;
1210
}
1211
}
1212
if ((3*5+1)%4 == 0) {
1213
I3 = (3*5+1)/4 ;
1214
J3 = 5-(I2)-(I3) ;
1215
S1++;
1216
J3 = -(5)-2*(I2)+2*I3 ;
1217
S2++;
1218
}
1219
for (I2=max(2,-N1+6);I2<=floord(2*N1-5,2);I2++) {
1220
for (I3=max(max(1,ceild(5-I2,2)),5-2*I2);I3<=5-I2;I3++) {
1221
J3 = 5-(I2)-(I3) ;
1222
S1++;
1223
}
1224
for (I3=max(5-I2+1,ceild(5+2*I2,2));I3<=min(N1,floord(2*5+3*I2,3));I3++) {
1225
J3 = -(5)-2*(I2)+2*I3 ;
1226
S2++;
1227
}
1228
}
1229
for (I2=N1-2;I2<=4;I2++) {
1230
for (I3=max(max(ceild(5-I2,2),5-2*I2),1);I3<=min(5-I2,N1);I3++) {
1231
J3 = 5-(I2)-(I3) ;
1232
S1++;
1233
}
1234
}
1235
}
1236
if (N1 == 4) {
1237
for (I3=ceild(2*N1+1,3);I3<=N1-1;I3++) {
1238
J3 = 5-(I2)-(I3) ;
1239
S1++;
1240
}
1241
if (-1%3 == 0) {
1242
I3 = (3*N1-1)/3 ;
1243
J1 = -2*(5)+3*I3 ;
1244
if ((2*5+J1)%3 == 0) {
1245
J2 = (2*5+J1)/3 ;
1246
J3 = 3*5-4*J2 ;
1247
S1++;
1248
S2++;
1249
}
1250
}
1251
J3 = 5-(I2)-(I3) ;
1252
S1++;
1253
J3 = -(5)-2*(I2)+2*I3 ;
1254
S2++;
1255
for (I2=2;I2<=4;I2++) {
1256
for (I3=max(max(ceild(5-I2,2),5-2*I2),1);I3<=min(5-I2,N1);I3++) {
1257
J3 = 5-(I2)-(I3) ;
1258
S1++;
1259
}
1260
}
1261
}
1262
if (N1 >= 12) {
1263
for (I3=ceild(8+2*1,2);I3<=8-2*(1)-1;I3++) {
1264
J3 = -(8)-2*(I2)+2*I3 ;
1265
S2++;
1266
}
1267
for (I3=8-2*(1);I3<=floord(2*8+3*1,3);I3++) {
1268
J3 = 8-(I2)-(I3) ;
1269
S1++;
1270
J3 = -(8)-2*(I2)+2*I3 ;
1271
S2++;
1272
}
1273
for (I3=ceild(2*8+3*1+1,3);I3<=min(N1,8-(1));I3++) {
1274
J3 = 8-(I2)-(I3) ;
1275
S1++;
1276
}
1277
if (4%3 == 0) {
1278
for (I3=4*4/3;I3<=floord(13*4/3-1,3);I3++) {
1279
J3 = -(8)-2*(I2)+2*I3 ;
1280
S2++;
1281
J3 = 8-(I2)-(I3) ;
1282
S1++;
1283
}
1284
if (13*8%18 == 0) {
1285
I3 = 13*8/18 ;
1286
J1 = -2*(8)+3*I3 ;
1287
if ((2*8+J1)%3 == 0) {
1288
J2 = (2*8+J1)/3 ;
1289
J3 = 3*8-4*J2 ;
1290
S1++;
1291
S2++;
1292
}
1293
}
1294
for (I3=ceild(13*4/3+1,3);I3<=min(N1,5*4/3);I3++) {
1295
J3 = 8-(I2)-(I3) ;
1296
S1++;
1297
J3 = -(8)-2*(I2)+2*I3 ;
1298
S2++;
1299
}
1300
}
1301
if (3%2 == 0) {
1302
for (I3=8-2*(3/2);I3<=floord(8+2*3/2-1,2);I3++) {
1303
J3 = 8-(I2)-(I3) ;
1304
S1++;
1305
}
1306
for (I3=ceild(8+2*3/2,2);I3<=floord(2*8+3/2-1,3);I3++) {
1307
J3 = -(8)-2*(I2)+2*I3 ;
1308
S2++;
1309
J3 = 8-(I2)-(I3) ;
1310
S1++;
1311
}
1312
if ((2*8+3/2)%3 == 0) {
1313
I3 = (2*8+3/2)/3 ;
1314
J1 = -2*(8)+3*I3 ;
1315
if ((2*8+J1)%3 == 0) {
1316
J2 = (2*8+J1)/3 ;
1317
J3 = 3*8-4*J2 ;
1318
S1++;
1319
S2++;
1320
}
1321
}
1322
for (I3=ceild(2*8+3/2+1,3);I3<=8-(3/2);I3++) {
1323
J3 = 8-(I2)-(I3) ;
1324
S1++;
1325
J3 = -(8)-2*(I2)+2*I3 ;
1326
S2++;
1327
}
1328
}
1329
for (I3=2*2;I3<=floord(6*2-1,2);I3++) {
1330
J3 = 8-(I2)-(I3) ;
1331
S1++;
1332
}
1333
if (3*8%4 == 0) {
1334
I3 = 3*8/4 ;
1335
J1 = -2*(8)+3*I3 ;
1336
if ((2*8+J1)%3 == 0) {
1337
J2 = (2*8+J1)/3 ;
1338
J3 = 3*8-4*J2 ;
1339
S1++;
1340
S2++;
1341
}
1342
}
1343
for (I3=3*2+1;I3<=min(N1,floord(11*2,3));I3++) {
1344
J3 = -(8)-2*(I2)+2*I3 ;
1345
S2++;
1346
}
1347
for (I2=3;I2<=7;I2++) {
1348
for (I3=max(max(1,ceild(8-I2,2)),8-2*I2);I3<=8-I2;I3++) {
1349
J3 = 8-(I2)-(I3) ;
1350
S1++;
1351
}
1352
for (I3=max(8-I2+1,ceild(8+2*I2,2));I3<=min(N1,floord(2*8+3*I2,3));I3++) {
1353
J3 = -(8)-2*(I2)+2*I3 ;
1354
S2++;
1355
}
1356
}
1357
for (I2=8;I2<=N1-4;I2++) {
1358
for (I3=ceild(8+2*I2,2);I3<=min(N1,floord(2*8+3*I2,3));I3++) {
1359
J3 = -(8)-2*(I2)+2*I3 ;
1360
S2++;
1361
}
1362
}
1363
}
1364
if ((N1 <= 11) && (N1 >= 11)) {
1365
for (I3=ceild(8+2*1,2);I3<=8-2*(1)-1;I3++) {
1366
J3 = -(8)-2*(I2)+2*I3 ;
1367
S2++;
1368
}
1369
for (I3=8-2*(1);I3<=floord(2*8+3*1,3);I3++) {
1370
J3 = 8-(I2)-(I3) ;
1371
S1++;
1372
J3 = -(8)-2*(I2)+2*I3 ;
1373
S2++;
1374
}
1375
for (I3=ceild(2*8+3*1+1,3);I3<=min(N1,8-(1));I3++) {
1376
J3 = 8-(I2)-(I3) ;
1377
S1++;
1378
}
1379
if (4%3 == 0) {
1380
for (I3=4*4/3;I3<=floord(13*4/3-1,3);I3++) {
1381
J3 = -(8)-2*(I2)+2*I3 ;
1382
S2++;
1383
J3 = 8-(I2)-(I3) ;
1384
S1++;
1385
}
1386
if (13*8%18 == 0) {
1387
I3 = 13*8/18 ;
1388
J1 = -2*(8)+3*I3 ;
1389
if ((2*8+J1)%3 == 0) {
1390
J2 = (2*8+J1)/3 ;
1391
J3 = 3*8-4*J2 ;
1392
S1++;
1393
S2++;
1394
}
1395
}
1396
for (I3=ceild(13*4/3+1,3);I3<=min(N1,5*4/3);I3++) {
1397
J3 = 8-(I2)-(I3) ;
1398
S1++;
1399
J3 = -(8)-2*(I2)+2*I3 ;
1400
S2++;
1401
}
1402
}
1403
if (3%2 == 0) {
1404
for (I3=8-2*(3/2);I3<=floord(8+2*3/2-1,2);I3++) {
1405
J3 = 8-(I2)-(I3) ;
1406
S1++;
1407
}
1408
for (I3=ceild(8+2*3/2,2);I3<=floord(2*8+3/2-1,3);I3++) {
1409
J3 = -(8)-2*(I2)+2*I3 ;
1410
S2++;
1411
J3 = 8-(I2)-(I3) ;
1412
S1++;
1413
}
1414
if ((2*8+3/2)%3 == 0) {
1415
I3 = (2*8+3/2)/3 ;
1416
J1 = -2*(8)+3*I3 ;
1417
if ((2*8+J1)%3 == 0) {
1418
J2 = (2*8+J1)/3 ;
1419
J3 = 3*8-4*J2 ;
1420
S1++;
1421
S2++;
1422
}
1423
}
1424
for (I3=ceild(2*8+3/2+1,3);I3<=8-(3/2);I3++) {
1425
J3 = 8-(I2)-(I3) ;
1426
S1++;
1427
J3 = -(8)-2*(I2)+2*I3 ;
1428
S2++;
1429
}
1430
}
1431
for (I3=2*2;I3<=floord(6*2-1,2);I3++) {
1432
J3 = 8-(I2)-(I3) ;
1433
S1++;
1434
}
1435
if (3*8%4 == 0) {
1436
I3 = 3*8/4 ;
1437
J1 = -2*(8)+3*I3 ;
1438
if ((2*8+J1)%3 == 0) {
1439
J2 = (2*8+J1)/3 ;
1440
J3 = 3*8-4*J2 ;
1441
S1++;
1442
S2++;
1443
}
1444
}
1445
for (I3=3*2+1;I3<=min(N1,floord(11*2,3));I3++) {
1446
J3 = -(8)-2*(I2)+2*I3 ;
1447
S2++;
1448
}
1449
for (I2=3;I2<=7;I2++) {
1450
for (I3=max(max(1,ceild(8-I2,2)),8-2*I2);I3<=8-I2;I3++) {
1451
J3 = 8-(I2)-(I3) ;
1452
S1++;
1453
}
1454
for (I3=max(8-I2+1,ceild(8+2*I2,2));I3<=min(N1,floord(2*8+3*I2,3));I3++) {
1455
J3 = -(8)-2*(I2)+2*I3 ;
1456
S2++;
1457
}
1458
}
1459
}
1460
if ((N1 <= 7) && (N1 >= 6)) {
1461
for (I3=4*1;I3<=floord(13*1-1,3);I3++) {
1462
J3 = -(6)-2*(I2)+2*I3 ;
1463
S2++;
1464
J3 = 6-(I2)-(I3) ;
1465
S1++;
1466
}
1467
if (13*6%18 == 0) {
1468
I3 = 13*6/18 ;
1469
J1 = -2*(6)+3*I3 ;
1470
if ((2*6+J1)%3 == 0) {
1471
J2 = (2*6+J1)/3 ;
1472
J3 = 3*6-4*J2 ;
1473
S1++;
1474
S2++;
1475
}
1476
}
1477
for (I3=ceild(13*1+1,3);I3<=min(N1,5*1);I3++) {
1478
J3 = 6-(I2)-(I3) ;
1479
S1++;
1480
J3 = -(6)-2*(I2)+2*I3 ;
1481
S2++;
1482
}
1483
if (5%4 == 0) {
1484
for (I3=2*5/4+1;I3<=3*5/4;I3++) {
1485
J3 = 6-(I2)-(I3) ;
1486
S1++;
1487
}
1488
if ((9*6-1)%12 == 0) {
1489
I3 = (9*6-1)/12 ;
1490
J1 = -2*(6)+3*I3 ;
1491
if ((2*6+J1)%3 == 0) {
1492
J2 = (2*6+J1)/3 ;
1493
J3 = 3*6-4*J2 ;
1494
S1++;
1495
S2++;
1496
}
1497
}
1498
if ((3*6+1)%4 == 0) {
1499
I3 = (3*6+1)/4 ;
1500
J3 = 6-(I2)-(I3) ;
1501
S1++;
1502
J3 = -(6)-2*(I2)+2*I3 ;
1503
S2++;
1504
}
1505
}
1506
if (3%2 == 0) {
1507
for (I3=2*3/2;I3<=floord(6*3/2-1,2);I3++) {
1508
J3 = 6-(I2)-(I3) ;
1509
S1++;
1510
}
1511
if (3*6%4 == 0) {
1512
I3 = 3*6/4 ;
1513
J1 = -2*(6)+3*I3 ;
1514
if ((2*6+J1)%3 == 0) {
1515
J2 = (2*6+J1)/3 ;
1516
J3 = 3*6-4*J2 ;
1517
S1++;
1518
S2++;
1519
}
1520
}
1521
for (I3=3*3/2+1;I3<=min(N1,floord(11*3/2,3));I3++) {
1522
J3 = -(6)-2*(I2)+2*I3 ;
1523
S2++;
1524
}
1525
}
1526
for (I2=2;I2<=N1-3;I2++) {
1527
for (I3=max(max(1,ceild(6-I2,2)),6-2*I2);I3<=6-I2;I3++) {
1528
J3 = 6-(I2)-(I3) ;
1529
S1++;
1530
}
1531
for (I3=max(6-I2+1,ceild(6+2*I2,2));I3<=min(N1,floord(2*6+3*I2,3));I3++) {
1532
J3 = -(6)-2*(I2)+2*I3 ;
1533
S2++;
1534
}
1535
}
1536
for (I2=ceild(2*N1-5,2);I2<=5;I2++) {
1537
for (I3=max(max(ceild(6-I2,2),6-2*I2),1);I3<=min(6-I2,N1);I3++) {
1538
J3 = 6-(I2)-(I3) ;
1539
S1++;
1540
}
1541
}
1542
}
1543
if ((N1 <= 5) && (N1 >= 5)) {
1544
for (I3=4*1;I3<=floord(13*1-1,3);I3++) {
1545
J3 = -(6)-2*(I2)+2*I3 ;
1546
S2++;
1547
J3 = 6-(I2)-(I3) ;
1548
S1++;
1549
}
1550
if (13*6%18 == 0) {
1551
I3 = 13*6/18 ;
1552
J1 = -2*(6)+3*I3 ;
1553
if ((2*6+J1)%3 == 0) {
1554
J2 = (2*6+J1)/3 ;
1555
J3 = 3*6-4*J2 ;
1556
S1++;
1557
S2++;
1558
}
1559
}
1560
for (I3=ceild(13*1+1,3);I3<=min(N1,5*1);I3++) {
1561
J3 = 6-(I2)-(I3) ;
1562
S1++;
1563
J3 = -(6)-2*(I2)+2*I3 ;
1564
S2++;
1565
}
1566
if (5%4 == 0) {
1567
for (I3=2*5/4+1;I3<=3*5/4;I3++) {
1568
J3 = 6-(I2)-(I3) ;
1569
S1++;
1570
}
1571
if ((9*6-1)%12 == 0) {
1572
I3 = (9*6-1)/12 ;
1573
J1 = -2*(6)+3*I3 ;
1574
if ((2*6+J1)%3 == 0) {
1575
J2 = (2*6+J1)/3 ;
1576
J3 = 3*6-4*J2 ;
1577
S1++;
1578
S2++;
1579
}
1580
}
1581
if ((3*6+1)%4 == 0) {
1582
I3 = (3*6+1)/4 ;
1583
J3 = 6-(I2)-(I3) ;
1584
S1++;
1585
J3 = -(6)-2*(I2)+2*I3 ;
1586
S2++;
1587
}
1588
}
1589
for (I2=-N1+7;I2<=N1-3;I2++) {
1590
for (I3=max(max(1,ceild(6-I2,2)),6-2*I2);I3<=6-I2;I3++) {
1591
J3 = 6-(I2)-(I3) ;
1592
S1++;
1593
}
1594
for (I3=max(6-I2+1,ceild(6+2*I2,2));I3<=min(N1,floord(2*6+3*I2,3));I3++) {
1595
J3 = -(6)-2*(I2)+2*I3 ;
1596
S2++;
1597
}
1598
}
1599
for (I2=ceild(2*N1-5,2);I2<=5;I2++) {
1600
for (I3=max(max(ceild(6-I2,2),6-2*I2),1);I3<=min(6-I2,N1);I3++) {
1601
J3 = 6-(I2)-(I3) ;
1602
S1++;
1603
}
1604
}
1605
}
1606
if ((N1 <= 4) && (N1 >= 3)) {
1607
if (4*N1%3 == 0) {
1608
I1 = 4*N1/3 ;
1609
if (N1%3 == 0) {
1610
for (I3=ceild(2*N1,3);I3<=floord(2*N1-1,2);I3++) {
1611
J3 = I1-(I2)-(I3) ;
1612
S1++;
1613
}
1614
J1 = -2*I1+3*N1 ;
1615
if ((2*I1+J1)%3 == 0) {
1616
J2 = (2*I1+J1)/3 ;
1617
J3 = 3*I1-4*J2 ;
1618
S1++;
1619
S2++;
1620
}
1621
}
1622
for (I2=ceild(2*N1+3,6);I2<=N1;I2++) {
1623
for (I3=max(max(ceild(I1-I2,2),I1-2*I2),1);I3<=min(I1-I2,N1);I3++) {
1624
J3 = I1-(I2)-(I3) ;
1625
S1++;
1626
}
1627
}
1628
}
1629
}
1630
if ((N1 <= 9) && (N1 >= 7)) {
1631
J1 = -2*(7)+3*5 ;
1632
if ((2*7+J1)%3 == 0) {
1633
J2 = (2*7+J1)/3 ;
1634
J3 = 3*7-4*J2 ;
1635
S1++;
1636
S2++;
1637
}
1638
for (I3=6;I3<=5;I3++) {
1639
J3 = 7-(I2)-(I3) ;
1640
S1++;
1641
J3 = -(7)-2*(I2)+2*I3 ;
1642
S2++;
1643
}
1644
J3 = 7-(I2)-(I3) ;
1645
S1++;
1646
if (7%6 == 0) {
1647
for (I3=4*7/6;I3<=floord(13*7/6-1,3);I3++) {
1648
J3 = -(7)-2*(I2)+2*I3 ;
1649
S2++;
1650
J3 = 7-(I2)-(I3) ;
1651
S1++;
1652
}
1653
if (13*7%18 == 0) {
1654
I3 = 13*7/18 ;
1655
J1 = -2*(7)+3*I3 ;
1656
if ((2*7+J1)%3 == 0) {
1657
J2 = (2*7+J1)/3 ;
1658
J3 = 3*7-4*J2 ;
1659
S1++;
1660
S2++;
1661
}
1662
}
1663
for (I3=ceild(13*7/6+1,3);I3<=min(N1,5*7/6);I3++) {
1664
J3 = 7-(I2)-(I3) ;
1665
S1++;
1666
J3 = -(7)-2*(I2)+2*I3 ;
1667
S2++;
1668
}
1669
}
1670
if (3%2 == 0) {
1671
for (I3=2*3/2+1;I3<=3*3/2;I3++) {
1672
J3 = 7-(I2)-(I3) ;
1673
S1++;
1674
}
1675
if ((9*7-1)%12 == 0) {
1676
I3 = (9*7-1)/12 ;
1677
J1 = -2*(7)+3*I3 ;
1678
if ((2*7+J1)%3 == 0) {
1679
J2 = (2*7+J1)/3 ;
1680
J3 = 3*7-4*J2 ;
1681
S1++;
1682
S2++;
1683
}
1684
}
1685
if ((3*7+1)%4 == 0) {
1686
I3 = (3*7+1)/4 ;
1687
J3 = 7-(I2)-(I3) ;
1688
S1++;
1689
J3 = -(7)-2*(I2)+2*I3 ;
1690
S2++;
1691
}
1692
}
1693
if (7%4 == 0) {
1694
for (I3=2*7/4;I3<=floord(6*7/4-1,2);I3++) {
1695
J3 = 7-(I2)-(I3) ;
1696
S1++;
1697
}
1698
if (3*7%4 == 0) {
1699
I3 = 3*7/4 ;
1700
J1 = -2*(7)+3*I3 ;
1701
if ((2*7+J1)%3 == 0) {
1702
J2 = (2*7+J1)/3 ;
1703
J3 = 3*7-4*J2 ;
1704
S1++;
1705
S2++;
1706
}
1707
}
1708
for (I3=3*7/4+1;I3<=min(N1,floord(11*7/4,3));I3++) {
1709
J3 = -(7)-2*(I2)+2*I3 ;
1710
S2++;
1711
}
1712
}
1713
for (I2=2;I2<=floord(2*N1-7,2);I2++) {
1714
for (I3=max(max(1,ceild(7-I2,2)),7-2*I2);I3<=7-I2;I3++) {
1715
J3 = 7-(I2)-(I3) ;
1716
S1++;
1717
}
1718
for (I3=max(7-I2+1,ceild(7+2*I2,2));I3<=min(N1,floord(2*7+3*I2,3));I3++) {
1719
J3 = -(7)-2*(I2)+2*I3 ;
1720
S2++;
1721
}
1722
}
1723
for (I2=N1-3;I2<=6;I2++) {
1724
for (I3=max(max(ceild(7-I2,2),7-2*I2),1);I3<=min(7-I2,N1);I3++) {
1725
J3 = 7-(I2)-(I3) ;
1726
S1++;
1727
}
1728
}
1729
}
1730
if (N1 == 6) {
1731
J1 = -2*(7)+3*5 ;
1732
if ((2*7+J1)%3 == 0) {
1733
J2 = (2*7+J1)/3 ;
1734
J3 = 3*7-4*J2 ;
1735
S1++;
1736
S2++;
1737
}
1738
for (I3=6;I3<=5;I3++) {
1739
J3 = 7-(I2)-(I3) ;
1740
S1++;
1741
J3 = -(7)-2*(I2)+2*I3 ;
1742
S2++;
1743
}
1744
J3 = 7-(I2)-(I3) ;
1745
S1++;
1746
if (7%6 == 0) {
1747
for (I3=4*7/6;I3<=floord(13*7/6-1,3);I3++) {
1748
J3 = -(7)-2*(I2)+2*I3 ;
1749
S2++;
1750
J3 = 7-(I2)-(I3) ;
1751
S1++;
1752
}
1753
if (13*7%18 == 0) {
1754
I3 = 13*7/18 ;
1755
J1 = -2*(7)+3*I3 ;
1756
if ((2*7+J1)%3 == 0) {
1757
J2 = (2*7+J1)/3 ;
1758
J3 = 3*7-4*J2 ;
1759
S1++;
1760
S2++;
1761
}
1762
}
1763
for (I3=ceild(13*7/6+1,3);I3<=min(N1,5*7/6);I3++) {
1764
J3 = 7-(I2)-(I3) ;
1765
S1++;
1766
J3 = -(7)-2*(I2)+2*I3 ;
1767
S2++;
1768
}
1769
}
1770
if (3%2 == 0) {
1771
for (I3=2*3/2+1;I3<=3*3/2;I3++) {
1772
J3 = 7-(I2)-(I3) ;
1773
S1++;
1774
}
1775
if ((9*7-1)%12 == 0) {
1776
I3 = (9*7-1)/12 ;
1777
J1 = -2*(7)+3*I3 ;
1778
if ((2*7+J1)%3 == 0) {
1779
J2 = (2*7+J1)/3 ;
1780
J3 = 3*7-4*J2 ;
1781
S1++;
1782
S2++;
1783
}
1784
}
1785
if ((3*7+1)%4 == 0) {
1786
I3 = (3*7+1)/4 ;
1787
J3 = 7-(I2)-(I3) ;
1788
S1++;
1789
J3 = -(7)-2*(I2)+2*I3 ;
1790
S2++;
1791
}
1792
}
1793
for (I3=max(max(1,ceild(7-(2),2)),7-2*(2));I3<=7-(2);I3++) {
1794
J3 = 7-(I2)-(I3) ;
1795
S1++;
1796
}
1797
for (I3=max(7-(2)+1,ceild(7+2*2,2));I3<=min(N1,floord(2*7+3*2,3));I3++) {
1798
J3 = -(7)-2*(I2)+2*I3 ;
1799
S2++;
1800
}
1801
for (I2=3;I2<=6;I2++) {
1802
for (I3=max(max(ceild(7-I2,2),7-2*I2),1);I3<=min(7-I2,N1);I3++) {
1803
J3 = 7-(I2)-(I3) ;
1804
S1++;
1805
}
1806
}
1807
}
1808
if (N1 == 5) {
1809
J1 = -2*(7)+3*5 ;
1810
if ((2*7+J1)%3 == 0) {
1811
J2 = (2*7+J1)/3 ;
1812
J3 = 3*7-4*J2 ;
1813
S1++;
1814
S2++;
1815
}
1816
for (I2=2;I2<=5;I2++) {
1817
for (I3=max(max(ceild(7-I2,2),7-2*I2),1);I3<=min(7-I2,N1);I3++) {
1818
J3 = 7-(I2)-(I3) ;
1819
S1++;
1820
}
1821
}
1822
}
1823
if (N1 >= 14) {
1824
for (I3=ceild(9+2*1,2);I3<=9-2*(1)-1;I3++) {
1825
J3 = -(9)-2*(I2)+2*I3 ;
1826
S2++;
1827
}
1828
for (I3=9-2*(1);I3<=floord(2*9+3*1,3);I3++) {
1829
J3 = 9-(I2)-(I3) ;
1830
S1++;
1831
J3 = -(9)-2*(I2)+2*I3 ;
1832
S2++;
1833
}
1834
for (I3=ceild(2*9+3*1+1,3);I3<=min(N1,9-(1));I3++) {
1835
J3 = 9-(I2)-(I3) ;
1836
S1++;
1837
}
1838
if (3%2 == 0) {
1839
for (I3=4*3/2;I3<=floord(13*3/2-1,3);I3++) {
1840
J3 = -(9)-2*(I2)+2*I3 ;
1841
S2++;
1842
J3 = 9-(I2)-(I3) ;
1843
S1++;
1844
}
1845
if (13*9%18 == 0) {
1846
I3 = 13*9/18 ;
1847
J1 = -2*(9)+3*I3 ;
1848
if ((2*9+J1)%3 == 0) {
1849
J2 = (2*9+J1)/3 ;
1850
J3 = 3*9-4*J2 ;
1851
S1++;
1852
S2++;
1853
}
1854
}
1855
for (I3=ceild(13*3/2+1,3);I3<=min(N1,5*3/2);I3++) {
1856
J3 = 9-(I2)-(I3) ;
1857
S1++;
1858
J3 = -(9)-2*(I2)+2*I3 ;
1859
S2++;
1860
}
1861
}
1862
for (I2=2;I2<=1;I2++) {
1863
for (I3=9-2*I2;I3<=floord(9+2*I2-1,2);I3++) {
1864
J3 = 9-(I2)-(I3) ;
1865
S1++;
1866
}
1867
for (I3=ceild(9+2*I2,2);I3<=floord(2*9+I2-1,3);I3++) {
1868
J3 = -(9)-2*(I2)+2*I3 ;
1869
S2++;
1870
J3 = 9-(I2)-(I3) ;
1871
S1++;
1872
}
1873
if ((2*9+I2)%3 == 0) {
1874
I3 = (2*9+I2)/3 ;
1875
J1 = -2*(9)+3*I3 ;
1876
if ((2*9+J1)%3 == 0) {
1877
J2 = (2*9+J1)/3 ;
1878
J3 = 3*9-4*J2 ;
1879
S1++;
1880
S2++;
1881
}
1882
}
1883
for (I3=ceild(2*9+I2+1,3);I3<=9-I2;I3++) {
1884
J3 = 9-(I2)-(I3) ;
1885
S1++;
1886
J3 = -(9)-2*(I2)+2*I3 ;
1887
S2++;
1888
}
1889
}
1890
for (I3=2*2+1;I3<=3*2;I3++) {
1891
J3 = 9-(I2)-(I3) ;
1892
S1++;
1893
}
1894
if ((9*9-1)%12 == 0) {
1895
I3 = (9*9-1)/12 ;
1896
J1 = -2*(9)+3*I3 ;
1897
if ((2*9+J1)%3 == 0) {
1898
J2 = (2*9+J1)/3 ;
1899
J3 = 3*9-4*J2 ;
1900
S1++;
1901
S2++;
1902
}
1903
}
1904
if ((3*9+1)%4 == 0) {
1905
I3 = (3*9+1)/4 ;
1906
J3 = 9-(I2)-(I3) ;
1907
S1++;
1908
J3 = -(9)-2*(I2)+2*I3 ;
1909
S2++;
1910
}
1911
for (I3=3*2+2;I3<=min(N1,floord(11*2+2,3));I3++) {
1912
J3 = -(9)-2*(I2)+2*I3 ;
1913
S2++;
1914
}
1915
if (9%4 == 0) {
1916
for (I3=2*9/4;I3<=floord(6*9/4-1,2);I3++) {
1917
J3 = 9-(I2)-(I3) ;
1918
S1++;
1919
}
1920
if (3*9%4 == 0) {
1921
I3 = 3*9/4 ;
1922
J1 = -2*(9)+3*I3 ;
1923
if ((2*9+J1)%3 == 0) {
1924
J2 = (2*9+J1)/3 ;
1925
J3 = 3*9-4*J2 ;
1926
S1++;
1927
S2++;
1928
}
1929
}
1930
for (I3=3*9/4+1;I3<=min(N1,floord(11*9/4,3));I3++) {
1931
J3 = -(9)-2*(I2)+2*I3 ;
1932
S2++;
1933
}
1934
}
1935
for (I2=3;I2<=8;I2++) {
1936
for (I3=max(max(1,ceild(9-I2,2)),9-2*I2);I3<=9-I2;I3++) {
1937
J3 = 9-(I2)-(I3) ;
1938
S1++;
1939
}
1940
for (I3=max(9-I2+1,ceild(9+2*I2,2));I3<=min(N1,floord(2*9+3*I2,3));I3++) {
1941
J3 = -(9)-2*(I2)+2*I3 ;
1942
S2++;
1943
}
1944
}
1945
for (I2=9;I2<=floord(2*N1-9,2);I2++) {
1946
for (I3=ceild(9+2*I2,2);I3<=min(N1,floord(2*9+3*I2,3));I3++) {
1947
J3 = -(9)-2*(I2)+2*I3 ;
1948
S2++;
1949
}
1950
}
1951
}
1952
if ((N1 <= 13) && (N1 >= 13)) {
1953
for (I3=ceild(9+2*1,2);I3<=9-2*(1)-1;I3++) {
1954
J3 = -(9)-2*(I2)+2*I3 ;
1955
S2++;
1956
}
1957
for (I3=9-2*(1);I3<=floord(2*9+3*1,3);I3++) {
1958
J3 = 9-(I2)-(I3) ;
1959
S1++;
1960
J3 = -(9)-2*(I2)+2*I3 ;
1961
S2++;
1962
}
1963
for (I3=ceild(2*9+3*1+1,3);I3<=min(N1,9-(1));I3++) {
1964
J3 = 9-(I2)-(I3) ;
1965
S1++;
1966
}
1967
if (3%2 == 0) {
1968
for (I3=4*3/2;I3<=floord(13*3/2-1,3);I3++) {
1969
J3 = -(9)-2*(I2)+2*I3 ;
1970
S2++;
1971
J3 = 9-(I2)-(I3) ;
1972
S1++;
1973
}
1974
if (13*9%18 == 0) {
1975
I3 = 13*9/18 ;
1976
J1 = -2*(9)+3*I3 ;
1977
if ((2*9+J1)%3 == 0) {
1978
J2 = (2*9+J1)/3 ;
1979
J3 = 3*9-4*J2 ;
1980
S1++;
1981
S2++;
1982
}
1983
}
1984
for (I3=ceild(13*3/2+1,3);I3<=min(N1,5*3/2);I3++) {
1985
J3 = 9-(I2)-(I3) ;
1986
S1++;
1987
J3 = -(9)-2*(I2)+2*I3 ;
1988
S2++;
1989
}
1990
}
1991
for (I2=2;I2<=1;I2++) {
1992
for (I3=9-2*I2;I3<=floord(9+2*I2-1,2);I3++) {
1993
J3 = 9-(I2)-(I3) ;
1994
S1++;
1995
}
1996
for (I3=ceild(9+2*I2,2);I3<=floord(2*9+I2-1,3);I3++) {
1997
J3 = -(9)-2*(I2)+2*I3 ;
1998
S2++;
1999
J3 = 9-(I2)-(I3) ;
2000
S1++;
2001
}
2002
if ((2*9+I2)%3 == 0) {
2003
I3 = (2*9+I2)/3 ;
2004
J1 = -2*(9)+3*I3 ;
2005
if ((2*9+J1)%3 == 0) {
2006
J2 = (2*9+J1)/3 ;
2007
J3 = 3*9-4*J2 ;
2008
S1++;
2009
S2++;
2010
}
2011
}
2012
for (I3=ceild(2*9+I2+1,3);I3<=9-I2;I3++) {
2013
J3 = 9-(I2)-(I3) ;
2014
S1++;
2015
J3 = -(9)-2*(I2)+2*I3 ;
2016
S2++;
2017
}
2018
}
2019
for (I3=2*2+1;I3<=3*2;I3++) {
2020
J3 = 9-(I2)-(I3) ;
2021
S1++;
2022
}
2023
if ((9*9-1)%12 == 0) {
2024
I3 = (9*9-1)/12 ;
2025
J1 = -2*(9)+3*I3 ;
2026
if ((2*9+J1)%3 == 0) {
2027
J2 = (2*9+J1)/3 ;
2028
J3 = 3*9-4*J2 ;
2029
S1++;
2030
S2++;
2031
}
2032
}
2033
if ((3*9+1)%4 == 0) {
2034
I3 = (3*9+1)/4 ;
2035
J3 = 9-(I2)-(I3) ;
2036
S1++;
2037
J3 = -(9)-2*(I2)+2*I3 ;
2038
S2++;
2039
}
2040
for (I3=3*2+2;I3<=min(N1,floord(11*2+2,3));I3++) {
2041
J3 = -(9)-2*(I2)+2*I3 ;
2042
S2++;
2043
}
2044
if (9%4 == 0) {
2045
for (I3=2*9/4;I3<=floord(6*9/4-1,2);I3++) {
2046
J3 = 9-(I2)-(I3) ;
2047
S1++;
2048
}
2049
if (3*9%4 == 0) {
2050
I3 = 3*9/4 ;
2051
J1 = -2*(9)+3*I3 ;
2052
if ((2*9+J1)%3 == 0) {
2053
J2 = (2*9+J1)/3 ;
2054
J3 = 3*9-4*J2 ;
2055
S1++;
2056
S2++;
2057
}
2058
}
2059
for (I3=3*9/4+1;I3<=min(N1,floord(11*9/4,3));I3++) {
2060
J3 = -(9)-2*(I2)+2*I3 ;
2061
S2++;
2062
}
2063
}
2064
for (I2=3;I2<=8;I2++) {
2065
for (I3=max(max(1,ceild(9-I2,2)),9-2*I2);I3<=9-I2;I3++) {
2066
J3 = 9-(I2)-(I3) ;
2067
S1++;
2068
}
2069
for (I3=max(9-I2+1,ceild(9+2*I2,2));I3<=min(N1,floord(2*9+3*I2,3));I3++) {
2070
J3 = -(9)-2*(I2)+2*I3 ;
2071
S2++;
2072
}
2073
}
2074
}
2075
if ((N1 <= 4) && (N1 >= 4)) {
2076
if ((4*N1+1)%3 == 0) {
2077
I1 = (4*N1+1)/3 ;
2078
for (I2=ceild(N1+1,3);I2<=N1;I2++) {
2079
for (I3=max(max(ceild(I1-I2,2),I1-2*I2),1);I3<=min(I1-I2,N1);I3++) {
2080
J3 = I1-(I2)-(I3) ;
2081
S1++;
2082
}
2083
}
2084
}
2085
}
2086
for (I1=10;I1<=min(11,floord(2*N1,3));I1++) {
2087
for (I2=1;I2<=floord(I1-1,9);I2++) {
2088
for (I3=ceild(I1+2*I2,2);I3<=min(I1-2*I2-1,floord(2*I1+3*I2,3));I3++) {
2089
J3 = -I1-2*(I2)+2*I3 ;
2090
S2++;
2091
}
2092
for (I3=I1-2*I2;I3<=min(N1,I1-I2);I3++) {
2093
J3 = I1-(I2)-(I3) ;
2094
S1++;
2095
}
2096
}
2097
for (I2=ceild(I1,9);I2<=floord(I1-1,7);I2++) {
2098
for (I3=ceild(I1+2*I2,2);I3<=I1-2*I2-1;I3++) {
2099
J3 = -I1-2*(I2)+2*I3 ;
2100
S2++;
2101
}
2102
for (I3=I1-2*I2;I3<=floord(2*I1+3*I2,3);I3++) {
2103
J3 = I1-(I2)-(I3) ;
2104
S1++;
2105
J3 = -I1-2*(I2)+2*I3 ;
2106
S2++;
2107
}
2108
for (I3=ceild(2*I1+3*I2+1,3);I3<=min(N1,I1-I2);I3++) {
2109
J3 = I1-(I2)-(I3) ;
2110
S1++;
2111
}
2112
}
2113
if (I1%6 == 0) {
2114
for (I3=4*I1/6;I3<=floord(13*I1/6-1,3);I3++) {
2115
J3 = -I1-2*(I2)+2*I3 ;
2116
S2++;
2117
J3 = I1-(I2)-(I3) ;
2118
S1++;
2119
}
2120
if (13*I1%18 == 0) {
2121
I3 = 13*I1/18 ;
2122
J1 = -2*I1+3*I3 ;
2123
if ((2*I1+J1)%3 == 0) {
2124
J2 = (2*I1+J1)/3 ;
2125
J3 = 3*I1-4*J2 ;
2126
S1++;
2127
S2++;
2128
}
2129
}
2130
for (I3=ceild(13*I1/6+1,3);I3<=min(N1,5*I1/6);I3++) {
2131
J3 = I1-(I2)-(I3) ;
2132
S1++;
2133
J3 = -I1-2*(I2)+2*I3 ;
2134
S2++;
2135
}
2136
}
2137
for (I2=ceild(I1+1,6);I2<=floord(I1+2,6);I2++) {
2138
for (I3=I1-2*I2;I3<=floord(I1+2*I2-1,2);I3++) {
2139
J3 = I1-(I2)-(I3) ;
2140
S1++;
2141
}
2142
for (I3=ceild(I1+2*I2,2);I3<=floord(2*I1+I2-1,3);I3++) {
2143
J3 = -I1-2*(I2)+2*I3 ;
2144
S2++;
2145
J3 = I1-(I2)-(I3) ;
2146
S1++;
2147
}
2148
if ((2*I1+I2)%3 == 0) {
2149
I3 = (2*I1+I2)/3 ;
2150
J1 = -2*I1+3*I3 ;
2151
if ((2*I1+J1)%3 == 0) {
2152
J2 = (2*I1+J1)/3 ;
2153
J3 = 3*I1-4*J2 ;
2154
S1++;
2155
S2++;
2156
}
2157
}
2158
for (I3=ceild(2*I1+I2+1,3);I3<=I1-I2;I3++) {
2159
J3 = I1-(I2)-(I3) ;
2160
S1++;
2161
J3 = -I1-2*(I2)+2*I3 ;
2162
S2++;
2163
}
2164
}
2165
if ((I1-1)%4 == 0) {
2166
I2 = (I1-1)/4 ;
2167
for (I3=2*I2+1;I3<=3*I2;I3++) {
2168
J3 = I1-(I2)-(I3) ;
2169
S1++;
2170
}
2171
if ((9*I1-1)%12 == 0) {
2172
I3 = (9*I1-1)/12 ;
2173
J1 = -2*I1+3*I3 ;
2174
if ((2*I1+J1)%3 == 0) {
2175
J2 = (2*I1+J1)/3 ;
2176
J3 = 3*I1-4*J2 ;
2177
S1++;
2178
S2++;
2179
}
2180
}
2181
if ((3*I1+1)%4 == 0) {
2182
I3 = (3*I1+1)/4 ;
2183
J3 = I1-(I2)-(I3) ;
2184
S1++;
2185
J3 = -I1-2*(I2)+2*I3 ;
2186
S2++;
2187
}
2188
for (I3=3*I2+2;I3<=min(N1,floord(11*I2+2,3));I3++) {
2189
J3 = -I1-2*(I2)+2*I3 ;
2190
S2++;
2191
}
2192
}
2193
if (I1%4 == 0) {
2194
for (I3=2*I1/4;I3<=floord(6*I1/4-1,2);I3++) {
2195
J3 = I1-(I2)-(I3) ;
2196
S1++;
2197
}
2198
if (3*I1%4 == 0) {
2199
I3 = 3*I1/4 ;
2200
J1 = -2*I1+3*I3 ;
2201
if ((2*I1+J1)%3 == 0) {
2202
J2 = (2*I1+J1)/3 ;
2203
J3 = 3*I1-4*J2 ;
2204
S1++;
2205
S2++;
2206
}
2207
}
2208
for (I3=3*I1/4+1;I3<=min(N1,floord(11*I1/4,3));I3++) {
2209
J3 = -I1-2*(I2)+2*I3 ;
2210
S2++;
2211
}
2212
}
2213
for (I2=ceild(I1+1,4);I2<=I1-1;I2++) {
2214
for (I3=max(max(1,ceild(I1-I2,2)),I1-2*I2);I3<=I1-I2;I3++) {
2215
J3 = I1-(I2)-(I3) ;
2216
S1++;
2217
}
2218
for (I3=max(I1-I2+1,ceild(I1+2*I2,2));I3<=min(N1,floord(2*I1+3*I2,3));I3++) {
2219
J3 = -I1-2*(I2)+2*I3 ;
2220
S2++;
2221
}
2222
}
2223
for (I2=I1;I2<=floord(-I1+2*N1,2);I2++) {
2224
for (I3=ceild(I1+2*I2,2);I3<=min(N1,floord(2*I1+3*I2,3));I3++) {
2225
J3 = -I1-2*(I2)+2*I3 ;
2226
S2++;
2227
}
2228
}
2229
}
2230
if ((N1 <= 10) && (N1 >= 8)) {
2231
for (I3=ceild(8+2*1,2);I3<=8-2*(1)-1;I3++) {
2232
J3 = -(8)-2*(I2)+2*I3 ;
2233
S2++;
2234
}
2235
for (I3=8-2*(1);I3<=floord(2*8+3*1,3);I3++) {
2236
J3 = 8-(I2)-(I3) ;
2237
S1++;
2238
J3 = -(8)-2*(I2)+2*I3 ;
2239
S2++;
2240
}
2241
for (I3=ceild(2*8+3*1+1,3);I3<=min(N1,8-(1));I3++) {
2242
J3 = 8-(I2)-(I3) ;
2243
S1++;
2244
}
2245
if (4%3 == 0) {
2246
for (I3=4*4/3;I3<=floord(13*4/3-1,3);I3++) {
2247
J3 = -(8)-2*(I2)+2*I3 ;
2248
S2++;
2249
J3 = 8-(I2)-(I3) ;
2250
S1++;
2251
}
2252
if (13*8%18 == 0) {
2253
I3 = 13*8/18 ;
2254
J1 = -2*(8)+3*I3 ;
2255
if ((2*8+J1)%3 == 0) {
2256
J2 = (2*8+J1)/3 ;
2257
J3 = 3*8-4*J2 ;
2258
S1++;
2259
S2++;
2260
}
2261
}
2262
for (I3=ceild(13*4/3+1,3);I3<=min(N1,5*4/3);I3++) {
2263
J3 = 8-(I2)-(I3) ;
2264
S1++;
2265
J3 = -(8)-2*(I2)+2*I3 ;
2266
S2++;
2267
}
2268
}
2269
if (3%2 == 0) {
2270
for (I3=8-2*(3/2);I3<=floord(8+2*3/2-1,2);I3++) {
2271
J3 = 8-(I2)-(I3) ;
2272
S1++;
2273
}
2274
for (I3=ceild(8+2*3/2,2);I3<=floord(2*8+3/2-1,3);I3++) {
2275
J3 = -(8)-2*(I2)+2*I3 ;
2276
S2++;
2277
J3 = 8-(I2)-(I3) ;
2278
S1++;
2279
}
2280
if ((2*8+3/2)%3 == 0) {
2281
I3 = (2*8+3/2)/3 ;
2282
J1 = -2*(8)+3*I3 ;
2283
if ((2*8+J1)%3 == 0) {
2284
J2 = (2*8+J1)/3 ;
2285
J3 = 3*8-4*J2 ;
2286
S1++;
2287
S2++;
2288
}
2289
}
2290
for (I3=ceild(2*8+3/2+1,3);I3<=8-(3/2);I3++) {
2291
J3 = 8-(I2)-(I3) ;
2292
S1++;
2293
J3 = -(8)-2*(I2)+2*I3 ;
2294
S2++;
2295
}
2296
}
2297
for (I3=2*2;I3<=floord(6*2-1,2);I3++) {
2298
J3 = 8-(I2)-(I3) ;
2299
S1++;
2300
}
2301
if (3*8%4 == 0) {
2302
I3 = 3*8/4 ;
2303
J1 = -2*(8)+3*I3 ;
2304
if ((2*8+J1)%3 == 0) {
2305
J2 = (2*8+J1)/3 ;
2306
J3 = 3*8-4*J2 ;
2307
S1++;
2308
S2++;
2309
}
2310
}
2311
for (I3=3*2+1;I3<=min(N1,floord(11*2,3));I3++) {
2312
J3 = -(8)-2*(I2)+2*I3 ;
2313
S2++;
2314
}
2315
for (I2=3;I2<=N1-4;I2++) {
2316
for (I3=max(max(1,ceild(8-I2,2)),8-2*I2);I3<=8-I2;I3++) {
2317
J3 = 8-(I2)-(I3) ;
2318
S1++;
2319
}
2320
for (I3=max(8-I2+1,ceild(8+2*I2,2));I3<=min(N1,floord(2*8+3*I2,3));I3++) {
2321
J3 = -(8)-2*(I2)+2*I3 ;
2322
S2++;
2323
}
2324
}
2325
for (I2=ceild(2*N1-7,2);I2<=7;I2++) {
2326
for (I3=max(max(ceild(8-I2,2),8-2*I2),1);I3<=min(8-I2,N1);I3++) {
2327
J3 = 8-(I2)-(I3) ;
2328
S1++;
2329
}
2330
}
2331
}
2332
if (N1 == 6) {
2333
for (I3=ceild(8+2*1,2);I3<=8-2*(1)-1;I3++) {
2334
J3 = -(8)-2*(I2)+2*I3 ;
2335
S2++;
2336
}
2337
for (I3=8-2*(1);I3<=N1;I3++) {
2338
J3 = 8-(I2)-(I3) ;
2339
S1++;
2340
J3 = -(8)-2*(I2)+2*I3 ;
2341
S2++;
2342
}
2343
for (I3=ceild(2*N1,3);I3<=floord(2*N1-1,2);I3++) {
2344
J3 = 8-(I2)-(I3) ;
2345
S1++;
2346
}
2347
J1 = -2*(8)+3*N1 ;
2348
if ((2*8+J1)%3 == 0) {
2349
J2 = (2*8+J1)/3 ;
2350
J3 = 3*8-4*J2 ;
2351
S1++;
2352
S2++;
2353
}
2354
for (I2=3;I2<=6;I2++) {
2355
for (I3=max(max(ceild(8-I2,2),8-2*I2),1);I3<=min(8-I2,N1);I3++) {
2356
J3 = 8-(I2)-(I3) ;
2357
S1++;
2358
}
2359
}
2360
}
2361
if (N1 == 4) {
2362
for (I3=6-2*(1);I3<=N1;I3++) {
2363
J3 = -(6)-2*(I2)+2*I3 ;
2364
S2++;
2365
J3 = 6-(I2)-(I3) ;
2366
S1++;
2367
}
2368
for (I2=2;I2<=4;I2++) {
2369
for (I3=max(max(ceild(6-I2,2),6-2*I2),1);I3<=min(6-I2,N1);I3++) {
2370
J3 = 6-(I2)-(I3) ;
2371
S1++;
2372
}
2373
}
2374
}
2375
if (N1 >= 18) {
2376
for (I3=ceild(12+2*1,2);I3<=min(12-2*(1)-1,floord(2*12+3*1,3));I3++) {
2377
J3 = -(12)-2*(I2)+2*I3 ;
2378
S2++;
2379
}
2380
for (I3=12-2*(1);I3<=min(N1,12-(1));I3++) {
2381
J3 = 12-(I2)-(I3) ;
2382
S1++;
2383
}
2384
for (I2=2;I2<=1;I2++) {
2385
for (I3=ceild(12+2*I2,2);I3<=12-2*I2-1;I3++) {
2386
J3 = -(12)-2*(I2)+2*I3 ;
2387
S2++;
2388
}
2389
for (I3=12-2*I2;I3<=floord(2*12+3*I2,3);I3++) {
2390
J3 = 12-(I2)-(I3) ;
2391
S1++;
2392
J3 = -(12)-2*(I2)+2*I3 ;
2393
S2++;
2394
}
2395
for (I3=ceild(2*12+3*I2+1,3);I3<=min(N1,12-I2);I3++) {
2396
J3 = 12-(I2)-(I3) ;
2397
S1++;
2398
}
2399
}
2400
for (I3=4*2;I3<=floord(13*2-1,3);I3++) {
2401
J3 = -(12)-2*(I2)+2*I3 ;
2402
S2++;
2403
J3 = 12-(I2)-(I3) ;
2404
S1++;
2405
}
2406
if (13*12%18 == 0) {
2407
I3 = 13*12/18 ;
2408
J1 = -2*(12)+3*I3 ;
2409
if ((2*12+J1)%3 == 0) {
2410
J2 = (2*12+J1)/3 ;
2411
J3 = 3*12-4*J2 ;
2412
S1++;
2413
S2++;
2414
}
2415
}
2416
for (I3=ceild(13*2+1,3);I3<=min(N1,5*2);I3++) {
2417
J3 = 12-(I2)-(I3) ;
2418
S1++;
2419
J3 = -(12)-2*(I2)+2*I3 ;
2420
S2++;
2421
}
2422
for (I2=3;I2<=2;I2++) {
2423
for (I3=12-2*I2;I3<=floord(12+2*I2-1,2);I3++) {
2424
J3 = 12-(I2)-(I3) ;
2425
S1++;
2426
}
2427
for (I3=ceild(12+2*I2,2);I3<=floord(2*12+I2-1,3);I3++) {
2428
J3 = -(12)-2*(I2)+2*I3 ;
2429
S2++;
2430
J3 = 12-(I2)-(I3) ;
2431
S1++;
2432
}
2433
if ((2*12+I2)%3 == 0) {
2434
I3 = (2*12+I2)/3 ;
2435
J1 = -2*(12)+3*I3 ;
2436
if ((2*12+J1)%3 == 0) {
2437
J2 = (2*12+J1)/3 ;
2438
J3 = 3*12-4*J2 ;
2439
S1++;
2440
S2++;
2441
}
2442
}
2443
for (I3=ceild(2*12+I2+1,3);I3<=12-I2;I3++) {
2444
J3 = 12-(I2)-(I3) ;
2445
S1++;
2446
J3 = -(12)-2*(I2)+2*I3 ;
2447
S2++;
2448
}
2449
}
2450
if (5%2 == 0) {
2451
for (I3=12-2*(5/2);I3<=floord(12+2*5/2-1,2);I3++) {
2452
J3 = 12-(I2)-(I3) ;
2453
S1++;
2454
}
2455
for (I3=ceild(12+2*5/2,2);I3<=floord(2*12+5/2-1,3);I3++) {
2456
J3 = -(12)-2*(I2)+2*I3 ;
2457
S2++;
2458
J3 = 12-(I2)-(I3) ;
2459
S1++;
2460
}
2461
if ((2*12+5/2)%3 == 0) {
2462
I3 = (2*12+5/2)/3 ;
2463
J1 = -2*(12)+3*I3 ;
2464
if ((2*12+J1)%3 == 0) {
2465
J2 = (2*12+J1)/3 ;
2466
J3 = 3*12-4*J2 ;
2467
S1++;
2468
S2++;
2469
}
2470
}
2471
for (I3=ceild(2*12+5/2+1,3);I3<=12-(5/2);I3++) {
2472
J3 = 12-(I2)-(I3) ;
2473
S1++;
2474
J3 = -(12)-2*(I2)+2*I3 ;
2475
S2++;
2476
}
2477
for (I3=12-(5/2)+1;I3<=min(N1,floord(2*12+3*5/2,3));I3++) {
2478
J3 = -(12)-2*(I2)+2*I3 ;
2479
S2++;
2480
}
2481
}
2482
if (11%4 == 0) {
2483
for (I3=2*11/4+1;I3<=3*11/4;I3++) {
2484
J3 = 12-(I2)-(I3) ;
2485
S1++;
2486
}
2487
if ((9*12-1)%12 == 0) {
2488
I3 = (9*12-1)/12 ;
2489
J1 = -2*(12)+3*I3 ;
2490
if ((2*12+J1)%3 == 0) {
2491
J2 = (2*12+J1)/3 ;
2492
J3 = 3*12-4*J2 ;
2493
S1++;
2494
S2++;
2495
}
2496
}
2497
if ((3*12+1)%4 == 0) {
2498
I3 = (3*12+1)/4 ;
2499
J3 = 12-(I2)-(I3) ;
2500
S1++;
2501
J3 = -(12)-2*(I2)+2*I3 ;
2502
S2++;
2503
}
2504
for (I3=3*11/4+2;I3<=min(N1,floord(11*11/4+2,3));I3++) {
2505
J3 = -(12)-2*(I2)+2*I3 ;
2506
S2++;
2507
}
2508
}
2509
for (I3=2*3;I3<=floord(6*3-1,2);I3++) {
2510
J3 = 12-(I2)-(I3) ;
2511
S1++;
2512
}
2513
if (3*12%4 == 0) {
2514
I3 = 3*12/4 ;
2515
J1 = -2*(12)+3*I3 ;
2516
if ((2*12+J1)%3 == 0) {
2517
J2 = (2*12+J1)/3 ;
2518
J3 = 3*12-4*J2 ;
2519
S1++;
2520
S2++;
2521
}
2522
}
2523
for (I3=3*3+1;I3<=min(N1,floord(11*3,3));I3++) {
2524
J3 = -(12)-2*(I2)+2*I3 ;
2525
S2++;
2526
}
2527
for (I2=4;I2<=11;I2++) {
2528
for (I3=max(max(1,ceild(12-I2,2)),12-2*I2);I3<=12-I2;I3++) {
2529
J3 = 12-(I2)-(I3) ;
2530
S1++;
2531
}
2532
for (I3=max(12-I2+1,ceild(12+2*I2,2));I3<=min(N1,floord(2*12+3*I2,3));I3++) {
2533
J3 = -(12)-2*(I2)+2*I3 ;
2534
S2++;
2535
}
2536
}
2537
for (I2=12;I2<=N1-6;I2++) {
2538
for (I3=ceild(12+2*I2,2);I3<=min(N1,floord(2*12+3*I2,3));I3++) {
2539
J3 = -(12)-2*(I2)+2*I3 ;
2540
S2++;
2541
}
2542
}
2543
}
2544
if ((N1 <= 17) && (N1 >= 17)) {
2545
for (I3=ceild(12+2*1,2);I3<=min(12-2*(1)-1,floord(2*12+3*1,3));I3++) {
2546
J3 = -(12)-2*(I2)+2*I3 ;
2547
S2++;
2548
}
2549
for (I3=12-2*(1);I3<=min(N1,12-(1));I3++) {
2550
J3 = 12-(I2)-(I3) ;
2551
S1++;
2552
}
2553
for (I2=2;I2<=1;I2++) {
2554
for (I3=ceild(12+2*I2,2);I3<=12-2*I2-1;I3++) {
2555
J3 = -(12)-2*(I2)+2*I3 ;
2556
S2++;
2557
}
2558
for (I3=12-2*I2;I3<=floord(2*12+3*I2,3);I3++) {
2559
J3 = 12-(I2)-(I3) ;
2560
S1++;
2561
J3 = -(12)-2*(I2)+2*I3 ;
2562
S2++;
2563
}
2564
for (I3=ceild(2*12+3*I2+1,3);I3<=min(N1,12-I2);I3++) {
2565
J3 = 12-(I2)-(I3) ;
2566
S1++;
2567
}
2568
}
2569
for (I3=4*2;I3<=floord(13*2-1,3);I3++) {
2570
J3 = -(12)-2*(I2)+2*I3 ;
2571
S2++;
2572
J3 = 12-(I2)-(I3) ;
2573
S1++;
2574
}
2575
if (13*12%18 == 0) {
2576
I3 = 13*12/18 ;
2577
J1 = -2*(12)+3*I3 ;
2578
if ((2*12+J1)%3 == 0) {
2579
J2 = (2*12+J1)/3 ;
2580
J3 = 3*12-4*J2 ;
2581
S1++;
2582
S2++;
2583
}
2584
}
2585
for (I3=ceild(13*2+1,3);I3<=min(N1,5*2);I3++) {
2586
J3 = 12-(I2)-(I3) ;
2587
S1++;
2588
J3 = -(12)-2*(I2)+2*I3 ;
2589
S2++;
2590
}
2591
for (I2=3;I2<=2;I2++) {
2592
for (I3=12-2*I2;I3<=floord(12+2*I2-1,2);I3++) {
2593
J3 = 12-(I2)-(I3) ;
2594
S1++;
2595
}
2596
for (I3=ceild(12+2*I2,2);I3<=floord(2*12+I2-1,3);I3++) {
2597
J3 = -(12)-2*(I2)+2*I3 ;
2598
S2++;
2599
J3 = 12-(I2)-(I3) ;
2600
S1++;
2601
}
2602
if ((2*12+I2)%3 == 0) {
2603
I3 = (2*12+I2)/3 ;
2604
J1 = -2*(12)+3*I3 ;
2605
if ((2*12+J1)%3 == 0) {
2606
J2 = (2*12+J1)/3 ;
2607
J3 = 3*12-4*J2 ;
2608
S1++;
2609
S2++;
2610
}
2611
}
2612
for (I3=ceild(2*12+I2+1,3);I3<=12-I2;I3++) {
2613
J3 = 12-(I2)-(I3) ;
2614
S1++;
2615
J3 = -(12)-2*(I2)+2*I3 ;
2616
S2++;
2617
}
2618
}
2619
if (5%2 == 0) {
2620
for (I3=12-2*(5/2);I3<=floord(12+2*5/2-1,2);I3++) {
2621
J3 = 12-(I2)-(I3) ;
2622
S1++;
2623
}
2624
for (I3=ceild(12+2*5/2,2);I3<=floord(2*12+5/2-1,3);I3++) {
2625
J3 = -(12)-2*(I2)+2*I3 ;
2626
S2++;
2627
J3 = 12-(I2)-(I3) ;
2628
S1++;
2629
}
2630
if ((2*12+5/2)%3 == 0) {
2631
I3 = (2*12+5/2)/3 ;
2632
J1 = -2*(12)+3*I3 ;
2633
if ((2*12+J1)%3 == 0) {
2634
J2 = (2*12+J1)/3 ;
2635
J3 = 3*12-4*J2 ;
2636
S1++;
2637
S2++;
2638
}
2639
}
2640
for (I3=ceild(2*12+5/2+1,3);I3<=12-(5/2);I3++) {
2641
J3 = 12-(I2)-(I3) ;
2642
S1++;
2643
J3 = -(12)-2*(I2)+2*I3 ;
2644
S2++;
2645
}
2646
for (I3=12-(5/2)+1;I3<=min(N1,floord(2*12+3*5/2,3));I3++) {
2647
J3 = -(12)-2*(I2)+2*I3 ;
2648
S2++;
2649
}
2650
}
2651
if (11%4 == 0) {
2652
for (I3=2*11/4+1;I3<=3*11/4;I3++) {
2653
J3 = 12-(I2)-(I3) ;
2654
S1++;
2655
}
2656
if ((9*12-1)%12 == 0) {
2657
I3 = (9*12-1)/12 ;
2658
J1 = -2*(12)+3*I3 ;
2659
if ((2*12+J1)%3 == 0) {
2660
J2 = (2*12+J1)/3 ;
2661
J3 = 3*12-4*J2 ;
2662
S1++;
2663
S2++;
2664
}
2665
}
2666
if ((3*12+1)%4 == 0) {
2667
I3 = (3*12+1)/4 ;
2668
J3 = 12-(I2)-(I3) ;
2669
S1++;
2670
J3 = -(12)-2*(I2)+2*I3 ;
2671
S2++;
2672
}
2673
for (I3=3*11/4+2;I3<=min(N1,floord(11*11/4+2,3));I3++) {
2674
J3 = -(12)-2*(I2)+2*I3 ;
2675
S2++;
2676
}
2677
}
2678
for (I3=2*3;I3<=floord(6*3-1,2);I3++) {
2679
J3 = 12-(I2)-(I3) ;
2680
S1++;
2681
}
2682
if (3*12%4 == 0) {
2683
I3 = 3*12/4 ;
2684
J1 = -2*(12)+3*I3 ;
2685
if ((2*12+J1)%3 == 0) {
2686
J2 = (2*12+J1)/3 ;
2687
J3 = 3*12-4*J2 ;
2688
S1++;
2689
S2++;
2690
}
2691
}
2692
for (I3=3*3+1;I3<=min(N1,floord(11*3,3));I3++) {
2693
J3 = -(12)-2*(I2)+2*I3 ;
2694
S2++;
2695
}
2696
for (I2=4;I2<=11;I2++) {
2697
for (I3=max(max(1,ceild(12-I2,2)),12-2*I2);I3<=12-I2;I3++) {
2698
J3 = 12-(I2)-(I3) ;
2699
S1++;
2700
}
2701
for (I3=max(12-I2+1,ceild(12+2*I2,2));I3<=min(N1,floord(2*12+3*I2,3));I3++) {
2702
J3 = -(12)-2*(I2)+2*I3 ;
2703
S2++;
2704
}
2705
}
2706
}
2707
for (I1=max(10,ceild(2*N1+1,3));I1<=min(11,floord(2*N1+2,3));I1++) {
2708
for (I2=1;I2<=floord(I1-1,9);I2++) {
2709
for (I3=ceild(I1+2*I2,2);I3<=min(I1-2*I2-1,floord(2*I1+3*I2,3));I3++) {
2710
J3 = -I1-2*(I2)+2*I3 ;
2711
S2++;
2712
}
2713
for (I3=I1-2*I2;I3<=min(N1,I1-I2);I3++) {
2714
J3 = I1-(I2)-(I3) ;
2715
S1++;
2716
}
2717
}
2718
for (I2=ceild(I1,9);I2<=floord(I1-1,7);I2++) {
2719
for (I3=ceild(I1+2*I2,2);I3<=I1-2*I2-1;I3++) {
2720
J3 = -I1-2*(I2)+2*I3 ;
2721
S2++;
2722
}
2723
for (I3=I1-2*I2;I3<=floord(2*I1+3*I2,3);I3++) {
2724
J3 = I1-(I2)-(I3) ;
2725
S1++;
2726
J3 = -I1-2*(I2)+2*I3 ;
2727
S2++;
2728
}
2729
for (I3=ceild(2*I1+3*I2+1,3);I3<=min(N1,I1-I2);I3++) {
2730
J3 = I1-(I2)-(I3) ;
2731
S1++;
2732
}
2733
}
2734
if (I1%6 == 0) {
2735
for (I3=4*I1/6;I3<=floord(13*I1/6-1,3);I3++) {
2736
J3 = -I1-2*(I2)+2*I3 ;
2737
S2++;
2738
J3 = I1-(I2)-(I3) ;
2739
S1++;
2740
}
2741
if (13*I1%18 == 0) {
2742
I3 = 13*I1/18 ;
2743
J1 = -2*I1+3*I3 ;
2744
if ((2*I1+J1)%3 == 0) {
2745
J2 = (2*I1+J1)/3 ;
2746
J3 = 3*I1-4*J2 ;
2747
S1++;
2748
S2++;
2749
}
2750
}
2751
for (I3=ceild(13*I1/6+1,3);I3<=min(N1,5*I1/6);I3++) {
2752
J3 = I1-(I2)-(I3) ;
2753
S1++;
2754
J3 = -I1-2*(I2)+2*I3 ;
2755
S2++;
2756
}
2757
}
2758
for (I2=ceild(I1+1,6);I2<=floord(I1+2,6);I2++) {
2759
for (I3=I1-2*I2;I3<=floord(I1+2*I2-1,2);I3++) {
2760
J3 = I1-(I2)-(I3) ;
2761
S1++;
2762
}
2763
for (I3=ceild(I1+2*I2,2);I3<=floord(2*I1+I2-1,3);I3++) {
2764
J3 = -I1-2*(I2)+2*I3 ;
2765
S2++;
2766
J3 = I1-(I2)-(I3) ;
2767
S1++;
2768
}
2769
if ((2*I1+I2)%3 == 0) {
2770
I3 = (2*I1+I2)/3 ;
2771
J1 = -2*I1+3*I3 ;
2772
if ((2*I1+J1)%3 == 0) {
2773
J2 = (2*I1+J1)/3 ;
2774
J3 = 3*I1-4*J2 ;
2775
S1++;
2776
S2++;
2777
}
2778
}
2779
for (I3=ceild(2*I1+I2+1,3);I3<=I1-I2;I3++) {
2780
J3 = I1-(I2)-(I3) ;
2781
S1++;
2782
J3 = -I1-2*(I2)+2*I3 ;
2783
S2++;
2784
}
2785
}
2786
if ((I1-1)%4 == 0) {
2787
I2 = (I1-1)/4 ;
2788
for (I3=2*I2+1;I3<=3*I2;I3++) {
2789
J3 = I1-(I2)-(I3) ;
2790
S1++;
2791
}
2792
if ((9*I1-1)%12 == 0) {
2793
I3 = (9*I1-1)/12 ;
2794
J1 = -2*I1+3*I3 ;
2795
if ((2*I1+J1)%3 == 0) {
2796
J2 = (2*I1+J1)/3 ;
2797
J3 = 3*I1-4*J2 ;
2798
S1++;
2799
S2++;
2800
}
2801
}
2802
if ((3*I1+1)%4 == 0) {
2803
I3 = (3*I1+1)/4 ;
2804
J3 = I1-(I2)-(I3) ;
2805
S1++;
2806
J3 = -I1-2*(I2)+2*I3 ;
2807
S2++;
2808
}
2809
for (I3=3*I2+2;I3<=min(N1,floord(11*I2+2,3));I3++) {
2810
J3 = -I1-2*(I2)+2*I3 ;
2811
S2++;
2812
}
2813
}
2814
if (I1%4 == 0) {
2815
for (I3=2*I1/4;I3<=floord(6*I1/4-1,2);I3++) {
2816
J3 = I1-(I2)-(I3) ;
2817
S1++;
2818
}
2819
if (3*I1%4 == 0) {
2820
I3 = 3*I1/4 ;
2821
J1 = -2*I1+3*I3 ;
2822
if ((2*I1+J1)%3 == 0) {
2823
J2 = (2*I1+J1)/3 ;
2824
J3 = 3*I1-4*J2 ;
2825
S1++;
2826
S2++;
2827
}
2828
}
2829
for (I3=3*I1/4+1;I3<=min(N1,floord(11*I1/4,3));I3++) {
2830
J3 = -I1-2*(I2)+2*I3 ;
2831
S2++;
2832
}
2833
}
2834
for (I2=ceild(I1+1,4);I2<=I1-1;I2++) {
2835
for (I3=max(max(1,ceild(I1-I2,2)),I1-2*I2);I3<=I1-I2;I3++) {
2836
J3 = I1-(I2)-(I3) ;
2837
S1++;
2838
}
2839
for (I3=max(I1-I2+1,ceild(I1+2*I2,2));I3<=min(N1,floord(2*I1+3*I2,3));I3++) {
2840
J3 = -I1-2*(I2)+2*I3 ;
2841
S2++;
2842
}
2843
}
2844
}
2845
if ((N1 <= 12) && (N1 >= 9)) {
2846
for (I3=ceild(9+2*1,2);I3<=9-2*(1)-1;I3++) {
2847
J3 = -(9)-2*(I2)+2*I3 ;
2848
S2++;
2849
}
2850
for (I3=9-2*(1);I3<=floord(2*9+3*1,3);I3++) {
2851
J3 = 9-(I2)-(I3) ;
2852
S1++;
2853
J3 = -(9)-2*(I2)+2*I3 ;
2854
S2++;
2855
}
2856
for (I3=ceild(2*9+3*1+1,3);I3<=min(N1,9-(1));I3++) {
2857
J3 = 9-(I2)-(I3) ;
2858
S1++;
2859
}
2860
if (3%2 == 0) {
2861
for (I3=4*3/2;I3<=floord(13*3/2-1,3);I3++) {
2862
J3 = -(9)-2*(I2)+2*I3 ;
2863
S2++;
2864
J3 = 9-(I2)-(I3) ;
2865
S1++;
2866
}
2867
if (13*9%18 == 0) {
2868
I3 = 13*9/18 ;
2869
J1 = -2*(9)+3*I3 ;
2870
if ((2*9+J1)%3 == 0) {
2871
J2 = (2*9+J1)/3 ;
2872
J3 = 3*9-4*J2 ;
2873
S1++;
2874
S2++;
2875
}
2876
}
2877
for (I3=ceild(13*3/2+1,3);I3<=min(N1,5*3/2);I3++) {
2878
J3 = 9-(I2)-(I3) ;
2879
S1++;
2880
J3 = -(9)-2*(I2)+2*I3 ;
2881
S2++;
2882
}
2883
}
2884
for (I2=max(2,-N1+10);I2<=1;I2++) {
2885
for (I3=9-2*I2;I3<=floord(9+2*I2-1,2);I3++) {
2886
J3 = 9-(I2)-(I3) ;
2887
S1++;
2888
}
2889
for (I3=ceild(9+2*I2,2);I3<=floord(2*9+I2-1,3);I3++) {
2890
J3 = -(9)-2*(I2)+2*I3 ;
2891
S2++;
2892
J3 = 9-(I2)-(I3) ;
2893
S1++;
2894
}
2895
if ((2*9+I2)%3 == 0) {
2896
I3 = (2*9+I2)/3 ;
2897
J1 = -2*(9)+3*I3 ;
2898
if ((2*9+J1)%3 == 0) {
2899
J2 = (2*9+J1)/3 ;
2900
J3 = 3*9-4*J2 ;
2901
S1++;
2902
S2++;
2903
}
2904
}
2905
for (I3=ceild(2*9+I2+1,3);I3<=9-I2;I3++) {
2906
J3 = 9-(I2)-(I3) ;
2907
S1++;
2908
J3 = -(9)-2*(I2)+2*I3 ;
2909
S2++;
2910
}
2911
}
2912
for (I3=2*2+1;I3<=3*2;I3++) {
2913
J3 = 9-(I2)-(I3) ;
2914
S1++;
2915
}
2916
if ((9*9-1)%12 == 0) {
2917
I3 = (9*9-1)/12 ;
2918
J1 = -2*(9)+3*I3 ;
2919
if ((2*9+J1)%3 == 0) {
2920
J2 = (2*9+J1)/3 ;
2921
J3 = 3*9-4*J2 ;
2922
S1++;
2923
S2++;
2924
}
2925
}
2926
if ((3*9+1)%4 == 0) {
2927
I3 = (3*9+1)/4 ;
2928
J3 = 9-(I2)-(I3) ;
2929
S1++;
2930
J3 = -(9)-2*(I2)+2*I3 ;
2931
S2++;
2932
}
2933
for (I3=3*2+2;I3<=min(N1,floord(11*2+2,3));I3++) {
2934
J3 = -(9)-2*(I2)+2*I3 ;
2935
S2++;
2936
}
2937
if (9%4 == 0) {
2938
for (I3=2*9/4;I3<=floord(6*9/4-1,2);I3++) {
2939
J3 = 9-(I2)-(I3) ;
2940
S1++;
2941
}
2942
if (3*9%4 == 0) {
2943
I3 = 3*9/4 ;
2944
J1 = -2*(9)+3*I3 ;
2945
if ((2*9+J1)%3 == 0) {
2946
J2 = (2*9+J1)/3 ;
2947
J3 = 3*9-4*J2 ;
2948
S1++;
2949
S2++;
2950
}
2951
}
2952
for (I3=3*9/4+1;I3<=min(N1,floord(11*9/4,3));I3++) {
2953
J3 = -(9)-2*(I2)+2*I3 ;
2954
S2++;
2955
}
2956
}
2957
for (I2=3;I2<=floord(2*N1-9,2);I2++) {
2958
for (I3=max(max(1,ceild(9-I2,2)),9-2*I2);I3<=9-I2;I3++) {
2959
J3 = 9-(I2)-(I3) ;
2960
S1++;
2961
}
2962
for (I3=max(9-I2+1,ceild(9+2*I2,2));I3<=min(N1,floord(2*9+3*I2,3));I3++) {
2963
J3 = -(9)-2*(I2)+2*I3 ;
2964
S2++;
2965
}
2966
}
2967
for (I2=N1-4;I2<=8;I2++) {
2968
for (I3=max(max(ceild(9-I2,2),9-2*I2),1);I3<=min(9-I2,N1);I3++) {
2969
J3 = 9-(I2)-(I3) ;
2970
S1++;
2971
}
2972
}
2973
}
2974
if (N1 == 8) {
2975
for (I3=ceild(9+2*1,2);I3<=9-2*(1)-1;I3++) {
2976
J3 = -(9)-2*(I2)+2*I3 ;
2977
S2++;
2978
}
2979
for (I3=9-2*(1);I3<=floord(2*9+3*1,3);I3++) {
2980
J3 = 9-(I2)-(I3) ;
2981
S1++;
2982
J3 = -(9)-2*(I2)+2*I3 ;
2983
S2++;
2984
}
2985
for (I3=ceild(2*9+3*1+1,3);I3<=min(N1,9-(1));I3++) {
2986
J3 = 9-(I2)-(I3) ;
2987
S1++;
2988
}
2989
if (3%2 == 0) {
2990
for (I3=4*3/2;I3<=floord(13*3/2-1,3);I3++) {
2991
J3 = -(9)-2*(I2)+2*I3 ;
2992
S2++;
2993
J3 = 9-(I2)-(I3) ;
2994
S1++;
2995
}
2996
if (13*9%18 == 0) {
2997
I3 = 13*9/18 ;
2998
J1 = -2*(9)+3*I3 ;
2999
if ((2*9+J1)%3 == 0) {
3000
J2 = (2*9+J1)/3 ;
3001
J3 = 3*9-4*J2 ;
3002
S1++;
3003
S2++;
3004
}
3005
}
3006
for (I3=ceild(13*3/2+1,3);I3<=min(N1,5*3/2);I3++) {
3007
J3 = 9-(I2)-(I3) ;
3008
S1++;
3009
J3 = -(9)-2*(I2)+2*I3 ;
3010
S2++;
3011
}
3012
}
3013
for (I3=2*2+1;I3<=3*2;I3++) {
3014
J3 = 9-(I2)-(I3) ;
3015
S1++;
3016
}
3017
if ((9*9-1)%12 == 0) {
3018
I3 = (9*9-1)/12 ;
3019
J1 = -2*(9)+3*I3 ;
3020
if ((2*9+J1)%3 == 0) {
3021
J2 = (2*9+J1)/3 ;
3022
J3 = 3*9-4*J2 ;
3023
S1++;
3024
S2++;
3025
}
3026
}
3027
if ((3*9+1)%4 == 0) {
3028
I3 = (3*9+1)/4 ;
3029
J3 = 9-(I2)-(I3) ;
3030
S1++;
3031
J3 = -(9)-2*(I2)+2*I3 ;
3032
S2++;
3033
}
3034
for (I3=3*2+2;I3<=min(N1,floord(11*2+2,3));I3++) {
3035
J3 = -(9)-2*(I2)+2*I3 ;
3036
S2++;
3037
}
3038
if (9%4 == 0) {
3039
for (I3=2*9/4;I3<=floord(6*9/4-1,2);I3++) {
3040
J3 = 9-(I2)-(I3) ;
3041
S1++;
3042
}
3043
if (3*9%4 == 0) {
3044
I3 = 3*9/4 ;
3045
J1 = -2*(9)+3*I3 ;
3046
if ((2*9+J1)%3 == 0) {
3047
J2 = (2*9+J1)/3 ;
3048
J3 = 3*9-4*J2 ;
3049
S1++;
3050
S2++;
3051
}
3052
}
3053
for (I3=3*9/4+1;I3<=min(N1,floord(11*9/4,3));I3++) {
3054
J3 = -(9)-2*(I2)+2*I3 ;
3055
S2++;
3056
}
3057
}
3058
for (I3=max(max(1,ceild(9-(3),2)),9-2*(3));I3<=9-(3);I3++) {
3059
J3 = 9-(I2)-(I3) ;
3060
S1++;
3061
}
3062
for (I3=max(9-(3)+1,ceild(9+2*3,2));I3<=min(N1,floord(2*9+3*3,3));I3++) {
3063
J3 = -(9)-2*(I2)+2*I3 ;
3064
S2++;
3065
}
3066
for (I2=4;I2<=8;I2++) {
3067
for (I3=max(max(ceild(9-I2,2),9-2*I2),1);I3<=min(9-I2,N1);I3++) {
3068
J3 = 9-(I2)-(I3) ;
3069
S1++;
3070
}
3071
}
3072
}
3073
for (I1=max(8,ceild(4*N1-13,2));I1<=floord(4*N1-4,3);I1++) {
3074
for (I2=1;I2<=floord(I1-1,7);I2++) {
3075
for (I3=ceild(I1+2*I2,2);I3<=I1-2*I2-1;I3++) {
3076
J3 = -I1-2*(I2)+2*I3 ;
3077
S2++;
3078
}
3079
for (I3=I1-2*I2;I3<=floord(2*I1+3*I2,3);I3++) {
3080
J3 = I1-(I2)-(I3) ;
3081
S1++;
3082
J3 = -I1-2*(I2)+2*I3 ;
3083
S2++;
3084
}
3085
for (I3=ceild(2*I1+3*I2+1,3);I3<=min(N1,I1-I2);I3++) {
3086
J3 = I1-(I2)-(I3) ;
3087
S1++;
3088
}
3089
}
3090
if (I1%6 == 0) {
3091
for (I3=4*I1/6;I3<=floord(13*I1/6-1,3);I3++) {
3092
J3 = -I1-2*(I2)+2*I3 ;
3093
S2++;
3094
J3 = I1-(I2)-(I3) ;
3095
S1++;
3096
}
3097
if (13*I1%18 == 0) {
3098
I3 = 13*I1/18 ;
3099
J1 = -2*I1+3*I3 ;
3100
if ((2*I1+J1)%3 == 0) {
3101
J2 = (2*I1+J1)/3 ;
3102
J3 = 3*I1-4*J2 ;
3103
S1++;
3104
S2++;
3105
}
3106
}
3107
for (I3=ceild(13*I1/6+1,3);I3<=min(N1,5*I1/6);I3++) {
3108
J3 = I1-(I2)-(I3) ;
3109
S1++;
3110
J3 = -I1-2*(I2)+2*I3 ;
3111
S2++;
3112
}
3113
}
3114
if (I1%4 == 0) {
3115
for (I3=2*I1/4;I3<=floord(6*I1/4-1,2);I3++) {
3116
J3 = I1-(I2)-(I3) ;
3117
S1++;
3118
}
3119
if (3*I1%4 == 0) {
3120
I3 = 3*I1/4 ;
3121
J1 = -2*I1+3*I3 ;
3122
if ((2*I1+J1)%3 == 0) {
3123
J2 = (2*I1+J1)/3 ;
3124
J3 = 3*I1-4*J2 ;
3125
S1++;
3126
S2++;
3127
}
3128
}
3129
for (I3=3*I1/4+1;I3<=min(N1,floord(11*I1/4,3));I3++) {
3130
J3 = -I1-2*(I2)+2*I3 ;
3131
S2++;
3132
}
3133
}
3134
for (I2=ceild(I1+1,4);I2<=floord(-I1+2*N1,2);I2++) {
3135
for (I3=max(max(1,ceild(I1-I2,2)),I1-2*I2);I3<=I1-I2;I3++) {
3136
J3 = I1-(I2)-(I3) ;
3137
S1++;
3138
}
3139
for (I3=max(I1-I2+1,ceild(I1+2*I2,2));I3<=min(N1,floord(2*I1+3*I2,3));I3++) {
3140
J3 = -I1-2*(I2)+2*I3 ;
3141
S2++;
3142
}
3143
}
3144
for (I2=ceild(-I1+2*N1+1,2);I2<=min(N1,I1-1);I2++) {
3145
for (I3=max(max(ceild(I1-I2,2),I1-2*I2),1);I3<=min(I1-I2,N1);I3++) {
3146
J3 = I1-(I2)-(I3) ;
3147
S1++;
3148
}
3149
}
3150
}
3151
if (N1 >= 20) {
3152
for (I3=ceild(13+2*1,2);I3<=min(13-2*(1)-1,floord(2*13+3*1,3));I3++) {
3153
J3 = -(13)-2*(I2)+2*I3 ;
3154
S2++;
3155
}
3156
for (I3=13-2*(1);I3<=min(N1,13-(1));I3++) {
3157
J3 = 13-(I2)-(I3) ;
3158
S1++;
3159
}
3160
for (I2=2;I2<=1;I2++) {
3161
for (I3=ceild(13+2*I2,2);I3<=13-2*I2-1;I3++) {
3162
J3 = -(13)-2*(I2)+2*I3 ;
3163
S2++;
3164
}
3165
for (I3=13-2*I2;I3<=floord(2*13+3*I2,3);I3++) {
3166
J3 = 13-(I2)-(I3) ;
3167
S1++;
3168
J3 = -(13)-2*(I2)+2*I3 ;
3169
S2++;
3170
}
3171
for (I3=ceild(2*13+3*I2+1,3);I3<=min(N1,13-I2);I3++) {
3172
J3 = 13-(I2)-(I3) ;
3173
S1++;
3174
}
3175
}
3176
for (I3=4*2+1;I3<=floord(13*2+1,3);I3++) {
3177
J3 = -(13)-2*(I2)+2*I3 ;
3178
S2++;
3179
J3 = 13-(I2)-(I3) ;
3180
S1++;
3181
}
3182
if ((13*13-1)%18 == 0) {
3183
I3 = (13*13-1)/18 ;
3184
J1 = -2*(13)+3*I3 ;
3185
if ((2*13+J1)%3 == 0) {
3186
J2 = (2*13+J1)/3 ;
3187
J3 = 3*13-4*J2 ;
3188
S1++;
3189
S2++;
3190
}
3191
}
3192
for (I3=ceild(13*2+3,3);I3<=floord(15*2+2,3);I3++) {
3193
J3 = 13-(I2)-(I3) ;
3194
S1++;
3195
J3 = -(13)-2*(I2)+2*I3 ;
3196
S2++;
3197
}
3198
if ((5*13+1)%6 == 0) {
3199
I3 = (5*13+1)/6 ;
3200
J3 = 13-(I2)-(I3) ;
3201
S1++;
3202
}
3203
if (13%6 == 0) {
3204
for (I3=4*13/6;I3<=floord(13*13/6-1,3);I3++) {
3205
J3 = -(13)-2*(I2)+2*I3 ;
3206
S2++;
3207
J3 = 13-(I2)-(I3) ;
3208
S1++;
3209
}
3210
if (13*13%18 == 0) {
3211
I3 = 13*13/18 ;
3212
J1 = -2*(13)+3*I3 ;
3213
if ((2*13+J1)%3 == 0) {
3214
J2 = (2*13+J1)/3 ;
3215
J3 = 3*13-4*J2 ;
3216
S1++;
3217
S2++;
3218
}
3219
}
3220
for (I3=ceild(13*13/6+1,3);I3<=min(N1,5*13/6);I3++) {
3221
J3 = 13-(I2)-(I3) ;
3222
S1++;
3223
J3 = -(13)-2*(I2)+2*I3 ;
3224
S2++;
3225
}
3226
}
3227
for (I2=3;I2<=2;I2++) {
3228
for (I3=13-2*I2;I3<=floord(13+2*I2-1,2);I3++) {
3229
J3 = 13-(I2)-(I3) ;
3230
S1++;
3231
}
3232
for (I3=ceild(13+2*I2,2);I3<=floord(2*13+I2-1,3);I3++) {
3233
J3 = -(13)-2*(I2)+2*I3 ;
3234
S2++;
3235
J3 = 13-(I2)-(I3) ;
3236
S1++;
3237
}
3238
if ((2*13+I2)%3 == 0) {
3239
I3 = (2*13+I2)/3 ;
3240
J1 = -2*(13)+3*I3 ;
3241
if ((2*13+J1)%3 == 0) {
3242
J2 = (2*13+J1)/3 ;
3243
J3 = 3*13-4*J2 ;
3244
S1++;
3245
S2++;
3246
}
3247
}
3248
for (I3=ceild(2*13+I2+1,3);I3<=13-I2;I3++) {
3249
J3 = 13-(I2)-(I3) ;
3250
S1++;
3251
J3 = -(13)-2*(I2)+2*I3 ;
3252
S2++;
3253
}
3254
}
3255
for (I2=3;I2<=2;I2++) {
3256
for (I3=13-2*I2;I3<=floord(13+2*I2-1,2);I3++) {
3257
J3 = 13-(I2)-(I3) ;
3258
S1++;
3259
}
3260
for (I3=ceild(13+2*I2,2);I3<=floord(2*13+I2-1,3);I3++) {
3261
J3 = -(13)-2*(I2)+2*I3 ;
3262
S2++;
3263
J3 = 13-(I2)-(I3) ;
3264
S1++;
3265
}
3266
if ((2*13+I2)%3 == 0) {
3267
I3 = (2*13+I2)/3 ;
3268
J1 = -2*(13)+3*I3 ;
3269
if ((2*13+J1)%3 == 0) {
3270
J2 = (2*13+J1)/3 ;
3271
J3 = 3*13-4*J2 ;
3272
S1++;
3273
S2++;
3274
}
3275
}
3276
for (I3=ceild(2*13+I2+1,3);I3<=13-I2;I3++) {
3277
J3 = 13-(I2)-(I3) ;
3278
S1++;
3279
J3 = -(13)-2*(I2)+2*I3 ;
3280
S2++;
3281
}
3282
for (I3=13-I2+1;I3<=min(N1,floord(2*13+3*I2,3));I3++) {
3283
J3 = -(13)-2*(I2)+2*I3 ;
3284
S2++;
3285
}
3286
}
3287
for (I3=2*3+1;I3<=3*3;I3++) {
3288
J3 = 13-(I2)-(I3) ;
3289
S1++;
3290
}
3291
if ((9*13-1)%12 == 0) {
3292
I3 = (9*13-1)/12 ;
3293
J1 = -2*(13)+3*I3 ;
3294
if ((2*13+J1)%3 == 0) {
3295
J2 = (2*13+J1)/3 ;
3296
J3 = 3*13-4*J2 ;
3297
S1++;
3298
S2++;
3299
}
3300
}
3301
if ((3*13+1)%4 == 0) {
3302
I3 = (3*13+1)/4 ;
3303
J3 = 13-(I2)-(I3) ;
3304
S1++;
3305
J3 = -(13)-2*(I2)+2*I3 ;
3306
S2++;
3307
}
3308
for (I3=3*3+2;I3<=min(N1,floord(11*3+2,3));I3++) {
3309
J3 = -(13)-2*(I2)+2*I3 ;
3310
S2++;
3311
}
3312
if (13%4 == 0) {
3313
for (I3=2*13/4;I3<=floord(6*13/4-1,2);I3++) {
3314
J3 = 13-(I2)-(I3) ;
3315
S1++;
3316
}
3317
if (3*13%4 == 0) {
3318
I3 = 3*13/4 ;
3319
J1 = -2*(13)+3*I3 ;
3320
if ((2*13+J1)%3 == 0) {
3321
J2 = (2*13+J1)/3 ;
3322
J3 = 3*13-4*J2 ;
3323
S1++;
3324
S2++;
3325
}
3326
}
3327
for (I3=3*13/4+1;I3<=min(N1,floord(11*13/4,3));I3++) {
3328
J3 = -(13)-2*(I2)+2*I3 ;
3329
S2++;
3330
}
3331
}
3332
for (I2=4;I2<=12;I2++) {
3333
for (I3=max(max(1,ceild(13-I2,2)),13-2*I2);I3<=13-I2;I3++) {
3334
J3 = 13-(I2)-(I3) ;
3335
S1++;
3336
}
3337
for (I3=max(13-I2+1,ceild(13+2*I2,2));I3<=min(N1,floord(2*13+3*I2,3));I3++) {
3338
J3 = -(13)-2*(I2)+2*I3 ;
3339
S2++;
3340
}
3341
}
3342
for (I2=13;I2<=floord(2*N1-13,2);I2++) {
3343
for (I3=ceild(13+2*I2,2);I3<=min(N1,floord(2*13+3*I2,3));I3++) {
3344
J3 = -(13)-2*(I2)+2*I3 ;
3345
S2++;
3346
}
3347
}
3348
}
3349
if ((N1 <= 19) && (N1 >= 19)) {
3350
for (I3=ceild(13+2*1,2);I3<=min(13-2*(1)-1,floord(2*13+3*1,3));I3++) {
3351
J3 = -(13)-2*(I2)+2*I3 ;
3352
S2++;
3353
}
3354
for (I3=13-2*(1);I3<=min(N1,13-(1));I3++) {
3355
J3 = 13-(I2)-(I3) ;
3356
S1++;
3357
}
3358
for (I2=2;I2<=1;I2++) {
3359
for (I3=ceild(13+2*I2,2);I3<=13-2*I2-1;I3++) {
3360
J3 = -(13)-2*(I2)+2*I3 ;
3361
S2++;
3362
}
3363
for (I3=13-2*I2;I3<=floord(2*13+3*I2,3);I3++) {
3364
J3 = 13-(I2)-(I3) ;
3365
S1++;
3366
J3 = -(13)-2*(I2)+2*I3 ;
3367
S2++;
3368
}
3369
for (I3=ceild(2*13+3*I2+1,3);I3<=min(N1,13-I2);I3++) {
3370
J3 = 13-(I2)-(I3) ;
3371
S1++;
3372
}
3373
}
3374
for (I3=4*2+1;I3<=floord(13*2+1,3);I3++) {
3375
J3 = -(13)-2*(I2)+2*I3 ;
3376
S2++;
3377
J3 = 13-(I2)-(I3) ;
3378
S1++;
3379
}
3380
if ((13*13-1)%18 == 0) {
3381
I3 = (13*13-1)/18 ;
3382
J1 = -2*(13)+3*I3 ;
3383
if ((2*13+J1)%3 == 0) {
3384
J2 = (2*13+J1)/3 ;
3385
J3 = 3*13-4*J2 ;
3386
S1++;
3387
S2++;
3388
}
3389
}
3390
for (I3=ceild(13*2+3,3);I3<=floord(15*2+2,3);I3++) {
3391
J3 = 13-(I2)-(I3) ;
3392
S1++;
3393
J3 = -(13)-2*(I2)+2*I3 ;
3394
S2++;
3395
}
3396
if ((5*13+1)%6 == 0) {
3397
I3 = (5*13+1)/6 ;
3398
J3 = 13-(I2)-(I3) ;
3399
S1++;
3400
}
3401
if (13%6 == 0) {
3402
for (I3=4*13/6;I3<=floord(13*13/6-1,3);I3++) {
3403
J3 = -(13)-2*(I2)+2*I3 ;
3404
S2++;
3405
J3 = 13-(I2)-(I3) ;
3406
S1++;
3407
}
3408
if (13*13%18 == 0) {
3409
I3 = 13*13/18 ;
3410
J1 = -2*(13)+3*I3 ;
3411
if ((2*13+J1)%3 == 0) {
3412
J2 = (2*13+J1)/3 ;
3413
J3 = 3*13-4*J2 ;
3414
S1++;
3415
S2++;
3416
}
3417
}
3418
for (I3=ceild(13*13/6+1,3);I3<=min(N1,5*13/6);I3++) {
3419
J3 = 13-(I2)-(I3) ;
3420
S1++;
3421
J3 = -(13)-2*(I2)+2*I3 ;
3422
S2++;
3423
}
3424
}
3425
for (I2=3;I2<=2;I2++) {
3426
for (I3=13-2*I2;I3<=floord(13+2*I2-1,2);I3++) {
3427
J3 = 13-(I2)-(I3) ;
3428
S1++;
3429
}
3430
for (I3=ceild(13+2*I2,2);I3<=floord(2*13+I2-1,3);I3++) {
3431
J3 = -(13)-2*(I2)+2*I3 ;
3432
S2++;
3433
J3 = 13-(I2)-(I3) ;
3434
S1++;
3435
}
3436
if ((2*13+I2)%3 == 0) {
3437
I3 = (2*13+I2)/3 ;
3438
J1 = -2*(13)+3*I3 ;
3439
if ((2*13+J1)%3 == 0) {
3440
J2 = (2*13+J1)/3 ;
3441
J3 = 3*13-4*J2 ;
3442
S1++;
3443
S2++;
3444
}
3445
}
3446
for (I3=ceild(2*13+I2+1,3);I3<=13-I2;I3++) {
3447
J3 = 13-(I2)-(I3) ;
3448
S1++;
3449
J3 = -(13)-2*(I2)+2*I3 ;
3450
S2++;
3451
}
3452
}
3453
for (I2=3;I2<=2;I2++) {
3454
for (I3=13-2*I2;I3<=floord(13+2*I2-1,2);I3++) {
3455
J3 = 13-(I2)-(I3) ;
3456
S1++;
3457
}
3458
for (I3=ceild(13+2*I2,2);I3<=floord(2*13+I2-1,3);I3++) {
3459
J3 = -(13)-2*(I2)+2*I3 ;
3460
S2++;
3461
J3 = 13-(I2)-(I3) ;
3462
S1++;
3463
}
3464
if ((2*13+I2)%3 == 0) {
3465
I3 = (2*13+I2)/3 ;
3466
J1 = -2*(13)+3*I3 ;
3467
if ((2*13+J1)%3 == 0) {
3468
J2 = (2*13+J1)/3 ;
3469
J3 = 3*13-4*J2 ;
3470
S1++;
3471
S2++;
3472
}
3473
}
3474
for (I3=ceild(2*13+I2+1,3);I3<=13-I2;I3++) {
3475
J3 = 13-(I2)-(I3) ;
3476
S1++;
3477
J3 = -(13)-2*(I2)+2*I3 ;
3478
S2++;
3479
}
3480
for (I3=13-I2+1;I3<=min(N1,floord(2*13+3*I2,3));I3++) {
3481
J3 = -(13)-2*(I2)+2*I3 ;
3482
S2++;
3483
}
3484
}
3485
for (I3=2*3+1;I3<=3*3;I3++) {
3486
J3 = 13-(I2)-(I3) ;
3487
S1++;
3488
}
3489
if ((9*13-1)%12 == 0) {
3490
I3 = (9*13-1)/12 ;
3491
J1 = -2*(13)+3*I3 ;
3492
if ((2*13+J1)%3 == 0) {
3493
J2 = (2*13+J1)/3 ;
3494
J3 = 3*13-4*J2 ;
3495
S1++;
3496
S2++;
3497
}
3498
}
3499
if ((3*13+1)%4 == 0) {
3500
I3 = (3*13+1)/4 ;
3501
J3 = 13-(I2)-(I3) ;
3502
S1++;
3503
J3 = -(13)-2*(I2)+2*I3 ;
3504
S2++;
3505
}
3506
for (I3=3*3+2;I3<=min(N1,floord(11*3+2,3));I3++) {
3507
J3 = -(13)-2*(I2)+2*I3 ;
3508
S2++;
3509
}
3510
if (13%4 == 0) {
3511
for (I3=2*13/4;I3<=floord(6*13/4-1,2);I3++) {
3512
J3 = 13-(I2)-(I3) ;
3513
S1++;
3514
}
3515
if (3*13%4 == 0) {
3516
I3 = 3*13/4 ;
3517
J1 = -2*(13)+3*I3 ;
3518
if ((2*13+J1)%3 == 0) {
3519
J2 = (2*13+J1)/3 ;
3520
J3 = 3*13-4*J2 ;
3521
S1++;
3522
S2++;
3523
}
3524
}
3525
for (I3=3*13/4+1;I3<=min(N1,floord(11*13/4,3));I3++) {
3526
J3 = -(13)-2*(I2)+2*I3 ;
3527
S2++;
3528
}
3529
}
3530
for (I2=4;I2<=12;I2++) {
3531
for (I3=max(max(1,ceild(13-I2,2)),13-2*I2);I3<=13-I2;I3++) {
3532
J3 = 13-(I2)-(I3) ;
3533
S1++;
3534
}
3535
for (I3=max(13-I2+1,ceild(13+2*I2,2));I3<=min(N1,floord(2*13+3*I2,3));I3++) {
3536
J3 = -(13)-2*(I2)+2*I3 ;
3537
S2++;
3538
}
3539
}
3540
}
3541
for (I1=max(10,ceild(2*N1+3,3));I1<=min(floord(6*N1-4,5),11);I1++) {
3542
for (I2=1;I2<=floord(I1-1,9);I2++) {
3543
for (I3=ceild(I1+2*I2,2);I3<=min(I1-2*I2-1,floord(2*I1+3*I2,3));I3++) {
3544
J3 = -I1-2*(I2)+2*I3 ;
3545
S2++;
3546
}
3547
for (I3=I1-2*I2;I3<=min(N1,I1-I2);I3++) {
3548
J3 = I1-(I2)-(I3) ;
3549
S1++;
3550
}
3551
}
3552
for (I2=ceild(I1,9);I2<=floord(I1-1,7);I2++) {
3553
for (I3=ceild(I1+2*I2,2);I3<=I1-2*I2-1;I3++) {
3554
J3 = -I1-2*(I2)+2*I3 ;
3555
S2++;
3556
}
3557
for (I3=I1-2*I2;I3<=floord(2*I1+3*I2,3);I3++) {
3558
J3 = I1-(I2)-(I3) ;
3559
S1++;
3560
J3 = -I1-2*(I2)+2*I3 ;
3561
S2++;
3562
}
3563
for (I3=ceild(2*I1+3*I2+1,3);I3<=min(N1,I1-I2);I3++) {
3564
J3 = I1-(I2)-(I3) ;
3565
S1++;
3566
}
3567
}
3568
if (I1%6 == 0) {
3569
for (I3=4*I1/6;I3<=floord(13*I1/6-1,3);I3++) {
3570
J3 = -I1-2*(I2)+2*I3 ;
3571
S2++;
3572
J3 = I1-(I2)-(I3) ;
3573
S1++;
3574
}
3575
if (13*I1%18 == 0) {
3576
I3 = 13*I1/18 ;
3577
J1 = -2*I1+3*I3 ;
3578
if ((2*I1+J1)%3 == 0) {
3579
J2 = (2*I1+J1)/3 ;
3580
J3 = 3*I1-4*J2 ;
3581
S1++;
3582
S2++;
3583
}
3584
}
3585
for (I3=ceild(13*I1/6+1,3);I3<=min(N1,5*I1/6);I3++) {
3586
J3 = I1-(I2)-(I3) ;
3587
S1++;
3588
J3 = -I1-2*(I2)+2*I3 ;
3589
S2++;
3590
}
3591
}
3592
for (I2=max(ceild(I1+1,6),I1-N1+1);I2<=floord(I1+2,6);I2++) {
3593
for (I3=I1-2*I2;I3<=floord(I1+2*I2-1,2);I3++) {
3594
J3 = I1-(I2)-(I3) ;
3595
S1++;
3596
}
3597
for (I3=ceild(I1+2*I2,2);I3<=floord(2*I1+I2-1,3);I3++) {
3598
J3 = -I1-2*(I2)+2*I3 ;
3599
S2++;
3600
J3 = I1-(I2)-(I3) ;
3601
S1++;
3602
}
3603
if ((2*I1+I2)%3 == 0) {
3604
I3 = (2*I1+I2)/3 ;
3605
J1 = -2*I1+3*I3 ;
3606
if ((2*I1+J1)%3 == 0) {
3607
J2 = (2*I1+J1)/3 ;
3608
J3 = 3*I1-4*J2 ;
3609
S1++;
3610
S2++;
3611
}
3612
}
3613
for (I3=ceild(2*I1+I2+1,3);I3<=I1-I2;I3++) {
3614
J3 = I1-(I2)-(I3) ;
3615
S1++;
3616
J3 = -I1-2*(I2)+2*I3 ;
3617
S2++;
3618
}
3619
}
3620
if ((I1-1)%4 == 0) {
3621
I2 = (I1-1)/4 ;
3622
for (I3=2*I2+1;I3<=3*I2;I3++) {
3623
J3 = I1-(I2)-(I3) ;
3624
S1++;
3625
}
3626
if ((9*I1-1)%12 == 0) {
3627
I3 = (9*I1-1)/12 ;
3628
J1 = -2*I1+3*I3 ;
3629
if ((2*I1+J1)%3 == 0) {
3630
J2 = (2*I1+J1)/3 ;
3631
J3 = 3*I1-4*J2 ;
3632
S1++;
3633
S2++;
3634
}
3635
}
3636
if ((3*I1+1)%4 == 0) {
3637
I3 = (3*I1+1)/4 ;
3638
J3 = I1-(I2)-(I3) ;
3639
S1++;
3640
J3 = -I1-2*(I2)+2*I3 ;
3641
S2++;
3642
}
3643
for (I3=3*I2+2;I3<=min(N1,floord(11*I2+2,3));I3++) {
3644
J3 = -I1-2*(I2)+2*I3 ;
3645
S2++;
3646
}
3647
}
3648
if (I1%4 == 0) {
3649
for (I3=2*I1/4;I3<=floord(6*I1/4-1,2);I3++) {
3650
J3 = I1-(I2)-(I3) ;
3651
S1++;
3652
}
3653
if (3*I1%4 == 0) {
3654
I3 = 3*I1/4 ;
3655
J1 = -2*I1+3*I3 ;
3656
if ((2*I1+J1)%3 == 0) {
3657
J2 = (2*I1+J1)/3 ;
3658
J3 = 3*I1-4*J2 ;
3659
S1++;
3660
S2++;
3661
}
3662
}
3663
for (I3=3*I1/4+1;I3<=min(N1,floord(11*I1/4,3));I3++) {
3664
J3 = -I1-2*(I2)+2*I3 ;
3665
S2++;
3666
}
3667
}
3668
for (I2=ceild(I1+1,4);I2<=floord(-I1+2*N1,2);I2++) {
3669
for (I3=max(max(1,ceild(I1-I2,2)),I1-2*I2);I3<=I1-I2;I3++) {
3670
J3 = I1-(I2)-(I3) ;
3671
S1++;
3672
}
3673
for (I3=max(I1-I2+1,ceild(I1+2*I2,2));I3<=min(N1,floord(2*I1+3*I2,3));I3++) {
3674
J3 = -I1-2*(I2)+2*I3 ;
3675
S2++;
3676
}
3677
}
3678
for (I2=ceild(-I1+2*N1+1,2);I2<=min(N1,I1-1);I2++) {
3679
for (I3=max(max(ceild(I1-I2,2),I1-2*I2),1);I3<=min(I1-I2,N1);I3++) {
3680
J3 = I1-(I2)-(I3) ;
3681
S1++;
3682
}
3683
}
3684
}
3685
if (N1 == 8) {
3686
for (I3=ceild(10+2*1,2);I3<=min(10-2*(1)-1,floord(2*10+3*1,3));I3++) {
3687
J3 = -(10)-2*(I2)+2*I3 ;
3688
S2++;
3689
}
3690
for (I3=10-2*(1);I3<=min(N1,10-(1));I3++) {
3691
J3 = 10-(I2)-(I3) ;
3692
S1++;
3693
}
3694
if (5%3 == 0) {
3695
for (I3=4*5/3;I3<=floord(13*5/3-1,3);I3++) {
3696
J3 = -(10)-2*(I2)+2*I3 ;
3697
S2++;
3698
J3 = 10-(I2)-(I3) ;
3699
S1++;
3700
}
3701
if (13*10%18 == 0) {
3702
I3 = 13*10/18 ;
3703
J1 = -2*(10)+3*I3 ;
3704
if ((2*10+J1)%3 == 0) {
3705
J2 = (2*10+J1)/3 ;
3706
J3 = 3*10-4*J2 ;
3707
S1++;
3708
S2++;
3709
}
3710
}
3711
for (I3=ceild(13*5/3+1,3);I3<=min(N1,5*5/3);I3++) {
3712
J3 = 10-(I2)-(I3) ;
3713
S1++;
3714
J3 = -(10)-2*(I2)+2*I3 ;
3715
S2++;
3716
}
3717
}
3718
for (I3=10-2*(2);I3<=floord(10+2*2-1,2);I3++) {
3719
J3 = 10-(I2)-(I3) ;
3720
S1++;
3721
}
3722
for (I3=ceild(10+2*2,2);I3<=floord(2*10+2-1,3);I3++) {
3723
J3 = -(10)-2*(I2)+2*I3 ;
3724
S2++;
3725
J3 = 10-(I2)-(I3) ;
3726
S1++;
3727
}
3728
if ((2*10+2)%3 == 0) {
3729
I3 = (2*10+2)/3 ;
3730
J1 = -2*(10)+3*I3 ;
3731
if ((2*10+J1)%3 == 0) {
3732
J2 = (2*10+J1)/3 ;
3733
J3 = 3*10-4*J2 ;
3734
S1++;
3735
S2++;
3736
}
3737
}
3738
for (I3=ceild(2*10+2+1,3);I3<=N1;I3++) {
3739
J3 = 10-(I2)-(I3) ;
3740
S1++;
3741
J3 = -(10)-2*(I2)+2*I3 ;
3742
S2++;
3743
}
3744
for (I3=max(max(1,ceild(10-(3),2)),10-2*(3));I3<=10-(3);I3++) {
3745
J3 = 10-(I2)-(I3) ;
3746
S1++;
3747
}
3748
for (I3=max(10-(3)+1,ceild(10+2*3,2));I3<=min(N1,floord(2*10+3*3,3));I3++) {
3749
J3 = -(10)-2*(I2)+2*I3 ;
3750
S2++;
3751
}
3752
for (I2=4;I2<=8;I2++) {
3753
for (I3=max(max(ceild(10-I2,2),10-2*I2),1);I3<=min(10-I2,N1);I3++) {
3754
J3 = 10-(I2)-(I3) ;
3755
S1++;
3756
}
3757
}
3758
}
3759
for (I1=max(8,ceild(4*N1-3,3));I1<=floord(6*N1,5);I1++) {
3760
for (I2=1;I2<=floord(I1-1,7);I2++) {
3761
for (I3=ceild(I1+2*I2,2);I3<=I1-2*I2-1;I3++) {
3762
J3 = -I1-2*(I2)+2*I3 ;
3763
S2++;
3764
}
3765
for (I3=I1-2*I2;I3<=floord(2*I1+3*I2,3);I3++) {
3766
J3 = I1-(I2)-(I3) ;
3767
S1++;
3768
J3 = -I1-2*(I2)+2*I3 ;
3769
S2++;
3770
}
3771
for (I3=ceild(2*I1+3*I2+1,3);I3<=min(N1,I1-I2);I3++) {
3772
J3 = I1-(I2)-(I3) ;
3773
S1++;
3774
}
3775
}
3776
if (I1%6 == 0) {
3777
for (I3=4*I1/6;I3<=floord(13*I1/6-1,3);I3++) {
3778
J3 = -I1-2*(I2)+2*I3 ;
3779
S2++;
3780
J3 = I1-(I2)-(I3) ;
3781
S1++;
3782
}
3783
if (13*I1%18 == 0) {
3784
I3 = 13*I1/18 ;
3785
J1 = -2*I1+3*I3 ;
3786
if ((2*I1+J1)%3 == 0) {
3787
J2 = (2*I1+J1)/3 ;
3788
J3 = 3*I1-4*J2 ;
3789
S1++;
3790
S2++;
3791
}
3792
}
3793
for (I3=ceild(13*I1/6+1,3);I3<=min(N1,5*I1/6);I3++) {
3794
J3 = I1-(I2)-(I3) ;
3795
S1++;
3796
J3 = -I1-2*(I2)+2*I3 ;
3797
S2++;
3798
}
3799
}
3800
for (I2=I1-N1+1;I2<=floord(-I1+2*N1,2);I2++) {
3801
for (I3=max(max(1,ceild(I1-I2,2)),I1-2*I2);I3<=I1-I2;I3++) {
3802
J3 = I1-(I2)-(I3) ;
3803
S1++;
3804
}
3805
for (I3=max(I1-I2+1,ceild(I1+2*I2,2));I3<=min(N1,floord(2*I1+3*I2,3));I3++) {
3806
J3 = -I1-2*(I2)+2*I3 ;
3807
S2++;
3808
}
3809
}
3810
for (I2=ceild(-I1+2*N1+1,2);I2<=N1;I2++) {
3811
for (I3=max(max(ceild(I1-I2,2),I1-2*I2),1);I3<=min(I1-I2,N1);I3++) {
3812
J3 = I1-(I2)-(I3) ;
3813
S1++;
3814
}
3815
}
3816
}
3817
if (N1 == 8) {
3818
for (I3=ceild(11+2*1,2);I3<=min(N1,floord(2*11+3*1,3));I3++) {
3819
J3 = -(11)-2*(I2)+2*I3 ;
3820
S2++;
3821
}
3822
for (I3=ceild(-5*(2)+3*N1,2);I3<=floord(3*2+3*N1-2,4);I3++) {
3823
J3 = 11-(I2)-(I3) ;
3824
S1++;
3825
}
3826
for (I3=ceild(3*2+3*N1,4);I3<=floord(3*N1-1,3);I3++) {
3827
J3 = -(11)-2*(I2)+2*I3 ;
3828
S2++;
3829
J3 = 11-(I2)-(I3) ;
3830
S1++;
3831
}
3832
J1 = -2*(11)+3*N1 ;
3833
if ((2*11+J1)%3 == 0) {
3834
J2 = (2*11+J1)/3 ;
3835
J3 = 3*11-4*J2 ;
3836
S1++;
3837
S2++;
3838
}
3839
for (I2=3;I2<=8;I2++) {
3840
for (I3=max(max(ceild(11-I2,2),11-2*I2),1);I3<=min(11-I2,N1);I3++) {
3841
J3 = 11-(I2)-(I3) ;
3842
S1++;
3843
}
3844
}
3845
}
3846
for (I1=14;I1<=min(19,floord(2*N1,3));I1++) {
3847
for (I2=1;I2<=floord(I1-1,9);I2++) {
3848
for (I3=ceild(I1+2*I2,2);I3<=min(I1-2*I2-1,floord(2*I1+3*I2,3));I3++) {
3849
J3 = -I1-2*(I2)+2*I3 ;
3850
S2++;
3851
}
3852
for (I3=I1-2*I2;I3<=min(N1,I1-I2);I3++) {
3853
J3 = I1-(I2)-(I3) ;
3854
S1++;
3855
}
3856
}
3857
for (I2=ceild(I1,9);I2<=floord(I1-1,7);I2++) {
3858
for (I3=ceild(I1+2*I2,2);I3<=I1-2*I2-1;I3++) {
3859
J3 = -I1-2*(I2)+2*I3 ;
3860
S2++;
3861
}
3862
for (I3=I1-2*I2;I3<=floord(2*I1+3*I2,3);I3++) {
3863
J3 = I1-(I2)-(I3) ;
3864
S1++;
3865
J3 = -I1-2*(I2)+2*I3 ;
3866
S2++;
3867
}
3868
for (I3=ceild(2*I1+3*I2+1,3);I3<=min(N1,I1-I2);I3++) {
3869
J3 = I1-(I2)-(I3) ;
3870
S1++;
3871
}
3872
}
3873
if (I1%7 == 0) {
3874
for (I3=ceild(9*I1/7,2);I3<=5*I1/7-1;I3++) {
3875
J3 = -I1-2*(I2)+2*I3 ;
3876
S2++;
3877
}
3878
if (5*I1%7 == 0) {
3879
I3 = 5*I1/7 ;
3880
J1 = -2*I1+3*I3 ;
3881
if ((2*I1+J1)%3 == 0) {
3882
J2 = (2*I1+J1)/3 ;
3883
J3 = 3*I1-4*J2 ;
3884
S1++;
3885
S2++;
3886
}
3887
}
3888
for (I3=ceild(15*I1/7+1,3);I3<=floord(17*I1/7,3);I3++) {
3889
J3 = I1-(I2)-(I3) ;
3890
S1++;
3891
J3 = -I1-2*(I2)+2*I3 ;
3892
S2++;
3893
}
3894
for (I3=ceild(17*I1/7+1,3);I3<=min(N1,6*I1/7);I3++) {
3895
J3 = I1-(I2)-(I3) ;
3896
S1++;
3897
}
3898
}
3899
if ((I1-1)%6 == 0) {
3900
I2 = (I1-1)/6 ;
3901
for (I3=4*I2+1;I3<=floord(13*I2+1,3);I3++) {
3902
J3 = -I1-2*(I2)+2*I3 ;
3903
S2++;
3904
J3 = I1-(I2)-(I3) ;
3905
S1++;
3906
}
3907
if ((13*I1-1)%18 == 0) {
3908
I3 = (13*I1-1)/18 ;
3909
J1 = -2*I1+3*I3 ;
3910
if ((2*I1+J1)%3 == 0) {
3911
J2 = (2*I1+J1)/3 ;
3912
J3 = 3*I1-4*J2 ;
3913
S1++;
3914
S2++;
3915
}
3916
}
3917
for (I3=ceild(13*I2+3,3);I3<=floord(15*I2+2,3);I3++) {
3918
J3 = I1-(I2)-(I3) ;
3919
S1++;
3920
J3 = -I1-2*(I2)+2*I3 ;
3921
S2++;
3922
}
3923
if ((5*I1+1)%6 == 0) {
3924
I3 = (5*I1+1)/6 ;
3925
J3 = I1-(I2)-(I3) ;
3926
S1++;
3927
}
3928
}
3929
if (I1%6 == 0) {
3930
for (I3=4*I1/6;I3<=floord(13*I1/6-1,3);I3++) {
3931
J3 = -I1-2*(I2)+2*I3 ;
3932
S2++;
3933
J3 = I1-(I2)-(I3) ;
3934
S1++;
3935
}
3936
if (13*I1%18 == 0) {
3937
I3 = 13*I1/18 ;
3938
J1 = -2*I1+3*I3 ;
3939
if ((2*I1+J1)%3 == 0) {
3940
J2 = (2*I1+J1)/3 ;
3941
J3 = 3*I1-4*J2 ;
3942
S1++;
3943
S2++;
3944
}
3945
}
3946
for (I3=ceild(13*I1/6+1,3);I3<=min(N1,5*I1/6);I3++) {
3947
J3 = I1-(I2)-(I3) ;
3948
S1++;
3949
J3 = -I1-2*(I2)+2*I3 ;
3950
S2++;
3951
}
3952
}
3953
for (I2=ceild(I1+1,6);I2<=floord(I1+2,6);I2++) {
3954
for (I3=I1-2*I2;I3<=floord(I1+2*I2-1,2);I3++) {
3955
J3 = I1-(I2)-(I3) ;
3956
S1++;
3957
}
3958
for (I3=ceild(I1+2*I2,2);I3<=floord(2*I1+I2-1,3);I3++) {
3959
J3 = -I1-2*(I2)+2*I3 ;
3960
S2++;
3961
J3 = I1-(I2)-(I3) ;
3962
S1++;
3963
}
3964
if ((2*I1+I2)%3 == 0) {
3965
I3 = (2*I1+I2)/3 ;
3966
J1 = -2*I1+3*I3 ;
3967
if ((2*I1+J1)%3 == 0) {
3968
J2 = (2*I1+J1)/3 ;
3969
J3 = 3*I1-4*J2 ;
3970
S1++;
3971
S2++;
3972
}
3973
}
3974
for (I3=ceild(2*I1+I2+1,3);I3<=I1-I2;I3++) {
3975
J3 = I1-(I2)-(I3) ;
3976
S1++;
3977
J3 = -I1-2*(I2)+2*I3 ;
3978
S2++;
3979
}
3980
}
3981
for (I2=ceild(I1+3,6);I2<=floord(I1-2,4);I2++) {
3982
for (I3=I1-2*I2;I3<=floord(I1+2*I2-1,2);I3++) {
3983
J3 = I1-(I2)-(I3) ;
3984
S1++;
3985
}
3986
for (I3=ceild(I1+2*I2,2);I3<=floord(2*I1+I2-1,3);I3++) {
3987
J3 = -I1-2*(I2)+2*I3 ;
3988
S2++;
3989
J3 = I1-(I2)-(I3) ;
3990
S1++;
3991
}
3992
if ((2*I1+I2)%3 == 0) {
3993
I3 = (2*I1+I2)/3 ;
3994
J1 = -2*I1+3*I3 ;
3995
if ((2*I1+J1)%3 == 0) {
3996
J2 = (2*I1+J1)/3 ;
3997
J3 = 3*I1-4*J2 ;
3998
S1++;
3999
S2++;
4000
}
4001
}
4002
for (I3=ceild(2*I1+I2+1,3);I3<=I1-I2;I3++) {
4003
J3 = I1-(I2)-(I3) ;
4004
S1++;
4005
J3 = -I1-2*(I2)+2*I3 ;
4006
S2++;
4007
}
4008
for (I3=I1-I2+1;I3<=min(N1,floord(2*I1+3*I2,3));I3++) {
4009
J3 = -I1-2*(I2)+2*I3 ;
4010
S2++;
4011
}
4012
}
4013
if ((I1-1)%4 == 0) {
4014
I2 = (I1-1)/4 ;
4015
for (I3=2*I2+1;I3<=3*I2;I3++) {
4016
J3 = I1-(I2)-(I3) ;
4017
S1++;
4018
}
4019
if ((9*I1-1)%12 == 0) {
4020
I3 = (9*I1-1)/12 ;
4021
J1 = -2*I1+3*I3 ;
4022
if ((2*I1+J1)%3 == 0) {
4023
J2 = (2*I1+J1)/3 ;
4024
J3 = 3*I1-4*J2 ;
4025
S1++;
4026
S2++;
4027
}
4028
}
4029
if ((3*I1+1)%4 == 0) {
4030
I3 = (3*I1+1)/4 ;
4031
J3 = I1-(I2)-(I3) ;
4032
S1++;
4033
J3 = -I1-2*(I2)+2*I3 ;
4034
S2++;
4035
}
4036
for (I3=3*I2+2;I3<=min(N1,floord(11*I2+2,3));I3++) {
4037
J3 = -I1-2*(I2)+2*I3 ;
4038
S2++;
4039
}
4040
}
4041
if (I1%4 == 0) {
4042
for (I3=2*I1/4;I3<=floord(6*I1/4-1,2);I3++) {
4043
J3 = I1-(I2)-(I3) ;
4044
S1++;
4045
}
4046
if (3*I1%4 == 0) {
4047
I3 = 3*I1/4 ;
4048
J1 = -2*I1+3*I3 ;
4049
if ((2*I1+J1)%3 == 0) {
4050
J2 = (2*I1+J1)/3 ;
4051
J3 = 3*I1-4*J2 ;
4052
S1++;
4053
S2++;
4054
}
4055
}
4056
for (I3=3*I1/4+1;I3<=min(N1,floord(11*I1/4,3));I3++) {
4057
J3 = -I1-2*(I2)+2*I3 ;
4058
S2++;
4059
}
4060
}
4061
for (I2=ceild(I1+1,4);I2<=I1-1;I2++) {
4062
for (I3=max(max(1,ceild(I1-I2,2)),I1-2*I2);I3<=I1-I2;I3++) {
4063
J3 = I1-(I2)-(I3) ;
4064
S1++;
4065
}
4066
for (I3=max(I1-I2+1,ceild(I1+2*I2,2));I3<=min(N1,floord(2*I1+3*I2,3));I3++) {
4067
J3 = -I1-2*(I2)+2*I3 ;
4068
S2++;
4069
}
4070
}
4071
for (I2=I1;I2<=floord(-I1+2*N1,2);I2++) {
4072
for (I3=ceild(I1+2*I2,2);I3<=min(N1,floord(2*I1+3*I2,3));I3++) {
4073
J3 = -I1-2*(I2)+2*I3 ;
4074
S2++;
4075
}
4076
}
4077
}
4078
if ((N1 <= 16) && (N1 >= 11)) {
4079
for (I3=ceild(12+2*1,2);I3<=min(12-2*(1)-1,floord(2*12+3*1,3));I3++) {
4080
J3 = -(12)-2*(I2)+2*I3 ;
4081
S2++;
4082
}
4083
for (I3=12-2*(1);I3<=min(N1,12-(1));I3++) {
4084
J3 = 12-(I2)-(I3) ;
4085
S1++;
4086
}
4087
for (I2=2;I2<=1;I2++) {
4088
for (I3=ceild(12+2*I2,2);I3<=12-2*I2-1;I3++) {
4089
J3 = -(12)-2*(I2)+2*I3 ;
4090
S2++;
4091
}
4092
for (I3=12-2*I2;I3<=floord(2*12+3*I2,3);I3++) {
4093
J3 = 12-(I2)-(I3) ;
4094
S1++;
4095
J3 = -(12)-2*(I2)+2*I3 ;
4096
S2++;
4097
}
4098
for (I3=ceild(2*12+3*I2+1,3);I3<=min(N1,12-I2);I3++) {
4099
J3 = 12-(I2)-(I3) ;
4100
S1++;
4101
}
4102
}
4103
for (I3=4*2;I3<=floord(13*2-1,3);I3++) {
4104
J3 = -(12)-2*(I2)+2*I3 ;
4105
S2++;
4106
J3 = 12-(I2)-(I3) ;
4107
S1++;
4108
}
4109
if (13*12%18 == 0) {
4110
I3 = 13*12/18 ;
4111
J1 = -2*(12)+3*I3 ;
4112
if ((2*12+J1)%3 == 0) {
4113
J2 = (2*12+J1)/3 ;
4114
J3 = 3*12-4*J2 ;
4115
S1++;
4116
S2++;
4117
}
4118
}
4119
for (I3=ceild(13*2+1,3);I3<=min(N1,5*2);I3++) {
4120
J3 = 12-(I2)-(I3) ;
4121
S1++;
4122
J3 = -(12)-2*(I2)+2*I3 ;
4123
S2++;
4124
}
4125
for (I2=max(3,-N1+13);I2<=2;I2++) {
4126
for (I3=12-2*I2;I3<=floord(12+2*I2-1,2);I3++) {
4127
J3 = 12-(I2)-(I3) ;
4128
S1++;
4129
}
4130
for (I3=ceild(12+2*I2,2);I3<=floord(2*12+I2-1,3);I3++) {
4131
J3 = -(12)-2*(I2)+2*I3 ;
4132
S2++;
4133
J3 = 12-(I2)-(I3) ;
4134
S1++;
4135
}
4136
if ((2*12+I2)%3 == 0) {
4137
I3 = (2*12+I2)/3 ;
4138
J1 = -2*(12)+3*I3 ;
4139
if ((2*12+J1)%3 == 0) {
4140
J2 = (2*12+J1)/3 ;
4141
J3 = 3*12-4*J2 ;
4142
S1++;
4143
S2++;
4144
}
4145
}
4146
for (I3=ceild(2*12+I2+1,3);I3<=12-I2;I3++) {
4147
J3 = 12-(I2)-(I3) ;
4148
S1++;
4149
J3 = -(12)-2*(I2)+2*I3 ;
4150
S2++;
4151
}
4152
}
4153
if (5%2 == 0) {
4154
for (I3=12-2*(5/2);I3<=floord(12+2*5/2-1,2);I3++) {
4155
J3 = 12-(I2)-(I3) ;
4156
S1++;
4157
}
4158
for (I3=ceild(12+2*5/2,2);I3<=floord(2*12+5/2-1,3);I3++) {
4159
J3 = -(12)-2*(I2)+2*I3 ;
4160
S2++;
4161
J3 = 12-(I2)-(I3) ;
4162
S1++;
4163
}
4164
if ((2*12+5/2)%3 == 0) {
4165
I3 = (2*12+5/2)/3 ;
4166
J1 = -2*(12)+3*I3 ;
4167
if ((2*12+J1)%3 == 0) {
4168
J2 = (2*12+J1)/3 ;
4169
J3 = 3*12-4*J2 ;
4170
S1++;
4171
S2++;
4172
}
4173
}
4174
for (I3=ceild(2*12+5/2+1,3);I3<=12-(5/2);I3++) {
4175
J3 = 12-(I2)-(I3) ;
4176
S1++;
4177
J3 = -(12)-2*(I2)+2*I3 ;
4178
S2++;
4179
}
4180
for (I3=12-(5/2)+1;I3<=min(N1,floord(2*12+3*5/2,3));I3++) {
4181
J3 = -(12)-2*(I2)+2*I3 ;
4182
S2++;
4183
}
4184
}
4185
if (11%4 == 0) {
4186
for (I3=2*11/4+1;I3<=3*11/4;I3++) {
4187
J3 = 12-(I2)-(I3) ;
4188
S1++;
4189
}
4190
if ((9*12-1)%12 == 0) {
4191
I3 = (9*12-1)/12 ;
4192
J1 = -2*(12)+3*I3 ;
4193
if ((2*12+J1)%3 == 0) {
4194
J2 = (2*12+J1)/3 ;
4195
J3 = 3*12-4*J2 ;
4196
S1++;
4197
S2++;
4198
}
4199
}
4200
if ((3*12+1)%4 == 0) {
4201
I3 = (3*12+1)/4 ;
4202
J3 = 12-(I2)-(I3) ;
4203
S1++;
4204
J3 = -(12)-2*(I2)+2*I3 ;
4205
S2++;
4206
}
4207
for (I3=3*11/4+2;I3<=min(N1,floord(11*11/4+2,3));I3++) {
4208
J3 = -(12)-2*(I2)+2*I3 ;
4209
S2++;
4210
}
4211
}
4212
for (I3=2*3;I3<=floord(6*3-1,2);I3++) {
4213
J3 = 12-(I2)-(I3) ;
4214
S1++;
4215
}
4216
if (3*12%4 == 0) {
4217
I3 = 3*12/4 ;
4218
J1 = -2*(12)+3*I3 ;
4219
if ((2*12+J1)%3 == 0) {
4220
J2 = (2*12+J1)/3 ;
4221
J3 = 3*12-4*J2 ;
4222
S1++;
4223
S2++;
4224
}
4225
}
4226
for (I3=3*3+1;I3<=min(N1,floord(11*3,3));I3++) {
4227
J3 = -(12)-2*(I2)+2*I3 ;
4228
S2++;
4229
}
4230
for (I2=4;I2<=N1-6;I2++) {
4231
for (I3=max(max(1,ceild(12-I2,2)),12-2*I2);I3<=12-I2;I3++) {
4232
J3 = 12-(I2)-(I3) ;
4233
S1++;
4234
}
4235
for (I3=max(12-I2+1,ceild(12+2*I2,2));I3<=min(N1,floord(2*12+3*I2,3));I3++) {
4236
J3 = -(12)-2*(I2)+2*I3 ;
4237
S2++;
4238
}
4239
}
4240
for (I2=ceild(2*N1-11,2);I2<=min(N1,11);I2++) {
4241
for (I3=max(max(ceild(12-I2,2),12-2*I2),1);I3<=min(12-I2,N1);I3++) {
4242
J3 = 12-(I2)-(I3) ;
4243
S1++;
4244
}
4245
}
4246
}
4247
for (I1=max(max(10,ceild(12*N1-39,7)),ceild(6*N1-3,5));I1<=floord(4*N1-5,3);I1++) {
4248
for (I2=1;I2<=floord(I1-1,9);I2++) {
4249
for (I3=ceild(I1+2*I2,2);I3<=min(I1-2*I2-1,floord(2*I1+3*I2,3));I3++) {
4250
J3 = -I1-2*(I2)+2*I3 ;
4251
S2++;
4252
}
4253
for (I3=I1-2*I2;I3<=min(N1,I1-I2);I3++) {
4254
J3 = I1-(I2)-(I3) ;
4255
S1++;
4256
}
4257
}
4258
for (I2=ceild(I1,9);I2<=floord(I1-1,7);I2++) {
4259
for (I3=ceild(I1+2*I2,2);I3<=I1-2*I2-1;I3++) {
4260
J3 = -I1-2*(I2)+2*I3 ;
4261
S2++;
4262
}
4263
for (I3=I1-2*I2;I3<=floord(2*I1+3*I2,3);I3++) {
4264
J3 = I1-(I2)-(I3) ;
4265
S1++;
4266
J3 = -I1-2*(I2)+2*I3 ;
4267
S2++;
4268
}
4269
for (I3=ceild(2*I1+3*I2+1,3);I3<=min(N1,I1-I2);I3++) {
4270
J3 = I1-(I2)-(I3) ;
4271
S1++;
4272
}
4273
}
4274
if (I1%6 == 0) {
4275
for (I3=4*I1/6;I3<=floord(13*I1/6-1,3);I3++) {
4276
J3 = -I1-2*(I2)+2*I3 ;
4277
S2++;
4278
J3 = I1-(I2)-(I3) ;
4279
S1++;
4280
}
4281
if (13*I1%18 == 0) {
4282
I3 = 13*I1/18 ;
4283
J1 = -2*I1+3*I3 ;
4284
if ((2*I1+J1)%3 == 0) {
4285
J2 = (2*I1+J1)/3 ;
4286
J3 = 3*I1-4*J2 ;
4287
S1++;
4288
S2++;
4289
}
4290
}
4291
for (I3=ceild(13*I1/6+1,3);I3<=min(N1,5*I1/6);I3++) {
4292
J3 = I1-(I2)-(I3) ;
4293
S1++;
4294
J3 = -I1-2*(I2)+2*I3 ;
4295
S2++;
4296
}
4297
}
4298
if ((I1-1)%4 == 0) {
4299
I2 = (I1-1)/4 ;
4300
for (I3=2*I2+1;I3<=3*I2;I3++) {
4301
J3 = I1-(I2)-(I3) ;
4302
S1++;
4303
}
4304
if ((9*I1-1)%12 == 0) {
4305
I3 = (9*I1-1)/12 ;
4306
J1 = -2*I1+3*I3 ;
4307
if ((2*I1+J1)%3 == 0) {
4308
J2 = (2*I1+J1)/3 ;
4309
J3 = 3*I1-4*J2 ;
4310
S1++;
4311
S2++;
4312
}
4313
}
4314
if ((3*I1+1)%4 == 0) {
4315
I3 = (3*I1+1)/4 ;
4316
J3 = I1-(I2)-(I3) ;
4317
S1++;
4318
J3 = -I1-2*(I2)+2*I3 ;
4319
S2++;
4320
}
4321
for (I3=3*I2+2;I3<=min(N1,floord(11*I2+2,3));I3++) {
4322
J3 = -I1-2*(I2)+2*I3 ;
4323
S2++;
4324
}
4325
}
4326
if (I1%4 == 0) {
4327
for (I3=2*I1/4;I3<=floord(6*I1/4-1,2);I3++) {
4328
J3 = I1-(I2)-(I3) ;
4329
S1++;
4330
}
4331
if (3*I1%4 == 0) {
4332
I3 = 3*I1/4 ;
4333
J1 = -2*I1+3*I3 ;
4334
if ((2*I1+J1)%3 == 0) {
4335
J2 = (2*I1+J1)/3 ;
4336
J3 = 3*I1-4*J2 ;
4337
S1++;
4338
S2++;
4339
}
4340
}
4341
for (I3=3*I1/4+1;I3<=min(N1,floord(11*I1/4,3));I3++) {
4342
J3 = -I1-2*(I2)+2*I3 ;
4343
S2++;
4344
}
4345
}
4346
for (I2=ceild(I1+1,4);I2<=floord(-I1+2*N1,2);I2++) {
4347
for (I3=max(max(1,ceild(I1-I2,2)),I1-2*I2);I3<=I1-I2;I3++) {
4348
J3 = I1-(I2)-(I3) ;
4349
S1++;
4350
}
4351
for (I3=max(I1-I2+1,ceild(I1+2*I2,2));I3<=min(N1,floord(2*I1+3*I2,3));I3++) {
4352
J3 = -I1-2*(I2)+2*I3 ;
4353
S2++;
4354
}
4355
}
4356
for (I2=ceild(-I1+2*N1+1,2);I2<=N1;I2++) {
4357
for (I3=max(max(ceild(I1-I2,2),I1-2*I2),1);I3<=min(I1-I2,N1);I3++) {
4358
J3 = I1-(I2)-(I3) ;
4359
S1++;
4360
}
4361
}
4362
}
4363
if ((N1 <= 7) && (N1 >= 7)) {
4364
if ((4*N1-1)%3 == 0) {
4365
I1 = (4*N1-1)/3 ;
4366
for (I2=1;I2<=floord(4*N1-4,21);I2++) {
4367
for (I3=ceild(I1+2*I2,2);I3<=I1-2*I2-1;I3++) {
4368
J3 = -I1-2*(I2)+2*I3 ;
4369
S2++;
4370
}
4371
for (I3=I1-2*I2;I3<=N1;I3++) {
4372
J3 = I1-(I2)-(I3) ;
4373
S1++;
4374
J3 = -I1-2*(I2)+2*I3 ;
4375
S2++;
4376
}
4377
}
4378
if ((4*N1-1)%18 == 0) {
4379
I2 = (4*N1-1)/18 ;
4380
for (I3=4*I2;I3<=floord(13*I2-1,3);I3++) {
4381
J3 = -I1-2*(I2)+2*I3 ;
4382
S2++;
4383
J3 = I1-(I2)-(I3) ;
4384
S1++;
4385
}
4386
if (13*I1%18 == 0) {
4387
I3 = 13*I1/18 ;
4388
J1 = -2*I1+3*I3 ;
4389
if ((2*I1+J1)%3 == 0) {
4390
J2 = (2*I1+J1)/3 ;
4391
J3 = 3*I1-4*J2 ;
4392
S1++;
4393
S2++;
4394
}
4395
}
4396
for (I3=ceild(13*I2+1,3);I3<=min(N1,5*I2);I3++) {
4397
J3 = I1-(I2)-(I3) ;
4398
S1++;
4399
J3 = -I1-2*(I2)+2*I3 ;
4400
S2++;
4401
}
4402
}
4403
for (I2=ceild(2*N1+1,9);I2<=floord(4*N1-7,12);I2++) {
4404
for (I3=I1-2*I2;I3<=floord(I1+2*I2-1,2);I3++) {
4405
J3 = I1-(I2)-(I3) ;
4406
S1++;
4407
}
4408
for (I3=ceild(I1+2*I2,2);I3<=floord(2*I1+I2-1,3);I3++) {
4409
J3 = -I1-2*(I2)+2*I3 ;
4410
S2++;
4411
J3 = I1-(I2)-(I3) ;
4412
S1++;
4413
}
4414
if ((2*I1+I2)%3 == 0) {
4415
I3 = (2*I1+I2)/3 ;
4416
J1 = -2*I1+3*I3 ;
4417
if ((2*I1+J1)%3 == 0) {
4418
J2 = (2*I1+J1)/3 ;
4419
J3 = 3*I1-4*J2 ;
4420
S1++;
4421
S2++;
4422
}
4423
}
4424
for (I3=ceild(2*I1+I2+1,3);I3<=N1;I3++) {
4425
J3 = I1-(I2)-(I3) ;
4426
S1++;
4427
J3 = -I1-2*(I2)+2*I3 ;
4428
S2++;
4429
}
4430
}
4431
if ((N1-1)%3 == 0) {
4432
I2 = (N1-1)/3 ;
4433
for (I3=ceild(2*N1+1,3);I3<=N1-1;I3++) {
4434
J3 = I1-(I2)-(I3) ;
4435
S1++;
4436
}
4437
if (-1%3 == 0) {
4438
I3 = (3*N1-1)/3 ;
4439
J1 = -2*I1+3*I3 ;
4440
if ((2*I1+J1)%3 == 0) {
4441
J2 = (2*I1+J1)/3 ;
4442
J3 = 3*I1-4*J2 ;
4443
S1++;
4444
S2++;
4445
}
4446
}
4447
J3 = I1-(I2)-(I3) ;
4448
S1++;
4449
J3 = -I1-2*(I2)+2*I3 ;
4450
S2++;
4451
}
4452
for (I2=ceild(N1+2,3);I2<=N1;I2++) {
4453
for (I3=max(max(ceild(I1-I2,2),I1-2*I2),1);I3<=min(I1-I2,N1);I3++) {
4454
J3 = I1-(I2)-(I3) ;
4455
S1++;
4456
}
4457
}
4458
}
4459
}
4460
for (I1=max(N1+3,ceild(3*N1-1,2));I1<=floord(18*N1+5,13);I1++) {
4461
for (I2=1;I2<=floord(I1-N1-1,2);I2++) {
4462
for (I3=ceild(I1+2*I2,2);I3<=min(N1,floord(2*I1+3*I2,3));I3++) {
4463
J3 = -I1-2*(I2)+2*I3 ;
4464
S2++;
4465
}
4466
}
4467
for (I2=-2*I1+3*N1+1;I2<=floord(-I1+2*N1,2);I2++) {
4468
for (I3=I1-2*I2;I3<=floord(I1+2*I2-1,2);I3++) {
4469
J3 = I1-(I2)-(I3) ;
4470
S1++;
4471
}
4472
for (I3=ceild(I1+2*I2,2);I3<=N1;I3++) {
4473
J3 = -I1-2*(I2)+2*I3 ;
4474
S2++;
4475
J3 = I1-(I2)-(I3) ;
4476
S1++;
4477
}
4478
}
4479
for (I2=ceild(-I1+2*N1+1,2);I2<=N1;I2++) {
4480
for (I3=max(max(ceild(I1-I2,2),I1-2*I2),1);I3<=min(I1-I2,N1);I3++) {
4481
J3 = I1-(I2)-(I3) ;
4482
S1++;
4483
}
4484
}
4485
}
4486
for (I1=20;I1<=floord(2*N1,3);I1++) {
4487
for (I2=1;I2<=floord(I1-1,9);I2++) {
4488
for (I3=ceild(I1+2*I2,2);I3<=min(I1-2*I2-1,floord(2*I1+3*I2,3));I3++) {
4489
J3 = -I1-2*(I2)+2*I3 ;
4490
S2++;
4491
}
4492
for (I3=I1-2*I2;I3<=min(N1,I1-I2);I3++) {
4493
J3 = I1-(I2)-(I3) ;
4494
S1++;
4495
}
4496
}
4497
for (I2=ceild(I1,9);I2<=floord(I1-1,7);I2++) {
4498
for (I3=ceild(I1+2*I2,2);I3<=I1-2*I2-1;I3++) {
4499
J3 = -I1-2*(I2)+2*I3 ;
4500
S2++;
4501
}
4502
for (I3=I1-2*I2;I3<=floord(2*I1+3*I2,3);I3++) {
4503
J3 = I1-(I2)-(I3) ;
4504
S1++;
4505
J3 = -I1-2*(I2)+2*I3 ;
4506
S2++;
4507
}
4508
for (I3=ceild(2*I1+3*I2+1,3);I3<=min(N1,I1-I2);I3++) {
4509
J3 = I1-(I2)-(I3) ;
4510
S1++;
4511
}
4512
}
4513
if (I1%7 == 0) {
4514
for (I3=ceild(9*I1/7,2);I3<=5*I1/7-1;I3++) {
4515
J3 = -I1-2*(I2)+2*I3 ;
4516
S2++;
4517
}
4518
if (5*I1%7 == 0) {
4519
I3 = 5*I1/7 ;
4520
J1 = -2*I1+3*I3 ;
4521
if ((2*I1+J1)%3 == 0) {
4522
J2 = (2*I1+J1)/3 ;
4523
J3 = 3*I1-4*J2 ;
4524
S1++;
4525
S2++;
4526
}
4527
}
4528
for (I3=ceild(15*I1/7+1,3);I3<=floord(17*I1/7,3);I3++) {
4529
J3 = I1-(I2)-(I3) ;
4530
S1++;
4531
J3 = -I1-2*(I2)+2*I3 ;
4532
S2++;
4533
}
4534
for (I3=ceild(17*I1/7+1,3);I3<=min(N1,6*I1/7);I3++) {
4535
J3 = I1-(I2)-(I3) ;
4536
S1++;
4537
}
4538
}
4539
for (I2=ceild(I1+1,7);I2<=floord(I1-2,6);I2++) {
4540
for (I3=ceild(I1+2*I2,2);I3<=I1-2*I2-1;I3++) {
4541
J3 = -I1-2*(I2)+2*I3 ;
4542
S2++;
4543
}
4544
for (I3=I1-2*I2;I3<=floord(2*I1+I2-1,3);I3++) {
4545
J3 = -I1-2*(I2)+2*I3 ;
4546
S2++;
4547
J3 = I1-(I2)-(I3) ;
4548
S1++;
4549
}
4550
if ((2*I1+I2)%3 == 0) {
4551
I3 = (2*I1+I2)/3 ;
4552
J1 = -2*I1+3*I3 ;
4553
if ((2*I1+J1)%3 == 0) {
4554
J2 = (2*I1+J1)/3 ;
4555
J3 = 3*I1-4*J2 ;
4556
S1++;
4557
S2++;
4558
}
4559
}
4560
for (I3=ceild(2*I1+I2+1,3);I3<=floord(2*I1+3*I2,3);I3++) {
4561
J3 = I1-(I2)-(I3) ;
4562
S1++;
4563
J3 = -I1-2*(I2)+2*I3 ;
4564
S2++;
4565
}
4566
for (I3=ceild(2*I1+3*I2+1,3);I3<=min(N1,I1-I2);I3++) {
4567
J3 = I1-(I2)-(I3) ;
4568
S1++;
4569
}
4570
}
4571
if ((I1-1)%6 == 0) {
4572
I2 = (I1-1)/6 ;
4573
for (I3=4*I2+1;I3<=floord(13*I2+1,3);I3++) {
4574
J3 = -I1-2*(I2)+2*I3 ;
4575
S2++;
4576
J3 = I1-(I2)-(I3) ;
4577
S1++;
4578
}
4579
if ((13*I1-1)%18 == 0) {
4580
I3 = (13*I1-1)/18 ;
4581
J1 = -2*I1+3*I3 ;
4582
if ((2*I1+J1)%3 == 0) {
4583
J2 = (2*I1+J1)/3 ;
4584
J3 = 3*I1-4*J2 ;
4585
S1++;
4586
S2++;
4587
}
4588
}
4589
for (I3=ceild(13*I2+3,3);I3<=floord(15*I2+2,3);I3++) {
4590
J3 = I1-(I2)-(I3) ;
4591
S1++;
4592
J3 = -I1-2*(I2)+2*I3 ;
4593
S2++;
4594
}
4595
if ((5*I1+1)%6 == 0) {
4596
I3 = (5*I1+1)/6 ;
4597
J3 = I1-(I2)-(I3) ;
4598
S1++;
4599
}
4600
}
4601
if (I1%6 == 0) {
4602
for (I3=4*I1/6;I3<=floord(13*I1/6-1,3);I3++) {
4603
J3 = -I1-2*(I2)+2*I3 ;
4604
S2++;
4605
J3 = I1-(I2)-(I3) ;
4606
S1++;
4607
}
4608
if (13*I1%18 == 0) {
4609
I3 = 13*I1/18 ;
4610
J1 = -2*I1+3*I3 ;
4611
if ((2*I1+J1)%3 == 0) {
4612
J2 = (2*I1+J1)/3 ;
4613
J3 = 3*I1-4*J2 ;
4614
S1++;
4615
S2++;
4616
}
4617
}
4618
for (I3=ceild(13*I1/6+1,3);I3<=min(N1,5*I1/6);I3++) {
4619
J3 = I1-(I2)-(I3) ;
4620
S1++;
4621
J3 = -I1-2*(I2)+2*I3 ;
4622
S2++;
4623
}
4624
}
4625
for (I2=ceild(I1+1,6);I2<=floord(I1+2,6);I2++) {
4626
for (I3=I1-2*I2;I3<=floord(I1+2*I2-1,2);I3++) {
4627
J3 = I1-(I2)-(I3) ;
4628
S1++;
4629
}
4630
for (I3=ceild(I1+2*I2,2);I3<=floord(2*I1+I2-1,3);I3++) {
4631
J3 = -I1-2*(I2)+2*I3 ;
4632
S2++;
4633
J3 = I1-(I2)-(I3) ;
4634
S1++;
4635
}
4636
if ((2*I1+I2)%3 == 0) {
4637
I3 = (2*I1+I2)/3 ;
4638
J1 = -2*I1+3*I3 ;
4639
if ((2*I1+J1)%3 == 0) {
4640
J2 = (2*I1+J1)/3 ;
4641
J3 = 3*I1-4*J2 ;
4642
S1++;
4643
S2++;
4644
}
4645
}
4646
for (I3=ceild(2*I1+I2+1,3);I3<=I1-I2;I3++) {
4647
J3 = I1-(I2)-(I3) ;
4648
S1++;
4649
J3 = -I1-2*(I2)+2*I3 ;
4650
S2++;
4651
}
4652
}
4653
for (I2=ceild(I1+3,6);I2<=floord(I1-2,4);I2++) {
4654
for (I3=I1-2*I2;I3<=floord(I1+2*I2-1,2);I3++) {
4655
J3 = I1-(I2)-(I3) ;
4656
S1++;
4657
}
4658
for (I3=ceild(I1+2*I2,2);I3<=floord(2*I1+I2-1,3);I3++) {
4659
J3 = -I1-2*(I2)+2*I3 ;
4660
S2++;
4661
J3 = I1-(I2)-(I3) ;
4662
S1++;
4663
}
4664
if ((2*I1+I2)%3 == 0) {
4665
I3 = (2*I1+I2)/3 ;
4666
J1 = -2*I1+3*I3 ;
4667
if ((2*I1+J1)%3 == 0) {
4668
J2 = (2*I1+J1)/3 ;
4669
J3 = 3*I1-4*J2 ;
4670
S1++;
4671
S2++;
4672
}
4673
}
4674
for (I3=ceild(2*I1+I2+1,3);I3<=I1-I2;I3++) {
4675
J3 = I1-(I2)-(I3) ;
4676
S1++;
4677
J3 = -I1-2*(I2)+2*I3 ;
4678
S2++;
4679
}
4680
for (I3=I1-I2+1;I3<=min(N1,floord(2*I1+3*I2,3));I3++) {
4681
J3 = -I1-2*(I2)+2*I3 ;
4682
S2++;
4683
}
4684
}
4685
if ((I1-1)%4 == 0) {
4686
I2 = (I1-1)/4 ;
4687
for (I3=2*I2+1;I3<=3*I2;I3++) {
4688
J3 = I1-(I2)-(I3) ;
4689
S1++;
4690
}
4691
if ((9*I1-1)%12 == 0) {
4692
I3 = (9*I1-1)/12 ;
4693
J1 = -2*I1+3*I3 ;
4694
if ((2*I1+J1)%3 == 0) {
4695
J2 = (2*I1+J1)/3 ;
4696
J3 = 3*I1-4*J2 ;
4697
S1++;
4698
S2++;
4699
}
4700
}
4701
if ((3*I1+1)%4 == 0) {
4702
I3 = (3*I1+1)/4 ;
4703
J3 = I1-(I2)-(I3) ;
4704
S1++;
4705
J3 = -I1-2*(I2)+2*I3 ;
4706
S2++;
4707
}
4708
for (I3=3*I2+2;I3<=min(N1,floord(11*I2+2,3));I3++) {
4709
J3 = -I1-2*(I2)+2*I3 ;
4710
S2++;
4711
}
4712
}
4713
if (I1%4 == 0) {
4714
for (I3=2*I1/4;I3<=floord(6*I1/4-1,2);I3++) {
4715
J3 = I1-(I2)-(I3) ;
4716
S1++;
4717
}
4718
if (3*I1%4 == 0) {
4719
I3 = 3*I1/4 ;
4720
J1 = -2*I1+3*I3 ;
4721
if ((2*I1+J1)%3 == 0) {
4722
J2 = (2*I1+J1)/3 ;
4723
J3 = 3*I1-4*J2 ;
4724
S1++;
4725
S2++;
4726
}
4727
}
4728
for (I3=3*I1/4+1;I3<=min(N1,floord(11*I1/4,3));I3++) {
4729
J3 = -I1-2*(I2)+2*I3 ;
4730
S2++;
4731
}
4732
}
4733
for (I2=ceild(I1+1,4);I2<=I1-1;I2++) {
4734
for (I3=max(max(1,ceild(I1-I2,2)),I1-2*I2);I3<=I1-I2;I3++) {
4735
J3 = I1-(I2)-(I3) ;
4736
S1++;
4737
}
4738
for (I3=max(I1-I2+1,ceild(I1+2*I2,2));I3<=min(N1,floord(2*I1+3*I2,3));I3++) {
4739
J3 = -I1-2*(I2)+2*I3 ;
4740
S2++;
4741
}
4742
}
4743
for (I2=I1;I2<=floord(-I1+2*N1,2);I2++) {
4744
for (I3=ceild(I1+2*I2,2);I3<=min(N1,floord(2*I1+3*I2,3));I3++) {
4745
J3 = -I1-2*(I2)+2*I3 ;
4746
S2++;
4747
}
4748
}
4749
}
4750
for (I1=max(14,ceild(2*N1+1,3));I1<=min(19,floord(2*N1+2,3));I1++) {
4751
for (I2=1;I2<=floord(I1-1,9);I2++) {
4752
for (I3=ceild(I1+2*I2,2);I3<=min(I1-2*I2-1,floord(2*I1+3*I2,3));I3++) {
4753
J3 = -I1-2*(I2)+2*I3 ;
4754
S2++;
4755
}
4756
for (I3=I1-2*I2;I3<=min(N1,I1-I2);I3++) {
4757
J3 = I1-(I2)-(I3) ;
4758
S1++;
4759
}
4760
}
4761
for (I2=ceild(I1,9);I2<=floord(I1-1,7);I2++) {
4762
for (I3=ceild(I1+2*I2,2);I3<=I1-2*I2-1;I3++) {
4763
J3 = -I1-2*(I2)+2*I3 ;
4764
S2++;
4765
}
4766
for (I3=I1-2*I2;I3<=floord(2*I1+3*I2,3);I3++) {
4767
J3 = I1-(I2)-(I3) ;
4768
S1++;
4769
J3 = -I1-2*(I2)+2*I3 ;
4770
S2++;
4771
}
4772
for (I3=ceild(2*I1+3*I2+1,3);I3<=min(N1,I1-I2);I3++) {
4773
J3 = I1-(I2)-(I3) ;
4774
S1++;
4775
}
4776
}
4777
if (I1%7 == 0) {
4778
for (I3=ceild(9*I1/7,2);I3<=5*I1/7-1;I3++) {
4779
J3 = -I1-2*(I2)+2*I3 ;
4780
S2++;
4781
}
4782
if (5*I1%7 == 0) {
4783
I3 = 5*I1/7 ;
4784
J1 = -2*I1+3*I3 ;
4785
if ((2*I1+J1)%3 == 0) {
4786
J2 = (2*I1+J1)/3 ;
4787
J3 = 3*I1-4*J2 ;
4788
S1++;
4789
S2++;
4790
}
4791
}
4792
for (I3=ceild(15*I1/7+1,3);I3<=floord(17*I1/7,3);I3++) {
4793
J3 = I1-(I2)-(I3) ;
4794
S1++;
4795
J3 = -I1-2*(I2)+2*I3 ;
4796
S2++;
4797
}
4798
for (I3=ceild(17*I1/7+1,3);I3<=min(N1,6*I1/7);I3++) {
4799
J3 = I1-(I2)-(I3) ;
4800
S1++;
4801
}
4802
}
4803
if ((I1-1)%6 == 0) {
4804
I2 = (I1-1)/6 ;
4805
for (I3=4*I2+1;I3<=floord(13*I2+1,3);I3++) {
4806
J3 = -I1-2*(I2)+2*I3 ;
4807
S2++;
4808
J3 = I1-(I2)-(I3) ;
4809
S1++;
4810
}
4811
if ((13*I1-1)%18 == 0) {
4812
I3 = (13*I1-1)/18 ;
4813
J1 = -2*I1+3*I3 ;
4814
if ((2*I1+J1)%3 == 0) {
4815
J2 = (2*I1+J1)/3 ;
4816
J3 = 3*I1-4*J2 ;
4817
S1++;
4818
S2++;
4819
}
4820
}
4821
for (I3=ceild(13*I2+3,3);I3<=floord(15*I2+2,3);I3++) {
4822
J3 = I1-(I2)-(I3) ;
4823
S1++;
4824
J3 = -I1-2*(I2)+2*I3 ;
4825
S2++;
4826
}
4827
if ((5*I1+1)%6 == 0) {
4828
I3 = (5*I1+1)/6 ;
4829
J3 = I1-(I2)-(I3) ;
4830
S1++;
4831
}
4832
}
4833
if (I1%6 == 0) {
4834
for (I3=4*I1/6;I3<=floord(13*I1/6-1,3);I3++) {
4835
J3 = -I1-2*(I2)+2*I3 ;
4836
S2++;
4837
J3 = I1-(I2)-(I3) ;
4838
S1++;
4839
}
4840
if (13*I1%18 == 0) {
4841
I3 = 13*I1/18 ;
4842
J1 = -2*I1+3*I3 ;
4843
if ((2*I1+J1)%3 == 0) {
4844
J2 = (2*I1+J1)/3 ;
4845
J3 = 3*I1-4*J2 ;
4846
S1++;
4847
S2++;
4848
}
4849
}
4850
for (I3=ceild(13*I1/6+1,3);I3<=min(N1,5*I1/6);I3++) {
4851
J3 = I1-(I2)-(I3) ;
4852
S1++;
4853
J3 = -I1-2*(I2)+2*I3 ;
4854
S2++;
4855
}
4856
}
4857
for (I2=ceild(I1+1,6);I2<=floord(I1+2,6);I2++) {
4858
for (I3=I1-2*I2;I3<=floord(I1+2*I2-1,2);I3++) {
4859
J3 = I1-(I2)-(I3) ;
4860
S1++;
4861
}
4862
for (I3=ceild(I1+2*I2,2);I3<=floord(2*I1+I2-1,3);I3++) {
4863
J3 = -I1-2*(I2)+2*I3 ;
4864
S2++;
4865
J3 = I1-(I2)-(I3) ;
4866
S1++;
4867
}
4868
if ((2*I1+I2)%3 == 0) {
4869
I3 = (2*I1+I2)/3 ;
4870
J1 = -2*I1+3*I3 ;
4871
if ((2*I1+J1)%3 == 0) {
4872
J2 = (2*I1+J1)/3 ;
4873
J3 = 3*I1-4*J2 ;
4874
S1++;
4875
S2++;
4876
}
4877
}
4878
for (I3=ceild(2*I1+I2+1,3);I3<=I1-I2;I3++) {
4879
J3 = I1-(I2)-(I3) ;
4880
S1++;
4881
J3 = -I1-2*(I2)+2*I3 ;
4882
S2++;
4883
}
4884
}
4885
for (I2=ceild(I1+3,6);I2<=floord(I1-2,4);I2++) {
4886
for (I3=I1-2*I2;I3<=floord(I1+2*I2-1,2);I3++) {
4887
J3 = I1-(I2)-(I3) ;
4888
S1++;
4889
}
4890
for (I3=ceild(I1+2*I2,2);I3<=floord(2*I1+I2-1,3);I3++) {
4891
J3 = -I1-2*(I2)+2*I3 ;
4892
S2++;
4893
J3 = I1-(I2)-(I3) ;
4894
S1++;
4895
}
4896
if ((2*I1+I2)%3 == 0) {
4897
I3 = (2*I1+I2)/3 ;
4898
J1 = -2*I1+3*I3 ;
4899
if ((2*I1+J1)%3 == 0) {
4900
J2 = (2*I1+J1)/3 ;
4901
J3 = 3*I1-4*J2 ;
4902
S1++;
4903
S2++;
4904
}
4905
}
4906
for (I3=ceild(2*I1+I2+1,3);I3<=I1-I2;I3++) {
4907
J3 = I1-(I2)-(I3) ;
4908
S1++;
4909
J3 = -I1-2*(I2)+2*I3 ;
4910
S2++;
4911
}
4912
for (I3=I1-I2+1;I3<=min(N1,floord(2*I1+3*I2,3));I3++) {
4913
J3 = -I1-2*(I2)+2*I3 ;
4914
S2++;
4915
}
4916
}
4917
if ((I1-1)%4 == 0) {
4918
I2 = (I1-1)/4 ;
4919
for (I3=2*I2+1;I3<=3*I2;I3++) {
4920
J3 = I1-(I2)-(I3) ;
4921
S1++;
4922
}
4923
if ((9*I1-1)%12 == 0) {
4924
I3 = (9*I1-1)/12 ;
4925
J1 = -2*I1+3*I3 ;
4926
if ((2*I1+J1)%3 == 0) {
4927
J2 = (2*I1+J1)/3 ;
4928
J3 = 3*I1-4*J2 ;
4929
S1++;
4930
S2++;
4931
}
4932
}
4933
if ((3*I1+1)%4 == 0) {
4934
I3 = (3*I1+1)/4 ;
4935
J3 = I1-(I2)-(I3) ;
4936
S1++;
4937
J3 = -I1-2*(I2)+2*I3 ;
4938
S2++;
4939
}
4940
for (I3=3*I2+2;I3<=min(N1,floord(11*I2+2,3));I3++) {
4941
J3 = -I1-2*(I2)+2*I3 ;
4942
S2++;
4943
}
4944
}
4945
if (I1%4 == 0) {
4946
for (I3=2*I1/4;I3<=floord(6*I1/4-1,2);I3++) {
4947
J3 = I1-(I2)-(I3) ;
4948
S1++;
4949
}
4950
if (3*I1%4 == 0) {
4951
I3 = 3*I1/4 ;
4952
J1 = -2*I1+3*I3 ;
4953
if ((2*I1+J1)%3 == 0) {
4954
J2 = (2*I1+J1)/3 ;
4955
J3 = 3*I1-4*J2 ;
4956
S1++;
4957
S2++;
4958
}
4959
}
4960
for (I3=3*I1/4+1;I3<=min(N1,floord(11*I1/4,3));I3++) {
4961
J3 = -I1-2*(I2)+2*I3 ;
4962
S2++;
4963
}
4964
}
4965
for (I2=ceild(I1+1,4);I2<=I1-1;I2++) {
4966
for (I3=max(max(1,ceild(I1-I2,2)),I1-2*I2);I3<=I1-I2;I3++) {
4967
J3 = I1-(I2)-(I3) ;
4968
S1++;
4969
}
4970
for (I3=max(I1-I2+1,ceild(I1+2*I2,2));I3<=min(N1,floord(2*I1+3*I2,3));I3++) {
4971
J3 = -I1-2*(I2)+2*I3 ;
4972
S2++;
4973
}
4974
}
4975
}
4976
if ((N1 <= 18) && (N1 >= 12)) {
4977
for (I3=ceild(13+2*1,2);I3<=min(13-2*(1)-1,floord(2*13+3*1,3));I3++) {
4978
J3 = -(13)-2*(I2)+2*I3 ;
4979
S2++;
4980
}
4981
for (I3=13-2*(1);I3<=min(N1,13-(1));I3++) {
4982
J3 = 13-(I2)-(I3) ;
4983
S1++;
4984
}
4985
for (I2=2;I2<=1;I2++) {
4986
for (I3=ceild(13+2*I2,2);I3<=13-2*I2-1;I3++) {
4987
J3 = -(13)-2*(I2)+2*I3 ;
4988
S2++;
4989
}
4990
for (I3=13-2*I2;I3<=floord(2*13+3*I2,3);I3++) {
4991
J3 = 13-(I2)-(I3) ;
4992
S1++;
4993
J3 = -(13)-2*(I2)+2*I3 ;
4994
S2++;
4995
}
4996
for (I3=ceild(2*13+3*I2+1,3);I3<=min(N1,13-I2);I3++) {
4997
J3 = 13-(I2)-(I3) ;
4998
S1++;
4999
}
5000
}
5001
for (I3=4*2+1;I3<=floord(13*2+1,3);I3++) {
5002
J3 = -(13)-2*(I2)+2*I3 ;
5003
S2++;
5004
J3 = 13-(I2)-(I3) ;
5005
S1++;
5006
}
5007
if ((13*13-1)%18 == 0) {
5008
I3 = (13*13-1)/18 ;
5009
J1 = -2*(13)+3*I3 ;
5010
if ((2*13+J1)%3 == 0) {
5011
J2 = (2*13+J1)/3 ;
5012
J3 = 3*13-4*J2 ;
5013
S1++;
5014
S2++;
5015
}
5016
}
5017
for (I3=ceild(13*2+3,3);I3<=floord(15*2+2,3);I3++) {
5018
J3 = 13-(I2)-(I3) ;
5019
S1++;
5020
J3 = -(13)-2*(I2)+2*I3 ;
5021
S2++;
5022
}
5023
if ((5*13+1)%6 == 0) {
5024
I3 = (5*13+1)/6 ;
5025
J3 = 13-(I2)-(I3) ;
5026
S1++;
5027
}
5028
if (13%6 == 0) {
5029
for (I3=4*13/6;I3<=floord(13*13/6-1,3);I3++) {
5030
J3 = -(13)-2*(I2)+2*I3 ;
5031
S2++;
5032
J3 = 13-(I2)-(I3) ;
5033
S1++;
5034
}
5035
if (13*13%18 == 0) {
5036
I3 = 13*13/18 ;
5037
J1 = -2*(13)+3*I3 ;
5038
if ((2*13+J1)%3 == 0) {
5039
J2 = (2*13+J1)/3 ;
5040
J3 = 3*13-4*J2 ;
5041
S1++;
5042
S2++;
5043
}
5044
}
5045
for (I3=ceild(13*13/6+1,3);I3<=min(N1,5*13/6);I3++) {
5046
J3 = 13-(I2)-(I3) ;
5047
S1++;
5048
J3 = -(13)-2*(I2)+2*I3 ;
5049
S2++;
5050
}
5051
}
5052
for (I2=max(3,-N1+14);I2<=2;I2++) {
5053
for (I3=13-2*I2;I3<=floord(13+2*I2-1,2);I3++) {
5054
J3 = 13-(I2)-(I3) ;
5055
S1++;
5056
}
5057
for (I3=ceild(13+2*I2,2);I3<=floord(2*13+I2-1,3);I3++) {
5058
J3 = -(13)-2*(I2)+2*I3 ;
5059
S2++;
5060
J3 = 13-(I2)-(I3) ;
5061
S1++;
5062
}
5063
if ((2*13+I2)%3 == 0) {
5064
I3 = (2*13+I2)/3 ;
5065
J1 = -2*(13)+3*I3 ;
5066
if ((2*13+J1)%3 == 0) {
5067
J2 = (2*13+J1)/3 ;
5068
J3 = 3*13-4*J2 ;
5069
S1++;
5070
S2++;
5071
}
5072
}
5073
for (I3=ceild(2*13+I2+1,3);I3<=13-I2;I3++) {
5074
J3 = 13-(I2)-(I3) ;
5075
S1++;
5076
J3 = -(13)-2*(I2)+2*I3 ;
5077
S2++;
5078
}
5079
}
5080
for (I2=3;I2<=2;I2++) {
5081
for (I3=13-2*I2;I3<=floord(13+2*I2-1,2);I3++) {
5082
J3 = 13-(I2)-(I3) ;
5083
S1++;
5084
}
5085
for (I3=ceild(13+2*I2,2);I3<=floord(2*13+I2-1,3);I3++) {
5086
J3 = -(13)-2*(I2)+2*I3 ;
5087
S2++;
5088
J3 = 13-(I2)-(I3) ;
5089
S1++;
5090
}
5091
if ((2*13+I2)%3 == 0) {
5092
I3 = (2*13+I2)/3 ;
5093
J1 = -2*(13)+3*I3 ;
5094
if ((2*13+J1)%3 == 0) {
5095
J2 = (2*13+J1)/3 ;
5096
J3 = 3*13-4*J2 ;
5097
S1++;
5098
S2++;
5099
}
5100
}
5101
for (I3=ceild(2*13+I2+1,3);I3<=13-I2;I3++) {
5102
J3 = 13-(I2)-(I3) ;
5103
S1++;
5104
J3 = -(13)-2*(I2)+2*I3 ;
5105
S2++;
5106
}
5107
for (I3=13-I2+1;I3<=min(N1,floord(2*13+3*I2,3));I3++) {
5108
J3 = -(13)-2*(I2)+2*I3 ;
5109
S2++;
5110
}
5111
}
5112
for (I3=2*3+1;I3<=3*3;I3++) {
5113
J3 = 13-(I2)-(I3) ;
5114
S1++;
5115
}
5116
if ((9*13-1)%12 == 0) {
5117
I3 = (9*13-1)/12 ;
5118
J1 = -2*(13)+3*I3 ;
5119
if ((2*13+J1)%3 == 0) {
5120
J2 = (2*13+J1)/3 ;
5121
J3 = 3*13-4*J2 ;
5122
S1++;
5123
S2++;
5124
}
5125
}
5126
if ((3*13+1)%4 == 0) {
5127
I3 = (3*13+1)/4 ;
5128
J3 = 13-(I2)-(I3) ;
5129
S1++;
5130
J3 = -(13)-2*(I2)+2*I3 ;
5131
S2++;
5132
}
5133
for (I3=3*3+2;I3<=min(N1,floord(11*3+2,3));I3++) {
5134
J3 = -(13)-2*(I2)+2*I3 ;
5135
S2++;
5136
}
5137
if (13%4 == 0) {
5138
for (I3=2*13/4;I3<=floord(6*13/4-1,2);I3++) {
5139
J3 = 13-(I2)-(I3) ;
5140
S1++;
5141
}
5142
if (3*13%4 == 0) {
5143
I3 = 3*13/4 ;
5144
J1 = -2*(13)+3*I3 ;
5145
if ((2*13+J1)%3 == 0) {
5146
J2 = (2*13+J1)/3 ;
5147
J3 = 3*13-4*J2 ;
5148
S1++;
5149
S2++;
5150
}
5151
}
5152
for (I3=3*13/4+1;I3<=min(N1,floord(11*13/4,3));I3++) {
5153
J3 = -(13)-2*(I2)+2*I3 ;
5154
S2++;
5155
}
5156
}
5157
for (I2=4;I2<=floord(2*N1-13,2);I2++) {
5158
for (I3=max(max(1,ceild(13-I2,2)),13-2*I2);I3<=13-I2;I3++) {
5159
J3 = 13-(I2)-(I3) ;
5160
S1++;
5161
}
5162
for (I3=max(13-I2+1,ceild(13+2*I2,2));I3<=min(N1,floord(2*13+3*I2,3));I3++) {
5163
J3 = -(13)-2*(I2)+2*I3 ;
5164
S2++;
5165
}
5166
}
5167
for (I2=N1-6;I2<=min(N1,12);I2++) {
5168
for (I3=max(max(ceild(13-I2,2),13-2*I2),1);I3<=min(13-I2,N1);I3++) {
5169
J3 = 13-(I2)-(I3) ;
5170
S1++;
5171
}
5172
}
5173
}
5174
if ((N1 >= 12) && (N1 <= 11)) {
5175
for (I3=ceild(13+2*1,2);I3<=min(13-2*(1)-1,floord(2*13+3*1,3));I3++) {
5176
J3 = -(13)-2*(I2)+2*I3 ;
5177
S2++;
5178
}
5179
for (I3=13-2*(1);I3<=min(N1,13-(1));I3++) {
5180
J3 = 13-(I2)-(I3) ;
5181
S1++;
5182
}
5183
for (I2=2;I2<=1;I2++) {
5184
for (I3=ceild(13+2*I2,2);I3<=13-2*I2-1;I3++) {
5185
J3 = -(13)-2*(I2)+2*I3 ;
5186
S2++;
5187
}
5188
for (I3=13-2*I2;I3<=floord(2*13+3*I2,3);I3++) {
5189
J3 = 13-(I2)-(I3) ;
5190
S1++;
5191
J3 = -(13)-2*(I2)+2*I3 ;
5192
S2++;
5193
}
5194
for (I3=ceild(2*13+3*I2+1,3);I3<=min(N1,13-I2);I3++) {
5195
J3 = 13-(I2)-(I3) ;
5196
S1++;
5197
}
5198
}
5199
for (I3=4*2+1;I3<=floord(13*2+1,3);I3++) {
5200
J3 = -(13)-2*(I2)+2*I3 ;
5201
S2++;
5202
J3 = 13-(I2)-(I3) ;
5203
S1++;
5204
}
5205
if ((13*13-1)%18 == 0) {
5206
I3 = (13*13-1)/18 ;
5207
J1 = -2*(13)+3*I3 ;
5208
if ((2*13+J1)%3 == 0) {
5209
J2 = (2*13+J1)/3 ;
5210
J3 = 3*13-4*J2 ;
5211
S1++;
5212
S2++;
5213
}
5214
}
5215
for (I3=ceild(13*2+3,3);I3<=floord(15*2+2,3);I3++) {
5216
J3 = 13-(I2)-(I3) ;
5217
S1++;
5218
J3 = -(13)-2*(I2)+2*I3 ;
5219
S2++;
5220
}
5221
if ((5*13+1)%6 == 0) {
5222
I3 = (5*13+1)/6 ;
5223
J3 = 13-(I2)-(I3) ;
5224
S1++;
5225
}
5226
if (13%6 == 0) {
5227
for (I3=4*13/6;I3<=floord(13*13/6-1,3);I3++) {
5228
J3 = -(13)-2*(I2)+2*I3 ;
5229
S2++;
5230
J3 = 13-(I2)-(I3) ;
5231
S1++;
5232
}
5233
if (13*13%18 == 0) {
5234
I3 = 13*13/18 ;
5235
J1 = -2*(13)+3*I3 ;
5236
if ((2*13+J1)%3 == 0) {
5237
J2 = (2*13+J1)/3 ;
5238
J3 = 3*13-4*J2 ;
5239
S1++;
5240
S2++;
5241
}
5242
}
5243
for (I3=ceild(13*13/6+1,3);I3<=min(N1,5*13/6);I3++) {
5244
J3 = 13-(I2)-(I3) ;
5245
S1++;
5246
J3 = -(13)-2*(I2)+2*I3 ;
5247
S2++;
5248
}
5249
}
5250
for (I2=-N1+14;I2<=2;I2++) {
5251
for (I3=13-2*I2;I3<=floord(13+2*I2-1,2);I3++) {
5252
J3 = 13-(I2)-(I3) ;
5253
S1++;
5254
}
5255
for (I3=ceild(13+2*I2,2);I3<=floord(2*13+I2-1,3);I3++) {
5256
J3 = -(13)-2*(I2)+2*I3 ;
5257
S2++;
5258
J3 = 13-(I2)-(I3) ;
5259
S1++;
5260
}
5261
if ((2*13+I2)%3 == 0) {
5262
I3 = (2*13+I2)/3 ;
5263
J1 = -2*(13)+3*I3 ;
5264
if ((2*13+J1)%3 == 0) {
5265
J2 = (2*13+J1)/3 ;
5266
J3 = 3*13-4*J2 ;
5267
S1++;
5268
S2++;
5269
}
5270
}
5271
for (I3=ceild(2*13+I2+1,3);I3<=13-I2;I3++) {
5272
J3 = 13-(I2)-(I3) ;
5273
S1++;
5274
J3 = -(13)-2*(I2)+2*I3 ;
5275
S2++;
5276
}
5277
for (I3=13-I2+1;I3<=min(N1,floord(2*13+3*I2,3));I3++) {
5278
J3 = -(13)-2*(I2)+2*I3 ;
5279
S2++;
5280
}
5281
}
5282
for (I3=2*3+1;I3<=3*3;I3++) {
5283
J3 = 13-(I2)-(I3) ;
5284
S1++;
5285
}
5286
if ((9*13-1)%12 == 0) {
5287
I3 = (9*13-1)/12 ;
5288
J1 = -2*(13)+3*I3 ;
5289
if ((2*13+J1)%3 == 0) {
5290
J2 = (2*13+J1)/3 ;
5291
J3 = 3*13-4*J2 ;
5292
S1++;
5293
S2++;
5294
}
5295
}
5296
if ((3*13+1)%4 == 0) {
5297
I3 = (3*13+1)/4 ;
5298
J3 = 13-(I2)-(I3) ;
5299
S1++;
5300
J3 = -(13)-2*(I2)+2*I3 ;
5301
S2++;
5302
}
5303
for (I3=3*3+2;I3<=min(N1,floord(11*3+2,3));I3++) {
5304
J3 = -(13)-2*(I2)+2*I3 ;
5305
S2++;
5306
}
5307
if (13%4 == 0) {
5308
for (I3=2*13/4;I3<=floord(6*13/4-1,2);I3++) {
5309
J3 = 13-(I2)-(I3) ;
5310
S1++;
5311
}
5312
if (3*13%4 == 0) {
5313
I3 = 3*13/4 ;
5314
J1 = -2*(13)+3*I3 ;
5315
if ((2*13+J1)%3 == 0) {
5316
J2 = (2*13+J1)/3 ;
5317
J3 = 3*13-4*J2 ;
5318
S1++;
5319
S2++;
5320
}
5321
}
5322
for (I3=3*13/4+1;I3<=min(N1,floord(11*13/4,3));I3++) {
5323
J3 = -(13)-2*(I2)+2*I3 ;
5324
S2++;
5325
}
5326
}
5327
for (I2=4;I2<=floord(2*N1-13,2);I2++) {
5328
for (I3=max(max(1,ceild(13-I2,2)),13-2*I2);I3<=13-I2;I3++) {
5329
J3 = 13-(I2)-(I3) ;
5330
S1++;
5331
}
5332
for (I3=max(13-I2+1,ceild(13+2*I2,2));I3<=min(N1,floord(2*13+3*I2,3));I3++) {
5333
J3 = -(13)-2*(I2)+2*I3 ;
5334
S2++;
5335
}
5336
}
5337
for (I2=N1-6;I2<=N1;I2++) {
5338
for (I3=max(max(ceild(13-I2,2),13-2*I2),1);I3<=min(13-I2,N1);I3++) {
5339
J3 = 13-(I2)-(I3) ;
5340
S1++;
5341
}
5342
}
5343
}
5344
if (N1 == 11) {
5345
for (I3=ceild(13+2*1,2);I3<=min(13-2*(1)-1,floord(2*13+3*1,3));I3++) {
5346
J3 = -(13)-2*(I2)+2*I3 ;
5347
S2++;
5348
}
5349
for (I3=13-2*(1);I3<=min(N1,13-(1));I3++) {
5350
J3 = 13-(I2)-(I3) ;
5351
S1++;
5352
}
5353
for (I2=2;I2<=1;I2++) {
5354
for (I3=ceild(13+2*I2,2);I3<=13-2*I2-1;I3++) {
5355
J3 = -(13)-2*(I2)+2*I3 ;
5356
S2++;
5357
}
5358
for (I3=13-2*I2;I3<=floord(2*13+3*I2,3);I3++) {
5359
J3 = 13-(I2)-(I3) ;
5360
S1++;
5361
J3 = -(13)-2*(I2)+2*I3 ;
5362
S2++;
5363
}
5364
for (I3=ceild(2*13+3*I2+1,3);I3<=min(N1,13-I2);I3++) {
5365
J3 = 13-(I2)-(I3) ;
5366
S1++;
5367
}
5368
}
5369
for (I3=4*2+1;I3<=floord(13*2+1,3);I3++) {
5370
J3 = -(13)-2*(I2)+2*I3 ;
5371
S2++;
5372
J3 = 13-(I2)-(I3) ;
5373
S1++;
5374
}
5375
if ((13*13-1)%18 == 0) {
5376
I3 = (13*13-1)/18 ;
5377
J1 = -2*(13)+3*I3 ;
5378
if ((2*13+J1)%3 == 0) {
5379
J2 = (2*13+J1)/3 ;
5380
J3 = 3*13-4*J2 ;
5381
S1++;
5382
S2++;
5383
}
5384
}
5385
for (I3=ceild(13*2+3,3);I3<=floord(15*2+2,3);I3++) {
5386
J3 = 13-(I2)-(I3) ;
5387
S1++;
5388
J3 = -(13)-2*(I2)+2*I3 ;
5389
S2++;
5390
}
5391
if ((5*13+1)%6 == 0) {
5392
I3 = (5*13+1)/6 ;
5393
J3 = 13-(I2)-(I3) ;
5394
S1++;
5395
}
5396
if (13%6 == 0) {
5397
for (I3=4*13/6;I3<=floord(13*13/6-1,3);I3++) {
5398
J3 = -(13)-2*(I2)+2*I3 ;
5399
S2++;
5400
J3 = 13-(I2)-(I3) ;
5401
S1++;
5402
}
5403
if (13*13%18 == 0) {
5404
I3 = 13*13/18 ;
5405
J1 = -2*(13)+3*I3 ;
5406
if ((2*13+J1)%3 == 0) {
5407
J2 = (2*13+J1)/3 ;
5408
J3 = 3*13-4*J2 ;
5409
S1++;
5410
S2++;
5411
}
5412
}
5413
for (I3=ceild(13*13/6+1,3);I3<=min(N1,5*13/6);I3++) {
5414
J3 = 13-(I2)-(I3) ;
5415
S1++;
5416
J3 = -(13)-2*(I2)+2*I3 ;
5417
S2++;
5418
}
5419
}
5420
for (I3=2*3+1;I3<=3*3;I3++) {
5421
J3 = 13-(I2)-(I3) ;
5422
S1++;
5423
}
5424
if ((9*13-1)%12 == 0) {
5425
I3 = (9*13-1)/12 ;
5426
J1 = -2*(13)+3*I3 ;
5427
if ((2*13+J1)%3 == 0) {
5428
J2 = (2*13+J1)/3 ;
5429
J3 = 3*13-4*J2 ;
5430
S1++;
5431
S2++;
5432
}
5433
}
5434
if ((3*13+1)%4 == 0) {
5435
I3 = (3*13+1)/4 ;
5436
J3 = 13-(I2)-(I3) ;
5437
S1++;
5438
J3 = -(13)-2*(I2)+2*I3 ;
5439
S2++;
5440
}
5441
for (I3=3*3+2;I3<=min(N1,floord(11*3+2,3));I3++) {
5442
J3 = -(13)-2*(I2)+2*I3 ;
5443
S2++;
5444
}
5445
if (13%4 == 0) {
5446
for (I3=2*13/4;I3<=floord(6*13/4-1,2);I3++) {
5447
J3 = 13-(I2)-(I3) ;
5448
S1++;
5449
}
5450
if (3*13%4 == 0) {
5451
I3 = 3*13/4 ;
5452
J1 = -2*(13)+3*I3 ;
5453
if ((2*13+J1)%3 == 0) {
5454
J2 = (2*13+J1)/3 ;
5455
J3 = 3*13-4*J2 ;
5456
S1++;
5457
S2++;
5458
}
5459
}
5460
for (I3=3*13/4+1;I3<=min(N1,floord(11*13/4,3));I3++) {
5461
J3 = -(13)-2*(I2)+2*I3 ;
5462
S2++;
5463
}
5464
}
5465
for (I3=max(max(1,ceild(13-(4),2)),13-2*(4));I3<=13-(4);I3++) {
5466
J3 = 13-(I2)-(I3) ;
5467
S1++;
5468
}
5469
for (I3=max(13-(4)+1,ceild(13+2*4,2));I3<=min(N1,floord(2*13+3*4,3));I3++) {
5470
J3 = -(13)-2*(I2)+2*I3 ;
5471
S2++;
5472
}
5473
for (I2=5;I2<=11;I2++) {
5474
for (I3=max(max(ceild(13-I2,2),13-2*I2),1);I3<=min(13-I2,N1);I3++) {
5475
J3 = 13-(I2)-(I3) ;
5476
S1++;
5477
}
5478
}
5479
}
5480
if ((N1 >= 9) && (N1 <= 10)) {
5481
if ((4*N1-4)%3 == 0) {
5482
I1 = (4*N1-4)/3 ;
5483
for (I2=1;I2<=floord(4*N1-7,27);I2++) {
5484
for (I3=ceild(I1+2*I2,2);I3<=min(I1-2*I2-1,floord(2*I1+3*I2,3));I3++) {
5485
J3 = -I1-2*(I2)+2*I3 ;
5486
S2++;
5487
}
5488
for (I3=I1-2*I2;I3<=min(N1,I1-I2);I3++) {
5489
J3 = I1-(I2)-(I3) ;
5490
S1++;
5491
}
5492
}
5493
for (I2=ceild(4*N1-4,27);I2<=floord(4*N1-7,21);I2++) {
5494
for (I3=ceild(I1+2*I2,2);I3<=I1-2*I2-1;I3++) {
5495
J3 = -I1-2*(I2)+2*I3 ;
5496
S2++;
5497
}
5498
for (I3=I1-2*I2;I3<=floord(2*I1+3*I2,3);I3++) {
5499
J3 = I1-(I2)-(I3) ;
5500
S1++;
5501
J3 = -I1-2*(I2)+2*I3 ;
5502
S2++;
5503
}
5504
for (I3=ceild(2*I1+3*I2+1,3);I3<=min(N1,I1-I2);I3++) {
5505
J3 = I1-(I2)-(I3) ;
5506
S1++;
5507
}
5508
}
5509
if ((2*N1-2)%9 == 0) {
5510
I2 = (2*N1-2)/9 ;
5511
for (I3=4*I2;I3<=floord(13*I2-1,3);I3++) {
5512
J3 = -I1-2*(I2)+2*I3 ;
5513
S2++;
5514
J3 = I1-(I2)-(I3) ;
5515
S1++;
5516
}
5517
if (13*I1%18 == 0) {
5518
I3 = 13*I1/18 ;
5519
J1 = -2*I1+3*I3 ;
5520
if ((2*I1+J1)%3 == 0) {
5521
J2 = (2*I1+J1)/3 ;
5522
J3 = 3*I1-4*J2 ;
5523
S1++;
5524
S2++;
5525
}
5526
}
5527
for (I3=ceild(13*I2+1,3);I3<=min(N1,5*I2);I3++) {
5528
J3 = I1-(I2)-(I3) ;
5529
S1++;
5530
J3 = -I1-2*(I2)+2*I3 ;
5531
S2++;
5532
}
5533
}
5534
if ((N1-1)%3 == 0) {
5535
I2 = (N1-1)/3 ;
5536
for (I3=2*I2;I3<=floord(6*I2-1,2);I3++) {
5537
J3 = I1-(I2)-(I3) ;
5538
S1++;
5539
}
5540
if (3*I1%4 == 0) {
5541
I3 = 3*I1/4 ;
5542
J1 = -2*I1+3*I3 ;
5543
if ((2*I1+J1)%3 == 0) {
5544
J2 = (2*I1+J1)/3 ;
5545
J3 = 3*I1-4*J2 ;
5546
S1++;
5547
S2++;
5548
}
5549
}
5550
for (I3=3*I2+1;I3<=min(N1,floord(11*I2,3));I3++) {
5551
J3 = -I1-2*(I2)+2*I3 ;
5552
S2++;
5553
}
5554
}
5555
for (I2=ceild(4*N1-1,12);I2<=floord(N1+2,3);I2++) {
5556
for (I3=max(max(1,ceild(I1-I2,2)),I1-2*I2);I3<=I1-I2;I3++) {
5557
J3 = I1-(I2)-(I3) ;
5558
S1++;
5559
}
5560
for (I3=max(I1-I2+1,ceild(I1+2*I2,2));I3<=min(N1,floord(2*I1+3*I2,3));I3++) {
5561
J3 = -I1-2*(I2)+2*I3 ;
5562
S2++;
5563
}
5564
}
5565
for (I2=ceild(2*N1+7,6);I2<=N1;I2++) {
5566
for (I3=max(max(ceild(I1-I2,2),I1-2*I2),1);I3<=min(I1-I2,N1);I3++) {
5567
J3 = I1-(I2)-(I3) ;
5568
S1++;
5569
}
5570
}
5571
}
5572
}
5573
if (N1 == 11) {
5574
for (I3=ceild(14+2*1,2);I3<=min(N1,floord(2*14+3*1,3));I3++) {
5575
J3 = -(14)-2*(I2)+2*I3 ;
5576
S2++;
5577
}
5578
for (I2=2;I2<=1;I2++) {
5579
for (I3=ceild(14+2*I2,2);I3<=14-2*I2-1;I3++) {
5580
J3 = -(14)-2*(I2)+2*I3 ;
5581
S2++;
5582
}
5583
for (I3=14-2*I2;I3<=N1;I3++) {
5584
J3 = 14-(I2)-(I3) ;
5585
S1++;
5586
J3 = -(14)-2*(I2)+2*I3 ;
5587
S2++;
5588
}
5589
}
5590
for (I3=ceild(9*2,2);I3<=5*2-1;I3++) {
5591
J3 = -(14)-2*(I2)+2*I3 ;
5592
S2++;
5593
}
5594
if (5*14%7 == 0) {
5595
I3 = 5*14/7 ;
5596
J1 = -2*(14)+3*I3 ;
5597
if ((2*14+J1)%3 == 0) {
5598
J2 = (2*14+J1)/3 ;
5599
J3 = 3*14-4*J2 ;
5600
S1++;
5601
S2++;
5602
}
5603
}
5604
for (I3=ceild(15*2+1,3);I3<=N1;I3++) {
5605
J3 = 14-(I2)-(I3) ;
5606
S1++;
5607
J3 = -(14)-2*(I2)+2*I3 ;
5608
S2++;
5609
}
5610
if (7%3 == 0) {
5611
for (I3=4*7/3;I3<=floord(13*7/3-1,3);I3++) {
5612
J3 = -(14)-2*(I2)+2*I3 ;
5613
S2++;
5614
J3 = 14-(I2)-(I3) ;
5615
S1++;
5616
}
5617
if (13*14%18 == 0) {
5618
I3 = 13*14/18 ;
5619
J1 = -2*(14)+3*I3 ;
5620
if ((2*14+J1)%3 == 0) {
5621
J2 = (2*14+J1)/3 ;
5622
J3 = 3*14-4*J2 ;
5623
S1++;
5624
S2++;
5625
}
5626
}
5627
for (I3=ceild(13*7/3+1,3);I3<=min(N1,5*7/3);I3++) {
5628
J3 = 14-(I2)-(I3) ;
5629
S1++;
5630
J3 = -(14)-2*(I2)+2*I3 ;
5631
S2++;
5632
}
5633
}
5634
for (I3=14-2*(3);I3<=floord(14+2*3-1,2);I3++) {
5635
J3 = 14-(I2)-(I3) ;
5636
S1++;
5637
}
5638
for (I3=ceild(14+2*3,2);I3<=floord(2*14+3-1,3);I3++) {
5639
J3 = -(14)-2*(I2)+2*I3 ;
5640
S2++;
5641
J3 = 14-(I2)-(I3) ;
5642
S1++;
5643
}
5644
if ((2*14+3)%3 == 0) {
5645
I3 = (2*14+3)/3 ;
5646
J1 = -2*(14)+3*I3 ;
5647
if ((2*14+J1)%3 == 0) {
5648
J2 = (2*14+J1)/3 ;
5649
J3 = 3*14-4*J2 ;
5650
S1++;
5651
S2++;
5652
}
5653
}
5654
for (I3=ceild(2*14+3+1,3);I3<=N1;I3++) {
5655
J3 = 14-(I2)-(I3) ;
5656
S1++;
5657
J3 = -(14)-2*(I2)+2*I3 ;
5658
S2++;
5659
}
5660
for (I3=max(max(1,ceild(14-(4),2)),14-2*(4));I3<=14-(4);I3++) {
5661
J3 = 14-(I2)-(I3) ;
5662
S1++;
5663
}
5664
for (I3=max(14-(4)+1,ceild(14+2*4,2));I3<=min(N1,floord(2*14+3*4,3));I3++) {
5665
J3 = -(14)-2*(I2)+2*I3 ;
5666
S2++;
5667
}
5668
for (I2=5;I2<=11;I2++) {
5669
for (I3=max(max(ceild(14-I2,2),14-2*I2),1);I3<=min(14-I2,N1);I3++) {
5670
J3 = 14-(I2)-(I3) ;
5671
S1++;
5672
}
5673
}
5674
}
5675
if (N1 == 10) {
5676
for (I3=ceild(13+2*1,2);I3<=min(N1,floord(2*13+3*1,3));I3++) {
5677
J3 = -(13)-2*(I2)+2*I3 ;
5678
S2++;
5679
}
5680
for (I2=2;I2<=1;I2++) {
5681
for (I3=ceild(13+2*I2,2);I3<=13-2*I2-1;I3++) {
5682
J3 = -(13)-2*(I2)+2*I3 ;
5683
S2++;
5684
}
5685
for (I3=13-2*I2;I3<=N1;I3++) {
5686
J3 = 13-(I2)-(I3) ;
5687
S1++;
5688
J3 = -(13)-2*(I2)+2*I3 ;
5689
S2++;
5690
}
5691
}
5692
for (I3=4*2+1;I3<=floord(13*2+1,3);I3++) {
5693
J3 = -(13)-2*(I2)+2*I3 ;
5694
S2++;
5695
J3 = 13-(I2)-(I3) ;
5696
S1++;
5697
}
5698
if ((13*13-1)%18 == 0) {
5699
I3 = (13*13-1)/18 ;
5700
J1 = -2*(13)+3*I3 ;
5701
if ((2*13+J1)%3 == 0) {
5702
J2 = (2*13+J1)/3 ;
5703
J3 = 3*13-4*J2 ;
5704
S1++;
5705
S2++;
5706
}
5707
}
5708
for (I3=ceild(13*2+3,3);I3<=N1;I3++) {
5709
J3 = 13-(I2)-(I3) ;
5710
S1++;
5711
J3 = -(13)-2*(I2)+2*I3 ;
5712
S2++;
5713
}
5714
if (13%6 == 0) {
5715
for (I3=4*13/6;I3<=floord(13*13/6-1,3);I3++) {
5716
J3 = -(13)-2*(I2)+2*I3 ;
5717
S2++;
5718
J3 = 13-(I2)-(I3) ;
5719
S1++;
5720
}
5721
if (13*13%18 == 0) {
5722
I3 = 13*13/18 ;
5723
J1 = -2*(13)+3*I3 ;
5724
if ((2*13+J1)%3 == 0) {
5725
J2 = (2*13+J1)/3 ;
5726
J3 = 3*13-4*J2 ;
5727
S1++;
5728
S2++;
5729
}
5730
}
5731
for (I3=ceild(13*13/6+1,3);I3<=min(N1,5*13/6);I3++) {
5732
J3 = 13-(I2)-(I3) ;
5733
S1++;
5734
J3 = -(13)-2*(I2)+2*I3 ;
5735
S2++;
5736
}
5737
}
5738
for (I2=3;I2<=2;I2++) {
5739
for (I3=13-2*I2;I3<=floord(13+2*I2-1,2);I3++) {
5740
J3 = 13-(I2)-(I3) ;
5741
S1++;
5742
}
5743
for (I3=ceild(13+2*I2,2);I3<=floord(2*13+I2-1,3);I3++) {
5744
J3 = -(13)-2*(I2)+2*I3 ;
5745
S2++;
5746
J3 = 13-(I2)-(I3) ;
5747
S1++;
5748
}
5749
if ((2*13+I2)%3 == 0) {
5750
I3 = (2*13+I2)/3 ;
5751
J1 = -2*(13)+3*I3 ;
5752
if ((2*13+J1)%3 == 0) {
5753
J2 = (2*13+J1)/3 ;
5754
J3 = 3*13-4*J2 ;
5755
S1++;
5756
S2++;
5757
}
5758
}
5759
for (I3=ceild(2*13+I2+1,3);I3<=N1;I3++) {
5760
J3 = 13-(I2)-(I3) ;
5761
S1++;
5762
J3 = -(13)-2*(I2)+2*I3 ;
5763
S2++;
5764
}
5765
}
5766
for (I3=ceild(2*N1+1,3);I3<=N1-1;I3++) {
5767
J3 = 13-(I2)-(I3) ;
5768
S1++;
5769
}
5770
if (-1%3 == 0) {
5771
I3 = (3*N1-1)/3 ;
5772
J1 = -2*(13)+3*I3 ;
5773
if ((2*13+J1)%3 == 0) {
5774
J2 = (2*13+J1)/3 ;
5775
J3 = 3*13-4*J2 ;
5776
S1++;
5777
S2++;
5778
}
5779
}
5780
J3 = 13-(I2)-(I3) ;
5781
S1++;
5782
J3 = -(13)-2*(I2)+2*I3 ;
5783
S2++;
5784
for (I2=4;I2<=10;I2++) {
5785
for (I3=max(max(ceild(13-I2,2),13-2*I2),1);I3<=min(13-I2,N1);I3++) {
5786
J3 = 13-(I2)-(I3) ;
5787
S1++;
5788
}
5789
}
5790
}
5791
for (I1=max(20,ceild(2*N1+1,3));I1<=floord(2*N1+2,3);I1++) {
5792
for (I2=1;I2<=floord(I1-1,9);I2++) {
5793
for (I3=ceild(I1+2*I2,2);I3<=min(I1-2*I2-1,floord(2*I1+3*I2,3));I3++) {
5794
J3 = -I1-2*(I2)+2*I3 ;
5795
S2++;
5796
}
5797
for (I3=I1-2*I2;I3<=min(N1,I1-I2);I3++) {
5798
J3 = I1-(I2)-(I3) ;
5799
S1++;
5800
}
5801
}
5802
for (I2=ceild(I1,9);I2<=floord(I1-1,7);I2++) {
5803
for (I3=ceild(I1+2*I2,2);I3<=I1-2*I2-1;I3++) {
5804
J3 = -I1-2*(I2)+2*I3 ;
5805
S2++;
5806
}
5807
for (I3=I1-2*I2;I3<=floord(2*I1+3*I2,3);I3++) {
5808
J3 = I1-(I2)-(I3) ;
5809
S1++;
5810
J3 = -I1-2*(I2)+2*I3 ;
5811
S2++;
5812
}
5813
for (I3=ceild(2*I1+3*I2+1,3);I3<=min(N1,I1-I2);I3++) {
5814
J3 = I1-(I2)-(I3) ;
5815
S1++;
5816
}
5817
}
5818
if (I1%7 == 0) {
5819
for (I3=ceild(9*I1/7,2);I3<=5*I1/7-1;I3++) {
5820
J3 = -I1-2*(I2)+2*I3 ;
5821
S2++;
5822
}
5823
if (5*I1%7 == 0) {
5824
I3 = 5*I1/7 ;
5825
J1 = -2*I1+3*I3 ;
5826
if ((2*I1+J1)%3 == 0) {
5827
J2 = (2*I1+J1)/3 ;
5828
J3 = 3*I1-4*J2 ;
5829
S1++;
5830
S2++;
5831
}
5832
}
5833
for (I3=ceild(15*I1/7+1,3);I3<=floord(17*I1/7,3);I3++) {
5834
J3 = I1-(I2)-(I3) ;
5835
S1++;
5836
J3 = -I1-2*(I2)+2*I3 ;
5837
S2++;
5838
}
5839
for (I3=ceild(17*I1/7+1,3);I3<=min(N1,6*I1/7);I3++) {
5840
J3 = I1-(I2)-(I3) ;
5841
S1++;
5842
}
5843
}
5844
for (I2=ceild(I1+1,7);I2<=floord(I1-2,6);I2++) {
5845
for (I3=ceild(I1+2*I2,2);I3<=I1-2*I2-1;I3++) {
5846
J3 = -I1-2*(I2)+2*I3 ;
5847
S2++;
5848
}
5849
for (I3=I1-2*I2;I3<=floord(2*I1+I2-1,3);I3++) {
5850
J3 = -I1-2*(I2)+2*I3 ;
5851
S2++;
5852
J3 = I1-(I2)-(I3) ;
5853
S1++;
5854
}
5855
if ((2*I1+I2)%3 == 0) {
5856
I3 = (2*I1+I2)/3 ;
5857
J1 = -2*I1+3*I3 ;
5858
if ((2*I1+J1)%3 == 0) {
5859
J2 = (2*I1+J1)/3 ;
5860
J3 = 3*I1-4*J2 ;
5861
S1++;
5862
S2++;
5863
}
5864
}
5865
for (I3=ceild(2*I1+I2+1,3);I3<=floord(2*I1+3*I2,3);I3++) {
5866
J3 = I1-(I2)-(I3) ;
5867
S1++;
5868
J3 = -I1-2*(I2)+2*I3 ;
5869
S2++;
5870
}
5871
for (I3=ceild(2*I1+3*I2+1,3);I3<=min(N1,I1-I2);I3++) {
5872
J3 = I1-(I2)-(I3) ;
5873
S1++;
5874
}
5875
}
5876
if ((I1-1)%6 == 0) {
5877
I2 = (I1-1)/6 ;
5878
for (I3=4*I2+1;I3<=floord(13*I2+1,3);I3++) {
5879
J3 = -I1-2*(I2)+2*I3 ;
5880
S2++;
5881
J3 = I1-(I2)-(I3) ;
5882
S1++;
5883
}
5884
if ((13*I1-1)%18 == 0) {
5885
I3 = (13*I1-1)/18 ;
5886
J1 = -2*I1+3*I3 ;
5887
if ((2*I1+J1)%3 == 0) {
5888
J2 = (2*I1+J1)/3 ;
5889
J3 = 3*I1-4*J2 ;
5890
S1++;
5891
S2++;
5892
}
5893
}
5894
for (I3=ceild(13*I2+3,3);I3<=floord(15*I2+2,3);I3++) {
5895
J3 = I1-(I2)-(I3) ;
5896
S1++;
5897
J3 = -I1-2*(I2)+2*I3 ;
5898
S2++;
5899
}
5900
if ((5*I1+1)%6 == 0) {
5901
I3 = (5*I1+1)/6 ;
5902
J3 = I1-(I2)-(I3) ;
5903
S1++;
5904
}
5905
}
5906
if (I1%6 == 0) {
5907
for (I3=4*I1/6;I3<=floord(13*I1/6-1,3);I3++) {
5908
J3 = -I1-2*(I2)+2*I3 ;
5909
S2++;
5910
J3 = I1-(I2)-(I3) ;
5911
S1++;
5912
}
5913
if (13*I1%18 == 0) {
5914
I3 = 13*I1/18 ;
5915
J1 = -2*I1+3*I3 ;
5916
if ((2*I1+J1)%3 == 0) {
5917
J2 = (2*I1+J1)/3 ;
5918
J3 = 3*I1-4*J2 ;
5919
S1++;
5920
S2++;
5921
}
5922
}
5923
for (I3=ceild(13*I1/6+1,3);I3<=min(N1,5*I1/6);I3++) {
5924
J3 = I1-(I2)-(I3) ;
5925
S1++;
5926
J3 = -I1-2*(I2)+2*I3 ;
5927
S2++;
5928
}
5929
}
5930
for (I2=ceild(I1+1,6);I2<=floord(I1+2,6);I2++) {
5931
for (I3=I1-2*I2;I3<=floord(I1+2*I2-1,2);I3++) {
5932
J3 = I1-(I2)-(I3) ;
5933
S1++;
5934
}
5935
for (I3=ceild(I1+2*I2,2);I3<=floord(2*I1+I2-1,3);I3++) {
5936
J3 = -I1-2*(I2)+2*I3 ;
5937
S2++;
5938
J3 = I1-(I2)-(I3) ;
5939
S1++;
5940
}
5941
if ((2*I1+I2)%3 == 0) {
5942
I3 = (2*I1+I2)/3 ;
5943
J1 = -2*I1+3*I3 ;
5944
if ((2*I1+J1)%3 == 0) {
5945
J2 = (2*I1+J1)/3 ;
5946
J3 = 3*I1-4*J2 ;
5947
S1++;
5948
S2++;
5949
}
5950
}
5951
for (I3=ceild(2*I1+I2+1,3);I3<=I1-I2;I3++) {
5952
J3 = I1-(I2)-(I3) ;
5953
S1++;
5954
J3 = -I1-2*(I2)+2*I3 ;
5955
S2++;
5956
}
5957
}
5958
for (I2=ceild(I1+3,6);I2<=floord(I1-2,4);I2++) {
5959
for (I3=I1-2*I2;I3<=floord(I1+2*I2-1,2);I3++) {
5960
J3 = I1-(I2)-(I3) ;
5961
S1++;
5962
}
5963
for (I3=ceild(I1+2*I2,2);I3<=floord(2*I1+I2-1,3);I3++) {
5964
J3 = -I1-2*(I2)+2*I3 ;
5965
S2++;
5966
J3 = I1-(I2)-(I3) ;
5967
S1++;
5968
}
5969
if ((2*I1+I2)%3 == 0) {
5970
I3 = (2*I1+I2)/3 ;
5971
J1 = -2*I1+3*I3 ;
5972
if ((2*I1+J1)%3 == 0) {
5973
J2 = (2*I1+J1)/3 ;
5974
J3 = 3*I1-4*J2 ;
5975
S1++;
5976
S2++;
5977
}
5978
}
5979
for (I3=ceild(2*I1+I2+1,3);I3<=I1-I2;I3++) {
5980
J3 = I1-(I2)-(I3) ;
5981
S1++;
5982
J3 = -I1-2*(I2)+2*I3 ;
5983
S2++;
5984
}
5985
for (I3=I1-I2+1;I3<=min(N1,floord(2*I1+3*I2,3));I3++) {
5986
J3 = -I1-2*(I2)+2*I3 ;
5987
S2++;
5988
}
5989
}
5990
if ((I1-1)%4 == 0) {
5991
I2 = (I1-1)/4 ;
5992
for (I3=2*I2+1;I3<=3*I2;I3++) {
5993
J3 = I1-(I2)-(I3) ;
5994
S1++;
5995
}
5996
if ((9*I1-1)%12 == 0) {
5997
I3 = (9*I1-1)/12 ;
5998
J1 = -2*I1+3*I3 ;
5999
if ((2*I1+J1)%3 == 0) {
6000
J2 = (2*I1+J1)/3 ;
6001
J3 = 3*I1-4*J2 ;
6002
S1++;
6003
S2++;
6004
}
6005
}
6006
if ((3*I1+1)%4 == 0) {
6007
I3 = (3*I1+1)/4 ;
6008
J3 = I1-(I2)-(I3) ;
6009
S1++;
6010
J3 = -I1-2*(I2)+2*I3 ;
6011
S2++;
6012
}
6013
for (I3=3*I2+2;I3<=min(N1,floord(11*I2+2,3));I3++) {
6014
J3 = -I1-2*(I2)+2*I3 ;
6015
S2++;
6016
}
6017
}
6018
if (I1%4 == 0) {
6019
for (I3=2*I1/4;I3<=floord(6*I1/4-1,2);I3++) {
6020
J3 = I1-(I2)-(I3) ;
6021
S1++;
6022
}
6023
if (3*I1%4 == 0) {
6024
I3 = 3*I1/4 ;
6025
J1 = -2*I1+3*I3 ;
6026
if ((2*I1+J1)%3 == 0) {
6027
J2 = (2*I1+J1)/3 ;
6028
J3 = 3*I1-4*J2 ;
6029
S1++;
6030
S2++;
6031
}
6032
}
6033
for (I3=3*I1/4+1;I3<=min(N1,floord(11*I1/4,3));I3++) {
6034
J3 = -I1-2*(I2)+2*I3 ;
6035
S2++;
6036
}
6037
}
6038
for (I2=ceild(I1+1,4);I2<=I1-1;I2++) {
6039
for (I3=max(max(1,ceild(I1-I2,2)),I1-2*I2);I3<=I1-I2;I3++) {
6040
J3 = I1-(I2)-(I3) ;
6041
S1++;
6042
}
6043
for (I3=max(I1-I2+1,ceild(I1+2*I2,2));I3<=min(N1,floord(2*I1+3*I2,3));I3++) {
6044
J3 = -I1-2*(I2)+2*I3 ;
6045
S2++;
6046
}
6047
}
6048
}
6049
for (I1=max(14,ceild(2*N1+3,3));I1<=min(min(N1+2,19),floord(6*N1-4,5));I1++) {
6050
for (I2=1;I2<=floord(I1-1,9);I2++) {
6051
for (I3=ceild(I1+2*I2,2);I3<=min(I1-2*I2-1,floord(2*I1+3*I2,3));I3++) {
6052
J3 = -I1-2*(I2)+2*I3 ;
6053
S2++;
6054
}
6055
for (I3=I1-2*I2;I3<=min(N1,I1-I2);I3++) {
6056
J3 = I1-(I2)-(I3) ;
6057
S1++;
6058
}
6059
}
6060
for (I2=ceild(I1,9);I2<=floord(I1-1,7);I2++) {
6061
for (I3=ceild(I1+2*I2,2);I3<=I1-2*I2-1;I3++) {
6062
J3 = -I1-2*(I2)+2*I3 ;
6063
S2++;
6064
}
6065
for (I3=I1-2*I2;I3<=floord(2*I1+3*I2,3);I3++) {
6066
J3 = I1-(I2)-(I3) ;
6067
S1++;
6068
J3 = -I1-2*(I2)+2*I3 ;
6069
S2++;
6070
}
6071
for (I3=ceild(2*I1+3*I2+1,3);I3<=min(N1,I1-I2);I3++) {
6072
J3 = I1-(I2)-(I3) ;
6073
S1++;
6074
}
6075
}
6076
if (I1%7 == 0) {
6077
for (I3=ceild(9*I1/7,2);I3<=5*I1/7-1;I3++) {
6078
J3 = -I1-2*(I2)+2*I3 ;
6079
S2++;
6080
}
6081
if (5*I1%7 == 0) {
6082
I3 = 5*I1/7 ;
6083
J1 = -2*I1+3*I3 ;
6084
if ((2*I1+J1)%3 == 0) {
6085
J2 = (2*I1+J1)/3 ;
6086
J3 = 3*I1-4*J2 ;
6087
S1++;
6088
S2++;
6089
}
6090
}
6091
for (I3=ceild(15*I1/7+1,3);I3<=floord(17*I1/7,3);I3++) {
6092
J3 = I1-(I2)-(I3) ;
6093
S1++;
6094
J3 = -I1-2*(I2)+2*I3 ;
6095
S2++;
6096
}
6097
for (I3=ceild(17*I1/7+1,3);I3<=min(N1,6*I1/7);I3++) {
6098
J3 = I1-(I2)-(I3) ;
6099
S1++;
6100
}
6101
}
6102
if ((I1-1)%6 == 0) {
6103
I2 = (I1-1)/6 ;
6104
for (I3=4*I2+1;I3<=floord(13*I2+1,3);I3++) {
6105
J3 = -I1-2*(I2)+2*I3 ;
6106
S2++;
6107
J3 = I1-(I2)-(I3) ;
6108
S1++;
6109
}
6110
if ((13*I1-1)%18 == 0) {
6111
I3 = (13*I1-1)/18 ;
6112
J1 = -2*I1+3*I3 ;
6113
if ((2*I1+J1)%3 == 0) {
6114
J2 = (2*I1+J1)/3 ;
6115
J3 = 3*I1-4*J2 ;
6116
S1++;
6117
S2++;
6118
}
6119
}
6120
for (I3=ceild(13*I2+3,3);I3<=floord(15*I2+2,3);I3++) {
6121
J3 = I1-(I2)-(I3) ;
6122
S1++;
6123
J3 = -I1-2*(I2)+2*I3 ;
6124
S2++;
6125
}
6126
if ((5*I1+1)%6 == 0) {
6127
I3 = (5*I1+1)/6 ;
6128
J3 = I1-(I2)-(I3) ;
6129
S1++;
6130
}
6131
}
6132
if (I1%6 == 0) {
6133
for (I3=4*I1/6;I3<=floord(13*I1/6-1,3);I3++) {
6134
J3 = -I1-2*(I2)+2*I3 ;
6135
S2++;
6136
J3 = I1-(I2)-(I3) ;
6137
S1++;
6138
}
6139
if (13*I1%18 == 0) {
6140
I3 = 13*I1/18 ;
6141
J1 = -2*I1+3*I3 ;
6142
if ((2*I1+J1)%3 == 0) {
6143
J2 = (2*I1+J1)/3 ;
6144
J3 = 3*I1-4*J2 ;
6145
S1++;
6146
S2++;
6147
}
6148
}
6149
for (I3=ceild(13*I1/6+1,3);I3<=min(N1,5*I1/6);I3++) {
6150
J3 = I1-(I2)-(I3) ;
6151
S1++;
6152
J3 = -I1-2*(I2)+2*I3 ;
6153
S2++;
6154
}
6155
}
6156
for (I2=max(ceild(I1+1,6),I1-N1+1);I2<=floord(I1+2,6);I2++) {
6157
for (I3=I1-2*I2;I3<=floord(I1+2*I2-1,2);I3++) {
6158
J3 = I1-(I2)-(I3) ;
6159
S1++;
6160
}
6161
for (I3=ceild(I1+2*I2,2);I3<=floord(2*I1+I2-1,3);I3++) {
6162
J3 = -I1-2*(I2)+2*I3 ;
6163
S2++;
6164
J3 = I1-(I2)-(I3) ;
6165
S1++;
6166
}
6167
if ((2*I1+I2)%3 == 0) {
6168
I3 = (2*I1+I2)/3 ;
6169
J1 = -2*I1+3*I3 ;
6170
if ((2*I1+J1)%3 == 0) {
6171
J2 = (2*I1+J1)/3 ;
6172
J3 = 3*I1-4*J2 ;
6173
S1++;
6174
S2++;
6175
}
6176
}
6177
for (I3=ceild(2*I1+I2+1,3);I3<=I1-I2;I3++) {
6178
J3 = I1-(I2)-(I3) ;
6179
S1++;
6180
J3 = -I1-2*(I2)+2*I3 ;
6181
S2++;
6182
}
6183
}
6184
for (I2=ceild(I1+3,6);I2<=floord(I1-2,4);I2++) {
6185
for (I3=I1-2*I2;I3<=floord(I1+2*I2-1,2);I3++) {
6186
J3 = I1-(I2)-(I3) ;
6187
S1++;
6188
}
6189
for (I3=ceild(I1+2*I2,2);I3<=floord(2*I1+I2-1,3);I3++) {
6190
J3 = -I1-2*(I2)+2*I3 ;
6191
S2++;
6192
J3 = I1-(I2)-(I3) ;
6193
S1++;
6194
}
6195
if ((2*I1+I2)%3 == 0) {
6196
I3 = (2*I1+I2)/3 ;
6197
J1 = -2*I1+3*I3 ;
6198
if ((2*I1+J1)%3 == 0) {
6199
J2 = (2*I1+J1)/3 ;
6200
J3 = 3*I1-4*J2 ;
6201
S1++;
6202
S2++;
6203
}
6204
}
6205
for (I3=ceild(2*I1+I2+1,3);I3<=I1-I2;I3++) {
6206
J3 = I1-(I2)-(I3) ;
6207
S1++;
6208
J3 = -I1-2*(I2)+2*I3 ;
6209
S2++;
6210
}
6211
for (I3=I1-I2+1;I3<=min(N1,floord(2*I1+3*I2,3));I3++) {
6212
J3 = -I1-2*(I2)+2*I3 ;
6213
S2++;
6214
}
6215
}
6216
if ((I1-1)%4 == 0) {
6217
I2 = (I1-1)/4 ;
6218
for (I3=2*I2+1;I3<=3*I2;I3++) {
6219
J3 = I1-(I2)-(I3) ;
6220
S1++;
6221
}
6222
if ((9*I1-1)%12 == 0) {
6223
I3 = (9*I1-1)/12 ;
6224
J1 = -2*I1+3*I3 ;
6225
if ((2*I1+J1)%3 == 0) {
6226
J2 = (2*I1+J1)/3 ;
6227
J3 = 3*I1-4*J2 ;
6228
S1++;
6229
S2++;
6230
}
6231
}
6232
if ((3*I1+1)%4 == 0) {
6233
I3 = (3*I1+1)/4 ;
6234
J3 = I1-(I2)-(I3) ;
6235
S1++;
6236
J3 = -I1-2*(I2)+2*I3 ;
6237
S2++;
6238
}
6239
for (I3=3*I2+2;I3<=min(N1,floord(11*I2+2,3));I3++) {
6240
J3 = -I1-2*(I2)+2*I3 ;
6241
S2++;
6242
}
6243
}
6244
if (I1%4 == 0) {
6245
for (I3=2*I1/4;I3<=floord(6*I1/4-1,2);I3++) {
6246
J3 = I1-(I2)-(I3) ;
6247
S1++;
6248
}
6249
if (3*I1%4 == 0) {
6250
I3 = 3*I1/4 ;
6251
J1 = -2*I1+3*I3 ;
6252
if ((2*I1+J1)%3 == 0) {
6253
J2 = (2*I1+J1)/3 ;
6254
J3 = 3*I1-4*J2 ;
6255
S1++;
6256
S2++;
6257
}
6258
}
6259
for (I3=3*I1/4+1;I3<=min(N1,floord(11*I1/4,3));I3++) {
6260
J3 = -I1-2*(I2)+2*I3 ;
6261
S2++;
6262
}
6263
}
6264
for (I2=ceild(I1+1,4);I2<=floord(-I1+2*N1,2);I2++) {
6265
for (I3=max(max(1,ceild(I1-I2,2)),I1-2*I2);I3<=I1-I2;I3++) {
6266
J3 = I1-(I2)-(I3) ;
6267
S1++;
6268
}
6269
for (I3=max(I1-I2+1,ceild(I1+2*I2,2));I3<=min(N1,floord(2*I1+3*I2,3));I3++) {
6270
J3 = -I1-2*(I2)+2*I3 ;
6271
S2++;
6272
}
6273
}
6274
for (I2=ceild(-I1+2*N1+1,2);I2<=min(N1,I1-1);I2++) {
6275
for (I3=max(max(ceild(I1-I2,2),I1-2*I2),1);I3<=min(I1-I2,N1);I3++) {
6276
J3 = I1-(I2)-(I3) ;
6277
S1++;
6278
}
6279
}
6280
}
6281
for (I1=max(10,ceild(6*N1+1,5));I1<=min(N1+2,floord(9*N1-3,7));I1++) {
6282
for (I2=1;I2<=floord(I1-1,9);I2++) {
6283
for (I3=ceild(I1+2*I2,2);I3<=min(I1-2*I2-1,floord(2*I1+3*I2,3));I3++) {
6284
J3 = -I1-2*(I2)+2*I3 ;
6285
S2++;
6286
}
6287
for (I3=I1-2*I2;I3<=min(N1,I1-I2);I3++) {
6288
J3 = I1-(I2)-(I3) ;
6289
S1++;
6290
}
6291
}
6292
for (I2=ceild(I1,9);I2<=floord(-2*I1+3*N1-1,3);I2++) {
6293
for (I3=ceild(I1+2*I2,2);I3<=I1-2*I2-1;I3++) {
6294
J3 = -I1-2*(I2)+2*I3 ;
6295
S2++;
6296
}
6297
for (I3=I1-2*I2;I3<=floord(2*I1+3*I2,3);I3++) {
6298
J3 = I1-(I2)-(I3) ;
6299
S1++;
6300
J3 = -I1-2*(I2)+2*I3 ;
6301
S2++;
6302
}
6303
for (I3=ceild(2*I1+3*I2+1,3);I3<=min(N1,I1-I2);I3++) {
6304
J3 = I1-(I2)-(I3) ;
6305
S1++;
6306
}
6307
}
6308
if (I1%6 == 0) {
6309
for (I3=4*I1/6;I3<=floord(13*I1/6-1,3);I3++) {
6310
J3 = -I1-2*(I2)+2*I3 ;
6311
S2++;
6312
J3 = I1-(I2)-(I3) ;
6313
S1++;
6314
}
6315
if (13*I1%18 == 0) {
6316
I3 = 13*I1/18 ;
6317
J1 = -2*I1+3*I3 ;
6318
if ((2*I1+J1)%3 == 0) {
6319
J2 = (2*I1+J1)/3 ;
6320
J3 = 3*I1-4*J2 ;
6321
S1++;
6322
S2++;
6323
}
6324
}
6325
for (I3=ceild(13*I1/6+1,3);I3<=min(N1,5*I1/6);I3++) {
6326
J3 = I1-(I2)-(I3) ;
6327
S1++;
6328
J3 = -I1-2*(I2)+2*I3 ;
6329
S2++;
6330
}
6331
}
6332
for (I2=ceild(I1+1,6);I2<=I1-N1;I2++) {
6333
for (I3=I1-2*I2;I3<=floord(I1+2*I2-1,2);I3++) {
6334
J3 = I1-(I2)-(I3) ;
6335
S1++;
6336
}
6337
for (I3=ceild(I1+2*I2,2);I3<=floord(2*I1+I2-1,3);I3++) {
6338
J3 = -I1-2*(I2)+2*I3 ;
6339
S2++;
6340
J3 = I1-(I2)-(I3) ;
6341
S1++;
6342
}
6343
if ((2*I1+I2)%3 == 0) {
6344
I3 = (2*I1+I2)/3 ;
6345
J1 = -2*I1+3*I3 ;
6346
if ((2*I1+J1)%3 == 0) {
6347
J2 = (2*I1+J1)/3 ;
6348
J3 = 3*I1-4*J2 ;
6349
S1++;
6350
S2++;
6351
}
6352
}
6353
for (I3=ceild(2*I1+I2+1,3);I3<=N1;I3++) {
6354
J3 = I1-(I2)-(I3) ;
6355
S1++;
6356
J3 = -I1-2*(I2)+2*I3 ;
6357
S2++;
6358
}
6359
}
6360
for (I2=I1-N1+1;I2<=floord(-I1+2*N1,2);I2++) {
6361
for (I3=max(max(1,ceild(I1-I2,2)),I1-2*I2);I3<=I1-I2;I3++) {
6362
J3 = I1-(I2)-(I3) ;
6363
S1++;
6364
}
6365
for (I3=max(I1-I2+1,ceild(I1+2*I2,2));I3<=min(N1,floord(2*I1+3*I2,3));I3++) {
6366
J3 = -I1-2*(I2)+2*I3 ;
6367
S2++;
6368
}
6369
}
6370
for (I2=ceild(-I1+2*N1+1,2);I2<=N1;I2++) {
6371
for (I3=max(max(ceild(I1-I2,2),I1-2*I2),1);I3<=min(I1-I2,N1);I3++) {
6372
J3 = I1-(I2)-(I3) ;
6373
S1++;
6374
}
6375
}
6376
}
6377
if (N1 == 15) {
6378
for (I3=ceild(18+2*1,2);I3<=min(N1,floord(2*18+3*1,3));I3++) {
6379
J3 = -(18)-2*(I2)+2*I3 ;
6380
S2++;
6381
}
6382
for (I2=2;I2<=1;I2++) {
6383
for (I3=ceild(18+2*I2,2);I3<=min(18-2*I2-1,floord(2*18+3*I2,3));I3++) {
6384
J3 = -(18)-2*(I2)+2*I3 ;
6385
S2++;
6386
}
6387
for (I3=18-2*I2;I3<=min(N1,18-I2);I3++) {
6388
J3 = 18-(I2)-(I3) ;
6389
S1++;
6390
}
6391
}
6392
for (I3=ceild(18+2*2,2);I3<=18-2*(2)-1;I3++) {
6393
J3 = -(18)-2*(I2)+2*I3 ;
6394
S2++;
6395
}
6396
for (I3=18-2*(2);I3<=floord(2*18+3*2,3);I3++) {
6397
J3 = 18-(I2)-(I3) ;
6398
S1++;
6399
J3 = -(18)-2*(I2)+2*I3 ;
6400
S2++;
6401
}
6402
for (I3=ceild(2*18+3*2+1,3);I3<=min(N1,18-(2));I3++) {
6403
J3 = 18-(I2)-(I3) ;
6404
S1++;
6405
}
6406
if (18%7 == 0) {
6407
for (I3=ceild(9*18/7,2);I3<=5*18/7-1;I3++) {
6408
J3 = -(18)-2*(I2)+2*I3 ;
6409
S2++;
6410
}
6411
if (5*18%7 == 0) {
6412
I3 = 5*18/7 ;
6413
J1 = -2*(18)+3*I3 ;
6414
if ((2*18+J1)%3 == 0) {
6415
J2 = (2*18+J1)/3 ;
6416
J3 = 3*18-4*J2 ;
6417
S1++;
6418
S2++;
6419
}
6420
}
6421
for (I3=ceild(15*18/7+1,3);I3<=floord(17*18/7,3);I3++) {
6422
J3 = 18-(I2)-(I3) ;
6423
S1++;
6424
J3 = -(18)-2*(I2)+2*I3 ;
6425
S2++;
6426
}
6427
for (I3=ceild(17*18/7+1,3);I3<=min(N1,6*18/7);I3++) {
6428
J3 = 18-(I2)-(I3) ;
6429
S1++;
6430
}
6431
}
6432
for (I3=4*3;I3<=floord(13*3-1,3);I3++) {
6433
J3 = -(18)-2*(I2)+2*I3 ;
6434
S2++;
6435
J3 = 18-(I2)-(I3) ;
6436
S1++;
6437
}
6438
if (13*18%18 == 0) {
6439
I3 = 13*18/18 ;
6440
J1 = -2*(18)+3*I3 ;
6441
if ((2*18+J1)%3 == 0) {
6442
J2 = (2*18+J1)/3 ;
6443
J3 = 3*18-4*J2 ;
6444
S1++;
6445
S2++;
6446
}
6447
}
6448
for (I3=ceild(13*3+1,3);I3<=min(N1,5*3);I3++) {
6449
J3 = 18-(I2)-(I3) ;
6450
S1++;
6451
J3 = -(18)-2*(I2)+2*I3 ;
6452
S2++;
6453
}
6454
for (I3=18-2*(4);I3<=floord(18+2*4-1,2);I3++) {
6455
J3 = 18-(I2)-(I3) ;
6456
S1++;
6457
}
6458
for (I3=ceild(18+2*4,2);I3<=floord(2*18+4-1,3);I3++) {
6459
J3 = -(18)-2*(I2)+2*I3 ;
6460
S2++;
6461
J3 = 18-(I2)-(I3) ;
6462
S1++;
6463
}
6464
if ((2*18+4)%3 == 0) {
6465
I3 = (2*18+4)/3 ;
6466
J1 = -2*(18)+3*I3 ;
6467
if ((2*18+J1)%3 == 0) {
6468
J2 = (2*18+J1)/3 ;
6469
J3 = 3*18-4*J2 ;
6470
S1++;
6471
S2++;
6472
}
6473
}
6474
for (I3=ceild(2*18+4+1,3);I3<=18-(4);I3++) {
6475
J3 = 18-(I2)-(I3) ;
6476
S1++;
6477
J3 = -(18)-2*(I2)+2*I3 ;
6478
S2++;
6479
}
6480
for (I3=18-(4)+1;I3<=min(N1,floord(2*18+3*4,3));I3++) {
6481
J3 = -(18)-2*(I2)+2*I3 ;
6482
S2++;
6483
}
6484
if (17%4 == 0) {
6485
for (I3=2*17/4+1;I3<=3*17/4;I3++) {
6486
J3 = 18-(I2)-(I3) ;
6487
S1++;
6488
}
6489
if ((9*18-1)%12 == 0) {
6490
I3 = (9*18-1)/12 ;
6491
J1 = -2*(18)+3*I3 ;
6492
if ((2*18+J1)%3 == 0) {
6493
J2 = (2*18+J1)/3 ;
6494
J3 = 3*18-4*J2 ;
6495
S1++;
6496
S2++;
6497
}
6498
}
6499
if ((3*18+1)%4 == 0) {
6500
I3 = (3*18+1)/4 ;
6501
J3 = 18-(I2)-(I3) ;
6502
S1++;
6503
J3 = -(18)-2*(I2)+2*I3 ;
6504
S2++;
6505
}
6506
for (I3=3*17/4+2;I3<=min(N1,floord(11*17/4+2,3));I3++) {
6507
J3 = -(18)-2*(I2)+2*I3 ;
6508
S2++;
6509
}
6510
}
6511
if (9%2 == 0) {
6512
for (I3=2*9/2;I3<=floord(6*9/2-1,2);I3++) {
6513
J3 = 18-(I2)-(I3) ;
6514
S1++;
6515
}
6516
if (3*18%4 == 0) {
6517
I3 = 3*18/4 ;
6518
J1 = -2*(18)+3*I3 ;
6519
if ((2*18+J1)%3 == 0) {
6520
J2 = (2*18+J1)/3 ;
6521
J3 = 3*18-4*J2 ;
6522
S1++;
6523
S2++;
6524
}
6525
}
6526
for (I3=3*9/2+1;I3<=min(N1,floord(11*9/2,3));I3++) {
6527
J3 = -(18)-2*(I2)+2*I3 ;
6528
S2++;
6529
}
6530
}
6531
for (I2=5;I2<=6;I2++) {
6532
for (I3=max(max(1,ceild(18-I2,2)),18-2*I2);I3<=18-I2;I3++) {
6533
J3 = 18-(I2)-(I3) ;
6534
S1++;
6535
}
6536
for (I3=max(18-I2+1,ceild(18+2*I2,2));I3<=min(N1,floord(2*18+3*I2,3));I3++) {
6537
J3 = -(18)-2*(I2)+2*I3 ;
6538
S2++;
6539
}
6540
}
6541
for (I2=7;I2<=15;I2++) {
6542
for (I3=max(max(ceild(18-I2,2),18-2*I2),1);I3<=min(18-I2,N1);I3++) {
6543
J3 = 18-(I2)-(I3) ;
6544
S1++;
6545
}
6546
}
6547
}
6548
if (N1 == 16) {
6549
for (I3=ceild(19+2*1,2);I3<=min(N1,floord(2*19+3*1,3));I3++) {
6550
J3 = -(19)-2*(I2)+2*I3 ;
6551
S2++;
6552
}
6553
for (I3=ceild(19+2*2,2);I3<=min(19-2*(2)-1,floord(2*19+3*2,3));I3++) {
6554
J3 = -(19)-2*(I2)+2*I3 ;
6555
S2++;
6556
}
6557
for (I3=19-2*(2);I3<=min(N1,19-(2));I3++) {
6558
J3 = 19-(I2)-(I3) ;
6559
S1++;
6560
}
6561
for (I2=3;I2<=2;I2++) {
6562
for (I3=ceild(19+2*I2,2);I3<=19-2*I2-1;I3++) {
6563
J3 = -(19)-2*(I2)+2*I3 ;
6564
S2++;
6565
}
6566
for (I3=19-2*I2;I3<=floord(2*19+3*I2,3);I3++) {
6567
J3 = 19-(I2)-(I3) ;
6568
S1++;
6569
J3 = -(19)-2*(I2)+2*I3 ;
6570
S2++;
6571
}
6572
for (I3=ceild(2*19+3*I2+1,3);I3<=min(N1,19-I2);I3++) {
6573
J3 = 19-(I2)-(I3) ;
6574
S1++;
6575
}
6576
}
6577
if (19%7 == 0) {
6578
for (I3=ceild(9*19/7,2);I3<=5*19/7-1;I3++) {
6579
J3 = -(19)-2*(I2)+2*I3 ;
6580
S2++;
6581
}
6582
if (5*19%7 == 0) {
6583
I3 = 5*19/7 ;
6584
J1 = -2*(19)+3*I3 ;
6585
if ((2*19+J1)%3 == 0) {
6586
J2 = (2*19+J1)/3 ;
6587
J3 = 3*19-4*J2 ;
6588
S1++;
6589
S2++;
6590
}
6591
}
6592
for (I3=ceild(15*19/7+1,3);I3<=floord(17*19/7,3);I3++) {
6593
J3 = 19-(I2)-(I3) ;
6594
S1++;
6595
J3 = -(19)-2*(I2)+2*I3 ;
6596
S2++;
6597
}
6598
for (I3=ceild(17*19/7+1,3);I3<=min(N1,6*19/7);I3++) {
6599
J3 = 19-(I2)-(I3) ;
6600
S1++;
6601
}
6602
}
6603
for (I3=4*3+1;I3<=floord(13*3+1,3);I3++) {
6604
J3 = -(19)-2*(I2)+2*I3 ;
6605
S2++;
6606
J3 = 19-(I2)-(I3) ;
6607
S1++;
6608
}
6609
if ((13*19-1)%18 == 0) {
6610
I3 = (13*19-1)/18 ;
6611
J1 = -2*(19)+3*I3 ;
6612
if ((2*19+J1)%3 == 0) {
6613
J2 = (2*19+J1)/3 ;
6614
J3 = 3*19-4*J2 ;
6615
S1++;
6616
S2++;
6617
}
6618
}
6619
for (I3=ceild(13*3+3,3);I3<=floord(15*3+2,3);I3++) {
6620
J3 = 19-(I2)-(I3) ;
6621
S1++;
6622
J3 = -(19)-2*(I2)+2*I3 ;
6623
S2++;
6624
}
6625
if ((5*19+1)%6 == 0) {
6626
I3 = (5*19+1)/6 ;
6627
J3 = 19-(I2)-(I3) ;
6628
S1++;
6629
}
6630
if (19%6 == 0) {
6631
for (I3=4*19/6;I3<=floord(13*19/6-1,3);I3++) {
6632
J3 = -(19)-2*(I2)+2*I3 ;
6633
S2++;
6634
J3 = 19-(I2)-(I3) ;
6635
S1++;
6636
}
6637
if (13*19%18 == 0) {
6638
I3 = 13*19/18 ;
6639
J1 = -2*(19)+3*I3 ;
6640
if ((2*19+J1)%3 == 0) {
6641
J2 = (2*19+J1)/3 ;
6642
J3 = 3*19-4*J2 ;
6643
S1++;
6644
S2++;
6645
}
6646
}
6647
for (I3=ceild(13*19/6+1,3);I3<=min(N1,5*19/6);I3++) {
6648
J3 = 19-(I2)-(I3) ;
6649
S1++;
6650
J3 = -(19)-2*(I2)+2*I3 ;
6651
S2++;
6652
}
6653
}
6654
for (I3=19-2*(4);I3<=floord(19+2*4-1,2);I3++) {
6655
J3 = 19-(I2)-(I3) ;
6656
S1++;
6657
}
6658
for (I3=ceild(19+2*4,2);I3<=floord(2*19+4-1,3);I3++) {
6659
J3 = -(19)-2*(I2)+2*I3 ;
6660
S2++;
6661
J3 = 19-(I2)-(I3) ;
6662
S1++;
6663
}
6664
if ((2*19+4)%3 == 0) {
6665
I3 = (2*19+4)/3 ;
6666
J1 = -2*(19)+3*I3 ;
6667
if ((2*19+J1)%3 == 0) {
6668
J2 = (2*19+J1)/3 ;
6669
J3 = 3*19-4*J2 ;
6670
S1++;
6671
S2++;
6672
}
6673
}
6674
for (I3=ceild(2*19+4+1,3);I3<=19-(4);I3++) {
6675
J3 = 19-(I2)-(I3) ;
6676
S1++;
6677
J3 = -(19)-2*(I2)+2*I3 ;
6678
S2++;
6679
}
6680
for (I3=19-(4)+1;I3<=min(N1,floord(2*19+3*4,3));I3++) {
6681
J3 = -(19)-2*(I2)+2*I3 ;
6682
S2++;
6683
}
6684
if (9%2 == 0) {
6685
for (I3=2*9/2+1;I3<=3*9/2;I3++) {
6686
J3 = 19-(I2)-(I3) ;
6687
S1++;
6688
}
6689
if ((9*19-1)%12 == 0) {
6690
I3 = (9*19-1)/12 ;
6691
J1 = -2*(19)+3*I3 ;
6692
if ((2*19+J1)%3 == 0) {
6693
J2 = (2*19+J1)/3 ;
6694
J3 = 3*19-4*J2 ;
6695
S1++;
6696
S2++;
6697
}
6698
}
6699
if ((3*19+1)%4 == 0) {
6700
I3 = (3*19+1)/4 ;
6701
J3 = 19-(I2)-(I3) ;
6702
S1++;
6703
J3 = -(19)-2*(I2)+2*I3 ;
6704
S2++;
6705
}
6706
for (I3=3*9/2+2;I3<=min(N1,floord(11*9/2+2,3));I3++) {
6707
J3 = -(19)-2*(I2)+2*I3 ;
6708
S2++;
6709
}
6710
}
6711
if (19%4 == 0) {
6712
for (I3=2*19/4;I3<=floord(6*19/4-1,2);I3++) {
6713
J3 = 19-(I2)-(I3) ;
6714
S1++;
6715
}
6716
if (3*19%4 == 0) {
6717
I3 = 3*19/4 ;
6718
J1 = -2*(19)+3*I3 ;
6719
if ((2*19+J1)%3 == 0) {
6720
J2 = (2*19+J1)/3 ;
6721
J3 = 3*19-4*J2 ;
6722
S1++;
6723
S2++;
6724
}
6725
}
6726
for (I3=3*19/4+1;I3<=min(N1,floord(11*19/4,3));I3++) {
6727
J3 = -(19)-2*(I2)+2*I3 ;
6728
S2++;
6729
}
6730
}
6731
for (I2=5;I2<=6;I2++) {
6732
for (I3=max(max(1,ceild(19-I2,2)),19-2*I2);I3<=19-I2;I3++) {
6733
J3 = 19-(I2)-(I3) ;
6734
S1++;
6735
}
6736
for (I3=max(19-I2+1,ceild(19+2*I2,2));I3<=min(N1,floord(2*19+3*I2,3));I3++) {
6737
J3 = -(19)-2*(I2)+2*I3 ;
6738
S2++;
6739
}
6740
}
6741
for (I2=7;I2<=16;I2++) {
6742
for (I3=max(max(ceild(19-I2,2),19-2*I2),1);I3<=min(19-I2,N1);I3++) {
6743
J3 = 19-(I2)-(I3) ;
6744
S1++;
6745
}
6746
}
6747
}
6748
if ((N1 >= 17) && (N1 <= 16)) {
6749
if ((4*N1-5)%3 == 0) {
6750
I1 = (4*N1-5)/3 ;
6751
for (I2=1;I2<=floord(N1-8,6);I2++) {
6752
for (I3=ceild(I1+2*I2,2);I3<=min(N1,floord(2*I1+3*I2,3));I3++) {
6753
J3 = -I1-2*(I2)+2*I3 ;
6754
S2++;
6755
}
6756
}
6757
for (I2=ceild(N1-5,6);I2<=floord(4*N1-8,27);I2++) {
6758
for (I3=ceild(I1+2*I2,2);I3<=min(I1-2*I2-1,floord(2*I1+3*I2,3));I3++) {
6759
J3 = -I1-2*(I2)+2*I3 ;
6760
S2++;
6761
}
6762
for (I3=I1-2*I2;I3<=min(N1,I1-I2);I3++) {
6763
J3 = I1-(I2)-(I3) ;
6764
S1++;
6765
}
6766
}
6767
for (I2=ceild(4*N1-5,27);I2<=floord(N1+7,9);I2++) {
6768
for (I3=ceild(I1+2*I2,2);I3<=I1-2*I2-1;I3++) {
6769
J3 = -I1-2*(I2)+2*I3 ;
6770
S2++;
6771
}
6772
for (I3=I1-2*I2;I3<=floord(2*I1+3*I2,3);I3++) {
6773
J3 = I1-(I2)-(I3) ;
6774
S1++;
6775
J3 = -I1-2*(I2)+2*I3 ;
6776
S2++;
6777
}
6778
for (I3=ceild(2*I1+3*I2+1,3);I3<=min(N1,I1-I2);I3++) {
6779
J3 = I1-(I2)-(I3) ;
6780
S1++;
6781
}
6782
}
6783
for (I2=ceild(4*N1-2,21);I2<=floord(4*N1-11,18);I2++) {
6784
for (I3=ceild(I1+2*I2,2);I3<=I1-2*I2-1;I3++) {
6785
J3 = -I1-2*(I2)+2*I3 ;
6786
S2++;
6787
}
6788
for (I3=I1-2*I2;I3<=floord(2*I1+I2-1,3);I3++) {
6789
J3 = -I1-2*(I2)+2*I3 ;
6790
S2++;
6791
J3 = I1-(I2)-(I3) ;
6792
S1++;
6793
}
6794
if ((2*I1+I2)%3 == 0) {
6795
I3 = (2*I1+I2)/3 ;
6796
J1 = -2*I1+3*I3 ;
6797
if ((2*I1+J1)%3 == 0) {
6798
J2 = (2*I1+J1)/3 ;
6799
J3 = 3*I1-4*J2 ;
6800
S1++;
6801
S2++;
6802
}
6803
}
6804
for (I3=ceild(2*I1+I2+1,3);I3<=N1;I3++) {
6805
J3 = I1-(I2)-(I3) ;
6806
S1++;
6807
J3 = -I1-2*(I2)+2*I3 ;
6808
S2++;
6809
}
6810
}
6811
if ((4*N1-5)%18 == 0) {
6812
I2 = (4*N1-5)/18 ;
6813
for (I3=4*I2;I3<=floord(13*I2-1,3);I3++) {
6814
J3 = -I1-2*(I2)+2*I3 ;
6815
S2++;
6816
J3 = I1-(I2)-(I3) ;
6817
S1++;
6818
}
6819
if (13*I1%18 == 0) {
6820
I3 = 13*I1/18 ;
6821
J1 = -2*I1+3*I3 ;
6822
if ((2*I1+J1)%3 == 0) {
6823
J2 = (2*I1+J1)/3 ;
6824
J3 = 3*I1-4*J2 ;
6825
S1++;
6826
S2++;
6827
}
6828
}
6829
for (I3=ceild(13*I2+1,3);I3<=min(N1,5*I2);I3++) {
6830
J3 = I1-(I2)-(I3) ;
6831
S1++;
6832
J3 = -I1-2*(I2)+2*I3 ;
6833
S2++;
6834
}
6835
}
6836
for (I2=ceild(2*N1-1,9);I2<=floord(N1-5,3);I2++) {
6837
for (I3=I1-2*I2;I3<=floord(I1+2*I2-1,2);I3++) {
6838
J3 = I1-(I2)-(I3) ;
6839
S1++;
6840
}
6841
for (I3=ceild(I1+2*I2,2);I3<=floord(2*I1+I2-1,3);I3++) {
6842
J3 = -I1-2*(I2)+2*I3 ;
6843
S2++;
6844
J3 = I1-(I2)-(I3) ;
6845
S1++;
6846
}
6847
if ((2*I1+I2)%3 == 0) {
6848
I3 = (2*I1+I2)/3 ;
6849
J1 = -2*I1+3*I3 ;
6850
if ((2*I1+J1)%3 == 0) {
6851
J2 = (2*I1+J1)/3 ;
6852
J3 = 3*I1-4*J2 ;
6853
S1++;
6854
S2++;
6855
}
6856
}
6857
for (I3=ceild(2*I1+I2+1,3);I3<=N1;I3++) {
6858
J3 = I1-(I2)-(I3) ;
6859
S1++;
6860
J3 = -I1-2*(I2)+2*I3 ;
6861
S2++;
6862
}
6863
}
6864
if ((N1-2)%3 == 0) {
6865
I2 = (N1-2)/3 ;
6866
for (I3=2*I2+1;I3<=3*I2;I3++) {
6867
J3 = I1-(I2)-(I3) ;
6868
S1++;
6869
}
6870
if ((9*I1-1)%12 == 0) {
6871
I3 = (9*I1-1)/12 ;
6872
J1 = -2*I1+3*I3 ;
6873
if ((2*I1+J1)%3 == 0) {
6874
J2 = (2*I1+J1)/3 ;
6875
J3 = 3*I1-4*J2 ;
6876
S1++;
6877
S2++;
6878
}
6879
}
6880
if ((3*I1+1)%4 == 0) {
6881
I3 = (3*I1+1)/4 ;
6882
J3 = I1-(I2)-(I3) ;
6883
S1++;
6884
J3 = -I1-2*(I2)+2*I3 ;
6885
S2++;
6886
}
6887
for (I3=3*I2+2;I3<=min(N1,floord(11*I2+2,3));I3++) {
6888
J3 = -I1-2*(I2)+2*I3 ;
6889
S2++;
6890
}
6891
}
6892
if ((4*N1-5)%12 == 0) {
6893
I2 = (4*N1-5)/12 ;
6894
for (I3=2*I2;I3<=floord(6*I2-1,2);I3++) {
6895
J3 = I1-(I2)-(I3) ;
6896
S1++;
6897
}
6898
if (3*I1%4 == 0) {
6899
I3 = 3*I1/4 ;
6900
J1 = -2*I1+3*I3 ;
6901
if ((2*I1+J1)%3 == 0) {
6902
J2 = (2*I1+J1)/3 ;
6903
J3 = 3*I1-4*J2 ;
6904
S1++;
6905
S2++;
6906
}
6907
}
6908
for (I3=3*I2+1;I3<=min(N1,floord(11*I2,3));I3++) {
6909
J3 = -I1-2*(I2)+2*I3 ;
6910
S2++;
6911
}
6912
}
6913
for (I2=ceild(2*N1-1,6);I2<=floord(2*N1+5,6);I2++) {
6914
for (I3=max(max(1,ceild(I1-I2,2)),I1-2*I2);I3<=I1-I2;I3++) {
6915
J3 = I1-(I2)-(I3) ;
6916
S1++;
6917
}
6918
for (I3=max(I1-I2+1,ceild(I1+2*I2,2));I3<=min(N1,floord(2*I1+3*I2,3));I3++) {
6919
J3 = -I1-2*(I2)+2*I3 ;
6920
S2++;
6921
}
6922
}
6923
for (I2=ceild(N1+4,3);I2<=N1;I2++) {
6924
for (I3=max(max(ceild(I1-I2,2),I1-2*I2),1);I3<=min(I1-I2,N1);I3++) {
6925
J3 = I1-(I2)-(I3) ;
6926
S1++;
6927
}
6928
}
6929
}
6930
}
6931
if (N1 == 9) {
6932
for (I3=ceild(12+2*1,2);I3<=min(N1,floord(2*12+3*1,3));I3++) {
6933
J3 = -(12)-2*(I2)+2*I3 ;
6934
S2++;
6935
}
6936
for (I2=2;I2<=1;I2++) {
6937
for (I3=ceild(12+2*I2,2);I3<=12-2*I2-1;I3++) {
6938
J3 = -(12)-2*(I2)+2*I3 ;
6939
S2++;
6940
}
6941
for (I3=12-2*I2;I3<=N1;I3++) {
6942
J3 = 12-(I2)-(I3) ;
6943
S1++;
6944
J3 = -(12)-2*(I2)+2*I3 ;
6945
S2++;
6946
}
6947
}
6948
for (I3=4*2;I3<=floord(13*2-1,3);I3++) {
6949
J3 = -(12)-2*(I2)+2*I3 ;
6950
S2++;
6951
J3 = 12-(I2)-(I3) ;
6952
S1++;
6953
}
6954
if (13*12%18 == 0) {
6955
I3 = 13*12/18 ;
6956
J1 = -2*(12)+3*I3 ;
6957
if ((2*12+J1)%3 == 0) {
6958
J2 = (2*12+J1)/3 ;
6959
J3 = 3*12-4*J2 ;
6960
S1++;
6961
S2++;
6962
}
6963
}
6964
for (I3=ceild(13*2+1,3);I3<=min(N1,5*2);I3++) {
6965
J3 = 12-(I2)-(I3) ;
6966
S1++;
6967
J3 = -(12)-2*(I2)+2*I3 ;
6968
S2++;
6969
}
6970
for (I3=ceild(2*N1,3);I3<=floord(2*N1-1,2);I3++) {
6971
J3 = 12-(I2)-(I3) ;
6972
S1++;
6973
}
6974
J1 = -2*(12)+3*N1 ;
6975
if ((2*12+J1)%3 == 0) {
6976
J2 = (2*12+J1)/3 ;
6977
J3 = 3*12-4*J2 ;
6978
S1++;
6979
S2++;
6980
}
6981
for (I2=4;I2<=9;I2++) {
6982
for (I3=max(max(ceild(12-I2,2),12-2*I2),1);I3<=min(12-I2,N1);I3++) {
6983
J3 = 12-(I2)-(I3) ;
6984
S1++;
6985
}
6986
}
6987
}
6988
for (I1=max(20,ceild(2*N1+3,3));I1<=N1+2;I1++) {
6989
for (I2=1;I2<=floord(I1-1,9);I2++) {
6990
for (I3=ceild(I1+2*I2,2);I3<=min(I1-2*I2-1,floord(2*I1+3*I2,3));I3++) {
6991
J3 = -I1-2*(I2)+2*I3 ;
6992
S2++;
6993
}
6994
for (I3=I1-2*I2;I3<=min(N1,I1-I2);I3++) {
6995
J3 = I1-(I2)-(I3) ;
6996
S1++;
6997
}
6998
}
6999
for (I2=ceild(I1,9);I2<=floord(I1-1,7);I2++) {
7000
for (I3=ceild(I1+2*I2,2);I3<=I1-2*I2-1;I3++) {
7001
J3 = -I1-2*(I2)+2*I3 ;
7002
S2++;
7003
}
7004
for (I3=I1-2*I2;I3<=floord(2*I1+3*I2,3);I3++) {
7005
J3 = I1-(I2)-(I3) ;
7006
S1++;
7007
J3 = -I1-2*(I2)+2*I3 ;
7008
S2++;
7009
}
7010
for (I3=ceild(2*I1+3*I2+1,3);I3<=min(N1,I1-I2);I3++) {
7011
J3 = I1-(I2)-(I3) ;
7012
S1++;
7013
}
7014
}
7015
if (I1%7 == 0) {
7016
for (I3=ceild(9*I1/7,2);I3<=5*I1/7-1;I3++) {
7017
J3 = -I1-2*(I2)+2*I3 ;
7018
S2++;
7019
}
7020
if (5*I1%7 == 0) {
7021
I3 = 5*I1/7 ;
7022
J1 = -2*I1+3*I3 ;
7023
if ((2*I1+J1)%3 == 0) {
7024
J2 = (2*I1+J1)/3 ;
7025
J3 = 3*I1-4*J2 ;
7026
S1++;
7027
S2++;
7028
}
7029
}
7030
for (I3=ceild(15*I1/7+1,3);I3<=floord(17*I1/7,3);I3++) {
7031
J3 = I1-(I2)-(I3) ;
7032
S1++;
7033
J3 = -I1-2*(I2)+2*I3 ;
7034
S2++;
7035
}
7036
for (I3=ceild(17*I1/7+1,3);I3<=min(N1,6*I1/7);I3++) {
7037
J3 = I1-(I2)-(I3) ;
7038
S1++;
7039
}
7040
}
7041
for (I2=ceild(I1+1,7);I2<=floord(I1-2,6);I2++) {
7042
for (I3=ceild(I1+2*I2,2);I3<=I1-2*I2-1;I3++) {
7043
J3 = -I1-2*(I2)+2*I3 ;
7044
S2++;
7045
}
7046
for (I3=I1-2*I2;I3<=floord(2*I1+I2-1,3);I3++) {
7047
J3 = -I1-2*(I2)+2*I3 ;
7048
S2++;
7049
J3 = I1-(I2)-(I3) ;
7050
S1++;
7051
}
7052
if ((2*I1+I2)%3 == 0) {
7053
I3 = (2*I1+I2)/3 ;
7054
J1 = -2*I1+3*I3 ;
7055
if ((2*I1+J1)%3 == 0) {
7056
J2 = (2*I1+J1)/3 ;
7057
J3 = 3*I1-4*J2 ;
7058
S1++;
7059
S2++;
7060
}
7061
}
7062
for (I3=ceild(2*I1+I2+1,3);I3<=floord(2*I1+3*I2,3);I3++) {
7063
J3 = I1-(I2)-(I3) ;
7064
S1++;
7065
J3 = -I1-2*(I2)+2*I3 ;
7066
S2++;
7067
}
7068
for (I3=ceild(2*I1+3*I2+1,3);I3<=min(N1,I1-I2);I3++) {
7069
J3 = I1-(I2)-(I3) ;
7070
S1++;
7071
}
7072
}
7073
if ((I1-1)%6 == 0) {
7074
I2 = (I1-1)/6 ;
7075
for (I3=4*I2+1;I3<=floord(13*I2+1,3);I3++) {
7076
J3 = -I1-2*(I2)+2*I3 ;
7077
S2++;
7078
J3 = I1-(I2)-(I3) ;
7079
S1++;
7080
}
7081
if ((13*I1-1)%18 == 0) {
7082
I3 = (13*I1-1)/18 ;
7083
J1 = -2*I1+3*I3 ;
7084
if ((2*I1+J1)%3 == 0) {
7085
J2 = (2*I1+J1)/3 ;
7086
J3 = 3*I1-4*J2 ;
7087
S1++;
7088
S2++;
7089
}
7090
}
7091
for (I3=ceild(13*I2+3,3);I3<=floord(15*I2+2,3);I3++) {
7092
J3 = I1-(I2)-(I3) ;
7093
S1++;
7094
J3 = -I1-2*(I2)+2*I3 ;
7095
S2++;
7096
}
7097
if ((5*I1+1)%6 == 0) {
7098
I3 = (5*I1+1)/6 ;
7099
J3 = I1-(I2)-(I3) ;
7100
S1++;
7101
}
7102
}
7103
if (I1%6 == 0) {
7104
for (I3=4*I1/6;I3<=floord(13*I1/6-1,3);I3++) {
7105
J3 = -I1-2*(I2)+2*I3 ;
7106
S2++;
7107
J3 = I1-(I2)-(I3) ;
7108
S1++;
7109
}
7110
if (13*I1%18 == 0) {
7111
I3 = 13*I1/18 ;
7112
J1 = -2*I1+3*I3 ;
7113
if ((2*I1+J1)%3 == 0) {
7114
J2 = (2*I1+J1)/3 ;
7115
J3 = 3*I1-4*J2 ;
7116
S1++;
7117
S2++;
7118
}
7119
}
7120
for (I3=ceild(13*I1/6+1,3);I3<=min(N1,5*I1/6);I3++) {
7121
J3 = I1-(I2)-(I3) ;
7122
S1++;
7123
J3 = -I1-2*(I2)+2*I3 ;
7124
S2++;
7125
}
7126
}
7127
for (I2=ceild(I1+1,6);I2<=floord(I1+2,6);I2++) {
7128
for (I3=I1-2*I2;I3<=floord(I1+2*I2-1,2);I3++) {
7129
J3 = I1-(I2)-(I3) ;
7130
S1++;
7131
}
7132
for (I3=ceild(I1+2*I2,2);I3<=floord(2*I1+I2-1,3);I3++) {
7133
J3 = -I1-2*(I2)+2*I3 ;
7134
S2++;
7135
J3 = I1-(I2)-(I3) ;
7136
S1++;
7137
}
7138
if ((2*I1+I2)%3 == 0) {
7139
I3 = (2*I1+I2)/3 ;
7140
J1 = -2*I1+3*I3 ;
7141
if ((2*I1+J1)%3 == 0) {
7142
J2 = (2*I1+J1)/3 ;
7143
J3 = 3*I1-4*J2 ;
7144
S1++;
7145
S2++;
7146
}
7147
}
7148
for (I3=ceild(2*I1+I2+1,3);I3<=I1-I2;I3++) {
7149
J3 = I1-(I2)-(I3) ;
7150
S1++;
7151
J3 = -I1-2*(I2)+2*I3 ;
7152
S2++;
7153
}
7154
}
7155
for (I2=ceild(I1+3,6);I2<=floord(I1-2,4);I2++) {
7156
for (I3=I1-2*I2;I3<=floord(I1+2*I2-1,2);I3++) {
7157
J3 = I1-(I2)-(I3) ;
7158
S1++;
7159
}
7160
for (I3=ceild(I1+2*I2,2);I3<=floord(2*I1+I2-1,3);I3++) {
7161
J3 = -I1-2*(I2)+2*I3 ;
7162
S2++;
7163
J3 = I1-(I2)-(I3) ;
7164
S1++;
7165
}
7166
if ((2*I1+I2)%3 == 0) {
7167
I3 = (2*I1+I2)/3 ;
7168
J1 = -2*I1+3*I3 ;
7169
if ((2*I1+J1)%3 == 0) {
7170
J2 = (2*I1+J1)/3 ;
7171
J3 = 3*I1-4*J2 ;
7172
S1++;
7173
S2++;
7174
}
7175
}
7176
for (I3=ceild(2*I1+I2+1,3);I3<=I1-I2;I3++) {
7177
J3 = I1-(I2)-(I3) ;
7178
S1++;
7179
J3 = -I1-2*(I2)+2*I3 ;
7180
S2++;
7181
}
7182
for (I3=I1-I2+1;I3<=min(N1,floord(2*I1+3*I2,3));I3++) {
7183
J3 = -I1-2*(I2)+2*I3 ;
7184
S2++;
7185
}
7186
}
7187
if ((I1-1)%4 == 0) {
7188
I2 = (I1-1)/4 ;
7189
for (I3=2*I2+1;I3<=3*I2;I3++) {
7190
J3 = I1-(I2)-(I3) ;
7191
S1++;
7192
}
7193
if ((9*I1-1)%12 == 0) {
7194
I3 = (9*I1-1)/12 ;
7195
J1 = -2*I1+3*I3 ;
7196
if ((2*I1+J1)%3 == 0) {
7197
J2 = (2*I1+J1)/3 ;
7198
J3 = 3*I1-4*J2 ;
7199
S1++;
7200
S2++;
7201
}
7202
}
7203
if ((3*I1+1)%4 == 0) {
7204
I3 = (3*I1+1)/4 ;
7205
J3 = I1-(I2)-(I3) ;
7206
S1++;
7207
J3 = -I1-2*(I2)+2*I3 ;
7208
S2++;
7209
}
7210
for (I3=3*I2+2;I3<=min(N1,floord(11*I2+2,3));I3++) {
7211
J3 = -I1-2*(I2)+2*I3 ;
7212
S2++;
7213
}
7214
}
7215
if (I1%4 == 0) {
7216
for (I3=2*I1/4;I3<=floord(6*I1/4-1,2);I3++) {
7217
J3 = I1-(I2)-(I3) ;
7218
S1++;
7219
}
7220
if (3*I1%4 == 0) {
7221
I3 = 3*I1/4 ;
7222
J1 = -2*I1+3*I3 ;
7223
if ((2*I1+J1)%3 == 0) {
7224
J2 = (2*I1+J1)/3 ;
7225
J3 = 3*I1-4*J2 ;
7226
S1++;
7227
S2++;
7228
}
7229
}
7230
for (I3=3*I1/4+1;I3<=min(N1,floord(11*I1/4,3));I3++) {
7231
J3 = -I1-2*(I2)+2*I3 ;
7232
S2++;
7233
}
7234
}
7235
for (I2=ceild(I1+1,4);I2<=floord(-I1+2*N1,2);I2++) {
7236
for (I3=max(max(1,ceild(I1-I2,2)),I1-2*I2);I3<=I1-I2;I3++) {
7237
J3 = I1-(I2)-(I3) ;
7238
S1++;
7239
}
7240
for (I3=max(I1-I2+1,ceild(I1+2*I2,2));I3<=min(N1,floord(2*I1+3*I2,3));I3++) {
7241
J3 = -I1-2*(I2)+2*I3 ;
7242
S2++;
7243
}
7244
}
7245
for (I2=ceild(-I1+2*N1+1,2);I2<=min(N1,I1-1);I2++) {
7246
for (I3=max(max(ceild(I1-I2,2),I1-2*I2),1);I3<=min(I1-I2,N1);I3++) {
7247
J3 = I1-(I2)-(I3) ;
7248
S1++;
7249
}
7250
}
7251
}
7252
for (I1=max(14,ceild(6*N1-3,5));I1<=N1+2;I1++) {
7253
for (I2=1;I2<=floord(I1-1,9);I2++) {
7254
for (I3=ceild(I1+2*I2,2);I3<=min(I1-2*I2-1,floord(2*I1+3*I2,3));I3++) {
7255
J3 = -I1-2*(I2)+2*I3 ;
7256
S2++;
7257
}
7258
for (I3=I1-2*I2;I3<=min(N1,I1-I2);I3++) {
7259
J3 = I1-(I2)-(I3) ;
7260
S1++;
7261
}
7262
}
7263
for (I2=ceild(I1,9);I2<=floord(I1-1,7);I2++) {
7264
for (I3=ceild(I1+2*I2,2);I3<=I1-2*I2-1;I3++) {
7265
J3 = -I1-2*(I2)+2*I3 ;
7266
S2++;
7267
}
7268
for (I3=I1-2*I2;I3<=floord(2*I1+3*I2,3);I3++) {
7269
J3 = I1-(I2)-(I3) ;
7270
S1++;
7271
J3 = -I1-2*(I2)+2*I3 ;
7272
S2++;
7273
}
7274
for (I3=ceild(2*I1+3*I2+1,3);I3<=min(N1,I1-I2);I3++) {
7275
J3 = I1-(I2)-(I3) ;
7276
S1++;
7277
}
7278
}
7279
if (I1%7 == 0) {
7280
for (I3=ceild(9*I1/7,2);I3<=5*I1/7-1;I3++) {
7281
J3 = -I1-2*(I2)+2*I3 ;
7282
S2++;
7283
}
7284
if (5*I1%7 == 0) {
7285
I3 = 5*I1/7 ;
7286
J1 = -2*I1+3*I3 ;
7287
if ((2*I1+J1)%3 == 0) {
7288
J2 = (2*I1+J1)/3 ;
7289
J3 = 3*I1-4*J2 ;
7290
S1++;
7291
S2++;
7292
}
7293
}
7294
for (I3=ceild(15*I1/7+1,3);I3<=floord(17*I1/7,3);I3++) {
7295
J3 = I1-(I2)-(I3) ;
7296
S1++;
7297
J3 = -I1-2*(I2)+2*I3 ;
7298
S2++;
7299
}
7300
for (I3=ceild(17*I1/7+1,3);I3<=min(N1,6*I1/7);I3++) {
7301
J3 = I1-(I2)-(I3) ;
7302
S1++;
7303
}
7304
}
7305
if ((I1-1)%6 == 0) {
7306
I2 = (I1-1)/6 ;
7307
for (I3=4*I2+1;I3<=floord(13*I2+1,3);I3++) {
7308
J3 = -I1-2*(I2)+2*I3 ;
7309
S2++;
7310
J3 = I1-(I2)-(I3) ;
7311
S1++;
7312
}
7313
if ((13*I1-1)%18 == 0) {
7314
I3 = (13*I1-1)/18 ;
7315
J1 = -2*I1+3*I3 ;
7316
if ((2*I1+J1)%3 == 0) {
7317
J2 = (2*I1+J1)/3 ;
7318
J3 = 3*I1-4*J2 ;
7319
S1++;
7320
S2++;
7321
}
7322
}
7323
for (I3=ceild(13*I2+3,3);I3<=floord(15*I2+2,3);I3++) {
7324
J3 = I1-(I2)-(I3) ;
7325
S1++;
7326
J3 = -I1-2*(I2)+2*I3 ;
7327
S2++;
7328
}
7329
if ((5*I1+1)%6 == 0) {
7330
I3 = (5*I1+1)/6 ;
7331
J3 = I1-(I2)-(I3) ;
7332
S1++;
7333
}
7334
}
7335
if (I1%6 == 0) {
7336
for (I3=4*I1/6;I3<=floord(13*I1/6-1,3);I3++) {
7337
J3 = -I1-2*(I2)+2*I3 ;
7338
S2++;
7339
J3 = I1-(I2)-(I3) ;
7340
S1++;
7341
}
7342
if (13*I1%18 == 0) {
7343
I3 = 13*I1/18 ;
7344
J1 = -2*I1+3*I3 ;
7345
if ((2*I1+J1)%3 == 0) {
7346
J2 = (2*I1+J1)/3 ;
7347
J3 = 3*I1-4*J2 ;
7348
S1++;
7349
S2++;
7350
}
7351
}
7352
for (I3=ceild(13*I1/6+1,3);I3<=min(N1,5*I1/6);I3++) {
7353
J3 = I1-(I2)-(I3) ;
7354
S1++;
7355
J3 = -I1-2*(I2)+2*I3 ;
7356
S2++;
7357
}
7358
}
7359
for (I2=I1-N1+1;I2<=floord(I1-2,4);I2++) {
7360
for (I3=I1-2*I2;I3<=floord(I1+2*I2-1,2);I3++) {
7361
J3 = I1-(I2)-(I3) ;
7362
S1++;
7363
}
7364
for (I3=ceild(I1+2*I2,2);I3<=floord(2*I1+I2-1,3);I3++) {
7365
J3 = -I1-2*(I2)+2*I3 ;
7366
S2++;
7367
J3 = I1-(I2)-(I3) ;
7368
S1++;
7369
}
7370
if ((2*I1+I2)%3 == 0) {
7371
I3 = (2*I1+I2)/3 ;
7372
J1 = -2*I1+3*I3 ;
7373
if ((2*I1+J1)%3 == 0) {
7374
J2 = (2*I1+J1)/3 ;
7375
J3 = 3*I1-4*J2 ;
7376
S1++;
7377
S2++;
7378
}
7379
}
7380
for (I3=ceild(2*I1+I2+1,3);I3<=I1-I2;I3++) {
7381
J3 = I1-(I2)-(I3) ;
7382
S1++;
7383
J3 = -I1-2*(I2)+2*I3 ;
7384
S2++;
7385
}
7386
for (I3=I1-I2+1;I3<=min(N1,floord(2*I1+3*I2,3));I3++) {
7387
J3 = -I1-2*(I2)+2*I3 ;
7388
S2++;
7389
}
7390
}
7391
if ((I1-1)%4 == 0) {
7392
I2 = (I1-1)/4 ;
7393
for (I3=2*I2+1;I3<=3*I2;I3++) {
7394
J3 = I1-(I2)-(I3) ;
7395
S1++;
7396
}
7397
if ((9*I1-1)%12 == 0) {
7398
I3 = (9*I1-1)/12 ;
7399
J1 = -2*I1+3*I3 ;
7400
if ((2*I1+J1)%3 == 0) {
7401
J2 = (2*I1+J1)/3 ;
7402
J3 = 3*I1-4*J2 ;
7403
S1++;
7404
S2++;
7405
}
7406
}
7407
if ((3*I1+1)%4 == 0) {
7408
I3 = (3*I1+1)/4 ;
7409
J3 = I1-(I2)-(I3) ;
7410
S1++;
7411
J3 = -I1-2*(I2)+2*I3 ;
7412
S2++;
7413
}
7414
for (I3=3*I2+2;I3<=min(N1,floord(11*I2+2,3));I3++) {
7415
J3 = -I1-2*(I2)+2*I3 ;
7416
S2++;
7417
}
7418
}
7419
if (I1%4 == 0) {
7420
for (I3=2*I1/4;I3<=floord(6*I1/4-1,2);I3++) {
7421
J3 = I1-(I2)-(I3) ;
7422
S1++;
7423
}
7424
if (3*I1%4 == 0) {
7425
I3 = 3*I1/4 ;
7426
J1 = -2*I1+3*I3 ;
7427
if ((2*I1+J1)%3 == 0) {
7428
J2 = (2*I1+J1)/3 ;
7429
J3 = 3*I1-4*J2 ;
7430
S1++;
7431
S2++;
7432
}
7433
}
7434
for (I3=3*I1/4+1;I3<=min(N1,floord(11*I1/4,3));I3++) {
7435
J3 = -I1-2*(I2)+2*I3 ;
7436
S2++;
7437
}
7438
}
7439
for (I2=ceild(I1+1,4);I2<=floord(-I1+2*N1,2);I2++) {
7440
for (I3=max(max(1,ceild(I1-I2,2)),I1-2*I2);I3<=I1-I2;I3++) {
7441
J3 = I1-(I2)-(I3) ;
7442
S1++;
7443
}
7444
for (I3=max(I1-I2+1,ceild(I1+2*I2,2));I3<=min(N1,floord(2*I1+3*I2,3));I3++) {
7445
J3 = -I1-2*(I2)+2*I3 ;
7446
S2++;
7447
}
7448
}
7449
for (I2=ceild(-I1+2*N1+1,2);I2<=N1;I2++) {
7450
for (I3=max(max(ceild(I1-I2,2),I1-2*I2),1);I3<=min(I1-I2,N1);I3++) {
7451
J3 = I1-(I2)-(I3) ;
7452
S1++;
7453
}
7454
}
7455
}
7456
for (I1=N1+3;I1<=floord(6*N1-4,5);I1++) {
7457
for (I2=1;I2<=floord(I1-N1-1,2);I2++) {
7458
for (I3=ceild(I1+2*I2,2);I3<=min(N1,floord(2*I1+3*I2,3));I3++) {
7459
J3 = -I1-2*(I2)+2*I3 ;
7460
S2++;
7461
}
7462
}
7463
for (I2=ceild(I1-N1,2);I2<=floord(I1-1,9);I2++) {
7464
for (I3=ceild(I1+2*I2,2);I3<=min(I1-2*I2-1,floord(2*I1+3*I2,3));I3++) {
7465
J3 = -I1-2*(I2)+2*I3 ;
7466
S2++;
7467
}
7468
for (I3=I1-2*I2;I3<=min(N1,I1-I2);I3++) {
7469
J3 = I1-(I2)-(I3) ;
7470
S1++;
7471
}
7472
}
7473
for (I2=ceild(I1,9);I2<=floord(I1-1,7);I2++) {
7474
for (I3=ceild(I1+2*I2,2);I3<=I1-2*I2-1;I3++) {
7475
J3 = -I1-2*(I2)+2*I3 ;
7476
S2++;
7477
}
7478
for (I3=I1-2*I2;I3<=floord(2*I1+3*I2,3);I3++) {
7479
J3 = I1-(I2)-(I3) ;
7480
S1++;
7481
J3 = -I1-2*(I2)+2*I3 ;
7482
S2++;
7483
}
7484
for (I3=ceild(2*I1+3*I2+1,3);I3<=min(N1,I1-I2);I3++) {
7485
J3 = I1-(I2)-(I3) ;
7486
S1++;
7487
}
7488
}
7489
if (I1%7 == 0) {
7490
for (I3=ceild(9*I1/7,2);I3<=5*I1/7-1;I3++) {
7491
J3 = -I1-2*(I2)+2*I3 ;
7492
S2++;
7493
}
7494
if (5*I1%7 == 0) {
7495
I3 = 5*I1/7 ;
7496
J1 = -2*I1+3*I3 ;
7497
if ((2*I1+J1)%3 == 0) {
7498
J2 = (2*I1+J1)/3 ;
7499
J3 = 3*I1-4*J2 ;
7500
S1++;
7501
S2++;
7502
}
7503
}
7504
for (I3=ceild(15*I1/7+1,3);I3<=floord(17*I1/7,3);I3++) {
7505
J3 = I1-(I2)-(I3) ;
7506
S1++;
7507
J3 = -I1-2*(I2)+2*I3 ;
7508
S2++;
7509
}
7510
for (I3=ceild(17*I1/7+1,3);I3<=min(N1,6*I1/7);I3++) {
7511
J3 = I1-(I2)-(I3) ;
7512
S1++;
7513
}
7514
}
7515
for (I2=ceild(I1+1,7);I2<=floord(I1-2,6);I2++) {
7516
for (I3=ceild(I1+2*I2,2);I3<=I1-2*I2-1;I3++) {
7517
J3 = -I1-2*(I2)+2*I3 ;
7518
S2++;
7519
}
7520
for (I3=I1-2*I2;I3<=floord(2*I1+I2-1,3);I3++) {
7521
J3 = -I1-2*(I2)+2*I3 ;
7522
S2++;
7523
J3 = I1-(I2)-(I3) ;
7524
S1++;
7525
}
7526
if ((2*I1+I2)%3 == 0) {
7527
I3 = (2*I1+I2)/3 ;
7528
J1 = -2*I1+3*I3 ;
7529
if ((2*I1+J1)%3 == 0) {
7530
J2 = (2*I1+J1)/3 ;
7531
J3 = 3*I1-4*J2 ;
7532
S1++;
7533
S2++;
7534
}
7535
}
7536
for (I3=ceild(2*I1+I2+1,3);I3<=floord(2*I1+3*I2,3);I3++) {
7537
J3 = I1-(I2)-(I3) ;
7538
S1++;
7539
J3 = -I1-2*(I2)+2*I3 ;
7540
S2++;
7541
}
7542
for (I3=ceild(2*I1+3*I2+1,3);I3<=min(N1,I1-I2);I3++) {
7543
J3 = I1-(I2)-(I3) ;
7544
S1++;
7545
}
7546
}
7547
if ((I1-1)%6 == 0) {
7548
I2 = (I1-1)/6 ;
7549
for (I3=4*I2+1;I3<=floord(13*I2+1,3);I3++) {
7550
J3 = -I1-2*(I2)+2*I3 ;
7551
S2++;
7552
J3 = I1-(I2)-(I3) ;
7553
S1++;
7554
}
7555
if ((13*I1-1)%18 == 0) {
7556
I3 = (13*I1-1)/18 ;
7557
J1 = -2*I1+3*I3 ;
7558
if ((2*I1+J1)%3 == 0) {
7559
J2 = (2*I1+J1)/3 ;
7560
J3 = 3*I1-4*J2 ;
7561
S1++;
7562
S2++;
7563
}
7564
}
7565
for (I3=ceild(13*I2+3,3);I3<=floord(15*I2+2,3);I3++) {
7566
J3 = I1-(I2)-(I3) ;
7567
S1++;
7568
J3 = -I1-2*(I2)+2*I3 ;
7569
S2++;
7570
}
7571
if ((5*I1+1)%6 == 0) {
7572
I3 = (5*I1+1)/6 ;
7573
J3 = I1-(I2)-(I3) ;
7574
S1++;
7575
}
7576
}
7577
if (I1%6 == 0) {
7578
for (I3=4*I1/6;I3<=floord(13*I1/6-1,3);I3++) {
7579
J3 = -I1-2*(I2)+2*I3 ;
7580
S2++;
7581
J3 = I1-(I2)-(I3) ;
7582
S1++;
7583
}
7584
if (13*I1%18 == 0) {
7585
I3 = 13*I1/18 ;
7586
J1 = -2*I1+3*I3 ;
7587
if ((2*I1+J1)%3 == 0) {
7588
J2 = (2*I1+J1)/3 ;
7589
J3 = 3*I1-4*J2 ;
7590
S1++;
7591
S2++;
7592
}
7593
}
7594
for (I3=ceild(13*I1/6+1,3);I3<=min(N1,5*I1/6);I3++) {
7595
J3 = I1-(I2)-(I3) ;
7596
S1++;
7597
J3 = -I1-2*(I2)+2*I3 ;
7598
S2++;
7599
}
7600
}
7601
for (I2=max(ceild(I1+1,6),I1-N1+1);I2<=floord(I1+2,6);I2++) {
7602
for (I3=I1-2*I2;I3<=floord(I1+2*I2-1,2);I3++) {
7603
J3 = I1-(I2)-(I3) ;
7604
S1++;
7605
}
7606
for (I3=ceild(I1+2*I2,2);I3<=floord(2*I1+I2-1,3);I3++) {
7607
J3 = -I1-2*(I2)+2*I3 ;
7608
S2++;
7609
J3 = I1-(I2)-(I3) ;
7610
S1++;
7611
}
7612
if ((2*I1+I2)%3 == 0) {
7613
I3 = (2*I1+I2)/3 ;
7614
J1 = -2*I1+3*I3 ;
7615
if ((2*I1+J1)%3 == 0) {
7616
J2 = (2*I1+J1)/3 ;
7617
J3 = 3*I1-4*J2 ;
7618
S1++;
7619
S2++;
7620
}
7621
}
7622
for (I3=ceild(2*I1+I2+1,3);I3<=I1-I2;I3++) {
7623
J3 = I1-(I2)-(I3) ;
7624
S1++;
7625
J3 = -I1-2*(I2)+2*I3 ;
7626
S2++;
7627
}
7628
}
7629
for (I2=ceild(I1+3,6);I2<=floord(I1-2,4);I2++) {
7630
for (I3=I1-2*I2;I3<=floord(I1+2*I2-1,2);I3++) {
7631
J3 = I1-(I2)-(I3) ;
7632
S1++;
7633
}
7634
for (I3=ceild(I1+2*I2,2);I3<=floord(2*I1+I2-1,3);I3++) {
7635
J3 = -I1-2*(I2)+2*I3 ;
7636
S2++;
7637
J3 = I1-(I2)-(I3) ;
7638
S1++;
7639
}
7640
if ((2*I1+I2)%3 == 0) {
7641
I3 = (2*I1+I2)/3 ;
7642
J1 = -2*I1+3*I3 ;
7643
if ((2*I1+J1)%3 == 0) {
7644
J2 = (2*I1+J1)/3 ;
7645
J3 = 3*I1-4*J2 ;
7646
S1++;
7647
S2++;
7648
}
7649
}
7650
for (I3=ceild(2*I1+I2+1,3);I3<=I1-I2;I3++) {
7651
J3 = I1-(I2)-(I3) ;
7652
S1++;
7653
J3 = -I1-2*(I2)+2*I3 ;
7654
S2++;
7655
}
7656
for (I3=I1-I2+1;I3<=min(N1,floord(2*I1+3*I2,3));I3++) {
7657
J3 = -I1-2*(I2)+2*I3 ;
7658
S2++;
7659
}
7660
}
7661
if ((I1-1)%4 == 0) {
7662
I2 = (I1-1)/4 ;
7663
for (I3=2*I2+1;I3<=3*I2;I3++) {
7664
J3 = I1-(I2)-(I3) ;
7665
S1++;
7666
}
7667
if ((9*I1-1)%12 == 0) {
7668
I3 = (9*I1-1)/12 ;
7669
J1 = -2*I1+3*I3 ;
7670
if ((2*I1+J1)%3 == 0) {
7671
J2 = (2*I1+J1)/3 ;
7672
J3 = 3*I1-4*J2 ;
7673
S1++;
7674
S2++;
7675
}
7676
}
7677
if ((3*I1+1)%4 == 0) {
7678
I3 = (3*I1+1)/4 ;
7679
J3 = I1-(I2)-(I3) ;
7680
S1++;
7681
J3 = -I1-2*(I2)+2*I3 ;
7682
S2++;
7683
}
7684
for (I3=3*I2+2;I3<=min(N1,floord(11*I2+2,3));I3++) {
7685
J3 = -I1-2*(I2)+2*I3 ;
7686
S2++;
7687
}
7688
}
7689
if (I1%4 == 0) {
7690
for (I3=2*I1/4;I3<=floord(6*I1/4-1,2);I3++) {
7691
J3 = I1-(I2)-(I3) ;
7692
S1++;
7693
}
7694
if (3*I1%4 == 0) {
7695
I3 = 3*I1/4 ;
7696
J1 = -2*I1+3*I3 ;
7697
if ((2*I1+J1)%3 == 0) {
7698
J2 = (2*I1+J1)/3 ;
7699
J3 = 3*I1-4*J2 ;
7700
S1++;
7701
S2++;
7702
}
7703
}
7704
for (I3=3*I1/4+1;I3<=min(N1,floord(11*I1/4,3));I3++) {
7705
J3 = -I1-2*(I2)+2*I3 ;
7706
S2++;
7707
}
7708
}
7709
for (I2=ceild(I1+1,4);I2<=floord(-I1+2*N1,2);I2++) {
7710
for (I3=max(max(1,ceild(I1-I2,2)),I1-2*I2);I3<=I1-I2;I3++) {
7711
J3 = I1-(I2)-(I3) ;
7712
S1++;
7713
}
7714
for (I3=max(I1-I2+1,ceild(I1+2*I2,2));I3<=min(N1,floord(2*I1+3*I2,3));I3++) {
7715
J3 = -I1-2*(I2)+2*I3 ;
7716
S2++;
7717
}
7718
}
7719
for (I2=ceild(-I1+2*N1+1,2);I2<=N1;I2++) {
7720
for (I3=max(max(ceild(I1-I2,2),I1-2*I2),1);I3<=min(I1-I2,N1);I3++) {
7721
J3 = I1-(I2)-(I3) ;
7722
S1++;
7723
}
7724
}
7725
}
7726
if (N1 == 16) {
7727
for (I3=ceild(20+2*1,2);I3<=min(N1,floord(2*20+3*1,3));I3++) {
7728
J3 = -(20)-2*(I2)+2*I3 ;
7729
S2++;
7730
}
7731
for (I3=ceild(20+2*2,2);I3<=min(20-2*(2)-1,floord(2*20+3*2,3));I3++) {
7732
J3 = -(20)-2*(I2)+2*I3 ;
7733
S2++;
7734
}
7735
for (I3=20-2*(2);I3<=min(N1,20-(2));I3++) {
7736
J3 = 20-(I2)-(I3) ;
7737
S1++;
7738
}
7739
for (I2=3;I2<=2;I2++) {
7740
for (I3=ceild(20+2*I2,2);I3<=20-2*I2-1;I3++) {
7741
J3 = -(20)-2*(I2)+2*I3 ;
7742
S2++;
7743
}
7744
for (I3=20-2*I2;I3<=floord(2*20+3*I2,3);I3++) {
7745
J3 = 20-(I2)-(I3) ;
7746
S1++;
7747
J3 = -(20)-2*(I2)+2*I3 ;
7748
S2++;
7749
}
7750
for (I3=ceild(2*20+3*I2+1,3);I3<=min(N1,20-I2);I3++) {
7751
J3 = 20-(I2)-(I3) ;
7752
S1++;
7753
}
7754
}
7755
for (I2=3;I2<=2;I2++) {
7756
for (I3=ceild(20+2*I2,2);I3<=20-2*I2-1;I3++) {
7757
J3 = -(20)-2*(I2)+2*I3 ;
7758
S2++;
7759
}
7760
for (I3=20-2*I2;I3<=N1;I3++) {
7761
J3 = 20-(I2)-(I3) ;
7762
S1++;
7763
J3 = -(20)-2*(I2)+2*I3 ;
7764
S2++;
7765
}
7766
}
7767
if (20%7 == 0) {
7768
for (I3=ceild(9*20/7,2);I3<=5*20/7-1;I3++) {
7769
J3 = -(20)-2*(I2)+2*I3 ;
7770
S2++;
7771
}
7772
if (5*20%7 == 0) {
7773
I3 = 5*20/7 ;
7774
J1 = -2*(20)+3*I3 ;
7775
if ((2*20+J1)%3 == 0) {
7776
J2 = (2*20+J1)/3 ;
7777
J3 = 3*20-4*J2 ;
7778
S1++;
7779
S2++;
7780
}
7781
}
7782
for (I3=ceild(15*20/7+1,3);I3<=N1;I3++) {
7783
J3 = 20-(I2)-(I3) ;
7784
S1++;
7785
J3 = -(20)-2*(I2)+2*I3 ;
7786
S2++;
7787
}
7788
}
7789
for (I3=ceild(20+2*3,2);I3<=20-2*(3)-1;I3++) {
7790
J3 = -(20)-2*(I2)+2*I3 ;
7791
S2++;
7792
}
7793
for (I3=20-2*(3);I3<=floord(2*20+3-1,3);I3++) {
7794
J3 = -(20)-2*(I2)+2*I3 ;
7795
S2++;
7796
J3 = 20-(I2)-(I3) ;
7797
S1++;
7798
}
7799
if ((2*20+3)%3 == 0) {
7800
I3 = (2*20+3)/3 ;
7801
J1 = -2*(20)+3*I3 ;
7802
if ((2*20+J1)%3 == 0) {
7803
J2 = (2*20+J1)/3 ;
7804
J3 = 3*20-4*J2 ;
7805
S1++;
7806
S2++;
7807
}
7808
}
7809
for (I3=ceild(2*20+3+1,3);I3<=N1;I3++) {
7810
J3 = 20-(I2)-(I3) ;
7811
S1++;
7812
J3 = -(20)-2*(I2)+2*I3 ;
7813
S2++;
7814
}
7815
if (10%3 == 0) {
7816
for (I3=4*10/3;I3<=floord(13*10/3-1,3);I3++) {
7817
J3 = -(20)-2*(I2)+2*I3 ;
7818
S2++;
7819
J3 = 20-(I2)-(I3) ;
7820
S1++;
7821
}
7822
if (13*20%18 == 0) {
7823
I3 = 13*20/18 ;
7824
J1 = -2*(20)+3*I3 ;
7825
if ((2*20+J1)%3 == 0) {
7826
J2 = (2*20+J1)/3 ;
7827
J3 = 3*20-4*J2 ;
7828
S1++;
7829
S2++;
7830
}
7831
}
7832
for (I3=ceild(13*10/3+1,3);I3<=min(N1,5*10/3);I3++) {
7833
J3 = 20-(I2)-(I3) ;
7834
S1++;
7835
J3 = -(20)-2*(I2)+2*I3 ;
7836
S2++;
7837
}
7838
}
7839
for (I3=20-2*(4);I3<=floord(20+2*4-1,2);I3++) {
7840
J3 = 20-(I2)-(I3) ;
7841
S1++;
7842
}
7843
for (I3=ceild(20+2*4,2);I3<=floord(2*20+4-1,3);I3++) {
7844
J3 = -(20)-2*(I2)+2*I3 ;
7845
S2++;
7846
J3 = 20-(I2)-(I3) ;
7847
S1++;
7848
}
7849
if ((2*20+4)%3 == 0) {
7850
I3 = (2*20+4)/3 ;
7851
J1 = -2*(20)+3*I3 ;
7852
if ((2*20+J1)%3 == 0) {
7853
J2 = (2*20+J1)/3 ;
7854
J3 = 3*20-4*J2 ;
7855
S1++;
7856
S2++;
7857
}
7858
}
7859
for (I3=ceild(2*20+4+1,3);I3<=N1;I3++) {
7860
J3 = 20-(I2)-(I3) ;
7861
S1++;
7862
J3 = -(20)-2*(I2)+2*I3 ;
7863
S2++;
7864
}
7865
for (I3=2*5;I3<=floord(6*5-1,2);I3++) {
7866
J3 = 20-(I2)-(I3) ;
7867
S1++;
7868
}
7869
if (3*20%4 == 0) {
7870
I3 = 3*20/4 ;
7871
J1 = -2*(20)+3*I3 ;
7872
if ((2*20+J1)%3 == 0) {
7873
J2 = (2*20+J1)/3 ;
7874
J3 = 3*20-4*J2 ;
7875
S1++;
7876
S2++;
7877
}
7878
}
7879
for (I3=3*5+1;I3<=min(N1,floord(11*5,3));I3++) {
7880
J3 = -(20)-2*(I2)+2*I3 ;
7881
S2++;
7882
}
7883
for (I3=max(max(1,ceild(20-(6),2)),20-2*(6));I3<=20-(6);I3++) {
7884
J3 = 20-(I2)-(I3) ;
7885
S1++;
7886
}
7887
for (I3=max(20-(6)+1,ceild(20+2*6,2));I3<=min(N1,floord(2*20+3*6,3));I3++) {
7888
J3 = -(20)-2*(I2)+2*I3 ;
7889
S2++;
7890
}
7891
for (I2=7;I2<=16;I2++) {
7892
for (I3=max(max(ceild(20-I2,2),20-2*I2),1);I3<=min(20-I2,N1);I3++) {
7893
J3 = 20-(I2)-(I3) ;
7894
S1++;
7895
}
7896
}
7897
}
7898
if (N1 == 12) {
7899
for (I3=ceild(15+2*1,2);I3<=min(N1,floord(2*15+3*1,3));I3++) {
7900
J3 = -(15)-2*(I2)+2*I3 ;
7901
S2++;
7902
}
7903
for (I2=2;I2<=1;I2++) {
7904
for (I3=ceild(15+2*I2,2);I3<=min(15-2*I2-1,floord(2*15+3*I2,3));I3++) {
7905
J3 = -(15)-2*(I2)+2*I3 ;
7906
S2++;
7907
}
7908
for (I3=15-2*I2;I3<=min(N1,15-I2);I3++) {
7909
J3 = 15-(I2)-(I3) ;
7910
S1++;
7911
}
7912
}
7913
if (5%3 == 0) {
7914
for (I3=ceild(15+2*5/3,2);I3<=15-2*(5/3)-1;I3++) {
7915
J3 = -(15)-2*(I2)+2*I3 ;
7916
S2++;
7917
}
7918
for (I3=15-2*(5/3);I3<=floord(2*15+3*5/3,3);I3++) {
7919
J3 = 15-(I2)-(I3) ;
7920
S1++;
7921
J3 = -(15)-2*(I2)+2*I3 ;
7922
S2++;
7923
}
7924
for (I3=ceild(2*15+3*5/3+1,3);I3<=min(N1,15-(5/3));I3++) {
7925
J3 = 15-(I2)-(I3) ;
7926
S1++;
7927
}
7928
}
7929
for (I3=ceild(15+2*2,2);I3<=15-2*(2)-1;I3++) {
7930
J3 = -(15)-2*(I2)+2*I3 ;
7931
S2++;
7932
}
7933
for (I3=15-2*(2);I3<=N1;I3++) {
7934
J3 = 15-(I2)-(I3) ;
7935
S1++;
7936
J3 = -(15)-2*(I2)+2*I3 ;
7937
S2++;
7938
}
7939
if (15%7 == 0) {
7940
for (I3=ceild(9*15/7,2);I3<=5*15/7-1;I3++) {
7941
J3 = -(15)-2*(I2)+2*I3 ;
7942
S2++;
7943
}
7944
if (5*15%7 == 0) {
7945
I3 = 5*15/7 ;
7946
J1 = -2*(15)+3*I3 ;
7947
if ((2*15+J1)%3 == 0) {
7948
J2 = (2*15+J1)/3 ;
7949
J3 = 3*15-4*J2 ;
7950
S1++;
7951
S2++;
7952
}
7953
}
7954
for (I3=ceild(15*15/7+1,3);I3<=N1;I3++) {
7955
J3 = 15-(I2)-(I3) ;
7956
S1++;
7957
J3 = -(15)-2*(I2)+2*I3 ;
7958
S2++;
7959
}
7960
}
7961
if (5%2 == 0) {
7962
for (I3=4*5/2;I3<=floord(13*5/2-1,3);I3++) {
7963
J3 = -(15)-2*(I2)+2*I3 ;
7964
S2++;
7965
J3 = 15-(I2)-(I3) ;
7966
S1++;
7967
}
7968
if (13*15%18 == 0) {
7969
I3 = 13*15/18 ;
7970
J1 = -2*(15)+3*I3 ;
7971
if ((2*15+J1)%3 == 0) {
7972
J2 = (2*15+J1)/3 ;
7973
J3 = 3*15-4*J2 ;
7974
S1++;
7975
S2++;
7976
}
7977
}
7978
for (I3=ceild(13*5/2+1,3);I3<=min(N1,5*5/2);I3++) {
7979
J3 = 15-(I2)-(I3) ;
7980
S1++;
7981
J3 = -(15)-2*(I2)+2*I3 ;
7982
S2++;
7983
}
7984
}
7985
for (I3=15-2*(3);I3<=floord(15+2*3-1,2);I3++) {
7986
J3 = 15-(I2)-(I3) ;
7987
S1++;
7988
}
7989
for (I3=ceild(15+2*3,2);I3<=floord(2*15+3-1,3);I3++) {
7990
J3 = -(15)-2*(I2)+2*I3 ;
7991
S2++;
7992
J3 = 15-(I2)-(I3) ;
7993
S1++;
7994
}
7995
if ((2*15+3)%3 == 0) {
7996
I3 = (2*15+3)/3 ;
7997
J1 = -2*(15)+3*I3 ;
7998
if ((2*15+J1)%3 == 0) {
7999
J2 = (2*15+J1)/3 ;
8000
J3 = 3*15-4*J2 ;
8001
S1++;
8002
S2++;
8003
}
8004
}
8005
for (I3=ceild(2*15+3+1,3);I3<=N1;I3++) {
8006
J3 = 15-(I2)-(I3) ;
8007
S1++;
8008
J3 = -(15)-2*(I2)+2*I3 ;
8009
S2++;
8010
}
8011
for (I3=max(max(1,ceild(15-(4),2)),15-2*(4));I3<=15-(4);I3++) {
8012
J3 = 15-(I2)-(I3) ;
8013
S1++;
8014
}
8015
for (I3=max(15-(4)+1,ceild(15+2*4,2));I3<=min(N1,floord(2*15+3*4,3));I3++) {
8016
J3 = -(15)-2*(I2)+2*I3 ;
8017
S2++;
8018
}
8019
for (I2=5;I2<=12;I2++) {
8020
for (I3=max(max(ceild(15-I2,2),15-2*I2),1);I3<=min(15-I2,N1);I3++) {
8021
J3 = 15-(I2)-(I3) ;
8022
S1++;
8023
}
8024
}
8025
}
8026
if ((N1 <= 15) && (N1 >= 14)) {
8027
if ((4*N1-5)%3 == 0) {
8028
I1 = (4*N1-5)/3 ;
8029
for (I2=1;I2<=floord(N1-8,6);I2++) {
8030
for (I3=ceild(I1+2*I2,2);I3<=min(N1,floord(2*I1+3*I2,3));I3++) {
8031
J3 = -I1-2*(I2)+2*I3 ;
8032
S2++;
8033
}
8034
}
8035
for (I2=ceild(N1-5,6);I2<=floord(4*N1-8,27);I2++) {
8036
for (I3=ceild(I1+2*I2,2);I3<=min(I1-2*I2-1,floord(2*I1+3*I2,3));I3++) {
8037
J3 = -I1-2*(I2)+2*I3 ;
8038
S2++;
8039
}
8040
for (I3=I1-2*I2;I3<=min(N1,I1-I2);I3++) {
8041
J3 = I1-(I2)-(I3) ;
8042
S1++;
8043
}
8044
}
8045
for (I2=ceild(4*N1-5,27);I2<=min(floord(4*N1-8,21),floord(N1+7,9));I2++) {
8046
for (I3=ceild(I1+2*I2,2);I3<=I1-2*I2-1;I3++) {
8047
J3 = -I1-2*(I2)+2*I3 ;
8048
S2++;
8049
}
8050
for (I3=I1-2*I2;I3<=floord(2*I1+3*I2,3);I3++) {
8051
J3 = I1-(I2)-(I3) ;
8052
S1++;
8053
J3 = -I1-2*(I2)+2*I3 ;
8054
S2++;
8055
}
8056
for (I3=ceild(2*I1+3*I2+1,3);I3<=min(N1,I1-I2);I3++) {
8057
J3 = I1-(I2)-(I3) ;
8058
S1++;
8059
}
8060
}
8061
if ((4*N1-5)%18 == 0) {
8062
I2 = (4*N1-5)/18 ;
8063
for (I3=4*I2;I3<=floord(13*I2-1,3);I3++) {
8064
J3 = -I1-2*(I2)+2*I3 ;
8065
S2++;
8066
J3 = I1-(I2)-(I3) ;
8067
S1++;
8068
}
8069
if (13*I1%18 == 0) {
8070
I3 = 13*I1/18 ;
8071
J1 = -2*I1+3*I3 ;
8072
if ((2*I1+J1)%3 == 0) {
8073
J2 = (2*I1+J1)/3 ;
8074
J3 = 3*I1-4*J2 ;
8075
S1++;
8076
S2++;
8077
}
8078
}
8079
for (I3=ceild(13*I2+1,3);I3<=min(N1,5*I2);I3++) {
8080
J3 = I1-(I2)-(I3) ;
8081
S1++;
8082
J3 = -I1-2*(I2)+2*I3 ;
8083
S2++;
8084
}
8085
}
8086
for (I2=ceild(2*N1-1,9);I2<=floord(N1-5,3);I2++) {
8087
for (I3=I1-2*I2;I3<=floord(I1+2*I2-1,2);I3++) {
8088
J3 = I1-(I2)-(I3) ;
8089
S1++;
8090
}
8091
for (I3=ceild(I1+2*I2,2);I3<=floord(2*I1+I2-1,3);I3++) {
8092
J3 = -I1-2*(I2)+2*I3 ;
8093
S2++;
8094
J3 = I1-(I2)-(I3) ;
8095
S1++;
8096
}
8097
if ((2*I1+I2)%3 == 0) {
8098
I3 = (2*I1+I2)/3 ;
8099
J1 = -2*I1+3*I3 ;
8100
if ((2*I1+J1)%3 == 0) {
8101
J2 = (2*I1+J1)/3 ;
8102
J3 = 3*I1-4*J2 ;
8103
S1++;
8104
S2++;
8105
}
8106
}
8107
for (I3=ceild(2*I1+I2+1,3);I3<=N1;I3++) {
8108
J3 = I1-(I2)-(I3) ;
8109
S1++;
8110
J3 = -I1-2*(I2)+2*I3 ;
8111
S2++;
8112
}
8113
}
8114
if ((N1-2)%3 == 0) {
8115
I2 = (N1-2)/3 ;
8116
for (I3=2*I2+1;I3<=3*I2;I3++) {
8117
J3 = I1-(I2)-(I3) ;
8118
S1++;
8119
}
8120
if ((9*I1-1)%12 == 0) {
8121
I3 = (9*I1-1)/12 ;
8122
J1 = -2*I1+3*I3 ;
8123
if ((2*I1+J1)%3 == 0) {
8124
J2 = (2*I1+J1)/3 ;
8125
J3 = 3*I1-4*J2 ;
8126
S1++;
8127
S2++;
8128
}
8129
}
8130
if ((3*I1+1)%4 == 0) {
8131
I3 = (3*I1+1)/4 ;
8132
J3 = I1-(I2)-(I3) ;
8133
S1++;
8134
J3 = -I1-2*(I2)+2*I3 ;
8135
S2++;
8136
}
8137
for (I3=3*I2+2;I3<=min(N1,floord(11*I2+2,3));I3++) {
8138
J3 = -I1-2*(I2)+2*I3 ;
8139
S2++;
8140
}
8141
}
8142
if ((4*N1-5)%12 == 0) {
8143
I2 = (4*N1-5)/12 ;
8144
for (I3=2*I2;I3<=floord(6*I2-1,2);I3++) {
8145
J3 = I1-(I2)-(I3) ;
8146
S1++;
8147
}
8148
if (3*I1%4 == 0) {
8149
I3 = 3*I1/4 ;
8150
J1 = -2*I1+3*I3 ;
8151
if ((2*I1+J1)%3 == 0) {
8152
J2 = (2*I1+J1)/3 ;
8153
J3 = 3*I1-4*J2 ;
8154
S1++;
8155
S2++;
8156
}
8157
}
8158
for (I3=3*I2+1;I3<=min(N1,floord(11*I2,3));I3++) {
8159
J3 = -I1-2*(I2)+2*I3 ;
8160
S2++;
8161
}
8162
}
8163
for (I2=ceild(2*N1-1,6);I2<=floord(2*N1+5,6);I2++) {
8164
for (I3=max(max(1,ceild(I1-I2,2)),I1-2*I2);I3<=I1-I2;I3++) {
8165
J3 = I1-(I2)-(I3) ;
8166
S1++;
8167
}
8168
for (I3=max(I1-I2+1,ceild(I1+2*I2,2));I3<=min(N1,floord(2*I1+3*I2,3));I3++) {
8169
J3 = -I1-2*(I2)+2*I3 ;
8170
S2++;
8171
}
8172
}
8173
for (I2=ceild(N1+4,3);I2<=N1;I2++) {
8174
for (I3=max(max(ceild(I1-I2,2),I1-2*I2),1);I3<=min(I1-I2,N1);I3++) {
8175
J3 = I1-(I2)-(I3) ;
8176
S1++;
8177
}
8178
}
8179
}
8180
}
8181
if (N1 == 13) {
8182
for (I3=ceild(16+2*1,2);I3<=min(N1,floord(2*16+3*1,3));I3++) {
8183
J3 = -(16)-2*(I2)+2*I3 ;
8184
S2++;
8185
}
8186
for (I2=2;I2<=1;I2++) {
8187
for (I3=ceild(16+2*I2,2);I3<=min(16-2*I2-1,floord(2*16+3*I2,3));I3++) {
8188
J3 = -(16)-2*(I2)+2*I3 ;
8189
S2++;
8190
}
8191
for (I3=16-2*I2;I3<=min(N1,16-I2);I3++) {
8192
J3 = 16-(I2)-(I3) ;
8193
S1++;
8194
}
8195
}
8196
for (I3=ceild(16+2*2,2);I3<=16-2*(2)-1;I3++) {
8197
J3 = -(16)-2*(I2)+2*I3 ;
8198
S2++;
8199
}
8200
for (I3=16-2*(2);I3<=floord(2*16+3*2,3);I3++) {
8201
J3 = 16-(I2)-(I3) ;
8202
S1++;
8203
J3 = -(16)-2*(I2)+2*I3 ;
8204
S2++;
8205
}
8206
for (I3=ceild(2*16+3*2+1,3);I3<=min(N1,16-(2));I3++) {
8207
J3 = 16-(I2)-(I3) ;
8208
S1++;
8209
}
8210
if (8%3 == 0) {
8211
for (I3=4*8/3;I3<=floord(13*8/3-1,3);I3++) {
8212
J3 = -(16)-2*(I2)+2*I3 ;
8213
S2++;
8214
J3 = 16-(I2)-(I3) ;
8215
S1++;
8216
}
8217
if (13*16%18 == 0) {
8218
I3 = 13*16/18 ;
8219
J1 = -2*(16)+3*I3 ;
8220
if ((2*16+J1)%3 == 0) {
8221
J2 = (2*16+J1)/3 ;
8222
J3 = 3*16-4*J2 ;
8223
S1++;
8224
S2++;
8225
}
8226
}
8227
for (I3=ceild(13*8/3+1,3);I3<=min(N1,5*8/3);I3++) {
8228
J3 = 16-(I2)-(I3) ;
8229
S1++;
8230
J3 = -(16)-2*(I2)+2*I3 ;
8231
S2++;
8232
}
8233
}
8234
for (I3=16-2*(3);I3<=floord(16+2*3-1,2);I3++) {
8235
J3 = 16-(I2)-(I3) ;
8236
S1++;
8237
}
8238
for (I3=ceild(16+2*3,2);I3<=floord(2*16+3-1,3);I3++) {
8239
J3 = -(16)-2*(I2)+2*I3 ;
8240
S2++;
8241
J3 = 16-(I2)-(I3) ;
8242
S1++;
8243
}
8244
if ((2*16+3)%3 == 0) {
8245
I3 = (2*16+3)/3 ;
8246
J1 = -2*(16)+3*I3 ;
8247
if ((2*16+J1)%3 == 0) {
8248
J2 = (2*16+J1)/3 ;
8249
J3 = 3*16-4*J2 ;
8250
S1++;
8251
S2++;
8252
}
8253
}
8254
for (I3=ceild(2*16+3+1,3);I3<=N1;I3++) {
8255
J3 = 16-(I2)-(I3) ;
8256
S1++;
8257
J3 = -(16)-2*(I2)+2*I3 ;
8258
S2++;
8259
}
8260
for (I3=2*4;I3<=floord(6*4-1,2);I3++) {
8261
J3 = 16-(I2)-(I3) ;
8262
S1++;
8263
}
8264
if (3*16%4 == 0) {
8265
I3 = 3*16/4 ;
8266
J1 = -2*(16)+3*I3 ;
8267
if ((2*16+J1)%3 == 0) {
8268
J2 = (2*16+J1)/3 ;
8269
J3 = 3*16-4*J2 ;
8270
S1++;
8271
S2++;
8272
}
8273
}
8274
for (I3=3*4+1;I3<=min(N1,floord(11*4,3));I3++) {
8275
J3 = -(16)-2*(I2)+2*I3 ;
8276
S2++;
8277
}
8278
for (I3=max(max(1,ceild(16-(5),2)),16-2*(5));I3<=16-(5);I3++) {
8279
J3 = 16-(I2)-(I3) ;
8280
S1++;
8281
}
8282
for (I3=max(16-(5)+1,ceild(16+2*5,2));I3<=min(N1,floord(2*16+3*5,3));I3++) {
8283
J3 = -(16)-2*(I2)+2*I3 ;
8284
S2++;
8285
}
8286
for (I2=6;I2<=13;I2++) {
8287
for (I3=max(max(ceild(16-I2,2),16-2*I2),1);I3<=min(16-I2,N1);I3++) {
8288
J3 = 16-(I2)-(I3) ;
8289
S1++;
8290
}
8291
}
8292
}
8293
for (I1=max(max(N1+3,20),ceild(6*N1-3,5));I1<=floord(6*N1-1,5);I1++) {
8294
for (I2=1;I2<=floord(I1-N1-1,2);I2++) {
8295
for (I3=ceild(I1+2*I2,2);I3<=min(N1,floord(2*I1+3*I2,3));I3++) {
8296
J3 = -I1-2*(I2)+2*I3 ;
8297
S2++;
8298
}
8299
}
8300
for (I2=ceild(I1-N1,2);I2<=floord(I1-1,9);I2++) {
8301
for (I3=ceild(I1+2*I2,2);I3<=min(I1-2*I2-1,floord(2*I1+3*I2,3));I3++) {
8302
J3 = -I1-2*(I2)+2*I3 ;
8303
S2++;
8304
}
8305
for (I3=I1-2*I2;I3<=min(N1,I1-I2);I3++) {
8306
J3 = I1-(I2)-(I3) ;
8307
S1++;
8308
}
8309
}
8310
for (I2=ceild(I1,9);I2<=floord(I1-1,7);I2++) {
8311
for (I3=ceild(I1+2*I2,2);I3<=I1-2*I2-1;I3++) {
8312
J3 = -I1-2*(I2)+2*I3 ;
8313
S2++;
8314
}
8315
for (I3=I1-2*I2;I3<=floord(2*I1+3*I2,3);I3++) {
8316
J3 = I1-(I2)-(I3) ;
8317
S1++;
8318
J3 = -I1-2*(I2)+2*I3 ;
8319
S2++;
8320
}
8321
for (I3=ceild(2*I1+3*I2+1,3);I3<=min(N1,I1-I2);I3++) {
8322
J3 = I1-(I2)-(I3) ;
8323
S1++;
8324
}
8325
}
8326
if (I1%7 == 0) {
8327
for (I3=ceild(9*I1/7,2);I3<=5*I1/7-1;I3++) {
8328
J3 = -I1-2*(I2)+2*I3 ;
8329
S2++;
8330
}
8331
if (5*I1%7 == 0) {
8332
I3 = 5*I1/7 ;
8333
J1 = -2*I1+3*I3 ;
8334
if ((2*I1+J1)%3 == 0) {
8335
J2 = (2*I1+J1)/3 ;
8336
J3 = 3*I1-4*J2 ;
8337
S1++;
8338
S2++;
8339
}
8340
}
8341
for (I3=ceild(15*I1/7+1,3);I3<=floord(17*I1/7,3);I3++) {
8342
J3 = I1-(I2)-(I3) ;
8343
S1++;
8344
J3 = -I1-2*(I2)+2*I3 ;
8345
S2++;
8346
}
8347
for (I3=ceild(17*I1/7+1,3);I3<=min(N1,6*I1/7);I3++) {
8348
J3 = I1-(I2)-(I3) ;
8349
S1++;
8350
}
8351
}
8352
for (I2=ceild(I1+1,7);I2<=floord(I1-2,6);I2++) {
8353
for (I3=ceild(I1+2*I2,2);I3<=I1-2*I2-1;I3++) {
8354
J3 = -I1-2*(I2)+2*I3 ;
8355
S2++;
8356
}
8357
for (I3=I1-2*I2;I3<=floord(2*I1+I2-1,3);I3++) {
8358
J3 = -I1-2*(I2)+2*I3 ;
8359
S2++;
8360
J3 = I1-(I2)-(I3) ;
8361
S1++;
8362
}
8363
if ((2*I1+I2)%3 == 0) {
8364
I3 = (2*I1+I2)/3 ;
8365
J1 = -2*I1+3*I3 ;
8366
if ((2*I1+J1)%3 == 0) {
8367
J2 = (2*I1+J1)/3 ;
8368
J3 = 3*I1-4*J2 ;
8369
S1++;
8370
S2++;
8371
}
8372
}
8373
for (I3=ceild(2*I1+I2+1,3);I3<=floord(2*I1+3*I2,3);I3++) {
8374
J3 = I1-(I2)-(I3) ;
8375
S1++;
8376
J3 = -I1-2*(I2)+2*I3 ;
8377
S2++;
8378
}
8379
for (I3=ceild(2*I1+3*I2+1,3);I3<=min(N1,I1-I2);I3++) {
8380
J3 = I1-(I2)-(I3) ;
8381
S1++;
8382
}
8383
}
8384
if ((I1-1)%6 == 0) {
8385
I2 = (I1-1)/6 ;
8386
for (I3=4*I2+1;I3<=floord(13*I2+1,3);I3++) {
8387
J3 = -I1-2*(I2)+2*I3 ;
8388
S2++;
8389
J3 = I1-(I2)-(I3) ;
8390
S1++;
8391
}
8392
if ((13*I1-1)%18 == 0) {
8393
I3 = (13*I1-1)/18 ;
8394
J1 = -2*I1+3*I3 ;
8395
if ((2*I1+J1)%3 == 0) {
8396
J2 = (2*I1+J1)/3 ;
8397
J3 = 3*I1-4*J2 ;
8398
S1++;
8399
S2++;
8400
}
8401
}
8402
for (I3=ceild(13*I2+3,3);I3<=floord(15*I2+2,3);I3++) {
8403
J3 = I1-(I2)-(I3) ;
8404
S1++;
8405
J3 = -I1-2*(I2)+2*I3 ;
8406
S2++;
8407
}
8408
if ((5*I1+1)%6 == 0) {
8409
I3 = (5*I1+1)/6 ;
8410
J3 = I1-(I2)-(I3) ;
8411
S1++;
8412
}
8413
}
8414
if (I1%6 == 0) {
8415
for (I3=4*I1/6;I3<=floord(13*I1/6-1,3);I3++) {
8416
J3 = -I1-2*(I2)+2*I3 ;
8417
S2++;
8418
J3 = I1-(I2)-(I3) ;
8419
S1++;
8420
}
8421
if (13*I1%18 == 0) {
8422
I3 = 13*I1/18 ;
8423
J1 = -2*I1+3*I3 ;
8424
if ((2*I1+J1)%3 == 0) {
8425
J2 = (2*I1+J1)/3 ;
8426
J3 = 3*I1-4*J2 ;
8427
S1++;
8428
S2++;
8429
}
8430
}
8431
for (I3=ceild(13*I1/6+1,3);I3<=min(N1,5*I1/6);I3++) {
8432
J3 = I1-(I2)-(I3) ;
8433
S1++;
8434
J3 = -I1-2*(I2)+2*I3 ;
8435
S2++;
8436
}
8437
}
8438
for (I2=I1-N1+1;I2<=floord(I1-2,4);I2++) {
8439
for (I3=I1-2*I2;I3<=floord(I1+2*I2-1,2);I3++) {
8440
J3 = I1-(I2)-(I3) ;
8441
S1++;
8442
}
8443
for (I3=ceild(I1+2*I2,2);I3<=floord(2*I1+I2-1,3);I3++) {
8444
J3 = -I1-2*(I2)+2*I3 ;
8445
S2++;
8446
J3 = I1-(I2)-(I3) ;
8447
S1++;
8448
}
8449
if ((2*I1+I2)%3 == 0) {
8450
I3 = (2*I1+I2)/3 ;
8451
J1 = -2*I1+3*I3 ;
8452
if ((2*I1+J1)%3 == 0) {
8453
J2 = (2*I1+J1)/3 ;
8454
J3 = 3*I1-4*J2 ;
8455
S1++;
8456
S2++;
8457
}
8458
}
8459
for (I3=ceild(2*I1+I2+1,3);I3<=I1-I2;I3++) {
8460
J3 = I1-(I2)-(I3) ;
8461
S1++;
8462
J3 = -I1-2*(I2)+2*I3 ;
8463
S2++;
8464
}
8465
for (I3=I1-I2+1;I3<=min(N1,floord(2*I1+3*I2,3));I3++) {
8466
J3 = -I1-2*(I2)+2*I3 ;
8467
S2++;
8468
}
8469
}
8470
if ((I1-1)%4 == 0) {
8471
I2 = (I1-1)/4 ;
8472
for (I3=2*I2+1;I3<=3*I2;I3++) {
8473
J3 = I1-(I2)-(I3) ;
8474
S1++;
8475
}
8476
if ((9*I1-1)%12 == 0) {
8477
I3 = (9*I1-1)/12 ;
8478
J1 = -2*I1+3*I3 ;
8479
if ((2*I1+J1)%3 == 0) {
8480
J2 = (2*I1+J1)/3 ;
8481
J3 = 3*I1-4*J2 ;
8482
S1++;
8483
S2++;
8484
}
8485
}
8486
if ((3*I1+1)%4 == 0) {
8487
I3 = (3*I1+1)/4 ;
8488
J3 = I1-(I2)-(I3) ;
8489
S1++;
8490
J3 = -I1-2*(I2)+2*I3 ;
8491
S2++;
8492
}
8493
for (I3=3*I2+2;I3<=min(N1,floord(11*I2+2,3));I3++) {
8494
J3 = -I1-2*(I2)+2*I3 ;
8495
S2++;
8496
}
8497
}
8498
if (I1%4 == 0) {
8499
for (I3=2*I1/4;I3<=floord(6*I1/4-1,2);I3++) {
8500
J3 = I1-(I2)-(I3) ;
8501
S1++;
8502
}
8503
if (3*I1%4 == 0) {
8504
I3 = 3*I1/4 ;
8505
J1 = -2*I1+3*I3 ;
8506
if ((2*I1+J1)%3 == 0) {
8507
J2 = (2*I1+J1)/3 ;
8508
J3 = 3*I1-4*J2 ;
8509
S1++;
8510
S2++;
8511
}
8512
}
8513
for (I3=3*I1/4+1;I3<=min(N1,floord(11*I1/4,3));I3++) {
8514
J3 = -I1-2*(I2)+2*I3 ;
8515
S2++;
8516
}
8517
}
8518
for (I2=ceild(I1+1,4);I2<=floord(-I1+2*N1,2);I2++) {
8519
for (I3=max(max(1,ceild(I1-I2,2)),I1-2*I2);I3<=I1-I2;I3++) {
8520
J3 = I1-(I2)-(I3) ;
8521
S1++;
8522
}
8523
for (I3=max(I1-I2+1,ceild(I1+2*I2,2));I3<=min(N1,floord(2*I1+3*I2,3));I3++) {
8524
J3 = -I1-2*(I2)+2*I3 ;
8525
S2++;
8526
}
8527
}
8528
for (I2=ceild(-I1+2*N1+1,2);I2<=N1;I2++) {
8529
for (I3=max(max(ceild(I1-I2,2),I1-2*I2),1);I3<=min(I1-I2,N1);I3++) {
8530
J3 = I1-(I2)-(I3) ;
8531
S1++;
8532
}
8533
}
8534
}
8535
if ((N1 <= 14) && (N1 >= 14)) {
8536
if ((4*N1-4)%3 == 0) {
8537
I1 = (4*N1-4)/3 ;
8538
for (I2=1;I2<=floord(N1-7,6);I2++) {
8539
for (I3=ceild(I1+2*I2,2);I3<=min(N1,floord(2*I1+3*I2,3));I3++) {
8540
J3 = -I1-2*(I2)+2*I3 ;
8541
S2++;
8542
}
8543
}
8544
for (I2=ceild(N1-4,6);I2<=floord(4*N1-7,27);I2++) {
8545
for (I3=ceild(I1+2*I2,2);I3<=min(I1-2*I2-1,floord(2*I1+3*I2,3));I3++) {
8546
J3 = -I1-2*(I2)+2*I3 ;
8547
S2++;
8548
}
8549
for (I3=I1-2*I2;I3<=min(N1,I1-I2);I3++) {
8550
J3 = I1-(I2)-(I3) ;
8551
S1++;
8552
}
8553
}
8554
for (I2=ceild(4*N1-4,27);I2<=floord(N1+5,9);I2++) {
8555
for (I3=ceild(I1+2*I2,2);I3<=I1-2*I2-1;I3++) {
8556
J3 = -I1-2*(I2)+2*I3 ;
8557
S2++;
8558
}
8559
for (I3=I1-2*I2;I3<=floord(2*I1+3*I2,3);I3++) {
8560
J3 = I1-(I2)-(I3) ;
8561
S1++;
8562
J3 = -I1-2*(I2)+2*I3 ;
8563
S2++;
8564
}
8565
for (I3=ceild(2*I1+3*I2+1,3);I3<=min(N1,I1-I2);I3++) {
8566
J3 = I1-(I2)-(I3) ;
8567
S1++;
8568
}
8569
}
8570
if ((4*N1-4)%21 == 0) {
8571
I2 = (4*N1-4)/21 ;
8572
for (I3=ceild(9*I2,2);I3<=5*I2-1;I3++) {
8573
J3 = -I1-2*(I2)+2*I3 ;
8574
S2++;
8575
}
8576
if (5*I1%7 == 0) {
8577
I3 = 5*I1/7 ;
8578
J1 = -2*I1+3*I3 ;
8579
if ((2*I1+J1)%3 == 0) {
8580
J2 = (2*I1+J1)/3 ;
8581
J3 = 3*I1-4*J2 ;
8582
S1++;
8583
S2++;
8584
}
8585
}
8586
for (I3=ceild(15*I2+1,3);I3<=N1;I3++) {
8587
J3 = I1-(I2)-(I3) ;
8588
S1++;
8589
J3 = -I1-2*(I2)+2*I3 ;
8590
S2++;
8591
}
8592
}
8593
if ((2*N1-2)%9 == 0) {
8594
I2 = (2*N1-2)/9 ;
8595
for (I3=4*I2;I3<=floord(13*I2-1,3);I3++) {
8596
J3 = -I1-2*(I2)+2*I3 ;
8597
S2++;
8598
J3 = I1-(I2)-(I3) ;
8599
S1++;
8600
}
8601
if (13*I1%18 == 0) {
8602
I3 = 13*I1/18 ;
8603
J1 = -2*I1+3*I3 ;
8604
if ((2*I1+J1)%3 == 0) {
8605
J2 = (2*I1+J1)/3 ;
8606
J3 = 3*I1-4*J2 ;
8607
S1++;
8608
S2++;
8609
}
8610
}
8611
for (I3=ceild(13*I2+1,3);I3<=min(N1,5*I2);I3++) {
8612
J3 = I1-(I2)-(I3) ;
8613
S1++;
8614
J3 = -I1-2*(I2)+2*I3 ;
8615
S2++;
8616
}
8617
}
8618
for (I2=ceild(4*N1-1,18);I2<=floord(N1-4,3);I2++) {
8619
for (I3=I1-2*I2;I3<=floord(I1+2*I2-1,2);I3++) {
8620
J3 = I1-(I2)-(I3) ;
8621
S1++;
8622
}
8623
for (I3=ceild(I1+2*I2,2);I3<=floord(2*I1+I2-1,3);I3++) {
8624
J3 = -I1-2*(I2)+2*I3 ;
8625
S2++;
8626
J3 = I1-(I2)-(I3) ;
8627
S1++;
8628
}
8629
if ((2*I1+I2)%3 == 0) {
8630
I3 = (2*I1+I2)/3 ;
8631
J1 = -2*I1+3*I3 ;
8632
if ((2*I1+J1)%3 == 0) {
8633
J2 = (2*I1+J1)/3 ;
8634
J3 = 3*I1-4*J2 ;
8635
S1++;
8636
S2++;
8637
}
8638
}
8639
for (I3=ceild(2*I1+I2+1,3);I3<=N1;I3++) {
8640
J3 = I1-(I2)-(I3) ;
8641
S1++;
8642
J3 = -I1-2*(I2)+2*I3 ;
8643
S2++;
8644
}
8645
}
8646
if ((N1-1)%3 == 0) {
8647
I2 = (N1-1)/3 ;
8648
for (I3=2*I2;I3<=floord(6*I2-1,2);I3++) {
8649
J3 = I1-(I2)-(I3) ;
8650
S1++;
8651
}
8652
if (3*I1%4 == 0) {
8653
I3 = 3*I1/4 ;
8654
J1 = -2*I1+3*I3 ;
8655
if ((2*I1+J1)%3 == 0) {
8656
J2 = (2*I1+J1)/3 ;
8657
J3 = 3*I1-4*J2 ;
8658
S1++;
8659
S2++;
8660
}
8661
}
8662
for (I3=3*I2+1;I3<=min(N1,floord(11*I2,3));I3++) {
8663
J3 = -I1-2*(I2)+2*I3 ;
8664
S2++;
8665
}
8666
}
8667
for (I2=ceild(4*N1-1,12);I2<=floord(N1+2,3);I2++) {
8668
for (I3=max(max(1,ceild(I1-I2,2)),I1-2*I2);I3<=I1-I2;I3++) {
8669
J3 = I1-(I2)-(I3) ;
8670
S1++;
8671
}
8672
for (I3=max(I1-I2+1,ceild(I1+2*I2,2));I3<=min(N1,floord(2*I1+3*I2,3));I3++) {
8673
J3 = -I1-2*(I2)+2*I3 ;
8674
S2++;
8675
}
8676
}
8677
for (I2=ceild(2*N1+7,6);I2<=N1;I2++) {
8678
for (I3=max(max(ceild(I1-I2,2),I1-2*I2),1);I3<=min(I1-I2,N1);I3++) {
8679
J3 = I1-(I2)-(I3) ;
8680
S1++;
8681
}
8682
}
8683
}
8684
}
8685
if (N1 == 15) {
8686
for (I3=ceild(19+2*1,2);I3<=min(N1,floord(2*19+3*1,3));I3++) {
8687
J3 = -(19)-2*(I2)+2*I3 ;
8688
S2++;
8689
}
8690
for (I3=ceild(19+2*2,2);I3<=min(19-2*(2)-1,floord(2*19+3*2,3));I3++) {
8691
J3 = -(19)-2*(I2)+2*I3 ;
8692
S2++;
8693
}
8694
for (I3=19-2*(2);I3<=min(N1,19-(2));I3++) {
8695
J3 = 19-(I2)-(I3) ;
8696
S1++;
8697
}
8698
for (I2=3;I2<=2;I2++) {
8699
for (I3=ceild(19+2*I2,2);I3<=19-2*I2-1;I3++) {
8700
J3 = -(19)-2*(I2)+2*I3 ;
8701
S2++;
8702
}
8703
for (I3=19-2*I2;I3<=N1;I3++) {
8704
J3 = 19-(I2)-(I3) ;
8705
S1++;
8706
J3 = -(19)-2*(I2)+2*I3 ;
8707
S2++;
8708
}
8709
}
8710
if (19%7 == 0) {
8711
for (I3=ceild(9*19/7,2);I3<=5*19/7-1;I3++) {
8712
J3 = -(19)-2*(I2)+2*I3 ;
8713
S2++;
8714
}
8715
if (5*19%7 == 0) {
8716
I3 = 5*19/7 ;
8717
J1 = -2*(19)+3*I3 ;
8718
if ((2*19+J1)%3 == 0) {
8719
J2 = (2*19+J1)/3 ;
8720
J3 = 3*19-4*J2 ;
8721
S1++;
8722
S2++;
8723
}
8724
}
8725
for (I3=ceild(15*19/7+1,3);I3<=N1;I3++) {
8726
J3 = 19-(I2)-(I3) ;
8727
S1++;
8728
J3 = -(19)-2*(I2)+2*I3 ;
8729
S2++;
8730
}
8731
}
8732
for (I3=4*3+1;I3<=floord(13*3+1,3);I3++) {
8733
J3 = -(19)-2*(I2)+2*I3 ;
8734
S2++;
8735
J3 = 19-(I2)-(I3) ;
8736
S1++;
8737
}
8738
if ((13*19-1)%18 == 0) {
8739
I3 = (13*19-1)/18 ;
8740
J1 = -2*(19)+3*I3 ;
8741
if ((2*19+J1)%3 == 0) {
8742
J2 = (2*19+J1)/3 ;
8743
J3 = 3*19-4*J2 ;
8744
S1++;
8745
S2++;
8746
}
8747
}
8748
for (I3=ceild(13*3+3,3);I3<=N1;I3++) {
8749
J3 = 19-(I2)-(I3) ;
8750
S1++;
8751
J3 = -(19)-2*(I2)+2*I3 ;
8752
S2++;
8753
}
8754
if (19%6 == 0) {
8755
for (I3=4*19/6;I3<=floord(13*19/6-1,3);I3++) {
8756
J3 = -(19)-2*(I2)+2*I3 ;
8757
S2++;
8758
J3 = 19-(I2)-(I3) ;
8759
S1++;
8760
}
8761
if (13*19%18 == 0) {
8762
I3 = 13*19/18 ;
8763
J1 = -2*(19)+3*I3 ;
8764
if ((2*19+J1)%3 == 0) {
8765
J2 = (2*19+J1)/3 ;
8766
J3 = 3*19-4*J2 ;
8767
S1++;
8768
S2++;
8769
}
8770
}
8771
for (I3=ceild(13*19/6+1,3);I3<=min(N1,5*19/6);I3++) {
8772
J3 = 19-(I2)-(I3) ;
8773
S1++;
8774
J3 = -(19)-2*(I2)+2*I3 ;
8775
S2++;
8776
}
8777
}
8778
for (I3=19-2*(4);I3<=floord(19+2*4-1,2);I3++) {
8779
J3 = 19-(I2)-(I3) ;
8780
S1++;
8781
}
8782
for (I3=ceild(19+2*4,2);I3<=floord(2*19+4-1,3);I3++) {
8783
J3 = -(19)-2*(I2)+2*I3 ;
8784
S2++;
8785
J3 = 19-(I2)-(I3) ;
8786
S1++;
8787
}
8788
if ((2*19+4)%3 == 0) {
8789
I3 = (2*19+4)/3 ;
8790
J1 = -2*(19)+3*I3 ;
8791
if ((2*19+J1)%3 == 0) {
8792
J2 = (2*19+J1)/3 ;
8793
J3 = 3*19-4*J2 ;
8794
S1++;
8795
S2++;
8796
}
8797
}
8798
for (I3=ceild(2*19+4+1,3);I3<=N1;I3++) {
8799
J3 = 19-(I2)-(I3) ;
8800
S1++;
8801
J3 = -(19)-2*(I2)+2*I3 ;
8802
S2++;
8803
}
8804
for (I3=max(max(1,ceild(19-(5),2)),19-2*(5));I3<=19-(5);I3++) {
8805
J3 = 19-(I2)-(I3) ;
8806
S1++;
8807
}
8808
for (I3=max(19-(5)+1,ceild(19+2*5,2));I3<=min(N1,floord(2*19+3*5,3));I3++) {
8809
J3 = -(19)-2*(I2)+2*I3 ;
8810
S2++;
8811
}
8812
for (I2=6;I2<=15;I2++) {
8813
for (I3=max(max(ceild(19-I2,2),19-2*I2),1);I3<=min(19-I2,N1);I3++) {
8814
J3 = 19-(I2)-(I3) ;
8815
S1++;
8816
}
8817
}
8818
}
8819
if ((N1 <= 12) && (N1 >= 12)) {
8820
if ((9*N1-2)%7 == 0) {
8821
I1 = (9*N1-2)/7 ;
8822
for (I2=1;I2<=floord(2*N1-9,14);I2++) {
8823
for (I3=ceild(I1+2*I2,2);I3<=min(N1,floord(2*I1+3*I2,3));I3++) {
8824
J3 = -I1-2*(I2)+2*I3 ;
8825
S2++;
8826
}
8827
}
8828
if ((N1-1)%7 == 0) {
8829
I2 = (N1-1)/7 ;
8830
for (I3=ceild(I1+2*I2,2);I3<=min(I1-2*I2-1,floord(2*I1+3*I2,3));I3++) {
8831
J3 = -I1-2*(I2)+2*I3 ;
8832
S2++;
8833
}
8834
for (I3=I1-2*I2;I3<=min(N1,I1-I2);I3++) {
8835
J3 = I1-(I2)-(I3) ;
8836
S1++;
8837
}
8838
}
8839
for (I2=ceild(3*N1+4,21);I2<=floord(9*N1-9,49);I2++) {
8840
for (I3=ceild(I1+2*I2,2);I3<=I1-2*I2-1;I3++) {
8841
J3 = -I1-2*(I2)+2*I3 ;
8842
S2++;
8843
}
8844
for (I3=I1-2*I2;I3<=N1;I3++) {
8845
J3 = I1-(I2)-(I3) ;
8846
S1++;
8847
J3 = -I1-2*(I2)+2*I3 ;
8848
S2++;
8849
}
8850
}
8851
if ((9*N1-2)%49 == 0) {
8852
I2 = (9*N1-2)/49 ;
8853
for (I3=ceild(9*I2,2);I3<=5*I2-1;I3++) {
8854
J3 = -I1-2*(I2)+2*I3 ;
8855
S2++;
8856
}
8857
if (5*I1%7 == 0) {
8858
I3 = 5*I1/7 ;
8859
J1 = -2*I1+3*I3 ;
8860
if ((2*I1+J1)%3 == 0) {
8861
J2 = (2*I1+J1)/3 ;
8862
J3 = 3*I1-4*J2 ;
8863
S1++;
8864
S2++;
8865
}
8866
}
8867
for (I3=ceild(15*I2+1,3);I3<=N1;I3++) {
8868
J3 = I1-(I2)-(I3) ;
8869
S1++;
8870
J3 = -I1-2*(I2)+2*I3 ;
8871
S2++;
8872
}
8873
}
8874
if ((9*N1-2)%42 == 0) {
8875
I2 = (9*N1-2)/42 ;
8876
for (I3=4*I2;I3<=floord(13*I2-1,3);I3++) {
8877
J3 = -I1-2*(I2)+2*I3 ;
8878
S2++;
8879
J3 = I1-(I2)-(I3) ;
8880
S1++;
8881
}
8882
if (13*I1%18 == 0) {
8883
I3 = 13*I1/18 ;
8884
J1 = -2*I1+3*I3 ;
8885
if ((2*I1+J1)%3 == 0) {
8886
J2 = (2*I1+J1)/3 ;
8887
J3 = 3*I1-4*J2 ;
8888
S1++;
8889
S2++;
8890
}
8891
}
8892
for (I3=ceild(13*I2+1,3);I3<=min(N1,5*I2);I3++) {
8893
J3 = I1-(I2)-(I3) ;
8894
S1++;
8895
J3 = -I1-2*(I2)+2*I3 ;
8896
S2++;
8897
}
8898
}
8899
for (I2=ceild(9*N1+5,42);I2<=floord(2*N1-2,7);I2++) {
8900
for (I3=I1-2*I2;I3<=floord(I1+2*I2-1,2);I3++) {
8901
J3 = I1-(I2)-(I3) ;
8902
S1++;
8903
}
8904
for (I3=ceild(I1+2*I2,2);I3<=floord(2*I1+I2-1,3);I3++) {
8905
J3 = -I1-2*(I2)+2*I3 ;
8906
S2++;
8907
J3 = I1-(I2)-(I3) ;
8908
S1++;
8909
}
8910
if ((2*I1+I2)%3 == 0) {
8911
I3 = (2*I1+I2)/3 ;
8912
J1 = -2*I1+3*I3 ;
8913
if ((2*I1+J1)%3 == 0) {
8914
J2 = (2*I1+J1)/3 ;
8915
J3 = 3*I1-4*J2 ;
8916
S1++;
8917
S2++;
8918
}
8919
}
8920
for (I3=ceild(2*I1+I2+1,3);I3<=N1;I3++) {
8921
J3 = I1-(I2)-(I3) ;
8922
S1++;
8923
J3 = -I1-2*(I2)+2*I3 ;
8924
S2++;
8925
}
8926
}
8927
for (I2=ceild(2*N1+5,7);I2<=floord(5*N1+2,14);I2++) {
8928
for (I3=max(max(1,ceild(I1-I2,2)),I1-2*I2);I3<=I1-I2;I3++) {
8929
J3 = I1-(I2)-(I3) ;
8930
S1++;
8931
}
8932
for (I3=max(I1-I2+1,ceild(I1+2*I2,2));I3<=min(N1,floord(2*I1+3*I2,3));I3++) {
8933
J3 = -I1-2*(I2)+2*I3 ;
8934
S2++;
8935
}
8936
}
8937
for (I2=ceild(5*N1+9,14);I2<=N1;I2++) {
8938
for (I3=max(max(ceild(I1-I2,2),I1-2*I2),1);I3<=min(I1-I2,N1);I3++) {
8939
J3 = I1-(I2)-(I3) ;
8940
S1++;
8941
}
8942
}
8943
}
8944
}
8945
if (N1 >= 17) {
8946
if (6*N1%5 == 0) {
8947
I1 = 6*N1/5 ;
8948
for (I2=1;I2<=floord(N1-5,10);I2++) {
8949
for (I3=ceild(I1+2*I2,2);I3<=min(N1,floord(2*I1+3*I2,3));I3++) {
8950
J3 = -I1-2*(I2)+2*I3 ;
8951
S2++;
8952
}
8953
}
8954
for (I2=ceild(N1,10);I2<=floord(6*N1-5,45);I2++) {
8955
for (I3=ceild(I1+2*I2,2);I3<=min(I1-2*I2-1,floord(2*I1+3*I2,3));I3++) {
8956
J3 = -I1-2*(I2)+2*I3 ;
8957
S2++;
8958
}
8959
for (I3=I1-2*I2;I3<=min(N1,I1-I2);I3++) {
8960
J3 = I1-(I2)-(I3) ;
8961
S1++;
8962
}
8963
}
8964
for (I2=ceild(2*N1,15);I2<=floord(6*N1-5,35);I2++) {
8965
for (I3=ceild(I1+2*I2,2);I3<=I1-2*I2-1;I3++) {
8966
J3 = -I1-2*(I2)+2*I3 ;
8967
S2++;
8968
}
8969
for (I3=I1-2*I2;I3<=floord(2*I1+3*I2,3);I3++) {
8970
J3 = I1-(I2)-(I3) ;
8971
S1++;
8972
J3 = -I1-2*(I2)+2*I3 ;
8973
S2++;
8974
}
8975
for (I3=ceild(2*I1+3*I2+1,3);I3<=min(N1,I1-I2);I3++) {
8976
J3 = I1-(I2)-(I3) ;
8977
S1++;
8978
}
8979
}
8980
if (6*N1%35 == 0) {
8981
I2 = 6*N1/35 ;
8982
for (I3=ceild(9*I2,2);I3<=5*I2-1;I3++) {
8983
J3 = -I1-2*(I2)+2*I3 ;
8984
S2++;
8985
}
8986
if (5*I1%7 == 0) {
8987
I3 = 5*I1/7 ;
8988
J1 = -2*I1+3*I3 ;
8989
if ((2*I1+J1)%3 == 0) {
8990
J2 = (2*I1+J1)/3 ;
8991
J3 = 3*I1-4*J2 ;
8992
S1++;
8993
S2++;
8994
}
8995
}
8996
for (I3=ceild(15*I2+1,3);I3<=floord(17*I2,3);I3++) {
8997
J3 = I1-(I2)-(I3) ;
8998
S1++;
8999
J3 = -I1-2*(I2)+2*I3 ;
9000
S2++;
9001
}
9002
for (I3=ceild(17*I2+1,3);I3<=min(N1,6*I2);I3++) {
9003
J3 = I1-(I2)-(I3) ;
9004
S1++;
9005
}
9006
}
9007
for (I2=ceild(6*N1+5,35);I2<=floord(3*N1-5,15);I2++) {
9008
for (I3=ceild(I1+2*I2,2);I3<=I1-2*I2-1;I3++) {
9009
J3 = -I1-2*(I2)+2*I3 ;
9010
S2++;
9011
}
9012
for (I3=I1-2*I2;I3<=floord(2*I1+I2-1,3);I3++) {
9013
J3 = -I1-2*(I2)+2*I3 ;
9014
S2++;
9015
J3 = I1-(I2)-(I3) ;
9016
S1++;
9017
}
9018
if ((2*I1+I2)%3 == 0) {
9019
I3 = (2*I1+I2)/3 ;
9020
J1 = -2*I1+3*I3 ;
9021
if ((2*I1+J1)%3 == 0) {
9022
J2 = (2*I1+J1)/3 ;
9023
J3 = 3*I1-4*J2 ;
9024
S1++;
9025
S2++;
9026
}
9027
}
9028
for (I3=ceild(2*I1+I2+1,3);I3<=floord(2*I1+3*I2,3);I3++) {
9029
J3 = I1-(I2)-(I3) ;
9030
S1++;
9031
J3 = -I1-2*(I2)+2*I3 ;
9032
S2++;
9033
}
9034
for (I3=ceild(2*I1+3*I2+1,3);I3<=min(N1,I1-I2);I3++) {
9035
J3 = I1-(I2)-(I3) ;
9036
S1++;
9037
}
9038
}
9039
if (N1%5 == 0) {
9040
for (I3=4*N1/5;I3<=floord(13*N1/5-1,3);I3++) {
9041
J3 = -I1-2*(I2)+2*I3 ;
9042
S2++;
9043
J3 = I1-(I2)-(I3) ;
9044
S1++;
9045
}
9046
if (13*I1%18 == 0) {
9047
I3 = 13*I1/18 ;
9048
J1 = -2*I1+3*I3 ;
9049
if ((2*I1+J1)%3 == 0) {
9050
J2 = (2*I1+J1)/3 ;
9051
J3 = 3*I1-4*J2 ;
9052
S1++;
9053
S2++;
9054
}
9055
}
9056
for (I3=ceild(13*N1/5+1,3);I3<=min(N1,5*N1/5);I3++) {
9057
J3 = I1-(I2)-(I3) ;
9058
S1++;
9059
J3 = -I1-2*(I2)+2*I3 ;
9060
S2++;
9061
}
9062
}
9063
for (I2=ceild(N1+5,5);I2<=floord(3*N1-5,10);I2++) {
9064
for (I3=I1-2*I2;I3<=floord(I1+2*I2-1,2);I3++) {
9065
J3 = I1-(I2)-(I3) ;
9066
S1++;
9067
}
9068
for (I3=ceild(I1+2*I2,2);I3<=floord(2*I1+I2-1,3);I3++) {
9069
J3 = -I1-2*(I2)+2*I3 ;
9070
S2++;
9071
J3 = I1-(I2)-(I3) ;
9072
S1++;
9073
}
9074
if ((2*I1+I2)%3 == 0) {
9075
I3 = (2*I1+I2)/3 ;
9076
J1 = -2*I1+3*I3 ;
9077
if ((2*I1+J1)%3 == 0) {
9078
J2 = (2*I1+J1)/3 ;
9079
J3 = 3*I1-4*J2 ;
9080
S1++;
9081
S2++;
9082
}
9083
}
9084
for (I3=ceild(2*I1+I2+1,3);I3<=I1-I2;I3++) {
9085
J3 = I1-(I2)-(I3) ;
9086
S1++;
9087
J3 = -I1-2*(I2)+2*I3 ;
9088
S2++;
9089
}
9090
for (I3=I1-I2+1;I3<=min(N1,floord(2*I1+3*I2,3));I3++) {
9091
J3 = -I1-2*(I2)+2*I3 ;
9092
S2++;
9093
}
9094
}
9095
if ((6*N1-5)%20 == 0) {
9096
I2 = (6*N1-5)/20 ;
9097
for (I3=2*I2+1;I3<=3*I2;I3++) {
9098
J3 = I1-(I2)-(I3) ;
9099
S1++;
9100
}
9101
if ((9*I1-1)%12 == 0) {
9102
I3 = (9*I1-1)/12 ;
9103
J1 = -2*I1+3*I3 ;
9104
if ((2*I1+J1)%3 == 0) {
9105
J2 = (2*I1+J1)/3 ;
9106
J3 = 3*I1-4*J2 ;
9107
S1++;
9108
S2++;
9109
}
9110
}
9111
if ((3*I1+1)%4 == 0) {
9112
I3 = (3*I1+1)/4 ;
9113
J3 = I1-(I2)-(I3) ;
9114
S1++;
9115
J3 = -I1-2*(I2)+2*I3 ;
9116
S2++;
9117
}
9118
for (I3=3*I2+2;I3<=min(N1,floord(11*I2+2,3));I3++) {
9119
J3 = -I1-2*(I2)+2*I3 ;
9120
S2++;
9121
}
9122
}
9123
if (3*N1%10 == 0) {
9124
I2 = 3*N1/10 ;
9125
for (I3=2*I2;I3<=floord(6*I2-1,2);I3++) {
9126
J3 = I1-(I2)-(I3) ;
9127
S1++;
9128
}
9129
if (3*I1%4 == 0) {
9130
I3 = 3*I1/4 ;
9131
J1 = -2*I1+3*I3 ;
9132
if ((2*I1+J1)%3 == 0) {
9133
J2 = (2*I1+J1)/3 ;
9134
J3 = 3*I1-4*J2 ;
9135
S1++;
9136
S2++;
9137
}
9138
}
9139
for (I3=3*I2+1;I3<=min(N1,floord(11*I2,3));I3++) {
9140
J3 = -I1-2*(I2)+2*I3 ;
9141
S2++;
9142
}
9143
}
9144
for (I2=ceild(6*N1+5,20);I2<=floord(2*N1,5);I2++) {
9145
for (I3=max(max(1,ceild(I1-I2,2)),I1-2*I2);I3<=I1-I2;I3++) {
9146
J3 = I1-(I2)-(I3) ;
9147
S1++;
9148
}
9149
for (I3=max(I1-I2+1,ceild(I1+2*I2,2));I3<=min(N1,floord(2*I1+3*I2,3));I3++) {
9150
J3 = -I1-2*(I2)+2*I3 ;
9151
S2++;
9152
}
9153
}
9154
for (I2=ceild(4*N1+5,10);I2<=N1;I2++) {
9155
for (I3=max(max(ceild(I1-I2,2),I1-2*I2),1);I3<=min(I1-I2,N1);I3++) {
9156
J3 = I1-(I2)-(I3) ;
9157
S1++;
9158
}
9159
}
9160
}
9161
}
9162
for (I1=max(ceild(9*N1-1,7),ceild(6*N1+5,5));I1<=min(19,floord(4*N1-2,3));I1++) {
9163
for (I2=1;I2<=floord(I1-N1-1,2);I2++) {
9164
for (I3=ceild(I1+2*I2,2);I3<=min(N1,floord(2*I1+3*I2,3));I3++) {
9165
J3 = -I1-2*(I2)+2*I3 ;
9166
S2++;
9167
}
9168
}
9169
for (I2=max(ceild(I1-N1,2),ceild(-2*I1+3*N1,3));I2<=floord(I1-1,7);I2++) {
9170
for (I3=ceild(I1+2*I2,2);I3<=I1-2*I2-1;I3++) {
9171
J3 = -I1-2*(I2)+2*I3 ;
9172
S2++;
9173
}
9174
for (I3=I1-2*I2;I3<=N1;I3++) {
9175
J3 = I1-(I2)-(I3) ;
9176
S1++;
9177
J3 = -I1-2*(I2)+2*I3 ;
9178
S2++;
9179
}
9180
}
9181
if (I1%7 == 0) {
9182
for (I3=ceild(9*I1/7,2);I3<=5*I1/7-1;I3++) {
9183
J3 = -I1-2*(I2)+2*I3 ;
9184
S2++;
9185
}
9186
if (5*I1%7 == 0) {
9187
I3 = 5*I1/7 ;
9188
J1 = -2*I1+3*I3 ;
9189
if ((2*I1+J1)%3 == 0) {
9190
J2 = (2*I1+J1)/3 ;
9191
J3 = 3*I1-4*J2 ;
9192
S1++;
9193
S2++;
9194
}
9195
}
9196
for (I3=ceild(15*I1/7+1,3);I3<=N1;I3++) {
9197
J3 = I1-(I2)-(I3) ;
9198
S1++;
9199
J3 = -I1-2*(I2)+2*I3 ;
9200
S2++;
9201
}
9202
}
9203
if ((I1-1)%6 == 0) {
9204
I2 = (I1-1)/6 ;
9205
for (I3=4*I2+1;I3<=floord(13*I2+1,3);I3++) {
9206
J3 = -I1-2*(I2)+2*I3 ;
9207
S2++;
9208
J3 = I1-(I2)-(I3) ;
9209
S1++;
9210
}
9211
if ((13*I1-1)%18 == 0) {
9212
I3 = (13*I1-1)/18 ;
9213
J1 = -2*I1+3*I3 ;
9214
if ((2*I1+J1)%3 == 0) {
9215
J2 = (2*I1+J1)/3 ;
9216
J3 = 3*I1-4*J2 ;
9217
S1++;
9218
S2++;
9219
}
9220
}
9221
for (I3=ceild(13*I2+3,3);I3<=N1;I3++) {
9222
J3 = I1-(I2)-(I3) ;
9223
S1++;
9224
J3 = -I1-2*(I2)+2*I3 ;
9225
S2++;
9226
}
9227
}
9228
if (I1%6 == 0) {
9229
for (I3=4*I1/6;I3<=floord(13*I1/6-1,3);I3++) {
9230
J3 = -I1-2*(I2)+2*I3 ;
9231
S2++;
9232
J3 = I1-(I2)-(I3) ;
9233
S1++;
9234
}
9235
if (13*I1%18 == 0) {
9236
I3 = 13*I1/18 ;
9237
J1 = -2*I1+3*I3 ;
9238
if ((2*I1+J1)%3 == 0) {
9239
J2 = (2*I1+J1)/3 ;
9240
J3 = 3*I1-4*J2 ;
9241
S1++;
9242
S2++;
9243
}
9244
}
9245
for (I3=ceild(13*I1/6+1,3);I3<=min(N1,5*I1/6);I3++) {
9246
J3 = I1-(I2)-(I3) ;
9247
S1++;
9248
J3 = -I1-2*(I2)+2*I3 ;
9249
S2++;
9250
}
9251
}
9252
for (I2=ceild(I1+1,6);I2<=I1-N1;I2++) {
9253
for (I3=I1-2*I2;I3<=floord(I1+2*I2-1,2);I3++) {
9254
J3 = I1-(I2)-(I3) ;
9255
S1++;
9256
}
9257
for (I3=ceild(I1+2*I2,2);I3<=floord(2*I1+I2-1,3);I3++) {
9258
J3 = -I1-2*(I2)+2*I3 ;
9259
S2++;
9260
J3 = I1-(I2)-(I3) ;
9261
S1++;
9262
}
9263
if ((2*I1+I2)%3 == 0) {
9264
I3 = (2*I1+I2)/3 ;
9265
J1 = -2*I1+3*I3 ;
9266
if ((2*I1+J1)%3 == 0) {
9267
J2 = (2*I1+J1)/3 ;
9268
J3 = 3*I1-4*J2 ;
9269
S1++;
9270
S2++;
9271
}
9272
}
9273
for (I3=ceild(2*I1+I2+1,3);I3<=N1;I3++) {
9274
J3 = I1-(I2)-(I3) ;
9275
S1++;
9276
J3 = -I1-2*(I2)+2*I3 ;
9277
S2++;
9278
}
9279
}
9280
for (I2=I1-N1+1;I2<=floord(-I1+2*N1,2);I2++) {
9281
for (I3=max(max(1,ceild(I1-I2,2)),I1-2*I2);I3<=I1-I2;I3++) {
9282
J3 = I1-(I2)-(I3) ;
9283
S1++;
9284
}
9285
for (I3=max(I1-I2+1,ceild(I1+2*I2,2));I3<=min(N1,floord(2*I1+3*I2,3));I3++) {
9286
J3 = -I1-2*(I2)+2*I3 ;
9287
S2++;
9288
}
9289
}
9290
for (I2=ceild(-I1+2*N1+1,2);I2<=N1;I2++) {
9291
for (I3=max(max(ceild(I1-I2,2),I1-2*I2),1);I3<=min(I1-I2,N1);I3++) {
9292
J3 = I1-(I2)-(I3) ;
9293
S1++;
9294
}
9295
}
9296
}
9297
if (N1 >= 23) {
9298
if ((6*N1+1)%5 == 0) {
9299
I1 = (6*N1+1)/5 ;
9300
for (I2=1;I2<=floord(N1-4,10);I2++) {
9301
for (I3=ceild(I1+2*I2,2);I3<=min(N1,floord(2*I1+3*I2,3));I3++) {
9302
J3 = -I1-2*(I2)+2*I3 ;
9303
S2++;
9304
}
9305
}
9306
for (I2=ceild(N1+1,10);I2<=floord(6*N1-4,45);I2++) {
9307
for (I3=ceild(I1+2*I2,2);I3<=min(I1-2*I2-1,floord(2*I1+3*I2,3));I3++) {
9308
J3 = -I1-2*(I2)+2*I3 ;
9309
S2++;
9310
}
9311
for (I3=I1-2*I2;I3<=min(N1,I1-I2);I3++) {
9312
J3 = I1-(I2)-(I3) ;
9313
S1++;
9314
}
9315
}
9316
for (I2=ceild(6*N1+1,45);I2<=floord(6*N1-4,35);I2++) {
9317
for (I3=ceild(I1+2*I2,2);I3<=I1-2*I2-1;I3++) {
9318
J3 = -I1-2*(I2)+2*I3 ;
9319
S2++;
9320
}
9321
for (I3=I1-2*I2;I3<=floord(2*I1+3*I2,3);I3++) {
9322
J3 = I1-(I2)-(I3) ;
9323
S1++;
9324
J3 = -I1-2*(I2)+2*I3 ;
9325
S2++;
9326
}
9327
for (I3=ceild(2*I1+3*I2+1,3);I3<=min(N1,I1-I2);I3++) {
9328
J3 = I1-(I2)-(I3) ;
9329
S1++;
9330
}
9331
}
9332
if ((6*N1+1)%35 == 0) {
9333
I2 = (6*N1+1)/35 ;
9334
for (I3=ceild(9*I2,2);I3<=5*I2-1;I3++) {
9335
J3 = -I1-2*(I2)+2*I3 ;
9336
S2++;
9337
}
9338
if (5*I1%7 == 0) {
9339
I3 = 5*I1/7 ;
9340
J1 = -2*I1+3*I3 ;
9341
if ((2*I1+J1)%3 == 0) {
9342
J2 = (2*I1+J1)/3 ;
9343
J3 = 3*I1-4*J2 ;
9344
S1++;
9345
S2++;
9346
}
9347
}
9348
for (I3=ceild(15*I2+1,3);I3<=floord(17*I2,3);I3++) {
9349
J3 = I1-(I2)-(I3) ;
9350
S1++;
9351
J3 = -I1-2*(I2)+2*I3 ;
9352
S2++;
9353
}
9354
for (I3=ceild(17*I2+1,3);I3<=min(N1,6*I2);I3++) {
9355
J3 = I1-(I2)-(I3) ;
9356
S1++;
9357
}
9358
}
9359
for (I2=ceild(6*N1+6,35);I2<=floord(3*N1-7,15);I2++) {
9360
for (I3=ceild(I1+2*I2,2);I3<=I1-2*I2-1;I3++) {
9361
J3 = -I1-2*(I2)+2*I3 ;
9362
S2++;
9363
}
9364
for (I3=I1-2*I2;I3<=floord(2*I1+I2-1,3);I3++) {
9365
J3 = -I1-2*(I2)+2*I3 ;
9366
S2++;
9367
J3 = I1-(I2)-(I3) ;
9368
S1++;
9369
}
9370
if ((2*I1+I2)%3 == 0) {
9371
I3 = (2*I1+I2)/3 ;
9372
J1 = -2*I1+3*I3 ;
9373
if ((2*I1+J1)%3 == 0) {
9374
J2 = (2*I1+J1)/3 ;
9375
J3 = 3*I1-4*J2 ;
9376
S1++;
9377
S2++;
9378
}
9379
}
9380
for (I3=ceild(2*I1+I2+1,3);I3<=floord(2*I1+3*I2,3);I3++) {
9381
J3 = I1-(I2)-(I3) ;
9382
S1++;
9383
J3 = -I1-2*(I2)+2*I3 ;
9384
S2++;
9385
}
9386
for (I3=ceild(2*I1+3*I2+1,3);I3<=min(N1,I1-I2);I3++) {
9387
J3 = I1-(I2)-(I3) ;
9388
S1++;
9389
}
9390
}
9391
if ((6*N1+1)%30 == 0) {
9392
I2 = (6*N1+1)/30 ;
9393
for (I3=4*I2;I3<=floord(13*I2-1,3);I3++) {
9394
J3 = -I1-2*(I2)+2*I3 ;
9395
S2++;
9396
J3 = I1-(I2)-(I3) ;
9397
S1++;
9398
}
9399
if (13*I1%18 == 0) {
9400
I3 = 13*I1/18 ;
9401
J1 = -2*I1+3*I3 ;
9402
if ((2*I1+J1)%3 == 0) {
9403
J2 = (2*I1+J1)/3 ;
9404
J3 = 3*I1-4*J2 ;
9405
S1++;
9406
S2++;
9407
}
9408
}
9409
for (I3=ceild(13*I2+1,3);I3<=min(N1,5*I2);I3++) {
9410
J3 = I1-(I2)-(I3) ;
9411
S1++;
9412
J3 = -I1-2*(I2)+2*I3 ;
9413
S2++;
9414
}
9415
}
9416
if ((N1+1)%5 == 0) {
9417
I2 = (N1+1)/5 ;
9418
for (I3=I1-2*I2;I3<=floord(I1+2*I2-1,2);I3++) {
9419
J3 = I1-(I2)-(I3) ;
9420
S1++;
9421
}
9422
for (I3=ceild(I1+2*I2,2);I3<=floord(2*I1+I2-1,3);I3++) {
9423
J3 = -I1-2*(I2)+2*I3 ;
9424
S2++;
9425
J3 = I1-(I2)-(I3) ;
9426
S1++;
9427
}
9428
if ((2*I1+I2)%3 == 0) {
9429
I3 = (2*I1+I2)/3 ;
9430
J1 = -2*I1+3*I3 ;
9431
if ((2*I1+J1)%3 == 0) {
9432
J2 = (2*I1+J1)/3 ;
9433
J3 = 3*I1-4*J2 ;
9434
S1++;
9435
S2++;
9436
}
9437
}
9438
for (I3=ceild(2*I1+I2+1,3);I3<=N1;I3++) {
9439
J3 = I1-(I2)-(I3) ;
9440
S1++;
9441
J3 = -I1-2*(I2)+2*I3 ;
9442
S2++;
9443
}
9444
}
9445
for (I2=ceild(N1+6,5);I2<=floord(6*N1-9,20);I2++) {
9446
for (I3=I1-2*I2;I3<=floord(I1+2*I2-1,2);I3++) {
9447
J3 = I1-(I2)-(I3) ;
9448
S1++;
9449
}
9450
for (I3=ceild(I1+2*I2,2);I3<=floord(2*I1+I2-1,3);I3++) {
9451
J3 = -I1-2*(I2)+2*I3 ;
9452
S2++;
9453
J3 = I1-(I2)-(I3) ;
9454
S1++;
9455
}
9456
if ((2*I1+I2)%3 == 0) {
9457
I3 = (2*I1+I2)/3 ;
9458
J1 = -2*I1+3*I3 ;
9459
if ((2*I1+J1)%3 == 0) {
9460
J2 = (2*I1+J1)/3 ;
9461
J3 = 3*I1-4*J2 ;
9462
S1++;
9463
S2++;
9464
}
9465
}
9466
for (I3=ceild(2*I1+I2+1,3);I3<=I1-I2;I3++) {
9467
J3 = I1-(I2)-(I3) ;
9468
S1++;
9469
J3 = -I1-2*(I2)+2*I3 ;
9470
S2++;
9471
}
9472
for (I3=I1-I2+1;I3<=min(N1,floord(2*I1+3*I2,3));I3++) {
9473
J3 = -I1-2*(I2)+2*I3 ;
9474
S2++;
9475
}
9476
}
9477
if ((3*N1-2)%10 == 0) {
9478
I2 = (3*N1-2)/10 ;
9479
for (I3=2*I2+1;I3<=3*I2;I3++) {
9480
J3 = I1-(I2)-(I3) ;
9481
S1++;
9482
}
9483
if ((9*I1-1)%12 == 0) {
9484
I3 = (9*I1-1)/12 ;
9485
J1 = -2*I1+3*I3 ;
9486
if ((2*I1+J1)%3 == 0) {
9487
J2 = (2*I1+J1)/3 ;
9488
J3 = 3*I1-4*J2 ;
9489
S1++;
9490
S2++;
9491
}
9492
}
9493
if ((3*I1+1)%4 == 0) {
9494
I3 = (3*I1+1)/4 ;
9495
J3 = I1-(I2)-(I3) ;
9496
S1++;
9497
J3 = -I1-2*(I2)+2*I3 ;
9498
S2++;
9499
}
9500
for (I3=3*I2+2;I3<=min(N1,floord(11*I2+2,3));I3++) {
9501
J3 = -I1-2*(I2)+2*I3 ;
9502
S2++;
9503
}
9504
}
9505
if ((6*N1+1)%20 == 0) {
9506
I2 = (6*N1+1)/20 ;
9507
for (I3=2*I2;I3<=floord(6*I2-1,2);I3++) {
9508
J3 = I1-(I2)-(I3) ;
9509
S1++;
9510
}
9511
if (3*I1%4 == 0) {
9512
I3 = 3*I1/4 ;
9513
J1 = -2*I1+3*I3 ;
9514
if ((2*I1+J1)%3 == 0) {
9515
J2 = (2*I1+J1)/3 ;
9516
J3 = 3*I1-4*J2 ;
9517
S1++;
9518
S2++;
9519
}
9520
}
9521
for (I3=3*I2+1;I3<=min(N1,floord(11*I2,3));I3++) {
9522
J3 = -I1-2*(I2)+2*I3 ;
9523
S2++;
9524
}
9525
}
9526
for (I2=ceild(3*N1+3,10);I2<=floord(4*N1-1,10);I2++) {
9527
for (I3=max(max(1,ceild(I1-I2,2)),I1-2*I2);I3<=I1-I2;I3++) {
9528
J3 = I1-(I2)-(I3) ;
9529
S1++;
9530
}
9531
for (I3=max(I1-I2+1,ceild(I1+2*I2,2));I3<=min(N1,floord(2*I1+3*I2,3));I3++) {
9532
J3 = -I1-2*(I2)+2*I3 ;
9533
S2++;
9534
}
9535
}
9536
for (I2=ceild(2*N1+2,5);I2<=N1;I2++) {
9537
for (I3=max(max(ceild(I1-I2,2),I1-2*I2),1);I3<=min(I1-I2,N1);I3++) {
9538
J3 = I1-(I2)-(I3) ;
9539
S1++;
9540
}
9541
}
9542
}
9543
}
9544
if ((N1 >= 18) && (N1 <= 20)) {
9545
if ((6*N1+1)%5 == 0) {
9546
I1 = (6*N1+1)/5 ;
9547
for (I2=1;I2<=floord(N1-4,10);I2++) {
9548
for (I3=ceild(I1+2*I2,2);I3<=min(N1,floord(2*I1+3*I2,3));I3++) {
9549
J3 = -I1-2*(I2)+2*I3 ;
9550
S2++;
9551
}
9552
}
9553
for (I2=ceild(N1+1,10);I2<=floord(6*N1-4,45);I2++) {
9554
for (I3=ceild(I1+2*I2,2);I3<=min(I1-2*I2-1,floord(2*I1+3*I2,3));I3++) {
9555
J3 = -I1-2*(I2)+2*I3 ;
9556
S2++;
9557
}
9558
for (I3=I1-2*I2;I3<=min(N1,I1-I2);I3++) {
9559
J3 = I1-(I2)-(I3) ;
9560
S1++;
9561
}
9562
}
9563
for (I2=ceild(6*N1+1,45);I2<=floord(6*N1-4,35);I2++) {
9564
for (I3=ceild(I1+2*I2,2);I3<=I1-2*I2-1;I3++) {
9565
J3 = -I1-2*(I2)+2*I3 ;
9566
S2++;
9567
}
9568
for (I3=I1-2*I2;I3<=floord(2*I1+3*I2,3);I3++) {
9569
J3 = I1-(I2)-(I3) ;
9570
S1++;
9571
J3 = -I1-2*(I2)+2*I3 ;
9572
S2++;
9573
}
9574
for (I3=ceild(2*I1+3*I2+1,3);I3<=min(N1,I1-I2);I3++) {
9575
J3 = I1-(I2)-(I3) ;
9576
S1++;
9577
}
9578
}
9579
if ((6*N1+1)%35 == 0) {
9580
I2 = (6*N1+1)/35 ;
9581
for (I3=ceild(9*I2,2);I3<=5*I2-1;I3++) {
9582
J3 = -I1-2*(I2)+2*I3 ;
9583
S2++;
9584
}
9585
if (5*I1%7 == 0) {
9586
I3 = 5*I1/7 ;
9587
J1 = -2*I1+3*I3 ;
9588
if ((2*I1+J1)%3 == 0) {
9589
J2 = (2*I1+J1)/3 ;
9590
J3 = 3*I1-4*J2 ;
9591
S1++;
9592
S2++;
9593
}
9594
}
9595
for (I3=ceild(15*I2+1,3);I3<=floord(17*I2,3);I3++) {
9596
J3 = I1-(I2)-(I3) ;
9597
S1++;
9598
J3 = -I1-2*(I2)+2*I3 ;
9599
S2++;
9600
}
9601
for (I3=ceild(17*I2+1,3);I3<=min(N1,6*I2);I3++) {
9602
J3 = I1-(I2)-(I3) ;
9603
S1++;
9604
}
9605
}
9606
if ((6*N1+1)%30 == 0) {
9607
I2 = (6*N1+1)/30 ;
9608
for (I3=4*I2;I3<=floord(13*I2-1,3);I3++) {
9609
J3 = -I1-2*(I2)+2*I3 ;
9610
S2++;
9611
J3 = I1-(I2)-(I3) ;
9612
S1++;
9613
}
9614
if (13*I1%18 == 0) {
9615
I3 = 13*I1/18 ;
9616
J1 = -2*I1+3*I3 ;
9617
if ((2*I1+J1)%3 == 0) {
9618
J2 = (2*I1+J1)/3 ;
9619
J3 = 3*I1-4*J2 ;
9620
S1++;
9621
S2++;
9622
}
9623
}
9624
for (I3=ceild(13*I2+1,3);I3<=min(N1,5*I2);I3++) {
9625
J3 = I1-(I2)-(I3) ;
9626
S1++;
9627
J3 = -I1-2*(I2)+2*I3 ;
9628
S2++;
9629
}
9630
}
9631
if ((N1+1)%5 == 0) {
9632
I2 = (N1+1)/5 ;
9633
for (I3=I1-2*I2;I3<=floord(I1+2*I2-1,2);I3++) {
9634
J3 = I1-(I2)-(I3) ;
9635
S1++;
9636
}
9637
for (I3=ceild(I1+2*I2,2);I3<=floord(2*I1+I2-1,3);I3++) {
9638
J3 = -I1-2*(I2)+2*I3 ;
9639
S2++;
9640
J3 = I1-(I2)-(I3) ;
9641
S1++;
9642
}
9643
if ((2*I1+I2)%3 == 0) {
9644
I3 = (2*I1+I2)/3 ;
9645
J1 = -2*I1+3*I3 ;
9646
if ((2*I1+J1)%3 == 0) {
9647
J2 = (2*I1+J1)/3 ;
9648
J3 = 3*I1-4*J2 ;
9649
S1++;
9650
S2++;
9651
}
9652
}
9653
for (I3=ceild(2*I1+I2+1,3);I3<=N1;I3++) {
9654
J3 = I1-(I2)-(I3) ;
9655
S1++;
9656
J3 = -I1-2*(I2)+2*I3 ;
9657
S2++;
9658
}
9659
}
9660
for (I2=ceild(N1+6,5);I2<=floord(6*N1-9,20);I2++) {
9661
for (I3=I1-2*I2;I3<=floord(I1+2*I2-1,2);I3++) {
9662
J3 = I1-(I2)-(I3) ;
9663
S1++;
9664
}
9665
for (I3=ceild(I1+2*I2,2);I3<=floord(2*I1+I2-1,3);I3++) {
9666
J3 = -I1-2*(I2)+2*I3 ;
9667
S2++;
9668
J3 = I1-(I2)-(I3) ;
9669
S1++;
9670
}
9671
if ((2*I1+I2)%3 == 0) {
9672
I3 = (2*I1+I2)/3 ;
9673
J1 = -2*I1+3*I3 ;
9674
if ((2*I1+J1)%3 == 0) {
9675
J2 = (2*I1+J1)/3 ;
9676
J3 = 3*I1-4*J2 ;
9677
S1++;
9678
S2++;
9679
}
9680
}
9681
for (I3=ceild(2*I1+I2+1,3);I3<=I1-I2;I3++) {
9682
J3 = I1-(I2)-(I3) ;
9683
S1++;
9684
J3 = -I1-2*(I2)+2*I3 ;
9685
S2++;
9686
}
9687
for (I3=I1-I2+1;I3<=min(N1,floord(2*I1+3*I2,3));I3++) {
9688
J3 = -I1-2*(I2)+2*I3 ;
9689
S2++;
9690
}
9691
}
9692
if ((3*N1-2)%10 == 0) {
9693
I2 = (3*N1-2)/10 ;
9694
for (I3=2*I2+1;I3<=3*I2;I3++) {
9695
J3 = I1-(I2)-(I3) ;
9696
S1++;
9697
}
9698
if ((9*I1-1)%12 == 0) {
9699
I3 = (9*I1-1)/12 ;
9700
J1 = -2*I1+3*I3 ;
9701
if ((2*I1+J1)%3 == 0) {
9702
J2 = (2*I1+J1)/3 ;
9703
J3 = 3*I1-4*J2 ;
9704
S1++;
9705
S2++;
9706
}
9707
}
9708
if ((3*I1+1)%4 == 0) {
9709
I3 = (3*I1+1)/4 ;
9710
J3 = I1-(I2)-(I3) ;
9711
S1++;
9712
J3 = -I1-2*(I2)+2*I3 ;
9713
S2++;
9714
}
9715
for (I3=3*I2+2;I3<=min(N1,floord(11*I2+2,3));I3++) {
9716
J3 = -I1-2*(I2)+2*I3 ;
9717
S2++;
9718
}
9719
}
9720
if ((6*N1+1)%20 == 0) {
9721
I2 = (6*N1+1)/20 ;
9722
for (I3=2*I2;I3<=floord(6*I2-1,2);I3++) {
9723
J3 = I1-(I2)-(I3) ;
9724
S1++;
9725
}
9726
if (3*I1%4 == 0) {
9727
I3 = 3*I1/4 ;
9728
J1 = -2*I1+3*I3 ;
9729
if ((2*I1+J1)%3 == 0) {
9730
J2 = (2*I1+J1)/3 ;
9731
J3 = 3*I1-4*J2 ;
9732
S1++;
9733
S2++;
9734
}
9735
}
9736
for (I3=3*I2+1;I3<=min(N1,floord(11*I2,3));I3++) {
9737
J3 = -I1-2*(I2)+2*I3 ;
9738
S2++;
9739
}
9740
}
9741
for (I2=ceild(3*N1+3,10);I2<=floord(4*N1-1,10);I2++) {
9742
for (I3=max(max(1,ceild(I1-I2,2)),I1-2*I2);I3<=I1-I2;I3++) {
9743
J3 = I1-(I2)-(I3) ;
9744
S1++;
9745
}
9746
for (I3=max(I1-I2+1,ceild(I1+2*I2,2));I3<=min(N1,floord(2*I1+3*I2,3));I3++) {
9747
J3 = -I1-2*(I2)+2*I3 ;
9748
S2++;
9749
}
9750
}
9751
for (I2=ceild(2*N1+2,5);I2<=N1;I2++) {
9752
for (I3=max(max(ceild(I1-I2,2),I1-2*I2),1);I3<=min(I1-I2,N1);I3++) {
9753
J3 = I1-(I2)-(I3) ;
9754
S1++;
9755
}
9756
}
9757
}
9758
}
9759
if ((N1 <= 14) && (N1 >= 11)) {
9760
if ((4*N1-1)%3 == 0) {
9761
I1 = (4*N1-1)/3 ;
9762
for (I2=1;I2<=floord(N1-4,6);I2++) {
9763
for (I3=ceild(I1+2*I2,2);I3<=min(N1,floord(2*I1+3*I2,3));I3++) {
9764
J3 = -I1-2*(I2)+2*I3 ;
9765
S2++;
9766
}
9767
}
9768
for (I2=ceild(N1-1,6);I2<=floord(4*N1-4,21);I2++) {
9769
for (I3=ceild(I1+2*I2,2);I3<=I1-2*I2-1;I3++) {
9770
J3 = -I1-2*(I2)+2*I3 ;
9771
S2++;
9772
}
9773
for (I3=I1-2*I2;I3<=N1;I3++) {
9774
J3 = I1-(I2)-(I3) ;
9775
S1++;
9776
J3 = -I1-2*(I2)+2*I3 ;
9777
S2++;
9778
}
9779
}
9780
if ((4*N1-1)%21 == 0) {
9781
I2 = (4*N1-1)/21 ;
9782
for (I3=ceild(9*I2,2);I3<=5*I2-1;I3++) {
9783
J3 = -I1-2*(I2)+2*I3 ;
9784
S2++;
9785
}
9786
if (5*I1%7 == 0) {
9787
I3 = 5*I1/7 ;
9788
J1 = -2*I1+3*I3 ;
9789
if ((2*I1+J1)%3 == 0) {
9790
J2 = (2*I1+J1)/3 ;
9791
J3 = 3*I1-4*J2 ;
9792
S1++;
9793
S2++;
9794
}
9795
}
9796
for (I3=ceild(15*I2+1,3);I3<=N1;I3++) {
9797
J3 = I1-(I2)-(I3) ;
9798
S1++;
9799
J3 = -I1-2*(I2)+2*I3 ;
9800
S2++;
9801
}
9802
}
9803
if ((2*N1-2)%9 == 0) {
9804
I2 = (2*N1-2)/9 ;
9805
for (I3=4*I2+1;I3<=floord(13*I2+1,3);I3++) {
9806
J3 = -I1-2*(I2)+2*I3 ;
9807
S2++;
9808
J3 = I1-(I2)-(I3) ;
9809
S1++;
9810
}
9811
if ((13*I1-1)%18 == 0) {
9812
I3 = (13*I1-1)/18 ;
9813
J1 = -2*I1+3*I3 ;
9814
if ((2*I1+J1)%3 == 0) {
9815
J2 = (2*I1+J1)/3 ;
9816
J3 = 3*I1-4*J2 ;
9817
S1++;
9818
S2++;
9819
}
9820
}
9821
for (I3=ceild(13*I2+3,3);I3<=N1;I3++) {
9822
J3 = I1-(I2)-(I3) ;
9823
S1++;
9824
J3 = -I1-2*(I2)+2*I3 ;
9825
S2++;
9826
}
9827
}
9828
if ((4*N1-1)%18 == 0) {
9829
I2 = (4*N1-1)/18 ;
9830
for (I3=4*I2;I3<=floord(13*I2-1,3);I3++) {
9831
J3 = -I1-2*(I2)+2*I3 ;
9832
S2++;
9833
J3 = I1-(I2)-(I3) ;
9834
S1++;
9835
}
9836
if (13*I1%18 == 0) {
9837
I3 = 13*I1/18 ;
9838
J1 = -2*I1+3*I3 ;
9839
if ((2*I1+J1)%3 == 0) {
9840
J2 = (2*I1+J1)/3 ;
9841
J3 = 3*I1-4*J2 ;
9842
S1++;
9843
S2++;
9844
}
9845
}
9846
for (I3=ceild(13*I2+1,3);I3<=min(N1,5*I2);I3++) {
9847
J3 = I1-(I2)-(I3) ;
9848
S1++;
9849
J3 = -I1-2*(I2)+2*I3 ;
9850
S2++;
9851
}
9852
}
9853
for (I2=ceild(2*N1+1,9);I2<=floord(4*N1-7,12);I2++) {
9854
for (I3=I1-2*I2;I3<=floord(I1+2*I2-1,2);I3++) {
9855
J3 = I1-(I2)-(I3) ;
9856
S1++;
9857
}
9858
for (I3=ceild(I1+2*I2,2);I3<=floord(2*I1+I2-1,3);I3++) {
9859
J3 = -I1-2*(I2)+2*I3 ;
9860
S2++;
9861
J3 = I1-(I2)-(I3) ;
9862
S1++;
9863
}
9864
if ((2*I1+I2)%3 == 0) {
9865
I3 = (2*I1+I2)/3 ;
9866
J1 = -2*I1+3*I3 ;
9867
if ((2*I1+J1)%3 == 0) {
9868
J2 = (2*I1+J1)/3 ;
9869
J3 = 3*I1-4*J2 ;
9870
S1++;
9871
S2++;
9872
}
9873
}
9874
for (I3=ceild(2*I1+I2+1,3);I3<=N1;I3++) {
9875
J3 = I1-(I2)-(I3) ;
9876
S1++;
9877
J3 = -I1-2*(I2)+2*I3 ;
9878
S2++;
9879
}
9880
}
9881
if ((N1-1)%3 == 0) {
9882
I2 = (N1-1)/3 ;
9883
for (I3=ceild(2*N1+1,3);I3<=N1-1;I3++) {
9884
J3 = I1-(I2)-(I3) ;
9885
S1++;
9886
}
9887
if (-1%3 == 0) {
9888
I3 = (3*N1-1)/3 ;
9889
J1 = -2*I1+3*I3 ;
9890
if ((2*I1+J1)%3 == 0) {
9891
J2 = (2*I1+J1)/3 ;
9892
J3 = 3*I1-4*J2 ;
9893
S1++;
9894
S2++;
9895
}
9896
}
9897
J3 = I1-(I2)-(I3) ;
9898
S1++;
9899
J3 = -I1-2*(I2)+2*I3 ;
9900
S2++;
9901
}
9902
for (I2=ceild(N1+2,3);I2<=N1;I2++) {
9903
for (I3=max(max(ceild(I1-I2,2),I1-2*I2),1);I3<=min(I1-I2,N1);I3++) {
9904
J3 = I1-(I2)-(I3) ;
9905
S1++;
9906
}
9907
}
9908
}
9909
}
9910
for (I1=ceild(6*N1+2,5);I1<=min(floord(21*N1-10,17),floord(6*N1+4,5));I1++) {
9911
for (I2=1;I2<=floord(I1-N1-1,2);I2++) {
9912
for (I3=ceild(I1+2*I2,2);I3<=min(N1,floord(2*I1+3*I2,3));I3++) {
9913
J3 = -I1-2*(I2)+2*I3 ;
9914
S2++;
9915
}
9916
}
9917
for (I2=ceild(I1-N1,2);I2<=floord(I1-1,9);I2++) {
9918
for (I3=ceild(I1+2*I2,2);I3<=min(I1-2*I2-1,floord(2*I1+3*I2,3));I3++) {
9919
J3 = -I1-2*(I2)+2*I3 ;
9920
S2++;
9921
}
9922
for (I3=I1-2*I2;I3<=min(N1,I1-I2);I3++) {
9923
J3 = I1-(I2)-(I3) ;
9924
S1++;
9925
}
9926
}
9927
for (I2=ceild(I1,9);I2<=floord(I1-1,7);I2++) {
9928
for (I3=ceild(I1+2*I2,2);I3<=I1-2*I2-1;I3++) {
9929
J3 = -I1-2*(I2)+2*I3 ;
9930
S2++;
9931
}
9932
for (I3=I1-2*I2;I3<=floord(2*I1+3*I2,3);I3++) {
9933
J3 = I1-(I2)-(I3) ;
9934
S1++;
9935
J3 = -I1-2*(I2)+2*I3 ;
9936
S2++;
9937
}
9938
for (I3=ceild(2*I1+3*I2+1,3);I3<=min(N1,I1-I2);I3++) {
9939
J3 = I1-(I2)-(I3) ;
9940
S1++;
9941
}
9942
}
9943
if (I1%7 == 0) {
9944
for (I3=ceild(9*I1/7,2);I3<=5*I1/7-1;I3++) {
9945
J3 = -I1-2*(I2)+2*I3 ;
9946
S2++;
9947
}
9948
if (5*I1%7 == 0) {
9949
I3 = 5*I1/7 ;
9950
J1 = -2*I1+3*I3 ;
9951
if ((2*I1+J1)%3 == 0) {
9952
J2 = (2*I1+J1)/3 ;
9953
J3 = 3*I1-4*J2 ;
9954
S1++;
9955
S2++;
9956
}
9957
}
9958
for (I3=ceild(15*I1/7+1,3);I3<=floord(17*I1/7,3);I3++) {
9959
J3 = I1-(I2)-(I3) ;
9960
S1++;
9961
J3 = -I1-2*(I2)+2*I3 ;
9962
S2++;
9963
}
9964
for (I3=ceild(17*I1/7+1,3);I3<=min(N1,6*I1/7);I3++) {
9965
J3 = I1-(I2)-(I3) ;
9966
S1++;
9967
}
9968
}
9969
for (I2=ceild(I1+1,7);I2<=floord(-2*I1+3*N1-1,3);I2++) {
9970
for (I3=ceild(I1+2*I2,2);I3<=I1-2*I2-1;I3++) {
9971
J3 = -I1-2*(I2)+2*I3 ;
9972
S2++;
9973
}
9974
for (I3=I1-2*I2;I3<=floord(2*I1+I2-1,3);I3++) {
9975
J3 = -I1-2*(I2)+2*I3 ;
9976
S2++;
9977
J3 = I1-(I2)-(I3) ;
9978
S1++;
9979
}
9980
if ((2*I1+I2)%3 == 0) {
9981
I3 = (2*I1+I2)/3 ;
9982
J1 = -2*I1+3*I3 ;
9983
if ((2*I1+J1)%3 == 0) {
9984
J2 = (2*I1+J1)/3 ;
9985
J3 = 3*I1-4*J2 ;
9986
S1++;
9987
S2++;
9988
}
9989
}
9990
for (I3=ceild(2*I1+I2+1,3);I3<=floord(2*I1+3*I2,3);I3++) {
9991
J3 = I1-(I2)-(I3) ;
9992
S1++;
9993
J3 = -I1-2*(I2)+2*I3 ;
9994
S2++;
9995
}
9996
for (I3=ceild(2*I1+3*I2+1,3);I3<=min(N1,I1-I2);I3++) {
9997
J3 = I1-(I2)-(I3) ;
9998
S1++;
9999
}
10000
}
10001
for (I2=ceild(-2*I1+3*N1,3);I2<=floord(I1-2,6);I2++) {
10002
for (I3=ceild(I1+2*I2,2);I3<=I1-2*I2-1;I3++) {
10003
J3 = -I1-2*(I2)+2*I3 ;
10004
S2++;
10005
}
10006
for (I3=I1-2*I2;I3<=floord(2*I1+I2-1,3);I3++) {
10007
J3 = -I1-2*(I2)+2*I3 ;
10008
S2++;
10009
J3 = I1-(I2)-(I3) ;
10010
S1++;
10011
}
10012
if ((2*I1+I2)%3 == 0) {
10013
I3 = (2*I1+I2)/3 ;
10014
J1 = -2*I1+3*I3 ;
10015
if ((2*I1+J1)%3 == 0) {
10016
J2 = (2*I1+J1)/3 ;
10017
J3 = 3*I1-4*J2 ;
10018
S1++;
10019
S2++;
10020
}
10021
}
10022
for (I3=ceild(2*I1+I2+1,3);I3<=N1;I3++) {
10023
J3 = I1-(I2)-(I3) ;
10024
S1++;
10025
J3 = -I1-2*(I2)+2*I3 ;
10026
S2++;
10027
}
10028
}
10029
if (I1%6 == 0) {
10030
for (I3=4*I1/6;I3<=floord(13*I1/6-1,3);I3++) {
10031
J3 = -I1-2*(I2)+2*I3 ;
10032
S2++;
10033
J3 = I1-(I2)-(I3) ;
10034
S1++;
10035
}
10036
if (13*I1%18 == 0) {
10037
I3 = 13*I1/18 ;
10038
J1 = -2*I1+3*I3 ;
10039
if ((2*I1+J1)%3 == 0) {
10040
J2 = (2*I1+J1)/3 ;
10041
J3 = 3*I1-4*J2 ;
10042
S1++;
10043
S2++;
10044
}
10045
}
10046
for (I3=ceild(13*I1/6+1,3);I3<=min(N1,5*I1/6);I3++) {
10047
J3 = I1-(I2)-(I3) ;
10048
S1++;
10049
J3 = -I1-2*(I2)+2*I3 ;
10050
S2++;
10051
}
10052
}
10053
for (I2=ceild(I1+1,6);I2<=I1-N1;I2++) {
10054
for (I3=I1-2*I2;I3<=floord(I1+2*I2-1,2);I3++) {
10055
J3 = I1-(I2)-(I3) ;
10056
S1++;
10057
}
10058
for (I3=ceild(I1+2*I2,2);I3<=floord(2*I1+I2-1,3);I3++) {
10059
J3 = -I1-2*(I2)+2*I3 ;
10060
S2++;
10061
J3 = I1-(I2)-(I3) ;
10062
S1++;
10063
}
10064
if ((2*I1+I2)%3 == 0) {
10065
I3 = (2*I1+I2)/3 ;
10066
J1 = -2*I1+3*I3 ;
10067
if ((2*I1+J1)%3 == 0) {
10068
J2 = (2*I1+J1)/3 ;
10069
J3 = 3*I1-4*J2 ;
10070
S1++;
10071
S2++;
10072
}
10073
}
10074
for (I3=ceild(2*I1+I2+1,3);I3<=N1;I3++) {
10075
J3 = I1-(I2)-(I3) ;
10076
S1++;
10077
J3 = -I1-2*(I2)+2*I3 ;
10078
S2++;
10079
}
10080
}
10081
for (I2=I1-N1+1;I2<=floord(I1-2,4);I2++) {
10082
for (I3=I1-2*I2;I3<=floord(I1+2*I2-1,2);I3++) {
10083
J3 = I1-(I2)-(I3) ;
10084
S1++;
10085
}
10086
for (I3=ceild(I1+2*I2,2);I3<=floord(2*I1+I2-1,3);I3++) {
10087
J3 = -I1-2*(I2)+2*I3 ;
10088
S2++;
10089
J3 = I1-(I2)-(I3) ;
10090
S1++;
10091
}
10092
if ((2*I1+I2)%3 == 0) {
10093
I3 = (2*I1+I2)/3 ;
10094
J1 = -2*I1+3*I3 ;
10095
if ((2*I1+J1)%3 == 0) {
10096
J2 = (2*I1+J1)/3 ;
10097
J3 = 3*I1-4*J2 ;
10098
S1++;
10099
S2++;
10100
}
10101
}
10102
for (I3=ceild(2*I1+I2+1,3);I3<=I1-I2;I3++) {
10103
J3 = I1-(I2)-(I3) ;
10104
S1++;
10105
J3 = -I1-2*(I2)+2*I3 ;
10106
S2++;
10107
}
10108
for (I3=I1-I2+1;I3<=min(N1,floord(2*I1+3*I2,3));I3++) {
10109
J3 = -I1-2*(I2)+2*I3 ;
10110
S2++;
10111
}
10112
}
10113
if ((I1-1)%4 == 0) {
10114
I2 = (I1-1)/4 ;
10115
for (I3=2*I2+1;I3<=3*I2;I3++) {
10116
J3 = I1-(I2)-(I3) ;
10117
S1++;
10118
}
10119
if ((9*I1-1)%12 == 0) {
10120
I3 = (9*I1-1)/12 ;
10121
J1 = -2*I1+3*I3 ;
10122
if ((2*I1+J1)%3 == 0) {
10123
J2 = (2*I1+J1)/3 ;
10124
J3 = 3*I1-4*J2 ;
10125
S1++;
10126
S2++;
10127
}
10128
}
10129
if ((3*I1+1)%4 == 0) {
10130
I3 = (3*I1+1)/4 ;
10131
J3 = I1-(I2)-(I3) ;
10132
S1++;
10133
J3 = -I1-2*(I2)+2*I3 ;
10134
S2++;
10135
}
10136
for (I3=3*I2+2;I3<=min(N1,floord(11*I2+2,3));I3++) {
10137
J3 = -I1-2*(I2)+2*I3 ;
10138
S2++;
10139
}
10140
}
10141
if (I1%4 == 0) {
10142
for (I3=2*I1/4;I3<=floord(6*I1/4-1,2);I3++) {
10143
J3 = I1-(I2)-(I3) ;
10144
S1++;
10145
}
10146
if (3*I1%4 == 0) {
10147
I3 = 3*I1/4 ;
10148
J1 = -2*I1+3*I3 ;
10149
if ((2*I1+J1)%3 == 0) {
10150
J2 = (2*I1+J1)/3 ;
10151
J3 = 3*I1-4*J2 ;
10152
S1++;
10153
S2++;
10154
}
10155
}
10156
for (I3=3*I1/4+1;I3<=min(N1,floord(11*I1/4,3));I3++) {
10157
J3 = -I1-2*(I2)+2*I3 ;
10158
S2++;
10159
}
10160
}
10161
for (I2=ceild(I1+1,4);I2<=floord(-I1+2*N1,2);I2++) {
10162
for (I3=max(max(1,ceild(I1-I2,2)),I1-2*I2);I3<=I1-I2;I3++) {
10163
J3 = I1-(I2)-(I3) ;
10164
S1++;
10165
}
10166
for (I3=max(I1-I2+1,ceild(I1+2*I2,2));I3<=min(N1,floord(2*I1+3*I2,3));I3++) {
10167
J3 = -I1-2*(I2)+2*I3 ;
10168
S2++;
10169
}
10170
}
10171
for (I2=ceild(-I1+2*N1+1,2);I2<=N1;I2++) {
10172
for (I3=max(max(ceild(I1-I2,2),I1-2*I2),1);I3<=min(I1-I2,N1);I3++) {
10173
J3 = I1-(I2)-(I3) ;
10174
S1++;
10175
}
10176
}
10177
}
10178
if ((N1 <= 14) && (N1 >= 11)) {
10179
if (4*N1%3 == 0) {
10180
I1 = 4*N1/3 ;
10181
for (I2=1;I2<=floord(N1-3,6);I2++) {
10182
for (I3=ceild(I1+2*I2,2);I3<=min(N1,floord(2*I1+3*I2,3));I3++) {
10183
J3 = -I1-2*(I2)+2*I3 ;
10184
S2++;
10185
}
10186
}
10187
for (I2=ceild(N1,6);I2<=floord(4*N1-3,21);I2++) {
10188
for (I3=ceild(I1+2*I2,2);I3<=I1-2*I2-1;I3++) {
10189
J3 = -I1-2*(I2)+2*I3 ;
10190
S2++;
10191
}
10192
for (I3=I1-2*I2;I3<=N1;I3++) {
10193
J3 = I1-(I2)-(I3) ;
10194
S1++;
10195
J3 = -I1-2*(I2)+2*I3 ;
10196
S2++;
10197
}
10198
}
10199
if (4*N1%21 == 0) {
10200
I2 = 4*N1/21 ;
10201
for (I3=ceild(9*I2,2);I3<=5*I2-1;I3++) {
10202
J3 = -I1-2*(I2)+2*I3 ;
10203
S2++;
10204
}
10205
if (5*I1%7 == 0) {
10206
I3 = 5*I1/7 ;
10207
J1 = -2*I1+3*I3 ;
10208
if ((2*I1+J1)%3 == 0) {
10209
J2 = (2*I1+J1)/3 ;
10210
J3 = 3*I1-4*J2 ;
10211
S1++;
10212
S2++;
10213
}
10214
}
10215
for (I3=ceild(15*I2+1,3);I3<=N1;I3++) {
10216
J3 = I1-(I2)-(I3) ;
10217
S1++;
10218
J3 = -I1-2*(I2)+2*I3 ;
10219
S2++;
10220
}
10221
}
10222
if ((4*N1-3)%18 == 0) {
10223
I2 = (4*N1-3)/18 ;
10224
for (I3=4*I2+1;I3<=floord(13*I2+1,3);I3++) {
10225
J3 = -I1-2*(I2)+2*I3 ;
10226
S2++;
10227
J3 = I1-(I2)-(I3) ;
10228
S1++;
10229
}
10230
if ((13*I1-1)%18 == 0) {
10231
I3 = (13*I1-1)/18 ;
10232
J1 = -2*I1+3*I3 ;
10233
if ((2*I1+J1)%3 == 0) {
10234
J2 = (2*I1+J1)/3 ;
10235
J3 = 3*I1-4*J2 ;
10236
S1++;
10237
S2++;
10238
}
10239
}
10240
for (I3=ceild(13*I2+3,3);I3<=N1;I3++) {
10241
J3 = I1-(I2)-(I3) ;
10242
S1++;
10243
J3 = -I1-2*(I2)+2*I3 ;
10244
S2++;
10245
}
10246
}
10247
if (2*N1%9 == 0) {
10248
I2 = 2*N1/9 ;
10249
for (I3=4*I2;I3<=floord(13*I2-1,3);I3++) {
10250
J3 = -I1-2*(I2)+2*I3 ;
10251
S2++;
10252
J3 = I1-(I2)-(I3) ;
10253
S1++;
10254
}
10255
if (13*I1%18 == 0) {
10256
I3 = 13*I1/18 ;
10257
J1 = -2*I1+3*I3 ;
10258
if ((2*I1+J1)%3 == 0) {
10259
J2 = (2*I1+J1)/3 ;
10260
J3 = 3*I1-4*J2 ;
10261
S1++;
10262
S2++;
10263
}
10264
}
10265
for (I3=ceild(13*I2+1,3);I3<=min(N1,5*I2);I3++) {
10266
J3 = I1-(I2)-(I3) ;
10267
S1++;
10268
J3 = -I1-2*(I2)+2*I3 ;
10269
S2++;
10270
}
10271
}
10272
for (I2=ceild(4*N1+3,18);I2<=floord(N1-3,3);I2++) {
10273
for (I3=I1-2*I2;I3<=floord(I1+2*I2-1,2);I3++) {
10274
J3 = I1-(I2)-(I3) ;
10275
S1++;
10276
}
10277
for (I3=ceild(I1+2*I2,2);I3<=floord(2*I1+I2-1,3);I3++) {
10278
J3 = -I1-2*(I2)+2*I3 ;
10279
S2++;
10280
J3 = I1-(I2)-(I3) ;
10281
S1++;
10282
}
10283
if ((2*I1+I2)%3 == 0) {
10284
I3 = (2*I1+I2)/3 ;
10285
J1 = -2*I1+3*I3 ;
10286
if ((2*I1+J1)%3 == 0) {
10287
J2 = (2*I1+J1)/3 ;
10288
J3 = 3*I1-4*J2 ;
10289
S1++;
10290
S2++;
10291
}
10292
}
10293
for (I3=ceild(2*I1+I2+1,3);I3<=N1;I3++) {
10294
J3 = I1-(I2)-(I3) ;
10295
S1++;
10296
J3 = -I1-2*(I2)+2*I3 ;
10297
S2++;
10298
}
10299
}
10300
if (N1%3 == 0) {
10301
for (I3=ceild(2*N1,3);I3<=floord(2*N1-1,2);I3++) {
10302
J3 = I1-(I2)-(I3) ;
10303
S1++;
10304
}
10305
J1 = -2*I1+3*N1 ;
10306
if ((2*I1+J1)%3 == 0) {
10307
J2 = (2*I1+J1)/3 ;
10308
J3 = 3*I1-4*J2 ;
10309
S1++;
10310
S2++;
10311
}
10312
}
10313
for (I2=ceild(2*N1+3,6);I2<=N1;I2++) {
10314
for (I3=max(max(ceild(I1-I2,2),I1-2*I2),1);I3<=min(I1-I2,N1);I3++) {
10315
J3 = I1-(I2)-(I3) ;
10316
S1++;
10317
}
10318
}
10319
}
10320
}
10321
for (I1=ceild(6*N1+5,5);I1<=floord(21*N1-10,17);I1++) {
10322
for (I2=1;I2<=floord(I1-N1-1,2);I2++) {
10323
for (I3=ceild(I1+2*I2,2);I3<=min(N1,floord(2*I1+3*I2,3));I3++) {
10324
J3 = -I1-2*(I2)+2*I3 ;
10325
S2++;
10326
}
10327
}
10328
for (I2=ceild(I1-N1,2);I2<=floord(I1-1,9);I2++) {
10329
for (I3=ceild(I1+2*I2,2);I3<=min(I1-2*I2-1,floord(2*I1+3*I2,3));I3++) {
10330
J3 = -I1-2*(I2)+2*I3 ;
10331
S2++;
10332
}
10333
for (I3=I1-2*I2;I3<=min(N1,I1-I2);I3++) {
10334
J3 = I1-(I2)-(I3) ;
10335
S1++;
10336
}
10337
}
10338
for (I2=ceild(I1,9);I2<=floord(I1-1,7);I2++) {
10339
for (I3=ceild(I1+2*I2,2);I3<=I1-2*I2-1;I3++) {
10340
J3 = -I1-2*(I2)+2*I3 ;
10341
S2++;
10342
}
10343
for (I3=I1-2*I2;I3<=floord(2*I1+3*I2,3);I3++) {
10344
J3 = I1-(I2)-(I3) ;
10345
S1++;
10346
J3 = -I1-2*(I2)+2*I3 ;
10347
S2++;
10348
}
10349
for (I3=ceild(2*I1+3*I2+1,3);I3<=min(N1,I1-I2);I3++) {
10350
J3 = I1-(I2)-(I3) ;
10351
S1++;
10352
}
10353
}
10354
if (I1%7 == 0) {
10355
for (I3=ceild(9*I1/7,2);I3<=5*I1/7-1;I3++) {
10356
J3 = -I1-2*(I2)+2*I3 ;
10357
S2++;
10358
}
10359
if (5*I1%7 == 0) {
10360
I3 = 5*I1/7 ;
10361
J1 = -2*I1+3*I3 ;
10362
if ((2*I1+J1)%3 == 0) {
10363
J2 = (2*I1+J1)/3 ;
10364
J3 = 3*I1-4*J2 ;
10365
S1++;
10366
S2++;
10367
}
10368
}
10369
for (I3=ceild(15*I1/7+1,3);I3<=floord(17*I1/7,3);I3++) {
10370
J3 = I1-(I2)-(I3) ;
10371
S1++;
10372
J3 = -I1-2*(I2)+2*I3 ;
10373
S2++;
10374
}
10375
for (I3=ceild(17*I1/7+1,3);I3<=min(N1,6*I1/7);I3++) {
10376
J3 = I1-(I2)-(I3) ;
10377
S1++;
10378
}
10379
}
10380
for (I2=ceild(I1+1,7);I2<=floord(-2*I1+3*N1-1,3);I2++) {
10381
for (I3=ceild(I1+2*I2,2);I3<=I1-2*I2-1;I3++) {
10382
J3 = -I1-2*(I2)+2*I3 ;
10383
S2++;
10384
}
10385
for (I3=I1-2*I2;I3<=floord(2*I1+I2-1,3);I3++) {
10386
J3 = -I1-2*(I2)+2*I3 ;
10387
S2++;
10388
J3 = I1-(I2)-(I3) ;
10389
S1++;
10390
}
10391
if ((2*I1+I2)%3 == 0) {
10392
I3 = (2*I1+I2)/3 ;
10393
J1 = -2*I1+3*I3 ;
10394
if ((2*I1+J1)%3 == 0) {
10395
J2 = (2*I1+J1)/3 ;
10396
J3 = 3*I1-4*J2 ;
10397
S1++;
10398
S2++;
10399
}
10400
}
10401
for (I3=ceild(2*I1+I2+1,3);I3<=floord(2*I1+3*I2,3);I3++) {
10402
J3 = I1-(I2)-(I3) ;
10403
S1++;
10404
J3 = -I1-2*(I2)+2*I3 ;
10405
S2++;
10406
}
10407
for (I3=ceild(2*I1+3*I2+1,3);I3<=min(N1,I1-I2);I3++) {
10408
J3 = I1-(I2)-(I3) ;
10409
S1++;
10410
}
10411
}
10412
for (I2=ceild(-2*I1+3*N1,3);I2<=floord(I1-2,6);I2++) {
10413
for (I3=ceild(I1+2*I2,2);I3<=I1-2*I2-1;I3++) {
10414
J3 = -I1-2*(I2)+2*I3 ;
10415
S2++;
10416
}
10417
for (I3=I1-2*I2;I3<=floord(2*I1+I2-1,3);I3++) {
10418
J3 = -I1-2*(I2)+2*I3 ;
10419
S2++;
10420
J3 = I1-(I2)-(I3) ;
10421
S1++;
10422
}
10423
if ((2*I1+I2)%3 == 0) {
10424
I3 = (2*I1+I2)/3 ;
10425
J1 = -2*I1+3*I3 ;
10426
if ((2*I1+J1)%3 == 0) {
10427
J2 = (2*I1+J1)/3 ;
10428
J3 = 3*I1-4*J2 ;
10429
S1++;
10430
S2++;
10431
}
10432
}
10433
for (I3=ceild(2*I1+I2+1,3);I3<=N1;I3++) {
10434
J3 = I1-(I2)-(I3) ;
10435
S1++;
10436
J3 = -I1-2*(I2)+2*I3 ;
10437
S2++;
10438
}
10439
}
10440
if ((I1-1)%6 == 0) {
10441
I2 = (I1-1)/6 ;
10442
for (I3=4*I2+1;I3<=floord(13*I2+1,3);I3++) {
10443
J3 = -I1-2*(I2)+2*I3 ;
10444
S2++;
10445
J3 = I1-(I2)-(I3) ;
10446
S1++;
10447
}
10448
if ((13*I1-1)%18 == 0) {
10449
I3 = (13*I1-1)/18 ;
10450
J1 = -2*I1+3*I3 ;
10451
if ((2*I1+J1)%3 == 0) {
10452
J2 = (2*I1+J1)/3 ;
10453
J3 = 3*I1-4*J2 ;
10454
S1++;
10455
S2++;
10456
}
10457
}
10458
for (I3=ceild(13*I2+3,3);I3<=N1;I3++) {
10459
J3 = I1-(I2)-(I3) ;
10460
S1++;
10461
J3 = -I1-2*(I2)+2*I3 ;
10462
S2++;
10463
}
10464
}
10465
if (I1%6 == 0) {
10466
for (I3=4*I1/6;I3<=floord(13*I1/6-1,3);I3++) {
10467
J3 = -I1-2*(I2)+2*I3 ;
10468
S2++;
10469
J3 = I1-(I2)-(I3) ;
10470
S1++;
10471
}
10472
if (13*I1%18 == 0) {
10473
I3 = 13*I1/18 ;
10474
J1 = -2*I1+3*I3 ;
10475
if ((2*I1+J1)%3 == 0) {
10476
J2 = (2*I1+J1)/3 ;
10477
J3 = 3*I1-4*J2 ;
10478
S1++;
10479
S2++;
10480
}
10481
}
10482
for (I3=ceild(13*I1/6+1,3);I3<=min(N1,5*I1/6);I3++) {
10483
J3 = I1-(I2)-(I3) ;
10484
S1++;
10485
J3 = -I1-2*(I2)+2*I3 ;
10486
S2++;
10487
}
10488
}
10489
for (I2=ceild(I1+1,6);I2<=I1-N1;I2++) {
10490
for (I3=I1-2*I2;I3<=floord(I1+2*I2-1,2);I3++) {
10491
J3 = I1-(I2)-(I3) ;
10492
S1++;
10493
}
10494
for (I3=ceild(I1+2*I2,2);I3<=floord(2*I1+I2-1,3);I3++) {
10495
J3 = -I1-2*(I2)+2*I3 ;
10496
S2++;
10497
J3 = I1-(I2)-(I3) ;
10498
S1++;
10499
}
10500
if ((2*I1+I2)%3 == 0) {
10501
I3 = (2*I1+I2)/3 ;
10502
J1 = -2*I1+3*I3 ;
10503
if ((2*I1+J1)%3 == 0) {
10504
J2 = (2*I1+J1)/3 ;
10505
J3 = 3*I1-4*J2 ;
10506
S1++;
10507
S2++;
10508
}
10509
}
10510
for (I3=ceild(2*I1+I2+1,3);I3<=N1;I3++) {
10511
J3 = I1-(I2)-(I3) ;
10512
S1++;
10513
J3 = -I1-2*(I2)+2*I3 ;
10514
S2++;
10515
}
10516
}
10517
for (I2=I1-N1+1;I2<=floord(I1-2,4);I2++) {
10518
for (I3=I1-2*I2;I3<=floord(I1+2*I2-1,2);I3++) {
10519
J3 = I1-(I2)-(I3) ;
10520
S1++;
10521
}
10522
for (I3=ceild(I1+2*I2,2);I3<=floord(2*I1+I2-1,3);I3++) {
10523
J3 = -I1-2*(I2)+2*I3 ;
10524
S2++;
10525
J3 = I1-(I2)-(I3) ;
10526
S1++;
10527
}
10528
if ((2*I1+I2)%3 == 0) {
10529
I3 = (2*I1+I2)/3 ;
10530
J1 = -2*I1+3*I3 ;
10531
if ((2*I1+J1)%3 == 0) {
10532
J2 = (2*I1+J1)/3 ;
10533
J3 = 3*I1-4*J2 ;
10534
S1++;
10535
S2++;
10536
}
10537
}
10538
for (I3=ceild(2*I1+I2+1,3);I3<=I1-I2;I3++) {
10539
J3 = I1-(I2)-(I3) ;
10540
S1++;
10541
J3 = -I1-2*(I2)+2*I3 ;
10542
S2++;
10543
}
10544
for (I3=I1-I2+1;I3<=min(N1,floord(2*I1+3*I2,3));I3++) {
10545
J3 = -I1-2*(I2)+2*I3 ;
10546
S2++;
10547
}
10548
}
10549
if ((I1-1)%4 == 0) {
10550
I2 = (I1-1)/4 ;
10551
for (I3=2*I2+1;I3<=3*I2;I3++) {
10552
J3 = I1-(I2)-(I3) ;
10553
S1++;
10554
}
10555
if ((9*I1-1)%12 == 0) {
10556
I3 = (9*I1-1)/12 ;
10557
J1 = -2*I1+3*I3 ;
10558
if ((2*I1+J1)%3 == 0) {
10559
J2 = (2*I1+J1)/3 ;
10560
J3 = 3*I1-4*J2 ;
10561
S1++;
10562
S2++;
10563
}
10564
}
10565
if ((3*I1+1)%4 == 0) {
10566
I3 = (3*I1+1)/4 ;
10567
J3 = I1-(I2)-(I3) ;
10568
S1++;
10569
J3 = -I1-2*(I2)+2*I3 ;
10570
S2++;
10571
}
10572
for (I3=3*I2+2;I3<=min(N1,floord(11*I2+2,3));I3++) {
10573
J3 = -I1-2*(I2)+2*I3 ;
10574
S2++;
10575
}
10576
}
10577
if (I1%4 == 0) {
10578
for (I3=2*I1/4;I3<=floord(6*I1/4-1,2);I3++) {
10579
J3 = I1-(I2)-(I3) ;
10580
S1++;
10581
}
10582
if (3*I1%4 == 0) {
10583
I3 = 3*I1/4 ;
10584
J1 = -2*I1+3*I3 ;
10585
if ((2*I1+J1)%3 == 0) {
10586
J2 = (2*I1+J1)/3 ;
10587
J3 = 3*I1-4*J2 ;
10588
S1++;
10589
S2++;
10590
}
10591
}
10592
for (I3=3*I1/4+1;I3<=min(N1,floord(11*I1/4,3));I3++) {
10593
J3 = -I1-2*(I2)+2*I3 ;
10594
S2++;
10595
}
10596
}
10597
for (I2=ceild(I1+1,4);I2<=floord(-I1+2*N1,2);I2++) {
10598
for (I3=max(max(1,ceild(I1-I2,2)),I1-2*I2);I3<=I1-I2;I3++) {
10599
J3 = I1-(I2)-(I3) ;
10600
S1++;
10601
}
10602
for (I3=max(I1-I2+1,ceild(I1+2*I2,2));I3<=min(N1,floord(2*I1+3*I2,3));I3++) {
10603
J3 = -I1-2*(I2)+2*I3 ;
10604
S2++;
10605
}
10606
}
10607
for (I2=ceild(-I1+2*N1+1,2);I2<=N1;I2++) {
10608
for (I3=max(max(ceild(I1-I2,2),I1-2*I2),1);I3<=min(I1-I2,N1);I3++) {
10609
J3 = I1-(I2)-(I3) ;
10610
S1++;
10611
}
10612
}
10613
}
10614
for (I1=max(ceild(21*N1-9,17),ceild(6*N1+2,5));I1<=min(floord(21*N1-7,17),floord(6*N1+4,5));I1++) {
10615
for (I2=1;I2<=floord(I1-N1-1,2);I2++) {
10616
for (I3=ceild(I1+2*I2,2);I3<=min(N1,floord(2*I1+3*I2,3));I3++) {
10617
J3 = -I1-2*(I2)+2*I3 ;
10618
S2++;
10619
}
10620
}
10621
for (I2=ceild(I1-N1,2);I2<=floord(I1-1,9);I2++) {
10622
for (I3=ceild(I1+2*I2,2);I3<=min(I1-2*I2-1,floord(2*I1+3*I2,3));I3++) {
10623
J3 = -I1-2*(I2)+2*I3 ;
10624
S2++;
10625
}
10626
for (I3=I1-2*I2;I3<=min(N1,I1-I2);I3++) {
10627
J3 = I1-(I2)-(I3) ;
10628
S1++;
10629
}
10630
}
10631
for (I2=ceild(I1,9);I2<=floord(I1-1,7);I2++) {
10632
for (I3=ceild(I1+2*I2,2);I3<=I1-2*I2-1;I3++) {
10633
J3 = -I1-2*(I2)+2*I3 ;
10634
S2++;
10635
}
10636
for (I3=I1-2*I2;I3<=floord(2*I1+3*I2,3);I3++) {
10637
J3 = I1-(I2)-(I3) ;
10638
S1++;
10639
J3 = -I1-2*(I2)+2*I3 ;
10640
S2++;
10641
}
10642
for (I3=ceild(2*I1+3*I2+1,3);I3<=min(N1,I1-I2);I3++) {
10643
J3 = I1-(I2)-(I3) ;
10644
S1++;
10645
}
10646
}
10647
if (I1%7 == 0) {
10648
for (I3=ceild(9*I1/7,2);I3<=5*I1/7-1;I3++) {
10649
J3 = -I1-2*(I2)+2*I3 ;
10650
S2++;
10651
}
10652
if (5*I1%7 == 0) {
10653
I3 = 5*I1/7 ;
10654
J1 = -2*I1+3*I3 ;
10655
if ((2*I1+J1)%3 == 0) {
10656
J2 = (2*I1+J1)/3 ;
10657
J3 = 3*I1-4*J2 ;
10658
S1++;
10659
S2++;
10660
}
10661
}
10662
for (I3=ceild(15*I1/7+1,3);I3<=floord(17*I1/7,3);I3++) {
10663
J3 = I1-(I2)-(I3) ;
10664
S1++;
10665
J3 = -I1-2*(I2)+2*I3 ;
10666
S2++;
10667
}
10668
for (I3=ceild(17*I1/7+1,3);I3<=min(N1,6*I1/7);I3++) {
10669
J3 = I1-(I2)-(I3) ;
10670
S1++;
10671
}
10672
}
10673
for (I2=ceild(-2*I1+3*N1,3);I2<=floord(I1-2,6);I2++) {
10674
for (I3=ceild(I1+2*I2,2);I3<=I1-2*I2-1;I3++) {
10675
J3 = -I1-2*(I2)+2*I3 ;
10676
S2++;
10677
}
10678
for (I3=I1-2*I2;I3<=floord(2*I1+I2-1,3);I3++) {
10679
J3 = -I1-2*(I2)+2*I3 ;
10680
S2++;
10681
J3 = I1-(I2)-(I3) ;
10682
S1++;
10683
}
10684
if ((2*I1+I2)%3 == 0) {
10685
I3 = (2*I1+I2)/3 ;
10686
J1 = -2*I1+3*I3 ;
10687
if ((2*I1+J1)%3 == 0) {
10688
J2 = (2*I1+J1)/3 ;
10689
J3 = 3*I1-4*J2 ;
10690
S1++;
10691
S2++;
10692
}
10693
}
10694
for (I3=ceild(2*I1+I2+1,3);I3<=N1;I3++) {
10695
J3 = I1-(I2)-(I3) ;
10696
S1++;
10697
J3 = -I1-2*(I2)+2*I3 ;
10698
S2++;
10699
}
10700
}
10701
if (I1%6 == 0) {
10702
for (I3=4*I1/6;I3<=floord(13*I1/6-1,3);I3++) {
10703
J3 = -I1-2*(I2)+2*I3 ;
10704
S2++;
10705
J3 = I1-(I2)-(I3) ;
10706
S1++;
10707
}
10708
if (13*I1%18 == 0) {
10709
I3 = 13*I1/18 ;
10710
J1 = -2*I1+3*I3 ;
10711
if ((2*I1+J1)%3 == 0) {
10712
J2 = (2*I1+J1)/3 ;
10713
J3 = 3*I1-4*J2 ;
10714
S1++;
10715
S2++;
10716
}
10717
}
10718
for (I3=ceild(13*I1/6+1,3);I3<=min(N1,5*I1/6);I3++) {
10719
J3 = I1-(I2)-(I3) ;
10720
S1++;
10721
J3 = -I1-2*(I2)+2*I3 ;
10722
S2++;
10723
}
10724
}
10725
for (I2=ceild(I1+1,6);I2<=I1-N1;I2++) {
10726
for (I3=I1-2*I2;I3<=floord(I1+2*I2-1,2);I3++) {
10727
J3 = I1-(I2)-(I3) ;
10728
S1++;
10729
}
10730
for (I3=ceild(I1+2*I2,2);I3<=floord(2*I1+I2-1,3);I3++) {
10731
J3 = -I1-2*(I2)+2*I3 ;
10732
S2++;
10733
J3 = I1-(I2)-(I3) ;
10734
S1++;
10735
}
10736
if ((2*I1+I2)%3 == 0) {
10737
I3 = (2*I1+I2)/3 ;
10738
J1 = -2*I1+3*I3 ;
10739
if ((2*I1+J1)%3 == 0) {
10740
J2 = (2*I1+J1)/3 ;
10741
J3 = 3*I1-4*J2 ;
10742
S1++;
10743
S2++;
10744
}
10745
}
10746
for (I3=ceild(2*I1+I2+1,3);I3<=N1;I3++) {
10747
J3 = I1-(I2)-(I3) ;
10748
S1++;
10749
J3 = -I1-2*(I2)+2*I3 ;
10750
S2++;
10751
}
10752
}
10753
for (I2=I1-N1+1;I2<=floord(I1-2,4);I2++) {
10754
for (I3=I1-2*I2;I3<=floord(I1+2*I2-1,2);I3++) {
10755
J3 = I1-(I2)-(I3) ;
10756
S1++;
10757
}
10758
for (I3=ceild(I1+2*I2,2);I3<=floord(2*I1+I2-1,3);I3++) {
10759
J3 = -I1-2*(I2)+2*I3 ;
10760
S2++;
10761
J3 = I1-(I2)-(I3) ;
10762
S1++;
10763
}
10764
if ((2*I1+I2)%3 == 0) {
10765
I3 = (2*I1+I2)/3 ;
10766
J1 = -2*I1+3*I3 ;
10767
if ((2*I1+J1)%3 == 0) {
10768
J2 = (2*I1+J1)/3 ;
10769
J3 = 3*I1-4*J2 ;
10770
S1++;
10771
S2++;
10772
}
10773
}
10774
for (I3=ceild(2*I1+I2+1,3);I3<=I1-I2;I3++) {
10775
J3 = I1-(I2)-(I3) ;
10776
S1++;
10777
J3 = -I1-2*(I2)+2*I3 ;
10778
S2++;
10779
}
10780
for (I3=I1-I2+1;I3<=min(N1,floord(2*I1+3*I2,3));I3++) {
10781
J3 = -I1-2*(I2)+2*I3 ;
10782
S2++;
10783
}
10784
}
10785
if ((I1-1)%4 == 0) {
10786
I2 = (I1-1)/4 ;
10787
for (I3=2*I2+1;I3<=3*I2;I3++) {
10788
J3 = I1-(I2)-(I3) ;
10789
S1++;
10790
}
10791
if ((9*I1-1)%12 == 0) {
10792
I3 = (9*I1-1)/12 ;
10793
J1 = -2*I1+3*I3 ;
10794
if ((2*I1+J1)%3 == 0) {
10795
J2 = (2*I1+J1)/3 ;
10796
J3 = 3*I1-4*J2 ;
10797
S1++;
10798
S2++;
10799
}
10800
}
10801
if ((3*I1+1)%4 == 0) {
10802
I3 = (3*I1+1)/4 ;
10803
J3 = I1-(I2)-(I3) ;
10804
S1++;
10805
J3 = -I1-2*(I2)+2*I3 ;
10806
S2++;
10807
}
10808
for (I3=3*I2+2;I3<=min(N1,floord(11*I2+2,3));I3++) {
10809
J3 = -I1-2*(I2)+2*I3 ;
10810
S2++;
10811
}
10812
}
10813
if (I1%4 == 0) {
10814
for (I3=2*I1/4;I3<=floord(6*I1/4-1,2);I3++) {
10815
J3 = I1-(I2)-(I3) ;
10816
S1++;
10817
}
10818
if (3*I1%4 == 0) {
10819
I3 = 3*I1/4 ;
10820
J1 = -2*I1+3*I3 ;
10821
if ((2*I1+J1)%3 == 0) {
10822
J2 = (2*I1+J1)/3 ;
10823
J3 = 3*I1-4*J2 ;
10824
S1++;
10825
S2++;
10826
}
10827
}
10828
for (I3=3*I1/4+1;I3<=min(N1,floord(11*I1/4,3));I3++) {
10829
J3 = -I1-2*(I2)+2*I3 ;
10830
S2++;
10831
}
10832
}
10833
for (I2=ceild(I1+1,4);I2<=floord(-I1+2*N1,2);I2++) {
10834
for (I3=max(max(1,ceild(I1-I2,2)),I1-2*I2);I3<=I1-I2;I3++) {
10835
J3 = I1-(I2)-(I3) ;
10836
S1++;
10837
}
10838
for (I3=max(I1-I2+1,ceild(I1+2*I2,2));I3<=min(N1,floord(2*I1+3*I2,3));I3++) {
10839
J3 = -I1-2*(I2)+2*I3 ;
10840
S2++;
10841
}
10842
}
10843
for (I2=ceild(-I1+2*N1+1,2);I2<=N1;I2++) {
10844
for (I3=max(max(ceild(I1-I2,2),I1-2*I2),1);I3<=min(I1-I2,N1);I3++) {
10845
J3 = I1-(I2)-(I3) ;
10846
S1++;
10847
}
10848
}
10849
}
10850
if (N1 == 14) {
10851
for (I2=1;I2<=2;I2++) {
10852
for (I3=ceild(19+2*I2,2);I3<=min(N1,floord(2*19+3*I2,3));I3++) {
10853
J3 = -(19)-2*(I2)+2*I3 ;
10854
S2++;
10855
}
10856
}
10857
for (I2=3;I2<=2;I2++) {
10858
for (I3=ceild(19+2*I2,2);I3<=19-2*I2-1;I3++) {
10859
J3 = -(19)-2*(I2)+2*I3 ;
10860
S2++;
10861
}
10862
for (I3=19-2*I2;I3<=N1;I3++) {
10863
J3 = 19-(I2)-(I3) ;
10864
S1++;
10865
J3 = -(19)-2*(I2)+2*I3 ;
10866
S2++;
10867
}
10868
}
10869
if (19%7 == 0) {
10870
for (I3=ceild(9*19/7,2);I3<=5*19/7-1;I3++) {
10871
J3 = -(19)-2*(I2)+2*I3 ;
10872
S2++;
10873
}
10874
if (5*19%7 == 0) {
10875
I3 = 5*19/7 ;
10876
J1 = -2*(19)+3*I3 ;
10877
if ((2*19+J1)%3 == 0) {
10878
J2 = (2*19+J1)/3 ;
10879
J3 = 3*19-4*J2 ;
10880
S1++;
10881
S2++;
10882
}
10883
}
10884
for (I3=ceild(15*19/7+1,3);I3<=N1;I3++) {
10885
J3 = 19-(I2)-(I3) ;
10886
S1++;
10887
J3 = -(19)-2*(I2)+2*I3 ;
10888
S2++;
10889
}
10890
}
10891
for (I3=4*3+1;I3<=floord(13*3+1,3);I3++) {
10892
J3 = -(19)-2*(I2)+2*I3 ;
10893
S2++;
10894
J3 = 19-(I2)-(I3) ;
10895
S1++;
10896
}
10897
if ((13*19-1)%18 == 0) {
10898
I3 = (13*19-1)/18 ;
10899
J1 = -2*(19)+3*I3 ;
10900
if ((2*19+J1)%3 == 0) {
10901
J2 = (2*19+J1)/3 ;
10902
J3 = 3*19-4*J2 ;
10903
S1++;
10904
S2++;
10905
}
10906
}
10907
for (I3=ceild(13*3+3,3);I3<=N1;I3++) {
10908
J3 = 19-(I2)-(I3) ;
10909
S1++;
10910
J3 = -(19)-2*(I2)+2*I3 ;
10911
S2++;
10912
}
10913
for (I3=ceild(-5*(4)+3*N1,2);I3<=floord(3*4+3*N1-2,4);I3++) {
10914
J3 = 19-(I2)-(I3) ;
10915
S1++;
10916
}
10917
for (I3=ceild(3*4+3*N1,4);I3<=floord(3*N1-1,3);I3++) {
10918
J3 = -(19)-2*(I2)+2*I3 ;
10919
S2++;
10920
J3 = 19-(I2)-(I3) ;
10921
S1++;
10922
}
10923
J1 = -2*(19)+3*N1 ;
10924
if ((2*19+J1)%3 == 0) {
10925
J2 = (2*19+J1)/3 ;
10926
J3 = 3*19-4*J2 ;
10927
S1++;
10928
S2++;
10929
}
10930
for (I2=5;I2<=14;I2++) {
10931
for (I3=max(max(ceild(19-I2,2),19-2*I2),1);I3<=min(19-I2,N1);I3++) {
10932
J3 = 19-(I2)-(I3) ;
10933
S1++;
10934
}
10935
}
10936
}
10937
if (N1 == 11) {
10938
for (I3=ceild(15+2*1,2);I3<=min(N1,floord(2*15+3*1,3));I3++) {
10939
J3 = -(15)-2*(I2)+2*I3 ;
10940
S2++;
10941
}
10942
for (I3=ceild(15+2*2,2);I3<=15-2*(2)-1;I3++) {
10943
J3 = -(15)-2*(I2)+2*I3 ;
10944
S2++;
10945
}
10946
for (I3=15-2*(2);I3<=N1;I3++) {
10947
J3 = 15-(I2)-(I3) ;
10948
S1++;
10949
J3 = -(15)-2*(I2)+2*I3 ;
10950
S2++;
10951
}
10952
for (I3=ceild(-5*(3)+3*N1,2);I3<=floord(3*3+3*N1-2,4);I3++) {
10953
J3 = 15-(I2)-(I3) ;
10954
S1++;
10955
}
10956
for (I3=ceild(3*3+3*N1,4);I3<=floord(3*N1-1,3);I3++) {
10957
J3 = -(15)-2*(I2)+2*I3 ;
10958
S2++;
10959
J3 = 15-(I2)-(I3) ;
10960
S1++;
10961
}
10962
J1 = -2*(15)+3*N1 ;
10963
if ((2*15+J1)%3 == 0) {
10964
J2 = (2*15+J1)/3 ;
10965
J3 = 3*15-4*J2 ;
10966
S1++;
10967
S2++;
10968
}
10969
for (I2=4;I2<=11;I2++) {
10970
for (I3=max(max(ceild(15-I2,2),15-2*I2),1);I3<=min(15-I2,N1);I3++) {
10971
J3 = 15-(I2)-(I3) ;
10972
S1++;
10973
}
10974
}
10975
}
10976
for (I1=max(ceild(21*N1-9,17),ceild(6*N1+5,5));I1<=floord(21*N1-7,17);I1++) {
10977
for (I2=1;I2<=floord(I1-N1-1,2);I2++) {
10978
for (I3=ceild(I1+2*I2,2);I3<=min(N1,floord(2*I1+3*I2,3));I3++) {
10979
J3 = -I1-2*(I2)+2*I3 ;
10980
S2++;
10981
}
10982
}
10983
for (I2=ceild(I1-N1,2);I2<=floord(I1-1,9);I2++) {
10984
for (I3=ceild(I1+2*I2,2);I3<=min(I1-2*I2-1,floord(2*I1+3*I2,3));I3++) {
10985
J3 = -I1-2*(I2)+2*I3 ;
10986
S2++;
10987
}
10988
for (I3=I1-2*I2;I3<=min(N1,I1-I2);I3++) {
10989
J3 = I1-(I2)-(I3) ;
10990
S1++;
10991
}
10992
}
10993
for (I2=ceild(I1,9);I2<=floord(I1-1,7);I2++) {
10994
for (I3=ceild(I1+2*I2,2);I3<=I1-2*I2-1;I3++) {
10995
J3 = -I1-2*(I2)+2*I3 ;
10996
S2++;
10997
}
10998
for (I3=I1-2*I2;I3<=floord(2*I1+3*I2,3);I3++) {
10999
J3 = I1-(I2)-(I3) ;
11000
S1++;
11001
J3 = -I1-2*(I2)+2*I3 ;
11002
S2++;
11003
}
11004
for (I3=ceild(2*I1+3*I2+1,3);I3<=min(N1,I1-I2);I3++) {
11005
J3 = I1-(I2)-(I3) ;
11006
S1++;
11007
}
11008
}
11009
if (I1%7 == 0) {
11010
for (I3=ceild(9*I1/7,2);I3<=5*I1/7-1;I3++) {
11011
J3 = -I1-2*(I2)+2*I3 ;
11012
S2++;
11013
}
11014
if (5*I1%7 == 0) {
11015
I3 = 5*I1/7 ;
11016
J1 = -2*I1+3*I3 ;
11017
if ((2*I1+J1)%3 == 0) {
11018
J2 = (2*I1+J1)/3 ;
11019
J3 = 3*I1-4*J2 ;
11020
S1++;
11021
S2++;
11022
}
11023
}
11024
for (I3=ceild(15*I1/7+1,3);I3<=floord(17*I1/7,3);I3++) {
11025
J3 = I1-(I2)-(I3) ;
11026
S1++;
11027
J3 = -I1-2*(I2)+2*I3 ;
11028
S2++;
11029
}
11030
for (I3=ceild(17*I1/7+1,3);I3<=min(N1,6*I1/7);I3++) {
11031
J3 = I1-(I2)-(I3) ;
11032
S1++;
11033
}
11034
}
11035
for (I2=ceild(-2*I1+3*N1,3);I2<=floord(I1-2,6);I2++) {
11036
for (I3=ceild(I1+2*I2,2);I3<=I1-2*I2-1;I3++) {
11037
J3 = -I1-2*(I2)+2*I3 ;
11038
S2++;
11039
}
11040
for (I3=I1-2*I2;I3<=floord(2*I1+I2-1,3);I3++) {
11041
J3 = -I1-2*(I2)+2*I3 ;
11042
S2++;
11043
J3 = I1-(I2)-(I3) ;
11044
S1++;
11045
}
11046
if ((2*I1+I2)%3 == 0) {
11047
I3 = (2*I1+I2)/3 ;
11048
J1 = -2*I1+3*I3 ;
11049
if ((2*I1+J1)%3 == 0) {
11050
J2 = (2*I1+J1)/3 ;
11051
J3 = 3*I1-4*J2 ;
11052
S1++;
11053
S2++;
11054
}
11055
}
11056
for (I3=ceild(2*I1+I2+1,3);I3<=N1;I3++) {
11057
J3 = I1-(I2)-(I3) ;
11058
S1++;
11059
J3 = -I1-2*(I2)+2*I3 ;
11060
S2++;
11061
}
11062
}
11063
if ((I1-1)%6 == 0) {
11064
I2 = (I1-1)/6 ;
11065
for (I3=4*I2+1;I3<=floord(13*I2+1,3);I3++) {
11066
J3 = -I1-2*(I2)+2*I3 ;
11067
S2++;
11068
J3 = I1-(I2)-(I3) ;
11069
S1++;
11070
}
11071
if ((13*I1-1)%18 == 0) {
11072
I3 = (13*I1-1)/18 ;
11073
J1 = -2*I1+3*I3 ;
11074
if ((2*I1+J1)%3 == 0) {
11075
J2 = (2*I1+J1)/3 ;
11076
J3 = 3*I1-4*J2 ;
11077
S1++;
11078
S2++;
11079
}
11080
}
11081
for (I3=ceild(13*I2+3,3);I3<=N1;I3++) {
11082
J3 = I1-(I2)-(I3) ;
11083
S1++;
11084
J3 = -I1-2*(I2)+2*I3 ;
11085
S2++;
11086
}
11087
}
11088
if (I1%6 == 0) {
11089
for (I3=4*I1/6;I3<=floord(13*I1/6-1,3);I3++) {
11090
J3 = -I1-2*(I2)+2*I3 ;
11091
S2++;
11092
J3 = I1-(I2)-(I3) ;
11093
S1++;
11094
}
11095
if (13*I1%18 == 0) {
11096
I3 = 13*I1/18 ;
11097
J1 = -2*I1+3*I3 ;
11098
if ((2*I1+J1)%3 == 0) {
11099
J2 = (2*I1+J1)/3 ;
11100
J3 = 3*I1-4*J2 ;
11101
S1++;
11102
S2++;
11103
}
11104
}
11105
for (I3=ceild(13*I1/6+1,3);I3<=min(N1,5*I1/6);I3++) {
11106
J3 = I1-(I2)-(I3) ;
11107
S1++;
11108
J3 = -I1-2*(I2)+2*I3 ;
11109
S2++;
11110
}
11111
}
11112
for (I2=ceild(I1+1,6);I2<=I1-N1;I2++) {
11113
for (I3=I1-2*I2;I3<=floord(I1+2*I2-1,2);I3++) {
11114
J3 = I1-(I2)-(I3) ;
11115
S1++;
11116
}
11117
for (I3=ceild(I1+2*I2,2);I3<=floord(2*I1+I2-1,3);I3++) {
11118
J3 = -I1-2*(I2)+2*I3 ;
11119
S2++;
11120
J3 = I1-(I2)-(I3) ;
11121
S1++;
11122
}
11123
if ((2*I1+I2)%3 == 0) {
11124
I3 = (2*I1+I2)/3 ;
11125
J1 = -2*I1+3*I3 ;
11126
if ((2*I1+J1)%3 == 0) {
11127
J2 = (2*I1+J1)/3 ;
11128
J3 = 3*I1-4*J2 ;
11129
S1++;
11130
S2++;
11131
}
11132
}
11133
for (I3=ceild(2*I1+I2+1,3);I3<=N1;I3++) {
11134
J3 = I1-(I2)-(I3) ;
11135
S1++;
11136
J3 = -I1-2*(I2)+2*I3 ;
11137
S2++;
11138
}
11139
}
11140
for (I2=I1-N1+1;I2<=floord(I1-2,4);I2++) {
11141
for (I3=I1-2*I2;I3<=floord(I1+2*I2-1,2);I3++) {
11142
J3 = I1-(I2)-(I3) ;
11143
S1++;
11144
}
11145
for (I3=ceild(I1+2*I2,2);I3<=floord(2*I1+I2-1,3);I3++) {
11146
J3 = -I1-2*(I2)+2*I3 ;
11147
S2++;
11148
J3 = I1-(I2)-(I3) ;
11149
S1++;
11150
}
11151
if ((2*I1+I2)%3 == 0) {
11152
I3 = (2*I1+I2)/3 ;
11153
J1 = -2*I1+3*I3 ;
11154
if ((2*I1+J1)%3 == 0) {
11155
J2 = (2*I1+J1)/3 ;
11156
J3 = 3*I1-4*J2 ;
11157
S1++;
11158
S2++;
11159
}
11160
}
11161
for (I3=ceild(2*I1+I2+1,3);I3<=I1-I2;I3++) {
11162
J3 = I1-(I2)-(I3) ;
11163
S1++;
11164
J3 = -I1-2*(I2)+2*I3 ;
11165
S2++;
11166
}
11167
for (I3=I1-I2+1;I3<=min(N1,floord(2*I1+3*I2,3));I3++) {
11168
J3 = -I1-2*(I2)+2*I3 ;
11169
S2++;
11170
}
11171
}
11172
if ((I1-1)%4 == 0) {
11173
I2 = (I1-1)/4 ;
11174
for (I3=2*I2+1;I3<=3*I2;I3++) {
11175
J3 = I1-(I2)-(I3) ;
11176
S1++;
11177
}
11178
if ((9*I1-1)%12 == 0) {
11179
I3 = (9*I1-1)/12 ;
11180
J1 = -2*I1+3*I3 ;
11181
if ((2*I1+J1)%3 == 0) {
11182
J2 = (2*I1+J1)/3 ;
11183
J3 = 3*I1-4*J2 ;
11184
S1++;
11185
S2++;
11186
}
11187
}
11188
if ((3*I1+1)%4 == 0) {
11189
I3 = (3*I1+1)/4 ;
11190
J3 = I1-(I2)-(I3) ;
11191
S1++;
11192
J3 = -I1-2*(I2)+2*I3 ;
11193
S2++;
11194
}
11195
for (I3=3*I2+2;I3<=min(N1,floord(11*I2+2,3));I3++) {
11196
J3 = -I1-2*(I2)+2*I3 ;
11197
S2++;
11198
}
11199
}
11200
if (I1%4 == 0) {
11201
for (I3=2*I1/4;I3<=floord(6*I1/4-1,2);I3++) {
11202
J3 = I1-(I2)-(I3) ;
11203
S1++;
11204
}
11205
if (3*I1%4 == 0) {
11206
I3 = 3*I1/4 ;
11207
J1 = -2*I1+3*I3 ;
11208
if ((2*I1+J1)%3 == 0) {
11209
J2 = (2*I1+J1)/3 ;
11210
J3 = 3*I1-4*J2 ;
11211
S1++;
11212
S2++;
11213
}
11214
}
11215
for (I3=3*I1/4+1;I3<=min(N1,floord(11*I1/4,3));I3++) {
11216
J3 = -I1-2*(I2)+2*I3 ;
11217
S2++;
11218
}
11219
}
11220
for (I2=ceild(I1+1,4);I2<=floord(-I1+2*N1,2);I2++) {
11221
for (I3=max(max(1,ceild(I1-I2,2)),I1-2*I2);I3<=I1-I2;I3++) {
11222
J3 = I1-(I2)-(I3) ;
11223
S1++;
11224
}
11225
for (I3=max(I1-I2+1,ceild(I1+2*I2,2));I3<=min(N1,floord(2*I1+3*I2,3));I3++) {
11226
J3 = -I1-2*(I2)+2*I3 ;
11227
S2++;
11228
}
11229
}
11230
for (I2=ceild(-I1+2*N1+1,2);I2<=N1;I2++) {
11231
for (I3=max(max(ceild(I1-I2,2),I1-2*I2),1);I3<=min(I1-I2,N1);I3++) {
11232
J3 = I1-(I2)-(I3) ;
11233
S1++;
11234
}
11235
}
11236
}
11237
for (I1=max(ceild(21*N1-6,17),ceild(6*N1+2,5));I1<=min(min(floord(21*N1-1,17),floord(6*N1+4,5)),floord(4*N1-6,3));I1++) {
11238
for (I2=1;I2<=floord(I1-N1-1,2);I2++) {
11239
for (I3=ceild(I1+2*I2,2);I3<=min(N1,floord(2*I1+3*I2,3));I3++) {
11240
J3 = -I1-2*(I2)+2*I3 ;
11241
S2++;
11242
}
11243
}
11244
for (I2=ceild(I1-N1,2);I2<=floord(I1-1,9);I2++) {
11245
for (I3=ceild(I1+2*I2,2);I3<=min(I1-2*I2-1,floord(2*I1+3*I2,3));I3++) {
11246
J3 = -I1-2*(I2)+2*I3 ;
11247
S2++;
11248
}
11249
for (I3=I1-2*I2;I3<=min(N1,I1-I2);I3++) {
11250
J3 = I1-(I2)-(I3) ;
11251
S1++;
11252
}
11253
}
11254
for (I2=ceild(I1,9);I2<=min(floord(I1-1,7),floord(-2*I1+3*N1-1,3));I2++) {
11255
for (I3=ceild(I1+2*I2,2);I3<=I1-2*I2-1;I3++) {
11256
J3 = -I1-2*(I2)+2*I3 ;
11257
S2++;
11258
}
11259
for (I3=I1-2*I2;I3<=floord(2*I1+3*I2,3);I3++) {
11260
J3 = I1-(I2)-(I3) ;
11261
S1++;
11262
J3 = -I1-2*(I2)+2*I3 ;
11263
S2++;
11264
}
11265
for (I3=ceild(2*I1+3*I2+1,3);I3<=min(N1,I1-I2);I3++) {
11266
J3 = I1-(I2)-(I3) ;
11267
S1++;
11268
}
11269
}
11270
for (I2=max(ceild(I1+1,7),ceild(-2*I1+3*N1,3));I2<=floord(I1-2,6);I2++) {
11271
for (I3=ceild(I1+2*I2,2);I3<=I1-2*I2-1;I3++) {
11272
J3 = -I1-2*(I2)+2*I3 ;
11273
S2++;
11274
}
11275
for (I3=I1-2*I2;I3<=floord(2*I1+I2-1,3);I3++) {
11276
J3 = -I1-2*(I2)+2*I3 ;
11277
S2++;
11278
J3 = I1-(I2)-(I3) ;
11279
S1++;
11280
}
11281
if ((2*I1+I2)%3 == 0) {
11282
I3 = (2*I1+I2)/3 ;
11283
J1 = -2*I1+3*I3 ;
11284
if ((2*I1+J1)%3 == 0) {
11285
J2 = (2*I1+J1)/3 ;
11286
J3 = 3*I1-4*J2 ;
11287
S1++;
11288
S2++;
11289
}
11290
}
11291
for (I3=ceild(2*I1+I2+1,3);I3<=N1;I3++) {
11292
J3 = I1-(I2)-(I3) ;
11293
S1++;
11294
J3 = -I1-2*(I2)+2*I3 ;
11295
S2++;
11296
}
11297
}
11298
if (I1%6 == 0) {
11299
for (I3=4*I1/6;I3<=floord(13*I1/6-1,3);I3++) {
11300
J3 = -I1-2*(I2)+2*I3 ;
11301
S2++;
11302
J3 = I1-(I2)-(I3) ;
11303
S1++;
11304
}
11305
if (13*I1%18 == 0) {
11306
I3 = 13*I1/18 ;
11307
J1 = -2*I1+3*I3 ;
11308
if ((2*I1+J1)%3 == 0) {
11309
J2 = (2*I1+J1)/3 ;
11310
J3 = 3*I1-4*J2 ;
11311
S1++;
11312
S2++;
11313
}
11314
}
11315
for (I3=ceild(13*I1/6+1,3);I3<=min(N1,5*I1/6);I3++) {
11316
J3 = I1-(I2)-(I3) ;
11317
S1++;
11318
J3 = -I1-2*(I2)+2*I3 ;
11319
S2++;
11320
}
11321
}
11322
for (I2=ceild(I1+1,6);I2<=I1-N1;I2++) {
11323
for (I3=I1-2*I2;I3<=floord(I1+2*I2-1,2);I3++) {
11324
J3 = I1-(I2)-(I3) ;
11325
S1++;
11326
}
11327
for (I3=ceild(I1+2*I2,2);I3<=floord(2*I1+I2-1,3);I3++) {
11328
J3 = -I1-2*(I2)+2*I3 ;
11329
S2++;
11330
J3 = I1-(I2)-(I3) ;
11331
S1++;
11332
}
11333
if ((2*I1+I2)%3 == 0) {
11334
I3 = (2*I1+I2)/3 ;
11335
J1 = -2*I1+3*I3 ;
11336
if ((2*I1+J1)%3 == 0) {
11337
J2 = (2*I1+J1)/3 ;
11338
J3 = 3*I1-4*J2 ;
11339
S1++;
11340
S2++;
11341
}
11342
}
11343
for (I3=ceild(2*I1+I2+1,3);I3<=N1;I3++) {
11344
J3 = I1-(I2)-(I3) ;
11345
S1++;
11346
J3 = -I1-2*(I2)+2*I3 ;
11347
S2++;
11348
}
11349
}
11350
for (I2=I1-N1+1;I2<=floord(I1-2,4);I2++) {
11351
for (I3=I1-2*I2;I3<=floord(I1+2*I2-1,2);I3++) {
11352
J3 = I1-(I2)-(I3) ;
11353
S1++;
11354
}
11355
for (I3=ceild(I1+2*I2,2);I3<=floord(2*I1+I2-1,3);I3++) {
11356
J3 = -I1-2*(I2)+2*I3 ;
11357
S2++;
11358
J3 = I1-(I2)-(I3) ;
11359
S1++;
11360
}
11361
if ((2*I1+I2)%3 == 0) {
11362
I3 = (2*I1+I2)/3 ;
11363
J1 = -2*I1+3*I3 ;
11364
if ((2*I1+J1)%3 == 0) {
11365
J2 = (2*I1+J1)/3 ;
11366
J3 = 3*I1-4*J2 ;
11367
S1++;
11368
S2++;
11369
}
11370
}
11371
for (I3=ceild(2*I1+I2+1,3);I3<=I1-I2;I3++) {
11372
J3 = I1-(I2)-(I3) ;
11373
S1++;
11374
J3 = -I1-2*(I2)+2*I3 ;
11375
S2++;
11376
}
11377
for (I3=I1-I2+1;I3<=min(N1,floord(2*I1+3*I2,3));I3++) {
11378
J3 = -I1-2*(I2)+2*I3 ;
11379
S2++;
11380
}
11381
}
11382
if ((I1-1)%4 == 0) {
11383
I2 = (I1-1)/4 ;
11384
for (I3=2*I2+1;I3<=3*I2;I3++) {
11385
J3 = I1-(I2)-(I3) ;
11386
S1++;
11387
}
11388
if ((9*I1-1)%12 == 0) {
11389
I3 = (9*I1-1)/12 ;
11390
J1 = -2*I1+3*I3 ;
11391
if ((2*I1+J1)%3 == 0) {
11392
J2 = (2*I1+J1)/3 ;
11393
J3 = 3*I1-4*J2 ;
11394
S1++;
11395
S2++;
11396
}
11397
}
11398
if ((3*I1+1)%4 == 0) {
11399
I3 = (3*I1+1)/4 ;
11400
J3 = I1-(I2)-(I3) ;
11401
S1++;
11402
J3 = -I1-2*(I2)+2*I3 ;
11403
S2++;
11404
}
11405
for (I3=3*I2+2;I3<=min(N1,floord(11*I2+2,3));I3++) {
11406
J3 = -I1-2*(I2)+2*I3 ;
11407
S2++;
11408
}
11409
}
11410
if (I1%4 == 0) {
11411
for (I3=2*I1/4;I3<=floord(6*I1/4-1,2);I3++) {
11412
J3 = I1-(I2)-(I3) ;
11413
S1++;
11414
}
11415
if (3*I1%4 == 0) {
11416
I3 = 3*I1/4 ;
11417
J1 = -2*I1+3*I3 ;
11418
if ((2*I1+J1)%3 == 0) {
11419
J2 = (2*I1+J1)/3 ;
11420
J3 = 3*I1-4*J2 ;
11421
S1++;
11422
S2++;
11423
}
11424
}
11425
for (I3=3*I1/4+1;I3<=min(N1,floord(11*I1/4,3));I3++) {
11426
J3 = -I1-2*(I2)+2*I3 ;
11427
S2++;
11428
}
11429
}
11430
for (I2=ceild(I1+1,4);I2<=floord(-I1+2*N1,2);I2++) {
11431
for (I3=max(max(1,ceild(I1-I2,2)),I1-2*I2);I3<=I1-I2;I3++) {
11432
J3 = I1-(I2)-(I3) ;
11433
S1++;
11434
}
11435
for (I3=max(I1-I2+1,ceild(I1+2*I2,2));I3<=min(N1,floord(2*I1+3*I2,3));I3++) {
11436
J3 = -I1-2*(I2)+2*I3 ;
11437
S2++;
11438
}
11439
}
11440
for (I2=ceild(-I1+2*N1+1,2);I2<=N1;I2++) {
11441
for (I3=max(max(ceild(I1-I2,2),I1-2*I2),1);I3<=min(I1-I2,N1);I3++) {
11442
J3 = I1-(I2)-(I3) ;
11443
S1++;
11444
}
11445
}
11446
}
11447
for (I1=ceild(21*N1,17);I1<=min(floord(6*N1+4,5),floord(4*N1-6,3));I1++) {
11448
for (I2=1;I2<=floord(I1-N1-1,2);I2++) {
11449
for (I3=ceild(I1+2*I2,2);I3<=min(N1,floord(2*I1+3*I2,3));I3++) {
11450
J3 = -I1-2*(I2)+2*I3 ;
11451
S2++;
11452
}
11453
}
11454
for (I2=ceild(I1-N1,2);I2<=floord(I1-1,9);I2++) {
11455
for (I3=ceild(I1+2*I2,2);I3<=min(I1-2*I2-1,floord(2*I1+3*I2,3));I3++) {
11456
J3 = -I1-2*(I2)+2*I3 ;
11457
S2++;
11458
}
11459
for (I3=I1-2*I2;I3<=min(N1,I1-I2);I3++) {
11460
J3 = I1-(I2)-(I3) ;
11461
S1++;
11462
}
11463
}
11464
for (I2=ceild(I1,9);I2<=floord(-2*I1+3*N1-1,3);I2++) {
11465
for (I3=ceild(I1+2*I2,2);I3<=I1-2*I2-1;I3++) {
11466
J3 = -I1-2*(I2)+2*I3 ;
11467
S2++;
11468
}
11469
for (I3=I1-2*I2;I3<=floord(2*I1+3*I2,3);I3++) {
11470
J3 = I1-(I2)-(I3) ;
11471
S1++;
11472
J3 = -I1-2*(I2)+2*I3 ;
11473
S2++;
11474
}
11475
for (I3=ceild(2*I1+3*I2+1,3);I3<=min(N1,I1-I2);I3++) {
11476
J3 = I1-(I2)-(I3) ;
11477
S1++;
11478
}
11479
}
11480
if (I1%7 == 0) {
11481
for (I3=ceild(9*I1/7,2);I3<=5*I1/7-1;I3++) {
11482
J3 = -I1-2*(I2)+2*I3 ;
11483
S2++;
11484
}
11485
if (5*I1%7 == 0) {
11486
I3 = 5*I1/7 ;
11487
J1 = -2*I1+3*I3 ;
11488
if ((2*I1+J1)%3 == 0) {
11489
J2 = (2*I1+J1)/3 ;
11490
J3 = 3*I1-4*J2 ;
11491
S1++;
11492
S2++;
11493
}
11494
}
11495
for (I3=ceild(15*I1/7+1,3);I3<=N1;I3++) {
11496
J3 = I1-(I2)-(I3) ;
11497
S1++;
11498
J3 = -I1-2*(I2)+2*I3 ;
11499
S2++;
11500
}
11501
}
11502
for (I2=ceild(I1+1,7);I2<=floord(I1-2,6);I2++) {
11503
for (I3=ceild(I1+2*I2,2);I3<=I1-2*I2-1;I3++) {
11504
J3 = -I1-2*(I2)+2*I3 ;
11505
S2++;
11506
}
11507
for (I3=I1-2*I2;I3<=floord(2*I1+I2-1,3);I3++) {
11508
J3 = -I1-2*(I2)+2*I3 ;
11509
S2++;
11510
J3 = I1-(I2)-(I3) ;
11511
S1++;
11512
}
11513
if ((2*I1+I2)%3 == 0) {
11514
I3 = (2*I1+I2)/3 ;
11515
J1 = -2*I1+3*I3 ;
11516
if ((2*I1+J1)%3 == 0) {
11517
J2 = (2*I1+J1)/3 ;
11518
J3 = 3*I1-4*J2 ;
11519
S1++;
11520
S2++;
11521
}
11522
}
11523
for (I3=ceild(2*I1+I2+1,3);I3<=N1;I3++) {
11524
J3 = I1-(I2)-(I3) ;
11525
S1++;
11526
J3 = -I1-2*(I2)+2*I3 ;
11527
S2++;
11528
}
11529
}
11530
if (I1%6 == 0) {
11531
for (I3=4*I1/6;I3<=floord(13*I1/6-1,3);I3++) {
11532
J3 = -I1-2*(I2)+2*I3 ;
11533
S2++;
11534
J3 = I1-(I2)-(I3) ;
11535
S1++;
11536
}
11537
if (13*I1%18 == 0) {
11538
I3 = 13*I1/18 ;
11539
J1 = -2*I1+3*I3 ;
11540
if ((2*I1+J1)%3 == 0) {
11541
J2 = (2*I1+J1)/3 ;
11542
J3 = 3*I1-4*J2 ;
11543
S1++;
11544
S2++;
11545
}
11546
}
11547
for (I3=ceild(13*I1/6+1,3);I3<=min(N1,5*I1/6);I3++) {
11548
J3 = I1-(I2)-(I3) ;
11549
S1++;
11550
J3 = -I1-2*(I2)+2*I3 ;
11551
S2++;
11552
}
11553
}
11554
for (I2=ceild(I1+1,6);I2<=I1-N1;I2++) {
11555
for (I3=I1-2*I2;I3<=floord(I1+2*I2-1,2);I3++) {
11556
J3 = I1-(I2)-(I3) ;
11557
S1++;
11558
}
11559
for (I3=ceild(I1+2*I2,2);I3<=floord(2*I1+I2-1,3);I3++) {
11560
J3 = -I1-2*(I2)+2*I3 ;
11561
S2++;
11562
J3 = I1-(I2)-(I3) ;
11563
S1++;
11564
}
11565
if ((2*I1+I2)%3 == 0) {
11566
I3 = (2*I1+I2)/3 ;
11567
J1 = -2*I1+3*I3 ;
11568
if ((2*I1+J1)%3 == 0) {
11569
J2 = (2*I1+J1)/3 ;
11570
J3 = 3*I1-4*J2 ;
11571
S1++;
11572
S2++;
11573
}
11574
}
11575
for (I3=ceild(2*I1+I2+1,3);I3<=N1;I3++) {
11576
J3 = I1-(I2)-(I3) ;
11577
S1++;
11578
J3 = -I1-2*(I2)+2*I3 ;
11579
S2++;
11580
}
11581
}
11582
for (I2=I1-N1+1;I2<=floord(I1-2,4);I2++) {
11583
for (I3=I1-2*I2;I3<=floord(I1+2*I2-1,2);I3++) {
11584
J3 = I1-(I2)-(I3) ;
11585
S1++;
11586
}
11587
for (I3=ceild(I1+2*I2,2);I3<=floord(2*I1+I2-1,3);I3++) {
11588
J3 = -I1-2*(I2)+2*I3 ;
11589
S2++;
11590
J3 = I1-(I2)-(I3) ;
11591
S1++;
11592
}
11593
if ((2*I1+I2)%3 == 0) {
11594
I3 = (2*I1+I2)/3 ;
11595
J1 = -2*I1+3*I3 ;
11596
if ((2*I1+J1)%3 == 0) {
11597
J2 = (2*I1+J1)/3 ;
11598
J3 = 3*I1-4*J2 ;
11599
S1++;
11600
S2++;
11601
}
11602
}
11603
for (I3=ceild(2*I1+I2+1,3);I3<=I1-I2;I3++) {
11604
J3 = I1-(I2)-(I3) ;
11605
S1++;
11606
J3 = -I1-2*(I2)+2*I3 ;
11607
S2++;
11608
}
11609
for (I3=I1-I2+1;I3<=min(N1,floord(2*I1+3*I2,3));I3++) {
11610
J3 = -I1-2*(I2)+2*I3 ;
11611
S2++;
11612
}
11613
}
11614
if ((I1-1)%4 == 0) {
11615
I2 = (I1-1)/4 ;
11616
for (I3=2*I2+1;I3<=3*I2;I3++) {
11617
J3 = I1-(I2)-(I3) ;
11618
S1++;
11619
}
11620
if ((9*I1-1)%12 == 0) {
11621
I3 = (9*I1-1)/12 ;
11622
J1 = -2*I1+3*I3 ;
11623
if ((2*I1+J1)%3 == 0) {
11624
J2 = (2*I1+J1)/3 ;
11625
J3 = 3*I1-4*J2 ;
11626
S1++;
11627
S2++;
11628
}
11629
}
11630
if ((3*I1+1)%4 == 0) {
11631
I3 = (3*I1+1)/4 ;
11632
J3 = I1-(I2)-(I3) ;
11633
S1++;
11634
J3 = -I1-2*(I2)+2*I3 ;
11635
S2++;
11636
}
11637
for (I3=3*I2+2;I3<=min(N1,floord(11*I2+2,3));I3++) {
11638
J3 = -I1-2*(I2)+2*I3 ;
11639
S2++;
11640
}
11641
}
11642
if (I1%4 == 0) {
11643
for (I3=2*I1/4;I3<=floord(6*I1/4-1,2);I3++) {
11644
J3 = I1-(I2)-(I3) ;
11645
S1++;
11646
}
11647
if (3*I1%4 == 0) {
11648
I3 = 3*I1/4 ;
11649
J1 = -2*I1+3*I3 ;
11650
if ((2*I1+J1)%3 == 0) {
11651
J2 = (2*I1+J1)/3 ;
11652
J3 = 3*I1-4*J2 ;
11653
S1++;
11654
S2++;
11655
}
11656
}
11657
for (I3=3*I1/4+1;I3<=min(N1,floord(11*I1/4,3));I3++) {
11658
J3 = -I1-2*(I2)+2*I3 ;
11659
S2++;
11660
}
11661
}
11662
for (I2=ceild(I1+1,4);I2<=floord(-I1+2*N1,2);I2++) {
11663
for (I3=max(max(1,ceild(I1-I2,2)),I1-2*I2);I3<=I1-I2;I3++) {
11664
J3 = I1-(I2)-(I3) ;
11665
S1++;
11666
}
11667
for (I3=max(I1-I2+1,ceild(I1+2*I2,2));I3<=min(N1,floord(2*I1+3*I2,3));I3++) {
11668
J3 = -I1-2*(I2)+2*I3 ;
11669
S2++;
11670
}
11671
}
11672
for (I2=ceild(-I1+2*N1+1,2);I2<=N1;I2++) {
11673
for (I3=max(max(ceild(I1-I2,2),I1-2*I2),1);I3<=min(I1-I2,N1);I3++) {
11674
J3 = I1-(I2)-(I3) ;
11675
S1++;
11676
}
11677
}
11678
}
11679
if ((N1 <= 18) && (N1 >= 17)) {
11680
if ((4*N1-5)%3 == 0) {
11681
I1 = (4*N1-5)/3 ;
11682
for (I2=1;I2<=floord(N1-8,6);I2++) {
11683
for (I3=ceild(I1+2*I2,2);I3<=min(N1,floord(2*I1+3*I2,3));I3++) {
11684
J3 = -I1-2*(I2)+2*I3 ;
11685
S2++;
11686
}
11687
}
11688
for (I2=ceild(N1-5,6);I2<=floord(4*N1-8,27);I2++) {
11689
for (I3=ceild(I1+2*I2,2);I3<=min(I1-2*I2-1,floord(2*I1+3*I2,3));I3++) {
11690
J3 = -I1-2*(I2)+2*I3 ;
11691
S2++;
11692
}
11693
for (I3=I1-2*I2;I3<=min(N1,I1-I2);I3++) {
11694
J3 = I1-(I2)-(I3) ;
11695
S1++;
11696
}
11697
}
11698
for (I2=ceild(4*N1-5,27);I2<=floord(N1+7,9);I2++) {
11699
for (I3=ceild(I1+2*I2,2);I3<=I1-2*I2-1;I3++) {
11700
J3 = -I1-2*(I2)+2*I3 ;
11701
S2++;
11702
}
11703
for (I3=I1-2*I2;I3<=floord(2*I1+3*I2,3);I3++) {
11704
J3 = I1-(I2)-(I3) ;
11705
S1++;
11706
J3 = -I1-2*(I2)+2*I3 ;
11707
S2++;
11708
}
11709
for (I3=ceild(2*I1+3*I2+1,3);I3<=min(N1,I1-I2);I3++) {
11710
J3 = I1-(I2)-(I3) ;
11711
S1++;
11712
}
11713
}
11714
if ((4*N1-5)%21 == 0) {
11715
I2 = (4*N1-5)/21 ;
11716
for (I3=ceild(9*I2,2);I3<=5*I2-1;I3++) {
11717
J3 = -I1-2*(I2)+2*I3 ;
11718
S2++;
11719
}
11720
if (5*I1%7 == 0) {
11721
I3 = 5*I1/7 ;
11722
J1 = -2*I1+3*I3 ;
11723
if ((2*I1+J1)%3 == 0) {
11724
J2 = (2*I1+J1)/3 ;
11725
J3 = 3*I1-4*J2 ;
11726
S1++;
11727
S2++;
11728
}
11729
}
11730
for (I3=ceild(15*I2+1,3);I3<=N1;I3++) {
11731
J3 = I1-(I2)-(I3) ;
11732
S1++;
11733
J3 = -I1-2*(I2)+2*I3 ;
11734
S2++;
11735
}
11736
}
11737
for (I2=ceild(4*N1-2,21);I2<=floord(4*N1-11,18);I2++) {
11738
for (I3=ceild(I1+2*I2,2);I3<=I1-2*I2-1;I3++) {
11739
J3 = -I1-2*(I2)+2*I3 ;
11740
S2++;
11741
}
11742
for (I3=I1-2*I2;I3<=floord(2*I1+I2-1,3);I3++) {
11743
J3 = -I1-2*(I2)+2*I3 ;
11744
S2++;
11745
J3 = I1-(I2)-(I3) ;
11746
S1++;
11747
}
11748
if ((2*I1+I2)%3 == 0) {
11749
I3 = (2*I1+I2)/3 ;
11750
J1 = -2*I1+3*I3 ;
11751
if ((2*I1+J1)%3 == 0) {
11752
J2 = (2*I1+J1)/3 ;
11753
J3 = 3*I1-4*J2 ;
11754
S1++;
11755
S2++;
11756
}
11757
}
11758
for (I3=ceild(2*I1+I2+1,3);I3<=N1;I3++) {
11759
J3 = I1-(I2)-(I3) ;
11760
S1++;
11761
J3 = -I1-2*(I2)+2*I3 ;
11762
S2++;
11763
}
11764
}
11765
if ((4*N1-5)%18 == 0) {
11766
I2 = (4*N1-5)/18 ;
11767
for (I3=4*I2;I3<=floord(13*I2-1,3);I3++) {
11768
J3 = -I1-2*(I2)+2*I3 ;
11769
S2++;
11770
J3 = I1-(I2)-(I3) ;
11771
S1++;
11772
}
11773
if (13*I1%18 == 0) {
11774
I3 = 13*I1/18 ;
11775
J1 = -2*I1+3*I3 ;
11776
if ((2*I1+J1)%3 == 0) {
11777
J2 = (2*I1+J1)/3 ;
11778
J3 = 3*I1-4*J2 ;
11779
S1++;
11780
S2++;
11781
}
11782
}
11783
for (I3=ceild(13*I2+1,3);I3<=min(N1,5*I2);I3++) {
11784
J3 = I1-(I2)-(I3) ;
11785
S1++;
11786
J3 = -I1-2*(I2)+2*I3 ;
11787
S2++;
11788
}
11789
}
11790
for (I2=ceild(2*N1-1,9);I2<=floord(N1-5,3);I2++) {
11791
for (I3=I1-2*I2;I3<=floord(I1+2*I2-1,2);I3++) {
11792
J3 = I1-(I2)-(I3) ;
11793
S1++;
11794
}
11795
for (I3=ceild(I1+2*I2,2);I3<=floord(2*I1+I2-1,3);I3++) {
11796
J3 = -I1-2*(I2)+2*I3 ;
11797
S2++;
11798
J3 = I1-(I2)-(I3) ;
11799
S1++;
11800
}
11801
if ((2*I1+I2)%3 == 0) {
11802
I3 = (2*I1+I2)/3 ;
11803
J1 = -2*I1+3*I3 ;
11804
if ((2*I1+J1)%3 == 0) {
11805
J2 = (2*I1+J1)/3 ;
11806
J3 = 3*I1-4*J2 ;
11807
S1++;
11808
S2++;
11809
}
11810
}
11811
for (I3=ceild(2*I1+I2+1,3);I3<=N1;I3++) {
11812
J3 = I1-(I2)-(I3) ;
11813
S1++;
11814
J3 = -I1-2*(I2)+2*I3 ;
11815
S2++;
11816
}
11817
}
11818
if ((N1-2)%3 == 0) {
11819
I2 = (N1-2)/3 ;
11820
for (I3=2*I2+1;I3<=3*I2;I3++) {
11821
J3 = I1-(I2)-(I3) ;
11822
S1++;
11823
}
11824
if ((9*I1-1)%12 == 0) {
11825
I3 = (9*I1-1)/12 ;
11826
J1 = -2*I1+3*I3 ;
11827
if ((2*I1+J1)%3 == 0) {
11828
J2 = (2*I1+J1)/3 ;
11829
J3 = 3*I1-4*J2 ;
11830
S1++;
11831
S2++;
11832
}
11833
}
11834
if ((3*I1+1)%4 == 0) {
11835
I3 = (3*I1+1)/4 ;
11836
J3 = I1-(I2)-(I3) ;
11837
S1++;
11838
J3 = -I1-2*(I2)+2*I3 ;
11839
S2++;
11840
}
11841
for (I3=3*I2+2;I3<=min(N1,floord(11*I2+2,3));I3++) {
11842
J3 = -I1-2*(I2)+2*I3 ;
11843
S2++;
11844
}
11845
}
11846
if ((4*N1-5)%12 == 0) {
11847
I2 = (4*N1-5)/12 ;
11848
for (I3=2*I2;I3<=floord(6*I2-1,2);I3++) {
11849
J3 = I1-(I2)-(I3) ;
11850
S1++;
11851
}
11852
if (3*I1%4 == 0) {
11853
I3 = 3*I1/4 ;
11854
J1 = -2*I1+3*I3 ;
11855
if ((2*I1+J1)%3 == 0) {
11856
J2 = (2*I1+J1)/3 ;
11857
J3 = 3*I1-4*J2 ;
11858
S1++;
11859
S2++;
11860
}
11861
}
11862
for (I3=3*I2+1;I3<=min(N1,floord(11*I2,3));I3++) {
11863
J3 = -I1-2*(I2)+2*I3 ;
11864
S2++;
11865
}
11866
}
11867
for (I2=ceild(2*N1-1,6);I2<=floord(2*N1+5,6);I2++) {
11868
for (I3=max(max(1,ceild(I1-I2,2)),I1-2*I2);I3<=I1-I2;I3++) {
11869
J3 = I1-(I2)-(I3) ;
11870
S1++;
11871
}
11872
for (I3=max(I1-I2+1,ceild(I1+2*I2,2));I3<=min(N1,floord(2*I1+3*I2,3));I3++) {
11873
J3 = -I1-2*(I2)+2*I3 ;
11874
S2++;
11875
}
11876
}
11877
for (I2=ceild(N1+4,3);I2<=N1;I2++) {
11878
for (I3=max(max(ceild(I1-I2,2),I1-2*I2),1);I3<=min(I1-I2,N1);I3++) {
11879
J3 = I1-(I2)-(I3) ;
11880
S1++;
11881
}
11882
}
11883
}
11884
}
11885
for (I1=max(ceild(21*N1-6,17),ceild(6*N1+5,5));I1<=floord(21*N1-1,17);I1++) {
11886
for (I2=1;I2<=floord(I1-N1-1,2);I2++) {
11887
for (I3=ceild(I1+2*I2,2);I3<=min(N1,floord(2*I1+3*I2,3));I3++) {
11888
J3 = -I1-2*(I2)+2*I3 ;
11889
S2++;
11890
}
11891
}
11892
for (I2=ceild(I1-N1,2);I2<=floord(I1-1,9);I2++) {
11893
for (I3=ceild(I1+2*I2,2);I3<=min(I1-2*I2-1,floord(2*I1+3*I2,3));I3++) {
11894
J3 = -I1-2*(I2)+2*I3 ;
11895
S2++;
11896
}
11897
for (I3=I1-2*I2;I3<=min(N1,I1-I2);I3++) {
11898
J3 = I1-(I2)-(I3) ;
11899
S1++;
11900
}
11901
}
11902
for (I2=ceild(I1,9);I2<=min(floord(I1-1,7),floord(-2*I1+3*N1-1,3));I2++) {
11903
for (I3=ceild(I1+2*I2,2);I3<=I1-2*I2-1;I3++) {
11904
J3 = -I1-2*(I2)+2*I3 ;
11905
S2++;
11906
}
11907
for (I3=I1-2*I2;I3<=floord(2*I1+3*I2,3);I3++) {
11908
J3 = I1-(I2)-(I3) ;
11909
S1++;
11910
J3 = -I1-2*(I2)+2*I3 ;
11911
S2++;
11912
}
11913
for (I3=ceild(2*I1+3*I2+1,3);I3<=min(N1,I1-I2);I3++) {
11914
J3 = I1-(I2)-(I3) ;
11915
S1++;
11916
}
11917
}
11918
for (I2=max(ceild(I1+1,7),ceild(-2*I1+3*N1,3));I2<=floord(I1-2,6);I2++) {
11919
for (I3=ceild(I1+2*I2,2);I3<=I1-2*I2-1;I3++) {
11920
J3 = -I1-2*(I2)+2*I3 ;
11921
S2++;
11922
}
11923
for (I3=I1-2*I2;I3<=floord(2*I1+I2-1,3);I3++) {
11924
J3 = -I1-2*(I2)+2*I3 ;
11925
S2++;
11926
J3 = I1-(I2)-(I3) ;
11927
S1++;
11928
}
11929
if ((2*I1+I2)%3 == 0) {
11930
I3 = (2*I1+I2)/3 ;
11931
J1 = -2*I1+3*I3 ;
11932
if ((2*I1+J1)%3 == 0) {
11933
J2 = (2*I1+J1)/3 ;
11934
J3 = 3*I1-4*J2 ;
11935
S1++;
11936
S2++;
11937
}
11938
}
11939
for (I3=ceild(2*I1+I2+1,3);I3<=N1;I3++) {
11940
J3 = I1-(I2)-(I3) ;
11941
S1++;
11942
J3 = -I1-2*(I2)+2*I3 ;
11943
S2++;
11944
}
11945
}
11946
if ((I1-1)%6 == 0) {
11947
I2 = (I1-1)/6 ;
11948
for (I3=4*I2+1;I3<=floord(13*I2+1,3);I3++) {
11949
J3 = -I1-2*(I2)+2*I3 ;
11950
S2++;
11951
J3 = I1-(I2)-(I3) ;
11952
S1++;
11953
}
11954
if ((13*I1-1)%18 == 0) {
11955
I3 = (13*I1-1)/18 ;
11956
J1 = -2*I1+3*I3 ;
11957
if ((2*I1+J1)%3 == 0) {
11958
J2 = (2*I1+J1)/3 ;
11959
J3 = 3*I1-4*J2 ;
11960
S1++;
11961
S2++;
11962
}
11963
}
11964
for (I3=ceild(13*I2+3,3);I3<=N1;I3++) {
11965
J3 = I1-(I2)-(I3) ;
11966
S1++;
11967
J3 = -I1-2*(I2)+2*I3 ;
11968
S2++;
11969
}
11970
}
11971
if (I1%6 == 0) {
11972
for (I3=4*I1/6;I3<=floord(13*I1/6-1,3);I3++) {
11973
J3 = -I1-2*(I2)+2*I3 ;
11974
S2++;
11975
J3 = I1-(I2)-(I3) ;
11976
S1++;
11977
}
11978
if (13*I1%18 == 0) {
11979
I3 = 13*I1/18 ;
11980
J1 = -2*I1+3*I3 ;
11981
if ((2*I1+J1)%3 == 0) {
11982
J2 = (2*I1+J1)/3 ;
11983
J3 = 3*I1-4*J2 ;
11984
S1++;
11985
S2++;
11986
}
11987
}
11988
for (I3=ceild(13*I1/6+1,3);I3<=min(N1,5*I1/6);I3++) {
11989
J3 = I1-(I2)-(I3) ;
11990
S1++;
11991
J3 = -I1-2*(I2)+2*I3 ;
11992
S2++;
11993
}
11994
}
11995
for (I2=ceild(I1+1,6);I2<=I1-N1;I2++) {
11996
for (I3=I1-2*I2;I3<=floord(I1+2*I2-1,2);I3++) {
11997
J3 = I1-(I2)-(I3) ;
11998
S1++;
11999
}
12000
for (I3=ceild(I1+2*I2,2);I3<=floord(2*I1+I2-1,3);I3++) {
12001
J3 = -I1-2*(I2)+2*I3 ;
12002
S2++;
12003
J3 = I1-(I2)-(I3) ;
12004
S1++;
12005
}
12006
if ((2*I1+I2)%3 == 0) {
12007
I3 = (2*I1+I2)/3 ;
12008
J1 = -2*I1+3*I3 ;
12009
if ((2*I1+J1)%3 == 0) {
12010
J2 = (2*I1+J1)/3 ;
12011
J3 = 3*I1-4*J2 ;
12012
S1++;
12013
S2++;
12014
}
12015
}
12016
for (I3=ceild(2*I1+I2+1,3);I3<=N1;I3++) {
12017
J3 = I1-(I2)-(I3) ;
12018
S1++;
12019
J3 = -I1-2*(I2)+2*I3 ;
12020
S2++;
12021
}
12022
}
12023
for (I2=I1-N1+1;I2<=floord(I1-2,4);I2++) {
12024
for (I3=I1-2*I2;I3<=floord(I1+2*I2-1,2);I3++) {
12025
J3 = I1-(I2)-(I3) ;
12026
S1++;
12027
}
12028
for (I3=ceild(I1+2*I2,2);I3<=floord(2*I1+I2-1,3);I3++) {
12029
J3 = -I1-2*(I2)+2*I3 ;
12030
S2++;
12031
J3 = I1-(I2)-(I3) ;
12032
S1++;
12033
}
12034
if ((2*I1+I2)%3 == 0) {
12035
I3 = (2*I1+I2)/3 ;
12036
J1 = -2*I1+3*I3 ;
12037
if ((2*I1+J1)%3 == 0) {
12038
J2 = (2*I1+J1)/3 ;
12039
J3 = 3*I1-4*J2 ;
12040
S1++;
12041
S2++;
12042
}
12043
}
12044
for (I3=ceild(2*I1+I2+1,3);I3<=I1-I2;I3++) {
12045
J3 = I1-(I2)-(I3) ;
12046
S1++;
12047
J3 = -I1-2*(I2)+2*I3 ;
12048
S2++;
12049
}
12050
for (I3=I1-I2+1;I3<=min(N1,floord(2*I1+3*I2,3));I3++) {
12051
J3 = -I1-2*(I2)+2*I3 ;
12052
S2++;
12053
}
12054
}
12055
if ((I1-1)%4 == 0) {
12056
I2 = (I1-1)/4 ;
12057
for (I3=2*I2+1;I3<=3*I2;I3++) {
12058
J3 = I1-(I2)-(I3) ;
12059
S1++;
12060
}
12061
if ((9*I1-1)%12 == 0) {
12062
I3 = (9*I1-1)/12 ;
12063
J1 = -2*I1+3*I3 ;
12064
if ((2*I1+J1)%3 == 0) {
12065
J2 = (2*I1+J1)/3 ;
12066
J3 = 3*I1-4*J2 ;
12067
S1++;
12068
S2++;
12069
}
12070
}
12071
if ((3*I1+1)%4 == 0) {
12072
I3 = (3*I1+1)/4 ;
12073
J3 = I1-(I2)-(I3) ;
12074
S1++;
12075
J3 = -I1-2*(I2)+2*I3 ;
12076
S2++;
12077
}
12078
for (I3=3*I2+2;I3<=min(N1,floord(11*I2+2,3));I3++) {
12079
J3 = -I1-2*(I2)+2*I3 ;
12080
S2++;
12081
}
12082
}
12083
if (I1%4 == 0) {
12084
for (I3=2*I1/4;I3<=floord(6*I1/4-1,2);I3++) {
12085
J3 = I1-(I2)-(I3) ;
12086
S1++;
12087
}
12088
if (3*I1%4 == 0) {
12089
I3 = 3*I1/4 ;
12090
J1 = -2*I1+3*I3 ;
12091
if ((2*I1+J1)%3 == 0) {
12092
J2 = (2*I1+J1)/3 ;
12093
J3 = 3*I1-4*J2 ;
12094
S1++;
12095
S2++;
12096
}
12097
}
12098
for (I3=3*I1/4+1;I3<=min(N1,floord(11*I1/4,3));I3++) {
12099
J3 = -I1-2*(I2)+2*I3 ;
12100
S2++;
12101
}
12102
}
12103
for (I2=ceild(I1+1,4);I2<=floord(-I1+2*N1,2);I2++) {
12104
for (I3=max(max(1,ceild(I1-I2,2)),I1-2*I2);I3<=I1-I2;I3++) {
12105
J3 = I1-(I2)-(I3) ;
12106
S1++;
12107
}
12108
for (I3=max(I1-I2+1,ceild(I1+2*I2,2));I3<=min(N1,floord(2*I1+3*I2,3));I3++) {
12109
J3 = -I1-2*(I2)+2*I3 ;
12110
S2++;
12111
}
12112
}
12113
for (I2=ceild(-I1+2*N1+1,2);I2<=N1;I2++) {
12114
for (I3=max(max(ceild(I1-I2,2),I1-2*I2),1);I3<=min(I1-I2,N1);I3++) {
12115
J3 = I1-(I2)-(I3) ;
12116
S1++;
12117
}
12118
}
12119
}
12120
if ((N1 >= 18) && (N1 <= 19)) {
12121
if ((4*N1-4)%3 == 0) {
12122
I1 = (4*N1-4)/3 ;
12123
for (I2=1;I2<=floord(N1-7,6);I2++) {
12124
for (I3=ceild(I1+2*I2,2);I3<=min(N1,floord(2*I1+3*I2,3));I3++) {
12125
J3 = -I1-2*(I2)+2*I3 ;
12126
S2++;
12127
}
12128
}
12129
for (I2=ceild(N1-4,6);I2<=floord(4*N1-7,27);I2++) {
12130
for (I3=ceild(I1+2*I2,2);I3<=min(I1-2*I2-1,floord(2*I1+3*I2,3));I3++) {
12131
J3 = -I1-2*(I2)+2*I3 ;
12132
S2++;
12133
}
12134
for (I3=I1-2*I2;I3<=min(N1,I1-I2);I3++) {
12135
J3 = I1-(I2)-(I3) ;
12136
S1++;
12137
}
12138
}
12139
for (I2=ceild(4*N1-4,27);I2<=floord(N1+5,9);I2++) {
12140
for (I3=ceild(I1+2*I2,2);I3<=I1-2*I2-1;I3++) {
12141
J3 = -I1-2*(I2)+2*I3 ;
12142
S2++;
12143
}
12144
for (I3=I1-2*I2;I3<=floord(2*I1+3*I2,3);I3++) {
12145
J3 = I1-(I2)-(I3) ;
12146
S1++;
12147
J3 = -I1-2*(I2)+2*I3 ;
12148
S2++;
12149
}
12150
for (I3=ceild(2*I1+3*I2+1,3);I3<=min(N1,I1-I2);I3++) {
12151
J3 = I1-(I2)-(I3) ;
12152
S1++;
12153
}
12154
}
12155
for (I2=ceild(N1+8,9);I2<=floord(4*N1-7,21);I2++) {
12156
for (I3=ceild(I1+2*I2,2);I3<=I1-2*I2-1;I3++) {
12157
J3 = -I1-2*(I2)+2*I3 ;
12158
S2++;
12159
}
12160
for (I3=I1-2*I2;I3<=N1;I3++) {
12161
J3 = I1-(I2)-(I3) ;
12162
S1++;
12163
J3 = -I1-2*(I2)+2*I3 ;
12164
S2++;
12165
}
12166
}
12167
if ((4*N1-4)%21 == 0) {
12168
I2 = (4*N1-4)/21 ;
12169
for (I3=ceild(9*I2,2);I3<=5*I2-1;I3++) {
12170
J3 = -I1-2*(I2)+2*I3 ;
12171
S2++;
12172
}
12173
if (5*I1%7 == 0) {
12174
I3 = 5*I1/7 ;
12175
J1 = -2*I1+3*I3 ;
12176
if ((2*I1+J1)%3 == 0) {
12177
J2 = (2*I1+J1)/3 ;
12178
J3 = 3*I1-4*J2 ;
12179
S1++;
12180
S2++;
12181
}
12182
}
12183
for (I3=ceild(15*I2+1,3);I3<=N1;I3++) {
12184
J3 = I1-(I2)-(I3) ;
12185
S1++;
12186
J3 = -I1-2*(I2)+2*I3 ;
12187
S2++;
12188
}
12189
}
12190
for (I2=ceild(4*N1-1,21);I2<=floord(2*N1-5,9);I2++) {
12191
for (I3=ceild(I1+2*I2,2);I3<=I1-2*I2-1;I3++) {
12192
J3 = -I1-2*(I2)+2*I3 ;
12193
S2++;
12194
}
12195
for (I3=I1-2*I2;I3<=floord(2*I1+I2-1,3);I3++) {
12196
J3 = -I1-2*(I2)+2*I3 ;
12197
S2++;
12198
J3 = I1-(I2)-(I3) ;
12199
S1++;
12200
}
12201
if ((2*I1+I2)%3 == 0) {
12202
I3 = (2*I1+I2)/3 ;
12203
J1 = -2*I1+3*I3 ;
12204
if ((2*I1+J1)%3 == 0) {
12205
J2 = (2*I1+J1)/3 ;
12206
J3 = 3*I1-4*J2 ;
12207
S1++;
12208
S2++;
12209
}
12210
}
12211
for (I3=ceild(2*I1+I2+1,3);I3<=N1;I3++) {
12212
J3 = I1-(I2)-(I3) ;
12213
S1++;
12214
J3 = -I1-2*(I2)+2*I3 ;
12215
S2++;
12216
}
12217
}
12218
if ((4*N1-7)%18 == 0) {
12219
I2 = (4*N1-7)/18 ;
12220
for (I3=4*I2+1;I3<=floord(13*I2+1,3);I3++) {
12221
J3 = -I1-2*(I2)+2*I3 ;
12222
S2++;
12223
J3 = I1-(I2)-(I3) ;
12224
S1++;
12225
}
12226
if ((13*I1-1)%18 == 0) {
12227
I3 = (13*I1-1)/18 ;
12228
J1 = -2*I1+3*I3 ;
12229
if ((2*I1+J1)%3 == 0) {
12230
J2 = (2*I1+J1)/3 ;
12231
J3 = 3*I1-4*J2 ;
12232
S1++;
12233
S2++;
12234
}
12235
}
12236
for (I3=ceild(13*I2+3,3);I3<=N1;I3++) {
12237
J3 = I1-(I2)-(I3) ;
12238
S1++;
12239
J3 = -I1-2*(I2)+2*I3 ;
12240
S2++;
12241
}
12242
}
12243
if ((2*N1-2)%9 == 0) {
12244
I2 = (2*N1-2)/9 ;
12245
for (I3=4*I2;I3<=floord(13*I2-1,3);I3++) {
12246
J3 = -I1-2*(I2)+2*I3 ;
12247
S2++;
12248
J3 = I1-(I2)-(I3) ;
12249
S1++;
12250
}
12251
if (13*I1%18 == 0) {
12252
I3 = 13*I1/18 ;
12253
J1 = -2*I1+3*I3 ;
12254
if ((2*I1+J1)%3 == 0) {
12255
J2 = (2*I1+J1)/3 ;
12256
J3 = 3*I1-4*J2 ;
12257
S1++;
12258
S2++;
12259
}
12260
}
12261
for (I3=ceild(13*I2+1,3);I3<=min(N1,5*I2);I3++) {
12262
J3 = I1-(I2)-(I3) ;
12263
S1++;
12264
J3 = -I1-2*(I2)+2*I3 ;
12265
S2++;
12266
}
12267
}
12268
for (I2=ceild(4*N1-1,18);I2<=floord(N1-4,3);I2++) {
12269
for (I3=I1-2*I2;I3<=floord(I1+2*I2-1,2);I3++) {
12270
J3 = I1-(I2)-(I3) ;
12271
S1++;
12272
}
12273
for (I3=ceild(I1+2*I2,2);I3<=floord(2*I1+I2-1,3);I3++) {
12274
J3 = -I1-2*(I2)+2*I3 ;
12275
S2++;
12276
J3 = I1-(I2)-(I3) ;
12277
S1++;
12278
}
12279
if ((2*I1+I2)%3 == 0) {
12280
I3 = (2*I1+I2)/3 ;
12281
J1 = -2*I1+3*I3 ;
12282
if ((2*I1+J1)%3 == 0) {
12283
J2 = (2*I1+J1)/3 ;
12284
J3 = 3*I1-4*J2 ;
12285
S1++;
12286
S2++;
12287
}
12288
}
12289
for (I3=ceild(2*I1+I2+1,3);I3<=N1;I3++) {
12290
J3 = I1-(I2)-(I3) ;
12291
S1++;
12292
J3 = -I1-2*(I2)+2*I3 ;
12293
S2++;
12294
}
12295
}
12296
if ((N1-1)%3 == 0) {
12297
I2 = (N1-1)/3 ;
12298
for (I3=2*I2;I3<=floord(6*I2-1,2);I3++) {
12299
J3 = I1-(I2)-(I3) ;
12300
S1++;
12301
}
12302
if (3*I1%4 == 0) {
12303
I3 = 3*I1/4 ;
12304
J1 = -2*I1+3*I3 ;
12305
if ((2*I1+J1)%3 == 0) {
12306
J2 = (2*I1+J1)/3 ;
12307
J3 = 3*I1-4*J2 ;
12308
S1++;
12309
S2++;
12310
}
12311
}
12312
for (I3=3*I2+1;I3<=min(N1,floord(11*I2,3));I3++) {
12313
J3 = -I1-2*(I2)+2*I3 ;
12314
S2++;
12315
}
12316
}
12317
for (I2=ceild(4*N1-1,12);I2<=floord(N1+2,3);I2++) {
12318
for (I3=max(max(1,ceild(I1-I2,2)),I1-2*I2);I3<=I1-I2;I3++) {
12319
J3 = I1-(I2)-(I3) ;
12320
S1++;
12321
}
12322
for (I3=max(I1-I2+1,ceild(I1+2*I2,2));I3<=min(N1,floord(2*I1+3*I2,3));I3++) {
12323
J3 = -I1-2*(I2)+2*I3 ;
12324
S2++;
12325
}
12326
}
12327
for (I2=ceild(2*N1+7,6);I2<=N1;I2++) {
12328
for (I3=max(max(ceild(I1-I2,2),I1-2*I2),1);I3<=min(I1-I2,N1);I3++) {
12329
J3 = I1-(I2)-(I3) ;
12330
S1++;
12331
}
12332
}
12333
}
12334
}
12335
for (I1=max(ceild(21*N1,17),ceild(6*N1+5,5));I1<=floord(21*N1+2,17);I1++) {
12336
for (I2=1;I2<=floord(I1-N1-1,2);I2++) {
12337
for (I3=ceild(I1+2*I2,2);I3<=min(N1,floord(2*I1+3*I2,3));I3++) {
12338
J3 = -I1-2*(I2)+2*I3 ;
12339
S2++;
12340
}
12341
}
12342
for (I2=ceild(I1-N1,2);I2<=floord(I1-1,9);I2++) {
12343
for (I3=ceild(I1+2*I2,2);I3<=min(I1-2*I2-1,floord(2*I1+3*I2,3));I3++) {
12344
J3 = -I1-2*(I2)+2*I3 ;
12345
S2++;
12346
}
12347
for (I3=I1-2*I2;I3<=min(N1,I1-I2);I3++) {
12348
J3 = I1-(I2)-(I3) ;
12349
S1++;
12350
}
12351
}
12352
for (I2=ceild(I1,9);I2<=floord(-2*I1+3*N1-1,3);I2++) {
12353
for (I3=ceild(I1+2*I2,2);I3<=I1-2*I2-1;I3++) {
12354
J3 = -I1-2*(I2)+2*I3 ;
12355
S2++;
12356
}
12357
for (I3=I1-2*I2;I3<=floord(2*I1+3*I2,3);I3++) {
12358
J3 = I1-(I2)-(I3) ;
12359
S1++;
12360
J3 = -I1-2*(I2)+2*I3 ;
12361
S2++;
12362
}
12363
for (I3=ceild(2*I1+3*I2+1,3);I3<=min(N1,I1-I2);I3++) {
12364
J3 = I1-(I2)-(I3) ;
12365
S1++;
12366
}
12367
}
12368
if (I1%7 == 0) {
12369
for (I3=ceild(9*I1/7,2);I3<=5*I1/7-1;I3++) {
12370
J3 = -I1-2*(I2)+2*I3 ;
12371
S2++;
12372
}
12373
if (5*I1%7 == 0) {
12374
I3 = 5*I1/7 ;
12375
J1 = -2*I1+3*I3 ;
12376
if ((2*I1+J1)%3 == 0) {
12377
J2 = (2*I1+J1)/3 ;
12378
J3 = 3*I1-4*J2 ;
12379
S1++;
12380
S2++;
12381
}
12382
}
12383
for (I3=ceild(15*I1/7+1,3);I3<=N1;I3++) {
12384
J3 = I1-(I2)-(I3) ;
12385
S1++;
12386
J3 = -I1-2*(I2)+2*I3 ;
12387
S2++;
12388
}
12389
}
12390
for (I2=ceild(I1+1,7);I2<=floord(I1-2,6);I2++) {
12391
for (I3=ceild(I1+2*I2,2);I3<=I1-2*I2-1;I3++) {
12392
J3 = -I1-2*(I2)+2*I3 ;
12393
S2++;
12394
}
12395
for (I3=I1-2*I2;I3<=floord(2*I1+I2-1,3);I3++) {
12396
J3 = -I1-2*(I2)+2*I3 ;
12397
S2++;
12398
J3 = I1-(I2)-(I3) ;
12399
S1++;
12400
}
12401
if ((2*I1+I2)%3 == 0) {
12402
I3 = (2*I1+I2)/3 ;
12403
J1 = -2*I1+3*I3 ;
12404
if ((2*I1+J1)%3 == 0) {
12405
J2 = (2*I1+J1)/3 ;
12406
J3 = 3*I1-4*J2 ;
12407
S1++;
12408
S2++;
12409
}
12410
}
12411
for (I3=ceild(2*I1+I2+1,3);I3<=N1;I3++) {
12412
J3 = I1-(I2)-(I3) ;
12413
S1++;
12414
J3 = -I1-2*(I2)+2*I3 ;
12415
S2++;
12416
}
12417
}
12418
if ((I1-1)%6 == 0) {
12419
I2 = (I1-1)/6 ;
12420
for (I3=4*I2+1;I3<=floord(13*I2+1,3);I3++) {
12421
J3 = -I1-2*(I2)+2*I3 ;
12422
S2++;
12423
J3 = I1-(I2)-(I3) ;
12424
S1++;
12425
}
12426
if ((13*I1-1)%18 == 0) {
12427
I3 = (13*I1-1)/18 ;
12428
J1 = -2*I1+3*I3 ;
12429
if ((2*I1+J1)%3 == 0) {
12430
J2 = (2*I1+J1)/3 ;
12431
J3 = 3*I1-4*J2 ;
12432
S1++;
12433
S2++;
12434
}
12435
}
12436
for (I3=ceild(13*I2+3,3);I3<=N1;I3++) {
12437
J3 = I1-(I2)-(I3) ;
12438
S1++;
12439
J3 = -I1-2*(I2)+2*I3 ;
12440
S2++;
12441
}
12442
}
12443
if (I1%6 == 0) {
12444
for (I3=4*I1/6;I3<=floord(13*I1/6-1,3);I3++) {
12445
J3 = -I1-2*(I2)+2*I3 ;
12446
S2++;
12447
J3 = I1-(I2)-(I3) ;
12448
S1++;
12449
}
12450
if (13*I1%18 == 0) {
12451
I3 = 13*I1/18 ;
12452
J1 = -2*I1+3*I3 ;
12453
if ((2*I1+J1)%3 == 0) {
12454
J2 = (2*I1+J1)/3 ;
12455
J3 = 3*I1-4*J2 ;
12456
S1++;
12457
S2++;
12458
}
12459
}
12460
for (I3=ceild(13*I1/6+1,3);I3<=min(N1,5*I1/6);I3++) {
12461
J3 = I1-(I2)-(I3) ;
12462
S1++;
12463
J3 = -I1-2*(I2)+2*I3 ;
12464
S2++;
12465
}
12466
}
12467
for (I2=ceild(I1+1,6);I2<=I1-N1;I2++) {
12468
for (I3=I1-2*I2;I3<=floord(I1+2*I2-1,2);I3++) {
12469
J3 = I1-(I2)-(I3) ;
12470
S1++;
12471
}
12472
for (I3=ceild(I1+2*I2,2);I3<=floord(2*I1+I2-1,3);I3++) {
12473
J3 = -I1-2*(I2)+2*I3 ;
12474
S2++;
12475
J3 = I1-(I2)-(I3) ;
12476
S1++;
12477
}
12478
if ((2*I1+I2)%3 == 0) {
12479
I3 = (2*I1+I2)/3 ;
12480
J1 = -2*I1+3*I3 ;
12481
if ((2*I1+J1)%3 == 0) {
12482
J2 = (2*I1+J1)/3 ;
12483
J3 = 3*I1-4*J2 ;
12484
S1++;
12485
S2++;
12486
}
12487
}
12488
for (I3=ceild(2*I1+I2+1,3);I3<=N1;I3++) {
12489
J3 = I1-(I2)-(I3) ;
12490
S1++;
12491
J3 = -I1-2*(I2)+2*I3 ;
12492
S2++;
12493
}
12494
}
12495
for (I2=I1-N1+1;I2<=floord(I1-2,4);I2++) {
12496
for (I3=I1-2*I2;I3<=floord(I1+2*I2-1,2);I3++) {
12497
J3 = I1-(I2)-(I3) ;
12498
S1++;
12499
}
12500
for (I3=ceild(I1+2*I2,2);I3<=floord(2*I1+I2-1,3);I3++) {
12501
J3 = -I1-2*(I2)+2*I3 ;
12502
S2++;
12503
J3 = I1-(I2)-(I3) ;
12504
S1++;
12505
}
12506
if ((2*I1+I2)%3 == 0) {
12507
I3 = (2*I1+I2)/3 ;
12508
J1 = -2*I1+3*I3 ;
12509
if ((2*I1+J1)%3 == 0) {
12510
J2 = (2*I1+J1)/3 ;
12511
J3 = 3*I1-4*J2 ;
12512
S1++;
12513
S2++;
12514
}
12515
}
12516
for (I3=ceild(2*I1+I2+1,3);I3<=I1-I2;I3++) {
12517
J3 = I1-(I2)-(I3) ;
12518
S1++;
12519
J3 = -I1-2*(I2)+2*I3 ;
12520
S2++;
12521
}
12522
for (I3=I1-I2+1;I3<=min(N1,floord(2*I1+3*I2,3));I3++) {
12523
J3 = -I1-2*(I2)+2*I3 ;
12524
S2++;
12525
}
12526
}
12527
if ((I1-1)%4 == 0) {
12528
I2 = (I1-1)/4 ;
12529
for (I3=2*I2+1;I3<=3*I2;I3++) {
12530
J3 = I1-(I2)-(I3) ;
12531
S1++;
12532
}
12533
if ((9*I1-1)%12 == 0) {
12534
I3 = (9*I1-1)/12 ;
12535
J1 = -2*I1+3*I3 ;
12536
if ((2*I1+J1)%3 == 0) {
12537
J2 = (2*I1+J1)/3 ;
12538
J3 = 3*I1-4*J2 ;
12539
S1++;
12540
S2++;
12541
}
12542
}
12543
if ((3*I1+1)%4 == 0) {
12544
I3 = (3*I1+1)/4 ;
12545
J3 = I1-(I2)-(I3) ;
12546
S1++;
12547
J3 = -I1-2*(I2)+2*I3 ;
12548
S2++;
12549
}
12550
for (I3=3*I2+2;I3<=min(N1,floord(11*I2+2,3));I3++) {
12551
J3 = -I1-2*(I2)+2*I3 ;
12552
S2++;
12553
}
12554
}
12555
if (I1%4 == 0) {
12556
for (I3=2*I1/4;I3<=floord(6*I1/4-1,2);I3++) {
12557
J3 = I1-(I2)-(I3) ;
12558
S1++;
12559
}
12560
if (3*I1%4 == 0) {
12561
I3 = 3*I1/4 ;
12562
J1 = -2*I1+3*I3 ;
12563
if ((2*I1+J1)%3 == 0) {
12564
J2 = (2*I1+J1)/3 ;
12565
J3 = 3*I1-4*J2 ;
12566
S1++;
12567
S2++;
12568
}
12569
}
12570
for (I3=3*I1/4+1;I3<=min(N1,floord(11*I1/4,3));I3++) {
12571
J3 = -I1-2*(I2)+2*I3 ;
12572
S2++;
12573
}
12574
}
12575
for (I2=ceild(I1+1,4);I2<=floord(-I1+2*N1,2);I2++) {
12576
for (I3=max(max(1,ceild(I1-I2,2)),I1-2*I2);I3<=I1-I2;I3++) {
12577
J3 = I1-(I2)-(I3) ;
12578
S1++;
12579
}
12580
for (I3=max(I1-I2+1,ceild(I1+2*I2,2));I3<=min(N1,floord(2*I1+3*I2,3));I3++) {
12581
J3 = -I1-2*(I2)+2*I3 ;
12582
S2++;
12583
}
12584
}
12585
for (I2=ceild(-I1+2*N1+1,2);I2<=N1;I2++) {
12586
for (I3=max(max(ceild(I1-I2,2),I1-2*I2),1);I3<=min(I1-I2,N1);I3++) {
12587
J3 = I1-(I2)-(I3) ;
12588
S1++;
12589
}
12590
}
12591
}
12592
for (I1=max(ceild(21*N1+3,17),ceild(6*N1+5,5));I1<=min(floord(9*N1-3,7),floord(4*N1-6,3));I1++) {
12593
for (I2=1;I2<=floord(I1-N1-1,2);I2++) {
12594
for (I3=ceild(I1+2*I2,2);I3<=min(N1,floord(2*I1+3*I2,3));I3++) {
12595
J3 = -I1-2*(I2)+2*I3 ;
12596
S2++;
12597
}
12598
}
12599
for (I2=ceild(I1-N1,2);I2<=floord(I1-1,9);I2++) {
12600
for (I3=ceild(I1+2*I2,2);I3<=min(I1-2*I2-1,floord(2*I1+3*I2,3));I3++) {
12601
J3 = -I1-2*(I2)+2*I3 ;
12602
S2++;
12603
}
12604
for (I3=I1-2*I2;I3<=min(N1,I1-I2);I3++) {
12605
J3 = I1-(I2)-(I3) ;
12606
S1++;
12607
}
12608
}
12609
for (I2=ceild(I1,9);I2<=floord(-2*I1+3*N1-1,3);I2++) {
12610
for (I3=ceild(I1+2*I2,2);I3<=I1-2*I2-1;I3++) {
12611
J3 = -I1-2*(I2)+2*I3 ;
12612
S2++;
12613
}
12614
for (I3=I1-2*I2;I3<=floord(2*I1+3*I2,3);I3++) {
12615
J3 = I1-(I2)-(I3) ;
12616
S1++;
12617
J3 = -I1-2*(I2)+2*I3 ;
12618
S2++;
12619
}
12620
for (I3=ceild(2*I1+3*I2+1,3);I3<=min(N1,I1-I2);I3++) {
12621
J3 = I1-(I2)-(I3) ;
12622
S1++;
12623
}
12624
}
12625
for (I2=ceild(-2*I1+3*N1,3);I2<=floord(I1-1,7);I2++) {
12626
for (I3=ceild(I1+2*I2,2);I3<=I1-2*I2-1;I3++) {
12627
J3 = -I1-2*(I2)+2*I3 ;
12628
S2++;
12629
}
12630
for (I3=I1-2*I2;I3<=N1;I3++) {
12631
J3 = I1-(I2)-(I3) ;
12632
S1++;
12633
J3 = -I1-2*(I2)+2*I3 ;
12634
S2++;
12635
}
12636
}
12637
if (I1%7 == 0) {
12638
for (I3=ceild(9*I1/7,2);I3<=5*I1/7-1;I3++) {
12639
J3 = -I1-2*(I2)+2*I3 ;
12640
S2++;
12641
}
12642
if (5*I1%7 == 0) {
12643
I3 = 5*I1/7 ;
12644
J1 = -2*I1+3*I3 ;
12645
if ((2*I1+J1)%3 == 0) {
12646
J2 = (2*I1+J1)/3 ;
12647
J3 = 3*I1-4*J2 ;
12648
S1++;
12649
S2++;
12650
}
12651
}
12652
for (I3=ceild(15*I1/7+1,3);I3<=N1;I3++) {
12653
J3 = I1-(I2)-(I3) ;
12654
S1++;
12655
J3 = -I1-2*(I2)+2*I3 ;
12656
S2++;
12657
}
12658
}
12659
for (I2=ceild(I1+1,7);I2<=floord(I1-2,6);I2++) {
12660
for (I3=ceild(I1+2*I2,2);I3<=I1-2*I2-1;I3++) {
12661
J3 = -I1-2*(I2)+2*I3 ;
12662
S2++;
12663
}
12664
for (I3=I1-2*I2;I3<=floord(2*I1+I2-1,3);I3++) {
12665
J3 = -I1-2*(I2)+2*I3 ;
12666
S2++;
12667
J3 = I1-(I2)-(I3) ;
12668
S1++;
12669
}
12670
if ((2*I1+I2)%3 == 0) {
12671
I3 = (2*I1+I2)/3 ;
12672
J1 = -2*I1+3*I3 ;
12673
if ((2*I1+J1)%3 == 0) {
12674
J2 = (2*I1+J1)/3 ;
12675
J3 = 3*I1-4*J2 ;
12676
S1++;
12677
S2++;
12678
}
12679
}
12680
for (I3=ceild(2*I1+I2+1,3);I3<=N1;I3++) {
12681
J3 = I1-(I2)-(I3) ;
12682
S1++;
12683
J3 = -I1-2*(I2)+2*I3 ;
12684
S2++;
12685
}
12686
}
12687
if ((I1-1)%6 == 0) {
12688
I2 = (I1-1)/6 ;
12689
for (I3=4*I2+1;I3<=floord(13*I2+1,3);I3++) {
12690
J3 = -I1-2*(I2)+2*I3 ;
12691
S2++;
12692
J3 = I1-(I2)-(I3) ;
12693
S1++;
12694
}
12695
if ((13*I1-1)%18 == 0) {
12696
I3 = (13*I1-1)/18 ;
12697
J1 = -2*I1+3*I3 ;
12698
if ((2*I1+J1)%3 == 0) {
12699
J2 = (2*I1+J1)/3 ;
12700
J3 = 3*I1-4*J2 ;
12701
S1++;
12702
S2++;
12703
}
12704
}
12705
for (I3=ceild(13*I2+3,3);I3<=N1;I3++) {
12706
J3 = I1-(I2)-(I3) ;
12707
S1++;
12708
J3 = -I1-2*(I2)+2*I3 ;
12709
S2++;
12710
}
12711
}
12712
if (I1%6 == 0) {
12713
for (I3=4*I1/6;I3<=floord(13*I1/6-1,3);I3++) {
12714
J3 = -I1-2*(I2)+2*I3 ;
12715
S2++;
12716
J3 = I1-(I2)-(I3) ;
12717
S1++;
12718
}
12719
if (13*I1%18 == 0) {
12720
I3 = 13*I1/18 ;
12721
J1 = -2*I1+3*I3 ;
12722
if ((2*I1+J1)%3 == 0) {
12723
J2 = (2*I1+J1)/3 ;
12724
J3 = 3*I1-4*J2 ;
12725
S1++;
12726
S2++;
12727
}
12728
}
12729
for (I3=ceild(13*I1/6+1,3);I3<=min(N1,5*I1/6);I3++) {
12730
J3 = I1-(I2)-(I3) ;
12731
S1++;
12732
J3 = -I1-2*(I2)+2*I3 ;
12733
S2++;
12734
}
12735
}
12736
for (I2=ceild(I1+1,6);I2<=I1-N1;I2++) {
12737
for (I3=I1-2*I2;I3<=floord(I1+2*I2-1,2);I3++) {
12738
J3 = I1-(I2)-(I3) ;
12739
S1++;
12740
}
12741
for (I3=ceild(I1+2*I2,2);I3<=floord(2*I1+I2-1,3);I3++) {
12742
J3 = -I1-2*(I2)+2*I3 ;
12743
S2++;
12744
J3 = I1-(I2)-(I3) ;
12745
S1++;
12746
}
12747
if ((2*I1+I2)%3 == 0) {
12748
I3 = (2*I1+I2)/3 ;
12749
J1 = -2*I1+3*I3 ;
12750
if ((2*I1+J1)%3 == 0) {
12751
J2 = (2*I1+J1)/3 ;
12752
J3 = 3*I1-4*J2 ;
12753
S1++;
12754
S2++;
12755
}
12756
}
12757
for (I3=ceild(2*I1+I2+1,3);I3<=N1;I3++) {
12758
J3 = I1-(I2)-(I3) ;
12759
S1++;
12760
J3 = -I1-2*(I2)+2*I3 ;
12761
S2++;
12762
}
12763
}
12764
for (I2=I1-N1+1;I2<=floord(I1-2,4);I2++) {
12765
for (I3=I1-2*I2;I3<=floord(I1+2*I2-1,2);I3++) {
12766
J3 = I1-(I2)-(I3) ;
12767
S1++;
12768
}
12769
for (I3=ceild(I1+2*I2,2);I3<=floord(2*I1+I2-1,3);I3++) {
12770
J3 = -I1-2*(I2)+2*I3 ;
12771
S2++;
12772
J3 = I1-(I2)-(I3) ;
12773
S1++;
12774
}
12775
if ((2*I1+I2)%3 == 0) {
12776
I3 = (2*I1+I2)/3 ;
12777
J1 = -2*I1+3*I3 ;
12778
if ((2*I1+J1)%3 == 0) {
12779
J2 = (2*I1+J1)/3 ;
12780
J3 = 3*I1-4*J2 ;
12781
S1++;
12782
S2++;
12783
}
12784
}
12785
for (I3=ceild(2*I1+I2+1,3);I3<=I1-I2;I3++) {
12786
J3 = I1-(I2)-(I3) ;
12787
S1++;
12788
J3 = -I1-2*(I2)+2*I3 ;
12789
S2++;
12790
}
12791
for (I3=I1-I2+1;I3<=min(N1,floord(2*I1+3*I2,3));I3++) {
12792
J3 = -I1-2*(I2)+2*I3 ;
12793
S2++;
12794
}
12795
}
12796
if ((I1-1)%4 == 0) {
12797
I2 = (I1-1)/4 ;
12798
for (I3=2*I2+1;I3<=3*I2;I3++) {
12799
J3 = I1-(I2)-(I3) ;
12800
S1++;
12801
}
12802
if ((9*I1-1)%12 == 0) {
12803
I3 = (9*I1-1)/12 ;
12804
J1 = -2*I1+3*I3 ;
12805
if ((2*I1+J1)%3 == 0) {
12806
J2 = (2*I1+J1)/3 ;
12807
J3 = 3*I1-4*J2 ;
12808
S1++;
12809
S2++;
12810
}
12811
}
12812
if ((3*I1+1)%4 == 0) {
12813
I3 = (3*I1+1)/4 ;
12814
J3 = I1-(I2)-(I3) ;
12815
S1++;
12816
J3 = -I1-2*(I2)+2*I3 ;
12817
S2++;
12818
}
12819
for (I3=3*I2+2;I3<=min(N1,floord(11*I2+2,3));I3++) {
12820
J3 = -I1-2*(I2)+2*I3 ;
12821
S2++;
12822
}
12823
}
12824
if (I1%4 == 0) {
12825
for (I3=2*I1/4;I3<=floord(6*I1/4-1,2);I3++) {
12826
J3 = I1-(I2)-(I3) ;
12827
S1++;
12828
}
12829
if (3*I1%4 == 0) {
12830
I3 = 3*I1/4 ;
12831
J1 = -2*I1+3*I3 ;
12832
if ((2*I1+J1)%3 == 0) {
12833
J2 = (2*I1+J1)/3 ;
12834
J3 = 3*I1-4*J2 ;
12835
S1++;
12836
S2++;
12837
}
12838
}
12839
for (I3=3*I1/4+1;I3<=min(N1,floord(11*I1/4,3));I3++) {
12840
J3 = -I1-2*(I2)+2*I3 ;
12841
S2++;
12842
}
12843
}
12844
for (I2=ceild(I1+1,4);I2<=floord(-I1+2*N1,2);I2++) {
12845
for (I3=max(max(1,ceild(I1-I2,2)),I1-2*I2);I3<=I1-I2;I3++) {
12846
J3 = I1-(I2)-(I3) ;
12847
S1++;
12848
}
12849
for (I3=max(I1-I2+1,ceild(I1+2*I2,2));I3<=min(N1,floord(2*I1+3*I2,3));I3++) {
12850
J3 = -I1-2*(I2)+2*I3 ;
12851
S2++;
12852
}
12853
}
12854
for (I2=ceild(-I1+2*N1+1,2);I2<=N1;I2++) {
12855
for (I3=max(max(ceild(I1-I2,2),I1-2*I2),1);I3<=min(I1-I2,N1);I3++) {
12856
J3 = I1-(I2)-(I3) ;
12857
S1++;
12858
}
12859
}
12860
}
12861
if ((N1 >= 20) && (N1 <= 26)) {
12862
if ((4*N1-5)%3 == 0) {
12863
I1 = (4*N1-5)/3 ;
12864
for (I2=1;I2<=floord(N1-8,6);I2++) {
12865
for (I3=ceild(I1+2*I2,2);I3<=min(N1,floord(2*I1+3*I2,3));I3++) {
12866
J3 = -I1-2*(I2)+2*I3 ;
12867
S2++;
12868
}
12869
}
12870
for (I2=ceild(N1-5,6);I2<=floord(4*N1-8,27);I2++) {
12871
for (I3=ceild(I1+2*I2,2);I3<=min(I1-2*I2-1,floord(2*I1+3*I2,3));I3++) {
12872
J3 = -I1-2*(I2)+2*I3 ;
12873
S2++;
12874
}
12875
for (I3=I1-2*I2;I3<=min(N1,I1-I2);I3++) {
12876
J3 = I1-(I2)-(I3) ;
12877
S1++;
12878
}
12879
}
12880
for (I2=ceild(4*N1-5,27);I2<=floord(N1+7,9);I2++) {
12881
for (I3=ceild(I1+2*I2,2);I3<=I1-2*I2-1;I3++) {
12882
J3 = -I1-2*(I2)+2*I3 ;
12883
S2++;
12884
}
12885
for (I3=I1-2*I2;I3<=floord(2*I1+3*I2,3);I3++) {
12886
J3 = I1-(I2)-(I3) ;
12887
S1++;
12888
J3 = -I1-2*(I2)+2*I3 ;
12889
S2++;
12890
}
12891
for (I3=ceild(2*I1+3*I2+1,3);I3<=min(N1,I1-I2);I3++) {
12892
J3 = I1-(I2)-(I3) ;
12893
S1++;
12894
}
12895
}
12896
for (I2=ceild(N1+10,9);I2<=floord(4*N1-8,21);I2++) {
12897
for (I3=ceild(I1+2*I2,2);I3<=I1-2*I2-1;I3++) {
12898
J3 = -I1-2*(I2)+2*I3 ;
12899
S2++;
12900
}
12901
for (I3=I1-2*I2;I3<=N1;I3++) {
12902
J3 = I1-(I2)-(I3) ;
12903
S1++;
12904
J3 = -I1-2*(I2)+2*I3 ;
12905
S2++;
12906
}
12907
}
12908
if ((4*N1-5)%21 == 0) {
12909
I2 = (4*N1-5)/21 ;
12910
for (I3=ceild(9*I2,2);I3<=5*I2-1;I3++) {
12911
J3 = -I1-2*(I2)+2*I3 ;
12912
S2++;
12913
}
12914
if (5*I1%7 == 0) {
12915
I3 = 5*I1/7 ;
12916
J1 = -2*I1+3*I3 ;
12917
if ((2*I1+J1)%3 == 0) {
12918
J2 = (2*I1+J1)/3 ;
12919
J3 = 3*I1-4*J2 ;
12920
S1++;
12921
S2++;
12922
}
12923
}
12924
for (I3=ceild(15*I2+1,3);I3<=N1;I3++) {
12925
J3 = I1-(I2)-(I3) ;
12926
S1++;
12927
J3 = -I1-2*(I2)+2*I3 ;
12928
S2++;
12929
}
12930
}
12931
for (I2=ceild(4*N1-2,21);I2<=floord(4*N1-11,18);I2++) {
12932
for (I3=ceild(I1+2*I2,2);I3<=I1-2*I2-1;I3++) {
12933
J3 = -I1-2*(I2)+2*I3 ;
12934
S2++;
12935
}
12936
for (I3=I1-2*I2;I3<=floord(2*I1+I2-1,3);I3++) {
12937
J3 = -I1-2*(I2)+2*I3 ;
12938
S2++;
12939
J3 = I1-(I2)-(I3) ;
12940
S1++;
12941
}
12942
if ((2*I1+I2)%3 == 0) {
12943
I3 = (2*I1+I2)/3 ;
12944
J1 = -2*I1+3*I3 ;
12945
if ((2*I1+J1)%3 == 0) {
12946
J2 = (2*I1+J1)/3 ;
12947
J3 = 3*I1-4*J2 ;
12948
S1++;
12949
S2++;
12950
}
12951
}
12952
for (I3=ceild(2*I1+I2+1,3);I3<=N1;I3++) {
12953
J3 = I1-(I2)-(I3) ;
12954
S1++;
12955
J3 = -I1-2*(I2)+2*I3 ;
12956
S2++;
12957
}
12958
}
12959
if ((2*N1-4)%9 == 0) {
12960
I2 = (2*N1-4)/9 ;
12961
for (I3=4*I2+1;I3<=floord(13*I2+1,3);I3++) {
12962
J3 = -I1-2*(I2)+2*I3 ;
12963
S2++;
12964
J3 = I1-(I2)-(I3) ;
12965
S1++;
12966
}
12967
if ((13*I1-1)%18 == 0) {
12968
I3 = (13*I1-1)/18 ;
12969
J1 = -2*I1+3*I3 ;
12970
if ((2*I1+J1)%3 == 0) {
12971
J2 = (2*I1+J1)/3 ;
12972
J3 = 3*I1-4*J2 ;
12973
S1++;
12974
S2++;
12975
}
12976
}
12977
for (I3=ceild(13*I2+3,3);I3<=N1;I3++) {
12978
J3 = I1-(I2)-(I3) ;
12979
S1++;
12980
J3 = -I1-2*(I2)+2*I3 ;
12981
S2++;
12982
}
12983
}
12984
if ((4*N1-5)%18 == 0) {
12985
I2 = (4*N1-5)/18 ;
12986
for (I3=4*I2;I3<=floord(13*I2-1,3);I3++) {
12987
J3 = -I1-2*(I2)+2*I3 ;
12988
S2++;
12989
J3 = I1-(I2)-(I3) ;
12990
S1++;
12991
}
12992
if (13*I1%18 == 0) {
12993
I3 = 13*I1/18 ;
12994
J1 = -2*I1+3*I3 ;
12995
if ((2*I1+J1)%3 == 0) {
12996
J2 = (2*I1+J1)/3 ;
12997
J3 = 3*I1-4*J2 ;
12998
S1++;
12999
S2++;
13000
}
13001
}
13002
for (I3=ceild(13*I2+1,3);I3<=min(N1,5*I2);I3++) {
13003
J3 = I1-(I2)-(I3) ;
13004
S1++;
13005
J3 = -I1-2*(I2)+2*I3 ;
13006
S2++;
13007
}
13008
}
13009
for (I2=ceild(2*N1-1,9);I2<=floord(N1-5,3);I2++) {
13010
for (I3=I1-2*I2;I3<=floord(I1+2*I2-1,2);I3++) {
13011
J3 = I1-(I2)-(I3) ;
13012
S1++;
13013
}
13014
for (I3=ceild(I1+2*I2,2);I3<=floord(2*I1+I2-1,3);I3++) {
13015
J3 = -I1-2*(I2)+2*I3 ;
13016
S2++;
13017
J3 = I1-(I2)-(I3) ;
13018
S1++;
13019
}
13020
if ((2*I1+I2)%3 == 0) {
13021
I3 = (2*I1+I2)/3 ;
13022
J1 = -2*I1+3*I3 ;
13023
if ((2*I1+J1)%3 == 0) {
13024
J2 = (2*I1+J1)/3 ;
13025
J3 = 3*I1-4*J2 ;
13026
S1++;
13027
S2++;
13028
}
13029
}
13030
for (I3=ceild(2*I1+I2+1,3);I3<=N1;I3++) {
13031
J3 = I1-(I2)-(I3) ;
13032
S1++;
13033
J3 = -I1-2*(I2)+2*I3 ;
13034
S2++;
13035
}
13036
}
13037
if ((N1-2)%3 == 0) {
13038
I2 = (N1-2)/3 ;
13039
for (I3=2*I2+1;I3<=3*I2;I3++) {
13040
J3 = I1-(I2)-(I3) ;
13041
S1++;
13042
}
13043
if ((9*I1-1)%12 == 0) {
13044
I3 = (9*I1-1)/12 ;
13045
J1 = -2*I1+3*I3 ;
13046
if ((2*I1+J1)%3 == 0) {
13047
J2 = (2*I1+J1)/3 ;
13048
J3 = 3*I1-4*J2 ;
13049
S1++;
13050
S2++;
13051
}
13052
}
13053
if ((3*I1+1)%4 == 0) {
13054
I3 = (3*I1+1)/4 ;
13055
J3 = I1-(I2)-(I3) ;
13056
S1++;
13057
J3 = -I1-2*(I2)+2*I3 ;
13058
S2++;
13059
}
13060
for (I3=3*I2+2;I3<=min(N1,floord(11*I2+2,3));I3++) {
13061
J3 = -I1-2*(I2)+2*I3 ;
13062
S2++;
13063
}
13064
}
13065
if ((4*N1-5)%12 == 0) {
13066
I2 = (4*N1-5)/12 ;
13067
for (I3=2*I2;I3<=floord(6*I2-1,2);I3++) {
13068
J3 = I1-(I2)-(I3) ;
13069
S1++;
13070
}
13071
if (3*I1%4 == 0) {
13072
I3 = 3*I1/4 ;
13073
J1 = -2*I1+3*I3 ;
13074
if ((2*I1+J1)%3 == 0) {
13075
J2 = (2*I1+J1)/3 ;
13076
J3 = 3*I1-4*J2 ;
13077
S1++;
13078
S2++;
13079
}
13080
}
13081
for (I3=3*I2+1;I3<=min(N1,floord(11*I2,3));I3++) {
13082
J3 = -I1-2*(I2)+2*I3 ;
13083
S2++;
13084
}
13085
}
13086
for (I2=ceild(2*N1-1,6);I2<=floord(2*N1+5,6);I2++) {
13087
for (I3=max(max(1,ceild(I1-I2,2)),I1-2*I2);I3<=I1-I2;I3++) {
13088
J3 = I1-(I2)-(I3) ;
13089
S1++;
13090
}
13091
for (I3=max(I1-I2+1,ceild(I1+2*I2,2));I3<=min(N1,floord(2*I1+3*I2,3));I3++) {
13092
J3 = -I1-2*(I2)+2*I3 ;
13093
S2++;
13094
}
13095
}
13096
for (I2=ceild(N1+4,3);I2<=N1;I2++) {
13097
for (I3=max(max(ceild(I1-I2,2),I1-2*I2),1);I3<=min(I1-I2,N1);I3++) {
13098
J3 = I1-(I2)-(I3) ;
13099
S1++;
13100
}
13101
}
13102
}
13103
}
13104
if (N1 >= 36) {
13105
if ((9*N1-2)%7 == 0) {
13106
I1 = (9*N1-2)/7 ;
13107
for (I2=1;I2<=floord(2*N1-9,14);I2++) {
13108
for (I3=ceild(I1+2*I2,2);I3<=min(N1,floord(2*I1+3*I2,3));I3++) {
13109
J3 = -I1-2*(I2)+2*I3 ;
13110
S2++;
13111
}
13112
}
13113
if ((N1-1)%7 == 0) {
13114
I2 = (N1-1)/7 ;
13115
for (I3=ceild(I1+2*I2,2);I3<=min(I1-2*I2-1,floord(2*I1+3*I2,3));I3++) {
13116
J3 = -I1-2*(I2)+2*I3 ;
13117
S2++;
13118
}
13119
for (I3=I1-2*I2;I3<=min(N1,I1-I2);I3++) {
13120
J3 = I1-(I2)-(I3) ;
13121
S1++;
13122
}
13123
}
13124
for (I2=ceild(3*N1+4,21);I2<=floord(9*N1-9,49);I2++) {
13125
for (I3=ceild(I1+2*I2,2);I3<=I1-2*I2-1;I3++) {
13126
J3 = -I1-2*(I2)+2*I3 ;
13127
S2++;
13128
}
13129
for (I3=I1-2*I2;I3<=N1;I3++) {
13130
J3 = I1-(I2)-(I3) ;
13131
S1++;
13132
J3 = -I1-2*(I2)+2*I3 ;
13133
S2++;
13134
}
13135
}
13136
if ((9*N1-2)%49 == 0) {
13137
I2 = (9*N1-2)/49 ;
13138
for (I3=ceild(9*I2,2);I3<=5*I2-1;I3++) {
13139
J3 = -I1-2*(I2)+2*I3 ;
13140
S2++;
13141
}
13142
if (5*I1%7 == 0) {
13143
I3 = 5*I1/7 ;
13144
J1 = -2*I1+3*I3 ;
13145
if ((2*I1+J1)%3 == 0) {
13146
J2 = (2*I1+J1)/3 ;
13147
J3 = 3*I1-4*J2 ;
13148
S1++;
13149
S2++;
13150
}
13151
}
13152
for (I3=ceild(15*I2+1,3);I3<=N1;I3++) {
13153
J3 = I1-(I2)-(I3) ;
13154
S1++;
13155
J3 = -I1-2*(I2)+2*I3 ;
13156
S2++;
13157
}
13158
}
13159
for (I2=ceild(9*N1+5,49);I2<=floord(9*N1-16,42);I2++) {
13160
for (I3=ceild(I1+2*I2,2);I3<=I1-2*I2-1;I3++) {
13161
J3 = -I1-2*(I2)+2*I3 ;
13162
S2++;
13163
}
13164
for (I3=I1-2*I2;I3<=floord(2*I1+I2-1,3);I3++) {
13165
J3 = -I1-2*(I2)+2*I3 ;
13166
S2++;
13167
J3 = I1-(I2)-(I3) ;
13168
S1++;
13169
}
13170
if ((2*I1+I2)%3 == 0) {
13171
I3 = (2*I1+I2)/3 ;
13172
J1 = -2*I1+3*I3 ;
13173
if ((2*I1+J1)%3 == 0) {
13174
J2 = (2*I1+J1)/3 ;
13175
J3 = 3*I1-4*J2 ;
13176
S1++;
13177
S2++;
13178
}
13179
}
13180
for (I3=ceild(2*I1+I2+1,3);I3<=N1;I3++) {
13181
J3 = I1-(I2)-(I3) ;
13182
S1++;
13183
J3 = -I1-2*(I2)+2*I3 ;
13184
S2++;
13185
}
13186
}
13187
if ((3*N1-3)%14 == 0) {
13188
I2 = (3*N1-3)/14 ;
13189
for (I3=4*I2+1;I3<=floord(13*I2+1,3);I3++) {
13190
J3 = -I1-2*(I2)+2*I3 ;
13191
S2++;
13192
J3 = I1-(I2)-(I3) ;
13193
S1++;
13194
}
13195
if ((13*I1-1)%18 == 0) {
13196
I3 = (13*I1-1)/18 ;
13197
J1 = -2*I1+3*I3 ;
13198
if ((2*I1+J1)%3 == 0) {
13199
J2 = (2*I1+J1)/3 ;
13200
J3 = 3*I1-4*J2 ;
13201
S1++;
13202
S2++;
13203
}
13204
}
13205
for (I3=ceild(13*I2+3,3);I3<=N1;I3++) {
13206
J3 = I1-(I2)-(I3) ;
13207
S1++;
13208
J3 = -I1-2*(I2)+2*I3 ;
13209
S2++;
13210
}
13211
}
13212
if ((9*N1-2)%42 == 0) {
13213
I2 = (9*N1-2)/42 ;
13214
for (I3=4*I2;I3<=floord(13*I2-1,3);I3++) {
13215
J3 = -I1-2*(I2)+2*I3 ;
13216
S2++;
13217
J3 = I1-(I2)-(I3) ;
13218
S1++;
13219
}
13220
if (13*I1%18 == 0) {
13221
I3 = 13*I1/18 ;
13222
J1 = -2*I1+3*I3 ;
13223
if ((2*I1+J1)%3 == 0) {
13224
J2 = (2*I1+J1)/3 ;
13225
J3 = 3*I1-4*J2 ;
13226
S1++;
13227
S2++;
13228
}
13229
}
13230
for (I3=ceild(13*I2+1,3);I3<=min(N1,5*I2);I3++) {
13231
J3 = I1-(I2)-(I3) ;
13232
S1++;
13233
J3 = -I1-2*(I2)+2*I3 ;
13234
S2++;
13235
}
13236
}
13237
for (I2=ceild(9*N1+5,42);I2<=floord(2*N1-2,7);I2++) {
13238
for (I3=I1-2*I2;I3<=floord(I1+2*I2-1,2);I3++) {
13239
J3 = I1-(I2)-(I3) ;
13240
S1++;
13241
}
13242
for (I3=ceild(I1+2*I2,2);I3<=floord(2*I1+I2-1,3);I3++) {
13243
J3 = -I1-2*(I2)+2*I3 ;
13244
S2++;
13245
J3 = I1-(I2)-(I3) ;
13246
S1++;
13247
}
13248
if ((2*I1+I2)%3 == 0) {
13249
I3 = (2*I1+I2)/3 ;
13250
J1 = -2*I1+3*I3 ;
13251
if ((2*I1+J1)%3 == 0) {
13252
J2 = (2*I1+J1)/3 ;
13253
J3 = 3*I1-4*J2 ;
13254
S1++;
13255
S2++;
13256
}
13257
}
13258
for (I3=ceild(2*I1+I2+1,3);I3<=N1;I3++) {
13259
J3 = I1-(I2)-(I3) ;
13260
S1++;
13261
J3 = -I1-2*(I2)+2*I3 ;
13262
S2++;
13263
}
13264
}
13265
for (I2=ceild(2*N1+5,7);I2<=floord(9*N1-16,28);I2++) {
13266
for (I3=I1-2*I2;I3<=floord(I1+2*I2-1,2);I3++) {
13267
J3 = I1-(I2)-(I3) ;
13268
S1++;
13269
}
13270
for (I3=ceild(I1+2*I2,2);I3<=floord(2*I1+I2-1,3);I3++) {
13271
J3 = -I1-2*(I2)+2*I3 ;
13272
S2++;
13273
J3 = I1-(I2)-(I3) ;
13274
S1++;
13275
}
13276
if ((2*I1+I2)%3 == 0) {
13277
I3 = (2*I1+I2)/3 ;
13278
J1 = -2*I1+3*I3 ;
13279
if ((2*I1+J1)%3 == 0) {
13280
J2 = (2*I1+J1)/3 ;
13281
J3 = 3*I1-4*J2 ;
13282
S1++;
13283
S2++;
13284
}
13285
}
13286
for (I3=ceild(2*I1+I2+1,3);I3<=I1-I2;I3++) {
13287
J3 = I1-(I2)-(I3) ;
13288
S1++;
13289
J3 = -I1-2*(I2)+2*I3 ;
13290
S2++;
13291
}
13292
for (I3=I1-I2+1;I3<=min(N1,floord(2*I1+3*I2,3));I3++) {
13293
J3 = -I1-2*(I2)+2*I3 ;
13294
S2++;
13295
}
13296
}
13297
if ((9*N1-9)%28 == 0) {
13298
I2 = (9*N1-9)/28 ;
13299
for (I3=2*I2+1;I3<=3*I2;I3++) {
13300
J3 = I1-(I2)-(I3) ;
13301
S1++;
13302
}
13303
if ((9*I1-1)%12 == 0) {
13304
I3 = (9*I1-1)/12 ;
13305
J1 = -2*I1+3*I3 ;
13306
if ((2*I1+J1)%3 == 0) {
13307
J2 = (2*I1+J1)/3 ;
13308
J3 = 3*I1-4*J2 ;
13309
S1++;
13310
S2++;
13311
}
13312
}
13313
if ((3*I1+1)%4 == 0) {
13314
I3 = (3*I1+1)/4 ;
13315
J3 = I1-(I2)-(I3) ;
13316
S1++;
13317
J3 = -I1-2*(I2)+2*I3 ;
13318
S2++;
13319
}
13320
for (I3=3*I2+2;I3<=min(N1,floord(11*I2+2,3));I3++) {
13321
J3 = -I1-2*(I2)+2*I3 ;
13322
S2++;
13323
}
13324
}
13325
if ((9*N1-2)%28 == 0) {
13326
I2 = (9*N1-2)/28 ;
13327
for (I3=2*I2;I3<=floord(6*I2-1,2);I3++) {
13328
J3 = I1-(I2)-(I3) ;
13329
S1++;
13330
}
13331
if (3*I1%4 == 0) {
13332
I3 = 3*I1/4 ;
13333
J1 = -2*I1+3*I3 ;
13334
if ((2*I1+J1)%3 == 0) {
13335
J2 = (2*I1+J1)/3 ;
13336
J3 = 3*I1-4*J2 ;
13337
S1++;
13338
S2++;
13339
}
13340
}
13341
for (I3=3*I2+1;I3<=min(N1,floord(11*I2,3));I3++) {
13342
J3 = -I1-2*(I2)+2*I3 ;
13343
S2++;
13344
}
13345
}
13346
for (I2=ceild(9*N1+5,28);I2<=floord(5*N1+2,14);I2++) {
13347
for (I3=max(max(1,ceild(I1-I2,2)),I1-2*I2);I3<=I1-I2;I3++) {
13348
J3 = I1-(I2)-(I3) ;
13349
S1++;
13350
}
13351
for (I3=max(I1-I2+1,ceild(I1+2*I2,2));I3<=min(N1,floord(2*I1+3*I2,3));I3++) {
13352
J3 = -I1-2*(I2)+2*I3 ;
13353
S2++;
13354
}
13355
}
13356
for (I2=ceild(5*N1+9,14);I2<=N1;I2++) {
13357
for (I3=max(max(ceild(I1-I2,2),I1-2*I2),1);I3<=min(I1-I2,N1);I3++) {
13358
J3 = I1-(I2)-(I3) ;
13359
S1++;
13360
}
13361
}
13362
}
13363
}
13364
if (N1 == 29) {
13365
for (I2=1;I2<=3;I2++) {
13366
for (I3=ceild(37+2*I2,2);I3<=min(N1,floord(2*37+3*I2,3));I3++) {
13367
J3 = -(37)-2*(I2)+2*I3 ;
13368
S2++;
13369
}
13370
}
13371
for (I3=ceild(37+2*4,2);I3<=min(37-2*(4)-1,floord(2*37+3*4,3));I3++) {
13372
J3 = -(37)-2*(I2)+2*I3 ;
13373
S2++;
13374
}
13375
for (I3=37-2*(4);I3<=min(N1,37-(4));I3++) {
13376
J3 = 37-(I2)-(I3) ;
13377
S1++;
13378
}
13379
for (I3=ceild(37+2*5,2);I3<=37-2*(5)-1;I3++) {
13380
J3 = -(37)-2*(I2)+2*I3 ;
13381
S2++;
13382
}
13383
for (I3=37-2*(5);I3<=N1;I3++) {
13384
J3 = 37-(I2)-(I3) ;
13385
S1++;
13386
J3 = -(37)-2*(I2)+2*I3 ;
13387
S2++;
13388
}
13389
if (37%7 == 0) {
13390
for (I3=ceild(9*37/7,2);I3<=5*37/7-1;I3++) {
13391
J3 = -(37)-2*(I2)+2*I3 ;
13392
S2++;
13393
}
13394
if (5*37%7 == 0) {
13395
I3 = 5*37/7 ;
13396
J1 = -2*(37)+3*I3 ;
13397
if ((2*37+J1)%3 == 0) {
13398
J2 = (2*37+J1)/3 ;
13399
J3 = 3*37-4*J2 ;
13400
S1++;
13401
S2++;
13402
}
13403
}
13404
for (I3=ceild(15*37/7+1,3);I3<=N1;I3++) {
13405
J3 = 37-(I2)-(I3) ;
13406
S1++;
13407
J3 = -(37)-2*(I2)+2*I3 ;
13408
S2++;
13409
}
13410
}
13411
for (I2=6;I2<=5;I2++) {
13412
for (I3=ceild(37+2*I2,2);I3<=37-2*I2-1;I3++) {
13413
J3 = -(37)-2*(I2)+2*I3 ;
13414
S2++;
13415
}
13416
for (I3=37-2*I2;I3<=floord(2*37+I2-1,3);I3++) {
13417
J3 = -(37)-2*(I2)+2*I3 ;
13418
S2++;
13419
J3 = 37-(I2)-(I3) ;
13420
S1++;
13421
}
13422
if ((2*37+I2)%3 == 0) {
13423
I3 = (2*37+I2)/3 ;
13424
J1 = -2*(37)+3*I3 ;
13425
if ((2*37+J1)%3 == 0) {
13426
J2 = (2*37+J1)/3 ;
13427
J3 = 3*37-4*J2 ;
13428
S1++;
13429
S2++;
13430
}
13431
}
13432
for (I3=ceild(2*37+I2+1,3);I3<=N1;I3++) {
13433
J3 = 37-(I2)-(I3) ;
13434
S1++;
13435
J3 = -(37)-2*(I2)+2*I3 ;
13436
S2++;
13437
}
13438
}
13439
for (I3=4*6+1;I3<=floord(13*6+1,3);I3++) {
13440
J3 = -(37)-2*(I2)+2*I3 ;
13441
S2++;
13442
J3 = 37-(I2)-(I3) ;
13443
S1++;
13444
}
13445
if ((13*37-1)%18 == 0) {
13446
I3 = (13*37-1)/18 ;
13447
J1 = -2*(37)+3*I3 ;
13448
if ((2*37+J1)%3 == 0) {
13449
J2 = (2*37+J1)/3 ;
13450
J3 = 3*37-4*J2 ;
13451
S1++;
13452
S2++;
13453
}
13454
}
13455
for (I3=ceild(13*6+3,3);I3<=N1;I3++) {
13456
J3 = 37-(I2)-(I3) ;
13457
S1++;
13458
J3 = -(37)-2*(I2)+2*I3 ;
13459
S2++;
13460
}
13461
if (37%6 == 0) {
13462
for (I3=4*37/6;I3<=floord(13*37/6-1,3);I3++) {
13463
J3 = -(37)-2*(I2)+2*I3 ;
13464
S2++;
13465
J3 = 37-(I2)-(I3) ;
13466
S1++;
13467
}
13468
if (13*37%18 == 0) {
13469
I3 = 13*37/18 ;
13470
J1 = -2*(37)+3*I3 ;
13471
if ((2*37+J1)%3 == 0) {
13472
J2 = (2*37+J1)/3 ;
13473
J3 = 3*37-4*J2 ;
13474
S1++;
13475
S2++;
13476
}
13477
}
13478
for (I3=ceild(13*37/6+1,3);I3<=min(N1,5*37/6);I3++) {
13479
J3 = 37-(I2)-(I3) ;
13480
S1++;
13481
J3 = -(37)-2*(I2)+2*I3 ;
13482
S2++;
13483
}
13484
}
13485
for (I2=7;I2<=8;I2++) {
13486
for (I3=37-2*I2;I3<=floord(37+2*I2-1,2);I3++) {
13487
J3 = 37-(I2)-(I3) ;
13488
S1++;
13489
}
13490
for (I3=ceild(37+2*I2,2);I3<=floord(2*37+I2-1,3);I3++) {
13491
J3 = -(37)-2*(I2)+2*I3 ;
13492
S2++;
13493
J3 = 37-(I2)-(I3) ;
13494
S1++;
13495
}
13496
if ((2*37+I2)%3 == 0) {
13497
I3 = (2*37+I2)/3 ;
13498
J1 = -2*(37)+3*I3 ;
13499
if ((2*37+J1)%3 == 0) {
13500
J2 = (2*37+J1)/3 ;
13501
J3 = 3*37-4*J2 ;
13502
S1++;
13503
S2++;
13504
}
13505
}
13506
for (I3=ceild(2*37+I2+1,3);I3<=N1;I3++) {
13507
J3 = 37-(I2)-(I3) ;
13508
S1++;
13509
J3 = -(37)-2*(I2)+2*I3 ;
13510
S2++;
13511
}
13512
}
13513
for (I3=2*9+1;I3<=3*9;I3++) {
13514
J3 = 37-(I2)-(I3) ;
13515
S1++;
13516
}
13517
if ((9*37-1)%12 == 0) {
13518
I3 = (9*37-1)/12 ;
13519
J1 = -2*(37)+3*I3 ;
13520
if ((2*37+J1)%3 == 0) {
13521
J2 = (2*37+J1)/3 ;
13522
J3 = 3*37-4*J2 ;
13523
S1++;
13524
S2++;
13525
}
13526
}
13527
if ((3*37+1)%4 == 0) {
13528
I3 = (3*37+1)/4 ;
13529
J3 = 37-(I2)-(I3) ;
13530
S1++;
13531
J3 = -(37)-2*(I2)+2*I3 ;
13532
S2++;
13533
}
13534
for (I3=3*9+2;I3<=min(N1,floord(11*9+2,3));I3++) {
13535
J3 = -(37)-2*(I2)+2*I3 ;
13536
S2++;
13537
}
13538
if (37%4 == 0) {
13539
for (I3=2*37/4;I3<=floord(6*37/4-1,2);I3++) {
13540
J3 = 37-(I2)-(I3) ;
13541
S1++;
13542
}
13543
if (3*37%4 == 0) {
13544
I3 = 3*37/4 ;
13545
J1 = -2*(37)+3*I3 ;
13546
if ((2*37+J1)%3 == 0) {
13547
J2 = (2*37+J1)/3 ;
13548
J3 = 3*37-4*J2 ;
13549
S1++;
13550
S2++;
13551
}
13552
}
13553
for (I3=3*37/4+1;I3<=min(N1,floord(11*37/4,3));I3++) {
13554
J3 = -(37)-2*(I2)+2*I3 ;
13555
S2++;
13556
}
13557
}
13558
for (I3=max(max(1,ceild(37-(10),2)),37-2*(10));I3<=37-(10);I3++) {
13559
J3 = 37-(I2)-(I3) ;
13560
S1++;
13561
}
13562
for (I3=max(37-(10)+1,ceild(37+2*10,2));I3<=min(N1,floord(2*37+3*10,3));I3++) {
13563
J3 = -(37)-2*(I2)+2*I3 ;
13564
S2++;
13565
}
13566
for (I2=11;I2<=29;I2++) {
13567
for (I3=max(max(ceild(37-I2,2),37-2*I2),1);I3<=min(37-I2,N1);I3++) {
13568
J3 = 37-(I2)-(I3) ;
13569
S1++;
13570
}
13571
}
13572
}
13573
if (N1 == 22) {
13574
for (I2=1;I2<=2;I2++) {
13575
for (I3=ceild(28+2*I2,2);I3<=min(N1,floord(2*28+3*I2,3));I3++) {
13576
J3 = -(28)-2*(I2)+2*I3 ;
13577
S2++;
13578
}
13579
}
13580
for (I3=ceild(28+2*3,2);I3<=min(28-2*(3)-1,floord(2*28+3*3,3));I3++) {
13581
J3 = -(28)-2*(I2)+2*I3 ;
13582
S2++;
13583
}
13584
for (I3=28-2*(3);I3<=min(N1,28-(3));I3++) {
13585
J3 = 28-(I2)-(I3) ;
13586
S1++;
13587
}
13588
for (I2=4;I2<=3;I2++) {
13589
for (I3=ceild(28+2*I2,2);I3<=28-2*I2-1;I3++) {
13590
J3 = -(28)-2*(I2)+2*I3 ;
13591
S2++;
13592
}
13593
for (I3=28-2*I2;I3<=N1;I3++) {
13594
J3 = 28-(I2)-(I3) ;
13595
S1++;
13596
J3 = -(28)-2*(I2)+2*I3 ;
13597
S2++;
13598
}
13599
}
13600
for (I3=ceild(9*4,2);I3<=5*4-1;I3++) {
13601
J3 = -(28)-2*(I2)+2*I3 ;
13602
S2++;
13603
}
13604
if (5*28%7 == 0) {
13605
I3 = 5*28/7 ;
13606
J1 = -2*(28)+3*I3 ;
13607
if ((2*28+J1)%3 == 0) {
13608
J2 = (2*28+J1)/3 ;
13609
J3 = 3*28-4*J2 ;
13610
S1++;
13611
S2++;
13612
}
13613
}
13614
for (I3=ceild(15*4+1,3);I3<=N1;I3++) {
13615
J3 = 28-(I2)-(I3) ;
13616
S1++;
13617
J3 = -(28)-2*(I2)+2*I3 ;
13618
S2++;
13619
}
13620
for (I2=5;I2<=4;I2++) {
13621
for (I3=ceild(28+2*I2,2);I3<=28-2*I2-1;I3++) {
13622
J3 = -(28)-2*(I2)+2*I3 ;
13623
S2++;
13624
}
13625
for (I3=28-2*I2;I3<=floord(2*28+I2-1,3);I3++) {
13626
J3 = -(28)-2*(I2)+2*I3 ;
13627
S2++;
13628
J3 = 28-(I2)-(I3) ;
13629
S1++;
13630
}
13631
if ((2*28+I2)%3 == 0) {
13632
I3 = (2*28+I2)/3 ;
13633
J1 = -2*(28)+3*I3 ;
13634
if ((2*28+J1)%3 == 0) {
13635
J2 = (2*28+J1)/3 ;
13636
J3 = 3*28-4*J2 ;
13637
S1++;
13638
S2++;
13639
}
13640
}
13641
for (I3=ceild(2*28+I2+1,3);I3<=N1;I3++) {
13642
J3 = 28-(I2)-(I3) ;
13643
S1++;
13644
J3 = -(28)-2*(I2)+2*I3 ;
13645
S2++;
13646
}
13647
}
13648
if (9%2 == 0) {
13649
for (I3=4*9/2+1;I3<=floord(13*9/2+1,3);I3++) {
13650
J3 = -(28)-2*(I2)+2*I3 ;
13651
S2++;
13652
J3 = 28-(I2)-(I3) ;
13653
S1++;
13654
}
13655
if ((13*28-1)%18 == 0) {
13656
I3 = (13*28-1)/18 ;
13657
J1 = -2*(28)+3*I3 ;
13658
if ((2*28+J1)%3 == 0) {
13659
J2 = (2*28+J1)/3 ;
13660
J3 = 3*28-4*J2 ;
13661
S1++;
13662
S2++;
13663
}
13664
}
13665
for (I3=ceild(13*9/2+3,3);I3<=N1;I3++) {
13666
J3 = 28-(I2)-(I3) ;
13667
S1++;
13668
J3 = -(28)-2*(I2)+2*I3 ;
13669
S2++;
13670
}
13671
}
13672
if (14%3 == 0) {
13673
for (I3=4*14/3;I3<=floord(13*14/3-1,3);I3++) {
13674
J3 = -(28)-2*(I2)+2*I3 ;
13675
S2++;
13676
J3 = 28-(I2)-(I3) ;
13677
S1++;
13678
}
13679
if (13*28%18 == 0) {
13680
I3 = 13*28/18 ;
13681
J1 = -2*(28)+3*I3 ;
13682
if ((2*28+J1)%3 == 0) {
13683
J2 = (2*28+J1)/3 ;
13684
J3 = 3*28-4*J2 ;
13685
S1++;
13686
S2++;
13687
}
13688
}
13689
for (I3=ceild(13*14/3+1,3);I3<=min(N1,5*14/3);I3++) {
13690
J3 = 28-(I2)-(I3) ;
13691
S1++;
13692
J3 = -(28)-2*(I2)+2*I3 ;
13693
S2++;
13694
}
13695
}
13696
for (I2=5;I2<=6;I2++) {
13697
for (I3=28-2*I2;I3<=floord(28+2*I2-1,2);I3++) {
13698
J3 = 28-(I2)-(I3) ;
13699
S1++;
13700
}
13701
for (I3=ceild(28+2*I2,2);I3<=floord(2*28+I2-1,3);I3++) {
13702
J3 = -(28)-2*(I2)+2*I3 ;
13703
S2++;
13704
J3 = 28-(I2)-(I3) ;
13705
S1++;
13706
}
13707
if ((2*28+I2)%3 == 0) {
13708
I3 = (2*28+I2)/3 ;
13709
J1 = -2*(28)+3*I3 ;
13710
if ((2*28+J1)%3 == 0) {
13711
J2 = (2*28+J1)/3 ;
13712
J3 = 3*28-4*J2 ;
13713
S1++;
13714
S2++;
13715
}
13716
}
13717
for (I3=ceild(2*28+I2+1,3);I3<=N1;I3++) {
13718
J3 = 28-(I2)-(I3) ;
13719
S1++;
13720
J3 = -(28)-2*(I2)+2*I3 ;
13721
S2++;
13722
}
13723
}
13724
for (I3=2*7;I3<=floord(6*7-1,2);I3++) {
13725
J3 = 28-(I2)-(I3) ;
13726
S1++;
13727
}
13728
if (3*28%4 == 0) {
13729
I3 = 3*28/4 ;
13730
J1 = -2*(28)+3*I3 ;
13731
if ((2*28+J1)%3 == 0) {
13732
J2 = (2*28+J1)/3 ;
13733
J3 = 3*28-4*J2 ;
13734
S1++;
13735
S2++;
13736
}
13737
}
13738
for (I3=3*7+1;I3<=min(N1,floord(11*7,3));I3++) {
13739
J3 = -(28)-2*(I2)+2*I3 ;
13740
S2++;
13741
}
13742
for (I3=max(max(1,ceild(28-(8),2)),28-2*(8));I3<=28-(8);I3++) {
13743
J3 = 28-(I2)-(I3) ;
13744
S1++;
13745
}
13746
for (I3=max(28-(8)+1,ceild(28+2*8,2));I3<=min(N1,floord(2*28+3*8,3));I3++) {
13747
J3 = -(28)-2*(I2)+2*I3 ;
13748
S2++;
13749
}
13750
for (I2=9;I2<=22;I2++) {
13751
for (I3=max(max(ceild(28-I2,2),28-2*I2),1);I3<=min(28-I2,N1);I3++) {
13752
J3 = 28-(I2)-(I3) ;
13753
S1++;
13754
}
13755
}
13756
}
13757
for (I1=ceild(9*N1-1,7);I1<=floord(4*N1-6,3);I1++) {
13758
for (I2=1;I2<=floord(I1-N1-1,2);I2++) {
13759
for (I3=ceild(I1+2*I2,2);I3<=min(N1,floord(2*I1+3*I2,3));I3++) {
13760
J3 = -I1-2*(I2)+2*I3 ;
13761
S2++;
13762
}
13763
}
13764
for (I2=max(ceild(I1-N1,2),ceild(-2*I1+3*N1,3));I2<=floord(I1-1,7);I2++) {
13765
for (I3=ceild(I1+2*I2,2);I3<=I1-2*I2-1;I3++) {
13766
J3 = -I1-2*(I2)+2*I3 ;
13767
S2++;
13768
}
13769
for (I3=I1-2*I2;I3<=N1;I3++) {
13770
J3 = I1-(I2)-(I3) ;
13771
S1++;
13772
J3 = -I1-2*(I2)+2*I3 ;
13773
S2++;
13774
}
13775
}
13776
if (I1%7 == 0) {
13777
for (I3=ceild(9*I1/7,2);I3<=5*I1/7-1;I3++) {
13778
J3 = -I1-2*(I2)+2*I3 ;
13779
S2++;
13780
}
13781
if (5*I1%7 == 0) {
13782
I3 = 5*I1/7 ;
13783
J1 = -2*I1+3*I3 ;
13784
if ((2*I1+J1)%3 == 0) {
13785
J2 = (2*I1+J1)/3 ;
13786
J3 = 3*I1-4*J2 ;
13787
S1++;
13788
S2++;
13789
}
13790
}
13791
for (I3=ceild(15*I1/7+1,3);I3<=N1;I3++) {
13792
J3 = I1-(I2)-(I3) ;
13793
S1++;
13794
J3 = -I1-2*(I2)+2*I3 ;
13795
S2++;
13796
}
13797
}
13798
for (I2=ceild(I1+1,7);I2<=floord(I1-2,6);I2++) {
13799
for (I3=ceild(I1+2*I2,2);I3<=I1-2*I2-1;I3++) {
13800
J3 = -I1-2*(I2)+2*I3 ;
13801
S2++;
13802
}
13803
for (I3=I1-2*I2;I3<=floord(2*I1+I2-1,3);I3++) {
13804
J3 = -I1-2*(I2)+2*I3 ;
13805
S2++;
13806
J3 = I1-(I2)-(I3) ;
13807
S1++;
13808
}
13809
if ((2*I1+I2)%3 == 0) {
13810
I3 = (2*I1+I2)/3 ;
13811
J1 = -2*I1+3*I3 ;
13812
if ((2*I1+J1)%3 == 0) {
13813
J2 = (2*I1+J1)/3 ;
13814
J3 = 3*I1-4*J2 ;
13815
S1++;
13816
S2++;
13817
}
13818
}
13819
for (I3=ceild(2*I1+I2+1,3);I3<=N1;I3++) {
13820
J3 = I1-(I2)-(I3) ;
13821
S1++;
13822
J3 = -I1-2*(I2)+2*I3 ;
13823
S2++;
13824
}
13825
}
13826
if ((I1-1)%6 == 0) {
13827
I2 = (I1-1)/6 ;
13828
for (I3=4*I2+1;I3<=floord(13*I2+1,3);I3++) {
13829
J3 = -I1-2*(I2)+2*I3 ;
13830
S2++;
13831
J3 = I1-(I2)-(I3) ;
13832
S1++;
13833
}
13834
if ((13*I1-1)%18 == 0) {
13835
I3 = (13*I1-1)/18 ;
13836
J1 = -2*I1+3*I3 ;
13837
if ((2*I1+J1)%3 == 0) {
13838
J2 = (2*I1+J1)/3 ;
13839
J3 = 3*I1-4*J2 ;
13840
S1++;
13841
S2++;
13842
}
13843
}
13844
for (I3=ceild(13*I2+3,3);I3<=N1;I3++) {
13845
J3 = I1-(I2)-(I3) ;
13846
S1++;
13847
J3 = -I1-2*(I2)+2*I3 ;
13848
S2++;
13849
}
13850
}
13851
if (I1%6 == 0) {
13852
for (I3=4*I1/6;I3<=floord(13*I1/6-1,3);I3++) {
13853
J3 = -I1-2*(I2)+2*I3 ;
13854
S2++;
13855
J3 = I1-(I2)-(I3) ;
13856
S1++;
13857
}
13858
if (13*I1%18 == 0) {
13859
I3 = 13*I1/18 ;
13860
J1 = -2*I1+3*I3 ;
13861
if ((2*I1+J1)%3 == 0) {
13862
J2 = (2*I1+J1)/3 ;
13863
J3 = 3*I1-4*J2 ;
13864
S1++;
13865
S2++;
13866
}
13867
}
13868
for (I3=ceild(13*I1/6+1,3);I3<=min(N1,5*I1/6);I3++) {
13869
J3 = I1-(I2)-(I3) ;
13870
S1++;
13871
J3 = -I1-2*(I2)+2*I3 ;
13872
S2++;
13873
}
13874
}
13875
for (I2=ceild(I1+1,6);I2<=I1-N1;I2++) {
13876
for (I3=I1-2*I2;I3<=floord(I1+2*I2-1,2);I3++) {
13877
J3 = I1-(I2)-(I3) ;
13878
S1++;
13879
}
13880
for (I3=ceild(I1+2*I2,2);I3<=floord(2*I1+I2-1,3);I3++) {
13881
J3 = -I1-2*(I2)+2*I3 ;
13882
S2++;
13883
J3 = I1-(I2)-(I3) ;
13884
S1++;
13885
}
13886
if ((2*I1+I2)%3 == 0) {
13887
I3 = (2*I1+I2)/3 ;
13888
J1 = -2*I1+3*I3 ;
13889
if ((2*I1+J1)%3 == 0) {
13890
J2 = (2*I1+J1)/3 ;
13891
J3 = 3*I1-4*J2 ;
13892
S1++;
13893
S2++;
13894
}
13895
}
13896
for (I3=ceild(2*I1+I2+1,3);I3<=N1;I3++) {
13897
J3 = I1-(I2)-(I3) ;
13898
S1++;
13899
J3 = -I1-2*(I2)+2*I3 ;
13900
S2++;
13901
}
13902
}
13903
for (I2=I1-N1+1;I2<=floord(I1-2,4);I2++) {
13904
for (I3=I1-2*I2;I3<=floord(I1+2*I2-1,2);I3++) {
13905
J3 = I1-(I2)-(I3) ;
13906
S1++;
13907
}
13908
for (I3=ceild(I1+2*I2,2);I3<=floord(2*I1+I2-1,3);I3++) {
13909
J3 = -I1-2*(I2)+2*I3 ;
13910
S2++;
13911
J3 = I1-(I2)-(I3) ;
13912
S1++;
13913
}
13914
if ((2*I1+I2)%3 == 0) {
13915
I3 = (2*I1+I2)/3 ;
13916
J1 = -2*I1+3*I3 ;
13917
if ((2*I1+J1)%3 == 0) {
13918
J2 = (2*I1+J1)/3 ;
13919
J3 = 3*I1-4*J2 ;
13920
S1++;
13921
S2++;
13922
}
13923
}
13924
for (I3=ceild(2*I1+I2+1,3);I3<=I1-I2;I3++) {
13925
J3 = I1-(I2)-(I3) ;
13926
S1++;
13927
J3 = -I1-2*(I2)+2*I3 ;
13928
S2++;
13929
}
13930
for (I3=I1-I2+1;I3<=min(N1,floord(2*I1+3*I2,3));I3++) {
13931
J3 = -I1-2*(I2)+2*I3 ;
13932
S2++;
13933
}
13934
}
13935
if ((I1-1)%4 == 0) {
13936
I2 = (I1-1)/4 ;
13937
for (I3=2*I2+1;I3<=3*I2;I3++) {
13938
J3 = I1-(I2)-(I3) ;
13939
S1++;
13940
}
13941
if ((9*I1-1)%12 == 0) {
13942
I3 = (9*I1-1)/12 ;
13943
J1 = -2*I1+3*I3 ;
13944
if ((2*I1+J1)%3 == 0) {
13945
J2 = (2*I1+J1)/3 ;
13946
J3 = 3*I1-4*J2 ;
13947
S1++;
13948
S2++;
13949
}
13950
}
13951
if ((3*I1+1)%4 == 0) {
13952
I3 = (3*I1+1)/4 ;
13953
J3 = I1-(I2)-(I3) ;
13954
S1++;
13955
J3 = -I1-2*(I2)+2*I3 ;
13956
S2++;
13957
}
13958
for (I3=3*I2+2;I3<=min(N1,floord(11*I2+2,3));I3++) {
13959
J3 = -I1-2*(I2)+2*I3 ;
13960
S2++;
13961
}
13962
}
13963
if (I1%4 == 0) {
13964
for (I3=2*I1/4;I3<=floord(6*I1/4-1,2);I3++) {
13965
J3 = I1-(I2)-(I3) ;
13966
S1++;
13967
}
13968
if (3*I1%4 == 0) {
13969
I3 = 3*I1/4 ;
13970
J1 = -2*I1+3*I3 ;
13971
if ((2*I1+J1)%3 == 0) {
13972
J2 = (2*I1+J1)/3 ;
13973
J3 = 3*I1-4*J2 ;
13974
S1++;
13975
S2++;
13976
}
13977
}
13978
for (I3=3*I1/4+1;I3<=min(N1,floord(11*I1/4,3));I3++) {
13979
J3 = -I1-2*(I2)+2*I3 ;
13980
S2++;
13981
}
13982
}
13983
for (I2=ceild(I1+1,4);I2<=floord(-I1+2*N1,2);I2++) {
13984
for (I3=max(max(1,ceild(I1-I2,2)),I1-2*I2);I3<=I1-I2;I3++) {
13985
J3 = I1-(I2)-(I3) ;
13986
S1++;
13987
}
13988
for (I3=max(I1-I2+1,ceild(I1+2*I2,2));I3<=min(N1,floord(2*I1+3*I2,3));I3++) {
13989
J3 = -I1-2*(I2)+2*I3 ;
13990
S2++;
13991
}
13992
}
13993
for (I2=ceild(-I1+2*N1+1,2);I2<=N1;I2++) {
13994
for (I3=max(max(ceild(I1-I2,2),I1-2*I2),1);I3<=min(I1-I2,N1);I3++) {
13995
J3 = I1-(I2)-(I3) ;
13996
S1++;
13997
}
13998
}
13999
}
14000
if (N1 >= 32) {
14001
if ((4*N1-5)%3 == 0) {
14002
I1 = (4*N1-5)/3 ;
14003
for (I2=1;I2<=floord(N1-8,6);I2++) {
14004
for (I3=ceild(I1+2*I2,2);I3<=min(N1,floord(2*I1+3*I2,3));I3++) {
14005
J3 = -I1-2*(I2)+2*I3 ;
14006
S2++;
14007
}
14008
}
14009
for (I2=max(ceild(N1-5,6),ceild(N1+10,9));I2<=floord(4*N1-8,21);I2++) {
14010
for (I3=ceild(I1+2*I2,2);I3<=I1-2*I2-1;I3++) {
14011
J3 = -I1-2*(I2)+2*I3 ;
14012
S2++;
14013
}
14014
for (I3=I1-2*I2;I3<=N1;I3++) {
14015
J3 = I1-(I2)-(I3) ;
14016
S1++;
14017
J3 = -I1-2*(I2)+2*I3 ;
14018
S2++;
14019
}
14020
}
14021
if ((4*N1-5)%21 == 0) {
14022
I2 = (4*N1-5)/21 ;
14023
for (I3=ceild(9*I2,2);I3<=5*I2-1;I3++) {
14024
J3 = -I1-2*(I2)+2*I3 ;
14025
S2++;
14026
}
14027
if (5*I1%7 == 0) {
14028
I3 = 5*I1/7 ;
14029
J1 = -2*I1+3*I3 ;
14030
if ((2*I1+J1)%3 == 0) {
14031
J2 = (2*I1+J1)/3 ;
14032
J3 = 3*I1-4*J2 ;
14033
S1++;
14034
S2++;
14035
}
14036
}
14037
for (I3=ceild(15*I2+1,3);I3<=N1;I3++) {
14038
J3 = I1-(I2)-(I3) ;
14039
S1++;
14040
J3 = -I1-2*(I2)+2*I3 ;
14041
S2++;
14042
}
14043
}
14044
for (I2=ceild(4*N1-2,21);I2<=floord(4*N1-11,18);I2++) {
14045
for (I3=ceild(I1+2*I2,2);I3<=I1-2*I2-1;I3++) {
14046
J3 = -I1-2*(I2)+2*I3 ;
14047
S2++;
14048
}
14049
for (I3=I1-2*I2;I3<=floord(2*I1+I2-1,3);I3++) {
14050
J3 = -I1-2*(I2)+2*I3 ;
14051
S2++;
14052
J3 = I1-(I2)-(I3) ;
14053
S1++;
14054
}
14055
if ((2*I1+I2)%3 == 0) {
14056
I3 = (2*I1+I2)/3 ;
14057
J1 = -2*I1+3*I3 ;
14058
if ((2*I1+J1)%3 == 0) {
14059
J2 = (2*I1+J1)/3 ;
14060
J3 = 3*I1-4*J2 ;
14061
S1++;
14062
S2++;
14063
}
14064
}
14065
for (I3=ceild(2*I1+I2+1,3);I3<=N1;I3++) {
14066
J3 = I1-(I2)-(I3) ;
14067
S1++;
14068
J3 = -I1-2*(I2)+2*I3 ;
14069
S2++;
14070
}
14071
}
14072
if ((2*N1-4)%9 == 0) {
14073
I2 = (2*N1-4)/9 ;
14074
for (I3=4*I2+1;I3<=floord(13*I2+1,3);I3++) {
14075
J3 = -I1-2*(I2)+2*I3 ;
14076
S2++;
14077
J3 = I1-(I2)-(I3) ;
14078
S1++;
14079
}
14080
if ((13*I1-1)%18 == 0) {
14081
I3 = (13*I1-1)/18 ;
14082
J1 = -2*I1+3*I3 ;
14083
if ((2*I1+J1)%3 == 0) {
14084
J2 = (2*I1+J1)/3 ;
14085
J3 = 3*I1-4*J2 ;
14086
S1++;
14087
S2++;
14088
}
14089
}
14090
for (I3=ceild(13*I2+3,3);I3<=N1;I3++) {
14091
J3 = I1-(I2)-(I3) ;
14092
S1++;
14093
J3 = -I1-2*(I2)+2*I3 ;
14094
S2++;
14095
}
14096
}
14097
if ((4*N1-5)%18 == 0) {
14098
I2 = (4*N1-5)/18 ;
14099
for (I3=4*I2;I3<=floord(13*I2-1,3);I3++) {
14100
J3 = -I1-2*(I2)+2*I3 ;
14101
S2++;
14102
J3 = I1-(I2)-(I3) ;
14103
S1++;
14104
}
14105
if (13*I1%18 == 0) {
14106
I3 = 13*I1/18 ;
14107
J1 = -2*I1+3*I3 ;
14108
if ((2*I1+J1)%3 == 0) {
14109
J2 = (2*I1+J1)/3 ;
14110
J3 = 3*I1-4*J2 ;
14111
S1++;
14112
S2++;
14113
}
14114
}
14115
for (I3=ceild(13*I2+1,3);I3<=min(N1,5*I2);I3++) {
14116
J3 = I1-(I2)-(I3) ;
14117
S1++;
14118
J3 = -I1-2*(I2)+2*I3 ;
14119
S2++;
14120
}
14121
}
14122
for (I2=ceild(2*N1-1,9);I2<=floord(N1-5,3);I2++) {
14123
for (I3=I1-2*I2;I3<=floord(I1+2*I2-1,2);I3++) {
14124
J3 = I1-(I2)-(I3) ;
14125
S1++;
14126
}
14127
for (I3=ceild(I1+2*I2,2);I3<=floord(2*I1+I2-1,3);I3++) {
14128
J3 = -I1-2*(I2)+2*I3 ;
14129
S2++;
14130
J3 = I1-(I2)-(I3) ;
14131
S1++;
14132
}
14133
if ((2*I1+I2)%3 == 0) {
14134
I3 = (2*I1+I2)/3 ;
14135
J1 = -2*I1+3*I3 ;
14136
if ((2*I1+J1)%3 == 0) {
14137
J2 = (2*I1+J1)/3 ;
14138
J3 = 3*I1-4*J2 ;
14139
S1++;
14140
S2++;
14141
}
14142
}
14143
for (I3=ceild(2*I1+I2+1,3);I3<=N1;I3++) {
14144
J3 = I1-(I2)-(I3) ;
14145
S1++;
14146
J3 = -I1-2*(I2)+2*I3 ;
14147
S2++;
14148
}
14149
}
14150
if ((N1-2)%3 == 0) {
14151
I2 = (N1-2)/3 ;
14152
for (I3=2*I2+1;I3<=3*I2;I3++) {
14153
J3 = I1-(I2)-(I3) ;
14154
S1++;
14155
}
14156
if ((9*I1-1)%12 == 0) {
14157
I3 = (9*I1-1)/12 ;
14158
J1 = -2*I1+3*I3 ;
14159
if ((2*I1+J1)%3 == 0) {
14160
J2 = (2*I1+J1)/3 ;
14161
J3 = 3*I1-4*J2 ;
14162
S1++;
14163
S2++;
14164
}
14165
}
14166
if ((3*I1+1)%4 == 0) {
14167
I3 = (3*I1+1)/4 ;
14168
J3 = I1-(I2)-(I3) ;
14169
S1++;
14170
J3 = -I1-2*(I2)+2*I3 ;
14171
S2++;
14172
}
14173
for (I3=3*I2+2;I3<=min(N1,floord(11*I2+2,3));I3++) {
14174
J3 = -I1-2*(I2)+2*I3 ;
14175
S2++;
14176
}
14177
}
14178
if ((4*N1-5)%12 == 0) {
14179
I2 = (4*N1-5)/12 ;
14180
for (I3=2*I2;I3<=floord(6*I2-1,2);I3++) {
14181
J3 = I1-(I2)-(I3) ;
14182
S1++;
14183
}
14184
if (3*I1%4 == 0) {
14185
I3 = 3*I1/4 ;
14186
J1 = -2*I1+3*I3 ;
14187
if ((2*I1+J1)%3 == 0) {
14188
J2 = (2*I1+J1)/3 ;
14189
J3 = 3*I1-4*J2 ;
14190
S1++;
14191
S2++;
14192
}
14193
}
14194
for (I3=3*I2+1;I3<=min(N1,floord(11*I2,3));I3++) {
14195
J3 = -I1-2*(I2)+2*I3 ;
14196
S2++;
14197
}
14198
}
14199
for (I2=ceild(2*N1-1,6);I2<=floord(2*N1+5,6);I2++) {
14200
for (I3=max(max(1,ceild(I1-I2,2)),I1-2*I2);I3<=I1-I2;I3++) {
14201
J3 = I1-(I2)-(I3) ;
14202
S1++;
14203
}
14204
for (I3=max(I1-I2+1,ceild(I1+2*I2,2));I3<=min(N1,floord(2*I1+3*I2,3));I3++) {
14205
J3 = -I1-2*(I2)+2*I3 ;
14206
S2++;
14207
}
14208
}
14209
for (I2=ceild(N1+4,3);I2<=N1;I2++) {
14210
for (I3=max(max(ceild(I1-I2,2),I1-2*I2),1);I3<=min(I1-I2,N1);I3++) {
14211
J3 = I1-(I2)-(I3) ;
14212
S1++;
14213
}
14214
}
14215
}
14216
}
14217
if (N1 >= 25) {
14218
if ((4*N1-4)%3 == 0) {
14219
I1 = (4*N1-4)/3 ;
14220
for (I2=1;I2<=floord(N1-7,6);I2++) {
14221
for (I3=ceild(I1+2*I2,2);I3<=min(N1,floord(2*I1+3*I2,3));I3++) {
14222
J3 = -I1-2*(I2)+2*I3 ;
14223
S2++;
14224
}
14225
}
14226
for (I2=max(ceild(N1-4,6),ceild(N1+8,9));I2<=floord(4*N1-7,21);I2++) {
14227
for (I3=ceild(I1+2*I2,2);I3<=I1-2*I2-1;I3++) {
14228
J3 = -I1-2*(I2)+2*I3 ;
14229
S2++;
14230
}
14231
for (I3=I1-2*I2;I3<=N1;I3++) {
14232
J3 = I1-(I2)-(I3) ;
14233
S1++;
14234
J3 = -I1-2*(I2)+2*I3 ;
14235
S2++;
14236
}
14237
}
14238
if ((4*N1-4)%21 == 0) {
14239
I2 = (4*N1-4)/21 ;
14240
for (I3=ceild(9*I2,2);I3<=5*I2-1;I3++) {
14241
J3 = -I1-2*(I2)+2*I3 ;
14242
S2++;
14243
}
14244
if (5*I1%7 == 0) {
14245
I3 = 5*I1/7 ;
14246
J1 = -2*I1+3*I3 ;
14247
if ((2*I1+J1)%3 == 0) {
14248
J2 = (2*I1+J1)/3 ;
14249
J3 = 3*I1-4*J2 ;
14250
S1++;
14251
S2++;
14252
}
14253
}
14254
for (I3=ceild(15*I2+1,3);I3<=N1;I3++) {
14255
J3 = I1-(I2)-(I3) ;
14256
S1++;
14257
J3 = -I1-2*(I2)+2*I3 ;
14258
S2++;
14259
}
14260
}
14261
for (I2=ceild(4*N1-1,21);I2<=floord(2*N1-5,9);I2++) {
14262
for (I3=ceild(I1+2*I2,2);I3<=I1-2*I2-1;I3++) {
14263
J3 = -I1-2*(I2)+2*I3 ;
14264
S2++;
14265
}
14266
for (I3=I1-2*I2;I3<=floord(2*I1+I2-1,3);I3++) {
14267
J3 = -I1-2*(I2)+2*I3 ;
14268
S2++;
14269
J3 = I1-(I2)-(I3) ;
14270
S1++;
14271
}
14272
if ((2*I1+I2)%3 == 0) {
14273
I3 = (2*I1+I2)/3 ;
14274
J1 = -2*I1+3*I3 ;
14275
if ((2*I1+J1)%3 == 0) {
14276
J2 = (2*I1+J1)/3 ;
14277
J3 = 3*I1-4*J2 ;
14278
S1++;
14279
S2++;
14280
}
14281
}
14282
for (I3=ceild(2*I1+I2+1,3);I3<=N1;I3++) {
14283
J3 = I1-(I2)-(I3) ;
14284
S1++;
14285
J3 = -I1-2*(I2)+2*I3 ;
14286
S2++;
14287
}
14288
}
14289
if ((4*N1-7)%18 == 0) {
14290
I2 = (4*N1-7)/18 ;
14291
for (I3=4*I2+1;I3<=floord(13*I2+1,3);I3++) {
14292
J3 = -I1-2*(I2)+2*I3 ;
14293
S2++;
14294
J3 = I1-(I2)-(I3) ;
14295
S1++;
14296
}
14297
if ((13*I1-1)%18 == 0) {
14298
I3 = (13*I1-1)/18 ;
14299
J1 = -2*I1+3*I3 ;
14300
if ((2*I1+J1)%3 == 0) {
14301
J2 = (2*I1+J1)/3 ;
14302
J3 = 3*I1-4*J2 ;
14303
S1++;
14304
S2++;
14305
}
14306
}
14307
for (I3=ceild(13*I2+3,3);I3<=N1;I3++) {
14308
J3 = I1-(I2)-(I3) ;
14309
S1++;
14310
J3 = -I1-2*(I2)+2*I3 ;
14311
S2++;
14312
}
14313
}
14314
if ((2*N1-2)%9 == 0) {
14315
I2 = (2*N1-2)/9 ;
14316
for (I3=4*I2;I3<=floord(13*I2-1,3);I3++) {
14317
J3 = -I1-2*(I2)+2*I3 ;
14318
S2++;
14319
J3 = I1-(I2)-(I3) ;
14320
S1++;
14321
}
14322
if (13*I1%18 == 0) {
14323
I3 = 13*I1/18 ;
14324
J1 = -2*I1+3*I3 ;
14325
if ((2*I1+J1)%3 == 0) {
14326
J2 = (2*I1+J1)/3 ;
14327
J3 = 3*I1-4*J2 ;
14328
S1++;
14329
S2++;
14330
}
14331
}
14332
for (I3=ceild(13*I2+1,3);I3<=min(N1,5*I2);I3++) {
14333
J3 = I1-(I2)-(I3) ;
14334
S1++;
14335
J3 = -I1-2*(I2)+2*I3 ;
14336
S2++;
14337
}
14338
}
14339
for (I2=ceild(4*N1-1,18);I2<=floord(N1-4,3);I2++) {
14340
for (I3=I1-2*I2;I3<=floord(I1+2*I2-1,2);I3++) {
14341
J3 = I1-(I2)-(I3) ;
14342
S1++;
14343
}
14344
for (I3=ceild(I1+2*I2,2);I3<=floord(2*I1+I2-1,3);I3++) {
14345
J3 = -I1-2*(I2)+2*I3 ;
14346
S2++;
14347
J3 = I1-(I2)-(I3) ;
14348
S1++;
14349
}
14350
if ((2*I1+I2)%3 == 0) {
14351
I3 = (2*I1+I2)/3 ;
14352
J1 = -2*I1+3*I3 ;
14353
if ((2*I1+J1)%3 == 0) {
14354
J2 = (2*I1+J1)/3 ;
14355
J3 = 3*I1-4*J2 ;
14356
S1++;
14357
S2++;
14358
}
14359
}
14360
for (I3=ceild(2*I1+I2+1,3);I3<=N1;I3++) {
14361
J3 = I1-(I2)-(I3) ;
14362
S1++;
14363
J3 = -I1-2*(I2)+2*I3 ;
14364
S2++;
14365
}
14366
}
14367
if ((N1-1)%3 == 0) {
14368
I2 = (N1-1)/3 ;
14369
for (I3=2*I2;I3<=floord(6*I2-1,2);I3++) {
14370
J3 = I1-(I2)-(I3) ;
14371
S1++;
14372
}
14373
if (3*I1%4 == 0) {
14374
I3 = 3*I1/4 ;
14375
J1 = -2*I1+3*I3 ;
14376
if ((2*I1+J1)%3 == 0) {
14377
J2 = (2*I1+J1)/3 ;
14378
J3 = 3*I1-4*J2 ;
14379
S1++;
14380
S2++;
14381
}
14382
}
14383
for (I3=3*I2+1;I3<=min(N1,floord(11*I2,3));I3++) {
14384
J3 = -I1-2*(I2)+2*I3 ;
14385
S2++;
14386
}
14387
}
14388
for (I2=ceild(4*N1-1,12);I2<=floord(N1+2,3);I2++) {
14389
for (I3=max(max(1,ceild(I1-I2,2)),I1-2*I2);I3<=I1-I2;I3++) {
14390
J3 = I1-(I2)-(I3) ;
14391
S1++;
14392
}
14393
for (I3=max(I1-I2+1,ceild(I1+2*I2,2));I3<=min(N1,floord(2*I1+3*I2,3));I3++) {
14394
J3 = -I1-2*(I2)+2*I3 ;
14395
S2++;
14396
}
14397
}
14398
for (I2=ceild(2*N1+7,6);I2<=N1;I2++) {
14399
for (I3=max(max(ceild(I1-I2,2),I1-2*I2),1);I3<=min(I1-I2,N1);I3++) {
14400
J3 = I1-(I2)-(I3) ;
14401
S1++;
14402
}
14403
}
14404
}
14405
}
14406
for (I1=max(max(20,ceild(9*N1-1,7)),ceild(4*N1-3,3));I1<=floord(4*N1-2,3);I1++) {
14407
for (I2=1;I2<=floord(I1-N1-1,2);I2++) {
14408
for (I3=ceild(I1+2*I2,2);I3<=min(N1,floord(2*I1+3*I2,3));I3++) {
14409
J3 = -I1-2*(I2)+2*I3 ;
14410
S2++;
14411
}
14412
}
14413
for (I2=max(ceild(I1-N1,2),ceild(-2*I1+3*N1,3));I2<=floord(I1-1,7);I2++) {
14414
for (I3=ceild(I1+2*I2,2);I3<=I1-2*I2-1;I3++) {
14415
J3 = -I1-2*(I2)+2*I3 ;
14416
S2++;
14417
}
14418
for (I3=I1-2*I2;I3<=N1;I3++) {
14419
J3 = I1-(I2)-(I3) ;
14420
S1++;
14421
J3 = -I1-2*(I2)+2*I3 ;
14422
S2++;
14423
}
14424
}
14425
if (I1%7 == 0) {
14426
for (I3=ceild(9*I1/7,2);I3<=5*I1/7-1;I3++) {
14427
J3 = -I1-2*(I2)+2*I3 ;
14428
S2++;
14429
}
14430
if (5*I1%7 == 0) {
14431
I3 = 5*I1/7 ;
14432
J1 = -2*I1+3*I3 ;
14433
if ((2*I1+J1)%3 == 0) {
14434
J2 = (2*I1+J1)/3 ;
14435
J3 = 3*I1-4*J2 ;
14436
S1++;
14437
S2++;
14438
}
14439
}
14440
for (I3=ceild(15*I1/7+1,3);I3<=N1;I3++) {
14441
J3 = I1-(I2)-(I3) ;
14442
S1++;
14443
J3 = -I1-2*(I2)+2*I3 ;
14444
S2++;
14445
}
14446
}
14447
for (I2=ceild(I1+1,7);I2<=floord(I1-2,6);I2++) {
14448
for (I3=ceild(I1+2*I2,2);I3<=I1-2*I2-1;I3++) {
14449
J3 = -I1-2*(I2)+2*I3 ;
14450
S2++;
14451
}
14452
for (I3=I1-2*I2;I3<=floord(2*I1+I2-1,3);I3++) {
14453
J3 = -I1-2*(I2)+2*I3 ;
14454
S2++;
14455
J3 = I1-(I2)-(I3) ;
14456
S1++;
14457
}
14458
if ((2*I1+I2)%3 == 0) {
14459
I3 = (2*I1+I2)/3 ;
14460
J1 = -2*I1+3*I3 ;
14461
if ((2*I1+J1)%3 == 0) {
14462
J2 = (2*I1+J1)/3 ;
14463
J3 = 3*I1-4*J2 ;
14464
S1++;
14465
S2++;
14466
}
14467
}
14468
for (I3=ceild(2*I1+I2+1,3);I3<=N1;I3++) {
14469
J3 = I1-(I2)-(I3) ;
14470
S1++;
14471
J3 = -I1-2*(I2)+2*I3 ;
14472
S2++;
14473
}
14474
}
14475
if ((I1-1)%6 == 0) {
14476
I2 = (I1-1)/6 ;
14477
for (I3=4*I2+1;I3<=floord(13*I2+1,3);I3++) {
14478
J3 = -I1-2*(I2)+2*I3 ;
14479
S2++;
14480
J3 = I1-(I2)-(I3) ;
14481
S1++;
14482
}
14483
if ((13*I1-1)%18 == 0) {
14484
I3 = (13*I1-1)/18 ;
14485
J1 = -2*I1+3*I3 ;
14486
if ((2*I1+J1)%3 == 0) {
14487
J2 = (2*I1+J1)/3 ;
14488
J3 = 3*I1-4*J2 ;
14489
S1++;
14490
S2++;
14491
}
14492
}
14493
for (I3=ceild(13*I2+3,3);I3<=N1;I3++) {
14494
J3 = I1-(I2)-(I3) ;
14495
S1++;
14496
J3 = -I1-2*(I2)+2*I3 ;
14497
S2++;
14498
}
14499
}
14500
if (I1%6 == 0) {
14501
for (I3=4*I1/6;I3<=floord(13*I1/6-1,3);I3++) {
14502
J3 = -I1-2*(I2)+2*I3 ;
14503
S2++;
14504
J3 = I1-(I2)-(I3) ;
14505
S1++;
14506
}
14507
if (13*I1%18 == 0) {
14508
I3 = 13*I1/18 ;
14509
J1 = -2*I1+3*I3 ;
14510
if ((2*I1+J1)%3 == 0) {
14511
J2 = (2*I1+J1)/3 ;
14512
J3 = 3*I1-4*J2 ;
14513
S1++;
14514
S2++;
14515
}
14516
}
14517
for (I3=ceild(13*I1/6+1,3);I3<=min(N1,5*I1/6);I3++) {
14518
J3 = I1-(I2)-(I3) ;
14519
S1++;
14520
J3 = -I1-2*(I2)+2*I3 ;
14521
S2++;
14522
}
14523
}
14524
for (I2=ceild(I1+1,6);I2<=I1-N1;I2++) {
14525
for (I3=I1-2*I2;I3<=floord(I1+2*I2-1,2);I3++) {
14526
J3 = I1-(I2)-(I3) ;
14527
S1++;
14528
}
14529
for (I3=ceild(I1+2*I2,2);I3<=floord(2*I1+I2-1,3);I3++) {
14530
J3 = -I1-2*(I2)+2*I3 ;
14531
S2++;
14532
J3 = I1-(I2)-(I3) ;
14533
S1++;
14534
}
14535
if ((2*I1+I2)%3 == 0) {
14536
I3 = (2*I1+I2)/3 ;
14537
J1 = -2*I1+3*I3 ;
14538
if ((2*I1+J1)%3 == 0) {
14539
J2 = (2*I1+J1)/3 ;
14540
J3 = 3*I1-4*J2 ;
14541
S1++;
14542
S2++;
14543
}
14544
}
14545
for (I3=ceild(2*I1+I2+1,3);I3<=N1;I3++) {
14546
J3 = I1-(I2)-(I3) ;
14547
S1++;
14548
J3 = -I1-2*(I2)+2*I3 ;
14549
S2++;
14550
}
14551
}
14552
for (I2=I1-N1+1;I2<=floord(-I1+2*N1,2);I2++) {
14553
for (I3=max(max(1,ceild(I1-I2,2)),I1-2*I2);I3<=I1-I2;I3++) {
14554
J3 = I1-(I2)-(I3) ;
14555
S1++;
14556
}
14557
for (I3=max(I1-I2+1,ceild(I1+2*I2,2));I3<=min(N1,floord(2*I1+3*I2,3));I3++) {
14558
J3 = -I1-2*(I2)+2*I3 ;
14559
S2++;
14560
}
14561
}
14562
for (I2=ceild(-I1+2*N1+1,2);I2<=N1;I2++) {
14563
for (I3=max(max(ceild(I1-I2,2),I1-2*I2),1);I3<=min(I1-I2,N1);I3++) {
14564
J3 = I1-(I2)-(I3) ;
14565
S1++;
14566
}
14567
}
14568
}
14569
if (N1 >= 16) {
14570
if ((4*N1-1)%3 == 0) {
14571
I1 = (4*N1-1)/3 ;
14572
for (I2=1;I2<=floord(N1-4,6);I2++) {
14573
for (I3=ceild(I1+2*I2,2);I3<=min(N1,floord(2*I1+3*I2,3));I3++) {
14574
J3 = -I1-2*(I2)+2*I3 ;
14575
S2++;
14576
}
14577
}
14578
for (I2=ceild(N1-1,6);I2<=floord(4*N1-4,21);I2++) {
14579
for (I3=ceild(I1+2*I2,2);I3<=I1-2*I2-1;I3++) {
14580
J3 = -I1-2*(I2)+2*I3 ;
14581
S2++;
14582
}
14583
for (I3=I1-2*I2;I3<=N1;I3++) {
14584
J3 = I1-(I2)-(I3) ;
14585
S1++;
14586
J3 = -I1-2*(I2)+2*I3 ;
14587
S2++;
14588
}
14589
}
14590
if ((4*N1-1)%21 == 0) {
14591
I2 = (4*N1-1)/21 ;
14592
for (I3=ceild(9*I2,2);I3<=5*I2-1;I3++) {
14593
J3 = -I1-2*(I2)+2*I3 ;
14594
S2++;
14595
}
14596
if (5*I1%7 == 0) {
14597
I3 = 5*I1/7 ;
14598
J1 = -2*I1+3*I3 ;
14599
if ((2*I1+J1)%3 == 0) {
14600
J2 = (2*I1+J1)/3 ;
14601
J3 = 3*I1-4*J2 ;
14602
S1++;
14603
S2++;
14604
}
14605
}
14606
for (I3=ceild(15*I2+1,3);I3<=N1;I3++) {
14607
J3 = I1-(I2)-(I3) ;
14608
S1++;
14609
J3 = -I1-2*(I2)+2*I3 ;
14610
S2++;
14611
}
14612
}
14613
for (I2=ceild(4*N1+2,21);I2<=floord(4*N1-7,18);I2++) {
14614
for (I3=ceild(I1+2*I2,2);I3<=I1-2*I2-1;I3++) {
14615
J3 = -I1-2*(I2)+2*I3 ;
14616
S2++;
14617
}
14618
for (I3=I1-2*I2;I3<=floord(2*I1+I2-1,3);I3++) {
14619
J3 = -I1-2*(I2)+2*I3 ;
14620
S2++;
14621
J3 = I1-(I2)-(I3) ;
14622
S1++;
14623
}
14624
if ((2*I1+I2)%3 == 0) {
14625
I3 = (2*I1+I2)/3 ;
14626
J1 = -2*I1+3*I3 ;
14627
if ((2*I1+J1)%3 == 0) {
14628
J2 = (2*I1+J1)/3 ;
14629
J3 = 3*I1-4*J2 ;
14630
S1++;
14631
S2++;
14632
}
14633
}
14634
for (I3=ceild(2*I1+I2+1,3);I3<=N1;I3++) {
14635
J3 = I1-(I2)-(I3) ;
14636
S1++;
14637
J3 = -I1-2*(I2)+2*I3 ;
14638
S2++;
14639
}
14640
}
14641
if ((2*N1-2)%9 == 0) {
14642
I2 = (2*N1-2)/9 ;
14643
for (I3=4*I2+1;I3<=floord(13*I2+1,3);I3++) {
14644
J3 = -I1-2*(I2)+2*I3 ;
14645
S2++;
14646
J3 = I1-(I2)-(I3) ;
14647
S1++;
14648
}
14649
if ((13*I1-1)%18 == 0) {
14650
I3 = (13*I1-1)/18 ;
14651
J1 = -2*I1+3*I3 ;
14652
if ((2*I1+J1)%3 == 0) {
14653
J2 = (2*I1+J1)/3 ;
14654
J3 = 3*I1-4*J2 ;
14655
S1++;
14656
S2++;
14657
}
14658
}
14659
for (I3=ceild(13*I2+3,3);I3<=N1;I3++) {
14660
J3 = I1-(I2)-(I3) ;
14661
S1++;
14662
J3 = -I1-2*(I2)+2*I3 ;
14663
S2++;
14664
}
14665
}
14666
if ((4*N1-1)%18 == 0) {
14667
I2 = (4*N1-1)/18 ;
14668
for (I3=4*I2;I3<=floord(13*I2-1,3);I3++) {
14669
J3 = -I1-2*(I2)+2*I3 ;
14670
S2++;
14671
J3 = I1-(I2)-(I3) ;
14672
S1++;
14673
}
14674
if (13*I1%18 == 0) {
14675
I3 = 13*I1/18 ;
14676
J1 = -2*I1+3*I3 ;
14677
if ((2*I1+J1)%3 == 0) {
14678
J2 = (2*I1+J1)/3 ;
14679
J3 = 3*I1-4*J2 ;
14680
S1++;
14681
S2++;
14682
}
14683
}
14684
for (I3=ceild(13*I2+1,3);I3<=min(N1,5*I2);I3++) {
14685
J3 = I1-(I2)-(I3) ;
14686
S1++;
14687
J3 = -I1-2*(I2)+2*I3 ;
14688
S2++;
14689
}
14690
}
14691
for (I2=ceild(2*N1+1,9);I2<=floord(4*N1-7,12);I2++) {
14692
for (I3=I1-2*I2;I3<=floord(I1+2*I2-1,2);I3++) {
14693
J3 = I1-(I2)-(I3) ;
14694
S1++;
14695
}
14696
for (I3=ceild(I1+2*I2,2);I3<=floord(2*I1+I2-1,3);I3++) {
14697
J3 = -I1-2*(I2)+2*I3 ;
14698
S2++;
14699
J3 = I1-(I2)-(I3) ;
14700
S1++;
14701
}
14702
if ((2*I1+I2)%3 == 0) {
14703
I3 = (2*I1+I2)/3 ;
14704
J1 = -2*I1+3*I3 ;
14705
if ((2*I1+J1)%3 == 0) {
14706
J2 = (2*I1+J1)/3 ;
14707
J3 = 3*I1-4*J2 ;
14708
S1++;
14709
S2++;
14710
}
14711
}
14712
for (I3=ceild(2*I1+I2+1,3);I3<=N1;I3++) {
14713
J3 = I1-(I2)-(I3) ;
14714
S1++;
14715
J3 = -I1-2*(I2)+2*I3 ;
14716
S2++;
14717
}
14718
}
14719
if ((N1-1)%3 == 0) {
14720
I2 = (N1-1)/3 ;
14721
for (I3=ceild(2*N1+1,3);I3<=N1-1;I3++) {
14722
J3 = I1-(I2)-(I3) ;
14723
S1++;
14724
}
14725
if (-1%3 == 0) {
14726
I3 = (3*N1-1)/3 ;
14727
J1 = -2*I1+3*I3 ;
14728
if ((2*I1+J1)%3 == 0) {
14729
J2 = (2*I1+J1)/3 ;
14730
J3 = 3*I1-4*J2 ;
14731
S1++;
14732
S2++;
14733
}
14734
}
14735
J3 = I1-(I2)-(I3) ;
14736
S1++;
14737
J3 = -I1-2*(I2)+2*I3 ;
14738
S2++;
14739
}
14740
for (I2=ceild(N1+2,3);I2<=N1;I2++) {
14741
for (I3=max(max(ceild(I1-I2,2),I1-2*I2),1);I3<=min(I1-I2,N1);I3++) {
14742
J3 = I1-(I2)-(I3) ;
14743
S1++;
14744
}
14745
}
14746
}
14747
}
14748
if (N1 >= 15) {
14749
if (4*N1%3 == 0) {
14750
I1 = 4*N1/3 ;
14751
for (I2=1;I2<=floord(N1-3,6);I2++) {
14752
for (I3=ceild(I1+2*I2,2);I3<=min(N1,floord(2*I1+3*I2,3));I3++) {
14753
J3 = -I1-2*(I2)+2*I3 ;
14754
S2++;
14755
}
14756
}
14757
for (I2=ceild(N1,6);I2<=floord(4*N1-3,21);I2++) {
14758
for (I3=ceild(I1+2*I2,2);I3<=I1-2*I2-1;I3++) {
14759
J3 = -I1-2*(I2)+2*I3 ;
14760
S2++;
14761
}
14762
for (I3=I1-2*I2;I3<=N1;I3++) {
14763
J3 = I1-(I2)-(I3) ;
14764
S1++;
14765
J3 = -I1-2*(I2)+2*I3 ;
14766
S2++;
14767
}
14768
}
14769
if (4*N1%21 == 0) {
14770
I2 = 4*N1/21 ;
14771
for (I3=ceild(9*I2,2);I3<=5*I2-1;I3++) {
14772
J3 = -I1-2*(I2)+2*I3 ;
14773
S2++;
14774
}
14775
if (5*I1%7 == 0) {
14776
I3 = 5*I1/7 ;
14777
J1 = -2*I1+3*I3 ;
14778
if ((2*I1+J1)%3 == 0) {
14779
J2 = (2*I1+J1)/3 ;
14780
J3 = 3*I1-4*J2 ;
14781
S1++;
14782
S2++;
14783
}
14784
}
14785
for (I3=ceild(15*I2+1,3);I3<=N1;I3++) {
14786
J3 = I1-(I2)-(I3) ;
14787
S1++;
14788
J3 = -I1-2*(I2)+2*I3 ;
14789
S2++;
14790
}
14791
}
14792
for (I2=ceild(4*N1+3,21);I2<=floord(2*N1-3,9);I2++) {
14793
for (I3=ceild(I1+2*I2,2);I3<=I1-2*I2-1;I3++) {
14794
J3 = -I1-2*(I2)+2*I3 ;
14795
S2++;
14796
}
14797
for (I3=I1-2*I2;I3<=floord(2*I1+I2-1,3);I3++) {
14798
J3 = -I1-2*(I2)+2*I3 ;
14799
S2++;
14800
J3 = I1-(I2)-(I3) ;
14801
S1++;
14802
}
14803
if ((2*I1+I2)%3 == 0) {
14804
I3 = (2*I1+I2)/3 ;
14805
J1 = -2*I1+3*I3 ;
14806
if ((2*I1+J1)%3 == 0) {
14807
J2 = (2*I1+J1)/3 ;
14808
J3 = 3*I1-4*J2 ;
14809
S1++;
14810
S2++;
14811
}
14812
}
14813
for (I3=ceild(2*I1+I2+1,3);I3<=N1;I3++) {
14814
J3 = I1-(I2)-(I3) ;
14815
S1++;
14816
J3 = -I1-2*(I2)+2*I3 ;
14817
S2++;
14818
}
14819
}
14820
if ((4*N1-3)%18 == 0) {
14821
I2 = (4*N1-3)/18 ;
14822
for (I3=4*I2+1;I3<=floord(13*I2+1,3);I3++) {
14823
J3 = -I1-2*(I2)+2*I3 ;
14824
S2++;
14825
J3 = I1-(I2)-(I3) ;
14826
S1++;
14827
}
14828
if ((13*I1-1)%18 == 0) {
14829
I3 = (13*I1-1)/18 ;
14830
J1 = -2*I1+3*I3 ;
14831
if ((2*I1+J1)%3 == 0) {
14832
J2 = (2*I1+J1)/3 ;
14833
J3 = 3*I1-4*J2 ;
14834
S1++;
14835
S2++;
14836
}
14837
}
14838
for (I3=ceild(13*I2+3,3);I3<=N1;I3++) {
14839
J3 = I1-(I2)-(I3) ;
14840
S1++;
14841
J3 = -I1-2*(I2)+2*I3 ;
14842
S2++;
14843
}
14844
}
14845
if (2*N1%9 == 0) {
14846
I2 = 2*N1/9 ;
14847
for (I3=4*I2;I3<=floord(13*I2-1,3);I3++) {
14848
J3 = -I1-2*(I2)+2*I3 ;
14849
S2++;
14850
J3 = I1-(I2)-(I3) ;
14851
S1++;
14852
}
14853
if (13*I1%18 == 0) {
14854
I3 = 13*I1/18 ;
14855
J1 = -2*I1+3*I3 ;
14856
if ((2*I1+J1)%3 == 0) {
14857
J2 = (2*I1+J1)/3 ;
14858
J3 = 3*I1-4*J2 ;
14859
S1++;
14860
S2++;
14861
}
14862
}
14863
for (I3=ceild(13*I2+1,3);I3<=min(N1,5*I2);I3++) {
14864
J3 = I1-(I2)-(I3) ;
14865
S1++;
14866
J3 = -I1-2*(I2)+2*I3 ;
14867
S2++;
14868
}
14869
}
14870
for (I2=ceild(4*N1+3,18);I2<=floord(N1-3,3);I2++) {
14871
for (I3=I1-2*I2;I3<=floord(I1+2*I2-1,2);I3++) {
14872
J3 = I1-(I2)-(I3) ;
14873
S1++;
14874
}
14875
for (I3=ceild(I1+2*I2,2);I3<=floord(2*I1+I2-1,3);I3++) {
14876
J3 = -I1-2*(I2)+2*I3 ;
14877
S2++;
14878
J3 = I1-(I2)-(I3) ;
14879
S1++;
14880
}
14881
if ((2*I1+I2)%3 == 0) {
14882
I3 = (2*I1+I2)/3 ;
14883
J1 = -2*I1+3*I3 ;
14884
if ((2*I1+J1)%3 == 0) {
14885
J2 = (2*I1+J1)/3 ;
14886
J3 = 3*I1-4*J2 ;
14887
S1++;
14888
S2++;
14889
}
14890
}
14891
for (I3=ceild(2*I1+I2+1,3);I3<=N1;I3++) {
14892
J3 = I1-(I2)-(I3) ;
14893
S1++;
14894
J3 = -I1-2*(I2)+2*I3 ;
14895
S2++;
14896
}
14897
}
14898
if (N1%3 == 0) {
14899
for (I3=ceild(2*N1,3);I3<=floord(2*N1-1,2);I3++) {
14900
J3 = I1-(I2)-(I3) ;
14901
S1++;
14902
}
14903
J1 = -2*I1+3*N1 ;
14904
if ((2*I1+J1)%3 == 0) {
14905
J2 = (2*I1+J1)/3 ;
14906
J3 = 3*I1-4*J2 ;
14907
S1++;
14908
S2++;
14909
}
14910
}
14911
for (I2=ceild(2*N1+3,6);I2<=N1;I2++) {
14912
for (I3=max(max(ceild(I1-I2,2),I1-2*I2),1);I3<=min(I1-I2,N1);I3++) {
14913
J3 = I1-(I2)-(I3) ;
14914
S1++;
14915
}
14916
}
14917
}
14918
}
14919
if (N1 >= 17) {
14920
if ((4*N1+1)%3 == 0) {
14921
I1 = (4*N1+1)/3 ;
14922
for (I2=1;I2<=floord(N1-2,6);I2++) {
14923
for (I3=ceild(I1+2*I2,2);I3<=min(N1,floord(2*I1+3*I2,3));I3++) {
14924
J3 = -I1-2*(I2)+2*I3 ;
14925
S2++;
14926
}
14927
}
14928
for (I2=ceild(N1+1,6);I2<=floord(4*N1-2,21);I2++) {
14929
for (I3=ceild(I1+2*I2,2);I3<=I1-2*I2-1;I3++) {
14930
J3 = -I1-2*(I2)+2*I3 ;
14931
S2++;
14932
}
14933
for (I3=I1-2*I2;I3<=N1;I3++) {
14934
J3 = I1-(I2)-(I3) ;
14935
S1++;
14936
J3 = -I1-2*(I2)+2*I3 ;
14937
S2++;
14938
}
14939
}
14940
if ((4*N1+1)%21 == 0) {
14941
I2 = (4*N1+1)/21 ;
14942
for (I3=ceild(9*I2,2);I3<=5*I2-1;I3++) {
14943
J3 = -I1-2*(I2)+2*I3 ;
14944
S2++;
14945
}
14946
if (5*I1%7 == 0) {
14947
I3 = 5*I1/7 ;
14948
J1 = -2*I1+3*I3 ;
14949
if ((2*I1+J1)%3 == 0) {
14950
J2 = (2*I1+J1)/3 ;
14951
J3 = 3*I1-4*J2 ;
14952
S1++;
14953
S2++;
14954
}
14955
}
14956
for (I3=ceild(15*I2+1,3);I3<=N1;I3++) {
14957
J3 = I1-(I2)-(I3) ;
14958
S1++;
14959
J3 = -I1-2*(I2)+2*I3 ;
14960
S2++;
14961
}
14962
}
14963
for (I2=ceild(4*N1+4,21);I2<=floord(4*N1-5,18);I2++) {
14964
for (I3=ceild(I1+2*I2,2);I3<=I1-2*I2-1;I3++) {
14965
J3 = -I1-2*(I2)+2*I3 ;
14966
S2++;
14967
}
14968
for (I3=I1-2*I2;I3<=floord(2*I1+I2-1,3);I3++) {
14969
J3 = -I1-2*(I2)+2*I3 ;
14970
S2++;
14971
J3 = I1-(I2)-(I3) ;
14972
S1++;
14973
}
14974
if ((2*I1+I2)%3 == 0) {
14975
I3 = (2*I1+I2)/3 ;
14976
J1 = -2*I1+3*I3 ;
14977
if ((2*I1+J1)%3 == 0) {
14978
J2 = (2*I1+J1)/3 ;
14979
J3 = 3*I1-4*J2 ;
14980
S1++;
14981
S2++;
14982
}
14983
}
14984
for (I3=ceild(2*I1+I2+1,3);I3<=N1;I3++) {
14985
J3 = I1-(I2)-(I3) ;
14986
S1++;
14987
J3 = -I1-2*(I2)+2*I3 ;
14988
S2++;
14989
}
14990
}
14991
if ((2*N1-1)%9 == 0) {
14992
I2 = (2*N1-1)/9 ;
14993
for (I3=4*I2+1;I3<=floord(13*I2+1,3);I3++) {
14994
J3 = -I1-2*(I2)+2*I3 ;
14995
S2++;
14996
J3 = I1-(I2)-(I3) ;
14997
S1++;
14998
}
14999
if ((13*I1-1)%18 == 0) {
15000
I3 = (13*I1-1)/18 ;
15001
J1 = -2*I1+3*I3 ;
15002
if ((2*I1+J1)%3 == 0) {
15003
J2 = (2*I1+J1)/3 ;
15004
J3 = 3*I1-4*J2 ;
15005
S1++;
15006
S2++;
15007
}
15008
}
15009
for (I3=ceild(13*I2+3,3);I3<=N1;I3++) {
15010
J3 = I1-(I2)-(I3) ;
15011
S1++;
15012
J3 = -I1-2*(I2)+2*I3 ;
15013
S2++;
15014
}
15015
}
15016
if ((4*N1+1)%18 == 0) {
15017
I2 = (4*N1+1)/18 ;
15018
for (I3=4*I2;I3<=floord(13*I2-1,3);I3++) {
15019
J3 = -I1-2*(I2)+2*I3 ;
15020
S2++;
15021
J3 = I1-(I2)-(I3) ;
15022
S1++;
15023
}
15024
if (13*I1%18 == 0) {
15025
I3 = 13*I1/18 ;
15026
J1 = -2*I1+3*I3 ;
15027
if ((2*I1+J1)%3 == 0) {
15028
J2 = (2*I1+J1)/3 ;
15029
J3 = 3*I1-4*J2 ;
15030
S1++;
15031
S2++;
15032
}
15033
}
15034
for (I3=ceild(13*I2+1,3);I3<=min(N1,5*I2);I3++) {
15035
J3 = I1-(I2)-(I3) ;
15036
S1++;
15037
J3 = -I1-2*(I2)+2*I3 ;
15038
S2++;
15039
}
15040
}
15041
for (I2=ceild(2*N1+2,9);I2<=floord(N1-5,3);I2++) {
15042
for (I3=I1-2*I2;I3<=floord(I1+2*I2-1,2);I3++) {
15043
J3 = I1-(I2)-(I3) ;
15044
S1++;
15045
}
15046
for (I3=ceild(I1+2*I2,2);I3<=floord(2*I1+I2-1,3);I3++) {
15047
J3 = -I1-2*(I2)+2*I3 ;
15048
S2++;
15049
J3 = I1-(I2)-(I3) ;
15050
S1++;
15051
}
15052
if ((2*I1+I2)%3 == 0) {
15053
I3 = (2*I1+I2)/3 ;
15054
J1 = -2*I1+3*I3 ;
15055
if ((2*I1+J1)%3 == 0) {
15056
J2 = (2*I1+J1)/3 ;
15057
J3 = 3*I1-4*J2 ;
15058
S1++;
15059
S2++;
15060
}
15061
}
15062
for (I3=ceild(2*I1+I2+1,3);I3<=N1;I3++) {
15063
J3 = I1-(I2)-(I3) ;
15064
S1++;
15065
J3 = -I1-2*(I2)+2*I3 ;
15066
S2++;
15067
}
15068
}
15069
if ((N1-2)%3 == 0) {
15070
I2 = (N1-2)/3 ;
15071
for (I3=ceild(-5*I2+3*N1,2);I3<=floord(3*I2+3*N1-2,4);I3++) {
15072
J3 = I1-(I2)-(I3) ;
15073
S1++;
15074
}
15075
for (I3=ceild(3*I2+3*N1,4);I3<=floord(3*N1-1,3);I3++) {
15076
J3 = -I1-2*(I2)+2*I3 ;
15077
S2++;
15078
J3 = I1-(I2)-(I3) ;
15079
S1++;
15080
}
15081
J1 = -2*I1+3*N1 ;
15082
if ((2*I1+J1)%3 == 0) {
15083
J2 = (2*I1+J1)/3 ;
15084
J3 = 3*I1-4*J2 ;
15085
S1++;
15086
S2++;
15087
}
15088
}
15089
for (I2=ceild(N1+1,3);I2<=N1;I2++) {
15090
for (I3=max(max(ceild(I1-I2,2),I1-2*I2),1);I3<=min(I1-I2,N1);I3++) {
15091
J3 = I1-(I2)-(I3) ;
15092
S1++;
15093
}
15094
}
15095
}
15096
}
15097
for (I1=ceild(4*N1+2,3);I1<=floord(18*N1-7,13);I1++) {
15098
for (I2=1;I2<=floord(I1-N1-1,2);I2++) {
15099
for (I3=ceild(I1+2*I2,2);I3<=min(N1,floord(2*I1+3*I2,3));I3++) {
15100
J3 = -I1-2*(I2)+2*I3 ;
15101
S2++;
15102
}
15103
}
15104
for (I2=ceild(I1-N1,2);I2<=floord(I1-1,7);I2++) {
15105
for (I3=ceild(I1+2*I2,2);I3<=I1-2*I2-1;I3++) {
15106
J3 = -I1-2*(I2)+2*I3 ;
15107
S2++;
15108
}
15109
for (I3=I1-2*I2;I3<=N1;I3++) {
15110
J3 = I1-(I2)-(I3) ;
15111
S1++;
15112
J3 = -I1-2*(I2)+2*I3 ;
15113
S2++;
15114
}
15115
}
15116
if (I1%7 == 0) {
15117
for (I3=ceild(9*I1/7,2);I3<=5*I1/7-1;I3++) {
15118
J3 = -I1-2*(I2)+2*I3 ;
15119
S2++;
15120
}
15121
if (5*I1%7 == 0) {
15122
I3 = 5*I1/7 ;
15123
J1 = -2*I1+3*I3 ;
15124
if ((2*I1+J1)%3 == 0) {
15125
J2 = (2*I1+J1)/3 ;
15126
J3 = 3*I1-4*J2 ;
15127
S1++;
15128
S2++;
15129
}
15130
}
15131
for (I3=ceild(15*I1/7+1,3);I3<=N1;I3++) {
15132
J3 = I1-(I2)-(I3) ;
15133
S1++;
15134
J3 = -I1-2*(I2)+2*I3 ;
15135
S2++;
15136
}
15137
}
15138
for (I2=ceild(I1+1,7);I2<=floord(I1-2,6);I2++) {
15139
for (I3=ceild(I1+2*I2,2);I3<=I1-2*I2-1;I3++) {
15140
J3 = -I1-2*(I2)+2*I3 ;
15141
S2++;
15142
}
15143
for (I3=I1-2*I2;I3<=floord(2*I1+I2-1,3);I3++) {
15144
J3 = -I1-2*(I2)+2*I3 ;
15145
S2++;
15146
J3 = I1-(I2)-(I3) ;
15147
S1++;
15148
}
15149
if ((2*I1+I2)%3 == 0) {
15150
I3 = (2*I1+I2)/3 ;
15151
J1 = -2*I1+3*I3 ;
15152
if ((2*I1+J1)%3 == 0) {
15153
J2 = (2*I1+J1)/3 ;
15154
J3 = 3*I1-4*J2 ;
15155
S1++;
15156
S2++;
15157
}
15158
}
15159
for (I3=ceild(2*I1+I2+1,3);I3<=N1;I3++) {
15160
J3 = I1-(I2)-(I3) ;
15161
S1++;
15162
J3 = -I1-2*(I2)+2*I3 ;
15163
S2++;
15164
}
15165
}
15166
if ((I1-1)%6 == 0) {
15167
I2 = (I1-1)/6 ;
15168
for (I3=4*I2+1;I3<=floord(13*I2+1,3);I3++) {
15169
J3 = -I1-2*(I2)+2*I3 ;
15170
S2++;
15171
J3 = I1-(I2)-(I3) ;
15172
S1++;
15173
}
15174
if ((13*I1-1)%18 == 0) {
15175
I3 = (13*I1-1)/18 ;
15176
J1 = -2*I1+3*I3 ;
15177
if ((2*I1+J1)%3 == 0) {
15178
J2 = (2*I1+J1)/3 ;
15179
J3 = 3*I1-4*J2 ;
15180
S1++;
15181
S2++;
15182
}
15183
}
15184
for (I3=ceild(13*I2+3,3);I3<=N1;I3++) {
15185
J3 = I1-(I2)-(I3) ;
15186
S1++;
15187
J3 = -I1-2*(I2)+2*I3 ;
15188
S2++;
15189
}
15190
}
15191
if (I1%6 == 0) {
15192
for (I3=4*I1/6;I3<=floord(13*I1/6-1,3);I3++) {
15193
J3 = -I1-2*(I2)+2*I3 ;
15194
S2++;
15195
J3 = I1-(I2)-(I3) ;
15196
S1++;
15197
}
15198
if (13*I1%18 == 0) {
15199
I3 = 13*I1/18 ;
15200
J1 = -2*I1+3*I3 ;
15201
if ((2*I1+J1)%3 == 0) {
15202
J2 = (2*I1+J1)/3 ;
15203
J3 = 3*I1-4*J2 ;
15204
S1++;
15205
S2++;
15206
}
15207
}
15208
for (I3=ceild(13*I1/6+1,3);I3<=min(N1,5*I1/6);I3++) {
15209
J3 = I1-(I2)-(I3) ;
15210
S1++;
15211
J3 = -I1-2*(I2)+2*I3 ;
15212
S2++;
15213
}
15214
}
15215
for (I2=ceild(I1+1,6);I2<=-2*I1+3*N1-1;I2++) {
15216
for (I3=I1-2*I2;I3<=floord(I1+2*I2-1,2);I3++) {
15217
J3 = I1-(I2)-(I3) ;
15218
S1++;
15219
}
15220
for (I3=ceild(I1+2*I2,2);I3<=floord(2*I1+I2-1,3);I3++) {
15221
J3 = -I1-2*(I2)+2*I3 ;
15222
S2++;
15223
J3 = I1-(I2)-(I3) ;
15224
S1++;
15225
}
15226
if ((2*I1+I2)%3 == 0) {
15227
I3 = (2*I1+I2)/3 ;
15228
J1 = -2*I1+3*I3 ;
15229
if ((2*I1+J1)%3 == 0) {
15230
J2 = (2*I1+J1)/3 ;
15231
J3 = 3*I1-4*J2 ;
15232
S1++;
15233
S2++;
15234
}
15235
}
15236
for (I3=ceild(2*I1+I2+1,3);I3<=N1;I3++) {
15237
J3 = I1-(I2)-(I3) ;
15238
S1++;
15239
J3 = -I1-2*(I2)+2*I3 ;
15240
S2++;
15241
}
15242
}
15243
I2 = -2*I1+3*N1 ;
15244
for (I3=ceild(-5*I2+3*N1,2);I3<=floord(3*I2+3*N1-2,4);I3++) {
15245
J3 = I1-(I2)-(I3) ;
15246
S1++;
15247
}
15248
for (I3=ceild(3*I2+3*N1,4);I3<=floord(3*N1-1,3);I3++) {
15249
J3 = -I1-2*(I2)+2*I3 ;
15250
S2++;
15251
J3 = I1-(I2)-(I3) ;
15252
S1++;
15253
}
15254
J1 = -2*I1+3*N1 ;
15255
if ((2*I1+J1)%3 == 0) {
15256
J2 = (2*I1+J1)/3 ;
15257
J3 = 3*I1-4*J2 ;
15258
S1++;
15259
S2++;
15260
}
15261
for (I2=-2*I1+3*N1+1;I2<=floord(-I1+2*N1,2);I2++) {
15262
for (I3=I1-2*I2;I3<=floord(I1+2*I2-1,2);I3++) {
15263
J3 = I1-(I2)-(I3) ;
15264
S1++;
15265
}
15266
for (I3=ceild(I1+2*I2,2);I3<=N1;I3++) {
15267
J3 = -I1-2*(I2)+2*I3 ;
15268
S2++;
15269
J3 = I1-(I2)-(I3) ;
15270
S1++;
15271
}
15272
}
15273
for (I2=ceild(-I1+2*N1+1,2);I2<=N1;I2++) {
15274
for (I3=max(max(ceild(I1-I2,2),I1-2*I2),1);I3<=min(I1-I2,N1);I3++) {
15275
J3 = I1-(I2)-(I3) ;
15276
S1++;
15277
}
15278
}
15279
}
15280
if (N1 >= 22) {
15281
if ((18*N1-6)%13 == 0) {
15282
I1 = (18*N1-6)/13 ;
15283
for (I2=1;I2<=floord(5*N1-19,26);I2++) {
15284
for (I3=ceild(I1+2*I2,2);I3<=min(N1,floord(2*I1+3*I2,3));I3++) {
15285
J3 = -I1-2*(I2)+2*I3 ;
15286
S2++;
15287
}
15288
}
15289
for (I2=ceild(5*N1-6,26);I2<=floord(18*N1-19,91);I2++) {
15290
for (I3=ceild(I1+2*I2,2);I3<=I1-2*I2-1;I3++) {
15291
J3 = -I1-2*(I2)+2*I3 ;
15292
S2++;
15293
}
15294
for (I3=I1-2*I2;I3<=N1;I3++) {
15295
J3 = I1-(I2)-(I3) ;
15296
S1++;
15297
J3 = -I1-2*(I2)+2*I3 ;
15298
S2++;
15299
}
15300
}
15301
if ((18*N1-6)%91 == 0) {
15302
I2 = (18*N1-6)/91 ;
15303
for (I3=ceild(9*I2,2);I3<=5*I2-1;I3++) {
15304
J3 = -I1-2*(I2)+2*I3 ;
15305
S2++;
15306
}
15307
if (5*I1%7 == 0) {
15308
I3 = 5*I1/7 ;
15309
J1 = -2*I1+3*I3 ;
15310
if ((2*I1+J1)%3 == 0) {
15311
J2 = (2*I1+J1)/3 ;
15312
J3 = 3*I1-4*J2 ;
15313
S1++;
15314
S2++;
15315
}
15316
}
15317
for (I3=ceild(15*I2+1,3);I3<=N1;I3++) {
15318
J3 = I1-(I2)-(I3) ;
15319
S1++;
15320
J3 = -I1-2*(I2)+2*I3 ;
15321
S2++;
15322
}
15323
}
15324
for (I2=ceild(18*N1+7,91);I2<=floord(9*N1-16,39);I2++) {
15325
for (I3=ceild(I1+2*I2,2);I3<=I1-2*I2-1;I3++) {
15326
J3 = -I1-2*(I2)+2*I3 ;
15327
S2++;
15328
}
15329
for (I3=I1-2*I2;I3<=floord(2*I1+I2-1,3);I3++) {
15330
J3 = -I1-2*(I2)+2*I3 ;
15331
S2++;
15332
J3 = I1-(I2)-(I3) ;
15333
S1++;
15334
}
15335
if ((2*I1+I2)%3 == 0) {
15336
I3 = (2*I1+I2)/3 ;
15337
J1 = -2*I1+3*I3 ;
15338
if ((2*I1+J1)%3 == 0) {
15339
J2 = (2*I1+J1)/3 ;
15340
J3 = 3*I1-4*J2 ;
15341
S1++;
15342
S2++;
15343
}
15344
}
15345
for (I3=ceild(2*I1+I2+1,3);I3<=N1;I3++) {
15346
J3 = I1-(I2)-(I3) ;
15347
S1++;
15348
J3 = -I1-2*(I2)+2*I3 ;
15349
S2++;
15350
}
15351
}
15352
if ((18*N1-19)%78 == 0) {
15353
I2 = (18*N1-19)/78 ;
15354
for (I3=4*I2+1;I3<=floord(13*I2+1,3);I3++) {
15355
J3 = -I1-2*(I2)+2*I3 ;
15356
S2++;
15357
J3 = I1-(I2)-(I3) ;
15358
S1++;
15359
}
15360
if ((13*I1-1)%18 == 0) {
15361
I3 = (13*I1-1)/18 ;
15362
J1 = -2*I1+3*I3 ;
15363
if ((2*I1+J1)%3 == 0) {
15364
J2 = (2*I1+J1)/3 ;
15365
J3 = 3*I1-4*J2 ;
15366
S1++;
15367
S2++;
15368
}
15369
}
15370
for (I3=ceild(13*I2+3,3);I3<=N1;I3++) {
15371
J3 = I1-(I2)-(I3) ;
15372
S1++;
15373
J3 = -I1-2*(I2)+2*I3 ;
15374
S2++;
15375
}
15376
}
15377
if ((3*N1-1)%13 == 0) {
15378
I2 = (3*N1-1)/13 ;
15379
for (I3=4*I2;I3<=floord(13*I2-1,3);I3++) {
15380
J3 = -I1-2*(I2)+2*I3 ;
15381
S2++;
15382
J3 = I1-(I2)-(I3) ;
15383
S1++;
15384
}
15385
if (13*I1%18 == 0) {
15386
I3 = 13*I1/18 ;
15387
J1 = -2*I1+3*I3 ;
15388
if ((2*I1+J1)%3 == 0) {
15389
J2 = (2*I1+J1)/3 ;
15390
J3 = 3*I1-4*J2 ;
15391
S1++;
15392
S2++;
15393
}
15394
}
15395
for (I3=ceild(13*I2+1,3);I3<=min(N1,5*I2);I3++) {
15396
J3 = I1-(I2)-(I3) ;
15397
S1++;
15398
J3 = -I1-2*(I2)+2*I3 ;
15399
S2++;
15400
}
15401
}
15402
if ((3*N1+12)%13 == 0) {
15403
I2 = (3*N1+12)/13 ;
15404
for (I3=ceild(-5*I2+3*N1,2);I3<=floord(3*I2+3*N1-2,4);I3++) {
15405
J3 = I1-(I2)-(I3) ;
15406
S1++;
15407
}
15408
for (I3=ceild(3*I2+3*N1,4);I3<=floord(3*N1-1,3);I3++) {
15409
J3 = -I1-2*(I2)+2*I3 ;
15410
S2++;
15411
J3 = I1-(I2)-(I3) ;
15412
S1++;
15413
}
15414
J1 = -2*I1+3*N1 ;
15415
if ((2*I1+J1)%3 == 0) {
15416
J2 = (2*I1+J1)/3 ;
15417
J3 = 3*I1-4*J2 ;
15418
S1++;
15419
S2++;
15420
}
15421
}
15422
for (I2=ceild(3*N1+25,13);I2<=floord(4*N1+3,13);I2++) {
15423
for (I3=I1-2*I2;I3<=floord(I1+2*I2-1,2);I3++) {
15424
J3 = I1-(I2)-(I3) ;
15425
S1++;
15426
}
15427
for (I3=ceild(I1+2*I2,2);I3<=N1;I3++) {
15428
J3 = -I1-2*(I2)+2*I3 ;
15429
S2++;
15430
J3 = I1-(I2)-(I3) ;
15431
S1++;
15432
}
15433
}
15434
for (I2=ceild(8*N1+19,26);I2<=N1;I2++) {
15435
for (I3=max(max(ceild(I1-I2,2),I1-2*I2),1);I3<=min(I1-I2,N1);I3++) {
15436
J3 = I1-(I2)-(I3) ;
15437
S1++;
15438
}
15439
}
15440
}
15441
}
15442
if (N1 >= 21) {
15443
if ((18*N1-5)%13 == 0) {
15444
I1 = (18*N1-5)/13 ;
15445
for (I2=1;I2<=floord(5*N1-18,26);I2++) {
15446
for (I3=ceild(I1+2*I2,2);I3<=min(N1,floord(2*I1+3*I2,3));I3++) {
15447
J3 = -I1-2*(I2)+2*I3 ;
15448
S2++;
15449
}
15450
}
15451
for (I2=ceild(5*N1-5,26);I2<=floord(18*N1-18,91);I2++) {
15452
for (I3=ceild(I1+2*I2,2);I3<=I1-2*I2-1;I3++) {
15453
J3 = -I1-2*(I2)+2*I3 ;
15454
S2++;
15455
}
15456
for (I3=I1-2*I2;I3<=N1;I3++) {
15457
J3 = I1-(I2)-(I3) ;
15458
S1++;
15459
J3 = -I1-2*(I2)+2*I3 ;
15460
S2++;
15461
}
15462
}
15463
if ((18*N1-5)%91 == 0) {
15464
I2 = (18*N1-5)/91 ;
15465
for (I3=ceild(9*I2,2);I3<=5*I2-1;I3++) {
15466
J3 = -I1-2*(I2)+2*I3 ;
15467
S2++;
15468
}
15469
if (5*I1%7 == 0) {
15470
I3 = 5*I1/7 ;
15471
J1 = -2*I1+3*I3 ;
15472
if ((2*I1+J1)%3 == 0) {
15473
J2 = (2*I1+J1)/3 ;
15474
J3 = 3*I1-4*J2 ;
15475
S1++;
15476
S2++;
15477
}
15478
}
15479
for (I3=ceild(15*I2+1,3);I3<=N1;I3++) {
15480
J3 = I1-(I2)-(I3) ;
15481
S1++;
15482
J3 = -I1-2*(I2)+2*I3 ;
15483
S2++;
15484
}
15485
}
15486
for (I2=ceild(18*N1+8,91);I2<=floord(18*N1-31,78);I2++) {
15487
for (I3=ceild(I1+2*I2,2);I3<=I1-2*I2-1;I3++) {
15488
J3 = -I1-2*(I2)+2*I3 ;
15489
S2++;
15490
}
15491
for (I3=I1-2*I2;I3<=floord(2*I1+I2-1,3);I3++) {
15492
J3 = -I1-2*(I2)+2*I3 ;
15493
S2++;
15494
J3 = I1-(I2)-(I3) ;
15495
S1++;
15496
}
15497
if ((2*I1+I2)%3 == 0) {
15498
I3 = (2*I1+I2)/3 ;
15499
J1 = -2*I1+3*I3 ;
15500
if ((2*I1+J1)%3 == 0) {
15501
J2 = (2*I1+J1)/3 ;
15502
J3 = 3*I1-4*J2 ;
15503
S1++;
15504
S2++;
15505
}
15506
}
15507
for (I3=ceild(2*I1+I2+1,3);I3<=N1;I3++) {
15508
J3 = I1-(I2)-(I3) ;
15509
S1++;
15510
J3 = -I1-2*(I2)+2*I3 ;
15511
S2++;
15512
}
15513
}
15514
if ((3*N1-3)%13 == 0) {
15515
I2 = (3*N1-3)/13 ;
15516
for (I3=4*I2+1;I3<=floord(13*I2+1,3);I3++) {
15517
J3 = -I1-2*(I2)+2*I3 ;
15518
S2++;
15519
J3 = I1-(I2)-(I3) ;
15520
S1++;
15521
}
15522
if ((13*I1-1)%18 == 0) {
15523
I3 = (13*I1-1)/18 ;
15524
J1 = -2*I1+3*I3 ;
15525
if ((2*I1+J1)%3 == 0) {
15526
J2 = (2*I1+J1)/3 ;
15527
J3 = 3*I1-4*J2 ;
15528
S1++;
15529
S2++;
15530
}
15531
}
15532
for (I3=ceild(13*I2+3,3);I3<=N1;I3++) {
15533
J3 = I1-(I2)-(I3) ;
15534
S1++;
15535
J3 = -I1-2*(I2)+2*I3 ;
15536
S2++;
15537
}
15538
}
15539
if ((3*N1+10)%13 == 0) {
15540
I2 = (3*N1+10)/13 ;
15541
for (I3=ceild(-5*I2+3*N1,2);I3<=floord(3*I2+3*N1-2,4);I3++) {
15542
J3 = I1-(I2)-(I3) ;
15543
S1++;
15544
}
15545
for (I3=ceild(3*I2+3*N1,4);I3<=floord(3*N1-1,3);I3++) {
15546
J3 = -I1-2*(I2)+2*I3 ;
15547
S2++;
15548
J3 = I1-(I2)-(I3) ;
15549
S1++;
15550
}
15551
J1 = -2*I1+3*N1 ;
15552
if ((2*I1+J1)%3 == 0) {
15553
J2 = (2*I1+J1)/3 ;
15554
J3 = 3*I1-4*J2 ;
15555
S1++;
15556
S2++;
15557
}
15558
}
15559
for (I2=ceild(3*N1+23,13);I2<=floord(8*N1+5,26);I2++) {
15560
for (I3=I1-2*I2;I3<=floord(I1+2*I2-1,2);I3++) {
15561
J3 = I1-(I2)-(I3) ;
15562
S1++;
15563
}
15564
for (I3=ceild(I1+2*I2,2);I3<=N1;I3++) {
15565
J3 = -I1-2*(I2)+2*I3 ;
15566
S2++;
15567
J3 = I1-(I2)-(I3) ;
15568
S1++;
15569
}
15570
}
15571
for (I2=ceild(4*N1+9,13);I2<=N1;I2++) {
15572
for (I3=max(max(ceild(I1-I2,2),I1-2*I2),1);I3<=min(I1-I2,N1);I3++) {
15573
J3 = I1-(I2)-(I3) ;
15574
S1++;
15575
}
15576
}
15577
}
15578
}
15579
for (I1=max(ceild(18*N1-4,13),ceild(4*N1+2,3));I1<=min(floord(21*N1-8,15),floord(18*N1-1,13));I1++) {
15580
for (I2=1;I2<=floord(I1-N1-1,2);I2++) {
15581
for (I3=ceild(I1+2*I2,2);I3<=min(N1,floord(2*I1+3*I2,3));I3++) {
15582
J3 = -I1-2*(I2)+2*I3 ;
15583
S2++;
15584
}
15585
}
15586
for (I2=ceild(I1-N1,2);I2<=floord(I1-1,7);I2++) {
15587
for (I3=ceild(I1+2*I2,2);I3<=I1-2*I2-1;I3++) {
15588
J3 = -I1-2*(I2)+2*I3 ;
15589
S2++;
15590
}
15591
for (I3=I1-2*I2;I3<=N1;I3++) {
15592
J3 = I1-(I2)-(I3) ;
15593
S1++;
15594
J3 = -I1-2*(I2)+2*I3 ;
15595
S2++;
15596
}
15597
}
15598
if (I1%7 == 0) {
15599
for (I3=ceild(9*I1/7,2);I3<=5*I1/7-1;I3++) {
15600
J3 = -I1-2*(I2)+2*I3 ;
15601
S2++;
15602
}
15603
if (5*I1%7 == 0) {
15604
I3 = 5*I1/7 ;
15605
J1 = -2*I1+3*I3 ;
15606
if ((2*I1+J1)%3 == 0) {
15607
J2 = (2*I1+J1)/3 ;
15608
J3 = 3*I1-4*J2 ;
15609
S1++;
15610
S2++;
15611
}
15612
}
15613
for (I3=ceild(15*I1/7+1,3);I3<=N1;I3++) {
15614
J3 = I1-(I2)-(I3) ;
15615
S1++;
15616
J3 = -I1-2*(I2)+2*I3 ;
15617
S2++;
15618
}
15619
}
15620
for (I2=ceild(I1+1,7);I2<=-2*I1+3*N1-1;I2++) {
15621
for (I3=ceild(I1+2*I2,2);I3<=I1-2*I2-1;I3++) {
15622
J3 = -I1-2*(I2)+2*I3 ;
15623
S2++;
15624
}
15625
for (I3=I1-2*I2;I3<=floord(2*I1+I2-1,3);I3++) {
15626
J3 = -I1-2*(I2)+2*I3 ;
15627
S2++;
15628
J3 = I1-(I2)-(I3) ;
15629
S1++;
15630
}
15631
if ((2*I1+I2)%3 == 0) {
15632
I3 = (2*I1+I2)/3 ;
15633
J1 = -2*I1+3*I3 ;
15634
if ((2*I1+J1)%3 == 0) {
15635
J2 = (2*I1+J1)/3 ;
15636
J3 = 3*I1-4*J2 ;
15637
S1++;
15638
S2++;
15639
}
15640
}
15641
for (I3=ceild(2*I1+I2+1,3);I3<=N1;I3++) {
15642
J3 = I1-(I2)-(I3) ;
15643
S1++;
15644
J3 = -I1-2*(I2)+2*I3 ;
15645
S2++;
15646
}
15647
}
15648
I2 = -2*I1+3*N1 ;
15649
for (I3=ceild(-5*I2+3*N1,2);I3<=floord(3*I2+3*N1-2,4);I3++) {
15650
J3 = I1-(I2)-(I3) ;
15651
S1++;
15652
}
15653
for (I3=ceild(3*I2+3*N1,4);I3<=floord(3*N1-1,3);I3++) {
15654
J3 = -I1-2*(I2)+2*I3 ;
15655
S2++;
15656
J3 = I1-(I2)-(I3) ;
15657
S1++;
15658
}
15659
J1 = -2*I1+3*N1 ;
15660
if ((2*I1+J1)%3 == 0) {
15661
J2 = (2*I1+J1)/3 ;
15662
J3 = 3*I1-4*J2 ;
15663
S1++;
15664
S2++;
15665
}
15666
for (I2=-2*I1+3*N1+1;I2<=floord(-I1+2*N1,2);I2++) {
15667
for (I3=I1-2*I2;I3<=floord(I1+2*I2-1,2);I3++) {
15668
J3 = I1-(I2)-(I3) ;
15669
S1++;
15670
}
15671
for (I3=ceild(I1+2*I2,2);I3<=N1;I3++) {
15672
J3 = -I1-2*(I2)+2*I3 ;
15673
S2++;
15674
J3 = I1-(I2)-(I3) ;
15675
S1++;
15676
}
15677
}
15678
for (I2=ceild(-I1+2*N1+1,2);I2<=N1;I2++) {
15679
for (I3=max(max(ceild(I1-I2,2),I1-2*I2),1);I3<=min(I1-I2,N1);I3++) {
15680
J3 = I1-(I2)-(I3) ;
15681
S1++;
15682
}
15683
}
15684
}
15685
for (I1=ceild(18*N1,13);I1<=min(floord(21*N1-8,15),floord(18*N1+1,13));I1++) {
15686
for (I2=1;I2<=floord(I1-N1-1,2);I2++) {
15687
for (I3=ceild(I1+2*I2,2);I3<=min(N1,floord(2*I1+3*I2,3));I3++) {
15688
J3 = -I1-2*(I2)+2*I3 ;
15689
S2++;
15690
}
15691
}
15692
for (I2=ceild(I1-N1,2);I2<=floord(I1-1,7);I2++) {
15693
for (I3=ceild(I1+2*I2,2);I3<=I1-2*I2-1;I3++) {
15694
J3 = -I1-2*(I2)+2*I3 ;
15695
S2++;
15696
}
15697
for (I3=I1-2*I2;I3<=N1;I3++) {
15698
J3 = I1-(I2)-(I3) ;
15699
S1++;
15700
J3 = -I1-2*(I2)+2*I3 ;
15701
S2++;
15702
}
15703
}
15704
if (I1%7 == 0) {
15705
for (I3=ceild(9*I1/7,2);I3<=5*I1/7-1;I3++) {
15706
J3 = -I1-2*(I2)+2*I3 ;
15707
S2++;
15708
}
15709
if (5*I1%7 == 0) {
15710
I3 = 5*I1/7 ;
15711
J1 = -2*I1+3*I3 ;
15712
if ((2*I1+J1)%3 == 0) {
15713
J2 = (2*I1+J1)/3 ;
15714
J3 = 3*I1-4*J2 ;
15715
S1++;
15716
S2++;
15717
}
15718
}
15719
for (I3=ceild(15*I1/7+1,3);I3<=N1;I3++) {
15720
J3 = I1-(I2)-(I3) ;
15721
S1++;
15722
J3 = -I1-2*(I2)+2*I3 ;
15723
S2++;
15724
}
15725
}
15726
for (I2=ceild(I1+1,7);I2<=-2*I1+3*N1-1;I2++) {
15727
for (I3=ceild(I1+2*I2,2);I3<=I1-2*I2-1;I3++) {
15728
J3 = -I1-2*(I2)+2*I3 ;
15729
S2++;
15730
}
15731
for (I3=I1-2*I2;I3<=floord(2*I1+I2-1,3);I3++) {
15732
J3 = -I1-2*(I2)+2*I3 ;
15733
S2++;
15734
J3 = I1-(I2)-(I3) ;
15735
S1++;
15736
}
15737
if ((2*I1+I2)%3 == 0) {
15738
I3 = (2*I1+I2)/3 ;
15739
J1 = -2*I1+3*I3 ;
15740
if ((2*I1+J1)%3 == 0) {
15741
J2 = (2*I1+J1)/3 ;
15742
J3 = 3*I1-4*J2 ;
15743
S1++;
15744
S2++;
15745
}
15746
}
15747
for (I3=ceild(2*I1+I2+1,3);I3<=N1;I3++) {
15748
J3 = I1-(I2)-(I3) ;
15749
S1++;
15750
J3 = -I1-2*(I2)+2*I3 ;
15751
S2++;
15752
}
15753
}
15754
I2 = -2*I1+3*N1 ;
15755
for (I3=ceild(-5*I2+3*N1,2);I3<=floord(3*N1-1,3);I3++) {
15756
J3 = -I1-2*(I2)+2*I3 ;
15757
S2++;
15758
J3 = I1-(I2)-(I3) ;
15759
S1++;
15760
}
15761
J1 = -2*I1+3*N1 ;
15762
if ((2*I1+J1)%3 == 0) {
15763
J2 = (2*I1+J1)/3 ;
15764
J3 = 3*I1-4*J2 ;
15765
S1++;
15766
S2++;
15767
}
15768
for (I2=-2*I1+3*N1+1;I2<=floord(-I1+2*N1,2);I2++) {
15769
for (I3=I1-2*I2;I3<=floord(I1+2*I2-1,2);I3++) {
15770
J3 = I1-(I2)-(I3) ;
15771
S1++;
15772
}
15773
for (I3=ceild(I1+2*I2,2);I3<=N1;I3++) {
15774
J3 = -I1-2*(I2)+2*I3 ;
15775
S2++;
15776
J3 = I1-(I2)-(I3) ;
15777
S1++;
15778
}
15779
}
15780
for (I2=ceild(-I1+2*N1+1,2);I2<=N1;I2++) {
15781
for (I3=max(max(ceild(I1-I2,2),I1-2*I2),1);I3<=min(I1-I2,N1);I3++) {
15782
J3 = I1-(I2)-(I3) ;
15783
S1++;
15784
}
15785
}
15786
}
15787
if ((N1 >= 17) && (N1 <= 25)) {
15788
if ((21*N1-7)%15 == 0) {
15789
I1 = (21*N1-7)/15 ;
15790
for (I2=1;I2<=floord(3*N1-11,15);I2++) {
15791
for (I3=ceild(I1+2*I2,2);I3<=min(N1,floord(2*I1+3*I2,3));I3++) {
15792
J3 = -I1-2*(I2)+2*I3 ;
15793
S2++;
15794
}
15795
}
15796
for (I2=ceild(6*N1-7,30);I2<=floord(21*N1-22,105);I2++) {
15797
for (I3=ceild(I1+2*I2,2);I3<=I1-2*I2-1;I3++) {
15798
J3 = -I1-2*(I2)+2*I3 ;
15799
S2++;
15800
}
15801
for (I3=I1-2*I2;I3<=N1;I3++) {
15802
J3 = I1-(I2)-(I3) ;
15803
S1++;
15804
J3 = -I1-2*(I2)+2*I3 ;
15805
S2++;
15806
}
15807
}
15808
if ((3*N1-1)%15 == 0) {
15809
I2 = (3*N1-1)/15 ;
15810
for (I3=ceild(9*I2,2);I3<=5*I2-1;I3++) {
15811
J3 = -I1-2*(I2)+2*I3 ;
15812
S2++;
15813
}
15814
if (5*I1%7 == 0) {
15815
I3 = 5*I1/7 ;
15816
J1 = -2*I1+3*I3 ;
15817
if ((2*I1+J1)%3 == 0) {
15818
J2 = (2*I1+J1)/3 ;
15819
J3 = 3*I1-4*J2 ;
15820
S1++;
15821
S2++;
15822
}
15823
}
15824
for (I3=ceild(15*I2+1,3);I3<=N1;I3++) {
15825
J3 = I1-(I2)-(I3) ;
15826
S1++;
15827
J3 = -I1-2*(I2)+2*I3 ;
15828
S2++;
15829
}
15830
}
15831
if ((3*N1+14)%15 == 0) {
15832
I2 = (3*N1+14)/15 ;
15833
for (I3=ceild(-5*I2+3*N1,2);I3<=floord(3*I2+3*N1-2,4);I3++) {
15834
J3 = I1-(I2)-(I3) ;
15835
S1++;
15836
}
15837
for (I3=ceild(3*I2+3*N1,4);I3<=floord(3*N1-1,3);I3++) {
15838
J3 = -I1-2*(I2)+2*I3 ;
15839
S2++;
15840
J3 = I1-(I2)-(I3) ;
15841
S1++;
15842
}
15843
J1 = -2*I1+3*N1 ;
15844
if ((2*I1+J1)%3 == 0) {
15845
J2 = (2*I1+J1)/3 ;
15846
J3 = 3*I1-4*J2 ;
15847
S1++;
15848
S2++;
15849
}
15850
}
15851
for (I2=ceild(3*N1+29,15);I2<=floord(9*N1+7,30);I2++) {
15852
for (I3=I1-2*I2;I3<=floord(I1+2*I2-1,2);I3++) {
15853
J3 = I1-(I2)-(I3) ;
15854
S1++;
15855
}
15856
for (I3=ceild(I1+2*I2,2);I3<=N1;I3++) {
15857
J3 = -I1-2*(I2)+2*I3 ;
15858
S2++;
15859
J3 = I1-(I2)-(I3) ;
15860
S1++;
15861
}
15862
}
15863
for (I2=ceild(9*N1+22,30);I2<=N1;I2++) {
15864
for (I3=max(max(ceild(I1-I2,2),I1-2*I2),1);I3<=min(I1-I2,N1);I3++) {
15865
J3 = I1-(I2)-(I3) ;
15866
S1++;
15867
}
15868
}
15869
}
15870
}
15871
for (I1=ceild(18*N1+2,13);I1<=min(floord(21*N1-8,15),floord(18*N1+5,13));I1++) {
15872
for (I2=1;I2<=floord(I1-N1-1,2);I2++) {
15873
for (I3=ceild(I1+2*I2,2);I3<=min(N1,floord(2*I1+3*I2,3));I3++) {
15874
J3 = -I1-2*(I2)+2*I3 ;
15875
S2++;
15876
}
15877
}
15878
for (I2=ceild(I1-N1,2);I2<=floord(I1-1,7);I2++) {
15879
for (I3=ceild(I1+2*I2,2);I3<=I1-2*I2-1;I3++) {
15880
J3 = -I1-2*(I2)+2*I3 ;
15881
S2++;
15882
}
15883
for (I3=I1-2*I2;I3<=N1;I3++) {
15884
J3 = I1-(I2)-(I3) ;
15885
S1++;
15886
J3 = -I1-2*(I2)+2*I3 ;
15887
S2++;
15888
}
15889
}
15890
if (I1%7 == 0) {
15891
for (I3=ceild(9*I1/7,2);I3<=5*I1/7-1;I3++) {
15892
J3 = -I1-2*(I2)+2*I3 ;
15893
S2++;
15894
}
15895
if (5*I1%7 == 0) {
15896
I3 = 5*I1/7 ;
15897
J1 = -2*I1+3*I3 ;
15898
if ((2*I1+J1)%3 == 0) {
15899
J2 = (2*I1+J1)/3 ;
15900
J3 = 3*I1-4*J2 ;
15901
S1++;
15902
S2++;
15903
}
15904
}
15905
for (I3=ceild(15*I1/7+1,3);I3<=N1;I3++) {
15906
J3 = I1-(I2)-(I3) ;
15907
S1++;
15908
J3 = -I1-2*(I2)+2*I3 ;
15909
S2++;
15910
}
15911
}
15912
for (I2=ceild(I1+1,7);I2<=-2*I1+3*N1-1;I2++) {
15913
for (I3=ceild(I1+2*I2,2);I3<=I1-2*I2-1;I3++) {
15914
J3 = -I1-2*(I2)+2*I3 ;
15915
S2++;
15916
}
15917
for (I3=I1-2*I2;I3<=floord(2*I1+I2-1,3);I3++) {
15918
J3 = -I1-2*(I2)+2*I3 ;
15919
S2++;
15920
J3 = I1-(I2)-(I3) ;
15921
S1++;
15922
}
15923
if ((2*I1+I2)%3 == 0) {
15924
I3 = (2*I1+I2)/3 ;
15925
J1 = -2*I1+3*I3 ;
15926
if ((2*I1+J1)%3 == 0) {
15927
J2 = (2*I1+J1)/3 ;
15928
J3 = 3*I1-4*J2 ;
15929
S1++;
15930
S2++;
15931
}
15932
}
15933
for (I3=ceild(2*I1+I2+1,3);I3<=N1;I3++) {
15934
J3 = I1-(I2)-(I3) ;
15935
S1++;
15936
J3 = -I1-2*(I2)+2*I3 ;
15937
S2++;
15938
}
15939
}
15940
I2 = -2*I1+3*N1 ;
15941
for (I3=ceild(3*I2+3*N1,4);I3<=floord(-5*I2+3*N1-2,2);I3++) {
15942
J3 = -I1-2*(I2)+2*I3 ;
15943
S2++;
15944
}
15945
for (I3=ceild(-5*I2+3*N1,2);I3<=floord(3*N1-1,3);I3++) {
15946
J3 = -I1-2*(I2)+2*I3 ;
15947
S2++;
15948
J3 = I1-(I2)-(I3) ;
15949
S1++;
15950
}
15951
J1 = -2*I1+3*N1 ;
15952
if ((2*I1+J1)%3 == 0) {
15953
J2 = (2*I1+J1)/3 ;
15954
J3 = 3*I1-4*J2 ;
15955
S1++;
15956
S2++;
15957
}
15958
for (I2=-2*I1+3*N1+1;I2<=floord(-I1+2*N1,2);I2++) {
15959
for (I3=I1-2*I2;I3<=floord(I1+2*I2-1,2);I3++) {
15960
J3 = I1-(I2)-(I3) ;
15961
S1++;
15962
}
15963
for (I3=ceild(I1+2*I2,2);I3<=N1;I3++) {
15964
J3 = -I1-2*(I2)+2*I3 ;
15965
S2++;
15966
J3 = I1-(I2)-(I3) ;
15967
S1++;
15968
}
15969
}
15970
for (I2=ceild(-I1+2*N1+1,2);I2<=N1;I2++) {
15971
for (I3=max(max(ceild(I1-I2,2),I1-2*I2),1);I3<=min(I1-I2,N1);I3++) {
15972
J3 = I1-(I2)-(I3) ;
15973
S1++;
15974
}
15975
}
15976
}
15977
if ((N1 <= 35) && (N1 >= 31)) {
15978
if ((21*N1-7)%15 == 0) {
15979
I1 = (21*N1-7)/15 ;
15980
for (I2=1;I2<=floord(3*N1-11,15);I2++) {
15981
for (I3=ceild(I1+2*I2,2);I3<=min(N1,floord(2*I1+3*I2,3));I3++) {
15982
J3 = -I1-2*(I2)+2*I3 ;
15983
S2++;
15984
}
15985
}
15986
for (I2=ceild(6*N1-7,30);I2<=floord(21*N1-22,105);I2++) {
15987
for (I3=ceild(I1+2*I2,2);I3<=I1-2*I2-1;I3++) {
15988
J3 = -I1-2*(I2)+2*I3 ;
15989
S2++;
15990
}
15991
for (I3=I1-2*I2;I3<=N1;I3++) {
15992
J3 = I1-(I2)-(I3) ;
15993
S1++;
15994
J3 = -I1-2*(I2)+2*I3 ;
15995
S2++;
15996
}
15997
}
15998
if ((3*N1-1)%15 == 0) {
15999
I2 = (3*N1-1)/15 ;
16000
for (I3=ceild(9*I2,2);I3<=5*I2-1;I3++) {
16001
J3 = -I1-2*(I2)+2*I3 ;
16002
S2++;
16003
}
16004
if (5*I1%7 == 0) {
16005
I3 = 5*I1/7 ;
16006
J1 = -2*I1+3*I3 ;
16007
if ((2*I1+J1)%3 == 0) {
16008
J2 = (2*I1+J1)/3 ;
16009
J3 = 3*I1-4*J2 ;
16010
S1++;
16011
S2++;
16012
}
16013
}
16014
for (I3=ceild(15*I2+1,3);I3<=N1;I3++) {
16015
J3 = I1-(I2)-(I3) ;
16016
S1++;
16017
J3 = -I1-2*(I2)+2*I3 ;
16018
S2++;
16019
}
16020
}
16021
if ((3*N1+14)%15 == 0) {
16022
I2 = (3*N1+14)/15 ;
16023
for (I3=ceild(-5*I2+3*N1,2);I3<=floord(3*N1-1,3);I3++) {
16024
J3 = -I1-2*(I2)+2*I3 ;
16025
S2++;
16026
J3 = I1-(I2)-(I3) ;
16027
S1++;
16028
}
16029
J1 = -2*I1+3*N1 ;
16030
if ((2*I1+J1)%3 == 0) {
16031
J2 = (2*I1+J1)/3 ;
16032
J3 = 3*I1-4*J2 ;
16033
S1++;
16034
S2++;
16035
}
16036
}
16037
for (I2=ceild(3*N1+29,15);I2<=floord(9*N1+7,30);I2++) {
16038
for (I3=I1-2*I2;I3<=floord(I1+2*I2-1,2);I3++) {
16039
J3 = I1-(I2)-(I3) ;
16040
S1++;
16041
}
16042
for (I3=ceild(I1+2*I2,2);I3<=N1;I3++) {
16043
J3 = -I1-2*(I2)+2*I3 ;
16044
S2++;
16045
J3 = I1-(I2)-(I3) ;
16046
S1++;
16047
}
16048
}
16049
for (I2=ceild(9*N1+22,30);I2<=N1;I2++) {
16050
for (I3=max(max(ceild(I1-I2,2),I1-2*I2),1);I3<=min(I1-I2,N1);I3++) {
16051
J3 = I1-(I2)-(I3) ;
16052
S1++;
16053
}
16054
}
16055
}
16056
}
16057
if ((N1 >= 16) && (N1 <= 21)) {
16058
if ((7*N1-2)%5 == 0) {
16059
I1 = (7*N1-2)/5 ;
16060
for (I2=1;I2<=floord(2*N1-7,10);I2++) {
16061
for (I3=ceild(I1+2*I2,2);I3<=min(N1,floord(2*I1+3*I2,3));I3++) {
16062
J3 = -I1-2*(I2)+2*I3 ;
16063
S2++;
16064
}
16065
}
16066
if ((N1-1)%5 == 0) {
16067
I2 = (N1-1)/5 ;
16068
for (I3=ceild(I1+2*I2,2);I3<=I1-2*I2-1;I3++) {
16069
J3 = -I1-2*(I2)+2*I3 ;
16070
S2++;
16071
}
16072
for (I3=I1-2*I2;I3<=N1;I3++) {
16073
J3 = I1-(I2)-(I3) ;
16074
S1++;
16075
J3 = -I1-2*(I2)+2*I3 ;
16076
S2++;
16077
}
16078
}
16079
if ((N1+4)%5 == 0) {
16080
I2 = (N1+4)/5 ;
16081
for (I3=ceild(-5*I2+3*N1,2);I3<=floord(3*I2+3*N1-2,4);I3++) {
16082
J3 = I1-(I2)-(I3) ;
16083
S1++;
16084
}
16085
for (I3=ceild(3*I2+3*N1,4);I3<=floord(3*N1-1,3);I3++) {
16086
J3 = -I1-2*(I2)+2*I3 ;
16087
S2++;
16088
J3 = I1-(I2)-(I3) ;
16089
S1++;
16090
}
16091
J1 = -2*I1+3*N1 ;
16092
if ((2*I1+J1)%3 == 0) {
16093
J2 = (2*I1+J1)/3 ;
16094
J3 = 3*I1-4*J2 ;
16095
S1++;
16096
S2++;
16097
}
16098
}
16099
for (I2=ceild(N1+9,5);I2<=floord(3*N1+2,10);I2++) {
16100
for (I3=I1-2*I2;I3<=floord(I1+2*I2-1,2);I3++) {
16101
J3 = I1-(I2)-(I3) ;
16102
S1++;
16103
}
16104
for (I3=ceild(I1+2*I2,2);I3<=N1;I3++) {
16105
J3 = -I1-2*(I2)+2*I3 ;
16106
S2++;
16107
J3 = I1-(I2)-(I3) ;
16108
S1++;
16109
}
16110
}
16111
for (I2=ceild(3*N1+7,10);I2<=N1;I2++) {
16112
for (I3=max(max(ceild(I1-I2,2),I1-2*I2),1);I3<=min(I1-I2,N1);I3++) {
16113
J3 = I1-(I2)-(I3) ;
16114
S1++;
16115
}
16116
}
16117
}
16118
}
16119
for (I1=ceild(18*N1+6,13);I1<=min(floord(21*N1-8,15),floord(18*N1+7,13));I1++) {
16120
for (I2=1;I2<=floord(I1-N1-1,2);I2++) {
16121
for (I3=ceild(I1+2*I2,2);I3<=min(N1,floord(2*I1+3*I2,3));I3++) {
16122
J3 = -I1-2*(I2)+2*I3 ;
16123
S2++;
16124
}
16125
}
16126
for (I2=ceild(I1-N1,2);I2<=floord(I1-1,7);I2++) {
16127
for (I3=ceild(I1+2*I2,2);I3<=I1-2*I2-1;I3++) {
16128
J3 = -I1-2*(I2)+2*I3 ;
16129
S2++;
16130
}
16131
for (I3=I1-2*I2;I3<=N1;I3++) {
16132
J3 = I1-(I2)-(I3) ;
16133
S1++;
16134
J3 = -I1-2*(I2)+2*I3 ;
16135
S2++;
16136
}
16137
}
16138
if (I1%7 == 0) {
16139
for (I3=ceild(9*I1/7,2);I3<=5*I1/7-1;I3++) {
16140
J3 = -I1-2*(I2)+2*I3 ;
16141
S2++;
16142
}
16143
if (5*I1%7 == 0) {
16144
I3 = 5*I1/7 ;
16145
J1 = -2*I1+3*I3 ;
16146
if ((2*I1+J1)%3 == 0) {
16147
J2 = (2*I1+J1)/3 ;
16148
J3 = 3*I1-4*J2 ;
16149
S1++;
16150
S2++;
16151
}
16152
}
16153
for (I3=ceild(15*I1/7+1,3);I3<=N1;I3++) {
16154
J3 = I1-(I2)-(I3) ;
16155
S1++;
16156
J3 = -I1-2*(I2)+2*I3 ;
16157
S2++;
16158
}
16159
}
16160
for (I2=ceild(I1+1,7);I2<=-2*I1+3*N1-1;I2++) {
16161
for (I3=ceild(I1+2*I2,2);I3<=I1-2*I2-1;I3++) {
16162
J3 = -I1-2*(I2)+2*I3 ;
16163
S2++;
16164
}
16165
for (I3=I1-2*I2;I3<=floord(2*I1+I2-1,3);I3++) {
16166
J3 = -I1-2*(I2)+2*I3 ;
16167
S2++;
16168
J3 = I1-(I2)-(I3) ;
16169
S1++;
16170
}
16171
if ((2*I1+I2)%3 == 0) {
16172
I3 = (2*I1+I2)/3 ;
16173
J1 = -2*I1+3*I3 ;
16174
if ((2*I1+J1)%3 == 0) {
16175
J2 = (2*I1+J1)/3 ;
16176
J3 = 3*I1-4*J2 ;
16177
S1++;
16178
S2++;
16179
}
16180
}
16181
for (I3=ceild(2*I1+I2+1,3);I3<=N1;I3++) {
16182
J3 = I1-(I2)-(I3) ;
16183
S1++;
16184
J3 = -I1-2*(I2)+2*I3 ;
16185
S2++;
16186
}
16187
}
16188
I2 = -2*I1+3*N1 ;
16189
for (I3=ceild(3*I2+3*N1,4);I3<=floord(-5*I2+3*N1-2,2);I3++) {
16190
J3 = -I1-2*(I2)+2*I3 ;
16191
S2++;
16192
}
16193
for (I3=ceild(-5*I2+3*N1,2);I3<=floord(3*N1-1,3);I3++) {
16194
J3 = -I1-2*(I2)+2*I3 ;
16195
S2++;
16196
J3 = I1-(I2)-(I3) ;
16197
S1++;
16198
}
16199
J1 = -2*I1+3*N1 ;
16200
if ((2*I1+J1)%3 == 0) {
16201
J2 = (2*I1+J1)/3 ;
16202
J3 = 3*I1-4*J2 ;
16203
S1++;
16204
S2++;
16205
}
16206
for (I2=-2*I1+3*N1+1;I2<=floord(I1,6);I2++) {
16207
for (I3=I1-2*I2;I3<=N1;I3++) {
16208
J3 = -I1-2*(I2)+2*I3 ;
16209
S2++;
16210
J3 = I1-(I2)-(I3) ;
16211
S1++;
16212
}
16213
}
16214
for (I2=ceild(I1+1,6);I2<=floord(-I1+2*N1,2);I2++) {
16215
for (I3=I1-2*I2;I3<=floord(I1+2*I2-1,2);I3++) {
16216
J3 = I1-(I2)-(I3) ;
16217
S1++;
16218
}
16219
for (I3=ceild(I1+2*I2,2);I3<=N1;I3++) {
16220
J3 = -I1-2*(I2)+2*I3 ;
16221
S2++;
16222
J3 = I1-(I2)-(I3) ;
16223
S1++;
16224
}
16225
}
16226
for (I2=ceild(-I1+2*N1+1,2);I2<=N1;I2++) {
16227
for (I3=max(max(ceild(I1-I2,2),I1-2*I2),1);I3<=min(I1-I2,N1);I3++) {
16228
J3 = I1-(I2)-(I3) ;
16229
S1++;
16230
}
16231
}
16232
}
16233
if ((N1 <= 55) && (N1 >= 41)) {
16234
if ((21*N1-7)%15 == 0) {
16235
I1 = (21*N1-7)/15 ;
16236
for (I2=1;I2<=floord(3*N1-11,15);I2++) {
16237
for (I3=ceild(I1+2*I2,2);I3<=min(N1,floord(2*I1+3*I2,3));I3++) {
16238
J3 = -I1-2*(I2)+2*I3 ;
16239
S2++;
16240
}
16241
}
16242
for (I2=ceild(6*N1-7,30);I2<=floord(21*N1-22,105);I2++) {
16243
for (I3=ceild(I1+2*I2,2);I3<=I1-2*I2-1;I3++) {
16244
J3 = -I1-2*(I2)+2*I3 ;
16245
S2++;
16246
}
16247
for (I3=I1-2*I2;I3<=N1;I3++) {
16248
J3 = I1-(I2)-(I3) ;
16249
S1++;
16250
J3 = -I1-2*(I2)+2*I3 ;
16251
S2++;
16252
}
16253
}
16254
if ((3*N1-1)%15 == 0) {
16255
I2 = (3*N1-1)/15 ;
16256
for (I3=ceild(9*I2,2);I3<=5*I2-1;I3++) {
16257
J3 = -I1-2*(I2)+2*I3 ;
16258
S2++;
16259
}
16260
if (5*I1%7 == 0) {
16261
I3 = 5*I1/7 ;
16262
J1 = -2*I1+3*I3 ;
16263
if ((2*I1+J1)%3 == 0) {
16264
J2 = (2*I1+J1)/3 ;
16265
J3 = 3*I1-4*J2 ;
16266
S1++;
16267
S2++;
16268
}
16269
}
16270
for (I3=ceild(15*I2+1,3);I3<=N1;I3++) {
16271
J3 = I1-(I2)-(I3) ;
16272
S1++;
16273
J3 = -I1-2*(I2)+2*I3 ;
16274
S2++;
16275
}
16276
}
16277
if ((3*N1+14)%15 == 0) {
16278
I2 = (3*N1+14)/15 ;
16279
for (I3=ceild(3*I2+3*N1,4);I3<=floord(-5*I2+3*N1-2,2);I3++) {
16280
J3 = -I1-2*(I2)+2*I3 ;
16281
S2++;
16282
}
16283
for (I3=ceild(-5*I2+3*N1,2);I3<=floord(3*N1-1,3);I3++) {
16284
J3 = -I1-2*(I2)+2*I3 ;
16285
S2++;
16286
J3 = I1-(I2)-(I3) ;
16287
S1++;
16288
}
16289
J1 = -2*I1+3*N1 ;
16290
if ((2*I1+J1)%3 == 0) {
16291
J2 = (2*I1+J1)/3 ;
16292
J3 = 3*I1-4*J2 ;
16293
S1++;
16294
S2++;
16295
}
16296
}
16297
for (I2=ceild(3*N1+29,15);I2<=floord(9*N1+7,30);I2++) {
16298
for (I3=I1-2*I2;I3<=floord(I1+2*I2-1,2);I3++) {
16299
J3 = I1-(I2)-(I3) ;
16300
S1++;
16301
}
16302
for (I3=ceild(I1+2*I2,2);I3<=N1;I3++) {
16303
J3 = -I1-2*(I2)+2*I3 ;
16304
S2++;
16305
J3 = I1-(I2)-(I3) ;
16306
S1++;
16307
}
16308
}
16309
for (I2=ceild(9*N1+22,30);I2<=N1;I2++) {
16310
for (I3=max(max(ceild(I1-I2,2),I1-2*I2),1);I3<=min(I1-I2,N1);I3++) {
16311
J3 = I1-(I2)-(I3) ;
16312
S1++;
16313
}
16314
}
16315
}
16316
}
16317
if ((N1 <= 31) && (N1 >= 26)) {
16318
if ((7*N1-2)%5 == 0) {
16319
I1 = (7*N1-2)/5 ;
16320
for (I2=1;I2<=floord(2*N1-7,10);I2++) {
16321
for (I3=ceild(I1+2*I2,2);I3<=min(N1,floord(2*I1+3*I2,3));I3++) {
16322
J3 = -I1-2*(I2)+2*I3 ;
16323
S2++;
16324
}
16325
}
16326
if ((N1-1)%5 == 0) {
16327
I2 = (N1-1)/5 ;
16328
for (I3=ceild(I1+2*I2,2);I3<=I1-2*I2-1;I3++) {
16329
J3 = -I1-2*(I2)+2*I3 ;
16330
S2++;
16331
}
16332
for (I3=I1-2*I2;I3<=N1;I3++) {
16333
J3 = I1-(I2)-(I3) ;
16334
S1++;
16335
J3 = -I1-2*(I2)+2*I3 ;
16336
S2++;
16337
}
16338
}
16339
if ((N1+4)%5 == 0) {
16340
I2 = (N1+4)/5 ;
16341
for (I3=ceild(-5*I2+3*N1,2);I3<=floord(3*N1-1,3);I3++) {
16342
J3 = -I1-2*(I2)+2*I3 ;
16343
S2++;
16344
J3 = I1-(I2)-(I3) ;
16345
S1++;
16346
}
16347
J1 = -2*I1+3*N1 ;
16348
if ((2*I1+J1)%3 == 0) {
16349
J2 = (2*I1+J1)/3 ;
16350
J3 = 3*I1-4*J2 ;
16351
S1++;
16352
S2++;
16353
}
16354
}
16355
for (I2=ceild(N1+9,5);I2<=floord(3*N1+2,10);I2++) {
16356
for (I3=I1-2*I2;I3<=floord(I1+2*I2-1,2);I3++) {
16357
J3 = I1-(I2)-(I3) ;
16358
S1++;
16359
}
16360
for (I3=ceild(I1+2*I2,2);I3<=N1;I3++) {
16361
J3 = -I1-2*(I2)+2*I3 ;
16362
S2++;
16363
J3 = I1-(I2)-(I3) ;
16364
S1++;
16365
}
16366
}
16367
for (I2=ceild(3*N1+7,10);I2<=N1;I2++) {
16368
for (I3=max(max(ceild(I1-I2,2),I1-2*I2),1);I3<=min(I1-I2,N1);I3++) {
16369
J3 = I1-(I2)-(I3) ;
16370
S1++;
16371
}
16372
}
16373
}
16374
}
16375
if ((N1 <= 18) && (N1 >= 13)) {
16376
if ((7*N1-1)%5 == 0) {
16377
I1 = (7*N1-1)/5 ;
16378
for (I2=1;I2<=floord(N1-3,5);I2++) {
16379
for (I3=ceild(I1+2*I2,2);I3<=min(N1,floord(2*I1+3*I2,3));I3++) {
16380
J3 = -I1-2*(I2)+2*I3 ;
16381
S2++;
16382
}
16383
}
16384
if ((N1+2)%5 == 0) {
16385
I2 = (N1+2)/5 ;
16386
for (I3=ceild(-5*I2+3*N1,2);I3<=floord(3*N1-1,3);I3++) {
16387
J3 = -I1-2*(I2)+2*I3 ;
16388
S2++;
16389
J3 = I1-(I2)-(I3) ;
16390
S1++;
16391
}
16392
J1 = -2*I1+3*N1 ;
16393
if ((2*I1+J1)%3 == 0) {
16394
J2 = (2*I1+J1)/3 ;
16395
J3 = 3*I1-4*J2 ;
16396
S1++;
16397
S2++;
16398
}
16399
}
16400
for (I2=ceild(N1+7,5);I2<=floord(3*N1+1,10);I2++) {
16401
for (I3=I1-2*I2;I3<=floord(I1+2*I2-1,2);I3++) {
16402
J3 = I1-(I2)-(I3) ;
16403
S1++;
16404
}
16405
for (I3=ceild(I1+2*I2,2);I3<=N1;I3++) {
16406
J3 = -I1-2*(I2)+2*I3 ;
16407
S2++;
16408
J3 = I1-(I2)-(I3) ;
16409
S1++;
16410
}
16411
}
16412
for (I2=ceild(3*N1+6,10);I2<=N1;I2++) {
16413
for (I3=max(max(ceild(I1-I2,2),I1-2*I2),1);I3<=min(I1-I2,N1);I3++) {
16414
J3 = I1-(I2)-(I3) ;
16415
S1++;
16416
}
16417
}
16418
}
16419
}
16420
for (I1=ceild(18*N1+8,13);I1<=floord(21*N1-8,15);I1++) {
16421
for (I2=1;I2<=floord(I1-N1-1,2);I2++) {
16422
for (I3=ceild(I1+2*I2,2);I3<=min(N1,floord(2*I1+3*I2,3));I3++) {
16423
J3 = -I1-2*(I2)+2*I3 ;
16424
S2++;
16425
}
16426
}
16427
for (I2=ceild(I1-N1,2);I2<=floord(I1-1,7);I2++) {
16428
for (I3=ceild(I1+2*I2,2);I3<=I1-2*I2-1;I3++) {
16429
J3 = -I1-2*(I2)+2*I3 ;
16430
S2++;
16431
}
16432
for (I3=I1-2*I2;I3<=N1;I3++) {
16433
J3 = I1-(I2)-(I3) ;
16434
S1++;
16435
J3 = -I1-2*(I2)+2*I3 ;
16436
S2++;
16437
}
16438
}
16439
if (I1%7 == 0) {
16440
for (I3=ceild(9*I1/7,2);I3<=5*I1/7-1;I3++) {
16441
J3 = -I1-2*(I2)+2*I3 ;
16442
S2++;
16443
}
16444
if (5*I1%7 == 0) {
16445
I3 = 5*I1/7 ;
16446
J1 = -2*I1+3*I3 ;
16447
if ((2*I1+J1)%3 == 0) {
16448
J2 = (2*I1+J1)/3 ;
16449
J3 = 3*I1-4*J2 ;
16450
S1++;
16451
S2++;
16452
}
16453
}
16454
for (I3=ceild(15*I1/7+1,3);I3<=N1;I3++) {
16455
J3 = I1-(I2)-(I3) ;
16456
S1++;
16457
J3 = -I1-2*(I2)+2*I3 ;
16458
S2++;
16459
}
16460
}
16461
for (I2=ceild(I1+1,7);I2<=-2*I1+3*N1-1;I2++) {
16462
for (I3=ceild(I1+2*I2,2);I3<=I1-2*I2-1;I3++) {
16463
J3 = -I1-2*(I2)+2*I3 ;
16464
S2++;
16465
}
16466
for (I3=I1-2*I2;I3<=floord(2*I1+I2-1,3);I3++) {
16467
J3 = -I1-2*(I2)+2*I3 ;
16468
S2++;
16469
J3 = I1-(I2)-(I3) ;
16470
S1++;
16471
}
16472
if ((2*I1+I2)%3 == 0) {
16473
I3 = (2*I1+I2)/3 ;
16474
J1 = -2*I1+3*I3 ;
16475
if ((2*I1+J1)%3 == 0) {
16476
J2 = (2*I1+J1)/3 ;
16477
J3 = 3*I1-4*J2 ;
16478
S1++;
16479
S2++;
16480
}
16481
}
16482
for (I3=ceild(2*I1+I2+1,3);I3<=N1;I3++) {
16483
J3 = I1-(I2)-(I3) ;
16484
S1++;
16485
J3 = -I1-2*(I2)+2*I3 ;
16486
S2++;
16487
}
16488
}
16489
I2 = -2*I1+3*N1 ;
16490
for (I3=ceild(3*I2+3*N1,4);I3<=floord(-5*I2+3*N1-2,2);I3++) {
16491
J3 = -I1-2*(I2)+2*I3 ;
16492
S2++;
16493
}
16494
for (I3=ceild(-5*I2+3*N1,2);I3<=floord(3*N1-1,3);I3++) {
16495
J3 = -I1-2*(I2)+2*I3 ;
16496
S2++;
16497
J3 = I1-(I2)-(I3) ;
16498
S1++;
16499
}
16500
J1 = -2*I1+3*N1 ;
16501
if ((2*I1+J1)%3 == 0) {
16502
J2 = (2*I1+J1)/3 ;
16503
J3 = 3*I1-4*J2 ;
16504
S1++;
16505
S2++;
16506
}
16507
for (I2=-2*I1+3*N1+1;I2<=floord(I1-2,6);I2++) {
16508
for (I3=ceild(I1+2*I2,2);I3<=I1-2*I2-1;I3++) {
16509
J3 = -I1-2*(I2)+2*I3 ;
16510
S2++;
16511
}
16512
for (I3=I1-2*I2;I3<=N1;I3++) {
16513
J3 = -I1-2*(I2)+2*I3 ;
16514
S2++;
16515
J3 = I1-(I2)-(I3) ;
16516
S1++;
16517
}
16518
}
16519
for (I2=ceild(I1-1,6);I2<=floord(I1,6);I2++) {
16520
for (I3=I1-2*I2;I3<=N1;I3++) {
16521
J3 = -I1-2*(I2)+2*I3 ;
16522
S2++;
16523
J3 = I1-(I2)-(I3) ;
16524
S1++;
16525
}
16526
}
16527
for (I2=ceild(I1+1,6);I2<=floord(-I1+2*N1,2);I2++) {
16528
for (I3=I1-2*I2;I3<=floord(I1+2*I2-1,2);I3++) {
16529
J3 = I1-(I2)-(I3) ;
16530
S1++;
16531
}
16532
for (I3=ceild(I1+2*I2,2);I3<=N1;I3++) {
16533
J3 = -I1-2*(I2)+2*I3 ;
16534
S2++;
16535
J3 = I1-(I2)-(I3) ;
16536
S1++;
16537
}
16538
}
16539
for (I2=ceild(-I1+2*N1+1,2);I2<=N1;I2++) {
16540
for (I3=max(max(ceild(I1-I2,2),I1-2*I2),1);I3<=min(I1-I2,N1);I3++) {
16541
J3 = I1-(I2)-(I3) ;
16542
S1++;
16543
}
16544
}
16545
}
16546
if ((N1 >= 61) && (N1 <= 65)) {
16547
if ((21*N1-7)%15 == 0) {
16548
I1 = (21*N1-7)/15 ;
16549
for (I2=1;I2<=floord(3*N1-11,15);I2++) {
16550
for (I3=ceild(I1+2*I2,2);I3<=min(N1,floord(2*I1+3*I2,3));I3++) {
16551
J3 = -I1-2*(I2)+2*I3 ;
16552
S2++;
16553
}
16554
}
16555
for (I2=ceild(6*N1-7,30);I2<=floord(21*N1-22,105);I2++) {
16556
for (I3=ceild(I1+2*I2,2);I3<=I1-2*I2-1;I3++) {
16557
J3 = -I1-2*(I2)+2*I3 ;
16558
S2++;
16559
}
16560
for (I3=I1-2*I2;I3<=N1;I3++) {
16561
J3 = I1-(I2)-(I3) ;
16562
S1++;
16563
J3 = -I1-2*(I2)+2*I3 ;
16564
S2++;
16565
}
16566
}
16567
if ((3*N1-1)%15 == 0) {
16568
I2 = (3*N1-1)/15 ;
16569
for (I3=ceild(9*I2,2);I3<=5*I2-1;I3++) {
16570
J3 = -I1-2*(I2)+2*I3 ;
16571
S2++;
16572
}
16573
if (5*I1%7 == 0) {
16574
I3 = 5*I1/7 ;
16575
J1 = -2*I1+3*I3 ;
16576
if ((2*I1+J1)%3 == 0) {
16577
J2 = (2*I1+J1)/3 ;
16578
J3 = 3*I1-4*J2 ;
16579
S1++;
16580
S2++;
16581
}
16582
}
16583
for (I3=ceild(15*I2+1,3);I3<=N1;I3++) {
16584
J3 = I1-(I2)-(I3) ;
16585
S1++;
16586
J3 = -I1-2*(I2)+2*I3 ;
16587
S2++;
16588
}
16589
}
16590
if ((3*N1+14)%15 == 0) {
16591
I2 = (3*N1+14)/15 ;
16592
for (I3=ceild(3*I2+3*N1,4);I3<=floord(-5*I2+3*N1-2,2);I3++) {
16593
J3 = -I1-2*(I2)+2*I3 ;
16594
S2++;
16595
}
16596
for (I3=ceild(-5*I2+3*N1,2);I3<=floord(3*N1-1,3);I3++) {
16597
J3 = -I1-2*(I2)+2*I3 ;
16598
S2++;
16599
J3 = I1-(I2)-(I3) ;
16600
S1++;
16601
}
16602
J1 = -2*I1+3*N1 ;
16603
if ((2*I1+J1)%3 == 0) {
16604
J2 = (2*I1+J1)/3 ;
16605
J3 = 3*I1-4*J2 ;
16606
S1++;
16607
S2++;
16608
}
16609
}
16610
for (I2=ceild(3*N1+29,15);I2<=floord(21*N1-7,90);I2++) {
16611
for (I3=I1-2*I2;I3<=N1;I3++) {
16612
J3 = -I1-2*(I2)+2*I3 ;
16613
S2++;
16614
J3 = I1-(I2)-(I3) ;
16615
S1++;
16616
}
16617
}
16618
for (I2=ceild(21*N1+8,90);I2<=floord(9*N1+7,30);I2++) {
16619
for (I3=I1-2*I2;I3<=floord(I1+2*I2-1,2);I3++) {
16620
J3 = I1-(I2)-(I3) ;
16621
S1++;
16622
}
16623
for (I3=ceild(I1+2*I2,2);I3<=N1;I3++) {
16624
J3 = -I1-2*(I2)+2*I3 ;
16625
S2++;
16626
J3 = I1-(I2)-(I3) ;
16627
S1++;
16628
}
16629
}
16630
for (I2=ceild(9*N1+22,30);I2<=N1;I2++) {
16631
for (I3=max(max(ceild(I1-I2,2),I1-2*I2),1);I3<=min(I1-I2,N1);I3++) {
16632
J3 = I1-(I2)-(I3) ;
16633
S1++;
16634
}
16635
}
16636
}
16637
}
16638
if ((N1 <= 51) && (N1 >= 36)) {
16639
if ((7*N1-2)%5 == 0) {
16640
I1 = (7*N1-2)/5 ;
16641
for (I2=1;I2<=floord(2*N1-7,10);I2++) {
16642
for (I3=ceild(I1+2*I2,2);I3<=min(N1,floord(2*I1+3*I2,3));I3++) {
16643
J3 = -I1-2*(I2)+2*I3 ;
16644
S2++;
16645
}
16646
}
16647
if ((N1-1)%5 == 0) {
16648
I2 = (N1-1)/5 ;
16649
for (I3=ceild(I1+2*I2,2);I3<=I1-2*I2-1;I3++) {
16650
J3 = -I1-2*(I2)+2*I3 ;
16651
S2++;
16652
}
16653
for (I3=I1-2*I2;I3<=N1;I3++) {
16654
J3 = I1-(I2)-(I3) ;
16655
S1++;
16656
J3 = -I1-2*(I2)+2*I3 ;
16657
S2++;
16658
}
16659
}
16660
if ((N1+4)%5 == 0) {
16661
I2 = (N1+4)/5 ;
16662
for (I3=ceild(3*I2+3*N1,4);I3<=floord(-5*I2+3*N1-2,2);I3++) {
16663
J3 = -I1-2*(I2)+2*I3 ;
16664
S2++;
16665
}
16666
for (I3=ceild(-5*I2+3*N1,2);I3<=floord(3*N1-1,3);I3++) {
16667
J3 = -I1-2*(I2)+2*I3 ;
16668
S2++;
16669
J3 = I1-(I2)-(I3) ;
16670
S1++;
16671
}
16672
J1 = -2*I1+3*N1 ;
16673
if ((2*I1+J1)%3 == 0) {
16674
J2 = (2*I1+J1)/3 ;
16675
J3 = 3*I1-4*J2 ;
16676
S1++;
16677
S2++;
16678
}
16679
}
16680
for (I2=ceild(N1+9,5);I2<=floord(3*N1+2,10);I2++) {
16681
for (I3=I1-2*I2;I3<=floord(I1+2*I2-1,2);I3++) {
16682
J3 = I1-(I2)-(I3) ;
16683
S1++;
16684
}
16685
for (I3=ceild(I1+2*I2,2);I3<=N1;I3++) {
16686
J3 = -I1-2*(I2)+2*I3 ;
16687
S2++;
16688
J3 = I1-(I2)-(I3) ;
16689
S1++;
16690
}
16691
}
16692
for (I2=ceild(3*N1+7,10);I2<=N1;I2++) {
16693
for (I3=max(max(ceild(I1-I2,2),I1-2*I2),1);I3<=min(I1-I2,N1);I3++) {
16694
J3 = I1-(I2)-(I3) ;
16695
S1++;
16696
}
16697
}
16698
}
16699
}
16700
if (N1 >= 71) {
16701
if ((21*N1-7)%15 == 0) {
16702
I1 = (21*N1-7)/15 ;
16703
for (I2=1;I2<=floord(3*N1-11,15);I2++) {
16704
for (I3=ceild(I1+2*I2,2);I3<=min(N1,floord(2*I1+3*I2,3));I3++) {
16705
J3 = -I1-2*(I2)+2*I3 ;
16706
S2++;
16707
}
16708
}
16709
for (I2=ceild(6*N1-7,30);I2<=floord(21*N1-22,105);I2++) {
16710
for (I3=ceild(I1+2*I2,2);I3<=I1-2*I2-1;I3++) {
16711
J3 = -I1-2*(I2)+2*I3 ;
16712
S2++;
16713
}
16714
for (I3=I1-2*I2;I3<=N1;I3++) {
16715
J3 = I1-(I2)-(I3) ;
16716
S1++;
16717
J3 = -I1-2*(I2)+2*I3 ;
16718
S2++;
16719
}
16720
}
16721
if ((3*N1-1)%15 == 0) {
16722
I2 = (3*N1-1)/15 ;
16723
for (I3=ceild(9*I2,2);I3<=5*I2-1;I3++) {
16724
J3 = -I1-2*(I2)+2*I3 ;
16725
S2++;
16726
}
16727
if (5*I1%7 == 0) {
16728
I3 = 5*I1/7 ;
16729
J1 = -2*I1+3*I3 ;
16730
if ((2*I1+J1)%3 == 0) {
16731
J2 = (2*I1+J1)/3 ;
16732
J3 = 3*I1-4*J2 ;
16733
S1++;
16734
S2++;
16735
}
16736
}
16737
for (I3=ceild(15*I2+1,3);I3<=N1;I3++) {
16738
J3 = I1-(I2)-(I3) ;
16739
S1++;
16740
J3 = -I1-2*(I2)+2*I3 ;
16741
S2++;
16742
}
16743
}
16744
if ((3*N1+14)%15 == 0) {
16745
I2 = (3*N1+14)/15 ;
16746
for (I3=ceild(3*I2+3*N1,4);I3<=floord(-5*I2+3*N1-2,2);I3++) {
16747
J3 = -I1-2*(I2)+2*I3 ;
16748
S2++;
16749
}
16750
for (I3=ceild(-5*I2+3*N1,2);I3<=floord(3*N1-1,3);I3++) {
16751
J3 = -I1-2*(I2)+2*I3 ;
16752
S2++;
16753
J3 = I1-(I2)-(I3) ;
16754
S1++;
16755
}
16756
J1 = -2*I1+3*N1 ;
16757
if ((2*I1+J1)%3 == 0) {
16758
J2 = (2*I1+J1)/3 ;
16759
J3 = 3*I1-4*J2 ;
16760
S1++;
16761
S2++;
16762
}
16763
}
16764
for (I2=ceild(3*N1+29,15);I2<=floord(21*N1-37,90);I2++) {
16765
for (I3=ceild(I1+2*I2,2);I3<=I1-2*I2-1;I3++) {
16766
J3 = -I1-2*(I2)+2*I3 ;
16767
S2++;
16768
}
16769
for (I3=I1-2*I2;I3<=N1;I3++) {
16770
J3 = -I1-2*(I2)+2*I3 ;
16771
S2++;
16772
J3 = I1-(I2)-(I3) ;
16773
S1++;
16774
}
16775
}
16776
for (I2=ceild(21*N1-22,90);I2<=floord(21*N1-7,90);I2++) {
16777
for (I3=I1-2*I2;I3<=N1;I3++) {
16778
J3 = -I1-2*(I2)+2*I3 ;
16779
S2++;
16780
J3 = I1-(I2)-(I3) ;
16781
S1++;
16782
}
16783
}
16784
for (I2=ceild(21*N1+8,90);I2<=floord(9*N1+7,30);I2++) {
16785
for (I3=I1-2*I2;I3<=floord(I1+2*I2-1,2);I3++) {
16786
J3 = I1-(I2)-(I3) ;
16787
S1++;
16788
}
16789
for (I3=ceild(I1+2*I2,2);I3<=N1;I3++) {
16790
J3 = -I1-2*(I2)+2*I3 ;
16791
S2++;
16792
J3 = I1-(I2)-(I3) ;
16793
S1++;
16794
}
16795
}
16796
for (I2=ceild(9*N1+22,30);I2<=N1;I2++) {
16797
for (I3=max(max(ceild(I1-I2,2),I1-2*I2),1);I3<=min(I1-I2,N1);I3++) {
16798
J3 = I1-(I2)-(I3) ;
16799
S1++;
16800
}
16801
}
16802
}
16803
}
16804
if ((N1 >= 56) && (N1 <= 61)) {
16805
if ((7*N1-2)%5 == 0) {
16806
I1 = (7*N1-2)/5 ;
16807
for (I2=1;I2<=floord(2*N1-7,10);I2++) {
16808
for (I3=ceild(I1+2*I2,2);I3<=min(N1,floord(2*I1+3*I2,3));I3++) {
16809
J3 = -I1-2*(I2)+2*I3 ;
16810
S2++;
16811
}
16812
}
16813
if ((N1-1)%5 == 0) {
16814
I2 = (N1-1)/5 ;
16815
for (I3=ceild(I1+2*I2,2);I3<=I1-2*I2-1;I3++) {
16816
J3 = -I1-2*(I2)+2*I3 ;
16817
S2++;
16818
}
16819
for (I3=I1-2*I2;I3<=N1;I3++) {
16820
J3 = I1-(I2)-(I3) ;
16821
S1++;
16822
J3 = -I1-2*(I2)+2*I3 ;
16823
S2++;
16824
}
16825
}
16826
if ((N1+4)%5 == 0) {
16827
I2 = (N1+4)/5 ;
16828
for (I3=ceild(3*I2+3*N1,4);I3<=floord(-5*I2+3*N1-2,2);I3++) {
16829
J3 = -I1-2*(I2)+2*I3 ;
16830
S2++;
16831
}
16832
for (I3=ceild(-5*I2+3*N1,2);I3<=floord(3*N1-1,3);I3++) {
16833
J3 = -I1-2*(I2)+2*I3 ;
16834
S2++;
16835
J3 = I1-(I2)-(I3) ;
16836
S1++;
16837
}
16838
J1 = -2*I1+3*N1 ;
16839
if ((2*I1+J1)%3 == 0) {
16840
J2 = (2*I1+J1)/3 ;
16841
J3 = 3*I1-4*J2 ;
16842
S1++;
16843
S2++;
16844
}
16845
}
16846
for (I2=ceild(N1+9,5);I2<=floord(7*N1-2,30);I2++) {
16847
for (I3=I1-2*I2;I3<=N1;I3++) {
16848
J3 = -I1-2*(I2)+2*I3 ;
16849
S2++;
16850
J3 = I1-(I2)-(I3) ;
16851
S1++;
16852
}
16853
}
16854
for (I2=ceild(7*N1+3,30);I2<=floord(3*N1+2,10);I2++) {
16855
for (I3=I1-2*I2;I3<=floord(I1+2*I2-1,2);I3++) {
16856
J3 = I1-(I2)-(I3) ;
16857
S1++;
16858
}
16859
for (I3=ceild(I1+2*I2,2);I3<=N1;I3++) {
16860
J3 = -I1-2*(I2)+2*I3 ;
16861
S2++;
16862
J3 = I1-(I2)-(I3) ;
16863
S1++;
16864
}
16865
}
16866
for (I2=ceild(3*N1+7,10);I2<=N1;I2++) {
16867
for (I3=max(max(ceild(I1-I2,2),I1-2*I2),1);I3<=min(I1-I2,N1);I3++) {
16868
J3 = I1-(I2)-(I3) ;
16869
S1++;
16870
}
16871
}
16872
}
16873
}
16874
if ((N1 >= 43) && (N1 <= 48)) {
16875
if ((7*N1-1)%5 == 0) {
16876
I1 = (7*N1-1)/5 ;
16877
for (I2=1;I2<=floord(N1-3,5);I2++) {
16878
for (I3=ceild(I1+2*I2,2);I3<=min(N1,floord(2*I1+3*I2,3));I3++) {
16879
J3 = -I1-2*(I2)+2*I3 ;
16880
S2++;
16881
}
16882
}
16883
if ((N1+2)%5 == 0) {
16884
I2 = (N1+2)/5 ;
16885
for (I3=ceild(3*I2+3*N1,4);I3<=floord(-5*I2+3*N1-2,2);I3++) {
16886
J3 = -I1-2*(I2)+2*I3 ;
16887
S2++;
16888
}
16889
for (I3=ceild(-5*I2+3*N1,2);I3<=floord(3*N1-1,3);I3++) {
16890
J3 = -I1-2*(I2)+2*I3 ;
16891
S2++;
16892
J3 = I1-(I2)-(I3) ;
16893
S1++;
16894
}
16895
J1 = -2*I1+3*N1 ;
16896
if ((2*I1+J1)%3 == 0) {
16897
J2 = (2*I1+J1)/3 ;
16898
J3 = 3*I1-4*J2 ;
16899
S1++;
16900
S2++;
16901
}
16902
}
16903
for (I2=ceild(N1+7,5);I2<=floord(7*N1-1,30);I2++) {
16904
for (I3=I1-2*I2;I3<=N1;I3++) {
16905
J3 = -I1-2*(I2)+2*I3 ;
16906
S2++;
16907
J3 = I1-(I2)-(I3) ;
16908
S1++;
16909
}
16910
}
16911
for (I2=ceild(7*N1+4,30);I2<=floord(3*N1+1,10);I2++) {
16912
for (I3=I1-2*I2;I3<=floord(I1+2*I2-1,2);I3++) {
16913
J3 = I1-(I2)-(I3) ;
16914
S1++;
16915
}
16916
for (I3=ceild(I1+2*I2,2);I3<=N1;I3++) {
16917
J3 = -I1-2*(I2)+2*I3 ;
16918
S2++;
16919
J3 = I1-(I2)-(I3) ;
16920
S1++;
16921
}
16922
}
16923
for (I2=ceild(3*N1+6,10);I2<=N1;I2++) {
16924
for (I3=max(max(ceild(I1-I2,2),I1-2*I2),1);I3<=min(I1-I2,N1);I3++) {
16925
J3 = I1-(I2)-(I3) ;
16926
S1++;
16927
}
16928
}
16929
}
16930
}
16931
if ((N1 <= 38) && (N1 >= 23)) {
16932
if ((7*N1-1)%5 == 0) {
16933
I1 = (7*N1-1)/5 ;
16934
for (I2=1;I2<=floord(N1-3,5);I2++) {
16935
for (I3=ceild(I1+2*I2,2);I3<=min(N1,floord(2*I1+3*I2,3));I3++) {
16936
J3 = -I1-2*(I2)+2*I3 ;
16937
S2++;
16938
}
16939
}
16940
if ((N1+2)%5 == 0) {
16941
I2 = (N1+2)/5 ;
16942
for (I3=ceild(3*I2+3*N1,4);I3<=floord(-5*I2+3*N1-2,2);I3++) {
16943
J3 = -I1-2*(I2)+2*I3 ;
16944
S2++;
16945
}
16946
for (I3=ceild(-5*I2+3*N1,2);I3<=floord(3*N1-1,3);I3++) {
16947
J3 = -I1-2*(I2)+2*I3 ;
16948
S2++;
16949
J3 = I1-(I2)-(I3) ;
16950
S1++;
16951
}
16952
J1 = -2*I1+3*N1 ;
16953
if ((2*I1+J1)%3 == 0) {
16954
J2 = (2*I1+J1)/3 ;
16955
J3 = 3*I1-4*J2 ;
16956
S1++;
16957
S2++;
16958
}
16959
}
16960
for (I2=ceild(N1+7,5);I2<=floord(3*N1+1,10);I2++) {
16961
for (I3=I1-2*I2;I3<=floord(I1+2*I2-1,2);I3++) {
16962
J3 = I1-(I2)-(I3) ;
16963
S1++;
16964
}
16965
for (I3=ceild(I1+2*I2,2);I3<=N1;I3++) {
16966
J3 = -I1-2*(I2)+2*I3 ;
16967
S2++;
16968
J3 = I1-(I2)-(I3) ;
16969
S1++;
16970
}
16971
}
16972
for (I2=ceild(3*N1+6,10);I2<=N1;I2++) {
16973
for (I3=max(max(ceild(I1-I2,2),I1-2*I2),1);I3<=min(I1-I2,N1);I3++) {
16974
J3 = I1-(I2)-(I3) ;
16975
S1++;
16976
}
16977
}
16978
}
16979
}
16980
if ((N1 >= 30) && (N1 <= 35)) {
16981
if (7*N1%5 == 0) {
16982
I1 = 7*N1/5 ;
16983
for (I2=1;I2<=floord(2*N1-5,10);I2++) {
16984
for (I3=ceild(I1+2*I2,2);I3<=min(N1,floord(2*I1+3*I2,3));I3++) {
16985
J3 = -I1-2*(I2)+2*I3 ;
16986
S2++;
16987
}
16988
}
16989
if (N1%5 == 0) {
16990
for (I3=ceild(9*N1,10);I3<=N1-1;I3++) {
16991
J3 = -I1-2*(I2)+2*I3 ;
16992
S2++;
16993
}
16994
J1 = -2*I1+3*N1 ;
16995
if ((2*I1+J1)%3 == 0) {
16996
J2 = (2*I1+J1)/3 ;
16997
J3 = 3*I1-4*J2 ;
16998
S1++;
16999
S2++;
17000
}
17001
}
17002
for (I2=ceild(N1+5,5);I2<=floord(7*N1,30);I2++) {
17003
for (I3=I1-2*I2;I3<=N1;I3++) {
17004
J3 = -I1-2*(I2)+2*I3 ;
17005
S2++;
17006
J3 = I1-(I2)-(I3) ;
17007
S1++;
17008
}
17009
}
17010
for (I2=ceild(7*N1+5,30);I2<=floord(3*N1,10);I2++) {
17011
for (I3=I1-2*I2;I3<=floord(I1+2*I2-1,2);I3++) {
17012
J3 = I1-(I2)-(I3) ;
17013
S1++;
17014
}
17015
for (I3=ceild(I1+2*I2,2);I3<=N1;I3++) {
17016
J3 = -I1-2*(I2)+2*I3 ;
17017
S2++;
17018
J3 = I1-(I2)-(I3) ;
17019
S1++;
17020
}
17021
}
17022
for (I2=ceild(3*N1+5,10);I2<=N1;I2++) {
17023
for (I3=max(max(ceild(I1-I2,2),I1-2*I2),1);I3<=min(I1-I2,N1);I3++) {
17024
J3 = I1-(I2)-(I3) ;
17025
S1++;
17026
}
17027
}
17028
}
17029
}
17030
if ((N1 <= 25) && (N1 >= 10)) {
17031
if (7*N1%5 == 0) {
17032
I1 = 7*N1/5 ;
17033
for (I2=1;I2<=floord(2*N1-5,10);I2++) {
17034
for (I3=ceild(I1+2*I2,2);I3<=min(N1,floord(2*I1+3*I2,3));I3++) {
17035
J3 = -I1-2*(I2)+2*I3 ;
17036
S2++;
17037
}
17038
}
17039
if (N1%5 == 0) {
17040
for (I3=ceild(9*N1,10);I3<=N1-1;I3++) {
17041
J3 = -I1-2*(I2)+2*I3 ;
17042
S2++;
17043
}
17044
J1 = -2*I1+3*N1 ;
17045
if ((2*I1+J1)%3 == 0) {
17046
J2 = (2*I1+J1)/3 ;
17047
J3 = 3*I1-4*J2 ;
17048
S1++;
17049
S2++;
17050
}
17051
}
17052
for (I2=ceild(N1+5,5);I2<=floord(3*N1,10);I2++) {
17053
for (I3=I1-2*I2;I3<=floord(I1+2*I2-1,2);I3++) {
17054
J3 = I1-(I2)-(I3) ;
17055
S1++;
17056
}
17057
for (I3=ceild(I1+2*I2,2);I3<=N1;I3++) {
17058
J3 = -I1-2*(I2)+2*I3 ;
17059
S2++;
17060
J3 = I1-(I2)-(I3) ;
17061
S1++;
17062
}
17063
}
17064
for (I2=ceild(3*N1+5,10);I2<=N1;I2++) {
17065
for (I3=max(max(ceild(I1-I2,2),I1-2*I2),1);I3<=min(I1-I2,N1);I3++) {
17066
J3 = I1-(I2)-(I3) ;
17067
S1++;
17068
}
17069
}
17070
}
17071
}
17072
if (N1 >= 66) {
17073
if ((7*N1-2)%5 == 0) {
17074
I1 = (7*N1-2)/5 ;
17075
for (I2=1;I2<=floord(2*N1-7,10);I2++) {
17076
for (I3=ceild(I1+2*I2,2);I3<=min(N1,floord(2*I1+3*I2,3));I3++) {
17077
J3 = -I1-2*(I2)+2*I3 ;
17078
S2++;
17079
}
17080
}
17081
if ((N1-1)%5 == 0) {
17082
I2 = (N1-1)/5 ;
17083
for (I3=ceild(I1+2*I2,2);I3<=I1-2*I2-1;I3++) {
17084
J3 = -I1-2*(I2)+2*I3 ;
17085
S2++;
17086
}
17087
for (I3=I1-2*I2;I3<=N1;I3++) {
17088
J3 = I1-(I2)-(I3) ;
17089
S1++;
17090
J3 = -I1-2*(I2)+2*I3 ;
17091
S2++;
17092
}
17093
}
17094
if ((N1+4)%5 == 0) {
17095
I2 = (N1+4)/5 ;
17096
for (I3=ceild(3*I2+3*N1,4);I3<=floord(-5*I2+3*N1-2,2);I3++) {
17097
J3 = -I1-2*(I2)+2*I3 ;
17098
S2++;
17099
}
17100
for (I3=ceild(-5*I2+3*N1,2);I3<=floord(3*N1-1,3);I3++) {
17101
J3 = -I1-2*(I2)+2*I3 ;
17102
S2++;
17103
J3 = I1-(I2)-(I3) ;
17104
S1++;
17105
}
17106
J1 = -2*I1+3*N1 ;
17107
if ((2*I1+J1)%3 == 0) {
17108
J2 = (2*I1+J1)/3 ;
17109
J3 = 3*I1-4*J2 ;
17110
S1++;
17111
S2++;
17112
}
17113
}
17114
for (I2=ceild(N1+9,5);I2<=floord(7*N1-12,30);I2++) {
17115
for (I3=ceild(I1+2*I2,2);I3<=I1-2*I2-1;I3++) {
17116
J3 = -I1-2*(I2)+2*I3 ;
17117
S2++;
17118
}
17119
for (I3=I1-2*I2;I3<=N1;I3++) {
17120
J3 = -I1-2*(I2)+2*I3 ;
17121
S2++;
17122
J3 = I1-(I2)-(I3) ;
17123
S1++;
17124
}
17125
}
17126
for (I2=ceild(7*N1-7,30);I2<=floord(7*N1-2,30);I2++) {
17127
for (I3=I1-2*I2;I3<=N1;I3++) {
17128
J3 = -I1-2*(I2)+2*I3 ;
17129
S2++;
17130
J3 = I1-(I2)-(I3) ;
17131
S1++;
17132
}
17133
}
17134
for (I2=ceild(7*N1+3,30);I2<=floord(3*N1+2,10);I2++) {
17135
for (I3=I1-2*I2;I3<=floord(I1+2*I2-1,2);I3++) {
17136
J3 = I1-(I2)-(I3) ;
17137
S1++;
17138
}
17139
for (I3=ceild(I1+2*I2,2);I3<=N1;I3++) {
17140
J3 = -I1-2*(I2)+2*I3 ;
17141
S2++;
17142
J3 = I1-(I2)-(I3) ;
17143
S1++;
17144
}
17145
}
17146
for (I2=ceild(3*N1+7,10);I2<=N1;I2++) {
17147
for (I3=max(max(ceild(I1-I2,2),I1-2*I2),1);I3<=min(I1-I2,N1);I3++) {
17148
J3 = I1-(I2)-(I3) ;
17149
S1++;
17150
}
17151
}
17152
}
17153
}
17154
if (N1 >= 53) {
17155
if ((7*N1-1)%5 == 0) {
17156
I1 = (7*N1-1)/5 ;
17157
for (I2=1;I2<=floord(N1-3,5);I2++) {
17158
for (I3=ceild(I1+2*I2,2);I3<=min(N1,floord(2*I1+3*I2,3));I3++) {
17159
J3 = -I1-2*(I2)+2*I3 ;
17160
S2++;
17161
}
17162
}
17163
if ((N1+2)%5 == 0) {
17164
I2 = (N1+2)/5 ;
17165
for (I3=ceild(3*I2+3*N1,4);I3<=floord(-5*I2+3*N1-2,2);I3++) {
17166
J3 = -I1-2*(I2)+2*I3 ;
17167
S2++;
17168
}
17169
for (I3=ceild(-5*I2+3*N1,2);I3<=floord(3*N1-1,3);I3++) {
17170
J3 = -I1-2*(I2)+2*I3 ;
17171
S2++;
17172
J3 = I1-(I2)-(I3) ;
17173
S1++;
17174
}
17175
J1 = -2*I1+3*N1 ;
17176
if ((2*I1+J1)%3 == 0) {
17177
J2 = (2*I1+J1)/3 ;
17178
J3 = 3*I1-4*J2 ;
17179
S1++;
17180
S2++;
17181
}
17182
}
17183
for (I2=ceild(N1+7,5);I2<=floord(7*N1-11,30);I2++) {
17184
for (I3=ceild(I1+2*I2,2);I3<=I1-2*I2-1;I3++) {
17185
J3 = -I1-2*(I2)+2*I3 ;
17186
S2++;
17187
}
17188
for (I3=I1-2*I2;I3<=N1;I3++) {
17189
J3 = -I1-2*(I2)+2*I3 ;
17190
S2++;
17191
J3 = I1-(I2)-(I3) ;
17192
S1++;
17193
}
17194
}
17195
for (I2=ceild(7*N1-6,30);I2<=floord(7*N1-1,30);I2++) {
17196
for (I3=I1-2*I2;I3<=N1;I3++) {
17197
J3 = -I1-2*(I2)+2*I3 ;
17198
S2++;
17199
J3 = I1-(I2)-(I3) ;
17200
S1++;
17201
}
17202
}
17203
for (I2=ceild(7*N1+4,30);I2<=floord(3*N1+1,10);I2++) {
17204
for (I3=I1-2*I2;I3<=floord(I1+2*I2-1,2);I3++) {
17205
J3 = I1-(I2)-(I3) ;
17206
S1++;
17207
}
17208
for (I3=ceild(I1+2*I2,2);I3<=N1;I3++) {
17209
J3 = -I1-2*(I2)+2*I3 ;
17210
S2++;
17211
J3 = I1-(I2)-(I3) ;
17212
S1++;
17213
}
17214
}
17215
for (I2=ceild(3*N1+6,10);I2<=N1;I2++) {
17216
for (I3=max(max(ceild(I1-I2,2),I1-2*I2),1);I3<=min(I1-I2,N1);I3++) {
17217
J3 = I1-(I2)-(I3) ;
17218
S1++;
17219
}
17220
}
17221
}
17222
}
17223
for (I1=max(ceild(7*N1+1,5),ceild(18*N1+6,13));I1<=min(floord(18*N1+7,13),floord(3*N1-2,2));I1++) {
17224
for (I2=1;I2<=floord(I1-N1-1,2);I2++) {
17225
for (I3=ceild(I1+2*I2,2);I3<=min(N1,floord(2*I1+3*I2,3));I3++) {
17226
J3 = -I1-2*(I2)+2*I3 ;
17227
S2++;
17228
}
17229
}
17230
for (I2=-2*I1+3*N1+1;I2<=floord(I1,6);I2++) {
17231
for (I3=I1-2*I2;I3<=N1;I3++) {
17232
J3 = -I1-2*(I2)+2*I3 ;
17233
S2++;
17234
J3 = I1-(I2)-(I3) ;
17235
S1++;
17236
}
17237
}
17238
for (I2=ceild(I1+1,6);I2<=floord(-I1+2*N1,2);I2++) {
17239
for (I3=I1-2*I2;I3<=floord(I1+2*I2-1,2);I3++) {
17240
J3 = I1-(I2)-(I3) ;
17241
S1++;
17242
}
17243
for (I3=ceild(I1+2*I2,2);I3<=N1;I3++) {
17244
J3 = -I1-2*(I2)+2*I3 ;
17245
S2++;
17246
J3 = I1-(I2)-(I3) ;
17247
S1++;
17248
}
17249
}
17250
for (I2=ceild(-I1+2*N1+1,2);I2<=N1;I2++) {
17251
for (I3=max(max(ceild(I1-I2,2),I1-2*I2),1);I3<=min(I1-I2,N1);I3++) {
17252
J3 = I1-(I2)-(I3) ;
17253
S1++;
17254
}
17255
}
17256
}
17257
if (N1 == 12) {
17258
for (I2=1;I2<=2;I2++) {
17259
for (I3=ceild(17+2*I2,2);I3<=min(N1,floord(2*17+3*I2,3));I3++) {
17260
J3 = -(17)-2*(I2)+2*I3 ;
17261
S2++;
17262
}
17263
}
17264
for (I3=17-2*(3);I3<=floord(17+2*3-1,2);I3++) {
17265
J3 = 17-(I2)-(I3) ;
17266
S1++;
17267
}
17268
for (I3=ceild(17+2*3,2);I3<=N1;I3++) {
17269
J3 = -(17)-2*(I2)+2*I3 ;
17270
S2++;
17271
J3 = 17-(I2)-(I3) ;
17272
S1++;
17273
}
17274
for (I2=4;I2<=12;I2++) {
17275
for (I3=max(max(ceild(17-I2,2),17-2*I2),1);I3<=min(17-I2,N1);I3++) {
17276
J3 = 17-(I2)-(I3) ;
17277
S1++;
17278
}
17279
}
17280
}
17281
if (N1 >= 40) {
17282
if (7*N1%5 == 0) {
17283
I1 = 7*N1/5 ;
17284
for (I2=1;I2<=floord(2*N1-5,10);I2++) {
17285
for (I3=ceild(I1+2*I2,2);I3<=min(N1,floord(2*I1+3*I2,3));I3++) {
17286
J3 = -I1-2*(I2)+2*I3 ;
17287
S2++;
17288
}
17289
}
17290
if (N1%5 == 0) {
17291
for (I3=ceild(9*N1,10);I3<=N1-1;I3++) {
17292
J3 = -I1-2*(I2)+2*I3 ;
17293
S2++;
17294
}
17295
J1 = -2*I1+3*N1 ;
17296
if ((2*I1+J1)%3 == 0) {
17297
J2 = (2*I1+J1)/3 ;
17298
J3 = 3*I1-4*J2 ;
17299
S1++;
17300
S2++;
17301
}
17302
}
17303
for (I2=ceild(N1+5,5);I2<=floord(7*N1-10,30);I2++) {
17304
for (I3=ceild(I1+2*I2,2);I3<=I1-2*I2-1;I3++) {
17305
J3 = -I1-2*(I2)+2*I3 ;
17306
S2++;
17307
}
17308
for (I3=I1-2*I2;I3<=N1;I3++) {
17309
J3 = -I1-2*(I2)+2*I3 ;
17310
S2++;
17311
J3 = I1-(I2)-(I3) ;
17312
S1++;
17313
}
17314
}
17315
for (I2=ceild(7*N1-5,30);I2<=floord(7*N1,30);I2++) {
17316
for (I3=I1-2*I2;I3<=N1;I3++) {
17317
J3 = -I1-2*(I2)+2*I3 ;
17318
S2++;
17319
J3 = I1-(I2)-(I3) ;
17320
S1++;
17321
}
17322
}
17323
for (I2=ceild(7*N1+5,30);I2<=floord(3*N1,10);I2++) {
17324
for (I3=I1-2*I2;I3<=floord(I1+2*I2-1,2);I3++) {
17325
J3 = I1-(I2)-(I3) ;
17326
S1++;
17327
}
17328
for (I3=ceild(I1+2*I2,2);I3<=N1;I3++) {
17329
J3 = -I1-2*(I2)+2*I3 ;
17330
S2++;
17331
J3 = I1-(I2)-(I3) ;
17332
S1++;
17333
}
17334
}
17335
for (I2=ceild(3*N1+5,10);I2<=N1;I2++) {
17336
for (I3=max(max(ceild(I1-I2,2),I1-2*I2),1);I3<=min(I1-I2,N1);I3++) {
17337
J3 = I1-(I2)-(I3) ;
17338
S1++;
17339
}
17340
}
17341
}
17342
}
17343
for (I1=max(ceild(7*N1+1,5),ceild(18*N1+8,13));I1<=floord(3*N1-2,2);I1++) {
17344
for (I2=1;I2<=floord(I1-N1-1,2);I2++) {
17345
for (I3=ceild(I1+2*I2,2);I3<=min(N1,floord(2*I1+3*I2,3));I3++) {
17346
J3 = -I1-2*(I2)+2*I3 ;
17347
S2++;
17348
}
17349
}
17350
for (I2=max(ceild(I1-N1,2),-2*I1+3*N1+1);I2<=floord(I1-2,6);I2++) {
17351
for (I3=ceild(I1+2*I2,2);I3<=I1-2*I2-1;I3++) {
17352
J3 = -I1-2*(I2)+2*I3 ;
17353
S2++;
17354
}
17355
for (I3=I1-2*I2;I3<=N1;I3++) {
17356
J3 = -I1-2*(I2)+2*I3 ;
17357
S2++;
17358
J3 = I1-(I2)-(I3) ;
17359
S1++;
17360
}
17361
}
17362
for (I2=ceild(I1-1,6);I2<=floord(I1,6);I2++) {
17363
for (I3=I1-2*I2;I3<=N1;I3++) {
17364
J3 = -I1-2*(I2)+2*I3 ;
17365
S2++;
17366
J3 = I1-(I2)-(I3) ;
17367
S1++;
17368
}
17369
}
17370
for (I2=ceild(I1+1,6);I2<=floord(-I1+2*N1,2);I2++) {
17371
for (I3=I1-2*I2;I3<=floord(I1+2*I2-1,2);I3++) {
17372
J3 = I1-(I2)-(I3) ;
17373
S1++;
17374
}
17375
for (I3=ceild(I1+2*I2,2);I3<=N1;I3++) {
17376
J3 = -I1-2*(I2)+2*I3 ;
17377
S2++;
17378
J3 = I1-(I2)-(I3) ;
17379
S1++;
17380
}
17381
}
17382
for (I2=ceild(-I1+2*N1+1,2);I2<=N1;I2++) {
17383
for (I3=max(max(ceild(I1-I2,2),I1-2*I2),1);I3<=min(I1-I2,N1);I3++) {
17384
J3 = I1-(I2)-(I3) ;
17385
S1++;
17386
}
17387
}
17388
}
17389
for (I1=max(max(N1+3,ceild(3*N1-1,2)),ceild(18*N1+6,13));I1<=floord(6*N1-1,4);I1++) {
17390
for (I2=1;I2<=floord(I1-N1-1,2);I2++) {
17391
for (I3=ceild(I1+2*I2,2);I3<=min(N1,floord(2*I1+3*I2,3));I3++) {
17392
J3 = -I1-2*(I2)+2*I3 ;
17393
S2++;
17394
}
17395
}
17396
for (I2=max(ceild(I1-N1,2),-2*I1+3*N1+1);I2<=floord(I1,6);I2++) {
17397
for (I3=I1-2*I2;I3<=N1;I3++) {
17398
J3 = -I1-2*(I2)+2*I3 ;
17399
S2++;
17400
J3 = I1-(I2)-(I3) ;
17401
S1++;
17402
}
17403
}
17404
for (I2=ceild(I1+1,6);I2<=floord(-I1+2*N1,2);I2++) {
17405
for (I3=I1-2*I2;I3<=floord(I1+2*I2-1,2);I3++) {
17406
J3 = I1-(I2)-(I3) ;
17407
S1++;
17408
}
17409
for (I3=ceild(I1+2*I2,2);I3<=N1;I3++) {
17410
J3 = -I1-2*(I2)+2*I3 ;
17411
S2++;
17412
J3 = I1-(I2)-(I3) ;
17413
S1++;
17414
}
17415
}
17416
for (I2=ceild(-I1+2*N1+1,2);I2<=N1;I2++) {
17417
for (I3=max(max(ceild(I1-I2,2),I1-2*I2),1);I3<=min(I1-I2,N1);I3++) {
17418
J3 = I1-(I2)-(I3) ;
17419
S1++;
17420
}
17421
}
17422
}
17423
if (N1 >= 6) {
17424
if (3*N1%2 == 0) {
17425
I1 = 3*N1/2 ;
17426
for (I2=1;I2<=floord(N1-2,4);I2++) {
17427
for (I3=ceild(I1+2*I2,2);I3<=min(N1,floord(2*I1+3*I2,3));I3++) {
17428
J3 = -I1-2*(I2)+2*I3 ;
17429
S2++;
17430
}
17431
}
17432
if (N1%4 == 0) {
17433
for (I3=I1-2*(N1/4);I3<=N1;I3++) {
17434
J3 = -I1-2*(I2)+2*I3 ;
17435
S2++;
17436
J3 = I1-(I2)-(I3) ;
17437
S1++;
17438
}
17439
}
17440
for (I2=ceild(N1+2,4);I2<=N1;I2++) {
17441
for (I3=max(max(ceild(I1-I2,2),I1-2*I2),1);I3<=min(I1-I2,N1);I3++) {
17442
J3 = I1-(I2)-(I3) ;
17443
S1++;
17444
}
17445
}
17446
}
17447
}
17448
for (I1=ceild(3*N1+1,2);I1<=2*N1-2;I1++) {
17449
for (I2=1;I2<=floord(-I1+2*N1,2);I2++) {
17450
for (I3=ceild(I1+2*I2,2);I3<=min(N1,floord(2*I1+3*I2,3));I3++) {
17451
J3 = -I1-2*(I2)+2*I3 ;
17452
S2++;
17453
}
17454
}
17455
for (I2=ceild(I1-N1,2);I2<=N1;I2++) {
17456
for (I3=max(max(ceild(I1-I2,2),I1-2*I2),1);I3<=min(I1-I2,N1);I3++) {
17457
J3 = I1-(I2)-(I3) ;
17458
S1++;
17459
}
17460
}
17461
}
17462
for (I1=2*N1-1;I1<=3*N1;I1++) {
17463
for (I2=max(ceild(I1-N1,2),1);I2<=N1;I2++) {
17464
for (I3=max(max(I1-2*I2,ceild(I1-I2,2)),1);I3<=min(N1,I1-I2);I3++) {
17465
J3 = I1-(I2)-(I3) ;
17466
S1++;
17467
}
17468
}
17469
}
17470
17471
17472
/* statements print */
17473
fprintf(stderr, "S1 : %d\n", S1);
17474
fprintf(stderr, "S2 : %d\n", S2);
17475
17476
17477
}
17478
17479
17480
17481
------=_Part_1422_26966204.1114622640387
17482
Content-Type: application/octet-stream; name=LUDom_OSP.type2.c
17483
Content-Transfer-Encoding: 7bit
17484
Content-Disposition: attachment; filename="LUDom_OSP.type2.c"
17485
17486
/* Author : DaeGon Kim
17487
Date : Tue Apr 26 20:28:07 MDT 2005 */
17488
17489
#include <stdio.h>
17490
#include <stdlib.h>
17491
17492
#define max(x,y) ((x)>(y) ? (x) : (y))
17493
#define min(x,y) ((x)>(y) ? (y) : (x))
17494
#define ceild(x,y) ((x)+1) / (y)
17495
#define floord(x,y) (x) / (y)
17496
17497
int main(int argc, char **argv) {
17498
17499
/* parameters declaration */
17500
int N1 = 0;
17501
17502
/* statements declaration */
17503
int S1 = 0;
17504
int S2 = 0;
17505
17506
/* iterators declaration */
17507
int I1 = 0;
17508
int J1 = 0;
17509
int I2 = 0;
17510
int J2 = 0;
17511
int I3 = 0;
17512
int J3 = 0;
17513
17514
/* check arguements and get values of parameters */
17515
if ( argc != 1 + 1) {
17516
printf("The number of arguements for %s is 1\n", argv[0]);
17517
exit(0);
17518
}
17519
17520
N1 = atoi(argv[1]);
17521
17522
/* Generated from ./INPUT/CLOOG/LUDom_OSP_cloog by CLooG v0.12.2 64 bits in 0.03s. */
17523
for (I1=0;I1<=3*N1;I1++) {
17524
for (I2=max(max(1,ceild(I1-2*N1+2,2)),I1-2*N1);I2<=N1;I2++) {
17525
for (I3=max(max(I1-2*I2,ceild(I1-I2,2)),1);I3<=min(min(N1,floord(I1+2*I2-1,2)),I1-I2);I3++) {
17526
J3 = I1-(I2)-(I3) ;
17527
S1++;
17528
}
17529
for (I3=ceild(I1+2*I2,2);I3<=min(min(N1,I1-2*I2-1),floord(2*I1+3*I2,3));I3++) {
17530
J3 = -I1-2*(I2)+2*I3 ;
17531
S2++;
17532
}
17533
for (I3=max(I1-2*I2,ceild(I1+2*I2,2));I3<=min(N1,floord(2*I1+I2-1,3));I3++) {
17534
J3 = -I1-2*(I2)+2*I3 ;
17535
S2++;
17536
J3 = I1-(I2)-(I3) ;
17537
S1++;
17538
}
17539
if ((2*I1+I2)%3 == 0) {
17540
I3 = (2*I1+I2)/3 ;
17541
J1 = -2*I1+3*I3 ;
17542
if ((2*I1+J1)%3 == 0) {
17543
J2 = (2*I1+J1)/3 ;
17544
J3 = 3*I1-4*J2 ;
17545
S1++;
17546
S2++;
17547
}
17548
}
17549
for (I3=max(I1-2*I2,ceild(2*I1+I2+1,3));I3<=min(min(N1,floord(2*I1+3*I2,3)),I1-I2);I3++) {
17550
J3 = I1-(I2)-(I3) ;
17551
S1++;
17552
J3 = -I1-2*(I2)+2*I3 ;
17553
S2++;
17554
}
17555
for (I3=max(ceild(2*I1+3*I2+1,3),I1-2*I2);I3<=min(N1,I1-I2);I3++) {
17556
J3 = I1-(I2)-(I3) ;
17557
S1++;
17558
}
17559
for (I3=max(ceild(I1+2*I2,2),I1-I2+1);I3<=min(floord(2*I1+3*I2,3),N1);I3++) {
17560
J3 = -I1-2*(I2)+2*I3 ;
17561
S2++;
17562
}
17563
}
17564
}
17565
17566
17567
/* statements print */
17568
fprintf(stderr, "S1 : %d\n", S1);
17569
fprintf(stderr, "S2 : %d\n", S2);
17570
17571
17572
}
17573
17574
17575
17576
------=_Part_1422_26966204.1114622640387--
17577
17578
Loggerhead is a web-based interface for Breezy
Version: 2.0.1