Sandbox

Revision as of 10:28, 12 May 2009

|-

|| sample || C7H14NO3 || C7H11O3 || C5H8NO2 || C4H8NO2 || C7H13 || C4H10NO || C6H11 || C6H7 || C4H7O || C5H9 || C3H8N || C4H7 |-

||C7H14NO3 || || || || || || || || || || || ||

|-

||C7H11O3 || 1 2 || || || || || || || || || || ||

|-

||C5H8NO2 || 1 3 || 2 3 || || || || || || || || || ||

|-

||C4H8NO2 || 1 4 || 2 4 || 3 4 || || || || || || || || ||

|-

||C7H13 || 1 5 || 2 5 || 3 5 || 4 5 || || || || || || || ||

|-

||C4H10NO || 1 6 || 2 6 || 3 6 || 4 6 || 5 6 || || || || || || ||

|-

||C6H11 || 1 7 || 2 7 || 3 7 || 4 7 || 5 7 || 6 7 || || || || || ||

|-

||C6H7 || 1 8 || 2 8 || 3 8 || 4 8 || 5 8 || 6 8 || 7 8 || || || || ||

|-

||C4H7O || 1 9 || 2 9 || 3 9 || 4 9 || 5 9 || 6 9 || 7 9 || 8 9 || || || ||

|-

||C5H9 || 1 10 || 2 10 || 3 10 || 4 10 || 5 10 || 6 10 || 7 10 || 8 10 || 9 10 || || ||

|-

||C3H8N || 1 11 || 2 11 || 3 11 || 4 11 || 5 11 || 6 11 || 7 11 || 8 11 || 9 11 || 10 11 || ||

|-

||C4H7 || 1 12 || 2 12 || 3 12 || 4 12 || 5 12 || 6 12 || 7 12 || 8 12 || 9 12 || 10 12 || 11 12 ||

@@ Line 1: / Line 1: @@
-{{#replace:{{PlantFamily/CrudeDrugList|{{#replace:{{#clink:Apiaceae}}|Species:|}}}}||}}
+{{#replace:
+{{#lua:
+  local ruler = stdin:match("[%S ,]+");
+  local axis  = {};
+  local i = 1;
+  for formula in string.gmatch(ruler, "([%S]+)") do
+    axis[i] = formula;
+    i = i + 1;
+  end
+  print("#-\n");
+  print("## sample");
+  for i=1, table.getn(axis) do
+    print("## " .. axis[i]);
+  end
+  for i=1, table.getn(axis) do
+    print("#-\n");
+    print("##" .. axis[i]);
+    for j=1, table.getn(axis) do
+      print("## ");
+      if (j < i) then
+        print(j .. " " .. i);
+      end
+    end
+    print("\n");
+  end
+| C7H14NO3 C7H11O3 C5H8NO2 C4H8NO2 C7H13 C4H10NO C6H11 C6H7 C4H7O C5H9 C3H8N C4H7
+}}
+|#|{{#bar:}}}}
 <!----