Kohonen/kohonen_prototype_utilities [ Modules ]
NAME
MODULE kohonen_pattern_utilities
PURPOSE
This module defines a class for kohonen prototype (units inside kohonen layers)
AUTHOR
Oscar Garcia-Cabrejo NOTES
MODIFICATION HISTORY
kohonen_prototype_utilities/kohonen_prototype [ Classes ]
[ Top ] [ kohonen_prototype_utilities ] [ Classes ]
NAME
kohonen_prototype
PURPOSE
Class to store a prototype inside a Kohonen map
METHODS
contains
!
procedure :: create => kohonen_prototype_constructor
procedure :: destroy => kohonen_prototype_destructor
procedure :: get_prototype => kohonen_prototype_accessor
procedure :: set_prototype => kohonen_prototype_mutator
procedure :: print => kohonen_prototype_print
procedure :: distance => kohonen_prototype_distance
procedure :: get_nrow => kohonen_prototype_nrow
procedure :: get_ncol => kohonen_prototype_ncol
!
end type kohonen_prototype
kohonen_prototype_utilities/kohonen_prototype_accessor [ Functions ]
[ Top ] [ kohonen_prototype_utilities ] [ Functions ]
NAME
kohonen_prototype_accessor
PURPOSE
Acccessor
SYNOPSIS
!======================================================================================== subroutine kohonen_prototype_accessor(prototype,d) !======================================================================================== class(kohonen_prototype) :: prototype real(kind=8),dimension(prototype%number_rows,prototype%number_columns) :: d
kohonen_prototype_utilities/kohonen_prototype_constructor [ Functions ]
[ Top ] [ kohonen_prototype_utilities ] [ Functions ]
NAME
kohonen_prototype_constructor
PURPOSE
Constructor
SYNOPSIS
!======================================================================================== subroutine kohonen_prototype_constructor(prototype,input_data) !======================================================================================== class(kohonen_prototype) :: prototype real(kind=8),dimension(:,:) :: input_data
kohonen_prototype_utilities/kohonen_prototype_destructor [ Functions ]
[ Top ] [ kohonen_prototype_utilities ] [ Functions ]
NAME
kohonen_prototype_destructor
PURPOSE
Destructor
SYNOPSIS
!======================================================================================== subroutine kohonen_prototype_destructor(prototype) !======================================================================================== class(kohonen_prototype),intent(inout) :: prototype
kohonen_prototype_utilities/kohonen_prototype_mutator [ Functions ]
[ Top ] [ kohonen_prototype_utilities ] [ Functions ]
NAME
kohonen_prototype_mutator
PURPOSE
Mutator
SYNOPSIS
!======================================================================================== subroutine kohonen_prototype_mutator(prototype,new_data) !======================================================================================== class(kohonen_prototype) :: prototype real(kind=8),dimension(:,:),intent(inout) :: new_data
kohonen_prototype_utilities/kohonen_prototype_print [ Functions ]
[ Top ] [ kohonen_prototype_utilities ] [ Functions ]
NAME
kohonen_prototype_print
PURPOSE
Function to print a kohonen prototype
SYNOPSIS
!======================================================================================== subroutine kohonen_prototype_print(prototype,unit_) !======================================================================================== class(kohonen_prototype) :: prototype integer,intent(inout),optional :: unit_