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/mpicm14.pic |
Initial commit
Diffstat (limited to 'graphics/mathspic/dos/mpicm14.pic')
-rw-r--r-- | graphics/mathspic/dos/mpicm14.pic | 79 |
1 files changed, 79 insertions, 0 deletions
diff --git a/graphics/mathspic/dos/mpicm14.pic b/graphics/mathspic/dos/mpicm14.pic new file mode 100644 index 0000000000..13c29b634d --- /dev/null +++ b/graphics/mathspic/dos/mpicm14.pic @@ -0,0 +1,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} |