Mô đun:Chem2
Tài liệu mô đun | Tài liệu mô đun này hiện đang thiếu, không đầy đủ hoặc không miêu tả chính xác chức năng, cách sử dụng, các tham số của nó. Xin hãy giúp viết một tài liệu hoặc mở rộng và cải thiện tài liệu để giúp các thành viên khác biết cách sử dụng mô đun này. |
Biên tập viên sửa đổi có thể thử nghiệm trong các trang chỗ thử và trường hợp kiểm thử của mô đun này.
Các trang con của mô đun này.
local getArgs = require('Mô đun:Arguments').getArgslocal p = {} -- module's tablelocal am = {} -- Elements with wiki linksam.H="[[Hydro|H]]";am.He="[[Heli|He]]";am.Li="[[Liti|Li]]";am.Be="[[Berili|Be]]";am.B="[[Bo|B]]";am.C="[[Cacbon|C]]";am.N="[[Nitơ|N]]";am.O="[[Ôxy|O]]";am.F="[[Flo|F]]";am.Ne="[[Neon|Ne]]";am.Na="[[Natri|Na]]";am.Mg="[[Magie|Mg]]";am.Al="[[Nhôm|Al]]";am.Si="[[Silic|Si]]";am.P="[[Phốtpho|P]]";am.S="[[Lưu huỳnh|S]]";am.Cl="[[Clo|Cl]]";am.Ar="[[Argon|Ar]]";am.K="[[Kali|K]]";am.Ca="[[Canxi|Ca]]";am.Sc="[[Scandi|Sc]]";am.Ti="[[Titan|Ti]]";am.V="[[Vanadi|V]]";am.Cr="[[Crom|Cr]]";am.Mn="[[Mangan|Mn]]";am.Fe="[[Sắt|Fe]]";am.Co="[[Coban|Co]]";am.Ni="[[Niken|Ni]]";am.Cu="[[Đồng|Cu]]";am.Zn="[[Kẽm|Zn]]";am.Ga="[[Gali|Ga]]";am.Ge="[[Gecmani|Ge]]";am.As="[[Asen|As]]";am.Se="[[Selen|Se]]";am.Br="[[Brom|Br]]";am.Kr="[[Krypton|Kr]]";am.Rb="[[Rubiđi|Rb]]";am.Sr="[[Stronti|Sr]]";am.Y="[[Yttri|Y]]";am.Zr="[[Zirconi|Zr]]";am.Nb="[[Niobi|Nb]]";am.Mo="[[Molypden|Mo]]";am.Tc="[[Tecneti|Tc]]";am.Ru="[[Rutheni|Ru]]";am.Rh="[[Rhodi|Rh]]";am.Pd="[[Paladi|Pd]]";am.Ag="[[Bạc|Ag]]";am.Cd="[[Cadimi|Cd]]";am.In="[[Indi|In]]";am.Sn="[[Thiếc|Sn]]";am.Sb="[[Antimon|Sb]]";am.Te="[[Telua|Te]]";am.I="[[Iốt|I]]";am.Xe="[[Xenon|Xe]]";am.Cs="[[Xêsi|Cs]]";am.Ba="[[Bari|Ba]]";am.La="[[Lantan|La]]";am.Ce="[[Xeri|Ce]]";am.Pr="[[Praseodymi|Pr]]";am.Nd="[[Neodymi|Nd]]";am.Pm="[[Promethi|Pm]]";am.Sm="[[Samari|Sm]]";am.Eu="[[Europi|Eu]]";am.Gd="[[Gadolini|Gd]]";am.Tb="[[Terbi|Tb]]";am.Dy="[[Dysprosi|Dy]]";am.Ho="[[Holmi|Ho]]";am.Er="[[Erbi|Er]]";am.Tm="[[Thuli|Tm]]";am.Yb="[[Ytterbi|Yb]]";am.Lu="[[Luteti|Lu]]";am.Hf="[[Hafni|Hf]]";am.Ta="[[Tantan|Ta]]";am.W="[[Wolfram|W]]";am.Re="[[Rheni|Re]]";am.Os="[[Osmi|Os]]";am.Ir="[[Iridi|Ir]]";am.Pt="[[Platin|Pt]]";am.Au="[[Vàng|Au]]";am.Hg="[[Thủy ngân|Hg]]";am.Tl="[[Tali|Tl]]";am.Pb="[[Chì|Pb]]";am.Bi="[[Bitmut|Bi]]";am.Po="[[Poloni|Po]]";am.At="[[Astatin|At]]";am.Rn="[[Radon|Rn]]";am.Fr="[[Franxi|Fr]]";am.Ra="[[Radi|Ra]]";am.Ac="[[Actini|Ac]]";am.Th="[[Thori|Th]]";am.Pa="[[Protactini|Pa]]";am.U="[[Urani|U]]";am.Np="[[Neptuni|Np]]";am.Pu="[[Plutoni|Pu]]";am.Am="[[Americi|Am]]";am.Cm="[[Curi|Cm]]";am.Bk="[[Berkeli|Bk]]";am.Cf="[[Californi|Cf]]";am.Es="[[Einsteini|Es]]";am.Fm="[[Fermi|Fm]]";am.Md="[[Mendelevi|Md]]";am.No="[[Nobeli|No]]";am.Lr="[[Lawrenci|Lr]]";am.Rf="[[Rutherfordi|Rf]]";am.Db="[[Dubni|Db]]";am.Sg="[[Seaborgi|Sg]]";am.Bh="[[Bohri|Bh]]";am.Hs="[[Hassi|Hs]]";am.Mt="[[Meitneri|Mt]]";am.Ds="[[Darmstadti|Ds]]";am.Rg="[[Roentgeni|Rg]]";am.Cp="[[Copernixi|Cp]]";am.Nh="[[Nihoni|Nh]]";am.Fl="[[Flerovi|Fl]]";am.Mc="[[Moscovi|Mc]]";am.Lv="[[Livermori|Lv]]";am.Ts="[[Tennessine|Ts]]";am.Og="[[Oganesson|Og]]";local T_ELEM = 0 -- token typeslocal T_NUM = 1 -- numberlocal T_OPEN = 2 -- open '('local T_CLOSE = 3 -- close ')'local T_PM_CHARGE = 4 -- + or −local T_WATER = 6 -- .xH2O x numberlocal T_CRYSTAL = 9 -- .xlocal T_CHARGE = 8 -- charge (x+), (x-)local T_SUF_CHARGE = 10 -- suffix and charge e.g. 2+ from H2+local T_SUF_CHARGE2 = 12 -- suffix and (charge) e.g. 2(2+) from He2(2+)local T_SPECIAL = 14 -- starting with \ e.g. \d for double bond (=)local T_SPECIAL2 = 16 -- starting with \y{x} e.g. \i{12} for isotope with mass number 12local T_ARROW_R = 17 -- match: ->local T_ARROW_EQ = 18 -- match: <->local T_UNDERSCORE = 19 -- _{ ... }local T_CARET = 20 -- ^{ ... }local T_NOCHANGE = 30 -- Anything else like ☃function su(up, down) -- like bản mẫu:su if (down == "") then return "<span style=\"display:inline-block; margin-bottom:-0.3em; vertical-align:0.8em; line-height:1.2em; font-size:70%; text-align:left;\">" .. up .. "<br /></span>"; else return "<span style=\"display:inline-block; margin-bottom:-0.3em; vertical-align:-0.4em; line-height:1.2em; font-size:70%; text-align:left;\">" .. up .. "<br />" .. down .. "</span>"; endendfunction DotIt() return '·'endfunction item(f) -- (iterator) returns one token (type, value) at a time from the formula 'f' local i = 1 local first = "true"; return function () local t, x = nil, nil if (first == "true" and f:match('^[0-9]', i)) then x = f:match('^[%d.]+', i); t = T_NOCHANGE; i = i + x:len(); -- matching coefficient (need a space first) elseif i <= f:len() then x = f:match('^%s+[%d.]+', i); t = T_NOCHANGE; -- matching coefficient (need a space first) if not x then x = f:match('^%s[+]', i); t = T_NOCHANGE; end -- matching + (H2O + H2O) if not x then x = f:match('^%&%#[%w%d]+%;', i); t = T_NOCHANGE; end -- &#...; if not x then x = f:match('^%<%-%>', i); t = T_ARROW_EQ; end -- matching <-> if not x then x = f:match('^%-%>', i); t = T_ARROW_R; end -- matching -> if not x then x = f:match('^%u%l*', i); t = T_ELEM; end -- matching symbols like Aaaaa if not x then x = f:match('^%d+[+-]', i); t = T_SUF_CHARGE; end -- matching x+, x- if not x then x = f:match('^%d+%(%d*[+-]%)', i); t = T_SUF_CHARGE2; end -- matching x(y+/-), x(+/-) if not x then x = f:match('^%(%d*[+-]%)', i); t = T_CHARGE; end -- matching (x+) (xx+), (x-) (xx-) if not x then x = f:match('^[%d.]+', i); t = T_NUM; end -- matching number if not x then x = f:match('^[(|{|%[]', i); t = T_OPEN; end -- matching ({[ if not x then x = f:match('^[)|}|%]]', i); t = T_CLOSE; end -- matching )}] if not x then x = f:match('^[+-]', i); t = T_PM_CHARGE; end -- matching + or - if not x then x = f:match('^%*[%d.]*H2O', i); t = T_WATER; end -- Crystal water if not x then x = f:match('^%*[%d.]*', i); t = T_CRYSTAL; end -- Crystal if not x then x = f:match('^[\\].{%d+}', i); t = T_SPECIAL2; end -- \y{x} if not x then x = f:match('^[\\].', i); t = T_SPECIAL; end -- \x if not x then x = f:match('^_{[^}]*}', i); t = T_UNDERSCORE; end -- _{...} if not x then x = f:match('^\^{[^}]*}', i); t = T_CARET; end -- ^{...} if not x then x = f:match('^.', i); t = T_NOCHANGE; end --the rest - one by one if x then i = i + x:len(); else i = i + 999; error("Ký tự không hợp lệ trong công thức!!!!!!! : "..f) end end first = "false" return t, x end endfunction p._chem(args) local f = args[1] or '' f = string.gsub(f, "–", "-") -- replace – with - (hyphen not ndash) f = string.gsub(f, "−", "-") -- replace – with - (hyphen not minus sign) local sumO = 0 local formula = '' local t, x local link = args['link'] or "" local auto = args['auto'] or "" if not (link == '') then formula = formula .. "[[" .. link .. "|"; end -- wikilink start [[link| for t, x in item(f) do if t == T_ELEM then if (auto == '') then formula = formula .. x elseif am[x] then formula = formula .. am[x]; am[x] = x else formula = formula .. x end elseif t == T_COEFFICIENT then formula = formula .. x elseif t == T_NUM then formula = formula .. su("", x); elseif t == T_OPEN then formula = formula .. x; sumO = sumO + 1; -- ( { elseif t == T_CLOSE then formula = formula .. x; sumO = sumO -1; -- ) } elseif t == T_PM_CHARGE then formula = formula .. su(string.gsub(x, "-", "−"), ""); elseif t == T_SUF_CHARGE then formula = formula .. su(string.gsub(string.match(x, "[+-]"), "-", "−"), string.match(x, "%d+"), ""); elseif t == T_SUF_CHARGE2 then formula = formula .. su(string.sub(string.gsub(string.match(x, "%(%d*[+-]"), "-", "−"), 2, -1), string.match(x, "%d+")) elseif t == T_CHARGE then formula = formula .. "<sup>"; if string.match(x, "%d+") then formula = formula .. string.match(x, "%d+"); end formula = formula .. string.gsub(string.match(x, "[%+-]"), "-", "−") .. "</sup>"; -- can not concatenat a nil value from string.match(x, "%d+"); elseif t == T_CRYSTAL then formula = formula .. DotIt() .. string.gsub( x, "*", '', 1 ); elseif t == T_SPECIAL then parameter = string.sub(x, 2, 2) -- x fra \x if parameter == "s" then formula = formula .. "−" -- single bond elseif parameter == "d" then formula = formula .. "=" -- double bond elseif parameter == "t" then formula = formula .. "≡" -- tripple bond elseif parameter == "q" then formula = formula .. "≣" -- Quadruple bond elseif parameter == "h" then formula = formula .. "η" -- η, hapticity elseif parameter == "*" then formula = formula .. "*" -- *, normal * elseif parameter == "-" then formula = formula .. "-" -- - elseif parameter == "\\" then formula = formula .. "\\" -- \ elseif parameter == "\'" then formula = formula .. "'" -- html-code for ' end elseif t == T_SPECIAL2 then -- \y{x} parameter = string.sub(x, 2, 2) -- y fra \y{x} if parameter == "h" then --[[Hapticity]] if (auto == '') then formula = formula .. "η<sup>" .. string.match(x, '%d+') .. "</sup>-" else formula = formula .. "[[Hapticity|η<sup>" .. string.match(x, '%d+') .. "</sup>]]-" end elseif parameter == "m" then formula = formula .. "μ<sup>" .. string.match(x, '%d+') .. "</sup>-" -- mu ([[bridging ligand]]) end elseif t == T_WATER then if string.match(x, "^%*[%d.]") then formula = formula .. DotIt() .. string.match(x, "%f[%.%d]%d*%.?%d*%f[^%.%d%]]") .. "H<sub>2</sub>O"; else formula = formula .. DotIt() .. "H<sub>2</sub>O"; end elseif t == T_UNDERSCORE then formula = formula .. su("", string.sub(x,3,-2)) -- x contains _{string} elseif t == T_CARET then formula = formula .. su(string.sub(x,3,-2), "") -- x contains ^{string} elseif t == T_ARROW_R then formula = formula .. " → " elseif t == T_ARROW_EQ then formula = formula .. " ⇌ " elseif t == T_NOCHANGE then formula = formula .. x; -- The rest - everything which isn't captured by the regular expresions. E.g. wikilinks and pipes else error('không đưa ra được - ???') end -- in fact, unreachableend if not (link == nil or link == '') then formula = formula .. "]]"; end -- wikilink closing ]] return '<span class="chemf nowrap">' .. formula .. '</span>' endfunction p.chem(frame) local args = getArgs(frame) return p._chem(args)endreturn p