diff options
author | Norbert Preining <norbert@preining.info> | 2019-09-02 13:46:59 +0900 |
---|---|---|
committer | Norbert Preining <norbert@preining.info> | 2019-09-02 13:46:59 +0900 |
commit | e0c6872cf40896c7be36b11dcc744620f10adf1d (patch) | |
tree | 60335e10d2f4354b0674ec22d7b53f0f8abee672 /graphics/mathspic/dos/mpicm15.pic |
Initial commit
Diffstat (limited to 'graphics/mathspic/dos/mpicm15.pic')
-rw-r--r-- | graphics/mathspic/dos/mpicm15.pic | 68 |
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} |