/*********************************************************************/ /* */ /* マルチエージェントシミュレータ Version 1.0 */ /* */ /*********************************************************************/ //------------------ コンポーネントツリー --------------- WORLD { space STATE(75,70),SQUARE_2D(12, 12, LOOP) { agent COMMUNITY(10,10)[144] { dim X(10,10) AS Double = (0.000000); dim Y(100,10) AS Double = (0.000000); dim DIRECTION(190,10) AS Double = (0.000000); dim ROYALITY(10,10) AS Integer = (0); dim CULTURE(10,10) AS String = (""); dim COLOR(10,10) AS Integer = (0); dim REBELMOVEMENT(10,10) AS String = (""); } } dim NOFSTEPS(10,10) AS Integer = (0); dim NOFREBELS(10,10) AS Integer = (0); dim NOFREBEL10(10,10) AS Integer = (0); dim NOFREBEL11(10,10) AS Integer = (0); dim NOFREBEL12(10,10) AS Integer = (0); dim NOFREBEL13(10,10) AS Integer = (0); dim NOFREBEL14(10,10) AS Integer = (0); dim NOFREBEL15(10,10) AS Integer = (0); dim ETHNIC_MV(10,10) AS Integer = (0); dim NOFREBEL_0(10,10) AS Integer = (0); dim NOFREBEL_1(10,10) AS Integer = (0); dim NOFREBEL_2(10,10) AS Integer = (0); dim NOFREBEL_3(10,10) AS Integer = (0); dim NOFREBEL_4(10,10) AS Integer = (0); dim NOFREBEL_5(10,10) AS Integer = (0); dim ECUMNCL_MV(10,10) AS Integer = (0); dim NOFREBEL1_(10,10) AS Integer = (0); dim SPRD(10,10) AS Integer = (0); dim VIEW(10,10) AS Integer = (0); dim POLICE(10,10) AS Integer = (0); dim ETHNICITIES(10,10) AS Integer = (0); dim INERTIA(10,10) AS Integer = (0); } //------------------ コンポーネントパレットツリー --------------- //------------------ エージェント変数初期値データ --------------- INITIAL_VALUE { WORLD.SPRD = 1(4); WORLD.VIEW = 1(2); WORLD.POLICE = 1(20); } //------------------ エージェント共通ルール --------------- #begin_rule common_agent_rule Function RGB(red As Integer, green As Integer, blue As Integer) As Integer { Return(red * (256^2) + green * 256 + blue) } #end_rule common_agent_rule //------------------ エージェントルール --------------- #begin_rule WORLD Agt_Init{ Dim i as integer Dim j as integer Dim k as integer for i = 0 to _CountAgent(World.STATE.COMMUNITY)-1 World.STATE.COMMUNITY.X(i) = i mod(12) World.STATE.COMMUNITY.Y(i) = i\12 World.STATE.COMMUNITY.ROYALITY(i) = 1 World.STATE.COMMUNITY.REBELMOVEMENT(i) = "0" next i World.NOFREBELS = 0 World.NOFSTEPS = 0 //culture definition If World.ETHNICITIES <= 2 then for i =0 to 71 World.STATE.COMMUNITY.CULTURE(i) ="10" next i for i=72 to 143 World.STATE.COMMUNITY.CULTURE(i) ="11" next i End if If World.ETHNICITIES > 2 And World.ETHNICITIES <= 4 then World.STATE.COMMUNITY.CULTURE(0) = "10" World.STATE.COMMUNITY.CULTURE(1) = "10" World.STATE.COMMUNITY.CULTURE(2) = "10" World.STATE.COMMUNITY.CULTURE(3) = "10" World.STATE.COMMUNITY.CULTURE(4) = "10" World.STATE.COMMUNITY.CULTURE(5) = "10" World.STATE.COMMUNITY.CULTURE(6) = "11" World.STATE.COMMUNITY.CULTURE(7) = "11" World.STATE.COMMUNITY.CULTURE(8) = "11" World.STATE.COMMUNITY.CULTURE(9) = "11" World.STATE.COMMUNITY.CULTURE(10) = "11" World.STATE.COMMUNITY.CULTURE(11) = "11" World.STATE.COMMUNITY.CULTURE(12) = "10" World.STATE.COMMUNITY.CULTURE(13) = "10" World.STATE.COMMUNITY.CULTURE(14) = "10" World.STATE.COMMUNITY.CULTURE(15) = "10" World.STATE.COMMUNITY.CULTURE(16) = "10" World.STATE.COMMUNITY.CULTURE(17) = "10" World.STATE.COMMUNITY.CULTURE(18) = "11" World.STATE.COMMUNITY.CULTURE(19) = "11" World.STATE.COMMUNITY.CULTURE(20) = "11" World.STATE.COMMUNITY.CULTURE(21) = "11" World.STATE.COMMUNITY.CULTURE(22) = "11" World.STATE.COMMUNITY.CULTURE(23) = "11" World.STATE.COMMUNITY.CULTURE(24) = "10" World.STATE.COMMUNITY.CULTURE(25) = "10" World.STATE.COMMUNITY.CULTURE(26) = "10" World.STATE.COMMUNITY.CULTURE(27) = "10" World.STATE.COMMUNITY.CULTURE(28) = "10" World.STATE.COMMUNITY.CULTURE(29) = "10" World.STATE.COMMUNITY.CULTURE(30) = "11" World.STATE.COMMUNITY.CULTURE(31) = "11" World.STATE.COMMUNITY.CULTURE(32) = "11" World.STATE.COMMUNITY.CULTURE(33) = "11" World.STATE.COMMUNITY.CULTURE(34) = "11" World.STATE.COMMUNITY.CULTURE(35) = "11" World.STATE.COMMUNITY.CULTURE(36) = "10" World.STATE.COMMUNITY.CULTURE(37) = "10" World.STATE.COMMUNITY.CULTURE(38) = "10" World.STATE.COMMUNITY.CULTURE(39) = "10" World.STATE.COMMUNITY.CULTURE(40) = "10" World.STATE.COMMUNITY.CULTURE(41) = "10" World.STATE.COMMUNITY.CULTURE(42) = "11" World.STATE.COMMUNITY.CULTURE(43) = "11" World.STATE.COMMUNITY.CULTURE(44) = "11" World.STATE.COMMUNITY.CULTURE(45) = "11" World.STATE.COMMUNITY.CULTURE(46) = "11" World.STATE.COMMUNITY.CULTURE(47) = "11" World.STATE.COMMUNITY.CULTURE(48) = "10" World.STATE.COMMUNITY.CULTURE(49) = "10" World.STATE.COMMUNITY.CULTURE(50) = "10" World.STATE.COMMUNITY.CULTURE(51) = "10" World.STATE.COMMUNITY.CULTURE(52) = "10" World.STATE.COMMUNITY.CULTURE(53) = "10" World.STATE.COMMUNITY.CULTURE(54) = "11" World.STATE.COMMUNITY.CULTURE(55) = "11" World.STATE.COMMUNITY.CULTURE(56) = "11" World.STATE.COMMUNITY.CULTURE(57) = "11" World.STATE.COMMUNITY.CULTURE(58) = "11" World.STATE.COMMUNITY.CULTURE(59) = "11" World.STATE.COMMUNITY.CULTURE(60) = "10" World.STATE.COMMUNITY.CULTURE(61) = "10" World.STATE.COMMUNITY.CULTURE(62) = "10" World.STATE.COMMUNITY.CULTURE(63) = "10" World.STATE.COMMUNITY.CULTURE(64) = "10" World.STATE.COMMUNITY.CULTURE(65) = "10" World.STATE.COMMUNITY.CULTURE(66) = "11" World.STATE.COMMUNITY.CULTURE(67) = "11" World.STATE.COMMUNITY.CULTURE(68) = "11" World.STATE.COMMUNITY.CULTURE(69) = "11" World.STATE.COMMUNITY.CULTURE(70) = "11" World.STATE.COMMUNITY.CULTURE(71) = "11" World.STATE.COMMUNITY.CULTURE(72) = "12" World.STATE.COMMUNITY.CULTURE(73) = "12" World.STATE.COMMUNITY.CULTURE(74) = "12" World.STATE.COMMUNITY.CULTURE(75) = "12" World.STATE.COMMUNITY.CULTURE(76) = "12" World.STATE.COMMUNITY.CULTURE(77) = "12" World.STATE.COMMUNITY.CULTURE(78) = "13" World.STATE.COMMUNITY.CULTURE(79) = "13" World.STATE.COMMUNITY.CULTURE(80) = "13" World.STATE.COMMUNITY.CULTURE(81) = "13" World.STATE.COMMUNITY.CULTURE(82) = "13" World.STATE.COMMUNITY.CULTURE(83) = "13" World.STATE.COMMUNITY.CULTURE(84) = "12" World.STATE.COMMUNITY.CULTURE(85) = "12" World.STATE.COMMUNITY.CULTURE(86) = "12" World.STATE.COMMUNITY.CULTURE(87) = "12" World.STATE.COMMUNITY.CULTURE(88) = "12" World.STATE.COMMUNITY.CULTURE(89) = "12" World.STATE.COMMUNITY.CULTURE(90) = "13" World.STATE.COMMUNITY.CULTURE(91) = "13" World.STATE.COMMUNITY.CULTURE(92) = "13" World.STATE.COMMUNITY.CULTURE(93) = "13" World.STATE.COMMUNITY.CULTURE(94) = "13" World.STATE.COMMUNITY.CULTURE(95) = "13" World.STATE.COMMUNITY.CULTURE(96) = "12" World.STATE.COMMUNITY.CULTURE(97) = "12" World.STATE.COMMUNITY.CULTURE(98) = "12" World.STATE.COMMUNITY.CULTURE(99) = "12" World.STATE.COMMUNITY.CULTURE(100) = "12" World.STATE.COMMUNITY.CULTURE(101) = "12" World.STATE.COMMUNITY.CULTURE(102) = "13" World.STATE.COMMUNITY.CULTURE(103) = "13" World.STATE.COMMUNITY.CULTURE(104) = "13" World.STATE.COMMUNITY.CULTURE(105) = "13" World.STATE.COMMUNITY.CULTURE(106) = "13" World.STATE.COMMUNITY.CULTURE(107) = "13" World.STATE.COMMUNITY.CULTURE(108) = "12" World.STATE.COMMUNITY.CULTURE(109) = "12" World.STATE.COMMUNITY.CULTURE(110) = "12" World.STATE.COMMUNITY.CULTURE(111) = "12" World.STATE.COMMUNITY.CULTURE(112) = "12" World.STATE.COMMUNITY.CULTURE(113) = "12" World.STATE.COMMUNITY.CULTURE(114) = "13" World.STATE.COMMUNITY.CULTURE(115) = "13" World.STATE.COMMUNITY.CULTURE(116) = "13" World.STATE.COMMUNITY.CULTURE(117) = "13" World.STATE.COMMUNITY.CULTURE(118) = "13" World.STATE.COMMUNITY.CULTURE(119) = "13" World.STATE.COMMUNITY.CULTURE(120) = "12" World.STATE.COMMUNITY.CULTURE(121) = "12" World.STATE.COMMUNITY.CULTURE(122) = "12" World.STATE.COMMUNITY.CULTURE(123) = "12" World.STATE.COMMUNITY.CULTURE(124) = "12" World.STATE.COMMUNITY.CULTURE(125) = "12" World.STATE.COMMUNITY.CULTURE(126) = "13" World.STATE.COMMUNITY.CULTURE(127) = "13" World.STATE.COMMUNITY.CULTURE(128) = "13" World.STATE.COMMUNITY.CULTURE(129) = "13" World.STATE.COMMUNITY.CULTURE(130) = "13" World.STATE.COMMUNITY.CULTURE(131) = "13" World.STATE.COMMUNITY.CULTURE(132) = "12" World.STATE.COMMUNITY.CULTURE(133) = "12" World.STATE.COMMUNITY.CULTURE(134) = "12" World.STATE.COMMUNITY.CULTURE(135) = "12" World.STATE.COMMUNITY.CULTURE(136) = "12" World.STATE.COMMUNITY.CULTURE(137) = "12" World.STATE.COMMUNITY.CULTURE(138) = "13" World.STATE.COMMUNITY.CULTURE(139) = "13" World.STATE.COMMUNITY.CULTURE(140) = "13" World.STATE.COMMUNITY.CULTURE(141) = "13" World.STATE.COMMUNITY.CULTURE(142) = "13" World.STATE.COMMUNITY.CULTURE(143) = "13" End if If World.ETHNICITIES > 4 then World.STATE.COMMUNITY.CULTURE(0) = "10" World.STATE.COMMUNITY.CULTURE(1) = "10" World.STATE.COMMUNITY.CULTURE(2) = "10" World.STATE.COMMUNITY.CULTURE(3) = "10" World.STATE.COMMUNITY.CULTURE(4) = "11" World.STATE.COMMUNITY.CULTURE(5) = "11" World.STATE.COMMUNITY.CULTURE(6) = "11" World.STATE.COMMUNITY.CULTURE(7) = "11" World.STATE.COMMUNITY.CULTURE(8) = "12" World.STATE.COMMUNITY.CULTURE(9) = "12" World.STATE.COMMUNITY.CULTURE(10) = "12" World.STATE.COMMUNITY.CULTURE(11) = "12" World.STATE.COMMUNITY.CULTURE(12) = "10" World.STATE.COMMUNITY.CULTURE(13) = "10" World.STATE.COMMUNITY.CULTURE(14) = "10" World.STATE.COMMUNITY.CULTURE(15) = "10" World.STATE.COMMUNITY.CULTURE(16) = "11" World.STATE.COMMUNITY.CULTURE(17) = "11" World.STATE.COMMUNITY.CULTURE(18) = "11" World.STATE.COMMUNITY.CULTURE(19) = "11" World.STATE.COMMUNITY.CULTURE(20) = "12" World.STATE.COMMUNITY.CULTURE(21) = "12" World.STATE.COMMUNITY.CULTURE(22) = "12" World.STATE.COMMUNITY.CULTURE(23) = "12" World.STATE.COMMUNITY.CULTURE(24) = "10" World.STATE.COMMUNITY.CULTURE(25) = "10" World.STATE.COMMUNITY.CULTURE(26) = "10" World.STATE.COMMUNITY.CULTURE(27) = "10" World.STATE.COMMUNITY.CULTURE(28) = "11" World.STATE.COMMUNITY.CULTURE(29) = "11" World.STATE.COMMUNITY.CULTURE(30) = "11" World.STATE.COMMUNITY.CULTURE(31) = "11" World.STATE.COMMUNITY.CULTURE(32) = "12" World.STATE.COMMUNITY.CULTURE(33) = "12" World.STATE.COMMUNITY.CULTURE(34) = "12" World.STATE.COMMUNITY.CULTURE(35) = "12" World.STATE.COMMUNITY.CULTURE(36) = "10" World.STATE.COMMUNITY.CULTURE(37) = "10" World.STATE.COMMUNITY.CULTURE(38) = "10" World.STATE.COMMUNITY.CULTURE(39) = "10" World.STATE.COMMUNITY.CULTURE(40) = "11" World.STATE.COMMUNITY.CULTURE(41) = "11" World.STATE.COMMUNITY.CULTURE(42) = "11" World.STATE.COMMUNITY.CULTURE(43) = "11" World.STATE.COMMUNITY.CULTURE(44) = "12" World.STATE.COMMUNITY.CULTURE(45) = "12" World.STATE.COMMUNITY.CULTURE(46) = "12" World.STATE.COMMUNITY.CULTURE(47) = "12" World.STATE.COMMUNITY.CULTURE(48) = "10" World.STATE.COMMUNITY.CULTURE(49) = "10" World.STATE.COMMUNITY.CULTURE(50) = "10" World.STATE.COMMUNITY.CULTURE(51) = "10" World.STATE.COMMUNITY.CULTURE(52) = "11" World.STATE.COMMUNITY.CULTURE(53) = "11" World.STATE.COMMUNITY.CULTURE(54) = "11" World.STATE.COMMUNITY.CULTURE(55) = "11" World.STATE.COMMUNITY.CULTURE(56) = "12" World.STATE.COMMUNITY.CULTURE(57) = "12" World.STATE.COMMUNITY.CULTURE(58) = "12" World.STATE.COMMUNITY.CULTURE(59) = "12" World.STATE.COMMUNITY.CULTURE(60) = "10" World.STATE.COMMUNITY.CULTURE(61) = "10" World.STATE.COMMUNITY.CULTURE(62) = "10" World.STATE.COMMUNITY.CULTURE(63) = "10" World.STATE.COMMUNITY.CULTURE(64) = "11" World.STATE.COMMUNITY.CULTURE(65) = "11" World.STATE.COMMUNITY.CULTURE(66) = "11" World.STATE.COMMUNITY.CULTURE(67) = "11" World.STATE.COMMUNITY.CULTURE(68) = "12" World.STATE.COMMUNITY.CULTURE(69) = "12" World.STATE.COMMUNITY.CULTURE(70) = "12" World.STATE.COMMUNITY.CULTURE(71) = "12" World.STATE.COMMUNITY.CULTURE(72) = "13" World.STATE.COMMUNITY.CULTURE(73) = "13" World.STATE.COMMUNITY.CULTURE(74) = "13" World.STATE.COMMUNITY.CULTURE(75) = "13" World.STATE.COMMUNITY.CULTURE(76) = "14" World.STATE.COMMUNITY.CULTURE(77) = "14" World.STATE.COMMUNITY.CULTURE(78) = "14" World.STATE.COMMUNITY.CULTURE(79) = "14" World.STATE.COMMUNITY.CULTURE(80) = "15" World.STATE.COMMUNITY.CULTURE(81) = "15" World.STATE.COMMUNITY.CULTURE(82) = "15" World.STATE.COMMUNITY.CULTURE(83) = "15" World.STATE.COMMUNITY.CULTURE(84) = "13" World.STATE.COMMUNITY.CULTURE(85) = "13" World.STATE.COMMUNITY.CULTURE(86) = "13" World.STATE.COMMUNITY.CULTURE(87) = "13" World.STATE.COMMUNITY.CULTURE(88) = "14" World.STATE.COMMUNITY.CULTURE(89) = "14" World.STATE.COMMUNITY.CULTURE(90) = "14" World.STATE.COMMUNITY.CULTURE(91) = "14" World.STATE.COMMUNITY.CULTURE(92) = "15" World.STATE.COMMUNITY.CULTURE(93) = "15" World.STATE.COMMUNITY.CULTURE(94) = "15" World.STATE.COMMUNITY.CULTURE(95) = "15" World.STATE.COMMUNITY.CULTURE(96) = "13" World.STATE.COMMUNITY.CULTURE(97) = "13" World.STATE.COMMUNITY.CULTURE(98) = "13" World.STATE.COMMUNITY.CULTURE(99) = "13" World.STATE.COMMUNITY.CULTURE(100) = "14" World.STATE.COMMUNITY.CULTURE(101) = "14" World.STATE.COMMUNITY.CULTURE(102) = "14" World.STATE.COMMUNITY.CULTURE(103) = "14" World.STATE.COMMUNITY.CULTURE(104) = "15" World.STATE.COMMUNITY.CULTURE(105) = "15" World.STATE.COMMUNITY.CULTURE(106) = "15" World.STATE.COMMUNITY.CULTURE(107) = "15" World.STATE.COMMUNITY.CULTURE(108) = "13" World.STATE.COMMUNITY.CULTURE(109) = "13" World.STATE.COMMUNITY.CULTURE(110) = "13" World.STATE.COMMUNITY.CULTURE(111) = "13" World.STATE.COMMUNITY.CULTURE(112) = "14" World.STATE.COMMUNITY.CULTURE(113) = "14" World.STATE.COMMUNITY.CULTURE(114) = "14" World.STATE.COMMUNITY.CULTURE(115) = "14" World.STATE.COMMUNITY.CULTURE(116) = "15" World.STATE.COMMUNITY.CULTURE(117) = "15" World.STATE.COMMUNITY.CULTURE(118) = "15" World.STATE.COMMUNITY.CULTURE(119) = "15" World.STATE.COMMUNITY.CULTURE(120) = "13" World.STATE.COMMUNITY.CULTURE(121) = "13" World.STATE.COMMUNITY.CULTURE(122) = "13" World.STATE.COMMUNITY.CULTURE(123) = "13" World.STATE.COMMUNITY.CULTURE(124) = "14" World.STATE.COMMUNITY.CULTURE(125) = "14" World.STATE.COMMUNITY.CULTURE(126) = "14" World.STATE.COMMUNITY.CULTURE(127) = "14" World.STATE.COMMUNITY.CULTURE(128) = "15" World.STATE.COMMUNITY.CULTURE(129) = "15" World.STATE.COMMUNITY.CULTURE(130) = "15" World.STATE.COMMUNITY.CULTURE(131) = "15" World.STATE.COMMUNITY.CULTURE(132) = "13" World.STATE.COMMUNITY.CULTURE(133) = "13" World.STATE.COMMUNITY.CULTURE(134) = "13" World.STATE.COMMUNITY.CULTURE(135) = "13" World.STATE.COMMUNITY.CULTURE(136) = "14" World.STATE.COMMUNITY.CULTURE(137) = "14" World.STATE.COMMUNITY.CULTURE(138) = "14" World.STATE.COMMUNITY.CULTURE(139) = "14" World.STATE.COMMUNITY.CULTURE(140) = "15" World.STATE.COMMUNITY.CULTURE(141) = "15" World.STATE.COMMUNITY.CULTURE(142) = "15" World.STATE.COMMUNITY.CULTURE(143) = "15" End if //initial color definition For i =0 to 143 If World.State.Community.CULTURE(i) == "10" then World.State.Community.COLOR(i) = RGB(200,200,200) End if If World.State.Community.CULTURE(i) == "11" then World.State.Community.COLOR(i) = RGB(200,230,230) End if If World.State.Community.CULTURE(i) == "12" then World.State.Community.COLOR(i) = RGB(200,170,200) End if If World.State.Community.CULTURE(i) == "13" then World.State.Community.COLOR(i) = RGB(200,200,170) End if If World.State.Community.CULTURE(i) == "14" then World.State.Community.COLOR(i) = RGB(230,200,200) End if If World.State.Community.CULTURE(i) == "15" then World.State.Community.COLOR(i) = RGB(200,230,200) End if next i } Agt_Step{ Dim i As Integer World.ETHNIC_MV = World.NOFREBEL10+World.NOFREBEL11+ World.NOFREBEL12+World.NOFREBEL13+World.NOFREBEL14+World.NOFREBEL15 World.ECUMNCL_MV= World.NOFREBEL_0+World.NOFREBEL_1+ World.NOFREBEL_2+World.NOFREBEL_3+World.NOFREBEL_4+World.NOFREBEL_5 //the end of simulation If World.NOFSTEPS >= 100 then _ExitSimulation() End if World.NOFSTEPS = World.NOFSTEPS + 1 //police mobilized Dim wtd as integer Dim z as integer For z = 1 to World.POLICE wtd = int (rnd() *144) If World.STATE.COMMUNITY.ROYALITY(wtd) == -1 then World.STATE.COMMUNITY.ROYALITY(wtd) = 1 World.NOFREBELS = World.NOFREBELS - 1 If World.STATE.COMMUNITY.REBELMOVEMENT(wtd)== "10" then World.STATE.COMMUNITY.REBELMOVEMENT(wtd) = "0" World.NOFREBEL10 = World.NOFREBEL10 - 1 End if If World.STATE.COMMUNITY.REBELMOVEMENT(wtd)== "11" then World.STATE.COMMUNITY.REBELMOVEMENT(wtd) = "0" World.NOFREBEL11 = World.NOFREBEL11 - 1 End if If World.STATE.COMMUNITY.REBELMOVEMENT(wtd)== "12" then World.STATE.COMMUNITY.REBELMOVEMENT(wtd) = "0" World.NOFREBEL12 = World.NOFREBEL12 - 1 End if If World.STATE.COMMUNITY.REBELMOVEMENT(wtd)== "13" then World.STATE.COMMUNITY.REBELMOVEMENT(wtd) = "0" World.NOFREBEL13 = World.NOFREBEL13 - 1 End if If World.STATE.COMMUNITY.REBELMOVEMENT(wtd)== "14" then World.STATE.COMMUNITY.REBELMOVEMENT(wtd) = "0" World.NOFREBEL14 = World.NOFREBEL14 - 1 End if If World.STATE.COMMUNITY.REBELMOVEMENT(wtd)== "15" then World.STATE.COMMUNITY.REBELMOVEMENT(wtd) = "0" World.NOFREBEL15 = World.NOFREBEL15 - 1 End if If World.STATE.COMMUNITY.REBELMOVEMENT(wtd)== "_0" then World.STATE.COMMUNITY.REBELMOVEMENT(wtd) = "0" World.NOFREBEL_0 = World.NOFREBEL_0 - 1 End if If World.STATE.COMMUNITY.REBELMOVEMENT(wtd)== "_1" then World.STATE.COMMUNITY.REBELMOVEMENT(wtd) = "0" World.NOFREBEL_1 = World.NOFREBEL_1 - 1 End if If World.STATE.COMMUNITY.REBELMOVEMENT(wtd)== "_2" then World.STATE.COMMUNITY.REBELMOVEMENT(wtd) = "0" World.NOFREBEL_2 = World.NOFREBEL_2 - 1 End if If World.STATE.COMMUNITY.REBELMOVEMENT(wtd)== "_3" then World.STATE.COMMUNITY.REBELMOVEMENT(wtd) = "0" World.NOFREBEL_3 = World.NOFREBEL_3 - 1 End if If World.STATE.COMMUNITY.REBELMOVEMENT(wtd)== "_4" then World.STATE.COMMUNITY.REBELMOVEMENT(wtd) = "0" World.NOFREBEL_4 = World.NOFREBEL_4 - 1 End if If World.STATE.COMMUNITY.REBELMOVEMENT(wtd)== "_5" then World.STATE.COMMUNITY.REBELMOVEMENT(wtd) = "0" World.NOFREBEL_5 = World.NOFREBEL_5 - 1 End if If World.STATE.COMMUNITY.REBELMOVEMENT(wtd)== "1_" then World.STATE.COMMUNITY.REBELMOVEMENT(wtd) = "0" World.NOFREBEL1_ = World.NOFREBEL1_ - 1 End if End if Next z } #end_rule WORLD //------------------ エージェントルール --------------- #begin_rule WORLD.STATE.COMMUNITY Agt_Init{ } Agt_Step{ Dim i As Integer Dim j10 As Double Dim j11 As Double Dim j12 As Double Dim j13 As Double Dim j14 As Double Dim j15 As Double Dim j_0 As Double Dim j_1 As Double Dim j_2 As Double Dim j_3 As Double Dim j_4 As Double Dim j_5 As Double Dim j1_ As Double Dim k As Double Dim l As Integer Dim r As Integer Dim n10 As Integer Dim n11 As Integer Dim n12 As Integer Dim n13 As Integer Dim n14 As Integer Dim n15 As Integer Dim n_0 As Integer Dim n_1 As Integer Dim n_2 As Integer Dim n_3 As Integer Dim n_4 As Integer Dim n_5 As Integer Dim n1_ As Integer Dim Neighbor As Collection Dim NeighborCommunity As Object Dim sp10 As Double Dim sp11 As Double Dim sp12 As Double Dim sp13 As Double Dim sp14 As Double Dim sp15 As Double Dim sp_0 As Double Dim sp_1 As Double Dim sp_2 As Double Dim sp_3 As Double Dim sp_4 As Double Dim sp_5 As Double Dim sp1_ As Double // Here Come Rebels! If my.ROYALITY == 1 then //check around its own neighbors n10=0 n11=0 n12=0 n13=0 n14=0 n15=0 n_0=0 n_1=0 n_2=0 n_3=0 n_4=0 n_5=0 n1_=0 Neighbor = _CollectAround (my.X, my.Y,World.VIEW, World.STATE, World.STATE.COMMUNITY) For Each NeighborCommunity In Neighbor If NeighborCommunity.REBELMOVEMENT == "10" then n10 = n10 + 1 End if If NeighborCommunity.REBELMOVEMENT == "11" then n11 = n11 + 1 End if If NeighborCommunity.REBELMOVEMENT == "12" then n12 = n12 + 1 End if If NeighborCommunity.REBELMOVEMENT == "13" then n13 = n13 + 1 End if If NeighborCommunity.REBELMOVEMENT == "14" then n14 = n14 + 1 End if If NeighborCommunity.REBELMOVEMENT == "15" then n15 = n15 + 1 End if If NeighborCommunity.REBELMOVEMENT == "_0" then n_0 = n_0 + 1 End if If NeighborCommunity.REBELMOVEMENT == "_1" then n_1 = n_1 + 1 End if If NeighborCommunity.REBELMOVEMENT == "_2" then n_2 = n_2 + 1 End if If NeighborCommunity.REBELMOVEMENT == "_3" then n_3 = n_3 + 1 End if If NeighborCommunity.REBELMOVEMENT == "_4" then n_4 = n_4 + 1 End if If NeighborCommunity.REBELMOVEMENT == "_5" then n_5 = n_5 + 1 End if If NeighborCommunity.REBELMOVEMENT == "1_" then n1_ = n1_ + 1 End if Next NeighborCommunity //calculate If My.CULTURE == "10" Then sp10 = 1+(World.SPRD*n10*2) sp11 = 0 sp12 = 0 sp13 = 0 sp14 = 0 sp15 = 0 sp_0 = 1+(World.SPRD*n_0*1) sp_1 = 0 sp_2 = 0 sp_3 = 0 sp_4 = 0 sp_5 = 0 sp1_ = 1+(World.SPRD*n1_*1) End if If My.CULTURE == "11" Then sp10 = 0 sp11 = 1+(World.SPRD*n11*2) sp12 = 0 sp13 = 0 sp14 = 0 sp15 = 0 sp_0 = 0 sp_1 = 1+(World.SPRD*n_1*1) sp_2 = 0 sp_3 = 0 sp_4 = 0 sp_5 = 0 sp1_ = 1+(World.SPRD*n1_*1) End if If My.CULTURE == "12" Then sp10 = 0 sp11 = 0 sp12 = 1+(World.SPRD*n12*2) sp13 = 0 sp14 = 0 sp15 = 0 sp_0 = 0 sp_1 = 0 sp_2 = 1+(World.SPRD*n_2*1) sp_3 = 0 sp_4 = 0 sp_5 = 0 sp1_ = 1+(World.SPRD*n1_*1) End if If My.CULTURE == "13" Then sp10 = 0 sp11 = 0 sp12 = 0 sp13 = 1+(World.SPRD*n13*2) sp14 = 0 sp15 = 0 sp_0 = 0 sp_1 = 0 sp_2 = 0 sp_3 = 1+(World.SPRD*n_3*1) sp_4 = 0 sp_5 = 0 sp1_ = 1+(World.SPRD*n1_*1) End if If My.CULTURE == "14" Then sp10 = 0 sp11 = 0 sp12 = 0 sp13 = 0 sp14 = 1+(World.SPRD*n14*2) sp15 = 0 sp_0 = 0 sp_1 = 0 sp_2 = 0 sp_3 = 0 sp_4 = 1+(World.SPRD*n_4*1) sp_5 = 0 sp1_ = 1+(World.SPRD*n1_*1) End if If My.CULTURE == "15" Then sp10 = 0 sp11 = 0 sp12 = 0 sp13 = 0 sp14 = 0 sp15 = 1+(World.SPRD*n15*2) sp_0 = 0 sp_1 = 0 sp_2 = 0 sp_3 = 0 sp_4 = 0 sp_5 = 1+(World.SPRD*n_5*1) sp1_ = 1+(World.SPRD*n1_*1) End if j10=sp10-Rnd()*100 j11=sp11-Rnd()*100 j12=sp12-Rnd()*100 j13=sp13-Rnd()*100 j14=sp14-Rnd()*100 j15=sp15-Rnd()*100 j_0=sp_0-Rnd()*100 j_1=sp_1-Rnd()*100 j_2=sp_2-Rnd()*100 j_3=sp_3-Rnd()*100 j_4=sp_4-Rnd()*100 j_5=sp_5-Rnd()*100 j1_=sp1_-Rnd()*100 //when j10 is the biggest of them.. If j10>=J11 And j10>=j12 And j10>=j13 And j10>=j14 And J10>=j15 And j10>=j_0 And j10>=j_1 And j10>=j_2 And j10>=j_3 And j10>=j_4 And j10>=j_5 And j10>=j1_ And j10>0 Then my.ROYALITY = -1 my.REBELMOVEMENT = "10" World.NOFREBEL10 = World.NOFREBEL10 + 1 World.NOFREBELS = World.NOFREBELS + 1 End if //when j11 is the biggest of them.. If j11>=J10 And j11>=j12 And j11>=j13 And j11>=j14 And j11>=j15 And j11>=j_0 And j11>=j_1 And j11>=j_2 And j11>=j_3 And j11>=j_4 And j11>=j_5 And j11>=j1_ And j11>0 Then my.ROYALITY = -1 my.REBELMOVEMENT = "11" World.NOFREBEL11 = World.NOFREBEL11 + 1 World.NOFREBELS = World.NOFREBELS + 1 End if //when j12 is the biggest of them.. If j12>=J10 And j12>=j11 And j12>=j13 And j12>=j14 And j12>=j15 And j12>=j_0 And j12>=j_1 And j12>=j_2 And j12>=j_3 And j12>=j_4 And j12>=j_5 And j12>=j1_ And j12>0 Then my.ROYALITY = -1 my.REBELMOVEMENT = "12" World.NOFREBEL12 = World.NOFREBEL12 + 1 World.NOFREBELS = World.NOFREBELS + 1 End if //when j13 is the biggest of them.. If j13>=J10 And j13>=j11 And j13>=j12 And j13>=j14 And j13>=j15 And j13>=j_0 And j13>=j_1 And j13>=j_2 And j13>=j_3 And j13>=j_4 And j13>=j_5 And j13>=j1_ And j13>0 Then my.ROYALITY = -1 my.REBELMOVEMENT = "13" World.NOFREBEL13 = World.NOFREBEL13 + 1 World.NOFREBELS = World.NOFREBELS + 1 End if //when j14 is the biggest of them.. If j14>=J10 And j14>=j11 And j14>=j12 And j14>=j13 And j14>=j15 And j14>=j_0 And j14>=j_1 And j14>=j_2 And j14>=j_3 And j14>=j_4 And j14>=j_5 And j14>=j1_ And j14>0 Then my.ROYALITY = -1 my.REBELMOVEMENT = "14" World.NOFREBEL14 = World.NOFREBEL14 + 1 World.NOFREBELS = World.NOFREBELS + 1 End if //when j15 is the biggest of them.. If j15>=J10 And j15>=j11 And j15>=j12 And j15>=j13 And j15>=j14 And j15>=j_0 And j15>=j_1 And j15>=j_2 And j15>=j_3 And j15>=j_4 And j15>=j_5 And j15>=j1_ And j15>0 Then my.ROYALITY = -1 my.REBELMOVEMENT = "15" World.NOFREBEL15 = World.NOFREBEL15 + 1 World.NOFREBELS = World.NOFREBELS + 1 End if //when j_0 is the biggest of them.. If j_0>=J10 And j_0>=j11 And j_0>=j12 And j_0>=j13 And j_0>=j14 And j_0>=j15 And j_0>=j_1 And j_0>=j_2 And j_0>=j_3 And J_0>=j_4 And J_0>=j_5 And j_0>=j1_ And j_0>0 Then my.ROYALITY = -1 my.REBELMOVEMENT = "_0" World.NOFREBEL_0 = World.NOFREBEL_0 + 1 World.NOFREBELS = World.NOFREBELS + 1 End if //when j_1 is the biggest of them.. If j_1>=J10 And j_1>=j11 And j_1>=j12 And j_1>=j13 And j_1>=j14 And j_1>=j15 And j_1>=j_0 And j_1>=j_2 And j_1>=j_3 And j_1>=j_4 And j_1>=j_5 And j_1>=j1_ And j_1>0 Then my.ROYALITY = -1 my.REBELMOVEMENT = "_1" World.NOFREBEL_1 = World.NOFREBEL_1 + 1 World.NOFREBELS = World.NOFREBELS + 1 End if //when j_2 is the biggest of them.. If j_2>=J10 And j_2>=j11 And j_2>=j12 And j_2>=j13 And j_2>=j14 And j_2>=j15 And j_2>=j_0 And j_2>=j_1 And j_2>=j_3 And j_2>=j_4 And j_3>=j_5 And j_2>=j1_ And j_2>0 Then my.ROYALITY = -1 my.REBELMOVEMENT = "_2" World.NOFREBEL_2 = World.NOFREBEL_2 + 1 World.NOFREBELS = World.NOFREBELS + 1 End if //when j_3 is the biggest of them.. If j_3>=J10 And j_3>=j11 And j_3>=j12 And j_3>=j13 And j_3>=j14 And j_3>=j15 And j_3>=j_0 And j_3>=j_1 And j_3>=j_2 And j_3>=j_4 And j_3>=j_5 And j_3>=j1_ And j_3>0 Then my.ROYALITY = -1 my.REBELMOVEMENT = "_3" World.NOFREBEL_3 = World.NOFREBEL_3 + 1 World.NOFREBELS = World.NOFREBELS + 1 End if //when j_4 is the biggest of them.. If j_4>=J10 And j_4>=j11 And j_4>=j12 And j_4>=j13 And j_4>=j14 And j_4>=j15 And j_4>=j_0 And j_4>=j_1 And j_4>=j_2 And j_4>=j_3 And j_4>=j_5 And j_4>=j1_ And j_4>0 Then my.ROYALITY = -1 my.REBELMOVEMENT = "_4" World.NOFREBEL_4 = World.NOFREBEL_4 + 1 World.NOFREBELS = World.NOFREBELS + 1 End if //when j_5 is the biggest of them.. If j_5>=J10 And j_5>=j11 And j_5>=j12 And j_5>=j13 And j_5>=j14 And j_5>=j15 And j_5>=j_0 And j_5>=j_1 And j_5>=j_2 And j_5>=j_3 And j_5>=j_4 And j_5>=j1_ And j_5>0 Then my.ROYALITY = -1 my.REBELMOVEMENT = "_5" World.NOFREBEL_5 = World.NOFREBEL_5 + 1 World.NOFREBELS = World.NOFREBELS + 1 End if //when j1_ is the biggest of them.. If j1_>=J10 And j1_>=j11 And j1_>=j12 And j1_>=j13 And j1_>=j14 And j1_>=j15 And j1_>=j_0 And j1_>=j_1 And j1_>=j_2 And j1_>=j_3 And j1_>=j_4 And j1_>=j_5 And j1_>0 Then my.ROYALITY = -1 my.REBELMOVEMENT = "1_" World.NOFREBEL1_ = World.NOFREBEL1_ + 1 World.NOFREBELS = World.NOFREBELS + 1 End if End if If my.ROYALITY == -1 then //check around its own neighbors n10=0 n11=0 n12=0 n13=0 n14=0 n15=0 n_0=0 n_1=0 n_2=0 n_3=0 n_4=0 n_5=0 n1_=0 Neighbor = _CollectAround (my.X, my.Y,World.VIEW, World.STATE, World.STATE.COMMUNITY) For Each NeighborCommunity In Neighbor If NeighborCommunity.REBELMOVEMENT == "10" then n10 = n10 + 1 End if If NeighborCommunity.REBELMOVEMENT == "11" then n11 = n11 + 1 End if If NeighborCommunity.REBELMOVEMENT == "12" then n12 = n12 + 1 End if If NeighborCommunity.REBELMOVEMENT == "13" then n13 = n13 + 1 End if If NeighborCommunity.REBELMOVEMENT == "14" then n14 = n14 + 1 End if If NeighborCommunity.REBELMOVEMENT == "15" then n15 = n15 + 1 End if If NeighborCommunity.REBELMOVEMENT == "_0" then n_0 = n_0 + 1 End if If NeighborCommunity.REBELMOVEMENT == "_1" then n_1 = n_1 + 1 End if If NeighborCommunity.REBELMOVEMENT == "_2" then n_2 = n_2 + 1 End if If NeighborCommunity.REBELMOVEMENT == "_3" then n_3 = n_3 + 1 End if If NeighborCommunity.REBELMOVEMENT == "_4" then n_4 = n_4 + 1 End if If NeighborCommunity.REBELMOVEMENT == "_5" then n_5 = n_5 + 1 End if If NeighborCommunity.REBELMOVEMENT == "1_" then n1_ = n1_ + 1 End if Next NeighborCommunity //calculate If My.CULTURE == "10" Then sp10 = 1+(World.SPRD*n10*2) sp11 = 0 sp12 = 0 sp13 = 0 sp14 = 0 sp15 = 0 sp_0 = 1+(World.SPRD*n_0*1) sp_1 = 0 sp_2 = 0 sp_3 = 0 sp_4 = 0 sp_5 = 0 sp1_ = 1+(World.SPRD*n1_*1) End if If My.CULTURE == "11" Then sp10 = 0 sp11 = 1+(World.SPRD*n11*2) sp12 = 0 sp13 = 0 sp14 = 0 sp15 = 0 sp_0 = 0 sp_1 = 1+(World.SPRD*n_1*1) sp_2 = 0 sp_3 = 0 sp_4 = 0 sp_5 = 0 sp1_ = 1+(World.SPRD*n1_*1) End if If My.CULTURE == "12" Then sp10 = 0 sp11 = 0 sp12 = 1+(World.SPRD*n12*2) sp13 = 0 sp14 = 0 sp15 = 0 sp_0 = 0 sp_1 = 0 sp_2 = 1+(World.SPRD*n_2*1) sp_3 = 0 sp_4 = 0 sp_5 = 0 sp1_ = 1+(World.SPRD*n1_*1) End if If My.CULTURE == "13" Then sp10 = 0 sp11 = 0 sp12 = 0 sp13 = 1+(World.SPRD*n13*2) sp14 = 0 sp15 = 0 sp_0 = 0 sp_1 = 0 sp_2 = 0 sp_3 = 1+(World.SPRD*n_3*1) sp_4 = 0 sp_5 = 0 sp1_ = 1+(World.SPRD*n1_*1) End if If My.CULTURE == "14" Then sp10 = 0 sp11 = 0 sp12 = 0 sp13 = 0 sp14 = 1+(World.SPRD*n14*2) sp15 = 0 sp_0 = 0 sp_1 = 0 sp_2 = 0 sp_3 = 0 sp_4 = 1+(World.SPRD*n_4*1) sp_5 = 0 sp1_ = 1+(World.SPRD*n1_*1) End if If My.CULTURE == "15" Then sp10 = 0 sp11 = 0 sp12 = 0 sp13 = 0 sp14 = 0 sp15 = 1+(World.SPRD*n15*2) sp_0 = 0 sp_1 = 0 sp_2 = 0 sp_3 = 0 sp_4 = 0 sp_5 = 1+(World.SPRD*n_5*1) sp1_ = 1+(World.SPRD*n1_*1) End if If My.REBELMOVEMENT == "10" then sp10=sp10+World.INERTIA End if If My.REBELMOVEMENT == "11" then sp11=sp11+World.INERTIA End if If My.REBELMOVEMENT == "12" then sp12=sp12+World.INERTIA End if If My.REBELMOVEMENT == "13" then sp13=sp13+World.INERTIA End if If My.REBELMOVEMENT == "14" then sp14=sp14+World.INERTIA End if If My.REBELMOVEMENT == "15" then sp15=sp15+World.INERTIA End if If My.REBELMOVEMENT == "_0" then sp_0=sp_0+World.INERTIA End if If My.REBELMOVEMENT == "_1" then sp_1=sp_1+World.INERTIA End if If My.REBELMOVEMENT == "_2" then sp_2=sp_2+World.INERTIA End if If My.REBELMOVEMENT == "_3" then sp_3=sp_3+World.INERTIA End if If My.REBELMOVEMENT == "_4" then sp_4=sp_4+World.INERTIA End if If My.REBELMOVEMENT == "_5" then sp_5=sp_5+World.INERTIA End if If My.REBELMOVEMENT == "1_" then sp1_=sp1_+World.INERTIA End if j10=sp10-Rnd()*100 j11=sp11-Rnd()*100 j12=sp12-Rnd()*100 j13=sp13-Rnd()*100 j14=sp14-Rnd()*100 j15=sp15-Rnd()*100 j_0=sp_0-Rnd()*100 j_1=sp_1-Rnd()*100 j_2=sp_2-Rnd()*100 j_3=sp_3-Rnd()*100 j_4=sp_4-Rnd()*100 j_5=sp_5-Rnd()*100 j1_=sp1_-Rnd()*100 //when j10 is the biggest of them.. If j10>=J11 And j10>=j12 And j10>=j13 And j10>=j14 And J10>=j15 And j10>=j_0 And j10>=j_1 And j10>=j_2 And j10>=j_3 And j10>=j_4 And j10>=j_5 And j10>=j1_ And j10>0 Then If my.REBELMOVEMENT == "10" then World.NOFREBEL10 = World.NOFREBEL10-1 End if If my.REBELMOVEMENT == "11" then World.NOFREBEL11 = World.NOFREBEL11-1 End if If my.REBELMOVEMENT == "12" then World.NOFREBEL12 = World.NOFREBEL12-1 End if If my.REBELMOVEMENT == "13" then World.NOFREBEL13 = World.NOFREBEL13-1 End if If my.REBELMOVEMENT == "14" then World.NOFREBEL14 = World.NOFREBEL14-1 End if If my.REBELMOVEMENT == "15" then World.NOFREBEL15 = World.NOFREBEL15-1 End if If my.REBELMOVEMENT == "_0" then World.NOFREBEL_0 = World.NOFREBEL_0-1 End if If my.REBELMOVEMENT == "_1" then World.NOFREBEL_1 = World.NOFREBEL_1-1 End if If my.REBELMOVEMENT == "_2" then World.NOFREBEL_2 = World.NOFREBEL_2-1 End if If my.REBELMOVEMENT == "_3" then World.NOFREBEL_3 = World.NOFREBEL_3-1 End if If my.REBELMOVEMENT == "_4" then World.NOFREBEL_4 = World.NOFREBEL_4-1 End if If my.REBELMOVEMENT == "_5" then World.NOFREBEL_5 = World.NOFREBEL_5-1 End if If my.REBELMOVEMENT == "1_" then World.NOFREBEL1_ = World.NOFREBEL1_-1 End if my.REBELMOVEMENT = "10" World.NOFREBEL10 = World.NOFREBEL10 + 1 End if //when j11 is the biggest of them.. If j11>=J10 And j11>=j12 And j11>=j13 And j11>=j14 And j11>=j15 And j11>=j_0 And j11>=j_1 And j11>=j_2 And j11>=j_3 And j11>=j_4 And j11>=j_5 And j11>=j1_ And j11>0 Then If my.REBELMOVEMENT == "10" then World.NOFREBEL10 = World.NOFREBEL10-1 End if If my.REBELMOVEMENT == "11" then World.NOFREBEL11 = World.NOFREBEL11-1 End if If my.REBELMOVEMENT == "12" then World.NOFREBEL12 = World.NOFREBEL12-1 End if If my.REBELMOVEMENT == "13" then World.NOFREBEL13 = World.NOFREBEL13-1 End if If my.REBELMOVEMENT == "14" then World.NOFREBEL14 = World.NOFREBEL14-1 End if If my.REBELMOVEMENT == "15" then World.NOFREBEL15 = World.NOFREBEL15-1 End if If my.REBELMOVEMENT == "_0" then World.NOFREBEL_0 = World.NOFREBEL_0-1 End if If my.REBELMOVEMENT == "_1" then World.NOFREBEL_1 = World.NOFREBEL_1-1 End if If my.REBELMOVEMENT == "_2" then World.NOFREBEL_2 = World.NOFREBEL_2-1 End if If my.REBELMOVEMENT == "_3" then World.NOFREBEL_3 = World.NOFREBEL_3-1 End if If my.REBELMOVEMENT == "_4" then World.NOFREBEL_4 = World.NOFREBEL_4-1 End if If my.REBELMOVEMENT == "_5" then World.NOFREBEL_5 = World.NOFREBEL_5-1 End if If my.REBELMOVEMENT == "1_" then World.NOFREBEL1_ = World.NOFREBEL1_-1 End if my.REBELMOVEMENT = "11" World.NOFREBEL11 = World.NOFREBEL11 + 1 End if //when j12 is the biggest of them.. If j12>=J10 And j12>=j11 And j12>=j13 And j12>=j14 And j12>=j15 And j12>=j_0 And j12>=j_1 And j12>=j_2 And j12>=j_3 And j12>=j_4 And j12>=j_5 And j12>=j1_ And j12>0 Then If my.REBELMOVEMENT == "10" then World.NOFREBEL10 = World.NOFREBEL10-1 End if If my.REBELMOVEMENT == "11" then World.NOFREBEL11 = World.NOFREBEL11-1 End if If my.REBELMOVEMENT == "12" then World.NOFREBEL12 = World.NOFREBEL12-1 End if If my.REBELMOVEMENT == "13" then World.NOFREBEL13 = World.NOFREBEL13-1 End if If my.REBELMOVEMENT == "14" then World.NOFREBEL14 = World.NOFREBEL14-1 End if If my.REBELMOVEMENT == "15" then World.NOFREBEL15 = World.NOFREBEL15-1 End if If my.REBELMOVEMENT == "_0" then World.NOFREBEL_0 = World.NOFREBEL_0-1 End if If my.REBELMOVEMENT == "_1" then World.NOFREBEL_1 = World.NOFREBEL_1-1 End if If my.REBELMOVEMENT == "_2" then World.NOFREBEL_2 = World.NOFREBEL_2-1 End if If my.REBELMOVEMENT == "_3" then World.NOFREBEL_3 = World.NOFREBEL_3-1 End if If my.REBELMOVEMENT == "_4" then World.NOFREBEL_4 = World.NOFREBEL_4-1 End if If my.REBELMOVEMENT == "_5" then World.NOFREBEL_5 = World.NOFREBEL_5-1 End if If my.REBELMOVEMENT == "1_" then World.NOFREBEL1_ = World.NOFREBEL1_-1 End if my.REBELMOVEMENT = "12" World.NOFREBEL12 = World.NOFREBEL12 + 1 End if //when j13 is the biggest of them.. If j13>=J10 And j13>=j11 And j13>=j12 And j13>=j14 And j13>=j15 And j13>=j_0 And j13>=j_1 And j13>=j_2 And j13>=j_3 And j13>=j_4 And j13>=j_5 And j13>=j1_ And j13>0 Then If my.REBELMOVEMENT == "10" then World.NOFREBEL10 = World.NOFREBEL10-1 End if If my.REBELMOVEMENT == "11" then World.NOFREBEL11 = World.NOFREBEL11-1 End if If my.REBELMOVEMENT == "12" then World.NOFREBEL12 = World.NOFREBEL12-1 End if If my.REBELMOVEMENT == "13" then World.NOFREBEL13 = World.NOFREBEL13-1 End if If my.REBELMOVEMENT == "14" then World.NOFREBEL14 = World.NOFREBEL14-1 End if If my.REBELMOVEMENT == "15" then World.NOFREBEL15 = World.NOFREBEL15-1 End if If my.REBELMOVEMENT == "_0" then World.NOFREBEL_0 = World.NOFREBEL_0-1 End if If my.REBELMOVEMENT == "_1" then World.NOFREBEL_1 = World.NOFREBEL_1-1 End if If my.REBELMOVEMENT == "_2" then World.NOFREBEL_2 = World.NOFREBEL_2-1 End if If my.REBELMOVEMENT == "_3" then World.NOFREBEL_3 = World.NOFREBEL_3-1 End if If my.REBELMOVEMENT == "_4" then World.NOFREBEL_4 = World.NOFREBEL_4-1 End if If my.REBELMOVEMENT == "_5" then World.NOFREBEL_5 = World.NOFREBEL_5-1 End if If my.REBELMOVEMENT == "1_" then World.NOFREBEL1_ = World.NOFREBEL1_-1 End if my.REBELMOVEMENT = "13" World.NOFREBEL13 = World.NOFREBEL13 + 1 End if //when j14 is the biggest of them.. If j14>=J10 And j14>=j11 And j14>=j12 And j14>=j13 And j14>=j15 And j14>=j_0 And j14>=j_1 And j14>=j_2 And j14>=j_3 And j14>=j_4 And j14>=j_5 And j14>=j1_ And j14>0 Then If my.REBELMOVEMENT == "10" then World.NOFREBEL10 = World.NOFREBEL10-1 End if If my.REBELMOVEMENT == "11" then World.NOFREBEL11 = World.NOFREBEL11-1 End if If my.REBELMOVEMENT == "12" then World.NOFREBEL12 = World.NOFREBEL12-1 End if If my.REBELMOVEMENT == "13" then World.NOFREBEL13 = World.NOFREBEL13-1 End if If my.REBELMOVEMENT == "14" then World.NOFREBEL14 = World.NOFREBEL14-1 End if If my.REBELMOVEMENT == "15" then World.NOFREBEL15 = World.NOFREBEL15-1 End if If my.REBELMOVEMENT == "_0" then World.NOFREBEL_0 = World.NOFREBEL_0-1 End if If my.REBELMOVEMENT == "_1" then World.NOFREBEL_1 = World.NOFREBEL_1-1 End if If my.REBELMOVEMENT == "_2" then World.NOFREBEL_2 = World.NOFREBEL_2-1 End if If my.REBELMOVEMENT == "_3" then World.NOFREBEL_3 = World.NOFREBEL_3-1 End if If my.REBELMOVEMENT == "_4" then World.NOFREBEL_4 = World.NOFREBEL_4-1 End if If my.REBELMOVEMENT == "_5" then World.NOFREBEL_5 = World.NOFREBEL_5-1 End if If my.REBELMOVEMENT == "1_" then World.NOFREBEL1_ = World.NOFREBEL1_-1 End if my.REBELMOVEMENT = "14" World.NOFREBEL14 = World.NOFREBEL14 + 1 End if //when j15 is the biggest of them.. If j15>=J10 And j15>=j11 And j15>=j12 And j15>=j13 And j15>=j14 And j15>=j_0 And j15>=j_1 And j15>=j_2 And j15>=j_3 And j15>=j_4 And j15>=j_5 And j15>=j1_ And j15>0 Then If my.REBELMOVEMENT == "10" then World.NOFREBEL10 = World.NOFREBEL10-1 End if If my.REBELMOVEMENT == "11" then World.NOFREBEL11 = World.NOFREBEL11-1 End if If my.REBELMOVEMENT == "12" then World.NOFREBEL12 = World.NOFREBEL12-1 End if If my.REBELMOVEMENT == "13" then World.NOFREBEL13 = World.NOFREBEL13-1 End if If my.REBELMOVEMENT == "14" then World.NOFREBEL14 = World.NOFREBEL14-1 End if If my.REBELMOVEMENT == "15" then World.NOFREBEL15 = World.NOFREBEL15-1 End if If my.REBELMOVEMENT == "_0" then World.NOFREBEL_0 = World.NOFREBEL_0-1 End if If my.REBELMOVEMENT == "_1" then World.NOFREBEL_1 = World.NOFREBEL_1-1 End if If my.REBELMOVEMENT == "_2" then World.NOFREBEL_2 = World.NOFREBEL_2-1 End if If my.REBELMOVEMENT == "_3" then World.NOFREBEL_3 = World.NOFREBEL_3-1 End if If my.REBELMOVEMENT == "_4" then World.NOFREBEL_4 = World.NOFREBEL_4-1 End if If my.REBELMOVEMENT == "_5" then World.NOFREBEL_5 = World.NOFREBEL_5-1 End if If my.REBELMOVEMENT == "1_" then World.NOFREBEL1_ = World.NOFREBEL1_-1 End if my.REBELMOVEMENT = "15" World.NOFREBEL15 = World.NOFREBEL15 + 1 End if //when j_0 is the biggest of them.. If j_0>=J10 And j_0>=j11 And j_0>=j12 And j_0>=j13 And j_0>=j14 And j_0>=j15 And j_0>=j_1 And j_0>=j_2 And j_0>=j_3 And J_0>=j_4 And J_0>=j_5 And j_0>=j1_ And j_0>0 Then If my.REBELMOVEMENT == "10" then World.NOFREBEL10 = World.NOFREBEL10-1 End if If my.REBELMOVEMENT == "11" then World.NOFREBEL11 = World.NOFREBEL11-1 End if If my.REBELMOVEMENT == "12" then World.NOFREBEL12 = World.NOFREBEL12-1 End if If my.REBELMOVEMENT == "13" then World.NOFREBEL13 = World.NOFREBEL13-1 End if If my.REBELMOVEMENT == "14" then World.NOFREBEL14 = World.NOFREBEL14-1 End if If my.REBELMOVEMENT == "15" then World.NOFREBEL15 = World.NOFREBEL15-1 End if If my.REBELMOVEMENT == "_0" then World.NOFREBEL_0 = World.NOFREBEL_0-1 End if If my.REBELMOVEMENT == "_1" then World.NOFREBEL_1 = World.NOFREBEL_1-1 End if If my.REBELMOVEMENT == "_2" then World.NOFREBEL_2 = World.NOFREBEL_2-1 End if If my.REBELMOVEMENT == "_3" then World.NOFREBEL_3 = World.NOFREBEL_3-1 End if If my.REBELMOVEMENT == "_4" then World.NOFREBEL_4 = World.NOFREBEL_4-1 End if If my.REBELMOVEMENT == "_5" then World.NOFREBEL_5 = World.NOFREBEL_5-1 End if If my.REBELMOVEMENT == "1_" then World.NOFREBEL1_ = World.NOFREBEL1_-1 End if my.REBELMOVEMENT = "_0" World.NOFREBEL_0 = World.NOFREBEL_0 + 1 End if //when j_1 is the biggest of them.. If j_1>=J10 And j_1>=j11 And j_1>=j12 And j_1>=j13 And j_1>=j14 And j_1>=j15 And j_1>=j_0 And j_1>=j_2 And j_1>=j_3 And j_1>=j_4 And j_1>=j_5 And j_1>=j1_ And j_1>0 Then If my.REBELMOVEMENT == "10" then World.NOFREBEL10 = World.NOFREBEL10-1 End if If my.REBELMOVEMENT == "11" then World.NOFREBEL11 = World.NOFREBEL11-1 End if If my.REBELMOVEMENT == "12" then World.NOFREBEL12 = World.NOFREBEL12-1 End if If my.REBELMOVEMENT == "13" then World.NOFREBEL13 = World.NOFREBEL13-1 End if If my.REBELMOVEMENT == "14" then World.NOFREBEL14 = World.NOFREBEL14-1 End if If my.REBELMOVEMENT == "15" then World.NOFREBEL15 = World.NOFREBEL15-1 End if If my.REBELMOVEMENT == "_0" then World.NOFREBEL_0 = World.NOFREBEL_0-1 End if If my.REBELMOVEMENT == "_1" then World.NOFREBEL_1 = World.NOFREBEL_1-1 End if If my.REBELMOVEMENT == "_2" then World.NOFREBEL_2 = World.NOFREBEL_2-1 End if If my.REBELMOVEMENT == "_3" then World.NOFREBEL_3 = World.NOFREBEL_3-1 End if If my.REBELMOVEMENT == "_4" then World.NOFREBEL_4 = World.NOFREBEL_4-1 End if If my.REBELMOVEMENT == "_5" then World.NOFREBEL_5 = World.NOFREBEL_5-1 End if If my.REBELMOVEMENT == "1_" then World.NOFREBEL1_ = World.NOFREBEL1_-1 End if my.REBELMOVEMENT = "_1" World.NOFREBEL_1 = World.NOFREBEL_1 + 1 End if //when j_2 is the biggest of them.. If j_2>=J10 And j_2>=j11 And j_2>=j12 And j_2>=j13 And j_2>=j14 And j_2>=j15 And j_2>=j_0 And j_2>=j_1 And j_2>=j_3 And j_2>=j_4 And j_3>=j_5 And j_2>=j1_ And j_2>0 Then If my.REBELMOVEMENT == "10" then World.NOFREBEL10 = World.NOFREBEL10-1 End if If my.REBELMOVEMENT == "11" then World.NOFREBEL11 = World.NOFREBEL11-1 End if If my.REBELMOVEMENT == "12" then World.NOFREBEL12 = World.NOFREBEL12-1 End if If my.REBELMOVEMENT == "13" then World.NOFREBEL13 = World.NOFREBEL13-1 End if If my.REBELMOVEMENT == "14" then World.NOFREBEL14 = World.NOFREBEL14-1 End if If my.REBELMOVEMENT == "15" then World.NOFREBEL15 = World.NOFREBEL15-1 End if If my.REBELMOVEMENT == "_0" then World.NOFREBEL_0 = World.NOFREBEL_0-1 End if If my.REBELMOVEMENT == "_1" then World.NOFREBEL_1 = World.NOFREBEL_1-1 End if If my.REBELMOVEMENT == "_2" then World.NOFREBEL_2 = World.NOFREBEL_2-1 End if If my.REBELMOVEMENT == "_3" then World.NOFREBEL_3 = World.NOFREBEL_3-1 End if If my.REBELMOVEMENT == "_4" then World.NOFREBEL_4 = World.NOFREBEL_4-1 End if If my.REBELMOVEMENT == "_5" then World.NOFREBEL_5 = World.NOFREBEL_5-1 End if If my.REBELMOVEMENT == "1_" then World.NOFREBEL1_ = World.NOFREBEL1_-1 End if my.REBELMOVEMENT = "_2" World.NOFREBEL_2 = World.NOFREBEL_2 + 1 End if //when j_3 is the biggest of them.. If j_3>=J10 And j_3>=j11 And j_3>=j12 And j_3>=j13 And j_3>=j14 And j_3>=j15 And j_3>=j_0 And j_3>=j_1 And j_3>=j_2 And j_3>=j_4 And j_3>=j_5 And j_3>=j1_ And j_3>0 Then If my.REBELMOVEMENT == "10" then World.NOFREBEL10 = World.NOFREBEL10-1 End if If my.REBELMOVEMENT == "11" then World.NOFREBEL11 = World.NOFREBEL11-1 End if If my.REBELMOVEMENT == "12" then World.NOFREBEL12 = World.NOFREBEL12-1 End if If my.REBELMOVEMENT == "13" then World.NOFREBEL13 = World.NOFREBEL13-1 End if If my.REBELMOVEMENT == "14" then World.NOFREBEL14 = World.NOFREBEL14-1 End if If my.REBELMOVEMENT == "15" then World.NOFREBEL15 = World.NOFREBEL15-1 End if If my.REBELMOVEMENT == "_0" then World.NOFREBEL_0 = World.NOFREBEL_0-1 End if If my.REBELMOVEMENT == "_1" then World.NOFREBEL_1 = World.NOFREBEL_1-1 End if If my.REBELMOVEMENT == "_2" then World.NOFREBEL_2 = World.NOFREBEL_2-1 End if If my.REBELMOVEMENT == "_3" then World.NOFREBEL_3 = World.NOFREBEL_3-1 End if If my.REBELMOVEMENT == "_4" then World.NOFREBEL_4 = World.NOFREBEL_4-1 End if If my.REBELMOVEMENT == "_5" then World.NOFREBEL_5 = World.NOFREBEL_5-1 End if If my.REBELMOVEMENT == "1_" then World.NOFREBEL1_ = World.NOFREBEL1_-1 End if my.REBELMOVEMENT = "_3" World.NOFREBEL_3 = World.NOFREBEL_3 + 1 End if //when j_4 is the biggest of them.. If j_4>=J10 And j_4>=j11 And j_4>=j12 And j_4>=j13 And j_4>=j14 And j_4>=j15 And j_4>=j_0 And j_4>=j_1 And j_4>=j_2 And j_4>=j_3 And j_4>=j_5 And j_4>=j1_ And j_4>0 Then If my.REBELMOVEMENT == "10" then World.NOFREBEL10 = World.NOFREBEL10-1 End if If my.REBELMOVEMENT == "11" then World.NOFREBEL11 = World.NOFREBEL11-1 End if If my.REBELMOVEMENT == "12" then World.NOFREBEL12 = World.NOFREBEL12-1 End if If my.REBELMOVEMENT == "13" then World.NOFREBEL13 = World.NOFREBEL13-1 End if If my.REBELMOVEMENT == "14" then World.NOFREBEL14 = World.NOFREBEL14-1 End if If my.REBELMOVEMENT == "15" then World.NOFREBEL15 = World.NOFREBEL15-1 End if If my.REBELMOVEMENT == "_0" then World.NOFREBEL_0 = World.NOFREBEL_0-1 End if If my.REBELMOVEMENT == "_1" then World.NOFREBEL_1 = World.NOFREBEL_1-1 End if If my.REBELMOVEMENT == "_2" then World.NOFREBEL_2 = World.NOFREBEL_2-1 End if If my.REBELMOVEMENT == "_3" then World.NOFREBEL_3 = World.NOFREBEL_3-1 End if If my.REBELMOVEMENT == "_4" then World.NOFREBEL_4 = World.NOFREBEL_4-1 End if If my.REBELMOVEMENT == "_5" then World.NOFREBEL_5 = World.NOFREBEL_5-1 End if If my.REBELMOVEMENT == "1_" then World.NOFREBEL1_ = World.NOFREBEL1_-1 End if my.REBELMOVEMENT = "_4" World.NOFREBEL_4 = World.NOFREBEL_4 + 1 End if //when j_5 is the biggest of them.. If j_5>=J10 And j_5>=j11 And j_5>=j12 And j_5>=j13 And j_5>=j14 And j_5>=j15 And j_5>=j_0 And j_5>=j_1 And j_5>=j_2 And j_5>=j_3 And j_5>=j_4 And j_5>=j1_ And j_5>0 Then If my.REBELMOVEMENT == "10" then World.NOFREBEL10 = World.NOFREBEL10-1 End if If my.REBELMOVEMENT == "11" then World.NOFREBEL11 = World.NOFREBEL11-1 End if If my.REBELMOVEMENT == "12" then World.NOFREBEL12 = World.NOFREBEL12-1 End if If my.REBELMOVEMENT == "13" then World.NOFREBEL13 = World.NOFREBEL13-1 End if If my.REBELMOVEMENT == "14" then World.NOFREBEL14 = World.NOFREBEL14-1 End if If my.REBELMOVEMENT == "15" then World.NOFREBEL15 = World.NOFREBEL15-1 End if If my.REBELMOVEMENT == "_0" then World.NOFREBEL_0 = World.NOFREBEL_0-1 End if If my.REBELMOVEMENT == "_1" then World.NOFREBEL_1 = World.NOFREBEL_1-1 End if If my.REBELMOVEMENT == "_2" then World.NOFREBEL_2 = World.NOFREBEL_2-1 End if If my.REBELMOVEMENT == "_3" then World.NOFREBEL_3 = World.NOFREBEL_3-1 End if If my.REBELMOVEMENT == "_4" then World.NOFREBEL_4 = World.NOFREBEL_4-1 End if If my.REBELMOVEMENT == "_5" then World.NOFREBEL_5 = World.NOFREBEL_5-1 End if If my.REBELMOVEMENT == "1_" then World.NOFREBEL1_ = World.NOFREBEL1_-1 End if my.REBELMOVEMENT = "_5" World.NOFREBEL_5 = World.NOFREBEL_5 + 1 End if //when j1_ is the biggest of them.. If j1_>=J10 And j1_>=j11 And j1_>=j12 And j1_>=j13 And j1_>=j14 And j1_>=j15 And j1_>=j_0 And j1_>=j_1 And j1_>=j_2 And j1_>=j_3 And j1_>=j_4 And j1_>=j_5 And j1_>0 Then If my.REBELMOVEMENT == "10" then World.NOFREBEL10 = World.NOFREBEL10-1 End if If my.REBELMOVEMENT == "11" then World.NOFREBEL11 = World.NOFREBEL11-1 End if If my.REBELMOVEMENT == "12" then World.NOFREBEL12 = World.NOFREBEL12-1 End if If my.REBELMOVEMENT == "13" then World.NOFREBEL13 = World.NOFREBEL13-1 End if If my.REBELMOVEMENT == "14" then World.NOFREBEL14 = World.NOFREBEL14-1 End if If my.REBELMOVEMENT == "15" then World.NOFREBEL15 = World.NOFREBEL15-1 End if If my.REBELMOVEMENT == "_0" then World.NOFREBEL_0 = World.NOFREBEL_0-1 End if If my.REBELMOVEMENT == "_1" then World.NOFREBEL_1 = World.NOFREBEL_1-1 End if If my.REBELMOVEMENT == "_2" then World.NOFREBEL_2 = World.NOFREBEL_2-1 End if If my.REBELMOVEMENT == "_3" then World.NOFREBEL_3 = World.NOFREBEL_3-1 End if If my.REBELMOVEMENT == "_4" then World.NOFREBEL_4 = World.NOFREBEL_4-1 End if If my.REBELMOVEMENT == "_5" then World.NOFREBEL_5 = World.NOFREBEL_5-1 End if If my.REBELMOVEMENT == "1_" then World.NOFREBEL1_ = World.NOFREBEL1_-1 End if my.REBELMOVEMENT = "1_" World.NOFREBEL1_ = World.NOFREBEL1_ + 1 End if End if //color definition If My.ROYALITY == 1 then If My.CULTURE == "10" then My.COLOR = RGB(200,200,200) End if If My.CULTURE == "11" then My.COLOR = RGB(200,230,230) End if If My.CULTURE == "12" then My.COLOR = RGB(200,170,200) End if If My.CULTURE == "13" then My.COLOR = RGB(200,200,170) End if If My.CULTURE == "14" then My.COLOR = RGB(230,200,200) End if If My.CULTURE == "15" then My.COLOR = RGB(200,230,200) End if End if If MY.ROYALITY == -1 then If My.REBELMOVEMENT =="10" then My.COLOR = RGB(200,0,0) End if If My.REBELMOVEMENT =="11" then My.COLOR = RGB(200,0,200) End if If My.REBELMOVEMENT =="12" then My.COLOR = RGB(250,0,100) End if If My.REBELMOVEMENT =="13" then My.COLOR = RGB(200,0,150) End if If My.REBELMOVEMENT =="14" then My.COLOR = RGB(200,0,50) End if If My.REBELMOVEMENT =="15" then My.COLOR = RGB(200,0,250) End if If My.REBELMOVEMENT =="_0" then My.COLOR = RGB(0,0,200) End if If My.REBELMOVEMENT =="_1" then My.COLOR = RGB(0,150,250) End if If My.REBELMOVEMENT =="_2" then My.COLOR = RGB(0,100,250) End if If My.REBELMOVEMENT =="_3" then My.COLOR = RGB(0,150,150) End if If My.REBELMOVEMENT =="_4" then My.COLOR = RGB(0,200,200) End if If My.REBELMOVEMENT =="_5" then My.COLOR = RGB(0,150,200) End if If My.REBELMOVEMENT =="1_" then My.COLOR = RGB(0,200,0) End if End if } #end_rule WORLD.STATE.COMMUNITY //------------------ シミュレーション設定部 --------------- SINGLE_SIMULATION { STEP_MAX = 0; TIME_MAX = 0; END_CONDITION = ""; EXEC_WAIT = 0; EXEC_ORDER = RANDOM; RANDOM_SEED = 0; LOG_FILE = "",SEREIAL_NO,OVERWRITE,0; } //------------------ ループ設定部 --------------- REPEAT_SIMULATION { VALUE_CHANGE = NONE; REPEAT_MAX = 1; VARIABLES = ""; START_VALUE = 0.000000; STEP_VALUE = 1.000000; END_VALUE = 1.000000; EXEC_TIMES_SAME = 1; RANDOM_RANGE = 0.000000, 1.000000; SAME_VALUE = YES; EXEC_TIMES_DIFFERENT = 1; } //------------------ 二次元マップ表示出力設定部 --------------- MAP_OUTPUT { MAP_SPACE_NAME = "WORLD.STATE"; MAP_NAME = "STATE"; TITLE = "STATE"; AXIS_LABEL = "", ""; DRAW_RANGE = 0, 0, 11, 11; RULED_LINE = NO; REMARKS = NO; SPACE_KIND = SQUARE_2D; BG_PICT = NO; BG_TYPE = 0; BG_VAR_NAME = ""; BG_FILE_NAME = ""; DISABLE = NO; POSITION_X = 217; POSITION_Y = 1; SIZE_X = 538; SIZE_Y = 233; OUTPUT { MAP_ELEMENT_NAME = "COMMUNITY"; MAP_ELEMENT = AGENT_VARIABLE; OUTPUT_EXPRESSION = "WORLD.STATE.COMMUNITY"; SPACE_DRAW_RANGE = 0.000000, 0.000000; SPACE_COLOR_MIN = 255,255,255; SPACE_COLOR_MAX = 0,0,255; AGENT_COLOR = "WORLD.STATE.COMMUNITY.COLOR"; MARKER_ID = 2; ICON_TYPE = 0; ICON_VAR_NAME = ""; ICON_FILE_NAME = ""; MAP_COLOR = 0,0,0; NUM_DISPLAY = NO; NUM_VAR_NAME = ""; } } //------------------ 数値画面出力設定部 --------------- NUMERIC_OUTPUT { NUMERIC_NAME = "Number output"; TITLE = ""; DISABLE = NO; POSITION_X = 0; POSITION_Y = -1; SIZE_X = 217; SIZE_Y = 445; OUTPUT { OUTPUT_ELEMENT_NAME = "Number of Steps"; FIGURES = 0; FORMAT_ID = 0; OUTPUT_EXPRESSION = "World.NOFSTEPS"; } OUTPUT { OUTPUT_ELEMENT_NAME = "Number of Rebels_All"; FIGURES = 0; FORMAT_ID = 0; OUTPUT_EXPRESSION = "World.NOFREBELS"; } OUTPUT { OUTPUT_ELEMENT_NAME = "Number of Rebel10"; FIGURES = 0; FORMAT_ID = 0; OUTPUT_EXPRESSION = "World.NOFREBEL10"; } OUTPUT { OUTPUT_ELEMENT_NAME = "Number of Rebel11"; FIGURES = 0; FORMAT_ID = 0; OUTPUT_EXPRESSION = "World.NOFREBEL11"; } OUTPUT { OUTPUT_ELEMENT_NAME = "Number of Rebel12"; FIGURES = 0; FORMAT_ID = 0; OUTPUT_EXPRESSION = "World.NOFREBEL12"; } OUTPUT { OUTPUT_ELEMENT_NAME = "Number of Rebel13"; FIGURES = 0; FORMAT_ID = 0; OUTPUT_EXPRESSION = "World.NOFREBEL13"; } OUTPUT { OUTPUT_ELEMENT_NAME = "Number of Rebel14"; FIGURES = 0; FORMAT_ID = 0; OUTPUT_EXPRESSION = "World.NOFREBEL14"; } OUTPUT { OUTPUT_ELEMENT_NAME = "Number of Rebel15"; FIGURES = 0; FORMAT_ID = 0; OUTPUT_EXPRESSION = "World.NOFREBEL15"; } OUTPUT { OUTPUT_ELEMENT_NAME = "Number of Rebel_0"; FIGURES = 0; FORMAT_ID = 0; OUTPUT_EXPRESSION = "World.NOFREBEL_0"; } OUTPUT { OUTPUT_ELEMENT_NAME = "Number of Rebel_1"; FIGURES = 0; FORMAT_ID = 0; OUTPUT_EXPRESSION = "World.NOFREBEL_1"; } OUTPUT { OUTPUT_ELEMENT_NAME = "Number of Rebel_2"; FIGURES = 0; FORMAT_ID = 0; OUTPUT_EXPRESSION = "World.NOFREBEL_2"; } OUTPUT { OUTPUT_ELEMENT_NAME = "Number of Rebel_3"; FIGURES = 0; FORMAT_ID = 0; OUTPUT_EXPRESSION = "World.NOFREBEL_3"; } OUTPUT { OUTPUT_ELEMENT_NAME = "Number of Rebel_4"; FIGURES = 0; FORMAT_ID = 0; OUTPUT_EXPRESSION = "World.NOFREBEL_4"; } OUTPUT { OUTPUT_ELEMENT_NAME = "Number of Rebel_5"; FIGURES = 0; FORMAT_ID = 0; OUTPUT_EXPRESSION = "World.NOFREBEL_5"; } OUTPUT { OUTPUT_ELEMENT_NAME = "Number of Rebel1_"; FIGURES = 0; FORMAT_ID = 0; OUTPUT_EXPRESSION = "World.NOFREBEL1_"; } } //------------------ 時系列グラフ出力設定部 --------------- TIME_GRAPH { GRAPH_NAME = "time-series graph_1"; TITLE = ""; AXIS_LABEL = "", ""; SCALE = 0.000000, 0.000000, 1000.000000, 1.000000, 0.000000, 0.000000; REMARKS = YES; DISABLE = NO; POSITION_X = 219; POSITION_Y = 232; SIZE_X = 536; SIZE_Y = 212; OUTPUT { GRAPH_ELEMENT_NAME = "ETHNIC"; LINE_COLOR = 0,0,255; LINE_WIDTH = 0; MARKER_ID = 0; OUTPUT_EXPRESSION = "World.ETHNIC_MV"; } OUTPUT { GRAPH_ELEMENT_NAME = "NATIONAL"; LINE_COLOR = 0,255,0; LINE_WIDTH = 0; MARKER_ID = 0; OUTPUT_EXPRESSION = "World.NOFREBEL1_"; } OUTPUT { GRAPH_ELEMENT_NAME = "ECUMENCL"; LINE_COLOR = 255,128,128; LINE_WIDTH = 0; MARKER_ID = 0; OUTPUT_EXPRESSION = "World.ECUMNCL_MV"; } } //------------------ コントロールパネルデータ設定部 --------------- CONTROL_PANEL { PANEL_ITEM { ITEM_NAME = "N of ETHINICITIES"; ITEM_TYPE = SLIDER; VAR_NAME = WORLD.ETHNICITIES; CONTROL_ON = NO; CONTROL_ON_INT = 1; CONTROL_ON_DOUBLE = 0.000000; CONTROL_ON_STRING = ""; CONTROL_OFF = NO; CONTROL_OFF_INT = 0; CONTROL_OFF_DOUBLE = 0.000000; CONTROL_OFF_STRING = ""; SLIDER_RANGE_MAX = 2; SLIDER_VALUE_MIN = 2.000000; SLIDER_VALUE_STEP = 2.000000; } PANEL_ITEM { ITEM_NAME = "SPRD"; ITEM_TYPE = SLIDER; VAR_NAME = WORLD.SPRD; CONTROL_ON = NO; CONTROL_ON_INT = 1; CONTROL_ON_DOUBLE = 0.000000; CONTROL_ON_STRING = ""; CONTROL_OFF = NO; CONTROL_OFF_INT = 0; CONTROL_OFF_DOUBLE = 0.000000; CONTROL_OFF_STRING = ""; SLIDER_RANGE_MAX = 4; SLIDER_VALUE_MIN = 0.000000; SLIDER_VALUE_STEP = 2.000000; } PANEL_ITEM { ITEM_NAME = "VIEW"; ITEM_TYPE = SLIDER; VAR_NAME = WORLD.VIEW; CONTROL_ON = NO; CONTROL_ON_INT = 1; CONTROL_ON_DOUBLE = 0.000000; CONTROL_ON_STRING = ""; CONTROL_OFF = NO; CONTROL_OFF_INT = 0; CONTROL_OFF_DOUBLE = 0.000000; CONTROL_OFF_STRING = ""; SLIDER_RANGE_MAX = 4; SLIDER_VALUE_MIN = 0.000000; SLIDER_VALUE_STEP = 1.000000; } PANEL_ITEM { ITEM_NAME = "POLICE"; ITEM_TYPE = SLIDER; VAR_NAME = WORLD.POLICE; CONTROL_ON = NO; CONTROL_ON_INT = 1; CONTROL_ON_DOUBLE = 0.000000; CONTROL_ON_STRING = ""; CONTROL_OFF = NO; CONTROL_OFF_INT = 0; CONTROL_OFF_DOUBLE = 0.000000; CONTROL_OFF_STRING = ""; SLIDER_RANGE_MAX = 6; SLIDER_VALUE_MIN = 0.000000; SLIDER_VALUE_STEP = 5.000000; } PANEL_ITEM { ITEM_NAME = "INERTIA"; ITEM_TYPE = SLIDER; VAR_NAME = WORLD.INERTIA; CONTROL_ON = NO; CONTROL_ON_INT = 1; CONTROL_ON_DOUBLE = 0.000000; CONTROL_ON_STRING = ""; CONTROL_OFF = NO; CONTROL_OFF_INT = 0; CONTROL_OFF_DOUBLE = 0.000000; CONTROL_OFF_STRING = ""; SLIDER_RANGE_MAX = 5; SLIDER_VALUE_MIN = 0.000000; SLIDER_VALUE_STEP = 20.000000; } } //------------------ 説明用ＨＴＭＬテキスト --------------- #begin_html #end_html //------------------ 空間初期値データ設定部 --------------- SPACE_INITIAL { } //------------------ レポート出力情報設定部 --------------- REPORT_INFO { REPORT_NAME = ""; FIELD_DELIMITER = " "; } //------------------ その他のデータ設定部 --------------- OTHERS_DATA { INDENT = 1; FONT_NAME = "Courier New"; FONT_WIDTH = 0; FONT_HEIGHT = -13; FONT_WEIGHT = 200; FONT_ITALIC = 0; FONT_CHARSET = 128; WINDOW_HIDE_RUN = 0; POSITION_X = 32178667; POSITION_Y = 105841146; SIZE_X = 195593444; SIZE_Y = 20055455; } //------------------ 再生用ログデータ ---------------