summaryrefslogtreecommitdiff
path: root/graphics/mathspic/dos/mpicm15.pic
blob: 19bac0dbf389269bbe31a27b2107fd3f8bf8f1a7 (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
%* -------------------------------------------
%* 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}