verbatimtex \magnification=\magstep1 etex u=1cm; beginfig(1); z0 = (0,0); % z0 is origin z10 = z0; % z10 is point M x11 = x10 + 1.8u; y11 = y10; % z11 is point R z12 = 1.2 [z10, z11]; % z12 is point N x13 = x10; y13 = y10 + u; % z13 is point P z14 = 2.5 [z10, z13]; % z14 is point A x15 = x11; y15 = y13; % z15 is point B z16 = 4.0 [z10, z13]; % z16 is point T z17 = whatever [z16, z15] = whatever [z10, z11]; % z17 is point L draw z12 .. z15 {z16 - z15} .. z14; draw z17--z10--z16; draw z11--z15--z13; draw z16--z17; label.llft(btex ${\rm M}$ etex, z10); label.bot(btex ${\rm R}$ etex, z11); label.bot(btex ${\rm N}$ etex, z12); label.lft(btex ${\rm P}$ etex, z13); label.lft(btex ${\rm A}$ etex, z14); label.urt(btex ${\rm B}$ etex, z15); label.lft(btex ${\rm T}$ etex, z16); label.urt(btex ${\rm L}$ etex, z17); endfig; beginfig(2); z0 = (0,0); % z0 is origin z10 = z0; % z10 is point O x11 = x10 + 1.0u; y11 = y10; % z11 is point P z12 = 2.5 [z10, z11]; % z12 is bottom of tangent z13 = 3.5 [z10, z11]; % z13 is point S z14 = 4.5 [z10, z11]; % z14 is above point T x15 = x10; y15 = y10 + 1.6u; % z15 is point N x16 = x11; y16 = y15; % z16 is point R z17 = 2.5 [z10, z15]; % z17 is point A z18 = whatever [z12, z16] = whatever [z10, z17]; % z18 is point L z19 = whatever [z13, z16] = whatever [z10, z17]; % z19 is point M z20 = 1.4 [z16, z13]; % z20 is point Q x21 = x14; y21 = 1.1 [y15, y10]; % z21 is point T draw z17 .. z16 {z12 - z16} .. z13 .. z21; draw z10--z13; draw z10--z17; draw z11--z16--z15; draw z12--z18; draw z20--z19; label.llft(btex ${\rm O}$ etex, z10); label.bot(btex ${\rm P}$ etex, z11); label.urt(btex ${\rm S}$ etex, z13); label.lft(btex ${\rm N}$ etex, z15); label.urt(btex ${\rm R}$ etex, z16); label.lft(btex ${\rm A}$ etex, z17); label.lft(btex ${\rm L}$ etex, z18); label.lft(btex ${\rm M}$ etex, z19); label.rt(btex ${\rm Q}$ etex, z20); label.rt(btex ${\rm T}$ etex, z21); endfig; beginfig(3); z0 = (0,0); % z0 is origin z10 = z0; % z10 is point D x11 = x10 + 1.8u; y11 = y10; % z11 is point F z12 = 1.3 [z10, z11]; % z12 is point H x13 = x10; y13 = y10 + u; % z13 is point B z14 = 3 [z10, z13]; % z14 is point A x15 = x11; y15 = y13; % z15 is point C draw z12--z10--z14; draw z11--z15--z13; draw z12..z15..z14; label.llft(btex ${\rm D}$ etex, z10); label.bot(btex ${\rm F}$ etex, z11); label.bot(btex ${\rm H}$ etex, z12); label.lft(btex ${\rm B}$ etex, z13); label.lft(btex ${\rm A}$ etex, z14); label.urt(btex ${\rm C}$ etex, z15); endfig; beginfig(4); z0 = (0,0); % z0 is origin z10 = z0; % z10 is point V x11 = x10 + 2.0u; y11 = y10; % z11 is point A z12 = 2 [z10, z11]; % z12 is point B z13 = 3 [z10, z11]; % z13 is point b z14 = 4 [z10, z11]; % z14 is endpoint x15 = x12; y15 = y10 + 1.8u; % z15 is point C z16 = whatever [z10, z15]; x16 = x13; % z16 is point T z17 = whatever [z10, z15]; x17 = x14; % z17 is point H x18 = x13; y18 = y15; % z18 is point E z19 = 0.5 [z18, z16]; % z19 is point c z20 = whatever [z15, z19]; x20 = x14; % z20 is point K z21 = 1.4 [z17, z20]; % z21 is end of curve draw z10--z14; draw z12--z15; draw z10--z17; draw z11 .. z15 {z16 - z15} .. z19; draw z13--z16; draw z15--z18; draw z15--z20; label.bot(btex ${\rm V}$ etex, z10); label.llft(btex ${\rm A}$ etex, z11); label.lrt(btex ${\rm B}$ etex, z12); label.lrt(btex ${\rm b}$ etex, z13); label.ulft(btex ${\rm C}$ etex, z15); label.ulft(btex ${\rm T}$ etex, z16); label.rt(btex ${\rm H}$ etex, z17); label.rt(btex ${\rm E}$ etex, z18); label.urt(btex ${\rm c}$ etex, z19 + (0,2pt)); label.lrt(btex ${\rm K}$ etex, z20); endfig; beginfig(5); z0 = (0,0); % z0 is origin z10 = z0; % z10 is point K x11 = x10 + 0.8u; y11 = y10; % z11 is point L z12 = 3.2 [z10, z11]; % z12 is point M z13 = 6.4 [z10, z11]; % z13 is point N z14 = 10.0 [z10, z11]; % z14 is point O z15 = 14 [z10, z11]; % z15 is point P z21 = 1.4 [z10, z11]; % z21 is point m z22 = 2.0 [z10, z11]; % z22 is point n z23 = 2.6 [z10, z11]; % z23 is point o z31 = 4.0 [z10, z11]; % z31 is point p z32 = 4.8 [z10, z11]; % z32 is point q z33 = 5.6 [z10, z11]; % z33 is point r x101 = x10; y101 = y10 - 3pt; z111 - z11 = z101 - z10; z121 - z12 = z101 - z10; z131 - z13 = z101 - z10; z141 - z14 = z101 - z10; z151 - z15 = z101 - z10; z112 - z11 = z11 - z111; z122 - z12 = z12 - z121; z132 - z13 = z13 - z131; z142 - z14 = z14 - z141; z152 - z15 = z15 - z151; z211 - z21 = z101 - z10; z221 - z22 = z101 - z10; z231 - z23 = z101 - z10; z311 - z31 = z101 - z10; z321 - z32 = z101 - z10; z331 - z33 = z101 - z10; draw z10--z15; draw z101--z10; draw z111--z112; draw z121--z122; draw z131--z132; draw z141--z142; draw z151--z152; draw z211--z21; draw z221--z22; draw z231--z23; draw z311--z31; draw z321--z32; draw z331--z33; label.bot(btex ${\rm K}$ etex, z101); label.bot(btex ${\rm L}$ etex, z111); label.bot(btex ${\rm M}$ etex, z121); label.bot(btex ${\rm N}$ etex, z131); label.bot(btex ${\rm O}$ etex, z141); label.bot(btex ${\rm P}$ etex, z151); label.bot(btex ${\rm m}$ etex, z211); label.bot(btex ${\rm n}$ etex, z221); label.bot(btex ${\rm o}$ etex, z231); label.bot(btex ${\rm p}$ etex, z311); label.bot(btex ${\rm q}$ etex, z321); label.bot(btex ${\rm r}$ etex, z331); label.top(btex ${\rm a}$ etex, z112); label.top(btex ${\rm b}$ etex, z122); label.top(btex ${\rm c}$ etex, z132); label.top(btex ${\rm d}$ etex, z142); label.top(btex ${\rm e}$ etex, z152); endfig; bye;