summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/doc/metapost/featpost/example/f1aula03.mp
blob: 2b82f4af231ec764efd9cd779a801fe9cc07c84e (plain)
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
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
% f1aula03.mp
% L. Nobre G.
% 2010 removed package icomma

verbatimtex
\documentclass{beamer}
\usepackage{amsmath,amssymb}
\usepackage[squaren]{SIunits}
\usepackage[latin1]{inputenc}
\usepackage[portuges]{babel}
\newcommand{\veri}{\ensuremath{\hat{\text{i}}}}
\newcommand{\verj}{\ensuremath{\hat{\text{j}}}}
\newcommand{\verk}{\ensuremath{\hat{\text{k}}}}
\newcommand{\veru}{\ensuremath{\hat{\text{u}}}}
\newcommand{\emf}{\ensuremath{\mathcal{E}}}
\newcommand{\vecnorm}[1]{\left|\left|\vec{#1}\right|\right|}
\renewcommand{\arraystretch}{1.45}
\begin{document}
\frame{
etex

ahangle := 36;
ahlength := 3.5mm;
labeloffset := 3.5mm;
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% {} []
beginfig(1);
  pen basepen, vecpen;
  basepen = pencircle scaled 0.5mm;
  vecpen = pencircle scaled 1.15mm;
  path mainaxe;
  numeric malen, mastep, matic, lscale;
  malen = 10cm;
  mastep = 5mm;
  matic = 2mm;
  lscale = 2.5;
  mainaxe = origin--(malen,0);
  drawarrow mainaxe withpen basepen;
  label.bot( btex $x$ etex scaled lscale, (malen,0) );
  pair refpa, refpb, refpc;
  refpa = (6mastep,0);
  refpb = (12mastep,0);
  refpc = (14mastep,0);
  drawarrow refpb--refpa withpen vecpen withcolor red;
  label.top( btex $\vec{v}$ etex scaled lscale, 0.5[refpa,refpb] );
  drawarrow refpb--refpc withpen vecpen withcolor blue;
  label.top( btex \veri etex scaled lscale, 0.5[refpc,refpb] );
  numeric i;
  for i=mastep step 2mastep until malen-2mastep:
    draw (i,-0.5matic)--(i,0.5matic) withpen basepen;
    draw (i+mastep,-matic)--(i+mastep,matic) withpen basepen;
  endfor;
  label.bot( btex -3 etex scaled lscale, refpa );
  label.bot( btex 0 etex scaled lscale, refpb );
  label.bot( btex 1 etex scaled lscale, refpc );
endfig;

beginfig(2);
  drawarrow mainaxe withpen basepen;
  label.bot( btex $x$ etex scaled lscale, (malen,0) );
  drawarrow refpb--refpa withpen vecpen withcolor red;
  label.top( btex $\Delta x$ etex scaled lscale, 0.5[refpa,refpb] );
  draw (6mastep,-matic)--(6mastep,matic) withpen basepen;
  draw (12mastep,-matic)--(12mastep,matic) withpen basepen;
  label.bot( btex fim etex scaled lscale, refpa );
  label.bot( btex início etex scaled lscale, refpb );
endfig;

beginfig(3);
  pair refpd;
  refpd = (malen,-6mastep);
  drawarrow refpb--refpa withpen vecpen withcolor red;
  drawarrow refpd--refpa withpen basepen;
  drawarrow refpd--refpb withpen basepen;
  label.top( btex $\Delta \vec{x}$ etex scaled lscale, 0.5[refpa,refpb] );
  label.llft( btex $\vec{x}_2$ etex scaled lscale, 0.5[refpd,refpa] );
  label.urt( btex $\vec{x}_1$ etex scaled lscale, 0.5[refpd,refpb] );
endfig;

beginfig(4)
  numeric an;
  an = angle(refpd);
  path angpa, cutp, calfa, cbeta;
  angpa = refpd--origin--(malen,0);
  cutp = origin--(28*mastep*dir(-an));
  calfa = halfcircle scaled (24mastep);
  calfa := calfa cutafter cutp;
  cbeta = halfcircle scaled (28mastep);
  cbeta := cbeta cutafter cutp;
  drawoptions( withpen basepen );
  drawarrow angpa;
  drawarrow fullcircle scaled (12mastep) cutafter angpa;
  drawarrow calfa rotated an;
  drawarrow reverse (cbeta rotated an);
  label.bot( btex $\theta$ etex scaled lscale, (0,-6mastep) );
  label.llft( btex $\alpha$ etex scaled lscale, refpb );
  label.lrt( btex $\beta$ etex scaled lscale, refpc );  
endfig;

verbatimtex
}
\end{document}
etex

end.