模块:Complex Number/Calculate

模块文档[查看] [编辑] [历史] [清除缓存]

此模块被引用于约12,000个页面。
为了避免造成大规模的影响，所有对此模块的编辑应先于沙盒或测试样例上测试。
测试后无误的版本可以一次性地加入此模块中，但是修改前请务必于讨论页发起讨论。

模板引用数量会自动更新。

此模块使用Lua语言：

Module:Complex Number

本模块定义了一些数学运算的结构与逻辑。

使用方法

项目	语法	说明	示例
数字的表达	实数 `+或-實數值`、科学记号 `+或-實數值e+或-科學記號值`、含单位的数 `+或-實數值單位`或含常量单位 `任何數值表達式 ⋅ 常數或單位的表達式`	数字的表达可分为实数表达、科学记号和含单位的数。实数表达即一般的实数；科学记号为一实数紧接着一个 `e` 和一个整数，例如`實數值e整數值`则代表`實數值×10^整數值`；另一个表达方式为一个实数值紧接着一个复变单位或角度单位，例如`2i`表示两倍的虚数单位。此表达式不能与科学记号一同使用。能使用的单位包括`i`、`j`、`k`、`°`和`π`。其余需使用 `⋅` 运算符来表达。	`+2.735`→2.735 `-2735e-3`→-2.735 `2.735i`→2.735i `-180°`→-3.1415926535898
四则运算与幂运算	`運算式運算符運算式`	依序以中缀表示法表达表达式即可。	`2+3*5^2`→77
函数	`函數 ( 參數1, 參數2 ...)`	调用现有函数。所有函数都至少要传入一个参数。	`factorial(5)`→120
多组运算	`運算式1 ; 運算式2`	仅会显示最后一组运算的结果	`2+3;2*3`→6
变量定义	`變數名稱 ← 運算式`	给特定名称的变量赋值。需特别注意所有变量的范围（Scope）皆相同（可想像所有变量皆为全局变量），包括函数中的参数，因此若函数外层已经定义了变量x则函数内部需避免使用同名变量x。	`x←5;x`→5
函数定义	`函數名稱 : 參數1, 參數2 ...↦ 函數運算式 ;`	函数的语法为以名称起始并以冒号区隔函数名称与定义（函数名称可留空，但冒号不能省去），整个语法要以分号（`;`）结尾。位于映射符号（`↦`）前方为函数的变量或参数，后方为函数主体定义，即 $f : x \mapsto f (x);$ 。函数可以有多个变量，但仅能有单个输出，即 $\mathbb {C} ^{n}\mapsto \mathbb {C}$ 或 $\mathbb {R} ^{n}\mapsto \mathbb {R}$ 。同时函数语法不建议写成嵌套结构，即不建议将函数定义内包含另一个函数的定义，但可以分开定义再行组合；此外，函数定义内不能包含分号，因为分号会视为函数的结尾。	`f:x↦x^2+1;(0);f(5)` →26
运算符优先序调整	`(運算式要優先計算的運算符運算式) 運算符運算式`	使用括号来令特定运算优先进行。	`2+35`→17 `( 2+3 ) 5`→25

运算符

语法	名称	元数	说明	优先	示例	效果	math输出
z基础算术
a `+`	a 加法	2	a 计算两数之和	a9	a `7 + 3`	a 10	a ${{7}+{3}}$
a `-`	a 减法	2	a 计算两数之差	a9	a `7 - 3`	a 4	a ${{7}-{3}}$
a `*`	a 乘法	2	a 计算两数之乘积	a10	a `7 * 3`	a 21	a ${{7}\times {3}}$
a `×`	a 乘法	2	a 计算两数之乘积	a10	a `7 × 3`	a 21	a ${{7}\times {3}}$
a `/`	a 除法	2	a 计算两数相除之商	a10	a `7 / 3`	a 2.3333333333333	a ${{7}\div {3}}$
a `÷`	a 除法	2	a 计算两数相除之商	a10	a `7 ÷ 3`	a 2.3333333333333	a ${{7}\div {3}}$
a `%`	a 取余数	2	a 计算两数相除之余数	a10	a `7 % 3`	a 1	a
a `^`	a 幂	2	a 计算两数之幂运算	a12	a `7 ^ 3`	a 343	a ${{7}^{3}}$
a `e`	a 科学记号	2	a 当e左邻一实数、右邻一整数时，则为科学记号，以`256e-3`为例，其代表的结果为 $256\times 10^{-3}$ 。要注意的是左边的数必为单一实数、右边的数必为整数，可为负数，且中间不能有空格。	a999∞	a `12.3e4`	a 123000	a ${{12.3}\times {{10}^{4}}}$
a `()`	a 括弧	1	a 改变运算优先级	a999∞	a `2*(2+3)`	a 10	a ${{2}\times {\left({{2}+{3}}\right)}}$
z数论
a `+`	a 正号	1	a 表达一正数	a14	a `+7`	a 7	a $7$
a `-`	a 负号	1	a 计算一数的相反数	a14	a `-7`	a -7	a $-{7}$
a `%`	a 取余数	2	a 计算两数相除之余数	a10	a `7 % 3`	a 1	a
z布尔代数
a `&`	a 逻辑且	2	a 两逻辑是否皆为真	a5	a `(1=1) & (1=2)`	a 0	a ${{\left({{1}={1}}\right)}\land {\left({{1}={2}}\right)}}$
a `↑`	a 逻辑与非	2	a 两逻辑是否不全为真	a5	a `(1=1) ↑ (1=2)`	a 1	a ${{\left({{1}={1}}\right)}\uparrow {\left({{1}={2}}\right)}}$
a `\|`	a 逻辑或	2	a 两逻辑是否有一者为真	a4	a `(1=1) \| (1=2)`	a 1	a ${{\left({{1}={1}}\right)}\lor {\left({{1}={2}}\right)}}$
a `↓`	a 逻辑或非	2	a 两逻辑是否全为假	a4	a `(1=1) ↓ (1=2)`	a 0	a ${{\left({{1}={1}}\right)}\downarrow {\left({{1}={2}}\right)}}$
a `⊕`	a 逻辑异或	2	a 两逻辑是否相异	a4	a `(1=1) ⊕ (1=2)`	a 1	a ${{\left({{1}={1}}\right)}\oplus {\left({{1}={2}}\right)}}$
a `⇔`	a 逻辑当且仅当	2	a 两逻辑是否相同	a4	a `(1=1) ⇔ (1=2)`	a 0	a ${{\left({{1}={1}}\right)}\leftrightarrow {\left({{1}={2}}\right)}}$
a `~`	a 逻辑非	1	a 逻辑否定	a13	a `~(1=2)`	a 1	a $\lnot \left({{1}={2}}\right)$
a `and`	a 逻辑且	2	a 逻辑且的字母模式。使用时须与前后文各间隔至少一个空格	a5	a `(1=1) and (1=2)`	a 0	a ${{\left({{1}={1}}\right)}\land {\left({{1}={2}}\right)}}$
a `nand`	a 逻辑与非	2	a 逻辑与非的字母模式。使用时须与前后文各间隔至少一个空格	a5	a `(1=1) nand (1=2)`	a 1	a ${{\left({{1}={1}}\right)}\uparrow {\left({{1}={2}}\right)}}$
a `or`	a 逻辑或	2	a 逻辑或的字母模式。使用时须与前后文各间隔至少一个空格	a4	a `(1=1) or (1=2)`	a 1	a ${{\left({{1}={1}}\right)}\lor {\left({{1}={2}}\right)}}$
a `nor`	a 逻辑或非	2	a 逻辑或非的字母模式。使用时须与前后文各间隔至少一个空格	a4	a `(1=1) nor (1=2)`	a 0	a ${{\left({{1}={1}}\right)}\downarrow {\left({{1}={2}}\right)}}$
a `xor`	a 逻辑异或	2	a 逻辑异或的字母模式。使用时须与前后文各间隔至少一个空格	a4	a `(1=1) xor (1=2)`	a 1	a ${{\left({{1}={1}}\right)}\oplus {\left({{1}={2}}\right)}}$
a `xnor`	a 逻辑当且仅当	2	a 逻辑当且仅当的字母模式。使用时须与前后文各间隔至少一个空格	a4	a `(1=1) xnor (1=2)`	a 0	a ${{\left({{1}={1}}\right)}\leftrightarrow {\left({{1}={2}}\right)}}$
a `not`	a 逻辑非	1	a 逻辑非的字母模式。使用时须与前后文各间隔至少一个空格	a13	a `not (1=2)`	a 1	a $\lnot \left({{1}={2}}\right)$
z数值修约
a `round`	a 数值修约	2	a round 的运算符模式，会将一数四舍五入到指定的位数。使用时须与前后文各间隔至少一个空格	a8	a `π round 6`	a 3.141593	a $\operatorname {round} \left(\pi ,\,6\right)$
z代数
a `⋅`	a 系数	2	a 表达一数的系数	a10	a `2⋅π`	a 6.2831853071796	a ${{2}\,{\pi }}$
a `←`	a 数值指派	2	a 给予变量数值	a7	a `x ← 7;x`	a 7	a ${{{x}{\overset {\underset {\mathrm {def} }{}}{=}}{7}};\,{x}}$
a `↦`	a 函数映射	2	a 给予函数定义	a12	a `:x,y↦x^2+y^2;(5,2)`	a 29	a ${{\left({{\left(x,\,y\right)}\mapsto {\left({{{x}^{2}}+{{y}^{2}}}\right)}}\right)}\gets {\left(5,\,2\right)}}$
a `:`	a 构成函数	2	a 冒号（`:`）为定义函数时区隔函数的名称与函数的主体，而冒号（`:`）与分号（`;`）的区间构成一个函数的定义。在冒号左边的内容为函数的名称，在冒号右边的内容为函数的内容。若函数没有名称也需要输写冒号。	a7	a `f:x↦x^2;(5)`	a 25	a ${{\left({{f}:{{x}\mapsto {\left({{x}^{2}}\right)}}}\right)}\gets {5}}$
a `,`	a 数组	2	a 产生数组供多元函数使用	a1	a `7, 3`	a 7, 3	a $7,3$
z复变
a `*`	a 共轭复数	1	a 计算一数的共轭复数	a14	a `*(7+3i)`	a 7-3i	a ${\overline {{7}+{3i}}}$
a `i`	a 虚数单位	1	a 表达纯虚数	a999∞	a `3i`	a 3i	a $3i$
z二元关系
a `>`	a 逻辑大于	2	a 比较两数大小	a6	a `7 > 3`	a 1	a ${{7}>{3}}$
a `<`	a 逻辑小于	2	a 比较两数大小	a6	a `7 < 3`	a 0	a ${{7}<{3}}$
a `≥`	a 逻辑大于等于	2	a 比较两数大小	a6	a `7 ≥ 3`	a 1	a ${{7}\geq {3}}$
a `≤`	a 逻辑小于等于	2	a 比较两数大小	a6	a `7 ≤ 3`	a 0	a ${{7}\leq {3}}$
a `=`	a 逻辑相等	2	a 两数是否相等	a3	a `7 = 3`	a 0	a ${{7}={3}}$
a `≠`	a 逻辑不相等	2	a 两数是否不相等	a3	a `7 ≠ 3`	a 1	a ${{7}\neq {3}}$
z技术性
a `;`	a 表达式分隔	2	a 分隔两表达式，结果将取最后一个分号后的结果	a1	a `7 ; 3`	a 3	a ${{7};\,{3}}$
a `return`	a 返回值	1	a 返回数值。需注意return后方必须跟着一个数值或表达式，否则会变成未定义行为而出现预期外的结果。	a2	a `return 7;8`	a 7	a ${{{\text{return}}\,7};\,{8}}$
z三角函数
a `°`	a 角度单位	1	a 用于表示角度单位的符号。	a10	a `180°`	a 3.1415926535898	a ${{180}\,{{}^{\circ }}}$
a `π`	a 圆周率	1	a 表示圆周率。	a10	a `3π`	a 9.4247779607694	a ${{3}\,{\pi }}$

注：另有>=、<=、==（相等判断）、~=（不相等判断）、!=（不相等判断）、@=（数值指派）、+=（相加指派）、-=（相减指派）、*=（相乘指派）、/=（相除指派）、^=（幂指派）、&=（逻辑与指派）、|=（逻辑或指派）可供使用，其会自动替换为上表中对应的操作数。指派操作数须注意等号左边必须是一个单一变量词语，不可以是括弧或函数变换的结果。

常量和数值

语法	名称	别名	说明	数值	math输出
`e`	自然底数		自然对数函数的底数	2.718281828459	$e$
`i`	虚数单位		表达纯虚数	i	$i$
`j`	四元数单位j		表达纯四元数虚数j	j	$j$
`k`	四元数单位k		表达纯四元数虚数k	k	$k$
`nan`	非数		用于表示数学上未定义的数值，或计算发生错误的数值。	nan	$\mathrm {NaN}$
`nil`	空值	`null`	空值。在math模式下显示为空白，用于表达或传递无参数的函数之参数。请注意，由于此值为空值，因此请勿将此值参与运算，以免发生错误。	nil
`°`	角度单位		用于表示角度单位的符号。	0.017453292519943	${}^{\circ }$
`π`	圆周率	`pi`	表示圆周率。	3.1415926535898	$\pi$
`ω`	艾森斯坦整数单位		表达艾森斯坦整数单位。	-0.5+0.86602540378444i

函数

语法	名称	参数数量	说明	示例	效果	math输出
z基础算术
a `div`	a 分数	2	a 用于在math输出时，以分数的形式显示	a `div(7,3)`	a 2.3333333333333	a ${\frac {7}{3}}$
a `dot`	a 内积	2	a 计算两数的内积。	a `dot(7,3)`	a 21	a ${{7}\cdot {3}}$
a `pow`	a 指数	2	a 计算两数之幂运算	a `pow(7,3)`	a 343	a ${{7}^{3}}$
z数论
a `gcd`	a 最大公约数	不定	a 计算多个数的最大公约数。	a `gcd(7,21)`	a 7	a $\gcd \left(7,\,21\right)$
a `lcm`	a 最小公倍数	不定	a 计算多个数的最小公倍数。	a `lcm(7,3,21)`	a 21	a $\operatorname {lcm} \left(7,\,3,\,21\right)$
a `digits`	a 位数	1	a 获取整数的位数个数	a `digits(7321)`	a 4	a
a `divisor`	a 约数	2	a 获取某数的第n个正约数	a `divisor(6,1),divisor(6,2),divisor(6,3),divisor(6,4)`	a 1, 2, 3, 6	a
a `primedivisor`	a 素因数	2	a 获取某数的第n个素因数	a `primedivisor(210,1),primedivisor(210,2),primedivisor(210,3),primedivisor(210,4)`	a 2, 3, 5, 7	a
a `divisorsigma`	a 除数函数	2	a 计算特定整数的除数函数	a `divisorsigma(1,6)`	a 12	a $\sigma _{1}\left(6\right)$
a `eulerphi`	a 欧拉函数	1	a 获取小于等于n的正整数中与n互素的数的数目	a `eulerphi(8)`	a 4	a $\varphi \left(8\right)$
a `findnext`	a 向后查找	2	a 查找下一个符合条件的整数	a `findnext(:x↦x % 6 = 0;,6)`	a 12	a
a `findlast`	a 向前查找	2	a 查找前一个符合条件的整数	a `findlast(:x↦x % 6 = 0;,10)`	a 6	a
z初等函数
a `abs`	a 绝对值	1	a 计算一数与原点的欧几里得距离	a `abs(-3)`	a 3	a $\left\vert -{3}\right\vert$
a `log`	a 自然对数	1	a	a `log(e)`	a 1	a $\ln e$
a `log`	a 指定底数的对数	2	a	a `log(2,16)`	a 4	a $\log _{2}16$
a `sgn`	a 符号函数	1	a	a `sgn(-7)`	a -1	a $\operatorname {sgn} \left(-{7}\right)$
a `sqrt`	a 平方根	1	a 计算一数的算术平方根值	a `sqrt(16)`	a 4	a ${\sqrt {16}}$
a `inverse`	a 倒数	1	a	a `inverse(7)`	a 0.14285714285714	a $7^{-1}$
a `exp`	a 自然指数	1	a	a `exp(π⋅i)`	a -1	a $e^{{\pi }\,{i}}$
z数值修约
a `floor`	a 地板函数	1	a 向下取整	a `floor(7.3)`	a 7	a $\left\lfloor 7.3\right\rfloor$
a `ceil`	a 天花板函数	1	a 向上取整	a `ceil(7.3)`	a 8	a $\left\lceil 7.3\right\rceil$
a `round`	a 数值修约	3	a 对一数进行四舍五入。第一参数为欲四舍五入的数字；第二参数为欲四舍五入的位数；第三参数为当数值修约底数非十进制时的底数。	a `round(π,6)`	a 3.141593	a $\operatorname {round} \left(\pi ,\,6\right)$
a `trunc`	a 截尾函数	2	a 对一数取截尾函数。第一参数为欲截尾的数字；第二参数为欲截尾的位数。	a `trunc(π,6)`	a 3.141592	a $\operatorname {trunc} \left(\pi ,\,6\right)$
z特殊函数
a `binomial`	a 二项式系数	2	a 计算二项式系数。亦可以被理解为从n个相异元素中取出k个元素的方法数。	a `binomial(7,3)`	a 35	a ${\binom {7}{3}}$
a `factorial`	a 阶乘	1	a 计算一数的阶乘	a `factorial(7)`	a 5040	a $7!$
a `gamma`	a 伽玛函数	1	a 计算一数的Γ函数	a `gamma(7)`	a 720	a $\Gamma \left(7\right)$
a `LambertW`	a 朗伯W函数	2	a 计算一数的朗伯W函数	a `LambertW(1)`	a 0.56714329040978	a $W\left(1\right)$
z代数
a `norm`	a 范数	2	a 计算一数或向量的范数	a `norm(3+4i,2)`	a 5	a $\left\\|{{3}+{4i}}\right\\|_{2}$
a `summation`	a 求和符号	3	a 计算以函数表达之数列的总和。第一参数为数列首项；第二参数为数列末项；第三参数为用以表达数列的函数	a `summation(1,5,:x↦x^2;)`	a 55	a $\sum _{{x}={1}}^{5}{{x}^{2}}$
a `product`	a 求积符号	3	a 计算以函数表达之数列的连乘积。第一参数为数列首项；第二参数为数列末项；第三参数为用以表达数列的函数	a `product(1,5,:it↦it;)`	a 120	a $\prod _{{i}={1}}^{5}{i}$
a `<不定>`	a 自行定义函数	不定	a 调用自行定义的函数，这些函数通常是 $\mathbb {C} ^{n}\mapsto \mathbb {C}$ 或 $\mathbb {R} ^{n}\mapsto \mathbb {R}$ 。以`f:x↦x^2;;f(5)`为例，其中`f:x↦x^2;`定义了函数 $f(x)=x^{2}$ ，并调用了函数 $f$ 。函数的语法为以名称起始并以冒号区隔函数名称与定义（函数名称可留空，但冒号不能省去），整个语法要以分号（`;`）结尾。位于映射符号（`↦`）前方为函数的变量或参数，后方为函数主体定义。函数可以有多个变量，但仅能有单个输出；同时函数语法不建议使用嵌套结构，即不建议将函数定义内包含另一个函数的定义，但可以分开定义再行组合；此外，函数定义内不能包含分号，因为分号会被视为函数结尾。	a `f:x↦x^2;,f(5)`	a f, 25	a ${{{f}:{{x}\mapsto {\left({{x}^{2}}\right)}}};\,{f\left(5\right)}}$
a `ele`	a 代数单位元	1	a 获取特定代数空间(如四元数)的第n个单位元，如ele(2)即e₂=j	a `ele(2)`	a j	a $\,e_{2}$
z微积分
a `limit`	a 极限	3	a 计算一函数在x=x₀的极限。需注意此运算为估计，运算精度约仅有7位有效数字。第一参数为x₀；第二参数为逼近方向，1表示右极限、-1表示左极限、0表示一般的极限，此时若极限不存在则返回nan；第三参数为欲求极限的函数。	a `limit(0,1,:x↦div(x,x);)`	a 1	a $\lim _{{x}\to {0}^{+}}{\frac {x}{x}}$
a `diff`	a 导数	2	a 计算一函数在x=x₀的导数。需注意此运算为估计，运算精度约仅有7位有效数字。第一参数为欲求导数x=x₀的函数；第二参数为x₀。	a `diff(cos,div(2⋅pi,3))`	a -0.86602540379001	a $\left.{\frac {d\,{cos}}{d{x}}}\right\|_{{x}={\frac {{2}\,{\pi }}{3}}}$
a `integral`	a 定积分	4	a 计算一函数在从a到b的定积分 $\int _{a}^{b}f(x)\,dx$ 。需注意此运算为估计，运算精度约仅有7位有效数字，且积分范围（a和b的距离）越大，精确度会越低。第一参数为a、第一参数为b、第三参数为欲求定积分的函数、第四参数为取样数，若未填写则使用默认值2000。	a `integral(0,π,:x↦sin(x);)`	a 2	a $\int _{0}^{\pi }{\sin x}\,d{x}$
z复变
a `re`	a 实数部分	1	a 获取一数的实数部分。	a `re(7+3i)`	a 7	a $\operatorname {Re} \left({{7}+{3i}}\right)$
a `im`	a 虚数部分	1	a 获取一数的虚数部分	a `im(7+3i)`	a 3	a $\operatorname {Im} \left({{7}+{3i}}\right)$
a `nonRealPart`	a 非实数部分	1	a 获取一数的非实数部分	a `nonRealPart(7+3i+2j+k)`	a 3i+2j+k	a
a `scalarPartQuaternion`	a 标量部分	1	a 获取四元数的标量部分	a `scalarPartQuaternion(7+3i+2j+k)`	a 7	a $\operatorname {Scalar} \left({{{{7}+{3i}}+{2j}}+{k}}\right)$
a `vectorPartQuaternion`	a 四元数向量部分	1	a 获取四元数的向量部分	a `vectorPartQuaternion(7+3i+2j+k)`	a 3i+2j+k	a $\operatorname {Vector} \left({{{{7}+{3i}}+{2j}}+{k}}\right)$
a `arg`	a 辐角	1	a 计算一复数的辐角	a `arg(3+7i)`	a 1.1659045405098	a $\arg \left({{3}+{7i}}\right)$
a `cis`	a 纯虚指数函数	1	a 计算一数的纯虚指数函数值	a `cis(π)`	a -1	a $\operatorname {cis} \pi$
a `conjugate`	a 共轭复数	1	a	a `conjugate(7+3i)`	a 7-3i	a ${\overline {{7}+{3i}}}$
z统计
a `average`	a 平均数	不定	a 计算数组的算术平均数。	a `average(7,3,2,1)`	a 3.25	a $average\left(7,\,3,\,2,\,1\right)$
a `geoaverage`	a 几何平均数	不定	a 计算数组的几何平均数	a `geoaverage(7,3,2,1)`	a 2.5457298950218	a
a `maximum`	a 最大值	不定	a 计算数组的最大值	a `maximum(7,3,2,1)`	a 7	a $\max \left(7,\,3,\,2,\,1\right)$
a `minimum`	a 最小值	不定	a 计算数组的最小值	a `minimum(7,3,2,1)`	a 1	a $\min \left(7,\,3,\,2,\,1\right)$
a `selectlist`	a 数组元素	不定	a 输出数组中指定位置的元素。第一参数为要输出的元素序号，第二参数之后为数组	a `selectlist(2,7,3,2,1)`	a 3	a
a `σ`	a 标准差	不定	a 计算数组的标准差	a `σ(7,3,2,1)`	a 2.2776083947861	a
z技术性
a `hide`	a 隐藏表达式	不定	a 在math模式下隐藏指定表达式。本函数的结果为最后一个参数。可作为连续表达式的表达，所有已输入的表达式皆会计算，但结果会隐藏。亦可用于自定义函数中的多表达式表达。	a `hide(y←5,x←7,x⋅y),5`	a 35, 5	a $,5$
a `exprs`	a 一系列表达式	不定	a 在math模式时显示所有表达式，运算结果为最后一则表达式。可作为连续表达式的表达，所有已输入的表达式皆会计算。	a `exprs(y←5,x←7,x⋅y),5`	a 35, 5	a $\left({{y}{\overset {\underset {\mathrm {def} }{}}{=}}{5}},\,{{x}{\overset {\underset {\mathrm {def} }{}}{=}}{7}},\,{{x}\,{y}}\right),5$
a `lastexpr`	a 最后一则表达式	不定	a 在math模式时显示最后一则表达式，运算结果也为最后一则表达式。可作为连续表达式的表达，所有已输入的表达式皆会计算。	a `lastexpr(y←5,x←7,x⋅y),5`	a 35, 5	a ${{x}\,{y}},5$
a `equalexpr`	a 连续等式	不定	a 生成连续等式。	a `equalexpr(2+2,2*2)`	a 4	a ${{2}+{2}}={{2}\times {2}}$
a `call`	a 调用函数	不定	a 调用一个函数。用于处理匿名函数或返回值是函数的情况。	a `call((:x,y↦sin(x)+cos(y);),π,0)`	a 1	a ${{\left(x,\,y\right)}\mapsto {\left({{\sin x}+{\cos y}}\right)}}\gets \left(\pi ,\,0\right)$
a `<functionName>AtModule<ModulePageName>`	a 调用其他模块	不定	a 调用其他模块的函数。须注意函数名称必须是纯英文、模块名称也必须是纯英文，不能有空格或其他符号。例如若需要调用Module:Element中的`getAtomicWeight`函数，则须表示为`getAtomicWeightAtModuleElement`。	a `getAtomicWeightAtModuleElement(10)`	a 20.1797	a
a `range`	a 指定范围	3	a 指定一范围，当一数落在该范围外则视为非数（NaN）。第一参数为要判定的数，第二和第三参数分别为范围的最小和最大值。	a `range(7,1,5),range(4,1,5)`	a nan, 4	a
a `if`	a 条件表达式	3	a 指定特定条件下时的表达式。第一参数为条件、第二参数为条件为真时的表达式、第三参数为条件为假时的表达式。	a `if(3>2,1,0)`	a 1	a ${\begin{cases}{1},&{\text{if }}{{3}>{2}}\\{0},&{\text{otherwise}}\end{cases}}$
a `iff`	a 函数型条件表达式	3	a 同if，不过参数可以是函数，条件成立时才会调用。	a `iff(3>2,:nil↦1;,:nil↦2;)`	a 1	a ${\begin{cases}{{}{1}},&{\text{if }}{{3}>{2}}\\{{}{2}},&{\text{otherwise}}\end{cases}}$
a `ifelse`	a 条件表达式 if...else	不定	a 类似if，用法为ifelse(条件1, 条件1为真的结果, 条件2, 条件2为真的结果, ... , 条件n, 条件n为真的结果, 条件皆为假的结果)	a `ifelse(3>2,10,3<2,20,30)`	a 10	a ${\begin{cases}{10},&{\text{if }}{{3}>{2}}\\{20},&{\text{if }}{{3}<{2}}\\{30},&{\text{otherwise}}\end{cases}}$
a `ifelsef`	a 函数型条件表达式 if...else	不定	a 同ifelse，不过参数可以是函数，条件成立时才会调用。	a `ifelsef(3>2,:nil↦10;,3<2,:nil↦20;,:nil↦30;)`	a 10	a ${\begin{cases}{{}{10}},&{\text{if }}{{3}>{2}}\\{{}{20}},&{\text{if }}{{3}<{2}}\\{{}{30}},&{\text{otherwise}}\end{cases}}$
a `random`	a 随机数	2	a 取一个随机数。若无指定参数，或参数中包含非数（NaN），则取0-1之间的随机实数；若指定了参数1，则取1到参数1之间的随机数；若指定了参数1与参数2，则取参数1到参数2之间的随机数	a `random(1,10)`	a 6	a
a `randomseed`	a 设置随机种子码	1	a 将随机数的种子码设置为输入的参数，并返回实际设置的种子码。若输入的参数非实数则用当前时间随机产生种子码。	a `randomseed(10)`	a 10	a
z三角函数
a `sin`	a 正弦	1	a 计算一数的正弦值	a `sin(π)`	a 0	a $\sin \pi$
a `cos`	a 余弦	1	a 计算一数的余弦值	a `cos(π)`	a -1	a $\cos \pi$
a `tan`	a 正切	1	a 计算一数的正切值	a `tan(π)`	a 0	a $\tan \pi$
a `cot`	a 余切	1	a 计算一数的余切值	a `cot(div(π,2))`	a 0	a $\cot {\frac {\pi }{2}}$
a `sec`	a 正割	1	a 计算一数的正割值	a `sec(π)`	a -1	a $\sec \pi$
a `csc`	a 余割	1	a 计算一数的余割值	a `csc(div(π,2))`	a 1	a $\csc {\frac {\pi }{2}}$
a `asin`	a 反正弦	1	a 计算一数的反正弦值	a `asin(1)`	a 1.5707963267949	a $\arcsin 1$
a `acos`	a 反余弦	1	a 计算一数的反余弦值	a `acos(1)`	a 0	a $\arccos 1$
a `atan`	a 反正切	1	a 计算一数的反正切值	a `atan(1)`	a 0.78539816339745	a $\arctan 1$
a `acot`	a 反余切	1	a 计算一数的反余切值	a `acot(1)`	a 0.78539816339745	a $\operatorname {arccot} 1$
a `asec`	a 反正割	1	a 计算一数的反正割值	a `asec(1)`	a 0	a $\operatorname {arcsec} 1$
a `acsc`	a 反余割	1	a 计算一数的反余割值	a `acsc(1)`	a 1.5707963267949	a $\operatorname {arccsc} 1$
a `sinh`	a 双曲正弦	1	a 计算一数的双曲正弦值	a `sinh(π)`	a 11.548739357258	a $\sinh \pi$
a `cosh`	a 双曲余弦	1	a 计算一数的双曲余弦值	a `cosh(π)`	a 11.591953275522	a $\cosh \pi$
a `tanh`	a 双曲正切	1	a 计算一数的双曲正切值	a `tanh(π)`	a 0.99627207622075	a $\tanh \pi$
a `coth`	a 双曲余切	1	a 计算一数的双曲余切值	a `coth(π)`	a 1.0037418731973	a $\coth \pi$
a `sech`	a 双曲正割	1	a 计算一数的双曲正割值	a `sech(π)`	a 0.086266738334054	a $\operatorname {sech} \pi$
a `csch`	a 双曲余割	1	a 计算一数的双曲余割值	a `csch(π)`	a 0.086589537530047	a $\operatorname {csch} \pi$
a `asinh`	a 双曲反正弦	1	a 计算一数的双曲反正弦值	a `asinh(1)`	a 0.88137358701954	a $\operatorname {arcsinh} 1$
a `acosh`	a 双曲反余弦	1	a 计算一数的双曲反余弦值	a `acosh(1)`	a 0	a $\operatorname {arccosh} 1$
a `atanh`	a 双曲反正切	1	a 计算一数的双曲反正切值	a `atanh(0.5)`	a 0.54930614433405	a $\operatorname {arctanh} 0.5$
a `acoth`	a 双曲反余切	1	a 计算一数的双曲反余切值	a `acoth(1.5)`	a 0.80471895621705	a $\operatorname {arccoth} 1.5$
a `asech`	a 双曲反正割	1	a 计算一数的双曲反正割值	a `asech(1)`	a 0	a $\operatorname {arcsech} 1$
a `acsch`	a 双曲反余割	1	a 计算一数的双曲反余割值	a `acsch(1)`	a 0.88137358701954	a $\operatorname {arccsch} 1$
a `cis`	a 纯虚指数函数	1	a 计算一数的纯虚指数函数值	a `cis(π)`	a -1	a $\operatorname {cis} \pi$
a `gd`	a 古德曼函数	1	a 计算一数的古德曼函数值	a `gd(e)`	a 1.4390113159637	a $\operatorname {gd} e$
a `arcgd`	a 反古德曼函数	1	a 计算一数的反古德曼函数值	a `arcgd(1)`	a 1.2261911708835	a $\operatorname {arcgd} 1$
a `cogd`	a 余古德曼函数	1	a 计算一数的余古德曼函数值	a `cogd(π)`	a 0.08648169656714	a $\operatorname {cogd} \pi$

上述文档嵌入自Module:Complex Number/Calculate/doc。
编者可以在本模块的沙盒和测试样例页面进行实验。
本模块的子页面。

local p = {}
local getArgs = require('Module:Arguments').getArgs
local ext_mathlib = require("Module:Complex Number/Functions")._init
local comp_number = nil
local TrackingCategory = require('Module:TrackingCategory')
local Operators = require('Module:Complex_Number/Calculate/Operators')
local strip_marker_temp, strip_marker_temp_len = {}, 0
local noop_func = function()end
p.use_other_module = false
p.symbol_table=Operators.symbol_table
--======== public tools ========
function p._remove_strip_marker(str)return mw.text.decode(mw.text.unstrip(str)) end
function p._load_strip_marker(str)return mw.ustring.gsub(mw.text.decode(mw.text.unstripNoWiki(str)),"\127'\"`UNIQ.-QINU`\"'\127",function(strip)
	strip_marker_temp_len = strip_marker_temp_len + 1
	local idx_az = numberToAZ(strip_marker_temp_len)
	strip_marker_temp[idx_az] = strip
	return ' UNQ' .. idx_az .. ' '
end)end
function p._function_preprocessing(input_str,math_lib, number_Constructer, debug_flag, jsut_load)
	local input_fo, ftable = Operators.function_preload(input_str,{},math_lib, number_Constructer, debug_flag, p.nocalc, jsut_load)
	if type(ftable)~=type({"table"})then return input_fo, {} end
	local final_scope=Operators.fill_function(ftable,{})
	final_scope=Operators.fill_scope(final_scope, math_lib, number_Constructer, debug_flag, p.calc_by_postfix)
	return input_fo, final_scope
end
function p._re_math_output(unmathstr)
	return tostring(p._preCalculate({tostring(unmathstr):gsub('%*','⋅'),class="mathtag"}))
end
function p._adj_math_output(unmathstr)
	return mw.text.trim(mw.ustring.gsub(" "..unmathstr.." ","ω","\\omega "):gsub("ε","\\varepsilon ")
		:gsub("([^%a])inf([^%a])","%1\\infty %2"):gsub("([^%a])nan([^%a])","%1\\mathrm{NaN}%2")
		:gsub("([%+%-]?)(%d*%.?%d+)e([%+%-]?%d+)","%1%2\\times 10^{%3}"))
end
function p._randomseed()math.randomseed(math.floor(os.time() * os.clock()))end

function p._getNumString(input_string, exp_flag)
	local str, shift_digits = p.scientific2number(mw.ustring.upper(input_string), exp_flag)
	local int_digits, float_digits = {}, {}
	if mw.ustring.find(input_string, "[;:]") then
		str = mw.ustring.gsub(str, "[^;:,%d%.]", "")
		local pre_digits = mw.text.split(str, "[,:]")
		local doing_int = true
		for i=1,#pre_digits do
			if doing_int then
				local find_point = mw.ustring.find(pre_digits[i], "[;%.]")
				if find_point then
					doing_int = false
					int_digits[#int_digits + 1] = tonumber( ({mw.ustring.gsub(mw.ustring.sub(pre_digits[i], 1, find_point-1), "[;%.]", "")})[1] ) or 0
					float_digits[#float_digits + 1] = tonumber( ({mw.ustring.gsub(mw.ustring.sub(pre_digits[i], find_point+1, -1), "[;%.]", "")})[1] ) or 0
				else
					int_digits[#int_digits + 1] = tonumber( ({mw.ustring.gsub(pre_digits[i], "[;%.]", "")})[1] ) or 0
				end
			else
				float_digits[#float_digits + 1] = tonumber( ({mw.ustring.gsub(pre_digits[i], "[;%.]", "")})[1] ) or 0
			end
		end
		if #int_digits == 0 then int_digits[1] = 0 end
		if #float_digits == 0 then float_digits[1] = 0 end
	else
		str = mw.ustring.gsub(str, "[^%.%d%a]", "")
		local point_pos = mw.ustring.find(str, "%.")
		local int_str, float_str = ((point_pos or 2) <= 1) and "0" or mw.ustring.sub(str, 1, (point_pos or 0)-1), point_pos and mw.ustring.sub(str, point_pos+1, -1) or ''
		float_str = mw.ustring.gsub(float_str, "%.", "")
		local char_0 = mw.ustring.codepoint('0')
		local char_A = mw.ustring.codepoint('A')
		local char_Z = mw.ustring.codepoint('Z')
		local int_strlen, float_strlen = mw.ustring.len(int_str), mw.ustring.len(float_str)
		for i=1,int_strlen do
			local code_point = mw.ustring.codepoint(mw.ustring.sub(int_str,i,i))
			if code_point < char_A and code_point >= char_0 then code_point = code_point - char_0
			elseif code_point <= char_Z then code_point = code_point - char_A + 10 end
			int_digits[i] = code_point
		end
		for i=1,float_strlen do
			local code_point = mw.ustring.codepoint(mw.ustring.sub(float_str,i,i))
			if code_point < char_A and code_point >= char_0 then code_point = code_point - char_0
			elseif code_point <= char_Z then code_point = code_point - char_A + 10 end
			float_digits[i] = code_point
		end
	end
	return int_digits, float_digits
end

--======== local tools ========
local function numberToAZ(num)
	local body = ''
	local s = tostring(math.floor(tonumber(num)))
	for i = 1, mw.ustring.len(s) do
		local char_id = tonumber(mw.ustring.sub(s, i, i)) + 65
		char_id = char_id + ((char_id >= 73) and 3 or 0)
		body = body .. mw.ustring.char(char_id)
	end
	return body
end
local function _subst_strip(str)
	local UNIQ mw.ustring.gsub(str, "UNQ(%a+)$", function(num) UNIQ = UNIQ or num end)
	return strip_marker_temp[UNIQ or -1] or str
end
local function _subst_error_strip(str)
	local UNIQ mw.ustring.gsub(str, "UNQ(%a+)$", function(num) UNIQ = UNIQ or num end)
	return mw.ustring.gsub(strip_marker_temp[UNIQ or -1] or str, "\127'\"`UNIQ%-%-(%a+).-QINU`\"'\127", "<%1></%1>")
end
local function stringToTable(s) --字串轉陣列
	local t, i = {}, 1
	while i <= mw.ustring.len(s) do
		if mw.ustring.sub(s, i, i) ~= ' ' then
			local j, k = mw.ustring.find(s,"[%d%a]+",i)
			if (j or (i+1)) > i then
				t[#t + 1] = mw.ustring.sub(s, i, i)
			else
				t[#t + 1] = mw.ustring.sub(s, j, k)
				i = k
			end
		end
		i = i + 1
	end
	return t
end
local function print_sk(sk,sp)
	local body, sp_checker = '', mw.text.trim(sp or '')
	for i = 1,#sk do
		local checker = ((type(sk[i]) == type({})) and sk[i].name or nil) or sk[i]
		if type(checker) == type({}) then 
			local cats = ""
			for cati=1,#checker do if cats ~= "" then cats = cats .. ',' end cats = cats .. tostring(checker[cati])end checker = cats
		end
		if mw.text.trim( (type(checker)==type(noop_func))and "function" or checker  ) ~= sp_checker then
			if body ~= '' then body = body .. (sp or ' ') end
			if type(sk[i]) == type({}) and sk[i].name then 
				if sk[i].name == "$END" then body = body .. '$' else body = body .. sk[i].name end
			else 
				if tostring(sk[i]) == 'table' and sk[i].assign=="assign" then body = body .. (tostring(sk[i][1])=="$END" and "${字串結尾}" or _subst_error_strip(tostring(sk[i][1])))
				else body = body .. _subst_error_strip(tostring(sk[i])) end
			end
		end
	end
	return body
end
--======== template tools ========
function p.checkModuleClass(cls)
	local class = ((type(cls)==type({}))and( ((cls.args or {})[1]) or cls[1] or '')or( (type(cls)==type("string")) and cls or ''))or''
	if mw.ustring.sub(class,1,7):upper()=="MODULE:" then
		local data = mw.ustring.sub(class, 8, -1)
		local func = mw.ustring.find(data,"%.")
		local modu = mw.ustring.sub(data, 1, func -1)
		func = mw.ustring.sub(data, func + 1, -1)
		return mw.text.trim(modu),  mw.text.trim(func)
	end
	return ''
end
function p.scientific2number(input_str, exp_flag)
	local inputstr = input_str
	if type(input_str) == type({"table"}) then
		inputstr = (input_str.args or {})[1] or input_str[1] or ''
	elseif type(input_str) ~= type("string") then
		inputstr = tostring(input_str)
	end
	local input_numstr = mw.text.trim(inputstr)
	local numstr, flag = input_numstr
	local exp_num = 0
	local sign_str = mw.ustring.sub(numstr,1,1)
	if not (sign_str=='+' or sign_str=='-' or sign_str=='−') then 
		sign_str='' 
	else
		numstr = mw.ustring.sub(numstr,2,-1)
	end
	numstr, flag = mw.ustring.gsub(numstr, "^%s*([%d%.]+)%s*[Ee]%s*([+-−]"..(exp_flag and '' or '-').."%d+)%s*$", function(number_name, dig_str)
		local digits = mw.ustring.gsub(dig_str, "%+", "")
		digits = mw.ustring.gsub(digits, "[-−]+", "-")
		exp_num = tonumber(digits) or 0
		return number_name
	end)
	numstr = numstr ..'.'
	if flag <= 0 then return input_numstr end
	numstr = mw.ustring.gsub(numstr, "[^%d%.]", "")
	local pti, ptat = 0, (({mw.ustring.find(numstr, "%.")})[1]or 2)-1
	numstr = mw.ustring.gsub(numstr, "%.", "")
	local numlen = mw.ustring.len(numstr)
	if ptat + exp_num > 0 then
		if numlen < ptat + exp_num then
			numstr = numstr .. string.rep( '0', ptat + exp_num - numlen )
		elseif numlen > ptat + exp_num then
			numstr = mw.ustring.sub(numstr, 1, ptat + exp_num)..'.'..mw.ustring.sub(numstr, ptat + exp_num+1, -1)
		end
	elseif ptat + exp_num <= 0 then
		numstr = '0.' .. ((ptat + exp_num==0) and '' or string.rep( '0', - ptat - exp_num )) .. numstr
	end
	return sign_str .. numstr
end
--======== main ========
function p._preCalculate(frame, error_func)
    local args
    local can_math = false
    local should_math = false
    if frame == mw.getCurrentFrame() then
        -- We're being called via #invoke. The args are passed through to the module
        -- from the template page, so use the args that were passed into the template.
        args = getArgs(frame) --frame.args
        local yesno = require('Module:Yesno')
        can_math = yesno(args['use math'] or args['use_math'])
        should_math = yesno(args['should math'] or args['should_math'])
    else
        -- We're being called from another module or from the debug console, so assume
        -- the args are passed in directly.
        args = frame
    end
    local yesno = require('Module:Yesno')
    if yesno(args.useOtherModule or 'no') == true then p.use_other_module = true end
	if comp_number == nil then comp_number = require("Module:Complex Number") end
    local cmath, qmath, bmath = comp_number.cmath.init(), comp_number.qmath.init(), comp_number.bmath.init()
    local mathtag = p.tagmath.init()

    local math_class = args['class']or''
    if mw.text.trim(math_class) == '' then math_class = "cmath" end
    local mymath = cmath
    local mytomath = cmath.toComplexNumber
    if mw.ustring.sub(math_class,1,7):upper()=="MODULE:" then
		local module_name, math_lib_name = p.checkModuleClass(math_class)
		xpcall(function()
			local load_module = require("Module:"..module_name)
			if load_module ~= nil then
				local load_math_lib = load_module[math_lib_name]
				if load_module ~= nil then
					local func_type = type(noop_func)
					local my_math_lib = (type(load_math_lib.init) == func_type) and load_math_lib.init() or load_math_lib
					if type(my_math_lib.constructor) == func_type then
						math_class = "mymath"
						mymath = my_math_lib
						mytomath = my_math_lib.constructor
					end
				end
			end
		end,noop_func)
	end
    local input_math_lib = ( {
		cmath = cmath,
		qmath = qmath,
		bmath = bmath,
		mathtag = mathtag,
		mymath = mymath
	} ) [ math_class ]
	local input_to_number = (( {
		cmath = cmath.toComplexNumber,
		qmath = qmath.toQuaternionNumber,
		bmath = bmath.toBoolean,
		mathtag = mathtag.toTagMath,
		mymath = mytomath
	} ) [ math_class ] )
	return p.calc(p._load_strip_marker(args[1] or args['1'] or ''), input_math_lib , input_to_number, nil, nil, error_func ), 
		can_math, should_math, input_math_lib, input_to_number, args
end
function p.templateCalculate(frame)
    p._randomseed()
	local body, can_math, should_math, input_math_lib, input_to_number, args = p._preCalculate(frame)
	if type(body) == type("string") then
		if body:find("function") then
			body = body:gsub("function([A-Z]+)",function(func_id)
				local result = func_id:gsub("[A-Z]",function(char_it)
					local char_id = char_it:byte(1,1)
					local num_id = char_id - 65
					return tostring(num_id - ((num_id>=10) and 3 or 0))
				end)
				return "function"..result
			end)
		end
	end
	if should_math or can_math then 
		local yesno = require('Module:Yesno')
		if args.class ~= "mathtag" and yesno(args['show math'] or args['shw_math']) then
			body = p._re_math_output(body)
		end
		body = p._adj_math_output(tostring(body)) 
	end
	if can_math then body = frame:callParserFunction{name = "#tag:math", args = {tostring(body)}} end
	return body
end
function p.calculate(frame)
    p._randomseed()
	local body, can_math, should_math = p._preCalculate(frame)
	if should_math or can_math then body = p._adj_math_output(tostring(body)) end
	if can_math then body = frame:callParserFunction{name = "#tag:math", args = {tostring(body)}} end
	return body
end

function p.toPostfix(frame)--單純印出字串，不運算
    local args
    if frame == mw.getCurrentFrame() then
        -- We're being called via #invoke. The args are passed through to the module
        -- from the template page, so use the args that were passed into the template.
        args = getArgs(frame, {
        	trim = false,
			removeBlanks = false
        }) --frame.args
    else
        -- We're being called from another module or from the debug console, so assume
        -- the args are passed in directly.
        args = frame
    end
	local format = mw.text.decode(args.format or"{{{1}}} ");
	format = mw.ustring.gsub(format, "%{%{%{.-%}%}%}", "%%s" );
	local it = mw.ustring.find(format, "%%s", 1)
	format = mw.ustring.gsub(format, "\\n", "\n")
	local expr_geter = p._function_preprocessing(p._load_strip_marker(args[1] or args['1'] or ''),{}, nil, nil, true)
	local result, body = p.infixToPostfix( expr_geter ), ''
	for i, result_str in pairs( result ) do
		if type(result_str)==type({}) and mw.text.trim(result_str.name) ~= '|' and result_str.propetry ~= "func start" then
			body = body .. mw.ustring.gsub(format, "%%s", _subst_strip(mw.text.trim(tostring(result_str.name))))
		elseif type(result_str)==type("string") then
			body = body .. mw.ustring.gsub(format, "%%s", _subst_strip(mw.text.trim(tostring(result_str))))
		end
	end
	return body
end

function p.toPrefix(frame)--單純印出字串，不運算
    local args
    if frame == mw.getCurrentFrame() then
        -- We're being called via #invoke. The args are passed through to the module
        -- from the template page, so use the args that were passed into the template.
        args = getArgs(frame, {
        	trim = false,
			removeBlanks = false
        }) --frame.args
    else
        -- We're being called from another module or from the debug console, so assume
        -- the args are passed in directly.
        args = frame
    end
	local format = mw.text.decode(args.format or"{{{1}}} ");
	format = mw.ustring.gsub(format, "%{%{%{.-%}%}%}", "%%s" );
	local it = mw.ustring.find(format, "%%s", 1)
	format = mw.ustring.gsub(format, "\\n", "\n")
	local expr_geter = p._function_preprocessing(p._load_strip_marker(args[1] or args['1'] or ''),{}, nil, nil, true)
	local postfix, body = p.infixToPostfix( expr_geter ), ''
	local pre_stack = {}
	local cmt_str = ""
	local cmt_count = 0
	local function _item_tostring(item)return _subst_strip((type(item)==type({"table"}))and(item.name or tostring(item))or tostring(item))end
	local function tail_process()
		if cmt_str ~= "" then
			local oper_out_format = (cmt_count==2) and "%s , %s" or ((cmt_count==1) and "%s %s" or "%s (, %s)")
			pre_stack[#pre_stack<=0 and 1 or #pre_stack] = mw.ustring.format(oper_out_format,
				_item_tostring(pre_stack[#pre_stack]and(pre_stack[#pre_stack]..' ')or''),
				_item_tostring(cmt_str)
			)
			cmt_str = ""
		else
			local new_top = ''
			for i=1,#pre_stack do
				if new_top ~= '' then new_top = new_top .. ' ' end
				new_top = new_top .. _item_tostring(pre_stack[i])
			end
			for i=#pre_stack,1,-1 do pre_stack[i] = nil end
			pre_stack[1] = new_top
		end
	end
	for i = 1,#postfix do
		local it = postfix[i]
		local opdata = (it.propetry == "operator") and p.symbol_table[it.name] or {count=0}
		if it.name == "," then
		--case 逗號
			if cmt_str == "" then
				if #pre_stack >= 2 then
					cmt_str = mw.ustring.format("%s %s",
						_item_tostring(pre_stack[#pre_stack-1]), 
						_item_tostring(pre_stack[#pre_stack]))
					cmt_count = 2
					pre_stack[#pre_stack] = nil
				else
					cmt_str = _item_tostring(pre_stack[#pre_stack]or ' ')
					cmt_count = mw.test.trim(cmt_str)=='' and 0 or 1
				end 
			else
				local new_cmt = (pre_stack[#pre_stack]and(' '.._item_tostring(pre_stack[#pre_stack])))or ''
				cmt_str = cmt_str .. new_cmt
				cmt_count = cmt_count + (mw.text.trim(new_cmt)=='' and 0 or 1)
			end
			pre_stack[#pre_stack] = nil
		elseif it.propetry == "func start" then
			pre_stack[#pre_stack+1] = "$function_start\127"
		elseif it.propetry == "func" then
			local par_count = 0
			local find_func_head = #pre_stack while not mw.ustring.find(_item_tostring(pre_stack[find_func_head]),"%$function_start\127") do
				if find_func_head < 1 then par_count = 0 break end
				par_count = par_count + 1
				find_func_head = find_func_head - 1
			end
			local par_data = _item_tostring(pre_stack[find_func_head]or'$function_start\127')
			find_func_head = find_func_head <= 0 and #pre_stack or find_func_head
			local mark_start, mark_end = mw.ustring.find(par_data,"%$function_start\127")
			par_data = mw.text.split(mark_start and par_data or "$function_start\127","%$function_start\127")
			local tail_data = ''
			if cmt_str ~= "" then
				tail_data = mw.ustring.format("%s %s",_item_tostring(par_data[2]),_item_tostring(cmt_str))
				par_count = par_count + cmt_count
			end
			local par_it = find_func_head+1 while par_it <= #pre_stack do
				tail_data = mw.ustring.format("%s %s",tail_data,_item_tostring(pre_stack[par_it]))
				par_it = par_it + 1
			end
			tail_data = mw.ustring.format((par_count==2) and "%s %s" or "(%s %s)",_item_tostring(it),tail_data)
			local head_data = mw.text.trim(par_data[1])
			pre_stack[find_func_head] = (head_data=='' and '' or head_data..' ')..tail_data
			par_it = find_func_head+1 while par_it <= #pre_stack do pre_stack[par_it]=nil end
			cmt_str = ""
			cmt_count=0
		elseif opdata.count == 1 then
			if opdata.count == 1 or cmt_str == "" then
				pre_stack[#pre_stack] = mw.ustring.format("(%s %s)",
					_item_tostring(it),_item_tostring(pre_stack[#pre_stack])
				)
			else
				local oper_out_format = (cmt_count==2) and "%s %s" or "(%s %s)"
				pre_stack[(#pre_stack<=0 and 0 or #pre_stack) + 1] = mw.ustring.format(oper_out_format,
					_item_tostring(it),_item_tostring(cmt_str)
				)
			end
			cmt_str = ""
			cmt_count=0
		elseif opdata.count == 2 then
		--case 2元運算子
			if #pre_stack == 1 and cmt_str ~= "" then
				local oper_out_format = (cmt_count==2) and "%s %s , %s" or ((cmt_count==1) and "%s %s %s" or "%s %s (, %s)")
				pre_stack[#pre_stack] = mw.ustring.format(oper_out_format,
					_item_tostring(it),
					_item_tostring(pre_stack[#pre_stack]),
					_item_tostring(cmt_str)
				)
				cmt_str = ""
				cmt_count=0
			else
				pre_stack[#pre_stack-1] = mw.ustring.format("%s %s %s",
					_item_tostring(it),
					_item_tostring(pre_stack[#pre_stack-1]),
					_item_tostring(pre_stack[#pre_stack])
				)
				pre_stack[#pre_stack] = nil
			end
		elseif it.propetry == "operator" then
		elseif it.name == "$END" then
		--case 結尾
			tail_process()
		else--otherwise
			pre_stack[#pre_stack+1] = it
		end
	end
	tail_process()

	local result = mw.text.trim(_item_tostring(pre_stack[1]) or _item_tostring(pre_stack[0]))
	if mw.ustring.sub(result,1,1) == '(' and mw.ustring.sub(result,-1,-1) == ')' then result = mw.ustring.sub(result,2,-2) end
	result = mw.text.split(mw.ustring.gsub(result,'%s+',' '),'%s+')
	for i, result_str in pairs( result ) do
		if mw.text.trim(result_str) ~= '|' then
			body = body .. mw.ustring.gsub(format, "%%s", result_str) 
		end
	end
	body = mw.ustring.gsub(body,"⇽","←") 
	return body
end

--mw.log(p.calc("45*5+(1+5-9+((12-5)+5i+(9)/4)*sqrt(-6))*-8",require("Module:Complex Number").cmath.init(),require("Module:Complex Number").cmath.init().toComplexNumber,true,true,function(msg)mw.log("錯誤! "..msg)end))
-- 346.97959 - 181.262241 i
--mw.log(p.calc("45*5+(1+5-9+((12-5)+5+(9)/4)*sin(-6))*-8",nil,nil,true,true,function(msg)mw.log("錯誤! "..msg)end))
-- 217.146633205
--mw.log(p.calc("(i*j*k)",require("Module:Complex Number").qmath.init(),require("Module:Complex Number").qmath.init().toQuaternionNumber,true,true,function(msg)mw.log("錯誤! "..msg)end))
-- (-1)
function p.calc(input_str, math_lib, number_Constructer, debug_flag, should_use_other_module, error_func)
	if comp_number == nil then comp_number = require("Module:Complex Number") end
	if should_use_other_module ~= nil then 
		p.use_other_module = not (not should_use_other_module)
	end
	math = comp_number.math.init()
	local mathlib, numberConstructer = math_lib or math, number_Constructer or tonumber
	local adj_input_str = input_str
	if math_lib and math_lib.is_bool_lib == true then adj_input_str = mw.ustring.gsub(mw.ustring.gsub(mw.ustring.gsub(mw.ustring.gsub(mw.ustring.gsub(mw.ustring.gsub(' ' .. input_str .. ' ',"%s+and%s+"," * "),"[&∧]","*"),"%s+or%s+"," + "),"∨","+"),"%s+not%s+"," - "),"¬","-") end
	local pre_expr, pre_scope = p._function_preprocessing(adj_input_str, math_lib, number_Constructer, debug_flag)
	local postfix = p.infixToPostfix(pre_expr, debug_flag)
	if pre_scope then postfix.scope = pre_scope end
	return p.calc_by_postfix(postfix, {}, math_lib, number_Constructer, debug_flag, error_func)
end

function p.nocalc(input_str, math_lib, number_Constructer, debug_flag)
	if comp_number == nil then comp_number = require("Module:Complex Number") end
	math = comp_number.math.init()
	local mathlib, numberConstructer = math_lib or math, number_Constructer or tonumber
	local adj_input_str = input_str
	if math_lib and math_lib.is_bool_lib == true then adj_input_str = mw.ustring.gsub(mw.ustring.gsub(mw.ustring.gsub(mw.ustring.gsub(mw.ustring.gsub(mw.ustring.gsub(' ' .. input_str .. ' ',"%s+and%s+"," * "),"[&∧]","*"),"%s+or%s+"," + "),"∨","+"),"%s+not%s+"," - "),"¬","-") end
	return p.infixToPostfix(adj_input_str, debug_flag)
end

local returnMeta = {
	__tostring = function (this) 
		return tostring(this.value)
	end
}
local keep_string = {object=true, ['string']=true, frameArg=true}
local without_load = {object=true, ['string']=true, symbols=true}
function p.calc_by_postfix(postfix, scope, math_lib, number_Constructer, debug_flag, _error_func)
	local error_func = error
	if type(_error_func)==type(noop_func) then error_func = _error_func end
	if comp_number == nil then comp_number = require("Module:Complex Number") end
	math = comp_number.math.init()
	local mathlib, numberConstructer = math_lib or math, number_Constructer or tonumber
	local local_scope = {}
	local call_stack = {{}}
	local calc_stack = {}
	local dbg_func, do_dbg = mw.log, true
	if debug_flag ~= true then dbg_func, do_dbg = noop_func,false end
	
	if type(postfix.scope) == type({}) then for pk, pv in pairs(postfix.scope) do scope[pk] = scope[pk] or postfix.scope[pk]end end
	
	if postfix.is_error == true then error_func("計算失敗："..postfix.error_message, 2) end
	
	for i = 1,#postfix do
		local it = postfix[i]
		if it.propetry == "func start" then
			call_stack[#call_stack + 1] = {}
		elseif it.propetry == "operator" then
			local opdata = p.symbol_table[it.name]
			local to_ass
			local if_return = false
			xpcall(function()
				if it.name == ',' then
					if calc_stack[#calc_stack-1] ~= ',' and calc_stack[#calc_stack] ~= ',' and #(call_stack[#call_stack]) > 0 then call_stack[#call_stack+1]={} end
					if calc_stack[#calc_stack-1] == ',' and calc_stack[#calc_stack] == ',' then
						local call_stack_top_left,call_stack_top_right = {},{}
						for ij = 1, #(call_stack[#call_stack-1]) do call_stack_top_left[#call_stack_top_left + 1] = (call_stack[#call_stack-1])[ij] end
						for ij = 1, #(call_stack[#call_stack]) do call_stack_top_right[#call_stack_top_right + 1] = (call_stack[#call_stack])[ij] end
						local cma_result_left,cma_result_right = p.symbol_table[','].calc( mathlib, unpack( call_stack_top_left ) ), p.symbol_table[','].calc( mathlib, unpack( call_stack_top_right ) )
						call_stack[#call_stack] = nil
						call_stack[#call_stack] = nil
						local call_stack_count = #call_stack
						for queue_it = call_stack_count,1,-1 do call_stack[queue_it+1]=call_stack[queue_it]end
						call_stack[1] = { cma_result_left, cma_result_right }
					else
						if calc_stack[#calc_stack-1] ~= ',' then 
							local call_stack_count = #(call_stack[#call_stack])
							for queue_it = call_stack_count,1,-1 do (call_stack[#call_stack])[queue_it+1]=(call_stack[#call_stack])[queue_it]end
							(call_stack[#call_stack])[1] = calc_stack[#calc_stack-1] 
							--(call_stack[#call_stack])[#(call_stack[#call_stack]) + 1] = calc_stack[#calc_stack-1] 
						end 
						if calc_stack[#calc_stack] ~= ',' then (call_stack[#call_stack])[#(call_stack[#call_stack]) + 1] = calc_stack[#calc_stack] end 
					end
					calc_stack[#calc_stack] = nil; calc_stack[#calc_stack] = ','
				elseif opdata.count == 1 then
					if calc_stack[#calc_stack] == ',' and #call_stack > 0 then
						local call_stack_top = {}
						for ij = 1, #(call_stack[#call_stack]) do call_stack_top[#call_stack_top + 1] = (call_stack[#call_stack])[ij] end
						local cma_result = p.symbol_table[','].calc( mathlib, unpack( call_stack_top ) )
						calc_stack[#calc_stack] = opdata.calc(cma_result,mathlib,numberConstructer)
						call_stack[#call_stack] = calc_stack[#calc_stack]
					elseif it.name == '⟵' and type(mathlib.mathdef) ~= type(noop_func) then
						calc_stack = { {
							['return'] = true,
							value=opdata.calc(calc_stack[#calc_stack],mathlib,numberConstructer)
						} }
						setmetatable(calc_stack[1],returnMeta)
						if_return = true
					else
						if ((type(calc_stack[#calc_stack]) == type({})) and calc_stack[#calc_stack] or {}).assign == "assign" then
							local get_data = (local_scope or {})[calc_stack[#calc_stack][1]]
							if get_data then calc_stack[#calc_stack] = local_scope[calc_stack[#calc_stack][1]] 
							error_func("計算失敗：未知的變數 \"" .. _subst_error_strip(tostring(calc_stack[#calc_stack][1])) .. "\" ",2) end
						end
						calc_stack[#calc_stack] = opdata.calc(calc_stack[#calc_stack],mathlib,numberConstructer)
					end
				else
					if it.name ~= '←' then
						if ((type(calc_stack[#calc_stack]) == type({})) and calc_stack[#calc_stack] or {}).assign == "assign" then
							local get_data = (local_scope or {})[calc_stack[#calc_stack][1]]
							if get_data then calc_stack[#calc_stack] = local_scope[calc_stack[#calc_stack][1]] 
							else 
								local try_scope_obj = calc_stack[#calc_stack][1]
								local try_scope_name = tostring(try_scope_obj)
								local try_scope = mathlib[try_scope_name]
								if type(try_scope_obj) == type({}) and try_scope_obj.isObject then try_scope = try_scope_obj.value or try_scope end
								if try_scope==nil then try_scope = scope[try_scope_name] end
								if try_scope==nil then try_scope = _G[try_scope_name] end
								if try_scope==nil and mathlib.noncalculate ~= true and mathlib.ext_loaded ~= true then
									mathlib = ext_mathlib(mathlib, numberConstructer)
									try_scope = mathlib[try_scope_name]
									if use_ext_mathlib ~= true then use_ext_mathlib = true end
								end
								if try_scope~=nil then 
									if type(try_scope)==type(noop_func) then	calc_stack[#calc_stack] = try_scope_name
									else calc_stack[#calc_stack] = try_scope end
								else error_func("計算失敗：未知的變數 \"" .. _subst_error_strip(tostring(calc_stack[#calc_stack][1])) .. "\" " ,2) end
							end
						end
						if ((type(calc_stack[#calc_stack - 1]) == type({})) and calc_stack[#calc_stack - 1] or {}).assign == "assign" then
							local get_data = (local_scope or {})[calc_stack[#calc_stack - 1][1]]
							if get_data then calc_stack[#calc_stack - 1] = local_scope[calc_stack[#calc_stack - 1][1]] 
							else
								local try_scope_obj = calc_stack[#calc_stack - 1][1]
								local try_scope_name = tostring(try_scope_obj)
								local try_scope = mathlib[try_scope_name]
								if type(try_scope_obj) == type({}) and try_scope_obj.isObject then try_scope = try_scope_obj.value or try_scope end
								if try_scope==nil then try_scope = scope[try_scope_name] end
								if try_scope==nil then try_scope = _G[try_scope_name] end
								if try_scope==nil and mathlib.noncalculate ~= true and mathlib.ext_loaded ~= true then
									mathlib = ext_mathlib(mathlib, numberConstructer)
									try_scope = mathlib[try_scope_name]
									if use_ext_mathlib ~= true then use_ext_mathlib = true end
								end
								if try_scope~=nil then calc_stack[#calc_stack - 1] = try_scope
								else error_func("計算失敗：未知的變數 \"" .. _subst_error_strip(tostring(calc_stack[#calc_stack - 1][1])) .. "\" ",2) end
							end
						end
					else
						if ((type(calc_stack[#calc_stack]) == type({})) and calc_stack[#calc_stack] or {}).assign == "assign" then
							local get_data = (local_scope or {})[calc_stack[#calc_stack][1]]
							if get_data then calc_stack[#calc_stack] = local_scope[calc_stack[#calc_stack][1]] 
							else get_data = (scope or {})[calc_stack[#calc_stack][1]] or _G[calc_stack[#calc_stack][1]] or mathlib[calc_stack[#calc_stack][1]]
								if type(get_data) == type(noop_func) then calc_stack[#calc_stack] = get_data
								else error_func("計算失敗：未知的變數 \"" .. _subst_error_strip(tostring(calc_stack[#calc_stack][1])) .. "\" ",2) end
							end
						end
						to_ass = calc_stack[#calc_stack - 1]
					end
					if (calc_stack[#calc_stack] == ',' or calc_stack[#calc_stack-1] == ',') and #call_stack > 0 then
						
						local cma_result_left,cma_result_right
						if calc_stack[#calc_stack-1] == ',' and calc_stack[#calc_stack] == ',' then
							local call_stack_top_left,call_stack_top_right = {},{}
							for ij = 1, #(call_stack[#call_stack-1]) do call_stack_top_left[#call_stack_top_left + 1] = (call_stack[#call_stack-1])[ij] end
							for ij = 1, #(call_stack[#call_stack]) do call_stack_top_right[#call_stack_top_right + 1] = (call_stack[#call_stack])[ij] end
							cma_result_left,cma_result_right = p.symbol_table[','].calc( mathlib, unpack( call_stack_top_left ) ), p.symbol_table[','].calc( mathlib, unpack( call_stack_top_right ) )
							calc_stack[#calc_stack - 1] = opdata.calc(cma_result_left ,cma_result_right, mathlib,numberConstructer)
							call_stack[#call_stack] = nil call_stack[#call_stack] = nil
							local call_stack_count = #call_stack
							for queue_it = call_stack_count,1,-1 do call_stack[queue_it+1]=call_stack[queue_it]end
							call_stack[1] =  calc_stack[#calc_stack - 1]
						else
							cma_result_left,cma_result_right = calc_stack[#calc_stack - 1]or 0, calc_stack[#calc_stack]or 0
							local call_stack_top = {}
							for ij = 1, #(call_stack[#call_stack]) do call_stack_top[#call_stack_top + 1] = (call_stack[#call_stack])[ij] end
							local cma_result = p.symbol_table[','].calc( mathlib, unpack( call_stack_top ) )
							if calc_stack[#calc_stack-1] == ',' then cma_result_left = cma_result
							elseif calc_stack[#calc_stack] == ',' then cma_result_right = cma_result end 
							calc_stack[#calc_stack - 1] = opdata.calc(cma_result_left ,cma_result_right, mathlib,numberConstructer)
							call_stack[#call_stack] = nil
							local call_stack_count = #call_stack
							for queue_it = call_stack_count,1,-1 do call_stack[queue_it+1]=call_stack[queue_it]end
							call_stack[1] =  calc_stack[#calc_stack - 1]
						end
					else
						calc_stack[#calc_stack - 1] = opdata.calc(calc_stack[#calc_stack - 1]or 0 ,calc_stack[#calc_stack]or 0,mathlib,numberConstructer)
					end
					calc_stack[#calc_stack] = nil
				end
			end, function(message)
				error_func("計算失敗：套用運算子 \"" .. _subst_error_strip(mw.text.trim(it.name)) .. "\" 發生錯誤 \"" .. message .. "\" ",2)
			end)
			xpcall(function() (calc_stack[#calc_stack]):clean() end,function(_)end)
			if it.name == '←' and type(mathlib.mathdef) ~= type(noop_func)then
				local cantass = "計算失敗：套用運算子 \"" .. _subst_error_strip(mw.text.trim(it.name)) .. "\" 發生錯誤：無法將 \"".. tostring(to_ass[1] or to_ass) .."\" 的值設定為 \"" .. tostring(calc_stack[#calc_stack] ) .. "\" "
				local check_num = numberConstructer(to_ass[1] or to_ass)
				if check_num then error_func(cantass,2) elseif local_scope then local_scope[to_ass[1]] = calc_stack[#calc_stack] else error_func(cantass,2)end
			end
			if do_dbg == true then dbg_func(it.name, '\t', print_sk(calc_stack,', ') ) end
			if if_return then break end
		elseif it.propetry == "func" then
			local calfunc, functype = mathlib[it.name], type(noop_func)
			if type(calfunc) ~= functype and type((scope or {})[it.name]) == functype then calfunc = scope[it.name] end
			if type(calfunc) ~= functype and type(_G[it.name]) == functype then calfunc = _G[it.name] end
			if type(calfunc) ~= functype and mathlib.noncalculate ~= true and mathlib.ext_loaded ~= true then
				mathlib = ext_mathlib(mathlib, numberConstructer)
				calfunc = mathlib[it.name]
				if use_ext_mathlib ~= true and type(calfunc) == functype then use_ext_mathlib = true end
			end
			if type(calfunc) ~= functype and type((local_scope or {})[it.name]) == functype then calfunc = local_scope[it.name] end
			local is_other_module = false
			if type(calfunc) ~= functype and p.use_other_module == true then
				local check_func = mw.text.split(it.name,"AtModule")
				if #check_func > 1 then
					xpcall(function() 
						local load_module = require( "Module:" .. check_func[2])
						calfunc = load_module[check_func[1]]
						is_other_module = true
					end, function(message)
						error_func("計算失敗：執行函數 \"" .. "Module:" .. check_func[2] .. '#' .. check_func[1] .. "\" 發生錯誤 \"" .. message .. "\" ",2)
					end)
				end
			end
			local callstr = it.name
			local ifreturn = false
			if type(calfunc) == functype then
				xpcall(function() 
					local call_stack_top = {}
					for j = 1, #(call_stack[#call_stack]) do 
						if ((type((call_stack[#call_stack])[j] ) == type({})) and (call_stack[#call_stack])[j] or {}).assign == "assign" then
							local get_data = (local_scope or {})[(call_stack[#call_stack])[j][1]]
							if get_data then (call_stack[#call_stack])[j]  = local_scope[(call_stack[#call_stack])[j][1]] 
							else 
								local try_scope_obj = (call_stack[#call_stack])[j][1]
								local try_scope_name = tostring(try_scope_obj)
								local try_scope = mathlib[try_scope_name]
								if without_load[callstr] then try_scope = try_scope_obj end
								if type(try_scope_obj) == type({}) and try_scope_obj.isObject then try_scope = try_scope_obj.value or try_scope end
								if try_scope==nil then try_scope = scope[try_scope_name] end
								if try_scope==nil then try_scope = _G[try_scope_name] end
								if try_scope==nil and mathlib.noncalculate ~= true and mathlib.ext_loaded ~= true then
									mathlib = ext_mathlib(mathlib, numberConstructer)
									try_scope = mathlib[try_scope_name]
									if use_ext_mathlib ~= true then use_ext_mathlib = true end
								end
								if try_scope~=nil then (call_stack[#call_stack])[j] = try_scope
								else error_func("計算失敗：未知的變數 \"" .. _subst_error_strip(tostring((call_stack[#call_stack])[j][1])) .. "\" ",2) end
							end
						end
						call_stack_top[#call_stack_top + 1] = (call_stack[#call_stack])[j] 
					end
					if call_stack_top == ',' or call_stack_top == '' or call_stack_top == nil then 
						call_stack_top[#call_stack_top + 1] = calc_stack[#calc_stack]
					end
					if #call_stack_top > 0 then
						if do_dbg == true then callstr = callstr .. '(' .. print_sk(call_stack_top,',') .. ')' end
						local wrap_call_stack_top = call_stack_top
						if is_other_module then
							wrap_call_stack_top = {}
							for k,v in pairs(call_stack_top) do wrap_call_stack_top[k] = tostring(v) end
						end
						local calc_result = calfunc( unpack( wrap_call_stack_top ) )
						if type(calc_result) == type({}) and calc_result['return'] then
							calc_result = calc_result.value
							if type(mathlib.mathdef) ~= type(noop_func) then
								calc_stack = {calc_result}
								ifreturn = true
							end
						end
						if type(calc_result) == type('') and (not keep_string[callstr]) then 
							calc_result = numberConstructer(calc_result) or calc_result
						end
						calc_stack[#calc_stack] = calc_result
					else
						if ((type(calc_stack[#calc_stack]) == type({})) and calc_stack[#calc_stack] or {}).assign == "assign" then
							local get_data = (local_scope or {})[calc_stack[#calc_stack][1]]
							if get_data then calc_stack[#calc_stack] = local_scope[calc_stack[#calc_stack][1]] 
							else 
								local try_scope_obj = calc_stack[#calc_stack][1]
								local try_scope_name = tostring(try_scope_obj)
								local try_scope = mathlib[try_scope_name]
								if without_load[callstr] then try_scope = try_scope_obj end
								if type(try_scope_obj) == type({}) and try_scope_obj.isObject then try_scope = try_scope_obj.value or try_scope end
								if try_scope==nil then try_scope = scope[try_scope_name] end
								if try_scope==nil then try_scope = _G[try_scope_name] end
								if try_scope==nil and mathlib.noncalculate ~= true and mathlib.ext_loaded ~= true then
									mathlib = ext_mathlib(mathlib, numberConstructer)
									try_scope = mathlib[try_scope_name]
									if use_ext_mathlib ~= true then use_ext_mathlib = true end
								end
								if try_scope~=nil then calc_stack[#calc_stack] = try_scope
								else error_func("計算失敗：未知的變數 \"" .. _subst_error_strip(tostring(calc_stack[#calc_stack][1])) .. "\" ",2) end
							end
						end
						local wrap_call_stack_top = calc_stack[#calc_stack]
						if is_other_module then wrap_call_stack_top = tostring(wrap_call_stack_top) end
						local calc_result = calfunc( wrap_call_stack_top )
						if type(calc_result) == type({}) and calc_result['return'] then
							calc_result = calc_result.value
							if type(mathlib.mathdef) ~= type(noop_func) then
								calc_stack = {calc_result}
								ifreturn = true
							end
						end
						if type(calc_result) == type('') and (not keep_string[callstr]) then 
							calc_result = numberConstructer(calc_result) or calc_result
						end
						calc_stack[#calc_stack] = calc_result
					end
					call_stack[#call_stack] = nil
				end, function(message)
					error_func("計算失敗：執行函數 \"" .. _subst_error_strip(it.name) .. "\" 發生錯誤 \"" .. message .. "\" ",2)
				end)
			else
				if it.name == '(' then error_func("計算失敗：未封閉的括號",2) end
				error_func("計算失敗：無法執行函數 \"" .. _subst_error_strip(it.name) .. "\" ",2)
			end
			xpcall(function() (calc_stack[#calc_stack]):clean() end,function(_)end)
			if do_dbg == true then dbg_func(callstr, '\t', print_sk(calc_stack,', ') ) end
			if ifreturn then break end
		else
			local get_data = numberConstructer(it.name)
			if get_data == nil then get_data = numberConstructer((scope or {})[it.name]) or numberConstructer(_G[it.name]) or numberConstructer(mathlib[it.name]) or numberConstructer(it.name) end
			if get_data == nil then get_data={it.name,assign="assign"}end
			calc_stack[#calc_stack + 1] = get_data
			xpcall(function() (calc_stack[#calc_stack]):clean() end,function(_)end)
			if do_dbg == true then dbg_func(it.name, '\t', print_sk(calc_stack,', ') ) end
		end
	end
	if #calc_stack == 1 then 
		local checker = calc_stack[#calc_stack]
		if ((type(calc_stack[#calc_stack]) == type({})) and calc_stack[#calc_stack] or {}).assign == "assign" then
			checker = tostring(calc_stack[#calc_stack][1])
		end
		if checker == ',' then
			for call_i=#call_stack,1,-1 do
				for call_j=1,#(call_stack[call_i]) do
					if ((type(call_stack[call_i][call_j]) == type({})) and call_stack[call_i][call_j] or {}).assign == "assign" then
						local get_data = (local_scope or {})[call_stack[call_i][call_j][1]]
						if get_data then call_stack[call_i][call_j] = local_scope[call_stack[call_i][call_j][1]] 
						else call_stack[call_i][call_j] = tostring(call_stack[call_i][call_j][1]) end
					end
					if checker == ',' then checker = '' else checker = checker..', ' end
					checker = checker .. tostring(call_stack[call_i][call_j])
				end
			end
		end
		return checker
	elseif #calc_stack > 1 then 
		local check_number_data = print_sk(calc_stack,', ')
		if mw.text.trim(check_number_data) == '' then
			error_func("計算失敗：缺少運算子和運算數，無法運算",2)
		elseif not mw.ustring.find(check_number_data,',') then
			--"缺少運算子且只有一個運算數" 那就返回運算數，不視為錯誤
			--error_func("計算失敗：預期為二元運算，但缺少運算子且只有一個運算數 \"".. check_number_data .."\"，無法運算",2)
			return numberConstructer(check_number_data)
		else
			error_func("計算失敗：缺少運算子，數字 [" .. check_number_data .. "] 無法運算",2)
		end
	end
	return numberConstructer(0)
end

function p.infixToPostfix(input_str, debug_flag)
	local str, index, num_list = input_str, 0, {}; 
	local dbg_func, do_dbg = mw.log, true
	if debug_flag ~= true then dbg_func, do_dbg = noop_func,false end
	local flag_logging = {}
	local flag_logging_list = {
		logic_func = "replace logic operators...",
		round_and_return = "replace round and return operators...",
		equal_operator = "replace equal operators...",
		scientific = "replace scientific symbols...",
		imaginary_unit = "replace imaginary units..."
	}
	if mw.ustring.find(str,"[xXnN]?[aAoOnN][nNrRoO][dDtTrR]?([^%a%(])") then
		str = mw.ustring.gsub(str,"([%A])[aA][nN][dD]([^%a%(])","%1 & %2")
		str = mw.ustring.gsub(str,"([%A])[nN][aA][nN][dD]([^%a%(])","%1 ↑ %2")

		str = mw.ustring.gsub(str,"([%A])[oO][rR]([^%a%(])","%1 | %2")
		str = mw.ustring.gsub(str,"([%A])[nN][oO][rR]([^%a%(])","%1 ↓ %2")

		str = mw.ustring.gsub(str,"([%A])[xX][oO][rR]([^%a%(])","%1 ⊕ %2")
		str = mw.ustring.gsub(str,"([%A])[xX][nN][oO][rR]([^%a%(])","%1 ⇔ %2")

		str = mw.ustring.gsub(str,"([%A])[nN][oO][tT]([^%a%(])","%1 ~ %2")
		str = mw.ustring.gsub(str,"^not([^%a%(])","~ %1")
		flag_logging.logic_func = true
	end
	if mw.ustring.find(str,"[rR][oOeE][uUtT][nNuU][dDrR][nN]?([^%a%(])") then
		str = mw.ustring.gsub(str,"([%A])[rR][oO][uU][nN][dD]([^%a%(])","%1 ≃ %2")
		str = mw.ustring.gsub(str,"([%A])[rR][eE][tT][uU][rR][nN]([^%a%(])","%1 ⟵ %2")
		str = mw.ustring.gsub(str,"^%s*[rR][eE][tT][uU][rR][nN]([^%a%(])","⟵ %1")
		flag_logging.round_and_return = true
	end
	local feq1,feq2,fsci,fsi,fsj,fsk,fpi,fpj,fpk = 0,0,0,0,0,0,0,0,0
	str, feq1 = mw.ustring.gsub(str,"([><=!~@])=",function(str) return ({['>']='≥',['<']='≤',['~']='≠',['!']='≠',['=']='=',['@']='←'})[str] end)
	str, feq2 = mw.ustring.gsub(str,"([%a%d]+)%s*([%+%-−%*×⋅/÷%%%^&↑%|↓⊕⇔])=", "%1 ← %1 %2 ")
	str, fsci = mw.ustring.gsub(str,"([%+%-]?)(%d*%.?%d+)e([%+%-]?%d+)([ijk]?)",function(n_sign,n_num,n_pow,ijk) return n_sign.."("..n_num.."*10^("..n_pow.."))"..((ijk~=nil and ijk~='')and(' ˙ '..ijk) or'') end)

	if mw.ustring.find(str,"[ijk]") then
		str, fsi = mw.ustring.gsub(str,"(%a)i","%1I")
		str, fsj = mw.ustring.gsub(str,"(%a)j","%1J")
		str, fsk = mw.ustring.gsub(str,"(%a)k","%1K")
		str, fpi = mw.ustring.gsub(str,"i(%a)","I%1")
		str, fpj = mw.ustring.gsub(str,"j(%a)","J%1")
		str, fpk = mw.ustring.gsub(str,"k(%a)","K%1")
	end
	local result = mw.ustring.gsub(str,"%d*%.?%d*%s*[ijk]?",
		function(b) 
			if b ~= nil and mw.text.trim(b) ~= '' then 
				index = index + 1 
				num_list[#num_list + 1] = b 
				return ' ' .. tostring(index)
			end 
			return ''
		end 
	); 
	if ((fpi or 0)+(fsi or 0)) ~= 0 then result = mw.ustring.gsub(result,"I","i") end
	if ((fpj or 0)+(fsj or 0)) ~= 0 then result = mw.ustring.gsub(result,"J","j") end
	if ((fpk or 0)+(fsk or 0)) ~= 0 then result = mw.ustring.gsub(result,"K","k") end
	--------------------------------------------------------
	if do_dbg then
		if ((feq1 or 0)+(feq2 or 0)) ~= 0 then flag_logging.equal_operator = true end
		if (fsci or 0) ~= 0 then flag_logging.scientific = true end
		if ((fpi or 0)+(fsi or 0)+(fpj or 0)+(fsj or 0)+(fpk or 0)+(fsk or 0)) ~= 0 then flag_logging.imaginary_unit = true end
		for flag_name,flag in pairs(flag_logging)do if flag == true and flag_logging_list[flag_name] then dbg_func(flag_logging_list[flag_name])end end 
	end
	--------------------------------------------------------
	local str2, index, azid, func_list = result, 0, '', {}; 
	local result = mw.ustring.gsub(str2,"[π°]",
		function(b) 
			if b ~= nil and mw.text.trim(b) ~= '' then 
				num_list[#num_list + 1] = b 
				return ' ˙ ' .. tostring(#num_list) .. ' '
			end
		end
	);
	result = mw.ustring.gsub(result,"%a[%a%d]*%s*%(?",
		function(b) 
			if b ~= nil and mw.text.trim(b) ~= '' then 
				if mw.ustring.find(b,"%(") then
					local func_name = mw.ustring.match(b,"%a[%a%d]*")
					if func_name ~= nil and mw.text.trim(func_name) ~= '' then  
						index, azid = index + 1, numberToAZ(index)
						func_list[azid] = func_name 
						return ' ' .. azid .. ' '
					end
				else
					num_list[#num_list + 1] = b 
					return ' ' .. tostring(#num_list) .. ' '
				end
			end 
			return ''
		end 
	);
	for i=1,#num_list do num_list[i] = mw.ustring.gsub(num_list[i],"%s+",'') end
	if do_dbg then dbg_func(mw.ustring.format('result string is "%s"', result)) end
	local mid_expr = stringToTable(result)
	mid_expr[#mid_expr + 1] = "$END"
	local stack, postfix = {{name="$END",elements=0}}, {}
	for i = 1,#mid_expr do
		local it = mid_expr[i]
		if it == "$END" then
			while #stack > 0 and stack[#stack].name ~= "$END"  do
				local psymbol_tablestackstacknamecount,_fl = -1
				_fl,psymbol_tablestackstacknamecount = xpcall(function()return p.symbol_table[stack[#stack].name].count end,noop_func)
				if (stack[#stack] or {elements=0}).elements < (psymbol_tablestackstacknamecount or -1) then
					local error_message = p.symbol_table[stack[#stack].name].name.."運算子需要"..p.symbol_table[stack[#stack].name].count.."個運算數，但只找到"..stack[#stack].elements.."個運算數"
					if do_dbg == true then dbg_func("== \""..stack[#stack].name.."\" "..error_message) end
					return {is_error=true, error_message=error_message}
				end
				postfix[#postfix + 1] = {name=stack[#stack].name, propetry=stack[#stack].propetry}
				stack[#stack] = nil --pop
				if stack[#stack] then stack[#stack].elements = (stack[#stack].elements or 0) + 1 end
			end
			if do_dbg == true then dbg_func("結束",'\t', print_sk(postfix,' ') ,'\t',print_sk(stack)) end
		elseif mw.ustring.match(it,"[%a%(]") then
			stack[#stack + 1] = {name=it,elements=0,propetry='func'}
			if do_dbg == true then dbg_func(it, "括號開始",'\t', print_sk(postfix,' ') ,'\t',print_sk(stack)) end
			if func_list[it] ~= nil then postfix[#postfix + 1] = {name=' ', propetry="func start"} end
		elseif p.symbol_table[it] ~= nil and p.symbol_table[it].propetry == "op" then
			local op_it = p.symbol_table[it]
			local op_ls = p.symbol_table[mid_expr[i-1]]
			local flag = mw.ustring.match(mid_expr[i-1] or '',"[%a%(]") if (mid_expr[i-1] or '娜娜奇') == '娜娜奇' then flag = false end
			if ( op_ls or (i == 1) or flag ) and op_it.multp == true then
				stack[#stack + 1] = {name=it .. ' ',elements=0,propetry='operator'}
			else
				while p.symbol_table[(stack[#stack]or{name=noop_func}).name] and p.symbol_table[(stack[#stack]or{name=noop_func}).name].priority and
					p.symbol_table[stack[#stack].name].ppriority >= p.symbol_table[it].priority do
						if stack[#stack].elements < p.symbol_table[stack[#stack].name].count then
							local error_message = p.symbol_table[stack[#stack].name].name.."運算子需要"..p.symbol_table[stack[#stack].name].count.."個運算數，但只找到"..stack[#stack].elements.."個運算數"
							if do_dbg == true then dbg_func("== \""..stack[#stack].name.."\" "..error_message) end
							return {is_error=true, error_message=error_message}
						end
					postfix[#postfix + 1] = {name=stack[#stack].name, propetry=stack[#stack].propetry}
					stack[#stack] = nil --pop
					stack[#stack].elements = (stack[#stack].elements or 0) + 1
				end
				stack[#stack + 1] = {name=it,elements=1, propetry='operator'}
			end
			if do_dbg == true then dbg_func(it, "運算子",'\t', print_sk(postfix,' ') ,'\t',print_sk(stack)) end
		elseif mw.ustring.match(it,"%d+") then
			postfix[#postfix + 1] = {name=num_list[tonumber(it)] or ("N" .. it), propetry="number"}
			stack[#stack].elements = (stack[#stack].elements or 0) + 1
			if do_dbg == true then dbg_func(it, "數字",'\t', print_sk(postfix,' ') ,'\t',print_sk(stack)) end
		elseif it == ')' then
			local flag = mw.ustring.match(stack[#stack].name,"[%a%(]")
			while flag == nil do --遇 ) 輸出至 ( 
				if stack[#stack].name ~= "$END" then 
					if stack[#stack].elements < p.symbol_table[stack[#stack].name].count then
						local error_message = p.symbol_table[stack[#stack].name].name.."運算子需要"..p.symbol_table[stack[#stack].name].count.."個運算數，但只找到"..stack[#stack].elements.."個運算數"
						if do_dbg == true then dbg_func("== \""..stack[#stack].name.."\" "..error_message) end
						return {is_error=true, error_message=error_message}
					end
					postfix[#postfix + 1] = {name=stack[#stack].name, propetry=stack[#stack].propetry}
					stack[#stack] = nil --pop
					stack[#stack].elements = (stack[#stack].elements or 0) + 1
				end
				flag = mw.ustring.match(stack[#stack].name,"[%a%(]")
			end
			if mw.ustring.match(stack[#stack].name,"%a") then
				if stack[#stack].name ~= "$END" then 
					postfix[#postfix + 1] = {name=func_list[stack[#stack].name] or stack[#stack].name, propetry=stack[#stack].propetry}
				end
			end
			if stack[#stack].name == "$END" then 
				local error_message = "未預料的反括號"
				if do_dbg == true then dbg_func("=="..error_message) end
				postfix.is_error=true
				postfix.error_message = error_message
			else
				stack[#stack] = nil --pop
			end
			if stack[#stack] then stack[#stack].elements = ((stack[#stack] or {}).elements or 0) + 1 end
			if do_dbg == true then dbg_func(it, "結束括號",'\t', print_sk(postfix,' ') ,'\t',print_sk(stack))end
		end
	end

	return postfix

end

function p.ifNumeric(frame)
	local result, can_math, should_math, input_math_lib, input_to_number
	local error_count = 0
	local error_flag = xpcall(function()
		result, can_math, should_math, input_math_lib, input_to_number = p._preCalculate(frame, function()error_count = error_count + 1 end)
	end,noop_func)
	error_flag = (not error_flag) or (error_count > 0)
    local args
    if frame == mw.getCurrentFrame() then
        -- We're being called via #invoke. The args are passed through to the module
        -- from the template page, so use the args that were passed into the template.
        args = getArgs(frame) --frame.args
    else
        -- We're being called from another module or from the debug console, so assume
        -- the args are passed in directly.
        args = frame
    end
    local body = ''
    if args[2]==nil and args[3]==nil then return error_flag and '' or '1' end
    if error_flag then
    	body = args[3] or body
    else
    	body = args[2] or body
    end
	return body
end

function p.calcExpr(frame)
	local result, can_math, should_math, input_math_lib, input_to_number
	local error_count = 0
	local bool_value = 0
	local error_message
	local error_flag = xpcall(function()
		result, can_math, should_math, input_math_lib, input_to_number = p._preCalculate(frame, function(msg)
			error_message = error_message or msg
			error_count = error_count + 1 
		end)
		bool_value = input_math_lib.abs(result)
	end,noop_func)
	error_flag = (not error_flag) or (error_count > 0)
    local args
    if frame == mw.getCurrentFrame() then
        -- We're being called via #invoke. The args are passed through to the module
        -- from the template page, so use the args that were passed into the template.
        args = getArgs(frame) --frame.args
    else
        -- We're being called from another module or from the debug console, so assume
        -- the args are passed in directly.
        args = frame
    end
    local body = ''
    if args[2]==nil and args[3]==nil then 
    	if error_message~=nil and error_flag then error(error_message, 2) end
    	return result
    end
    if bool_value > 1e-14 and (not error_flag) then
    	body = args[2] or body
    else
    	body = args[3] or body
    end
	return body
end

function p.isReal(frame)
    local args
	local result, can_math, should_math, input_math_lib, input_to_number
	local error_count = 0
	local non_real_value = 0
	local error_flag = xpcall(function()
		result, can_math, should_math, input_math_lib, input_to_number = p._preCalculate(frame, function()error_count = error_count + 1 end)
		non_real_value = input_math_lib.abs(input_math_lib.nonRealPart(result))
	end,noop_func)
	error_flag = (not error_flag) or (error_count > 0)
    if frame == mw.getCurrentFrame() then
        -- We're being called via #invoke. The args are passed through to the module
        -- from the template page, so use the args that were passed into the template.
        args = getArgs(frame) --frame.args
    else
        -- We're being called from another module or from the debug console, so assume
        -- the args are passed in directly.
        args = frame
    end
    local body = ''
    if non_real_value > 1e-14 or error_flag then
    	body = args[3] or body
    else
    	body = args[2] or body
    end
	return body
end

--表達式輸出為<math></math>支援
p.tagmath={
	matheq=function(op1,op2)
		return p.tagmath.apply_binary_operator(op1,op2,'=','=')
	end,
	mathneq=function(op1,op2)
		return p.tagmath.apply_binary_operator(op1,op2,'≠','\\neq')
	end,
	mathdef=function(op1,op2)
		local that, oper_id = p.tagmath.toTagMath(op2), ''
		if op2.lowoperator ~= '(' and op2.lowoperator ~= '' then that.value = "\\left( " .. that.value .. "\\right) "end
		that.lowoperator = oper_id
		return p.tagmath.apply_binary_operator(op1,that,'←','\\overset{\\underset{\\mathrm{def}}{}}{=}')
	end,
	mathmapsto=function(op1,op2)
		local that_op1, oper_id = p.tagmath.toTagMath(op1), ''
		if op1.lowoperator ~= '(' and op1.lowoperator ~= '' then that_op1.value = "\\left( " .. that_op1.value .. "\\right) "end
		that_op1.lowoperator = oper_id
		return p.tagmath.apply_binary_operator(that_op1,op2,'↦','\\mapsto')
	end,
	mathfuncdef=function(op1,op2)
		local that_op1, oper_id = p.tagmath.toTagMath(op1), ''
		that_op1.lowoperator = oper_id
		return p.tagmath.apply_binary_operator(that_op1,op2,':',':')
	end,
	mathset=function(op1,op2)
		local that_op1, oper_id, that = p.tagmath.toTagMath(op1), ''
		if op1.lowoperator ~= '(' and op1.lowoperator ~= '' then that_op1.value = "\\left( " .. that_op1.value .. "\\right) "end
		that_op1.lowoperator = oper_id
		that, oper_id = p.tagmath.toTagMath(op2), ''
		if op2.lowoperator ~= '(' and op2.lowoperator ~= '' then that.value = "\\left( " .. that.value .. "\\right) "end
		that.lowoperator = oper_id
		return p.tagmath.apply_binary_operator(that_op1,that,'⇽','\\gets')
	end,
	mathcomma=function(...)
		local get_all_arg = {...}
		if #get_all_arg == 1 then return get_all_arg[1] end
		if #get_all_arg == 0 then return '' end
		local merge_data = ''
		for itj=1,#get_all_arg do
			if merge_data ~= '' then merge_data = merge_data .. ' ,\\, ' end
			merge_data = merge_data .. tostring(get_all_arg[itj])
		end
		local that_op1, oper_id = p.tagmath.toTagMath(merge_data), ''
		that_op1.value = "\\left( " .. that_op1.value .. "\\right) "
		that_op1.lowoperator = oper_id
		return that_op1
	end,
	mathsemicolon=function(op1,op2)
		local check_empty = mw.ustring.gsub(tostring(op1),'%s','')
		if check_empty =="{}" or check_empty == '' then return op2 end
		return p.tagmath.apply_binary_operator(op1,op2,';',';\\,')
	end,
	mathtimes=function(op1,op2)
		return p.tagmath.apply_binary_operator(op1,op2,'⋅','\\, ')
	end,
	mathlt=function(op1,op2)
		return p.tagmath.apply_binary_operator(op1,op2,'<','<')
	end,
	mathgt=function(op1,op2)
		return p.tagmath.apply_binary_operator(op1,op2,'>','>')
	end,
	mathlteq=function(op1,op2)
		return p.tagmath.apply_binary_operator(op1,op2,'≤','\\leq')
	end,
	mathgteq=function(op1,op2)
		return p.tagmath.apply_binary_operator(op1,op2,'≥','\\geq')
	end,
	mathand=function(op1,op2)
		return p.tagmath.apply_binary_operator(op1,op2,'&','\\land')
	end,
	mathnand=function(op1,op2)
		return p.tagmath.apply_binary_operator(op1,op2,'↑','\\uparrow')
	end,
	mathor=function(op1,op2)
		return p.tagmath.apply_binary_operator(op1,op2,'|','\\lor')
	end,
	mathnor=function(op1,op2)
		return p.tagmath.apply_binary_operator(op1,op2,'↓','\\downarrow')
	end,
	mathxor=function(op1,op2)
		return p.tagmath.apply_binary_operator(op1,op2,'⊕','\\oplus')
	end,
	mathxnor=function(op1,op2)
		return p.tagmath.apply_binary_operator(op1,op2,'⇔','\\leftrightarrow')
	end,
	mathnot=function(this)
		local that, oper_id = p.tagmath.toTagMath(this), ''
		if this.lowoperator ~= '(' and this.lowoperator ~= '' then that.value = "\\left( " .. that.value .. "\\right) "end
		that.lowoperator = oper_id
		that.value = "\\lnot" .. that.value
		return that 
	end,
	mathreturn=function(this)
		local that, oper_id = p.tagmath.toTagMath(this), ''
		that.lowoperator = oper_id
		that.value = "\\text{return}\\," .. that.value
		return that 
	end,
	pow=function(op1,op2)
		return p.tagmath.apply_binary_operator(op1,op2,'^','^',false,true)
	end,
	div=function(op1,op2)
		local left, right = p.tagmath.toTagMath(op1), p.tagmath.toTagMath(op2)
		left.lowoperator = ''
		left.value = "\\frac{ " .. left.value .. " }{ " .. right.value .. "}"
		return left 
	end,
	sqrt=function(op1,op2)
		local left = p.tagmath.toTagMath(op1)
		if op2 ~= nil then
			local right = p.tagmath.toTagMath(op2)
			left.value = "\\sqrt[ " .. right.value .. " ]{ " .. left.value .. "}"
		else
			left.value = "\\sqrt{ " .. left.value .. " }"
		end
		left.lowoperator = ''
		return left 
	end,
	dot=function(op1,op2)
		return p.tagmath.apply_binary_operator(op1,op2,'*','\\cdot')
	end,
	exp=function(this)
		local that, oper_id = p.tagmath.toTagMath(this), ''
		that.lowoperator = oper_id
		that.value = " e^{ " .. that.value .. "} "
		return that 
	end,
	log=function(op1,op2)
		local left, right, vals, log_symbol
		if op2 ~= nil then
			right, left = p.tagmath.toTagMath(op1), p.tagmath.toTagMath(op2)
			vals = "_{" .. right.value .. "}"
			log_symbol = "log " 
		else 
			left, vals = p.tagmath.toTagMath(op1), ''
			log_symbol = "ln "
		end
		if left.lowoperator ~= '(' and left.lowoperator ~= '' then left.value = "\\left( " .. left.value .. "\\right) "end
		left.lowoperator = ''
		left.value = '\\' .. log_symbol .. vals .. left.value
		return left 
	end,
	abs=function(this)
		local that, oper_id = p.tagmath.toTagMath(this), ''
		that.lowoperator = oper_id
		that.value = "\\left\\vert " .. that.value .. "\\right\\vert "
		return that 
	end,
	conjugate=function(this)
		local that, oper_id = p.tagmath.toTagMath(this), ''
		that.lowoperator = oper_id
		that.value = "\\overline{ " .. that.value .. " } "
		return that 
	end,
	floor=function(this)
		local that, oper_id = p.tagmath.toTagMath(this), ''
		that.lowoperator = oper_id
		that.value = "\\left\\lfloor " .. that.value .. "\\right\\rfloor "
		return that 
	end,
	ceil=function(this)
		local that, oper_id = p.tagmath.toTagMath(this), ''
		that.lowoperator = oper_id
		that.value = "\\left\\lceil " .. that.value .. "\\right\\rceil "
		return that 
	end,
	binomial=function(n,k)
		local that, oper_id = p.tagmath.toTagMath(n), ''
		local that_k = p.tagmath.toTagMath(k) or {value=''}
		that.lowoperator = oper_id
		that.value = "\\binom {" .. that.value .. "}{" .. that_k.value .. '}'
		return that 
	end,
	min=function(...)
		local this_list, oper_id = {...}, ''
		local that = p.tagmath.toTagMath(this_list[1])
		for i=2,#this_list do
			local it_item = p.tagmath.toTagMath(this_list[i])
			that.value = that.value .. ', \\,' .. it_item.value
		end
		that.value = "\\left( " .. that.value .. "\\right) "
		that.lowoperator = oper_id
		that.value = "\\min {" .. that.value .. '}'
		return that 
	end,
	factorial=function(this)
		local that, oper_id = p.tagmath.toTagMath(this), ''
		if this.lowoperator ~= '(' and this.lowoperator ~= '' then that.value = "\\left( " .. that.value .. "\\right) "end
		that.lowoperator = oper_id
		that.value = that.value .. "!"
		return that 
	end,
	ele=function(this)
		local that, oper_id = p.tagmath.toTagMath(this), ''
		if this.lowoperator ~= '(' and this.lowoperator ~= '' then that.value = "\\left( " .. that.value .. "\\right) "end
		that.lowoperator = oper_id
		that.value = "\\,e_{" .. that.value .. "}"
		return that 
	end,
	norm=function(n,_p)
		local that, oper_id = p.tagmath.toTagMath(n), ''
		local that_p = p.tagmath.toTagMath(_p) or {value=''}
		that.lowoperator = oper_id
		that.value = "\\left \\|" .. that.value .. "\\right \\|"
		if _p then that.value = that.value .."_{" .. that_p.value .. '}' end
		return that 
	end,
	transpose=function(this)
		local that, oper_id = p.tagmath.toTagMath(this), ''
		if this.lowoperator ~= '(' and this.lowoperator ~= '' then that.value = "\\left( " .. that.value .. "\\right) "end
		that.lowoperator = oper_id
		that.value = that.value .. "^{\\mathrm{T}}"
		return that 
	end,
	identity=function(this)
		local that, oper_id = p.tagmath.toTagMath(this), ''
		that.lowoperator = oper_id
		that.value = "I_{" .. that.value .. "}"
		return that 
	end,
	row=function(...)
		local get_all_arg = {...}
		if #get_all_arg == 1 then return get_all_arg[1] end
		if #get_all_arg == 0 then return '' end
		local merge_data = ''
		for itj=1,#get_all_arg do
			if merge_data ~= '' then merge_data = merge_data .. ' & ' end
			merge_data = merge_data..'{'..tostring(get_all_arg[itj])..'}'
		end
		local that_op1, oper_id = p.tagmath.toTagMath(merge_data), ''
		that_op1.lowoperator = oper_id
		return that_op1
	end,
	matrix=function(...)
		local get_all_arg = {...}
		if #get_all_arg == 1 then 
			local that_op1, oper_id = p.tagmath.toTagMath(get_all_arg[1]), ''
			that_op1.value = "\\begin{bmatrix} " .. that_op1.value .. "\\end{bmatrix} "
			that_op1.lowoperator = oper_id
			return that_op1
		end
		if #get_all_arg == 0 then return '' end
		local merge_data = ''
		for itj=1,#get_all_arg do
			if merge_data ~= '' then merge_data = merge_data .. ' \\\\\n' end
			merge_data = merge_data .. tostring(get_all_arg[itj])
		end
		local that_op1, oper_id = p.tagmath.toTagMath(merge_data), ''
		that_op1.value = "\\begin{bmatrix} " .. that_op1.value .. "\\end{bmatrix} "
		that_op1.lowoperator = oper_id
		return that_op1
	end,
	mathform=function(inputdata)
		return inputdata
	end,
	cofactor=function(this, p_i, q_j)
		local that, oper_id = p.tagmath.toTagMath(this), '('
		if (this.lowoperator ~= '(') and (this.lowoperator ~= '') then 
			that.value = "\\left( " .. that.value .. "\\right) "
		end
		that.lowoperator = oper_id
		that.value =  '\\mathrm{cof} ' .. that.value

		if p_i~= nil and q_j~= nil then
			local pi_math = p.tagmath.toTagMath(p_i)
			local qj_math = p.tagmath.toTagMath(q_j)
			that.value = "\\left( " .. that.value .. "\\right) _ {{"..pi_math.value.."},\\,{"..qj_math.value.."}}"
		end
		return that 
	end,
	cof=function(this, p_i, q_j)return p.tagmath.cofactor(this, p_i, q_j)end,
	["if"]=function(expr, true_expr, false_expr)
		return p.tagmath._ifelse_func(false, expr, true_expr, false_expr)
	end,
	iff=function(expr, true_expr, false_expr)
		return p.tagmath._ifelse_func(true, expr, true_expr, false_expr)
	end,
	ifelse=function(...)
		return p.tagmath._ifelse_func(false, ...)
	end,
	ifelsef=function(...)
		return p.tagmath._ifelse_func(true, ...)
	end,
	_ifelse_func=function(is_func, ...)
		local exprlist = {...}
		local last_else = #exprlist % 2 == 1
		local max_num = (last_else and (#exprlist - 1) or #exprlist) / 2
		local that, oper_id = p.tagmath.toTagMath(''), ''
		for i=1,max_num do
			if i > 1 then that.value = that.value .. ' \\\\ ' end
			local expr = p.tagmath.toTagMath(exprlist[i * 2 - 1])
			local expr_true = p.tagmath.toTagMath(exprlist[i * 2])
			if is_func then
				expr.value = expr.value:gsub("\\mapsto","")
				expr_true.value = expr_true.value:gsub("\\mapsto","")
			end
			that.value = that.value .. mw.ustring.format("{%s}, & \\text{if }{%s}", expr_true.value, expr.value)
		end
		if last_else then
			local expr_false = p.tagmath.toTagMath(exprlist[#exprlist])
			if is_func then
				expr_false.value = expr_false.value:gsub("\\mapsto","")
			end
			that.value = that.value .. mw.ustring.format(" \\\\ {%s}, & \\text{otherwise}", expr_false.value)
		end
		that.lowoperator = oper_id
		that.value = mw.ustring.format("\\begin{cases} %s \\end{cases}", that.value)
		return that 
	end,
	symbols=function(name)
		local symbolname = p.tagmath.toTagMath(name)
		local symbolresult = require('Module:Complex_Number/Functions')._symbols(mw.text.trim(symbolname.value,"%{%}\t\r\n\f "))
		if symbolresult then
			return p.tagmath.toTagMath(symbolresult)
		end
		return p.tagmath.apply_function("symbols", name)
	end,
	object=function(obj,...)
		local objlist = {...}
		local objname = p.tagmath.toTagMath(obj)
		for i=1,#objlist do
			local to_add = p.tagmath.toTagMath(objlist[i]).value
			if objlist[i].lowoperator ~= '(' and objlist[i].lowoperator ~= '' then to_add = "\\left( " .. to_add .. "\\right) "end
			objname.value = objname.value .. '.' .. to_add
		end
		objname.value = "\\text{" .. objname.value .. "}"
		return objname
	end,
	['string']=function(...)
		local strlist = {...}
		local str = p.tagmath.toTagMath('')
		for i=1,#strlist do
			str.value = str.value .. p.tagmath.toTagMath(strlist[i]).value
		end
		str.value = "{}^\\shortparallel\\text{" .. str.value .. "}^\\shortparallel"
		return str
	end,
	call=function(_func, ...)
		local that_func = p.tagmath.toTagMath(_func)
		local that_args = p.tagmath.mathcomma(...)
		local is_inner_func = mw.ustring.find(tostring(that_func.value),"\\mapsto")
		if #({...}) <= 1 and type(is_inner_func) == type(nil) then that_args.value = "\\left( " .. that_args.value .. "\\right) "end
		if type(is_inner_func) ~= type(nil) then
			that_func.value = that_func.value .. ' \\gets '
		end
		that_args.value = that_func.value..that_args.value
		return that_args
	end,
	diff=function(_expr, _value)
		local that, oper_id = p.tagmath.toTagMath(_value), 'MINOP'
		local that_expr = p.tagmath.toTagMath(_expr)
		local data_start, data_end = mw.ustring.find(tostring(that_expr.value),"\\mapsto")
		local var_data = mw.ustring.sub(tostring(that_expr.value),1,(data_start or 1)-1)
		local expr_data = mw.ustring.sub(tostring(that_expr.value),(data_end or 0)+1,-1)
		var_data = mw.ustring.gsub(var_data,"^%s*%{","")
		expr_data = mw.ustring.gsub(expr_data,"%}%s*$","")
		local group_flag = mw.ustring.find(expr_data,"[%+%-]")
		if not group_flag then
			expr_data = mw.ustring.gsub(expr_data,"\\right%)%s*%}%s*$","")
			expr_data = mw.ustring.gsub(expr_data,"^%s*%{\\left%(","")
		end
		local check_ijk = mw.ustring.find(tostring(var_data),"[ijkIJK]t")
		if (not data_start) or check_ijk then
			var_data = mw.text.trim(var_data) == '' and "x" or var_data
			var_data = mw.ustring.gsub(var_data,"([ijkIJK])t","%1")
			expr_data = mw.ustring.gsub(expr_data,"([ijkIJK])t","%1")
		end
		that.value = mw.ustring.format("\\left.\\frac{d\\,{%s}}{d{%s}}\\right|_{{%s}={%s}}", 
			expr_data, var_data, var_data, that.value)
		that.lowoperator = oper_id
		return that 
	end,
	integral=function(_value, _b, _expr)
		local that, b, oper_id = p.tagmath.toTagMath(_value), p.tagmath.toTagMath(_b), 'MINOP'
		local that_expr = p.tagmath.toTagMath(_expr)
		local data_start, data_end = mw.ustring.find(tostring(that_expr.value),"\\mapsto")
		local var_data = mw.ustring.sub(tostring(that_expr.value),1,(data_start or 1)-1)
		local expr_data = mw.ustring.sub(tostring(that_expr.value),(data_end or 0)+1,-1)
		var_data = mw.ustring.gsub(var_data,"^%s*%{","")
		expr_data = mw.ustring.gsub(expr_data,"%}%s*$","")
		local group_flag = mw.ustring.find(expr_data,"[%+%-]")
		if not group_flag then
			expr_data = mw.ustring.gsub(expr_data,"\\right%)%s*%}%s*$","")
			expr_data = mw.ustring.gsub(expr_data,"^%s*%{\\left%(","")
		end
		local check_ijk = mw.ustring.find(tostring(var_data),"[ijkIJK]t")
		if (not data_start) or check_ijk then
			var_data = mw.text.trim(var_data) == '' and "x" or var_data
			var_data = mw.ustring.gsub(var_data,"([ijkIJK])t","%1")
			expr_data = mw.ustring.gsub(expr_data,"([ijkIJK])t","%1")
		end
		that.value = mw.ustring.format("\\int_{%s}^{%s} %s\\,d{%s}", 
			that.value, b.value, expr_data, var_data)
		that.lowoperator = oper_id
		return that 
	end,
	['∫']=function(_value, _b, _expr)
		return p.tagmath.integral(_value, _b, _expr)
	end,
	limit=function(_value, _way, _expr)
		local that, oper_id = p.tagmath.toTagMath(_value), 'MINOP'
		local check_way = mw.ustring.gsub(tostring(_way),'[\{\}%s]','')
		check_way = tonumber(check_way)
		local way_text = check_way > 1e-8 and "+" or ( check_way < -1e-8 and "-" or '')
		local that_expr = p.tagmath.toTagMath(_expr)
		local data_start, data_end = mw.ustring.find(tostring(that_expr.value),"\\mapsto")
		local var_data = mw.ustring.sub(tostring(that_expr.value),1,(data_start or 1)-1)
		local expr_data = mw.ustring.sub(tostring(that_expr.value),(data_end or 0)+1,-1)
		var_data = mw.ustring.gsub(var_data,"^%s*%{","")
		expr_data = mw.ustring.gsub(expr_data,"%}%s*$","")
		local group_flag = mw.ustring.find(expr_data,"[%+%-]")
		if not group_flag then
			expr_data = mw.ustring.gsub(expr_data,"\\right%)%s*%}%s*$","")
			expr_data = mw.ustring.gsub(expr_data,"^%s*%{\\left%(","")
		end
		local check_ijk = mw.ustring.find(tostring(var_data),"[ijkIJK]t")
		if (not data_start) or check_ijk then
			var_data = mw.text.trim(var_data) == '' and "x" or var_data
			var_data = mw.ustring.gsub(var_data,"([ijkIJK])t","%1")
			expr_data = mw.ustring.gsub(expr_data,"([ijkIJK])t","%1")
		end
		that.value = mw.ustring.format("\\lim_{{%s} \\to {%s}^{%s}}{%s}", var_data, that.value, way_text, expr_data)
		that.lowoperator = oper_id
		return that 
	end,
	summation=function(_begin, _end, _expr)
		local that, oper_id = p.tagmath.toTagMath(_begin), 'MINOP'
		local that_begin = p.tagmath.toTagMath(_begin)
		local that_end = p.tagmath.toTagMath(_end)
		local that_expr = p.tagmath.toTagMath(_expr)
		local data_start, data_end = mw.ustring.find(tostring(that_expr.value),"\\mapsto")
		local var_data = mw.ustring.sub(tostring(that_expr.value),1,(data_start or 1)-1)
		local expr_data = mw.ustring.sub(tostring(that_expr.value),(data_end or 0)+1,-1)
		var_data = mw.ustring.gsub(var_data,"^%s*%{","")
		expr_data = mw.ustring.gsub(expr_data,"%}%s*$","")
		local group_flag = mw.ustring.find(expr_data,"[%+%-]")
		if not group_flag then
			expr_data = mw.ustring.gsub(expr_data,"\\right%)%s*%}%s*$","")
			expr_data = mw.ustring.gsub(expr_data,"^%s*%{\\left%(","")
		end
		local check_ijk = mw.ustring.find(tostring(var_data),"[ijkIJK]t")
		if (not data_start) or check_ijk then
			var_data = mw.text.trim(var_data) == '' and "i" or var_data
			var_data = mw.ustring.gsub(var_data,"([ijkIJK])t","%1")
			expr_data = mw.ustring.gsub(expr_data,"([ijkIJK])t","%1")
		end
		that.value = mw.ustring.format("\\sum_{{%s}={%s}}^{%s} {%s}", var_data, that_begin.value, that_end.value, expr_data)
		that.lowoperator = oper_id
		return that 
	end,
	product=function(_begin, _end, _expr)
		local that, oper_id = p.tagmath.toTagMath(_begin), 'MINOP'
		local that_begin = p.tagmath.toTagMath(_begin)
		local that_end = p.tagmath.toTagMath(_end)
		local that_expr = p.tagmath.toTagMath(_expr)
		local data_start, data_end = mw.ustring.find(tostring(that_expr.value),"\\mapsto")
		local var_data = mw.ustring.sub(tostring(that_expr.value),1,(data_start or 1)-1)
		local expr_data = mw.ustring.sub(tostring(that_expr.value),(data_end or 0)+1,-1)
		var_data = mw.ustring.gsub(var_data,"^%s*%{","")
		expr_data = mw.ustring.gsub(expr_data,"%}%s*$","")
		local group_flag = mw.ustring.find(expr_data,"[%+%-]")
		if not group_flag then
			expr_data = mw.ustring.gsub(expr_data,"\\right%)%s*%}%s*$","")
			expr_data = mw.ustring.gsub(expr_data,"^%s*%{\\left%(","")
		end
		local check_ijk = mw.ustring.find(var_data,"[ijkIJK]t")
		if (not data_start) or check_ijk then
			var_data = mw.text.trim(var_data) == '' and "i" or var_data
			var_data = mw.ustring.gsub(var_data,"([ijkIJK])t","%1")
			expr_data = mw.ustring.gsub(expr_data,"([ijkIJK])t","%1")
		end
		that.value = mw.ustring.format("\\prod_{{%s}={%s}}^{%s} {%s}", var_data, that_begin.value, that_end.value, expr_data)
		that.lowoperator = oper_id
		return that 
	end,
	divisorsigma=function(op1,op2)
		local left, right, vals, sigma_symbol
		right, left = p.tagmath.toTagMath(op1), p.tagmath.toTagMath(op2)
		if op2 == nil then 
			left = p.tagmath.toTagMath("")
			vals = ""
		else
			vals = "_{" .. right.value .. "}"
		end
		sigma_symbol = "sigma "
		left.value = "\\left( " .. ((op2 == nil) and right.value or left.value) .. "\\right) "
		left.lowoperator = ''
		left.value = '\\' .. sigma_symbol .. vals .. left.value
		return left
	end,
	hide=function(this)return""end,
	exprs=function(...)
		local input_args = {...}
		return p.tagmath.mathcomma(unpack(input_args))
	end,
	lastexpr=function(...)
		local input_args = {...}
		return input_args[#input_args]
	end,
	equalexpr=function(...)
		local get_all_arg = {...}
		if #get_all_arg == 1 then return get_all_arg[1] end
		if #get_all_arg == 0 then return '' end
		local merge_data = ''
		for itj=1,#get_all_arg do
			if merge_data ~= '' then merge_data = merge_data .. '=' end
			merge_data = merge_data .. tostring(get_all_arg[itj])
		end
		local that_op1, oper_id = p.tagmath.toTagMath(merge_data), ''
		that_op1.lowoperator = oper_id
		return that_op1
	end,
	inverse=function(this)
		local that, oper_id = p.tagmath.toTagMath(this), ''
		if this.lowoperator ~= '(' and this.lowoperator ~= '' then that.value = "\\left( " .. that.value .. "\\right) "end
		that.lowoperator = oper_id
		that.value = that.value .. "^{-1}"
		return that 
	end,
	re=function(this)
		local that, oper_id = p.tagmath.toTagMath(this), ''
		if this.lowoperator ~= '(' and this.lowoperator ~= '' then that.value = "\\left( " .. that.value .. "\\right) "end
		that.lowoperator = oper_id
		that.value = "\\operatorname{Re}" .. that.value
		return that 
	end,
	im=function(this)
		local that, oper_id = p.tagmath.toTagMath(this), ''
		if this.lowoperator ~= '(' and this.lowoperator ~= '' then that.value = "\\left( " .. that.value .. "\\right) "end
		that.lowoperator = oper_id
		that.value = "\\operatorname{Im}" .. that.value
		return that 
	end,
	apply_function=function(func_name, ...)
		local para_info = {...}
		local this = #para_info == 1 and para_info[1] or p.tagmath.mathcomma(...)
		local that, oper_id = p.tagmath.toTagMath(this), '('
		local math_ext_funcs={["minimum"]="\\min",["maximum"]="\\max",["sin"]="\\sin",["cos"]="\\cos",["tan"]="\\tan",["sec"]="\\sec",["csc"]="\\csc",["cot"]="\\cot",
			["asin"]="\\arcsin",["acos"]="\\arccos",["atan"]="\\arctan",["asec"]="\\operatorname{arcsec}",["acsc"]="\\operatorname{arccsc}",["acot"]="\\operatorname{arccot}",
			["sinh"]="\\sinh",["cosh"]="\\cosh",["tanh"]="\\tanh",["sech"]="\\operatorname{sech}",["csch"]="\\operatorname{csch}",["coth"]="\\coth",
			["asinh"]="\\operatorname{arcsinh}",["acosh"]="\\operatorname{arccosh}",["atanh"]="\\operatorname{arctanh}",["asech"]="\\operatorname{arcsech}",["acsch"]="\\operatorname{arccsch}",["acoth"]="\\operatorname{arccoth}",
			["scalarPartQuaternion"]="\\operatorname{Scalar}",["vectorPartQuaternion"]="\\operatorname{Vector}",
			["sgn"]="\\sgn",["gamma"]="\\Gamma",["cis"]="\\operatorname{cis}",["eulerphi"]="\\varphi",["LambertW"]="W",
			["gcd"]="\\gcd",["lcm"]="\\operatorname{lcm}",["round"]="\\operatorname{round}",["arg"]="\\arg",["trunc"]="\\operatorname{trunc}",
			["gd"]="\\operatorname{gd}",["arcgd"]="\\operatorname{arcgd}",["cogd"]="\\operatorname{cogd}",
			["diag"]="\\operatorname{diag}",["det"]="\\det",["determinant"]="\\det",
			["adj"]="\\operatorname{adj}",["adjoint"]="\\operatorname{adj}"
		}
		local need_comm={["gamma"]=true,["eulerphi"]=true,["LambertW"]=true}
		local math_format_funcs={
			["factorial"]="%s!"
		}
		if ((#para_info == 1) and (this.lowoperator ~= '(') and (this.lowoperator ~= '')) or
			((#para_info == 1) and (math_ext_funcs[func_name] == nil or need_comm[func_name] == true) and (this.lowoperator == ''))then 
			that.value = "\\left( " .. that.value .. "\\right) "
		end

		that.lowoperator = oper_id
		if math_format_funcs[func_name] then
			that.value = mw.ustring.format(math_format_funcs[func_name], that.value)
		else
			that.value = (math_ext_funcs[func_name] or func_name) .. ' ' .. that.value
		end
		return that 
	end,
	apply_binary_operator = function(op1, op2, oper_id, oper_math,left_no,right_no)
		local left, right = p.tagmath.toTagMath(op1), p.tagmath.toTagMath(op2)
		if left.lowoperator ~= '(' and left.lowoperator ~= '' and
			((p.symbol_table[left.lowoperator] and p.symbol_table[left.lowoperator].ppriority and
			p.symbol_table[left.lowoperator].ppriority < p.symbol_table[oper_id].priority)) then
				if not left_no then
					left.value = "\\left( " .. left.value .. "\\right) " 
				end left.lowoperator = '('
		end
			
		if right.lowoperator ~= '(' and right.lowoperator ~= '' and 
			((p.symbol_table[right.lowoperator] and p.symbol_table[right.lowoperator].ppriority and
			p.symbol_table[right.lowoperator].ppriority < p.symbol_table[oper_id].priority)) then
				if not right_no then
					right.value = "\\left( " .. right.value .. "\\right) " 
				end right.lowoperator = '('
		end
			
		local low_operator = oper_id
		if ((p.symbol_table[left.lowoperator] or {ppriority=0}).ppriority or 0) ~= 0 then
			if p.symbol_table[left.lowoperator].ppriority < p.symbol_table[low_operator].ppriority then
				low_operator = left.lowoperator
			end
		end
		if ((p.symbol_table[right.lowoperator] or {ppriority=0}).ppriority or 0) ~= 0 then
			if p.symbol_table[right.lowoperator].ppriority < p.symbol_table[low_operator].ppriority then
				low_operator = right.lowoperator
			end
		end
		left.lowoperator = low_operator
		left.value = "{ {" .. left.value .. '}'  .. oper_math .. '{' .. right.value .. "} }"
		return left 
	end,
	TagMathMeta = {
		__add = function (op1, op2) 
			return p.tagmath.apply_binary_operator(op1,op2,'+','+')
		end,
		__sub = function (op1, op2) 
			return p.tagmath.apply_binary_operator(op1,op2,'-','-')
		end,
		__mul = function (op1, op2) 
			return p.tagmath.apply_binary_operator(op1,op2,'*',"\\times ")
		end,
		__div = function (op1, op2) 
			return p.tagmath.apply_binary_operator(op1,op2,'/',"\\div ")
		end,
		__tostring = function (this) return this.value end,
		__unm = function (this)
			local that, oper_id = p.tagmath.toTagMath(this), "- "
			if this.lowoperator ~= '(' and this.lowoperator ~= '' then that.value = "\\left( " .. that.value .. "\\right) "end
			that.lowoperator = oper_id
			that.value = "-{ " .. that.value .. "}"
			return that 
		end,
		__eq = function (op1, op2)return p.tagmath.tagMathString(op1).value == p.tagmath.tagMathString(op2).value end,
	},
	toTagMath = function(tagMathString)
		if type(tagMathString) == type({}) and tagMathString.numberType == "latex" then return tagMathString end
		if type(tagMathString) == type(nil) then return nil end
		local math_ext_const={["pi"]="\\pi",["π"]="\\pi",["°"]="{}^{\\circ}",["inf"]="\\infty",["nan"]="\\mathrm{NaN}",["nil"]="",["null"]=""}
		local TagMath = {}
		if (type(tagMathString) == type({})) and tagMathString.value ~= nil and tagMathString.lowoperator ~= nil then 
			TagMath = {value=tagMathString.value,lowoperator=tagMathString.lowoperator}
		else
			TagMath = {}
			TagMath.value = math_ext_const[tagMathString] or tagMathString
			TagMath.lowoperator = ''
		end
		setmetatable(TagMath,p.tagmath.TagMathMeta) 
		TagMath.numberType = "latex"
		return TagMath
	end,
	init = function()
		if comp_number == nil then comp_number = require("Module:Complex Number") end
		p.tagmath.zero = p.tagmath.toTagMath(0) 
		p.tagmath.one = p.tagmath.toTagMath(1) 
		p['nil'] = p.tagmath.toTagMath("")
		p.tagmath.noncalculate=true
		p.tagmath[0],p.tagmath[1] = p.tagmath.zero,p.tagmath.one
		new_meta = getmetatable( p.tagmath ) or {}
		new_meta.__index = function (this, func_name) 
			return function(...)return p.tagmath.apply_function(func_name, ...)end
		end
		setmetatable(p.tagmath,new_meta) 
		p.tagmath.numberType = comp_number._numberType
		p.tagmath.constructor = p.tagmath.toTagMath
		return p.tagmath
	end
}

return p