<html>
<head>
<style><!--
.hmmessage P
{
margin:0px;
padding:0px
}
body.hmmessage
{
font-size: 10pt;
font-family:Verdana
}
--></style>
</head>
<body class='hmmessage'>
Dear list members, Michael Sharpe, <BR><BR>Michael's suggestions were both very useful and accurate. <BR>Thank you very much. <BR><BR>Actually I had to draw two figures. After some tests I came up <BR>with the code in this message. I put it here because I think <BR>it may help other people. <BR><BR>Luis <BR><BR>\usepackage{pstricks-add} %11/02/10<BR>\usepackage{pst-func} %09/07/10<BR>
<BR>\begin{document}<BR>\thispagestyle{empty}<BR>\begin{figure}[ht!] %[H]<BR>\begin{center}<BR>\setlength{\fboxrule}{1pt} \setlength{\fboxsep}{3mm}<BR>\fbox{%\framebox[\textwidth]{}<BR>\psset{xunit=0.5cm,yunit=0.5cm,algebraic=true,dotstyle=o,dotsize=3pt 0,linewidth=0.8pt,arrowsize=3pt 2,arrowinset=0.25}<BR>\begin{pspicture*}(-5.1,-17)(17,7.5)<BR>\psaxes[Dx=4,Dy=1,subticks=2]{->}(0,0)(-4.4,-16.5)(16,4.8)[$x$,-135][$y$,-45]<BR>\pscircle(2.5,3.1754264805){2.020726442}<BR>%part in fourth quadrant in green not too low<BR>\psclip{\psframe[linestyle=none](-5,-16)(14,4)}<BR>\psplotImp[algebraic,linecolor=green,linewidth=2pt](-6.1,-18)(19,5){ y*(x^2-10*x+y^2)*11/14+(x^3-5*x^2+y^2*x+5*y^2)*5*sqrt(3)/14 }\endpsclip<BR>%overdraw part in second quadrant with yellow<BR>\psclip{\psframe[linestyle=none](-5,0)(0,4)}<BR>\psplotImp[algebraic,linecolor=yellow,linewidth=2pt](-6.1,-18)(19,5){ y*(x^2-10*x+y^2)*11/14+(x^3-5*x^2+y^2*x+5*y^2)*5*sqrt(3)/14 }\endpsclip<BR>%overdraw part in first quadrant with red<BR>\psclip{\psframe[linestyle=none](0,0)(6,4)}<BR>\psplotImp[algebraic,linecolor=red,linewidth=2pt](-6.1,-18)(19,5){ y*(x^2-10*x+y^2)*11/14+(x^3-5*x^2+y^2*x+5*y^2)*5*sqrt(3)/14 }\endpsclip<BR>%overdraw part in fourth quadrant with blue<BR>\psclip{\psframe[linestyle=none](0,0)(6,-2)}<BR>\psplotImp[algebraic,linecolor=blue,linewidth=2pt](-6.1,-18)(19,5){ y*(x^2-10*x+y^2)*11/14+(x^3-5*x^2+y^2*x+5*y^2)*5*sqrt(3)/14 }\endpsclip<BR>\rput[tl](6.1,5.9){$\Gamma$}<BR>\end{pspicture*}}<BR>\caption{Lugar geométrico de $D_{_{\!b}}$ e $E_{_{b}}$ quando $\mathbf A$ percorre $\Gamma$.}<BR>\label{figuraexer29b}<BR>\end{center}<BR>\end{figure}<BR>
<BR>\clearpage<BR>\thispagestyle{empty}<BR><BR>\begin{figure}[ht!] %[H]<BR>\begin{center}<BR>\setlength{\fboxrule}{1pt} \setlength{\fboxsep}{3mm}<BR>\fbox{%\framebox[\textwidth]{}<BR>\newrgbcolor{zzttqq}{0.6 0.2 0}<BR>\psset{xunit=1cm,yunit=1cm,algebraic=true,dotstyle=o,dotsize=3pt 0,linewidth=0.8pt,arrowsize=3pt 2,arrowinset=0.25}<BR>\begin{pspicture*}(-3.1,-9.1)(8.1,7.5)<BR>\pspolygon[linestyle=none,fillstyle=solid,fillcolor=yellow,opacity=0.1](4,6.9282032303)(0,0)(5,0)<BR>\pscircle(2.5,3.1754264805){4.0414518843}<BR>\psline[linewidth=1.2pt](5.6859330091,0.6888295701)(0,0)<BR>\parametricplot{-0.3530103733484262}{0.9578293132860366}{1*5.3293871002*cos(t)+0*5.3293871002*sin(t)+0|0*5.3293871002*cos(t)+1*5.3293871002*sin(t)+0}<BR>\rput[tl](5.8,5.9){$\Gamma$}<BR>\rput[lb](3.4,4.15){$\phi$}<BR>\psline[linewidth=1.2pt](4,6.9282032303)(0,0)<BR>\psline[linewidth=1.2pt](0,0)(5,0)<BR>\psline[linewidth=1.2pt](5,0)(4,6.9282032303)<BR>\psline[linewidth=1.2pt](5.6859330091,0.6888295701)(5,0)<BR>\psdots[dotstyle=*,linecolor=blue](0,0)<BR>\rput[bl](-0.47,-0.3){$\mathbf B$}<BR>\psdots[dotstyle=*,linecolor=blue](5,0)<BR>\rput[bl](4.9179224864,-0.3907301549){$\mathbf C$}<BR>\psdots[dotstyle=*,linecolor=darkgray](4,6.9282032303)<BR>\rput[bl](3.9,7.05){$\mathbf A$}<BR>\psdots[dotstyle=*,linecolor=darkgray](4.6153846154,2.6646935501)<BR>\rput[bl](4.7,2.67){$D_{_{\!b}}$}<BR>\psdots[dotstyle=*,linecolor=darkgray](5.6859330091,0.6888295701)<BR>\rput[bl](5.8,0.56){$\mathbf A{\boldsymbol'}$}<BR>\psdots[dotstyle=*,linecolor=darkgray](5.3197075904,0.3210576531)<BR>\rput[bl](5.4328074219,0.0){$D'_{_{\!b}}$}<BR>%part in green not too low<BR>\psclip{\psframe[linestyle=none](-4,-8)(9,4.5)}<BR>\psplotImp[algebraic,linecolor=green,linewidth=2pt](-4.1,-9.5)(10,4.5){ y*(x^2-10*x+y^2)*11/14+(x^3-5*x^2+y^2*x+5*y^2)*5*sqrt(3)/14 }\endpsclip<BR>%overdraw part in first quadrant with red<BR>\psclip{\psframe[linestyle=none](0,0)(6,4)}<BR>\psplotImp[algebraic,linecolor=red,linewidth=2pt](-6.1,-18)(19,5){ y*(x^2-10*x+y^2)*11/14+(x^3-5*x^2+y^2*x+5*y^2)*5*sqrt(3)/14 }\endpsclip<BR>%overdraw part in fourth quadrant with blue<BR>\psclip{\psframe[linestyle=none](0,0)(6,-2)}<BR>\psplotImp[algebraic,linecolor=blue,linewidth=2pt](-6.1,-18)(19,5){ y*(x^2-10*x+y^2)*11/14+(x^3-5*x^2+y^2*x+5*y^2)*5*sqrt(3)/14 }\endpsclip<BR>\rput[tc](2.5,-8.9){Triângulo dados \texttt<$\,\alpha,a,d_{_b}$\texttt>}<BR>\end{pspicture*}}<BR>\vspace*{0pt}<BR>\caption{Exercícios 29 e 34.}<BR>\label{figuraexer29a}<BR>\end{center}<BR>\end{figure}<BR>\end{document}<BR><BR><BR>========<BR>> Message: 6<BR>> Date: Tue, 13 Jul 2010 15:22:21 -0700<BR>> From: Michael Sharpe <msharpe@ucsd.edu><BR>> To: Graphics with PSTricks <pstricks@tug.org><BR>> Subject: Re: [pstricks] 4 different colors in a psplotImp curve<BR>> Message-ID: <BD5018BB-7937-4CD9-9497-0704E2BCCF76@ucsd.edu><BR>> Content-Type: text/plain; charset=iso-8859-1<BR>> <BR>> <BR>> On Jul 13, 2010, at 2:15 PM, Luis Lopes wrote:<BR>> <BR>> > Dear list members,<BR>> > <BR>> > Hello.<BR>> > <BR>> > I am a new member of this list. This is my first email, hope I will be<BR>> > able to send it correctly.<BR>> > <BR>> > I have three requests concerning the code below:<BR>> > <BR>> > 1) I would like to have 4 different colors in the red curve,<BR>> > one for which natural part of the curve.<BR>> > <BR>> > 2) the curve should stop around the point (13,-16).<BR>> > <BR>> > 3) the two <-1> label of the axes are not well placed.<BR>> > How NOT to put them in the axes?<BR><BR>[....]clip<BR> <BR> <BR>> 1. I'm not sure what your four natural parts are, but clipping seems like the solution. See below.<BR>> <BR>> 2. Use a tighter pspicture bound (or clipping to a smaller region. See below.<BR>> <BR>> 3. Use Dx=2,Dy=2 to space the labels better.<BR>> <BR>> \psaxes[Dx=2,Dy=2,subticks=2]{->}(0,0)(-4.4,-16.5)(16,4.8)[$x$,-135][$y$,-45]<BR>> \pscircle(2.5,3.1754264805){2.020726442}<BR>> %draw entire curve in red<BR>> \psplotImp[algebraic,linecolor=red,linewidth=2pt](-6.1,-18)(19,5){ y*(x^2-10*x+y^2)*11/14+(x^3-5*x^2+y^2*x+5*y^2)*5*sqrt(3)/14 }<BR>> %overdraw part in second quadrant with blue<BR>> \psclip{\psframe[linestyle=none](-5,0)(0,4)}<BR>> \psplotImp[algebraic,linecolor=blue,linewidth=2pt](-6.1,-18)(19,5){ y*(x^2-10*x+y^2)*11/14+(x^3-5*x^2+y^2*x+5*y^2)*5*sqrt(3)/14 }\endpsclip<BR>> <BR>> Michael<BR><BR>                                            <br /><hr />O INTERNET EXPLORER 8 AJUDA VOCÊ A FICAR LONGE DOS VÍRUS. <a href='http://www.microsoft.com/brasil/windows/internet-explorer/features/stay-safer-online.aspx?tabid=1&catid=1&WT.mc_id=1632' target='_new'>DESCUBRA COMO.</a></body>
</html>