Diff of the two buildlogs: -- --- b1/build.log 2024-04-04 00:08:27.211955638 +0000 +++ b2/build.log 2024-04-04 00:17:46.572138564 +0000 @@ -1,6 +1,6 @@ I: pbuilder: network access will be disabled during build -I: Current time: Wed Apr 3 12:03:09 -12 2024 -I: pbuilder-time-stamp: 1712188989 +I: Current time: Thu Apr 4 14:08:41 +14 2024 +I: pbuilder-time-stamp: 1712189321 I: Building the build Environment I: extracting base tarball [/var/cache/pbuilder/trixie-reproducible-base.tgz] I: copying local configuration @@ -28,52 +28,84 @@ dpkg-source: info: applying lapack-3.10.0.patch I: Not using root during the build. I: Installing the build-deps -I: user script /srv/workspace/pbuilder/27603/tmp/hooks/D02_print_environment starting +I: user script /srv/workspace/pbuilder/3943/tmp/hooks/D01_modify_environment starting +debug: Running on virt64c. +I: Changing host+domainname to test build reproducibility +I: Adding a custom variable just for the fun of it... +I: Changing /bin/sh to bash +'/bin/sh' -> '/bin/bash' +lrwxrwxrwx 1 root root 9 Apr 4 00:09 /bin/sh -> /bin/bash +I: Setting pbuilder2's login shell to /bin/bash +I: Setting pbuilder2's GECOS to second user,second room,second work-phone,second home-phone,second other +I: user script /srv/workspace/pbuilder/3943/tmp/hooks/D01_modify_environment finished +I: user script /srv/workspace/pbuilder/3943/tmp/hooks/D02_print_environment starting I: set - BUILDDIR='/build/reproducible-path' - BUILDUSERGECOS='first user,first room,first work-phone,first home-phone,first other' - BUILDUSERNAME='pbuilder1' - BUILD_ARCH='armhf' - DEBIAN_FRONTEND='noninteractive' - DEB_BUILD_OPTIONS='buildinfo=+all reproducible=+all parallel=3 ' - DISTRIBUTION='trixie' - HOME='/root' - HOST_ARCH='armhf' + BASH=/bin/sh + BASHOPTS=checkwinsize:cmdhist:complete_fullquote:extquote:force_fignore:globasciiranges:globskipdots:hostcomplete:interactive_comments:patsub_replacement:progcomp:promptvars:sourcepath + BASH_ALIASES=() + BASH_ARGC=() + BASH_ARGV=() + BASH_CMDS=() + BASH_LINENO=([0]="12" [1]="0") + BASH_LOADABLES_PATH=/usr/local/lib/bash:/usr/lib/bash:/opt/local/lib/bash:/usr/pkg/lib/bash:/opt/pkg/lib/bash:. + BASH_SOURCE=([0]="/tmp/hooks/D02_print_environment" [1]="/tmp/hooks/D02_print_environment") + BASH_VERSINFO=([0]="5" [1]="2" [2]="21" [3]="1" [4]="release" [5]="arm-unknown-linux-gnueabihf") + BASH_VERSION='5.2.21(1)-release' + BUILDDIR=/build/reproducible-path + BUILDUSERGECOS='second user,second room,second work-phone,second home-phone,second other' + BUILDUSERNAME=pbuilder2 + BUILD_ARCH=armhf + DEBIAN_FRONTEND=noninteractive + DEB_BUILD_OPTIONS='buildinfo=+all reproducible=+all parallel=4 ' + DIRSTACK=() + DISTRIBUTION=trixie + EUID=0 + FUNCNAME=([0]="Echo" [1]="main") + GROUPS=() + HOME=/root + HOSTNAME=i-capture-the-hostname + HOSTTYPE=arm + HOST_ARCH=armhf IFS=' ' - INVOCATION_ID='7ae9ecdb9d3c4411b46a32709f0c5cb7' - LANG='C' - LANGUAGE='en_US:en' - LC_ALL='C' - MAIL='/var/mail/root' - OPTIND='1' - PATH='/usr/sbin:/usr/bin:/sbin:/bin:/usr/games' - PBCURRENTCOMMANDLINEOPERATION='build' - PBUILDER_OPERATION='build' - PBUILDER_PKGDATADIR='/usr/share/pbuilder' - PBUILDER_PKGLIBDIR='/usr/lib/pbuilder' - PBUILDER_SYSCONFDIR='/etc' - PPID='27603' - PS1='# ' - PS2='> ' + INVOCATION_ID=334023c654b04d26a8895cd1894f331c + LANG=C + LANGUAGE=it_CH:it + LC_ALL=C + MACHTYPE=arm-unknown-linux-gnueabihf + MAIL=/var/mail/root + OPTERR=1 + OPTIND=1 + OSTYPE=linux-gnueabihf + PATH=/usr/sbin:/usr/bin:/sbin:/bin:/usr/games:/i/capture/the/path + PBCURRENTCOMMANDLINEOPERATION=build + PBUILDER_OPERATION=build + PBUILDER_PKGDATADIR=/usr/share/pbuilder + PBUILDER_PKGLIBDIR=/usr/lib/pbuilder + PBUILDER_SYSCONFDIR=/etc + PIPESTATUS=([0]="0") + POSIXLY_CORRECT=y + PPID=3943 PS4='+ ' - PWD='/' - SHELL='/bin/bash' - SHLVL='2' - SUDO_COMMAND='/usr/bin/timeout -k 18.1h 18h /usr/bin/ionice -c 3 /usr/bin/nice /usr/sbin/pbuilder --build --configfile /srv/reproducible-results/rbuild-debian/r-b-build.zrD29BIg/pbuilderrc_P0Vi --distribution trixie --hookdir /etc/pbuilder/first-build-hooks --debbuildopts -b --basetgz /var/cache/pbuilder/trixie-reproducible-base.tgz --buildresult /srv/reproducible-results/rbuild-debian/r-b-build.zrD29BIg/b1 --logfile b1/build.log octave-control_4.0.1-1.dsc' - SUDO_GID='110' - SUDO_UID='103' - SUDO_USER='jenkins' - TERM='unknown' - TZ='/usr/share/zoneinfo/Etc/GMT+12' - USER='root' - _='/usr/bin/systemd-run' - http_proxy='http://10.0.0.15:3142/' + PWD=/ + SHELL=/bin/bash + SHELLOPTS=braceexpand:errexit:hashall:interactive-comments:posix + SHLVL=3 + SUDO_COMMAND='/usr/bin/timeout -k 24.1h 24h /usr/bin/ionice -c 3 /usr/bin/nice -n 11 /usr/bin/unshare --uts -- /usr/sbin/pbuilder --build --configfile /srv/reproducible-results/rbuild-debian/r-b-build.zrD29BIg/pbuilderrc_ETK7 --distribution trixie --hookdir /etc/pbuilder/rebuild-hooks --debbuildopts -b --basetgz /var/cache/pbuilder/trixie-reproducible-base.tgz --buildresult /srv/reproducible-results/rbuild-debian/r-b-build.zrD29BIg/b2 --logfile b2/build.log octave-control_4.0.1-1.dsc' + SUDO_GID=113 + SUDO_UID=107 + SUDO_USER=jenkins + TERM=unknown + TZ=/usr/share/zoneinfo/Etc/GMT-14 + UID=0 + USER=root + _='I: set' + http_proxy=http://10.0.0.15:3142/ I: uname -a - Linux virt32z 6.1.0-18-armmp-lpae #1 SMP Debian 6.1.76-1 (2024-02-01) armv7l GNU/Linux + Linux i-capture-the-hostname 6.1.0-18-arm64 #1 SMP Debian 6.1.76-1 (2024-02-01) aarch64 GNU/Linux I: ls -l /bin lrwxrwxrwx 1 root root 7 Apr 1 11:24 /bin -> usr/bin -I: user script /srv/workspace/pbuilder/27603/tmp/hooks/D02_print_environment finished +I: user script /srv/workspace/pbuilder/3943/tmp/hooks/D02_print_environment finished -> Attempting to satisfy build-dependencies -> Creating pbuilder-satisfydepends-dummy package Package: pbuilder-satisfydepends-dummy @@ -623,7 +655,7 @@ Get: 506 http://deb.debian.org/debian trixie/main armhf dh-octave all 1.8.0 [22.7 kB] Get: 507 http://deb.debian.org/debian trixie/main armhf libslicot0 armhf 5.9-1 [1164 kB] Get: 508 http://deb.debian.org/debian trixie/main armhf libslicot-dev armhf 5.9-1 [1258 kB] -Fetched 178 MB in 2s (83.8 MB/s) +Fetched 178 MB in 6s (29.4 MB/s) debconf: delaying package configuration, since apt-utils is not installed Selecting previously unselected package netbase. (Reading database ... (Reading database ... 5% (Reading database ... 10% (Reading database ... 15% (Reading database ... 20% (Reading database ... 25% (Reading database ... 30% (Reading database ... 35% (Reading database ... 40% (Reading database ... 45% (Reading database ... 50% (Reading database ... 55% (Reading database ... 60% (Reading database ... 65% (Reading database ... 70% (Reading database ... 75% (Reading database ... 80% (Reading database ... 85% (Reading database ... 90% (Reading database ... 95% (Reading database ... 100% (Reading database ... 19637 files and directories currently installed.) @@ -2707,7 +2739,11 @@ Building tag database... -> Finished parsing the build-deps I: Building the package -I: Running cd /build/reproducible-path/octave-control-4.0.1/ && env PATH="/usr/sbin:/usr/bin:/sbin:/bin:/usr/games" HOME="/nonexistent/first-build" dpkg-buildpackage -us -uc -b && env PATH="/usr/sbin:/usr/bin:/sbin:/bin:/usr/games" HOME="/nonexistent/first-build" dpkg-genchanges -S > ../octave-control_4.0.1-1_source.changes +I: user script /srv/workspace/pbuilder/3943/tmp/hooks/A99_set_merged_usr starting +Not re-configuring usrmerge for trixie +I: user script /srv/workspace/pbuilder/3943/tmp/hooks/A99_set_merged_usr finished +hostname: Name or service not known +I: Running cd /build/reproducible-path/octave-control-4.0.1/ && env PATH="/usr/sbin:/usr/bin:/sbin:/bin:/usr/games:/i/capture/the/path" HOME="/nonexistent/second-build" dpkg-buildpackage -us -uc -b && env PATH="/usr/sbin:/usr/bin:/sbin:/bin:/usr/games:/i/capture/the/path" HOME="/nonexistent/second-build" dpkg-genchanges -S > ../octave-control_4.0.1-1_source.changes dpkg-buildpackage: info: source package octave-control dpkg-buildpackage: info: source version 4.0.1-1 dpkg-buildpackage: info: source distribution unstable @@ -2772,12 +2808,12 @@ LDFLAGS="-Wl,-z,relro -llapack -lblas -L/usr/lib/gcc/arm-linux-gnueabihf/13 -L/usr/lib/gcc/arm-linux-gnueabihf/13/../../../arm-linux-gnueabihf -L/usr/lib/gcc/arm-linux-gnueabihf/13/../../.. -L/lib/arm-linux-gnueabihf -L/usr/lib/arm-linux-gnueabihf -lgfortran -lm" \ /usr/bin/mkoctfile --verbose -Wall -Wno-deprecated-declarations __control_slicot_functions__.cc common.cc TG04BX.f -lslicot /usr/bin/mkoctfile --verbose -Wall -Wno-deprecated-declarations __control_helper_functions__.cc -gfortran -c -fPIC -g -O2 -ffile-prefix-map=/build/reproducible-path/octave-control-4.0.1=. -fstack-protector-strong -fstack-clash-protection -Wall -Wno-deprecated-declarations TG04BX.f -o /tmp/oct-ASX9G6.o -g++ -c -Wdate-time -D_FORTIFY_SOURCE=2 -fPIC -I/usr/include/octave-8.4.0/octave/.. -I/usr/include/octave-8.4.0/octave -pthread -fopenmp -g -O2 -ffile-prefix-map=/build/reproducible-path/octave-control-4.0.1=. -fstack-protector-strong -fstack-clash-protection -Wformat -Werror=format-security -Wall -Wno-deprecated-declarations __control_helper_functions__.cc -o /tmp/oct-qhEuSy.o -g++ -c -Wdate-time -D_FORTIFY_SOURCE=2 -fPIC -I/usr/include/octave-8.4.0/octave/.. -I/usr/include/octave-8.4.0/octave -pthread -fopenmp -g -O2 -ffile-prefix-map=/build/reproducible-path/octave-control-4.0.1=. -fstack-protector-strong -fstack-clash-protection -Wformat -Werror=format-security -Wall -Wno-deprecated-declarations __control_slicot_functions__.cc -o /tmp/oct-ENylfv.o -g++ -I/usr/include/octave-8.4.0/octave/.. -I/usr/include/octave-8.4.0/octave -pthread -fopenmp -g -O2 -ffile-prefix-map=/build/reproducible-path/octave-control-4.0.1=. -fstack-protector-strong -fstack-clash-protection -Wformat -Werror=format-security -Wall -Wno-deprecated-declarations -o __control_helper_functions__.oct /tmp/oct-qhEuSy.o -shared -Wl,-Bsymbolic -Wl,-z,relro -llapack -lblas -L/usr/lib/gcc/arm-linux-gnueabihf/13 -L/usr/lib/gcc/arm-linux-gnueabihf/13/../../../arm-linux-gnueabihf -L/usr/lib/gcc/arm-linux-gnueabihf/13/../../.. -L/lib/arm-linux-gnueabihf -L/usr/lib/arm-linux-gnueabihf -lgfortran -lm -L/usr/lib/arm-linux-gnueabihf -shared -Wl,-Bsymbolic -flto=auto -ffat-lto-objects -Wl,-z,relro -g++ -c -Wdate-time -D_FORTIFY_SOURCE=2 -fPIC -I/usr/include/octave-8.4.0/octave/.. -I/usr/include/octave-8.4.0/octave -pthread -fopenmp -g -O2 -ffile-prefix-map=/build/reproducible-path/octave-control-4.0.1=. -fstack-protector-strong -fstack-clash-protection -Wformat -Werror=format-security -Wall -Wno-deprecated-declarations common.cc -o /tmp/oct-4siU4r.o -g++ -I/usr/include/octave-8.4.0/octave/.. -I/usr/include/octave-8.4.0/octave -pthread -fopenmp -g -O2 -ffile-prefix-map=/build/reproducible-path/octave-control-4.0.1=. -fstack-protector-strong -fstack-clash-protection -Wformat -Werror=format-security -Wall -Wno-deprecated-declarations -o __control_slicot_functions__.oct /tmp/oct-ASX9G6.o /tmp/oct-ENylfv.o /tmp/oct-4siU4r.o -lslicot -shared -Wl,-Bsymbolic -Wl,-z,relro -llapack -lblas -L/usr/lib/gcc/arm-linux-gnueabihf/13 -L/usr/lib/gcc/arm-linux-gnueabihf/13/../../../arm-linux-gnueabihf -L/usr/lib/gcc/arm-linux-gnueabihf/13/../../.. -L/lib/arm-linux-gnueabihf -L/usr/lib/arm-linux-gnueabihf -lgfortran -lm -L/usr/lib/arm-linux-gnueabihf -shared -Wl,-Bsymbolic -flto=auto -ffat-lto-objects -Wl,-z,relro +g++ -c -Wdate-time -D_FORTIFY_SOURCE=2 -fPIC -I/usr/include/octave-8.4.0/octave/.. -I/usr/include/octave-8.4.0/octave -pthread -fopenmp -g -O2 -ffile-prefix-map=/build/reproducible-path/octave-control-4.0.1=. -fstack-protector-strong -fstack-clash-protection -Wformat -Werror=format-security -Wall -Wno-deprecated-declarations __control_helper_functions__.cc -o /tmp/oct-fjyXNF.o +gfortran -c -fPIC -g -O2 -ffile-prefix-map=/build/reproducible-path/octave-control-4.0.1=. -fstack-protector-strong -fstack-clash-protection -Wall -Wno-deprecated-declarations TG04BX.f -o /tmp/oct-wLkADn.o +g++ -c -Wdate-time -D_FORTIFY_SOURCE=2 -fPIC -I/usr/include/octave-8.4.0/octave/.. -I/usr/include/octave-8.4.0/octave -pthread -fopenmp -g -O2 -ffile-prefix-map=/build/reproducible-path/octave-control-4.0.1=. -fstack-protector-strong -fstack-clash-protection -Wformat -Werror=format-security -Wall -Wno-deprecated-declarations __control_slicot_functions__.cc -o /tmp/oct-4xTTYa.o +g++ -I/usr/include/octave-8.4.0/octave/.. -I/usr/include/octave-8.4.0/octave -pthread -fopenmp -g -O2 -ffile-prefix-map=/build/reproducible-path/octave-control-4.0.1=. -fstack-protector-strong -fstack-clash-protection -Wformat -Werror=format-security -Wall -Wno-deprecated-declarations -o __control_helper_functions__.oct /tmp/oct-fjyXNF.o -shared -Wl,-Bsymbolic -Wl,-z,relro -llapack -lblas -L/usr/lib/gcc/arm-linux-gnueabihf/13 -L/usr/lib/gcc/arm-linux-gnueabihf/13/../../../arm-linux-gnueabihf -L/usr/lib/gcc/arm-linux-gnueabihf/13/../../.. -L/lib/arm-linux-gnueabihf -L/usr/lib/arm-linux-gnueabihf -lgfortran -lm -L/usr/lib/arm-linux-gnueabihf -shared -Wl,-Bsymbolic -flto=auto -ffat-lto-objects -Wl,-z,relro +g++ -c -Wdate-time -D_FORTIFY_SOURCE=2 -fPIC -I/usr/include/octave-8.4.0/octave/.. -I/usr/include/octave-8.4.0/octave -pthread -fopenmp -g -O2 -ffile-prefix-map=/build/reproducible-path/octave-control-4.0.1=. -fstack-protector-strong -fstack-clash-protection -Wformat -Werror=format-security -Wall -Wno-deprecated-declarations common.cc -o /tmp/oct-IlORI8.o +g++ -I/usr/include/octave-8.4.0/octave/.. -I/usr/include/octave-8.4.0/octave -pthread -fopenmp -g -O2 -ffile-prefix-map=/build/reproducible-path/octave-control-4.0.1=. -fstack-protector-strong -fstack-clash-protection -Wformat -Werror=format-security -Wall -Wno-deprecated-declarations -o __control_slicot_functions__.oct /tmp/oct-wLkADn.o /tmp/oct-4xTTYa.o /tmp/oct-IlORI8.o -lslicot -shared -Wl,-Bsymbolic -Wl,-z,relro -llapack -lblas -L/usr/lib/gcc/arm-linux-gnueabihf/13 -L/usr/lib/gcc/arm-linux-gnueabihf/13/../../../arm-linux-gnueabihf -L/usr/lib/gcc/arm-linux-gnueabihf/13/../../.. -L/lib/arm-linux-gnueabihf -L/usr/lib/arm-linux-gnueabihf -lgfortran -lm -L/usr/lib/arm-linux-gnueabihf -shared -Wl,-Bsymbolic -flto=auto -ffat-lto-objects -Wl,-z,relro make[1]: Leaving directory '/build/reproducible-path/octave-control-4.0.1/src' copyfile /build/reproducible-path/octave-control-4.0.1/./src/__control_helper_functions__.oct /build/reproducible-path/octave-control-4.0.1/./src/__control_slicot_functions__.oct /build/reproducible-path/octave-control-4.0.1/./inst/arm-unknown-linux-gnueabihf-api-v58 The control package was installed into the directory @@ -2790,6 +2826,70 @@ Checking package... Run the unit tests... Checking m files ... +[inst/pole.m] +>>>>> /build/reproducible-path/octave-control-4.0.1/inst/pole.m +***** shared pol_exp, pol_obs + A = [-1, 0, 0; + 0, -2, 0; + 0, 0, -3]; + pol_exp = [-3; + -2; + -1]; + pol_obs = pole(A); +***** assert(pol_obs, pol_exp, 0); +***** shared pol, pol_exp, infp, kronr, kronl, infp_exp, kronr_exp, kronl_exp + A = [ 1 0 0 0 0 0 0 0 0 + 0 1 0 0 0 0 0 0 0 + 0 0 1 0 0 0 0 0 0 + 0 0 0 1 0 0 0 0 0 + 0 0 0 0 1 0 0 0 0 + 0 0 0 0 0 1 0 0 0 + 0 0 0 0 0 0 1 0 0 + 0 0 0 0 0 0 0 1 0 + 0 0 0 0 0 0 0 0 1 ]; + + E = [ 0 0 0 0 0 0 0 0 0 + 1 0 0 0 0 0 0 0 0 + 0 1 0 0 0 0 0 0 0 + 0 0 0 0 0 0 0 0 0 + 0 0 0 1 0 0 0 0 0 + 0 0 0 0 1 0 0 0 0 + 0 0 0 0 0 0 0 0 0 + 0 0 0 0 0 0 1 0 0 + 0 0 0 0 0 0 0 1 0 ]; + + B = [ -1 0 0 + 0 0 0 + 0 0 0 + 0 -1 0 + 0 0 0 + 0 0 0 + 0 0 -1 + 0 0 0 + 0 0 0 ]; + + C = [ 0 1 1 0 3 4 0 0 2 + 0 1 0 0 4 0 0 2 0 + 0 0 1 0 -1 4 0 -2 2 ]; + + D = [ 1 2 -2 + 0 -1 -2 + 0 0 0 ]; + + sys = dss (A, B, C, D, E, "scaled", true); + [pol, ~, infp, kronr, kronl] = __sl_ag08bd__ (A, E, [], [], [], true); + + pol_exp = zeros (0,1); + + infp_exp = [0, 3]; + kronr_exp = zeros (1,0); + kronl_exp = zeros (1,0); + +***** assert (pol, pol_exp, 1e-4); +***** assert (infp, infp_exp); +***** assert (kronr, kronr_exp); +***** assert (kronl, kronl_exp); +5 tests, 5 passed, 0 known failure, 0 skipped [inst/__dss2ss__.m] >>>>> /build/reproducible-path/octave-control-4.0.1/inst/__dss2ss__.m ***** shared a, b, c, e, ranke, rnka22, q, z, a_exp, b_exp, c_exp, e_exp, q_exp, z_exp @@ -2857,221 +2957,36 @@ assert (Co, 1, 1e-4); assert (Do, 0, 1e-4); 10 tests, 10 passed, 0 known failure, 0 skipped -[inst/impulse.m] ->>>>> /build/reproducible-path/octave-control-4.0.1/inst/impulse.m -***** test - t=0:0.1:.3; - sys=tf(0.9375,[1 2 4]); - y=impulse(sys,t); - assert (y(1), 0, eps); - assert (y(2), 0.084405001160727, 2*eps); - assert (y(3), 0.150460144774958, 2*eps); - assert (y(4), 0.199104909042133, 2*eps); -***** test - t=0:0.1:.4; - sys=tf(0.9375,[1 2 4]); - sys2=c2d(sys, 0.1, "impulse"); - y=impulse(sys2,t); - assert (y(1), 0, eps); - assert (y(2), 0.084405001160727, 2*eps); - assert (y(3), 0.150460144774958, 2*eps); - assert (y(4), 0.199104909042133, 2*eps); -***** test - s = tf("s"); - R = 1/s; - y= impulse(R); - assert (y(1), 1, eps); -***** demo - clf; - s = tf('s'); - g = 1/(2*s^2+3*s+4); - impulse(g); - title ("Impulse response of a PT2 transfer function"); -***** demo - clf; - s = tf('s'); - g = 1/(2*s^2+3*s+4); - h = c2d(g,0.1); - impulse(h); - title ("Impulse response of a discretized PT2 transfer function"); -3 tests, 3 passed, 0 known failure, 0 skipped -[inst/filt.m] ->>>>> /build/reproducible-path/octave-control-4.0.1/inst/filt.m -***** shared num, den, n1, d1, n2, d2, n2e, d2e - num = [0, 3]; - den = [1, 4, 2]; - sys = filt (num, den); - [n1, d1] = filtdata (sys, "vector"); - [n2, d2] = tfdata (sys, "vector"); - n2e = [3, 0]; - d2e = [1, 4, 2]; -***** assert (n1, num, 1e-4); -***** assert (d1, den, 1e-4); -***** assert (n2, n2e, 1e-4); -***** assert (d2, d2e, 1e-4); -4 tests, 4 passed, 0 known failure, 0 skipped -[inst/bstmodred.m] ->>>>> /build/reproducible-path/octave-control-4.0.1/inst/bstmodred.m -***** shared Mo, Me, Info, HSVe - A = [ -0.04165 0.0000 4.9200 -4.9200 0.0000 0.0000 0.0000 - -5.2100 -12.500 0.0000 0.0000 0.0000 0.0000 0.0000 - 0.0000 3.3300 -3.3300 0.0000 0.0000 0.0000 0.0000 - 0.5450 0.0000 0.0000 0.0000 -0.5450 0.0000 0.0000 - 0.0000 0.0000 0.0000 4.9200 -0.04165 0.0000 4.9200 - 0.0000 0.0000 0.0000 0.0000 -5.2100 -12.500 0.0000 - 0.0000 0.0000 0.0000 0.0000 0.0000 3.3300 -3.3300 ]; - - B = [ 0.0000 0.0000 - 12.500 0.0000 - 0.0000 0.0000 - 0.0000 0.0000 - 0.0000 0.0000 - 0.0000 12.500 - 0.0000 0.0000 ]; - - C = [ 1.0000 0.0000 0.0000 0.0000 0.0000 0.0000 0.0000 - 0.0000 0.0000 0.0000 1.0000 0.0000 0.0000 0.0000 - 0.0000 0.0000 0.0000 0.0000 1.0000 0.0000 0.0000 ]; - - D = [ 0.0000 0.0000 - 0.0000 0.0000 - 0.0000 0.0000 ]; - - sys = ss (A, B, C, D, "scaled", true); - - [sys_red, Info] = bstmodred (sys, "beta", 1.0, "tol1", 0.1, "tol2", 0.0); - - # Expected results - Ae = [ 1.2729 0.0000 6.5947 0.0000 -3.4229 - 0.0000 0.8169 0.0000 2.4821 0.0000 - -2.9889 0.0000 -2.9028 0.0000 -0.3692 - 0.0000 -3.3921 0.0000 -3.1126 0.0000 - -1.4767 0.0000 -2.0339 0.0000 -0.6107 ]; - - Be = [ 0.1331 -0.1331 - -0.0862 -0.0862 - -2.6777 2.6777 - -3.5767 -3.5767 - -2.3033 2.3033 ]; - - Ce = [ -0.6907 -0.6882 0.0779 0.0958 -0.0038 - 0.0676 0.0000 0.6532 0.0000 -0.7522 - 0.6907 -0.6882 -0.0779 0.0958 0.0038 ]; - - De = [ 0.0000 0.0000 - 0.0000 0.0000 - 0.0000 0.0000 ]; - - HSVe = [ 0.8803 0.8506 0.8038 0.4494 0.3973 0.0214 0.0209 ].'; - - # Since bstmodred reduces the model while approximaton the input/output - # behavior, only input/output behavior is tested by means of the first - # n markov parameters. The state space representation is not unique. - # By multiplying the matrices for the Markov parameters, numeric errors - # would propagate, therefor the accuracy of the results are limited to - # the accuracy of the given expected results - - [Ao, Bo, Co, Do] = ssdata (sys_red); - Ao = round (Ao*1e4)/1e4; - Bo = round (Bo*1e4)/1e4; - Co = round (Co*1e4)/1e4; - Do = round (Do*1e4)/1e4; - - n = size(Ao,1); - m = size(Bo,2); - p = size(Co,1); - Mo = zeros (p,(n+1)*m); - Me = zeros (p,(n+1)*m); - Mo(:,1:m) = Do; - Me(:,1:m) = De; - - Aoi = eye (n,n); - Aei = eye (n,n); - for i = 1:n - Mo(:,(i-1)*m+1:i*m) = Co*Aoi*Bo; - Me(:,(i-1)*m+1:i*m) = Ce*Aei*Be; - Aoi = Aoi*Ao; - Aei = Aei*Ae; - endfor - -***** assert (Mo, Me, 1e-4) -***** assert (Info.hsv, HSVe, 1e-4) -2 tests, 2 passed, 0 known failure, 0 skipped -[inst/dlyap.m] ->>>>> /build/reproducible-path/octave-control-4.0.1/inst/dlyap.m -***** shared X, X_exp - A = [3.0 1.0 1.0 - 1.0 3.0 0.0 - 0.0 0.0 3.0]; - - B = [25.0 24.0 15.0 - 24.0 32.0 8.0 - 15.0 8.0 40.0]; - - X = dlyap (A.', -B); - - X_exp = [2.0000 1.0000 1.0000 - 1.0000 3.0000 0.0000 - 1.0000 0.0000 4.0000]; - -***** assert (X, X_exp, 1e-4); -***** shared X, X_exp - A = [3.0 1.0 1.0 - 1.0 3.0 0.0 - 0.0 0.0 3.0]; - - B = [1.0 0.2 2.0 - 0.5 0.5 1.0 - 1.0 -2.0 1.0]; - - X = dlyap (A.', -B); - - X_exp = [0.1390 -0.0514 0.1831 - -0.0086 0.0676 0.0422 - 0.2005 -0.3233 -0.0362]; - -***** assert (X, X_exp, 1e-4); -***** shared X, X_exp - A = [1.0 2.0 3.0 - 6.0 7.0 8.0 - 9.0 2.0 3.0]; - - B = [7.0 2.0 3.0 - 2.0 1.0 2.0 - 3.0 4.0 1.0]; - - C = [271.0 135.0 147.0 - 923.0 494.0 482.0 - 578.0 383.0 287.0]; - - X = dlyap (-A, B, C); - - X_exp = [2.0000 3.0000 6.0000 - 4.0000 7.0000 1.0000 - 5.0000 3.0000 2.0000]; - -***** assert (X, X_exp, 1e-4); -***** shared X, X_exp - A = [3.0 1.0 1.0 - 1.0 3.0 0.0 - 1.0 0.0 2.0]; +[inst/hsvd.m] +>>>>> /build/reproducible-path/octave-control-4.0.1/inst/hsvd.m +***** shared hsv, hsv_exp + a = [ -0.04165 0.0000 4.9200 -4.9200 0.0000 0.0000 0.0000 + -5.2100 -12.500 0.0000 0.0000 0.0000 0.0000 0.0000 + 0.0000 3.3300 -3.3300 0.0000 0.0000 0.0000 0.0000 + 0.5450 0.0000 0.0000 0.0000 -0.5450 0.0000 0.0000 + 0.0000 0.0000 0.0000 4.9200 -0.04165 0.0000 4.9200 + 0.0000 0.0000 0.0000 0.0000 -5.2100 -12.500 0.0000 + 0.0000 0.0000 0.0000 0.0000 0.0000 3.3300 -3.3300]; - E = [1.0 3.0 0.0 - 3.0 2.0 1.0 - 1.0 0.0 1.0]; + b = [ 0.0000 0.0000 + 12.5000 0.0000 + 0.0000 0.0000 + 0.0000 0.0000 + 0.0000 0.0000 + 0.0000 12.500 + 0.0000 0.0000]; - B = [ -3.0 -10.0 7.0 - -10.0 -14.0 -2.0 - 7.0 -2.0 9.0 ]; + c = [ 1.0000 0.0000 0.0000 0.0000 0.0000 0.0000 0.0000 + 0.0000 0.0000 0.0000 1.0000 0.0000 0.0000 0.0000 + 0.0000 0.0000 0.0000 0.0000 1.0000 0.0000 0.0000]; - X = dlyap (A, B, [], E); + sys = ss (a, b, c, [], "scaled", true); + hsv = hsvd (sys, "alpha", 0.0); - X_exp = [-2.0000 -1.0000 0.0000 - -1.0000 -3.0000 -1.0000 - 0.0000 -1.0000 -3.0000]; + hsv_exp = [2.5139; 2.0846; 1.9178; 0.7666; 0.5473; 0.0253; 0.0246]; -***** assert (X, X_exp, 1e-4); -4 tests, 4 passed, 0 known failure, 0 skipped +***** assert (hsv, hsv_exp, 1e-4); +1 test, 1 passed, 0 known failure, 0 skipped [inst/moen4.m] >>>>> /build/reproducible-path/octave-control-4.0.1/inst/moen4.m ***** shared SYS, X0, INFO, Ae, Be, Ce, De, Ke, Qe, Rye, Se, X0e @@ -5913,94 +5828,275 @@ assert (Mo, Me, 1e-3); 9 tests, 9 passed, 0 known failure, 0 skipped -[inst/hnamodred.m] ->>>>> /build/reproducible-path/octave-control-4.0.1/inst/hnamodred.m -***** shared Mo, Me, Info, HSVe - A = [ -3.8637 -7.4641 -9.1416 -7.4641 -3.8637 -1.0000 - 1.0000, 0 0 0 0 0 - 0 1.0000 0 0 0 0 - 0 0 1.0000 0 0 0 - 0 0 0 1.0000 0 0 - 0 0 0 0 1.0000 0 ]; +[inst/margin.m] +>>>>> /build/reproducible-path/octave-control-4.0.1/inst/margin.m +***** shared margin_c, margin_c_exp, margin_d, margin_d_exp + sysc = tf ([24], [1, 6, 11, 6]); + [gamma_c, phi_c, w_gamma_c, w_phi_c] = margin (sysc); + sysd = c2d (sysc, 0.3); + [gamma_d, phi_d, w_gamma_d, w_phi_d] = margin (sysd); - B = [ 1 - 0 - 0 - 0 - 0 - 0 ]; + margin_c = [gamma_c, phi_c, w_gamma_c, w_phi_c]; + margin_d = [gamma_d, phi_d, w_gamma_d, w_phi_d]; - C = [ 0 0 0 0 0 1 ]; + ## results from this implementation and the "dark side" diverge + ## from the third digit after the decimal point on - D = [ 0 ]; + gamma_c_exp = 2.50; + phi_c_exp = 35.43; + w_gamma_c_exp = 3.32; + w_phi_c_exp = 2.06; - G = ss (A, B, C, D); # "scaled", false + gamma_d_exp = 1.41; + phi_d_exp = 18.60; + w_gamma_d_exp = 2.48; + w_phi_d_exp = 2.04; - AV = [ 0.2000 -1.0000 - 1.0000 0 ]; + margin_c_exp = [gamma_c_exp, phi_c_exp, w_gamma_c_exp, w_phi_c_exp]; + margin_d_exp = [gamma_d_exp, phi_d_exp, w_gamma_d_exp, w_phi_d_exp]; - BV = [ 1 - 0 ]; +***** assert (margin_c, margin_c_exp, 1e-2); +***** assert (margin_d, margin_d_exp, 1e-2); +2 tests, 2 passed, 0 known failure, 0 skipped +[inst/lyapchol.m] +>>>>> /build/reproducible-path/octave-control-4.0.1/inst/lyapchol.m +***** shared U, U_exp, X, X_exp - CV = [ -1.8000 0 ]; + A = [ -1.0 37.0 -12.0 -12.0 + -1.0 -10.0 0.0 4.0 + 2.0 -4.0 7.0 -6.0 + 2.0 2.0 7.0 -9.0 ].'; - DV = [ 1 ]; + B = [ 1.0 2.5 1.0 3.5 + 0.0 1.0 0.0 1.0 + -1.0 -2.5 -1.0 -1.5 + 1.0 2.5 4.0 -5.5 + -1.0 -2.5 -4.0 3.5 ].'; - V = ss (AV, BV, CV, DV); + U = lyapchol (A, B); - [Gr, Info] = hnamodred (G, "left", V, "tol1", 1e-1, "tol2", 1e-14); - [Ao, Bo, Co, Do] = ssdata (Gr); + X = U.' * U; # use lyap at home! - Ae = [ -0.2391 0.3072 1.1630 1.1967 - -2.9709 -0.2391 2.6270 3.1027 - 0.0000 0.0000 -0.5137 -1.2842 - 0.0000 0.0000 0.1519 -0.5137 ]; + U_exp = [ 1.0000 0.0000 0.0000 0.0000 + 3.0000 1.0000 0.0000 0.0000 + 2.0000 -1.0000 1.0000 0.0000 + -1.0000 1.0000 -2.0000 1.0000 ].'; - Be = [ -1.0497 - -3.7052 - 0.8223 - 0.7435 ]; + X_exp = [ 1.0000 3.0000 2.0000 -1.0000 + 3.0000 10.0000 5.0000 -2.0000 + 2.0000 5.0000 6.0000 -5.0000 + -1.0000 -2.0000 -5.0000 7.0000 ]; - Ce = [ -0.4466 0.0143 -0.4780 -0.2013 ]; +***** assert (U, U_exp, 1e-4); +***** assert (X, X_exp, 1e-4); +***** shared U, U_exp, X, X_exp - De = [ 0.0219 ]; + A = [ -1.0 3.0 -4.0 + 0.0 5.0 -2.0 + -4.0 4.0 1.0 ].'; - # Since hnamodred approximates the input/output behavior only - # input/output behavior is tested using n first Markov parameters. - # The state space representaton might have different signs - # of the states. - # By multiplying the matrices for the Markov parameters, numeric errors - # would propagate, therefor the accuracy of the results are limited to - # the accuracy of the given expected results + E = [ 2.0 1.0 3.0 + 2.0 0.0 1.0 + 4.0 5.0 1.0 ].'; - [Ao,Bo,Co,Do] = ssdata (Gr); - Ao = round (Ao*1e4)/1e4; - Bo = round (Bo*1e4)/1e4; - Co = round (Co*1e4)/1e4; - Do = round (Do*1e4)/1e4; + B = [ 2.0 -1.0 7.0 ].'; - n = size(Ao,1); - m = size(Bo,2); - p = size(Co,1); - Mo = zeros (p,(n+1)*m); - Me = zeros (p,(n+1)*m); - Mo(:,1:m) = Do; - Me(:,1:m) = De; - - Aoi = eye (n,n); - Aei = eye (n,n); - for i = 1:n - Mo(:,i*m+1:(i+1)*m) = Co*Aoi*Bo; - Me(:,i*m+1:(i+1)*m) = Ce*Aei*Be; - Aoi = Aoi*Ao; - Aei = Aei*Ae; - endfor + U = lyapchol (A, B, E); - HSVe = [ 2.6790 2.1589 0.8424 0.1929 0.0219 0.0011 ].'; + U_exp = [ 1.6003 -0.4418 -0.1523 + 0.0000 0.6795 -0.2499 + 0.0000 0.0000 0.2041 ]; -***** assert (Mo, Me, 1e-3); +***** assert (U, U_exp, 1e-4); +3 tests, 3 passed, 0 known failure, 0 skipped +[inst/db2mag.m] +>>>>> /build/reproducible-path/octave-control-4.0.1/inst/db2mag.m +***** assert (db2mag (40), 100); +***** assert (db2mag (-20), 0.1); +2 tests, 2 passed, 0 known failure, 0 skipped +[inst/cfconred.m] +>>>>> /build/reproducible-path/octave-control-4.0.1/inst/cfconred.m +***** shared Mo, Me, Info, HSVe + A = [ 0 1.0000 0 0 0 0 0 0 + 0 0 0 0 0 0 0 0 + 0 0 -0.0150 0.7650 0 0 0 0 + 0 0 -0.7650 -0.0150 0 0 0 0 + 0 0 0 0 -0.0280 1.4100 0 0 + 0 0 0 0 -1.4100 -0.0280 0 0 + 0 0 0 0 0 0 -0.0400 1.850 + 0 0 0 0 0 0 -1.8500 -0.040 ]; + + B = [ 0.0260 + -0.2510 + 0.0330 + -0.8860 + -4.0170 + 0.1450 + 3.6040 + 0.2800 ]; + + C = [ -.996 -.105 0.261 .009 -.001 -.043 0.002 -0.026 ]; + + D = [ 0.0 ]; + + G = ss (A, B, C, D); % "scaled", false + + F = [ 4.4721e-002 6.6105e-001 4.6986e-003 3.6014e-001 1.0325e-001 -3.7541e-002 -4.2685e-002 3.2873e-002 ]; + + L = [ 4.1089e-001 + 8.6846e-002 + 3.8523e-004 + -3.6194e-003 + -8.8037e-003 + 8.4205e-003 + 1.2349e-003 + 4.2632e-003 ]; + + [Kr, Info] = cfconred (G, F, L, 4, "method", "bfsr-bta", "cf", "left", "feedback", "+"); + [Ao, Bo, Co, Do] = ssdata (Kr); + + Ae = [ 0.5946 -0.7336 0.1914 -0.3368 + 0.5960 -0.0184 -0.1088 0.0207 + 1.2253 0.2043 0.1009 -1.4948 + -0.0330 -0.0243 1.3440 0.0035 ]; + + Be = [ 0.0015 + -0.0202 + 0.0159 + -0.0544 ]; + + Ce = [ 0.3534 0.0274 0.0337 -0.0320 ]; + + De = [ 0.0000 ]; + + HSVe = [ 4.9078 4.8745 3.8455 3.7811 1.2289 1.1785 0.5176 0.1148 ].'; + + Mo = [Ao, Bo; Co, Do]; + Me = [Ae, Be; Ce, De]; + +***** xtest assert (Mo, Me, 1e-4); ***** assert (Info.hsv, HSVe, 1e-4); 2 tests, 2 passed, 0 known failure, 0 skipped +[inst/acker.m] +>>>>> /build/reproducible-path/octave-control-4.0.1/inst/acker.m +***** test + # https://en.wikipedia.org/wiki/Ackermann's_formula#Example + A = [1 1; 1 2]; + B = [1; 0]; + P = roots ([1 11 30]); + K = acker(A,B,P); + assert (K, [14 57]); +1 test, 1 passed, 0 known failure, 0 skipped +[inst/place.m] +>>>>> /build/reproducible-path/octave-control-4.0.1/inst/place.m +***** shared A, B, C, P, Kexpected + A = [0, 1; 3, 2]; + B = [0; 1]; + C = [2, 1]; # C is needed for ss; it doesn't matter what the value of C is + P = [-1, -0.5]; + Kexpected = [3.5, 3.5]; +***** assert (place (ss (A, B, C), P), Kexpected, 2*eps); +***** assert (place (A, B, P), Kexpected, 2*eps); +***** shared F, F_exp, ev_ol, ev_cl + A = [-6.8000 0.0000 -207.0000 0.0000 + 1.0000 0.0000 0.0000 0.0000 + 43.2000 0.0000 0.0000 -4.2000 + 0.0000 0.0000 1.0000 0.0000]; + + B = [ 5.6400 0.0000 + 0.0000 0.0000 + 0.0000 1.1800 + 0.0000 0.0000]; + + P = [-0.5000 + 0.1500i + -0.5000 - 0.1500i]; + + ALPHA = -0.4; + TOL = 1e-8; + + F = place (A, B, P, ALPHA, TOL); + + F_exp = - [-0.0876 -4.2138 0.0837 -18.1412 + -0.0233 18.2483 -0.4259 -4.8120]; + + ev_ol = sort (eig (A)); + ev_cl = sort (eig (A - B*F)); + +***** assert (F, F_exp, 1e-4); +***** assert (ev_ol(3:4), ev_cl(3:4), 1e-4); +4 tests, 4 passed, 0 known failure, 0 skipped +[inst/impulse.m] +>>>>> /build/reproducible-path/octave-control-4.0.1/inst/impulse.m +***** test + t=0:0.1:.3; + sys=tf(0.9375,[1 2 4]); + y=impulse(sys,t); + assert (y(1), 0, eps); + assert (y(2), 0.084405001160727, 2*eps); + assert (y(3), 0.150460144774958, 2*eps); + assert (y(4), 0.199104909042133, 2*eps); +***** test + t=0:0.1:.4; + sys=tf(0.9375,[1 2 4]); + sys2=c2d(sys, 0.1, "impulse"); + y=impulse(sys2,t); + assert (y(1), 0, eps); + assert (y(2), 0.084405001160727, 2*eps); + assert (y(3), 0.150460144774958, 2*eps); + assert (y(4), 0.199104909042133, 2*eps); +***** test + s = tf("s"); + R = 1/s; + y= impulse(R); + assert (y(1), 1, eps); +***** demo + clf; + s = tf('s'); + g = 1/(2*s^2+3*s+4); + impulse(g); + title ("Impulse response of a PT2 transfer function"); +***** demo + clf; + s = tf('s'); + g = 1/(2*s^2+3*s+4); + h = c2d(g,0.1); + impulse(h); + title ("Impulse response of a discretized PT2 transfer function"); +3 tests, 3 passed, 0 known failure, 0 skipped +[inst/thiran.m] +>>>>> /build/reproducible-path/octave-control-4.0.1/inst/thiran.m +***** shared num, den, expc + expc = [1, 0.5294, -0.04813, 0.004159]; + sys = thiran (2.4, 1); + [num, den] = tfdata (sys, "vector"); +***** assert (den, expc, 1e-4); +***** assert (num, fliplr (expc), 1e-4); +***** shared num, den + sys = thiran (0.5, 0.1); + [num, den] = tfdata (sys, "vector"); +***** assert (den, [1, 0, 0, 0, 0, 0], eps); +***** assert (num, 1, eps); +***** error (thiran (-1, 1)); +***** error (thiran (1, -1)); +***** error (thiran ([1 2 3], 1)); +7 tests, 7 passed, 0 known failure, 0 skipped +[inst/estim.m] +>>>>> /build/reproducible-path/octave-control-4.0.1/inst/estim.m +***** shared m, m_exp + sys = ss (-2, 1, 1, 3); + est = estim (sys, 5); + [a, b, c, d] = ssdata (est); + m = [a, b; c, d]; + m_exp = [-7, 5; 1, 0; 1, 0]; +***** assert (m, m_exp, 1e-4); +***** shared m, m_exp + sys = ss (-1, 2, 3, 4); + est = estim (sys, 5); + [a, b, c, d] = ssdata (est); + m = [a, b; c, d]; + m_exp = [-16, 5; 3, 0; 1, 0]; +***** assert (m, m_exp, 1e-4); +2 tests, 2 passed, 0 known failure, 0 skipped [inst/fwcfconred.m] >>>>> /build/reproducible-path/octave-control-4.0.1/inst/fwcfconred.m ***** shared Mo, Me, Info, HSVe @@ -6060,6 +6156,23 @@ ***** assert (Mo, Me, 1e-4); ***** assert (Info.hsv, HSVe, 1e-4); 2 tests, 2 passed, 0 known failure, 0 skipped +[inst/bode.m] +>>>>> /build/reproducible-path/octave-control-4.0.1/inst/bode.m +***** demo + s = tf('s'); + g = 1/(2*s^2+3*s+4); + bode(g); +***** test + s = tf('s'); + K = 1; + T = 2; + g = K/(1+T*s); + [mag phas w] = bode(g); + mag_dB = 20*log10(mag); + index = find(mag_dB < -3,1); + w_cutoff = w(index); + assert (1/T, w_cutoff, eps); +1 test, 1 passed, 0 known failure, 0 skipped [inst/initial.m] >>>>> /build/reproducible-path/octave-control-4.0.1/inst/initial.m ***** shared initial_c, initial_c_exp, initial_d, initial_d_exp @@ -6125,6 +6238,10 @@ ***** assert (initial_c, initial_c_exp, 1e-4) ***** assert (initial_d, initial_d_exp, 1e-4) 2 tests, 2 passed, 0 known failure, 0 skipped +[inst/@iddata/cat.m] +>>>>> /build/reproducible-path/octave-control-4.0.1/inst/@iddata/cat.m +***** error (cat (1, iddata (1, 1), iddata ({2, 3}, {2, 3}))); +1 test, 1 passed, 0 known failure, 0 skipped [inst/@iddata/detrend.m] >>>>> /build/reproducible-path/octave-control-4.0.1/inst/@iddata/detrend.m ***** shared DATD, Z @@ -6136,28 +6253,6 @@ ***** assert (DATD.u{1}, Z, 1e-10); ***** assert (DATD.u{2}, Z, 1e-10); 4 tests, 4 passed, 0 known failure, 0 skipped -[inst/@iddata/filter.m] ->>>>> /build/reproducible-path/octave-control-4.0.1/inst/@iddata/filter.m -***** shared DATD, Z - DAT = iddata ({[(1:10).', (1:2:20).'], [(10:-1:1).', (20:-2:1).']}, {[(41:50).', (46:55).'], [(61:70).', (-66:-1:-75).']}); - DATD = detrend (DAT, "linear"); - Z = zeros (10, 2); -***** assert (DATD.y{1}, Z, 1e-10); -***** assert (DATD.y{2}, Z, 1e-10); -***** assert (DATD.u{1}, Z, 1e-10); -***** assert (DATD.u{2}, Z, 1e-10); -4 tests, 4 passed, 0 known failure, 0 skipped -[inst/@iddata/cat.m] ->>>>> /build/reproducible-path/octave-control-4.0.1/inst/@iddata/cat.m -***** error (cat (1, iddata (1, 1), iddata ({2, 3}, {2, 3}))); -1 test, 1 passed, 0 known failure, 0 skipped -[inst/@iddata/iddata.m] ->>>>> /build/reproducible-path/octave-control-4.0.1/inst/@iddata/iddata.m -***** error (iddata); -***** error (iddata ((1:10).', (1:11).')); -***** warning (iddata (1:10)); -***** warning (iddata (1:10, 1:10)); -4 tests, 4 passed, 0 known failure, 0 skipped [inst/@iddata/fft.m] >>>>> /build/reproducible-path/octave-control-4.0.1/inst/@iddata/fft.m ***** shared DATD, Y, U @@ -6171,120 +6266,136 @@ ***** assert (DATD.y{1}, Y, 1e-10); ***** assert (DATD.u{1}, U, 1e-10); 2 tests, 2 passed, 0 known failure, 0 skipped -[inst/@lti/minreal.m] ->>>>> /build/reproducible-path/octave-control-4.0.1/inst/@lti/minreal.m -***** shared C, D +[inst/@iddata/iddata.m] +>>>>> /build/reproducible-path/octave-control-4.0.1/inst/@iddata/iddata.m +***** error (iddata); +***** error (iddata ((1:10).', (1:11).')); +***** warning (iddata (1:10)); +***** warning (iddata (1:10, 1:10)); +4 tests, 4 passed, 0 known failure, 0 skipped +[inst/@iddata/filter.m] +>>>>> /build/reproducible-path/octave-control-4.0.1/inst/@iddata/filter.m +***** shared DATD, Z + DAT = iddata ({[(1:10).', (1:2:20).'], [(10:-1:1).', (20:-2:1).']}, {[(41:50).', (46:55).'], [(61:70).', (-66:-1:-75).']}); + DATD = detrend (DAT, "linear"); + Z = zeros (10, 2); +***** assert (DATD.y{1}, Z, 1e-10); +***** assert (DATD.y{2}, Z, 1e-10); +***** assert (DATD.u{1}, Z, 1e-10); +***** assert (DATD.u{2}, Z, 1e-10); +4 tests, 4 passed, 0 known failure, 0 skipped +[inst/damp.m] +>>>>> /build/reproducible-path/octave-control-4.0.1/inst/damp.m +***** test + A = [-1, 0, 0; + 0, -2, 0; + 0, 0, -3 ]; - A = ss (-2, 3, 4, 5); - B = A / A; - C = minreal (B, 1e-15); - D = ss (1); + Wn_exp = [1; + 2; + 3 ]; -***** assert (C.a, D.a); -***** assert (C.b, D.b); -***** assert (C.c, D.c); -***** assert (C.d, D.d); -***** shared M, Me - A = [ 1.0 2.0 0.0 - 4.0 -1.0 0.0 - 0.0 0.0 1.0 ]; + zeta_exp = [1; + 1; + 1 ]; - B = [ 1.0 - 0.0 - 1.0 ]; + P_exp = [-1; + -2; + -3 ]; - C = [ 0.0 1.0 -1.0 - 0.0 0.0 1.0 ]; + [Wn_obs, zeta_obs, P_obs] = damp (ss (A, ones (3, 1))); - D = zeros (2, 1); + assert (Wn_obs, Wn_exp, 0); + assert (zeta_obs, zeta_exp, 0); + assert (P_obs, P_exp, 0); +***** test + H = tf ([2, 5, 1], [1, 2, 3]); - [Ar, Br, Cr] = __sl_tb01pd__ (A, B, C, 0.0, true); - M = [Ar, Br; Cr, D]; + Wn_exp = [1.7321; + 1.7321 ]; - Ae = [ 1.0000 -1.4142 1.4142 - -2.8284 0.0000 1.0000 - 2.8284 1.0000 0.0000 ]; + zeta_exp = [0.5774; + 0.5774 ]; - Be = [-1.0000 - 0.7071 - 0.7071 ]; + P_exp = [-1.0000 + 1.4142i; + -1.0000 - 1.4142i ]; - Ce = [ 0.0000 0.0000 -1.4142 - 0.0000 0.7071 0.7071 ]; + [Wn_obs, zeta_obs, P_obs] = damp (H); - De = zeros (2, 1); + assert (Wn_obs, Wn_exp, 1e-4); + assert (zeta_obs, zeta_exp, 1e-4); + assert (P_obs, P_exp, 1e-4); +***** test + H = tf ([5, 3, 1], [1, 6, 4, 4], 0.01); - Me = [Ae, Be; Ce, De]; + Wn_exp = [193.4924; + 193.4924; + 356.5264 ]; -***** assert (M, Me, 1e-4); -***** shared Ar, Br, Cr, Dr, Er, Ae, Be, Ce, De, Ee, num, den, num2, den2, num3, num3a, den3, den3a - A = [ -2 -3 0 0 0 0 0 0 0 - 1 0 0 0 0 0 0 0 0 - 0 0 -2 -3 0 0 0 0 0 - 0 0 1 0 0 0 0 0 0 - 0 0 0 0 1 0 0 0 0 - 0 0 0 0 0 1 0 0 0 - 0 0 0 0 0 0 1 0 0 - 0 0 0 0 0 0 0 1 0 - 0 0 0 0 0 0 0 0 1 ]; + zeta_exp = [ 0.0774; + 0.0774; + -0.4728 ]; - E = [ 1 0 0 0 0 0 0 0 0 - 0 1 0 0 0 0 0 0 0 - 0 0 1 0 0 0 0 0 0 - 0 0 0 1 0 0 0 0 0 - 0 0 0 0 0 0 0 0 0 - 0 0 0 0 1 0 0 0 0 - 0 0 0 0 0 0 0 0 0 - 0 0 0 0 0 0 1 0 0 - 0 0 0 0 0 0 0 1 0 ]; + P_exp = [-0.3020 + 0.8063i; + -0.3020 - 0.8063i; + -5.3961 + 0.0000i ]; - B = [ 1 0 - 0 0 - 0 1 - 0 0 - -1 0 - 0 0 - 0 -1 - 0 0 - 0 0 ]; + [Wn_obs, zeta_obs, P_obs] = damp (H); - C = [ 1 0 1 -3 0 1 0 2 0 - 0 1 1 3 0 1 0 0 1 ]; + assert (Wn_obs, Wn_exp, 1e-4); + assert (zeta_obs, zeta_exp, 1e-4); + assert (P_obs, P_exp, 1e-4); +3 tests, 3 passed, 0 known failure, 0 skipped +[inst/covar.m] +>>>>> /build/reproducible-path/octave-control-4.0.1/inst/covar.m +***** shared p, q, p_exp, q_exp + sys = ss (-1, 1, 1, 0); + [p, q] = covar (sys, 5); + p_exp = 2.5000; + q_exp = 2.5000; +***** assert (p, p_exp, 1e-4); +***** assert (q, q_exp, 1e-4); +***** shared p, q, p_exp, q_exp + sys = ss ([-0.2, -0.5; 1, 0], [2; 0], [1, 0.5], [0], 0.1); + [p, q] = covar (sys, 5); + p_exp = 30.3167; + q_exp = [27.1493, -3.6199; -3.6199, 27.1493]; +***** assert (p, p_exp, 1e-4); +***** assert (q, q_exp, 1e-4); +4 tests, 4 passed, 0 known failure, 0 skipped +[inst/ctrbf.m] +>>>>> /build/reproducible-path/octave-control-4.0.1/inst/ctrbf.m +***** shared Ao, Bo, Co, Zo, Ae, Be, Ce, Ze, NCONT + A = [ -1.0 0.0 0.0 + -2.0 -2.0 -2.0 + -1.0 0.0 -3.0 ]; - D = zeros (2, 2); + B = [ 1.0 0.0 0.0 + 0.0 2.0 1.0 ].'; - sys = dss (A, B, C, D, E, "scaled", true); - sysmin = minreal (sys, 0.0); - [Ar, Br, Cr, Dr, Er] = dssdata (sysmin); - [num,den]=tfdata(sys); - sysmin = minreal (sys, 1e-6); - [num2,den2]=tfdata(sysmin); - sys3 = dss (Ar, Br, Cr, Dr, Er, "scaled", true); - [num3,den3]=tfdata(sys3); - sysmin3 = minreal (sys3, 1e-6); - [num3a,den3a]=tfdata(sysmin3); + C = [ 0.0 2.0 1.0 + 1.0 0.0 0.0 ]; -***** assert (num, num2 , 1e-4); -***** assert (den, den2 , 1e-4); -***** assert (num3, num3a , 1e-4); -***** assert (den3, den3a , 1e-4); -***** assert (num, num3a, 1e-4); -***** assert (den, den3a, 1e-4); -***** shared a, b, c, d - s = tf ("s"); - G1 = (s+1)*s*5/(s+1)/(s^2+s+1); - G2 = tf ([1, 1, 1], [2, 2, 2]); - G1min = minreal (G1); - G2min = minreal (G2); - a = G1min.num{1, 1}; - b = G1min.den{1, 1}; - c = G2min.num{1, 1}; - d = G2min.den{1, 1}; -***** assert (a, [5, 0], 1e-4); -***** assert (b, [1, 1, 1], 1e-4); -***** assert (c, 0.5, 1e-4); -***** assert (d, 1, 1e-4); -15 tests, 15 passed, 0 known failure, 0 skipped + [Ao, Bo, Co, Zo, NCONT] = ctrbf (A, B, C); + + Ae = [ -3.0000 2.2361 + 0.0000 -1.0000 ]; + + Be = [ 0.0000 -2.2361 + 1.0000 0.0000 ]; + + Ce = [ -2.2361 0.0000 + 0.0000 1.0000 ]; + + Ze = [ 0.0000 1.0000 0.0000 + -0.8944 0.0000 -0.4472 + -0.4472 0.0000 0.8944 ]; + +***** assert (Ao(1:NCONT, 1:NCONT), Ae, 1e-4); +***** assert (Bo(1:NCONT, :), Be, 1e-4); +***** assert (Co(:, 1:NCONT), Ce, 1e-4); +***** assert (Zo, Ze, 1e-4); +4 tests, 4 passed, 0 known failure, 0 skipped [inst/@lti/d2d.m] >>>>> /build/reproducible-path/octave-control-4.0.1/inst/@lti/d2d.m ***** shared num, den, z, p, k @@ -6299,43 +6410,6 @@ ***** assert (p, 0.5, 1e-4); ***** assert (k, 1.0, 1e-4); 5 tests, 5 passed, 0 known failure, 0 skipped -[inst/@lti/subsref.m] ->>>>> /build/reproducible-path/octave-control-4.0.1/inst/@lti/subsref.m -***** shared a - s = tf ("s"); - G = (s+1)*s*5/(s+1)/(s^2+s+1); - a = G(1,1).num{1,1}(1); -***** assert (a, 5, 1e-4); -1 test, 1 passed, 0 known failure, 0 skipped -[inst/@lti/sminreal.m] ->>>>> /build/reproducible-path/octave-control-4.0.1/inst/@lti/sminreal.m -***** shared B, C - - A = ss (-2, 3, 4, 5); - B = A / A; - C = sminreal (B); # no states should be removed - -***** assert (C.a, B.a); -***** assert (C.b, B.b); -***** assert (C.c, B.c); -***** assert (C.d, B.d); -***** shared A, B, D, E - - A = ss (-1, 1, 1, 0); - B = ss (-2, 3, 4, 5); - C = [A, B]; - D = sminreal (C(:, 1)); - E = sminreal (C(:, 2)); - -***** assert (D.a, A.a); -***** assert (D.b, A.b); -***** assert (D.c, A.c); -***** assert (D.d, A.d); -***** assert (E.a, B.a); -***** assert (E.b, B.b); -***** assert (E.c, B.c); -***** assert (E.d, B.d); -12 tests, 12 passed, 0 known failure, 0 skipped [inst/@lti/pole.m] >>>>> /build/reproducible-path/octave-control-4.0.1/inst/@lti/pole.m ***** shared pol_exp, pol_obs @@ -6401,188 +6475,276 @@ ***** assert (kronr, kronr_exp); ***** assert (kronl, kronl_exp); 5 tests, 5 passed, 0 known failure, 0 skipped -[inst/@lti/dcgain.m] ->>>>> /build/reproducible-path/octave-control-4.0.1/inst/@lti/dcgain.m -***** assert( dcgain( tf(1,[1,1]) ) , 1 ) -***** assert( dcgain( tf(2,[1,1]) ) , 2 ) -***** assert( dcgain( ss([0,1;-2,-3],[0;1],[1,0],0) ) , 0.5 ) -3 tests, 3 passed, 0 known failure, 0 skipped -[inst/@lti/c2d.m] ->>>>> /build/reproducible-path/octave-control-4.0.1/inst/@lti/c2d.m -***** shared Mo, Me - A = [ 1.0 0.5 - 0.5 1.0 ].'; +[inst/@lti/horzcat.m] +>>>>> /build/reproducible-path/octave-control-4.0.1/inst/@lti/horzcat.m +***** shared M, Me + A1 = [ 1.0 0.0 -1.0 + 0.0 -1.0 1.0 + 1.0 1.0 2.0 ]; - B = [ 0.0 -1.0 - 1.0 0.0 ].'; + B1 = [ 1.0 1.0 0.0 + 2.0 0.0 1.0 ].'; - C = [ -1.0 0.0 - 0.0 1.0 ].'; + C1 = [ 3.0 -2.0 1.0 + 0.0 1.0 0.0 ]; - D = [ 1.0 0.0 - 0.0 -1.0 ].'; + D1 = [ 1.0 0.0 + 0.0 1.0 ]; - [Ao, Bo, Co, Do] = __sl_ab04md__ (A, B, C, D, 1.0, 1.0, false); + A2 = [-3.0 0.0 0.0 + 1.0 0.0 1.0 + 0.0 -1.0 2.0 ]; - Ae = [ -1.0000 -4.0000 - -4.0000 -1.0000 ]; + B2 = [ 0.0 -1.0 0.0 + 1.0 0.0 2.0 ].'; - Be = [ 2.8284 0.0000 - 0.0000 -2.8284 ]; + C2 = [ 1.0 1.0 0.0 + 1.0 1.0 -1.0 ]; - Ce = [ 0.0000 2.8284 - -2.8284 0.0000 ]; + D2 = [ 1.0 1.0 + 0.0 1.0 ]; - De = [ -1.0000 0.0000 - 0.0000 -3.0000 ]; + sys1 = ss (A1, B1, C1, D1); + sys2 = ss (A2, B2, C2, D2); + sys = [sys1, sys2]; + [A, B, C, D] = ssdata (sys); + M = [A, B; C, D]; + + Ae = [ 1.0000 0.0000 -1.0000 0.0000 0.0000 0.0000 + 0.0000 -1.0000 1.0000 0.0000 0.0000 0.0000 + 1.0000 1.0000 2.0000 0.0000 0.0000 0.0000 + 0.0000 0.0000 0.0000 -3.0000 0.0000 0.0000 + 0.0000 0.0000 0.0000 1.0000 0.0000 1.0000 + 0.0000 0.0000 0.0000 0.0000 -1.0000 2.0000 ]; + + Be = [ 1.0000 2.0000 0.0000 0.0000 + 1.0000 0.0000 0.0000 0.0000 + 0.0000 1.0000 0.0000 0.0000 + 0.0000 0.0000 0.0000 1.0000 + 0.0000 0.0000 -1.0000 0.0000 + 0.0000 0.0000 0.0000 2.0000 ]; + + Ce = [ 3.0000 -2.0000 1.0000 1.0000 1.0000 0.0000 + 0.0000 1.0000 0.0000 1.0000 1.0000 -1.0000 ]; + + De = [ 1.0000 0.0000 1.0000 1.0000 + 0.0000 1.0000 0.0000 1.0000 ]; - Mo = [Ao, Bo; Co, Do]; Me = [Ae, Be; Ce, De]; -***** assert (Mo, Me, 1e-4); -***** shared Mo, Me - A = [ 1.0 0.5 - 0.5 1.0 ].'; +***** assert (M, Me, 1e-4); +1 test, 1 passed, 0 known failure, 0 skipped +[inst/@lti/isminimumphase.m] +>>>>> /build/reproducible-path/octave-control-4.0.1/inst/@lti/isminimumphase.m +***** assert (isminimumphase (tf (1, [1, 0])), true); +1 test, 1 passed, 0 known failure, 0 skipped +[inst/@lti/prescale.m] +>>>>> /build/reproducible-path/octave-control-4.0.1/inst/@lti/prescale.m +***** shared Ao, Bo, Co, SCALEo, MAXREDo, Ae, Be, Ce, SCALEe, MAXREDe + A = [ 0.0 1.0000e+000 0.0 0.0 0.0 + -1.5800e+006 -1.2570e+003 0.0 0.0 0.0 + 3.5410e+014 0.0 -1.4340e+003 0.0 -5.3300e+011 + 0.0 0.0 0.0 0.0 1.0000e+000 + 0.0 0.0 0.0 -1.8630e+004 -1.4820e+000 ]; - B = [ 0.0 -1.0 - 1.0 0.0 ].'; + B = [ 0.0 0.0 + 1.1030e+002 0.0 + 0.0 0.0 + 0.0 0.0 + 0.0 8.3330e-003 ]; - C = [ -1.0 0.0 - 0.0 1.0 ].'; + C = [ 1.0000e+000 0.0 0.0 0.0 0.0 + 0.0 0.0 1.0000e+000 0.0 0.0 + 0.0 0.0 0.0 1.0000e+000 0.0 + 6.6640e-001 0.0 -6.2000e-013 0.0 0.0 + 0.0 0.0 -1.0000e-003 1.8960e+006 1.5080e+002 ]; - D = [ 1.0 0.0 - 0.0 -1.0 ].'; + MAXRED = 0.0; - [Ao, Bo, Co, Do] = ssdata (c2d (ss (A, B, C, D), 2, "tustin")); + [Ao, Bo, Co, MAXREDo, SCALEo] = __sl_tb01id__ (A, B, C, MAXRED); - Ae = [ -1.0000 -4.0000 - -4.0000 -1.0000 ]; + Ae = [ 0.0000000D+00 0.1000000D+05 0.0000000D+00 0.0000000D+00 0.0000000D+00 + -0.1580000D+03 -0.1257000D+04 0.0000000D+00 0.0000000D+00 0.0000000D+00 + 0.3541000D+05 0.0000000D+00 -0.1434000D+04 0.0000000D+00 -0.5330000D+03 + 0.0000000D+00 0.0000000D+00 0.0000000D+00 0.0000000D+00 0.1000000D+03 + 0.0000000D+00 0.0000000D+00 0.0000000D+00 -0.1863000D+03 -0.1482000D+01 ]; - Be = [ 2.8284 0.0000 - 0.0000 -2.8284 ]; + Be = [ 0.0000000D+00 0.0000000D+00 + 0.1103000D+04 0.0000000D+00 + 0.0000000D+00 0.0000000D+00 + 0.0000000D+00 0.0000000D+00 + 0.0000000D+00 0.8333000D+02 ]; - Ce = [ 0.0000 2.8284 - -2.8284 0.0000 ]; + Ce = [ 0.1000000D-04 0.0000000D+00 0.0000000D+00 0.0000000D+00 0.0000000D+00 + 0.0000000D+00 0.0000000D+00 0.1000000D+06 0.0000000D+00 0.0000000D+00 + 0.0000000D+00 0.0000000D+00 0.0000000D+00 0.1000000D-05 0.0000000D+00 + 0.6664000D-05 0.0000000D+00 -0.6200000D-07 0.0000000D+00 0.0000000D+00 + 0.0000000D+00 0.0000000D+00 -0.1000000D+03 0.1896000D+01 0.1508000D-01 ]; - De = [ -1.0000 0.0000 - 0.0000 -3.0000 ]; + SCALEe = [0.1000000D-04 0.1000000D+00 0.1000000D+06 0.1000000D-05 0.1000000D-03 ]; - Mo = [Ao, Bo; Co, Do]; - Me = [Ae, Be; Ce, De]; + MAXREDe = 0.3488E+10; -***** assert (Mo, Me, 1e-4); -***** shared Mo, Me - A = [ 1.0 0.5 - 0.5 1.0 ]; +***** assert (Ao, Ae, 1e-4); +***** assert (Bo, Be, 1e-4); +***** assert (Co, Ce, 1e-4); +***** assert (MAXREDo, MAXREDe, 1e6); +***** assert (SCALEo, SCALEe.', 1e-4); +***** shared Ao, Eo, Bo, Co, LSCALEo, RSCALEo, Ae, Ee, Be, Ce, LSCALEe, RSCALEe + A = [ -1 0 0 0.003 + 0 0 0.1000 0.02 + 100 10 0 0.4 + 0 0 0 0.0]; - B = [ 0.0 -1.0 - 1.0 0.0 ]; + E = [ 1 0.2 0 0.0 + 0 1 0 0.01 + 300 90 6 0.3 + 0 0 20 0.0]; - C = [ -1.0 0.0 - 0.0 1.0 ]; + B = [ 10 0 + 0 0 + 0 1000 + 10000 10000]; - D = [ 1.0 0.0 - 0.0 -1.0 ]; + C = [ -0.1 0.0 0.001 0.0 + 0.0 0.01 -0.001 0.0001]; - [Ao, Bo, Co, Do] = ssdata (d2c (c2d (ss (A, B, C, D), 2, "tustin"), "tustin")); + TRESH = 0.0; - Mo = [Ao, Bo; Co, Do]; - Me = [A, B; C, D]; + [Ao, Eo, Bo, Co, LSCALEo, RSCALEo] = __sl_tg01ad__ (A, E, B, C, TRESH); -***** assert (Mo, Me, 1e-4); -***** shared Mo, Me - A = [ 1.0 0.5 - 0.5 1.0 ]; + Ae = [ -1.0000 0.0000 0.0000 0.3000 + 0.0000 0.0000 1.0000 2.0000 + 1.0000 0.1000 0.0000 0.4000 + 0.0000 0.0000 0.0000 0.0000]; - B = [ 0.0 -1.0 - 1.0 0.0 ]; + Ee = [ 1.0000 0.2000 0.0000 0.0000 + 0.0000 1.0000 0.0000 1.0000 + 3.0000 0.9000 0.6000 0.3000 + 0.0000 0.0000 0.2000 0.0000 ]; - C = [ -1.0 0.0 - 0.0 1.0 ]; + Be = [100.0000 0.0000 + 0.0000 0.0000 + 0.0000 100.0000 + 100.0000 100.0000 ]; - D = [ 1.0 0.0 - 0.0 -1.0 ]; + Ce = [ -0.0100 0.0000 0.0010 0.0000 + 0.0000 0.0010 -0.0010 0.0010]; - [Ao, Bo, Co, Do] = ssdata (d2c (c2d (ss (A, B, C, D), 2, "zoh"), "zoh")); + LSCALEe = [ 10.0000 10.0000 0.1000 0.0100 ]; - Mo = [Ao, Bo; Co, Do]; - Me = [A, B; C, D]; + RSCALEe = [ 0.1000 0.1000 1.0000 10.0000 ]; -***** assert (Mo, Me, 1e-4); -***** shared Mo, Me - A = [ 1.0 0.5 - 0.5 1.0 ]; +***** assert (Ao, Ae, 1e-4); +***** assert (Eo, Ee, 1e-4); +***** assert (Bo, Be, 1e-4); +***** assert (Co, Ce, 1e-4); +***** assert (LSCALEo, LSCALEe.', 1e-4); +***** assert (RSCALEo, RSCALEe.', 1e-4); +***** shared Ao, Bo, Co, INFOo, Ae, Be, Ce, SCALEe + A = [ 0.0 1.0000e+000 0.0 0.0 0.0 + -1.5800e+006 -1.2570e+003 0.0 0.0 0.0 + 3.5410e+014 0.0 -1.4340e+003 0.0 -5.3300e+011 + 0.0 0.0 0.0 0.0 1.0000e+000 + 0.0 0.0 0.0 -1.8630e+004 -1.4820e+000 ]; - B = [ 0.0 -1.0 - 1.0 0.0 ]; + B = [ 0.0 0.0 + 1.1030e+002 0.0 + 0.0 0.0 + 0.0 0.0 + 0.0 8.3330e-003 ]; - C = [ -1.0 0.0 - 0.0 1.0 ]; + C = [ 1.0000e+000 0.0 0.0 0.0 0.0 + 0.0 0.0 1.0000e+000 0.0 0.0 + 0.0 0.0 0.0 1.0000e+000 0.0 + 6.6640e-001 0.0 -6.2000e-013 0.0 0.0 + 0.0 0.0 -1.0000e-003 1.8960e+006 1.5080e+002 ]; - D = [ 1.0 0.0 - 0.0 -1.0 ]; + SYS = ss (A, B, C); - [Ao, Bo, Co, Do] = ssdata (c2d (ss (A, B, C, D), 2, "foh")); + [SYSo, INFOo] = prescale (SYS); - Ae = [ 11.4019 8.6836 - 8.6836 11.4019 ]; + [Ao, Bo, Co] = ssdata (SYSo); - Be = [ 37.5206 -43.4256 - 43.4256 -37.5206 ]; + Ae = [ 0.0000000D+00 0.1000000D+05 0.0000000D+00 0.0000000D+00 0.0000000D+00 + -0.1580000D+03 -0.1257000D+04 0.0000000D+00 0.0000000D+00 0.0000000D+00 + 0.3541000D+05 0.0000000D+00 -0.1434000D+04 0.0000000D+00 -0.5330000D+03 + 0.0000000D+00 0.0000000D+00 0.0000000D+00 0.0000000D+00 0.1000000D+03 + 0.0000000D+00 0.0000000D+00 0.0000000D+00 -0.1863000D+03 -0.1482000D+01 ]; - Ce = [ -1.0000 0.0000 - 0.0000 1.0000 ]; + Be = [ 0.0000000D+00 0.0000000D+00 + 0.1103000D+04 0.0000000D+00 + 0.0000000D+00 0.0000000D+00 + 0.0000000D+00 0.0000000D+00 + 0.0000000D+00 0.8333000D+02 ]; - De = [ -0.0690 2.5056 - 2.5056 -2.0690 ]; + Ce = [ 0.1000000D-04 0.0000000D+00 0.0000000D+00 0.0000000D+00 0.0000000D+00 + 0.0000000D+00 0.0000000D+00 0.1000000D+06 0.0000000D+00 0.0000000D+00 + 0.0000000D+00 0.0000000D+00 0.0000000D+00 0.1000000D-05 0.0000000D+00 + 0.6664000D-05 0.0000000D+00 -0.6200000D-07 0.0000000D+00 0.0000000D+00 + 0.0000000D+00 0.0000000D+00 -0.1000000D+03 0.1896000D+01 0.1508000D-01 ]; - Mo = [Ao, Bo; Co, Do]; - Me = [Ae, Be; Ce, De]; + SCALEe = [0.1000000D-04 0.1000000D+00 0.1000000D+06 0.1000000D-05 0.1000000D-03 ]; -***** assert (Mo, Me, 1e-4); -***** shared Mo, Me - A = [ 1.0 0.5 - 0.5 1.0 ]; +***** assert (Ao, Ae, 1e-4); +***** assert (Bo, Be, 1e-4); +***** assert (Co, Ce, 1e-4); +***** assert (INFOo.SL.^-1, SCALEe.', 1e-4); +***** assert (INFOo.SR, SCALEe.', 1e-4); +***** shared Ao, Eo, Bo, Co, INFOo, Ae, Ee, Be, Ce, LSCALEe, RSCALEe + A = [ -1 0 0 0.003 + 0 0 0.1000 0.02 + 100 10 0 0.4 + 0 0 0 0.0]; - B = [ 0.0 -1.0 - 1.0 0.0 ]; + E = [ 1 0.2 0 0.0 + 0 1 0 0.01 + 300 90 6 0.3 + 0 0 20 0.0]; - C = [ -1.0 0.0 - 0.0 1.0 ]; + B = [ 10 0 + 0 0 + 0 1000 + 10000 10000]; - D = [ 1.0 0.0 - 0.0 -1.0 ]; + C = [ -0.1 0.0 0.001 0.0 + 0.0 0.01 -0.001 0.0001]; - [Ao, Bo, Co, Do] = ssdata (d2c (c2d (ss (A, B, C, D), 2, "prewarp", 1000), "prewarp", 1000)); + SYS = dss (A, B, C, [], E); - Mo = [Ao, Bo; Co, Do]; - Me = [A, B; C, D]; + [SYSo, INFOo] = prescale (SYS); -***** assert (Mo, Me, 1e-4); -***** shared Aex, Aexint, Aex_exp, Aexint_exp - A = [ 5.0 4.0 3.0 2.0 1.0 - 1.0 6.0 0.0 4.0 3.0 - 2.0 0.0 7.0 6.0 5.0 - 1.0 3.0 1.0 8.0 7.0 - 2.0 5.0 7.0 1.0 9.0 ]; + [Ao, Bo, Co, ~, Eo] = dssdata (SYSo); - Aex_exp = [ 1.8391 0.9476 0.7920 0.8216 0.7811 - 0.3359 2.2262 0.4013 1.0078 1.0957 - 0.6335 0.6776 2.6933 1.6155 1.8502 - 0.4804 1.1561 0.9110 2.7461 2.0854 - 0.7105 1.4244 1.8835 1.0966 3.4134 ]; + Ae = [ -1.0000 0.0000 0.0000 0.3000 + 0.0000 0.0000 1.0000 2.0000 + 1.0000 0.1000 0.0000 0.4000 + 0.0000 0.0000 0.0000 0.0000]; - Aexint_exp = [ 0.1347 0.0352 0.0284 0.0272 0.0231 - 0.0114 0.1477 0.0104 0.0369 0.0368 - 0.0218 0.0178 0.1624 0.0580 0.0619 - 0.0152 0.0385 0.0267 0.1660 0.0732 - 0.0240 0.0503 0.0679 0.0317 0.1863 ]; + Ee = [ 1.0000 0.2000 0.0000 0.0000 + 0.0000 1.0000 0.0000 1.0000 + 3.0000 0.9000 0.6000 0.3000 + 0.0000 0.0000 0.2000 0.0000 ]; - [Aex, Aexint] = __sl_mb05nd__ (A, 0.1, 0.0001); + Be = [100.0000 0.0000 + 0.0000 0.0000 + 0.0000 100.0000 + 100.0000 100.0000 ]; -***** assert (Aex, Aex_exp, 1e-4); -***** assert (Aexint, Aexint_exp, 1e-4); -8 tests, 8 passed, 0 known failure, 0 skipped + Ce = [ -0.0100 0.0000 0.0010 0.0000 + 0.0000 0.0010 -0.0010 0.0010]; + + LSCALEe = [ 10.0000 10.0000 0.1000 0.0100 ]; + + RSCALEe = [ 0.1000 0.1000 1.0000 10.0000 ]; + +***** assert (Ao, Ae, 1e-4); +***** assert (Eo, Ee, 1e-4); +***** assert (Bo, Be, 1e-4); +***** assert (Co, Ce, 1e-4); +***** assert (INFOo.SL, LSCALEe.', 1e-4); +***** assert (INFOo.SR, RSCALEe.', 1e-4); +22 tests, 22 passed, 0 known failure, 0 skipped [inst/@lti/inv.m] >>>>> /build/reproducible-path/octave-control-4.0.1/inst/@lti/inv.m ***** shared M, Me @@ -6623,80 +6785,6 @@ ***** assert (M, Me, 1e-4); 1 test, 1 passed, 0 known failure, 0 skipped -[inst/@lti/d2c.m] ->>>>> /build/reproducible-path/octave-control-4.0.1/inst/@lti/d2c.m -***** shared Mo, Me - A = [ 1.0 0.5 - 0.5 1.0 ]; - - B = [ 0.0 -1.0 - 1.0 0.0 ]; - - C = [ -1.0 0.0 - 0.0 1.0 ]; - - D = [ 1.0 0.0 - 0.0 -1.0 ]; - - [Ao, Bo, Co, Do] = ssdata (d2c (c2d (ss (A, B, C, D), 2, "tustin"), "tustin")); - - Mo = [Ao, Bo; Co, Do]; - Me = [A, B; C, D]; - -***** assert (Mo, Me, 1e-4); -***** shared Mo, Me - A = [ 1.0 0.5 - 0.5 1.0 ]; - - B = [ 0.0 -1.0 - 1.0 0.0 ]; - - C = [ -1.0 0.0 - 0.0 1.0 ]; - - D = [ 1.0 0.0 - 0.0 -1.0 ]; - - [Ao, Bo, Co, Do] = ssdata (d2c (c2d (ss (A, B, C, D), 2, "zoh"), "zoh")); - - Mo = [Ao, Bo; Co, Do]; - Me = [A, B; C, D]; - -***** assert (Mo, Me, 1e-4); -***** shared Mo, Me - A = [ 1.0 0.5 - 0.5 1.0 ]; - - B = [ 0.0 -1.0 - 1.0 0.0 ]; - - C = [ -1.0 0.0 - 0.0 1.0 ]; - - D = [ 1.0 0.0 - 0.0 -1.0 ]; - - [Ao, Bo, Co, Do] = ssdata (d2c (c2d (ss (A, B, C, D), 2, "prewarp", 1000), "prewarp", 1000)); - - Mo = [Ao, Bo; Co, Do]; - Me = [A, B; C, D]; - -***** assert (Mo, Me, 1e-4); -3 tests, 3 passed, 0 known failure, 0 skipped -[inst/@lti/connect.m] ->>>>> /build/reproducible-path/octave-control-4.0.1/inst/@lti/connect.m -***** shared T, Texp - P = Boeing707; - I = ss (-eye (2)); - I.inname = P.outname; - I.outname = P.inname; - T = connect (P, I, P.inname, P.outname); - Texp = feedback (P); -***** assert (T.a, Texp.a, 1e-4); -***** assert (T.b, Texp.b, 1e-4); -***** assert (T.c, Texp.c, 1e-4); -***** assert (T.d, Texp.d, 1e-4); -4 tests, 4 passed, 0 known failure, 0 skipped [inst/@lti/zero.m] >>>>> /build/reproducible-path/octave-control-4.0.1/inst/@lti/zero.m ***** shared z, z_exp @@ -6932,295 +7020,291 @@ sysmat_exp = [A_exp, B_exp; C_exp, D_exp]; ***** assert (sysmat, sysmat_exp) 1 test, 1 passed, 0 known failure, 0 skipped -[inst/@lti/norm.m] ->>>>> /build/reproducible-path/octave-control-4.0.1/inst/@lti/norm.m -***** shared H2, Hinf - sys = ss (-1, 1, 1, 0); - H2 = norm (sys, 2); - Hinf = norm (sys, inf); -***** assert (H2, 0.7071, 1.5e-5); -***** assert (Hinf, 1, 5e-4); -***** shared H2, Hinf - a = [ 2.417 -1.002 0.5488 - 2 0 0 - 0 0.5 0 ]; - b = [ 1 - 0 - 0 ]; - c = [-0.424 0.436 -0.4552 ]; - d = [ 1 ]; - sys = ss (a, b, c, d, 0.1); - H2 = norm (sys, 2); - Hinf = norm (sys, inf); -***** assert (H2, 1.2527, 1.5e-5); -***** assert (Hinf, 2.7, 0.1); -4 tests, 4 passed, 0 known failure, 0 skipped -[inst/@lti/prescale.m] ->>>>> /build/reproducible-path/octave-control-4.0.1/inst/@lti/prescale.m -***** shared Ao, Bo, Co, SCALEo, MAXREDo, Ae, Be, Ce, SCALEe, MAXREDe - A = [ 0.0 1.0000e+000 0.0 0.0 0.0 - -1.5800e+006 -1.2570e+003 0.0 0.0 0.0 - 3.5410e+014 0.0 -1.4340e+003 0.0 -5.3300e+011 - 0.0 0.0 0.0 0.0 1.0000e+000 - 0.0 0.0 0.0 -1.8630e+004 -1.4820e+000 ]; +[inst/@lti/d2c.m] +>>>>> /build/reproducible-path/octave-control-4.0.1/inst/@lti/d2c.m +***** shared Mo, Me + A = [ 1.0 0.5 + 0.5 1.0 ]; - B = [ 0.0 0.0 - 1.1030e+002 0.0 - 0.0 0.0 - 0.0 0.0 - 0.0 8.3330e-003 ]; + B = [ 0.0 -1.0 + 1.0 0.0 ]; - C = [ 1.0000e+000 0.0 0.0 0.0 0.0 - 0.0 0.0 1.0000e+000 0.0 0.0 - 0.0 0.0 0.0 1.0000e+000 0.0 - 6.6640e-001 0.0 -6.2000e-013 0.0 0.0 - 0.0 0.0 -1.0000e-003 1.8960e+006 1.5080e+002 ]; + C = [ -1.0 0.0 + 0.0 1.0 ]; - MAXRED = 0.0; + D = [ 1.0 0.0 + 0.0 -1.0 ]; - [Ao, Bo, Co, MAXREDo, SCALEo] = __sl_tb01id__ (A, B, C, MAXRED); + [Ao, Bo, Co, Do] = ssdata (d2c (c2d (ss (A, B, C, D), 2, "tustin"), "tustin")); - Ae = [ 0.0000000D+00 0.1000000D+05 0.0000000D+00 0.0000000D+00 0.0000000D+00 - -0.1580000D+03 -0.1257000D+04 0.0000000D+00 0.0000000D+00 0.0000000D+00 - 0.3541000D+05 0.0000000D+00 -0.1434000D+04 0.0000000D+00 -0.5330000D+03 - 0.0000000D+00 0.0000000D+00 0.0000000D+00 0.0000000D+00 0.1000000D+03 - 0.0000000D+00 0.0000000D+00 0.0000000D+00 -0.1863000D+03 -0.1482000D+01 ]; + Mo = [Ao, Bo; Co, Do]; + Me = [A, B; C, D]; - Be = [ 0.0000000D+00 0.0000000D+00 - 0.1103000D+04 0.0000000D+00 - 0.0000000D+00 0.0000000D+00 - 0.0000000D+00 0.0000000D+00 - 0.0000000D+00 0.8333000D+02 ]; +***** assert (Mo, Me, 1e-4); +***** shared Mo, Me + A = [ 1.0 0.5 + 0.5 1.0 ]; - Ce = [ 0.1000000D-04 0.0000000D+00 0.0000000D+00 0.0000000D+00 0.0000000D+00 - 0.0000000D+00 0.0000000D+00 0.1000000D+06 0.0000000D+00 0.0000000D+00 - 0.0000000D+00 0.0000000D+00 0.0000000D+00 0.1000000D-05 0.0000000D+00 - 0.6664000D-05 0.0000000D+00 -0.6200000D-07 0.0000000D+00 0.0000000D+00 - 0.0000000D+00 0.0000000D+00 -0.1000000D+03 0.1896000D+01 0.1508000D-01 ]; + B = [ 0.0 -1.0 + 1.0 0.0 ]; - SCALEe = [0.1000000D-04 0.1000000D+00 0.1000000D+06 0.1000000D-05 0.1000000D-03 ]; + C = [ -1.0 0.0 + 0.0 1.0 ]; - MAXREDe = 0.3488E+10; + D = [ 1.0 0.0 + 0.0 -1.0 ]; -***** assert (Ao, Ae, 1e-4); -***** assert (Bo, Be, 1e-4); -***** assert (Co, Ce, 1e-4); -***** assert (MAXREDo, MAXREDe, 1e6); -***** assert (SCALEo, SCALEe.', 1e-4); -***** shared Ao, Eo, Bo, Co, LSCALEo, RSCALEo, Ae, Ee, Be, Ce, LSCALEe, RSCALEe - A = [ -1 0 0 0.003 - 0 0 0.1000 0.02 - 100 10 0 0.4 - 0 0 0 0.0]; + [Ao, Bo, Co, Do] = ssdata (d2c (c2d (ss (A, B, C, D), 2, "zoh"), "zoh")); - E = [ 1 0.2 0 0.0 - 0 1 0 0.01 - 300 90 6 0.3 - 0 0 20 0.0]; + Mo = [Ao, Bo; Co, Do]; + Me = [A, B; C, D]; - B = [ 10 0 - 0 0 - 0 1000 - 10000 10000]; +***** assert (Mo, Me, 1e-4); +***** shared Mo, Me + A = [ 1.0 0.5 + 0.5 1.0 ]; - C = [ -0.1 0.0 0.001 0.0 - 0.0 0.01 -0.001 0.0001]; + B = [ 0.0 -1.0 + 1.0 0.0 ]; - TRESH = 0.0; + C = [ -1.0 0.0 + 0.0 1.0 ]; - [Ao, Eo, Bo, Co, LSCALEo, RSCALEo] = __sl_tg01ad__ (A, E, B, C, TRESH); + D = [ 1.0 0.0 + 0.0 -1.0 ]; - Ae = [ -1.0000 0.0000 0.0000 0.3000 - 0.0000 0.0000 1.0000 2.0000 - 1.0000 0.1000 0.0000 0.4000 - 0.0000 0.0000 0.0000 0.0000]; + [Ao, Bo, Co, Do] = ssdata (d2c (c2d (ss (A, B, C, D), 2, "prewarp", 1000), "prewarp", 1000)); - Ee = [ 1.0000 0.2000 0.0000 0.0000 - 0.0000 1.0000 0.0000 1.0000 - 3.0000 0.9000 0.6000 0.3000 - 0.0000 0.0000 0.2000 0.0000 ]; + Mo = [Ao, Bo; Co, Do]; + Me = [A, B; C, D]; - Be = [100.0000 0.0000 - 0.0000 0.0000 - 0.0000 100.0000 - 100.0000 100.0000 ]; +***** assert (Mo, Me, 1e-4); +3 tests, 3 passed, 0 known failure, 0 skipped +[inst/@lti/sminreal.m] +>>>>> /build/reproducible-path/octave-control-4.0.1/inst/@lti/sminreal.m +***** shared B, C - Ce = [ -0.0100 0.0000 0.0010 0.0000 - 0.0000 0.0010 -0.0010 0.0010]; + A = ss (-2, 3, 4, 5); + B = A / A; + C = sminreal (B); # no states should be removed - LSCALEe = [ 10.0000 10.0000 0.1000 0.0100 ]; +***** assert (C.a, B.a); +***** assert (C.b, B.b); +***** assert (C.c, B.c); +***** assert (C.d, B.d); +***** shared A, B, D, E - RSCALEe = [ 0.1000 0.1000 1.0000 10.0000 ]; + A = ss (-1, 1, 1, 0); + B = ss (-2, 3, 4, 5); + C = [A, B]; + D = sminreal (C(:, 1)); + E = sminreal (C(:, 2)); -***** assert (Ao, Ae, 1e-4); -***** assert (Eo, Ee, 1e-4); -***** assert (Bo, Be, 1e-4); -***** assert (Co, Ce, 1e-4); -***** assert (LSCALEo, LSCALEe.', 1e-4); -***** assert (RSCALEo, RSCALEe.', 1e-4); -***** shared Ao, Bo, Co, INFOo, Ae, Be, Ce, SCALEe - A = [ 0.0 1.0000e+000 0.0 0.0 0.0 - -1.5800e+006 -1.2570e+003 0.0 0.0 0.0 - 3.5410e+014 0.0 -1.4340e+003 0.0 -5.3300e+011 - 0.0 0.0 0.0 0.0 1.0000e+000 - 0.0 0.0 0.0 -1.8630e+004 -1.4820e+000 ]; +***** assert (D.a, A.a); +***** assert (D.b, A.b); +***** assert (D.c, A.c); +***** assert (D.d, A.d); +***** assert (E.a, B.a); +***** assert (E.b, B.b); +***** assert (E.c, B.c); +***** assert (E.d, B.d); +12 tests, 12 passed, 0 known failure, 0 skipped +[inst/@lti/dcgain.m] +>>>>> /build/reproducible-path/octave-control-4.0.1/inst/@lti/dcgain.m +***** assert( dcgain( tf(1,[1,1]) ) , 1 ) +***** assert( dcgain( tf(2,[1,1]) ) , 2 ) +***** assert( dcgain( ss([0,1;-2,-3],[0;1],[1,0],0) ) , 0.5 ) +3 tests, 3 passed, 0 known failure, 0 skipped +[inst/@lti/connect.m] +>>>>> /build/reproducible-path/octave-control-4.0.1/inst/@lti/connect.m +***** shared T, Texp + P = Boeing707; + I = ss (-eye (2)); + I.inname = P.outname; + I.outname = P.inname; + T = connect (P, I, P.inname, P.outname); + Texp = feedback (P); +***** assert (T.a, Texp.a, 1e-4); +***** assert (T.b, Texp.b, 1e-4); +***** assert (T.c, Texp.c, 1e-4); +***** assert (T.d, Texp.d, 1e-4); +4 tests, 4 passed, 0 known failure, 0 skipped +[inst/@lti/c2d.m] +>>>>> /build/reproducible-path/octave-control-4.0.1/inst/@lti/c2d.m +***** shared Mo, Me + A = [ 1.0 0.5 + 0.5 1.0 ].'; - B = [ 0.0 0.0 - 1.1030e+002 0.0 - 0.0 0.0 - 0.0 0.0 - 0.0 8.3330e-003 ]; + B = [ 0.0 -1.0 + 1.0 0.0 ].'; - C = [ 1.0000e+000 0.0 0.0 0.0 0.0 - 0.0 0.0 1.0000e+000 0.0 0.0 - 0.0 0.0 0.0 1.0000e+000 0.0 - 6.6640e-001 0.0 -6.2000e-013 0.0 0.0 - 0.0 0.0 -1.0000e-003 1.8960e+006 1.5080e+002 ]; + C = [ -1.0 0.0 + 0.0 1.0 ].'; - SYS = ss (A, B, C); + D = [ 1.0 0.0 + 0.0 -1.0 ].'; - [SYSo, INFOo] = prescale (SYS); + [Ao, Bo, Co, Do] = __sl_ab04md__ (A, B, C, D, 1.0, 1.0, false); - [Ao, Bo, Co] = ssdata (SYSo); + Ae = [ -1.0000 -4.0000 + -4.0000 -1.0000 ]; - Ae = [ 0.0000000D+00 0.1000000D+05 0.0000000D+00 0.0000000D+00 0.0000000D+00 - -0.1580000D+03 -0.1257000D+04 0.0000000D+00 0.0000000D+00 0.0000000D+00 - 0.3541000D+05 0.0000000D+00 -0.1434000D+04 0.0000000D+00 -0.5330000D+03 - 0.0000000D+00 0.0000000D+00 0.0000000D+00 0.0000000D+00 0.1000000D+03 - 0.0000000D+00 0.0000000D+00 0.0000000D+00 -0.1863000D+03 -0.1482000D+01 ]; + Be = [ 2.8284 0.0000 + 0.0000 -2.8284 ]; - Be = [ 0.0000000D+00 0.0000000D+00 - 0.1103000D+04 0.0000000D+00 - 0.0000000D+00 0.0000000D+00 - 0.0000000D+00 0.0000000D+00 - 0.0000000D+00 0.8333000D+02 ]; + Ce = [ 0.0000 2.8284 + -2.8284 0.0000 ]; - Ce = [ 0.1000000D-04 0.0000000D+00 0.0000000D+00 0.0000000D+00 0.0000000D+00 - 0.0000000D+00 0.0000000D+00 0.1000000D+06 0.0000000D+00 0.0000000D+00 - 0.0000000D+00 0.0000000D+00 0.0000000D+00 0.1000000D-05 0.0000000D+00 - 0.6664000D-05 0.0000000D+00 -0.6200000D-07 0.0000000D+00 0.0000000D+00 - 0.0000000D+00 0.0000000D+00 -0.1000000D+03 0.1896000D+01 0.1508000D-01 ]; + De = [ -1.0000 0.0000 + 0.0000 -3.0000 ]; - SCALEe = [0.1000000D-04 0.1000000D+00 0.1000000D+06 0.1000000D-05 0.1000000D-03 ]; + Mo = [Ao, Bo; Co, Do]; + Me = [Ae, Be; Ce, De]; -***** assert (Ao, Ae, 1e-4); -***** assert (Bo, Be, 1e-4); -***** assert (Co, Ce, 1e-4); -***** assert (INFOo.SL.^-1, SCALEe.', 1e-4); -***** assert (INFOo.SR, SCALEe.', 1e-4); -***** shared Ao, Eo, Bo, Co, INFOo, Ae, Ee, Be, Ce, LSCALEe, RSCALEe - A = [ -1 0 0 0.003 - 0 0 0.1000 0.02 - 100 10 0 0.4 - 0 0 0 0.0]; +***** assert (Mo, Me, 1e-4); +***** shared Mo, Me + A = [ 1.0 0.5 + 0.5 1.0 ].'; - E = [ 1 0.2 0 0.0 - 0 1 0 0.01 - 300 90 6 0.3 - 0 0 20 0.0]; + B = [ 0.0 -1.0 + 1.0 0.0 ].'; - B = [ 10 0 - 0 0 - 0 1000 - 10000 10000]; + C = [ -1.0 0.0 + 0.0 1.0 ].'; - C = [ -0.1 0.0 0.001 0.0 - 0.0 0.01 -0.001 0.0001]; + D = [ 1.0 0.0 + 0.0 -1.0 ].'; - SYS = dss (A, B, C, [], E); + [Ao, Bo, Co, Do] = ssdata (c2d (ss (A, B, C, D), 2, "tustin")); - [SYSo, INFOo] = prescale (SYS); + Ae = [ -1.0000 -4.0000 + -4.0000 -1.0000 ]; - [Ao, Bo, Co, ~, Eo] = dssdata (SYSo); + Be = [ 2.8284 0.0000 + 0.0000 -2.8284 ]; - Ae = [ -1.0000 0.0000 0.0000 0.3000 - 0.0000 0.0000 1.0000 2.0000 - 1.0000 0.1000 0.0000 0.4000 - 0.0000 0.0000 0.0000 0.0000]; + Ce = [ 0.0000 2.8284 + -2.8284 0.0000 ]; - Ee = [ 1.0000 0.2000 0.0000 0.0000 - 0.0000 1.0000 0.0000 1.0000 - 3.0000 0.9000 0.6000 0.3000 - 0.0000 0.0000 0.2000 0.0000 ]; + De = [ -1.0000 0.0000 + 0.0000 -3.0000 ]; - Be = [100.0000 0.0000 - 0.0000 0.0000 - 0.0000 100.0000 - 100.0000 100.0000 ]; + Mo = [Ao, Bo; Co, Do]; + Me = [Ae, Be; Ce, De]; - Ce = [ -0.0100 0.0000 0.0010 0.0000 - 0.0000 0.0010 -0.0010 0.0010]; +***** assert (Mo, Me, 1e-4); +***** shared Mo, Me + A = [ 1.0 0.5 + 0.5 1.0 ]; - LSCALEe = [ 10.0000 10.0000 0.1000 0.0100 ]; + B = [ 0.0 -1.0 + 1.0 0.0 ]; - RSCALEe = [ 0.1000 0.1000 1.0000 10.0000 ]; + C = [ -1.0 0.0 + 0.0 1.0 ]; -***** assert (Ao, Ae, 1e-4); -***** assert (Eo, Ee, 1e-4); -***** assert (Bo, Be, 1e-4); -***** assert (Co, Ce, 1e-4); -***** assert (INFOo.SL, LSCALEe.', 1e-4); -***** assert (INFOo.SR, RSCALEe.', 1e-4); -22 tests, 22 passed, 0 known failure, 0 skipped -[inst/@lti/horzcat.m] ->>>>> /build/reproducible-path/octave-control-4.0.1/inst/@lti/horzcat.m -***** shared M, Me - A1 = [ 1.0 0.0 -1.0 - 0.0 -1.0 1.0 - 1.0 1.0 2.0 ]; + D = [ 1.0 0.0 + 0.0 -1.0 ]; - B1 = [ 1.0 1.0 0.0 - 2.0 0.0 1.0 ].'; + [Ao, Bo, Co, Do] = ssdata (d2c (c2d (ss (A, B, C, D), 2, "tustin"), "tustin")); - C1 = [ 3.0 -2.0 1.0 - 0.0 1.0 0.0 ]; + Mo = [Ao, Bo; Co, Do]; + Me = [A, B; C, D]; - D1 = [ 1.0 0.0 - 0.0 1.0 ]; +***** assert (Mo, Me, 1e-4); +***** shared Mo, Me + A = [ 1.0 0.5 + 0.5 1.0 ]; - A2 = [-3.0 0.0 0.0 - 1.0 0.0 1.0 - 0.0 -1.0 2.0 ]; + B = [ 0.0 -1.0 + 1.0 0.0 ]; - B2 = [ 0.0 -1.0 0.0 - 1.0 0.0 2.0 ].'; + C = [ -1.0 0.0 + 0.0 1.0 ]; - C2 = [ 1.0 1.0 0.0 - 1.0 1.0 -1.0 ]; + D = [ 1.0 0.0 + 0.0 -1.0 ]; - D2 = [ 1.0 1.0 - 0.0 1.0 ]; + [Ao, Bo, Co, Do] = ssdata (d2c (c2d (ss (A, B, C, D), 2, "zoh"), "zoh")); - sys1 = ss (A1, B1, C1, D1); - sys2 = ss (A2, B2, C2, D2); - sys = [sys1, sys2]; - [A, B, C, D] = ssdata (sys); - M = [A, B; C, D]; + Mo = [Ao, Bo; Co, Do]; + Me = [A, B; C, D]; - Ae = [ 1.0000 0.0000 -1.0000 0.0000 0.0000 0.0000 - 0.0000 -1.0000 1.0000 0.0000 0.0000 0.0000 - 1.0000 1.0000 2.0000 0.0000 0.0000 0.0000 - 0.0000 0.0000 0.0000 -3.0000 0.0000 0.0000 - 0.0000 0.0000 0.0000 1.0000 0.0000 1.0000 - 0.0000 0.0000 0.0000 0.0000 -1.0000 2.0000 ]; +***** assert (Mo, Me, 1e-4); +***** shared Mo, Me + A = [ 1.0 0.5 + 0.5 1.0 ]; - Be = [ 1.0000 2.0000 0.0000 0.0000 - 1.0000 0.0000 0.0000 0.0000 - 0.0000 1.0000 0.0000 0.0000 - 0.0000 0.0000 0.0000 1.0000 - 0.0000 0.0000 -1.0000 0.0000 - 0.0000 0.0000 0.0000 2.0000 ]; + B = [ 0.0 -1.0 + 1.0 0.0 ]; - Ce = [ 3.0000 -2.0000 1.0000 1.0000 1.0000 0.0000 - 0.0000 1.0000 0.0000 1.0000 1.0000 -1.0000 ]; + C = [ -1.0 0.0 + 0.0 1.0 ]; - De = [ 1.0000 0.0000 1.0000 1.0000 - 0.0000 1.0000 0.0000 1.0000 ]; + D = [ 1.0 0.0 + 0.0 -1.0 ]; + + [Ao, Bo, Co, Do] = ssdata (c2d (ss (A, B, C, D), 2, "foh")); + + Ae = [ 11.4019 8.6836 + 8.6836 11.4019 ]; + + Be = [ 37.5206 -43.4256 + 43.4256 -37.5206 ]; + + Ce = [ -1.0000 0.0000 + 0.0000 1.0000 ]; + + De = [ -0.0690 2.5056 + 2.5056 -2.0690 ]; + Mo = [Ao, Bo; Co, Do]; Me = [Ae, Be; Ce, De]; -***** assert (M, Me, 1e-4); -1 test, 1 passed, 0 known failure, 0 skipped +***** assert (Mo, Me, 1e-4); +***** shared Mo, Me + A = [ 1.0 0.5 + 0.5 1.0 ]; + + B = [ 0.0 -1.0 + 1.0 0.0 ]; + + C = [ -1.0 0.0 + 0.0 1.0 ]; + + D = [ 1.0 0.0 + 0.0 -1.0 ]; + + [Ao, Bo, Co, Do] = ssdata (d2c (c2d (ss (A, B, C, D), 2, "prewarp", 1000), "prewarp", 1000)); + + Mo = [Ao, Bo; Co, Do]; + Me = [A, B; C, D]; + +***** assert (Mo, Me, 1e-4); +***** shared Aex, Aexint, Aex_exp, Aexint_exp + A = [ 5.0 4.0 3.0 2.0 1.0 + 1.0 6.0 0.0 4.0 3.0 + 2.0 0.0 7.0 6.0 5.0 + 1.0 3.0 1.0 8.0 7.0 + 2.0 5.0 7.0 1.0 9.0 ]; + + Aex_exp = [ 1.8391 0.9476 0.7920 0.8216 0.7811 + 0.3359 2.2262 0.4013 1.0078 1.0957 + 0.6335 0.6776 2.6933 1.6155 1.8502 + 0.4804 1.1561 0.9110 2.7461 2.0854 + 0.7105 1.4244 1.8835 1.0966 3.4134 ]; + + Aexint_exp = [ 0.1347 0.0352 0.0284 0.0272 0.0231 + 0.0114 0.1477 0.0104 0.0369 0.0368 + 0.0218 0.0178 0.1624 0.0580 0.0619 + 0.0152 0.0385 0.0267 0.1660 0.0732 + 0.0240 0.0503 0.0679 0.0317 0.1863 ]; + + [Aex, Aexint] = __sl_mb05nd__ (A, 0.1, 0.0001); + +***** assert (Aex, Aex_exp, 1e-4); +***** assert (Aexint, Aexint_exp, 1e-4); +8 tests, 8 passed, 0 known failure, 0 skipped [inst/@lti/feedback.m] >>>>> /build/reproducible-path/octave-control-4.0.1/inst/@lti/feedback.m ***** shared M, Me @@ -7291,10 +7375,151 @@ ***** assert (S1.c, S2.c, 1e-4); ***** assert (S1.d, S2.d, 1e-4); 5 tests, 5 passed, 0 known failure, 0 skipped -[inst/@lti/isminimumphase.m] ->>>>> /build/reproducible-path/octave-control-4.0.1/inst/@lti/isminimumphase.m -***** assert (isminimumphase (tf (1, [1, 0])), true); +[inst/@lti/subsref.m] +>>>>> /build/reproducible-path/octave-control-4.0.1/inst/@lti/subsref.m +***** shared a + s = tf ("s"); + G = (s+1)*s*5/(s+1)/(s^2+s+1); + a = G(1,1).num{1,1}(1); +***** assert (a, 5, 1e-4); 1 test, 1 passed, 0 known failure, 0 skipped +[inst/@lti/minreal.m] +>>>>> /build/reproducible-path/octave-control-4.0.1/inst/@lti/minreal.m +***** shared C, D + + A = ss (-2, 3, 4, 5); + B = A / A; + C = minreal (B, 1e-15); + D = ss (1); + +***** assert (C.a, D.a); +***** assert (C.b, D.b); +***** assert (C.c, D.c); +***** assert (C.d, D.d); +***** shared M, Me + A = [ 1.0 2.0 0.0 + 4.0 -1.0 0.0 + 0.0 0.0 1.0 ]; + + B = [ 1.0 + 0.0 + 1.0 ]; + + C = [ 0.0 1.0 -1.0 + 0.0 0.0 1.0 ]; + + D = zeros (2, 1); + + [Ar, Br, Cr] = __sl_tb01pd__ (A, B, C, 0.0, true); + M = [Ar, Br; Cr, D]; + + Ae = [ 1.0000 -1.4142 1.4142 + -2.8284 0.0000 1.0000 + 2.8284 1.0000 0.0000 ]; + + Be = [-1.0000 + 0.7071 + 0.7071 ]; + + Ce = [ 0.0000 0.0000 -1.4142 + 0.0000 0.7071 0.7071 ]; + + De = zeros (2, 1); + + Me = [Ae, Be; Ce, De]; + +***** assert (M, Me, 1e-4); +***** shared Ar, Br, Cr, Dr, Er, Ae, Be, Ce, De, Ee, num, den, num2, den2, num3, num3a, den3, den3a + A = [ -2 -3 0 0 0 0 0 0 0 + 1 0 0 0 0 0 0 0 0 + 0 0 -2 -3 0 0 0 0 0 + 0 0 1 0 0 0 0 0 0 + 0 0 0 0 1 0 0 0 0 + 0 0 0 0 0 1 0 0 0 + 0 0 0 0 0 0 1 0 0 + 0 0 0 0 0 0 0 1 0 + 0 0 0 0 0 0 0 0 1 ]; + + E = [ 1 0 0 0 0 0 0 0 0 + 0 1 0 0 0 0 0 0 0 + 0 0 1 0 0 0 0 0 0 + 0 0 0 1 0 0 0 0 0 + 0 0 0 0 0 0 0 0 0 + 0 0 0 0 1 0 0 0 0 + 0 0 0 0 0 0 0 0 0 + 0 0 0 0 0 0 1 0 0 + 0 0 0 0 0 0 0 1 0 ]; + + B = [ 1 0 + 0 0 + 0 1 + 0 0 + -1 0 + 0 0 + 0 -1 + 0 0 + 0 0 ]; + + C = [ 1 0 1 -3 0 1 0 2 0 + 0 1 1 3 0 1 0 0 1 ]; + + D = zeros (2, 2); + + sys = dss (A, B, C, D, E, "scaled", true); + sysmin = minreal (sys, 0.0); + [Ar, Br, Cr, Dr, Er] = dssdata (sysmin); + [num,den]=tfdata(sys); + sysmin = minreal (sys, 1e-6); + [num2,den2]=tfdata(sysmin); + sys3 = dss (Ar, Br, Cr, Dr, Er, "scaled", true); + [num3,den3]=tfdata(sys3); + sysmin3 = minreal (sys3, 1e-6); + [num3a,den3a]=tfdata(sysmin3); + +***** assert (num, num2 , 1e-4); +***** assert (den, den2 , 1e-4); +***** assert (num3, num3a , 1e-4); +***** assert (den3, den3a , 1e-4); +***** assert (num, num3a, 1e-4); +***** assert (den, den3a, 1e-4); +***** shared a, b, c, d + s = tf ("s"); + G1 = (s+1)*s*5/(s+1)/(s^2+s+1); + G2 = tf ([1, 1, 1], [2, 2, 2]); + G1min = minreal (G1); + G2min = minreal (G2); + a = G1min.num{1, 1}; + b = G1min.den{1, 1}; + c = G2min.num{1, 1}; + d = G2min.den{1, 1}; +***** assert (a, [5, 0], 1e-4); +***** assert (b, [1, 1, 1], 1e-4); +***** assert (c, 0.5, 1e-4); +***** assert (d, 1, 1e-4); +15 tests, 15 passed, 0 known failure, 0 skipped +[inst/@lti/norm.m] +>>>>> /build/reproducible-path/octave-control-4.0.1/inst/@lti/norm.m +***** shared H2, Hinf + sys = ss (-1, 1, 1, 0); + H2 = norm (sys, 2); + Hinf = norm (sys, inf); +***** assert (H2, 0.7071, 1.5e-5); +***** assert (Hinf, 1, 5e-4); +***** shared H2, Hinf + a = [ 2.417 -1.002 0.5488 + 2 0 0 + 0 0.5 0 ]; + b = [ 1 + 0 + 0 ]; + c = [-0.424 0.436 -0.4552 ]; + d = [ 1 ]; + sys = ss (a, b, c, d, 0.1); + H2 = norm (sys, 2); + Hinf = norm (sys, inf); +***** assert (H2, 1.2527, 1.5e-5); +***** assert (Hinf, 2.7, 0.1); +4 tests, 4 passed, 0 known failure, 0 skipped [inst/@lti/plus.m] >>>>> /build/reproducible-path/octave-control-4.0.1/inst/@lti/plus.m ***** shared M, Me @@ -7354,6 +7579,847 @@ ***** assert (M, Me, 1e-4); 1 test, 1 passed, 0 known failure, 0 skipped +[inst/dlyapchol.m] +>>>>> /build/reproducible-path/octave-control-4.0.1/inst/dlyapchol.m +***** shared U, U_exp + + A = [ 0.5000 0.5000 -0.5000 + 0.0000 1.0000 -0.5000 + 1.0000 -0.5000 0.0000 ]; + + B = [ -2.0 ; 1.0 ; -1.0 ]; + + U = dlyapchol (A, B); + + U_exp = [ 5.6042 5.1284 1.9562 + 0.0000 3.4313 -1.6716 + 0.0000 0.0000 2.5621 ]; + +***** assert (U, U_exp, 1e-4); +***** shared U, U_exp + + A = [ 0.5000 0.5000 -0.5000 + 0.0000 1.0000 -0.5000 + 1.0000 -0.5000 0.0000 ]; + + B = [ -2.0 ; 1.0 ; -1.0 ]; + + E = [ 2.0000 0.0000 0.0000 + 0.0000 2.0000 0.0000 + 0.0000 0.0000 2.0000 ]; + + U = dlyapchol (A, B, E); + + U_exp = [ 1.0488 -0.3546 0.4644 + 0.0000 0.6560 -0.5187 + 0.0000 0.0000 0.4099 ]; + +***** assert (U, U_exp, 1e-4); +2 tests, 2 passed, 0 known failure, 0 skipped +[inst/hnamodred.m] +>>>>> /build/reproducible-path/octave-control-4.0.1/inst/hnamodred.m +***** shared Mo, Me, Info, HSVe + A = [ -3.8637 -7.4641 -9.1416 -7.4641 -3.8637 -1.0000 + 1.0000, 0 0 0 0 0 + 0 1.0000 0 0 0 0 + 0 0 1.0000 0 0 0 + 0 0 0 1.0000 0 0 + 0 0 0 0 1.0000 0 ]; + + B = [ 1 + 0 + 0 + 0 + 0 + 0 ]; + + C = [ 0 0 0 0 0 1 ]; + + D = [ 0 ]; + + G = ss (A, B, C, D); # "scaled", false + + AV = [ 0.2000 -1.0000 + 1.0000 0 ]; + + BV = [ 1 + 0 ]; + + CV = [ -1.8000 0 ]; + + DV = [ 1 ]; + + V = ss (AV, BV, CV, DV); + + [Gr, Info] = hnamodred (G, "left", V, "tol1", 1e-1, "tol2", 1e-14); + [Ao, Bo, Co, Do] = ssdata (Gr); + + Ae = [ -0.2391 0.3072 1.1630 1.1967 + -2.9709 -0.2391 2.6270 3.1027 + 0.0000 0.0000 -0.5137 -1.2842 + 0.0000 0.0000 0.1519 -0.5137 ]; + + Be = [ -1.0497 + -3.7052 + 0.8223 + 0.7435 ]; + + Ce = [ -0.4466 0.0143 -0.4780 -0.2013 ]; + + De = [ 0.0219 ]; + + # Since hnamodred approximates the input/output behavior only + # input/output behavior is tested using n first Markov parameters. + # The state space representaton might have different signs + # of the states. + # By multiplying the matrices for the Markov parameters, numeric errors + # would propagate, therefor the accuracy of the results are limited to + # the accuracy of the given expected results + + [Ao,Bo,Co,Do] = ssdata (Gr); + Ao = round (Ao*1e4)/1e4; + Bo = round (Bo*1e4)/1e4; + Co = round (Co*1e4)/1e4; + Do = round (Do*1e4)/1e4; + + n = size(Ao,1); + m = size(Bo,2); + p = size(Co,1); + Mo = zeros (p,(n+1)*m); + Me = zeros (p,(n+1)*m); + Mo(:,1:m) = Do; + Me(:,1:m) = De; + + Aoi = eye (n,n); + Aei = eye (n,n); + for i = 1:n + Mo(:,i*m+1:(i+1)*m) = Co*Aoi*Bo; + Me(:,i*m+1:(i+1)*m) = Ce*Aei*Be; + Aoi = Aoi*Ao; + Aei = Aei*Ae; + endfor + + HSVe = [ 2.6790 2.1589 0.8424 0.1929 0.0219 0.0011 ].'; + +***** assert (Mo, Me, 1e-3); +***** assert (Info.hsv, HSVe, 1e-4); +2 tests, 2 passed, 0 known failure, 0 skipped +[inst/dsort.m] +>>>>> /build/reproducible-path/octave-control-4.0.1/inst/dsort.m +***** shared s_exp, ndx_exp, s_obs, ndx_obs + p = [-0.2410+0.5573i; + -0.2410-0.5573i; + 0.1503; + -0.0972; + -0.2590]; + s_exp = [ -0.2410+0.5573i; + -0.2410-0.5573i; + -0.2590; + 0.1503; + -0.0972]; + ndx_exp = [ 1; + 2; + 5; + 3; + 4]; + [s_obs, ndx_obs] = dsort(p); +***** assert(s_obs, s_exp, 0); +***** assert(ndx_obs, ndx_exp, 0); +2 tests, 2 passed, 0 known failure, 0 skipped +[inst/care.m] +>>>>> /build/reproducible-path/octave-control-4.0.1/inst/care.m +***** shared x, l, g, xe, le, ge + a = [-3 2 + 1 1]; + + b = [ 0 + 1]; + + c = [ 1 -1]; + + r = 3; + + [x, l, g] = care (a, b, c.'*c, r); + + xe = [ 0.5895 1.8216 + 1.8216 8.8188]; + + le = [-3.5026 + -1.4370]; + + ge = [ 0.6072 2.9396]; + +***** assert (x, xe, 1e-4); +***** assert (l, le, 1e-4); +***** assert (g, ge, 1e-4); +***** shared x, l, g, xe, le, ge + a = [ 0.0 1.0 + 0.0 0.0]; + + b = [ 0.0 + 1.0]; + + c = [ 1.0 0.0 + 0.0 1.0 + 0.0 0.0]; + + d = [ 0.0 + 0.0 + 1.0]; + + [x, l, g] = care (a, b, c.'*c, d.'*d); + + xe = [ 1.7321 1.0000 + 1.0000 1.7321]; + + le = [-0.8660 + 0.5000i + -0.8660 - 0.5000i]; + + ge = [ 1.0000 1.7321]; + +***** assert (x, xe, 1e-4); +***** assert (l, le, 1e-4); +***** assert (g, ge, 1e-4); +***** shared x, xe + a = [ 0.0 1.0 + 0.0 0.0 ]; + + e = [ 1.0 0.0 + 0.0 1.0 ]; + + b = [ 0.0 + 1.0 ]; + + c = [ 1.0 0.0 + 0.0 1.0 + 0.0 0.0 ]; + + d = [ 0.0 + 0.0 + 1.0 ]; + + x = care (a, b, c.'*c, d.'*d, [], e); + + xe = [ 1.7321 1.0000 + 1.0000 1.7321 ]; + +***** assert (x, xe, 1e-4); +7 tests, 7 passed, 0 known failure, 0 skipped +[inst/lyap.m] +>>>>> /build/reproducible-path/octave-control-4.0.1/inst/lyap.m +***** shared X, X_exp + A = [1, 2; -3, -4]; + Q = [3, 1; 1, 1]; + X = lyap (A, Q); + X_exp = [ 6.1667, -3.8333; + -3.8333, 3.0000]; +***** assert (X, X_exp, 1e-4); +***** shared X, X_exp + A = [2.0 1.0 3.0 + 0.0 2.0 1.0 + 6.0 1.0 2.0]; + + B = [2.0 1.0 + 1.0 6.0]; + + C = [2.0 1.0 + 1.0 4.0 + 0.0 5.0]; + + X = lyap (A, B, -C); + + X_exp = [-2.7685 0.5498 + -1.0531 0.6865 + 4.5257 -0.4389]; + +***** assert (X, X_exp, 1e-4); +***** shared X, X_exp + A = [ 3.0 1.0 1.0 + 1.0 3.0 0.0 + 1.0 0.0 2.0]; + + E = [ 1.0 3.0 0.0 + 3.0 2.0 1.0 + 1.0 0.0 1.0]; + + B = [-64.0 -73.0 -28.0 + -73.0 -70.0 -25.0 + -28.0 -25.0 -18.0]; + + X = lyap (A.', -B, [], E.'); + + X_exp = [-2.0000 -1.0000 0.0000 + -1.0000 -3.0000 -1.0000 + 0.0000 -1.0000 -3.0000]; + +***** assert (X, X_exp, 1e-4); +3 tests, 3 passed, 0 known failure, 0 skipped +[inst/btaconred.m] +>>>>> /build/reproducible-path/octave-control-4.0.1/inst/btaconred.m +***** shared Mo, Me, Info, HSVCe + A = [ -1. 0. 4. + 0. 2. 0. + 0. 0. -3. ]; + + B = [ 1. + 1. + 1. ]; + + C = [ 1. 1. 1. ]; + + D = [ 0. ]; + + G = ss (A, B, C, D, "scaled", true); + + AC = [ -26.4000, 6.4023, 4.3868; + 32.0000, 0, 0; + 0, 8.0000, 0 ]; + + BC = [ -16 + 0 + 0 ]; + + CC = [ 9.2994 1.1624 0.1090 ]; + + DC = [ 0 ]; + + K = ss (AC, BC, CC, DC, "scaled", true); + + [Kr, Info] = btaconred (G, K, 2, "weight", "input", "feedback", "+"); + + Ae = [ 9.1900 0.0000 + 0.0000 -34.5297 ]; + + Be = [ -11.9593 + 86.3137 ]; + + Ce = [ 2.8955 -1.3566 ]; + + De = [ 0.0000 ]; + + # Since btaconred approximates an output controller, + # only its input/output behavior is important and is tested + # using n first Markov parameters. + # The state space representaton might have different signs + # of the states. + # By multiplying the matrices for the Markov parameters, numeric errors + # would propagate, therefor the accuracy of the results are limited to + # the accuracy of the given expected results + + [Ao,Bo,Co,Do] = ssdata (Kr); + Ao = round (Ao*1e4)/1e4; + Bo = round (Bo*1e4)/1e4; + Co = round (Co*1e4)/1e4; + Do = round (Do*1e4)/1e4; + + n = size(Ao,1); + m = size(Bo,2); + p = size(Co,1); + Mo = zeros (p,(n+1)*m); + Me = zeros (p,(n+1)*m); + Mo(:,1:m) = Do; + Me(:,1:m) = De; + + Aoi = eye (n,n); + Aei = eye (n,n); + for i = 1:n + Mo(:,(i-1)*m+1:i*m) = Co*Aoi*Bo; + Me(:,(i-1)*m+1:i*m) = Ce*Aei*Be; + Aoi = Aoi*Ao; + Aei = Aei*Ae; + endfor + + HSVCe = [ 3.8253 0.2005 ].'; + +***** xtest assert (Mo, Me, 1e-4); +***** assert (Info.hsvc, HSVCe, 1e-4); +2 tests, 2 passed, 0 known failure, 0 skipped +[inst/mag2db.m] +>>>>> /build/reproducible-path/octave-control-4.0.1/inst/mag2db.m +***** assert (mag2db (100), 40); +***** assert (mag2db (0.1), -20); +2 tests, 2 passed, 0 known failure, 0 skipped +[inst/fitfrd.m] +>>>>> /build/reproducible-path/octave-control-4.0.1/inst/fitfrd.m +***** shared Yo, Ye + SYS = ss (-1, 1, 1, 0); + T = 0:0.1:50; + Ye = step (SYS, T); + W = logspace (-2, 2, 100); + FR = frd (SYS, W); + N = 1; + SYSID = fitfrd (FR, N, 1); + Yo = step (SYSID, T); +***** assert (Yo, Ye, 1e-2); +1 test, 1 passed, 0 known failure, 0 skipped +[inst/filt.m] +>>>>> /build/reproducible-path/octave-control-4.0.1/inst/filt.m +***** shared num, den, n1, d1, n2, d2, n2e, d2e + num = [0, 3]; + den = [1, 4, 2]; + sys = filt (num, den); + [n1, d1] = filtdata (sys, "vector"); + [n2, d2] = tfdata (sys, "vector"); + n2e = [3, 0]; + d2e = [1, 4, 2]; +***** assert (n1, num, 1e-4); +***** assert (d1, den, 1e-4); +***** assert (n2, n2e, 1e-4); +***** assert (d2, d2e, 1e-4); +4 tests, 4 passed, 0 known failure, 0 skipped +[inst/dlyap.m] +>>>>> /build/reproducible-path/octave-control-4.0.1/inst/dlyap.m +***** shared X, X_exp + A = [3.0 1.0 1.0 + 1.0 3.0 0.0 + 0.0 0.0 3.0]; + + B = [25.0 24.0 15.0 + 24.0 32.0 8.0 + 15.0 8.0 40.0]; + + X = dlyap (A.', -B); + + X_exp = [2.0000 1.0000 1.0000 + 1.0000 3.0000 0.0000 + 1.0000 0.0000 4.0000]; + +***** assert (X, X_exp, 1e-4); +***** shared X, X_exp + A = [3.0 1.0 1.0 + 1.0 3.0 0.0 + 0.0 0.0 3.0]; + + B = [1.0 0.2 2.0 + 0.5 0.5 1.0 + 1.0 -2.0 1.0]; + + X = dlyap (A.', -B); + + X_exp = [0.1390 -0.0514 0.1831 + -0.0086 0.0676 0.0422 + 0.2005 -0.3233 -0.0362]; + +***** assert (X, X_exp, 1e-4); +***** shared X, X_exp + A = [1.0 2.0 3.0 + 6.0 7.0 8.0 + 9.0 2.0 3.0]; + + B = [7.0 2.0 3.0 + 2.0 1.0 2.0 + 3.0 4.0 1.0]; + + C = [271.0 135.0 147.0 + 923.0 494.0 482.0 + 578.0 383.0 287.0]; + + X = dlyap (-A, B, C); + + X_exp = [2.0000 3.0000 6.0000 + 4.0000 7.0000 1.0000 + 5.0000 3.0000 2.0000]; + +***** assert (X, X_exp, 1e-4); +***** shared X, X_exp + A = [3.0 1.0 1.0 + 1.0 3.0 0.0 + 1.0 0.0 2.0]; + + E = [1.0 3.0 0.0 + 3.0 2.0 1.0 + 1.0 0.0 1.0]; + + B = [ -3.0 -10.0 7.0 + -10.0 -14.0 -2.0 + 7.0 -2.0 9.0 ]; + + X = dlyap (A, B, [], E); + + X_exp = [-2.0000 -1.0000 0.0000 + -1.0000 -3.0000 -1.0000 + 0.0000 -1.0000 -3.0000]; + +***** assert (X, X_exp, 1e-4); +4 tests, 4 passed, 0 known failure, 0 skipped +[inst/btamodred.m] +>>>>> /build/reproducible-path/octave-control-4.0.1/inst/btamodred.m +***** shared Mo, Me, Info, HSVe + A = [ -26.4000, 6.4023, 4.3868; + 32.0000, 0, 0; + 0, 8.0000, 0 ]; + + B = [ 16 + 0 + 0 ]; + + C = [ 9.2994 1.1624 0.1090 ]; + + D = [ 0 ]; + + G = ss (A, B, C, D); % "scaled", false + + AV = [ -1.0000, 0, 4.0000, -9.2994, -1.1624, -0.1090; + 0, 2.0000, 0, -9.2994, -1.1624, -0.1090; + 0, 0, -3.0000, -9.2994, -1.1624, -0.1090; + 16.0000, 16.0000, 16.0000, -26.4000, 6.4023, 4.3868; + 0, 0, 0, 32.0000, 0, 0; + 0, 0, 0, 0, 8.0000, 0 ]; + + BV = [ 1 + 1 + 1 + 0 + 0 + 0 ]; + + CV = [ 1 1 1 0 0 0 ]; + + DV = [ 0 ]; + + V = ss (AV, BV, CV, DV); + + [Gr, Info] = btamodred (G, 2, "left", V); + + Ae = [ 9.1900 0.0000 + 0.0000 -34.5297 ]; + + Be = [ -11.9593 + -16.9329 ]; + + Ce = [ -2.8955 -6.9152 ]; + + De = [ 0.0000 ]; + + # Since btamodred approximates the input/output behavior only + # input/output behavior is tested using n first Markov parameters. + # The state space representaton might have different signs + # of the states. + # By multiplying the matrices for the Markov parameters, numeric errors + # would propagate, therefor the accuracy of the results are limited to + # the accuracy of the given expected results + + [Ao,Bo,Co,Do] = ssdata (Gr); + Ao = round (Ao*1e4)/1e4; + Bo = round (Bo*1e4)/1e4; + Co = round (Co*1e4)/1e4; + Do = round (Do*1e4)/1e4; + + n = size(Ao,1); + m = size(Bo,2); + p = size(Co,1); + Mo = zeros (p,(n+1)*m); + Me = zeros (p,(n+1)*m); + Mo(:,1:m) = Do; + Me(:,1:m) = De; + + Aoi = eye (n,n); + Aei = eye (n,n); + for i = 1:n + Mo(:,(i-1)*m+1:i*m) = Co*Aoi*Bo; + Me(:,(i-1)*m+1:i*m) = Ce*Aei*Be; + Aoi = Aoi*Ao; + Aei = Aei*Ae; + endfor + + HSVe = [ 3.8253 0.2005 ].'; + +***** xtest assert (Mo, Me, 1e-4); +***** assert (Info.hsv, HSVe, 1e-4); +2 tests, 2 passed, 0 known failure, 0 skipped +[inst/hinfsyn.m] +>>>>> /build/reproducible-path/octave-control-4.0.1/inst/hinfsyn.m +***** shared M, M_exp + A = [-1.0 0.0 4.0 5.0 -3.0 -2.0 + -2.0 4.0 -7.0 -2.0 0.0 3.0 + -6.0 9.0 -5.0 0.0 2.0 -1.0 + -8.0 4.0 7.0 -1.0 -3.0 0.0 + 2.0 5.0 8.0 -9.0 1.0 -4.0 + 3.0 -5.0 8.0 0.0 2.0 -6.0]; + + B = [-3.0 -4.0 -2.0 1.0 0.0 + 2.0 0.0 1.0 -5.0 2.0 + -5.0 -7.0 0.0 7.0 -2.0 + 4.0 -6.0 1.0 1.0 -2.0 + -3.0 9.0 -8.0 0.0 5.0 + 1.0 -2.0 3.0 -6.0 -2.0]; + + C = [ 1.0 -1.0 2.0 -4.0 0.0 -3.0 + -3.0 0.0 5.0 -1.0 1.0 1.0 + -7.0 5.0 0.0 -8.0 2.0 -2.0 + 9.0 -3.0 4.0 0.0 3.0 7.0 + 0.0 1.0 -2.0 1.0 -6.0 -2.0]; + + D = [ 1.0 -2.0 -3.0 0.0 0.0 + 0.0 4.0 0.0 1.0 0.0 + 5.0 -3.0 -4.0 0.0 1.0 + 0.0 1.0 0.0 1.0 -3.0 + 0.0 0.0 1.0 7.0 1.0]; + + P = ss (A, B, C, D); + K = hinfsyn (P, 2, 2, "method", "sub", "gmax", 15); + M = [K.A, K.B; K.C, K.D]; + + KA = [ -2.8043 14.7367 4.6658 8.1596 0.0848 2.5290 + 4.6609 3.2756 -3.5754 -2.8941 0.2393 8.2920 + -15.3127 23.5592 -7.1229 2.7599 5.9775 -2.0285 + -22.0691 16.4758 12.5523 -16.3602 4.4300 -3.3168 + 30.6789 -3.9026 -1.3868 26.2357 -8.8267 10.4860 + -5.7429 0.0577 10.8216 -11.2275 1.5074 -10.7244]; + + KB = [ -0.1581 -0.0793 + -0.9237 -0.5718 + 0.7984 0.6627 + 0.1145 0.1496 + -0.6743 -0.2376 + 0.0196 -0.7598]; + + KC = [ -0.2480 -0.1713 -0.0880 0.1534 0.5016 -0.0730 + 2.8810 -0.3658 1.3007 0.3945 1.2244 2.5690]; + + KD = [ 0.0554 0.1334 + -0.3195 0.0333]; + + M_exp = [KA, KB; KC, KD]; + +***** assert (M, M_exp, 1e-4); +***** shared M, M_exp + A = [-0.7 0.0 0.3 0.0 -0.5 -0.1 + -0.6 0.2 -0.4 -0.3 0.0 0.0 + -0.5 0.7 -0.1 0.0 0.0 -0.8 + -0.7 0.0 0.0 -0.5 -1.0 0.0 + 0.0 0.3 0.6 -0.9 0.1 -0.4 + 0.5 -0.8 0.0 0.0 0.2 -0.9]; + + B = [-1.0 -2.0 -2.0 1.0 0.0 + 1.0 0.0 1.0 -2.0 1.0 + -3.0 -4.0 0.0 2.0 -2.0 + 1.0 -2.0 1.0 0.0 -1.0 + 0.0 1.0 -2.0 0.0 3.0 + 1.0 0.0 3.0 -1.0 -2.0]; + + C = [ 1.0 -1.0 2.0 -2.0 0.0 -3.0 + -3.0 0.0 1.0 -1.0 1.0 0.0 + 0.0 2.0 0.0 -4.0 0.0 -2.0 + 1.0 -3.0 0.0 0.0 3.0 1.0 + 0.0 1.0 -2.0 1.0 0.0 -2.0]; + + D = [ 1.0 -1.0 -2.0 0.0 0.0 + 0.0 1.0 0.0 1.0 0.0 + 2.0 -1.0 -3.0 0.0 1.0 + 0.0 1.0 0.0 1.0 -1.0 + 0.0 0.0 1.0 2.0 1.0]; + + P = ss (A, B, C, D, 1); # value of sampling time doesn't matter + K = hinfsyn (P, 2, 2, "method", "sub", "gmax", 111.294); + M = [K.A, K.B; K.C, K.D]; + + KA = [-18.0030 52.0376 26.0831 -0.4271 -40.9022 18.0857 + 18.8203 -57.6244 -29.0938 0.5870 45.3309 -19.8644 + -26.5994 77.9693 39.0368 -1.4020 -60.1129 26.6910 + -21.4163 62.1719 30.7507 -0.9201 -48.6221 21.8351 + -0.8911 4.2787 2.3286 -0.2424 -3.0376 1.2169 + -5.3286 16.1955 8.4824 -0.2489 -12.2348 5.1590]; + + KB = [ 16.9788 14.1648 + -18.9215 -15.6726 + 25.2046 21.2848 + 20.1122 16.8322 + 1.4104 1.2040 + 5.3181 4.5149]; + + KC = [ -9.1941 27.5165 13.7364 -0.3639 -21.5983 9.6025 + 3.6490 -10.6194 -5.2772 0.2432 8.1108 -3.6293]; + + KD = [ 9.0317 7.5348 + -3.4006 -2.8219]; + + M_exp = [KA, KB; KC, KD]; + +***** assert (M, M_exp, 1e-4); +***** shared M, M_exp, GAM_exp, GAM + A = [-0.7 0.0 0.3 0.0 -0.5 -0.1 + -0.6 0.2 -0.4 -0.3 0.0 0.0 + -0.5 0.7 -0.1 0.0 0.0 -0.8 + -0.7 0.0 0.0 -0.5 -1.0 0.0 + 0.0 0.3 0.6 -0.9 0.1 -0.4 + 0.5 -0.8 0.0 0.0 0.2 -0.9]; + + B = [-1.0 -2.0 -2.0 1.0 0.0 + 1.0 0.0 1.0 -2.0 1.0 + -3.0 -4.0 0.0 2.0 -2.0 + 1.0 -2.0 1.0 0.0 -1.0 + 0.0 1.0 -2.0 0.0 3.0 + 1.0 0.0 3.0 -1.0 -2.0]; + + C = [ 1.0 -1.0 2.0 -2.0 0.0 -3.0 + -3.0 0.0 1.0 -1.0 1.0 0.0 + 0.0 2.0 0.0 -4.0 0.0 -2.0 + 1.0 -3.0 0.0 0.0 3.0 1.0 + 0.0 1.0 -2.0 1.0 0.0 -2.0]; + + D = [ 1.0 -1.0 -2.0 0.0 0.0 + 0.0 1.0 0.0 1.0 0.0 + 2.0 -1.0 -3.0 0.0 1.0 + 0.0 1.0 0.0 1.0 -1.0 + 0.0 0.0 1.0 2.0 1.0]; + + P = ss (A, B, C, D, 1); + [K, ~, GAM] = hinfsyn (P, 2, 2, "gmax", 1000, "tolgam", 1e-4); + M = [K.A, K.B; K.C, K.D]; + + KA = [-18.0030 52.0376 26.0831 -0.4271 -40.9022 18.0857 + 18.8203 -57.6244 -29.0938 0.5870 45.3309 -19.8644 + -26.5994 77.9693 39.0368 -1.4020 -60.1129 26.6910 + -21.4163 62.1719 30.7507 -0.9201 -48.6221 21.8351 + -0.8911 4.2787 2.3286 -0.2424 -3.0376 1.2169 + -5.3286 16.1955 8.4824 -0.2489 -12.2348 5.1590]; + + KB = [ 16.9788 14.1648 + -18.9215 -15.6726 + 25.2046 21.2848 + 20.1122 16.8322 + 1.4104 1.2040 + 5.3181 4.5149]; + + KC = [ -9.1941 27.5165 13.7364 -0.3639 -21.5983 9.6025 + 3.6490 -10.6194 -5.2772 0.2432 8.1108 -3.6293]; + + KD = [ 9.0317 7.5348 + -3.4006 -2.8219]; + + M_exp = [KA, KB; KC, KD]; + GAM_exp = 111.294; + +***** assert (M, M_exp, 1e-1); +***** assert (GAM, GAM_exp, 1e-3); +4 tests, 4 passed, 0 known failure, 0 skipped +[inst/h2syn.m] +>>>>> /build/reproducible-path/octave-control-4.0.1/inst/h2syn.m +***** shared M, M_exp + A = [-1.0 0.0 4.0 5.0 -3.0 -2.0 + -2.0 4.0 -7.0 -2.0 0.0 3.0 + -6.0 9.0 -5.0 0.0 2.0 -1.0 + -8.0 4.0 7.0 -1.0 -3.0 0.0 + 2.0 5.0 8.0 -9.0 1.0 -4.0 + 3.0 -5.0 8.0 0.0 2.0 -6.0]; + + B = [-3.0 -4.0 -2.0 1.0 0.0 + 2.0 0.0 1.0 -5.0 2.0 + -5.0 -7.0 0.0 7.0 -2.0 + 4.0 -6.0 1.0 1.0 -2.0 + -3.0 9.0 -8.0 0.0 5.0 + 1.0 -2.0 3.0 -6.0 -2.0]; + + C = [ 1.0 -1.0 2.0 -4.0 0.0 -3.0 + -3.0 0.0 5.0 -1.0 1.0 1.0 + -7.0 5.0 0.0 -8.0 2.0 -2.0 + 9.0 -3.0 4.0 0.0 3.0 7.0 + 0.0 1.0 -2.0 1.0 -6.0 -2.0]; + + D = [ 0.0 0.0 0.0 -4.0 -1.0 + 0.0 0.0 0.0 1.0 0.0 + 0.0 0.0 0.0 0.0 1.0 + 3.0 1.0 0.0 1.0 -3.0 + -2.0 0.0 1.0 7.0 1.0]; + + P = ss (A, B, C, D); + K = h2syn (P, 2, 2); + M = [K.A, K.B; K.C, K.D]; + + KA = [ 88.0015 -145.7298 -46.2424 82.2168 -45.2996 -31.1407 + 25.7489 -31.4642 -12.4198 9.4625 -3.5182 2.7056 + 54.3008 -102.4013 -41.4968 50.8412 -20.1286 -26.7191 + 108.1006 -198.0785 -45.4333 70.3962 -25.8591 -37.2741 + -115.8900 226.1843 47.2549 -47.8435 -12.5004 34.7474 + 59.0362 -101.8471 -20.1052 36.7834 -16.1063 -26.4309]; + + KB = [ 3.7345 3.4758 + -0.3020 0.6530 + 3.4735 4.0499 + 4.3198 7.2755 + -3.9424 -10.5942 + 2.1784 2.5048]; + + KC = [ -2.3346 3.2556 0.7150 -0.9724 0.6962 0.4074 + 7.6899 -8.4558 -2.9642 7.0365 -4.2844 0.1390]; + + KD = [ 0.0000 0.0000 + 0.0000 0.0000]; + + M_exp = [KA, KB; KC, KD]; + +***** assert (M, M_exp, 1e-4); +***** shared M, M_exp + A = [-0.7 0.0 0.3 0.0 -0.5 -0.1 + -0.6 0.2 -0.4 -0.3 0.0 0.0 + -0.5 0.7 -0.1 0.0 0.0 -0.8 + -0.7 0.0 0.0 -0.5 -1.0 0.0 + 0.0 0.3 0.6 -0.9 0.1 -0.4 + 0.5 -0.8 0.0 0.0 0.2 -0.9]; + + B = [-1.0 -2.0 -2.0 1.0 0.0 + 1.0 0.0 1.0 -2.0 1.0 + -3.0 -4.0 0.0 2.0 -2.0 + 1.0 -2.0 1.0 0.0 -1.0 + 0.0 1.0 -2.0 0.0 3.0 + 1.0 0.0 3.0 -1.0 -2.0]; + + C = [ 1.0 -1.0 2.0 -2.0 0.0 -3.0 + -3.0 0.0 1.0 -1.0 1.0 0.0 + 0.0 2.0 0.0 -4.0 0.0 -2.0 + 1.0 -3.0 0.0 0.0 3.0 1.0 + 0.0 1.0 -2.0 1.0 0.0 -2.0]; + + D = [ 1.0 -1.0 -2.0 0.0 0.0 + 0.0 1.0 0.0 1.0 0.0 + 2.0 -1.0 -3.0 0.0 1.0 + 0.0 1.0 0.0 1.0 -1.0 + 0.0 0.0 1.0 2.0 1.0]; + + P = ss (A, B, C, D, 1); # value of sampling time doesn't matter + K = h2syn (P, 2, 2); + M = [K.A, K.B; K.C, K.D]; + + KA = [-0.0551 -2.1891 -0.6607 -0.2532 0.6674 -1.0044 + -1.0379 2.3804 0.5031 0.3960 -0.6605 1.2673 + -0.0876 -2.1320 -0.4701 -1.1461 1.2927 -1.5116 + -0.1358 -2.1237 -0.9560 -0.7144 0.6673 -0.7957 + 0.4900 0.0895 0.2634 -0.2354 0.1623 -0.2663 + 0.1672 -0.4163 0.2871 -0.1983 0.4944 -0.6967]; + + KB = [-0.5985 -0.5464 + 0.5285 0.6087 + -0.7600 -0.4472 + -0.7288 -0.6090 + 0.0532 0.0658 + -0.0663 0.0059]; + + KC = [ 0.2500 -1.0200 -0.3371 -0.2733 0.2747 -0.4444 + 0.0654 0.2095 0.0632 0.2089 -0.1895 0.1834]; + + KD = [-0.2181 -0.2070 + 0.1094 0.1159]; + + M_exp = [KA, KB; KC, KD]; + +***** assert (M, M_exp, 1e-4); +2 tests, 2 passed, 0 known failure, 0 skipped +[inst/sigma.m] +>>>>> /build/reproducible-path/octave-control-4.0.1/inst/sigma.m +***** shared sv_exp, w_exp, sv_obs, w_obs + A = [1, 2; 3, 4]; + B = [5, 6; 7, 8]; + C = [4, 3; 2, 1]; + D = [8, 7; 6, 5]; + w = [2, 3, 4]; + sv_exp = [7.9176, 8.6275, 9.4393; + 0.6985, 0.6086, 0.5195]; + w_exp = [2; 3; 4]; + [sv_obs, w_obs] = sigma (ss (A, B, C, D), w); +***** assert (sv_obs, sv_exp, 1e-4); +***** assert (w_obs, w_exp, 1e-4); +2 tests, 2 passed, 0 known failure, 0 skipped [inst/kalman.m] >>>>> /build/reproducible-path/octave-control-4.0.1/inst/kalman.m ***** shared m, m_exp, g, g_exp, x, x_exp @@ -7368,68 +8434,623 @@ ***** assert (g, g_exp, 1e-2); ***** assert (x, x_exp, 1e-2); 3 tests, 3 passed, 0 known failure, 0 skipped -[inst/damp.m] ->>>>> /build/reproducible-path/octave-control-4.0.1/inst/damp.m +[inst/lsim.m] +>>>>> /build/reproducible-path/octave-control-4.0.1/inst/lsim.m ***** test - A = [-1, 0, 0; - 0, -2, 0; - 0, 0, -3 ]; + n = 5; + m = 3; + p = 2; + A = diag ([0:-2:-2*(n-1)]); + B = [ (1:1:n)' (-1:1:n-2)' (2:1:n+1)']; + C = [1 0 1 0 0 ; 0 1 0 1 1 ]; + D = zeros (p,m); - Wn_exp = [1; - 2; - 3 ]; + sys = ss(A, B, C, D); + dt = 0.1; + t = 0:dt:1; + x0 = zeros(n,1); + u = [ sin(2*t') cos(3*t') sin(4*t') ]; + [y1, t1] = lsim(sys, u, t, x0); + [y2, t2] = lsim(sys, u', t, x0); - zeta_exp = [1; - 1; - 1 ]; + sysd = c2d (sys, dt, 'foh'); + x0 = x0 - sysd.userdata * u(1,:)'; # foh-doscretization + [y3, t3] = lsim(sysd, u, [], x0); + [y4, t4] = lsim(sysd, u', [], x0); - P_exp = [-1; - -2; - -3 ]; + assert (y1,y2,1e-4); + assert (y1,y3,1e-4); + assert (y1,y4,1e-4); +***** demo + clf; + A = [-3 0 0; + 0 -2 1; + 10 -17 0]; + B = [4; + 0; + 0]; + C = [0 0 1]; + D = 0; + sys = ss(A,B,C,D); + t = 0:0.01:10; + u = zeros (length(t) ,1); + x0 = [0 0.1 0]; + lsim(sys, u, t, x0); +1 test, 1 passed, 0 known failure, 0 skipped +[inst/gram.m] +>>>>> /build/reproducible-path/octave-control-4.0.1/inst/gram.m +***** test + a = [-1 0 0; 1/2 -1 0; 1/2 0 -1]; + b = [1 0; 0 -1; 0 1]; + c = [0 0 1; 1 1 0]; ## it doesn't matter what the value of c is + Wc = gram (ss (a, b, c), "c"); + assert (a * Wc + Wc * a.' + b * b.', zeros (size (a))) +***** test + a = [-1 0 0; 1/2 -1 0; 1/2 0 -1]; + b = [1 0; 0 -1; 0 1]; ## it doesn't matter what the value of b is + c = [0 0 1; 1 1 0]; + Wo = gram (ss (a, b, c), "o"); + assert (a.' * Wo + Wo * a + c.' * c, zeros (size (a))) +***** test + a = [-1 0 0; 1/2 -1 0; 1/2 0 -1]; + b = [1 0; 0 -1; 0 1]; + Wc = gram (a, b); + assert (a * Wc + Wc * a.' + b * b.', zeros (size (a))) +***** test + a = [-1 0 0; 1/2 1 0; 1/2 0 -1] / 2; + b = [1 0; 0 -1; 0 1]; + c = [0 0 1; 1 1 0]; ## it doesn't matter what the value of c is + d = zeros (rows (c), columns (b)); ## it doesn't matter what the value of d is + Ts = 0.1; ## Ts != 0 + Wc = gram (ss (a, b, c, d, Ts), "c"); + assert (a * Wc * a.' - Wc + b * b.', zeros (size (a)), 1e-12) +***** test + a = [-1 0 0; 1/2 1 0; 1/2 0 -1] / 2; + b = [1 0; 0 -1; 0 1]; ## it doesn't matter what the value of b is + c = [0 0 1; 1 1 0]; + d = zeros (rows (c), columns (b)); ## it doesn't matter what the value of d is + Ts = 0.1; ## Ts != 0 + Wo = gram (ss (a, b, c, d, Ts), "o"); + assert (a.' * Wo * a - Wo + c.' * c, zeros (size (a)), 1e-12) +5 tests, 5 passed, 0 known failure, 0 skipped +[inst/ncfsyn.m] +>>>>> /build/reproducible-path/octave-control-4.0.1/inst/ncfsyn.m +***** shared AK, BK, CK, DK, RCOND, AKe, BKe, CKe, DKe, RCONDe + A = [ -1.0 0.0 4.0 5.0 -3.0 -2.0 + -2.0 4.0 -7.0 -2.0 0.0 3.0 + -6.0 9.0 -5.0 0.0 2.0 -1.0 + -8.0 4.0 7.0 -1.0 -3.0 0.0 + 2.0 5.0 8.0 -9.0 1.0 -4.0 + 3.0 -5.0 8.0 0.0 2.0 -6.0 ]; - [Wn_obs, zeta_obs, P_obs] = damp (ss (A, ones (3, 1))); + B = [ -3.0 -4.0 + 2.0 0.0 + -5.0 -7.0 + 4.0 -6.0 + -3.0 9.0 + 1.0 -2.0 ]; - assert (Wn_obs, Wn_exp, 0); - assert (zeta_obs, zeta_exp, 0); - assert (P_obs, P_exp, 0); -***** test - H = tf ([2, 5, 1], [1, 2, 3]); + C = [ 1.0 -1.0 2.0 -4.0 0.0 -3.0 + -3.0 0.0 5.0 -1.0 1.0 1.0 + -7.0 5.0 0.0 -8.0 2.0 -2.0 ]; - Wn_exp = [1.7321; - 1.7321 ]; + D = [ 1.0 -2.0 + 0.0 4.0 + 5.0 -3.0 ]; - zeta_exp = [0.5774; - 0.5774 ]; + FACTOR = 1.0; - P_exp = [-1.0000 + 1.4142i; - -1.0000 - 1.4142i ]; + [AK, BK, CK, DK, RCOND] = __sl_sb10id__ (A, B, C, D, FACTOR); - [Wn_obs, zeta_obs, P_obs] = damp (H); + AKe = [ -39.0671 9.9293 22.2322 -27.4113 43.8655 + -6.6117 3.0006 11.0878 -11.4130 15.4269 + 33.6805 -6.6934 -23.9953 14.1438 -33.4358 + -32.3191 9.7316 25.4033 -24.0473 42.0517 + -44.1655 18.7767 34.8873 -42.4369 50.8437 ]; - assert (Wn_obs, Wn_exp, 1e-4); - assert (zeta_obs, zeta_exp, 1e-4); - assert (P_obs, P_exp, 1e-4); -***** test - H = tf ([5, 3, 1], [1, 6, 4, 4], 0.01); + BKe = [ -10.2905 -16.5382 -10.9782 + -4.3598 -8.7525 -5.1447 + 6.5962 1.8975 6.2316 + -9.8770 -14.7041 -11.8778 + -9.6726 -22.7309 -18.2692 ]; - Wn_exp = [193.4924; - 193.4924; - 356.5264 ]; + CKe = [ -0.6647 -0.0599 -1.0376 0.5619 1.7297 + -8.4202 3.9573 7.3094 -7.6283 10.6768 ]; - zeta_exp = [ 0.0774; - 0.0774; - -0.4728 ]; + DKe = [ 0.8466 0.4979 -0.6993 + -1.2226 -4.8689 -4.5056 ]; - P_exp = [-0.3020 + 0.8063i; - -0.3020 - 0.8063i; - -5.3961 + 0.0000i ]; + RCONDe = [ 0.13861D-01 0.90541D-02 ].'; - [Wn_obs, zeta_obs, P_obs] = damp (H); +***** assert (AK, AKe, 1e-4); +***** assert (BK, BKe, 1e-4); +***** assert (CK, CKe, 1e-4); +***** assert (DK, DKe, 1e-4); +***** assert (RCOND, RCONDe, 1e-4); +***** shared AK, BK, CK, DK, RCOND, AKe, BKe, CKe, DKe, RCONDe + A = [ -1.0 0.0 4.0 5.0 -3.0 -2.0 + -2.0 4.0 -7.0 -2.0 0.0 3.0 + -6.0 9.0 -5.0 0.0 2.0 -1.0 + -8.0 4.0 7.0 -1.0 -3.0 0.0 + 2.0 5.0 8.0 -9.0 1.0 -4.0 + 3.0 -5.0 8.0 0.0 2.0 -6.0 ]; - assert (Wn_obs, Wn_exp, 1e-4); - assert (zeta_obs, zeta_exp, 1e-4); - assert (P_obs, P_exp, 1e-4); + B = [ -3.0 -4.0 + 2.0 0.0 + -5.0 -7.0 + 4.0 -6.0 + -3.0 9.0 + 1.0 -2.0 ]; + + C = [ 1.0 -1.0 2.0 -4.0 0.0 -3.0 + -3.0 0.0 5.0 -1.0 1.0 1.0 + -7.0 5.0 0.0 -8.0 2.0 -2.0 ]; + + D = [ 1.0 -2.0 + 0.0 4.0 + 5.0 -3.0 ]; + + FACTOR = 1.0; + + G = ss (A, B, C, D); + K = ncfsyn (G, [], [], FACTOR); + [AK, BK, CK, DK] = ssdata (K); + + AKe = [ -39.0671 9.9293 22.2322 -27.4113 43.8655 + -6.6117 3.0006 11.0878 -11.4130 15.4269 + 33.6805 -6.6934 -23.9953 14.1438 -33.4358 + -32.3191 9.7316 25.4033 -24.0473 42.0517 + -44.1655 18.7767 34.8873 -42.4369 50.8437 ]; + + BKe = [ -10.2905 -16.5382 -10.9782 + -4.3598 -8.7525 -5.1447 + 6.5962 1.8975 6.2316 + -9.8770 -14.7041 -11.8778 + -9.6726 -22.7309 -18.2692 ]; + + CKe = [ -0.6647 -0.0599 -1.0376 0.5619 1.7297 + -8.4202 3.9573 7.3094 -7.6283 10.6768 ]; + + DKe = [ 0.8466 0.4979 -0.6993 + -1.2226 -4.8689 -4.5056 ]; + + RCONDe = [ 0.13861D-01 0.90541D-02 ]; + +***** assert (AK, AKe, 1e-4); +***** assert (BK, BKe, 1e-4); +***** assert (CK, CKe, 1e-4); +***** assert (DK, DKe, 1e-4); +***** shared AK, BK, CK, DK, RCOND, AKe, BKe, CKe, DKe, RCONDe + A = [ 0.2 0.0 0.3 0.0 -0.3 -0.1 + -0.3 0.2 -0.4 -0.3 0.0 0.0 + -0.1 0.1 -0.1 0.0 0.0 -0.3 + 0.1 0.0 0.0 -0.1 -0.1 0.0 + 0.0 0.3 0.6 0.2 0.1 -0.4 + 0.2 -0.4 0.0 0.0 0.2 -0.2 ]; + + B = [ -1.0 -2.0 + 1.0 3.0 + -3.0 -4.0 + 1.0 -2.0 + 0.0 1.0 + 1.0 5.0 ]; + + C = [ 1.0 -1.0 2.0 -2.0 0.0 -3.0 + -3.0 0.0 1.0 -1.0 1.0 -1.0 ]; + + FACTOR = 1.1; + + [AK, BK, CK, DK, RCOND] = __sl_sb10kd__ (A, B, C, FACTOR); + + AKe = [ 0.0337 0.0222 0.0858 0.1264 -0.1872 0.1547 + 0.4457 0.0668 -0.2255 -0.3204 -0.4548 -0.0691 + -0.2419 -0.2506 -0.0982 -0.1321 -0.0130 -0.0838 + -0.4402 0.3654 -0.0335 -0.2444 0.6366 -0.6469 + -0.3623 0.3854 0.4162 0.4502 0.0065 0.1261 + -0.0121 -0.4377 0.0604 0.2265 -0.3389 0.4542 ]; + + BKe = [ 0.0931 -0.0269 + -0.0872 0.1599 + 0.0956 -0.1469 + -0.1728 0.0129 + 0.2022 -0.1154 + 0.2419 -0.1737 ]; + + CKe = [ -0.3677 0.2188 0.0403 -0.0854 0.3564 -0.3535 + 0.1624 -0.0708 0.0058 0.0606 -0.2163 0.1802 ]; + + DKe = [ -0.0857 -0.0246 + 0.0460 0.0074 ]; + + RCONDe = [ 0.11269D-01 0.17596D-01 0.18225D+00 0.75968D-03 ].'; + +***** assert (AK, AKe, 1e-4); +***** assert (BK, BKe, 1e-4); +***** assert (CK, CKe, 1e-4); +***** assert (DK, DKe, 1e-4); +***** assert (RCOND, RCONDe, 1e-4); +***** shared AK, BK, CK, DK, RCOND, AKe, BKe, CKe, DKe, RCONDe + A = [ 0.2 0.0 0.3 0.0 -0.3 -0.1 + -0.3 0.2 -0.4 -0.3 0.0 0.0 + -0.1 0.1 -0.1 0.0 0.0 -0.3 + 0.1 0.0 0.0 -0.1 -0.1 0.0 + 0.0 0.3 0.6 0.2 0.1 -0.4 + 0.2 -0.4 0.0 0.0 0.2 -0.2 ]; + + B = [ -1.0 -2.0 + 1.0 3.0 + -3.0 -4.0 + 1.0 -2.0 + 0.0 1.0 + 1.0 5.0 ]; + + C = [ 1.0 -1.0 2.0 -2.0 0.0 -3.0 + -3.0 0.0 1.0 -1.0 1.0 -1.0 ]; + + FACTOR = 1.1; + + G = ss (A, B, C, [], 1); # value of sampling time doesn't matter + K = ncfsyn (G, [], [], FACTOR); + [AK, BK, CK, DK] = ssdata (K); + + AKe = [ 0.0337 0.0222 0.0858 0.1264 -0.1872 0.1547 + 0.4457 0.0668 -0.2255 -0.3204 -0.4548 -0.0691 + -0.2419 -0.2506 -0.0982 -0.1321 -0.0130 -0.0838 + -0.4402 0.3654 -0.0335 -0.2444 0.6366 -0.6469 + -0.3623 0.3854 0.4162 0.4502 0.0065 0.1261 + -0.0121 -0.4377 0.0604 0.2265 -0.3389 0.4542 ]; + + BKe = [ 0.0931 -0.0269 + -0.0872 0.1599 + 0.0956 -0.1469 + -0.1728 0.0129 + 0.2022 -0.1154 + 0.2419 -0.1737 ]; + + CKe = [ -0.3677 0.2188 0.0403 -0.0854 0.3564 -0.3535 + 0.1624 -0.0708 0.0058 0.0606 -0.2163 0.1802 ]; + + DKe = [ -0.0857 -0.0246 + 0.0460 0.0074 ]; + + RCONDe = [ 0.11269D-01 0.17596D-01 0.18225D+00 0.75968D-03 ].'; + +***** assert (AK, AKe, 1e-4); +***** assert (BK, BKe, 1e-4); +***** assert (CK, CKe, 1e-4); +***** assert (DK, DKe, 1e-4); +***** shared AK, BK, CK, DK, RCOND, AKe, BKe, CKe, DKe, RCONDe + A = [ 0.2 0.0 3.0 0.0 -0.3 -0.1 + -3.0 0.2 -0.4 -0.3 0.0 0.0 + -0.1 0.1 -1.0 0.0 0.0 -3.0 + 1.0 0.0 0.0 -1.0 -1.0 0.0 + 0.0 0.3 0.6 2.0 0.1 -0.4 + 0.2 -4.0 0.0 0.0 0.2 -2.0 ]; + + B = [ -1.0 -2.0 + 1.0 3.0 + -3.0 -4.0 + 1.0 -2.0 + 0.0 1.0 + 1.0 5.0 ]; + + C = [ 1.0 -1.0 2.0 -2.0 0.0 -3.0 + -3.0 0.0 1.0 -1.0 1.0 -1.0 + 2.0 4.0 -3.0 0.0 5.0 1.0 ]; + + D = [ 10.0 -6.0 + -7.0 8.0 + 2.0 -4.0 ]; + + FACTOR = 1.1; + + [AK, BK, CK, DK, RCOND] = __sl_sb10zd__ (A, B, C, D, FACTOR, 0.0); + + AKe = [ 1.0128 0.5101 -0.1546 1.1300 3.3759 0.4911 + -2.1257 -1.4517 -0.4486 0.3493 -1.5506 -1.4296 + -1.0930 -0.6026 -0.1344 0.2253 -1.5625 -0.6762 + 0.3207 0.1698 0.2376 -1.1781 -0.8705 0.2896 + 0.5017 0.9006 0.0668 2.3613 0.2049 0.3703 + 1.0787 0.6703 0.2783 -0.7213 0.4918 0.7435 ]; + + BKe = [ 0.4132 0.3112 -0.8077 + 0.2140 0.4253 0.1811 + -0.0710 0.0807 0.3558 + -0.0121 -0.2019 0.0249 + 0.1047 0.1399 -0.0457 + -0.2542 -0.3472 0.0523 ]; + + CKe = [ -0.0372 -0.0456 -0.0040 0.0962 -0.2059 -0.0571 + 0.1999 0.2994 0.1335 -0.0251 -0.3108 0.2048 ]; + + DKe = [ 0.0629 -0.0022 0.0363 + -0.0228 0.0195 0.0600 ]; + + RCONDe = [ 0.27949D-03 0.66679D-03 0.45677D-01 0.23433D-07 0.68495D-01 0.76854D-01 ].'; + +***** assert (AK, AKe, 1e-4); +***** assert (BK, BKe, 1e-4); +***** assert (CK, CKe, 1e-4); +***** assert (DK, DKe, 1e-4); +***** assert (RCOND, RCONDe, 1e-4); +***** shared AK, BK, CK, DK, RCOND, AKe, BKe, CKe, DKe, RCONDe + A = [ 0.2 0.0 3.0 0.0 -0.3 -0.1 + -3.0 0.2 -0.4 -0.3 0.0 0.0 + -0.1 0.1 -1.0 0.0 0.0 -3.0 + 1.0 0.0 0.0 -1.0 -1.0 0.0 + 0.0 0.3 0.6 2.0 0.1 -0.4 + 0.2 -4.0 0.0 0.0 0.2 -2.0 ]; + + B = [ -1.0 -2.0 + 1.0 3.0 + -3.0 -4.0 + 1.0 -2.0 + 0.0 1.0 + 1.0 5.0 ]; + + C = [ 1.0 -1.0 2.0 -2.0 0.0 -3.0 + -3.0 0.0 1.0 -1.0 1.0 -1.0 + 2.0 4.0 -3.0 0.0 5.0 1.0 ]; + + D = [ 10.0 -6.0 + -7.0 8.0 + 2.0 -4.0 ]; + + FACTOR = 1.1; + + G = ss (A, B, C, D, 1); # value of sampling time doesn't matter + K = ncfsyn (G, [], [], FACTOR); + [AK, BK, CK, DK] = ssdata (K); + + AKe = [ 1.0128 0.5101 -0.1546 1.1300 3.3759 0.4911 + -2.1257 -1.4517 -0.4486 0.3493 -1.5506 -1.4296 + -1.0930 -0.6026 -0.1344 0.2253 -1.5625 -0.6762 + 0.3207 0.1698 0.2376 -1.1781 -0.8705 0.2896 + 0.5017 0.9006 0.0668 2.3613 0.2049 0.3703 + 1.0787 0.6703 0.2783 -0.7213 0.4918 0.7435 ]; + + BKe = [ 0.4132 0.3112 -0.8077 + 0.2140 0.4253 0.1811 + -0.0710 0.0807 0.3558 + -0.0121 -0.2019 0.0249 + 0.1047 0.1399 -0.0457 + -0.2542 -0.3472 0.0523 ]; + + CKe = [ -0.0372 -0.0456 -0.0040 0.0962 -0.2059 -0.0571 + 0.1999 0.2994 0.1335 -0.0251 -0.3108 0.2048 ]; + + DKe = [ 0.0629 -0.0022 0.0363 + -0.0228 0.0195 0.0600 ]; + + RCONDe = [ 0.27949D-03 0.66679D-03 0.45677D-01 0.23433D-07 0.68495D-01 0.76854D-01 ].'; + +***** assert (AK, AKe, 1e-4); +***** assert (BK, BKe, 1e-4); +***** assert (CK, CKe, 1e-4); +***** assert (DK, DKe, 1e-4); +27 tests, 27 passed, 0 known failure, 0 skipped +[inst/dare.m] +>>>>> /build/reproducible-path/octave-control-4.0.1/inst/dare.m +***** shared x, l, g, xe, le, ge + a = [ 0.4 1.7 + 0.9 3.8]; + + b = [ 0.8 + 2.1]; + + c = [ 1 -1]; + + r = 3; + + [x, l, g] = dare (a, b, c.'*c, r); + + xe = [ 1.5354 1.2623 + 1.2623 10.5596]; + + le = [-0.0022 + 0.2454]; + + ge = [ 0.4092 1.7283]; + +***** assert (x, xe, 1e-4); +***** assert (sort (l), sort (le), 1e-4); +***** assert (g, ge, 1e-4); 3 tests, 3 passed, 0 known failure, 0 skipped +[inst/esort.m] +>>>>> /build/reproducible-path/octave-control-4.0.1/inst/esort.m +***** shared s_exp, ndx_exp, s_obs, ndx_obs + p = [-0.2410+0.5573i; + -0.2410-0.5573i; + 0.1503; + -0.0972; + -0.2590]; + s_exp = [ 0.1503; + -0.0972; + -0.2410+0.5573i; + -0.2410-0.5573i; + -0.2590]; + ndx_exp = [ 3; + 4; + 1; + 2; + 5]; + [s_obs, ndx_obs] = esort(p); +***** assert(s_obs, s_exp, 0); +***** assert(ndx_obs, ndx_exp, 0); +2 tests, 2 passed, 0 known failure, 0 skipped +[inst/pzmap.m] +>>>>> /build/reproducible-path/octave-control-4.0.1/inst/pzmap.m +***** demo + z = tf('z',1); + G1z = (z+1)/(z-0.75)/(z^2-1*z+1); + pzmap(G1z); +***** demo + s = tf('s'); + G1 = 1/(2*s^2+3*s+4); + G2 = (1-s)/(1+s)/(s^2+s+1); + pzmap(G1,G2); +***** test + s = tf('s'); + G = (s-1)/(s-2)/(s-3); + [pol zer] = pzmap(G); + assert(sort(pol), [2 3]', 2*eps); + assert(zer, 1, eps); +***** test + s = tf('s'); + g = 1/(2*s^2+3*s+4); + pol = pzmap(g); + assert(sort(pol), sort(roots([2 3 4]')), eps); +2 tests, 2 passed, 0 known failure, 0 skipped +[inst/@ss/ss2ss.m] +>>>>> /build/reproducible-path/octave-control-4.0.1/inst/@ss/ss2ss.m +***** test + A = [1 2 3; 4 5 6; 7 8 9]; + B = [1; 2; 3]; + C = [-1 0 1]; + D = 0; + + [T E] = eig(A); + + original_system = ss(A,B,C,D); + transformed_system = ss2ss(original_system,T); + assert(transformed_system.a, [0.5755 2.006 -0.8179; 6.684 13.62 -2.585; -4.476 -7.826 0.8073],e-14); + assert(transformed_system.b, [-0.5789; -3.148; 1.631],e-14); + assert(transformed_system.c, [0.8912 -0.2231 1.112],e-14); + assert(transformed_system.d, 0); + retransformed_system = ss2ss(transformed_system,inv(T)); + assert(original_system.a,retransformed_system.a,e-14); + assert(original_system.b,retransformed_system.b,e-14); + assert(original_system.c,retransformed_system.c,e-14); + assert(original_system.d,retransformed_system.d,e-14); +1 test, 1 passed, 0 known failure, 0 skipped +[inst/bstmodred.m] +>>>>> /build/reproducible-path/octave-control-4.0.1/inst/bstmodred.m +***** shared Mo, Me, Info, HSVe + A = [ -0.04165 0.0000 4.9200 -4.9200 0.0000 0.0000 0.0000 + -5.2100 -12.500 0.0000 0.0000 0.0000 0.0000 0.0000 + 0.0000 3.3300 -3.3300 0.0000 0.0000 0.0000 0.0000 + 0.5450 0.0000 0.0000 0.0000 -0.5450 0.0000 0.0000 + 0.0000 0.0000 0.0000 4.9200 -0.04165 0.0000 4.9200 + 0.0000 0.0000 0.0000 0.0000 -5.2100 -12.500 0.0000 + 0.0000 0.0000 0.0000 0.0000 0.0000 3.3300 -3.3300 ]; + + B = [ 0.0000 0.0000 + 12.500 0.0000 + 0.0000 0.0000 + 0.0000 0.0000 + 0.0000 0.0000 + 0.0000 12.500 + 0.0000 0.0000 ]; + + C = [ 1.0000 0.0000 0.0000 0.0000 0.0000 0.0000 0.0000 + 0.0000 0.0000 0.0000 1.0000 0.0000 0.0000 0.0000 + 0.0000 0.0000 0.0000 0.0000 1.0000 0.0000 0.0000 ]; + + D = [ 0.0000 0.0000 + 0.0000 0.0000 + 0.0000 0.0000 ]; + + sys = ss (A, B, C, D, "scaled", true); + + [sys_red, Info] = bstmodred (sys, "beta", 1.0, "tol1", 0.1, "tol2", 0.0); + + # Expected results + Ae = [ 1.2729 0.0000 6.5947 0.0000 -3.4229 + 0.0000 0.8169 0.0000 2.4821 0.0000 + -2.9889 0.0000 -2.9028 0.0000 -0.3692 + 0.0000 -3.3921 0.0000 -3.1126 0.0000 + -1.4767 0.0000 -2.0339 0.0000 -0.6107 ]; + + Be = [ 0.1331 -0.1331 + -0.0862 -0.0862 + -2.6777 2.6777 + -3.5767 -3.5767 + -2.3033 2.3033 ]; + + Ce = [ -0.6907 -0.6882 0.0779 0.0958 -0.0038 + 0.0676 0.0000 0.6532 0.0000 -0.7522 + 0.6907 -0.6882 -0.0779 0.0958 0.0038 ]; + + De = [ 0.0000 0.0000 + 0.0000 0.0000 + 0.0000 0.0000 ]; + + HSVe = [ 0.8803 0.8506 0.8038 0.4494 0.3973 0.0214 0.0209 ].'; + + # Since bstmodred reduces the model while approximaton the input/output + # behavior, only input/output behavior is tested by means of the first + # n markov parameters. The state space representation is not unique. + # By multiplying the matrices for the Markov parameters, numeric errors + # would propagate, therefor the accuracy of the results are limited to + # the accuracy of the given expected results + + [Ao, Bo, Co, Do] = ssdata (sys_red); + Ao = round (Ao*1e4)/1e4; + Bo = round (Bo*1e4)/1e4; + Co = round (Co*1e4)/1e4; + Do = round (Do*1e4)/1e4; + + n = size(Ao,1); + m = size(Bo,2); + p = size(Co,1); + Mo = zeros (p,(n+1)*m); + Me = zeros (p,(n+1)*m); + Mo(:,1:m) = Do; + Me(:,1:m) = De; + + Aoi = eye (n,n); + Aei = eye (n,n); + for i = 1:n + Mo(:,(i-1)*m+1:i*m) = Co*Aoi*Bo; + Me(:,(i-1)*m+1:i*m) = Ce*Aei*Be; + Aoi = Aoi*Ao; + Aei = Aei*Ae; + endfor + +***** assert (Mo, Me, 1e-4) +***** assert (Info.hsv, HSVe, 1e-4) +2 tests, 2 passed, 0 known failure, 0 skipped +[inst/issample.m] +>>>>> /build/reproducible-path/octave-control-4.0.1/inst/issample.m +***** assert (issample (1)) +***** assert (issample (pi)) +***** assert (issample (0), false) +***** assert (issample (-1), false) +***** assert (issample (-1, 1), false) +***** assert (issample ("a"), false) +***** assert (issample (eye (2)), false) +***** assert (issample (2+2i), false) +***** assert (issample (1, 0)) +***** assert (issample (0, 0)) +***** assert (issample (-1, 0), false) +***** assert (issample (pi, 0)) +***** assert (issample ("b", 0), false) +***** assert (issample (rand (3,2), 0), false) +***** assert (issample (2+2i, 0), false) +***** assert (issample (0+2i, 0), false) +***** assert (issample (-1, -1)) +***** assert (issample (0, -1), false) +***** assert (issample (1, -1)) +***** assert (issample (pi, -1)) +***** assert (issample (-pi, -1), false) +***** assert (issample ("b", -1), false) +***** assert (issample (rand (3,2), -1), false) +***** assert (issample (-2+2i, -1), false) +***** error (issample (-1, "ab")) +***** error (issample ()) +***** error (issample (-1, -1, -1)) +***** error (issample (1, pi)) +***** error (issample (5, rand (2,3))) +***** error (issample (0, 1+2i)) +30 tests, 30 passed, 0 known failure, 0 skipped +[inst/obsv.m] +>>>>> /build/reproducible-path/octave-control-4.0.1/inst/obsv.m +***** assert (obsv ([1, 0; 0, -0.5], [8, 8]), [8, 8; 8, -4]); +1 test, 1 passed, 0 known failure, 0 skipped +[inst/ctrb.m] +>>>>> /build/reproducible-path/octave-control-4.0.1/inst/ctrb.m +***** assert (ctrb ([1, 0; 0, -0.5], [8; 8]), [8, 8; 8, -4]); +1 test, 1 passed, 0 known failure, 0 skipped [inst/ltimodels.m] >>>>> /build/reproducible-path/octave-control-4.0.1/inst/ltimodels.m ***** shared ltisys @@ -9133,1591 +10754,6 @@ ***** assert (Mo, Me, 1e-4); 43 tests, 33 passed, 0 known failure, 10 skipped -[inst/dsort.m] ->>>>> /build/reproducible-path/octave-control-4.0.1/inst/dsort.m -***** shared s_exp, ndx_exp, s_obs, ndx_obs - p = [-0.2410+0.5573i; - -0.2410-0.5573i; - 0.1503; - -0.0972; - -0.2590]; - s_exp = [ -0.2410+0.5573i; - -0.2410-0.5573i; - -0.2590; - 0.1503; - -0.0972]; - ndx_exp = [ 1; - 2; - 5; - 3; - 4]; - [s_obs, ndx_obs] = dsort(p); -***** assert(s_obs, s_exp, 0); -***** assert(ndx_obs, ndx_exp, 0); -2 tests, 2 passed, 0 known failure, 0 skipped -[inst/ncfsyn.m] ->>>>> /build/reproducible-path/octave-control-4.0.1/inst/ncfsyn.m -***** shared AK, BK, CK, DK, RCOND, AKe, BKe, CKe, DKe, RCONDe - A = [ -1.0 0.0 4.0 5.0 -3.0 -2.0 - -2.0 4.0 -7.0 -2.0 0.0 3.0 - -6.0 9.0 -5.0 0.0 2.0 -1.0 - -8.0 4.0 7.0 -1.0 -3.0 0.0 - 2.0 5.0 8.0 -9.0 1.0 -4.0 - 3.0 -5.0 8.0 0.0 2.0 -6.0 ]; - - B = [ -3.0 -4.0 - 2.0 0.0 - -5.0 -7.0 - 4.0 -6.0 - -3.0 9.0 - 1.0 -2.0 ]; - - C = [ 1.0 -1.0 2.0 -4.0 0.0 -3.0 - -3.0 0.0 5.0 -1.0 1.0 1.0 - -7.0 5.0 0.0 -8.0 2.0 -2.0 ]; - - D = [ 1.0 -2.0 - 0.0 4.0 - 5.0 -3.0 ]; - - FACTOR = 1.0; - - [AK, BK, CK, DK, RCOND] = __sl_sb10id__ (A, B, C, D, FACTOR); - - AKe = [ -39.0671 9.9293 22.2322 -27.4113 43.8655 - -6.6117 3.0006 11.0878 -11.4130 15.4269 - 33.6805 -6.6934 -23.9953 14.1438 -33.4358 - -32.3191 9.7316 25.4033 -24.0473 42.0517 - -44.1655 18.7767 34.8873 -42.4369 50.8437 ]; - - BKe = [ -10.2905 -16.5382 -10.9782 - -4.3598 -8.7525 -5.1447 - 6.5962 1.8975 6.2316 - -9.8770 -14.7041 -11.8778 - -9.6726 -22.7309 -18.2692 ]; - - CKe = [ -0.6647 -0.0599 -1.0376 0.5619 1.7297 - -8.4202 3.9573 7.3094 -7.6283 10.6768 ]; - - DKe = [ 0.8466 0.4979 -0.6993 - -1.2226 -4.8689 -4.5056 ]; - - RCONDe = [ 0.13861D-01 0.90541D-02 ].'; - -***** assert (AK, AKe, 1e-4); -***** assert (BK, BKe, 1e-4); -***** assert (CK, CKe, 1e-4); -***** assert (DK, DKe, 1e-4); -***** assert (RCOND, RCONDe, 1e-4); -***** shared AK, BK, CK, DK, RCOND, AKe, BKe, CKe, DKe, RCONDe - A = [ -1.0 0.0 4.0 5.0 -3.0 -2.0 - -2.0 4.0 -7.0 -2.0 0.0 3.0 - -6.0 9.0 -5.0 0.0 2.0 -1.0 - -8.0 4.0 7.0 -1.0 -3.0 0.0 - 2.0 5.0 8.0 -9.0 1.0 -4.0 - 3.0 -5.0 8.0 0.0 2.0 -6.0 ]; - - B = [ -3.0 -4.0 - 2.0 0.0 - -5.0 -7.0 - 4.0 -6.0 - -3.0 9.0 - 1.0 -2.0 ]; - - C = [ 1.0 -1.0 2.0 -4.0 0.0 -3.0 - -3.0 0.0 5.0 -1.0 1.0 1.0 - -7.0 5.0 0.0 -8.0 2.0 -2.0 ]; - - D = [ 1.0 -2.0 - 0.0 4.0 - 5.0 -3.0 ]; - - FACTOR = 1.0; - - G = ss (A, B, C, D); - K = ncfsyn (G, [], [], FACTOR); - [AK, BK, CK, DK] = ssdata (K); - - AKe = [ -39.0671 9.9293 22.2322 -27.4113 43.8655 - -6.6117 3.0006 11.0878 -11.4130 15.4269 - 33.6805 -6.6934 -23.9953 14.1438 -33.4358 - -32.3191 9.7316 25.4033 -24.0473 42.0517 - -44.1655 18.7767 34.8873 -42.4369 50.8437 ]; - - BKe = [ -10.2905 -16.5382 -10.9782 - -4.3598 -8.7525 -5.1447 - 6.5962 1.8975 6.2316 - -9.8770 -14.7041 -11.8778 - -9.6726 -22.7309 -18.2692 ]; - - CKe = [ -0.6647 -0.0599 -1.0376 0.5619 1.7297 - -8.4202 3.9573 7.3094 -7.6283 10.6768 ]; - - DKe = [ 0.8466 0.4979 -0.6993 - -1.2226 -4.8689 -4.5056 ]; - - RCONDe = [ 0.13861D-01 0.90541D-02 ]; - -***** assert (AK, AKe, 1e-4); -***** assert (BK, BKe, 1e-4); -***** assert (CK, CKe, 1e-4); -***** assert (DK, DKe, 1e-4); -***** shared AK, BK, CK, DK, RCOND, AKe, BKe, CKe, DKe, RCONDe - A = [ 0.2 0.0 0.3 0.0 -0.3 -0.1 - -0.3 0.2 -0.4 -0.3 0.0 0.0 - -0.1 0.1 -0.1 0.0 0.0 -0.3 - 0.1 0.0 0.0 -0.1 -0.1 0.0 - 0.0 0.3 0.6 0.2 0.1 -0.4 - 0.2 -0.4 0.0 0.0 0.2 -0.2 ]; - - B = [ -1.0 -2.0 - 1.0 3.0 - -3.0 -4.0 - 1.0 -2.0 - 0.0 1.0 - 1.0 5.0 ]; - - C = [ 1.0 -1.0 2.0 -2.0 0.0 -3.0 - -3.0 0.0 1.0 -1.0 1.0 -1.0 ]; - - FACTOR = 1.1; - - [AK, BK, CK, DK, RCOND] = __sl_sb10kd__ (A, B, C, FACTOR); - - AKe = [ 0.0337 0.0222 0.0858 0.1264 -0.1872 0.1547 - 0.4457 0.0668 -0.2255 -0.3204 -0.4548 -0.0691 - -0.2419 -0.2506 -0.0982 -0.1321 -0.0130 -0.0838 - -0.4402 0.3654 -0.0335 -0.2444 0.6366 -0.6469 - -0.3623 0.3854 0.4162 0.4502 0.0065 0.1261 - -0.0121 -0.4377 0.0604 0.2265 -0.3389 0.4542 ]; - - BKe = [ 0.0931 -0.0269 - -0.0872 0.1599 - 0.0956 -0.1469 - -0.1728 0.0129 - 0.2022 -0.1154 - 0.2419 -0.1737 ]; - - CKe = [ -0.3677 0.2188 0.0403 -0.0854 0.3564 -0.3535 - 0.1624 -0.0708 0.0058 0.0606 -0.2163 0.1802 ]; - - DKe = [ -0.0857 -0.0246 - 0.0460 0.0074 ]; - - RCONDe = [ 0.11269D-01 0.17596D-01 0.18225D+00 0.75968D-03 ].'; - -***** assert (AK, AKe, 1e-4); -***** assert (BK, BKe, 1e-4); -***** assert (CK, CKe, 1e-4); -***** assert (DK, DKe, 1e-4); -***** assert (RCOND, RCONDe, 1e-4); -***** shared AK, BK, CK, DK, RCOND, AKe, BKe, CKe, DKe, RCONDe - A = [ 0.2 0.0 0.3 0.0 -0.3 -0.1 - -0.3 0.2 -0.4 -0.3 0.0 0.0 - -0.1 0.1 -0.1 0.0 0.0 -0.3 - 0.1 0.0 0.0 -0.1 -0.1 0.0 - 0.0 0.3 0.6 0.2 0.1 -0.4 - 0.2 -0.4 0.0 0.0 0.2 -0.2 ]; - - B = [ -1.0 -2.0 - 1.0 3.0 - -3.0 -4.0 - 1.0 -2.0 - 0.0 1.0 - 1.0 5.0 ]; - - C = [ 1.0 -1.0 2.0 -2.0 0.0 -3.0 - -3.0 0.0 1.0 -1.0 1.0 -1.0 ]; - - FACTOR = 1.1; - - G = ss (A, B, C, [], 1); # value of sampling time doesn't matter - K = ncfsyn (G, [], [], FACTOR); - [AK, BK, CK, DK] = ssdata (K); - - AKe = [ 0.0337 0.0222 0.0858 0.1264 -0.1872 0.1547 - 0.4457 0.0668 -0.2255 -0.3204 -0.4548 -0.0691 - -0.2419 -0.2506 -0.0982 -0.1321 -0.0130 -0.0838 - -0.4402 0.3654 -0.0335 -0.2444 0.6366 -0.6469 - -0.3623 0.3854 0.4162 0.4502 0.0065 0.1261 - -0.0121 -0.4377 0.0604 0.2265 -0.3389 0.4542 ]; - - BKe = [ 0.0931 -0.0269 - -0.0872 0.1599 - 0.0956 -0.1469 - -0.1728 0.0129 - 0.2022 -0.1154 - 0.2419 -0.1737 ]; - - CKe = [ -0.3677 0.2188 0.0403 -0.0854 0.3564 -0.3535 - 0.1624 -0.0708 0.0058 0.0606 -0.2163 0.1802 ]; - - DKe = [ -0.0857 -0.0246 - 0.0460 0.0074 ]; - - RCONDe = [ 0.11269D-01 0.17596D-01 0.18225D+00 0.75968D-03 ].'; - -***** assert (AK, AKe, 1e-4); -***** assert (BK, BKe, 1e-4); -***** assert (CK, CKe, 1e-4); -***** assert (DK, DKe, 1e-4); -***** shared AK, BK, CK, DK, RCOND, AKe, BKe, CKe, DKe, RCONDe - A = [ 0.2 0.0 3.0 0.0 -0.3 -0.1 - -3.0 0.2 -0.4 -0.3 0.0 0.0 - -0.1 0.1 -1.0 0.0 0.0 -3.0 - 1.0 0.0 0.0 -1.0 -1.0 0.0 - 0.0 0.3 0.6 2.0 0.1 -0.4 - 0.2 -4.0 0.0 0.0 0.2 -2.0 ]; - - B = [ -1.0 -2.0 - 1.0 3.0 - -3.0 -4.0 - 1.0 -2.0 - 0.0 1.0 - 1.0 5.0 ]; - - C = [ 1.0 -1.0 2.0 -2.0 0.0 -3.0 - -3.0 0.0 1.0 -1.0 1.0 -1.0 - 2.0 4.0 -3.0 0.0 5.0 1.0 ]; - - D = [ 10.0 -6.0 - -7.0 8.0 - 2.0 -4.0 ]; - - FACTOR = 1.1; - - [AK, BK, CK, DK, RCOND] = __sl_sb10zd__ (A, B, C, D, FACTOR, 0.0); - - AKe = [ 1.0128 0.5101 -0.1546 1.1300 3.3759 0.4911 - -2.1257 -1.4517 -0.4486 0.3493 -1.5506 -1.4296 - -1.0930 -0.6026 -0.1344 0.2253 -1.5625 -0.6762 - 0.3207 0.1698 0.2376 -1.1781 -0.8705 0.2896 - 0.5017 0.9006 0.0668 2.3613 0.2049 0.3703 - 1.0787 0.6703 0.2783 -0.7213 0.4918 0.7435 ]; - - BKe = [ 0.4132 0.3112 -0.8077 - 0.2140 0.4253 0.1811 - -0.0710 0.0807 0.3558 - -0.0121 -0.2019 0.0249 - 0.1047 0.1399 -0.0457 - -0.2542 -0.3472 0.0523 ]; - - CKe = [ -0.0372 -0.0456 -0.0040 0.0962 -0.2059 -0.0571 - 0.1999 0.2994 0.1335 -0.0251 -0.3108 0.2048 ]; - - DKe = [ 0.0629 -0.0022 0.0363 - -0.0228 0.0195 0.0600 ]; - - RCONDe = [ 0.27949D-03 0.66679D-03 0.45677D-01 0.23433D-07 0.68495D-01 0.76854D-01 ].'; - -***** assert (AK, AKe, 1e-4); -***** assert (BK, BKe, 1e-4); -***** assert (CK, CKe, 1e-4); -***** assert (DK, DKe, 1e-4); -***** assert (RCOND, RCONDe, 1e-4); -***** shared AK, BK, CK, DK, RCOND, AKe, BKe, CKe, DKe, RCONDe - A = [ 0.2 0.0 3.0 0.0 -0.3 -0.1 - -3.0 0.2 -0.4 -0.3 0.0 0.0 - -0.1 0.1 -1.0 0.0 0.0 -3.0 - 1.0 0.0 0.0 -1.0 -1.0 0.0 - 0.0 0.3 0.6 2.0 0.1 -0.4 - 0.2 -4.0 0.0 0.0 0.2 -2.0 ]; - - B = [ -1.0 -2.0 - 1.0 3.0 - -3.0 -4.0 - 1.0 -2.0 - 0.0 1.0 - 1.0 5.0 ]; - - C = [ 1.0 -1.0 2.0 -2.0 0.0 -3.0 - -3.0 0.0 1.0 -1.0 1.0 -1.0 - 2.0 4.0 -3.0 0.0 5.0 1.0 ]; - - D = [ 10.0 -6.0 - -7.0 8.0 - 2.0 -4.0 ]; - - FACTOR = 1.1; - - G = ss (A, B, C, D, 1); # value of sampling time doesn't matter - K = ncfsyn (G, [], [], FACTOR); - [AK, BK, CK, DK] = ssdata (K); - - AKe = [ 1.0128 0.5101 -0.1546 1.1300 3.3759 0.4911 - -2.1257 -1.4517 -0.4486 0.3493 -1.5506 -1.4296 - -1.0930 -0.6026 -0.1344 0.2253 -1.5625 -0.6762 - 0.3207 0.1698 0.2376 -1.1781 -0.8705 0.2896 - 0.5017 0.9006 0.0668 2.3613 0.2049 0.3703 - 1.0787 0.6703 0.2783 -0.7213 0.4918 0.7435 ]; - - BKe = [ 0.4132 0.3112 -0.8077 - 0.2140 0.4253 0.1811 - -0.0710 0.0807 0.3558 - -0.0121 -0.2019 0.0249 - 0.1047 0.1399 -0.0457 - -0.2542 -0.3472 0.0523 ]; - - CKe = [ -0.0372 -0.0456 -0.0040 0.0962 -0.2059 -0.0571 - 0.1999 0.2994 0.1335 -0.0251 -0.3108 0.2048 ]; - - DKe = [ 0.0629 -0.0022 0.0363 - -0.0228 0.0195 0.0600 ]; - - RCONDe = [ 0.27949D-03 0.66679D-03 0.45677D-01 0.23433D-07 0.68495D-01 0.76854D-01 ].'; - -***** assert (AK, AKe, 1e-4); -***** assert (BK, BKe, 1e-4); -***** assert (CK, CKe, 1e-4); -***** assert (DK, DKe, 1e-4); -27 tests, 27 passed, 0 known failure, 0 skipped -[inst/pole.m] ->>>>> /build/reproducible-path/octave-control-4.0.1/inst/pole.m -***** shared pol_exp, pol_obs - A = [-1, 0, 0; - 0, -2, 0; - 0, 0, -3]; - pol_exp = [-3; - -2; - -1]; - pol_obs = pole(A); -***** assert(pol_obs, pol_exp, 0); -***** shared pol, pol_exp, infp, kronr, kronl, infp_exp, kronr_exp, kronl_exp - A = [ 1 0 0 0 0 0 0 0 0 - 0 1 0 0 0 0 0 0 0 - 0 0 1 0 0 0 0 0 0 - 0 0 0 1 0 0 0 0 0 - 0 0 0 0 1 0 0 0 0 - 0 0 0 0 0 1 0 0 0 - 0 0 0 0 0 0 1 0 0 - 0 0 0 0 0 0 0 1 0 - 0 0 0 0 0 0 0 0 1 ]; - - E = [ 0 0 0 0 0 0 0 0 0 - 1 0 0 0 0 0 0 0 0 - 0 1 0 0 0 0 0 0 0 - 0 0 0 0 0 0 0 0 0 - 0 0 0 1 0 0 0 0 0 - 0 0 0 0 1 0 0 0 0 - 0 0 0 0 0 0 0 0 0 - 0 0 0 0 0 0 1 0 0 - 0 0 0 0 0 0 0 1 0 ]; - - B = [ -1 0 0 - 0 0 0 - 0 0 0 - 0 -1 0 - 0 0 0 - 0 0 0 - 0 0 -1 - 0 0 0 - 0 0 0 ]; - - C = [ 0 1 1 0 3 4 0 0 2 - 0 1 0 0 4 0 0 2 0 - 0 0 1 0 -1 4 0 -2 2 ]; - - D = [ 1 2 -2 - 0 -1 -2 - 0 0 0 ]; - - sys = dss (A, B, C, D, E, "scaled", true); - [pol, ~, infp, kronr, kronl] = __sl_ag08bd__ (A, E, [], [], [], true); - - pol_exp = zeros (0,1); - - infp_exp = [0, 3]; - kronr_exp = zeros (1,0); - kronl_exp = zeros (1,0); - -***** assert (pol, pol_exp, 1e-4); -***** assert (infp, infp_exp); -***** assert (kronr, kronr_exp); -***** assert (kronl, kronl_exp); -5 tests, 5 passed, 0 known failure, 0 skipped -[inst/gram.m] ->>>>> /build/reproducible-path/octave-control-4.0.1/inst/gram.m -***** test - a = [-1 0 0; 1/2 -1 0; 1/2 0 -1]; - b = [1 0; 0 -1; 0 1]; - c = [0 0 1; 1 1 0]; ## it doesn't matter what the value of c is - Wc = gram (ss (a, b, c), "c"); - assert (a * Wc + Wc * a.' + b * b.', zeros (size (a))) -***** test - a = [-1 0 0; 1/2 -1 0; 1/2 0 -1]; - b = [1 0; 0 -1; 0 1]; ## it doesn't matter what the value of b is - c = [0 0 1; 1 1 0]; - Wo = gram (ss (a, b, c), "o"); - assert (a.' * Wo + Wo * a + c.' * c, zeros (size (a))) -***** test - a = [-1 0 0; 1/2 -1 0; 1/2 0 -1]; - b = [1 0; 0 -1; 0 1]; - Wc = gram (a, b); - assert (a * Wc + Wc * a.' + b * b.', zeros (size (a))) -***** test - a = [-1 0 0; 1/2 1 0; 1/2 0 -1] / 2; - b = [1 0; 0 -1; 0 1]; - c = [0 0 1; 1 1 0]; ## it doesn't matter what the value of c is - d = zeros (rows (c), columns (b)); ## it doesn't matter what the value of d is - Ts = 0.1; ## Ts != 0 - Wc = gram (ss (a, b, c, d, Ts), "c"); - assert (a * Wc * a.' - Wc + b * b.', zeros (size (a)), 1e-12) -***** test - a = [-1 0 0; 1/2 1 0; 1/2 0 -1] / 2; - b = [1 0; 0 -1; 0 1]; ## it doesn't matter what the value of b is - c = [0 0 1; 1 1 0]; - d = zeros (rows (c), columns (b)); ## it doesn't matter what the value of d is - Ts = 0.1; ## Ts != 0 - Wo = gram (ss (a, b, c, d, Ts), "o"); - assert (a.' * Wo * a - Wo + c.' * c, zeros (size (a)), 1e-12) -5 tests, 5 passed, 0 known failure, 0 skipped -[inst/estim.m] ->>>>> /build/reproducible-path/octave-control-4.0.1/inst/estim.m -***** shared m, m_exp - sys = ss (-2, 1, 1, 3); - est = estim (sys, 5); - [a, b, c, d] = ssdata (est); - m = [a, b; c, d]; - m_exp = [-7, 5; 1, 0; 1, 0]; -***** assert (m, m_exp, 1e-4); -***** shared m, m_exp - sys = ss (-1, 2, 3, 4); - est = estim (sys, 5); - [a, b, c, d] = ssdata (est); - m = [a, b; c, d]; - m_exp = [-16, 5; 3, 0; 1, 0]; -***** assert (m, m_exp, 1e-4); -2 tests, 2 passed, 0 known failure, 0 skipped -[inst/esort.m] ->>>>> /build/reproducible-path/octave-control-4.0.1/inst/esort.m -***** shared s_exp, ndx_exp, s_obs, ndx_obs - p = [-0.2410+0.5573i; - -0.2410-0.5573i; - 0.1503; - -0.0972; - -0.2590]; - s_exp = [ 0.1503; - -0.0972; - -0.2410+0.5573i; - -0.2410-0.5573i; - -0.2590]; - ndx_exp = [ 3; - 4; - 1; - 2; - 5]; - [s_obs, ndx_obs] = esort(p); -***** assert(s_obs, s_exp, 0); -***** assert(ndx_obs, ndx_exp, 0); -2 tests, 2 passed, 0 known failure, 0 skipped -[inst/hsvd.m] ->>>>> /build/reproducible-path/octave-control-4.0.1/inst/hsvd.m -***** shared hsv, hsv_exp - a = [ -0.04165 0.0000 4.9200 -4.9200 0.0000 0.0000 0.0000 - -5.2100 -12.500 0.0000 0.0000 0.0000 0.0000 0.0000 - 0.0000 3.3300 -3.3300 0.0000 0.0000 0.0000 0.0000 - 0.5450 0.0000 0.0000 0.0000 -0.5450 0.0000 0.0000 - 0.0000 0.0000 0.0000 4.9200 -0.04165 0.0000 4.9200 - 0.0000 0.0000 0.0000 0.0000 -5.2100 -12.500 0.0000 - 0.0000 0.0000 0.0000 0.0000 0.0000 3.3300 -3.3300]; - - b = [ 0.0000 0.0000 - 12.5000 0.0000 - 0.0000 0.0000 - 0.0000 0.0000 - 0.0000 0.0000 - 0.0000 12.500 - 0.0000 0.0000]; - - c = [ 1.0000 0.0000 0.0000 0.0000 0.0000 0.0000 0.0000 - 0.0000 0.0000 0.0000 1.0000 0.0000 0.0000 0.0000 - 0.0000 0.0000 0.0000 0.0000 1.0000 0.0000 0.0000]; - - sys = ss (a, b, c, [], "scaled", true); - hsv = hsvd (sys, "alpha", 0.0); - - hsv_exp = [2.5139; 2.0846; 1.9178; 0.7666; 0.5473; 0.0253; 0.0246]; - -***** assert (hsv, hsv_exp, 1e-4); -1 test, 1 passed, 0 known failure, 0 skipped -[inst/mag2db.m] ->>>>> /build/reproducible-path/octave-control-4.0.1/inst/mag2db.m -***** assert (mag2db (100), 40); -***** assert (mag2db (0.1), -20); -2 tests, 2 passed, 0 known failure, 0 skipped -[inst/issample.m] ->>>>> /build/reproducible-path/octave-control-4.0.1/inst/issample.m -***** assert (issample (1)) -***** assert (issample (pi)) -***** assert (issample (0), false) -***** assert (issample (-1), false) -***** assert (issample (-1, 1), false) -***** assert (issample ("a"), false) -***** assert (issample (eye (2)), false) -***** assert (issample (2+2i), false) -***** assert (issample (1, 0)) -***** assert (issample (0, 0)) -***** assert (issample (-1, 0), false) -***** assert (issample (pi, 0)) -***** assert (issample ("b", 0), false) -***** assert (issample (rand (3,2), 0), false) -***** assert (issample (2+2i, 0), false) -***** assert (issample (0+2i, 0), false) -***** assert (issample (-1, -1)) -***** assert (issample (0, -1), false) -***** assert (issample (1, -1)) -***** assert (issample (pi, -1)) -***** assert (issample (-pi, -1), false) -***** assert (issample ("b", -1), false) -***** assert (issample (rand (3,2), -1), false) -***** assert (issample (-2+2i, -1), false) -***** error (issample (-1, "ab")) -***** error (issample ()) -***** error (issample (-1, -1, -1)) -***** error (issample (1, pi)) -***** error (issample (5, rand (2,3))) -***** error (issample (0, 1+2i)) -30 tests, 30 passed, 0 known failure, 0 skipped -[inst/fitfrd.m] ->>>>> /build/reproducible-path/octave-control-4.0.1/inst/fitfrd.m -***** shared Yo, Ye - SYS = ss (-1, 1, 1, 0); - T = 0:0.1:50; - Ye = step (SYS, T); - W = logspace (-2, 2, 100); - FR = frd (SYS, W); - N = 1; - SYSID = fitfrd (FR, N, 1); - Yo = step (SYSID, T); -***** assert (Yo, Ye, 1e-2); -1 test, 1 passed, 0 known failure, 0 skipped -[inst/bode.m] ->>>>> /build/reproducible-path/octave-control-4.0.1/inst/bode.m -***** demo - s = tf('s'); - g = 1/(2*s^2+3*s+4); - bode(g); -***** test - s = tf('s'); - K = 1; - T = 2; - g = K/(1+T*s); - [mag phas w] = bode(g); - mag_dB = 20*log10(mag); - index = find(mag_dB < -3,1); - w_cutoff = w(index); - assert (1/T, w_cutoff, eps); -1 test, 1 passed, 0 known failure, 0 skipped -[inst/lyapchol.m] ->>>>> /build/reproducible-path/octave-control-4.0.1/inst/lyapchol.m -***** shared U, U_exp, X, X_exp - - A = [ -1.0 37.0 -12.0 -12.0 - -1.0 -10.0 0.0 4.0 - 2.0 -4.0 7.0 -6.0 - 2.0 2.0 7.0 -9.0 ].'; - - B = [ 1.0 2.5 1.0 3.5 - 0.0 1.0 0.0 1.0 - -1.0 -2.5 -1.0 -1.5 - 1.0 2.5 4.0 -5.5 - -1.0 -2.5 -4.0 3.5 ].'; - - U = lyapchol (A, B); - - X = U.' * U; # use lyap at home! - - U_exp = [ 1.0000 0.0000 0.0000 0.0000 - 3.0000 1.0000 0.0000 0.0000 - 2.0000 -1.0000 1.0000 0.0000 - -1.0000 1.0000 -2.0000 1.0000 ].'; - - X_exp = [ 1.0000 3.0000 2.0000 -1.0000 - 3.0000 10.0000 5.0000 -2.0000 - 2.0000 5.0000 6.0000 -5.0000 - -1.0000 -2.0000 -5.0000 7.0000 ]; - -***** assert (U, U_exp, 1e-4); -***** assert (X, X_exp, 1e-4); -***** shared U, U_exp, X, X_exp - - A = [ -1.0 3.0 -4.0 - 0.0 5.0 -2.0 - -4.0 4.0 1.0 ].'; - - E = [ 2.0 1.0 3.0 - 2.0 0.0 1.0 - 4.0 5.0 1.0 ].'; - - B = [ 2.0 -1.0 7.0 ].'; - - U = lyapchol (A, B, E); - - U_exp = [ 1.6003 -0.4418 -0.1523 - 0.0000 0.6795 -0.2499 - 0.0000 0.0000 0.2041 ]; - -***** assert (U, U_exp, 1e-4); -3 tests, 3 passed, 0 known failure, 0 skipped -[inst/@ss/ss2ss.m] ->>>>> /build/reproducible-path/octave-control-4.0.1/inst/@ss/ss2ss.m -***** test - A = [1 2 3; 4 5 6; 7 8 9]; - B = [1; 2; 3]; - C = [-1 0 1]; - D = 0; - - [T E] = eig(A); - - original_system = ss(A,B,C,D); - transformed_system = ss2ss(original_system,T); - assert(transformed_system.a, [0.5755 2.006 -0.8179; 6.684 13.62 -2.585; -4.476 -7.826 0.8073],e-14); - assert(transformed_system.b, [-0.5789; -3.148; 1.631],e-14); - assert(transformed_system.c, [0.8912 -0.2231 1.112],e-14); - assert(transformed_system.d, 0); - retransformed_system = ss2ss(transformed_system,inv(T)); - assert(original_system.a,retransformed_system.a,e-14); - assert(original_system.b,retransformed_system.b,e-14); - assert(original_system.c,retransformed_system.c,e-14); - assert(original_system.d,retransformed_system.d,e-14); -1 test, 1 passed, 0 known failure, 0 skipped -[inst/dare.m] ->>>>> /build/reproducible-path/octave-control-4.0.1/inst/dare.m -***** shared x, l, g, xe, le, ge - a = [ 0.4 1.7 - 0.9 3.8]; - - b = [ 0.8 - 2.1]; - - c = [ 1 -1]; - - r = 3; - - [x, l, g] = dare (a, b, c.'*c, r); - - xe = [ 1.5354 1.2623 - 1.2623 10.5596]; - - le = [-0.0022 - 0.2454]; - - ge = [ 0.4092 1.7283]; - -***** assert (x, xe, 1e-4); -***** assert (sort (l), sort (le), 1e-4); -***** assert (g, ge, 1e-4); -3 tests, 3 passed, 0 known failure, 0 skipped -[inst/obsv.m] ->>>>> /build/reproducible-path/octave-control-4.0.1/inst/obsv.m -***** assert (obsv ([1, 0; 0, -0.5], [8, 8]), [8, 8; 8, -4]); -1 test, 1 passed, 0 known failure, 0 skipped -[inst/lsim.m] ->>>>> /build/reproducible-path/octave-control-4.0.1/inst/lsim.m -***** test - n = 5; - m = 3; - p = 2; - A = diag ([0:-2:-2*(n-1)]); - B = [ (1:1:n)' (-1:1:n-2)' (2:1:n+1)']; - C = [1 0 1 0 0 ; 0 1 0 1 1 ]; - D = zeros (p,m); - - sys = ss(A, B, C, D); - dt = 0.1; - t = 0:dt:1; - x0 = zeros(n,1); - u = [ sin(2*t') cos(3*t') sin(4*t') ]; - [y1, t1] = lsim(sys, u, t, x0); - [y2, t2] = lsim(sys, u', t, x0); - - sysd = c2d (sys, dt, 'foh'); - x0 = x0 - sysd.userdata * u(1,:)'; # foh-doscretization - [y3, t3] = lsim(sysd, u, [], x0); - [y4, t4] = lsim(sysd, u', [], x0); - - assert (y1,y2,1e-4); - assert (y1,y3,1e-4); - assert (y1,y4,1e-4); -***** demo - clf; - A = [-3 0 0; - 0 -2 1; - 10 -17 0]; - B = [4; - 0; - 0]; - C = [0 0 1]; - D = 0; - sys = ss(A,B,C,D); - t = 0:0.01:10; - u = zeros (length(t) ,1); - x0 = [0 0.1 0]; - lsim(sys, u, t, x0); -1 test, 1 passed, 0 known failure, 0 skipped -[inst/btamodred.m] ->>>>> /build/reproducible-path/octave-control-4.0.1/inst/btamodred.m -***** shared Mo, Me, Info, HSVe - A = [ -26.4000, 6.4023, 4.3868; - 32.0000, 0, 0; - 0, 8.0000, 0 ]; - - B = [ 16 - 0 - 0 ]; - - C = [ 9.2994 1.1624 0.1090 ]; - - D = [ 0 ]; - - G = ss (A, B, C, D); % "scaled", false - - AV = [ -1.0000, 0, 4.0000, -9.2994, -1.1624, -0.1090; - 0, 2.0000, 0, -9.2994, -1.1624, -0.1090; - 0, 0, -3.0000, -9.2994, -1.1624, -0.1090; - 16.0000, 16.0000, 16.0000, -26.4000, 6.4023, 4.3868; - 0, 0, 0, 32.0000, 0, 0; - 0, 0, 0, 0, 8.0000, 0 ]; - - BV = [ 1 - 1 - 1 - 0 - 0 - 0 ]; - - CV = [ 1 1 1 0 0 0 ]; - - DV = [ 0 ]; - - V = ss (AV, BV, CV, DV); - - [Gr, Info] = btamodred (G, 2, "left", V); - - Ae = [ 9.1900 0.0000 - 0.0000 -34.5297 ]; - - Be = [ -11.9593 - -16.9329 ]; - - Ce = [ -2.8955 -6.9152 ]; - - De = [ 0.0000 ]; - - # Since btamodred approximates the input/output behavior only - # input/output behavior is tested using n first Markov parameters. - # The state space representaton might have different signs - # of the states. - # By multiplying the matrices for the Markov parameters, numeric errors - # would propagate, therefor the accuracy of the results are limited to - # the accuracy of the given expected results - - [Ao,Bo,Co,Do] = ssdata (Gr); - Ao = round (Ao*1e4)/1e4; - Bo = round (Bo*1e4)/1e4; - Co = round (Co*1e4)/1e4; - Do = round (Do*1e4)/1e4; - - n = size(Ao,1); - m = size(Bo,2); - p = size(Co,1); - Mo = zeros (p,(n+1)*m); - Me = zeros (p,(n+1)*m); - Mo(:,1:m) = Do; - Me(:,1:m) = De; - - Aoi = eye (n,n); - Aei = eye (n,n); - for i = 1:n - Mo(:,(i-1)*m+1:i*m) = Co*Aoi*Bo; - Me(:,(i-1)*m+1:i*m) = Ce*Aei*Be; - Aoi = Aoi*Ao; - Aei = Aei*Ae; - endfor - - HSVe = [ 3.8253 0.2005 ].'; - -***** xtest assert (Mo, Me, 1e-4); -***** assert (Info.hsv, HSVe, 1e-4); -2 tests, 2 passed, 0 known failure, 0 skipped -[inst/db2mag.m] ->>>>> /build/reproducible-path/octave-control-4.0.1/inst/db2mag.m -***** assert (db2mag (40), 100); -***** assert (db2mag (-20), 0.1); -2 tests, 2 passed, 0 known failure, 0 skipped -[inst/care.m] ->>>>> /build/reproducible-path/octave-control-4.0.1/inst/care.m -***** shared x, l, g, xe, le, ge - a = [-3 2 - 1 1]; - - b = [ 0 - 1]; - - c = [ 1 -1]; - - r = 3; - - [x, l, g] = care (a, b, c.'*c, r); - - xe = [ 0.5895 1.8216 - 1.8216 8.8188]; - - le = [-3.5026 - -1.4370]; - - ge = [ 0.6072 2.9396]; - -***** assert (x, xe, 1e-4); -***** assert (l, le, 1e-4); -***** assert (g, ge, 1e-4); -***** shared x, l, g, xe, le, ge - a = [ 0.0 1.0 - 0.0 0.0]; - - b = [ 0.0 - 1.0]; - - c = [ 1.0 0.0 - 0.0 1.0 - 0.0 0.0]; - - d = [ 0.0 - 0.0 - 1.0]; - - [x, l, g] = care (a, b, c.'*c, d.'*d); - - xe = [ 1.7321 1.0000 - 1.0000 1.7321]; - - le = [-0.8660 + 0.5000i - -0.8660 - 0.5000i]; - - ge = [ 1.0000 1.7321]; - -***** assert (x, xe, 1e-4); -***** assert (l, le, 1e-4); -***** assert (g, ge, 1e-4); -***** shared x, xe - a = [ 0.0 1.0 - 0.0 0.0 ]; - - e = [ 1.0 0.0 - 0.0 1.0 ]; - - b = [ 0.0 - 1.0 ]; - - c = [ 1.0 0.0 - 0.0 1.0 - 0.0 0.0 ]; - - d = [ 0.0 - 0.0 - 1.0 ]; - - x = care (a, b, c.'*c, d.'*d, [], e); - - xe = [ 1.7321 1.0000 - 1.0000 1.7321 ]; - -***** assert (x, xe, 1e-4); -7 tests, 7 passed, 0 known failure, 0 skipped -[inst/margin.m] ->>>>> /build/reproducible-path/octave-control-4.0.1/inst/margin.m -***** shared margin_c, margin_c_exp, margin_d, margin_d_exp - sysc = tf ([24], [1, 6, 11, 6]); - [gamma_c, phi_c, w_gamma_c, w_phi_c] = margin (sysc); - sysd = c2d (sysc, 0.3); - [gamma_d, phi_d, w_gamma_d, w_phi_d] = margin (sysd); - - margin_c = [gamma_c, phi_c, w_gamma_c, w_phi_c]; - margin_d = [gamma_d, phi_d, w_gamma_d, w_phi_d]; - - ## results from this implementation and the "dark side" diverge - ## from the third digit after the decimal point on - - gamma_c_exp = 2.50; - phi_c_exp = 35.43; - w_gamma_c_exp = 3.32; - w_phi_c_exp = 2.06; - - gamma_d_exp = 1.41; - phi_d_exp = 18.60; - w_gamma_d_exp = 2.48; - w_phi_d_exp = 2.04; - - margin_c_exp = [gamma_c_exp, phi_c_exp, w_gamma_c_exp, w_phi_c_exp]; - margin_d_exp = [gamma_d_exp, phi_d_exp, w_gamma_d_exp, w_phi_d_exp]; - -***** assert (margin_c, margin_c_exp, 1e-2); -***** assert (margin_d, margin_d_exp, 1e-2); -2 tests, 2 passed, 0 known failure, 0 skipped -[inst/hinfsyn.m] ->>>>> /build/reproducible-path/octave-control-4.0.1/inst/hinfsyn.m -***** shared M, M_exp - A = [-1.0 0.0 4.0 5.0 -3.0 -2.0 - -2.0 4.0 -7.0 -2.0 0.0 3.0 - -6.0 9.0 -5.0 0.0 2.0 -1.0 - -8.0 4.0 7.0 -1.0 -3.0 0.0 - 2.0 5.0 8.0 -9.0 1.0 -4.0 - 3.0 -5.0 8.0 0.0 2.0 -6.0]; - - B = [-3.0 -4.0 -2.0 1.0 0.0 - 2.0 0.0 1.0 -5.0 2.0 - -5.0 -7.0 0.0 7.0 -2.0 - 4.0 -6.0 1.0 1.0 -2.0 - -3.0 9.0 -8.0 0.0 5.0 - 1.0 -2.0 3.0 -6.0 -2.0]; - - C = [ 1.0 -1.0 2.0 -4.0 0.0 -3.0 - -3.0 0.0 5.0 -1.0 1.0 1.0 - -7.0 5.0 0.0 -8.0 2.0 -2.0 - 9.0 -3.0 4.0 0.0 3.0 7.0 - 0.0 1.0 -2.0 1.0 -6.0 -2.0]; - - D = [ 1.0 -2.0 -3.0 0.0 0.0 - 0.0 4.0 0.0 1.0 0.0 - 5.0 -3.0 -4.0 0.0 1.0 - 0.0 1.0 0.0 1.0 -3.0 - 0.0 0.0 1.0 7.0 1.0]; - - P = ss (A, B, C, D); - K = hinfsyn (P, 2, 2, "method", "sub", "gmax", 15); - M = [K.A, K.B; K.C, K.D]; - - KA = [ -2.8043 14.7367 4.6658 8.1596 0.0848 2.5290 - 4.6609 3.2756 -3.5754 -2.8941 0.2393 8.2920 - -15.3127 23.5592 -7.1229 2.7599 5.9775 -2.0285 - -22.0691 16.4758 12.5523 -16.3602 4.4300 -3.3168 - 30.6789 -3.9026 -1.3868 26.2357 -8.8267 10.4860 - -5.7429 0.0577 10.8216 -11.2275 1.5074 -10.7244]; - - KB = [ -0.1581 -0.0793 - -0.9237 -0.5718 - 0.7984 0.6627 - 0.1145 0.1496 - -0.6743 -0.2376 - 0.0196 -0.7598]; - - KC = [ -0.2480 -0.1713 -0.0880 0.1534 0.5016 -0.0730 - 2.8810 -0.3658 1.3007 0.3945 1.2244 2.5690]; - - KD = [ 0.0554 0.1334 - -0.3195 0.0333]; - - M_exp = [KA, KB; KC, KD]; - -***** assert (M, M_exp, 1e-4); -***** shared M, M_exp - A = [-0.7 0.0 0.3 0.0 -0.5 -0.1 - -0.6 0.2 -0.4 -0.3 0.0 0.0 - -0.5 0.7 -0.1 0.0 0.0 -0.8 - -0.7 0.0 0.0 -0.5 -1.0 0.0 - 0.0 0.3 0.6 -0.9 0.1 -0.4 - 0.5 -0.8 0.0 0.0 0.2 -0.9]; - - B = [-1.0 -2.0 -2.0 1.0 0.0 - 1.0 0.0 1.0 -2.0 1.0 - -3.0 -4.0 0.0 2.0 -2.0 - 1.0 -2.0 1.0 0.0 -1.0 - 0.0 1.0 -2.0 0.0 3.0 - 1.0 0.0 3.0 -1.0 -2.0]; - - C = [ 1.0 -1.0 2.0 -2.0 0.0 -3.0 - -3.0 0.0 1.0 -1.0 1.0 0.0 - 0.0 2.0 0.0 -4.0 0.0 -2.0 - 1.0 -3.0 0.0 0.0 3.0 1.0 - 0.0 1.0 -2.0 1.0 0.0 -2.0]; - - D = [ 1.0 -1.0 -2.0 0.0 0.0 - 0.0 1.0 0.0 1.0 0.0 - 2.0 -1.0 -3.0 0.0 1.0 - 0.0 1.0 0.0 1.0 -1.0 - 0.0 0.0 1.0 2.0 1.0]; - - P = ss (A, B, C, D, 1); # value of sampling time doesn't matter - K = hinfsyn (P, 2, 2, "method", "sub", "gmax", 111.294); - M = [K.A, K.B; K.C, K.D]; - - KA = [-18.0030 52.0376 26.0831 -0.4271 -40.9022 18.0857 - 18.8203 -57.6244 -29.0938 0.5870 45.3309 -19.8644 - -26.5994 77.9693 39.0368 -1.4020 -60.1129 26.6910 - -21.4163 62.1719 30.7507 -0.9201 -48.6221 21.8351 - -0.8911 4.2787 2.3286 -0.2424 -3.0376 1.2169 - -5.3286 16.1955 8.4824 -0.2489 -12.2348 5.1590]; - - KB = [ 16.9788 14.1648 - -18.9215 -15.6726 - 25.2046 21.2848 - 20.1122 16.8322 - 1.4104 1.2040 - 5.3181 4.5149]; - - KC = [ -9.1941 27.5165 13.7364 -0.3639 -21.5983 9.6025 - 3.6490 -10.6194 -5.2772 0.2432 8.1108 -3.6293]; - - KD = [ 9.0317 7.5348 - -3.4006 -2.8219]; - - M_exp = [KA, KB; KC, KD]; - -***** assert (M, M_exp, 1e-4); -***** shared M, M_exp, GAM_exp, GAM - A = [-0.7 0.0 0.3 0.0 -0.5 -0.1 - -0.6 0.2 -0.4 -0.3 0.0 0.0 - -0.5 0.7 -0.1 0.0 0.0 -0.8 - -0.7 0.0 0.0 -0.5 -1.0 0.0 - 0.0 0.3 0.6 -0.9 0.1 -0.4 - 0.5 -0.8 0.0 0.0 0.2 -0.9]; - - B = [-1.0 -2.0 -2.0 1.0 0.0 - 1.0 0.0 1.0 -2.0 1.0 - -3.0 -4.0 0.0 2.0 -2.0 - 1.0 -2.0 1.0 0.0 -1.0 - 0.0 1.0 -2.0 0.0 3.0 - 1.0 0.0 3.0 -1.0 -2.0]; - - C = [ 1.0 -1.0 2.0 -2.0 0.0 -3.0 - -3.0 0.0 1.0 -1.0 1.0 0.0 - 0.0 2.0 0.0 -4.0 0.0 -2.0 - 1.0 -3.0 0.0 0.0 3.0 1.0 - 0.0 1.0 -2.0 1.0 0.0 -2.0]; - - D = [ 1.0 -1.0 -2.0 0.0 0.0 - 0.0 1.0 0.0 1.0 0.0 - 2.0 -1.0 -3.0 0.0 1.0 - 0.0 1.0 0.0 1.0 -1.0 - 0.0 0.0 1.0 2.0 1.0]; - - P = ss (A, B, C, D, 1); - [K, ~, GAM] = hinfsyn (P, 2, 2, "gmax", 1000, "tolgam", 1e-4); - M = [K.A, K.B; K.C, K.D]; - - KA = [-18.0030 52.0376 26.0831 -0.4271 -40.9022 18.0857 - 18.8203 -57.6244 -29.0938 0.5870 45.3309 -19.8644 - -26.5994 77.9693 39.0368 -1.4020 -60.1129 26.6910 - -21.4163 62.1719 30.7507 -0.9201 -48.6221 21.8351 - -0.8911 4.2787 2.3286 -0.2424 -3.0376 1.2169 - -5.3286 16.1955 8.4824 -0.2489 -12.2348 5.1590]; - - KB = [ 16.9788 14.1648 - -18.9215 -15.6726 - 25.2046 21.2848 - 20.1122 16.8322 - 1.4104 1.2040 - 5.3181 4.5149]; - - KC = [ -9.1941 27.5165 13.7364 -0.3639 -21.5983 9.6025 - 3.6490 -10.6194 -5.2772 0.2432 8.1108 -3.6293]; - - KD = [ 9.0317 7.5348 - -3.4006 -2.8219]; - - M_exp = [KA, KB; KC, KD]; - GAM_exp = 111.294; - -***** assert (M, M_exp, 1e-1); -***** assert (GAM, GAM_exp, 1e-3); -4 tests, 4 passed, 0 known failure, 0 skipped -[inst/h2syn.m] ->>>>> /build/reproducible-path/octave-control-4.0.1/inst/h2syn.m -***** shared M, M_exp - A = [-1.0 0.0 4.0 5.0 -3.0 -2.0 - -2.0 4.0 -7.0 -2.0 0.0 3.0 - -6.0 9.0 -5.0 0.0 2.0 -1.0 - -8.0 4.0 7.0 -1.0 -3.0 0.0 - 2.0 5.0 8.0 -9.0 1.0 -4.0 - 3.0 -5.0 8.0 0.0 2.0 -6.0]; - - B = [-3.0 -4.0 -2.0 1.0 0.0 - 2.0 0.0 1.0 -5.0 2.0 - -5.0 -7.0 0.0 7.0 -2.0 - 4.0 -6.0 1.0 1.0 -2.0 - -3.0 9.0 -8.0 0.0 5.0 - 1.0 -2.0 3.0 -6.0 -2.0]; - - C = [ 1.0 -1.0 2.0 -4.0 0.0 -3.0 - -3.0 0.0 5.0 -1.0 1.0 1.0 - -7.0 5.0 0.0 -8.0 2.0 -2.0 - 9.0 -3.0 4.0 0.0 3.0 7.0 - 0.0 1.0 -2.0 1.0 -6.0 -2.0]; - - D = [ 0.0 0.0 0.0 -4.0 -1.0 - 0.0 0.0 0.0 1.0 0.0 - 0.0 0.0 0.0 0.0 1.0 - 3.0 1.0 0.0 1.0 -3.0 - -2.0 0.0 1.0 7.0 1.0]; - - P = ss (A, B, C, D); - K = h2syn (P, 2, 2); - M = [K.A, K.B; K.C, K.D]; - - KA = [ 88.0015 -145.7298 -46.2424 82.2168 -45.2996 -31.1407 - 25.7489 -31.4642 -12.4198 9.4625 -3.5182 2.7056 - 54.3008 -102.4013 -41.4968 50.8412 -20.1286 -26.7191 - 108.1006 -198.0785 -45.4333 70.3962 -25.8591 -37.2741 - -115.8900 226.1843 47.2549 -47.8435 -12.5004 34.7474 - 59.0362 -101.8471 -20.1052 36.7834 -16.1063 -26.4309]; - - KB = [ 3.7345 3.4758 - -0.3020 0.6530 - 3.4735 4.0499 - 4.3198 7.2755 - -3.9424 -10.5942 - 2.1784 2.5048]; - - KC = [ -2.3346 3.2556 0.7150 -0.9724 0.6962 0.4074 - 7.6899 -8.4558 -2.9642 7.0365 -4.2844 0.1390]; - - KD = [ 0.0000 0.0000 - 0.0000 0.0000]; - - M_exp = [KA, KB; KC, KD]; - -***** assert (M, M_exp, 1e-4); -***** shared M, M_exp - A = [-0.7 0.0 0.3 0.0 -0.5 -0.1 - -0.6 0.2 -0.4 -0.3 0.0 0.0 - -0.5 0.7 -0.1 0.0 0.0 -0.8 - -0.7 0.0 0.0 -0.5 -1.0 0.0 - 0.0 0.3 0.6 -0.9 0.1 -0.4 - 0.5 -0.8 0.0 0.0 0.2 -0.9]; - - B = [-1.0 -2.0 -2.0 1.0 0.0 - 1.0 0.0 1.0 -2.0 1.0 - -3.0 -4.0 0.0 2.0 -2.0 - 1.0 -2.0 1.0 0.0 -1.0 - 0.0 1.0 -2.0 0.0 3.0 - 1.0 0.0 3.0 -1.0 -2.0]; - - C = [ 1.0 -1.0 2.0 -2.0 0.0 -3.0 - -3.0 0.0 1.0 -1.0 1.0 0.0 - 0.0 2.0 0.0 -4.0 0.0 -2.0 - 1.0 -3.0 0.0 0.0 3.0 1.0 - 0.0 1.0 -2.0 1.0 0.0 -2.0]; - - D = [ 1.0 -1.0 -2.0 0.0 0.0 - 0.0 1.0 0.0 1.0 0.0 - 2.0 -1.0 -3.0 0.0 1.0 - 0.0 1.0 0.0 1.0 -1.0 - 0.0 0.0 1.0 2.0 1.0]; - - P = ss (A, B, C, D, 1); # value of sampling time doesn't matter - K = h2syn (P, 2, 2); - M = [K.A, K.B; K.C, K.D]; - - KA = [-0.0551 -2.1891 -0.6607 -0.2532 0.6674 -1.0044 - -1.0379 2.3804 0.5031 0.3960 -0.6605 1.2673 - -0.0876 -2.1320 -0.4701 -1.1461 1.2927 -1.5116 - -0.1358 -2.1237 -0.9560 -0.7144 0.6673 -0.7957 - 0.4900 0.0895 0.2634 -0.2354 0.1623 -0.2663 - 0.1672 -0.4163 0.2871 -0.1983 0.4944 -0.6967]; - - KB = [-0.5985 -0.5464 - 0.5285 0.6087 - -0.7600 -0.4472 - -0.7288 -0.6090 - 0.0532 0.0658 - -0.0663 0.0059]; - - KC = [ 0.2500 -1.0200 -0.3371 -0.2733 0.2747 -0.4444 - 0.0654 0.2095 0.0632 0.2089 -0.1895 0.1834]; - - KD = [-0.2181 -0.2070 - 0.1094 0.1159]; - - M_exp = [KA, KB; KC, KD]; - -***** assert (M, M_exp, 1e-4); -2 tests, 2 passed, 0 known failure, 0 skipped -[inst/thiran.m] ->>>>> /build/reproducible-path/octave-control-4.0.1/inst/thiran.m -***** shared num, den, expc - expc = [1, 0.5294, -0.04813, 0.004159]; - sys = thiran (2.4, 1); - [num, den] = tfdata (sys, "vector"); -***** assert (den, expc, 1e-4); -***** assert (num, fliplr (expc), 1e-4); -***** shared num, den - sys = thiran (0.5, 0.1); - [num, den] = tfdata (sys, "vector"); -***** assert (den, [1, 0, 0, 0, 0, 0], eps); -***** assert (num, 1, eps); -***** error (thiran (-1, 1)); -***** error (thiran (1, -1)); -***** error (thiran ([1 2 3], 1)); -7 tests, 7 passed, 0 known failure, 0 skipped -[inst/ctrbf.m] ->>>>> /build/reproducible-path/octave-control-4.0.1/inst/ctrbf.m -***** shared Ao, Bo, Co, Zo, Ae, Be, Ce, Ze, NCONT - A = [ -1.0 0.0 0.0 - -2.0 -2.0 -2.0 - -1.0 0.0 -3.0 ]; - - B = [ 1.0 0.0 0.0 - 0.0 2.0 1.0 ].'; - - C = [ 0.0 2.0 1.0 - 1.0 0.0 0.0 ]; - - [Ao, Bo, Co, Zo, NCONT] = ctrbf (A, B, C); - - Ae = [ -3.0000 2.2361 - 0.0000 -1.0000 ]; - - Be = [ 0.0000 -2.2361 - 1.0000 0.0000 ]; - - Ce = [ -2.2361 0.0000 - 0.0000 1.0000 ]; - - Ze = [ 0.0000 1.0000 0.0000 - -0.8944 0.0000 -0.4472 - -0.4472 0.0000 0.8944 ]; - -***** assert (Ao(1:NCONT, 1:NCONT), Ae, 1e-4); -***** assert (Bo(1:NCONT, :), Be, 1e-4); -***** assert (Co(:, 1:NCONT), Ce, 1e-4); -***** assert (Zo, Ze, 1e-4); -4 tests, 4 passed, 0 known failure, 0 skipped -[inst/ctrb.m] ->>>>> /build/reproducible-path/octave-control-4.0.1/inst/ctrb.m -***** assert (ctrb ([1, 0; 0, -0.5], [8; 8]), [8, 8; 8, -4]); -1 test, 1 passed, 0 known failure, 0 skipped -[inst/pzmap.m] ->>>>> /build/reproducible-path/octave-control-4.0.1/inst/pzmap.m -***** demo - z = tf('z',1); - G1z = (z+1)/(z-0.75)/(z^2-1*z+1); - pzmap(G1z); -***** demo - s = tf('s'); - G1 = 1/(2*s^2+3*s+4); - G2 = (1-s)/(1+s)/(s^2+s+1); - pzmap(G1,G2); -***** test - s = tf('s'); - G = (s-1)/(s-2)/(s-3); - [pol zer] = pzmap(G); - assert(sort(pol), [2 3]', 2*eps); - assert(zer, 1, eps); -***** test - s = tf('s'); - g = 1/(2*s^2+3*s+4); - pol = pzmap(g); - assert(sort(pol), sort(roots([2 3 4]')), eps); -2 tests, 2 passed, 0 known failure, 0 skipped -[inst/btaconred.m] ->>>>> /build/reproducible-path/octave-control-4.0.1/inst/btaconred.m -***** shared Mo, Me, Info, HSVCe - A = [ -1. 0. 4. - 0. 2. 0. - 0. 0. -3. ]; - - B = [ 1. - 1. - 1. ]; - - C = [ 1. 1. 1. ]; - - D = [ 0. ]; - - G = ss (A, B, C, D, "scaled", true); - - AC = [ -26.4000, 6.4023, 4.3868; - 32.0000, 0, 0; - 0, 8.0000, 0 ]; - - BC = [ -16 - 0 - 0 ]; - - CC = [ 9.2994 1.1624 0.1090 ]; - - DC = [ 0 ]; - - K = ss (AC, BC, CC, DC, "scaled", true); - - [Kr, Info] = btaconred (G, K, 2, "weight", "input", "feedback", "+"); - - Ae = [ 9.1900 0.0000 - 0.0000 -34.5297 ]; - - Be = [ -11.9593 - 86.3137 ]; - - Ce = [ 2.8955 -1.3566 ]; - - De = [ 0.0000 ]; - - # Since btaconred approximates an output controller, - # only its input/output behavior is important and is tested - # using n first Markov parameters. - # The state space representaton might have different signs - # of the states. - # By multiplying the matrices for the Markov parameters, numeric errors - # would propagate, therefor the accuracy of the results are limited to - # the accuracy of the given expected results - - [Ao,Bo,Co,Do] = ssdata (Kr); - Ao = round (Ao*1e4)/1e4; - Bo = round (Bo*1e4)/1e4; - Co = round (Co*1e4)/1e4; - Do = round (Do*1e4)/1e4; - - n = size(Ao,1); - m = size(Bo,2); - p = size(Co,1); - Mo = zeros (p,(n+1)*m); - Me = zeros (p,(n+1)*m); - Mo(:,1:m) = Do; - Me(:,1:m) = De; - - Aoi = eye (n,n); - Aei = eye (n,n); - for i = 1:n - Mo(:,(i-1)*m+1:i*m) = Co*Aoi*Bo; - Me(:,(i-1)*m+1:i*m) = Ce*Aei*Be; - Aoi = Aoi*Ao; - Aei = Aei*Ae; - endfor - - HSVCe = [ 3.8253 0.2005 ].'; - -***** xtest assert (Mo, Me, 1e-4); -***** assert (Info.hsvc, HSVCe, 1e-4); -2 tests, 2 passed, 0 known failure, 0 skipped -[inst/sigma.m] ->>>>> /build/reproducible-path/octave-control-4.0.1/inst/sigma.m -***** shared sv_exp, w_exp, sv_obs, w_obs - A = [1, 2; 3, 4]; - B = [5, 6; 7, 8]; - C = [4, 3; 2, 1]; - D = [8, 7; 6, 5]; - w = [2, 3, 4]; - sv_exp = [7.9176, 8.6275, 9.4393; - 0.6985, 0.6086, 0.5195]; - w_exp = [2; 3; 4]; - [sv_obs, w_obs] = sigma (ss (A, B, C, D), w); -***** assert (sv_obs, sv_exp, 1e-4); -***** assert (w_obs, w_exp, 1e-4); -2 tests, 2 passed, 0 known failure, 0 skipped -[inst/lyap.m] ->>>>> /build/reproducible-path/octave-control-4.0.1/inst/lyap.m -***** shared X, X_exp - A = [1, 2; -3, -4]; - Q = [3, 1; 1, 1]; - X = lyap (A, Q); - X_exp = [ 6.1667, -3.8333; - -3.8333, 3.0000]; -***** assert (X, X_exp, 1e-4); -***** shared X, X_exp - A = [2.0 1.0 3.0 - 0.0 2.0 1.0 - 6.0 1.0 2.0]; - - B = [2.0 1.0 - 1.0 6.0]; - - C = [2.0 1.0 - 1.0 4.0 - 0.0 5.0]; - - X = lyap (A, B, -C); - - X_exp = [-2.7685 0.5498 - -1.0531 0.6865 - 4.5257 -0.4389]; - -***** assert (X, X_exp, 1e-4); -***** shared X, X_exp - A = [ 3.0 1.0 1.0 - 1.0 3.0 0.0 - 1.0 0.0 2.0]; - - E = [ 1.0 3.0 0.0 - 3.0 2.0 1.0 - 1.0 0.0 1.0]; - - B = [-64.0 -73.0 -28.0 - -73.0 -70.0 -25.0 - -28.0 -25.0 -18.0]; - - X = lyap (A.', -B, [], E.'); - - X_exp = [-2.0000 -1.0000 0.0000 - -1.0000 -3.0000 -1.0000 - 0.0000 -1.0000 -3.0000]; - -***** assert (X, X_exp, 1e-4); -3 tests, 3 passed, 0 known failure, 0 skipped -[inst/covar.m] ->>>>> /build/reproducible-path/octave-control-4.0.1/inst/covar.m -***** shared p, q, p_exp, q_exp - sys = ss (-1, 1, 1, 0); - [p, q] = covar (sys, 5); - p_exp = 2.5000; - q_exp = 2.5000; -***** assert (p, p_exp, 1e-4); -***** assert (q, q_exp, 1e-4); -***** shared p, q, p_exp, q_exp - sys = ss ([-0.2, -0.5; 1, 0], [2; 0], [1, 0.5], [0], 0.1); - [p, q] = covar (sys, 5); - p_exp = 30.3167; - q_exp = [27.1493, -3.6199; -3.6199, 27.1493]; -***** assert (p, p_exp, 1e-4); -***** assert (q, q_exp, 1e-4); -4 tests, 4 passed, 0 known failure, 0 skipped -[inst/acker.m] ->>>>> /build/reproducible-path/octave-control-4.0.1/inst/acker.m -***** test - # https://en.wikipedia.org/wiki/Ackermann's_formula#Example - A = [1 1; 1 2]; - B = [1; 0]; - P = roots ([1 11 30]); - K = acker(A,B,P); - assert (K, [14 57]); -1 test, 1 passed, 0 known failure, 0 skipped -[inst/cfconred.m] ->>>>> /build/reproducible-path/octave-control-4.0.1/inst/cfconred.m -***** shared Mo, Me, Info, HSVe - A = [ 0 1.0000 0 0 0 0 0 0 - 0 0 0 0 0 0 0 0 - 0 0 -0.0150 0.7650 0 0 0 0 - 0 0 -0.7650 -0.0150 0 0 0 0 - 0 0 0 0 -0.0280 1.4100 0 0 - 0 0 0 0 -1.4100 -0.0280 0 0 - 0 0 0 0 0 0 -0.0400 1.850 - 0 0 0 0 0 0 -1.8500 -0.040 ]; - - B = [ 0.0260 - -0.2510 - 0.0330 - -0.8860 - -4.0170 - 0.1450 - 3.6040 - 0.2800 ]; - - C = [ -.996 -.105 0.261 .009 -.001 -.043 0.002 -0.026 ]; - - D = [ 0.0 ]; - - G = ss (A, B, C, D); % "scaled", false - - F = [ 4.4721e-002 6.6105e-001 4.6986e-003 3.6014e-001 1.0325e-001 -3.7541e-002 -4.2685e-002 3.2873e-002 ]; - - L = [ 4.1089e-001 - 8.6846e-002 - 3.8523e-004 - -3.6194e-003 - -8.8037e-003 - 8.4205e-003 - 1.2349e-003 - 4.2632e-003 ]; - - [Kr, Info] = cfconred (G, F, L, 4, "method", "bfsr-bta", "cf", "left", "feedback", "+"); - [Ao, Bo, Co, Do] = ssdata (Kr); - - Ae = [ 0.5946 -0.7336 0.1914 -0.3368 - 0.5960 -0.0184 -0.1088 0.0207 - 1.2253 0.2043 0.1009 -1.4948 - -0.0330 -0.0243 1.3440 0.0035 ]; - - Be = [ 0.0015 - -0.0202 - 0.0159 - -0.0544 ]; - - Ce = [ 0.3534 0.0274 0.0337 -0.0320 ]; - - De = [ 0.0000 ]; - - HSVe = [ 4.9078 4.8745 3.8455 3.7811 1.2289 1.1785 0.5176 0.1148 ].'; - - Mo = [Ao, Bo; Co, Do]; - Me = [Ae, Be; Ce, De]; - -***** xtest assert (Mo, Me, 1e-4); -***** assert (Info.hsv, HSVe, 1e-4); -2 tests, 2 passed, 0 known failure, 0 skipped -[inst/dlyapchol.m] ->>>>> /build/reproducible-path/octave-control-4.0.1/inst/dlyapchol.m -***** shared U, U_exp - - A = [ 0.5000 0.5000 -0.5000 - 0.0000 1.0000 -0.5000 - 1.0000 -0.5000 0.0000 ]; - - B = [ -2.0 ; 1.0 ; -1.0 ]; - - U = dlyapchol (A, B); - - U_exp = [ 5.6042 5.1284 1.9562 - 0.0000 3.4313 -1.6716 - 0.0000 0.0000 2.5621 ]; - -***** assert (U, U_exp, 1e-4); -***** shared U, U_exp - - A = [ 0.5000 0.5000 -0.5000 - 0.0000 1.0000 -0.5000 - 1.0000 -0.5000 0.0000 ]; - - B = [ -2.0 ; 1.0 ; -1.0 ]; - - E = [ 2.0000 0.0000 0.0000 - 0.0000 2.0000 0.0000 - 0.0000 0.0000 2.0000 ]; - - U = dlyapchol (A, B, E); - - U_exp = [ 1.0488 -0.3546 0.4644 - 0.0000 0.6560 -0.5187 - 0.0000 0.0000 0.4099 ]; - -***** assert (U, U_exp, 1e-4); -2 tests, 2 passed, 0 known failure, 0 skipped -[inst/place.m] ->>>>> /build/reproducible-path/octave-control-4.0.1/inst/place.m -***** shared A, B, C, P, Kexpected - A = [0, 1; 3, 2]; - B = [0; 1]; - C = [2, 1]; # C is needed for ss; it doesn't matter what the value of C is - P = [-1, -0.5]; - Kexpected = [3.5, 3.5]; -***** assert (place (ss (A, B, C), P), Kexpected, 2*eps); -***** assert (place (A, B, P), Kexpected, 2*eps); -***** shared F, F_exp, ev_ol, ev_cl - A = [-6.8000 0.0000 -207.0000 0.0000 - 1.0000 0.0000 0.0000 0.0000 - 43.2000 0.0000 0.0000 -4.2000 - 0.0000 0.0000 1.0000 0.0000]; - - B = [ 5.6400 0.0000 - 0.0000 0.0000 - 0.0000 1.1800 - 0.0000 0.0000]; - - P = [-0.5000 + 0.1500i - -0.5000 - 0.1500i]; - - ALPHA = -0.4; - TOL = 1e-8; - - F = place (A, B, P, ALPHA, TOL); - - F_exp = - [-0.0876 -4.2138 0.0837 -18.1412 - -0.0233 18.2483 -0.4259 -4.8120]; - - ev_ol = sort (eig (A)); - ev_cl = sort (eig (A - B*F)); - -***** assert (F, F_exp, 1e-4); -***** assert (ev_ol(3:4), ev_cl(3:4), 1e-4); -4 tests, 4 passed, 0 known failure, 0 skipped Checking C++ files ... Done running the unit tests. Summary: 361 tests, 351 passed, 0 known failures, 10 skipped @@ -10743,8 +10779,8 @@ dpkg-gencontrol: warning: package octave-control: substitution variable ${octave:Upstream-Description} unused, but is defined dh_md5sums -O--buildsystem=octave dh_builddeb -O--buildsystem=octave -dpkg-deb: building package 'octave-control-dbgsym' in '../octave-control-dbgsym_4.0.1-1_armhf.deb'. dpkg-deb: building package 'octave-control' in '../octave-control_4.0.1-1_armhf.deb'. +dpkg-deb: building package 'octave-control-dbgsym' in '../octave-control-dbgsym_4.0.1-1_armhf.deb'. dpkg-genbuildinfo --build=binary -O../octave-control_4.0.1-1_armhf.buildinfo dpkg-genchanges --build=binary -O../octave-control_4.0.1-1_armhf.changes dpkg-genchanges: info: binary-only upload (no source code included) @@ -10752,12 +10788,14 @@ dpkg-buildpackage: info: binary-only upload (no source included) dpkg-genchanges: info: including full source code in upload I: copying local configuration +I: user script /srv/workspace/pbuilder/3943/tmp/hooks/B01_cleanup starting +I: user script /srv/workspace/pbuilder/3943/tmp/hooks/B01_cleanup finished I: unmounting dev/ptmx filesystem I: unmounting dev/pts filesystem I: unmounting dev/shm filesystem I: unmounting proc filesystem I: unmounting sys filesystem I: cleaning the build env -I: removing directory /srv/workspace/pbuilder/27603 and its subdirectories -I: Current time: Wed Apr 3 12:08:22 -12 2024 -I: pbuilder-time-stamp: 1712189302 +I: removing directory /srv/workspace/pbuilder/3943 and its subdirectories +I: Current time: Thu Apr 4 14:17:38 +14 2024 +I: pbuilder-time-stamp: 1712189858