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
|
prologues:=3;
if scantokens(mpversion) > 1.005:
outputtemplate :=
else:
filenametemplate
fi
"%j.mps";
verbatimtex
%&latex
\documentclass[11pt]{article}
\usepackage[charter]{mathdesign}
\usepackage[T1]{fontenc}
\renewcommand*{\ttdefault}{lmtt}
\begin{document}
etex
beginfig(0);
% Set unit size to 108pt = 3/2in
u:=72;
v:=2*u/(1+sqrt(5));
% Determine the size of the default font
w:=fontsize defaultfont;
% Draw the parabola
draw (-u,2*v){dir -angle(1*u,4*v)}..(-u/2,v/2){dir -angle(1*u,2*v)}..(0,0){right}..(u/2,v/2){dir angle(1*u,2*v)}..(u,2*v){dir angle(1*u,4*v)} withcolor red withpen pencircle scaled 1bp;
% Label f(x)
label.lft(btex $f(x)=x^2$ etex,(sqrt(3)/2*u,3/2*v));
% Draw x and y axes arrows
drawarrow (-u,0)--(u+w/2,0);
drawarrow (0,0)--(0,2*v+w/2);
% Label the x and y axes
label.rt(btex $x$ etex,(u+w/2,0));
label.top(btex $y$ etex,(0,2*v+w/2));
% Pad left size to horizontally center figure
label.lft(btex $\phantom{x}$ etex,(-u-w/2,0));
endfig;
end
|