summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/doc/metapost/featpost/example/potenciadecicloeliptico.mp
diff options
context:
space:
mode:
Diffstat (limited to 'Master/texmf-dist/doc/metapost/featpost/example/potenciadecicloeliptico.mp')
-rw-r--r--Master/texmf-dist/doc/metapost/featpost/example/potenciadecicloeliptico.mp46
1 files changed, 46 insertions, 0 deletions
diff --git a/Master/texmf-dist/doc/metapost/featpost/example/potenciadecicloeliptico.mp b/Master/texmf-dist/doc/metapost/featpost/example/potenciadecicloeliptico.mp
new file mode 100644
index 00000000000..ed7ca2c7ff9
--- /dev/null
+++ b/Master/texmf-dist/doc/metapost/featpost/example/potenciadecicloeliptico.mp
@@ -0,0 +1,46 @@
+% potenciadecicloeliptico.mp
+% L. Nobre G.
+% 2008
+
+verbatimtex
+\documentclass{article}
+\usepackage{palatino,concmath,ccfonts}
+\begin{document}
+etex
+
+beginfig(1);
+ numeric u,w,h;
+ u = 5mm;
+ w = 11u;
+ h = 6u;
+ drawarrow origin--(0,h);
+ drawarrow origin--(w,0);
+ label.lft( btex $p$ etex, (0,h) );
+ label.bot( btex $V$ etex, (w,0) );
+ numeric wm, hm, tl;
+ tl = 0.05*h;
+ wm = 0.1+uniformdeviate(0.07);
+ hm = 0.1+uniformdeviate(0.07);
+ path elipse;
+ elipse = fullcircle xscaled (w-2*w*wm) yscaled (h-2*h*hm)
+ shifted (w/2,h/2);
+ draw elipse;
+ z1 = (w*wm,0);
+ z3 = (w*(1-wm),0);
+ z2 = (0,h*(1-hm));
+ z4 = (0,h*hm);
+ draw z1--(z1+tl*up);
+ draw z3--(z3+tl*up);
+ draw z2--(z2+tl*right);
+ draw z4--(z4+tl*right);
+ label.lft( btex $p_b$ etex, z2 );
+ label.bot( btex $V_a$ etex, z1 );
+ label.lft( btex $p_d$ etex, z4 );
+ label.bot( btex $V_c$ etex, z3 );
+endfig;
+
+verbatimtex
+\end{document}
+etex
+
+end.