beginfig(2); path p[],s[]; u=1mm; m=20u; q=1.2; %drawing axes z1=(-0.5m,0); z2=(3.3m,0); z3=(0,0); z4=(0,3.3m); % q z5=(q*m,0); d=sqrt(4*q+1); z6=0.5((2*q+1-d)*m,(2*q+1-d)*m); z7=0.5((2*q+1+d)*m,(2*q+1+d)*m); z8=0.5((2*q-1+d)*m,(2*q+1-d)*m); z9=0.5((2*q-1-d)*m,(2*q+1+d)*m); z10=(0,q*q*m); z11=(2*q*m,q*q*m); p1=z9...z10...z6...z5...z8...z11...z7; s1=(x8,x8)--(x9,x8); z12= p1 intersectionpoint s1; draw (0,0)--(3m,3m) dashed evenly; % axes drawarrow z1--z2; drawarrow z3--z4; draw p1; % second iteration z100=(x12,y6); s2=(x8,x8)--(x7,x8); z13=p1 intersectionpoint s2; z101=(x13,y6); z102=(x5,y10); s3=(x9,x5)--(x5,x5); s4=(x5,x5)--(x7,x5); z14=p1 intersectionpoint s3; z15=p1 intersectionpoint s4; z103=(x14,0); z104=(x15,0); p2=z9..tension 2..z100..tension 1.3..z103{right}..tension 1.7..z6..tension 1.7..z102..tension 1.7 ..z8..tension 1.7..z104{right}..tension 1.3..z101..tension 2..z7; draw p2; pickup pencircle scaled 0.1pt; draw z6--z8; draw (x8,0)--(x8,x8); %draw s1 cutafter z12; draw (x8,x8)--z12; draw z12--(x12,0); draw z10--(y10,y10); draw (y10,y10)--(y10,0); draw z7--(x7,0); draw z6--(x6,0); pickup pencircle scaled 3pt; draw z5; draw z6; draw z7; draw z8; draw z10; draw z12; label.bot(btex $q$ etex, (x5,-1u)); makelabel.bot(btex $\lambda_1'' $ etex, (x12,0)); makelabel.bot(btex $\lambda_1' $ etex, (x8,0)); makelabel.bot(btex $\lambda_1 $ etex, (x6,0)); makelabel.bot(btex $\lambda_{\textstyle *} $ etex, (y10,0)); makelabel.bot(btex $\lambda_2 $ etex, (x7,0)); % endfig; end;

Simpan