summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/doc/metapost/featpost/example/f1aula05.mp
blob: 00b14ba67c80f3acb681c915163e9f61e2145550 (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
% f1aula05.mp
% L. Nobre G.
% 2007

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 := 29;
ahlength := 4.7mm;
labeloffset := 3.5mm;
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% {} []
beginfig(1);
  pen basepen, vecpen;
  basepen = pencircle scaled 0.5mm;
  vecpen = pencircle scaled 1.15mm;
  numeric ray, lscale, ang, stepang, rang, actang;
  ray = 5cm;
  lscale = 2.5;
  rang = -9;
  stepang = 18;
  path thearc;
  thearc = halfcircle scaled 2ray rotated rang;
  for ang=0 step stepang until 180+rang:
    drawarrow origin--(ray*dir(ang)) withpen vecpen;
    actang := ang;
  endfor;
  draw thearc withpen basepen withcolor red;
  label.llft( btex $\vec{r}$ etex scaled lscale, 0.5*ray*dir(actang) );
  for ang=0 step stepang until 180+rang:
    drawarrow (ray,0)--(ray*dir(ang)) withpen vecpen withcolor blue;
  endfor;
  label.bot( btex $\vec{r}_0$ etex scaled lscale, (0.5ray,0) );
  picture colabel;
  colabel = thelabel.urt(
    btex $\Delta\vec{r}\rightarrow d\vec{r}\parallel\vec{v}\perp\vec{r}_0$ etex
         scaled lscale, (ray,0) );
  draw colabel withcolor blue;
endfig;

beginfig(2);
  pen basepen, vecpen;
  basepen = pencircle scaled 0.5mm;
  vecpen = pencircle scaled 1.15mm;
  numeric ray, lscale, ang, stepang, rang, actang, fac;
  ray = 5cm;
  lscale = 2.5;
  rang = -9;
  stepang = 18;
  fac = 0.7;     
  path thearc, actv;
  thearc = halfcircle scaled 2ray rotated rang;
  for ang=0 step stepang until 180+rang:
    drawarrow (ray,0)--((ray,0)+fac*ray*dir(ang+90)) withpen vecpen
    withcolor green;
    actv := ((ray*dir(ang))--(ray*(dir(ang)+fac*dir(ang+90))));
    drawarrow actv withpen basepen;
    actang := ang;
  endfor;
  draw thearc withpen basepen withcolor red;
  label.lrt( btex $\vec{v}$ etex scaled lscale, point 0.5 of actv );
  for ang=0 step stepang until 180+rang:
    drawarrow (ray,fac*ray)--((ray,0)+fac*ray*dir(ang+90)) withpen vecpen
                                                           withcolor blue;
  endfor;
  label.rt( btex $\vec{v}_0$ etex scaled lscale, (ray,0.5*fac*ray) );
  picture colabel, relabel;
  colabel = thelabel.rt(
    btex $\Delta\vec{v}\rightarrow d\vec{v}\parallel\vec{a}\perp\vec{v}_0$ etex
         scaled lscale, (ray,fac*ray) );
  draw colabel withcolor blue;
%   drawarrow ((0,fac*ray)--(fac*ray*dir(stepang+90))) shifted (ray,-fac*ray)
%                                         withpen vecpen withcolor blue+green;
%   relabel = thelabel.rt(
%     btex $\Delta\vec{v}\parallel\vec{a}$ etex scaled lscale, (ray,0) );
%   draw relabel withcolor blue+green;
endfig;


verbatimtex
}
\end{document}
etex

end.