Mercurial > octave-nkf
view test/classdef/foo_value_class.m @ 20269:3ccc2d02e64b stable release-4-0-0
Version 4.0.0 released.
* configure.ac (OCTAVE_VERSION): Now 4.0.0.
(OCTAVE_MAJOR_VERSION): Now 4.
(OCTAVE_MINOR_VERSION): Now 0.
(OCTAVE_PATCH_VERSION): Now 0.
(OCTAVE_RELEASE_DATE): Set to 2015-05-23.
author | John W. Eaton <jwe@octave.org> |
---|---|
date | Sat, 23 May 2015 10:35:40 -0400 |
parents | 3e782e337f8d |
children |
line wrap: on
line source
classdef foo_value_class properties rate; term; principle; end methods function obj = foo_value_class (r, t, p) if (nargin == 3) obj.rate = r; obj.term = t; obj.principle = p; elseif (nargin ~= 0) error ('foo_value_class:SyntaxError', ... 'foo_value_class: Invalid syntax') end end function amt = amount (obj) i = obj.rate / (12 * 100); if (i == 0 && obj.term == 0) amt = obj.principle; else amt = (obj.principle * i) / (1 - (1 + i)^(-obj.term)); end end end end