Commit 7d515d30 authored by Stanislav Paláček's avatar Stanislav Paláček

v1.2

Přidán AGEKF
parent 7cebaa0d
cmake_minimum_required(VERSION 3.12)
project(neuron4dyn LANGUAGES Fortran)
set(CMAKE_CXX_STANDARD 14)
set(dialect "-fdefault-real-8 -fopenmp")
if(${CMAKE_Fortran_COMPILER_ID} STREQUAL "Intel")
set(dialect "-r8")
if(NOT CMAKE_Fortran_FLAGS_RELEASE)
set(CMAKE_Fortran_FLAGS_RELEASE "-O2 -xhost" CACHE STRING "" FORCE)
endif()
set(CMAKE_Fortran_FLAGS_DEBUG "${CMAKE_Fortran_FLAGS_DEBUG} -check noarg_temp_created -C -traceback" CACHE STRING "" FORCE)
set(CMAKE_Fortran_FLAGS_DEBUGHEAVY "${CMAKE_Fortran_FLAGS_DEBUG} -check noarg_temp_created -fpe0 -warn alignments -warn declarations -warn general -warn interfaces -warn truncated_source -warn uncalled -warn uninitialized -warn usage -common_args -warn unused -fp-stack-check -check bounds -check uninit -check format" CACHE STRING "" FORCE)
mark_as_advanced(CMAKE_Fortran_FLAGS_DEBUGHEAVY)
set(CMAKE_Fortran_FLAGS "${CMAKE_Fortran_FLAGS} ${dialect}")
add_executable(ineuron4dyn src/mod_randomnumbers.f90 src/neurondatatypes.f90 src/neuronka.f90 src/neuron4dyn.f90)
endif()
if(${CMAKE_Fortran_COMPILER_ID} STREQUAL "GNU")
set(dialect "-fdefault-real-8 -fopenmp -O2")
set(CMAKE_Fortran_FLAGS "${CMAKE_Fortran_FLAGS} ${dialect}")
set(CMAKE_Fortran_FLAGS "${CMAKE_Fortran_FLAGS} ${dialect}")
add_executable(neuron4dyn src/mod_randomnumbers.f90 src/neurondatatypes.f90 src/neuronka.f90 src/neuron4dyn.f90)
endif()
add_executable(neuron4dyn src/mod_randomnumbers.f90 src/neurondatatypes.f90 src/neuronka.f90 src/neuron4dyn.f90)
......@@ -37,4 +37,4 @@ Přidat:
parallel tempering
Zkusit druhé mocniny vzdáleností u N2He
Dodělat AGEKF
......@@ -10,7 +10,9 @@ program neuron4dyn
type(learn_dataset) :: ucicidata,kontrolnidata
type(dataset) :: vycislenisite
real :: dx,xdolni,xhorni
integer :: nprvkukrivka
integer :: nprvkukrivka
!Interface pro subroutinu inicializace:
!*********************************************************************************
......@@ -83,7 +85,7 @@ program neuron4dyn
if (.not. a%vycislidata) then
!call backpropagation3(a,ucicidata,kontrolnidata,sigmoid,linear,dsigmoid,dlinear,kvchybfun,gradkvchybfun)
call GEKF(a,ucicidata,kontrolnidata,sigmoid,linear,dsigmoid,dlinear,kvchybfun,gradkvchybfun)
call AGEKF(a,ucicidata,kontrolnidata,sigmoid,linear,dsigmoid,dlinear,kvchybfun,gradkvchybfun)
call ulozvahy(a)
!call simulated_annealing(a,ucicidata,kontrolnidata,sigmoid,linear,kvchybfun)
!call ulozvahy(a,inisoubor)
......
This diff is collapsed.
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment