set_norm_class.m

来自「多智能体工具包」· M 代码 · 共 93 行

function Class=set_norm_class(Class,Class_Matrix_Size,Class_Id)
% SET_NORM_CLASS	Set the content of ENVIRONMENT for CLASS matrix.

%     Copyright (c) 1997-2000 Jiming Liu and Jianbing Wu

global Region_Num Total_Cell_Num;

if Class_Id==1

   Row_Begin=get_begin_row(Class,Class_Id);

  % ----- Behavoir Parameter ------
   Behavior_Para=ones(Region_Num,1);

   Row_End=Row_Begin+Class_Matrix_Size(1,1)-1;
   Col_Begin=1+1;    % from the second Colum
   Col_End=Col_Begin+Class_Matrix_Size(1,2)-1;
   Class(Row_Begin:Row_End,Col_Begin:Col_End)=Behavior_Para;

  % ----- Goal_Id ------
   Goal_Id=[1];               % modify by user
   Row_End=Row_Begin+Class_Matrix_Size(2,1)-1;
   Col_Begin=1+Class_Matrix_Size(1,2)+1;
   Col_End=Col_Begin+Class_Matrix_Size(2,2)-1;
   Class(Row_Begin:Row_End,Col_Begin:Col_End)=Goal_Id;

  % ----- Class Characteristcs ------
   Character=[Total_Cell_Num 255 0 0]';   % modify by user

   Row_End=Row_Begin+Class_Matrix_Size(3,1)-1;
   Col_Begin=1+Class_Matrix_Size(1,2)+Class_Matrix_Size(2,2)+1;
   Col_End=Col_Begin+Class_Matrix_Size(3,2)-1;
   Class(Row_Begin:Row_End,Col_Begin:Col_End)=Character;
end

if Class_Id==2

   Row_Begin=get_begin_row(Class,Class_Id);

  % ----- Behavoir Parameter ------
   Behavior_Para=zeros(Region_Num,1);

   Row_End=Row_Begin+Class_Matrix_Size(1,1)-1;
   Col_Begin=1+1;
   Col_End=Col_Begin+Class_Matrix_Size(1,2)-1;
   Class(Row_Begin:Row_End,Col_Begin:Col_End)=Behavior_Para;

  % ----- Goal_Id ------
   Goal_Id=[2];               % modify by user
   Row_End=Row_Begin+Class_Matrix_Size(2,1)-1;
   Col_Begin=1+Class_Matrix_Size(1,2)+1;
   Col_End=Col_Begin+Class_Matrix_Size(2,2)-1;

   Class(Row_Begin:Row_End,Col_Begin:Col_End)=Goal_Id;

  % ----- Class Characteristcs ------
   Character=[0 0 0 255]';   % modify by user

   Row_End=Row_Begin+Class_Matrix_Size(3,1)-1;
   Col_Begin=1+Class_Matrix_Size(1,2)+Class_Matrix_Size(2,2)+1;
   Col_End=Col_Begin+Class_Matrix_Size(3,2)-1;
   Class(Row_Begin:Row_End,Col_Begin:Col_End)=Character;
end

if Class_Id==3

   Row_Begin=get_begin_row(Class,Class_Id);

  % ----- Behavoir Parameter ------
   Behavior_Para=-1*ones(Region_Num,1);

   Row_End=Row_Begin+Class_Matrix_Size(1,1)-1;
   Col_Begin=1+1;
   Col_End=Col_Begin+Class_Matrix_Size(1,2)-1;
   Class(Row_Begin:Row_End,Col_Begin:Col_End)=Behavior_Para;

  % ----- Goal_Id ------
   Goal_Id=[-1];               % modify by user
   Row_End=Row_Begin+Class_Matrix_Size(2,1)-1;
   Col_Begin=1+Class_Matrix_Size(1,2)+1;
   Col_End=Col_Begin+Class_Matrix_Size(2,2)-1;

   Class(Row_Begin:Row_End,Col_Begin:Col_End)=Goal_Id;

  % ----- Class Characteristcs ------
   Character=[1 255 255 255]';   % modify by user

   Row_End=Row_Begin+Class_Matrix_Size(3,1)-1;
   Col_Begin=1+Class_Matrix_Size(1,2)+Class_Matrix_Size(2,2)+1;
   Col_End=Col_Begin+Class_Matrix_Size(3,2)-1;
   Class(Row_Begin:Row_End,Col_Begin:Col_End)=Character;
end