diff options
| author | jofret | 2007-04-23 15:30:12 +0000 |
|---|---|---|
| committer | jofret | 2007-04-23 15:30:12 +0000 |
| commit | c9f4aeec27c6c9c3a0fa9ab8c1a6132b506f6814 (patch) | |
| tree | 239e3603da0dbbf456fcefe397f84fa4c41b8af9 /src/auxiliaryFunctions/pythag/dpythags.c | |
| parent | 4a2c219771f55d20bc6b034a7cfa078e4c92b6c3 (diff) | |
| download | scilab2c-c9f4aeec27c6c9c3a0fa9ab8c1a6132b506f6814.tar.gz scilab2c-c9f4aeec27c6c9c3a0fa9ab8c1a6132b506f6814.tar.bz2 scilab2c-c9f4aeec27c6c9c3a0fa9ab8c1a6132b506f6814.zip | |
Adding Pythag function, must be used as often as possible.
Diffstat (limited to 'src/auxiliaryFunctions/pythag/dpythags.c')
| -rw-r--r-- | src/auxiliaryFunctions/pythag/dpythags.c | 19 |
1 files changed, 19 insertions, 0 deletions
diff --git a/src/auxiliaryFunctions/pythag/dpythags.c b/src/auxiliaryFunctions/pythag/dpythags.c new file mode 100644 index 00000000..0b3eeb5f --- /dev/null +++ b/src/auxiliaryFunctions/pythag/dpythags.c @@ -0,0 +1,19 @@ +/* +** -*- C -*- +** +** dpythags.c +** Made by Bruno JOFRET <bruno.jofret@inria.fr> +** +** Started on Mon Apr 23 11:54:15 2007 jofret +** Last update Mon Apr 23 15:43:21 2007 jofret +** +** Copyright INRIA 2007 +*/ + +#include "pythag.h" +#include "sqrt.h" + +double dpythags(double x, double y) { + return (dsqrts( (x*x) + (y*y) ) ); +} + |