Download code

From LiteratePrograms

Back to Functional_object_(Matlab)

Download for Windows: zip

Download for UNIX: zip, tar.gz, tar.bz2

script_to_test_2.m

 % Copyright (c) 2008 the authors listed at the following URL, and/or
 % the authors of referenced articles or incorporated external code:
 % http://en.literateprograms.org/Functional_object_(Matlab)?action=history&offset=20080704102026
 % 
 % Permission is hereby granted, free of charge, to any person obtaining
 % a copy of this software and associated documentation files (the
 % "Software"), to deal in the Software without restriction, including
 % without limitation the rights to use, copy, modify, merge, publish,
 % distribute, sublicense, and/or sell copies of the Software, and to
 % permit persons to whom the Software is furnished to do so, subject to
 % the following conditions:
 % 
 % The above copyright notice and this permission notice shall be
 % included in all copies or substantial portions of the Software.
 % 
 % THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND,
 % EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF
 % MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT.
 % IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY
 % CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT,
 % TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE
 % SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
 % 
 % Retrieved from: http://en.literateprograms.org/Functional_object_(Matlab)?oldid=13870
 
 z = test_embedded2(1);
 z(2,3)
 

script_to_test_3.m

 % Copyright (c) 2008 the authors listed at the following URL, and/or
 % the authors of referenced articles or incorporated external code:
 % http://en.literateprograms.org/Functional_object_(Matlab)?action=history&offset=20080704102026
 % 
 % Permission is hereby granted, free of charge, to any person obtaining
 % a copy of this software and associated documentation files (the
 % "Software"), to deal in the Software without restriction, including
 % without limitation the rights to use, copy, modify, merge, publish,
 % distribute, sublicense, and/or sell copies of the Software, and to
 % permit persons to whom the Software is furnished to do so, subject to
 % the following conditions:
 % 
 % The above copyright notice and this permission notice shall be
 % included in all copies or substantial portions of the Software.
 % 
 % THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND,
 % EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF
 % MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT.
 % IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY
 % CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT,
 % TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE
 % SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
 % 
 % Retrieved from: http://en.literateprograms.org/Functional_object_(Matlab)?oldid=13870
 
 z = test_embedded3(1);
 z(2)
 z(3)
 

functional_object.m

 % Copyright (c) 2008 the authors listed at the following URL, and/or
 % the authors of referenced articles or incorporated external code:
 % http://en.literateprograms.org/Functional_object_(Matlab)?action=history&offset=20080704102026
 % 
 % Permission is hereby granted, free of charge, to any person obtaining
 % a copy of this software and associated documentation files (the
 % "Software"), to deal in the Software without restriction, including
 % without limitation the rights to use, copy, modify, merge, publish,
 % distribute, sublicense, and/or sell copies of the Software, and to
 % permit persons to whom the Software is furnished to do so, subject to
 % the following conditions:
 % 
 % The above copyright notice and this permission notice shall be
 % included in all copies or substantial portions of the Software.
 % 
 % THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND,
 % EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF
 % MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT.
 % IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY
 % CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT,
 % TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE
 % SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
 % 
 % Retrieved from: http://en.literateprograms.org/Functional_object_(Matlab)?oldid=13870
 
 function z = functional_object( v1, ..., vN)
 % FUNCTIONAL_OBJECT -

 this = struct('v1', v1, ..., 'vN', vN);
 z    = struct('get_v', @get_v, 'set_v', @set_v, etc);
 
 function f = get_fields
     f = fieldnames(this);
 end
 function v = get_v(n)
     f = get_fields();
     v = this.(f{n});
 end
 function set_v(n, v)
     f = get_fields();
     this.(f{n}) = v;
 end
 ...
 end
 

inherit.m

 % Copyright (c) 2008 the authors listed at the following URL, and/or
 % the authors of referenced articles or incorporated external code:
 % http://en.literateprograms.org/Functional_object_(Matlab)?action=history&offset=20080704102026
 % 
 % Permission is hereby granted, free of charge, to any person obtaining
 % a copy of this software and associated documentation files (the
 % "Software"), to deal in the Software without restriction, including
 % without limitation the rights to use, copy, modify, merge, publish,
 % distribute, sublicense, and/or sell copies of the Software, and to
 % permit persons to whom the Software is furnished to do so, subject to
 % the following conditions:
 % 
 % The above copyright notice and this permission notice shall be
 % included in all copies or substantial portions of the Software.
 % 
 % THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND,
 % EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF
 % MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT.
 % IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY
 % CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT,
 % TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE
 % SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
 % 
 % Retrieved from: http://en.literateprograms.org/Functional_object_(Matlab)?oldid=13870
 
 function z = inherit( objects, varargin)
 % INHERIT - automated inheritance

 this = struct('value', {varargin}, 'objects', {objects});
 for o=1:length(objects)
     this.(objects{o}) = feval(objects{o}, varargin);
 end
 z    = struct('get', @get_this, 'invoke', @hinvoke);
 
 function [v, os] = hinvoke( method_name, varargin)
     v  = {};
     os = {};
     % For each parent object

     for o=1:length(this.objects)
         % Find existing methods with this name

         idx = strmatch(method_name, fieldnames(this.(objects{o})), 'exact');
         if ~isempty(idx)
             % If possible, apply it (and store the name of the used object)

             os{end+1} = this.objects{o};
             if isempty(varargin)
                 v{end+1}  = feval(this.(this.objects{o}).(method_name));
             else
                 v{end+1}  = feval(this.(this.objects{o}).(method_name), varargin);
             end
         end
     end
 end
 function t = get_this
     t = this;
 end
 end
 

test_embedded1.m

 % Copyright (c) 2008 the authors listed at the following URL, and/or
 % the authors of referenced articles or incorporated external code:
 % http://en.literateprograms.org/Functional_object_(Matlab)?action=history&offset=20080704102026
 % 
 % Permission is hereby granted, free of charge, to any person obtaining
 % a copy of this software and associated documentation files (the
 % "Software"), to deal in the Software without restriction, including
 % without limitation the rights to use, copy, modify, merge, publish,
 % distribute, sublicense, and/or sell copies of the Software, and to
 % permit persons to whom the Software is furnished to do so, subject to
 % the following conditions:
 % 
 % The above copyright notice and this permission notice shall be
 % included in all copies or substantial portions of the Software.
 % 
 % THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND,
 % EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF
 % MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT.
 % IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY
 % CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT,
 % TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE
 % SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
 % 
 % Retrieved from: http://en.literateprograms.org/Functional_object_(Matlab)?oldid=13870
 
 function z = test_embedded1( a)
 % TEST_EMBEDDED1 - simple test of embedded function

 z = ALPHA(a,2);
 
 function u = ALPHA(v,w)
    u = v+w;
 end
 end
 

test_embedded2.m

 % Copyright (c) 2008 the authors listed at the following URL, and/or
 % the authors of referenced articles or incorporated external code:
 % http://en.literateprograms.org/Functional_object_(Matlab)?action=history&offset=20080704102026
 % 
 % Permission is hereby granted, free of charge, to any person obtaining
 % a copy of this software and associated documentation files (the
 % "Software"), to deal in the Software without restriction, including
 % without limitation the rights to use, copy, modify, merge, publish,
 % distribute, sublicense, and/or sell copies of the Software, and to
 % permit persons to whom the Software is furnished to do so, subject to
 % the following conditions:
 % 
 % The above copyright notice and this permission notice shall be
 % included in all copies or substantial portions of the Software.
 % 
 % THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND,
 % EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF
 % MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT.
 % IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY
 % CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT,
 % TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE
 % SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
 % 
 % Retrieved from: http://en.literateprograms.org/Functional_object_(Matlab)?oldid=13870
 
 function z = test_embedded2( a)
 % TEST_EMBEDDED2 - simple test of embedded function

 z = @ALPHA;
 
 function u = ALPHA(v,w)
    u = v+w;
 end
 end
 

test_embedded3.m

 % Copyright (c) 2008 the authors listed at the following URL, and/or
 % the authors of referenced articles or incorporated external code:
 % http://en.literateprograms.org/Functional_object_(Matlab)?action=history&offset=20080704102026
 % 
 % Permission is hereby granted, free of charge, to any person obtaining
 % a copy of this software and associated documentation files (the
 % "Software"), to deal in the Software without restriction, including
 % without limitation the rights to use, copy, modify, merge, publish,
 % distribute, sublicense, and/or sell copies of the Software, and to
 % permit persons to whom the Software is furnished to do so, subject to
 % the following conditions:
 % 
 % The above copyright notice and this permission notice shall be
 % included in all copies or substantial portions of the Software.
 % 
 % THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND,
 % EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF
 % MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT.
 % IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY
 % CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT,
 % TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE
 % SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
 % 
 % Retrieved from: http://en.literateprograms.org/Functional_object_(Matlab)?oldid=13870
 
 function z = test_embedded3( a)
 % TEST_EMBEDDED3 - simple test of embedded function

 z = @ALPHA_A;
 function u = ALPHA_A(x)
    u = ALPHA(a,x);
 end
 function u = ALPHA(v,w)
    u = v+w;
 end
 end
 

use_inheritance_script.m

 % Copyright (c) 2008 the authors listed at the following URL, and/or
 % the authors of referenced articles or incorporated external code:
 % http://en.literateprograms.org/Functional_object_(Matlab)?action=history&offset=20080704102026
 % 
 % Permission is hereby granted, free of charge, to any person obtaining
 % a copy of this software and associated documentation files (the
 % "Software"), to deal in the Software without restriction, including
 % without limitation the rights to use, copy, modify, merge, publish,
 % distribute, sublicense, and/or sell copies of the Software, and to
 % permit persons to whom the Software is furnished to do so, subject to
 % the following conditions:
 % 
 % The above copyright notice and this permission notice shall be
 % included in all copies or substantial portions of the Software.
 % 
 % THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND,
 % EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF
 % MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT.
 % IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY
 % CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT,
 % TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE
 % SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
 % 
 % Retrieved from: http://en.literateprograms.org/Functional_object_(Matlab)?oldid=13870
 
 z = inherit({'object1', 'object2'}, 2);
 z.get()
 z.invoke('set', 3);
 z.invoke('get');
 z.get()
 z.invoke('add',1)
 z.invoke('substract',1)
 

object12.m

 % Copyright (c) 2008 the authors listed at the following URL, and/or
 % the authors of referenced articles or incorporated external code:
 % http://en.literateprograms.org/Functional_object_(Matlab)?action=history&offset=20080704102026
 % 
 % Permission is hereby granted, free of charge, to any person obtaining
 % a copy of this software and associated documentation files (the
 % "Software"), to deal in the Software without restriction, including
 % without limitation the rights to use, copy, modify, merge, publish,
 % distribute, sublicense, and/or sell copies of the Software, and to
 % permit persons to whom the Software is furnished to do so, subject to
 % the following conditions:
 % 
 % The above copyright notice and this permission notice shall be
 % included in all copies or substantial portions of the Software.
 % 
 % THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND,
 % EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF
 % MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT.
 % IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY
 % CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT,
 % TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE
 % SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
 % 
 % Retrieved from: http://en.literateprograms.org/Functional_object_(Matlab)?oldid=13870
 
 function z = object12( v)
 % OBJECT12 - addition and substraction

 this = struct('v', v, 'add', object1(v), 'substract', object2(v));
 z    = struct('substract', this.substract.substract, 'add',this.add.add, ...
               'get', @get, 'set', @(x)([set(v), this.add.set(v), this.substract.set(v)]));
 
 function v = set(v)
     this.v = v;
 end
 function v = get
     v = this.v;
 end
 end
 

my_light_object.m

 % Copyright (c) 2008 the authors listed at the following URL, and/or
 % the authors of referenced articles or incorporated external code:
 % http://en.literateprograms.org/Functional_object_(Matlab)?action=history&offset=20080704102026
 % 
 % Permission is hereby granted, free of charge, to any person obtaining
 % a copy of this software and associated documentation files (the
 % "Software"), to deal in the Software without restriction, including
 % without limitation the rights to use, copy, modify, merge, publish,
 % distribute, sublicense, and/or sell copies of the Software, and to
 % permit persons to whom the Software is furnished to do so, subject to
 % the following conditions:
 % 
 % The above copyright notice and this permission notice shall be
 % included in all copies or substantial portions of the Software.
 % 
 % THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND,
 % EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF
 % MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT.
 % IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY
 % CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT,
 % TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE
 % SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
 % 
 % Retrieved from: http://en.literateprograms.org/Functional_object_(Matlab)?oldid=13870
 
 function z = my_light_object( mode, varargin)
 % MY_LIGHT_OBJECT - a light struct object

 % two versions embedded:

 %

 % 1. functional:

 % mlo = my_light_object('init', 'alpha', 1, 'beta', 2)

 % my_light_object('get', mlo, 'alpha')

 % my_light_object('set', mlo, 'beta', 8, 'garzol', 12)

 %

 % 2. struct object

 % mlo = my_light_object('create', 'alpha', 1, 'beta', 2)

 % mlo.get('alpha')

 % mlo.set('beta', 8, 'garzol', 12)

 % mlo.get()

 switch lower(mode)
     case 'init'
         %<* init a function mlo

         z = [];
         for i=1:2:length(varargin)-1
             z.(varargin{i}) = varargin{i+1};
         end
         %>*

     case 'get'
         %<* Get attribute

         if length(varargin)==1
             z = varargin{1};
             return
         end
         z = {};
         for i=2:length(varargin)
             z{end+1} = varargin{1}.(varargin{i});
         end
         if length(z)==1
             z = z{1};
         end
         %>*

     case 'set'
         %<* set attribute

         z = varargin{1};
         for i=2:2:length(varargin)-1
             z.(varargin{i})= varargin{i+1};
         end
         %>*

     case 'create'
         %<* object version

         this = my_light_object('init', varargin{:});
         z = struct('get', @get_, 'set', @set_);
         %>*

     otherwise
         error('my_light_object:mode', 'mode <%s> is unknown', mode);

 end
 
 %%** Internals

 %<* Embedded get

 function v = get_( varargin)
 v = my_light_object('get', this, varargin{:});
 end
 %>*

 %<* Embedded set

 function set_(varargin)
 this = my_light_object('set', this, varargin{:});
 end
 %>*

 
 end
 

polymorphism_example.m

 % Copyright (c) 2008 the authors listed at the following URL, and/or
 % the authors of referenced articles or incorporated external code:
 % http://en.literateprograms.org/Functional_object_(Matlab)?action=history&offset=20080704102026
 % 
 % Permission is hereby granted, free of charge, to any person obtaining
 % a copy of this software and associated documentation files (the
 % "Software"), to deal in the Software without restriction, including
 % without limitation the rights to use, copy, modify, merge, publish,
 % distribute, sublicense, and/or sell copies of the Software, and to
 % permit persons to whom the Software is furnished to do so, subject to
 % the following conditions:
 % 
 % The above copyright notice and this permission notice shall be
 % included in all copies or substantial portions of the Software.
 % 
 % THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND,
 % EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF
 % MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT.
 % IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY
 % CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT,
 % TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE
 % SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
 % 
 % Retrieved from: http://en.literateprograms.org/Functional_object_(Matlab)?oldid=13870
 
 function z = polymorphism_example( v)
 % POLYMORPHISM EXAMPLE -

 this.value = v;
 z = struct('get',@get,'set',@set,'to_string',@to_string);
 function v = get
     v = this.value;
 end
 function set( v)
     this.value = v;
 end
 
 function str = to_string(pref, v)
     if nargin<1
         pref = '';
     end
     if nargin<2
         v = this.value;
     end
     if isstr(v)
         str = [pref '-str:' v ':'];
     elseif isnumeric(v)
         if length(v)==1
             str = [pref '-num:' num2str(v) ':'];
         else
             str = [pref '-vnum:' sprintf('%f:',v)];

         end
     elseif isstruct(v)
         fnames = fieldnames(v);
         str = '';
         for f=1:length(fnames)
             str = sprintf('%s%s\n', str, to_string(['struct:' fnames{f}], v.(fnames{f})));

         end
         str = str(1:end-1);
     elseif iscell(v)
         str = '';
         for f=1:length(v)
             str = sprintf('%s%s\n', str, to_string('cell', v{f}));

         end
         str = str(1:end-1);
     elseif isa(v, 'function_handle')
         str = '@???';
     else
         str = '***UNKNOWN***';
     end
 end
 end
 

script_pe.m

 % Copyright (c) 2008 the authors listed at the following URL, and/or
 % the authors of referenced articles or incorporated external code:
 % http://en.literateprograms.org/Functional_object_(Matlab)?action=history&offset=20080704102026
 % 
 % Permission is hereby granted, free of charge, to any person obtaining
 % a copy of this software and associated documentation files (the
 % "Software"), to deal in the Software without restriction, including
 % without limitation the rights to use, copy, modify, merge, publish,
 % distribute, sublicense, and/or sell copies of the Software, and to
 % permit persons to whom the Software is furnished to do so, subject to
 % the following conditions:
 % 
 % The above copyright notice and this permission notice shall be
 % included in all copies or substantial portions of the Software.
 % 
 % THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND,
 % EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF
 % MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT.
 % IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY
 % CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT,
 % TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE
 % SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
 % 
 % Retrieved from: http://en.literateprograms.org/Functional_object_(Matlab)?oldid=13870
 
 pe=polymorphism_example( 5)
 pe.to_string()
 pe.set(1:10); pe.to_string()
 pe.set('garzol'); pe.to_string()
 pe.set({'garzol', 4}); pe.to_string()
 pe.set(struct('alpha',{{'garzol', 4}},'beta',1:3)); pe.to_string()
 

object1.m

 % Copyright (c) 2008 the authors listed at the following URL, and/or
 % the authors of referenced articles or incorporated external code:
 % http://en.literateprograms.org/Functional_object_(Matlab)?action=history&offset=20080704102026
 % 
 % Permission is hereby granted, free of charge, to any person obtaining
 % a copy of this software and associated documentation files (the
 % "Software"), to deal in the Software without restriction, including
 % without limitation the rights to use, copy, modify, merge, publish,
 % distribute, sublicense, and/or sell copies of the Software, and to
 % permit persons to whom the Software is furnished to do so, subject to
 % the following conditions:
 % 
 % The above copyright notice and this permission notice shall be
 % included in all copies or substantial portions of the Software.
 % 
 % THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND,
 % EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF
 % MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT.
 % IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY
 % CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT,
 % TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE
 % SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
 % 
 % Retrieved from: http://en.literateprograms.org/Functional_object_(Matlab)?oldid=13870
 
 function z = object1( v)
 % OBJECT1 - addition

 this.v = v;
 z      = struct('add', @ADD, 'get', @get, 'set', @set);
 
 function v = set(v)
     this.v = v;
 end
 function v = get
     v = this.v;
 end
 function u = ADD( x)
     u = x+this.v;
 end
 end
 

object2.m

 % Copyright (c) 2008 the authors listed at the following URL, and/or
 % the authors of referenced articles or incorporated external code:
 % http://en.literateprograms.org/Functional_object_(Matlab)?action=history&offset=20080704102026
 % 
 % Permission is hereby granted, free of charge, to any person obtaining
 % a copy of this software and associated documentation files (the
 % "Software"), to deal in the Software without restriction, including
 % without limitation the rights to use, copy, modify, merge, publish,
 % distribute, sublicense, and/or sell copies of the Software, and to
 % permit persons to whom the Software is furnished to do so, subject to
 % the following conditions:
 % 
 % The above copyright notice and this permission notice shall be
 % included in all copies or substantial portions of the Software.
 % 
 % THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND,
 % EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF
 % MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT.
 % IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY
 % CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT,
 % TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE
 % SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
 % 
 % Retrieved from: http://en.literateprograms.org/Functional_object_(Matlab)?oldid=13870
 
 function z = object2( v)
 % OBJECT2 - substraction

 this.v = v;
 z      = struct('substract', @SUBSTRACT, 'get', @get, 'set', @set);
 
 function v = set(v)
     this.v = v;
 end
 function v = get
     v = this.v;
 end
 function u = SUBSTRACT( x)
     u = x-this.v;
 end
 end
 

script4mlo.m

 % Copyright (c) 2008 the authors listed at the following URL, and/or
 % the authors of referenced articles or incorporated external code:
 % http://en.literateprograms.org/Functional_object_(Matlab)?action=history&offset=20080704102026
 % 
 % Permission is hereby granted, free of charge, to any person obtaining
 % a copy of this software and associated documentation files (the
 % "Software"), to deal in the Software without restriction, including
 % without limitation the rights to use, copy, modify, merge, publish,
 % distribute, sublicense, and/or sell copies of the Software, and to
 % permit persons to whom the Software is furnished to do so, subject to
 % the following conditions:
 % 
 % The above copyright notice and this permission notice shall be
 % included in all copies or substantial portions of the Software.
 % 
 % THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND,
 % EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF
 % MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT.
 % IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY
 % CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT,
 % TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE
 % SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
 % 
 % Retrieved from: http://en.literateprograms.org/Functional_object_(Matlab)?oldid=13870
 
 %% How to build simple MATLAB object

 
 %% Functionnal version

 mlo = my_light_object('init', 'alpha', 1, 'beta', 2)
 my_light_object('get', mlo, 'alpha')
 my_light_object('set', mlo, 'beta', 8, 'garzol', 12)
 
 %% Struct object version

 mlo = my_light_object('create', 'alpha', 1, 'beta', 2)
 mlo.get('alpha')
 mlo.set('beta', 8, 'garzol', 12)
 mlo.get()