%%
%% This is file `ex-eepic.tex',
%% generated with the docstrip utility.
%%
%% The original source files were:
%%
%% coordsys.dtx  (with options: `eepic')
%% 
%% 
%%  This is the coordsys and logsys packages
%%  Copyright 2000 by Mogens Lemvig Hansen,
%%                    mlhansen@uniserve.com
%% 
%% This program may be distributed and/or modified under the
%% conditions of the LaTeX Project Public License, either version 1.2
%% of this license or (at your option) any later version.
%% The latest version of this license is in
%%   http://www.latex-project.org/lppl.txt
%% and version 1.2 or later is part of all distributions of LaTeX
%% version 1999/12/01 or later.
%% 
%% This program consists of the files coordsys.dtx and coordsys.ins
%% 
\documentclass{jarticle}
\usepackage{coordsys,logsys,epic,eepic}
\title{Examples of combining the \textsf{coordsys} and \textsf{logsys}
packages with the \textsf{epic} and \textsf{eepic} packages}
\author{Mogens Lemvig Hansen\thanks{This file is part of the \textsf{coordsys}
package.}}
\date{2000/10/24}
\begin{filecontents*}{parabola.put}
%% plot( x^2/10, x=-10..10);
-10             10
-9.5640569167   9.1471184705
-9.1847451708   8.4359543853
-8.7581694417   7.6705531969
-8.3287660917   6.936834461
-7.9014036208   6.2432179179
-7.5051839042   5.6327785435
-7.0949213375   5.0337908785
-6.6706272042   4.4497267297
-6.2476937875   3.9033677662
-5.8126547833   3.378695563
-5.4294721917   2.947916828
-4.99809935     2.4980997112
-4.56495525     2.0838816435
-4.14754065     1.7202093443
-3.7684882042   1.4201503345
-3.3177581833   1.1007519363
-2.9359307333   .8619689271
-2.4917746375   .6208940844
-2.0986212333   .4404211081
-1.6672696375   .2779788044
-1.2565209125   .1578844804
-.8279477083    .0685497408
-.4343837208    .0188689217
0               0
.4310767958     .0185827204
.8149238375     .0664100861
1.2294891583    .151164359
1.6577757       .2748220272
2.076770525     .4312975814
2.4821695625    .6161165737
2.932296075     .8598360271
3.3367547667    1.1133932373
3.76860075      1.4202351613
4.1599173958    1.730491274
4.58772985      2.1047265177
4.9902680292    2.4902775003
5.4110364125    2.9279315057
5.8224144167    3.3900509639
6.2530890625    3.9101122824
6.6678799333    4.4460622805
7.0920635083    5.0297364806
7.5127346292    5.6441181608
7.8992877       6.2398746167
8.3423211417    6.9594322031
8.7385755333    7.6362702352
9.1610653625    8.3925118576
9.5654420375    9.1497681373
10              10
\end{filecontents*}
\begin{filecontents*}{cardioid.put}
%% polarplot( 1+sin(theta), theta=0..2*Pi);
%% scale=[100,100]
100             0
112.5885641573  15.5167663413
121.2445570425  31.7504425488
124.9346771084  41.8359445153
127.6592595167  52.4947513916
129.3454818525  63.6951715609
129.9035430519  75.2485730688
129.2857844612  86.9697309187
127.4606933136  98.778656501
124.6721568792  109.6842233725
120.8254764621  120.4325701546
115.7383687774  131.2750353131
109.5537903246  141.7021595985
102.04682232    151.9193228577
93.4710635868   161.4324297982
83.9356546875   170.0932289956
73.5054672343   177.8221882058
61.9526995832   184.6948697614
49.6891673596   190.3811055007
38.4075821367   194.3437411329
26.7804868717   197.2817805659
13.4073287469   199.3241367541
-.1194213848    199.9999465195
-13.7001223321  199.2942126268
-27.1225920093  197.211114697
-39.7635841421  193.9272282403
-51.9803652016  189.433045519
-62.5994526909  184.3513592329
-72.6733475464  178.3723143526
-83.8276198091  170.1818641203
-93.9669994784  160.9319074122
-101.6806050772 152.3668332452
-108.5310152046 143.226867249
-115.3534291624 131.9963774127
-120.8924957252 120.2693143392
-124.697389318  109.6016438805
-127.4604098723 98.78002972
-129.2969481099 86.8610741542
-129.9038059061 75.0328108808
-129.3734142009 63.9799851226
-127.8092628576 53.2473447208
-121.4895655594 32.3328189346
-112.5480715584 15.4550062449
-100.309648545  .3110927557
-85.706682373   -11.6784625329
-72.2431828754  -18.9103729475
-57.7358426983  -23.4802621906
-43.5809250175  -24.9994139188
-31.2181592951  -23.8524357161
-21.1087971266  -20.8736260664
-12.3189830664  -16.2186836807
-6.6594577853   -11.5632050042
-2.7880857408   -6.8438795102
-.9032538593    -3.3426230747
-.1081790589    -.8305646656
0               -.0004673786
.1072134621     -.8256496288
.8480702702     -3.2090325729
2.9340896713    -7.0641211764
6.712690173     -11.6164927603
12.7269542038   -16.4922352222
20.9946044182   -20.8272865832
30.5670656754   -23.7212041699
43.5839748809   -24.9994010709
56.6417957327   -23.7003283539
71.394649273    -19.2648555582
85.5865127718   -11.7574410531
100.000000082   0
\end{filecontents*}
\begin{filecontents*}{logxxp1.put}
%% logplot( x^2+1, x=-5..5);
%% scale=[1,5]
-5              7.074866740
-4.7820284583   6.889061600
-4.5923725854   6.720967370
-4.3790847208   6.524216565
-4.1643830458   6.317243645
-3.9507018104   6.101592535
-3.7525919521   5.892286960
-3.5474606688   5.665214645
-3.3353136021   5.418286380
-3.1238468938   5.158742355
-2.9063273917   4.876409562
-2.7147360958   4.613573345
-2.499049675    4.300266661
-2.282477625    3.965354533
-2.073770325    3.621593765
-1.8842441021   3.290236343
-1.6588790917   2.871244605
-1.4679653667   2.494943352
-1.2458873188   2.034603480
-1.0493106167   1.612184802
-.8336348187    1.145780627
-.6282604562    .722421444
-.4139738542    .3434785533
-.2171918604    .1000907366
-.0049358958    0
.2155383979     .0986065242
.4074619188     .3335397102
.6147445792     .696105675
.82888785       1.135646294
1.0383852625    1.588482628
1.2410847813    2.024417719
1.4661480375    2.491270161
1.6683773833    2.889458989
1.884300375     3.290337540
2.0799586979    3.632098842
2.293864925     3.983501612
2.4951340146    4.294397753
2.7055182063    4.600571939
2.9112072083    4.882925293
3.1265445313    5.162142965
3.3339399667    5.416645000
3.5460317542    5.663593805
3.7563673146    5.896364775
3.94964385      6.100499435
4.1711605708    6.323921585
4.3692877667    6.514972705
4.5805326813    6.710264855
4.7827210188    6.889664180
5               7.074866740
\end{filecontents*}
\begin{document}
\maketitle
Your .dvi pre-viewer may not display the \textsc{PostScript} curves generated
by the \textsf{eepic} package.

Points on the parabola $y=\frac{x^2}{10}$.
\begin{center}
\setlength{\unitlength}{10pt}
\begin{picture}(21,12)(-10,-1)
\coordsys[1](-10,0)(11,11)
\putfile{parabola.put}{\picsquare}
\end{picture}
\end{center}

The parabola $y=\frac{x^2}{10}$.
\begin{center}
\setlength{\unitlength}{10pt}
\begin{picture}(21,12)(-10,-1)
\coordsys[1](-10,0)(11,11)
\begin{drawjoin}
\let\put=\jput
\putfile{parabola.put}{\picsquare}
\end{drawjoin}
\end{picture}
\end{center}

The same curve again but dressed up to look like $y=x^2$.
\begin{center}
\setlength{\unitlength}{10pt}
\begin{picture}(21,12)(-10,-1)
\coordsys*[1](-10,0)(11,11)
\put(-10,0){\sethlabel{-10}}
\put( -5,0){\sethlabel{-5}}
\put(  5,0){\sethlabel{5}}
\put( 10,0){\sethlabel{10}}
\put(0, 5){\setvlabel{50}}
\put(0,10){\setvlabel{100}}
\begin{drawjoin}
\let\put=\jput
\putfile{parabola.put}{\picsquare}
\end{drawjoin}
\end{picture}
\end{center}

The graph of $r=1+\sin\theta$ in polar coordinates.
The .put file has been scaled by a factor $100$, so the coordinate system is
scaled the other way.
\begin{center}
\setlength{\unitlength}{0.6pt}
\begin{picture}(295,260)(-145,-50)
\coordsys*(-145,-50)(150,210)
\put(-100,0){\sethlabel{1}}
\put( 100,0){\sethlabel{1}}
\put(0,-50){\setvlabel{-\frac12}}
\put(0,100){\setvlabel{1}}
\put(0,200){\setvlabel{2}}
\begin{drawjoin}
\let\put=\jput
\putfile{cardioid.put}{\picsquare}
\end{drawjoin}
\end{picture}
\end{center}

The graph of $y=x^2+1$ in a logarithmic coordinate system.
The size of each logarithmic block on the $y$-axis is $5$ units.
\begin{center}
\setlength{\unitlength}{10pt}
\begin{picture}(12,12)(-6,-1)
\logsys[1][5](-6,0)(6,11)
\begin{drawjoin}
\let\put=\jput
\putfile{logxxp1.put}{\picsquare}
\end{drawjoin}
\end{picture}
\end{center}

\end{document}
\endinput
%%
%% End of file `ex-eepic.tex'.
