X-Git-Url: https://melusine.eu.org/syracuse/G/git/?p=pst-eqdf.git;a=blobdiff_plain;f=gravitation%2Fpb_2corps_part2_animation.tex;fp=gravitation%2Fpb_2corps_part2_animation.tex;h=480dc39ea93d230ce3e0dcad5e027bac5bc648e5;hp=0000000000000000000000000000000000000000;hb=66aab78b19cfdcbc5a587bdc1bb0e2a098cc36a1;hpb=fbc97a2dbee0da443051567b604d13c19468290a

diff --git a/gravitation/pb_2corps_part2_animation.tex b/gravitation/pb_2corps_part2_animation.tex
new file mode 100644
index 0000000..480dc39
--- /dev/null
+++ b/gravitation/pb_2corps_part2_animation.tex
@@ -0,0 +1,266 @@
+
+\documentclass{article}
+\usepackage[a4paper,margin=2cm]{geometry}
+\usepackage{pst-eqdf,pst-node,pst-tools}
+\usepackage{animate}
+\pagestyle{empty}
+%timeline
+\begin{filecontents}{pb2corps.dat}
+::0x0
+::1
+::2
+::3
+::4
+::5
+::6
+::7
+::8
+::9
+::10
+::11
+::12
+::13
+::14
+::15
+::16
+::17
+::18
+::19
+::20
+::21
+::22
+::23
+::24
+::25
+::26
+::27
+::28
+::29
+::30
+::31
+::32
+::33
+::34
+::35
+::36
+::37
+::38
+::39
+::40
+::41
+::42
+::43
+::44
+::45
+::46
+::47
+::48
+::49
+::50
+::51
+::52
+::53
+::54
+::55
+::56
+::57
+::58
+::59
+::60
+::61
+::62
+::63
+::64
+::65
+::66
+::67
+::68
+::69
+::70
+::71
+::72
+::73
+::74
+::75
+::76
+::77
+::78
+::79
+::80
+::81
+::82
+::83
+::84
+::85
+::86
+::87
+::88
+::89
+::90
+::91
+::92
+::93
+::94
+::95
+::96
+::97
+::98
+::99
+::100
+::101
+::102
+::103
+::104
+::105
+::106
+::107
+::108
+::109
+::110
+::111
+::112
+::113
+::114
+::115
+::116
+::117
+::118
+::119
+::120
+::121
+::122
+::123
+::124
+::125
+::126
+::127
+::128
+::129
+::130
+::131
+::132
+::133
+::134
+::135
+::136
+::137
+::138
+::139
+::140
+::141
+::142
+::143
+::144
+::145
+::146
+::147
+::148
+::149
+::150
+::151
+::152
+::153
+::154
+::155
+::156
+::157
+::158
+::159
+::160
+::161
+::162
+::163
+::164
+::165
+::166
+::167
+::168
+::169
+::170
+::171
+::172
+::173
+::174
+::175
+::176
+::177
+::178
+::179
+::180
+::181
+::182
+::183
+::184
+::185
+::186
+::187
+::188
+::189
+::190
+::191
+::192
+::193
+::194
+::195
+::196
+::197
+::198
+::199
+::200
+\end{filecontents}
+%%%%%%%%%%%%%%%%%%
+\title{Gravitation : le problème des deux corps avec PSTricks\\ partie 2}
+\date{5 juillet 2\,012}
+\begin{document}
+\begin{center}
+\pstVerb{/XY1 [(XYM1.dat) run] def
+         /XY2 [(XYM2.dat) run] def
+         /XYG [(XYG.dat) run] def}%
+\def\nFrames{200}% 200 images
+\begin{animateinline}[controls,loop,timeline=pb2corps.dat,%
+                     begin={\begin{pspicture}(-4,-5)(13,12)},
+                     end={\end{pspicture}}]{10}% 10 images/s
+\psframe*(-4,-5)(13,12)
+\psgrid[subgriddiv=0,gridcolor=white,griddots=10,gridlabels=0pt]%
+\listplot[linecolor=gray]{XY1 aload pop}
+\listplot[linecolor=gray]{XY2 aload pop}
+\listplot[linecolor=gray]{XYG aload pop}
+\newframe
+\multiframe{\nFrames}{i=0+10,I=2+10}{% 1 point sur 10
+\pstVerb{/X1 XY1 \i\space get def
+         /Y1 XY1 \i\space 1 add get def
+         /X2 XY2 \i\space get def
+         /Y2 XY2 \i\space 1 add get def
+         /XG XYG \i\space get def
+         /YG XYG \i\space 1 add get def
+     /xy1 [
+         0 2 \I\space {/i exch def
+         XY1 i get
+          XY1 i 1 add get
+        } for
+         ] def
+     /xy2 [
+         0 2 \I\space {/i exch def
+         XY2 i get
+         XY2 i 1 add get
+        } for
+         ] def
+     /xyG [
+         0 2 \I\space {/i exch def
+         XYG i get
+         XYG i 1 add get
+        } for
+         ] def
+}%
+\psgrid[subgriddiv=0,gridcolor=white,griddots=10,gridlabels=0pt]%
+\listplot[linecolor=red]{xy1 aload pop}
+\listplot[linecolor=blue!50]{xy2 aload pop}
+\listplot[linecolor=yellow]{xyG aload pop}
+\pscircle*[linecolor=red](!X1 Y1){0.3}
+\pscircle*[linecolor=blue!50](!X2 Y2){0.1}
+\pscircle*[linecolor=yellow](!XG YG){0.05}
+%\psline[linestyle=dashed,linecolor=white](!X1 Y1)(!X2 Y2)
+}
+\end{animateinline}
+\end{center}
+\end{document} 
\ No newline at end of file