Asymptote 学习记录(2):例子阅读

学习编程的一个有效方式是去读别人写的代码.我学习了这里的代码.代码虽多,但是简单.代码如下(稍微做了修改):

import settings;
pdfviewer="/usr/bin/okular";
outformat="pdf";
size(400);
texpreamble("\usepackage{CJK}\AtBeginDocument{\begin{CJK}{UTF8}{gbsn}}\AtEndDocument{\clearpage\end{CJK}}");

//主线轮廓
pair a1=(1.5,7),a2=(1.5,6),a3=(2.2,6);
pair b1=(2.2,7),b2=(2.2,5.5),b3=(2.9,5.5);
pair c1=(2.9,6.3),c2=(2.9,5.1),c3=(3.6,5.1);
pair d1=(3.6,5.7),d2=(3.6,4.6),d3=(4.3,4.6);
draw(a1--a2--a3);
draw(b1--b2--b3);
draw(c1--c2--c3);
draw(d1--d2--d3);
pair e1=(4.3,5.4),e2=(4.3,4.3),e3=(5,4.3);
pair f1=(5,5),f2=(5,4),f3=(5.7,4);
pair g1=(5.7,4.6),g2=(5.7,3.7),g3=(6.4,3.7);
draw(e1--e2--e3);
draw(f1--f2--f3);
draw(g1--g2--g3);
pair h1=(6.4,4.2),h2=(6.4,3.5),h3=(7.1,3.9),h4=(7.1,3.5);
draw(h1--h2);
draw(h3--h4);
draw(a1--b1,dashed);
draw((2.2,6.3)--c1,dashed);
draw((2.9,5.7)--d1,dashed);
draw((3.6,5.4)--e1,dashed);
draw((4.3,5)--f1,dashed);
draw((5,4.6)--g1,dashed);
draw((5.7,4.2)--h1,dashed);
draw((6.4,3.9)--h3,dashed);

//侧隙种类
pair k11=midpoint(a2--a3),k12=(1.85,3.5);
pair k21=midpoint(b2--b3),k22=(2.55,3.5);
pair k31=midpoint(c2--c3),k32=(3.25,3.5);
pair k41=midpoint(d2--d3),k42=(3.95,3.5);
pair k51=midpoint(e2--e3),k52=(4.65,3.5);
pair k61=midpoint(f2--f3),k62=(5.35,3.5);
pair k71=midpoint(g2--g3),k72=(6.05,3.5);
pair k81=midpoint(h2--h4),k82=(6.75,3);

draw(k11--k12,Arrows);
draw(k21--k22,Arrows);
draw(k31--k32,Arrows);
draw(k41--k42,Arrows);
draw(k51--k52,Arrows);
draw(k61--k62,Arrows);
draw(k71--k72,Arrows);
draw(k81--k82,BeginArrow);

//基线
draw((-1,3.5)--(9,3.5),blue+linewidth(1.5));

//标签1
label("$0$",(-1,3.5),W);
label("$+$",(-.8,3.5),N);
label("$-$",(-.8,3.5),S);
label("零线",(9,3.5),N,red);

//标签2
label("$a$",midpoint(a2--a3),SW);
label("$b$",midpoint(b2--b3),SW);
label("$c$",midpoint(c2--c3),SW);
label("$d$",midpoint(d2--d3),SW);
label("$e$",midpoint(e2--e3),SW);
label("$f$",midpoint(f2--f3),SE);
label("$g$",midpoint(g2--g3),SE);
label("$h$",midpoint(h2--h4),SW);
label("$j_{nmin}=0$",midpoint(k81--k82),E);

//辅助标签jnmin
real t=1/3,b=1/2;
pair O1=(0,4.2);
draw(O1--interp(k11,k12,t));//在线段插入分点用interp,t是分的系数
draw(O1--interp(k21,k22,t));
draw(O1--interp(k31,k32,t));
draw(O1--interp(k41,k42,t));
draw(O1--interp(k51,k52,t));
draw(O1--interp(k61,k62,t));
draw(O1--interp(k71,k72,b));
draw(O1--(-1,4.2));
label("$j_{nmin}$",midpoint(O1--(-1,4.2)),N);