vroman/edivc
SHA256
1
0
Fork 0
Code Issues Pull requests Actions Packages Projects Releases Wiki Activity

Revision de tan

Browse source
This commit is contained in:
Víctor Román Archidona 2002-12-20 19:04:31 +00:00
parent 486d4607b2
commit 03a4d87eea
2 changed files with 19 additions and 32 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
dlls/src/math/CHANGE_LOG.txt
View file

@ -1,4 +1,5 @@
19/12/2002
----------
* Creamos el CHANGE_LOG.txt para la libreria math de eDIV (Daijo)
* Optimizada la rutina tan (CicTec)
* Añadidas las funciones: fixtoi8, fixtoi16, itofix8 y itofix16 (CicTec)
* Creamos el CHANGE_LOG.txt para la libreria math de eDIV (Daijo)

36
dlls/src/math/math.c
View file

@ -16,7 +16,10 @@
* You should have received a copy of the GNU General Public License
* along with this program; if not, write to the Free Software
* Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
*
* $Id$
*/
#include <stdio.h>
#include <time.h>
#include <math.h>
@ -132,31 +135,11 @@ int eDIV_tan(FUNCTION_PARAMS){
int b,c;
int a=getparm();
a=prepara_angulo(a);
if(a<=90000)
b=seno[a];
else
if(a<=180000)
b=seno[180000-a];
else
if(a<=270000)
b=-seno[a-180000];
else
b=-seno[360000-a];
if(a<=90000)
c=seno[90000-a];
else
if(a<=180000)
c=-seno[a-90000];
else
if(a<=270000)
c=-seno[270000-a];
else
c=seno[a-270000];
if(c==0)
return 0x7FFFFFFF;
else
return ((int)(b/c));
return 0 ;
if(a<=90000) { b= seno[a]; c= seno[90000-a]; }
else if(a<=180000){ b= seno[180000-a]; c=-seno[a-90000]; }
else if(a<=270000){ b=-seno[a-180000]; c=-seno[270000-a]; }
else { b=-seno[360000-a]; c= seno[a-270000]; }
return ((c==0)?(0x7FFFFFFF):((int)(b/c)));
}
int eDIV_get_angle(FUNCTION_PARAMS){
@ -440,3 +423,6 @@ int prepara_angulo(int n){
if(n<0) n=n+360000;
return n;
}