Mercurial > hg > ishara

changeset 24:5d8d2ad635f1

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Removed renamed or moved files.
author samer
date Fri, 18 Jan 2013 21:42:03 +0000
parents b1280319413e
children 79038cbcce00
files sequences/+seq/unfold_inf.m sequences/skinseq.m sequences/subsampleseq.m sequences/unfoldseq.m
diffstat 4 files changed, 0 insertions(+), 31 deletions(-) [+]
line wrap: on
line diff
--- a/sequences/+seq/unfold_inf.m	Fri Jan 18 21:40:15 2013 +0000
+++ /dev/null	Thu Jan 01 00:00:00 1970 +0000
@@ -1,28 +0,0 @@
-% unfold_inf - infinite sequence obtained by iterating function over state
-%
-% unfold_inf :: 
-%    (S->A,S)	~'unfolding function',
-%    S         ~ initial state,
-% -> seq(A).
-classdef unfold_inf < seq
-	properties (GetAccess=private, SetAccess=immutable)
-		fn
-	end
-	properties (GetAccess=private, SetAccess=private)
-		value
-		state
-	end
-	methods
-		function d=unfold_inf(f,s0,varargin)
-			[x,s]=f(s0);
-			d.value=x;
-			d.state=s;
-			d.fn=f; 	% function to apply 
-		end
-
-		function s=elsize(o), s=size(o.value); end
-		function s=tostring(o), s=sprintf('unfold(%s,%s)',tostring(o.fn),tostring(o.state)); end
-		function x=head(o), x=o.value; end
-		function o=next(o), [o.value,o.state]=o.fn(o.state); end
-	end
-end
--- a/sequences/skinseq.m	Fri Jan 18 21:40:15 2013 +0000
+++ /dev/null	Thu Jan 01 00:00:00 1970 +0000
@@ -1,1 +0,0 @@
-function y=skinseq(varargin), y=seq.skin(varargin{:});
--- a/sequences/subsampleseq.m	Fri Jan 18 21:40:15 2013 +0000
+++ /dev/null	Thu Jan 01 00:00:00 1970 +0000
@@ -1,1 +0,0 @@
-function y=subsampleseq(n,x), y=seq.subsample(n,x); end
--- a/sequences/unfoldseq.m	Fri Jan 18 21:40:15 2013 +0000
+++ /dev/null	Thu Jan 01 00:00:00 1970 +0000
@@ -1,1 +0,0 @@
-function y=unfoldseq(varargin), y=seq.unfold(varargin{:});