1 \documentclass{article
}
2 \usepackage[a4paper,margin=
2cm
]{geometry
}
3 \usepackage[latin1]{inputenc}
4 \usepackage{pstricks-add,pst-eqdf,pst-func
}
5 \usepackage{array,amsmath
}
8 \def\datRoot{C:/Users/J\"
{u
}rgen/Desktop/gravitation/
}
13 y
[2]|y
[3]|-d0/m0*y
[2]|-d0/m0*y
[3]-g0
}%
17 \section{Un lancer inclin\'
{e
} avec du frottement
}
19 Les \'
{e
}quations diff\'
{e
}rentielles sont :
21 \ddot{x
}&=-
\frac{d
}{m
}\dot{x
}\\
22 \ddot{y
}&=-
\frac{d
}{m
}\dot{y
}-g
26 \begin{pspicture
}(-
0.5,-
0.5)(
10,
6)
34 /v0x v0 theta0 cos mul def
35 /v0y v0 theta0 sin mul def
38 \psaxes[labels=none,ticks=none
]{->
}(
0,
0)(
0,
0)(
10,
5)
42 \psline[linecolor=gray
]{->
}(
0;
0)(!
2 theta0 cos mul
2 theta0 sin mul)
43 \psline[linestyle=dashed
](
0,
0)(
1.5,
0)
44 \psarc{->
}(
0,
0)
{1}{0}{!theta0
}
45 \rput(!
2.2 theta0 cos mul
2.2 theta0 sin mul)
{$
\vec{v
}_0$
}
46 \rput(!
0.5 theta0
2 div cos mul
0.5 theta0
2 div sin mul)
{$
\alpha$
}
48 \psequadiff[method=rk4,
54 % ,saveData,filename=XiYi.dat
55 ]{0}{5}{x0 y0 v0x v0y
}{\eqlancerA}%
56 \listplot[linecolor=blue
]{XiAYiA aload pop
}
57 \psequadiff[method=rk4,
63 % ,saveData,filename=XiYi.dat
64 ]{0}{5}{x0 y0 v0x v0y
}{\eqlancerB}%
65 \listplot[linecolor=red
]{XiBYiB aload pop
}