| 1 | #
|
|---|
| 2 | # MoleCuilder - creates and alters molecular systems
|
|---|
| 3 | # Copyright (C) 2013 University of Bonn
|
|---|
| 4 | # Copyright (C) 2013 Frederik Heber
|
|---|
| 5 | #
|
|---|
| 6 | # This program is free software: you can redistribute it and/or modify
|
|---|
| 7 | # it under the terms of the GNU General Public License as published by
|
|---|
| 8 | # the Free Software Foundation, either version 3 of the License, or
|
|---|
| 9 | # (at your option) any later version.
|
|---|
| 10 | #
|
|---|
| 11 | # This program is distributed in the hope that it will be useful,
|
|---|
| 12 | # but WITHOUT ANY WARRANTY; without even the implied warranty of
|
|---|
| 13 | # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
|---|
| 14 | # GNU General Public License for more details.
|
|---|
| 15 | #
|
|---|
| 16 | # You should have received a copy of the GNU General Public License
|
|---|
| 17 | # along with this program. If not, see <http://www.gnu.org/licenses/>.
|
|---|
| 18 | #
|
|---|
| 19 | ### fit some potentials
|
|---|
| 20 |
|
|---|
| 21 | AT_SETUP([Fragmentation - Fit morse potential to water])
|
|---|
| 22 | AT_KEYWORDS([fragmentation fit-potential morse])
|
|---|
| 23 | AT_SKIP_IF([../../molecuilder --help --actionname fit-potential; if test $? -eq 5; then /bin/true; else /bin/false; fi])
|
|---|
| 24 |
|
|---|
| 25 | file=length_homology.dat
|
|---|
| 26 | AT_CHECK([/bin/cp -f ${abs_top_srcdir}/tests/regression/Fragmentation/FitPotential/pre/$file $file], 0)
|
|---|
| 27 | AT_CHECK([chmod u+w $file], 0, [ignore], [ignore])
|
|---|
| 28 | AT_CHECK([../../molecuilder --fit-potential --potential-type "morse" --homology-file $file --potential-charges 8 1 --fragment-charges 1 8 1 --take-best-of 5], 0, [stdout], [ignore])
|
|---|
| 29 | # check that L_2 error is below 1e-6
|
|---|
| 30 | AT_CHECK([grep "Best parameters with L2 error" stdout | awk '{if ($8 > 1e-6) exit 1}'], 0, [ignore], [ignore])
|
|---|
| 31 | # check parameters to printed precision
|
|---|
| 32 | AT_CHECK([grep "morse:.*particle_type1=8,.*particle_type2=1,.*spring_constant=1.27.*,.*equilibrium_distance=1.78.*,.*dissociation_energy=0.19.*;" stdout], 0, [ignore], [ignore])
|
|---|
| 33 |
|
|---|
| 34 | AT_CLEANUP
|
|---|
| 35 |
|
|---|
| 36 | AT_SETUP([Fragmentation - Fit harmonic_angle potential to water])
|
|---|
| 37 | AT_KEYWORDS([fragmentation fit-potential harmonic_angle])
|
|---|
| 38 | AT_SKIP_IF([../../molecuilder --help --actionname fit-potential; if test $? -eq 5; then /bin/true; else /bin/false; fi])
|
|---|
| 39 |
|
|---|
| 40 | file=angle_homology.dat
|
|---|
| 41 | AT_CHECK([/bin/cp -f ${abs_top_srcdir}/tests/regression/Fragmentation/FitPotential/pre/$file $file], 0)
|
|---|
| 42 | AT_CHECK([chmod u+w $file], 0, [ignore], [ignore])
|
|---|
| 43 | AT_CHECK([../../molecuilder --fit-potential --potential-type "harmonic_angle" --homology-file $file --potential-charges 1 8 1 --fragment-charges 1 8 1 --take-best-of 5], 0, [stdout], [ignore])
|
|---|
| 44 | # check that L_2 error is below 1e-6
|
|---|
| 45 | AT_CHECK([grep "||e||_2:" stdout | awk '{if ($7 > 1e-6) exit 1}'], 0, [ignore], [ignore])
|
|---|
| 46 | # check parameters to printed precision
|
|---|
| 47 | AT_CHECK([grep "harmonic_angle:.*particle_type1=1,.*particle_type2=8,.*particle_type3=1,.*spring_constant=0.10.*,.*equilibrium_distance=-0.27.*;" stdout], 0, [ignore], [ignore])
|
|---|
| 48 |
|
|---|
| 49 | AT_CLEANUP
|
|---|
