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