自定义考试积分表

Question

由于您要将问题部分的分数放在两列中，并且分数的数量是可变的，因此您需要将分数存储在某个地方，然后在最后生成整个表格。基于我的先前的想法，我会把分数放到LaTeX3序列，同时跟踪总分和得分数量。正如我在另一篇文章中所说，我将定义一个\GradeBook命令来生成自定义表格：

我不确定在使用时“多项选择题”和“自由回答题”是如何编码的考试这就是为什么我要求最小工作示例:)，因此在下面的代码中我使用了作弊手段，对这些标记进行了硬编码：

\def\multiplechoice{54}
\def\freeresponse{46}

除此之外，一切都是自动的。以下是完整代码：

\documentclass[addpoints]{exam}

\usepackage[table]{xcolor}
\usepackage{xparse,xpatch}
% redefine \part command to be \mypart
\appto\parts{\let\exampart\part\let\part\mypart}

\def\multiplechoice{54}
\def\freeresponse{46}
\makeatletter
\ExplSyntaxOn
% this will become a sequence of the part numbers and scores
% like: 1a&10&, 1b&8&, 1c&9&, 2a&6, 2b&8&, 3&12&, 4&14&, ...
\seq_new:N \g_part_scores_seq
\tl_new:N \g_grade_table_tl

\int_new:N \g_total_score_int% this will be the exam score
\int_new:N \g_number_of_scores_int
\NewDocumentCommand\mypart{o}{
  \IfNoValueTF{#1}{\exampart}{
    % don't do anything special inside solutions
    \if@insolution\exampart[#1]
    \else\exampart[#1]
      % store both the part number and score in \g_part_scores_seq
      % together with their column separators for the tabular env
      \tl_set:Nx \l_tmpa_tl { \arabic{question}\alph{partno} }
      \tl_put_right:Nn \l_tmpa_tl {&}
      \tl_put_right:No \l_tmpa_tl {#1}
      \tl_put_right:Nn \l_tmpa_tl {&}
      \seq_gput_right:No \g_part_scores_seq \l_tmpa_tl
      % increment the running total and number of scores
      \int_gadd:Nn \g_total_score_int {#1}
      \int_gincr:N \g_number_of_scores_int
    \fi
  }
}
% print row #1 of the part scores in the grade table
\cs_new:Nn \__add_row_to_grade_table:n {
   \tl_gput_right:Nx \g_grade_table_tl {\seq_item:Nn \g_part_scores_seq {#1}}
   \tl_gput_right:Nn \g_grade_table_tl { & }
   \tl_gput_right:Nx \g_grade_table_tl {\seq_item:Nn \g_part_scores_seq {#1+\g_number_of_scores_int/2}}
   \tl_gput_right:Nn \g_grade_table_tl {\\\hline}
}
\NewDocumentCommand\GradeTable{}{% the new grade table
  % we need an exam number of scores so add two
  % empty cells if we have an odd number
  \int_if_odd:nT {\g_number_of_scores_int} {
      \seq_gput_right:Nn \g_part_scores_seq {&}
      \int_ginc:N \g_number_of_scores_int
  }
  \int_gset:Nn \g_number_of_scores_int {\g_number_of_scores_int}
  \int_gadd:Nn \g_total_score_int { \multiplechoice }
  \int_gadd:Nn \g_total_score_int { \freeresponse }
  % create the grade table
  \tl_gclear:N \g_grade_table_tl
  \int_step_function:nnN {1} {\g_number_of_scores_int/2} \__add_row_to_grade_table:n
  \begin{tabular}{|c|c|c|c|c|c|}\hline\rowcolor{gray!20}
    Question & Points~Possible & Points~Earned & Question & Points~Possible & Points~Earned \\\hline
    \tl_use:N \g_grade_table_tl
    \multicolumn2{c|}{}&\multicolumn{2}{r|}{Multiple~Choice}
        & \multiplechoice & \\\cline{3-6}
    \multicolumn2{c|}{}&\multicolumn{2}{r|}{Free~response}
        & \freeresponse   & \\\cline{3-6}
    \multicolumn2{c|}{}&\multicolumn{2}{r|}{\textit{Exam~total}}
        & \int_use:N \g_total_score_int & \\\cline{3-6}
  \end{tabular}
}
\ExplSyntaxOff
\makeatother

\begin{document}

  \begin{questions}
    \question
      What if there were no air?
      \begin{parts}
        \part[4]
        Describe the effect on the balloon industry.
        \part[6]
        Describe the effect on the aircraft industry.
      \end{parts}

    \question
      \begin{parts}
        \part[12]
        Define the universe.
        Give three examples.
        \part[8]
        If the universe were to end, how would you know?
      \end{parts}
  \end{questions}

  \GradeTable

\end{document}

编辑

以下是更新内容（和流线型) 版本的上述代码将数据保存到辅助文件并将其读回以构建成绩表。这样，您可以将表格放在任何您喜欢的地方，包括在文档的开头，但也意味着您必须对文件进行两次 LaTeX 处理，才能看到任何分数。

在编译该文档两次或更多次之后，更新后的 MWE 给出以下输出：

这与之前大致相同，只是表格现在位于文档顶部。如果您只编译一次文档，则成绩表将没有单个问题或其部分的分数，总分将为 0。以下是更新后的代码：

\documentclass[addpoints]{exam}

\usepackage[table]{xcolor}
\usepackage{xparse,xpatch,etoolbox}

% redefine \question command to be \myquest
\appto\questions{\let\examquestion\question\let\question\myquestion}
% redefine \part command to be \mypart
\appto\parts{\let\exampart\part\let\part\mypart}

\def\multiplechoice{5}
\def\freeresponse{6}
\makeatletter
\ExplSyntaxOn
% this will become a sequence of the part numbers and scores
% like: 1a,10,1b,8,1c,9,2a,6,2b,8,3,12,4,14, ...
\clist_new:N \g_grades_clist
\clist_new:N \g_grades_aux_clist

\int_new:N \g_row_int
\int_new:N \g_multiple_choice_int
\int_new:N \g_free_response_int
\int_new:N \g_grade_total_int
\int_new:N \g_number_of_scores_int

% add a question/part number and score to \g_grades_clist
\cs_new:Nn \__add_to_grades_list:nn {
  \clist_gput_right:Nx \g_grades_clist { #1 }
  \clist_gput_right:Nx \g_grades_clist { #2 }
}

\NewDocumentCommand\myquestion{o}{
  \IfNoValueTF{#1}{\examquestion}{
    % don't do anything special inside solutions
    \if@insolution\examquestion[#1]
    \else\examquestion[#1]
      % store both the part number and score in \g_grades_clist
      \__add_to_grades_list:nn { \arabic{question} } { #1 }
    \fi
  }
}

\NewDocumentCommand\mypart{o}{
  \IfNoValueTF{#1}{\exampart}{
    % don't do anything special inside solutions
    \if@insolution\exampnrt[#1]
    \else\exampart[#1]
      % store both the part number and score in \g_grades_clist
      \__add_to_grades_list:nn { \arabic{question}\alph{partno} } { #1 }
    \fi
  }
}

\AtEndDocument{
  \iow_now:cx { @auxout } {
    \token_to_str:N \SetGradeList { \g_grades_clist  } ^^J
    \token_to_str:N \SetMultipleChoice {\multiplechoice} ^^J
    \token_to_str:N \SetFreeResponse   {\freeresponse} ^^J
  }
}
% set grade list, multiple choice and free responses from the aux file
\NewDocumentCommand\SetGradeList{m}{\clist_gset:Nn \g_grades_aux_clist {#1}}
\NewDocumentCommand\SetMultipleChoice{m}{\int_gset:Nn \g_multiple_choice_int {#1}}
\NewDocumentCommand\SetFreeResponse{m}{\int_gset:Nn \g_free_response_int {#1}}
% print row #1 of the part scores in the grade table
\cs_new:Nn \__add_row_to_grade_table: {
     \int_gincr:N \g_row_int
       \clist_item:Nn \g_grades_aux_clist {2*\g_row_int-1}
      &\clist_item:Nn \g_grades_aux_clist {2*\g_row_int}
       \int_gadd:Nn \g_grade_total_int {\clist_item:Nn \g_grades_aux_clist {2*\g_row_int}}
     &&
     \int_compare:nTF {2*\g_row_int+\g_number_of_scores_int <= \clist_count:N \g_grades_aux_clist }{
       \clist_item:Nn \g_grades_aux_clist {2*\g_row_int+\g_number_of_scores_int-1}
      &\clist_item:Nn \g_grades_aux_clist {2*\g_row_int+\g_number_of_scores_int}
        \int_gadd:Nn \g_grade_total_int {\clist_item:Nn \g_grades_aux_clist {2*\g_row_int+\g_number_of_scores_int}}
     }{&}
     &\\\hline
     \int_compare:nT {\g_row_int < \g_number_of_scores_int/2} { \__add_row_to_grade_table: }
}
\NewDocumentCommand\PrintGradeTable{}{% the new grade table
  % we need an exam number of scores so add two
  % empty cells if we have an odd number
  \int_set:Nn \g_number_of_scores_int {(\clist_count:N \g_grades_aux_clist)/2}
  \int_if_odd:nT {\g_number_of_scores_int} {
      \int_add:Nn \g_number_of_scores_int {1}
  }
  \int_gzero:N \g_row_int % a counter to step through the rows
  \int_add:Nn \g_grade_total_int { \g_multiple_choice_int }
  \int_add:Nn \g_grade_total_int { \g_free_response_int }
  % create the grade table
  \begin{tabular}{|c|c|c|c|c|c|}\hline\rowcolor{gray!20}
    Question & Points~Possible & Points~Earned & Question & Points~Possible & Points~Earned \\\hline
    % the number of rows that we need is \g_number_of_scores_int/2
    \int_compare:nT {\g_number_of_scores_int>0} { \__add_row_to_grade_table: }
    \multicolumn2{c|}{}&\multicolumn{2}{r|}{Multiple~Choice}
        & \int_use:N \g_multiple_choice_int & \\\cline{3-6}
    \multicolumn2{c|}{}&\multicolumn{2}{r|}{Free~response}
        & \int_use:N \g_free_response_int   & \\\cline{3-6}
    \multicolumn2{c|}{}&\multicolumn{2}{r|}{\textit{Exam~total}}
        & \int_use:N \g_grade_total_int & \\\cline{3-6}
  \end{tabular}
}
\ExplSyntaxOff
\makeatother

\begin{document}

  \PrintGradeTable

  \begin{questions}
    \question
      \begin{parts}
        \part[1]
        \part[2]
      \end{parts}
    \question
      \begin{parts}
          \part[4]
          \part[2]
      \end{parts}
    \question
      \begin{parts}
          \part[2]
          \part[4]
          \part[4]
          \part[1]
        \end{parts}
    \question[5]
  \end{questions}

\end{document}

代码可能比以前简单了。主要变化如下：

与新的 MWE 一样，我添加了\myquestion一个新命令\__add_to_grades_list:nn，用于将问题/部分标签和分数添加到成绩列表中
- 我现在不再使用序列，而是使用 clists（=逗号分隔列表），因为这与辅助文件配合使用效果更好
- 成绩数据保存到辅助文件中，然后读回\g_grades_aux_clist
- 成绩表现已打印到位
- 我仍然对多项选择题和自由回答题的标记进行硬编码，但我添加了代码来将这些值保存到辅助文件中
- 新版本进行了徒手循环，以避免 overleaf 和 TeXLive 2019 尚未移植到 ubuntu 的潜在问题

编译该文档一次后，您将在 aux 文件中找到以下几行：

\SetGradeList{1a,1,1b,2,2a,4,2b,2,3a,2,3b,4,3c,4,3d,1,4,5}
\SetMultipleChoice{5}
\SetFreeResponse{6}

这是用于构建等级表的数据。

\SetFreeResponse{6}

Answer 1