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
41
42
43
44
45
46
47
48
49
50
51
52
53
54
|
// exponential.asy
settings.outformat="pdf";
cd("../../../asy"); import jh; cd(""); define_texpreamble();
import graph;
real fcn(real x) {
return( exp(x) );
}
real tangent_fcn(real x) {
return( 2*(x-log(2))+2 );
}
unitsize(1cm);
real xmin = -3; real xmax = 1.25;
real ymin = 0; real ymax = exp(xmax);
path f = graph(fcn, xmin, xmax, n=300);
path tan_line = graph(tangent_fcn, log(2)-0.5, log(2)+0.5);
draw(f);
draw(tan_line, HIGHLIGHT_COLOR);
dotfactor = 4;
dot(Label("$(\ln(2),2)$",filltype=Fill(white)), (log(2),2), 2*E);
// Axes making graph paper
pen GRAPHPAPERPEN=(0.25*LIGHT_COLOR+0.75*white)
+squarecap; // Make graph paper lines
xaxis(axis=YEquals(ymax+0.2),
xmin=xmin-0.5, xmax=xmax+0.5,
p=nullpen,
ticks=RightTicks("%", Step=1, OmitTick(0), extend=true, pTick=GRAPHPAPERPEN));
xaxis(axis=YEquals(ymin-0.2),
xmin=xmin-0.5, xmax=xmax+0.5,
p=nullpen,
ticks=RightTicks("%", Step=1, OmitTick(0), extend=true, pTick=GRAPHPAPERPEN));
yaxis(axis=XEquals(xmin-0.2),
ymin=ymin-0.5, ymax=ymax+0.5,
p=nullpen,
ticks=LeftTicks("%", Step=1, OmitTick(0), extend=true, pTick=GRAPHPAPERPEN));
yaxis(axis=XEquals(xmax+0.2),
ymin=ymin-0.5, ymax=ymax+0.5,
p=nullpen,
ticks=LeftTicks("%", Step=1, OmitTick(0), extend=true, pTick=GRAPHPAPERPEN));
// Axes in black with ticks
xaxis(xmin=xmin-0.2, xmax=xmax+0.2,
RightTicks(Step=1, step=0, Size=2pt),
Arrows(TeXHead));
yaxis(ymin=ymin, ymax=ymax+0.2,
LeftTicks(Step=1, OmitTick(0), Size=2pt),
Arrow(TeXHead)); // Arrow singular means no bottom arrow
|