Cody

# Problem 498. Find the Kronecker Tensor Product without using KRON

Solution 592103

Submitted on 5 Mar 2015 by goc3
This solution is locked. To view this solution, you need to provide a solution of the same size or smaller.

### Test Suite

Test Status Code Input and Output
1   Pass
% test for 'KRON' usage fid = fopen(which('mykron'),'r'); c=onCleanup(@()fclose(fid)); tline=fgetl(fid); while ischar(tline) if (strfind(tline,'=kron')>0), error('Don''t use kron'); end if (strfind(tline,' kron')>0), error('Don''t use kron'); end if (strfind(tline,'+kron')>0)|(strfind(tline,'*kron')>0), error('Don''t use kron'); end if (strfind(tline,'-kron')>0), error('Don''t use kron'); end tline = fgetl(fid) end;

tline = [m,n] = size(x); tline = [p,q] = size(y); tline = for i = 1:m tline = for j = 1:n tline = for r = 1:p tline = for s = 1:q tline = z((i-1)*p+r,(j-1)*q+s) = x(i,j)*y(r,s); tline = end tline = end tline = end tline = end tline = end tline = '' tline = %This code written by profile_id 5349647 tline = -1

2   Pass
%% test 1 x =1:3; y =2:4; y_correct = [2 3 4 4 6 8 6 9 12]; assert(isequal(mykron(x,y),y_correct))

3   Pass
%% test 2 x = randi(10,3,3); y = 2:4; z_correct = kron(x,y); assert(isequal(mykron(x,y),z_correct))