Mercurial > forge
changeset 9943:061a3d0c7733 octave-forge
control-devel: remove cruft
author | paramaniac |
---|---|
date | Mon, 02 Apr 2012 11:34:53 +0000 |
parents | 1f2ff2e75302 |
children | 4f74edffa72c |
files | extra/control-devel/devel/test_ab09id.m extra/control-devel/devel/test_ab09jd.m extra/control-devel/devel/test_bstmodred.m extra/control-devel/devel/test_sb16ad.m extra/control-devel/devel/test_sb16bd.m extra/control-devel/devel/test_sb16cd.m |
diffstat | 6 files changed, 0 insertions(+), 507 deletions(-) [+] |
line wrap: on
line diff
--- a/extra/control-devel/devel/test_ab09id.m Sun Apr 01 21:43:42 2012 +0000 +++ /dev/null Thu Jan 01 00:00:00 1970 +0000 @@ -1,82 +0,0 @@ -% AB09ID EXAMPLE PROGRAM DATA (Continuous system) -% 3 1 1 6 1 0 0 2 0.0 0.0 0.0 0.1E0 0.0 C S S F L S F - -% N, M, P, NV, PV, NW, MW, NR, -% ALPHA, ALPHAC, ALPHAO, TOL1, TOL2, -% DICO, JOBC, JOBO, JOB, WEIGHT, -% EQUIL, ORDSEL - - -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 ]; - -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 ]; - -aw = bw = cw = dw = []; - -alpha = alphac = alphao = 0.0; -tol1 = 0.1; -tol2 = 0.0; -dico = 0; -jobc = jobo = 0; -job = 1; -weight = 1; -equil = 0; -ordsel = 0; -nr = 2; - - -[ar, br, cr, dr] = slab09id (a, b, c, d, dico, equil, nr, ordsel, alpha, job, \ - av, bv, cv, dv, \ - aw, bw, cw, dw, \ - weight, jobc, jobo, alphac, alphao, \ - tol1, tol2) - -%{ - AB09ID EXAMPLE PROGRAM RESULTS - - - The order of reduced model = 2 - - The Hankel singular values of weighted ALPHA-stable part are - 3.8253 0.2005 - - The reduced state dynamics matrix Ar is - 9.1900 0.0000 - 0.0000 -34.5297 - - The reduced input/state matrix Br is - 11.9593 - 16.9329 - - The reduced state/output matrix Cr is - 2.8955 6.9152 - - The reduced input/output matrix Dr is - 0.0000 -%} \ No newline at end of file
--- a/extra/control-devel/devel/test_ab09jd.m Sun Apr 01 21:43:42 2012 +0000 +++ /dev/null Thu Jan 01 00:00:00 1970 +0000 @@ -1,79 +0,0 @@ -% AB09JD EXAMPLE PROGRAM DATA (Continuous system) -% 6 1 1 2 0 0 0.0 1.E-1 1.E-14 V N I C S A - -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 ]; - -av = [ 0.2000 -1.0000 - 1.0000 0 ]; - -bv = [ 1 - 0 ]; - -cv = [ -1.8000 0 ]; - -dv = [ 1 ]; - -[ar, br, cr, dr] = slab09jd (a, b, c, d, 0, 0, 0, 1, 0.0, \ - 1, av, bv, cv, dv, \ - 0, [], [], [], [], \ - 2, 1e-1, 1e-14) - - -%{ - 0, 0.0, \ - 1, 0, 2, 0, 0, 1, \ - 1e-1, 1e-14) - - [ar, br, cr, dr, nr] = slab09jd (a, b, c, d, dt, scaled, nr, ordsel, alpha, \ - jobv, av, bv, cv, dv, \ - jobw, aw, bw, cw, dw, \ - jobinv, tol1, tol2); -%} -%{ -sys = ss (a, b, c, d); -sysv = ss (av, bv, cv, dv); - -sysr = hnamodred (sys, 0, sysv, []) -%} - -%{ -[ar, br, cr, dr] = slab09jd (a, b, c, d, av, bv, cv, dv, [], [], [], [], 0, 0.0, \ - 1, 0, 2, 0, 0, 1, \ - 1e-1, 1e-14) -%} - -%{ - The reduced state dynamics matrix Ar is - -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 - - The reduced input/state matrix Br is - -1.0497 - -3.7052 - 0.8223 - 0.7435 - - The reduced state/output matrix Cr is - -0.4466 0.0143 -0.4780 -0.2013 - - The reduced input/output matrix Dr is - 0.0219 -%}
--- a/extra/control-devel/devel/test_bstmodred.m Sun Apr 01 21:43:42 2012 +0000 +++ /dev/null Thu Jan 01 00:00:00 1970 +0000 @@ -1,37 +0,0 @@ -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); - -sysr = bstmodred (sys, "beta", 1.0, "tol1", 0.1, "tol2", 0.0) -[Ao, Bo, Co, Do] = ssdata (sysr); - - -opt = options ("beta", 1.0, "tol1", 0.1, "tol2", 0.0) -sysr = bstmodred (sys, opt) - - -sysr = bstmodred (sys, 5, "beta", 1.0, "tol1", 0.1, "tol2", 0.0) - -sysr = bstmodred (sys, 5, opt)
--- a/extra/control-devel/devel/test_sb16ad.m Sun Apr 01 21:43:42 2012 +0000 +++ /dev/null Thu Jan 01 00:00:00 1970 +0000 @@ -1,88 +0,0 @@ -%{ - SB16AD EXAMPLE PROGRAM DATA (Continuous system) - 3 1 1 3 2 0.0 0.1E0 0.0 C S S F I N F - - N, M, P, NC, NCR, ALPHA, TOL1, TOL2, DICO, - JOBC, JOBO, JOBMR, WEIGHT, EQUIL, ORDSEL - - -1. 0. 4. - 0. 2. 0. - 0. 0. -3. - 1. - 1. - 1. - 1. 1. 1. - 0. - -26.4000 6.4023 4.3868 - 32.0000 0 0 - 0 8.0000 0 - -16 - 0 - 0 - 9.2994 1.1624 0.1090 - 0 -%} - -a = [ -1. 0. 4. - 0. 2. 0. - 0. 0. -3. ]; - -b = [ 1. - 1. - 1. ]; - -c = [ 1. 1. 1. ]; - -d = [ 0. ]; - -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 ]; - - -alpha = 0.0; -tol1 = 0.1; -tol2 = 0.0; -dico = 0; -jobc = jobo = 0; -jobmr = 1; -weight = 2; -equil = 1; -ordsel = 0; -ncr = 2; - - -[ar, br, cr, dr] = slsb16ad (a, b, c, d, dico, equil, ncr, ordsel, alpha, jobmr, \ - ac, bc, cc, dc, weight, jobc, jobo, tol1, tol2) - -%{ - SB16AD EXAMPLE PROGRAM RESULTS - - - The order of reduced controller = 2 - - The Hankel singular values of weighted ALPHA-stable part are - 3.8253 0.2005 - - The reduced controller state dynamics matrix Ac is - 9.1900 0.0000 - 0.0000 -34.5297 - - The reduced controller input/state matrix Bc is - -11.9593 - 86.3137 - - The reduced controller state/output matrix Cc is - 2.8955 -1.3566 - - The reduced controller input/output matrix Dc is - 0.0000 -%} \ No newline at end of file
--- a/extra/control-devel/devel/test_sb16bd.m Sun Apr 01 21:43:42 2012 +0000 +++ /dev/null Thu Jan 01 00:00:00 1970 +0000 @@ -1,110 +0,0 @@ -%{ - SB16BD EXAMPLE PROGRAM DATA (Continuous system) - 8 1 1 4 0.1E0 0.0 C D F L S F - - N, M, P, NCR, TOL1, TOL2, - DICO, JOBD, JOBMR, JOBCF, EQUIL, ORDSEL - - 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 - 0.0260 - -0.2510 - 0.0330 - -0.8860 - -4.0170 - 0.1450 - 3.6040 - 0.2800 - -.996 -.105 0.261 .009 -.001 -.043 0.002 -0.026 - 0.0 -4.4721e-002 6.6105e-001 4.6986e-003 3.6014e-001 1.0325e-001 -3.7541e-002 -4.2685e-002 3.2873e-002 - 4.1089e-001 - 8.6846e-002 - 3.8523e-004 - -3.6194e-003 - -8.8037e-003 - 8.4205e-003 - 1.2349e-003 - 4.2632e-003 -%} - -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 ]; - -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 ]; - -g = [ 4.1089e-001 - 8.6846e-002 - 3.8523e-004 - -3.6194e-003 - -8.8037e-003 - 8.4205e-003 - 1.2349e-003 - 4.2632e-003 ]; - - -tol1 = 0.1; -tol2 = 0.0; -dico = 0; -jobd = 1; -jobmr = 1; -jobcf = 0; -equil = 0; -ordsel = 0; -ncr = 4; - - -[ac, bc, cc, dc] = slsb16bd (a, b, c, d, dico, equil, ncr, ordsel, jobd, jobmr, \ - f, g, jobcf, tol1, tol2) - -%{ - SB16BD EXAMPLE PROGRAM RESULTS - - The order of reduced controller = 4 - - The Hankel singular values of extended system are: - 4.9078 4.8745 3.8455 3.7811 1.2289 1.1785 0.5176 0.1148 - - The reduced controller state dynamics matrix Ac is - 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 - - The reduced controller input/state matrix Bc is - 0.0015 - -0.0202 - 0.0159 - -0.0544 - - The reduced controller state/output matrix Cc is - 0.3534 0.0274 0.0337 -0.0320 - - The reduced controller input/output matrix Dc is - 0.0000 -%} \ No newline at end of file
--- a/extra/control-devel/devel/test_sb16cd.m Sun Apr 01 21:43:42 2012 +0000 +++ /dev/null Thu Jan 01 00:00:00 1970 +0000 @@ -1,111 +0,0 @@ -%{ - SB16CD EXAMPLE PROGRAM DATA (Continuous system) - 8 1 1 2 0.1E0 C D F R F - - N, M, P, NCR, TOL, - DICO, JOBD, JOBMR, JOBCF, ORDSEL - - 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 - 0.0260 - -0.2510 - 0.0330 - -0.8860 - -4.0170 - 0.1450 - 3.6040 - 0.2800 - -.996 -.105 0.261 .009 -.001 -.043 0.002 -0.026 - 0.0 -4.472135954999638e-002 6.610515358414598e-001 4.698598960657579e-003 3.601363251422058e-001 1.032530880771415e-001 -3.754055214487997e-002 -4.268536964759344e-002 3.287284547842979e-002 - 4.108939884667451e-001 - 8.684600000000012e-002 - 3.852317308197148e-004 - -3.619366874815911e-003 - -8.803722876359955e-003 - 8.420521094001852e-003 - 1.234944428038507e-003 - 4.263205617645322e-003 -%} - -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 ]; - -f = [ 4.472135954999638e-002 6.610515358414598e-001 4.698598960657579e-003 3.601363251422058e-001 1.032530880771415e-001 -3.754055214487997e-002 -4.268536964759344e-002 3.287284547842979e-002 ]; - -g = [ 4.108939884667451e-001 - 8.684600000000012e-002 - 3.852317308197148e-004 - -3.619366874815911e-003 - -8.803722876359955e-003 - 8.420521094001852e-003 - 1.234944428038507e-003 - 4.263205617645322e-003 ]; - -%{ - 8 1 1 2 0.1E0 C D F R F - - N, M, P, NCR, TOL, - DICO, JOBD, JOBMR, JOBCF, ORDSEL -%} - - -tol = 0.1; # tol1 -dico = 0; -jobd = 1; -jobmr = 1; -jobcf = 1; -ordsel = 0; -ncr = 2; - - -[ac, bc, cc] = slsb16cd (a, b, c, d, dico, ncr, ordsel, jobd, jobmr, \ - f, g, jobcf, tol) - -Go = ss (a, b, c, d); -[Kr, Info] = fwcfconred (Go, f, g, 2, "method", "bfsr", "cf", "right") - -%{ - SB16CD EXAMPLE PROGRAM RESULTS - - The order of reduced controller = 2 - - The frequency-weighted Hankel singular values are: - 3.3073 0.7274 0.1124 0.0784 0.0242 0.0182 0.0101 0.0094 - - The reduced controller state dynamics matrix Ac is - -0.4334 0.4884 - -0.1950 -0.1093 - - The reduced controller input/state matrix Bc is - -0.4231 - -0.1785 - - The reduced controller state/output matrix Cc is - -0.0326 -0.2307 -%} \ No newline at end of file