📄 comcdham.m
字号:
'parameters','ini_idx, idx_inc, thrshld, cycl_flag',...
'position',[185,70,235,90])
add_block('built-in/Demux',[sys,'/',['Binary sequence',13,'Hamming decode/Triggered',13,'buffer down/Demux']])
set_param([sys,'/',['Binary sequence',13,'Hamming decode/Triggered',13,'buffer down/Demux']],...
'outputs','[out_size 1]',...
'position',[290,62,330,98])
add_block('built-in/Mux',[sys,'/',['Binary sequence',13,'Hamming decode/Triggered',13,'buffer down/Mux']])
set_param([sys,'/',['Binary sequence',13,'Hamming decode/Triggered',13,'buffer down/Mux']],...
'inputs','[in_size 1 1]',...
'position',[110,59,140,101])
add_block('built-in/Outport',[sys,'/',['Binary sequence',13,'Hamming decode/Triggered',13,'buffer down/out_2']])
set_param([sys,'/',['Binary sequence',13,'Hamming decode/Triggered',13,'buffer down/out_2']],...
'Port','2',...
'position',[355,80,375,100])
add_block('built-in/Outport',[sys,'/',['Binary sequence',13,'Hamming decode/Triggered',13,'buffer down/out_1']])
set_param([sys,'/',['Binary sequence',13,'Hamming decode/Triggered',13,'buffer down/out_1']],...
'position',[390,60,410,80])
add_line([sys,'/',['Binary sequence',13,'Hamming decode/Triggered',13,'buffer down']],[90,95;105,95])
add_line([sys,'/',['Binary sequence',13,'Hamming decode/Triggered',13,'buffer down']],[335,90;350,90])
add_line([sys,'/',['Binary sequence',13,'Hamming decode/Triggered',13,'buffer down']],[65,80;105,80])
add_line([sys,'/',['Binary sequence',13,'Hamming decode/Triggered',13,'buffer down']],[335,70;385,70])
add_line([sys,'/',['Binary sequence',13,'Hamming decode/Triggered',13,'buffer down']],[40,65;105,65])
add_line([sys,'/',['Binary sequence',13,'Hamming decode/Triggered',13,'buffer down']],[145,80;180,80])
add_line([sys,'/',['Binary sequence',13,'Hamming decode/Triggered',13,'buffer down']],[240,80;285,80])
set_param([sys,'/',['Binary sequence',13,'Hamming decode/Triggered',13,'buffer down']],...
'Mask Display','Triggered\nbuffer dn',...
'Mask Type','Triggered buffer down.')
set_param([sys,'/',['Binary sequence',13,'Hamming decode/Triggered',13,'buffer down']],...
'Mask Dialogue','Triggered buffer down.|Input signal vector size:|Initial index (integer vector):|Increament for each index (integer vector):|Trigger threshold:|When index exceed register size, 1 for cyclic ouput, 0 for zero output:')
set_param([sys,'/',['Binary sequence',13,'Hamming decode/Triggered',13,'buffer down']],...
'Mask Translate','in_size=@1; ini_idx=@2; idx_inc=@3; thrshld=@4; cycl_flag=@5; out_size=length(ini_idx);')
set_param([sys,'/',['Binary sequence',13,'Hamming decode/Triggered',13,'buffer down']],...
'Mask Help','The register inside this block take the signal vector at the 1st inport by the raising edge of the second inport. The fisrt outport outputs a signal vector at the raising edge of the third inport.')
set_param([sys,'/',['Binary sequence',13,'Hamming decode/Triggered',13,'buffer down']],...
'Mask Entries','k\/0\/1\/.1\/0\/')
% Finished composite block ['Binary sequence',13,'Hamming decode/Triggered',13,'buffer down'].
set_param([sys,'/',['Binary sequence',13,'Hamming decode/Triggered',13,'buffer down']],...
'BackGround',3,...
'position',[440,28,500,72])
add_block('built-in/Outport',[sys,'/',['Binary sequence',13,'Hamming decode/sequential',13,'message-out']])
set_param([sys,'/',['Binary sequence',13,'Hamming decode/sequential',13,'message-out']],...
'position',[540,30,560,50])
% Subsystem ['Binary sequence',13,'Hamming decode/Binary-vector',13,'Hamming decode'].
new_system([sys,'/',['Binary sequence',13,'Hamming decode/Binary-vector',13,'Hamming decode']])
set_param([sys,'/',['Binary sequence',13,'Hamming decode/Binary-vector',13,'Hamming decode']],'Location',[267,160,850,320])
add_block('built-in/Inport',[sys,'/',['Binary sequence',13,'Hamming decode/Binary-vector',13,'Hamming decode/in_1']])
set_param([sys,'/',['Binary sequence',13,'Hamming decode/Binary-vector',13,'Hamming decode/in_1']],...
'position',[30,35,50,55])
add_block('built-in/State-Space',[sys,'/',['Binary sequence',13,'Hamming decode/Binary-vector',13,'Hamming decode/Matrix',13,'Gain']])
set_param([sys,'/',['Binary sequence',13,'Hamming decode/Binary-vector',13,'Hamming decode/Matrix',13,'Gain']],...
'A','[]',...
'B','[]',...
'C','[]',...
'D','K',...
'Mask Display','K',...
'Mask Type','Matrix Gain')
set_param([sys,'/',['Binary sequence',13,'Hamming decode/Binary-vector',13,'Hamming decode/Matrix',13,'Gain']],...
'Mask Dialogue','Matrix Gain.|Gain matrix:',...
'Mask Translate','K = @1;')
set_param([sys,'/',['Binary sequence',13,'Hamming decode/Binary-vector',13,'Hamming decode/Matrix',13,'Gain']],...
'Mask Help','Multiplies input vector by entered matrix to produce output vector (y=Au).',...
'Mask Entries','H\/')
set_param([sys,'/',['Binary sequence',13,'Hamming decode/Binary-vector',13,'Hamming decode/Matrix',13,'Gain']],...
'position',[100,31,125,59])
add_block('built-in/S-Function',[sys,'/',['Binary sequence',13,'Hamming decode/Binary-vector',13,'Hamming decode/Modulus',13,'operation']])
set_param([sys,'/',['Binary sequence',13,'Hamming decode/Binary-vector',13,'Hamming decode/Modulus',13,'operation']],...
'function name','arymodu',...
'parameters','md',...
'Mask Display','Modulo',...
'Mask Type','Modulo')
set_param([sys,'/',['Binary sequence',13,'Hamming decode/Binary-vector',13,'Hamming decode/Modulus',13,'operation']],...
'Mask Dialogue','Modulus operation:|Modulus base:',...
'Mask Translate','md = @1;')
set_param([sys,'/',['Binary sequence',13,'Hamming decode/Binary-vector',13,'Hamming decode/Modulus',13,'operation']],...
'Mask Help','This block output modulus operation of the input signal with module base as specified in block entry. The length of the output vector is the same as the input vector.')
set_param([sys,'/',['Binary sequence',13,'Hamming decode/Binary-vector',13,'Hamming decode/Modulus',13,'operation']],...
'Mask Entries','2\/',...
'position',[140,26,200,64])
add_block('built-in/Combinatorial Logic',[sys,'/',['Binary sequence',13,'Hamming decode/Binary-vector',13,'Hamming decode/Combinatorial',13,'Logic']])
set_param([sys,'/',['Binary sequence',13,'Hamming decode/Binary-vector',13,'Hamming decode/Combinatorial',13,'Logic']],...
'Truth Table','trt',...
'position',[225,33,255,57])
add_block('built-in/Sum',[sys,'/',['Binary sequence',13,'Hamming decode/Binary-vector',13,'Hamming decode/Sum']])
set_param([sys,'/',['Binary sequence',13,'Hamming decode/Binary-vector',13,'Hamming decode/Sum']],...
'position',[305,90,325,110])
add_block('built-in/S-Function',[sys,'/',['Binary sequence',13,'Hamming decode/Binary-vector',13,'Hamming decode/Modulus',13,'operation1']])
set_param([sys,'/',['Binary sequence',13,'Hamming decode/Binary-vector',13,'Hamming decode/Modulus',13,'operation1']],...
'function name','arymodu',...
'parameters','md',...
'Mask Display','Modulo',...
'Mask Type','Modulo')
set_param([sys,'/',['Binary sequence',13,'Hamming decode/Binary-vector',13,'Hamming decode/Modulus',13,'operation1']],...
'Mask Dialogue','Modulus operation:|Modulus base:',...
'Mask Translate','md = @1;')
set_param([sys,'/',['Binary sequence',13,'Hamming decode/Binary-vector',13,'Hamming decode/Modulus',13,'operation1']],...
'Mask Help','This block output modulus operation of the input signal with module base as specified in block entry. The length of the output vector is the same as the input vector.')
set_param([sys,'/',['Binary sequence',13,'Hamming decode/Binary-vector',13,'Hamming decode/Modulus',13,'operation1']],...
'Mask Entries','2\/',...
'position',[340,81,400,119])
add_block('built-in/State-Space',[sys,'/',['Binary sequence',13,'Hamming decode/Binary-vector',13,'Hamming decode/Matrix',13,'Gain1']])
set_param([sys,'/',['Binary sequence',13,'Hamming decode/Binary-vector',13,'Hamming decode/Matrix',13,'Gain1']],...
'A','[]',...
'B','[]',...
'C','[]',...
'D','K',...
'Mask Display','K',...
'Mask Type','Matrix Gain')
set_param([sys,'/',['Binary sequence',13,'Hamming decode/Binary-vector',13,'Hamming decode/Matrix',13,'Gain1']],...
'Mask Dialogue','Matrix Gain.|Gain matrix:',...
'Mask Translate','K = @1;')
set_param([sys,'/',['Binary sequence',13,'Hamming decode/Binary-vector',13,'Hamming decode/Matrix',13,'Gain1']],...
'Mask Help','Multiplies input vector by entered matrix to produce output vector (y=Au).',...
'Mask Entries','G\/')
set_param([sys,'/',['Binary sequence',13,'Hamming decode/Binary-vector',13,'Hamming decode/Matrix',13,'Gain1']],...
'position',[415,86,440,114])
add_block('built-in/S-Function',[sys,'/',['Binary sequence',13,'Hamming decode/Binary-vector',13,'Hamming decode/Modulus',13,'operation2']])
set_param([sys,'/',['Binary sequence',13,'Hamming decode/Binary-vector',13,'Hamming decode/Modulus',13,'operation2']],...
'function name','arymodu',...
'parameters','md',...
'Mask Display','Modulo',...
'Mask Type','Modulo')
set_param([sys,'/',['Binary sequence',13,'Hamming decode/Binary-vector',13,'Hamming decode/Modulus',13,'operation2']],...
'Mask Dialogue','Modulus operation:|Modulus base:',...
'Mask Translate','md = @1;')
set_param([sys,'/',['Binary sequence',13,'Hamming decode/Binary-vector',13,'Hamming decode/Modulus',13,'operation2']],...
'Mask Help','This block output modulus operation of the input signal with module base as specified in block entry. The length of the output vector is the same as the input vector.')
set_param([sys,'/',['Binary sequence',13,'Hamming decode/Binary-vector',13,'Hamming decode/Modulus',13,'operation2']],...
'Mask Entries','2\/',...
'position',[455,81,515,119])
add_block('built-in/Outport',[sys,'/',['Binary sequence',13,'Hamming decode/Binary-vector',13,'Hamming decode/out_1']])
set_param([sys,'/',['Binary sequence',13,'Hamming decode/Binary-vector',13,'Hamming decode/out_1']],...
'position',[535,90,555,110])
add_line([sys,'/',['Binary sequence',13,'Hamming decode/Binary-vector',13,'Hamming decode']],[130,45;135,45])
add_line([sys,'/',['Binary sequence',13,'Hamming decode/Binary-vector',13,'Hamming decode']],[205,45;220,45])
add_line([sys,'/',['Binary sequence',13,'Hamming decode/Binary-vector',13,'Hamming decode']],[260,45;285,45;285,95;300,95])
add_line([sys,'/',['Binary sequence',13,'Hamming decode/Binary-vector',13,'Hamming decode']],[55,45;95,45])
add_line([sys,'/',['Binary sequence',13,'Hamming decode/Binary-vector',13,'Hamming decode']],[80,45;80,105;300,105])
add_line([sys,'/',['Binary sequence',13,'Hamming decode/Binary-vector',13,'Hamming decode']],[330,100;335,100])
add_line([sys,'/',['Binary sequence',13,'Hamming decode/Binary-vector',13,'Hamming decode']],[405,100;410,100])
add_line([sys,'/',['Binary sequence',13,'Hamming decode/Binary-vector',13,'Hamming decode']],[445,100;450,100])
add_line([sys,'/',['Binary sequence',13,'Hamming decode/Binary-vector',13,'Hamming decode']],[520,100;530,100])
set_param([sys,'/',['Binary sequence',13,'Hamming decode/Binary-vector',13,'Hamming decode']],...
'Mask Display','Hamming\ndecode',...
'Mask Type','Hamming code')
set_param([sys,'/',['Binary sequence',13,'Hamming decode/Binary-vector',13,'Hamming decode']],...
'Mask Dialogue','Single error-correction Hamming decode. For M>2 integer, N=2^M-1; K=2^M-M-1.|Code word length N:|Message length K or M-degree primitive polynomial:')
set_param([sys,'/',['Binary sequence',13,'Hamming decode/Binary-vector',13,'Hamming decode']],...
'Mask Translate','n=@1;k=@2;if length(k)>1,p=k;k=n-length(p)+1;else,p=gfprimdf(n-k);end;[H,G]=hammgen(n-k,p);trt=htruthtb(G);[n,m]=size(G);G=[zeros(n,m-n),eye(n)];')
set_param([sys,'/',['Binary sequence',13,'Hamming decode/Binary-vector',13,'Hamming decode']],...
'Mask Help','This block decodes code word binary vecotr using Hamming coding method. The code word has length N=2^M-1. The message has length K=2^M-M-1. M is an integernot less than 3. The second entree could be a M-degreee primitive polynomail, which can be found by using commands gfprimdf or gfprimfd. This block takes N-ary code word input and results K-ary message output.')
set_param([sys,'/',['Binary sequence',13,'Hamming decode/Binary-vector',13,'Hamming decode']],...
'Mask Entries','n\/p\/')
% Finished composite block ['Binary sequence',13,'Hamming decode/Binary-vector',13,'Hamming decode'].
set_param([sys,'/',['Binary sequence',13,'Hamming decode/Binary-vector',13,'Hamming decode']],...
'position',[310,15,370,55])
add_line([sys,'/',['Binary sequence',13,'Hamming decode']],[175,90;180,90;180,55;200,55])
add_line([sys,'/',['Binary sequence',13,'Hamming decode']],[265,55;280,55;280,90;400,90;400,50;435,50])
add_line([sys,'/',['Binary sequence',13,'Hamming decode']],[265,35;305,35])
add_line([sys,'/',['Binary sequence',13,'Hamming decode']],[375,35;435,35])
add_line([sys,'/',['Binary sequence',13,'Hamming decode']],[145,35;200,35])
add_line([sys,'/',['Binary sequence',13,'Hamming decode']],[110,100;125,100])
add_line([sys,'/',['Binary sequence',13,'Hamming decode']],[505,40;535,40])
add_line([sys,'/',['Binary sequence',13,'Hamming decode']],[175,105;410,105;410,65;435,65])
set_param([sys,'/',['Binary sequence',13,'Hamming decode']],...
'Mask Display','plot(0,0,100,100,x,y);Hamming de',...
'Mask Type','Sequence I/O Hamming decode')
set_param([sys,'/',['Binary sequence',13,'Hamming decode']],...
'Mask Dialogue','Single error-correction Hamming decode with codeword length N=2^M-1, message length K=2^M-M-1, where M is a >=3 integer.|Codeword length N:|Message length K, or M-degree primitive polynomial:|Input sample time T_out (sec):')
set_param([sys,'/',['Binary sequence',13,'Hamming decode']],...
'Mask Translate','n=@1;k=@2;if length(k)>1,p=k;k=n-length(p)+1;else,p=gfprimdf(n-k);end;samp=@3;[x,y]=codeicon(4);')
set_param([sys,'/',['Binary sequence',13,'Hamming decode']],...
'Mask Help','This block decodes length N binary codeword into length K message using Hamming code. The block uses sequential input/output format. The input sequence sample time is K*T_out/N. The block causes a K*T_out delay. Use function GFPRIMDF or GFPRIMFD to find M-degree\nprimitive polynomials.')
set_param([sys,'/',['Binary sequence',13,'Hamming decode']],...
'Mask Entries','7\/gfprimfd(3,''min'')\/1/4\/')
% Finished composite block ['Binary sequence',13,'Hamming decode'].
set_param([sys,'/',['Binary sequence',13,'Hamming decode']],...
'position',[165,143,245,187])
add_block('built-in/Note',[sys,'/','Hamming Coding//Decoding Library'])
set_param([sys,'/','Hamming Coding//Decoding Library'],...
'ForeGround',2,...
'Font Weight','bold',...
'Font Size',12,...
'position',[200,10,205,15])
add_line(sys,[120,80;160,80])
add_line(sys,[120,155;135,155;135,165;160,165])
drawnow
% Return any arguments.
if (nargin | nargout)
% Must use feval here to access system in memory
if (nargin > 3)
if (flag == 0)
eval(['[ret,x0,str,ts,xts]=',sys,'(t,x,u,flag);'])
else
eval(['ret =', sys,'(t,x,u,flag);'])
end
else
[ret,x0,str,ts,xts] = feval(sys);
end
else
drawnow % Flash up the model and execute load callback
end
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -