我想将以下宏的输出存储在变量中:
\foreach \m in {1,...,9}{\csname h\m \endcsname};
我尝试过这样做:
\def\lkj{
\foreach \m in {1,...,9}{\csname h\m \endcsname};
}
它不起作用,因为它存储的是宏本身,而不是它产生的输出。
有人能帮我找出如何将其输出存储在变量中吗?
解释我想要完成的事情
1 最小工作示例
\documentclass{standalone}
\usepackage{xargs,tikz}
\usetikzlibrary{decorations.markings,hobby}
\tikzset{
mark pos/.style args={#1(#2)}{
postaction={
decorate,
decoration={
markings,
mark=at position #1 with \coordinate (#2);
}
}
}
}
\newcommandx*\arccal[6][6]{%
\draw[#6,domain=#5] plot ({#1+#3*cos(\x)}, {#2+#4*sin(\x)});
}
\foreach \m in {1,...,9}{
\expandafter\xdef\csname h\m \endcsname{mark pos=0.\m(m\m),}
}
\def\lkj{
\foreach \m in {1,...,9}{\csname h\m \endcsname};
}
\begin{document}
\begin{tikzpicture}
\arccal{-2.8}{0}{0.6}{1.2}{270:90}[samples=50,ultra thick,
mark pos=0.05(w1),
mark pos=0.1(w2),
mark pos=0.15(w3),
mark pos=0.2(w4),
mark pos=0.25(w5),
mark pos=0.3(w6),
mark pos=0.35(w7),
mark pos=0.4(w8),
mark pos=0.45(w9),
mark pos=0.5(w10),
mark pos=0.55(w11),
mark pos=0.6(w12),
mark pos=0.65(w13),
mark pos=0.7(w14),
mark pos=0.75(w15),
mark pos=0.8(w16),
mark pos=0.85(w17),
mark pos=0.9(w18),
mark pos=0.95(w19),
];
\draw[ultra thick] plot[smooth] coordinates {(w19)(w18)(w17)(w16)(w15)(w14)(w13)(w12)(w11)(w10)(w9)(w8)(w7)(w6)(w5)(w4)(w3)(w2)(w1)};
\end{tikzpicture}
\end{document}
2 评论
我有一个名为“mark pos”的 tikz 样式,用于通过使用“plot”创建的线条放置坐标。
在特定情况下,我使用“plot[smooth]”或“plot[smooth cycle]”来制作具有特定半圆形的形状,这些形状需要以各种模式平滑地进行管理/关闭。
然后我必须定义一系列坐标以便它按照我想要的某种方式移动,在这种情况下使用形成圆形/椭圆形的方程并使用“标记位置”来设置坐标。
在某些情况下,我必须定义大量坐标才能形成足够均匀的曲线,因此我想创建一个带有“foreach”的循环来快速完成这些坐标,而不必手动定义每一个坐标。
我需要将 foreach 宏的输出放在“\draw[x]”里面,但我无法使用原始宏本身来完成此操作。
谢谢。
我与 Qrrbrbirlbel 评论过的例子
1 案例一:在Qrrbrbirlbel的帮助下我现在能得到什么
\newcommandx*\arccalpath[6][6]{%
\path[#6,domain=#5] plot ({#1+#3*cos(\x)}, {#2+#4*sin(\x)});
}
\arccalpath{-3}{0}{0.9}{1.2}{90:-90}[samples=50,ultra thick,
mark positions={0.05}{z}];
\arccalpath{-2.8}{0}{0.6}{1.2}{270:90}[samples=50,ultra thick,
mark positions={0.05}{w}]
\draw[ultra thick] plot[smooth,samples at={19,...,1}] (z\x);
\draw[ultra thick] plot[smooth,samples at={19,...,1}] (w\x);
2 第二种情况:我想要得到的结果,但不需要在图坐标中输入所有这些点(z1、z2、z3……)。
\newcommandx*\arccalpath[6][6]{%
\path[#6,domain=#5] plot ({#1+#3*cos(\x)}, {#2+#4*sin(\x)});
}
\arccalpath{-3}{0}{0.9}{1.2}{90:-90}[samples=50,ultra thick,
mark positions={0.05}{z}];
\arccalpath{-2.8}{0}{0.6}{1.2}{270:90}[samples=50,ultra thick,
mark positions={0.05}{w}]
\draw[ultra thick] plot[smooth cycle,samples at={19,...,1}] coordinates
{(w19)(w18)(w17)(w16)(w15)(w14)(w13)(w12)(w11)(w10)(w9)(w8)(w7)(w6)(w5)(w4)(w3)(w2)(w1)(z19)(z18)(z17)(z16)(z15)(z14)(z13)(z12)(z11)(z10)(z9)(z8)(z7)(z6)(z5)(z4)(z3)(z2)(z1)};
答案1
我会以不同的方式处理这个问题。
可以使用语法以固定分隔放置多个标记mark=between positions … and … step … with …
。手册解释了所有细节. 键的值/pgf/decoration/mark info/sequence number
提供了一个递增计数器。
此外,我将提供一种arccal
可以在 TikZ 路径上使用的样式,它只使用两个参数:TikZ 格式的中心和半径<x> and <y>
。
第三张 TikZ 图片将椭圆弧绘制成椭圆弧而不是绘图。
最后一张图没有使用markings
库,只是画了两个圆弧,第二个圆弧的角度不同。如果你真的需要将圆弧缩短为圆弧总长度的一部分,那么方法会稍微复杂一些(总长度仅由 PGF/TikZ 的装饰模块提供,不容易提取),但仍然比放置几十个标记并绘制一条穿过它们的线要好。
还有更好的方法围绕中心画弧,但这与您的问题无关。
代码
\documentclass{standalone}
\usepackage{xargs,tikz}
\usetikzlibrary{decorations.markings}
\tikzset{
mark positions/.style 2 args={
postaction=decorate,
decoration={
name=markings, % PGFMath isn't precise, cheat with 1-0.001
mark=between positions #1 and 1-0.001 step #1 with \coordinate
(#2\pgfkeysvalueof{/pgf/decoration/mark info/sequence number});}}}
\newcommandx*\arccal[6][6]{%
\draw[#6,domain=#5] plot ({#1+#3*cos(\x)}, {#2+#4*sin(\x)});
}
\tikzset{arccal/.style n args=2{insert path={plot([shift={(#1)}]\x:#2)}}}
\begin{document}
\begin{tikzpicture}
\arccal{-2.8}{0}{0.6}{1.2}{270:90}[
samples=50, ultra thick,
mark positions={0.05}{w}
];
\draw[thick, green] plot[smooth, samples at={19, ..., 1}] (w\x);
\end{tikzpicture}
\begin{tikzpicture}
\draw[
ultra thick, samples=50, domain=270:90,
mark positions={0.05}{w}, arccal={-2.8, 0}{.6 and 1.2}];
\draw[thick, green] plot[smooth, samples at={19, ..., 1}] (w\x);
\end{tikzpicture}
\begin{tikzpicture}
\draw[ultra thick, shift={(-2.8, 0)}, mark positions={0.05}{w}]
(270:.6 and 1.2) arc[start angle=270, end angle=90, x radius=.6, y radius=1.2];
\draw[thick, green] plot[smooth, samples at={19, ..., 1}] (w\x);
\end{tikzpicture}
\begin{tikzpicture}
\draw[ultra thick, shift={(-2.8, 0)}]
(270:.6 and 1.2) arc[start angle=270, end angle= 90, x radius=.6, y radius=1.2];
\draw[thick, green, shift={(-2.8, 0)}]
(255:.6 and 1.2) arc[start angle=255, end angle=105, x radius=.6, y radius=1.2];
\end{tikzpicture}
\end{document}
输出
据我所见,您想组合交叉点之间的弧。
这里有三种方法,都使用intersections
库来查找组成圆弧/半椭圆的两条路径之间的交点。
第一个使用calc
库的let … in
语法来计算另一组 s 的交点与椭圆中心的角度arc
。m1
和m2
坐标用于获得X画布坐标系中椭圆的半径,无需我们自己进行变换。
第二个使用ext.paths.arcto
我的库tikz-ext
包裹可以画圆弧到一个点,角度将由 PGF/TikZ 计算。
第三个解决方案使用spath3
可以在与其他路径相交处分割路径的库。我们只需要指定要绘制分割路径的哪些部分。
由于解决方案 1 和 2 的数学评估不是很精确,因此在关闭路径时会出现恼人的伪影:
可以使用 键来修复此问题spath3
,adjust and close
或者使用 来隐藏此问题line join=round
。
总的来说,我更喜欢这些arc to
方法,因为
- 该
calc
方法需要大量的手动计算,而且由于acos
函数不是明确的(一个值对应两个角度),因此需要进行调整和 - 解决
spath3
方案需要您指定组件,这可能会变得很棘手,因为圆弧由最多四条贝塞尔曲线构成(每条曲线对应一个组件)。
无论如何,下面的代码中给出了所有解决方案。我还使用了我的答案以便arc starts=after moveto
更容易地围绕中心绘制弧线。
代码
\documentclass[border=5pt]{standalone}
\usepackage{tikz}
%% https://tex.stackexchange.com/a/123189
\usepackage{etoolbox}
\makeatletter
\patchcmd{\tikz@arc@opt}{\xdef}{\tikz@arc@do\xdef}{}{}\let\tikz@arc@do\relax
\tikzset{arc starts/.cd,.is choice, at last point/.code=\let\tikz@arc@do\relax,after moveto/.code=\tikz@arc@do@\pgfpathmoveto,after lineto/.code=\tikz@arc@do@\pgfpathlineto}
\def\tikz@arc@do@#1{\def\tikz@arc@do{\tikz@@@parse@polar{\tikz@arc@do@@#1}(\tikz@s:\pgfkeysvalueof{/tikz/x radius} and \pgfkeysvalueof{/tikz/y radius})}}
\def\tikz@arc@do@@#1#2{#1{\pgfpointadd{#2}{\tikz@last@position@saved}}}
\makeatother
\usetikzlibrary{intersections} % solutions 1, 2, 3
\usetikzlibrary{
calc, % solution 1
ext.paths.arcto, % solution 2
spath3 % solutions (1, 2b,) 3
}
\tikzset{cycle/.style=/tikz/spath/adjust and close}
\begin{document}
%%% 1. calc (doing our own math)
\begin{tikzpicture}[
arc starts=after moveto,
e1/.style={x radius=.6, y radius=1.2},
e2/.style={x radius=.9, y radius=1.2},
label position=center, line join=round,
]
% the coordinate m1 and m2 are used to find the x radius in the canvas (w/ units)
\path[name path=e1] (-2.8, 0) coordinate (c1)
arc[start angle=90, delta angle= 180, e1] coordinate[midway] (m1);
\path[name path=e2] (-3.0, 0) coordinate(c2)
arc[start angle=90, delta angle=-180, e2] coordinate[midway] (m2);
\draw[
ultra thick, arc starts=at last point,
name intersections={of=e1 and e2}]
% work in the coordinate system of the first ellipse:
[shift=(c1), e1]
let \p0=(intersection-1), \p1=(m1), \n0={180-acos(\x0/\x1)} in
(intersection-1) arc[start angle=\n0, end angle=360-\n0]
% work in the coordinate system of the second ellipse:
[shift=(c2), e2]
let \p0=(intersection-2), \p1=(m2), \n0={-acos(\x0/\x1)} in
arc[start angle=\n0, end angle=-\n0]
[cycle];
\end{tikzpicture}
%%% 2a. arc to + round line join
\begin{tikzpicture}[
arc starts=after moveto, line join=round,
e1/.style={x radius=.6, y radius=1.2},
e2/.style={x radius=.9, y radius=1.2},
]
\path[name path=e1] (-2.8, 0) arc[start angle=90, delta angle= 180, e1];
\path[name path=e2] (-3.0, 0) arc[start angle=90, delta angle=-180, e2];
\draw[name intersections={of=e1 and e2}, ultra thick]
(intersection-1) arc to[/tikz/e1] (intersection-2)
arc to[/tikz/e2] (intersection-1) -- cycle;
\end{tikzpicture}
%%% 2b. arc to + spath3
\begin{tikzpicture}[
arc starts=after moveto,
e1/.style={x radius=.6, y radius=1.2},
e2/.style={x radius=.9, y radius=1.2},
]
\path[name path=e1] (-2.8, 0) arc[start angle=90, delta angle= 180, e1];
\path[name path=e2] (-3.0, 0) arc[start angle=90, delta angle=-180, e2];
\draw[name intersections={of=e1 and e2}, ultra thick]
(intersection-1) arc to[/tikz/e1] (intersection-2)
arc to[/tikz/e2] (intersection-1) [cycle];
\end{tikzpicture}
% 3. spath
\begin{tikzpicture}[
arc starts=after moveto,
e1/.style={x radius=.6, y radius=1.2},
e2/.style={x radius=.9, y radius=1.2},
label position=center,
]
\path[name path=e1] (-2.8, 0) coordinate (c1)
arc[start angle=90, delta angle= 180, e1];
\path[name path=e2] (-3.0, 0) coordinate(c2)
arc[start angle=90, delta angle=-180, e2];
\draw[ultra thick, spath/.cd,
split at intersections={e1}{e2},
remove components={e1}{2,4},
remove components={e2}{1,2,4},
use=e1, append reverse=e2,
] -- cycle;
\end{tikzpicture}
\end{document}