Volatile:ClassMatrix - Revision history

Editor at 02:44, 30 January 2023

2023-01-30T02:44:45Z

@@ Line 1: / Line 1: @@
-{{#def:ALL|{{#SearchTitle:{{{1}}} }}}}
+{{#def:ALL|{{#SearchTitle:{{#get:1}} }}}}
-{{#def:X-AXIS|{{#lua:
+{{#def:X-AXIS|{{#invoke:ClassMatrix|XAxis|{{#var:ALL}}|{{#get:2}}|{{#get:3}}}}}}
-{{#def:Y-AXIS|{{#lua:
+{{#def:Y-AXIS|{{#invoke:ClassMatrix|YAxis|{{#var:ALL}}|{{#get:4}}|{{#get:5}}}}}}
-{{#def:MATR|
+{{#def:MATR|{{#invoke:ClassMatrix|Matr|{{#var:X-AXIS}}&&{{#var:Y-AXIS}}&&{{#var:ALL}}|{{#get:1}}|{{#get:2}}|{{#get:3}}|{{#get:4}}|{{#get:5}}}}}}
 {{Twocolumn|
@@ Line 88: / Line 14: @@
 {| class=wikitable style="margin:0 auto"
-|+ style="font-weight:bold" | Rows: {{{6|}}}, Columns: {{{7|}}} (counts)
+|+ style="font-weight:bold" | Rows: {{#get:6}}, Columns: {{#get:7}} (counts)
 |-
+!

Editor at 14:32, 21 December 2008

2008-12-21T14:32:01Z

← Older revision		Revision as of 23:32, 21 December 2008
Line 53:		Line 53:
	end		end
	end		end
	strFst = string.sub("{{{1}}}", 1, {{{2}}}-1);		--- {{{2}}}{{{3}}}が{{{4}}}{{{5}}}より後ろの場合も考慮 ---
	strSnd = string.sub("{{{1}}}", {{{3}}}+1, {{{4}}}-1);		if ({{{3}}} <= {{{4}}})
	strTrd = string.sub("{{{1}}}", {{{5}}}+1, string.len("{{{1}}}"));		then
			strFst = string.sub("{{{1}}}", 1, {{{2}}}-1);
			strSnd = string.sub("{{{1}}}", {{{3}}}+1, {{{4}}}-1);
			strTrd = string.sub("{{{1}}}", {{{5}}}+1, string.len("{{{1}}}"));
			else
			strFst = string.sub("{{{1}}}", 1, {{{4}}}-1);
			strSnd = string.sub("{{{1}}}", {{{5}}}+1, {{{2}}}-1);
			strTrd = string.sub("{{{1}}}", {{{3}}}+1, string.len("{{{1}}}"));
			end
	for x,v in string.gmatch(xaxis, "(%S+) (%S+)") do		for x,v in string.gmatch(xaxis, "(%S+) (%S+)") do
	str = x .. " <small>(" .. v .. ")</small>&&";		str = x .. " <small>(" .. v .. ")</small>&&";
Line 61:		Line 69:
	if (M[x][y] == nil)		if (M[x][y] == nil)
	then str = str .. " 0 dummy";		then str = str .. " 0 dummy";
	else str = str .. " " .. M[x][y] .. " " .. strFst .. x .. strSnd .. y .. strTrd;		else if ({{{3}}} <= {{{4}}})
			then str = str .. " " .. M[x][y] .. " " .. strFst .. x .. strSnd .. y .. strTrd;
			else str = str .. " " .. M[x][y] .. " " .. strFst .. y .. strSnd .. x .. strTrd;
			end
	end		end
	end		end

Editor at 14:20, 21 December 2008

2008-12-21T14:20:17Z

← Older revision		Revision as of 23:20, 21 December 2008
Line 4:		Line 4:
	local H = {};		local H = {};
	local T = {};		local T = {};
	for id in stdin:gmatch("%w+") do		for id in stdin:gmatch("%S+") do
	str = string.sub(id,{{{2}}},{{{3}}});		str = string.sub(id,{{{2}}},{{{3}}});
	if (H[str] == nil)		if (H[str] == nil)
Line 23:		Line 23:
	local H = {};		local H = {};
	local T = {};		local T = {};
	for id in stdin:gmatch("%w+") do		for id in stdin:gmatch("%S+") do
	str = string.sub(id,{{{4}}},{{{5}}});		str = string.sub(id,{{{4}}},{{{5}}});
	if (H[str] == nil)		if (H[str] == nil)

Editor at 15:15, 18 December 2008

2008-12-18T15:15:46Z

← Older revision		Revision as of 00:15, 19 December 2008
Line 70:		Line 70:
	}}		}}

			{{Twocolumn\|
			This page is a classified matrix of molecular pages based on two class categories (rows and columns). You can reach actual molecules by clicking each number with a link (except for 0).
			\|
			これは二つのクラス分類（行と列方向）に基づく分子ページの集計ページです。実際の分子ページへは数字のリンクをクリックしてください。
			}}

	{\| class=wikitable style="margin:0 auto"		{\| class=wikitable style="margin:0 auto"

Editor: New page: {{#def:ALL|{{#SearchTitle:{{{1}}} }}}} {{#def:X-AXIS|{{#lua: local H = {}; local T = {}; for id in stdin:gmatch("%w+") do str = string.sub(id,{{{2}}},{{{3}}}); if (H[str] ==...

2008-12-18T14:52:49Z

New page: {{#def:ALL|{{#SearchTitle:{{{1}}} }}}} {{#def:X-AXIS|{{#lua: local H = {}; local T = {}; for id in stdin:gmatch("%w+") do str = string.sub(id,{{{2}}},{{{3}}}); if (H[str] ==...

New page

{{#def:ALL|{{#SearchTitle:{{{1}}} }}}}

{{#def:X-AXIS|{{#lua:
local H = {};
local T = {};
for id in stdin:gmatch("%w+") do
str = string.sub(id,{{{2}}},{{{3}}});
if (H[str] == nil)
then H[str] = 1; table.insert(T, str);
else H[str] = H[str] + 1;
end
end
table.sort(T);
for i=1,table.getn(T) do
local k = T[i];
print(k .. " " .. H[k]);
end
|{{#var:ALL}}
}}
}}

{{#def:Y-AXIS|{{#lua:
local H = {};
local T = {};
for id in stdin:gmatch("%w+") do
str = string.sub(id,{{{4}}},{{{5}}});
if (H[str] == nil)
then H[str] = 1; table.insert(T, str);
else H[str] = H[str] + 1;
end
end
table.sort(T);
for i=1,table.getn(T) do
local k = T[i];
print(k .. " " .. H[k]);
end
|{{#var:ALL}}
}}
}}

{{#def:MATR|
{{#lua:
local input = stdin:match(".+");
local xaxis, yaxis, all = string.match(input, "([^&]+)&&([^&]+)&&(.+)");
local M = {};
for id in string.gmatch(all,"(%S+)") do
x = string.sub(id, {{{2}}}, {{{3}}});
y = string.sub(id, {{{4}}}, {{{5}}});
if (M[x] == nil) then M[x] = {}; end
if (M[x][y] == nil)
then M[x][y] = 1;
else M[x][y] = M[x][y] + 1;
end
end
strFst = string.sub("{{{1}}}", 1, {{{2}}}-1);
strSnd = string.sub("{{{1}}}", {{{3}}}+1, {{{4}}}-1);
strTrd = string.sub("{{{1}}}", {{{5}}}+1, string.len("{{{1}}}"));
for x,v in string.gmatch(xaxis, "(%S+) (%S+)") do
str = x .. " <small>(" .. v .. ")</small>&&";
for y,v in string.gmatch(yaxis, "(%S+) (%S+)") do
if (M[x][y] == nil)
then str = str .. " 0 dummy";
else str = str .. " " .. M[x][y] .. " " .. strFst .. x .. strSnd .. y .. strTrd;
end
end
print(str);
end
|{{#var:X-AXIS}}&&{{#var:Y-AXIS}}&&{{#var:ALL}}
}}
}}

{| class=wikitable style="margin:0 auto"
|+ style="font-weight:bold" | Rows: {{{6|}}}, Columns: {{{7|}}} (counts)
|-
!
{{#repeat:ClassMatrix/CreateHeader|1|{{#var:Y-AXIS}}}}
{{#repeat:ClassMatrix/CreateRows|1|{{#var:MATR}}}}
|}