使用循环创建表

Question 1

一个简单的解决方案pgfplotstable。

我已经用从头开始创建了所需行数的表\pgfplotstablenew，然后用显示它\pgfplotstabletypeset。

设置的列样式\pgfplotstableset是完全可定制的。

\documentclass{article}
\usepackage{array,booktabs,pgffor}
\newcommand{\myhrule}{\rule{1cm}{0.5pt}}
\usepackage{pgfplotstable}
\pgfplotsset{compat=1.14}
\begin{document}
%set the columns style and content
\pgfplotstableset{
    create on use/new/.style={create col/expr={\pgfplotstablerow+1}},
    columns/new/.style={column name={\(i\)},column type={p{0.5cm}}},
    create on use/emme/.style={create col/set={\myhrule}},
    columns/emme/.style={column name={\(m\)},string type, column type={>{\centering\arraybackslash}p{2cm}}},
    create on use/pi/.style={create col/copy={emme}},
    columns/pi/.style={column name={\(P\)},string type, column type={>{\centering\arraybackslash}p{2cm}}},
    create on use/yup/.style={create col/copy={emme}},
    columns/yup/.style={column name={\(y_{m}\)},string type, column type={>{\centering\arraybackslash}p{2cm}}},
    }
%create a table with the desidered number of rows
\pgfplotstablenew[
    columns={new, emme, pi, yup}
    ]{9}% <--- put here the number of rows you like
    \loadedtable
%display the table
\pgfplotstabletypeset[
    every last row/.style={after row=\bottomrule},
    every head row/.style={before row=\toprule,after row=\midrule},
    ]\loadedtable

\end{document}

Answer

一个简单的解决方案pgfplotstable。

我已经用从头开始创建了所需行数的表\pgfplotstablenew，然后用显示它\pgfplotstabletypeset。

设置的列样式\pgfplotstableset是完全可定制的。

\documentclass{article}
\usepackage{array,booktabs,pgffor}
\newcommand{\myhrule}{\rule{1cm}{0.5pt}}
\usepackage{pgfplotstable}
\pgfplotsset{compat=1.14}
\begin{document}
%set the columns style and content
\pgfplotstableset{
    create on use/new/.style={create col/expr={\pgfplotstablerow+1}},
    columns/new/.style={column name={\(i\)},column type={p{0.5cm}}},
    create on use/emme/.style={create col/set={\myhrule}},
    columns/emme/.style={column name={\(m\)},string type, column type={>{\centering\arraybackslash}p{2cm}}},
    create on use/pi/.style={create col/copy={emme}},
    columns/pi/.style={column name={\(P\)},string type, column type={>{\centering\arraybackslash}p{2cm}}},
    create on use/yup/.style={create col/copy={emme}},
    columns/yup/.style={column name={\(y_{m}\)},string type, column type={>{\centering\arraybackslash}p{2cm}}},
    }
%create a table with the desidered number of rows
\pgfplotstablenew[
    columns={new, emme, pi, yup}
    ]{9}% <--- put here the number of rows you like
    \loadedtable
%display the table
\pgfplotstabletypeset[
    every last row/.style={after row=\bottomrule},
    every head row/.style={before row=\toprule,after row=\midrule},
    ]\loadedtable

\end{document}

Question 2

这是基于 LuaLaTeX 的答案。无需软件包pgffor。

% !TEX TS-program = lualatex
\documentclass{article}
\usepackage{array,booktabs}
\newcolumntype{C}[1]{>{\centering\arraybackslash}p{#1}}
\newcommand{\myhrule}{\rule{1cm}{0.5pt}}

\usepackage{luacode}
\begin{luacode}

function print_line (i)
  tex.sprint(i.."&\\myhrule&\\myhrule&\\myhrule\\\\")
end

\end{luacode}

\begin{document}
\begin{tabular}{@{} p{0.5cm} *{3}{C{2cm}} @{}}
\toprule
\(i\) & \(m\) & \(P\)  & \(y_{m}\) \\
\midrule
\directlua{ for i = 1 , 10 do print_line ( i ) end }
\bottomrule
\end{tabular}
\end{document}

附录：假设您想要通用化 Lua 代码，以便它在强制换行之前打印J而不是总是3复制。假设，假设，您所要做的就是 (a) 替换&\\myhruleJ=5

function print_line (i)
  tex.sprint(i.."&\\myhrule&\\myhrule&\\myhrule\\\\")
end

和

function print_line (i,J)
  tex.sprint(i)
  for j=1,J do tex.sprint("&\\myhrule") end
  tex.sprint("\\\\")
end

（b）改变函数调用

print_line ( i )

到

print_line ( i , 5)

\directlua在环境中后续指令的参数中tabular。

Answer

这是基于 LuaLaTeX 的答案。无需软件包pgffor。

% !TEX TS-program = lualatex
\documentclass{article}
\usepackage{array,booktabs}
\newcolumntype{C}[1]{>{\centering\arraybackslash}p{#1}}
\newcommand{\myhrule}{\rule{1cm}{0.5pt}}

\usepackage{luacode}
\begin{luacode}

function print_line (i)
  tex.sprint(i.."&\\myhrule&\\myhrule&\\myhrule\\\\")
end

\end{luacode}

\begin{document}
\begin{tabular}{@{} p{0.5cm} *{3}{C{2cm}} @{}}
\toprule
\(i\) & \(m\) & \(P\)  & \(y_{m}\) \\
\midrule
\directlua{ for i = 1 , 10 do print_line ( i ) end }
\bottomrule
\end{tabular}
\end{document}

附录：假设您想要通用化 Lua 代码，以便它在强制换行之前打印J而不是总是3复制。假设，假设，您所要做的就是 (a) 替换&\\myhruleJ=5

function print_line (i)
  tex.sprint(i.."&\\myhrule&\\myhrule&\\myhrule\\\\")
end

和

function print_line (i,J)
  tex.sprint(i)
  for j=1,J do tex.sprint("&\\myhrule") end
  tex.sprint("\\\\")
end

（b）改变函数调用

print_line ( i )

到

print_line ( i , 5)

\directlua在环境中后续指令的参数中tabular。

Question 3

首次实施：

\documentclass{article}
\usepackage{array,booktabs}
\usepackage{xparse}

\newcommand{\myhrule}{\rule{1cm}{0.4pt}}

\ExplSyntaxOn

\NewDocumentCommand{\makeruledtabular}{mm}
 {% #1 = number of rows, #2 = header
  \begin{tabular}{r w{c}{2cm} w{c}{2cm} @{}}
  \toprule
  #2 \\
  \midrule
  \int_step_function:nN {#1} \__hafid_ruledtabular_line:n
  \bottomrule
  \end{tabular}
 }

\cs_new_protected:Nn \__hafid_ruledtabular_line:n
 {
  #1 & \myhrule & \myhrule \\
 }

\ExplSyntaxOff

\begin{document}

\makeruledtabular{10}{\multicolumn{1}{c}{\(i\)} & \(P\) & \(y_{m}\) }

\end{document}

更通用的实现：列数由标题确定。

\documentclass{article}
\usepackage{array,booktabs}
\usepackage{xparse}

\newcommand{\myhrule}{\rule{1cm}{0.4pt}}

\ExplSyntaxOn

\NewDocumentCommand{\makeruledtabular}{mm}
 {% #1 = number of rows, #2 = header
  \hafid_ruledtabular:nn { #1 } { #2 }
 }

\seq_new:N \l__hafid_ruledtabular_header_seq
\tl_new:N \l__hafid_ruledtabular_first_tl

\cs_new_protected:Nn \hafid_ruledtabular:nn
 {
  % absorb the header as a sequence
  \seq_set_split:Nnn \l__hafid_ruledtabular_header_seq { & } { #2 }
  % split off the first item, which should be centered
  \seq_pop_left:NN \l__hafid_ruledtabular_header_seq \l__hafid_ruledtabular_first_tl
  % Define the auxiliary function based on the number of items in the header
  % At the end, if the header is 'A & B & C & D`, the function will be
  % defined to do '#1 & \myhrule & \myhrule & \myhrule \\', where #1 stands
  % for the current index in the loop
  \cs_set_protected:Nx \__hafid_ruledtabular_line:n
   {
    ##1
    \prg_replicate:nn { \seq_count:N \l__hafid_ruledtabular_header_seq }
     { & \exp_not:N \myhrule }
    \exp_not:N \\
   }
  \begin{tabular}
   {
    r
    *{ \seq_count:N \l__hafid_ruledtabular_header_seq } { w{c}{2cm} }
    @{}
   }
  \toprule
  \multicolumn{1}{c}{\tl_use:N \l__hafid_ruledtabular_first_tl} &
  \seq_use:Nn \l__hafid_ruledtabular_header_seq { & } \\
  \midrule
  \int_step_function:nN {#1} \__hafid_ruledtabular_line:n
  \bottomrule
  \end{tabular}
 }

\ExplSyntaxOff


\begin{document}

\makeruledtabular{10}{\(i\) & \(P\) & \(y_{m}\) }

\bigskip

\makeruledtabular{15}{A & B & C & D}

\end{document}

这个想法是，在处理其他任何事情之前，表单的循环..._function:...将传递整个循环，因此对于包含三行的三列表，我们将得到

\__hafid_ruledtabular_line:n { 1 }
\__hafid_ruledtabular_line:n { 2 }
\__hafid_ruledtabular_line:n { 3 }

只有在此之后，TeX 才会开始处理第一项，因此得到

1 & \myhrule & \myhrule \\
2 & \myhrule & \myhrule \\
3 & \myhrule & \myhrule \\

产生完整的表体。

Answer