summaryrefslogtreecommitdiff
path: root/graphics/mathspic/dos/mpicm15.pic
diff options
context:
space:
mode:
authorNorbert Preining <norbert@preining.info>2019-09-02 13:46:59 +0900
committerNorbert Preining <norbert@preining.info>2019-09-02 13:46:59 +0900
commite0c6872cf40896c7be36b11dcc744620f10adf1d (patch)
tree60335e10d2f4354b0674ec22d7b53f0f8abee672 /graphics/mathspic/dos/mpicm15.pic
Initial commit
Diffstat (limited to 'graphics/mathspic/dos/mpicm15.pic')
-rw-r--r--graphics/mathspic/dos/mpicm15.pic68
1 files changed, 68 insertions, 0 deletions
diff --git a/graphics/mathspic/dos/mpicm15.pic b/graphics/mathspic/dos/mpicm15.pic
new file mode 100644
index 0000000000..19bac0dbf3
--- /dev/null
+++ b/graphics/mathspic/dos/mpicm15.pic
@@ -0,0 +1,68 @@
+%* -------------------------------------------
+%* mathsPIC 2.1
+%* Copyright (c) RWD Nickalls 1999-2000
+%* Email: dicknickalls@compuserve.com
+%* Date (m/d/y) : 11-05-2000 21:14:59
+%* Command Line: /b/s MPICM15.M
+%* Input Filename: MPICM15.M
+%* Output Filename: MPICM15.MT
+%* -------------------------------------------
+%% 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)}
+\setcoordinatesystem units < 1cm, 1cm>
+\setplotarea x from 0 to 6, y from 73 to 77
+\axis left ticks numbered from 73 to 77 by 1 /
+\axis right /
+\axis top /
+\axis bottom ticks numbered from 0 to 6 by 1 /
+%% variable(r){0.2} ( .2 ) %% linefree radius
+%% pointsymbol($\odot$)
+%% point(d1){1,76.2}[,r] ( 1 , 76.2 )
+%% point(d2){2,76.2}[,r] ( 2 , 76.2 )
+%% point(d3){3,75.5}[,r] ( 3 , 75.5 )
+%% point(d4){4,75.7}[,r] ( 4 , 75.7 )
+%% point(d5){5,74.6}[,r] ( 5 , 74.6 )
+%% drawpoints(d1d2d3d4d5)
+\put {$\odot$} at 1 76.2 %% d1
+\put {$\odot$} at 2 76.2 %% d2
+\put {$\odot$} at 3 75.5 %% d3
+\put {$\odot$} at 4 75.7 %% d4
+\put {$\odot$} at 5 74.6 %% d5
+%% drawline(d1d2d3d4d5)
+\putrule from 1.2 76.2 to 1.8 76.2 %% d1d2
+\plot 2.163847 76.0853 2.836153 75.61469 / %% d2d3
+\plot 3.196116 75.53922 3.803884 75.66077 / %% d3d4
+\plot 4.134535 75.55201 4.865465 74.74799 / %% d4d5
+%
+%% pointsymbol($\boxdot$)
+%% point(k1){1,75.2}[,r] ( 1 , 75.2 )
+%% point(k2){2,75.4}[,r] ( 2 , 75.4 )
+%% point(k3){3,74.8}[,r] ( 3 , 74.8 )
+%% point(k4){4,74.1}[,r] ( 4 , 74.1 )
+%% point(k5){5,74.0}[,r] ( 5 , 74 )
+%% drawpoints(k1k2k3k4k5)
+\put {$\boxdot$} at 1 75.2 %% k1
+\put {$\boxdot$} at 2 75.4 %% k2
+\put {$\boxdot$} at 3 74.8 %% k3
+\put {$\boxdot$} at 4 74.1 %% k4
+\put {$\boxdot$} at 5 74 %% k5
+\setdashpattern <2pt, 2pt>
+%% drawline(k1k2k3k4k5)
+\plot 1.196116 75.23922 1.803884 75.36078 / %% k1k2
+\plot 2.171499 75.2971 2.828501 74.9029 / %% k2k3
+\plot 3.163846 74.68531 3.836154 74.21469 / %% k3k4
+\plot 4.199008 74.0801 4.800992 74.0199 / %% k4k5
+%
+\plotheading{\textsf{\Large Weight change with diet}}
+%% text(\shortstack{\textsf{\large Weight}\\($kg$)}){-1.5,75.3}
+\put {\shortstack{\textsf{\large Weight}\\($kg$)}} at -1.5 75.3
+%% text(\textsf{\large Days}){3,72}
+\put {\textsf{\large Days}} at 3 72
+\endpicture
+%\end{document}