±
庸塡¡²
屦塡²±
419ڡ 0:11:09 39231
祦ե
Ҥ֤ˤƤ줷Ǥ
Ϻǽ鸶OȻפäƤƶϫޤ
ʸ褯ɤäǤ
419ڡ 0:33:36 39232

ԤǤ
ϤƤ˽񤭹ߤǤΤǤ줷Ǥ
419ڡ 0:40:21 MAIL:chisanakyozinsato@yahoo.co.jp 39233
⡼ޥ
P=(0,0) Ȥ...
(a)(1,0), (-1,0)
(b)(0,1), (0,-1)
(c)(1,-1), (-1,1)

줾Ȥ1Ĥ֤...̤˷ޤ뤫...ν֤Ȥʤ...
2*3!
...1ܤ(-1,0) ΤȤ...3ܤ٤ʤ...12-1=11
Τ褦ʵꤹ...^^;...?
419ڡ 0:42:59 39234
Shin Koba
ߣܣߣᣲʤΡְäƤ餴ʤǤ󤸤ä麾ߤ̤Ǥ¿ʬְäƤȻפɡʧäƤʤƸȤ
419ڡ 0:53:27 39235
⡼ޥ
ä...
ưʤΤ⣱ǥȤФΤ ^^;
ʬ=(-1,0)+(0,0)+(1,0) бƤ뤫...
ä礯...12ˤʤǤ...Orz...
419ڡ 0:54:32 39236
ӣˣ
ʤ꤬Ȥޤ
419ڡ 0:59:35 39237
ӣˣ
ʤ꤬Ȥޤ
419ڡ 0:59:50 39238
ߤ
̤줺ǧںġȤȻפǤޤ

ָ飳ǸפΤʤ飳̤ǤΤǤ礦
419ڡ 1:34:24 39239
ݤ󤭤
32̤ǤȻפޡ
3̳Τޤʤäơʡ
419ڡ 1:40:46 39240

BBAA屦
AABB
A塧B庸AB
12̤꤫ʡ
419ڡ 4:55:53 HomePage:39241
abcba@jugglermoka
ʤѤΥɤȤΤݥȤǤ͡
419ڡ 9:04:43 39242
deu
#39239 32Ȼפޤʸɤߴְ㤨ơġ
419ڡ 9:42:37 39243
ͣ.ǥ
Τ˥ȥݥȤְ㤨Ǥ͡ʸˤϤȽ񤫤ƤΤǤ
ѥ󤬾ʤʤΤǡ#39241Ʊ褦˿夲ޤ

٤ȡ䤵Ǥ͡
419ڡ 10:15:59 39244

äơǤ
419ڡ 10:17:01 MAIL:yasuhirovich@oboe.ocn.ne.jp 39245
???
ޥǡݤФ
Option Explicit
Dim a(3) As Integer
Sub Macro1()
Cells(1, 1).Value = 0
a(0) = 0: Call saiki(1)
End Sub
Sub saiki(ByVal n As Integer)
Dim x As Integer, y As Integer
Dim xx As Integer, yy As Integer
Dim j As Integer
a(n) = 1
While a(n) <= 6
If n < 3 Then
Call saiki(n + 1)
Else
x = 1: y = 0
For j = 1 To 3
xx = p(a(j), x, y, 1): yy = p(a(j), x, y, 2)
x = xx: y = yy
Next j
If x = 1 And y = 0 Then
Cells(1, 1).Value = Cells(1, 1).Value + 1
For j = 0 To 3
If j > 0 Then
xx = p(a(j), x, y, 1): yy = p(a(j), x, y, 2)
x = xx: y = yy
End If
Cells(Cells(1, 1).Value, j + 2).Value = strr(a(j)) + ":(" + strr(x) + "," + strr(y) + ")"
Next j
End If
End If
a(n) = a(n) + 1
Wend
End Sub
Private Function p(ByVal b As Integer, ByVal x As Integer, ByVal y As Integer, ByVal i As Integer) As Integer
Dim dummy As Integer
Select Case b
Case 1: x = x + 1
Case 2: x = x - 1
Case 3: y = y + 1
Case 4: y = y - 1
Case 5: dummy = x: x = -y: y = dummy
Case Else: dummy = x: x = y: y = -dummy
End Select
If i = 1 Then p = x Else p = y
End Function
Private Function strr(ByVal n As Integer) As String
strr = Right(Str(n), 1)
End Function
419ڡ 10:59:59 39246
abcba@baLLjugglermoka
̤3Ǹοϡ
Ǥ32̤
ɸ(1,1)(1,1)(1,1)(1,1)Ǥ12̤
¾ɸǤ0̤
419ڡ 11:03:09 39247
uchinyan
Ϥˤϡơϡ
ϡ⡹ʹͤ٤˻ǡƻĴ٤Τμ¤ᤤǤ礦
ȡ

岼о䤿ɤ֤ʤɤθʤޤ
ǽ餬ϡʤ
ǽ餬ϡ¡±Σ̤ꡣ
ǽ餬ϡ庸塤Σ̤ꡣ
ǽ餬ϡ¡²Σ̤ꡣ
ǽ餬ϡ屦塤Σ̤ꡣ
ǽ餬¤ϡ²±Σ̤ꡣ
ʾǤ٤ƤʤΤǡ̤ꡣ

ǤϵѤäݤʡȤפޤ
äˤϡϣ¤ϾʤȤɬפǡ٤Ƥϣ¤ȤȤʤ
Τ󤬣ϣ¤ȤȤϤʤ
ϡʬΤǡΤϣ¤󡤤ʬޤ
ǡʤΤϲܤƤ⣲̤ꤺġ¤Ͼ岼оƱǡ
ߣߣᣱ̤
ȤƤ⤤Ǥ͡
ͥνȡ 419ڡ 11:12:49 MAIL:uchi@sco.bekkoame.ne.jp 39248
uchinyan
ǼĤɤߤޤ
ϡO 饹ȤäƤȤ㤤С󡤴ñä褦Ǥ
ˡ⡤ƻĴ٤Τήʡ
ͥνȡ 419ڡ 11:43:56 MAIL:uchi@sco.bekkoame.ne.jp 39249

ƻĴ٤ޤ
񤷤äΤ˻äΤǡ򤱤ʤäΤǤ줷Ǥ
419ڡ 14:23:13 39250
xxx
ޤʤΤƻĴ٤ޤ
ǽŪˣߣܣߣǣˤʤޤ
ɤ 419ڡ 16:45:07 39251
Ҥ
ҤȤĤĴ٤ޤ(ޡޡ) ֤ää ϤƤߤƻͤܿʬäΤǡڤǤ
419ڡ 17:51:29 39252

ٲžʱˡٲž¤ʺˤȤȡǸˤϡں塦ʱˡۤȡڱʺˡۤΣѥΤߡ
ɤ⣳᣶̤ʤΤǡܣᣱȤʤޤžɤǤ⤫ޤʤȴ㤤Ƥᡢ̤Ȥ줺ޤηˤƤäޤ
419ڡ 18:51:19 39253
N.Nishi
夲ޤäΤǽޤ
419ڡ 20:05:24 39254
ϥ饮㡼ƥ
ץǤɸȥɤưץहǿ夲ץǤߤޤ
419ڡ 21:02:56 HomePage:湩ؤ˥39255
kkkaittto
ƤˤäƤޤ
ñˤ줷Ǥ
419ڡ 22:36:37 39256
ϥ饮㡼ƥ
MATLABˤץ򼨤ޤľѤ˶ʤȤMATLAB餷ФƤޤ
s=0;
b=[];
for ii=1:6;
for jj=1:6;
for kk=1:6;
b=[b;ii,jj,kk];
end;
end;
end;
for k=1:216;
m=b(k,:);
a=[1,0];
for jj=1:3;
mm=m(jj);
if mm==1,a=a+[1,0];end;
if mm==2,a=a+[-1,0];end;
if mm==3,a=a+[0,1];end;
if mm==4,a=a+[0,-1];end;
if mm==5,a=[-a(2),a(1)];end;
if mm==6,a=[a(2),-a(1)];end;
end;
if a==[1,0],s=s+1;end;
end;
s
420ʶ 8:20:37 HomePage:湩ؤ˥39257
ϺĹ
ߤʤȤߤ餤Υѥեͤ˹ԤäƤޤԲǤӤäꡪ
ꡢХåƥ꡼ڤľηӤǸơƬǡؾ夬ä90ٲäƤȹͤޤͤޤȤޤꤽˤʤ뺢˱ؤ夯ΤDZ̾ǧƤޤʤعԤäȤ𤷤ޤ
420ʶ 10:31:04 39258
hide
ʤ飳̤
Фʤ飲̤
ġġʵ

äƤʤΤǥץäƤޤä

100 N=0
110 DIM P(3)
120 FOR A=1 TO 6
130 FOR B=1 TO 6
140 FOR C=1 TO 6
150 P(1)=A
160 P(2)=B
170 P(3)=C
180 X=1
190 Y=0
200 FOR K=1 TO 3
210 IF P(K)>4 THEN
220 T=X
230 X=Y*(-1)^P(K)
240 Y=-T*(-1)^P(K)
250 GOTO 320
260 END IF
270 IF P(K)>2 THEN
280 Y=Y+(-1)^P(K)
290 GOTO 320
300 END IF
310 X=X+(-1)^P(K)
320 NEXT K
330 IF X=1 AND Y=0 THEN
340 N=N+1
350 END IF
360 NEXT C
370 NEXT B
380 NEXT A
390 PRINT N
400 END
ꥢϥ󡡡 420ʶ 18:34:22 39259
t
ǽˣޥưΤ̤ꡢǽˣưΤ̤ꡢ+ᣱǣ̤ꡣ

422 7:35:33 39260
Ҥ
421ڡ 0:42:03 39261
fumio
Ϥ褦ޤ빽ĤäʡϤϤϡ
421ڡ 6:11:59 39262

PפκΥǣPפαΥǣPפαΥǣPפκΥO-PβˤǣףǤ

ǡǽֺɡפǡOפ˹ԤOפǡֲžAorֲžBɡפưȤǤʤ˻ܤֱɡפǡPפä
ξ2̤򡢤˹ͤΤ

ޤ뤵󡢶Ƥͤ⿲ʤ
423ʷ 9:31:56 MAIL:yasuhirovich@oboe.ocn.ne.jp 39263
̤ꤹ
#39259
> Фʤ飲̤
20̤Ǥϡ
423ʷ 11:08:42 39264
namba
P

屦岼塢屦
岼塢ABBA
AABB
AAABAAAB
BABBBABB

21̤Ǥ͡
423ʷ 13:02:47 39265

ǯ֤򸫤ޤޤǤǰִñäȤ⤤ޤ
424ʲС 13:39:33 39266