1

T に

1441217

2

1. ···························································· p3 2. ··················································· p3 3. ······················································ p3 3.1 3.2 3.3 4. ······················································ p5 4.1 4.2 5. ·························································· p16 6. ····································· p17 7. ·························································· p17 8. ···················································· p18 9. ·························································· p19

3

11.

2020

2.

[1]

artisoc

3.

3.1 5

2 Fig.1 Fig.2

artisoc

1 : 2 :

1/ 2 3 :

4 :

4

11 1

1 Fig.3 [1]

Fig.1 Fig.2

Fig.3

5

33.2

(30~60 100 200 ) 50

30 60 30 32 342

3.3

5050

5050

4.

4.1

18

Fig.4

6

Fig.5

Fig.6

Fig.7

7

Fig.8

Fig.9

Fig.10

8

Fig.11

Fig.12

Fig.13

9

Fig.14

Fig.15

Fig.16

10

Fig.17

Fig.18

Fig.19

11

Fig.20

Fig.21

12

44.2 12

Fig.22

Fig.23

13

Fig.24

Fig.25

Fig.26

14

Fig.27

Fig.28

Fig.29

15

Fig.30

Fig.31

Fig.32

16

Fig.33

1200 2

55.

( .1

17

66.

[1]

7.

18

88.

[1] Vol.26-ME(2014) ME-90

[2] artisoc

[3] 2006

19

30~60 100 200

1.30 3.02 1.71

1.18 2.11 1.59

1.25 2.91 1.65

1.62 3.07 2.09

2.51 6.06 3.66

2.74 4.88 3.58

2.46 4.88 3.49

1.56 3.71 2.13

1.61 3.62 2.06

2.05 3.92 3.22

1.34 2.16 1.58

1.52 3.34 1.95

1.30 2.26 1.65

1.42 2.55 1.86

1.24 2.67 1.67

1.53 3.08 1.98

1.31 2.52 1.75

1.39 3.47 1.96

1.28 3.09 1.86

.1

20

1.57 3.69 2.15

1.85 3.25 2.63

1.46 3.80 1.96

2.91 7.23 4.04

1.69 4.92 2.47

2.50 4.97 3.53

1.65 4.09 2.47

1.79 4.59 2.46

1.56 5.65 2.32

1.57 4.80 2.16

1.33 3.76 1.90

1.17 3.40 2.03

1.37 4.26 2.05

.2

21

Agt_Init{ If Rnd() > 0.5 Then My.X=0 My.Y=(8+Int(Rnd()*5)) Else My.X=20 My.Y=(8+Int(Rnd()*5)) End if } Agt_Step{ // // Dim FS As Boolean //FS= // Dim LS As Boolean //LS= // Dim RS As Boolean //RS= // Dim BS As Boolean //BS= // Dim anyone As Agt //anyone= // Dim crowd As AgtSet //crowd= // Dim hito As Integer //hito= // FS=False LS=False RS=False BS=False MakeAllAgtSetAroundOwnCell(crowd,1,False)// 1

hito = CountAgtSet(crowd) If hito > 0 Then // For each anyone in crowd If anyone.X == My.X and anyone.Y == My.Y+1 Then // FS = True Elseif anyone.X == My.X-1 and anyone.Y == My.Y Then // LS = True

22

Elseif anyone.X == My.X+1 and anyone.Y == My.Y Then // RS = True Elseif anyone.X == My.X and anyone.Y == My.Y-1 Then // BS = True End if Next crowd End if If My.Y == 0 Then //Y 0 KillAgt(My) // End if // // If My.Y>=8 And My.X<=7 Then //Y 8 X 7 If RS == True Then // If FS == False And BS == False Then //

If Rnd() > 0.5 Then ForwardYCell(1) // Else ForwardYCell(-1) // End if Elseif FS == False Then //

ForwardYCell(1) // Elseif BS == False Then // ForwardYCell(-1) // End if Else// ForwardXCell(1)// End if If FS == True And RS == True And BS == True Then //

23

End if ElseIf My.Y>=8 And My.X>=13 Then //Y 8 X 13

If LS == True Then // If FS == False And BS == False Then //

If Rnd() > 0.5 Then ForwardYCell(1) // Else ForwardYCell(-1) // End if Elseif FS == False Then //

ForwardYCell(1) // Elseif BS == False Then // ForwardYCell(-1) // End if Else// ForwardXCell(-1)// End if

24

Agt_Init{ If Rnd() > 0.5 Then My.X=(8+Int(Rnd()*5)) My.Y=0 Else My.X=20 My.Y=(8+Int(Rnd()*5)) End if } Agt_Step{ // // Dim FS As Boolean //FS= // Dim LS As Boolean //LS= // Dim RS As Boolean //RS= // Dim BS As Boolean //BS= // Dim anyone As Agt //anyone= // Dim crowd As AgtSet //crowd= // Dim hito As Integer //hito= // FS=False LS=False RS=False BS=False MakeAllAgtSetAroundOwnCell(crowd,1,False)// 1

hito = CountAgtSet(crowd) If hito > 0 Then // For each anyone in crowd If anyone.X == My.X and anyone.Y == My.Y+1 Then // FS = True Elseif anyone.X == My.X-1 and anyone.Y == My.Y Then // LS = True

25

Elseif anyone.X == My.X+1 and anyone.Y == My.Y Then // RS = True Elseif anyone.X == My.X and anyone.Y == My.Y-1 Then // BS = True End if Next crowd End if If My.X == 0 Then //X 0 KillAgt(My) // End if // // If My.Y<=7 Then //Y 7 If FS == True Then // If RS == False And LS == False Then //

If Rnd() > 0.5 Then ForwardXCell(-1) // Else ForwardXCell(1) // End if Elseif LS == False Then //

ForwardXCell(-1) // Elseif RS == False Then // ForwardXCell(1) // End if Else// ForwardYCell(1)// End if If FS == True And LS == True And RS == True Then //

26

End if ElseIf My.Y>=8 Then //Y 8 If LS == True Then // If FS == False And BS == False Then //

If Rnd() > 0.5 Then ForwardYCell(1) // Else ForwardYCell(-1) // End if Elseif FS == False Then //

ForwardYCell(1) // Elseif BS == False Then // ForwardYCell(-1) // End if Else// ForwardXCell(-1)// End if If FS == True And LS == True And BS == True Then //

End if End if