From: Juergen Gilg <gilg@acrotex.net>
Date: Sun, 24 Jun 2012 08:15:07 +0000 (+0200)
Subject: ajouté un lancer incliné avec du frottement dans les exemples distiller ...
X-Git-Url: https://melusine.eu.org/syracuse/G/git/?p=pst-eqdf.git;a=commitdiff_plain;h=ef864916c4115b862d65d2f22853717ef8b7b915

ajouté un lancer incliné avec du frottement dans les exemples distiller ...
---

diff --git a/gravitation/LISTE.txt b/gravitation/LISTE.txt
index c4d25b4..5753434 100644
--- a/gravitation/LISTE.txt
+++ b/gravitation/LISTE.txt
@@ -6,6 +6,8 @@ gravitation_02.pdf
 == Exemples avec Adobe Distiller
 gravitation_01_distiller.tex
 gravitation_01_distiller.pdf
+lancer_incline_distiller.tex
+lancer_incline_distiller.pdf
 == Animation du satellite
 animation_satellite.tex
 animation_satellite.pdf
diff --git a/gravitation/lancer_incline_distiller.pdf b/gravitation/lancer_incline_distiller.pdf
new file mode 100644
index 0000000..ed1ce2c
Binary files /dev/null and b/gravitation/lancer_incline_distiller.pdf differ
diff --git a/gravitation/lancer_incline_distiller.tex b/gravitation/lancer_incline_distiller.tex
new file mode 100644
index 0000000..a896926
--- /dev/null
+++ b/gravitation/lancer_incline_distiller.tex
@@ -0,0 +1,72 @@
+\documentclass{article}
+\usepackage[a4paper,margin=2cm]{geometry}
+\usepackage[latin1]{inputenc}
+\usepackage{pstricks-add,pst-eqdf,pst-func}
+\usepackage{array,amsmath}
+
+%%%%%%%%%%%%%%%%%%
+\def\datRoot{C:/Users/J\"{u}rgen/Desktop/gravitation/}
+
+\begin{document}
+
+\def\eqlancerA{%
+y[2]|y[3]|-d0/m0*y[2]|-d0/m0*y[3]-g0}%
+\def\eqlancerB{%
+y[2]|y[3]|0|-g0}%
+
+\section{Un lancer inclin\'{e} avec du frottement}
+
+Les \'{e}quations diff\'{e}rentielles sont :
+\begin{align*}
+\ddot{x}&=-\frac{d}{m}\dot{x}\\
+\ddot{y}&=-\frac{d}{m}\dot{y}-g
+\end{align*}
+
+\begin{center}
+\begin{pspicture}(-0.5,-0.5)(10,6)
+\pstVerb{
+    /m0 1 def
+    /d0 0.75 def
+    /theta0 60 def
+    /x0 0 def
+    /y0 1 def
+    /v0 10 def
+    /v0x v0 theta0 cos mul def
+    /v0y v0 theta0 sin mul def
+    /g0 9.81 def 
+}%
+\psaxes[labels=none,ticks=none]{->}(0,0)(0,0)(10,5)
+\uput[0](10,0){$x$}
+\uput[90](0,5){$y$}
+\rput(!0 y0){%
+\psline[linecolor=gray]{->}(0;0)(!2 theta0 cos mul 2 theta0 sin mul)
+\psline[linestyle=dashed](0,0)(1.5,0)
+\psarc{->}(0,0){1}{0}{!theta0}
+\rput(!2.2 theta0 cos mul 2.2 theta0 sin mul){$\vec{v}_0$}
+\rput(!0.5 theta0 2 div cos mul 0.5 theta0 2 div sin mul){$\alpha$}
+}
+\psequadiff[method=rk4,
+            plotpoints=1000,
+            algebraic,
+            whichabs=0,
+            whichord=1,
+            tabname=XiAYiA
+%           ,saveData,filename=XiYi.dat
+]{0}{5}{x0 y0 v0x v0y}{\eqlancerA}%
+\listplot[linecolor=blue]{XiAYiA aload pop}
+\psequadiff[method=rk4,
+            plotpoints=1000,
+            algebraic,
+            whichabs=0,
+            whichord=1,
+            tabname=XiBYiB
+%           ,saveData,filename=XiYi.dat
+]{0}{5}{x0 y0 v0x v0y}{\eqlancerB}%
+\listplot[linecolor=red]{XiBYiB aload pop}
+
+\end{pspicture}
+\end{center}
+
+
+
+\end{document}