1 files changed, 9 insertions, 0 deletions
diff --git a/modules/xcos/demos/setw.sci b/modules/xcos/demos/setw.sci
new file mode 100755
index 000000000..81bc78510
--- /dev/null
+++ b/modules/xcos/demos/setw.sci
@@ -0,0 +1,9 @@
+function y = setw(x)
+    mu = size(x, 1);
+    y(1:mu,1:mu) = 0;
+    for j = 1:mu
+        for i = 1:mu-j+1
+            y(i,j) = x(i+j-1);
+        end
+    end
+endfunction