From 5cfbe7196dd381f1e3f49f5673ce5c9291748364 Mon Sep 17 00:00:00 2001
From: Ankitr19
Date: Tue, 4 Jul 2017 15:26:35 +0530
Subject: New function and rpi issues resolved

---
 2.3-1/src/c/elementaryFunctions/Trigonometry/sinc/zsinca.c | 10 +++++++---
 1 file changed, 7 insertions(+), 3 deletions(-)

(limited to '2.3-1/src/c/elementaryFunctions/Trigonometry/sinc')

diff --git a/2.3-1/src/c/elementaryFunctions/Trigonometry/sinc/zsinca.c b/2.3-1/src/c/elementaryFunctions/Trigonometry/sinc/zsinca.c
index ad7d095b..1f6cf9ba 100644
--- a/2.3-1/src/c/elementaryFunctions/Trigonometry/sinc/zsinca.c
+++ b/2.3-1/src/c/elementaryFunctions/Trigonometry/sinc/zsinca.c
@@ -14,18 +14,22 @@
 #include "sinc.h"
 #include "sin.h"
 #include "doubleComplex.h"
+#include "division.h"
 void zsinca(doubleComplex* sample,int size,doubleComplex* oup)
 {
 	int j;
+	double r,i;
 	for(j=0;j<size;j++)
 	{
-	if(sample[j]==0)
+	r=zreals(sample[j]);
+	i=zimags(sample[j]);
+	if(r==0 && i==0)
 	{
-	oup[j]==DoubleComplex(1,0);
+	oup[j]=DoubleComplex(1,0);
 	}
 	else
 	{
-	oup[j]=zsins(sample[j])/sample[j];
+	oup[j]=zrdivs(zsins(sample[j]),sample[j]);
 	}
 	}
 }
-- 
cgit