\documentclass[a4paper]{article}

% page consultée pour faire ce document :
%https://www.auto-multiple-choice.net/auto-multiple-choice.fr/alt.shtml
%https://www.auto-multiple-choice.net/auto-multiple-choice.fr/Divers.shtml
%https://project.auto-multiple-choice.net/issues/719
%https://project.auto-multiple-choice.net/boards/4/topics/9733?r=9756#message-9756
%%%%%%%%%%%%%%%%
% ATTENTION !
%%%%%%%%%%%%%%%%
% il faut compiler avec 
% xelatex pour eviter l'erreur "tex capacity exceeded, sorry [pdf buffer=5000000]"
% voir   : https://project.auto-multiple-choice.net/issues/719 qui n'a pas réglé le probleme
% la solution (compilation par xelatex) trouvée ici :
% https://project.auto-multiple-choice.net/boards/4/topics/9733?r=9756#message-9756
% etant donné qu'on utilise Xelatex, il faut utiliser fontspec et non inputenc ni fontenc pour encoder le texte
\usepackage{fontspec}

%\usepackage[utf8x]{inputenc}
%\usepackage[T1]{fontenc}

\usepackage{float} % pour forcer la position des figures : option H
\usepackage{csvsimple}
\usepackage{multicol}
    
\usepackage{fp}
\usepackage{tikz}
\usepackage{amssymb}
\usepackage{enumitem} 
\usepackage{graphicx}
\usepackage[francais,bloc,pdfform]{automultiplechoice}    

\usepackage{booktabs} % pour tableaux

\def\multiSymbole{} % mettre un symbole ici pour signaler les questions a plusieurs réponses correctes. Sinon laisser vide.
\def\AMCdecimalPoint{,}
\def\AMCotextReserved{\emph{Reservé correcteur!}} % texte signifiant aux étudiants de ne rien noircir dans les zones de notation
%\AMCinterIrep=.75ex % augmenter l'espacement vertical entre les réponses
\geometry{a4paper,hmargin=1.6cm,top=2.5cm}
%\AMCidsPosition{pos=top}
\AMCboxDimensions{size=1.7ex,down=.2ex} % ajustement de la taille de la boite des reponses
\AMCinterIrep=-3pt % pour ajuster l'espacement vertical entre les reponses
\AMCinterBquest=1.5ex  % pour ajuster l'espacement vertical entre les questions


% \usepackage{lcg} pour utilsier rangen ? tirage aleatoire
\usepackage{hyperref}
% \usepackage{rangen}


% Nouvelle commande FP pour définir le nombre de chiffres (dont un certain nombre de décimaux) necessaire au codage du résultat numérique. Affecté à #1
\newcommand{\nchiffres}[3]{
	\FPeval{\intermediaire}{trunc(abs(ln(abs(#2))/ln(10)), 2)}
	%inter1 : \FPprint{\intermediaire}
	\FPeval{\intermediaireb}{\intermediaire+1}
	%inter2 : \FPprint{\intermediaireb}
	\FPeval{\gauche}{trunc(\intermediaireb,0)}
	%final 1 : \FPprint{\gauche}
 	% si chiffre <1, maintenir un zero a gauche de la virgule :
 	\ifnum \gauche=0
 		\FPeval{#1}{trunc(\gauche+1+#3, 0)}
 	\else % sinon renvoyer le nombre de chiffre
 		\FPeval{#1}{trunc(\gauche+0+#3, 0)}
 	\fi
}



% pour les boites a remplir
%https://tex.stackexchange.com/questions/20294/settings-for-hypertext-in-multiline-environment
\renewcommand*{\DefaultHeightofTextMultiline}{6\baselineskip} 
\renewcommand*{\LayoutTextField}[2]{\makebox[6em][l]{#1: }%
	\raisebox{\baselineskip}{\raisebox{-\height}{#2}}}
%\renewcommand*{\LayoutTextField}[2]{% or this or similar ...
%\raisebox{-\height}{\makebox[6em][l]{#1: }}\raisebox{-\height}{#2}}
\def\LayoutChoiceField#1#2{\makebox[6em][l]{#1: }#2}
\newdimen\longline
\longline=\textwidth\advance\longline-6em

\newcommand{\macommandeune}{
	\begin{minipage}{1\linewidth}
	\vspace{0.5cm} % sinon le textfield n'est pas au centre de la boite... (avec Xelatex/avec pdflatex OK) 
	\TextField[name=Comment,multiline=true,height=15\baselineskip,
	width=\longline,borderwidth=0,backgroundcolor={.85 .85 .85}, charsize = 10pt]{}
	\end{minipage}
}
\newcommand{\macommandedeux}{
	\begin{minipage}{1\linewidth}
	\vspace{0.5cm} % sinon le textfield n'est pas au centre de la boite... (avec Xelatex/avec pdflatex OK) 
	\TextField[name=Comment2,multiline=true,height=15\baselineskip,
	width=\longline,borderwidth=0,backgroundcolor={.85 .85 .85}, charsize = 10pt]{}
	\end{minipage}
}
\newcommand{\macommandetrois}{
	\begin{minipage}{1\linewidth}
	\vspace{0.5cm} % sinon le textfield n'est pas au centre de la boite... (avec Xelatex/avec pdflatex OK) 
	\TextField[name=Comment3,multiline=true,height=15\baselineskip,
	width=\longline,borderwidth=0,backgroundcolor={.85 .85 .85}, charsize = 10pt]{}
	\end{minipage}
}
\newcommand{\macommandequatre}{
	\begin{minipage}{1\linewidth}
	\vspace{0.5cm} % sinon le textfield n'est pas au centre de la boite... (avec Xelatex/avec pdflatex OK) 
	\TextField[name=Comment4,multiline=true,height=10\baselineskip,
	width=\longline,borderwidth=0,backgroundcolor={.85 .85 .85}, charsize = 10pt]{}
	\end{minipage}
}
\newcommand{\macommandecinq}{
	\begin{minipage}{1\linewidth}
	\vspace{0.5cm} % sinon le textfield n'est pas au centre de la boite... (avec Xelatex/avec pdflatex OK) 
	\TextField[name=Comment5,multiline=true,height=10\baselineskip,
	width=\longline,borderwidth=0,backgroundcolor={.85 .85 .85}, charsize = 10pt]{}
	\end{minipage}
}
\newcommand{\macommandesix}{
	\begin{minipage}{1\linewidth}
	\vspace{0.5cm} % sinon le textfield n'est pas au centre de la boite... (avec Xelatex/avec pdflatex OK) 
	\TextField[name=Comment6,multiline=true,height=6\baselineskip,
	width=\longline,borderwidth=0,backgroundcolor={.85 .85 .85}, charsize = 10pt]{}
	\end{minipage}
}


\newcommand{\sujet}{%



\exemplaire{1}{%


\setcounter{figure}{0}% pour remettre a zero le décompte des figures à chaque nouvelle copie
% pour l'association ulterieure au moment de la correction, (grace au numéro d'etudiant ici):
\AMCassociation{\ID}%
%\shorthandon{;} 3
%%% debut de l'en-tête des copies :

%\noindent{\bf QCM  \hfill TEST}

\vspace*{.5cm}
%%%%%%%%%%%%%%%%%En tête de la copie %%%%%%%%%%%%%%%%
\vspace*{-2em}
\noindent{}\champnom{\fbox{    
        \begin{minipage}{0.97\linewidth}
           {\Large\bf\Nom{}~\Prenom{} (\ID{})}  \hfill {\scshape Dur\'ee : 60~minutes}\null%<- dans mon fichier csv, j'ai une colonne nom, prenom; à chaque lecture latex inscrit automatiquement le contenu.      
          \vspace*{1mm}
        \end{minipage}
      }}\medskip%

		%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
		%  en tete des copies
		%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
		
		%\noindent{\bf UE Génétique 2  \hfill Université Lyon 1} % pour mettre en-tête
		
		\begin{center}
			\centering\large\bf UE Génétique 2 (BIO2013)\\
			Génétique des Populations et Génétique Quantitative\\ 2ème session (30 juin 2020) \\ %{\small Chaque partie sera notée sur 20 et aura le même poids dans la note finale}
		\end{center}
		
		
		{\footnotesize \textit{Instructions}: Ce formulaire est à remplir de préférence à l‘aide du logiciel \textbf{Adobe Acrobat reader DC}. Il sera analysé de manière automatique (après correction des questions ouvertes), donc merci de suivre scrupuleusement les instructions suivantes : 
			\begin{multicols}{2}
				\begin{itemize}[label=$\bullet$, leftmargin=*, parsep=-0.1cm, topsep=0cm]
					\item Pour sélectionner une case, cliquer une fois dessus $\square$ $\rightarrow$ $\blacksquare$
					\item Pour dé-sélectionner une case, re-cliquer dessus  $\blacksquare$ $\rightarrow$ $\square$
					\item inscrivez vos réponses dans les encarts prévus à cet effet.
					\item Les questions peuvent présenter zéro, une ou plusieurs réponses correctes.
					%\item Une réponse fausse donne des points négatifs.
					\item Pour coder un résultat numérique, consulter l'exemple ci-dessous.
					%\item Si les données fournies ne permettent pas de faire le calcul numérique demandé, cocher \underline{toutes les cases} "9" de la boite.
					\item Ne rien cocher dans les zones grisées des questions ouvertes: elles sont réservées au correcteur !
					\item PENSEZ A ENREGISTRER VOTRE DOCUMENT AVANT DE FERMER. 
					\item Ouvrez-le de nouveau pour vérifier que les cases sont bien cochées et que votre texte y figure bien avant de le déposer dans la cellule prévue à cet effet sur TOMUSS (pensez à rafraichir la page de votre navigateur si vous ne la voyez pas).
				\end{itemize}
			\end{multicols}
			
			
			
			%%%%%%%%%%%%%%%%%%%%%%%%%%%%% exemple %%%%%
			
			\underline{Comment coder un résultat numérique} :
			Exemple: Combien font 0,1 + 0,2 ? 
			
			\includegraphics[width=6cm]{EXEMPLE.png}
			\vspace*{.2cm}
		} % fin petite police

%%% fin de l'en-tête


%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%ù
%  Debut des questions
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%ù
	
		%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
		% debut GDP
		%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
\begin{center}
  \hrule\vspace{2mm}
  \bf\Large Génétique des populations (durée conseillée 40 minutes)
  \vspace{1mm}\hrule
\end{center}	

% tirage des données
		
		%%%%%%%%%%%%%%%%%%%%%%%%%%
		% position du site EcoR1
		%%%%%%%%%%%%%%%%%%%%%%%%%%	
		% longueur fragment a gauche du site EcoR1
		\FPeval\VQgauche{round((190+random*20),0)}
		% longueur fragment a droite du site EcoR1
		\FPeval\VQdroite{round(600-\VQgauche, 0)}  

		%%%%%%%%%%%%%%%%%%%%%%%%%%
		% données génétiques
		%%%%%%%%%%%%%%%%%%%%%%%%%%	
		% tirage de p et q
		\FPeval\VQp{round((51+random*10)/100,2)}
		\FPeval\VQq{round(1-\VQp,2)}
		% tirage de F
		\FPeval\VQF{round((15+random*0)/100,2)}

		% tirage des frequences de génotypes chez les males
		\FPeval\VQmalesE{round(200*\VQp,0)}
		\FPeval\VQmalese{round(200-\VQmalesE,0)}

		% tirage des frequences de génotypes chez les femelles
		\FPeval\VQEE{round(200*(\VQp^2+\VQF*\VQp*\VQq),0)}
		\FPeval\VQee{round(200*(\VQq^2+\VQF*\VQp*\VQq),0)}
		\FPeval\VQEe{round(200-\VQEE-\VQee,0)}
		\FPeval\VQTotal{round(\VQEE+\VQEe+\VQee,0)}


		% recalcul des frequenes alléliques dans le jeu de données tiré
		\FPeval\VQpestimefemelles{round((2*\VQEE+\VQEe)/(2*\VQTotal),3)}  
		\FPeval\VQqestimefemelles{round(1-\VQpestimefemelles,3)}  
		\FPeval\VQpestimemales{round(\VQmalesE/\VQTotal,3)}  
		\FPeval\VQqestimemales{round(1-\VQpestimemales,3)}  

		% recalcul de F avec le jeu de données final:
		%\FPeval\VQHs{round(2*\VQpestime*\VQqestime, 3)}
		\FPeval\VQHs{round(2*\VQpestimefemelles*\VQqestimefemelles,3)}  
		\FPeval\VQFestime{round((\VQHs-(\VQEe/\VQTotal))/\VQHs,3)}  

		% Estimation de la proportion d’unions entre frères et soeurs:
		\FPeval\VQFSestime{round((\VQFestime)/(25/100),3)}  

		% Calcul du khideux . Attention le carré ne marche pas sur des nombre negatifs. Passer par la valeur absolue (abs)
		\FPeval\VQkhideuxAA{round(abs(\VQEE-\VQTotal*\VQpestimefemelles^2)^2/(\VQTotal*\VQpestimefemelles^2),3)}

		\FPeval\VQkhideuxAa{round(abs(\VQEe-2*\VQpestimefemelles*\VQqestimefemelles*\VQTotal)^2/(2*\VQpestimefemelles*\VQqestimefemelles*\VQTotal),3)}

		\FPeval\VQkhideuxaa{round(abs(\VQee-\VQTotal*\VQqestimefemelles^2)^2/(\VQTotal*\VQqestimefemelles^2),3)}

		\FPeval\VQkhideux{round(\VQkhideuxAA+\VQkhideuxAa+\VQkhideuxaa, 3)}

		%Verif jeu de données : F = \VQFestime ; p(femelles)=\VQpestimefemelles; p(males)=\VQpestimemales; q(femelles)=\VQqestimefemelles ; q(males)=\VQqestimemales; prop unions fs=\VQFSestime; $\chi^2=$\VQkhideuxAA , \VQkhideuxAa, \VQkhideuxaa ; total = \VQkhideux



\vspace*{1cm}


Chez la plupart des hyménoptères, les femelles sont diploïdes (issues d’œufs fécondés) et les mâles sont haploïdes (issus d’œufs non fécondés). Les chromosomes des hyménoptères se comportent donc comme le chromosome X des mammifères du point de vue de la génétique des populations.
Chez une espèce d’hyménoptères, on considère un locus polymorphe pour un site de restriction, c’est à dire qu’il existe deux allèles du locus : l’allèle “E” présente le site de restriction, l’allèle “e” ne le présente pas.

Dans un échantillon de 200 insectes (100 mâles et 100 femelles), ce locus a été amplifié par PCR à l’aide de deux amorces situées respectivement à \VQgauche\ nucléotides à gauche et \VQdroite\ nucléotides à droite du site de restriction (voir figure 1). Le produit de PCR ainsi obtenu a été digéré par l’enzyme EcoRI et une électrophorèse a été réalisée avec le produit de PCR digéré. On obtient trois types de profil électrophorétique présentés dans la figure 2.
\vspace*{0.6cm}

\begin{center}
\includegraphics[width=15cm]{gel.jpg}
\end{center}

\vspace{0.4cm}

Les auteurs de cette étude ont obtenu les résultats suivants :

% Please add the following required packages to your document preamble:
% \usepackage{booktabs}

\begin{table}[H]
\begin{center}
\begin{tabular}{@{}lllll@{}}
\toprule
Profils  & 1                        & 2                    & 3        & total                \\ \midrule
males    & \VQmalese\ & 0                    & \VQmalesE\ & \VQTotal\\
femelles & \VQee\     & \VQEe\ & \VQEE\  & \VQTotal   \\ \bottomrule
\end{tabular}
\end{center}
\end{table}




		\begin{questionmult}{q01}\bareme{p=0, MAX=1}
		Comment appelle-t-on le type de marqueur utilisé dans cette expérience ?
			\begin{reponses}
				\bonne{RFLP pour Restriction Fragment Length Polymorphism}\bareme{b=1, m=0} % + 2 si cochée
				\mauvaise {RFLP pour Random Fragment Length Polymorphism}\bareme{m=-1,b=0} % -1 si cochée
				\mauvaise{PCR pour Polymerase Chain Reaction}\bareme{m=-1, b=0} % +0.() si cochée
				\mauvaise{Microsatellite}\bareme{m=-1, b=0} % -1 si cochée
				\mauvaise {Un marqueur neutre}\bareme{m=-1, b=0} % -1 si cochée
				%\mauvaise {aucune de ces propositions n'est correcte} \bareme{b=0, m=-1} % -1 si cochée
			\end{reponses}
		\end{questionmult}

		\begin{questionmult}{q02}\bareme{p=0, MAX=1}
		Quelle est la taille de la bande de niveau 1 (Cf fig. 2) ?
			\begin{reponses}
				\bonne{600 paires de bases}\bareme{b=1, m=0} % + 2 si cochée
				\mauvaise {\VQgauche\ paires de bases}\bareme{m=-1,b=0} % -1 si cochée
				\mauvaise{\VQdroite\ paires de bases}\bareme{m=-1, b=0} % +0.() si cochée
				\mauvaise{200 paires de bases}\bareme{m=-1, b=0} % -1 si cochée
			\end{reponses}
		\end{questionmult}

		\begin{questionmult}{q03}\bareme{p=0, MAX=1}
		Quelle est la taille de la bande de niveau 2 (Cf fig. 2)?
			\begin{reponses}
				\bonne{\VQdroite\ paires de bases}\bareme{b=1, m=0} % + 2 si cochée
				\mauvaise {\VQgauche\ paires de bases}\bareme{m=-1,b=0} % -1 si cochée
				\mauvaise{600 paires de bases}\bareme{m=-1, b=0} % +0.() si cochée
				\mauvaise{200 paires de bases}\bareme{m=-1, b=0} % -1 si cochée
			\end{reponses}
		\end{questionmult}



				\begin{questionmult}{q04}\bareme{p=0, MAX=1}
		Quelle est la taille de la bande de niveau 3 (Cf fig. 2)?
			\begin{reponses}
				\bonne{\VQgauche\ paires de bases}\bareme{b=1, m=0} % + 2 si cochée
				\mauvaise {600 paires de bases}\bareme{m=-1,b=0} % -1 si cochée
				\mauvaise{\VQdroite\ paires de bases}\bareme{m=-1, b=0} % +0.() si cochée
				\mauvaise{200 paires de bases}\bareme{m=-1, b=0} % -1 si cochée
			\end{reponses}
		\end{questionmult}

				\begin{questionmult}{q05}\bareme{p=0, MAX=1}
		Quel est le génotype des individus femelles ayant le profil 1 ?
			\begin{reponses}
				\bonne{ee}\bareme{b=1, m=0} % + 2 si cochée
				\mauvaise {EE}\bareme{m=-1,b=0} % -1 si cochée
				\mauvaise{Ee}\bareme{m=-1, b=0} % +0.() si cochée
				\mauvaise{E-}\bareme{m=-1, b=0} % -1 si cochée
				\mauvaise{e-}\bareme{m=-1, b=0} % -1 si cochée
			\end{reponses}
		\end{questionmult}

				\begin{questionmult}{q06}\bareme{p=0, MAX=1}
		Quel est le génotype des individus femelles ayant le profil 2 ?
			\begin{reponses}
				\bonne{Ee}\bareme{b=1, m=0} % + 2 si cochée
				\mauvaise {EE}\bareme{m=-1,b=0} % -1 si cochée
				\mauvaise{ee}\bareme{m=-1, b=0} % +0.() si cochée
				\mauvaise{E-}\bareme{m=-1, b=0} % -1 si cochée
				\mauvaise{e-}\bareme{m=-1, b=0} % -1 si cochée
			\end{reponses}
		\end{questionmult}


				\begin{questionmult}{q07}\bareme{p=0, MAX=1}
		Quel est le génotype des individus femelles ayant le profil 3 ?
			\begin{reponses}
				\bonne{EE}\bareme{b=1, m=0} % + 2 si cochée
				\mauvaise {Ee}\bareme{m=-1,b=0} % -1 si cochée
				\mauvaise{ee}\bareme{m=-1, b=0} % +0.() si cochée
				\mauvaise{E-}\bareme{m=-1, b=0} % -1 si cochée
				\mauvaise{e-}\bareme{m=-1, b=0} % -1 si cochée
			\end{reponses}
		\end{questionmult}

				\begin{questionmult}{q08}\bareme{p=0, MAX=1}
		Quel est le génotype des individus males ayant le profil 1 ?
			\begin{reponses}
				\bonne{e-}\bareme{b=1, m=0} % + 2 si cochée
				\mauvaise {Ee}\bareme{m=-1,b=0} % -1 si cochée
				\mauvaise{ee}\bareme{m=-1, b=0} % +0.() si cochée
				\mauvaise{E-}\bareme{m=-1, b=0} % -1 si cochée
				\mauvaise{EE}\bareme{m=-1, b=0} % -1 si cochée
			\end{reponses}
		\end{questionmult}

				\begin{questionmult}{q09}\bareme{p=0, MAX=1}
		Quel est le génotype des individus males ayant le profil 3 ?
			\begin{reponses}
				\bonne{E-}\bareme{b=1, m=0} % + 2 si cochée
				\mauvaise {Ee}\bareme{m=-1,b=0} % -1 si cochée
				\mauvaise{ee}\bareme{m=-1, b=0} % +0.() si cochée
				\mauvaise{e-}\bareme{m=-1, b=0} % -1 si cochée
				\mauvaise{EE}\bareme{m=-1, b=0} % -1 si cochée
			\end{reponses}
		\end{questionmult}

	\begin{questionmultx}{q10}
		Estimer la fréquence de l'allèle E chez les femelles de cette population (arrondir si besoin):\\
		\def \decimales {3} % definir ici le nombre de chiffres apres la virgule
		\nchiffres{\ndigits}{\VQpestimefemelles}{\decimales} % renvoit dans variable \ndigits le nombre de chiffres necessaires pour coder le resultat (chiffres à gauche + a droite de la virgule)
		\AMCnumericChoices{\VQpestimefemelles}{digits=\ndigits,decimals=\decimales,sign=false,
			borderwidth=1pt,backgroundcol=white,approx=1, scoreexact=2, scoreapprox=2}	
		%%%réponse attendue : \VQqestime
		%réponse attendue : \VQpestimefemelles
	\end{questionmultx}

	\begin{questionmultx}{q11}
		Estimer la fréquence de l'allèle E dans la population mâle (arrondir si besoin):\\
		\def \decimales {3} % definir ici le nombre de chiffres apres la virgule
		\nchiffres{\ndigits}{\VQpestimemales}{\decimales} % renvoit dans variable \ndigits le nombre de chiffres necessaires pour coder le resultat (chiffres à gauche + a droite de la virgule)
		\AMCnumericChoices{\VQpestimemales}{digits=\ndigits,decimals=\decimales,sign=false,
			borderwidth=1pt,backgroundcol=white,approx=1, scoreexact=2, scoreapprox=2}	
		%%%réponse attendue : \VQqestime
		%réponse attendue : \VQpestimemales
	\end{questionmultx}


	\begin{question}{q12}
		La population femelle est-elle à l‘équilibre de Hardy-Weinberg ? Qu’en concluez-vous ? (si besoin, utiliser le symbole $\textasciicircum$ pour indiquer une puissance : ex: $x^2=x$\textasciicircum$2$; et le symbole / pour la division, ainsi que les valeurs de $\chi^2$ seuil en bas de l'encart). 
		\footnotetext{$\chi^2$ seuils à 5\%: $\chi^2_{1ddl}$=3,84, $\chi^2_{2ddl}$=5,99, $\chi^2_{3ddl}$=7,81, $\chi^2_{4ddl}$=9,49 $\chi^2_{5ddl}$=11,07, $\chi^2_{6ddl}$=12,59}
	\AMCOpen{contentcommand=macommandeune, width=1\linewidth, lineheight=0.75cm, lines=20}{\wrongchoice[D]{d}\scoring{0}\wrongchoice[C]{c}\scoring{2}\wrongchoice[B]{b}\scoring{4}\correctchoice[A]{a}\scoring{5}}
		\end{question}
		
	\begin{questionmultx}{q13}
		Estimer le coefficient de consanguinité moyen F chez les femelles (arrondir si besoin):\\
		\def \decimales {3} % definir ici le nombre de chiffres apres la virgule
		\nchiffres{\ndigits}{\VQFestime}{\decimales} % renvoit dans variable \ndigits le nombre de chiffres necessaires pour coder le resultat (chiffres à gauche + a droite de la virgule)
		\AMCnumericChoices{\VQFestime}{digits=\ndigits,decimals=\decimales,sign=false,
			borderwidth=1pt,backgroundcol=white,approx=1, scoreexact=2, scoreapprox=2}	
		%%%réponse attendue : \VQqestime
		%réponse attendue : \VQFestime
	\end{questionmultx}


	\begin{questionmultx}{q14}
		Chez cette espèce, les larves sont grégaires et leur développement est synchrone. L’accouplement ayant lieu immédiatement après la métamorphose, on suspecte que de nombreux accouplements se produisent entre frères et soeurs. Estimer le coefficient de consanguinité d’une femelle hyménoptère issue d’un croisement frère-soeur (rappel : les chromosomes des hyménoptères se comportent comme le chromosome X des mammifères du point de vue de la génétique des populations):\\
		\AMCnumericChoices{0.25}{digits=3,decimals=2,sign=false,
			borderwidth=1pt,backgroundcol=white,approx=1, scoreexact=2, scoreapprox=2}			%réponse attendue : 0.25
	\end{questionmultx}

	\begin{questionmultx}{q15}
		En déduire la proportion d‘union de ce type dans la population (on considèrerea que les seules unions entre apparentés correspondent aux unions frères-soeurs)\\
		\def \decimales {3} % definir ici le nombre de chiffres apres la virgule
		\nchiffres{\ndigits}{\VQFSestime}{\decimales} % renvoit dans variable \ndigits le nombre de chiffres necessaires pour coder le resultat (chiffres à gauche + a droite de la virgule)
		\AMCnumericChoices{\VQFSestime}{digits=\ndigits,decimals=\decimales,sign=false,
			borderwidth=1pt,backgroundcol=white,approx=1, scoreexact=2, scoreapprox=2}	
		%réponse attendue : \VQFSestime
	\end{questionmultx}


\begin{center}
  \hrule\vspace{2mm}
  \bf\Large Génétique Quantitative (durée conseillée 20 minutes)
  \vspace{1mm}\hrule
\end{center}	


Le colza (\textit{Brassica napus}) est une crucifère cultivée surtout pour ses graines qui contiennent environ 50\% d'huile. La sélection de colza demi-nain (hybride issu du croisement d’une plante de taille classique et d’une plante naine) présente des avantages pour les agriculteurs. Ils sont plus résistants à la verse que les lignées classiques et facilitent les interventions des agriculteurs dans leurs parcelles avec un tracteur. Par ailleurs, le nanisme ne pénalise ni la qualité des grains ni la productivité.
Un croisement entre 20 individus d’une lignée de colza classique « Capitol », utilisée comme parent femelle, et 20 individus d’une lignée naine « Bristol », utilisée comme parent mâle, est réalisé. Une descendance F2 est obtenue à partir des hybrides F1. Les rétrocroisements de la F1 avec chaque lignée parentale sont aussi réalisés.
Le tableau suivant indique la moyenne et la variance de la hauteur de la plante à la floraison pour chacune des générations, mesurées sur 20 individus par génération.


% definition des données
	 	\FPeval\VQPun{round(153+random*10,0)}
	 	\FPeval\VQPdeux{round(78+random*8,0)}
	 	\FPeval\VQFun{round(128+random*8,0)}
	 	\FPeval\VQPBCun{round(140+random*10,0)}
	 	\FPeval\VQPBCdeux{round(104+random*10,0)}
	 	% variances
	 	\FPeval\VQVPun{round(11+random*1,1)}
	 	\FPeval\VQVPdeux{round(10+random*1,1)}
	 	\FPeval\VQVFun{round(9+random*1,1)}
	 	\FPeval\VQVPFdeux{round(18+random*1,1)}
	 	\FPeval\VQVPBCun{round(17+random*1,1)}
	 	\FPeval\VQVPBCdeux{round(14+random*1,1)}

	% % parametres
	 	\FPeval\VQm{round((\VQPun+\VQPdeux)/2, 1)}
	 	\FPeval\VQa{round(\VQPun-\VQm, 1)}
	 	\FPeval\VQd{round(\VQFun-\VQm, 1)}
	% 	%Ve
		\FPeval\VQVe{round(1/4*\VQVPun+1/2*\VQVFun+1/4*\VQVPdeux, 1)}
	% 	% F2
	 	\FPeval\VQFdeuxPREDICTION{round(\VQm+1/2*\VQd, 1)}


% Please add the following required packages to your document preamble:
% \usepackage{booktabs}
\begin{table}[H]
\begin{center}
\begin{tabular}{@{}llll@{}}
\toprule
Population   & Effectif & Moyenne (cm) & Variance \\ \midrule
P1 "Capitol" & 20       & \VQPun         & \VQVPun    \\
P2 "Bristol" & 20       & \VQPdeux     & \VQVPdeux    \\
F1           & 20       & \VQFun         & \VQVFun    \\
F2           & 20       &              & \VQVPFdeux    \\
BC1          & 20       & \VQPBCun        & \VQVPBCun   \\
BC2          & 20       & \VQPBCdeux        & \VQVPBCdeux   \\ \bottomrule
\end{tabular}
\end{center}
\end{table}


		\begin{question}{q16}
			Exprimez la valeur moyenne attendue du caractère en fonction de m, [a] et [d] pour les populations P1, P2, F1 et F2 (argumentez votre réponse)
			\AMCOpen{contentcommand=macommandedeux, width=1\linewidth, lineheight=0.75cm, lines=20}{\wrongchoice[D]{d}\scoring{0}\wrongchoice[C]{c}\scoring{0.5}\wrongchoice[B]{b}\scoring{1}\correctchoice[A]{a}\scoring{1.5}}
		\end{question}

		\begin{questionmultx}{q17}
			Calculez la valeur de m pour la teneur en huile (arrondir si besoin):
			\def \decimales {1} % definir ici le nombre de chiffres apres la virgule
			\nchiffres{\ndigits}{\VQm}{\decimales} % renvoit dans variable \ndigits le nombre de chiffres necessaires pour coder le resultat (chiffres à gauche + a droite de la virgule)	
			\AMCnumericChoices{\VQm}{digits=\ndigits,decimals=\decimales,sign=false,
				borderwidth=1pt,backgroundcol=white,approx=1, scoreexact=3, scoreapprox=3}	
			%réponse attendue : \VQm
		\end{questionmultx}

		\begin{questionmultx}{q18}
			Calculez la valeur de [a] pour la teneur en huile (arrondir si besoin):	
			\def \decimales {1} % definir ici le nombre de chiffres apres la virgule
			\nchiffres{\ndigits}{\VQa}{\decimales} % renvoit dans variable \ndigits le nombre de chiffres necessaires pour coder le resultat (chiffres à gauche + a droite de la virgule)
			\AMCnumericChoices{\VQa}{digits=\ndigits,decimals=\decimales,sign=false,
			borderwidth=1pt,backgroundcol=white,approx=1, scoreexact=2, scoreapprox=2}	
			%réponse attendue : \VQa
		\end{questionmultx}

		\begin{questionmultx}{q19}
			Calculez la valeur de [d] pour la teneur en huile (arrondir si besoin):	
			\def \decimales {1} % definir ici le nombre de chiffres apres la virgule
			\nchiffres{\ndigits}{\VQd}{\decimales} % renvoit dans variable \ndigits le nombre de chiffres necessaires pour coder le resultat (chiffres à gauche + a droite de la virgule)
			\AMCnumericChoices{\VQd}{digits=\ndigits,decimals=\decimales,sign=false,
				borderwidth=1pt,backgroundcol=white,approx=1, scoreexact=3, scoreapprox=3}	
			%réponse attendue : \VQd
		\end{questionmultx}



				\begin{questionmult}{q20}\bareme{p=0}
		\AMCcompleteMulti % pour ajouter "Aucune de ces réponse n'est correcte"
			À partir des données fournies, indiquez quelles sont la/les composante(s) non nulle(s) de la variance de la population F1 :
			\begin{reponses}
				\bonne{Ve}\bareme{b=1} 
				\mauvaise{Va}\bareme{m=-1} 
				\mauvaise{Vg}\bareme{m=-1} 
				\mauvaise {Vd}\bareme{m=-1} 
				\mauvaise {Va+Vd}\bareme{m=-1}
			\end{reponses}
		\end{questionmult}


		\begin{questionmultx}{q21}
			À partir des données fournies, estimez la valeur de la variance environnementale dans la F2 (arrondir si besoin)?
		\def \decimales {2} % definir ici le nombre de chiffres apres la virgule
		\nchiffres{\ndigits}{\VQVe}{\decimales} % renvoit dans variable \ndigits le nombre de chiffres necessaires pour coder le resultat (chiffres à gauche + a droite de la virgule)
			\AMCnumericChoices{\VQVe}{digits=\ndigits,decimals=\decimales,sign=false,
				borderwidth=1pt,backgroundcol=white,approx=25, scoreexact=2, scoreapprox=1}	
			%réponse attendue : \VQVe
		\end{questionmultx}

	\begin{questionmultx}{q22}
			La valeur de la moyenne du caractère pour la F2 a été oubliée dans le tableau. Quelle est la valeur attendue ? 
		\def \decimales {1} % definir ici le nombre de chiffres apres la virgule
		\nchiffres{\ndigits}{\VQFdeuxPREDICTION}{\decimales} % renvoit dans variable \ndigits le nombre de chiffres necessaires pour coder le resultat (chiffres à gauche + a droite de la virgule)
		\AMCnumericChoices{\VQFdeuxPREDICTION}{digits=\ndigits,decimals=\decimales,sign=false,
			borderwidth=1pt,backgroundcol=white,approx=1, scoreexact=2, scoreapprox=2}	
		%réponse attendue : \VQFdeuxPREDICTION
		\end{questionmultx}


		\begin{question}{q23}
			Quelle(s) hypothèse(s) devez-vous poser pour effectuer ce dernier calcul ?
			\AMCOpen{contentcommand=macommandetrois, width=1\linewidth, lineheight=0.75cm, lines=20}{\wrongchoice[D]{d}\scoring{0}\wrongchoice[C]{c}\scoring{0.5}\wrongchoice[B]{b}\scoring{1}\correctchoice[A]{a}\scoring{1.5}}
		\end{question}
		%\clearpage\textsl{}


%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% ecrire dans un fichier texte pour vérifier les gammes de variation des paramètres
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

		%\immediate\write\mywrite{<khideux \VQkhideux>}
		\immediate\write\mywrite{<\VQEE;\VQEe;\VQee;\VQpestimefemelles;\VQTotal;\VQkhideux;\VQFestime;\VQFSestime;\VQm;\VQa;\VQd;\VQVe;\VQFdeuxPREDICTION>}



}%fin commande \exemplaire

}%fin commande \newcommand

\begin{document}
\FPseed=123456 % a masquer si on veut un jeu de données nouveau a chaque compilation. 

% pour ouvrir un fichier texte dans lequel on écrit les resultats attendus ou autre (permet de verifier que toutes les valeurs générées soient dans les gammes de variations souhaitées par exemple)
\newwrite\mywrite
\edef\mywritename{test.txt}
\immediate\openout\mywrite\mywritename
%en tete des colonnes
\immediate\write\mywrite{<EE;Ee;ee;pestimefemelles;Total;khideux;Festime;FSestime;m;a;d;Ve;FdeuxPREDICTION>}

\makeatletter
\ifAMC@catalog
  \def\Nom{Nom}
  \def\Prenom{Prenom}
  \def\ID{ID}
  \sujet
\else
  \csvreader[head to column names, separator=semicolon]{liste_etudiants_S2_TEST.csv}{}{\sujet}
  %\csvreader[head to column names, separator=semicolon]{liste_etudiants_S2.csv}{}{\sujet}
\fi
\makeatother


\end{document}

        
