D'un cours manuscrit à sa publication

Vers le vivant…

Jacqueline Zizi

Manuscrit, objectifs

Histoire vraie

Cours de Jean Cognet, Professeur en Sciences de la Vie à UPMC (Paris 6 "plus grand complexe scientifique et médical de France" )  -> CNED

Objectifs

• Cours pour le CNED (L2)

• Transparents

• Internet

••• A plus long terme, Articles, Livres

Point de départ: un manuscrit travaillé au fil des années

Résultats

UN SEUL  texte source  fournit grâce à quelques clics:

• Feuille de style : Article, Book, etc. -> Poly -> Pdf  (Print si Mac ou si PC: Menu Save As )

• Feuille de style : SlideShow -> Transparents

• Save As  -> Génération d'un dossier HTML ou XML…, prêt à être remonté sur Internet

Réalisation? Texte au kilomètre, Structure du texte, classes d'objets

) Classes d'objets ⟷ Cellules

({{Texte  au km, ->, Un paragraphe par cellule, :Front End}, {Titres,sous-titres, texte  , ->, Title, Section, Subsection,Texte, :Front End}, {Tableaux, ->, Structure & alignements, :Front End}, {Formules, ->, Ecrire, Mathematica  calcule , :Front End->Noyau-> Front End}, {Figures , ->, Demande,  Mathematica  dessine, :Front End->Noyau-> Front End}})

Grande cohérence entre calculs, dessins, traitement de textes. 
Pas de perte de temps en va et viens. Risque d' erreurs réduits au minimum

) Plan & Structure ⟷ Numéros, liens, Sommaire, index

) Design ⟷ Cohérence typographique de l'ensemble : feuille de style

f[x_, μ_,σ_]:= (1/(σ (Sqrt[2 π])))(E^(-((((x-μ))^2)/(2 (σ^2)))))

et la

Plot[f[x, 0, 1], {x, -3, 3}]

Manipulate [
Plot[f[x,μ,σ],{x,-3,3}, PlotRange -> All, AxesOrigin->{0,0}, PlotStyle -> {Thick, Purple}],
{{μ,0, "valeurs de  μ" },-2,2,0.2},
{{σ,0.5, "valeurs de σ" }, 0.5,2,0.2}]

) Fonction de répartition, probabilité : P [X ≤ x1]

F[x1_, μ_,σ_] := (∫_(-∞)^x1)f[x, μ,σ]\[DifferentialD]x

courbeF[ μ_,σ_]:= ListPlot [Table [{i,F[i, μ,σ]}, {i, -4, 4, 0.3}], 
PlotRange -> {{-4.2, 4.2}, Automatic},PlotStyle -> {Pink,Thick},
PlotJoined -> True]

courbeF[0,1.5]

) En prime

Manipulate [
With [{Fc=  F[x1,0,1.5], color=  RGBColor [0.6, Random[], 1]},
Column[{
Show [{
Plot[f[x,0, 1.5],{x,-4,4}, 
PlotRange -> {{-4.2, 4.2}, Automatic},AxesOrigin->{0,0}, PlotStyle -> {Thick, Black}],
Plot[f[x,0, 1.5],{x,-4,x1}, PlotRange -> {{-4.2, 4.2}, Automatic},AxesOrigin->{0,0}, Filling -> Axis, FillingStyle ->  color], 
Graphics[{Dashed ,Line [{{x1,0}, {x1, -0.3}}]}]},ImageSize ->  400, Ticks ->{{x1}, Automatic}],
Show [{
courbeF[0,1.5],
Graphics [ Text ["Aire colorée = P(X ≤ " <>ToString[x1] <>" ( = x1))", {-2,Fc}]],
Graphics[{Dashed ,Line [{{x1,0}, {x1, 1}}]}],
Graphics[{Arrowheads[{.03}],color, Thick,Arrow[{{x1,0},{x1,Fc}}]}],
Graphics[{Arrowheads[{.03}],color,Thick, Arrow[{{x1, Fc},{x1,0}}]}],
Graphics[{ Red,PointSize[Large],Point[{x1, Fc}]}]},ImageSize ->  400,
Ticks -> {{{x1, "(Subscript[x, 1])"}},  {1}}]}]],
{{x1,0.3, "valeurs de (Subscript[x, 1])" },0.3,4,0.2}]

) Calculs de probabilités, un boulier…

Manipulate [
With [{ 
color1=  RGBColor [0, 0.5, 1],
color2=  RGBColor [0,1, 0.5]},
Column[{
Row[{
Plot[f[x,0, 1.5],{x,-4,x1}, PlotRange -> {{-4.2, 4.2}, {0, 0.27}},AxesOrigin->{0,0}, Filling -> Axis, FillingStyle ->  color1,ImageSize ->  200, Ticks ->{{{x1, "x1="<> ToString [x1]}},{0.10, 0.20}}],
Show [Graphics [ Text ["Aire colorée = P(X ≤ x1 = P(X ≤ " <>ToString[x1] <>") = "<>  ToString[(∫_(-∞)^x1)f[x, 0,1.5]\[DifferentialD]x ], {5,0.1}]], ImageSize ->  {300, 150}]}],
Row[{
Plot[f[x,0, 1.5],{x,-4,x2}, PlotRange -> {{-4.2, 4.2}, {0, 0.27}},AxesOrigin->{0,0}, Filling -> Axis, FillingStyle ->  color2,ImageSize ->   200, Ticks ->{{{x2, "x2="<> ToString [x2]}}, {0.10, 0.20}}],
Show [Graphics [Text ["Aire colorée = P(X ≤ x2)= P(X ≤ "<>ToString[x2]<>") = "<>  ToString[(∫_(-∞)^x2)f[x, 0,1.5]\[DifferentialD]x ], {5,0.1}]], ImageSize ->  {300, 150}]}],
If [x1≤ x2, 
Row [{
Plot[f[x,0, 1.5],{x,x1,x2}, PlotRange -> {{-4.2, 4.2}, {0, 0.27}},AxesOrigin->{0,0}, Filling -> Axis, FillingStyle ->Red,ImageSize ->   200,Ticks ->{{{x1, "x1="<> ToString [x1]},{x2, "x2="<> ToString [x2]}}, {0.10, 0.20}}],
Column[{
Show [
Graphics [ Text ["Aire colorée = P(x1 ≤ X ≤ x2) "  , {5,0.1}], ImageSize ->  {330, 40}]], 
Show [
Graphics [ Text ["Aire colorée = P("<> ToString[x1]<>" ≤ X ≤ " <>ToString[x2 ]<> ") = " <> ToString[(∫_x1^x2)f[x, 0,1.5]\[DifferentialD]x ], {5,0}]],ImageSize ->  {330, 20} ]}]}],
 Show[Graphics [Text ["x2 doit être plus grand que x1", {0, 0}]]]]}]],
{{x1,-3, "valeurs de (Subscript[x, 1])" },-3,4,0.3},
{{x2,-1, "valeurs de (Subscript[x, 2])" },-1,4,0.3}]