1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
|
mode_setup;
input labtex;
u#=12pt#; if mode=smoke: u#:=.4pt#; fi
nib#=.5pt#; if mode=smoke: nib#:=.1pt#; fi
define_pixels(u, nib);
beginchar(0, 12u#, 6u#, 0);
pickup pencircle scaled 2nib;
z1=(w/8,h); z2=(w/4, h/2); z3=(w/2, h/4); % points on the curve
z4=(w,h/8);
path p; p=z1..z2..z3..z4;
draw p; % draw the $1/x$ curve
z.x=point 2.6 of p; % another point
z5=(x2,0); z6=(x.x,0); % points on the $x$-axis
pickup pencircle scaled nib;
draw origin--(w,0); % bottom axis
draw z2--z5; draw z.x--z6; % vertical struts
pickup pencircle scaled 6nib;
drawdot z2; drawdot z.x; drawdot z5; drawdot z6;
save I; numeric I; I=0;
labtex(z2, z.x, z5, (x.x,0));
endchar;
beginchar(1, 12u#, 6u#, 0);
pickup pencircle scaled 2nib;
z1=(w/8,h); z2=(w/4, h/2); z3=(w/2, h/4); % points on the curve
z4=(w,h/8);
path p; p=z1..z2..z3..z4;
draw p; % draw the $1/x$ curve
z.x=point 2.6 of p; % another point
z5=(x2,0); z6=(x.x,0); % points on the $x$-axis
pickup pencircle scaled nib;
draw origin--(w,0); % bottom axis
draw z2--z5; draw z.x--z6; % vertical struts
pickup pencircle scaled 6nib;
drawdot z2; drawdot z.x; drawdot z5; drawdot z6;
save I; numeric I; I=0;
labtex(z2, z.x, z5, (x.x,0));
endchar;
bye.
|