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
69
70
71
72
73
74
75
76
77
78
79
|
%* -------------------------------------------
%* mathsPIC 2.1
%* Copyright (c) RWD Nickalls 1999-2000
%* Email: dicknickalls@compuserve.com
%* Date (m/d/y) : 11-05-2000 21:13:42
%* Command Line: /b/s MPICM14.M
%* Input Filename: MPICM14.M
%* Output Filename: MPICM14.MT
%* -------------------------------------------
%% mPICm14.m
%% quartic curve for mathsPIC manual
%\documentclass[a4paper]{article}
%\usepackage{pictexwd}
%\begin{document}
%-----------------
\beginpicture
\linethickness=1pt %% make a thick line for the axes
%% paper{units(3cm,cm),xrange(-1,2),yrange(-2,4),axes(XY),ticks(1,1)}
\setcoordinatesystem units < 3cm, 1cm>
%% ... note: xunits & yunits are different
\setplotarea x from -1 to 2, y from -2 to 4
\axis left shiftedto x=0 ticks numbered from -2 to -1 by 1
from 1 to 4 by 1 /
\axis bottom shiftedto y=0 ticks numbered from -1 to -1 by 1
from 1 to 2 by 1 /
\linethickness=0.4pt %% reset to default value
\headingtoplotskip=8mm
\plotheading{\fbox{\Large A quartic equation}}
%% inputfile*(mpicm14.dat) % inputting file containing data points for curve
%% ... start of file <mpicm14.dat>
%% mpicm14.dat
%% quartic curve
%% Q.dat
\setquadratic
\plot
-0.6 3.50
-0.5 2.37
-0.4 1.66
-0.35 1.43
-0.3 1.26
-0.25 1.14
-0.2 1.07
-0.15 1.03
-0.1 1.00
-0.05 1.00
0 1
0.05 0.99
0.15 0.97
0.35 0.74
0.55 0.21
0.75 -0.47
0.80 -0.63
0.85 -0.78
0.95 -0.97
1.0 -1.0
1.05 -0.96
1.15 -0.67
1.25 0.02
1.35 1.24
1.45 3.13 /
%% ... end of file <mpicm14.dat>
%% variable(r){0.3} ( .3 ) % define a line-free radius r=0.3 for points
%% point(E1){1,3.5}[,r] ( 1 , 3.5 )
%% text($f(x)=6x^4 - 8x^3 + 1$){E1} % center the equation at E1
\put {$f(x)=6x^4 - 8x^3 + 1$} at 1 3.5
%% point(E2){1.4,2}[,r] ( 1.4 , 2 )
%% drawarrow(E1E2)
\arrow < 2mm> [ .2679492, .7279404] from 1.077299 3.210129 to 1.322701 2.289871
%% point(J1){0.55,2}[,r] ( .55 , 2 )
%% text(inflection points){J1} % center inflection text at J1
\put {inflection points} at .55 2
%% point(J2){0,1}[,r] ( 0 , 1 )
%% point(J3){0.6,0}[,r] ( .6 , 0 )
%% drawarrows(J1J2,J1J3)
\arrow < 2mm> [ .2679492, .7279404] from .4054244 1.737135 to .1445756 1.262865
\arrow < 2mm> [ .2679492, .7279404] from .5574977 1.700094 to .5925024 .2999063
\endpicture
%-----------------
%\end{document}
|