//====================================================================/
// /
// KK-Multi Agent Simulator for Java /
// /
//====================================================================/
Version = 1.0;
//-------------------------------------------------------
// Component Tree
//-------------------------------------------------------
UNIVERSE {
Space 空間(10,10),Square_2D(50, 68, !Loop, North, 1){
AgtType 人(10, 10)[0] {
Dim X(10, 10) As Double = (0.0);
Dim Y(100, 10) As Double = (0.0);
Dim Direction(190, 10) As Double = (0.0);
Dim Layer(0, 0) As Integer = (0);
}
AgtType 人2(10, 10)[0] {
Dim X(10, 10) As Double = (0.0);
Dim Y(100, 10) As Double = (0.0);
Dim Direction(190, 10) As Double = (0.0);
Dim Layer(0, 0) As Integer = (0);
}
Dim 高さ(0, 0)[50][68][1] As Integer = ();
}
Dim 人2の数(10, 10) As Integer = (0);
}
//-------------------------------------------------------
// Agent Variable Initial Data
//-------------------------------------------------------
Initial_Value {
UNIVERSE.人2の数 = 1(5);
UNIVERSE.空間.高さ = 1(3400*0);
}
//-------------------------------------------------------
// Agent Rule
//-------------------------------------------------------
#begin_rule UNIVERSE
Univ_Init{
Dim 人の集合 As AgtSet
Dim 人の集合2 As AgtSet
Dim i As Integer
// 人の生成
CreateAgt(Universe.空間.人)
// 人2の生成
For i=1 To Universe.人2の数
CreateAgt(Universe.空間.人2)
Next i
MakeAgtSet(人の集合, Universe.空間.人)
MakeAgtSet(人の集合2, Universe.空間.人2)
MergeAgtSet(人の集合, 人の集合2)
RandomPutAgtSetCell(人の集合, False)
}
Univ_Step_Begin{
}
Univ_Step_End{
}
Univ_Finish{
}
#end_rule UNIVERSE
//-------------------------------------------------------
// Agent Rule
//-------------------------------------------------------
#begin_rule UNIVERSE.空間.人
Agt_Init{
// 方向を決める
My.Direction = 360 * Rnd()
}
Agt_Step{
Dim 歩幅 As Double
// 方向を変える
Turn(180 * Rnd() - 90)
// 前へ進む
歩幅 = 255/(Universe.空間.高さ(My.X, My.Y)+1)
歩幅 = 歩幅 / 2
Forward(歩幅)
}
#end_rule UNIVERSE.空間.人
//-------------------------------------------------------
// Agent Rule
//-------------------------------------------------------
#begin_rule UNIVERSE.空間.人2
Agt_Init{
// 方向を決める
My.Direction = 360 * Rnd()
}
Agt_Step{
Dim 歩幅 As Double
Dim col As AgtSet
Dim n As Integer
// 方向を変える
Turn(180 * Rnd() - 90)
// 一歩前へ
歩幅 = 255/(Universe.空間.高さ(My.X, My.Y)+1)
歩幅 = 歩幅 / 2
Forward(歩幅)
MakeOneAgtSetAroundOwn(col, 1, Universe.空間.人, False)
n = CountAgtSet(col)
If n > 0 Then
終了処理()
End If
}
Sub 終了処理()
{
// ファイル出力
OpenFileCSV("count.txt", 1, 3) // ファイル１を追記モードでオープン
WriteFileCSV(1, "最終カウント数 = ", false) // 書き出し
WriteFileCSV(1, GetCountStep(), true) // 書き出し（改行付き）
CloseFileCSV(1) // クローズ
// 終了メッセージ表示
ExitSimulationMsg("逮捕！")
}
#end_rule UNIVERSE.空間.人2
//-------------------------------------------------------
// Simulation Definition Division
//-------------------------------------------------------
Single_Simulation {
Step_Max = 0;
Time_Max = 0;
End_Condition = "";
Exec_Wait = 0;
Exec_Order = Random;
Exec_Order_Random_First_Step_Only = No;
Random_Seed = 0;
Log_File = "", Fixed, Append, 0;
Replay_Log_File = "", Fixed, Append, 0;
Redraw_Timing = Step;
Redraw_Interval = 0;
Garbage_Interval = 10;
}
//-------------------------------------------------------
// Simulation Loop Definition Division
//-------------------------------------------------------
Repeat_Simulation {
Value_Change = None;
Repeat_Max = 1;
}
//-------------------------------------------------------
// 2 Dimension Map Display Definition Division
//-------------------------------------------------------
Map_Output {
Map_Space_Name = "Universe.空間";
Map_Name = "マップ";
Font_Name = "Dialog";
Font_Char_Set = 0;
Font_Size = 12.0;
Font_Style = 0;
Font_Color = 0, 0, 0;
Font_Background_Color = 255, 255, 255;
Title = "空間";
Axis_Label = "", "";
Draw_Range = 0, 0, 49, 67;
Ruled_Line = No;
Remarks = Yes;
Legend_Pos = Top;
Background_Color = 0, 0, 0;
Background_Transparent = No;
Target_Layer = 0;
Coordinate_Display = No;
Space_Kind = Square_2D;
BG_Pict = No;
BG_Type = 0;
BG_Var_Name = "";
BG_File_Name = "yama.gif";
Disable = No;
Position_x = 257;
Position_y = 2;
Size_x = 534;
Size_y = 447;
Origin_Position = 1;
Output {
Map_Element_Name = "逃亡";
Map_Element = Agent_Variable;
Output_Expression = "UNIVERSE.空間.人";
Draw_Line = No;
Collection_Name = "";
Line_Type = 0;
Line_Arrow = 0;
Line_Width = 0;
Line_Color = 0, 0, 0;
Agent_Color = 0,0,255;
Marker_Id = 4;
Icon_Type = 0;
Icon_Var_Name = "";
Icon_Transparent = No;
Icon_Enlarg_Reduce = No;
Icon_File_Name = "";
Num_Display = No;
Num_Var_Name = "";
}
Output {
Map_Element_Name = "追跡";
Map_Element = Agent_Variable;
Output_Expression = "UNIVERSE.空間.人2";
Draw_Line = No;
Collection_Name = "";
Line_Type = 0;
Line_Arrow = 0;
Line_Width = 0;
Line_Color = 0, 0, 0;
Agent_Color = 255,0,0;
Marker_Id = 1;
Icon_Type = 0;
Icon_Var_Name = "";
Icon_Transparent = No;
Icon_Enlarg_Reduce = No;
Icon_File_Name = "";
Num_Display = No;
Num_Var_Name = "";
}
}
//-------------------------------------------------------
// Control Panel Definition Division
//-------------------------------------------------------
Control_Panel {
Display_Area = 768, 121, 163, 108;
Panel_Item {
Item_Type = Slider;
Item_Name = "追跡者の数";
Display_Area = 0, 0, 0, 0;
Font_Name = "";
Font_Char_Set = 0;
Font_Size = 0.0;
Font_Style = 0;
Font_Color = 0, 0, 0;
Font_Background_Color = 0, 0, 0;
Var_Name = UNIVERSE.人2の数;
Slider_Range_Max = 9;
Slider_Value_Min = 1.0;
Slider_Value_Step = 1.0;
Slider_Value = "4";
}
}
//-------------------------------------------------------
// Space Initial Value Definition Divsion
//-------------------------------------------------------
Space_Initial {
Space_Item {
Compo_Path_Name = "Universe.空間.高さ";
Marker_Id = 1;
Compo_Kind = Compo_Var;
Space_Color_Min = 255, 255, 255;
Space_Color_Max = 0, 0, 255;
Space_Draw_Range = 0.0, 255.0;
Space_Display = 0;
}
}
//-------------------------------------------------------
// Other Miscellaneous Data Definition Division
//-------------------------------------------------------
Others_Data {
Indent = 4;
Rule_Colored = Yes;
Font_Name = "Dialog";
Font_Char_Set = 0;
Font_Size = 12.0;
Font_Style = 0;
Font_Color = 0, 0, 0;
Font_Background_Color = 255, 255, 255;
Window_Hide_Run = 1;
Debug_Position_x = 75;
Debug_Position_y = 75;
Debug_Size_x = 400;
Debug_Size_y = 200;
Console_Position_x = 2;
Console_Position_y = 389;
Console_Size_x = 600;
Console_Size_y = 205;
}