Plan 9 from Bell Labs’s /usr/web/sources/contrib/fernan/nhc98/tests/nofib/spectral/fish/Fish_lines.hs

Copyright © 2021 Plan 9 Foundation.
Distributed under the MIT License.
Download the Plan 9 distribution.


module Fish_lines(p_tile, q_tile, r_tile, s_tile) 
where 
import Vector

p_tile::[(Nr,Nr,Nr,Nr)]
q_tile::[(Nr,Nr,Nr,Nr)]
r_tile::[(Nr,Nr,Nr,Nr)]
s_tile::[(Nr,Nr,Nr,Nr)]

p_tile
 =[
	(0,3,3,4),
	(3,4,0,8),
	(0,8,0,3),
	(6,0,4,4),
	(4,5,4,10),
	(4,10,7,6),
	(7,6,4,5),
	(11,0,10,4),
	(10,4,9,6),
	(9,6,8,8),
	(8,8,4,13),
	(4,13,0,16),
	(0,16,6,15),
	(6,15,8,16),
	(8,16,12,12),
	(12,12,16,12),
	(10,16,12,14),
	(12,14,16,13),
	(12,16,13,15),
	(13,15,16,14),
	(14,16,16,15),
	(8,12,16,10),
	(8,8,12,9),
	(12,9,16,8),
	(9,6,12,7),
	(12,7,16,6),
	(10,4,13,5),
	(13,5,16,4),
	(11,0,14,2),
	(14,2,16,2)]

q_tile
 =[
	(0,8,4,7),
	(4,7,6,7),
	(6,7,8,8),
	(8,8,12,10),
	(12,10,16,16),
	(0,12,3,13),
	(3,13,5,14),
	(5,14,7,15),
	(7,15,8,16),
	(2,16,3,13),
	(4,16,5,14),
	(6,16,7,15),
	(0,10,7,11),
	(9,13,8,15),
	(8,15,11,15),
	(11,15,9,13),
	(10,10,8,12),
	(8,12,12,12),
	(12,12,10,10),
	(2,0,4,5),
	(4,5,4,7),
	(4,0,6,5),
	(6,5,6,7),
	(6,0,8,5),
	(8,5,8,8),
	(10,0,14,11),
	(12,0,13,4),
	(13,4,16,8),
	(16,8,15,10),
	(15,10,16,16),
	(13,0,16,6),
	(14,0,16,4),
	(15,0,16,2),
	(0,0,8,0),
	(12,0,16,0),
	(0,0,0,8),
	(0,12,0,16)]

r_tile 
 =[  
	(0,0,8,8),
	(12,12,16,16),
	(0,4,5,10),
	(0,8,2,12),
	(0,12,1,14),
	(16,6,11,10),
	(11,10,6,16),
	(16,4,14,6),
	(14,6,8,8),
	(8,8,5,10),
	(5,10,2,12),
	(2,12,0,16),
	(16,8,12,12),
	(12,12,11,16),
	(1,1,4,0),
	(2,2,8,0),
	(3,3,8,2),
	(8,2,12,0),
	(5,5,12,3),
	(12,3,16,0),
	(11,16,12,12),
	(12,12,16,8),
	(13,13,16,10),
	(14,14,16,12),
	(15,15,16,14)]

s_tile
 =[  
	(0,0,4,2),
	(4,2,8,2),
	(8,2,16,0),
	(0,4,2,1),
	(0,6,7,4),
	(0,8,8,6),
	(0,10,7,8),
	(0,12,7,10),
	(0,14,7,13),
	(13,13,16,14),
	(14,11,16,12),
	(15,9,16,10),
	(16,0,10,4),
	(10,4,8,6),
	(8,6,7,8),
	(7,8,7,13),
	(7,13,8,16),
	(12,16,13,13),
	(13,13,14,11),
	(14,11,15,9),
	(15,9,16,8),
	(10,16,11,10),
	(12,4,10,6),
	(10,6,12,7),
	(12,7,12,4),
	(15,5,13,7),
	(13,7,15,8),
	(15,8,15,5)]

Bell Labs OSI certified Powered by Plan 9

(Return to Plan 9 Home Page)

Copyright © 2021 Plan 9 Foundation. All Rights Reserved.
Comments to [email protected].