FindPhis.m
041b8992f8b7master

FindPhis.m
View Options

			close all;
			clear;
			clc;

			% N must be 2H in order to work.

			N = 14;

			%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

			H = N / 2;

			[Phis] = findPhisOnSupport2(N);

			M = zeros(N, N);

			for i=1:N
			M(i, :) = Phis{2-mod(i, 2), ceil(i/2)};
			end

			filename = strcat('tableN', num2str(N), 'H', num2str(H), '.csv');

			csvwrite(filename, M);