summaryrefslogtreecommitdiff
path: root/graphics/mathspic/dos/mpicm14.pic
diff options
context:
space:
mode:
authorNorbert Preining <norbert@preining.info>2019-09-02 13:46:59 +0900
committerNorbert Preining <norbert@preining.info>2019-09-02 13:46:59 +0900
commite0c6872cf40896c7be36b11dcc744620f10adf1d (patch)
tree60335e10d2f4354b0674ec22d7b53f0f8abee672 /graphics/mathspic/dos/mpicm14.pic
Initial commit
Diffstat (limited to 'graphics/mathspic/dos/mpicm14.pic')
-rw-r--r--graphics/mathspic/dos/mpicm14.pic79
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}