如何得到短除法？

xugaosong

请教要输出短除法用什么方法？效果如图

kuing

用表格应该能实现，但比较麻烦，况且还有右边那箭头可能得另外画，既然这样，我决定干脆直接整个都用 tikz 来画算了，时间关系写得很随便，仅供参考。

代码： duanchufatest.tex (1.16 KB, Downloads: 1165)

2016-5-17 03:23 Upload

Click on the file to download the attachment

用 xelatex 编译，效果：

xugaosong

回复 2# kuing


    辛苦了，我先学习学习．

kuing

今天讨论组群又提到这个短除法：

我就想起本帖，看了 9 年前 2# 的代码，是要人工计算每一行数值的，不太方便。

这次学习了 \tikzmath 的定义函数的玩法，实现了更自动化的画法：

1. \documentclass{article}
2. \usepackage{tikz}
3. \begin{document}
5. \usetikzlibrary{math,positioning}
6. \tikzmath{
7. int \q, \r, \i; coordinate \c; \c=(0,0);
8. function dcf(\n,\d){
9.     \i=0;
10.     {\node (q0) at (\c) {$\n$};};
11.     dcf2(\n,\d);
12. };
13. function dcf2(\n,\d){
14.     if \n == 0 then {} else {
15.         \q = \n/\d;
16.         \r = \n-\d*\q;
17.         {
18.             \coordinate (tmp) at (q\i.south east);
19.             \draw (q\i.north west) |- node[left,pos=0.25]{$\d$} (tmp);
20.         };
21.         \i = \i+1;
22.         {
23.             \node[below=0pt of tmp,anchor=north east] (q\i) {$\q$};
24.             \node[right=0pt of q\i] (r\i) {$\cdots\r$};
25.         };
26.         dcf2(\q,\d);
27.     };
28. };
29. }
31. % 666 的 2 进制
32. \tikz{\tikzmath{dcf(666,2);}}
34. % 2048 的 3 进制，加箭头
35. \tikz[>=latex]{
36. \tikzmath{dcf(2048,3);}
37. \draw[->] (r7.-90) -| (r1.north east);
38. }
40. \end{document}

Copy the Code

效果：

第二个图利用那些余数 node 的名字来加类似 2# 的箭头，(r1) 和 (r7) 就是（自上而下的）第一和第七个余数，商的则是 (q1) 等，(q0) 是最开头的被除数，都可以用。
另外，还可以在 dcf(...) 之前加一句 \c=(坐标); 来指定被除数的坐标（当需要一个图里画多个，或者图里还有其他东西时就可能有用（这里懒得演示））。

abababa

kuing 发表于 2025-6-26 00:53
今天讨论组群又提到这个短除法：

我想这个能不能画出表格，然后把不需要的那些表格线擦掉。