Newer
Older
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
//
// Created by fluffymoo on 11.6.18.
//
#ifndef INC_4NEURO_NEURONLOGISTIC_H
#define INC_4NEURO_NEURONLOGISTIC_H
class NeuronLogistic {
};
#endif //INC_4NEURO_NEURONLOGISTIC_H
/*
!-------------------------!--------------------------------------------------------------------
! class logistic_neuron_t !
!-------------------------!
!> Logistic neuron class - uses generalised logistic function as an activation function
!! in the form f(x) = (1 + e^(-x))^(-alpha),
!! 'x' being the neuron potential here
type, extends(neuron_t) :: logistic_neuron_t
private
real(kind=real_4neuro) :: alpha_coef !< The alpha coefficient used in the activation function
contains
!> Activation function - generalised logistic f.
procedure, private :: activate => logistic_activate_impl
end type logistic_neuron_t
interface logistic_neuron_t
!> Non-parametric constructor of logistic_neuron_t class
!! Alpha coefficient is set to 1
!! @return An instance of the class logistic_neuron_t
module procedure :: new_logistic_neuron
!> Constructor of the logistic_neuron_t class
!! @param[in] alpha_coef Alpha coefficient in the logistic activation function
!! @return An instance of the class logistic_neuron_t
module procedure :: new_logistic_neuron_1
end interface logistic_neuron_t
*/