学习编程的一个有效方式是去读别人写的代码.我学习了.代码虽多,但是简单.代码如下(稍微做了修改):
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));//标签1label("$0$",(-1,3.5),W);label("$+$",(-.8,3.5),N);label("$-$",(-.8,3.5),S);label("零线",(9,3.5),N,red);//标签2label("$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);//辅助标签jnminreal 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); 编译后产生的图像如下:
