rpl/src/fonctions_trigonometriques.c - diff

Return to fonctions_trigonometriques.c CVS log

Up to [local] / rpl / src

Diff for /rpl/src/fonctions_trigonometriques.c between versions 1.3 and 1.70

version 1.3, 2010/02/10 10:14:19	version 1.70, 2025/04/15 10:12:02
Line 1	Line 1
/*	/*
================================================================================	================================================================================
RPL/2 (R) version 4.0.11	RPL/2 (R) version 4.1.36
Copyright (C) 1989-2010 Dr. BERTRAND Joël	Copyright (C) 1989-2024 Dr. BERTRAND Joël

This file is part of RPL/2.	This file is part of RPL/2.

Line 20	Line 20
*/	*/


#include "rpl.conv.h"	#include "rpl-conv.h"


/*	/*
Line 91 conversion_decimal_vers_hms(real8 *angle	Line 91 conversion_decimal_vers_hms(real8 *angle
(angle) = signe;	(angle) = signe;

reste = (angle) - (heures = floor(angle));	reste = (angle) - (heures = floor(angle));
minutes = floor(reste *= 60);	minutes = floor(round(reste *= 60));
reste -= minutes;	reste -= minutes;
secondes = floor(reste = 60 * reste);	secondes = floor(round(reste *= 60));
reste -= secondes;	reste -= secondes;

(*angle) = (heures + ((minutes + ((secondes + reste) / 100)) / 100))	(*angle) = (heures + ((minutes + ((secondes + reste) / 100)) / 100))
Line 129 conversion_hms_vers_decimal(real8 *angle	Line 129 conversion_hms_vers_decimal(real8 *angle
(angle) = signe;	(angle) = signe;

reste = (angle) - (heures = floor(angle));	reste = (angle) - (heures = floor(angle));
minutes = floor(reste *= 100);	minutes = floor(round(reste *= 100));
reste -= minutes;	reste -= minutes;
secondes = floor(reste = 100 * reste);	secondes = floor(round(reste *= 100));
reste -= secondes;	reste -= secondes;

(angle) = (heures + ((minutes + ((secondes + reste) / 60)) / 60)) signe;	(angle) = (heures + ((minutes + ((secondes + reste) / 60)) / 60)) signe;

CVSweb interface <joel.bertrand@systella.fr>

Removed from v.1.3
changed lines
	Added in v.1.70