From e0c6872cf40896c7be36b11dcc744620f10adf1d Mon Sep 17 00:00:00 2001 From: Norbert Preining Date: Mon, 2 Sep 2019 13:46:59 +0900 Subject: Initial commit --- graphics/mathspic/dos/mpicm15.m | 35 +++++++++++++++++++++++++++++++++++ 1 file changed, 35 insertions(+) create mode 100644 graphics/mathspic/dos/mpicm15.m (limited to 'graphics/mathspic/dos/mpicm15.m') diff --git a/graphics/mathspic/dos/mpicm15.m b/graphics/mathspic/dos/mpicm15.m new file mode 100644 index 0000000000..bb6896e9a1 --- /dev/null +++ b/graphics/mathspic/dos/mpicm15.m @@ -0,0 +1,35 @@ +%% mpicm15.m +%% mathsPIC +\documentclass[a4paper]{article} +\usepackage{pictexwd,amssymb} +\begin{document} +\beginpicture +%---------------- +paper{units(cm),xrange(0,6),yrange(73,77),axes(LBT*R*),ticks(1,1)} +variable(r){0.2} %% linefree radius +pointsymbol($\odot$) +point(d1){1, 76.2}[,r] +point(d2){2, 76.2}[,r] +point(d3){3, 75.5}[,r] +point(d4){4, 75.7}[,r] +point(d5){5, 74.6}[,r] +drawpoints(d1d2d3d4d5) +drawline(d1d2d3d4d5) +% +pointsymbol($\boxdot$) +point(k1){1, 75.2}[,r] +point(k2){2, 75.4}[,r] +point(k3){3, 74.8}[,r] +point(k4){4, 74.1}[,r] +point(k5){5, 74.0}[,r] +drawpoints(k1k2k3k4k5) +\setdashpattern <2pt, 2pt> +drawline(k1k2k3k4k5) +% +\plotheading{\textsf{\Large Weight change with diet}} +text(\shortstack{\textsf{\large Weight}\\($kg$)}){-1.5,75.3} +text(\textsf{\large Days}){3,72} +\endpicture +\end{document} + + -- cgit v1.2.3