summaryrefslogtreecommitdiff
path: root/info/examples/PSTricks_7_de/27-02-38.ltx
diff options
context:
space:
mode:
Diffstat (limited to 'info/examples/PSTricks_7_de/27-02-38.ltx')
-rw-r--r--info/examples/PSTricks_7_de/27-02-38.ltx41
1 files changed, 41 insertions, 0 deletions
diff --git a/info/examples/PSTricks_7_de/27-02-38.ltx b/info/examples/PSTricks_7_de/27-02-38.ltx
new file mode 100644
index 0000000000..ffb3ff18bb
--- /dev/null
+++ b/info/examples/PSTricks_7_de/27-02-38.ltx
@@ -0,0 +1,41 @@
+%%
+%% Ein Beispiel der DANTE-Edition
+%%
+%% 7. Auflage
+%%
+%% Beispiel 27-02-38 auf Seite 589.
+%%
+%% Copyright (C) 2016 Herbert Voss
+%%
+%% It may be distributed and/or modified under the conditions
+%% of the LaTeX Project Public License, either version 1.3
+%% of this license or (at your option) any later version.
+%%
+%% See http://www.latex-project.org/lppl.txt for details.
+%%
+%%
+%% ====
+% Show page(s) 1
+%%
+%%
+\documentclass[]{exaarticle}
+\pagestyle{empty}
+\setlength\textwidth{169.16928pt}
+\setlength\parindent{0pt}
+%StartShownPreambleCommands
+\usepackage{pst-func}
+%StopShownPreambleCommands
+\begin{document}
+\begin{pspicture*}(-3,-2.2)(3.5,2.5)
+\psaxes{->}(0,0)(-3,-2)(3.2,2)
+\psplotImp[linewidth=2pt](-5,-2.2)(5,2.4){
+ /xqu x dup mul def /yqu y dup mul def
+ xqu yqu add dup mul 2 dup
+ add 2 mul xqu yqu sub mul sub }
+\rput*(2,1.5){%
+ $\left(x^2+y^2\right)^2-8(x^2-y^2)=0$}
+\psplotImp[linewidth=1pt,linecolor=red,
+ algebraic](-5,-2.2)(5,2.4){%
+ (x^2+y^2)^2-4*(x^2-y^2) }% Lemniskate a=2
+\end{pspicture*}
+\end{document}