trigrammes=[1 1 1
0 1 0
1 0 0
0 0 1
1 1 0
1 0 1
0 0 0
0 1 1];

etiq_x=['Ch''ien'
        'K''an  '
		'Ken   '
		'Chen  '
		'Sun   '
		'Li    '
		'K''un  '
		'Tui   '];
		
		clf
for i=1:8
	subplot(2,4,i)
	text(0.3,0.6,etiq_x(i,:),'FontName','Helvetica')
	hold on
	if trigrammes(i,1)
		plot([0 1],[0 0],'-','linewidth',3)
	else
		plot([0 0.4],[0 0],'-','linewidth',3)
		plot([0.6 1],[0 0],'-','linewidth',3)
	end
	if trigrammes(i,2)
		plot([0 1],[.2 .2],'-','linewidth',3)
	else
		plot([0 0.4],[.2 .2],'-','linewidth',3)
		plot([0.6 1],[.2 .2],'-','linewidth',3)
	end
	if trigrammes(i,3)
		plot([0 1],[.4 .4],'-','linewidth',3)
	else
		plot([0 0.4],[.4 .4],'-','linewidth',3)
		plot([0.6 1],[.4 .4],'-','linewidth',3)
	end
	axis equal
	axis off
end

set(gcf,'color','w')
hold off


