summaryrefslogtreecommitdiff
path: root/graphics/mathspic/dos/mpicm14.m
diff options
context:
space:
mode:
Diffstat (limited to 'graphics/mathspic/dos/mpicm14.m')
-rw-r--r--graphics/mathspic/dos/mpicm14.m27
1 files changed, 27 insertions, 0 deletions
diff --git a/graphics/mathspic/dos/mpicm14.m b/graphics/mathspic/dos/mpicm14.m
new file mode 100644
index 0000000000..d6040044b2
--- /dev/null
+++ b/graphics/mathspic/dos/mpicm14.m
@@ -0,0 +1,27 @@
+%% 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)}
+\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
+variable(r){0.3} % define a line-free radius r=0.3 for points
+point(E1){1,3.5}[,r]
+text($f(x)=6x^4 - 8x^3 + 1$){E1} % center the equation at E1
+point(E2){1.4,2}[,r]
+drawarrow(E1E2)
+point(J1){0.55,2}[,r]
+text(inflection points){J1} % center inflection text at J1
+point(J2){0,1}[,r]
+point(J3){0.6,0}[,r]
+drawarrows(J1J2,J1J3)
+\endpicture
+%-----------------
+\end{document}
+