2018-06-04 11:44:08 +00:00
|
|
|
|
theory BAC2017
|
2019-01-06 18:22:54 +00:00
|
|
|
|
imports "Isabelle_DOF.mathex_onto"
|
2018-06-07 11:56:15 +00:00
|
|
|
|
Deriv
|
|
|
|
|
Transcendental
|
2018-06-04 11:44:08 +00:00
|
|
|
|
begin
|
|
|
|
|
|
|
|
|
|
open_monitor*[exam::MathExam]
|
|
|
|
|
|
2018-06-29 07:03:44 +00:00
|
|
|
|
(* currently rethinking on "deep ontologies" necessary ... Achim
|
2018-06-27 07:32:05 +00:00
|
|
|
|
text*[idir::Author,affiliation="''LRI, CentraleSupelec''",
|
2018-06-04 11:44:08 +00:00
|
|
|
|
email="''idir.aitsadoune@centralesupelec.fr''"]
|
|
|
|
|
{*Idir AIT SADOUNE*}
|
|
|
|
|
|
2018-06-27 07:32:05 +00:00
|
|
|
|
text*[keller::Author,affiliation="''LRI, Univ. Paris-Sud''",
|
|
|
|
|
email="''Chantal.Keller@lri.fr''"]
|
2018-06-06 06:37:06 +00:00
|
|
|
|
{*Chantal KELLER*}
|
|
|
|
|
|
2018-06-07 11:56:15 +00:00
|
|
|
|
text{* This example is an excerpt from the french baccaleareat 2017.
|
|
|
|
|
The textual explanations were kept in french.
|
|
|
|
|
*}
|
2018-06-29 07:03:44 +00:00
|
|
|
|
*)
|
|
|
|
|
|
|
|
|
|
text*[header::Header,examSubject="[analysis,geometry]", date="''21-06-2017''",
|
|
|
|
|
timeAllowed="240::int"]{* BACCALAUREAT GENERAL MATHEMATIQUES *}
|
|
|
|
|
text{*
|
2018-06-04 11:44:08 +00:00
|
|
|
|
\begin{itemize}
|
2018-06-07 11:56:15 +00:00
|
|
|
|
\item Les calculatrices électroniques de poche sont autorisées, conformément à la réglementation
|
|
|
|
|
en vigueur.
|
2018-06-04 11:44:08 +00:00
|
|
|
|
\item Le sujet est composé de 4 exercices indépendants.
|
|
|
|
|
\item Le candidat doit traiter tous les exercices.
|
2018-06-07 11:56:15 +00:00
|
|
|
|
\item Le candidat est invité à faire figurer sur la copie toute trace de recherche, même incomplète
|
|
|
|
|
ou non fructueuse, qu’il aura développée.
|
|
|
|
|
\item Il est rappelé que la qualité de la rédaction, la clarté et la précision des raisonnements
|
|
|
|
|
entreront pour une part importante dans l’appréciation des copies.
|
2018-06-04 11:44:08 +00:00
|
|
|
|
\end{itemize}
|
|
|
|
|
*}
|
|
|
|
|
|
2018-06-06 17:24:17 +00:00
|
|
|
|
|
2018-06-27 07:32:05 +00:00
|
|
|
|
text*[exo1 :: Exercise,
|
2018-08-24 15:14:39 +00:00
|
|
|
|
concerns= "{setter,student,checker,externalExaminer}"]
|
2018-06-07 11:56:15 +00:00
|
|
|
|
{* On considère la fonction h définie sur l’intervalle [0..+\<infinity>] par :
|
|
|
|
|
@{term "h(x) = x * exponent (-x)"}
|
2018-06-04 11:44:08 +00:00
|
|
|
|
*}
|
|
|
|
|
|
2018-06-05 18:56:02 +00:00
|
|
|
|
definition h :: "real \<Rightarrow> real"
|
|
|
|
|
where "h x \<equiv> x * exp (- x)"
|
|
|
|
|
|
2018-06-06 17:24:17 +00:00
|
|
|
|
|
2018-08-24 15:14:39 +00:00
|
|
|
|
text*[q1::Task, concerns= "{setter,student}",
|
2018-06-04 11:44:08 +00:00
|
|
|
|
level="oneStar", mark="1::int", type="formal"]
|
2018-06-05 18:56:02 +00:00
|
|
|
|
{* Déterminer la limite de la fonction @{term h} en +\<infinity>. *}
|
2018-06-04 11:44:08 +00:00
|
|
|
|
|
2018-06-29 07:03:44 +00:00
|
|
|
|
text*[a1::Answer_Formal_Step] {* Fill in term and justification*}
|
2018-06-04 11:44:08 +00:00
|
|
|
|
|
2018-06-29 07:03:44 +00:00
|
|
|
|
lemma q1 : "(h \<longlongrightarrow> (0::real)) at_top" sorry
|
2018-06-05 18:56:02 +00:00
|
|
|
|
|
2018-10-05 07:45:24 +00:00
|
|
|
|
text*[v1::Validation, proofs="[@{thm ''HOL.refl''}::thm]"] {* See lemma @{thm q1}. *}
|
2018-06-06 17:24:17 +00:00
|
|
|
|
|
2018-06-05 18:56:02 +00:00
|
|
|
|
|
2018-08-24 15:14:39 +00:00
|
|
|
|
text*[q2::Task, concerns= "{setter,checker,student}",
|
2018-06-29 07:03:44 +00:00
|
|
|
|
level="oneStar", mark="1::int", type="formal"]
|
|
|
|
|
{* Étudier les variations de la fonction @{term h} sur l'intervalle [0..+\<infinity>] et
|
|
|
|
|
dresser son tableau de variation *}
|
2018-06-06 06:37:06 +00:00
|
|
|
|
|
2018-06-05 18:56:02 +00:00
|
|
|
|
text*[a2::Answer_Formal_Step]
|
2018-06-06 06:37:06 +00:00
|
|
|
|
{* Fill in term and justification*}
|
|
|
|
|
|
|
|
|
|
definition h' :: "real \<Rightarrow> real"
|
|
|
|
|
where "h' x \<equiv> (1 - x) * exp (- x)"
|
2018-06-05 18:56:02 +00:00
|
|
|
|
|
2018-06-06 06:37:06 +00:00
|
|
|
|
lemma q2_a : "DERIV h x :> h' x"
|
2018-06-05 18:56:02 +00:00
|
|
|
|
proof -
|
2018-06-07 11:56:15 +00:00
|
|
|
|
have * : "DERIV (exp \<circ> uminus) x :> - (exp (-x))"
|
|
|
|
|
sorry (* by (simp add: has_derivative_compose) *)
|
2018-06-05 18:56:02 +00:00
|
|
|
|
have ** : "DERIV id x :> 1"
|
|
|
|
|
by (metis DERIV_ident eq_id_iff)
|
|
|
|
|
have *** : "DERIV h x :> x * (- (exp (- x))) + 1 * (exp (- x))"
|
2018-06-07 11:56:15 +00:00
|
|
|
|
sorry (* by (simp add: * ** has_derivative_mult comp_def) *)
|
2018-06-05 18:56:02 +00:00
|
|
|
|
show ?thesis
|
2018-06-07 11:56:15 +00:00
|
|
|
|
sorry (* by (metis "***" left_diff_distrib mult_minus_right uminus_add_conv_diff) *)
|
2018-06-05 18:56:02 +00:00
|
|
|
|
qed
|
2018-06-04 11:44:08 +00:00
|
|
|
|
|
2018-06-06 06:37:06 +00:00
|
|
|
|
lemma q2_b : "0 \<le> x \<and> x \<le> y \<and> y \<le> 1 \<Longrightarrow> h x \<le> h y"
|
|
|
|
|
sorry
|
|
|
|
|
|
|
|
|
|
lemma q2_c : "1 \<le> x \<and> x \<le> y \<Longrightarrow> h x \<ge> h y"
|
|
|
|
|
sorry
|
|
|
|
|
|
2018-12-04 09:41:34 +00:00
|
|
|
|
text*[v2::Validation, proofs="[@{thm ''BAC2017.q2_b''}, @{thm ''BAC2017.q2_c''}]"]
|
2018-06-29 07:03:44 +00:00
|
|
|
|
{* See lemmas @{thm q2_b} and @{thm q2_c}. *}
|
2018-06-06 17:24:17 +00:00
|
|
|
|
|
2018-06-06 06:37:06 +00:00
|
|
|
|
|
2018-08-24 15:14:39 +00:00
|
|
|
|
text*[q3a::Task, concerns= "{setter,checker,student}",
|
2018-06-06 06:37:06 +00:00
|
|
|
|
level="oneStar", mark="1::int", type="formal"]
|
|
|
|
|
{* Vérifier que pour tout nombre réel x appartenant à l'intervalle [0..+\<infinity>], on a :
|
2018-06-29 07:03:44 +00:00
|
|
|
|
@{term "h x = (exp (- x)) - (h' x)"}. *}
|
2018-06-06 06:37:06 +00:00
|
|
|
|
|
2018-06-06 17:24:17 +00:00
|
|
|
|
text*[a3a::Answer_Formal_Step]
|
|
|
|
|
{* Fill in term and justification*}
|
|
|
|
|
|
2018-06-06 06:37:06 +00:00
|
|
|
|
lemma q3a : "h x = (exp (- x)) - (h' x)"
|
|
|
|
|
by (simp add : h_def h'_def left_diff_distrib)
|
|
|
|
|
|
2018-10-05 07:45:24 +00:00
|
|
|
|
subsubsection*[v3a::Validation, proofs="[@{thm ''BAC2017.q3a''}::thm]"]
|
2018-06-29 07:03:44 +00:00
|
|
|
|
{* See lemma @{thm q3a}. *}
|
2018-06-06 17:24:17 +00:00
|
|
|
|
|
|
|
|
|
|
|
|
|
|
subsection*[sol1 :: Solution,
|
2018-08-24 15:14:39 +00:00
|
|
|
|
content="[exo1::Exercise]",
|
|
|
|
|
valids = "[v1::Validation,v2,v3a]"]
|
2018-06-29 07:03:44 +00:00
|
|
|
|
{* See validations. *}
|
2018-06-06 06:37:06 +00:00
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
2018-06-04 11:44:08 +00:00
|
|
|
|
close_monitor*[exam]
|
|
|
|
|
|
|
|
|
|
end
|