From 765d9c44f94634406eeff50e20e8cdfcf1b7699c Mon Sep 17 00:00:00 2001
From: siddhu8990
Date: Thu, 2 Feb 2017 16:02:41 +0530
Subject: Support for function 'schur' added

q
---
 macros/FunctionAnnotation/FA_SCHUR_SZ.bin | Bin 0 -> 1004 bytes
 macros/FunctionAnnotation/FA_SCHUR_SZ.sci |  13 +++++++++++++
 macros/FunctionAnnotation/FA_SCHUR_TP.bin | Bin 0 -> 516 bytes
 macros/FunctionAnnotation/FA_SCHUR_TP.sci |  10 ++++++++++
 macros/FunctionAnnotation/lib             | Bin 2228 -> 2276 bytes
 macros/FunctionAnnotation/names           |   2 ++
 6 files changed, 25 insertions(+)
 create mode 100644 macros/FunctionAnnotation/FA_SCHUR_SZ.bin
 create mode 100644 macros/FunctionAnnotation/FA_SCHUR_SZ.sci
 create mode 100644 macros/FunctionAnnotation/FA_SCHUR_TP.bin
 create mode 100644 macros/FunctionAnnotation/FA_SCHUR_TP.sci

(limited to 'macros/FunctionAnnotation')

diff --git a/macros/FunctionAnnotation/FA_SCHUR_SZ.bin b/macros/FunctionAnnotation/FA_SCHUR_SZ.bin
new file mode 100644
index 00000000..9d77eae8
Binary files /dev/null and b/macros/FunctionAnnotation/FA_SCHUR_SZ.bin differ
diff --git a/macros/FunctionAnnotation/FA_SCHUR_SZ.sci b/macros/FunctionAnnotation/FA_SCHUR_SZ.sci
new file mode 100644
index 00000000..6ae20305
--- /dev/null
+++ b/macros/FunctionAnnotation/FA_SCHUR_SZ.sci
@@ -0,0 +1,13 @@
+function out2sz = FA_SCHUR_SZ(in2tp,in1sz)
+
+in2type = string(in2tp);
+in1sz = string(in1sz);
+in1dim = eval(in1sz);
+
+if(in2type == 'g')
+	out2sz = '1'
+else
+	out2sz = string(in1dim)
+end
+
+endfunction 
diff --git a/macros/FunctionAnnotation/FA_SCHUR_TP.bin b/macros/FunctionAnnotation/FA_SCHUR_TP.bin
new file mode 100644
index 00000000..8b31a0c7
Binary files /dev/null and b/macros/FunctionAnnotation/FA_SCHUR_TP.bin differ
diff --git a/macros/FunctionAnnotation/FA_SCHUR_TP.sci b/macros/FunctionAnnotation/FA_SCHUR_TP.sci
new file mode 100644
index 00000000..a8b68b17
--- /dev/null
+++ b/macros/FunctionAnnotation/FA_SCHUR_TP.sci
@@ -0,0 +1,10 @@
+function out2tp = FA_SCHUR_TP(in2tp)
+
+in2type = string(in2tp);
+
+if(in2type == 'g')
+	out2tp = 'd'
+else
+	out2tp = in2type
+end
+endfunction 
diff --git a/macros/FunctionAnnotation/lib b/macros/FunctionAnnotation/lib
index b7b55207..a1a11a90 100644
Binary files a/macros/FunctionAnnotation/lib and b/macros/FunctionAnnotation/lib differ
diff --git a/macros/FunctionAnnotation/names b/macros/FunctionAnnotation/names
index d9ae572a..64cb2574 100644
--- a/macros/FunctionAnnotation/names
+++ b/macros/FunctionAnnotation/names
@@ -9,6 +9,8 @@ FA_MAX
 FA_MIN
 FA_MUL
 FA_REAL
+FA_SCHUR_SZ
+FA_SCHUR_TP
 FA_SUB
 FA_SZ_1
 FA_SZ_2
-- 
cgit