function [s,x,y] = dspblksvd
% DSPBLKSVD DSP Blockset SVD block helper function.

% Copyright 1995-2000 The MathWorks, Inc.
% $Revision: 1.3 $ $Date: 2000/05/25 13:56:31 $

if nargin==0, action = 'dynamic'; end
blk = gcbh;
wantv = strcmp(get_param(blk,'wantv'),'on');

% Setup port label structure:
switch wantv
case 0,
	% 1 input (A)
	% 1 output (S)
   s.i1 = 1; s.i1s = 'A'; 
   s.o1 = 1; s.o1s = 'S';
   s.o2 = 1; s.o2s = '';
   s.o3 = 1; s.o3s = '';  
   
case 1,
   % 1 input (A)
   % 3 outputs (U,S,V)
   s.i1 = 1; s.i1s = 'A'; 
   s.o1 = 1; s.o1s = 'U';
   s.o2 = 2; s.o2s = 'S';  
   s.o3 = 3; s.o3s = 'V';  
       
end

x = [0.1 0.25 0.25 0.1 0.1 NaN ...
        0.3191 0.3191 0.2800 0.2800 0.3191 0.3191 0.3504 0.3191 NaN ...
        0.38 0.53 0.53 0.38 0.38 NaN ...
        0.57 0.69 NaN ...
        0.73 0.87 0.87 0.73 0.73 NaN ...
        .57 .61 NaN ...
        .66 .69 NaN ...
        .685 .685 NaN ...
        .686 .686 NaN ...
        .688 .688 NaN ...
        .57 .61 NaN ...
        .66 .7 NaN ...
        .57 .57 NaN ...
        .5709 .5709 NaN ...
        .569 .569];
    
y = [0.1 0.1 0.65 0.65 0.1 NaN ...
        0.335 0.375 0.375 0.425 0.425 0.465 0.4 0.335 NaN ...
        0.1 0.1 0.65 0.65 0.1 NaN ...
        .3 .1 NaN ...
        0.1 0.1 0.3 0.3 0.1 NaN ...
        .3 .3 NaN ...
        .3 .3 NaN ...
        .3 .27 NaN ...
        .21 .18 NaN ...
        .13 .1 NaN ...
        .1 .1 NaN ...
        .1 .1 NaN ...
        .1 .13 NaN ...
        .18 .21 NaN ...
        .27 .3];

% [EOF] dspblksvd.m