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}
|
