-
-
Notifications
You must be signed in to change notification settings - Fork 46
/
public2012_D5_OCaml.ml
354 lines (227 loc) · 14.6 KB
/
public2012_D5_OCaml.ml
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
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
290
291
292
293
294
295
296
297
298
299
300
301
302
303
304
305
306
307
308
309
310
311
312
313
314
315
316
317
318
319
320
321
322
323
324
325
326
327
328
329
330
331
332
333
334
335
336
337
338
339
340
341
342
343
344
345
346
347
348
349
350
351
352
353
354
(*
This OCaml script was exported from a Jupyter notebook
using an open-source software (under the MIT License) written by @Naereen
from https://github.com/Naereen/Jupyter-Notebook-OCaml
This software is still in development, please notify me of a bug at
https://github.com/Naereen/Jupyter-Notebook-OCaml/issues/new if you find one
*)
(* # Table of Contents
<p><div class="lev1 toc-item"><a href="#Agrégation-externe-de-mathématiques,-texte-d’exercice-diffusé-en-2012" data-toc-modified-id="Agrégation-externe-de-mathématiques,-texte-d’exercice-diffusé-en-2012-1"><span class="toc-item-num">1 </span>Agrégation externe de mathématiques, texte d’exercice diffusé en 2012</a></div><div class="lev2 toc-item"><a href="#Épreuve-de-modélisation,-option-informatique" data-toc-modified-id="Épreuve-de-modélisation,-option-informatique-11"><span class="toc-item-num">1.1 </span>Épreuve de modélisation, option informatique</a></div><div class="lev2 toc-item"><a href="#Proposition-d'implémentation,-en-OCaml" data-toc-modified-id="Proposition-d'implémentation,-en-OCaml-12"><span class="toc-item-num">1.2 </span><em>Proposition</em> d'implémentation, en <a href="https://ocaml.org/" target="_blank">OCaml</a></a></div><div class="lev3 toc-item"><a href="#Pour-l'option-informatique-(D)-de-l'agrégation-de-mathématiques-(en-France)." data-toc-modified-id="Pour-l'option-informatique-(D)-de-l'agrégation-de-mathématiques-(en-France).-121"><span class="toc-item-num">1.2.1 </span>Pour <a href="http://www.dit.ens-rennes.fr/agregation-option-d/programme-de-l-option-informatique-de-l-agregation-de-mathematiques-48358.kjsp" target="_blank">l'option informatique (D)</a> de l'<a href="http://agreg.org/" target="_blank">agrégation de mathématiques</a> (en France).</a></div><div class="lev2 toc-item"><a href="#Exercice-requis" data-toc-modified-id="Exercice-requis-13"><span class="toc-item-num">1.3 </span>Exercice requis</a></div><div class="lev2 toc-item"><a href="#Choix-de-structure-de-données" data-toc-modified-id="Choix-de-structure-de-données-14"><span class="toc-item-num">1.4 </span>Choix de structure de données</a></div><div class="lev3 toc-item"><a href="#En-OCaml" data-toc-modified-id="En-OCaml-141"><span class="toc-item-num">1.4.1 </span>En OCaml</a></div><div class="lev3 toc-item"><a href="#En-Python" data-toc-modified-id="En-Python-142"><span class="toc-item-num">1.4.2 </span>En Python</a></div><div class="lev2 toc-item"><a href="#Réponse" data-toc-modified-id="Réponse-15"><span class="toc-item-num">1.5 </span>Réponse</a></div><div class="lev3 toc-item"><a href="#On-fait-quelques-exemples..." data-toc-modified-id="On-fait-quelques-exemples...-151"><span class="toc-item-num">1.5.1 </span>On fait quelques exemples...</a></div><div class="lev3 toc-item"><a href="#Si-une-hypothèse-n'est-pas-vérifié" data-toc-modified-id="Si-une-hypothèse-n'est-pas-vérifié-152"><span class="toc-item-num">1.5.2 </span>Si une hypothèse n'est pas vérifié</a></div><div class="lev2 toc-item"><a href="#Bonus-:-deux-autres-méthodes-(droites-inférieure-et-supérieure)" data-toc-modified-id="Bonus-:-deux-autres-méthodes-(droites-inférieure-et-supérieure)-16"><span class="toc-item-num">1.6 </span>Bonus : deux autres méthodes (droites inférieure et supérieure)</a></div><div class="lev2 toc-item"><a href="#Illustration" data-toc-modified-id="Illustration-17"><span class="toc-item-num">1.7 </span>Illustration</a></div><div class="lev3 toc-item"><a href="#Par-la-sélection-de-Bresenham" data-toc-modified-id="Par-la-sélection-de-Bresenham-171"><span class="toc-item-num">1.7.1 </span>Par la sélection de Bresenham</a></div><div class="lev3 toc-item"><a href="#Par-la-sélection-inférieure" data-toc-modified-id="Par-la-sélection-inférieure-172"><span class="toc-item-num">1.7.2 </span>Par la sélection inférieure</a></div><div class="lev3 toc-item"><a href="#Par-la-sélection-supérieure" data-toc-modified-id="Par-la-sélection-supérieure-173"><span class="toc-item-num">1.7.3 </span>Par la sélection supérieure</a></div><div class="lev2 toc-item"><a href="#Autres-bonus-:-calculer-le-mot-binaire-codant-les-déplacements" data-toc-modified-id="Autres-bonus-:-calculer-le-mot-binaire-codant-les-déplacements-18"><span class="toc-item-num">1.8 </span>Autres bonus : calculer le mot binaire codant les déplacements</a></div><div class="lev2 toc-item"><a href="#Conclusion" data-toc-modified-id="Conclusion-19"><span class="toc-item-num">1.9 </span>Conclusion</a></div><div class="lev2 toc-item"><a href="#Attention" data-toc-modified-id="Attention-110"><span class="toc-item-num">1.10 </span>Attention</a></div> *)
(* # Agrégation externe de mathématiques, texte d’exercice diffusé en 2012 *)
(* ## Épreuve de modélisation, option informatique *)
(* > - Ce [notebook Jupyter](http://jupyter.org/), utilisant [OCaml](https://ocaml.org/) (via le [kernel Ocaml](https://github.com/akabe/ocaml-jupyter/)), est une correction [non officielle](https://github.com/Naereen/notebooks/tree/master/agreg) d'un texte de modélisation pour l'option informatique de l'agrégation externe de mathématiques.
> - Il s'agit du texte [public2012-D5](http://agreg.org/Textes/public2012-D5.pdf).
> - Cette tentative de correction partielle a été rédigée par [Lilian Besson](http://perso.crans.org/besson/) ([sur GitHub ?](https://github.com/Naereen/), [sur Bitbucket ?](https://bitbucket.org/lbesson)), et [est open-source](https://github.com/Naereen/notebooks/blob/master/agreg/public2012_D5_OCaml.ipynb).
> - J'avais déjà rédigé une solution, pendant ma propre préparation à l'agrégation en 2013/2014, voir [ce fichier](https://perso.crans.org/besson/agreg/m/29-04/code_Public2012-D5.html).
> Retour ?
> - Vous avez trouvé un bug ? → [Signalez-le moi svp !](https://github.com/Naereen/notebooks/issues/new), merci d'avance.
> - Vous avez une question ? → [Posez la svp !](https://github.com/Naereen/ama.fr) [](https://GitHub.com/Naereen/ama.fr)
---- *)
(* ## *Proposition* d'implémentation, en [OCaml](https://ocaml.org/) *)
(* ### Pour [l'option informatique (D)](http://www.dit.ens-rennes.fr/agregation-option-d/programme-de-l-option-informatique-de-l-agregation-de-mathematiques-48358.kjsp) de l'[agrégation de mathématiques](http://agreg.org/) (en France). *)
(* **Attention** : ce document ne prétend pas être LA correction du texte, mais **un exemple de solution**.
Je me suis inspiré des propositions d'implémentations rédigées par les élèves qui ont préparé ce texte en 3h50 le lundi 13 mai 2019.
---- *)
(* ## Exercice requis
L'exercice de programmation était en page 2/8 du texte, après l'explication du problème et de l'algorithme de Bresenham.
> Écrire un programme permettant de représenter le segment $[A B]$, où $A= (a_1,a_2)$ et $B=(b_1,b_2)$, en suivant l'algorithme de Bresenham.
> On supposera que $a_1<b_1$, $a_2 \leq b_2$ et que la pente $\alpha$ de la droite est inférieure à $1$.
> La sortie du programme sera la liste des couples $(x_i,y_i)$ des points représentant le segment.
Attention, on rappelle que le rapport du jury précise explicitement que dans les exercices de programmation **liste de …** signifie *liste* <span style="color:red;">OU</span> *tableau*, au choix du candidat ou de la candidate. *)
(* ---- *)
(* ## Choix de structure de données
Soit $n = b_1 - a_1 \in\mathbb{N}$.
Ici, on connaît à l'avance le nombre de points que doit contenir la solution, donc utiliser un tableau de $n+1$ points est une bonne idée.
### En OCaml
On va préférer :
```ocaml
let segment = Array.make (n+1) (a1, a2) in
...
for i = 1 to n do
let xi, yi = ..., ... in
segment.(i) <- (xi, yi);
done
```
à :
```ocaml
let segment = ref [(a1, a2)] in
...
for i = 1 to n do
let xi, yi = ..., ... in
segment := (xi, yi) :: !segment;
done
```
### En Python
On pourrait de même créer un tableau dès le début.
On va préférer :
```python
segment = [ (0,0) for i in range(n+1) ]
segment = [ (0,0) ] * (n+1)
...
for i in range(n):
xi, yi = ..., ...
segment[i] = (xi, yi)
```
à :
```python
segment = [ (a1, a2) ]
...
for i in range(n):
xi, yi = ..., ...
segment.append(xi, yi)
``` *)
(* ---- *)
(* ## Réponse *)
(* On utilise un type `point` pour représenter les points de coordonées entières $(x, y) \in\mathbb{Z}^2$, cela facilitera l'affichage des signatures : *)
(* In[3]: *)
type point = (int * int);;
let point_a : point = (0, 0)
and point_b : point = (4, 3);;
(* In[5]: *)
type segment = point array;;
(* La fonction suivante renvoie un tableau de $n+1$ points, représentant le segment $[a, b]$ obtenus avec l'algorithme de Bresenham.
- Complexité temporelle : $\mathcal{O}(n)$
- Complexité mémoire : $\mathcal{O}(n)$, où n = b1 - a1.
(dans tous les cas) *)
(* In[50]: *)
let bresenham (a : point) (b : point) : segment =
let a1, a2 = a
and b1, b2 = b in
let n = b1 - a1 in
let segment_ab = Array.make (n+1) a in
let alpha_normalisee = b2 - a2 in (* pente normalisée, ie alpha*n dans *)
let erreur = ref 0 in
let y_tilde = ref a2 in
for i = 1 to n-1 do
if 2 * (!erreur + alpha_normalisee) <= n then
erreur := !erreur + alpha_normalisee
else begin
erreur := !erreur + alpha_normalisee - n;
y_tilde := !y_tilde + 1;
end;
segment_ab.(i) <- (a1 + i, !y_tilde);
done;
segment_ab.(n) <- b;
segment_ab
;;
(* ### On fait quelques exemples... *)
(* In[51]: *)
bresenham (0, 0) (5, 2);;
(* In[52]: *)
bresenham (0, 0) (5, 5);;
(* ### Si une hypothèse n'est pas vérifié *)
(* On vérifie que l'ordre des arguments est important, le programme exige que $a_1 < b_1$ et $a_2 \leq b_2$ : *)
(* In[53]: *)
bresenham (0, 0) (-5, 2);;
(* Si la pente est $\alpha>1$, le programme ne fait pas ce qu'on espérait, car ses hypothèses ne sont pas respectées : *)
(* In[54]: *)
bresenham (0, 0) (0, 2);;
(* ---- *)
(* ## Bonus : deux autres méthodes (droites inférieure et supérieure)
Ce n'est pas exigé dans le texte, mais on pouvait facilement implémenter la méthode qui longe la droite au plus près inférieurement, et au plus près supérieurement.
- Pour la première, c'est assez facile et on peut aussi travailler uniquement avec des entiers :
- Complexité temporelle : $\mathcal{O}(n)$
- Complexité mémoire : $\mathcal{O}(n)$, où n = b1 - a1.
(dans tous les cas) *)
(* In[55]: *)
let au_plus_pres_inferieurement (a : point) (b : point) : segment =
let a1, a2 = a
and b1, b2 = b in
let n = b1 - a1 in
let segment_ab = Array.make (n+1) a in
let alpha_normalisee = b2 - a2 in (* pente normalisée, ie alpha*n dans *)
for i = 1 to n-1 do
(* on laisse la division entière faire la partie inférieure *)
segment_ab.(i) <- (a1 + i, (alpha_normalisee * i + a2 * (b1-a1)) / (b1 -a1));
done;
segment_ab.(n) <- b;
segment_ab
;;
(* Sur les mêmes exemples, on voit la différence, quand la pente est $\alpha<1$ : *)
(* In[56]: *)
bresenham (0, 0) (5, 2);;
au_plus_pres_inferieurement (0, 0) (5, 2);;
(* In[57]: *)
bresenham (0, 0) (5, 5);;
au_plus_pres_inferieurement (0, 0) (5, 5);;
(* - Pour la droite au plus près supérieurement, on va illustrer l'utilisation d'arithmétique flottante et de la fonction `ceil`
- Complexité temporelle : $\mathcal{O}(n)$
- Complexité mémoire : $\mathcal{O}(n)$, où n = b1 - a1.
(dans tous les cas) *)
(* In[58]: *)
ceil;;
(* In[59]: *)
let ceil_to_int x = int_of_float (ceil x);;
(* In[60]: *)
let au_plus_pres_superieurement (a : point) (b : point) : segment =
let a1, a2 = a
and b1, b2 = b in
let n = b1 - a1 in
let segment_ab = Array.make (n+1) a in
let alpha = (float_of_int (b2 - a2)) /. (float_of_int n) in (* pente normalisée, ie alpha*n dans *)
for i = 1 to n-1 do
segment_ab.(i) <- (a1 + i, ceil_to_int ((float_of_int a2) +. alpha *. (float_of_int i)));
done;
segment_ab.(n) <- b;
segment_ab
;;
(* Sur les mêmes exemples, on voit la différence, quand la pente est $\alpha<1$ : *)
(* In[61]: *)
bresenham (0, 0) (5, 2);;
au_plus_pres_superieurement (0, 0) (5, 2);;
(* In[62]: *)
bresenham (0, 0) (5, 5);;
au_plus_pres_superieurement (0, 0) (5, 5);;
(* ---- *)
(* ## Illustration
En bonus, on montre une illustration (on ferait des dessins au tableau).
### Par la sélection de Bresenham
### Par la sélection inférieure
### Par la sélection supérieure
 *)
(* ---- *)
(* ## Autres bonus : calculer le mot binaire codant les déplacements
Si on utilise par exemple la droite longeant au plus près inférieurement, la fonction suivante renvoie la suite des déplacements horizontaux ou diagonaux
pour longer le segment $[a, b]$. *)
(* In[63]: *)
type mot_binaire = bool array;;
(* In[69]: *)
let deplacements (a : point) (b : point) : mot_binaire =
let a1, a2 = a
and b1, b2 = b in
let n = b1 - a1 in
let mot_binaire_ab : mot_binaire = Array.make n false in
let alpha_normalisee = b2 - a2 in (* pente normalisée, ie alpha*n dans *)
let y0 = ref 0 and y1 = ref 0 in
for i = 1 to n do
y0 := !y1;
(* on laisse la division entière faire la partie inférieure *)
y1 := (alpha_normalisee * i + a2 * (b1-a1)) / (b1 -a1);
mot_binaire_ab.(i-1) <- !y0 != !y1;
done;
mot_binaire_ab
;;
(* Sur les mêmes exemples, on voit la différence, quand la pente est $\alpha<1$ : *)
(* In[70]: *)
au_plus_pres_inferieurement (0, 0) (5, 2);;
deplacements (0, 0) (5, 2);;
(* Le mot renvoyé est $(0 0 1 0 1)$, comme prévu. *)
(* Et si la pente est $\alpha=1$, le mot sera $(11111)$. *)
(* In[71]: *)
au_plus_pres_inferieurement (0, 0) (5, 5);;
deplacements (0, 0) (5, 5);;
(* ---- *)
(* ## Conclusion *)
(* ## Attention *)
(* Les 35/40 minutes de passage au tableau ne doivent PAS être uniquement consacrée à la présentation de vos expériences sur l'ordinateur !
Il faut aussi :
- faire une introduction générale (citer des mots clés),
- présenter le plan de votre présentation,
- introduire les notations, les objectifs et les résultats donnés par le texte,
- prouver ou exposer des développements **theoriques** personnels (à choisir parmi la liste proposée, mais pas seulement),
- etc. *)
(* ----
> *C'est tout pour aujourd'hui les amis !*
> [Allez voir d'autres notebooks](https://github.com/Naereen/notebooks/tree/master/agreg) si vous voulez. *)