<font color='black' size='2' face='Arial, Helvetica, sans-serif'><span id="result_box" class="long_text" lang="en"><span title="Cliquer ici pour voir d'autres traductions" class="hps">Yes</span><span class="" title="Cliquer ici pour voir d'autres traductions">,</span> <span title="Cliquer ici pour voir d'autres traductions" class="hps">it's easier</span><span class="" title="Cliquer ici pour voir d'autres traductions">!</span> <span title="Cliquer ici pour voir d'autres traductions" class="hps">But</span> <span title="Cliquer ici pour voir d'autres traductions" class="hps">I</span> <span title="Cliquer ici pour voir d'autres traductions" class="hps">add my</span> <span title="Cliquer ici pour voir d'autres traductions" class="hps">version</span> <span title="Cliquer ici pour voir d'autres traductions" class="hps">slightly modified by replacing</span> <span title="Cliquer ici pour voir d'autres traductions" class="hps atn">"</span><span class="" title="Cliquer ici pour voir d'autres traductions">idiv</span><span class="" title="Cliquer ici pour voir d'autres traductions">"with</span> <span title="Cliquer ici pour voir d'autres traductions" class="hps atn">"</span><span class="" title="Cliquer ici pour voir d'autres traductions">div</span><span class="" title="Cliquer ici pour voir d'autres traductions">"</span><span class="" title="Cliquer ici pour voir d'autres traductions">.</span><br>
<br>
<span title="Cliquer ici pour voir d'autres traductions" class="hps">Compare</span> <span title="Cliquer ici pour voir d'autres traductions" class="hps">the</span> <span title="Cliquer ici pour voir d'autres traductions" class="hps">two</span> <span title="Cliquer ici pour voir d'autres traductions" class="hps">versions</span><span class="" title="Cliquer ici pour voir d'autres traductions">:</span> <span title="Cliquer ici pour voir d'autres traductions" class="hps">the same results</span><span class="" title="Cliquer ici pour voir d'autres traductions">!<font size="2"><br>
<br>
<font face="Arial, Helvetica, sans-serif">%%%%%%%%%%%%%%%%%%%%%%%%ù<br>
<br>
\documentclass{article}<br>
\usepackage{pst-solides3d}<br>
\begin{document}<br>
<br>
\begin{center}<br>
\psset{lightsrc=viewpoint,viewpoint=50 60 25 rtp2xyz,Decran=50}<br>
\begin{pspicture}(-5,-3)(6,6)<br>
\psSolid[object=grille,base=-4 4 -4 4,action=draw]%<br>
\pstVerb{<br>
/nE 20 def %% nb d’etages<br>
/nM 20 def %% diviseur de 180, nb de meridiens<br>
/Zmax 4 def %% hauteur 0<z<4<br>
/sommets [<br>
0 1 nE {%<br>
/zP exch def % z= h/a*k<br>
[ % nombre de sommets sur un étage<br>
0 1 nM {<br>
/iM exch def<br>
/radius 4 Zmax nE div zP mul sub sqrt 2 mul def<br>
[180 nM div iM mul 180 add cos radius mul<br>
180 nM div iM mul 180 add sin radius mul<br>
Zmax nE div zP mul<br>
]<br>
} for<br>
]<br>
}for<br>
] def<br>
/NbreEtages sommets length def<br>
/NombreSommetsEtage sommets 0 get length def<br>
/tableau_des_sommets [<br>
0 1 NbreEtages 2 sub { /i exch def<br>
0 1 NombreSommetsEtage 2 sub {/k exch def<br>
sommets i get k get aload pop<br>
sommets i get k 1 add get aload pop<br>
sommets i 1 add get k 1 add get aload pop<br>
sommets i 1 add get k get aload pop<br>
}for<br>
}for<br>
] def<br>
/NbrePoints tableau_des_sommets length 3 div cvi def<br>
/Faces {<br>
0 4 NbrePoints 4 sub {/N exch def<br>
[N<br>
N 1 add<br>
N 2 add<br>
N 3 add<br>
]<br>
} for<br>
} def<br>
/Sommets {tableau_des_sommets aload pop} def<br>
}%<br>
\psSolid[object=new,fillcolor=red!40,incolor=yellow!50,<br>
hollow,<br>
sommets=Sommets,<br>
faces={Faces}]%<br>
\defFunction[algebraic]{parabel}(t){t}{0}{-1/4*t^2+4}<br>
\psSolid[object=courbe,<br>
function=parabel,range=0 4,<br>
r=0,linecolor=red,<br>
linewidth=2pt]%<br>
\gridIIID[Zmin=0,Zmax=4,spotX=r](-4,4)(-4,4)<br>
\end{pspicture}<br>
\end{center}<br>
<br>
<br>
\begin{center}<br>
\psset{lightsrc=viewpoint,viewpoint=50 60 25 rtp2xyz,Decran=50}<br>
\begin{pspicture}(-5,-3)(6,6)<br>
\psSolid[object=grille,base=-4 4 -4 4](0,0,0)<br>
\defFunction[algebraic]{paraboloid}(u,v)<br>
{4*sqrt(u/4)*cos(v)}<br>
{4*sqrt(u/4)*sin(v)}<br>
{-u+4}<br>
\psSolid[object=surfaceparametree,base=0 4 0 pi neg,<br>
ngrid=20 20,incolor=red!40,fillcolor=yellow!50,<br>
intersectionplan={[0 1 0 0]},<br>
intersectioncolor=(bleu),<br>
intersectionlinewidth=2,<br>
intersectiontype=1,<br>
function=paraboloid]<br>
\gridIIID[Zmin=0,Zmax=4,spotX=r](-4,4)(-4,4)<br>
\end{pspicture}<br>
\end{center}<br>
\end{document}<br>
<br>
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%<br>
<br>
M.L.<br>
</font></font></span></span><font color="black" face="Arial, Helvetica, sans-serif" size="2">
<div> <br>
</div>
<div> <br>
</div>
<div style="clear: both;"></div>
<div> <br>
</div>
<div> <br>
</div>
<div style="font-family: arial,helvetica; font-size: 10pt; color: black;">-----E-mail d'origine-----<br>
De : Herbert Voss <Herbert.Voss@FU-Berlin.DE><br>
A : Graphics with PSTricks <pstricks@tug.org><br>
Envoyé le : Dimanche, 27 Février 2011 10:25<br>
Sujet : Re: [pstricks] Re : plansepare with a surface<br>
<br>
<div id="AOLMsgPart_0_f5b55efe-aad8-49bd-88c5-2d54cc4163fe" style="margin: 0px; font-family: Tahoma,Verdana,Arial,Sans-Serif; font-size: 12px; color: rgb(0, 0, 0); background-color: rgb(255, 255, 255);">
<pre style="font-size: 9pt;"><tt>Am 26.02.2011 16:59, schrieb Markus Krebs:<br>
<br>
> The plane cutting the paraboloid shoud be the xz-plane: y = 0<br>
> <br>
> Restricting the values for y, here y < 0 should do the job.<br>
> <br>
> h=2, %% hauteur 0<z<2<br>
> <br>
> -4 < y < 0<br>
> <br>
> Is this possible?<br>
<br>
you can use the parametric form of the paraboloid<br>
<br>
\documentclass{article}<br>
\usepackage{pst-solides3d}<br>
\begin{document}<br>
<br>
\psset{lightsrc=viewpoint,viewpoint=50 60 25 rtp2xyz,Decran=50}<br>
\begin{pspicture}(-5,-3)(6,6)<br>
\psSolid[object=grille,base=-4 4 -4 4](0,0,0)<br>
\defFunction[algebraic]{paraboloid}(u,v)<br>
{4*sqrt(u/4)*cos(v)}<br>
{4*sqrt(u/4)*sin(v)}<br>
{-u+4}<br>
\psSolid[object=surfaceparametree,base=0 4 0 pi neg,<br>
ngrid=20 20,incolor=red!40,fillcolor=yellow!50,<br>
intersectionplan={[0 1 0 0]},<br>
intersectioncolor=(bleu),<br>
intersectionlinewidth=2,<br>
intersectiontype=1,<br>
function=paraboloid]<br>
\gridIIID[Zmin=0,Zmax=4,spotX=r](-4,4)(-4,4)<br>
\end{pspicture}<br>
<br>
\end{document}<br>
<br>
Herbert<br>
_______________________________________________<br>
PSTricks mailing list<br>
<a href="mailto:PSTricks@tug.org">PSTricks@tug.org</a><br>
<a href="http://tug.org/mailman/listinfo/pstricks" target="_blank">http://tug.org/mailman/listinfo/pstricks</a><br>
archive: <a href="http://www.tug.org/pipermail/pstricks/" target="_blank">http://www.tug.org/pipermail/pstricks/</a><br>
</tt></pre>
</div>
<!-- end of AOLMsgPart_0_f5b55efe-aad8-49bd-88c5-2d54cc4163fe -->
</div>
</font></font>