summaryrefslogtreecommitdiff
path: root/src/c/signalProcessing/ell1mag/zell1maga.c
diff options
context:
space:
mode:
authorJorawar Singh2017-07-07 13:00:37 +0530
committerJorawar Singh2017-07-07 13:00:37 +0530
commitde14a5628ad439e20770d10733ebdac46562a860 (patch)
tree32373efacf2a4a6eb5a04cd222339905b077830e /src/c/signalProcessing/ell1mag/zell1maga.c
parent87823db220f4c3b8bee16c0b2e08027704de1efe (diff)
downloadScilab2C_fossee_old-de14a5628ad439e20770d10733ebdac46562a860.tar.gz
Scilab2C_fossee_old-de14a5628ad439e20770d10733ebdac46562a860.tar.bz2
Scilab2C_fossee_old-de14a5628ad439e20770d10733ebdac46562a860.zip
Raspberry Pi function changes and minor gui changes
Diffstat (limited to 'src/c/signalProcessing/ell1mag/zell1maga.c')
-rw-r--r--src/c/signalProcessing/ell1mag/zell1maga.c12
1 files changed, 11 insertions, 1 deletions
diff --git a/src/c/signalProcessing/ell1mag/zell1maga.c b/src/c/signalProcessing/ell1mag/zell1maga.c
index 6e7a6f9..529cecb 100644
--- a/src/c/signalProcessing/ell1mag/zell1maga.c
+++ b/src/c/signalProcessing/ell1mag/zell1maga.c
@@ -14,6 +14,9 @@
#include "modsn.h"
#include "ell1mag.h"
#include "doubleComplex.h"
+#include "multiplication.h"
+#include "addition.h"
+#include "division.h"
void zell1maga(double eps,double m1,doubleComplex* z,int size,double* oup )
{
@@ -31,9 +34,16 @@ void zell1maga(double eps,double m1,doubleComplex* z,int size,double* oup )
}
doubleComplex v;
int k;
+ double ml;
+ ml=eps*eps;
+ doubleComplex t1,t2,t3;
+ t2=DoubleComplex(ml,0);
for(k=0;k<size;k++)
{
- v=un[k]/(un[k]+(eps*eps*s[k]*s[k]));
+ t1=zmuls(s[k],s[k]);
+ t2=zmuls(t2,t1);
+ t3=DoubleComplex(un[k],0);
+ v=zrdivs(t3,(zadds(t3,t2)));
oup[k]=zreals(v);
}
}