Category Archives: Mathematica

Une suite trivialement convergente

Voici un exercice dont m’a parlé mon collègue Thierry Dugardin. On se donne deux réels et strictement positifs. On définit une suite par , et la relation . Question: montrer que la suite converge vers 1. Démonstration: c’est triviaaaal L’animation Mathematica ci-dessous vous permet de déplacer le point dans le plan, de modifier sa position avec la souris,… Read More »

Podaires d’une parabole

Suite à un problème partiellement traité en classe, j’ai écrit cette petite animation Mathematica illustrant la podaire d’une parabole par rapport à un point A. (si ça ne s’affiche pas bien, ou seulement comme une image fixe, il vous faudra peut-être installer le plug-in Wolfram CDF Player) Quelques explications s’imposent: La podaire d’une parabole (P) par rapport à un… Read More »

La physique du Frisbee

Séance d’EPS en MPSI3 ce matin. Contrôle noté d’Ultimate, en fait. Après trois heures de maths à corriger en classe le DS de la veille (dans une ambiance plutôt morne), quelle surprise de les voir courir passionnément après un simple disque de plastique…  Bizarrement le frisbee semble avoir échappé à ses poursuivants…  Sinon, le Frisbee, ce n’est pas… Read More »

Night and Day

Une jolie animation Mathematica, pour savoir s’il fait jour derrière les murs du Lycée Saint-Louis (si ça ne s’affiche pas bien, ou seulement comme une image fixe, il vous faudra peut-être installer le plug-in Wolfram CDF Player) Day and Night World Clock from the Wolfram Demonstrations Project by Yu-Sung Chang

Une glace vanille-fraise-dragibus

Voici l’image finale d’un problème fait avec les MPSI3 cette année. Comme les beaux jours reviennent, c’est de circonstance. Voici un lien vers l’énoncé et le corrigé, et un autre vers la feuille de travail Maple.

Fonction mystère

Que fait la fonction Mathematica suivante? mystere[n_,d_] := -Total[(-1)^Length[#] (Floor[n/#] &)@(LCM @@ #) & /@ Rest@Subsets@d]