--- rpl/src/fonctions_trigonometriques.c 2010/01/26 15:22:45 1.1.1.1 +++ rpl/src/fonctions_trigonometriques.c 2025/04/15 10:12:02 1.70 @@ -1,7 +1,7 @@ /* ================================================================================ - RPL/2 (R) version 4.0.9 - Copyright (C) 1989-2010 Dr. BERTRAND Joël + RPL/2 (R) version 4.1.36 + Copyright (C) 1989-2024 Dr. BERTRAND Joël This file is part of RPL/2. @@ -20,7 +20,7 @@ */ -#include "rpl.conv.h" +#include "rpl-conv.h" /* @@ -91,9 +91,9 @@ conversion_decimal_vers_hms(real8 *angle (*angle) *= signe; reste = (*angle) - (heures = floor(*angle)); - minutes = floor(reste *= 60); + minutes = floor(round(reste *= 60)); reste -= minutes; - secondes = floor(reste = 60 * reste); + secondes = floor(round(reste *= 60)); reste -= secondes; (*angle) = (heures + ((minutes + ((secondes + reste) / 100)) / 100)) @@ -129,9 +129,9 @@ conversion_hms_vers_decimal(real8 *angle (*angle) *= signe; reste = (*angle) - (heures = floor(*angle)); - minutes = floor(reste *= 100); + minutes = floor(round(reste *= 100)); reste -= minutes; - secondes = floor(reste = 100 * reste); + secondes = floor(round(reste *= 100)); reste -= secondes; (*angle) = (heures + ((minutes + ((secondes + reste) / 60)) / 60)) * signe;