基于tkz-elements的一个回答，优点是便于控制双曲线的各个指标，直接获得渐近线：

% lualatex needed
\documentclass[border=1cm]{standalone}
% \usepackage[times]{fontsetup}
\usepackage[mini]{tkz-euclide}
\usepackage{tkz-elements}
\begin{document}
\directlua{
    z.p0 = point(-2, 2)
    local a, b = 2, 1
    L.axis = line(z.p0, z.p0 + point(2, 2))
    local c = math.sqrt(a * a + b * b)
    z.F1 = L.axis:report(c)
    z.F2 = L.axis:report(-c)
    CO.H = conic(HY_bifocal(z.F1, z.F2, a))
    z.V1 = CO.H.vertex
    z.V2 = z.V1:symmetry(z.p0)
    PA.H1 = CO.H:points(-10, 10, 100)
    PA.H2 = CO.H:points(-10, 10, 100, "swap")
    L.A1, L.A2 = CO.H:asymptotes()
    z.asym1u, z.asym1v = L.A1:get()
    z.asym2u, z.asym2v = L.A2:get()
    z.xpos = point(2, 6)
    z.xneg = point(-6, -2)
    z.ypos = point(-6, 6)
    z.yneg = point(3, -3)
}
    \begin{tikzpicture}[myarrow/.style={-latex,thick}]
    \tkzGetNodes
    \path[use as bounding box] (-6,-3) rectangle (3,6);
    \draw[myarrow] (-7,0) -- (4,0);
    \draw[myarrow] (0,-4) -- (0,6);
    \draw[myarrow] (xneg) -- (xpos);
    \draw[myarrow] (yneg) -- (ypos);
    \tkzDrawCoordinates[smooth,magenta](PA.H1)
    \tkzDrawCoordinates[smooth,magenta](PA.H2)
    \tkzDrawSegments[dashed](V1,V2)
    \tkzDrawLines[dashed,cyan,add=15 and 15](asym1u,asym1v asym2u,asym2v)
    \end{tikzpicture}
\end{document}

好消息

在LiamHuang的黑魔法下，最新版（>=v3.10.5-rc1）的xeCJKfntef已经修复了这个硬骨头：

\documentclass{article}
\parindent=0pt
\usepackage{xeCJK}
\usepackage{xeCJKfntef}
\begin{document}
    天地玄黄宇宙洪荒日月盈昃辰宿列张史记赵世家寒来暑往秋收冬藏闰余成岁律吕调阳云腾致雨露结为霜金生丽水玉出昆冈
    \medskip

    天地玄黄宇宙洪荒日月盈昃辰宿列张\CJKunderwave-{史记}\CJKunderwave-{赵世家}寒来暑往秋收冬藏闰余成岁律吕调阳云腾致雨露结为霜金生丽水玉出昆冈
    \medskip
    
    天地玄黄宇宙洪荒日月盈昃辰宿列张\CJKunderline-{史记}\CJKunderline-{赵世家}寒来暑往秋收冬藏闰余成岁律吕调阳云腾致雨露结为霜金生丽水玉出昆冈
    \medskip
    
    天地玄黄宇宙洪荒日月盈昃辰宿列张\CJKunderdot{史记}\CJKunderline-{\CJKunderdot{赵世家}}寒来暑往秋收冬藏闰余成岁律吕调阳云腾致雨露结为霜金生丽水玉出昆冈
    \medskip
    
    张\CJKunderwave-{史记}\CJKunderwave-{赵世家}寒
    \medskip
    
    张\CJKunderline-{史记}\CJKunderline-{赵世家}寒
    \medskip
    
    张\CJKunderdot{史记}\CJKunderline-{\CJKunderdot{赵世家}}寒
\end{document}

希望没有什么副作用...

\documentclass{article}
\usepackage[no-math]{fontspec}
\usepackage{unicode-math}
\setmathfont{latinmodern-math.otf}
\setmathfont[
    range={
        up/{num,latin,Latin,greek,Greek},
        it/{latin,Latin,greek,Greek},
        bfup/{num,latin,Latin,greek,Greek},
        bfit/{latin,Latin,greek,Greek},
        "0021,"002C,"002E,"003B,"003F
        }
]{texgyretermes-math.otf}
\DeclareSymbolFont{yhlargesymbols}{OMX}{yhex}{m}{n}
\Udelcode 40 = \symyhlargesymbols 0
\Udelcode 41 = \symyhlargesymbols 1
\begin{document}

123abcABC,.;?! +-*/

$123abcABC,.;?!\alpha\beta\Gamma\Delta$ 

\[
\iint_S \vec{F}\cdot d\vec{S},
\oint_C \vec{B}\cdot d\vec{l},
\sum_{i=1}^{N}a_i,
\prod_{k=1}^{n}(x-x_k)
\]

\[
\begin{bmatrix}
    \dfrac{\partial^2 f}{\partial x^2} &
    \dfrac{\partial^2 f}
    {\partial x \partial y} \\
    \dfrac{\partial^2 f}
    {\partial x \partial y} &
    \dfrac{\partial^2 f}{\partial y^2}
\end{bmatrix} 
=
\begin{pmatrix}
            a_{11} & a_{12} & \cdots & a_{1n} \\
            a_{21} & a_{22} & \cdots & a_{2n} \\
            \vdots & \vdots & \ddots & \vdots \\
            a_{n1} & a_{n2} & \cdots & a_{nn}
\end{pmatrix}
\]    

\end{document}

使用unicode-math包加载外置字体，基本实现，但是矩阵的括号()压扁变丑、运算符sum变窄难看；使用usepackage[no-math]{fontspec}

没看明白..代码里好像也没体现...

想把数学公式中的数字、字母、希腊字母、sin、cos、lim等排版成times字体，积分号、sum、[]、{}、()保留原有的美观性

这和ctexbook,siunitx好像都没什么关系... 另外AI生成的测试代码太长了...不想看...可以试试这个range的方法...

\documentclass{article}
\usepackage[no-math]{fontspec}
\usepackage{unicode-math}
\setmathfont{latinmodern-math.otf}
\setmathfont[
  range={
    up/{num,latin,Latin,greek,Greek},
    it/{latin,Latin,greek,Greek},
    bfup/{num,latin,Latin,greek,Greek},
    bfit/{latin,Latin,greek,Greek},
    "0021,"002C,"002E,"003B,"003F
  }
]{texgyretermes-math.otf}

\begin{document}

123abcABC,.;?! +-*/

$123abcABC,.;?!\alpha\beta\Gamma\Delta$ 

\[
\iint_S \vec{F}\cdot d\vec{S},
\oint_C \vec{B}\cdot d\vec{l},
\sum_{i=1}^{N}a_i,
\prod_{k=1}^{n}(x-x_k)
\]

\[
\begin{bmatrix}
    \dfrac{\partial^2 f}{\partial x^2} &
    \dfrac{\partial^2 f}
    {\partial x \partial y} \\
    \dfrac{\partial^2 f}
    {\partial x \partial y} &
    \dfrac{\partial^2 f}{\partial y^2}
\end{bmatrix} 
=
\begin{pmatrix}
            a_{11} & a_{12} & \cdots & a_{1n} \\
            a_{21} & a_{22} & \cdots & a_{2n} \\
            \vdots & \vdots & \ddots & \vdots \\
            a_{n1} & a_{n2} & \cdots & a_{nn}
\end{pmatrix}
\]    

\end{document}

我尝试了一下，正确的逐次编译命令可以是：

  xelatex mwe.tex
  makeglossaries mwe
  makeindex -o nouns.ind nouns.idx
  makeindex -o persons.ind persons.idx
  xelatex mwe.tex
  xelatex mwe.tex

注意这里的「makeglossaries mwe」这个命令是不会 自动 被「latexmk」接管的（可以通过latexmkrc来控制），可以找一个「最简单的makeglossaries」的例子试试，然后再看看texstudio要如何编译出「术语表」。

对于这类比较完整的书籍项目，可以考虑模仿「lshort-zh-cn」等项目（让ai辅助）写一个项目级别的latexmkrc文件，这样只要把默认recipe设置为latexmk则可以高枕无忧了...

\documentclass[fontset=fandol]{ctexart}
\usepackage{tikz,tabularray,amsmath,graphicx,showframe}
\begin{document}
\begin{center}
\zihao{-6}
\begin{minipage}{.5\linewidth}
\centering
\begin{tblr}{baseline=c,columns={c,m},hlines,vlines}
级数 & 名称 & {风速大小\\(单位: $\mathrm{m/s}$)}\\
2 & 轻风 & $1.6\,\text{{}\~{}}\,3.3$ \\
3 & 微风 & $3.4\,\text{{}\~{}}\,5.4$ \\
4 & 和风 & $5.5\,\text{{}\~{}}\,7.9$ \\
5 & 劲风 & $8.0\,\text{{}\~{}}\,10.7$ \\
\end{tblr}\\[1ex]图1
\end{minipage}%
\begin{minipage}{.5\linewidth}
\centering  
\begin{tikzpicture}[baseline={(current bounding box.center)},scale=.6875]
  \draw[dash pattern=on 2pt off 2pt,gray] (0,0) grid (3,3);
  \draw[-stealth] (-.5,0) -- (3.5,0);
  \draw[-stealth] (0,-.5) -- (0,3.5);
  \draw[-stealth] (3,3)   -- (0,2);
  \draw[-stealth] (2,0)   -- (3,3);
  \foreach \x in {1,2,3} {
    \node at (\x,0) [below]      {$\x$};
    \node at (0,\x) [left]       {$\x$};
}
  \node at (0,0)    [below left] {$O$};
  \node at (3.5,0)  [below]      {$x$};
  \node at (0,3.5)  [left]       {$y$};
  \node at (1,3)    [below]      {视风风速};
  \node at (2.5,0)  [above]      {船速};
\end{tikzpicture}\\[1ex]图2
\end{minipage}
\end{center}

\bigskip

\newsavebox{\tmpbox}
\newcommand{\matchtmpboxdepth}[1]{%
  \raisebox{-\dp\tmpbox}{#1}%
}
\begin{lrbox}{\tmpbox}%
\zihao{-6}%
\begin{tblr}{baseline=c,columns={c,m},hlines,vlines}
级数 & 名称 & {风速大小\\(单位: $\mathrm{m/s}$)}\\
2 & 轻风 & $1.6\,\text{{}\~{}}\,3.3$ \\
3 & 微风 & $3.4\,\text{{}\~{}}\,5.4$ \\
4 & 和风 & $5.5\,\text{{}\~{}}\,7.9$ \\
5 & 劲风 & $8.0\,\text{{}\~{}}\,10.7$ \\
\end{tblr}%
\end{lrbox}

\begin{center}
\zihao{-6}
\begin{minipage}{.5\linewidth}
\centering
\usebox{\tmpbox}\\[1ex]图1%
\end{minipage}%
\begin{minipage}{.5\linewidth}
\centering  
\matchtmpboxdepth{%
\resizebox{!}{\dimexpr\ht\tmpbox+\dp\tmpbox\relax}{%
\begin{tikzpicture}
  \draw[dash pattern=on 2pt off 2pt,gray] (0,0) grid (3,3);
  \draw[-stealth] (-.5,0) -- (3.5,0);
  \draw[-stealth] (0,-.5) -- (0,3.5);
  \draw[-stealth] (3,3)   -- (0,2);
  \draw[-stealth] (2,0)   -- (3,3);
  \foreach \x in {1,2,3} {
    \node at (\x,0) [below]      {$\x$};
    \node at (0,\x) [left]       {$\x$};
}
  \node at (0,0)    [below left] {$O$};
  \node at (3.5,0)  [below]      {$x$};
  \node at (0,3.5)  [left]       {$y$};
  \node at (1,3)    [below]      {视风风速};
  \node at (2.5,0)  [above]      {船速}; 
   \draw[red, dashed, thick, overlay]
    ([xshift=.5\pgflinewidth,yshift=.5\pgflinewidth]current bounding box.south west) rectangle 
    ([xshift=-.5\pgflinewidth,yshift=-.5\pgflinewidth]current bounding box.north east);
\end{tikzpicture}
}}\\[1ex]图2
\end{minipage}
\end{center}

\begin{center}
\zihao{-6}
\begin{minipage}{.5\linewidth}
\centering
\usebox{\tmpbox}\\[1ex]图1%
\end{minipage}%
\begin{minipage}{.5\linewidth}
\centering  
\matchtmpboxdepth{%
  \includegraphics[height=\dimexpr\ht\tmpbox+\dp\tmpbox\relax]{example-image-duck}%
}
\\[1ex]图2
\end{minipage}
\end{center}

\end{document}

真实的题目排版里是不是也不是非要「严格对齐」不可呢？考虑到代码的可读性，直接用例如scale=0.65我个人觉得也是合适的。

不建议用LaTeX的宏包来实现这种自动化。

IMHO...应该vibecoding一个简易的APP来记录更靠谱

srds...基于tabularray以及functional库是可以实现的，就是逻辑可能要做很多判断...

先简化例子

\documentclass[a4paper,landscape]{article}
\usepackage[fontset=fandol]{ctex}
\usepackage{xcharter-otf}
\usepackage[hmargin=1.2cm,vmargin=1.8cm]{geometry}
\usepackage{tabularray}
\usepackage{ninecolors}
\usepackage{xcolor}

\newcommand{\zz}[1]{\ifnum#1<10 0#1\else#1\fi}
\pagecolor{cyan!10}

\begin{document}
\title{\Large 血糖监测记录本}
\author{姓名：\underline{\hspace{4cm}} \quad 正常空腹：4.4～7.0 mmol/L}
\date{}
\maketitle

{\centering
\begin{longtblr}[caption={血糖记录本}]
{
  colspec = {*{9}{c}Q[8cm,c]},
  vlines,hlines,rowhead = 1,
  column{3} = {bg=pink!15},
  column{4-5} = {bg=green!15},
  column{6-7} = {bg=orange!15},
  column{8-9} = {bg=blue!15}
}
    日期 & 星期 & 空腹 & 早餐后1h & 早餐后2h & 午餐后1h & 午餐后2h & 晚餐后1h & 晚餐后2h & 备注 \\
    % 6月第4周 22-28（带实测数据）
    2026-\zz{6}-\zz{22}& 周一 &5.6 & & & 5.6 & 6.7 & & 7.8 & \\
    2026-\zz{6}-\zz{23}& 周二 & & & & & & & & \\
    2026-\zz{6}-\zz{24}& 周三 &2.33 & & & & & & & \\
    2026-\zz{6}-\zz{25}& 周四 &9.0 & & &  & & & & \\
    2026-\zz{6}-\zz{26}& 周五 &6.7(8:56) & & &7.3(13:41) & & &6.2(21:17) & 午餐后快步走40分钟 \\
    2026-\zz{6}-\zz{27}& 周六 &6.7(8:55) & & &6.8(14:09) & &7.0(20:44) & & 早餐、午餐后快步走40分钟；晚餐后混氧运动 \\
    2026-\zz{6}-\zz{28}& 周日 &6.0(9:12) & & & & & & &早餐后混氧运动 \\
    \SetCell[c=10]{l}{} & & & & & & & & & \\
\end{longtblr}
}

\end{document}

基于简化问题的“自动化”代码

\documentclass[a4paper,landscape]{article}
\usepackage[fontset=fandol]{ctex}
\usepackage{xcharter-otf}
\usepackage[hmargin=1.2cm,vmargin=1.8cm]{geometry}
\usepackage{tabularray}
\UseTblrLibrary{functional}
\usepackage{ninecolors}
\usepackage{xcolor}

\newcommand{\zz}[1]{\ifnum#1<10 0#1\else#1\fi}
\pagecolor{cyan!10}

\IgnoreSpacesOn
\prgNewFunction \SugarReadingValue { m } {
  \regexExtractOnceTF { \A \s* ([0-9]+ (?: \. [0-9]+)?) } {#1} \lTmpaSeq {
    \prgReturn { \seqVarItem \lTmpaSeq {2} }
  } {
    \prgReturn {}
  }
}

\prgNewFunction \SugarValuesFromCells { m m m M } {
  \clistClear #4
  \intStepOneInline {#1} {#2} {
    \clistMapVariable {#3} \lTmpbTl {
      \tlSet \lTmpaTl { \SugarReadingValue { \cellGetText {##1} {\tlUse \lTmpbTl} } }
      \tlVarIfEmptyF \lTmpaTl {
        \clistPutRight #4 { \tlUse \lTmpaTl }
      }
    }
  }
}

\prgNewFunction \SugarValuesMax { M } {
  \clistVarIfEmptyTF #1 {
    \prgReturn {}
  } {
    \clistGet #1 \lTmpaTl
    \clistVarMapInline #1 {
      \fpCompareT {##1} > { \lTmpaTl } {
        \tlSet \lTmpaTl {##1}
      }
    }
    \prgReturn { \tlUse \lTmpaTl }
  }
}

\prgNewFunction \SugarValuesMin { M } {
  \clistVarIfEmptyTF #1 {
    \prgReturn {}
  } {
    \clistGet #1 \lTmpaTl
    \clistVarMapInline #1 {
      \fpCompareT {##1} < { \lTmpaTl } {
        \tlSet \lTmpaTl {##1}
      }
    }
    \prgReturn { \tlUse \lTmpaTl }
  }
}

\prgNewFunction \SugarValuesMean { M } {
  \clistVarIfEmptyTF #1 {
    \prgReturn {}
  } {
    \fpZero \lTmpaFp
    \clistVarMapInline #1 {
      \fpAdd \lTmpaFp {##1}
    }
    \prgReturn { \fpEval { round((\fpUse \lTmpaFp) / \clistVarCount #1, 2) } }
  }
}

\prgNewFunction \FillSugarWeekStats { } {
  \SugarValuesFromCells {2} {8} {3} \lTmpaClist
  \SugarValuesFromCells {2} {8} {4,6,8} \lTmpbClist
  \SugarValuesFromCells {2} {8} {5,7,9} \lTmpcClist
  \cellSetText {9} {1} {
    \textbf{
      空腹：最高 \SugarValuesMax \lTmpaClist，最低 \SugarValuesMin \lTmpaClist，均值 \SugarValuesMean \lTmpaClist；
      餐后1h：最高 \SugarValuesMax \lTmpbClist，最低 \SugarValuesMin \lTmpbClist，均值 \SugarValuesMean \lTmpbClist；
      餐后2h：最高 \SugarValuesMax \lTmpcClist，最低 \SugarValuesMin \lTmpcClist，均值 \SugarValuesMean \lTmpcClist
    }
  }
}
\IgnoreSpacesOff

\begin{document}
\title{\Large 血糖监测记录本}
\author{姓名：\underline{\hspace{4cm}} \quad 正常空腹：4.4～7.0 mmol/L}
\date{}
\maketitle

{\centering
\begin{longtblr}[caption={血糖记录本}]
{
  colspec = {*{9}{c}Q[8cm,c]},
  vlines,hlines,rowhead = 1,
  column{3} = {bg=pink!15},
  column{4-5} = {bg=green!15},
  column{6-7} = {bg=orange!15},
  column{8-9} = {bg=blue!15},
  process = \FillSugarWeekStats
}
    日期 & 星期 & 空腹 & 早餐后1h & 早餐后2h & 午餐后1h & 午餐后2h & 晚餐后1h & 晚餐后2h & 备注 \\
    % 6月第4周 22-28（带实测数据）
    2026-\zz{6}-\zz{22}& 周一 &5.6 & & & 5.6 & 6.7 & & 7.8 & \\
    2026-\zz{6}-\zz{23}& 周二 & & & & & & & & \\
    2026-\zz{6}-\zz{24}& 周三 &2.33 & & & & & & & \\
    2026-\zz{6}-\zz{25}& 周四 &9.0 & & &  & & & & \\
    2026-\zz{6}-\zz{26}& 周五 &6.7(8:56) & & &7.3(13:41) & & &6.2(21:17) & 午餐后快步走40分钟 \\
    2026-\zz{6}-\zz{27}& 周六 &6.7(8:55) & & &6.8(14:09) & &7.0(20:44) & & 早餐、午餐后快步走40分钟；晚餐后混氧运动 \\
    2026-\zz{6}-\zz{28}& 周日 &6.0(9:12) & & & & & & &早餐后混氧运动 \\
    \SetCell[c=10]{l}{} & & & & & & & & & \\
\end{longtblr}
}

\end{document}

To-Do(我是不想做...)

• 处理日期结构
• 处理分周、分月的计算统计逻辑
• 处理每周新增一行进行记录的表格排布逻辑
• 表末输出不同层级的总结

这里每一步都需要做海量的逻辑处理... 意义也不大...

确定是旧版，2011年的，15年前，应该有许多改进。

如果只看2011年的.cls,并不能得到「应该有许多改进」

但这个文件结构被破坏了，他已经“被使用”了。

是什么意思呢？

pupbook.cls

统计数据随表格中数据编译后更新

Claim:这个解决方案存在一些依赖

\documentclass{article}
\usepackage{unicode-math}
\usepackage{exam-zh-symbols}
\begin{document}

$A \paralleleq B$

\[A \paralleleq B\]

\end{document}

更好的办法是把原始定义摘出来，留做习题。

Edit

Hint here

Another possibility in tikz-cd:

\documentclass[tikz,border=8pt]{standalone}
\usepackage[svgnames]{xcolor}
\usepackage{fourier}
\usetikzlibrary{arrows.meta,calc,positioning,shadows,shapes.geometric,shapes.symbols}
\begin{document}
\begin{tikzpicture}[
  font=\sffamily,=Latex,
  line/.style={wire,draw=black!75},
  orange line/.style={wire,draw=DarkOrange},
  wire/.style={line width=.8pt,-{Latex[length=3mm,width=2.2mm]}},
  component/.style={draw=black!75,line width=.8pt,fill=white,drop shadow},
  tag/.style={component,signal,signal to=#1,minimum width=31mm,minimum height=8mm,inner xsep=4mm},
  block/.style={component,draw=DarkOrange,fill=gray!20,line width=.9pt,minimum width=34mm,minimum height=48mm},
  constant/.style={component,minimum size=12mm},
  gain/.style={component,regular polygon,regular polygon sides=3,shape border rotate=-90,minimum size=17mm},
  display/.style={component,minimum width=12mm,minimum height=13mm}
]
\node[block] (system) {};
\node[tag=east,fill=Violet!45,anchor=east] (isabc) at ([xshift=-30mm,yshift=14mm]system.west) {Is\_ABC};
\node[constant,anchor=west] (dc) at (isabc.west |- system.west) {$320$};
\node[tag=east,fill=LightSalmon,anchor=east] (theta) at ([xshift=-30mm,yshift=-14mm]system.west) {theta\_e};
\node[anchor=west] at ([yshift=14mm]system.west) {Is\_ABC};
\node[anchor=west] at (system.west) {V\_dc};
\node[anchor=west] at ([yshift=-14mm]system.west) {theta\_e};
\node[anchor=east] at ([yshift=10mm]system.east) {idq\_pu};
\node[anchor=east] at ([yshift=-10mm]system.east) {V\_dc\_pu};
\node[DarkOrange,anchor=north,font=\bfseries] at ([yshift=-1mm]system.south) {$3s{>}2s\ \&\ pu$};
\node[tag=west,fill=Cyan!45,anchor=west] (idqpu) at ([xshift=25mm,yshift=10mm]system.east) {idq\_pu};
\node[tag=west,fill=SlateBlue!55,anchor=west] (vdcpu) at ([xshift=25mm,yshift=-10mm]system.east) {Vdc\_pu};
\coordinate (branch) at ($(system.east)+(12mm,10mm)$);
\node[gain] (ibase) at ([xshift=22mm,yshift=22mm]branch) {};
\node at (ibase) {ibase};
\node[below=2mm of ibase] (ibaselabel) {ibase};
\node[display,right=14mm of ibase] (display) {};
\node[rectangle,draw=black!75,line width=.7pt,minimum width=8mm,minimum height=5mm] at ([yshift=2mm]display.center) {};
\node at (ibaselabel -| display) {idq};
\draw[line] (isabc.east) -- ([yshift=14mm]system.west);
\draw[line] (dc.east) -- (system.west);
\draw[line] (theta.east) -- ([yshift=-14mm]system.west);
\draw[orange line] ([yshift=10mm]system.east) -- (idqpu.west);
\draw[orange line] ([yshift=-10mm]system.east) -- (vdcpu.west);
\fill[DarkOrange] (branch) circle (1.1pt);
\draw[orange line] (branch) |- (ibase.west);
\draw[line] (ibase.east) -- (display.west);
\end{tikzpicture}
\end{document}

Here below is the proposal based on luadraw:

Example A

\documentclass[border=5pt]{standalone}
\usepackage{fourier-otf}
\usepackage{luadraw}
\begin{document}
    \begin{luadraw}{name=fillarea}
    local ld = luadraw
    local g = ld.graph:new{
        window={-2.5,2.5,-2.5,2.5,2,1},
        size={8,10},margin=0.25
    }
    local pi,f = math.pi,math.atan
    local h = function() return pi/2 end
    g:Filloptions("full","red!30",0.3)
    g:Linestyle("noline")
    g:Ddomain2(f,h,{x={0,2}})
    g:Lineoptions("dashed","black",4)
    g:Filloptions("none",nil,1)
    g:DlineEq(0,1,-pi/2)
    g:DlineEq(0,1,pi/2)
    g:Lineoptions("solid","black",6)
    g:Dcartesian(f,{x={-2,2}})
    g:Daxes({0,1,1},{labelpos={"none","none"},originpos={"none","none"},xyticks={0,0},legend={"$x$","$y$"},arrows="-Stealth"})
    g:Show()
    \end{luadraw}
\end{document}

Example B

\documentclass[border=5pt]{standalone}
\usepackage{fourier-otf}
\usepackage{luadraw}
\usepackage[svgnames]{xcolor}
\begin{document}
    \begin{luadraw}{name=gradbox}
        local ld = luadraw
        local g = ld.graph:new{window={-5,4,-5.5,5},size={10,10}}
        local i, pi = ld.cpx.I, math.pi
        local h = function(x) return x^2/2-2 end
        local f = function(x) return math.sin(3*x)+h(x) end
        g:Dgradbox(
            {-pi-4*i,pi+4*i,pi/3,1},
            {
                grid=true,originloc=0,
                originnum={0,0},
                labeltext={"\\pi",""}, 
                labelden={3,1}, 
                title="\\textbf{Title}", 
                legend={"Legend $x$","Legend $y$"}
            }
        )
        g:Filloptions("full","blue",0.6); g:Linestyle("noline")
        g:Ddomain2(f,h,{x={-pi/2,2*pi/3}}) 
        g:Filloptions("none",nil,1); g:Lineoptions("solid",nil,8)
        g:Dcartesian(h,{x={-pi,pi}, draw_options="DarkBlue"}) 
        g:Dcartesian(f,{x={-pi,pi},draw_options="Crimson"})
        g:Show()
    \end{luadraw}
\end{document}

Example C

\documentclass[border=5pt]{standalone}
\usepackage{fourier-otf}
\usepackage{luadraw}
\usepackage[svgnames]{xcolor}
\begin{document}
    \begin{luadraw}{name=implicit_inequalities}
        local ld = luadraw
        local cpx = ld.cpx
        local Z = cpx.Z
        local g = ld.graph:new{ window = {-3, 4, -3, 5}, size = {10, 10} }
        local f1 = function(x,y) return -x*y+y^2-x^2-1 end
        local f2 = function(x,y) return x^3-x-y^2+4 end
        local filloptions = "draw=none,pattern= north west lines, pattern color=cyan"
        g:Daxes( {0,1,1},{grid=true,gridstyle="dashed",xyticks={0,0},arrows="-Stealth"})
        g:Dimplicit_inequalities( 
            {f1,'<',f2,">"}, 
            {view={-2,5,-5,5}, draw_options=filloptions}
        ) 
        g:Dimplicit(f1, {draw_options="red,thick"})
        g:Dimplicit(f2, {view={-2,5,-5,5}, draw_options="violet,thick"})
        local eq = \luastringO{$\begin{cases}y^2-x^2-xy < 1\\ x^3-x+4 > y^2\end{cases}$} 
        g:Dlabel( eq, Z(2.25,1), {node_options="fill=white"})
        g:Show()
    \end{luadraw}
\end{document}

Example D

\documentclass[multi={luadraw},border=5pt]{standalone}
\usepackage[svgnames]{xcolor}
\usepackage{luadraw}
\usepackage{fourier-otf}

\begin{document}
    \begin{luadraw}{name=implicit_inequalities1}
        local ld = luadraw
        local cpx = ld.cpx
        local Z = cpx.Z
        local g = ld.graph:new{ window = {-3, 4, -2, 6}, size = {10, 10} }
        g:Daxes({0,1,1}, {grid=true, gridstyle = "dashed",arrows="-Stealth", legend={"$x$","$y$"}})
        local f1 = function(x,y) return x^2 + y^2 - 2*x - 4*y - 4 end
        local f2 = function(x,y) return y-math.sin(8*x)  end
        local f3 = function(x,y) return math.sin(8*x)  end
        local filloptions = "draw=none,pattern= north west lines, pattern color=cyan"
        g:Dimplicit_inequalities( {f1,'<',f2,">"}, {grid={100,100}, draw_options=filloptions})
        g:Dimplicit(f1, {draw_options="red,thick"})
        g:Dcartesian(f3, {draw_options="blue"});
        g:Show()
    \end{luadraw}

    \begin{luadraw}{name=implicit_inequalities2}
        local ld = luadraw
        local cpx = ld.cpx
        local Z = cpx.Z
        local g = ld.graph:new{ window = {-3, 4, -2, 6}, size = {10, 10} }
        g:Daxes({0,1,1}, {grid=true, gridstyle = "dashed",arrows="-Stealth", legend={"$x$","$y$"}})
        local f1 = function(x,y) return x^2 + y^2 - 2*x - 4*y - 4 end
        local f2 = function(x,y) return y-math.sin(8*x)  end
        local f3 = function(x,y) return math.sin(8*x)  end
        local filloptions = "draw=none,pattern= north west lines, pattern color=cyan"
        g:Dimplicit_inequalities( {f1,'<',f2,"<"}, {grid={100,100}, draw_options=filloptions})
        g:Dimplicit(f1, {draw_options="red,thick"})
        g:Dcartesian(f3, {draw_options="blue"});
        g:Show()
    \end{luadraw}
\end{document} 

代码是没问题的，问题很可能事万恶的该死的「CTeX套装」...

\documentclass[tikz,border=5pt]{standalone}
\begin{document}
\begin{tikzpicture}[scale=.4]
        \draw[->,>=stealth](-2.2,0)--(3,0) node[below] {$x$};
        \draw[->,>=stealth](0,-2)--(0,4) node[left] {$y$};
        \draw[domain=-2:1.8,smooth] plot(\x,{2^\x});
\end{tikzpicture}
\end{document}

在TeXLive2026下效果一切正常：

单个第三个图片怎么画出来？

@u92074 2026年了，直接考虑luadraw;-)

Here below is the proposal:

\documentclass{standalone}
\usepackage[svgnames]{xcolor}
\usepackage[3d]{luadraw}

\begin{document}

\begin{luadraw}{name=round-cobuid}
local ld = luadraw
local pt3d = ld.pt3d
local M, vecI, vecJ, vecK = pt3d.M, pt3d.vecI, pt3d.vecJ, pt3d.vecK
local sqrt, sin, cos = math.sqrt, math.sin, math.cos

local g = ld.graph3d:new{
  window3d={-5,5,-5,5,-5,5},
  window={-4,3,-2,4},viewdir={35,80}
}

-- length, width, height
local L, W, H = 5.0, 2.4, 3.0

local t = 0.5

local scene = {}

local function add_quarter_cylinder(center, r1, r2, axis, n)
  local poly = ld.cylinder(
    center, axis, sqrt(pt3d.dot(r1, r1)), 4*n
  )
  poly = ld.cutpoly(poly, {center, r1}, true)
  poly = ld.cutpoly(poly, {center, r2}, true)

  local arc1, arc2 = {}, {}
  for k=0,n do
    local u = k*math.pi/2/n
    local p = center + cos(u)*r1 + sin(u)*r2
    table.insert(arc1, p)
    table.insert(arc2, p+axis)
  end

  table.insert(scene, g:addPoly(poly, {color="white"}))
  table.insert(scene, g:addPolyline({
    arc1, arc2,
    {arc1[1], arc2[1]},
    {arc1[#arc1], arc2[#arc2]}
  }, {hidden=true, hiddenstyle="dashed"}))
end

local function add_octant_sphere(center, r1, r2, r3, n)
  local poly = ld.sphere(center, sqrt(pt3d.dot(r1, r1)), 4*n, 2*n)
  poly = ld.cutpoly(poly, {center, r1}, true)
  poly = ld.cutpoly(poly, {center, r2}, true)
  poly = ld.cutpoly(poly, {center, r3}, true)

  local function arc(a, b)
    local points = {}
    for k=0,n do
      local u = k*math.pi/2/n
      table.insert(points, center + cos(u)*a + sin(u)*b)
    end
    return points
  end

  table.insert(scene, g:addPoly(poly, {color="white", contrast=0}))
  table.insert(scene, g:addPolyline({
    arc(r1, r2), arc(r1, r3), arc(r2, r3)
  }, {hidden=true, hiddenstyle="dashed"}))
end

local boxes = {
  ld.parallelep(M(0,0,0), L*vecI, W*vecJ, H*vecK),
  ld.parallelep(M(0,0,H), L*vecI, W*vecJ, t*vecK),
  ld.parallelep(M(0,W,0), L*vecI, t*vecJ, H*vecK),
  ld.parallelep(M(L,0,0), t*vecI, W*vecJ, H*vecK)
}

for _,poly in ipairs(boxes) do
  table.insert(scene, g:addPoly(poly, {color="white",edge=true,hidden=true,hiddenstyle="dashed"}))
end

add_quarter_cylinder(M(0,W,H), t*vecJ, t*vecK, L*vecI, 18)
add_quarter_cylinder(M(L,0,H), t*vecI, t*vecK, W*vecJ, 18)
add_quarter_cylinder(M(L,W,0), t*vecI, t*vecJ, H*vecK, 18)
add_quarter_cylinder(M(0,W,0), t*vecJ, -t*vecK, L*vecI, 18)
add_quarter_cylinder(M(L,0,0), t*vecI, -t*vecK, W*vecJ, 18)
add_octant_sphere(M(L,W,H), t*vecI, t*vecJ, t*vecK, 12)
add_octant_sphere(M(L,W,0), t*vecI, t*vecJ, -t*vecK, 12)

g:Dscene3d(table.unpack(scene))

g:Show()
\end{luadraw}

\end{document}