examples

Author: jalvesz

doc/specs/stdlib_specialfunctions_activations.md

@@ -33,6 +33,11 @@ Elemental function
 
 The function returns a value with the same type and kind as input argument.
 
+### Example
+```fortran
+{!example/specialfunctions_activations/example_gaussian.f90!}
+```
+
 ## `Gaussian_grad` - Gradient of the Gaussian function
 
 ### Status
@@ -94,6 +99,11 @@ Elemental function
 
 The function returns a value with the same type and kind as input argument.
 
+### Example
+```fortran
+{!example/specialfunctions_activations/example_elu.f90!}
+```
+
 ## `Elu_grad` - Gradient of the Exponential Linear Unit function
 
 ### Status
@@ -155,6 +165,11 @@ Elemental function
 
 The function returns a value with the same type and kind as input argument.
 
+### Example
+```fortran
+{!example/specialfunctions_activations/example_relu.f90!}
+```
+
 ## `Relu_grad` - Gradient of the Rectified Linear Unit function
 
 ### Status
@@ -215,6 +230,11 @@ Elemental function
 
 The function returns a value with the same type and kind as input argument.
 
+### Example
+```fortran
+{!example/specialfunctions_activations/example_gelu.f90!}
+```
+
 ## `Gelu_grad` - Gradient of the Gaussian Error Linear Unit function
 
 ### Status
@@ -335,6 +355,11 @@ Elemental function
 
 The function returns a value with the same type and kind as input argument.
 
+### Example
+```fortran
+{!example/specialfunctions_activations/example_selu.f90!}
+```
+
 ## `selu_grad` - Gradient of the Scaled Exponential Linear Unit function
 
 ### Status
@@ -449,6 +474,11 @@ Elemental function
 
 The function returns a value with the same type and kind as input argument.
 
+### Example
+```fortran
+{!example/specialfunctions_activations/example_silu.f90!}
+```
+
 ## `Silu_grad` - Gradient of the Sigmoid Linear Unit function
 
 ### Status

example/specialfunctions_activations/CMakeLists.txt

@@ -0,0 +1,6 @@
+ADD_EXAMPLE(elu)
+ADD_EXAMPLE(gaussian)
+ADD_EXAMPLE(gelu)
+ADD_EXAMPLE(relu)
+ADD_EXAMPLE(selu)
+ADD_EXAMPLE(silu)

example/specialfunctions_activations/example_elu.f90

@@ -0,0 +1,13 @@
+program example_elu
+    use stdlib_kinds, only: sp
+    use stdlib_math, only: linspace
+    use stdlib_specialfunctions, only: elu
+    
+    integer, parameter :: n = 10
+    real(sp) :: x(n), y(n)
+    implicit none
+  
+    x = linspace(-2._sp, 2._sp, n)
+    y = elu( x , 1.0 )
+end program example_elu
+  

example/specialfunctions_activations/example_gaussian.f90

@@ -0,0 +1,13 @@
+program example_gaussian
+    use stdlib_kinds, only: sp
+    use stdlib_math, only: linspace
+    use stdlib_specialfunctions, only: gaussian
+    
+    integer, parameter :: n = 10
+    real(sp) :: x(n), y(n)
+    implicit none
+  
+    x = linspace(-2._sp, 2._sp, n)
+    y = gaussian( x )
+end program example_gaussian
+  

example/specialfunctions_activations/example_gelu.f90

@@ -0,0 +1,13 @@
+program example_gelu
+    use stdlib_kinds, only: sp
+    use stdlib_math, only: linspace
+    use stdlib_specialfunctions, only: gelu
+    
+    integer, parameter :: n = 10
+    real(sp) :: x(n), y(n)
+    implicit none
+  
+    x = linspace(-2._sp, 2._sp, n)
+    y = gelu( x )
+end program example_gelu
+  

example/specialfunctions_activations/example_relu.f90

@@ -0,0 +1,13 @@
+program example_relu
+    use stdlib_kinds, only: sp
+    use stdlib_math, only: linspace
+    use stdlib_specialfunctions, only: relu
+    
+    integer, parameter :: n = 10
+    real(sp) :: x(n), y(n)
+    implicit none
+  
+    x = linspace(-2._sp, 2._sp, n)
+    y = relu( x , 1.0 )
+end program example_relu
+  

example/specialfunctions_activations/example_selu.f90

@@ -0,0 +1,13 @@
+program example_selu
+    use stdlib_kinds, only: sp
+    use stdlib_math, only: linspace
+    use stdlib_specialfunctions, only: selu
+    
+    integer, parameter :: n = 10
+    real(sp) :: x(n), y(n)
+    implicit none
+  
+    x = linspace(-2._sp, 2._sp, n)
+    y = selu( x )
+end program example_selu
+  

example/specialfunctions_activations/example_silu.f90

@@ -0,0 +1,13 @@
+program example_silu
+    use stdlib_kinds, only: sp
+    use stdlib_math, only: linspace
+    use stdlib_specialfunctions, only: silu
+    
+    integer, parameter :: n = 10
+    real(sp) :: x(n), y(n)
+    implicit none
+  
+    x = linspace(-2._sp, 2._sp, n)
+    y = silu( x )
+end program example_silu
+