<?xml version="1.0"?> 
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Strict//EN" "mathml.dtd"> 
<?xml-stylesheet type="text/css" href="these.css"?> 
<html  
xmlns="http://www.w3.org/1999/xhtml"  
><head><title>Tests d&#x2019;ind&#x00E9;pendance en analyse multivari&#x00E9;e et tests de normalit&#x00E9; dans les mod&#x00E8;les
ARMA</title> 
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" /> 
<meta name="generator" content="TeX4ht (http://www.cis.ohio-state.edu/~gurari/TeX4ht/mn.html)" /> 
<meta name="originator" content="TeX4ht (http://www.cis.ohio-state.edu/~gurari/TeX4ht/mn.html)" /> 
<!-- xhtml,mozilla --> 
<meta name="src" content="these.tex" /> 
<meta name="date" content="2003-03-06 15:34:00" /> 
<link rel="stylesheet" type="text/css" href="these.css" /> 
</head><body 
>
   <div align="center" class="maketitle">

<!--l. 925--><p class="indent">
</p>
<h2 class="titleHead">Tests d&#x2019;ind&#x00E9;pendance en analyse multivari&#x00E9;e et
tests de normalit&#x00E9; dans les mod&#x00E8;les ARMA</h2>
   <div align="center" 
class="centerline">                                par                                                   </div>
<div class="authors"><div class="author"> <span 
class="ecbx-1728">Pierre LAFAYE DE MICHEAUX</span></div></div>
   <div align="center" 
class="centerline">                Th&#x00E8;se de doctorat effectu&#x00E9;e en cotutelle                         </div>
   <div align="center" 
class="centerline">                                                   au                                                   </div>
<!--l. 925--><p class="noindent">D&#x00E9;partement de math&#x00E9;matiques et de statistique<br />
Facult&#x00E9; des arts et des sciences
</p>
<div align="center" 
class="centerline">                      <span 
class="ecbx-1440">Universit</span><span 
class="ecbx-1440">&#x00E9;</span> <span 
class="ecbx-1440">de Montr</span><span 
class="ecbx-1440">&#x00E9;</span><span 
class="ecbx-1440">al</span>                       </div>
<div align="center" 
class="centerline">                                      ET                                      </div>
<!--l. 925--><p class="noindent">D&#x00E9;partement des sciences math&#x00E9;matiques<br />
Formation Doctorale Biostatistique<br />
&#x00C9;cole Doctorale Information, Structures, Syst&#x00E8;mes
</p>
   <div align="center" 
class="centerline">                             <span 
class="ecbx-1440">Universit</span><span 
class="ecbx-1440">&#x00E9;</span> <span 
class="ecbx-1440">Montpellier II</span>                      </div>
<div align="center" 
class="centerline">               <span 
class="ecbx-1440">Sciences et Techniques du Languedoc</span>               </div>
<!--l. 925--><p class="noindent">Th&#x00E8;se pr&#x00E9;sent&#x00E9;e &#x00E0; la Facult&#x00E9; des &#x00E9;tudes sup&#x00E9;rieures de l&#x2019;Universit&#x00E9; de
Montr&#x00E9;al<br />
en vue de l&#x2019;obtention du grade de Philosophi&#x00E6; Doctor (Ph.D.) en statistique<br />
et &#x00E0;<br />
l&#x2019;Universit&#x00E9; Montpellier II en vue de l&#x2019;obtention du grade de Docteur<br />
d&#x2019;Universit&#x00E9; en Math&#x00E9;matiques appliqu&#x00E9;es et applications des
math&#x00E9;matiques

</p>
   <div align="center" 
class="centerline">                                          d&#x00E9;cembre 2002                                          </div>
   <div align="center" 
class="centerline"><!--l. 925--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"> <!--mstyle 
class="text"--><mtext >&copy;</mtext><!--/mstyle--></math> <span 
class="ecrm-1000">Pierre LAFAYE DE MICHEAUX,</span>&#x00A0;<span 
class="ecrm-1000">2002</span> </div>
<div align="center" 
class="centerline">                             <span 
class="ecrm-1000">www.theses.umontreal.ca</span>                             </div>

   <div align="center" 
class="centerline">                                  <span 
class="ecbx-1440">Universit</span><span 
class="ecbx-1440">&#x00E9;</span> <span 
class="ecbx-1440">de Montr</span><span 
class="ecbx-1440">&#x00E9;</span><span 
class="ecbx-1440">al</span>                       </div>
<div align="center" 
class="centerline">                   <span 
class="ecrm-1440">Facult</span><span 
class="ecrm-1440">&#x00E9;</span> <span 
class="ecrm-1440">des </span><span 
class="ecrm-1440">&#x00E9;</span><span 
class="ecrm-1440">tudes sup</span><span 
class="ecrm-1440">&#x00E9;</span><span 
class="ecrm-1440">rieures</span>                    </div>
<div align="center" 
class="centerline">                                      et                                      </div>
<div align="center" 
class="centerline">                     <span 
class="ecbx-1440">Universit</span><span 
class="ecbx-1440">&#x00E9;</span> <span 
class="ecbx-1440">Montpellier II</span>                      </div>
<div align="center" 
class="centerline">                   Laboratoire de Probabilit&#x00E9; et Statistiques                  </div>
   <div align="center" 
class="centerline">             Cette th&#x00E8;se de doctorat effectu&#x00E9;e en cotutelle et intitul&#x00E9;e             </div>

<h2 class="titleHead">Tests d&#x2019;ind&#x00E9;pendance en analyse multivari&#x00E9;e et
tests de normalit&#x00E9; dans les mod&#x00E8;les ARMA</h2>
   <div align="center" 
class="centerline">a &#x00E9;t&#x00E9; pr&#x00E9;sent&#x00E9;e et soutenue publiquement &#x00E0; l&#x2019;Universit&#x00E9; de Montr&#x00E9;al par </div>
<div class="authors"><div class="author"> <span 
class="ecbx-1728">Pierre LAFAYE DE MICHEAUX</span></div></div>
   <div align="center" 
class="centerline">    Elle a &#x00E9;t&#x00E9; &#x00E9;valu&#x00E9;e par un jury compos&#x00E9; des personnes suivantes :      </div>
   <div align="center" 
class="centerline">                                        <span 
class="ecrm-1095">Th</span><span 
class="ecrm-1095">&#x00E8;</span><span 
class="ecrm-1095">se accept</span><span 
class="ecrm-1095">&#x00E9;</span><span 
class="ecrm-1095">e le:</span>                                           </div>
<!--l. 925--><p class="noindent"><span 
class="ecsl-1095">16 d</span><span 
class="ecsl-1095">&#x00E9;</span><span 
class="ecsl-1095">cembre 2002</span>
</p>
   <div align="center" 
class="centerline">                                        _________________________________                                        </div>
<div class="submaketitle"></div>
   </div>
<!--l. 938--><p class="indent">   <!--l. 938--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"></math>
</p>
   <hr class="figure" /><div align="center" class="figure" 
><table class="figure"><tr class="figure"><td class="figure" 
>


<div class="center" 
>
  <img 
src="these0x.gif" alt="PIC" class="graphics" width="341.4386pt" height="426.8037pt"  /><!--tex4ht:graphics  
name="these0x.gif" src="blasonnb.ps"  
--><br />
L&#x2019;art de la connaissance et l&#x2019;exercice des vertus,<br />
&#x00E9;ternelle noblesse du chercheur.</div>

   </td></tr></table></div><hr class="endfigure" />




<!--l. 6--><p class="indent">   <!--l. 6--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"></math>
</p>
<div class="flushleft" 
>
 <span 
class="ecti-1200">&#x00C0;</span> <span 
class="ecti-1200">ma femme Dominique Delseny et notre fils Luka.</span><br />
</div>
<div class="flushleft" 
>
 <span 
class="ecti-1200">&#x00C0;</span> <span 
class="ecti-1200">mon meilleur ami Fabien Baudrier.</span></div>
<div class="flushleft" 
>
 <span 
class="ecti-1200">&#x00C0;</span> <span 
class="ecti-1200">mes parents.</span></div>







   <p 
class="leftline">                                                                                                  </p>
_______________________________________________________________________________
   <h2 class="likechapterHead"><a 
  name="x1-1000"></a>Remerciements</h2>
<!--l. 7--><p class="noindent">Les premi&#x00E8;res personnes que je tiens &#x00E0; honorer ici sont mes deux directeurs de
recherche Martin Bilodeau et Gilles Ducharme.
<br class="newline" />
</p><!--l. 11--><p class="indent">   Je consid&#x00E8;re Gilles Ducharme comme mon p&#x00E8;re spirituel en statistique<span class="frenchb-thinspace"> </span>; il m&#x2019;a
appris l&#x2019;essentiel de ce que j&#x2019;en sais. Depuis son arriv&#x00E9;e &#x00E0; Montpellier, p&#x00E9;riode
&#x00E0; laquelle j&#x2019;ai entam&#x00E9; mes &#x00E9;tudes dans ce domaine, j&#x2019;ai commenc&#x00E9; &#x00E0;
appr&#x00E9;cier son approche innovante de la statistique au travers de ses enseignements
beaucoup plus intuitifs que lourdement formels. Il m&#x2019;a ensuite initi&#x00E9; &#x00E0; la
recherche lors de mon ann&#x00E9;e pass&#x00E9;e en DEA. Apr&#x00E8;s avoir go&#x00FB;t&#x00E9; &#x00E0;
sa grande exp&#x00E9;rience, &#x00E0; l&#x2019;originalit&#x00E9; de ses sujets de recherche et &#x00E0; la
pertinence de son jugement pour en ma&#x00EE;triser les difficult&#x00E9;s techniques
menant &#x00E0; leur r&#x00E9;solution, j&#x2019;ai replong&#x00E9; avec plaisir pour quelques ann&#x00E9;es
suppl&#x00E9;mentaires<span class="frenchb-thinspace"> </span>! Il m&#x2019;a enseign&#x00E9; un m&#x00E9;tier passionnant. Je lui suis aussi
reconnaissant pour son soutien moral dans certaines p&#x00E9;riodes difficiles, pour les
contributions financi&#x00E8;res et mat&#x00E9;rielles apport&#x00E9;es et pour la chance qu&#x2019;il
m&#x2019;a donn&#x00E9;e de pouvoir travailler avec un chercheur de grande valeur &#x00E0;
Montr&#x00E9;al.
<br class="newline" />
</p><!--l. 27--><p class="indent">   Martin Bilodeau a pris le relais avec beaucoup d&#x2019;attention et de professionnalisme.
J&#x2019;ai appr&#x00E9;ci&#x00E9; sa constante fiabilit&#x00E9;, sa pr&#x00E9;cieuse disponibilit&#x00E9; et sa discr&#x00E9;tion.
Je lui suis &#x00E9;galement reconnaissant pour les connaissances scientifiques qu&#x2019;il m&#x2019;a
transmises et pour les ressources financi&#x00E8;res dont j&#x2019;ai b&#x00E9;n&#x00E9;fici&#x00E9;. A son contact
d&#x2019;une grande probit&#x00E9; intellectuelle, j&#x2019;ai pu appr&#x00E9;cier et m&#x2019;impr&#x00E9;gner de
son souci d&#x2019;efficacit&#x00E9; et de concision. Je veux lui t&#x00E9;moigner ici toute mon
estime.
<br class="newline" />
</p><!--l. 36--><p class="indent">   Je tiens &#x00E0; exprimer ma reconnaissance aux membres du jury qui ont accept&#x00E9; de
prendre du temps pour lire mon travail, pour leurs conseils judicieux et leurs
remarques pertinentes ainsi que pour s&#x2019;&#x00EA;tre d&#x00E9;plac&#x00E9;s pour assister &#x00E0; ma
soutenance, ce rite d&#x2019;acceptation dans une nouvelle communaut&#x00E9;.
<br class="newline" />
</p><!--l. 42--><p class="indent">   Merci aux chercheurs avec qui j&#x2019;ai pu avoir des discussions scientifiques
profitables tant &#x00E0; Montpellier (Beno&#x00EE;t Cadre, Michel Cuer, Pierre Jacob, Ir&#x00E8;ne
Larramendy-Valverde) qu&#x2019;&#x00E0; Montr&#x00E9;al (Jean-Francois Angers, Anne Bourlioux,
Richard Duncan, Marlene Frigon, Martin Goldstein, Michel Grundland, Anatole Joffe,
Christian L&#x00E9;ger, Jean-Marc Lina, Urs Maag, &#x00C9;ric Marchand, Fran&#x00E7;ois Perron, Roch

Roy), sans oublier ceux plus anonymes avec qui j&#x2019;ai &#x00E9;chang&#x00E9; des id&#x00E9;es sur
Internet.
<br class="newline" />
</p><!--l. 50--><p class="indent">   Il est clair aussi que le travail de recherche effectu&#x00E9; au cours d&#x2019;un doctorat doit
s&#x2019;appuyer sur des bases techniques solides. Les principaux acteurs de l&#x2019;excellente
formation en statistique que j&#x2019;ai suivie sont Martin Bilodeau, Yves Lepage et Fran&#x00E7;ois
Perron &#x00E0; Montr&#x00E9;al et Denis Allard, Alain Berlinet, Gilles Caraux, Jean-Pierre
Daures, Gilles Ducharme, Jean-Fran&#x00E7;ois Durand, Ali Gannoun, Pierre Jacob,
Jean-Dominique Lebreton, Pascal Monestiez, Robert Sabatier, Gilberte Vignau et
Jean-Pierre Vila &#x00E0; Montpellier.
<br class="newline" />
</p><!--l. 60--><p class="indent">   J&#x2019;ai b&#x00E9;n&#x00E9;fici&#x00E9; pendant ces &#x00AB; quatre &#x00BB; ann&#x00E9;es, dont trois consacr&#x00E9;es &#x00E0; la
recherche, d&#x2019;un pr&#x00E9;cieux soutien informatique de la part de Christopher Albert,
Nicolas Beauchemin, Miguel Chagnon, Baptiste Chapuisat, Brigitte Charnomordic,
Marc Fangeaud, Michel Lamoureux, Nathalie Malo, Pascal Neveu, Philippe Vismara
ainsi que de Leslie Lamport, Linus Torvalds et des milliers de b&#x00E9;n&#x00E9;voles oeuvrant &#x00E0;
la conception et au d&#x00E9;veloppement de Latex, Linux et autres logiciels libres
d&#x2019;excellence.
<br class="newline" />
</p><!--l. 67--><p class="indent">   Je veux &#x00E9;galement souligner l&#x2019;appui administratif de qualit&#x00E9; apport&#x00E9;
par Jacques B&#x00E9;lair, Robert Cl&#x00E9;roux, V&#x00E9;ronique Hussin, Sabin Lessard,
Th&#x00E9;r&#x00E8;se Ouellet, Dani&#x00E8;le Proulx, Jacqueline Reggiori-Lamoureux, Yvan
Saint-Aubin, Dani&#x00E8;le Tessier et Janet Zaki &#x00E0; l&#x2019;Universit&#x00E9; de Montr&#x00E9;al et par
Pierrette Arnaud, Michel Averous, Yves Escoufier, Daniel Guin, Bernadette
Lacan, Marie-Odile Morda, Florence Picone et V&#x00E9;ronique Sals-Vettorel &#x00E0;
Montpellier.
<br class="newline" />
</p><!--l. 76--><p class="indent">   Tout ce travail de recherche aurait &#x00E9;t&#x00E9; certainement plus long, p&#x00E9;nible et de
moins bonne qualit&#x00E9;, si je n&#x2019;avais pas b&#x00E9;n&#x00E9;fici&#x00E9; de plusieurs financements
octroy&#x00E9;s g&#x00E9;n&#x00E9;reusement par le D&#x00E9;partement de math&#x00E9;matiques et de statistique
et la Facult&#x00E9; des &#x00C9;tudes Sup&#x00E9;rieures de l&#x2019;Universit&#x00E9; de Montr&#x00E9;al, par
l&#x2019;Universit&#x00E9; de Montr&#x00E9;al, par l&#x2019;Institut des Sciences Math&#x00E9;matiques de Montr&#x00E9;al
ainsi que par mes deux directeurs de recherche Martin Bilodeau et Gilles Ducharme.
Merci au Gouvernement du Canada et &#x00E0; celui du Qu&#x00E9;bec pour m&#x2019;avoir donn&#x00E9; ma
chance.
<br class="newline" />
</p><!--l. 85--><p class="indent">   Toute ma gratitude aux personnes rencontr&#x00E9;es &#x00E0; l&#x2019;Universit&#x00E9; Montpellier II
et dont une bonne partie m&#x2019;ont offert leur amiti&#x00E9;&#x00A0;: G&#x00E9;rard Biau pour ses
pr&#x00E9;cieux conseils et son amiti&#x00E9; depuis l&#x2019;ann&#x00E9;e de DEA, Sandie Ferrigno
pour son soutien au site du DEA, Beno&#x00EE;t Frichot pour les int&#x00E9;ressantes
discussions et son soutien moral, Olivier Gimenez (il y aurait trop &#x00E0; dire ici),
Mariem Mint-el-Mouvid pour les bons moments pass&#x00E9;s dans notre bureau 14
malgr&#x00E9; nos difficult&#x00E9;s financi&#x00E8;res, Nicolas Molinari pour ses pr&#x00E9;cieux

conseils et les bons moments pass&#x00E9; &#x00E0; Sauve. Une pens&#x00E9;e &#x00E0; Omar Anza,
&#x00C9;lodie Brunel, Andr&#x00E9; Diatta, B&#x00E9;n&#x00E9;dicte Fontez, Laurent Gardes et Hassan
Mouhanad. Toutes ces personnes ont contribu&#x00E9;, &#x00E0; leur degr&#x00E9;, &#x00E0; animer l&#x2019;espace
de cr&#x00E9;ation du b&#x00E2;timent 9. Merci aussi &#x00E0; Alain Delcamp, Ali Gannoun
et J&#x00E9;rome Saracco pour les bons moments pass&#x00E9;s au 3&#x00E8;me &#x00E9;tage et &#x00E0;
St&#x00E9;phane Girard et C&#x00E9;cile Amblard pour leur accueil tr&#x00E8;s chaleureux &#x00E0;
Montr&#x00E9;al.
<br class="newline" />
</p><!--l. 97--><p class="indent">   Enfin merci &#x00E0; tous mes nouveaux amis rencontr&#x00E9;s &#x00E0; Montr&#x00E9;al&#x00A0;: Yves Atchade
(B&#x00E9;nin), Chafik Bouhaddioui (Maroc), Alain Desgagn&#x00E9; (Qu&#x00E9;bec), Alexandre
Leblanc (Qu&#x00E9;bec), Ghislain Rocheleau (Qu&#x00E9;bec), Ndeye Rokhaya Gueye
(S&#x00E9;n&#x00E9;gal) qui ont fait une partie de leur doctorat en m&#x00EA;me temps que moi<span class="frenchb-thinspace"> </span>; et aussi
Christopher Albert (USA) et Carole (France), Marie-Soleil Beaudoin (Qu&#x00E9;bec),
Pascal Bouchard (Qu&#x00E9;bec), Jean-Francois Boudreau (Qu&#x00E9;bec), Pascal Croteau
(Qu&#x00E9;bec), Alexandre Cusson (Qu&#x00E9;bec), Alina Dyachenko (Russie), Alexis
Gerbeau (Qu&#x00E9;bec), Mohammed Haddou (Alg&#x00E9;rie), Hassiba et Djamal Hellal
(Alg&#x00E9;rie), Abdelaziz Khatouri (Maroc), Vincent Lemaire (France), Nathalie
Malo (Qu&#x00E9;bec), Hac&#x00E8;ne Nedjar (Alg&#x00E9;rie), Philippe Paradis (Qu&#x00E9;bec),
Fritz Pierre (Haiti), Alice Savu (Roumanie), Jib et Sarah. Vous avez facilit&#x00E9;
mon int&#x00E9;gration. J&#x2019;esp&#x00E8;re garder des liens solides avec la plupart d&#x2019;entre
vous.







</p>
   <p 
class="leftline">                                                                                                         </p>
_______________________________________________________________________________
   <h2 class="likechapterHead"><a 
  name="x1-2000"></a>Table des mati&#x00E8;res</h2> <div class="tableofcontents"><span class="likechapterToc">&#x00A0;&#x00A0;<a 
href="#x1-1000" name="QQ2-1-1">Remerciements</a></span><br /><span class="likechapterToc">&#x00A0;&#x00A0;<a 
href="#x1-2000" name="QQ2-1-2">Table des mati&#x00E8;res</a></span><br /><span class="likechapterToc">&#x00A0;&#x00A0;<a 
href="#x1-3000" name="QQ2-1-3">Sigles et
abr&#x00E9;viations</a></span><br /><span class="chapterToc">Chapitre&#x00A0;1.&#x00A0;&#x00A0;<a 
href="#x1-40001" name="QQ2-1-4">Introduction</a></span><br /><span class="sectionToc"><a 
href="#x1-50001" name="QQ2-1-6">Bibliographie</a></span><br /><span class="chapterToc">Chapitre&#x00A0;2.&#x00A0;&#x00A0;<a 
href="#x1-60002" name="QQ2-1-7">Goodness-of-fit
tests of normality for the innovations in ARMA models</a></span><br /><span class="sectionToc">&#x00A0;1.&#x00A0;&#x00A0;<a 
href="#x1-70001" name="QQ2-1-8">Introduction</a></span><br /><span class="sectionToc">&#x00A0;2.&#x00A0;&#x00A0;<a 
href="#x1-80002" name="QQ2-1-9">Smooth
test of normality in the ARMA context</a></span><br /><span class="sectionToc">&#x00A0;3.&#x00A0;&#x00A0;<a 
href="#x1-90003" name="QQ2-1-10">Choosing the order
<!--l. 11--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mi 
>K</mi></math> of the
alternative</a></span><br /><span class="sectionToc">&#x00A0;4.&#x00A0;&#x00A0;<a 
href="#x1-100004" name="QQ2-1-12">Simulation Results</a></span><br /><span class="subsectionToc">&#x00A0;&#x00A0;&#x00A0;4.1.&#x00A0;&#x00A0;<a 
href="#x1-110004.1" name="QQ2-1-13">Levels</a></span><br /><span class="subsectionToc">&#x00A0;&#x00A0;&#x00A0;4.2.&#x00A0;&#x00A0;<a 
href="#x1-120004.2" name="QQ2-1-16">Power</a></span><br /><span class="sectionToc">&#x00A0;5.&#x00A0;&#x00A0;<a 
href="#x1-130005" name="QQ2-1-18">An example</a></span><br /><span class="sectionToc"><a 
href="#x1-140005" name="QQ2-1-19">Appendix
A</a></span><br /><span class="sectionToc"><a 
href="#x1-150005" name="QQ2-1-20">Appendix B</a></span><br /><span class="sectionToc"><a 
href="#x1-160005" name="QQ2-1-21">Appendix C</a></span><br /><span class="sectionToc"><a 
href="#x1-170005" name="QQ2-1-22">Appendix D</a></span><br /><span class="sectionToc"><a 
href="#x1-180005" name="QQ2-1-23">Bibliographie</a></span><br /><span class="chapterToc">Chapitre&#x00A0;3.&#x00A0;&#x00A0;<a 
href="#x1-190003" name="QQ2-1-24">A
multivariate empirical characteristic function test of
<br class="newline" />independence with normal marginals</a></span><br /><span class="sectionToc">&#x00A0;1.&#x00A0;&#x00A0;<a 
href="#x1-200001" name="QQ2-1-25">Introduction</a></span><br /><span class="sectionToc">&#x00A0;2.&#x00A0;&#x00A0;<a 
href="#x1-210002" name="QQ2-1-26">Testing independence:
the non-serial situation</a></span><br /><span class="subsectionToc">&#x00A0;&#x00A0;&#x00A0;2.1.&#x00A0;&#x00A0;<a 
href="#x1-220002.1" name="QQ2-1-27">The case of known parameters</a></span><br /><span class="subsectionToc">&#x00A0;&#x00A0;&#x00A0;2.2.&#x00A0;&#x00A0;<a 
href="#x1-230002.2" name="QQ2-1-28">The case of
unknown parameters</a></span><br /><span class="subsectionToc">&#x00A0;&#x00A0;&#x00A0;2.3.&#x00A0;&#x00A0;<a 
href="#x1-240002.3" name="QQ2-1-29">Relation to V-statistics</a></span><br /><span class="subsectionToc">&#x00A0;&#x00A0;&#x00A0;2.4.&#x00A0;&#x00A0;<a 
href="#x1-250002.4" name="QQ2-1-30">Consistency</a></span><br /><span class="sectionToc">&#x00A0;3.&#x00A0;&#x00A0;<a 
href="#x1-260003" name="QQ2-1-31">Testing
independence: the serial situation</a></span><br /><span class="subsectionToc">&#x00A0;&#x00A0;&#x00A0;3.1.&#x00A0;&#x00A0;<a 
href="#x1-270003.1" name="QQ2-1-32">The case of known parameters</a></span><br /><span class="subsectionToc">&#x00A0;&#x00A0;&#x00A0;3.2.&#x00A0;&#x00A0;<a 
href="#x1-280003.2" name="QQ2-1-33">The
case of unknown parameters</a></span><br /><span class="sectionToc">&#x00A0;4.&#x00A0;&#x00A0;<a 
href="#x1-290004" name="QQ2-1-34">Properties of the limiting processes</a></span><br /><span class="sectionToc">&#x00A0;5.&#x00A0;&#x00A0;<a 
href="#x1-300005" name="QQ2-1-39">One-way
MANOVA model with random effects</a></span><br /><span class="sectionToc">&#x00A0;6.&#x00A0;&#x00A0;<a 
href="#x1-310006" name="QQ2-1-42">Proofs</a></span><br /><span class="subsectionToc">&#x00A0;&#x00A0;&#x00A0;6.1.&#x00A0;&#x00A0;<a 
href="#x1-320006.1" name="QQ2-1-43">Proof of Theorem
</a></span><br /><span class="subsectionToc">&#x00A0;&#x00A0;&#x00A0;6.2.&#x00A0;&#x00A0;<a 
href="#x1-330006.2" name="QQ2-1-44">Proof of Theorem </a></span><br /><span class="subsectionToc">&#x00A0;&#x00A0;&#x00A0;6.3.&#x00A0;&#x00A0;<a 
href="#x1-340006.3" name="QQ2-1-45">Proof of Theorem </a></span><br /><span class="subsectionToc">&#x00A0;&#x00A0;&#x00A0;6.4.&#x00A0;&#x00A0;<a 
href="#x1-350006.4" name="QQ2-1-46">Proof of Theorem
</a></span><br /><span class="subsectionToc">&#x00A0;&#x00A0;&#x00A0;6.5.&#x00A0;&#x00A0;<a 
href="#x1-360006.5" name="QQ2-1-47">Proof of Theorem </a></span><br /><span class="subsectionToc">&#x00A0;&#x00A0;&#x00A0;6.6.&#x00A0;&#x00A0;<a 
href="#x1-370006.6" name="QQ2-1-48">Proof of Theorem </a></span><br /><span class="subsectionToc">&#x00A0;&#x00A0;&#x00A0;6.7.&#x00A0;&#x00A0;<a 
href="#x1-380006.7" name="QQ2-1-49">Proof of Theorem
</a></span><br /><span class="sectionToc"><a 
href="#x1-390006.7" name="QQ2-1-50">Acknowledgements</a></span><br /><span class="sectionToc"><a 
href="#x1-400006.7" name="QQ2-1-51">Bibliographie</a></span><br /><span class="chapterToc">Chapitre&#x00A0;4.&#x00A0;&#x00A0;<a 
href="#x1-410004" name="QQ2-1-52">Conclusion</a></span><br /><span class="sectionToc"><a 
href="#x1-420004" name="QQ2-1-53">Bibliographie</a></span><br /><span class="appendixToc">Annexe&#x00A0;A.&#x00A0;&#x00A0;<a 
href="#x1-43000A" name="QQ2-1-54">Les
Programmes Fortran 77 du premier article</a></span><br /><span class="sectionToc">&#x00A0;A.1.&#x00A0;&#x00A0;<a 
href="#x1-44000A.1" name="QQ2-1-55">Le script <span 
class="ecti-1200">compile</span></a></span><br /><span class="sectionToc">&#x00A0;A.2.&#x00A0;&#x00A0;<a 
href="#x1-45000A.2" name="QQ2-1-56">Liste
des diff&#x00E9;rents programmes</a></span><br /><span class="sectionToc">&#x00A0;A.3.&#x00A0;&#x00A0;<a 
href="#x1-46000A.3" name="QQ2-1-57">Moyennes et variances empiriques
des diff&#x00E9;rentes lois</a></span><br /><span class="sectionToc">&#x00A0;A.4.&#x00A0;&#x00A0;<a 
href="#x1-47000A.4" name="QQ2-1-58">Le programme MAIN</a></span><br /><span class="sectionToc">&#x00A0;A.5.&#x00A0;&#x00A0;<a 
href="#x1-48000A.5" name="QQ2-1-59">Les programmes
big_prog_ARMApq</a></span><br /><span class="sectionToc">&#x00A0;A.6.&#x00A0;&#x00A0;<a 
href="#x1-49000A.6" name="QQ2-1-60">Les programmes creerdat_ARMApq</a></span><br /><span class="sectionToc">&#x00A0;A.7.&#x00A0;&#x00A0;<a 
href="#x1-50000A.7" name="QQ2-1-61">Le
programme calcstat.f</a></span><br /><span class="sectionToc">&#x00A0;A.8.&#x00A0;&#x00A0;<a 
href="#x1-51000A.8" name="QQ2-1-62">Les programmes simulARMApq.f</a></span><br /><span class="sectionToc">&#x00A0;A.9.&#x00A0;&#x00A0;<a 
href="#x1-52000A.9" name="QQ2-1-63">Les
programmes pour la &#x201C;random shock method&#x201D; de Burn</a></span><br /><span class="sectionToc">&#x00A0;A.10.&#x00A0;&#x00A0;<a 
href="#x1-53000A.10" name="QQ2-1-64">Les programmes
pour la simulation de diff&#x00E9;rentes lois</a></span><br /><span class="sectionToc">&#x00A0;A.11.&#x00A0;&#x00A0;<a 
href="#x1-54000A.11" name="QQ2-1-65">Les programmes pour les
diff&#x00E9;rents polyn&#x00F4;mes de Legendre</a></span><br /><span class="sectionToc">&#x00A0;A.12.&#x00A0;&#x00A0;<a 
href="#x1-55000A.12" name="QQ2-1-66">Les autres petits programmes
utiles</a></span><br /><span class="sectionToc">&#x00A0;A.13.&#x00A0;&#x00A0;<a 
href="#x1-56000A.13" name="QQ2-1-67">Le programme du calcul des quantiles du test de Brockwell et
Davis</a></span><br /><span class="appendixToc">Annexe&#x00A0;B.&#x00A0;&#x00A0;<a 
href="#x1-57000B" name="QQ2-1-68">Les Programmes C++ du deuxi&#x00E8;me article</a></span><br /><span class="sectionToc">&#x00A0;B.1.&#x00A0;&#x00A0;<a 
href="#x1-58000B.1" name="QQ2-1-69">Quantiles
th&#x00E9;oriques</a></span><br /><span class="sectionToc">&#x00A0;B.2.&#x00A0;&#x00A0;<a 
href="#x1-59000B.2" name="QQ2-1-70">Quantiles empiriques</a></span><br /><span class="sectionToc">&#x00A0;B.3.&#x00A0;&#x00A0;<a 
href="#x1-60000B.3" name="QQ2-1-71">Puissance compar&#x00E9;e avec
celle du test de Wilks</a></span><br /><span class="likechapterToc">&#x00A0;&#x00A0;<a 
href="#x1-61000B.3" name="QQ2-1-72">Curriculum Vitae</a></span><br /><span class="likechapterToc">&#x00A0;&#x00A0;<a 
href="#x1-62000B.3" name="QQ2-1-73">Documents sp&#x00E9;ciaux</a></span><br />
   </div>


<!--l. 1055--><p class="indent">   Liste des tableaux


</p><!--l. 1071--><p class="indent">   Liste des figures






</p>
   <p 
class="leftline">                                                                                                         </p>
_______________________________________________________________________________
   <h2 class="likechapterHead"><a 
  name="x1-3000"></a>Sigles et abr&#x00E9;viations</h2>
<div class="flushleft" 
>
<!--l. 30--><p class="noindent"><!--l. 30--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mover 
class="stackrel"><mrow 
><mo 
class="MathClass-rel">&#x2192;</mo></mrow><mrow 
><mo 
class="MathClass-op">L</mo></mrow></mover></math>&#x00A0;:
Convergence en loi.<br />
<!--l. 31--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mover 
class="stackrel"><mrow 
><mo 
class="MathClass-rel">&#x2192;</mo></mrow><mrow 
><mo 
class="MathClass-op">fd</mo></mrow></mover></math>&#x00A0;:
Convergence des lois de dimension finie.<br />
<!--l. 32--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mo 
class="MathClass-rel">&#x21D2;</mo></math>&#x00A0;:
Convergence faible.<br />
ARMA&#x00A0;: Auto-Regressive Moving Average.<br />
<span 
class="ecti-1200">i.i.d.</span>&#x00A0;: Ind&#x00E9;pendant(e)s et identiquement distribu&#x00E9;(e)s.<br />
<!--l. 35--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mo 
class="MathClass-rel">&#x2261;</mo></math>&#x00A0;:
signe d&#x2019;&#x00E9;galit&#x00E9; fonctionnelle.<br />
<!--l. 36--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mrow><mo 
class="MathClass-open">&#x2329;</mo><mrow><mo 
class="MathClass-punc">&#x22C5;</mo><mo 
class="MathClass-punc">,</mo><mo 
class="MathClass-punc">&#x22C5;</mo></mrow><mo 
class="MathClass-close">&#x232A;</mo></mrow></math>&#x00A0;:
Produit scalaire.<br />
<!--l. 37--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mi 
>&#x03A9;</mi></math>&#x00A0;:
Espace des &#x00E9;venements.<br />
<!--l. 38--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><!--mstyle 
class="text"--><mtext >P</mtext><!--/mstyle--></math>&#x00A0;:
Mesure de probabilit&#x00E9; sur l&#x2019;espace des &#x00E9;venements.<br />
<!--l. 39--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><msub><mrow 
><mi 
>&#x03C0;</mi></mrow><mrow 
><msub><mrow 
><mi 
>t</mi></mrow><mrow 
><mn>1</mn></mrow></msub 
><mo 
class="MathClass-punc">,</mo><mo 
class="MathClass-op">&#x2026;</mo><mo 
class="MathClass-punc">,</mo><msub><mrow 
><mi 
>t</mi></mrow><mrow 
><mi 
>k</mi></mrow></msub 
></mrow></msub 
></math>&#x00A0;:
Projection.<br />
<!--l. 40--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mi 
>C</mi> <mo 
class="MathClass-rel">&#x2261;</mo> <mi 
>C</mi><mrow><mo 
class="MathClass-open">(</mo><mrow><msup><mrow 
><mi mathvariant="double-struck">&#x211D;</mi></mrow><mrow 
><mi 
>p</mi></mrow></msup 
><mo 
class="MathClass-punc">,</mo> <mi mathvariant="double-struck">&#x2102;</mi></mrow><mo 
class="MathClass-close">)</mo></mrow></math>&#x00A0;:
Espace des fonctions continues de
<!--l. 41--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><msup><mrow 
><mi mathvariant="double-struck">&#x211D;</mi></mrow><mrow 
><mi 
>p</mi></mrow></msup 
></math>
dans
<!--l. 41--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mi mathvariant="double-struck">&#x2102;</mi></math>.<br />
<!--l. 42--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mi 
>&#x03C1;</mi></math>&#x00A0;:
M&#x00E9;trique sur
<!--l. 42--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mi 
>C</mi><mrow><mo 
class="MathClass-open">(</mo><mrow><msup><mrow 
><mi mathvariant="double-struck">&#x211D;</mi></mrow><mrow 
><mi 
>p</mi></mrow></msup 
><mo 
class="MathClass-punc">,</mo> <mi mathvariant="double-struck">&#x2102;</mi></mrow><mo 
class="MathClass-close">)</mo></mrow></math>.<br />
<span 
class="ecti-1200">m.l.e.</span>&#x00A0;: Maximum likelihood estimator.<br />
<!--l. 44--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><!--mstyle 
class="text"--><mtext >T</mtext><!--/mstyle--></math>&#x00A0;:
Transpos&#x00E9;e d&#x2019;un vecteur.<br />
MANOVA&#x00A0;: Multivariate analysis of variance.<br />
EDF&#x00A0;: Empirical distribution function.<br />
CF&#x00A0;: Cubature formula.</p></div>








   <h2 class="chapterHead"><span class="titlemark">Chapitre&#x00A0;1</span><br /><a 
  name="x1-40001"></a>Introduction</h2>
<div class="center" 
>
 Une proc&#x00E9;dure consistant &#x00E0; d&#x00E9;terminer si un mod&#x00E8;le<br />
probabiliste particulier est appropri&#x00E9; pour<br />
un ph&#x00E9;nom&#x00E8;ne al&#x00E9;atoire donn&#x00E9;...<br />
</div>
   Depuis le tout d&#x00E9;but de la statistique, nombre de statisticiens ont commenc&#x00E9; leur
analyse en proposant une distribution pour leurs observations et ont ensuite tent&#x00E9; de
v&#x00E9;rifier si leur distribution &#x00E9;tait la bonne. Ainsi, au fil des ans, un grand nombre de
telles proc&#x00E9;dures sont apparues commen&#x00E7;ant alors &#x00E0; constituer un vaste
champ d&#x2019;&#x00E9;tudes portant le nom de &#x00AB; tests d&#x2019;ajustement &#x00BB;. Il est important de
noter que, si l&#x2019;on ne disposait pas des outils que sont les tests d&#x2019;ajustement, il
faudrait se baser sur des crit&#x00E8;res subjectifs pour valider la qualit&#x00E9; d&#x2019;un
mod&#x00E8;le. Malheureusement, comme l&#x2019;a si bien soulign&#x00E9; Fisher (1925)(<a 
  name="dx1-4001"></a><a 
href="#X1925Fisheintro">5</a>)
<div class="center" 
>
 <span 
class="ecti-1095">No eye observation of such diagrams, however experienced, is really capable of</span><br />
<span 
class="ecti-1095">discriminating whether or not the observations differ from the expectation</span><br />
<span 
class="ecti-1095">by more than we would expect from the circumstances of random sampling. </span></div>
   L&#x2019;apport des tests d&#x2019;ajustement est triple. Il permet d&#x2019;obtenir une description
compacte des donn&#x00E9;es en leur attribuant une loi de probabilit&#x00E9;. Ensuite, certaines
techniques param&#x00E9;triques puissantes sont valides uniquement sous l&#x2019;hypoth&#x00E8;se de
normalit&#x00E9;. Enfin, cela permet de mieux comprendre le m&#x00E9;canisme ayant g&#x00E9;n&#x00E9;r&#x00E9;
les donn&#x00E9;es, en obtenant de l&#x2019;information sur les raisons ayant conduit &#x00E0; un rejet de
l&#x2019;hypoth&#x00E8;se de travail.
<br class="newline" />
<!--l. 57--><p class="indent">   Math&#x00E9;matiquement, le probl&#x00E8;me se pr&#x00E9;sente de la fa&#x00E7;on suivante. Soit
<!--l. 58--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mi 
>Y</mi> </math>
un &#x00E9;l&#x00E9;ment al&#x00E9;atoire dont la fonction de r&#x00E9;partition
<!--l. 59--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mi 
>F</mi></math> est
absolument continue par rapport &#x00E0; la mesure de Lebesgue. On d&#x00E9;sire tester
l&#x2019;hypoth&#x00E8;se
</p>

   <center class="math-display"><!--l. 61--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="display"><mrow 
>
         <msub><mrow 
><mi 
>H</mi></mrow><mrow 
><mn>0</mn></mrow></msub 
> <mo 
class="MathClass-punc">:</mo> <mi 
>F</mi><mrow><mo 
class="MathClass-open">(</mo><mrow><mi 
>x</mi></mrow><mo 
class="MathClass-close">)</mo></mrow> <mo 
class="MathClass-rel">&#x2208;</mo><mrow><mo 
class="MathClass-open">{</mo><mrow><msub><mrow 
><mi 
>F</mi></mrow><mrow 
><mn>0</mn></mrow></msub 
><mrow><mo 
class="MathClass-open">(</mo><mrow><mi 
>x</mi><mo 
class="MathClass-punc">,</mo><mi 
>&#x03B8;</mi></mrow><mo 
class="MathClass-close">)</mo></mrow><mo 
class="MathClass-punc">,</mo><mi 
>&#x03B8;</mi> <mo 
class="MathClass-rel">&#x2208;</mo> <mi 
>&#x0398;</mi></mrow><mo 
class="MathClass-close">}</mo></mrow><!--mstyle 
class="text"--><mtext >&#x000A0;versus&#x000A0;</mtext><!--/mstyle--><msub><mrow 
><mi 
>H</mi></mrow><mrow 
><mn>1</mn></mrow></msub 
> <mo 
class="MathClass-punc">:</mo> <mi 
>F</mi><mrow><mo 
class="MathClass-open">(</mo><mrow><mi 
>x</mi></mrow><mo 
class="MathClass-close">)</mo></mrow><mo 
class="MathClass-rel">&#x2209;</mo><mrow><mo 
class="MathClass-open">{</mo><mrow><msub><mrow 
><mi 
>F</mi></mrow><mrow 
><mn>0</mn></mrow></msub 
><mrow><mo 
class="MathClass-open">(</mo><mrow><mi 
>x</mi><mo 
class="MathClass-punc">,</mo><mi 
>&#x03B8;</mi></mrow><mo 
class="MathClass-close">)</mo></mrow><mo 
class="MathClass-punc">,</mo><mi 
>&#x03B8;</mi> <mo 
class="MathClass-rel">&#x2208;</mo> <mi 
>&#x0398;</mi></mrow><mo 
class="MathClass-close">}</mo></mrow><mo 
class="MathClass-punc">,</mo>
</mrow></math></center>
<!--l. 66--><p class="nopar">
o&#x00F9; <!--l. 67--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mi 
>&#x0398;</mi></math>
est un certain espace param&#x00E9;trique. Pour ce probl&#x00E8;me, on peut distinguer deux
grandes classes de tests. Les tests &#x00AB; omnibus &#x00BB; concernent les situations o&#x00F9;
l&#x2019;on n&#x2019;a <span 
class="ecti-1200">a priori </span>aucune indication sur la fa&#x00E7;on dont la distribution r&#x00E9;elle
<!--l. 71--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mi 
>F</mi></math>
pourrait s&#x2019;&#x00E9;carter de l&#x2019;hypoth&#x00E8;se nulle. Ils sont efficaces contre des alternatives non
sp&#x00E9;cifi&#x00E9;es et sont g&#x00E9;n&#x00E9;ralement bas&#x00E9;s sur la fonction de r&#x00E9;partition
exp&#x00E9;rimentale ou sur la fonction caract&#x00E9;ristique exp&#x00E9;rimentale. On
peut citer par exemple les tests de Kolmogorov, d&#x2019;Anderson-Darling ou de
Cram&#x00E9;r-von Mises. Les tests &#x00AB; directionnels &#x00BB; quant &#x00E0; eux permettent de
prendre en compte certaines informations sur les &#x00E9;carts les plus plausibles &#x00E0;
l&#x2019;hypoth&#x00E8;se nulle. Ils sont construits de fa&#x00E7;on &#x00E0; d&#x00E9;tecter avec plus de
puissance certains types d&#x2019;orientation que pourrait prendre la distribution de
<!--l. 79--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mi 
>Y</mi> </math>. Au
cours de la premi&#x00E8;re partie de la recherche envisag&#x00E9;e, on s&#x2019;est int&#x00E9;ress&#x00E9; &#x00E0; la
seconde classe en adaptant la th&#x00E9;orie des tests lisses, introduite par Neyman
(1937)(<a 
  name="dx1-4002"></a><a 
href="#X1937Neyma149intro">12</a>), au contexte particulier de donn&#x00E9;es d&#x00E9;pendantes, issues d&#x2019;une loi non
enti&#x00E8;rement sp&#x00E9;cifi&#x00E9;e.
<br class="newline" />
</p><!--l. 85--><p class="indent">   En effet, une autre branche importante et originale de la statistique concerne
l&#x2019;analyse des s&#x00E9;ries chronologiques. Sa caract&#x00E9;ristique essentielle r&#x00E9;side en une
d&#x00E9;pendance des ph&#x00E9;nom&#x00E8;nes &#x00E9;tudi&#x00E9;s vis-&#x00E0;-vis du temps, concept essentiel tant
au niveau scientifique que philosophique. Il est de fait peu de disciplines qui
ne soient confront&#x00E9;es &#x00E0; l&#x2019;&#x00E9;tude de variables &#x00E9;voluant dans le temps et
qu&#x2019;on d&#x00E9;sire d&#x00E9;crire, expliquer, contr&#x00F4;ler ou pr&#x00E9;voir. Cette discipline
puise ses origines dans le Moyen &#x00C2;ge comme en t&#x00E9;moigne ce diagramme
temporel (repr&#x00E9;sentant l&#x2019;inclinaison des orbites de plan&#x00E8;tes en fonction
du temps) consid&#x00E9;r&#x00E9; comme l&#x2019;un des plus anciens du monde occidental.
</p><hr class="figure" /><div align="center" class="figure" 
><table class="figure"><tr class="figure"><td class="figure" 
>

<a 
  name="x1-40031"></a>

<div class="center" 
>
 <img 
src="these1x.gif" alt="PIC" class="graphics" width="315.1775pt" height="178.6675pt"  /><!--tex4ht:graphics  
name="these1x.gif" src="old_graph.eps"  
-->
<br /> <div align="center" class="caption"><table class="caption" 
><tr valign="baseline" class="caption"><td class="id"><span 
class="eccc-1200">F<small 
class="small-caps">I</small><small 
class="small-caps">G</small>.</span>&#x00A0;1.1: </td><td  
class="content">1.   10th Century time line Funkhauser (1936), pp 260-262(<a 
  name="dx1-4004"></a><a 
href="#X1936Funkhintro">6</a>)</td></tr></table></div><!--tex4ht:label?: x1-40031 -->
</div>

   </td></tr></table></div><hr class="endfigure" />
<!--l. 104--><p class="indent">   Une avanc&#x00E9;e importante dans l&#x2019;&#x00E9;tude des s&#x00E9;ries temporelles a &#x00E9;t&#x00E9; de supposer
que la s&#x00E9;rie chronologique observ&#x00E9;e est engendr&#x00E9;e par un processus stochastique
<!--l. 106--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mrow><mo 
class="MathClass-open">{</mo><mrow><msub><mrow 
><mi 
>Y</mi> </mrow><mrow 
><mi 
>t</mi></mrow></msub 
><mo 
class="MathClass-punc">,</mo><mi 
>t</mi> <mo 
class="MathClass-rel">&#x2208;</mo> <mi mathvariant="double-struck">&#x2124;</mi></mrow><mo 
class="MathClass-close">}</mo></mrow></math>. Une
condition souvent impos&#x00E9;e sur ce processus g&#x00E9;n&#x00E9;rateur est qu&#x2019;il soit stationnaire du
second ordre. Un processus digne d&#x2019;int&#x00E9;r&#x00EA;t satisfaisant &#x00E0; ces conditions est le
processus autor&#x00E9;gressif &#x00E0; moyenne mobile (ARMA). Ce processus est tr&#x00E8;s utilis&#x00E9;
du fait de sa simplicit&#x00E9;. Son introduction n&#x00E9;cessite quelques d&#x00E9;finitions
pr&#x00E9;alables.
</p>
   <div class="newtheorem">
<!--l. 114--><p class="noindent"><span class="head">
<a 
  name="x1-4005r1"></a>
<span 
class="ecbx-1200">D</span><span 
class="ecbx-1200">&#x00E9;</span><span 
class="ecbx-1200">finition 1.</span></span>
   <span 
class="ecti-1200">Stationnarit</span><span 
class="ecti-1200">&#x00E9;</span> <span 
class="ecti-1200">faible</span>
<br class="newline" /><span 
class="ecti-1200">Un processus </span><!--l. 116--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mrow><mo 
class="MathClass-open">{</mo><mrow><msub><mrow 
><mi 
>Y</mi> </mrow><mrow 
><mi 
>t</mi></mrow></msub 
><mo 
class="MathClass-punc">;</mo> <mi 
>t</mi> <mo 
class="MathClass-rel">&#x2208;</mo> <mi mathvariant="double-struck">&#x2124;</mi></mrow><mo 
class="MathClass-close">}</mo></mrow></math>
<span 
class="ecti-1200">est dit stationnaire au second ordre, ou stationnaire au sens faible, ou stationnaire</span>
<span 
class="ecti-1200">d&#x2019;ordre deux si les trois conditions suivantes sont satisfaites</span>&#x00A0;<span 
class="ecti-1200">:</span>
      </p><ul class="itemize1">
      <li class="itemize"><!--l. 120--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mi 
>&#x2200;</mi><mi 
>t</mi> <mo 
class="MathClass-rel">&#x2208;</mo> <mi mathvariant="double-struck">&#x2124;</mi><mo 
class="MathClass-punc">,</mo><mspace width="1em" class="quad"/><mi 
>E</mi><mrow><mo 
class="MathClass-open">(</mo><mrow><msubsup><mrow 
><mi 
>Y</mi> </mrow><mrow 
><mi 
>t</mi></mrow><mrow 
><mn>2</mn></mrow></msubsup 
></mrow><mo 
class="MathClass-close">)</mo></mrow> <mo 
class="MathClass-rel">&#x003C;</mo> <mi 
>&#x221E;</mi></math><span 
class="ecti-1200">,</span>
      </li>
      <li class="itemize"><!--l. 121--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mi 
>&#x2200;</mi><mi 
>t</mi> <mo 
class="MathClass-rel">&#x2208;</mo> <mi mathvariant="double-struck">&#x2124;</mi><mo 
class="MathClass-punc">,</mo><mspace width="1em" class="quad"/><mi 
>E</mi><mrow><mo 
class="MathClass-open">(</mo><mrow><msub><mrow 
><mi 
>Y</mi> </mrow><mrow 
><mi 
>t</mi></mrow></msub 
></mrow><mo 
class="MathClass-close">)</mo></mrow> <mo 
class="MathClass-rel">=</mo> <mi 
>m</mi></math><span 
class="ecti-1200">,</span>
      <span 
class="ecti-1200">ind</span><span 
class="ecti-1200">&#x00E9;</span><span 
class="ecti-1200">pendant de </span><!--l. 121--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mi 
>t</mi></math><span 
class="ecti-1200">,</span>
      </li>
      <li class="itemize"><!--l. 122--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mi 
>&#x2200;</mi><mrow><mo 
class="MathClass-open">(</mo><mrow><mi 
>t</mi><mo 
class="MathClass-punc">,</mo><mi 
>h</mi></mrow><mo 
class="MathClass-close">)</mo></mrow> <mo 
class="MathClass-rel">&#x2208;</mo> <msup><mrow 
><mi mathvariant="double-struck">&#x2124;</mi></mrow><mrow 
><mn>2</mn></mrow></msup 
><mo 
class="MathClass-punc">,</mo><mspace width="1em" class="quad"/><!--mstyle 
class="text"--><mtext class="textrm" mathvariant="normal" >cov</mtext><!--/mstyle--><mrow><mo 
class="MathClass-open">(</mo><mrow><msub><mrow 
><mi 
>Y</mi> </mrow><mrow 
>
<mi 
>t</mi></mrow></msub 
><mo 
class="MathClass-punc">,</mo><msub><mrow 
><mi 
>Y</mi> </mrow><mrow 
><mi 
>t</mi><mo 
class="MathClass-bin">+</mo><mi 
>h</mi></mrow></msub 
></mrow><mo 
class="MathClass-close">)</mo></mrow> <mo 
class="MathClass-rel">=</mo> <mi 
>E</mi><mrow><mo 
class="MathClass-open">[</mo><mrow><mrow><mo 
class="MathClass-open">(</mo><mrow><msub><mrow 
><mi 
>Y</mi> </mrow><mrow 
><mi 
>t</mi><mo 
class="MathClass-bin">+</mo><mi 
>h</mi></mrow></msub 
> <mo 
class="MathClass-bin">&#x2212;</mo> <mi 
>m</mi></mrow><mo 
class="MathClass-close">)</mo></mrow><mrow><mo 
class="MathClass-open">(</mo><mrow><msub><mrow 
><mi 
>Y</mi> </mrow><mrow 
><mi 
>t</mi></mrow></msub 
> <mo 
class="MathClass-bin">&#x2212;</mo> <mi 
>m</mi></mrow><mo 
class="MathClass-close">)</mo></mrow></mrow><mo 
class="MathClass-close">]</mo></mrow> <mo 
class="MathClass-rel">=</mo> <mi 
>&#x03B3;</mi><mrow><mo 
class="MathClass-open">(</mo><mrow><mi 
>h</mi></mrow><mo 
class="MathClass-close">)</mo></mrow></math><span 
class="ecti-1200">,</span>
      <span 
class="ecti-1200">ind</span><span 
class="ecti-1200">&#x00E9;</span><span 
class="ecti-1200">pendant de </span><!--l. 122--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mi 
>t</mi></math><span 
class="ecti-1200">.</span></li></ul>
<!--l. 123--><p class="nopar">
</p>
   </div>
<!--l. 126--><p class="noindent">Nous avons aussi besoin de la notion de bruit blanc (ou white noise).
</p>
   <div class="newtheorem">
<!--l. 129--><p class="noindent"><span class="head">
<a 
  name="x1-4006r2"></a>
<span 
class="ecbx-1200">D</span><span 
class="ecbx-1200">&#x00E9;</span><span 
class="ecbx-1200">finition 2.</span></span>
   <span 
class="ecti-1200">Bruit blanc</span>
<br class="newline" /><span 
class="ecti-1200">Un processus </span><!--l. 131--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mrow><mo 
class="MathClass-open">{</mo><mrow><msub><mrow 
><mi 
>&#x03B5;</mi></mrow><mrow 
><mi 
>t</mi></mrow></msub 
><mo 
class="MathClass-punc">;</mo> <mi 
>t</mi> <mo 
class="MathClass-rel">&#x2208;</mo> <mi mathvariant="double-struck">&#x2124;</mi></mrow><mo 
class="MathClass-close">}</mo></mrow></math>
<span 
class="ecti-1200">est un bruit blanc s&#x2019;il satisfait aux deux conditions suivantes</span>
<!--l. 132--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mi 
>&#x2200;</mi><mi 
>t</mi> <mo 
class="MathClass-rel">&#x2208;</mo> <mi mathvariant="double-struck">&#x2124;</mi></math>&#x00A0;<span 
class="ecti-1200">:</span>

      </p><ul class="itemize1">
      <li class="itemize"><!--l. 134--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mi 
>E</mi><mrow><mo 
class="MathClass-open">(</mo><mrow><msub><mrow 
><mi 
>&#x03B5;</mi></mrow><mrow 
><mi 
>t</mi></mrow></msub 
></mrow><mo 
class="MathClass-close">)</mo></mrow> <mo 
class="MathClass-rel">=</mo> <mn>0</mn></math><span 
class="ecti-1200">,</span>
      </li>
      <li class="itemize"><!--l. 135--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mi 
>&#x03B3;</mi><mrow><mo 
class="MathClass-open">(</mo><mrow><mi 
>h</mi></mrow><mo 
class="MathClass-close">)</mo></mrow> <mo 
class="MathClass-rel">=</mo> <mi 
>E</mi><mrow><mo 
class="MathClass-open">[</mo><mrow><msub><mrow 
><mi 
>&#x03B5;</mi></mrow><mrow 
><mi 
>t</mi></mrow></msub 
><msub><mrow 
><mi 
>&#x03B5;</mi></mrow><mrow 
><mi 
>t</mi><mo 
class="MathClass-bin">&#x2212;</mo><mi 
>h</mi></mrow></msub 
></mrow><mo 
class="MathClass-close">]</mo></mrow> <mo 
class="MathClass-rel">=</mo> <mfenced separators="" 
open="{"  close="" ><mrow><mtable  align="axis"  
equalrows="false" equalcolumns="false" class="array"><mtr><mtd 
class="array"  columnalign="left"><msup><mrow 
><mi 
>&#x03C3;</mi></mrow><mrow 
><mn>2</mn></mrow></msup 
><mo 
class="MathClass-punc">,</mo> <mi 
>h</mi> <mo 
class="MathClass-rel">=</mo> <mn>0</mn><mo 
class="MathClass-punc">,</mo></mtd>
</mtr><mtr><mtd 
class="array"  columnalign="left"><mn>0</mn><mo 
class="MathClass-punc">,</mo><mspace class="nbsp" /><mi 
>h</mi><mo 
class="MathClass-rel">&#x2260;</mo><mn>0</mn><mo 
class="MathClass-punc">.</mo>     </mtd></mtr><!--l--></mtable>                                                                              </mrow></mfenced> </math></li></ul>
<!--l. 141--><p class="nopar">
</p>
   </div>
<!--l. 145--><p class="noindent">En s&#x2019;appuyant sur ces deux d&#x00E9;finitions, on peut introduire le mod&#x00E8;le ARMA.
</p>
   <div class="newtheorem">
<!--l. 148--><p class="noindent"><span class="head">
<a 
  name="x1-4007r3"></a>
<span 
class="ecbx-1200">D</span><span 
class="ecbx-1200">&#x00E9;</span><span 
class="ecbx-1200">finition 3.</span></span>
   <span 
class="ecti-1200">Mod</span><span 
class="ecti-1200">&#x00E8;</span><span 
class="ecti-1200">le ARMA(p,q)</span>
<br class="newline" /><span 
class="ecti-1200">On appelle processus autor</span><span 
class="ecti-1200">&#x00E9;</span><span 
class="ecti-1200">gressif </span><span 
class="ecti-1200">&#x00E0;</span> <span 
class="ecti-1200">moyenne mobile d&#x2019;ordre (p,q) un processus stationnaire</span>
<!--l. 151--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mrow><mo 
class="MathClass-open">{</mo><mrow><msub><mrow 
><mi 
>Y</mi> </mrow><mrow 
><mi 
>t</mi></mrow></msub 
><mo 
class="MathClass-punc">;</mo> <mi 
>t</mi> <mo 
class="MathClass-rel">&#x2208;</mo> <mi mathvariant="double-struck">&#x2124;</mi></mrow><mo 
class="MathClass-close">}</mo></mrow></math>
<span 
class="ecti-1200">v</span><span 
class="ecti-1200">&#x00E9;</span><span 
class="ecti-1200">rifiant une relation du type</span>
</p>
   <center class="math-display"><!--l. 153--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="display"><mrow 
>
                    <msub><mrow 
><mi 
>Y</mi> </mrow><mrow 
><mi 
>t</mi></mrow></msub 
> <mo 
class="MathClass-bin">&#x2212;</mo><munderover accentunder="false" accent="false"><mrow  
><mo 
class="MathClass-op">&#x2211;</mo>
  </mrow><mrow 
><mi 
>i</mi><mo 
class="MathClass-rel">=</mo><mn>1</mn></mrow><mrow 
><mi 
>p</mi></mrow></munderover 
><msub><mrow 
><mi 
>&#x03D5;</mi></mrow><mrow 
>
<mi 
>i</mi></mrow></msub 
><msub><mrow 
><mi 
>Y</mi> </mrow><mrow 
><mi 
>t</mi><mo 
class="MathClass-bin">&#x2212;</mo><mi 
>i</mi></mrow></msub 
> <mo 
class="MathClass-rel">=</mo><munderover accentunder="false" accent="false"><mrow  
> <mo 
class="MathClass-op">&#x2211;</mo>
  </mrow><mrow 
><mi 
>i</mi><mo 
class="MathClass-rel">=</mo><mn>1</mn></mrow><mrow 
><mi 
>q</mi></mrow></munderover 
><msub><mrow 
><mi 
>&#x03B8;</mi></mrow><mrow 
>
<mi 
>i</mi></mrow></msub 
><msub><mrow 
><mi 
>&#x03B5;</mi></mrow><mrow 
><mi 
>t</mi><mo 
class="MathClass-bin">&#x2212;</mo><mi 
>i</mi></mrow></msub 
> <mo 
class="MathClass-bin">+</mo> <msub><mrow 
><mi 
>&#x03B5;</mi></mrow><mrow 
><mi 
>t</mi></mrow></msub 
><!--mstyle 
class="text"--><mtext >&#x000A0;,&#x000A0;</mtext><!--/mstyle--><mi 
>&#x2200;</mi><mi 
>t</mi> <mo 
class="MathClass-rel">&#x2208;</mo> <mi mathvariant="double-struck">&#x2124;</mi>
</mrow></math></center>
<!--l. 156--><p class="nopar">
<span 
class="ecti-1200">o</span><span 
class="ecti-1200">&#x00F9;</span> <span 
class="ecti-1200">les </span><!--l. 157--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><msub><mrow 
><mi 
>&#x03D5;</mi></mrow><mrow 
><mi 
>i</mi></mrow></msub 
></math> <span 
class="ecti-1200">et les</span>
<!--l. 157--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><msub><mrow 
><mi 
>&#x03B8;</mi></mrow><mrow 
><mi 
>i</mi></mrow></msub 
></math> <span 
class="ecti-1200">sont des r</span><span 
class="ecti-1200">&#x00E9;</span><span 
class="ecti-1200">els et o</span><span 
class="ecti-1200">&#x00F9;</span>
<span 
class="ecti-1200">l&#x2019;erreur </span><!--l. 158--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mrow><mo 
class="MathClass-open">(</mo><mrow><msub><mrow 
><mi 
>&#x03B5;</mi></mrow><mrow 
><mi 
>t</mi></mrow></msub 
><mo 
class="MathClass-punc">;</mo> <mi 
>t</mi> <mo 
class="MathClass-rel">&#x2208;</mo> <mi mathvariant="double-struck">&#x2124;</mi></mrow><mo 
class="MathClass-close">)</mo></mrow></math> <span 
class="ecti-1200">est un bruit</span>
<span 
class="ecti-1200">blanc de variance </span><!--l. 158--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><msup><mrow 
><mi 
>&#x03C3;</mi></mrow><mrow 
><mn>2</mn></mrow></msup 
></math><span 
class="ecti-1200">.</span>
</p>
   </div>
<!--l. 162--><p class="indent">   Dans la d&#x00E9;marche de mod&#x00E9;lisation d&#x2019;une s&#x00E9;rie temporelle, il est courant de
suivre la proc&#x00E9;dure indiqu&#x00E9;e par Box et Jenkins (1976)(<a 
  name="dx1-4008"></a><a 
href="#X1976Boxintro">3</a>). Cette proc&#x00E9;dure
se d&#x00E9;roule en cinq &#x00E9;tapes&#x00A0;: &#x00AB; Stationnarisation &#x00BB;, &#x00AB; D&#x00E9;saisonnalisation &#x00BB;,

&#x00AB; Identification &#x00BB;, &#x00AB; Validation et Tests &#x00BB;, &#x00AB; Pr&#x00E9;visions &#x00BB;.
</p><!--l. 168--><p class="indent">   L&#x2019;attention dans la premi&#x00E8;re partie de cette &#x00E9;tude s&#x2019;est port&#x00E9;e
sur la phase de &#x00AB; Validation et Tests &#x00BB;, et plus particuli&#x00E8;rement sur la
construction d&#x2019;un test lisse de normalit&#x00E9; pour les erreurs d&#x2019;un mod&#x00E8;le
ARMA(<!--l. 170--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mi 
>p</mi></math>,<!--l. 170--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mi 
>q</mi></math>)
univari&#x00E9; compl&#x00E8;tement identifi&#x00E9;, de moyenne connue.
</p><!--l. 174--><p class="indent">   Pour cela, la statistique du <span 
class="ecti-1200">score de Rao </span>est un outil
classique pour la construction de tests d&#x2019;hypoth&#x00E8;ses de la forme
<!--l. 176--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><msub><mrow 
><mi 
>H</mi></mrow><mrow 
><mn>0</mn></mrow></msub 
> <mo 
class="MathClass-punc">:</mo> <mi 
>&#x03B7;</mi> <mo 
class="MathClass-rel">=</mo><msub><mrow 
> <mi 
>&#x03B7;</mi></mrow><mrow 
><mn>0</mn></mrow></msub 
></math>. Le test qui en
d&#x00E9;coule est bas&#x00E9; sur le principe g&#x00E9;n&#x00E9;ral que le vecteur gradient du mod&#x00E8;le non restreint
(par <!--l. 177--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><msub><mrow 
><mi 
>H</mi></mrow><mrow 
><mn>0</mn></mrow></msub 
></math>),
&#x00E9;valu&#x00E9; en l&#x2019;estimateur restreint, suit asymptotiquement une loi normale de moyenne 0, si
<!--l. 178--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><msub><mrow 
><mi 
>H</mi></mrow><mrow 
><mn>0</mn></mrow></msub 
></math> est vraie.
Si l&#x2019;hypoth&#x00E8;se alternative est d&#x00E9;crite par une certaine famille exponentielle de dimension
<!--l. 180--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mi 
>K</mi></math>, le test du
score r&#x00E9;sultant est aussi appel&#x00E9; test lisse (<span 
class="ecti-1200">smooth test</span>) ou test lisse de Neyman (1937)(<a 
  name="dx1-4009"></a><a 
href="#X1937Neyma149intro">12</a>)
d&#x2019;ordre <!--l. 183--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mi 
>K</mi></math>.
L&#x2019;id&#x00E9;e du test lisse est en fait d&#x2019;embo&#x00EE;ter la fonction de densit&#x00E9; de l&#x2019;hypoth&#x00E8;se
nulle dans une famille param&#x00E9;trique plus g&#x00E9;n&#x00E9;rale. Cette famille doit &#x00EA;tre choisie
pour d&#x00E9;tecter les alternatives les plus probables si l&#x2019;hypoth&#x00E8;se nulle est fausse. De
cette fa&#x00E7;on, l&#x2019;hypoth&#x00E8;se nulle devient une hypoth&#x00E8;se param&#x00E9;trique o&#x00F9; l&#x2019;on
cherche &#x00E0; tester la nullit&#x00E9; de param&#x00E8;tres de la densit&#x00E9; alternative. Cette approche
fournit non seulement une statistique de test simple, mais aussi une bonne
puissance pour une vaste famille d&#x2019;alternatives. Consid&#x00E9;rons un &#x00E9;chantillon
<!--l. 195--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><msub><mrow 
><mi 
>&#x03B5;</mi></mrow><mrow 
><mn>1</mn></mrow></msub 
><mo 
class="MathClass-punc">,</mo><mo 
class="MathClass-op">&#x2026;</mo><mo 
class="MathClass-punc">,</mo><msub><mrow 
><mi 
>&#x03B5;</mi></mrow><mrow 
><mi 
>n</mi></mrow></msub 
></math>
de variables al&#x00E9;atoires continues <span 
class="ecti-1200">i.i.d. </span>ayant pour fonction de r&#x00E9;partition
<!--l. 197--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mi 
>F</mi></math> et pour lequel on souhaite
tester l&#x2019;hypoth&#x00E8;se <!--l. 197--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><msub><mrow 
><mi 
>H</mi></mrow><mrow 
><mn>0</mn></mrow></msub 
> <mo 
class="MathClass-punc">:</mo> <mi 
>F</mi> <mo 
class="MathClass-rel">=</mo> <msub><mrow 
><mi 
>F</mi></mrow><mrow 
><mn>0</mn></mrow></msub 
></math>.
Il est possible de transformer cet &#x00E9;chantillon en un &#x00E9;chantillon
<!--l. 199--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><msub><mrow 
><mi 
>U</mi></mrow><mrow 
><mn>1</mn></mrow></msub 
> <mo 
class="MathClass-rel">=</mo> <mn>2</mn><msub><mrow 
><mi 
>F</mi></mrow><mrow 
><mn>0</mn></mrow></msub 
><mrow><mo 
class="MathClass-open">(</mo><mrow><msub><mrow 
><mi 
>&#x03B5;</mi></mrow><mrow 
><mn>1</mn></mrow></msub 
></mrow><mo 
class="MathClass-close">)</mo></mrow> <mo 
class="MathClass-bin">&#x2212;</mo> <mn>1</mn><mo 
class="MathClass-punc">,</mo><mo 
class="MathClass-op">&#x2026;</mo><mo 
class="MathClass-punc">,</mo><msub><mrow 
><mi 
>U</mi></mrow><mrow 
><mi 
>n</mi></mrow></msub 
> <mo 
class="MathClass-rel">=</mo> <mn>2</mn><msub><mrow 
><mi 
>F</mi></mrow><mrow 
><mn>0</mn></mrow></msub 
><mrow><mo 
class="MathClass-open">(</mo><mrow><msub><mrow 
><mi 
>&#x03B5;</mi></mrow><mrow 
><mi 
>n</mi></mrow></msub 
></mrow><mo 
class="MathClass-close">)</mo></mrow> <mo 
class="MathClass-bin">&#x2212;</mo> <mn>1</mn></math> de variables al&#x00E9;atoires
<span 
class="ecti-1200">i.i.d. </span>de densit&#x00E9; <!--l. 200--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mi 
>g</mi></math>
qui, sous <!--l. 200--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><msub><mrow 
><mi 
>H</mi></mrow><mrow 
><mn>0</mn></mrow></msub 
></math>,
sont de loi uniforme sur l&#x2019;intervalle [-1,1]. Utilisant cette propri&#x00E9;t&#x00E9;, Neyman
(1937)(<a 
  name="dx1-4010"></a><a 
href="#X1937Neyma149intro">12</a>) propose de consid&#x00E9;rer l&#x2019;hypoth&#x00E8;se </p><table class="equation"><tr><td> <a 
  name="x1-4011r1"></a>

<!--l. 202--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="display"><msub><mrow 
>
<mi 
>H</mi></mrow><mrow 
><mn>0</mn></mrow></msub 
> <mo 
class="MathClass-punc">:</mo> <mi 
>g</mi><mrow><mo 
class="MathClass-open">(</mo><mrow><mi 
>y</mi></mrow><mo 
class="MathClass-close">)</mo></mrow> <mo 
class="MathClass-rel">=</mo> <mfenced separators="" 
open="{"  close="" ><mrow><mtable  align="axis"  
equalrows="false" equalcolumns="false" class="array"><mtr><mtd 
class="array"  columnalign="center"><mn>1</mn><mo 
class="MathClass-bin">&#x2215;</mo><mn>2</mn></mtd><mtd 
class="array"  columnalign="left"><!--mstyle 
class="text"--><mtext >&#x000A0;si&#x000A0;</mtext><!--/mstyle--><mi 
>y</mi> <mo 
class="MathClass-rel">&#x2208;</mo> <mrow><mo 
class="MathClass-open">[</mo><mrow><mo 
class="MathClass-bin">&#x2212;</mo><mn>1</mn><mo 
class="MathClass-punc">,</mo> <mn>1</mn></mrow><mo 
class="MathClass-close">]</mo></mrow><mo 
class="MathClass-punc">,</mo></mtd>
</mtr><mtr><mtd 
class="array"  columnalign="center"> <mn>0</mn>  </mtd><mtd 
class="array"  columnalign="left"><!--mstyle 
class="text"--><mtext >&#x000A0;sinon</mtext><!--/mstyle-->           </mtd></mtr> <!--cl--></mtable>                                                                                  </mrow></mfenced>
</math>
<!--l. 210--><p class="nopar"></p></td><td class="eq-no">(1)</td></tr></table>
et de choisir pour cette loi uniforme la famille alternative d&#x2019;imbrication de fonctions de
densit&#x00E9; <!--l. 211--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mi 
>c</mi><mo 
class="MathClass-punc">.</mo><mo 
> exp</mo><!--nolimits--><mrow><mo 
class="MathClass-open">[</mo><mrow><mi 
>P</mi><mrow><mo 
class="MathClass-open">(</mo><mrow><mi 
>y</mi></mrow><mo 
class="MathClass-close">)</mo></mrow></mrow><mo 
class="MathClass-close">]</mo></mrow></math> o&#x00F9;
<!--l. 212--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mi 
>P</mi><mrow><mo 
class="MathClass-open">(</mo><mrow><mi 
>y</mi></mrow><mo 
class="MathClass-close">)</mo></mrow></math> repr&#x00E9;sente un
polyn&#x00F4;me et <!--l. 212--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mi 
>c</mi></math>
est la constante de normalisation. Il appelle de telles densit&#x00E9;s des alternatives &#x00AB; lisses &#x00BB;
car elles sont repr&#x00E9;sent&#x00E9;es graphiquement par des courbes lisses coupant la densite
sous <!--l. 214--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><msub><mrow 
><mi 
>H</mi></mrow><mrow 
><mn>0</mn></mrow></msub 
></math>
un petit nombre de fois. Le fait de pouvoir se restreindre, par des consid&#x00E9;rations
physiques ou en faisant appel &#x00E0; son intuition, &#x00E0; ce type d&#x2019;alternatives permet
d&#x2019;obtenir un test plus sensible. Ensuite, il sugg&#x00E8;re de choisir le polyn&#x00F4;me
<!--l. 217--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mi 
>P</mi><mrow><mo 
class="MathClass-open">(</mo><mrow><mi 
>y</mi></mrow><mo 
class="MathClass-close">)</mo></mrow></math> comme
&#x00E9;tant une combinaison lin&#x00E9;aire des &#x00E9;l&#x00E9;ments d&#x2019;un des syst&#x00E8;mes de polyn&#x00F4;mes
orthonormaux <!--l. 218--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><msub><mrow 
><mi 
>&#x03C0;</mi></mrow><mrow 
><mn>0</mn></mrow></msub 
><mrow><mo 
class="MathClass-open">(</mo><mrow><mi 
>y</mi></mrow><mo 
class="MathClass-close">)</mo></mrow><mo 
class="MathClass-punc">,</mo><msub><mrow 
><mi 
>&#x03C0;</mi></mrow><mrow 
><mn>1</mn></mrow></msub 
><mrow><mo 
class="MathClass-open">(</mo><mrow><mi 
>y</mi></mrow><mo 
class="MathClass-close">)</mo></mrow><mo 
class="MathClass-punc">,</mo><mo 
class="MathClass-op">&#x2026;</mo></math>
sur l&#x2019;intervalle [-1,1]. Rappelons que, dans un tel syst&#x00E8;me, le polyn&#x00F4;me
<!--l. 219--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><msub><mrow 
><mi 
>&#x03C0;</mi></mrow><mrow 
><mi 
>i</mi></mrow></msub 
><mrow><mo 
class="MathClass-open">(</mo><mrow><mi 
>y</mi></mrow><mo 
class="MathClass-close">)</mo></mrow></math> est de
degr&#x00E9; <!--l. 219--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mi 
>i</mi></math>, et
que pour tout <!--l. 219--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mi 
>i</mi></math>
et <!--l. 219--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mi 
>j</mi> <mo 
class="MathClass-rel">=</mo> <mn>0</mn><mo 
class="MathClass-punc">,</mo> <mn>1</mn><mo 
class="MathClass-punc">,</mo> <mn>2</mn><mo 
class="MathClass-punc">,</mo><mo 
class="MathClass-op">&#x2026;</mo></math>, on
a
   <center class="math-display"><!--l. 220--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="display"><mrow 
>
                                  <mn>1</mn><mo 
class="MathClass-bin">&#x2215;</mo><mn>2</mn><munderover accentunder="false" accent="false"><mrow  
> <mo 
class="MathClass-op">&#x222B;</mo>
  </mrow><mrow 
><mo 
class="MathClass-bin">&#x2212;</mo><mn>1</mn></mrow><mrow 
><mn>1</mn></mrow></munderover 
><msub><mrow 
><mi 
>&#x03C0;</mi></mrow><mrow 
>
<mi 
>i</mi></mrow></msub 
><mrow><mo 
class="MathClass-open">(</mo><mrow><mi 
>y</mi></mrow><mo 
class="MathClass-close">)</mo></mrow><msub><mrow 
><mi 
>&#x03C0;</mi></mrow><mrow 
><mi 
>j</mi></mrow></msub 
><mrow><mo 
class="MathClass-open">(</mo><mrow><mi 
>y</mi></mrow><mo 
class="MathClass-close">)</mo></mrow><mi 
>d</mi><mi 
>y</mi> <mo 
class="MathClass-rel">=</mo> <msub><mrow 
><mi 
>&#x03B4;</mi></mrow><mrow 
><mi 
>i</mi><mi 
>j</mi></mrow></msub 
>
</mrow></math></center>
<!--l. 222--><p class="nopar">
o&#x00F9;
</p>

   <center class="math-display"><!--l. 224--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="display"><mrow 
><msub><mrow 
>
<mi 
>&#x03B4;</mi></mrow><mrow 
><mi 
>i</mi><mi 
>j</mi></mrow></msub 
> <mo 
class="MathClass-rel">=</mo> <mfenced separators="" 
open="{"  close="" ><mrow><mtable  align="axis"  
equalrows="false" equalcolumns="false" class="array"><mtr><mtd 
class="array"  columnalign="center"><mn>0</mn></mtd><mtd 
class="array"  columnalign="left"><!--mstyle 
class="text"--><mtext >&#x000A0;si&#x000A0;</mtext><!--/mstyle--><mi 
>i</mi> <mo 
class="MathClass-rel">&#x2044;</mo><mo 
class="MathClass-rel">=</mo> <mi 
>j</mi><mo 
class="MathClass-punc">,</mo></mtd>
</mtr><mtr><mtd 
class="array"  columnalign="center"><mn>1</mn></mtd><mtd 
class="array"  columnalign="left"><!--mstyle 
class="text"--><mtext >&#x000A0;si&#x000A0;</mtext><!--/mstyle--><mi 
>i</mi> <mo 
class="MathClass-rel">=</mo> <mi 
>j</mi><mo 
class="MathClass-punc">.</mo></mtd></mtr> <!--cl--></mtable>                                                                               </mrow></mfenced>
</mrow></math></center>
<!--l. 232--><p class="nopar">
Ces syst&#x00E8;mes de polyn&#x00F4;mes orthonormaux peuvent &#x00EA;tre construits de plusieurs
fa&#x00E7;ons (voir Marsden, (1974), p.347(<a 
  name="dx1-4012"></a><a 
href="#X1974Marsdintro">11</a>)). Neyman (1937)(<a 
  name="dx1-4013"></a><a 
href="#X1937Neyma149intro">12</a>), pour sa part, utilise le
syst&#x00E8;me de polyn&#x00F4;mes de Legendre. La famille d&#x2019;imbrication s&#x2019;&#x00E9;crit alors </p><table class="equation"><tr><td>
<a 
  name="x1-4014r2"></a>
<!--l. 235--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="display"><msub><mrow 
>
<mi 
>g</mi></mrow><mrow 
><mi 
>K</mi></mrow></msub 
><mrow><mo 
class="MathClass-open">(</mo><mrow><mi 
>y</mi><mo 
class="MathClass-punc">,</mo><mi 
>&#x03B7;</mi></mrow><mo 
class="MathClass-close">)</mo></mrow> <mo 
class="MathClass-rel">=</mo> <mfenced separators="" 
open="{"  close="" ><mrow><mtable  align="axis"  
equalrows="false" equalcolumns="false" class="array"><mtr><mtd 
class="array"  columnalign="center"><mi 
>C</mi><mrow><mo 
class="MathClass-open">(</mo><mrow><mi 
>&#x03B7;</mi></mrow><mo 
class="MathClass-close">)</mo></mrow><mo 
> exp</mo><!--nolimits--> <mfenced separators="" 
open="("  close=")" ><mrow><munderover accentunder="false" accent="false"><mrow  
><mo 
class="MathClass-op">&#x2211;</mo>
  </mrow><mrow 
><mi 
>i</mi><mo 
class="MathClass-rel">=</mo><mn>1</mn></mrow><mrow 
><mi 
>K</mi></mrow></munderover 
><msub><mrow 
><mi 
>&#x03B7;</mi></mrow><mrow 
>
<mi 
>i</mi></mrow></msub 
><msub><mrow 
><mi 
>&#x03C0;</mi></mrow><mrow 
><mi 
>i</mi></mrow></msub 
><mrow><mo 
class="MathClass-open">(</mo><mrow><mi 
>y</mi></mrow><mo 
class="MathClass-close">)</mo></mrow></mrow></mfenced></mtd><mtd 
class="array"  columnalign="left"><!--mstyle 
class="text"--><mtext >&#x000A0;si&#x000A0;</mtext><!--/mstyle--><mi 
>y</mi> <mo 
class="MathClass-rel">&#x2208;</mo> <mrow><mo 
class="MathClass-open">[</mo><mrow><mo 
class="MathClass-bin">&#x2212;</mo><mn>1</mn><mo 
class="MathClass-punc">,</mo> <mn>1</mn></mrow><mo 
class="MathClass-close">]</mo></mrow><mo 
class="MathClass-punc">,</mo></mtd>
</mtr><mtr><mtd 
class="array"  columnalign="center">             <mn>0</mn>               </mtd> <mtd 
class="array"  columnalign="left"><!--mstyle 
class="text"--><mtext >&#x000A0;sinon.</mtext><!--/mstyle-->          </mtd></mtr> <!--cl--></mtable>                                                        </mrow></mfenced>
</math>
<!--l. 244--><p class="nopar"></p></td><td class="eq-no">(2)</td></tr></table>
o&#x00F9; <!--l. 245--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mi 
>&#x03B7;</mi> <mo 
class="MathClass-rel">=</mo> <msup><mrow 
><mrow><mo 
class="MathClass-open">(</mo><mrow><msub><mrow 
><mi 
>&#x03B7;</mi></mrow><mrow 
><mn>1</mn></mrow></msub 
><mo 
class="MathClass-punc">,</mo><mo 
class="MathClass-op">&#x2026;</mo><mo 
class="MathClass-punc">,</mo><msub><mrow 
><mi 
>&#x03B7;</mi></mrow><mrow 
><mi 
>k</mi></mrow></msub 
></mrow><mo 
class="MathClass-close">)</mo></mrow></mrow><mrow 
><mi 
>t</mi></mrow></msup 
> <mo 
class="MathClass-rel">&#x2208;</mo> <msup><mrow 
><mi mathvariant="double-struck">&#x211D;</mi></mrow><mrow 
><mi 
>K</mi></mrow></msup 
></math>,
<!--l. 245--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mi 
>C</mi><mrow><mo 
class="MathClass-open">(</mo><mrow><mi 
>&#x03B7;</mi></mrow><mo 
class="MathClass-close">)</mo></mrow></math> est la constante de
normalisation, <!--l. 245--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mi 
>K</mi></math> est appel&#x00E9;
l&#x2019;ordre de l&#x2019;alternative et les <!--l. 246--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><msub><mrow 
><mi 
>&#x03C0;</mi></mrow><mrow 
><mi 
>i</mi></mrow></msub 
><mrow><mo 
class="MathClass-open">(</mo><mrow><mo 
class="MathClass-punc">&#x22C5;</mo></mrow><mo 
class="MathClass-close">)</mo></mrow><mo 
class="MathClass-punc">,</mo><mi 
>i</mi> <mo 
class="MathClass-rel">=</mo> <mn>1</mn><mo 
class="MathClass-punc">,</mo><mo 
class="MathClass-op">&#x2026;</mo><mo 
class="MathClass-punc">,</mo><mi 
>K</mi></math>
sont les <!--l. 246--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mi 
>K</mi></math>
premiers polyn&#x00F4;mes de Legendre. Nous d&#x00E9;notons par
<!--l. 247--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><msub><mrow 
><mi 
>g</mi></mrow><mrow 
><mn>0</mn></mrow></msub 
><mrow><mo 
class="MathClass-open">(</mo><mrow><mo 
class="MathClass-punc">&#x22C5;</mo></mrow><mo 
class="MathClass-close">)</mo></mrow></math> la
fonction de densit&#x00E9; sous l&#x2019;hypoth&#x00E8;se nulle, c&#x2019;est-&#x00E0;-dire la distribution uniforme sur
l&#x2019;intervalle [-1,1]. Ainsi, &#x00E9;prouver l&#x2019;hypoth&#x00E8;se nulle (<a 
href="#x1-4011r1">1<!--tex4ht:ref: hypnulneyman --></a>) contre l&#x2019;hypoth&#x00E8;se
voulant que la fonction de densit&#x00E9; appartienne &#x00E0; la famille d&#x2019;imbrication
<!--l. 249--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><msub><mrow 
><mi 
>H</mi></mrow><mrow 
><mn>1</mn></mrow></msub 
> <mo 
class="MathClass-punc">:</mo> <mi 
>g</mi><mrow><mo 
class="MathClass-open">(</mo><mrow><mo 
class="MathClass-punc">&#x22C5;</mo></mrow><mo 
class="MathClass-close">)</mo></mrow> <mo 
class="MathClass-rel">&#x2208;</mo><mrow><mo 
class="MathClass-open">{</mo><mrow><msub><mrow 
><mi 
>g</mi></mrow><mrow 
><mi 
>k</mi></mrow></msub 
><mrow><mo 
class="MathClass-open">(</mo><mrow><mo 
class="MathClass-punc">&#x22C5;</mo><mo 
class="MathClass-punc">,</mo><mi 
>&#x03B7;</mi></mrow><mo 
class="MathClass-close">)</mo></mrow> <mo 
class="MathClass-punc">:</mo> <mi 
>&#x03B7;</mi> <mo 
class="MathClass-rel">&#x2208;</mo> <msup><mrow 
><mi mathvariant="double-struck">&#x211D;</mi></mrow><mrow 
><mi 
>K</mi></mrow></msup 
></mrow><mo 
class="MathClass-close">}</mo></mrow></math>,
donn&#x00E9;e en (<a 
href="#x1-4014r2">2<!--tex4ht:ref: imbrication --></a>), est donc &#x00E9;quivalent &#x00E0; &#x00E9;prouver l&#x2019;hypoth&#x00E8;se <table class="equation"><tr><td> <a 
  name="x1-4015r3"></a>

<!--l. 251--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="display">
                         <msub><mrow 
><mi 
>H</mi></mrow><mrow 
><mn>0</mn></mrow></msub 
> <mo 
class="MathClass-punc">:</mo> <mi 
>&#x03B7;</mi> <mo 
class="MathClass-rel">=</mo> <mn>0</mn><!--mstyle 
class="text"--><mtext >&#x000A0;versus&#x000A0;</mtext><!--/mstyle--><msub><mrow 
><mi 
>H</mi></mrow><mrow 
><mn>1</mn></mrow></msub 
> <mo 
class="MathClass-punc">:</mo> <mi 
>&#x03B7;</mi> <mo 
class="MathClass-rel">&#x2044;</mo><mo 
class="MathClass-rel">=</mo> <mn>0</mn><mo 
class="MathClass-punc">.</mo>
</math>
<!--l. 253--><p class="nopar"></p></td><td class="eq-no">(3)</td></tr></table>
Il suffit alors de construire le test du <!--l. 254--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mi 
>s</mi><mi 
>c</mi><mi 
>o</mi><mi 
>r</mi><mi 
>e</mi></math>
pour l&#x2019;hypoth&#x00E8;se (<a 
href="#x1-4015r3">3<!--tex4ht:ref: H0versusH1 --></a>). On d&#x00E9;finit le vecteur du
<!--l. 255--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mi 
>s</mi><mi 
>c</mi><mi 
>o</mi><mi 
>r</mi><mi 
>e</mi></math>
par
   <center class="math-display"><!--l. 256--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="display"><mrow 
><msub><mrow 
>
            <mi 
>a</mi></mrow><mrow 
><mi 
>n</mi><mi 
>&#x03B7;</mi></mrow></msub 
> <mo 
class="MathClass-rel">=</mo> <mfenced separators="" 
open="("  close=")" ><mrow><mfrac><mrow 
><mn>1</mn></mrow>
<mrow 
><mi 
>n</mi></mrow></mfrac><munderover accentunder="false" accent="false"><mrow  
> <mo 
class="MathClass-op">&#x2211;</mo>
   </mrow><mrow 
><mi 
>i</mi><mo 
class="MathClass-rel">=</mo><mn>1</mn></mrow><mrow 
><mi 
>n</mi></mrow></munderover 
><mfrac><mrow 
><mi 
>&#x2202;</mi><mi 
>L</mi><mi 
>o</mi><mi 
>g</mi><msub><mrow 
><mi 
>g</mi></mrow><mrow 
><mi 
>K</mi></mrow></msub 
><mrow><mo 
class="MathClass-open">(</mo><mrow><msub><mrow 
><mi 
>Y</mi> </mrow><mrow 
><mi 
>i</mi></mrow></msub 
><mo 
class="MathClass-punc">,</mo><mi 
>&#x03B7;</mi></mrow><mo 
class="MathClass-close">)</mo></mrow></mrow>
       <mrow 
><mi 
>&#x2202;</mi><msub><mrow 
><mi 
>&#x03B7;</mi></mrow><mrow 
><mn>1</mn></mrow></msub 
></mrow></mfrac>           <mo 
class="MathClass-punc">,</mo><mo 
class="MathClass-op">&#x2026;</mo><mo 
class="MathClass-punc">,</mo> <mfrac><mrow 
><mn>1</mn></mrow> 
<mrow 
><mi 
>n</mi></mrow></mfrac><munderover accentunder="false" accent="false"><mrow  
> <mo 
class="MathClass-op">&#x2211;</mo>
    </mrow><mrow 
><mi 
>i</mi><mo 
class="MathClass-rel">=</mo><mn>1</mn></mrow><mrow 
><mi 
>n</mi></mrow></munderover 
><mfrac><mrow 
><mi 
>&#x2202;</mi><mi 
>L</mi><mi 
>o</mi><mi 
>g</mi><msub><mrow 
><mi 
>g</mi></mrow><mrow 
><mi 
>K</mi></mrow></msub 
><mrow><mo 
class="MathClass-open">(</mo><mrow><msub><mrow 
><mi 
>Y</mi> </mrow><mrow 
><mi 
>i</mi></mrow></msub 
><mo 
class="MathClass-punc">,</mo><mi 
>&#x03B7;</mi></mrow><mo 
class="MathClass-close">)</mo></mrow></mrow>
       <mrow 
><mi 
>&#x2202;</mi><msub><mrow 
><mi 
>&#x03B7;</mi></mrow><mrow 
><mi 
>K</mi></mrow></msub 
></mrow></mfrac>         </mrow></mfenced> <!--mstyle 
class="text"--><mtext >T</mtext><!--/mstyle--><mo 
class="MathClass-punc">.</mo>
</mrow></math></center>
<!--l. 263--><p class="nopar">
Alors la statistique du score de Rao (1947) est
</p>
   <center class="math-display"><!--l. 265--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="display"><mrow 
>
                                     <msub><mrow 
><mi 
>R</mi></mrow><mrow 
><mi 
>K</mi></mrow></msub 
> <mo 
class="MathClass-rel">=</mo> <mi 
>n</mi><msub><mrow 
><mi 
>a</mi></mrow><mrow 
><mi 
>n</mi><msub><mrow 
><mi 
>&#x03B7;</mi></mrow><mrow 
><mn>0</mn></mrow></msub 
></mrow></msub 
><!--mstyle 
class="text"--><mtext >T</mtext><!--/mstyle--><msubsup><mrow 
><mi 
>I</mi></mrow><mrow 
><msub><mrow 
>
<mi 
>&#x03B7;</mi></mrow><mrow 
><mn>0</mn></mrow></msub 
></mrow><mrow 
><mo 
class="MathClass-bin">&#x2212;</mo><mn>1</mn></mrow></msubsup 
><msub><mrow 
><mi 
>a</mi></mrow><mrow 
>
<mi 
>n</mi><msub><mrow 
><mi 
>&#x03B7;</mi></mrow><mrow 
><mn>0</mn></mrow></msub 
></mrow></msub 
>
</mrow></math></center>
<!--l. 267--><p class="nopar">
</p><!--l. 269--><p class="indent">   o&#x00F9;
</p>

   <center class="math-display"><!--l. 270--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="display"><mrow 
>
                        <msub><mrow 
><mi 
>I</mi></mrow><mrow 
><mi 
>&#x03B7;</mi></mrow></msub 
> <mo 
class="MathClass-rel">=</mo><msub><mrow 
> <mfenced separators="" 
open="["  close="]" ><mrow><msub><mrow 
><mi 
>E</mi></mrow><mrow 
><mi 
>&#x03B7;</mi></mrow></msub 
> <mfenced separators="" 
open="{"  close="}" ><mrow><mfrac><mrow 
><mi 
>&#x2202;</mi><mi 
>L</mi><mi 
>o</mi><mi 
>g</mi><msub><mrow 
><mi 
>g</mi></mrow><mrow 
><mi 
>K</mi></mrow></msub 
><mrow><mo 
class="MathClass-open">(</mo><mrow><mi 
>Y</mi><mo 
class="MathClass-punc">,</mo><mi 
>&#x03B7;</mi></mrow><mo 
class="MathClass-close">)</mo></mrow></mrow>
       <mrow 
><mi 
>&#x2202;</mi><msub><mrow 
><mi 
>&#x03B7;</mi></mrow><mrow 
><mi 
>i</mi></mrow></msub 
></mrow></mfrac>        <mo 
class="MathClass-punc">.</mo><mfrac><mrow 
><mi 
>&#x2202;</mi><mi 
>L</mi><mi 
>o</mi><mi 
>g</mi><msub><mrow 
><mi 
>g</mi></mrow><mrow 
><mi 
>K</mi></mrow></msub 
><mrow><mo 
class="MathClass-open">(</mo><mrow><mi 
>Y</mi><mo 
class="MathClass-punc">,</mo><mi 
>&#x03B7;</mi></mrow><mo 
class="MathClass-close">)</mo></mrow></mrow>
       <mrow 
><mi 
>&#x2202;</mi><msub><mrow 
><mi 
>&#x03B7;</mi></mrow><mrow 
><mi 
>j</mi></mrow></msub 
></mrow></mfrac>        </mrow></mfenced></mrow></mfenced> </mrow><mrow 
><mi 
>K</mi><mo 
class="MathClass-bin">&#x00D7;</mo><mi 
>K</mi></mrow></msub 
>
</mrow></math></center>
<!--l. 276--><p class="nopar">
est la matrice d&#x2019;information de Fisher de
<!--l. 277--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mi 
>&#x03B7;</mi></math>. On peut ensuite
montrer que, sous <!--l. 278--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><msub><mrow 
><mi 
>H</mi></mrow><mrow 
><mn>0</mn></mrow></msub 
></math>,
<!--l. 279--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><msub><mrow 
><mi 
>R</mi></mrow><mrow 
><mi 
>K</mi></mrow></msub 
><mover><mrow 
><mo 
class="MathClass-rel">&#x2192;</mo></mrow><mrow 
><mi 
>L</mi></mrow></mover><msubsup><mrow 
><mi 
>&#x03C7;</mi></mrow><mrow 
><mi 
>K</mi></mrow><mrow 
><mn>2</mn></mrow></msubsup 
></math>, loi du
khi-deux &#x00E0; <!--l. 279--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mi 
>K</mi></math>
degr&#x00E9;s de libert&#x00E9;.
<br class="newline" />
</p><!--l. 281--><p class="indent">   Cette pr&#x00E9;sentation du test de Neyman (1937)(<a 
  name="dx1-4016"></a><a 
href="#X1937Neyma149intro">12</a>) repose sur l&#x2019;hypoth&#x00E8;se que
<!--l. 281--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><msub><mrow 
><mi 
>F</mi></mrow><mrow 
><mn>0</mn></mrow></msub 
></math> est
enti&#x00E8;rement sp&#x00E9;cifi&#x00E9;e. Une g&#x00E9;n&#x00E9;ralisation au cas o&#x00F9; un ou plusieurs
param&#x00E8;tres seraient inconnus a &#x00E9;t&#x00E9; faite par Kopecky et Pierce (1979)(<a 
  name="dx1-4017"></a><a 
href="#X1979Kopec393intro">10</a>) et
Rayner et Best (1988)(<a 
  name="dx1-4018"></a><a 
href="#X1988Rayne3235intro">14</a>).
</p>
   <div class="newtheorem">
<!--l. 287--><p class="noindent"><span class="head">
<a 
  name="x1-4019r1"></a>
<span 
class="ecbx-1200">Remarque 1.</span></span>
   <span 
class="ecti-1200">Une justification th</span><span 
class="ecti-1200">&#x00E9;</span><span 
class="ecti-1200">orique que l&#x2019;on peut offrir pour le choix de la famille</span>
<span 
class="ecti-1200">d&#x2019;imbrication pr</span><span 
class="ecti-1200">&#x00E9;</span><span 
class="ecti-1200">c</span><span 
class="ecti-1200">&#x00E9;</span><span 
class="ecti-1200">dente repose sur la th</span><span 
class="ecti-1200">&#x00E9;</span><span 
class="ecti-1200">orie des espaces de Hilbert (voir</span>
<span 
class="ecti-1200">Royden, (1968), chap.10 sec.8(</span><a 
  name="dx1-4020"></a><a 
href="#X1968Royde"><span 
class="ecti-1200">15</span></a><span 
class="ecti-1200">)). En effet, on peut montrer que toute fonction</span>
<!--l. 291--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mi 
>h</mi></math>
<span 
class="ecti-1200">dans l&#x2019;espace de Hilbert des fonctions de carr</span><span 
class="ecti-1200">&#x00E9;</span> <span 
class="ecti-1200">int</span><span 
class="ecti-1200">&#x00E9;</span><span 
class="ecti-1200">grable par rapport </span><span 
class="ecti-1200">&#x00E0;</span>
<!--l. 292--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><msub><mrow 
><mi 
>g</mi></mrow><mrow 
><mn>0</mn></mrow></msub 
><mrow><mo 
class="MathClass-open">(</mo><mrow><mi 
>y</mi></mrow><mo 
class="MathClass-close">)</mo></mrow></math> <span 
class="ecti-1200">peut</span>
<span 
class="ecti-1200">s&#x2019;</span><span 
class="ecti-1200">&#x00E9;</span><span 
class="ecti-1200">crire</span>
</p>

   <center class="math-display"><!--l. 293--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="display"><mrow 
>
                                   <mi 
>h</mi><mrow><mo 
class="MathClass-open">(</mo><mrow><mi 
>y</mi></mrow><mo 
class="MathClass-close">)</mo></mrow> <mo 
class="MathClass-rel">=</mo><munderover accentunder="false" accent="false"><mrow  
> <mo 
class="MathClass-op">&#x2211;</mo>
  </mrow><mrow 
><mi 
>i</mi><mo 
class="MathClass-rel">=</mo><mn>0</mn></mrow><mrow 
><mi 
>&#x221E;</mi></mrow></munderover 
><msub><mrow 
><mi 
>&#x03B7;</mi></mrow><mrow 
>
<mi 
>i</mi></mrow></msub 
><msub><mrow 
><mi 
>&#x03C0;</mi></mrow><mrow 
><mi 
>i</mi></mrow></msub 
><mrow><mo 
class="MathClass-open">(</mo><mrow><mi 
>y</mi></mrow><mo 
class="MathClass-close">)</mo></mrow><mo 
class="MathClass-punc">.</mo>
</mrow></math></center>
<!--l. 295--><p class="nopar">
<span 
class="ecti-1200">Par cons</span><span 
class="ecti-1200">&#x00E9;</span><span 
class="ecti-1200">quent, la vraie distribution de Y peut s&#x2019;</span><span 
class="ecti-1200">&#x00E9;</span><span 
class="ecti-1200">crire</span>
</p>
   <center class="math-display"><!--l. 297--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="display"><mrow 
>
<mi 
>f</mi><mrow><mo 
class="MathClass-open">(</mo><mrow><mi 
>y</mi></mrow><mo 
class="MathClass-close">)</mo></mrow> <mo 
class="MathClass-rel">=</mo> <mfenced separators="" 
open="{"  close="" ><mrow><mtable  align="axis"  
equalrows="false" equalcolumns="false" class="array"><mtr><mtd 
class="array"  columnalign="center"><mi 
>c</mi><mo 
class="MathClass-punc">.</mo><mi 
>e</mi><mi 
>x</mi><mi 
>p</mi> <mfenced separators="" 
open="("  close=")" ><mrow><munderover accentunder="false" accent="false"><mrow  
><mo 
class="MathClass-op">&#x2211;</mo>
  </mrow><mrow 
><mi 
>i</mi><mo 
class="MathClass-rel">=</mo><mn>0</mn></mrow><mrow 
><mi 
>&#x221E;</mi></mrow></munderover 
><msub><mrow 
><mi 
>&#x03B7;</mi></mrow><mrow 
>
<mi 
>i</mi></mrow></msub 
><msub><mrow 
><mi 
>&#x03C0;</mi></mrow><mrow 
><mi 
>i</mi></mrow></msub 
><mrow><mo 
class="MathClass-open">(</mo><mrow><mi 
>y</mi></mrow><mo 
class="MathClass-close">)</mo></mrow></mrow></mfenced></mtd><mtd 
class="array"  columnalign="left"><!--mstyle 
class="text"--><mtext >&#x000A0;si&#x000A0;</mtext><!--/mstyle--><mi 
>y</mi> <mo 
class="MathClass-rel">&#x2208;</mo> <mrow><mo 
class="MathClass-open">[</mo><mrow><mo 
class="MathClass-bin">&#x2212;</mo><mn>1</mn><mo 
class="MathClass-punc">,</mo> <mn>1</mn></mrow><mo 
class="MathClass-close">]</mo></mrow><mo 
class="MathClass-punc">,</mo></mtd>
</mtr><mtr><mtd 
class="array"  columnalign="center">           <mn>0</mn>             </mtd><mtd 
class="array"  columnalign="left"><!--mstyle 
class="text"--><mtext >&#x000A0;sinon,</mtext><!--/mstyle-->         </mtd></mtr> <!--cl--></mtable>                                                        </mrow></mfenced>
</mrow></math></center>
<!--l. 306--><p class="nopar">
<span 
class="ecti-1200">et la famille d&#x2019;imbrication propos</span><span 
class="ecti-1200">&#x00E9;</span><span 
class="ecti-1200">e est une approximation de la vraie densit</span><span 
class="ecti-1200">&#x00E9;</span><span 
class="ecti-1200">, d&#x2019;autant</span>
<span 
class="ecti-1200">meilleure que </span><!--l. 308--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mi 
>K</mi></math>
<span 
class="ecti-1200">est grand.</span>
</p>
   </div>
<!--l. 312--><p class="noindent">Il est possible d&#x2019;adapter ce qui pr&#x00E9;c&#x00E8;de au cas de donn&#x00E9;es issues d&#x2019;un processus de
type ARMA, c&#x2019;est l&#x2019;objet du Chapitre 2.
</p><!--l. 316--><p class="indent">   Le Chapitre 3 est consacr&#x00E9; &#x00E0; un probl&#x00E8;me connexe. On pourrait en effet supposer,
dans le m&#x00EA;me ordre d&#x2019;id&#x00E9;e de la probl&#x00E9;matique pr&#x00E9;c&#x00E9;dente, que les erreurs
<!--l. 318--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><msub><mrow 
><mi 
>&#x03B5;</mi></mrow><mrow 
><mi 
>t</mi></mrow></msub 
></math> du mod&#x00E8;le
ARMA sont Gaussiennes et se demander si ces erreurs sont engendr&#x00E9;es par un processus
bruit blanc ou, ce qui est &#x00E9;quivalent dans ce cas de figure, s&#x2019;il y a ind&#x00E9;pendance s&#x00E9;rielle
entre les <!--l. 321--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><msub><mrow 
><mi 
>&#x03B5;</mi></mrow><mrow 
><mi 
>t</mi></mrow></msub 
></math>.
Dans l&#x2019;optique d&#x2019;une future g&#x00E9;n&#x00E9;ralisation des r&#x00E9;sultats du Chapitre 2 au cas d&#x2019;un
ARMA multivari&#x00E9;, il semble int&#x00E9;ressant de construire un test d&#x2019;ind&#x00E9;pendance
s&#x00E9;rielle pour des vecteurs al&#x00E9;atoires. De plus, afin de mieux appr&#x00E9;hender la
complexit&#x00E9; du probl&#x00E8;me, il s&#x2019;av&#x00E8;re avantageux d&#x2019;&#x00E9;chelonner la r&#x00E9;ponse &#x00E0; cette

question en commen&#x00E7;ant par b&#x00E2;tir un test d&#x2019;ind&#x00E9;pendance dans le cas non
s&#x00E9;riel.
<br class="newline" />
</p><!--l. 329--><p class="indent">   La construction de ce test non param&#x00E9;trique s&#x2019;appuie sur une caract&#x00E9;risation de
l&#x2019;ind&#x00E9;pendance introduite par Ghoudi et al. (2001)(<a 
  name="dx1-4021"></a><a 
href="#X2001Ghoud191intro">7</a>) et le r&#x00E9;sultat obtenu est une
statistique de type Cram&#x00E9;r-von Mises d&#x2019;un certain processus empirique. Ghoudi et al.
(2001)(<span 
class="ecbx-1200">? </span>) ont d&#x00E9;fini leur processus en utilisant la fonction de r&#x00E9;partition
empirique. Ici, le processus empirique est bas&#x00E9; sur la fonction caract&#x00E9;ristique
empirique multivari&#x00E9;e. Pour &#x00EA;tre plus formel, consid&#x00E9;rons le vecteur al&#x00E9;atoire
<!--l. 337--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mi 
>&#x03B5;</mi> <mo 
class="MathClass-rel">=</mo> <mrow><mo 
class="MathClass-open">(</mo><mrow><msup><mrow 
><mi 
>&#x03B5;</mi></mrow><mrow 
><mrow><mo 
class="MathClass-open">(</mo><mrow><mn>1</mn></mrow><mo 
class="MathClass-close">)</mo></mrow></mrow></msup 
><mo 
class="MathClass-punc">,</mo><mo 
class="MathClass-op">&#x2026;</mo><mo 
class="MathClass-punc">,</mo><msup><mrow 
><mi 
>&#x03B5;</mi></mrow><mrow 
><mrow><mo 
class="MathClass-open">(</mo><mrow><mi 
>p</mi></mrow><mo 
class="MathClass-close">)</mo></mrow></mrow></msup 
></mrow><mo 
class="MathClass-close">)</mo></mrow></math>, constitu&#x00E9; de
<!--l. 337--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mi 
>p</mi></math> sous-vecteurs
de dimension <!--l. 337--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mi 
>q</mi></math>
et le vecteur <!--l. 338--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mi 
>t</mi> <mo 
class="MathClass-rel">=</mo> <mrow><mo 
class="MathClass-open">(</mo><mrow><msup><mrow 
><mi 
>t</mi></mrow><mrow 
><mrow><mo 
class="MathClass-open">(</mo><mrow><mn>1</mn></mrow><mo 
class="MathClass-close">)</mo></mrow></mrow></msup 
><mo 
class="MathClass-punc">,</mo><mo 
class="MathClass-op">&#x2026;</mo><mo 
class="MathClass-punc">,</mo><msup><mrow 
><mi 
>t</mi></mrow><mrow 
><mrow><mo 
class="MathClass-open">(</mo><mrow><mi 
>p</mi></mrow><mo 
class="MathClass-close">)</mo></mrow></mrow></msup 
></mrow><mo 
class="MathClass-close">)</mo></mrow></math>
partitionn&#x00E9; de la m&#x00EA;me fa&#x00E7;on. En outre, pour tout
<!--l. 340--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mi 
>A</mi> <mo 
class="MathClass-rel">&#x2282;</mo><mrow><mo 
class="MathClass-open">{</mo><mrow><mn>1</mn><mo 
class="MathClass-punc">,</mo><mo 
class="MathClass-op">&#x2026;</mo><mo 
class="MathClass-punc">,</mo><mi 
>p</mi></mrow><mo 
class="MathClass-close">}</mo></mrow></math>
de cardinalit&#x00E9; sup&#x00E9;rieure &#x00E0; 1, introduisons la fonction
<!--l. 342--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><msub><mrow 
><mi 
>&#x03BC;</mi></mrow><mrow 
><mi 
>A</mi></mrow></msub 
></math>
d&#x00E9;finie par
</p>
   <center class="math-display"><!--l. 343--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="display"><mrow 
>
                    <msub><mrow 
><mi 
>&#x03BC;</mi></mrow><mrow 
><mi 
>A</mi></mrow></msub 
><mrow><mo 
class="MathClass-open">(</mo><mrow><mi 
>t</mi></mrow><mo 
class="MathClass-close">)</mo></mrow> <mo 
class="MathClass-rel">=</mo><msub><mrow 
> <mo 
class="MathClass-op">&#x2211;</mo>
   </mrow><mrow 
><mi 
>B</mi><mo 
class="MathClass-rel">&#x2282;</mo><mi 
>A</mi></mrow></msub 
><msup><mrow 
><mrow><mo 
class="MathClass-open">(</mo><mrow><mo 
class="MathClass-bin">&#x2212;</mo><mn>1</mn></mrow><mo 
class="MathClass-close">)</mo></mrow></mrow><mrow 
><mo 
class="MathClass-rel">&#x2223;</mo><mi 
>A</mi><mo 
class="MathClass-bin">&#x2216;</mo><mi 
>B</mi><mo 
class="MathClass-rel">&#x2223;</mo></mrow></msup 
><msub><mrow 
><mi 
>C</mi></mrow><mrow 
>
<mi 
>p</mi></mrow></msub 
><mrow><mo 
class="MathClass-open">(</mo><mrow><msup><mrow 
><mi 
>t</mi></mrow><mrow 
><mi 
>B</mi></mrow></msup 
></mrow><mo 
class="MathClass-close">)</mo></mrow><msub><mrow 
> <mo 
class="MathClass-op">&#x220F;</mo>
  </mrow><mrow 
><mi 
>j</mi><mo 
class="MathClass-rel">&#x2208;</mo><mi 
>A</mi><mo 
class="MathClass-bin">&#x2216;</mo><mi 
>B</mi></mrow></msub 
><msup><mrow 
><mi 
>C</mi></mrow><mrow 
><mrow><mo 
class="MathClass-open">(</mo><mrow><mi 
>j</mi></mrow><mo 
class="MathClass-close">)</mo></mrow></mrow></msup 
><mrow><mo 
class="MathClass-open">(</mo><mrow><msup><mrow 
><mi 
>t</mi></mrow><mrow 
><mrow><mo 
class="MathClass-open">(</mo><mrow><mi 
>j</mi></mrow><mo 
class="MathClass-close">)</mo></mrow></mrow></msup 
></mrow><mo 
class="MathClass-close">)</mo></mrow>
</mrow></math></center>
<!--l. 346--><p class="nopar">
avec
</p>

   <center class="math-display"><!--l. 348--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="display"><mrow 
><msup><mrow 
>
<mrow><mo 
class="MathClass-open">(</mo><mrow><msup><mrow 
><mi 
>t</mi></mrow><mrow 
><mi 
>B</mi></mrow></msup 
></mrow><mo 
class="MathClass-close">)</mo></mrow></mrow><mrow 
><mrow><mo 
class="MathClass-open">(</mo><mrow><mi 
>i</mi></mrow><mo 
class="MathClass-close">)</mo></mrow></mrow></msup 
> <mo 
class="MathClass-rel">=</mo> <mfenced separators="" 
open="{"  close="" ><mrow><mtable  align="axis"  
equalrows="false" equalcolumns="false" class="array"><mtr><mtd 
class="array"  columnalign="left"><msup><mrow 
><mi 
>t</mi></mrow><mrow 
><mrow><mo 
class="MathClass-open">(</mo><mrow><mi 
>i</mi></mrow><mo 
class="MathClass-close">)</mo></mrow></mrow></msup 
></mtd><mtd 
class="array"  columnalign="left"><mspace width="1em" class="quad"/><mi 
>i</mi> <mo 
class="MathClass-rel">&#x2208;</mo> <mi 
>B</mi><mo 
class="MathClass-punc">,</mo>    </mtd>
</mtr><mtr><mtd 
class="array"  columnalign="left"><mn>0</mn>  </mtd><mtd 
class="array"  columnalign="left"><mspace width="1em" class="quad"/><mi 
>i</mi> <mo 
class="MathClass-rel">&#x2208;</mo> <msub><mrow 
><mi 
>I</mi></mrow><mrow 
><mi 
>p</mi></mrow></msub 
><mo 
class="MathClass-bin">&#x2216;</mo><mi 
>B</mi><mo 
class="MathClass-punc">.</mo></mtd></mtr> <!--ll--></mtable>                                                                            </mrow></mfenced>
</mrow></math></center>
<!--l. 355--><p class="nopar">
L&#x2019;objet <!--l. 356--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><msub><mrow 
><mi 
>C</mi></mrow><mrow 
><mi 
>p</mi></mrow></msub 
></math> est la fonction
caract&#x00E9;ristique conjointe de <!--l. 357--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mi 
>&#x03B5;</mi></math>
et les <!--l. 357--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><msup><mrow 
><mi 
>C</mi></mrow><mrow 
><mrow><mo 
class="MathClass-open">(</mo><mrow><mi 
>j</mi></mrow><mo 
class="MathClass-close">)</mo></mrow></mrow></msup 
></math>
sont les fonctions caract&#x00E9;ristiques des marginales
<!--l. 358--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><msup><mrow 
><mi 
>&#x03B5;</mi></mrow><mrow 
><mrow><mo 
class="MathClass-open">(</mo><mrow><mi 
>j</mi></mrow><mo 
class="MathClass-close">)</mo></mrow></mrow></msup 
></math>. Il est alors possible de montrer
que <!--l. 360--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><msup><mrow 
><mi 
>&#x03B5;</mi></mrow><mrow 
><mrow><mo 
class="MathClass-open">(</mo><mrow><mn>1</mn></mrow><mo 
class="MathClass-close">)</mo></mrow></mrow></msup 
><mo 
class="MathClass-punc">,</mo><mo 
class="MathClass-op">&#x2026;</mo><mo 
class="MathClass-punc">,</mo><msup><mrow 
><mi 
>&#x03B5;</mi></mrow><mrow 
><mrow><mo 
class="MathClass-open">(</mo><mrow><mi 
>p</mi></mrow><mo 
class="MathClass-close">)</mo></mrow></mrow></msup 
></math> sont ind&#x00E9;pendants si
et seulement si <!--l. 361--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><msub><mrow 
><mi 
>&#x03BC;</mi></mrow><mrow 
><mi 
>A</mi></mrow></msub 
> <mo 
class="MathClass-rel">&#x2261;</mo> <mn>0</mn></math>. Disposant
d&#x2019;un &#x00E9;chantillon <!--l. 362--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><msub><mrow 
><mi 
>&#x03B5;</mi></mrow><mrow 
><mn>1</mn></mrow></msub 
><mo 
class="MathClass-punc">,</mo><mo 
class="MathClass-op">&#x2026;</mo><mo 
class="MathClass-punc">,</mo><msub><mrow 
><mi 
>&#x03B5;</mi></mrow><mrow 
><mi 
>n</mi></mrow></msub 
></math>,
cela am&#x00E8;ne assez naturellement &#x00E0; d&#x00E9;finir le processus
<!--l. 363--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><msub><mrow 
><mi 
>R</mi></mrow><mrow 
><mi 
>n</mi><mo 
class="MathClass-punc">,</mo><mi 
>A</mi></mrow></msub 
></math>, sous l&#x2019;hypoth&#x00E8;se de
multinormalit&#x00E9; des <!--l. 364--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><msubsup><mrow 
><mi 
>&#x03B5;</mi></mrow><mrow 
><mi 
>i</mi></mrow><mrow 
><mrow><mo 
class="MathClass-open">(</mo><mrow><mi 
>j</mi></mrow><mo 
class="MathClass-close">)</mo></mrow></mrow></msubsup 
></math>,
par </p><table class="equation"><tr><td> <a 
  name="x1-4022r4"></a>
<!--l. 365--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="display">
             <msub><mrow 
><mi 
>R</mi></mrow><mrow 
><mi 
>n</mi><mo 
class="MathClass-punc">,</mo><mi 
>A</mi></mrow></msub 
><mrow><mo 
class="MathClass-open">(</mo><mrow><mi 
>t</mi></mrow><mo 
class="MathClass-close">)</mo></mrow> <mo 
class="MathClass-rel">=</mo> <msqrt><mrow><mi 
>n</mi></mrow></msqrt><msub><mrow 
><mo 
class="MathClass-op">&#x2211;</mo>
     </mrow><mrow 
><mi 
>B</mi><mo 
class="MathClass-rel">&#x2282;</mo><mi 
>A</mi></mrow></msub 
><msup><mrow 
><mrow><mo 
class="MathClass-open">(</mo><mrow><mo 
class="MathClass-bin">&#x2212;</mo><mn>1</mn></mrow><mo 
class="MathClass-close">)</mo></mrow></mrow><mrow 
><mo 
class="MathClass-rel">&#x2223;</mo><mi 
>A</mi><mo 
class="MathClass-bin">&#x2216;</mo><mi 
>B</mi><mo 
class="MathClass-rel">&#x2223;</mo></mrow></msup 
><msub><mrow 
><mi 
>&#x03C6;</mi></mrow><mrow 
>
<mi 
>n</mi><mo 
class="MathClass-punc">,</mo><mi 
>p</mi></mrow></msub 
><mrow><mo 
class="MathClass-open">(</mo><mrow><msup><mrow 
><mi 
>t</mi></mrow><mrow 
><mi 
>B</mi></mrow></msup 
></mrow><mo 
class="MathClass-close">)</mo></mrow><msub><mrow 
> <mo 
class="MathClass-op">&#x220F;</mo>
  </mrow><mrow 
><mi 
>i</mi><mo 
class="MathClass-rel">&#x2208;</mo><mi 
>A</mi><mo 
class="MathClass-bin">&#x2216;</mo><mi 
>B</mi></mrow></msub 
><mi 
>&#x03C6;</mi><mrow><mo 
class="MathClass-open">(</mo><mrow><msup><mrow 
><mi 
>t</mi></mrow><mrow 
><mrow><mo 
class="MathClass-open">(</mo><mrow><mi 
>i</mi></mrow><mo 
class="MathClass-close">)</mo></mrow></mrow></msup 
></mrow><mo 
class="MathClass-close">)</mo></mrow>
</math>
<!--l. 369--><p class="nopar"></p></td><td class="eq-no">(4)</td></tr></table>
o&#x00F9;

   <center class="math-display"><!--l. 371--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="display"><mrow 
>
                                <msub><mrow 
><mi 
>&#x03C6;</mi></mrow><mrow 
><mi 
>n</mi><mo 
class="MathClass-punc">,</mo><mi 
>p</mi></mrow></msub 
><mrow><mo 
class="MathClass-open">(</mo><mrow><mi 
>t</mi></mrow><mo 
class="MathClass-close">)</mo></mrow> <mo 
class="MathClass-rel">=</mo> <mfrac><mrow 
><mn>1</mn></mrow> 
<mrow 
><mi 
>n</mi></mrow></mfrac><msubsup><mrow 
> <mo 
class="MathClass-op">&#x2211;</mo>
    </mrow><mrow 
><mi 
>j</mi><mo 
class="MathClass-rel">=</mo><mn>1</mn></mrow><mrow 
><mi 
>n</mi></mrow></msubsup 
><mo 
> exp</mo><!--nolimits--><mrow><mo 
class="MathClass-open">(</mo><mrow><mstyle mathvariant="normal"><mi 
>i</mi></mstyle><mrow><mo 
class="MathClass-open">&#x2329;</mo><mrow><mi 
>t</mi><mo 
class="MathClass-punc">,</mo><msub><mrow 
><mi 
>&#x03B5;</mi></mrow><mrow 
>
<mi 
>j</mi></mrow></msub 
></mrow><mo 
class="MathClass-close">&#x232A;</mo></mrow></mrow><mo 
class="MathClass-close">)</mo></mrow>
</mrow></math></center>
<!--l. 374--><p class="nopar">
est la fonction caract&#x00E9;ristique empirique de l&#x2019;&#x00E9;chantillon et
<!--l. 375--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mi 
>&#x03C6;</mi></math>
est la fonction caract&#x00E9;ristique d&#x2019;une loi normale
<!--l. 376--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><msub><mrow 
><mi 
>N</mi></mrow><mrow 
><mi 
>q</mi></mrow></msub 
><mrow><mo 
class="MathClass-open">(</mo><mrow><mn>0</mn><mo 
class="MathClass-punc">,</mo><mi 
>I</mi></mrow><mo 
class="MathClass-close">)</mo></mrow></math>. La
statistique de Cram&#x00E9;r-von Mises et le test qui en d&#x00E9;coule seront construits &#x00E0; partir de
ce processus. Introduisons maintenant quelques d&#x00E9;finitions et notations utiles pour la
suite portant sur la convergence faible d&#x2019;&#x00E9;l&#x00E9;ments al&#x00E9;atoires dans un espace m&#x00E9;trique
<!--l. 380--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mi 
>S</mi></math>.
</p>
   <div class="newtheorem">
<!--l. 383--><p class="noindent"><span class="head">
<a 
  name="x1-4023r4"></a>
<span 
class="ecbx-1200">D</span><span 
class="ecbx-1200">&#x00E9;</span><span 
class="ecbx-1200">finition 4.</span></span>
   <span 
class="ecti-1200">Convergence en loi</span>
<br class="newline" /><span 
class="ecti-1200">La loi de </span><!--l. 385--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mi 
>X</mi></math> <span 
class="ecti-1200">est par d</span><span 
class="ecti-1200">&#x00E9;</span><span 
class="ecti-1200">finition</span>
<span 
class="ecti-1200">la mesure de probabilit</span><span 
class="ecti-1200">&#x00E9;</span> <!--l. 386--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mi 
>P</mi> <mo 
class="MathClass-rel">=</mo> <!--mstyle 
class="text"--><mtext >P</mtext><!--/mstyle--><msup><mrow 
><mi 
>X</mi></mrow><mrow 
><mo 
class="MathClass-bin">&#x2212;</mo><mn>1</mn></mrow></msup 
></math>
<span 
class="ecti-1200">sur (</span><!--l. 386--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mi 
>S</mi><mo 
class="MathClass-punc">,</mo><mi 
>S</mi></math><span 
class="ecti-1200">)</span>&#x00A0;<span 
class="ecti-1200">:</span>
</p>
   <center class="math-display"><!--l. 387--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="display"><mrow 
>
          <mi 
>P</mi><mrow><mo 
class="MathClass-open">(</mo><mrow><mi 
>A</mi></mrow><mo 
class="MathClass-close">)</mo></mrow> <mo 
class="MathClass-rel">=</mo> <!--mstyle 
class="text"--><mtext >P</mtext><!--/mstyle--><mrow><mo 
class="MathClass-open">(</mo><mrow><msup><mrow 
><mi 
>X</mi></mrow><mrow 
><mo 
class="MathClass-bin">&#x2212;</mo><mn>1</mn></mrow></msup 
><mrow><mo 
class="MathClass-open">(</mo><mrow><mi 
>A</mi></mrow><mo 
class="MathClass-close">)</mo></mrow></mrow><mo 
class="MathClass-close">)</mo></mrow> <mo 
class="MathClass-rel">=</mo> <!--mstyle 
class="text"--><mtext >P</mtext><!--/mstyle--><mrow><mo 
class="MathClass-open">{</mo><mrow><mi 
>&#x03C9;</mi> <mo 
class="MathClass-rel">&#x2208;</mo> <mi 
>&#x03A9;</mi><mo 
class="MathClass-punc">;</mo> <mi 
>X</mi><mrow><mo 
class="MathClass-open">(</mo><mrow><mi 
>&#x03C9;</mi></mrow><mo 
class="MathClass-close">)</mo></mrow> <mo 
class="MathClass-rel">&#x2208;</mo> <mi 
>A</mi></mrow><mo 
class="MathClass-close">}</mo></mrow> <mo 
class="MathClass-rel">=</mo> <!--mstyle 
class="text"--><mtext >P</mtext><!--/mstyle--><mrow><mo 
class="MathClass-open">{</mo><mrow><mi 
>X</mi> <mo 
class="MathClass-rel">&#x2208;</mo> <mi 
>A</mi></mrow><mo 
class="MathClass-close">}</mo></mrow><mo 
class="MathClass-punc">,</mo> <mi 
>A</mi> <mo 
class="MathClass-rel">&#x2208;</mo><mi 
>S</mi><mo 
class="MathClass-punc">.</mo>
</mrow></math></center>
<!--l. 390--><p class="nopar">
<span 
class="ecti-1200">On dit qu&#x2019;une suite d&#x2019;</span><span 
class="ecti-1200">&#x00E9;</span><span 
class="ecti-1200">l</span><span 
class="ecti-1200">&#x00E9;</span><span 
class="ecti-1200">ments al</span><span 
class="ecti-1200">&#x00E9;</span><span 
class="ecti-1200">atoires</span>

<!--l. 391--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mrow><mo 
class="MathClass-open">{</mo><mrow><msub><mrow 
><mi 
>X</mi></mrow><mrow 
><mi 
>n</mi></mrow></msub 
></mrow><mo 
class="MathClass-close">}</mo></mrow></math> <span 
class="ecti-1200">converge en loi vers un</span>
<span 
class="ecti-1200">&#x00E9;</span><span 
class="ecti-1200">l</span><span 
class="ecti-1200">&#x00E9;</span><span 
class="ecti-1200">ment al</span><span 
class="ecti-1200">&#x00E9;</span><span 
class="ecti-1200">atoire </span><!--l. 392--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mi 
>X</mi></math>
<span 
class="ecti-1200">sur </span><!--l. 392--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mi 
>S</mi></math><span 
class="ecti-1200">, et on</span>
<span 
class="ecti-1200">&#x00E9;</span><span 
class="ecti-1200">crit </span><!--l. 393--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><msub><mrow 
><mi 
>X</mi></mrow><mrow 
><mi 
>n</mi></mrow></msub 
><mover><mrow 
><mo 
class="MathClass-rel">&#x2192;</mo></mrow><mrow 
><mi 
>L</mi></mrow></mover><mi 
>X</mi></math><span 
class="ecti-1200">, si</span>
<span 
class="ecti-1200">les lois </span><!--l. 393--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><msub><mrow 
><mi 
>P</mi></mrow><mrow 
><mi 
>n</mi></mrow></msub 
></math> <span 
class="ecti-1200">des</span>
<!--l. 393--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><msub><mrow 
><mi 
>X</mi></mrow><mrow 
><mi 
>n</mi></mrow></msub 
></math> <span 
class="ecti-1200">convergent</span>
<span 
class="ecti-1200">faiblement vers la loi </span><!--l. 394--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mi 
>P</mi></math>
<span 
class="ecti-1200">de </span><!--l. 394--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mi 
>X</mi></math> <span 
class="ecti-1200">et on</span>
<span 
class="ecti-1200">note </span><!--l. 395--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><msub><mrow 
><mi 
>P</mi></mrow><mrow 
><mi 
>n</mi></mrow></msub 
> <mo 
class="MathClass-rel">&#x21D2;</mo> <mi 
>P</mi></math><span 
class="ecti-1200">.</span>
</p>
   </div>
<!--l. 399--><p class="indent">   Le th&#x00E9;or&#x00E8;me qui suit (Billingsley (1968), p. 30)(<a 
  name="dx1-4024"></a><a 
href="#X1968Billiintro">1</a>) est tr&#x00E8;s utile dans la pratique
puisqu&#x2019;il permet de prouver la convergence faible des mesures induites sur
<!--l. 400--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mi mathvariant="double-struck">&#x211D;</mi></math> par diff&#x00E9;rentes
fonctions r&#x00E9;elles <!--l. 401--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mi 
>h</mi></math>
&#x00E0; partir de la convergence faible dans des espaces m&#x00E9;triques g&#x00E9;n&#x00E9;raux.
<br class="newline" />
</p>
   <div class="newtheorem">
<!--l. 403--><p class="noindent"><span class="head">
<a 
  name="x1-4025r1"></a>
<span 
class="ecbx-1200">Th</span><span 
class="ecbx-1200">&#x00E9;</span><span 
class="ecbx-1200">or</span><span 
class="ecbx-1200">&#x00E8;</span><span 
class="ecbx-1200">me 1.</span></span>
   <span 
class="ecti-1200">Soit </span><!--l. 404--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mi 
>h</mi> <mo 
class="MathClass-punc">:</mo> <mi 
>S</mi><mo 
class="MathClass-rel">&#x2192;</mo><msup><mrow 
><mi 
>S</mi></mrow><mrow 
><mi 
>&#x2032;</mi></mrow></msup 
></math>
<span 
class="ecti-1200">mesurable, et soit </span><!--l. 404--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><msub><mrow 
><mi 
>D</mi></mrow><mrow 
><mi 
>h</mi></mrow></msub 
></math>
<span 
class="ecti-1200">l&#x2019;ensemble des points de discontinuit</span><span 
class="ecti-1200">&#x00E9;</span> <span 
class="ecti-1200">de </span><!--l. 405--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mi 
>h</mi></math><span 
class="ecti-1200">.</span>
<br class="newline" /><span 
class="ecti-1200">Si </span><!--l. 406--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><msub><mrow 
><mi 
>P</mi></mrow><mrow 
><mi 
>n</mi></mrow></msub 
> <mo 
class="MathClass-rel">&#x21D2;</mo> <mi 
>P</mi></math>
<span 
class="ecti-1200">et </span><!--l. 406--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mi 
>P</mi><mrow><mo 
class="MathClass-open">(</mo><mrow><msub><mrow 
><mi 
>D</mi></mrow><mrow 
><mi 
>h</mi></mrow></msub 
></mrow><mo 
class="MathClass-close">)</mo></mrow> <mo 
class="MathClass-rel">=</mo> <mn>0</mn></math><span 
class="ecti-1200">,</span>
<span 
class="ecti-1200">alors </span><!--l. 406--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><msub><mrow 
><mi 
>P</mi></mrow><mrow 
><mi 
>n</mi></mrow></msub 
><msup><mrow 
><mi 
>h</mi></mrow><mrow 
><mo 
class="MathClass-bin">&#x2212;</mo><mn>1</mn></mrow></msup 
> <mo 
class="MathClass-rel">&#x21D2;</mo> <mi 
>P</mi><msup><mrow 
><mi 
>h</mi></mrow><mrow 
><mo 
class="MathClass-bin">&#x2212;</mo><mn>1</mn></mrow></msup 
></math><span 
class="ecti-1200">.</span>
<br class="newline" />
</p>
   </div>
<!--l. 409--><p class="indent">   On va maintenant donner une caract&#x00E9;risation pratique de la convergence faible
mais pour cela on a pr&#x00E9;alablement besoin d&#x2019;introduire les deux d&#x00E9;finitions
suivantes.
</p>
   <div class="newtheorem">
<!--l. 414--><p class="noindent"><span class="head">
<a 
  name="x1-4026r5"></a>
<span 
class="ecbx-1200">D</span><span 
class="ecbx-1200">&#x00E9;</span><span 
class="ecbx-1200">finition 5.</span></span>

   <span 
class="ecti-1200">Compacitude relative</span>
<br class="newline" /><span 
class="ecti-1200">Soit </span><!--l. 416--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mi 
>&#x03A0;</mi></math>
<span 
class="ecti-1200">une famille de mesures de probabilit</span><span 
class="ecti-1200">&#x00E9;</span> <span 
class="ecti-1200">sur </span><!--l. 417--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mrow><mo 
class="MathClass-open">(</mo><mrow><mi 
>S</mi><mo 
class="MathClass-punc">,</mo><mi 
>S</mi></mrow><mo 
class="MathClass-close">)</mo></mrow></math><span 
class="ecti-1200">.</span>
<span 
class="ecti-1200">On dit que </span><!--l. 417--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mi 
>&#x03A0;</mi></math>
<span 
class="ecti-1200">est relativement compacte si toute suite d&#x2019;</span><span 
class="ecti-1200">&#x00E9;</span><span 
class="ecti-1200">l</span><span 
class="ecti-1200">&#x00E9;</span><span 
class="ecti-1200">ments de </span><!--l. 418--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mi 
>&#x03A0;</mi></math>
<span 
class="ecti-1200">contient une sous-suite faiblement convergente.</span>
</p>
   </div>
   <div class="newtheorem">
<!--l. 422--><p class="noindent"><span class="head">
<a 
  name="x1-4027r6"></a>
<span 
class="ecbx-1200">D</span><span 
class="ecbx-1200">&#x00E9;</span><span 
class="ecbx-1200">finition 6.</span></span>
   <span 
class="ecti-1200">Lois de dimension finie</span>
<br class="newline" /><span 
class="ecti-1200">Soit </span><!--l. 424--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mi 
>S</mi> <mo 
class="MathClass-rel">=</mo> <mi 
>C</mi><mrow><mo 
class="MathClass-open">(</mo><mrow><mi 
>E</mi><mo 
class="MathClass-punc">,</mo><mi 
>F</mi></mrow><mo 
class="MathClass-close">)</mo></mrow></math> <span 
class="ecti-1200">l&#x2019;ensemble des</span>
<span 
class="ecti-1200">fonctions continues de </span><!--l. 424--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mi 
>E</mi></math>
<span 
class="ecti-1200">dans </span><!--l. 424--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mi 
>F</mi></math> <span 
class="ecti-1200">et</span>
<!--l. 425--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mi 
>S</mi></math> <span 
class="ecti-1200">sa tribu bor</span><span 
class="ecti-1200">&#x00E9;</span><span 
class="ecti-1200">lienne. Soit</span>
<!--l. 426--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mrow><mo 
class="MathClass-open">{</mo><mrow><msub><mrow 
><mi 
>P</mi></mrow><mrow 
><mi 
>n</mi></mrow></msub 
></mrow><mo 
class="MathClass-close">}</mo></mrow></math> <span 
class="ecti-1200">une famille de mesures de</span>
<span 
class="ecti-1200">probabilit</span><span 
class="ecti-1200">&#x00E9;</span> <span 
class="ecti-1200">sur </span><!--l. 426--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mi 
>S</mi></math><span 
class="ecti-1200">. Les lois</span>
<span 
class="ecti-1200">de dimension finie des </span><!--l. 427--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><msub><mrow 
><mi 
>P</mi></mrow><mrow 
><mi 
>n</mi></mrow></msub 
></math>
<span 
class="ecti-1200">sont les mesures </span><!--l. 427--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><msub><mrow 
><mi 
>P</mi></mrow><mrow 
><mi 
>n</mi></mrow></msub 
><msubsup><mrow 
><mi 
>&#x03C0;</mi></mrow><mrow 
><msub><mrow 
><mi 
>t</mi></mrow><mrow 
><mn>1</mn></mrow></msub 
><mo 
class="MathClass-punc">,</mo><mo 
class="MathClass-op">&#x2026;</mo><mo 
class="MathClass-punc">,</mo><msub><mrow 
><mi 
>t</mi></mrow><mrow 
><mi 
>k</mi></mrow></msub 
></mrow><mrow 
><mo 
class="MathClass-bin">&#x2212;</mo><mn>1</mn></mrow></msubsup 
> <mo 
class="MathClass-punc">,</mo><mi 
>&#x2200;</mi><mi 
>k</mi> <mo 
class="MathClass-rel">=</mo> <mn>1</mn><mo 
class="MathClass-punc">,</mo> <mn>2</mn><mo 
class="MathClass-punc">,</mo><mo 
class="MathClass-op">&#x2026;</mo><mo 
class="MathClass-punc">,</mo><mi 
>&#x2200;</mi><msub><mrow 
><mi 
>t</mi></mrow><mrow 
>
<mn>1</mn></mrow></msub 
><mo 
class="MathClass-punc">,</mo><mo 
class="MathClass-op">&#x2026;</mo><mo 
class="MathClass-punc">,</mo><msub><mrow 
><mi 
>t</mi></mrow><mrow 
><mi 
>k</mi></mrow></msub 
> <mo 
class="MathClass-rel">&#x2208;</mo> <mi 
>E</mi></math>
<span 
class="ecti-1200">o</span><span 
class="ecti-1200">&#x00F9;</span>
</p><!--l. 429--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="display">
<mtable 
class="eqnarray-star" columnalign="right center left" >
<mtr><mtd 
class="eqnarray-1"> <msub><mrow 
><mi 
>&#x03C0;</mi></mrow><mrow 
><msub><mrow 
><mi 
>t</mi></mrow><mrow 
><mn>1</mn></mrow></msub 
><mo 
class="MathClass-punc">,</mo><mo 
class="MathClass-op">&#x2026;</mo><mo 
class="MathClass-punc">,</mo><msub><mrow 
><mi 
>t</mi></mrow><mrow 
><mi 
>k</mi></mrow></msub 
></mrow></msub 
> <mo 
class="MathClass-punc">:</mo> <mi 
>C</mi><mrow><mo 
class="MathClass-open">(</mo><mrow><mi 
>E</mi><mo 
class="MathClass-punc">,</mo><mi 
>F</mi></mrow><mo 
class="MathClass-close">)</mo></mrow></mtd><mtd 
class="eqnarray-2">   <mo 
class="MathClass-rel">&#x2192;</mo></mtd><mtd 
class="eqnarray-3">   <msup><mrow 
><mi 
>F</mi></mrow><mrow 
><mi 
>k</mi></mrow></msup 
>            </mtd><mtd 
class="eqnarray-4"> <mtext class="eqnarray"></mtext></mtd>
</mtr><mtr><mtd 
class="eqnarray-1">               <mi 
>x</mi></mtd><mtd 
class="eqnarray-2">   <mo 
class="MathClass-rel">&#x21A6;</mo></mtd><mtd 
class="eqnarray-3">   <mrow><mo 
class="MathClass-open">(</mo><mrow><mi 
>x</mi><mrow><mo 
class="MathClass-open">(</mo><mrow><msub><mrow 
><mi 
>t</mi></mrow><mrow 
><mn>1</mn></mrow></msub 
></mrow><mo 
class="MathClass-close">)</mo></mrow><mo 
class="MathClass-punc">,</mo><mo 
class="MathClass-op">&#x2026;</mo><mo 
class="MathClass-punc">,</mo><mi 
>x</mi><mrow><mo 
class="MathClass-open">(</mo><mrow><msub><mrow 
><mi 
>t</mi></mrow><mrow 
><mi 
>k</mi></mrow></msub 
></mrow><mo 
class="MathClass-close">)</mo></mrow></mrow><mo 
class="MathClass-close">)</mo></mrow><mo 
class="MathClass-punc">.</mo></mtd><mtd 
class="eqnarray-4"> <mtext class="eqnarray"></mtext></mtd>                                          </mtr></mtable>
</math>
<!--l. 432--><p class="nopar">
<span 
class="ecti-1200">On dit que les lois de dimension finie des</span>

<!--l. 433--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><msub><mrow 
><mi 
>P</mi></mrow><mrow 
><mi 
>n</mi></mrow></msub 
></math> <span 
class="ecti-1200">convergent faiblement</span>
<span 
class="ecti-1200">vers celles de </span><!--l. 434--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mi 
>P</mi></math>
<span 
class="ecti-1200">si </span><!--l. 435--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><msub><mrow 
><mi 
>P</mi></mrow><mrow 
><mi 
>n</mi></mrow></msub 
><msubsup><mrow 
><mi 
>&#x03C0;</mi></mrow><mrow 
><msub><mrow 
><mi 
>t</mi></mrow><mrow 
><mn>1</mn></mrow></msub 
><mo 
class="MathClass-punc">,</mo><mo 
class="MathClass-op">&#x2026;</mo><mo 
class="MathClass-punc">,</mo><msub><mrow 
><mi 
>t</mi></mrow><mrow 
><mi 
>k</mi></mrow></msub 
></mrow><mrow 
><mo 
class="MathClass-bin">&#x2212;</mo><mn>1</mn></mrow></msubsup 
> <mo 
class="MathClass-rel">&#x21D2;</mo> <mi 
>P</mi><msubsup><mrow 
><mi 
>&#x03C0;</mi></mrow><mrow 
><msub><mrow 
>
<mi 
>t</mi></mrow><mrow 
><mn>1</mn></mrow></msub 
><mo 
class="MathClass-punc">,</mo><mo 
class="MathClass-op">&#x2026;</mo><mo 
class="MathClass-punc">,</mo><msub><mrow 
><mi 
>t</mi></mrow><mrow 
><mi 
>k</mi></mrow></msub 
></mrow><mrow 
><mo 
class="MathClass-bin">&#x2212;</mo><mn>1</mn></mrow></msubsup 
></math><span 
class="ecti-1200">. Lorsque</span>
<!--l. 436--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><msub><mrow 
><mi 
>P</mi></mrow><mrow 
><mi 
>n</mi></mrow></msub 
></math> <span 
class="ecti-1200">et</span>
<!--l. 437--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mi 
>P</mi></math> <span 
class="ecti-1200">sont les lois</span>
<span 
class="ecti-1200">d&#x2019;</span><span 
class="ecti-1200">&#x00E9;</span><span 
class="ecti-1200">l</span><span 
class="ecti-1200">&#x00E9;</span><span 
class="ecti-1200">ments al</span><span 
class="ecti-1200">&#x00E9;</span><span 
class="ecti-1200">atoires </span><!--l. 437--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><msub><mrow 
><mi 
>X</mi></mrow><mrow 
><mi 
>n</mi></mrow></msub 
></math>
<span 
class="ecti-1200">et </span><!--l. 437--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mi 
>X</mi></math> <span 
class="ecti-1200">on </span><span 
class="ecti-1200">&#x00E9;</span><span 
class="ecti-1200">crit</span>
<span 
class="ecti-1200">aussi </span><!--l. 437--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><msub><mrow 
><mi 
>X</mi></mrow><mrow 
><mi 
>n</mi></mrow></msub 
><mover 
class="stackrel"><mrow 
><mo 
class="MathClass-rel">&#x2192;</mo></mrow><mrow 
><mo 
class="MathClass-op"> fd</mo></mrow></mover><mi 
>X</mi></math><span 
class="ecti-1200">.</span>
</p>
   </div>
<!--l. 441--><p class="indent">   Il est facile de montrer que <!--l. 441--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><msub><mrow 
><mi 
>P</mi></mrow><mrow 
><mi 
>n</mi></mrow></msub 
> <mo 
class="MathClass-rel">&#x21D2;</mo> <mi 
>P</mi></math>
si et seulement si les lois de dimension finie des
<!--l. 441--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><msub><mrow 
><mi 
>P</mi></mrow><mrow 
><mi 
>n</mi></mrow></msub 
></math> convergent faiblement
vers celles de <!--l. 442--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mi 
>P</mi></math>
et <!--l. 442--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mrow><mo 
class="MathClass-open">{</mo><mrow><msub><mrow 
><mi 
>P</mi></mrow><mrow 
><mi 
>n</mi></mrow></msub 
></mrow><mo 
class="MathClass-close">}</mo></mrow></math> est
relativement compacte. Une fa&#x00E7;on simple de d&#x00E9;montrer la compacitude
relative d&#x2019;une famille de mesures est d&#x2019;utiliser la notion de tension de cette
famille.
</p>
   <div class="newtheorem">
<!--l. 447--><p class="noindent"><span class="head">
<a 
  name="x1-4029r7"></a>
<span 
class="ecbx-1200">D</span><span 
class="ecbx-1200">&#x00E9;</span><span 
class="ecbx-1200">finition 7.</span></span>
   <span 
class="ecti-1200">Tension d&#x2019;une famille</span>
<br class="newline" /><span 
class="ecti-1200">Une famille </span><!--l. 449--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mi 
>&#x03A0;</mi></math>
<span 
class="ecti-1200">de mesures de probabilit</span><span 
class="ecti-1200">&#x00E9;</span> <span 
class="ecti-1200">sur un espace m</span><span 
class="ecti-1200">&#x00E9;</span><span 
class="ecti-1200">trique g</span><span 
class="ecti-1200">&#x00E9;</span><span 
class="ecti-1200">n</span><span 
class="ecti-1200">&#x00E9;</span><span 
class="ecti-1200">ral</span>
<!--l. 450--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mi 
>S</mi></math> <span 
class="ecti-1200">est</span>
<span 
class="ecti-1200">dite tendue si</span>
</p>
   <center class="math-display"><!--l. 451--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="display"><mrow 
>
                  <mi 
>&#x2200;</mi><mi 
>&#x03B5;</mi> <mo 
class="MathClass-rel">&#x003E;</mo> <mn>0</mn><mo 
class="MathClass-punc">,</mo> <mi 
>&#x2203;</mi><mi 
>K</mi><!--mstyle 
class="text"--><mtext >&#x000A0;compact&#x000A0;tel&#x000A0;que&#x000A0;</mtext><!--/mstyle--><mi 
>P</mi><mrow><mo 
class="MathClass-open">(</mo><mrow><mi 
>K</mi></mrow><mo 
class="MathClass-close">)</mo></mrow> <mo 
class="MathClass-rel">&#x003E;</mo> <mn>1</mn> <mo 
class="MathClass-bin">&#x2212;</mo> <mi 
>&#x03B5;</mi><mo 
class="MathClass-punc">,</mo> <mi 
>&#x2200;</mi><mi 
>P</mi> <mo 
class="MathClass-rel">&#x2208;</mo> <mi 
>&#x03A0;</mi><mo 
class="MathClass-punc">.</mo>
</mrow></math></center>

<!--l. 455--><p class="nopar">
<span 
class="ecti-1200">Une famille d&#x2019;</span><span 
class="ecti-1200">&#x00E9;</span><span 
class="ecti-1200">l</span><span 
class="ecti-1200">&#x00E9;</span><span 
class="ecti-1200">ments al</span><span 
class="ecti-1200">&#x00E9;</span><span 
class="ecti-1200">atoires </span><!--l. 456--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mrow><mo 
class="MathClass-open">{</mo><mrow><msub><mrow 
><mi 
>X</mi></mrow><mrow 
><mi 
>n</mi></mrow></msub 
></mrow><mo 
class="MathClass-close">}</mo></mrow></math>
<span 
class="ecti-1200">est dite tendue si la famille des lois des</span>
<!--l. 457--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><msub><mrow 
><mi 
>X</mi></mrow><mrow 
><mi 
>n</mi></mrow></msub 
></math> <span 
class="ecti-1200">est</span>
<span 
class="ecti-1200">tendue.</span>
</p>
   </div>
<!--l. 461--><p class="noindent">Le r&#x00E9;sultat liant les deux concepts pr&#x00E9;c&#x00E9;dents peut &#x00EA;tre r&#x00E9;sum&#x00E9; ainsi.
</p>
   <div class="newtheorem">
<!--l. 464--><p class="noindent"><span class="head">
<a 
  name="x1-4030r2"></a>
<span 
class="ecbx-1200">Th</span><span 
class="ecbx-1200">&#x00E9;</span><span 
class="ecbx-1200">or</span><span 
class="ecbx-1200">&#x00E8;</span><span 
class="ecbx-1200">me 2.</span></span>
   <span 
class="ecti-1200">Th</span><span 
class="ecti-1200">&#x00E9;</span><span 
class="ecti-1200">or</span><span 
class="ecti-1200">&#x00E8;</span><span 
class="ecti-1200">me de Prohorov</span>
<br class="newline" /><span 
class="ecti-1200">Si</span>
<!--l. 466--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mi 
>&#x03A0;</mi></math>
<span 
class="ecti-1200">est tendue, elle est relativement compacte. Si S est s</span><span 
class="ecti-1200">&#x00E9;</span><span 
class="ecti-1200">parable et complet et si</span>
<!--l. 467--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mi 
>&#x03A0;</mi></math>
<span 
class="ecti-1200">est relativement compact, elle est tendue.</span>
</p>
   </div>
<!--l. 472--><p class="noindent">Dans cette optique, un th&#x00E9;or&#x00E8;me tr&#x00E8;s utilis&#x00E9;, par exemple pour d&#x00E9;montrer la
convergence en loi de la statistique &#x00AB; classique &#x00BB; de Cram&#x00E9;r-von Mises est le
suivant.
</p>
   <div class="newtheorem">
<!--l. 476--><p class="noindent"><span class="head">
<a 
  name="x1-4031r3"></a>
<span 
class="ecbx-1200">Th</span><span 
class="ecbx-1200">&#x00E9;</span><span 
class="ecbx-1200">or</span><span 
class="ecbx-1200">&#x00E8;</span><span 
class="ecbx-1200">me 3.</span></span>
   <span 
class="ecti-1200">(Th</span><span 
class="ecti-1200">&#x00E9;</span><span 
class="ecti-1200">or</span><span 
class="ecti-1200">&#x00E8;</span><span 
class="ecti-1200">me 8.1, Billingsley (1968)(</span><a 
  name="dx1-4032"></a><a 
href="#X1968Billiintro"><span 
class="ecti-1200">1</span></a><span 
class="ecti-1200">))</span>
<br class="newline" /><span 
class="ecti-1200">Soient </span><!--l. 477--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><msub><mrow 
><mi 
>P</mi></mrow><mrow 
><mi 
>n</mi></mrow></msub 
></math><span 
class="ecti-1200">,</span>
<!--l. 477--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mi 
>P</mi></math>
<span 
class="ecti-1200">des mesures de probabilit</span><span 
class="ecti-1200">&#x00E9;</span> <span 
class="ecti-1200">sur </span><!--l. 478--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mrow><mo 
class="MathClass-open">(</mo><mrow><mi 
>C</mi><mrow><mo 
class="MathClass-open">[</mo><mrow><mn>0</mn><mo 
class="MathClass-punc">,</mo> <mn>1</mn></mrow><mo 
class="MathClass-close">]</mo></mrow><mo 
class="MathClass-punc">,</mo><mi 
>C</mi></mrow><mo 
class="MathClass-close">)</mo></mrow></math><span 
class="ecti-1200">.</span>
<span 
class="ecti-1200">Si les lois de dimension finie des </span><!--l. 479--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><msub><mrow 
><mi 
>P</mi></mrow><mrow 
><mi 
>n</mi></mrow></msub 
></math>
<span 
class="ecti-1200">convergent faiblement vers celles de </span><!--l. 480--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mi 
>P</mi></math><span 
class="ecti-1200">,</span>
<span 
class="ecti-1200">et si </span><!--l. 480--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mrow><mo 
class="MathClass-open">{</mo><mrow><msub><mrow 
><mi 
>P</mi></mrow><mrow 
><mi 
>n</mi></mrow></msub 
></mrow><mo 
class="MathClass-close">}</mo></mrow></math>
<span 
class="ecti-1200">est tendue, alors </span><!--l. 480--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><msub><mrow 
><mi 
>P</mi></mrow><mrow 
><mi 
>n</mi></mrow></msub 
> <mo 
class="MathClass-rel">&#x21D2;</mo> <mi 
>P</mi></math><span 
class="ecti-1200">.</span>
</p>

   </div>
<!--l. 484--><p class="indent">   Dans le cas qui nous pr&#x00E9;occupe ici, la fonctionnelle de Cram&#x00E9;r-von Mises,
bas&#x00E9;e sur la fonction caract&#x00E9;ristique empirique, n&#x2019;est m&#x00EA;me pas d&#x00E9;finie sur
<!--l. 485--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mi 
>C</mi><mrow><mo 
class="MathClass-open">(</mo><mrow><msup><mrow 
><mi mathvariant="double-struck">&#x211D;</mi></mrow><mrow 
><mi 
>p</mi><mi 
>q</mi></mrow></msup 
><mo 
class="MathClass-punc">,</mo> <mi mathvariant="double-struck">&#x2102;</mi></mrow><mo 
class="MathClass-close">)</mo></mrow></math> et on ne
pourra pas utiliser le Th&#x00E9;or&#x00E8;me <a 
href="#x1-4025r1">1<!--tex4ht:ref: thprincipal --></a>. Pour r&#x00E9;soudre ce probl&#x00E8;me, on a g&#x00E9;n&#x00E9;ralis&#x00E9; le
Th&#x00E9;or&#x00E8;me 3.3 de Kellermeir (1980)(<a 
  name="dx1-4033"></a><a 
href="#X1980Kelle78intro">9</a>). Par ailleurs, dans le contexte particulier d&#x2019;un
processus bas&#x00E9; sur la fonction caract&#x00E9;ristique empirique, qui prend ses valeurs dans
l&#x2019;ensemble <!--l. 490--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mi mathvariant="double-struck">&#x2102;</mi></math>
des nombres complexes et dont l&#x2019;ensemble des indices est
<!--l. 491--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><msup><mrow 
><mi mathvariant="double-struck">&#x211D;</mi></mrow><mrow 
><mi 
>n</mi></mrow></msup 
></math>, le
probl&#x00E8;me est bien plus compliqu&#x00E9; que dans le cas &#x00AB; classique &#x00BB;. Pour cela, il est utile
d&#x2019;introduire les &#x00E9;l&#x00E9;ments suivants.
<br class="newline" />
</p><!--l. 495--><p class="indent">   Notons <!--l. 495--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mi 
>C</mi><mrow><mo 
class="MathClass-open">(</mo><mrow><msup><mrow 
><mi mathvariant="double-struck">&#x211D;</mi></mrow><mrow 
><mi 
>p</mi><mi 
>q</mi></mrow></msup 
><mo 
class="MathClass-punc">,</mo> <mi mathvariant="double-struck">&#x2102;</mi></mrow><mo 
class="MathClass-close">)</mo></mrow></math> l&#x2019;ensemble des
fonctions continues de <!--l. 496--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><msup><mrow 
><mi mathvariant="double-struck">&#x211D;</mi></mrow><mrow 
><mi 
>p</mi><mi 
>q</mi></mrow></msup 
></math>
dans <!--l. 496--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mi mathvariant="double-struck">&#x2102;</mi></math>.
Sch&#x00E9;matiquement, la correspondance du processus
<!--l. 497--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><msub><mrow 
><mi 
>R</mi></mrow><mrow 
><mi 
>n</mi><mo 
class="MathClass-punc">,</mo><mi 
>A</mi></mrow></msub 
></math> de (<a 
href="#x1-4022r4">4<!--tex4ht:ref: Rnatintro --></a>)
peut se traduire ainsi.
<br class="newline" />
</p><!--l. 499--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="display">
<mtable 
class="eqnarray" columnalign="right center left" >
<mtr><mtd 
class="eqnarray-1"> <msub><mrow 
><mi 
>R</mi></mrow><mrow 
><mi 
>n</mi><mo 
class="MathClass-punc">,</mo><mi 
>A</mi></mrow></msub 
> <mo 
class="MathClass-punc">:</mo> <mrow><mo 
class="MathClass-open">(</mo><mrow><mi 
>&#x03A9;</mi><mo 
class="MathClass-punc">,</mo><mi 
>B</mi><mo 
class="MathClass-punc">,</mo><!--mstyle 
class="text"--><mtext >P</mtext><!--/mstyle--></mrow><mo 
class="MathClass-close">)</mo></mrow></mtd><mtd 
class="eqnarray-2">   <mo 
class="MathClass-rel">&#x2192;</mo><mi 
>C</mi><mrow><mo 
class="MathClass-open">(</mo><mrow><msup><mrow 
><mi mathvariant="double-struck">&#x211D;</mi></mrow><mrow 
><mi 
>p</mi><mi 
>q</mi></mrow></msup 
><mo 
class="MathClass-punc">,</mo> <mi mathvariant="double-struck">&#x2102;</mi></mrow><mo 
class="MathClass-close">)</mo></mrow> </mtd><mtd 
class="eqnarray-3">                          </mtd><mtd 
class="eqnarray-4"> <mtext class="eqnarray">(5)</mtext><mtext 
   id="x1-4034r5"  class="label" ></mtext><mtext 
class="endlabel"></mtext></mtd>
</mtr><mtr><mtd 
class="eqnarray-1">              <mi 
>&#x03C9;</mi></mtd><mtd 
class="eqnarray-2">   <mo 
class="MathClass-rel">&#x21A6;</mo><msub><mrow 
><mi 
>R</mi></mrow><mrow 
><mi 
>n</mi><mo 
class="MathClass-punc">,</mo><mi 
>A</mi></mrow></msub 
><mrow><mo 
class="MathClass-open">(</mo><mrow><mo 
class="MathClass-punc">&#x22C5;</mo><mo 
class="MathClass-punc">,</mo><mi 
>&#x03C9;</mi></mrow><mo 
class="MathClass-close">)</mo></mrow> <mo 
class="MathClass-punc">:</mo></mtd><mtd 
class="eqnarray-3">   <msup><mrow 
><mi mathvariant="double-struck">&#x211D;</mi></mrow><mrow 
><mi 
>p</mi><mi 
>q</mi></mrow></msup 
><mo 
class="MathClass-rel">&#x2192;</mo><mi mathvariant="double-struck">&#x2102;</mi>                  </mtd><mtd 
class="eqnarray-4"> <mtext class="eqnarray">(6)</mtext><mtext 
   id="x1-4034r6"  class="label" ></mtext><mtext 
class="endlabel"></mtext></mtd>
</mtr><mtr><mtd 
class="eqnarray-1">               </mtd><mtd 
class="eqnarray-2">             </mtd><mtd 
class="eqnarray-3">   <mi 
>t</mi><mo 
class="MathClass-rel">&#x21A6;</mo><msub><mrow 
><mi 
>R</mi></mrow><mrow 
><mi 
>n</mi><mo 
class="MathClass-punc">,</mo><mi 
>A</mi></mrow></msub 
><mrow><mo 
class="MathClass-open">(</mo><mrow><mi 
>t</mi><mo 
class="MathClass-punc">,</mo><mi 
>&#x03C9;</mi></mrow><mo 
class="MathClass-close">)</mo></mrow><mover><mrow 
> <mo 
class="MathClass-rel">=</mo> </mrow><mrow 
><mi 
>N</mi></mrow></mover><msub><mrow 
><mi 
>R</mi></mrow><mrow 
><mi 
>n</mi><mo 
class="MathClass-punc">,</mo><mi 
>A</mi></mrow></msub 
><mrow><mo 
class="MathClass-open">(</mo><mrow><mi 
>t</mi></mrow><mo 
class="MathClass-close">)</mo></mrow><mo 
class="MathClass-punc">.</mo></mtd><mtd 
class="eqnarray-4"> <mtext class="eqnarray">(7)</mtext><mtext 
   id="x1-4034r7"  class="label" ></mtext><mtext 
class="endlabel"></mtext></mtd>
</mtr><mtr><mtd 
class="eqnarray-1">               </mtd><mtd 
class="eqnarray-2">             </mtd><mtd 
class="eqnarray-3">                          </mtd><mtd 
class="eqnarray-4"> <mtext class="eqnarray">(8)</mtext><mtext 
   id="x1-4034r8"  class="label" ></mtext><mtext 
class="endlabel"></mtext></mtd>                       </mtr></mtable>
</math>
<!--l. 505--><p class="nopar">
</p><!--l. 507--><p class="noindent">On d&#x00E9;finit une m&#x00E9;trique <!--l. 507--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mi 
>&#x03C1;</mi></math> sur

l&#x2019;espace de Fr&#x00E9;chet s&#x00E9;parable <!--l. 508--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mi 
>C</mi><mrow><mo 
class="MathClass-open">(</mo><mrow><msup><mrow 
><mi mathvariant="double-struck">&#x211D;</mi></mrow><mrow 
><mi 
>p</mi><mi 
>q</mi></mrow></msup 
><mo 
class="MathClass-punc">,</mo> <mi mathvariant="double-struck">&#x2102;</mi></mrow><mo 
class="MathClass-close">)</mo></mrow></math>
par
</p>
   <center class="math-display"><!--l. 509--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="display"><mrow 
>
                   <mi 
>&#x2200;</mi><mi 
>x</mi><mo 
class="MathClass-punc">,</mo><mi 
>y</mi> <mo 
class="MathClass-rel">&#x2208;</mo> <mi 
>C</mi><mrow><mo 
class="MathClass-open">(</mo><mrow><msup><mrow 
><mi mathvariant="double-struck">&#x211D;</mi></mrow><mrow 
><mi 
>p</mi><mi 
>q</mi></mrow></msup 
><mo 
class="MathClass-punc">,</mo> <mi mathvariant="double-struck">&#x2102;</mi></mrow><mo 
class="MathClass-close">)</mo></mrow><mo 
class="MathClass-punc">,</mo> <mi 
>&#x03C1;</mi><mrow><mo 
class="MathClass-open">(</mo><mrow><mi 
>x</mi><mo 
class="MathClass-punc">,</mo><mi 
>y</mi></mrow><mo 
class="MathClass-close">)</mo></mrow> <mo 
class="MathClass-rel">=</mo><msubsup><mrow 
> <mo 
class="MathClass-op">&#x2211;</mo>
  </mrow><mrow 
><mi 
>j</mi><mo 
class="MathClass-rel">=</mo><mn>1</mn></mrow><mrow 
><mi 
>&#x221E;</mi></mrow></msubsup 
><msup><mrow 
><mn>2</mn></mrow><mrow 
><mo 
class="MathClass-bin">&#x2212;</mo><mi 
>j</mi></mrow></msup 
>   <mfrac><mrow 
><msub><mrow 
><mi 
>&#x03C1;</mi></mrow><mrow 
><mi 
>j</mi></mrow></msub 
><mrow><mo 
class="MathClass-open">(</mo><mrow><mi 
>x</mi><mo 
class="MathClass-punc">,</mo><mi 
>y</mi></mrow><mo 
class="MathClass-close">)</mo></mrow></mrow> 
<mrow 
><mn>1</mn> <mo 
class="MathClass-bin">+</mo> <msub><mrow 
><mi 
>&#x03C1;</mi></mrow><mrow 
><mi 
>j</mi></mrow></msub 
><mrow><mo 
class="MathClass-open">(</mo><mrow><mi 
>x</mi><mo 
class="MathClass-punc">,</mo><mi 
>y</mi></mrow><mo 
class="MathClass-close">)</mo></mrow></mrow></mfrac>
</mrow></math></center>
<!--l. 511--><p class="nopar">
avec <!--l. 512--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><msub><mrow 
><mi 
>&#x03C1;</mi></mrow><mrow 
><mi 
>j</mi></mrow></msub 
><mrow><mo 
class="MathClass-open">(</mo><mrow><mi 
>x</mi><mo 
class="MathClass-punc">,</mo><mi 
>y</mi></mrow><mo 
class="MathClass-close">)</mo></mrow> <mo 
class="MathClass-rel">=</mo> <munder><mrow 
><mo 
> sup</mo> </mrow><mrow 
><mo 
class="MathClass-rel">&#x2225;</mo><mi 
>t</mi><mo 
class="MathClass-rel">&#x2225;</mo><mo 
class="MathClass-rel">&#x2264;</mo> <mi 
>j</mi></mrow></munder><mo 
class="MathClass-rel">&#x2223;</mo><mi 
>x</mi><mrow><mo 
class="MathClass-open">(</mo><mrow><mi 
>t</mi></mrow><mo 
class="MathClass-close">)</mo></mrow> <mo 
class="MathClass-bin">&#x2212;</mo> <mi 
>y</mi><mrow><mo 
class="MathClass-open">(</mo><mrow><mi 
>t</mi></mrow><mo 
class="MathClass-close">)</mo></mrow><mo 
class="MathClass-rel">&#x2223;</mo></math>, o&#x00F9;
<!--l. 514--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mo 
class="MathClass-rel">&#x2223;</mo><mo 
class="MathClass-punc">&#x22C5;</mo><mo 
class="MathClass-rel">&#x2223;</mo></math> d&#x00E9;signe le
module sur <!--l. 514--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mi mathvariant="double-struck">&#x2102;</mi></math>.
Notons que <!--l. 514--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><msub><mrow 
><mi 
>&#x03C1;</mi></mrow><mrow 
><mi 
>j</mi></mrow></msub 
></math>
est bien d&#x00E9;finie car une fonction continue sur un compact est born&#x00E9;e.
</p>
   <div class="newtheorem">
<!--l. 518--><p class="noindent"><span class="head">
<a 
  name="x1-4035r2"></a>
<span 
class="ecbx-1200">Remarque 2.</span></span>
   <span 
class="ecti-1200">Un espace de Fr</span><span 
class="ecti-1200">&#x00E9;</span><span 
class="ecti-1200">chet est un espace m</span><span 
class="ecti-1200">&#x00E9;</span><span 
class="ecti-1200">trique lin</span><span 
class="ecti-1200">&#x00E9;</span><span 
class="ecti-1200">aire complet.</span>
</p>
   </div>
<!--l. 523--><p class="indent">   On note <!--l. 523--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mi 
>S</mi></math> la tribu
engendr&#x00E9;e par les ouverts de <!--l. 524--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mi 
>C</mi> <mo 
class="MathClass-rel">&#x2261;</mo> <mi 
>C</mi><mrow><mo 
class="MathClass-open">(</mo><mrow><msup><mrow 
><mi mathvariant="double-struck">&#x211D;</mi></mrow><mrow 
><mi 
>p</mi><mi 
>q</mi></mrow></msup 
><mo 
class="MathClass-punc">,</mo> <mi mathvariant="double-struck">&#x2102;</mi></mrow><mo 
class="MathClass-close">)</mo></mrow></math>
pour la m&#x00E9;trique <!--l. 524--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mi 
>&#x03C1;</mi></math>,
<!--l. 524--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><msubsup><mrow 
><mi mathvariant="double-struck">&#x211D;</mi></mrow><mrow 
><mi 
>j</mi></mrow><mrow 
><mi 
>p</mi><mi 
>q</mi></mrow></msubsup 
></math> la boule ferm&#x00E9;e
de centre <!--l. 525--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mn>0</mn></math> et
de rayon <!--l. 525--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mi 
>j</mi></math>
dans <!--l. 526--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><msup><mrow 
><mi mathvariant="double-struck">&#x211D;</mi></mrow><mrow 
><mi 
>p</mi><mi 
>q</mi></mrow></msup 
></math>,
<!--l. 526--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><msub><mrow 
><mi 
>C</mi></mrow><mrow 
><mi 
>j</mi></mrow></msub 
> <mo 
class="MathClass-rel">&#x2261;</mo> <mi 
>C</mi><mrow><mo 
class="MathClass-open">(</mo><mrow><msubsup><mrow 
><mi mathvariant="double-struck">&#x211D;</mi></mrow><mrow 
><mi 
>j</mi></mrow><mrow 
><mi 
>p</mi><mi 
>q</mi></mrow></msubsup 
><mo 
class="MathClass-punc">,</mo> <mi mathvariant="double-struck">&#x2102;</mi></mrow><mo 
class="MathClass-close">)</mo></mrow></math> et
<!--l. 526--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><msub><mrow 
><mi 
>S</mi></mrow><mrow 
><mi 
>j</mi></mrow></msub 
></math> la tribu
bor&#x00E9;lienne sur <!--l. 527--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><msub><mrow 
><mi 
>C</mi></mrow><mrow 
><mi 
>j</mi></mrow></msub 
></math>
pour la m&#x00E9;trique <!--l. 527--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><msub><mrow 
><mi 
>&#x03C1;</mi></mrow><mrow 
><mi 
>j</mi></mrow></msub 
></math>.
<br class="newline" />Notons aussi

<br class="newline" />
</p><!--l. 529--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="display">
<mtable 
class="eqnarray" columnalign="right center left" >
<mtr><mtd 
class="eqnarray-1"> <msub><mrow 
><mi 
>r</mi></mrow><mrow 
><mi 
>j</mi></mrow></msub 
> <mo 
class="MathClass-punc">:</mo> <mi 
>C</mi><mrow><mo 
class="MathClass-open">(</mo><mrow><msup><mrow 
><mi mathvariant="double-struck">&#x211D;</mi></mrow><mrow 
><mi 
>p</mi><mi 
>q</mi></mrow></msup 
><mo 
class="MathClass-punc">,</mo> <mi mathvariant="double-struck">&#x2102;</mi></mrow><mo 
class="MathClass-close">)</mo></mrow></mtd><mtd 
class="eqnarray-2">    <mo 
class="MathClass-rel">&#x2192;</mo><msub><mrow 
><mi 
>C</mi></mrow><mrow 
>
<mi 
>j</mi></mrow></msub 
>  </mtd><mtd 
class="eqnarray-3">                  </mtd><mtd 
class="eqnarray-4"> <mtext class="eqnarray">(9)</mtext><mtext 
   id="x1-4036r9"  class="label" ></mtext><mtext 
class="endlabel"></mtext></mtd>
</mtr><mtr><mtd 
class="eqnarray-1">             <mi 
>x</mi></mtd><mtd 
class="eqnarray-2">   <mo 
class="MathClass-rel">&#x21A6;</mo><msub><mrow 
><mi 
>r</mi></mrow><mrow 
><mi 
>j</mi></mrow></msub 
><mrow><mo 
class="MathClass-open">(</mo><mrow><mi 
>x</mi></mrow><mo 
class="MathClass-close">)</mo></mrow> <mo 
class="MathClass-punc">:</mo></mtd><mtd 
class="eqnarray-3">   <msubsup><mrow 
><mi mathvariant="double-struck">&#x211D;</mi></mrow><mrow 
><mi 
>j</mi></mrow><mrow 
><mi 
>p</mi><mi 
>q</mi></mrow></msubsup 
><mo 
class="MathClass-rel">&#x2192;</mo><mi mathvariant="double-struck">&#x2102;</mi>          </mtd><mtd 
class="eqnarray-4"> <mtext class="eqnarray">(10)</mtext><mtext 
   id="x1-4036r10"  class="label" ></mtext><mtext 
class="endlabel"></mtext></mtd>
</mtr><mtr><mtd 
class="eqnarray-1">              </mtd><mtd 
class="eqnarray-2">         </mtd><mtd 
class="eqnarray-3">   <mi 
>t</mi><mo 
class="MathClass-rel">&#x21A6;</mo><mi 
>x</mi><mrow><mo 
class="MathClass-open">(</mo><mrow><mi 
>t</mi></mrow><mo 
class="MathClass-close">)</mo></mrow> <mo 
class="MathClass-rel">=</mo> <msub><mrow 
><mi 
>r</mi></mrow><mrow 
><mi 
>j</mi></mrow></msub 
><mrow><mo 
class="MathClass-open">(</mo><mrow><mi 
>x</mi><mrow><mo 
class="MathClass-open">(</mo><mrow><mi 
>t</mi></mrow><mo 
class="MathClass-close">)</mo></mrow></mrow><mo 
class="MathClass-close">)</mo></mrow></mtd><mtd 
class="eqnarray-4"> <mtext class="eqnarray">(11)</mtext><mtext 
   id="x1-4036r11"  class="label" ></mtext><mtext 
class="endlabel"></mtext></mtd>
</mtr><mtr><mtd 
class="eqnarray-1">              </mtd><mtd 
class="eqnarray-2">         </mtd><mtd 
class="eqnarray-3">                  </mtd><mtd 
class="eqnarray-4"> <mtext class="eqnarray">(12)</mtext><mtext 
   id="x1-4036r12"  class="label" ></mtext><mtext 
class="endlabel"></mtext></mtd>                                     </mtr></mtable>
</math>
<!--l. 533--><p class="nopar">
la restriction d&#x2019;un &#x00E9;l&#x00E9;ment <!--l. 534--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mi 
>x</mi></math>
de <!--l. 534--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mi 
>C</mi><mrow><mo 
class="MathClass-open">(</mo><mrow><msup><mrow 
><mi mathvariant="double-struck">&#x211D;</mi></mrow><mrow 
><mi 
>p</mi><mi 
>q</mi></mrow></msup 
><mo 
class="MathClass-punc">,</mo> <mi mathvariant="double-struck">&#x2102;</mi></mrow><mo 
class="MathClass-close">)</mo></mrow></math> &#x00E0;
<!--l. 535--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><msub><mrow 
><mi 
>C</mi></mrow><mrow 
><mi 
>j</mi></mrow></msub 
></math>. Puisque
<!--l. 535--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><msup><mrow 
><mi mathvariant="double-struck">&#x211D;</mi></mrow><mrow 
><mi 
>p</mi><mi 
>q</mi></mrow></msup 
></math> est
localement compact, s&#x00E9;parable et Hausdorff on a, d&#x2019;apr&#x00E8;s la Proposition 14.6 de
Kallenberg (1997) p. 260(<a 
  name="dx1-4037"></a><a 
href="#X1997Kalleintro">8</a>),
</p>
   <center class="math-display"><!--l. 537--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="display"><mrow 
>
                  <msub><mrow 
><mi 
>R</mi></mrow><mrow 
><mi 
>n</mi><mo 
class="MathClass-punc">,</mo><mi 
>A</mi></mrow></msub 
><mover><mrow 
><mo 
class="MathClass-rel">&#x2192;</mo></mrow><mrow 
><mi 
>L</mi></mrow></mover><msub><mrow 
><mi 
>R</mi></mrow><mrow 
><mi 
>A</mi></mrow></msub 
><!--mstyle 
class="text"--><mtext >&#x000A0;si&#x000A0;et&#x000A0;seulement&#x000A0;si&#x000A0;</mtext><!--/mstyle--><msub><mrow 
><mi 
>r</mi></mrow><mrow 
><mi 
>j</mi></mrow></msub 
><mrow><mo 
class="MathClass-open">(</mo><mrow><msub><mrow 
><mi 
>R</mi></mrow><mrow 
><mi 
>n</mi><mo 
class="MathClass-punc">,</mo><mi 
>A</mi></mrow></msub 
></mrow><mo 
class="MathClass-close">)</mo></mrow><mover><mrow 
><mo 
class="MathClass-rel">&#x2192;</mo></mrow><mrow 
><mi 
>L</mi></mrow></mover><msub><mrow 
><mi 
>r</mi></mrow><mrow 
><mi 
>j</mi></mrow></msub 
><mrow><mo 
class="MathClass-open">(</mo><mrow><msub><mrow 
><mi 
>R</mi></mrow><mrow 
><mi 
>A</mi></mrow></msub 
></mrow><mo 
class="MathClass-close">)</mo></mrow><mo 
class="MathClass-punc">,</mo> <mi 
>&#x2200;</mi><mi 
>j</mi> <mo 
class="MathClass-rel">&#x2265;</mo> <mn>1</mn><mo 
class="MathClass-punc">.</mo>
</mrow></math></center>
<!--l. 540--><p class="nopar">
On peut donc restreindre l&#x2019;&#x00E9;tude du processus
<!--l. 541--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><msub><mrow 
><mi 
>R</mi></mrow><mrow 
><mi 
>n</mi><mo 
class="MathClass-punc">,</mo><mi 
>A</mi></mrow></msub 
></math> aux sous-espaces

compacts de <!--l. 543--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mi 
>C</mi></math>.
<br class="newline" />Maintenant, d&#x2019;apr&#x00E8;s le Lemme 14.2 Kallenberg (1997) p. 256(<a 
  name="dx1-4038"></a><a 
href="#X1997Kalleintro">8</a>), on a
<br class="newline" /><!--l. 545--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><msub><mrow 
><mi 
>r</mi></mrow><mrow 
><mi 
>j</mi></mrow></msub 
><mrow><mo 
class="MathClass-open">(</mo><mrow><msub><mrow 
><mi 
>R</mi></mrow><mrow 
><mi 
>n</mi><mo 
class="MathClass-punc">,</mo><mi 
>A</mi></mrow></msub 
></mrow><mo 
class="MathClass-close">)</mo></mrow><mover><mrow 
><mo 
class="MathClass-rel">&#x2192;</mo></mrow><mrow 
><mi 
>L</mi></mrow></mover><msub><mrow 
><mi 
>r</mi></mrow><mrow 
><mi 
>j</mi></mrow></msub 
><mrow><mo 
class="MathClass-open">(</mo><mrow><msub><mrow 
><mi 
>R</mi></mrow><mrow 
><mi 
>A</mi></mrow></msub 
></mrow><mo 
class="MathClass-close">)</mo></mrow></math> si et seulement
si <!--l. 546--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><msub><mrow 
><mi 
>r</mi></mrow><mrow 
><mi 
>j</mi></mrow></msub 
><mrow><mo 
class="MathClass-open">(</mo><mrow><msub><mrow 
><mi 
>R</mi></mrow><mrow 
><mi 
>n</mi><mo 
class="MathClass-punc">,</mo><mi 
>A</mi></mrow></msub 
></mrow><mo 
class="MathClass-close">)</mo></mrow><mover><mrow 
><mo 
class="MathClass-rel">&#x2192;</mo></mrow><mrow 
><mi 
>f</mi><mi 
>d</mi></mrow></mover><msub><mrow 
><mi 
>r</mi></mrow><mrow 
><mi 
>j</mi></mrow></msub 
><mrow><mo 
class="MathClass-open">(</mo><mrow><msub><mrow 
><mi 
>R</mi></mrow><mrow 
><mi 
>A</mi></mrow></msub 
></mrow><mo 
class="MathClass-close">)</mo></mrow></math> et
<!--l. 547--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><msub><mrow 
><mrow><mo 
class="MathClass-open">{</mo><mrow><msub><mrow 
><mi 
>r</mi></mrow><mrow 
><mi 
>j</mi></mrow></msub 
><mrow><mo 
class="MathClass-open">(</mo><mrow><msub><mrow 
><mi 
>R</mi></mrow><mrow 
><mi 
>n</mi><mo 
class="MathClass-punc">,</mo><mi 
>A</mi></mrow></msub 
></mrow><mo 
class="MathClass-close">)</mo></mrow></mrow><mo 
class="MathClass-close">}</mo></mrow></mrow><mrow 
><mi 
>n</mi></mrow></msub 
></math> est une famille
relativement compacte. De plus, d&#x2019;apr&#x00E8;s le Th&#x00E9;or&#x00E8;me 14.3 de Kallenberg (1997) p.257(<a 
  name="dx1-4039"></a><a 
href="#X1997Kalleintro">8</a>)
et puisque <!--l. 548--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><msub><mrow 
><mi 
>C</mi></mrow><mrow 
><mi 
>j</mi></mrow></msub 
></math>
est s&#x00E9;parable et complet, on a l&#x2019;&#x00E9;quivalence entre la compacitude relative et la tension de
<!--l. 551--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><msub><mrow 
><mrow><mo 
class="MathClass-open">{</mo><mrow><msub><mrow 
><mi 
>r</mi></mrow><mrow 
><mi 
>j</mi></mrow></msub 
><mrow><mo 
class="MathClass-open">(</mo><mrow><msub><mrow 
><mi 
>R</mi></mrow><mrow 
><mi 
>n</mi><mo 
class="MathClass-punc">,</mo><mi 
>A</mi></mrow></msub 
></mrow><mo 
class="MathClass-close">)</mo></mrow></mrow><mo 
class="MathClass-close">}</mo></mrow></mrow><mrow 
><mi 
>n</mi></mrow></msub 
></math>. Pour prouver la
convergence faible de <!--l. 551--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><msub><mrow 
><mrow><mo 
class="MathClass-open">{</mo><mrow><msub><mrow 
><mi 
>R</mi></mrow><mrow 
><mi 
>n</mi><mo 
class="MathClass-punc">,</mo><mi 
>A</mi></mrow></msub 
></mrow><mo 
class="MathClass-close">}</mo></mrow></mrow><mrow 
><mi 
>n</mi></mrow></msub 
></math> vers
l&#x2019;&#x00E9;l&#x00E9;ment al&#x00E9;atoire <!--l. 552--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><msub><mrow 
><mi 
>R</mi></mrow><mrow 
><mi 
>A</mi></mrow></msub 
></math>
il suffit donc de montrer que les lois de dimension finie des
<!--l. 552--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><msub><mrow 
><mi 
>r</mi></mrow><mrow 
><mi 
>j</mi></mrow></msub 
><mrow><mo 
class="MathClass-open">(</mo><mrow><msub><mrow 
><mi 
>R</mi></mrow><mrow 
><mi 
>n</mi><mo 
class="MathClass-punc">,</mo><mi 
>A</mi></mrow></msub 
></mrow><mo 
class="MathClass-close">)</mo></mrow></math> convergent faiblement
vers celles des <!--l. 553--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><msub><mrow 
><mi 
>r</mi></mrow><mrow 
><mi 
>j</mi></mrow></msub 
><mrow><mo 
class="MathClass-open">(</mo><mrow><msub><mrow 
><mi 
>R</mi></mrow><mrow 
><mi 
>A</mi></mrow></msub 
></mrow><mo 
class="MathClass-close">)</mo></mrow></math>
et que <!--l. 553--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mi 
>&#x2200;</mi><mi 
>j</mi> <mo 
class="MathClass-rel">&#x2265;</mo> <mn>1</mn><mo 
class="MathClass-punc">,</mo> <msub><mrow 
><mrow><mo 
class="MathClass-open">{</mo><mrow><msub><mrow 
><mi 
>r</mi></mrow><mrow 
><mi 
>j</mi></mrow></msub 
><mrow><mo 
class="MathClass-open">(</mo><mrow><msub><mrow 
><mi 
>R</mi></mrow><mrow 
><mi 
>n</mi><mo 
class="MathClass-punc">,</mo><mi 
>A</mi></mrow></msub 
></mrow><mo 
class="MathClass-close">)</mo></mrow></mrow><mo 
class="MathClass-close">}</mo></mrow></mrow><mrow 
><mi 
>n</mi></mrow></msub 
></math>
est tendue.
</p><!--l. 557--><p class="indent">   Tous ces r&#x00E9;sultats sont largement exploit&#x00E9;s et d&#x00E9;taill&#x00E9;s dans le Chapitre 3
pour construire un test semi-param&#x00E9;trique d&#x2019;ind&#x00E9;pendance, pour des marginales
multinormales, qui peut &#x00EA;tre utile par exemple dans l&#x2019;&#x00E9;tude des donn&#x00E9;es familiales.
Ils sont ensuite g&#x00E9;n&#x00E9;ralis&#x00E9;s au cas s&#x00E9;riel.
</p><!--l. 563--><p class="indent">   Pour conclure, il apparait donc que notre probl&#x00E9;matique repose sur des questions
ancr&#x00E9;es dans les pr&#x00E9;misses de la statistique tandis que notre recherche s&#x2019;appuie sur
des outils et techniques r&#x00E9;centes et innovatrices emprunt&#x00E9;es &#x00E0; l&#x2019;analyse
multivari&#x00E9;e (voir Bilodeau et Brenner (1999)(<a 
  name="dx1-4040"></a><a 
href="#X1999Bilodintro">2</a>)), &#x00E0; la th&#x00E9;orie des processus
stochastiques (voir Billingsley (1968)(<a 
  name="dx1-4041"></a><a 
href="#X1968Billiintro">1</a>)) ainsi qu&#x2019;aux m&#x00E9;thodes asymptotiques (voir
Ferguson (1996)(<a 
  name="dx1-4042"></a><a 
href="#X1996Ferguintro">4</a>)).
<br class="newline" />
</p>
   <h3 class="sectionHead"><a 
  name="x1-50001"></a>Bibliographie</h3>
<!--l. 581--><p class="noindent">
<a 
  name="dx1-5001"></a>
              </p><div class="thebibliography"><p class="bibitem"><span class="biblabel">
           [1] <span class="bibsp">&#x00A0;&#x00A0;&#x00A0;</span></span> <a 
  name="X1968Billiintro"></a>Billingsley, P., 1968. Convergence of probability measures. John
              Wiley &#x0026; Sons Inc., New York. <a 
  name="dx1-5002"></a>
              </p><p class="bibitem"><span class="biblabel">
           [2] <span class="bibsp">&#x00A0;&#x00A0;&#x00A0;</span></span> <a 
  name="X1999Bilodintro"></a>Bilodeau, M., Brenner, D., 1999. Theory of multivariate statistics.
              Springer Texts in Statistics. Springer-Verlag, New York. <a 
  name="dx1-5003"></a>
              </p><p class="bibitem"><span class="biblabel">
           [3] <span class="bibsp">&#x00A0;&#x00A0;&#x00A0;</span></span>  <a 
  name="X1976Boxintro"></a>Box,  G.  E.  P.,  Jenkins,  G.  M.,  1976.  Time  series  analysis&#x00A0;:
              forecasting   and   control,   revised   Edition.   Holden-Day,   San
              Francisco, Calif., holden-Day Series in Time Series Analysis. <a 
  name="dx1-5004"></a>

              </p><p class="bibitem"><span class="biblabel">
           [4] <span class="bibsp">&#x00A0;&#x00A0;&#x00A0;</span></span> <a 
  name="X1996Ferguintro"></a>Ferguson, T. S., 1996. A course in large sample theory. Chapman
              &#x0026; Hall, London. <a 
  name="dx1-5005"></a>
              </p><p class="bibitem"><span class="biblabel">
           [5] <span class="bibsp">&#x00A0;&#x00A0;&#x00A0;</span></span> <a 
  name="X1925Fisheintro"></a>Fisher, R. A., 1925. Statistical methods for research workers. VIII
              + 239 p. with 6 tables. Edinburgh and London, Oliver and Boyd.
              <a 
  name="dx1-5006"></a>
              </p><p class="bibitem"><span class="biblabel">
           [6] <span class="bibsp">&#x00A0;&#x00A0;&#x00A0;</span></span> <a 
  name="X1936Funkhintro"></a>Funkhauser, H. G., 1936. A Note on a Tenth Century Graph.
              Osiris, Vol.1. <a 
  name="dx1-5007"></a>
              </p><p class="bibitem"><span class="biblabel">
           [7] <span class="bibsp">&#x00A0;&#x00A0;&#x00A0;</span></span>   <a 
  name="X2001Ghoud191intro"></a>Ghoudi,   K.,   Kulperger,   R.   J.,   R&#x00E9;millard,   B.,   2001.   A
              nonparametric  test  of  serial  independence  for  time  series  and
              residuals. J. Multivariate Anal. 79, 191-218. <a 
  name="dx1-5008"></a>
              </p><p class="bibitem"><span class="biblabel">
           [8] <span class="bibsp">&#x00A0;&#x00A0;&#x00A0;</span></span>   <a 
  name="X1997Kalleintro"></a>Kallenberg,   O.,   1997.   Foundations   of   modern   probability.
              Springer-Verlag, New York. <a 
  name="dx1-5009"></a>
              </p><p class="bibitem"><span class="biblabel">
           [9] <span class="bibsp">&#x00A0;&#x00A0;&#x00A0;</span></span> <a 
  name="X1980Kelle78intro"></a>Kellermeier, J., 1980. The empirical characteristic function and
              large sample hypothesis testing. J. Multivariate Anal. 10(1), 78-87.
              <a 
  name="dx1-5010"></a>
              </p><p class="bibitem"><span class="biblabel">
          [10] <span class="bibsp">&#x00A0;&#x00A0;&#x00A0;</span></span>  <a 
  name="X1979Kopec393intro"></a>Kopecky,  K.  J.,  Pierce,  D.  A.,  1979.  Efficiency  of  smooth
              goodness-of-fit tests. J. Amer. Statist. Assoc. 74, 392-397. <a 
  name="dx1-5011"></a>
              </p><p class="bibitem"><span class="biblabel">
          [11] <span class="bibsp">&#x00A0;&#x00A0;&#x00A0;</span></span>  <a 
  name="X1974Marsdintro"></a>Marsden,  J.E.,  1974.  Elementary  classical  analysis.  New  York&#x00A0;:
              W.H. Freeman and Company. <a 
  name="dx1-5012"></a>
              </p><p class="bibitem"><span class="biblabel">
          [12] <span class="bibsp">&#x00A0;&#x00A0;&#x00A0;</span></span> <a 
  name="X1937Neyma149intro"></a>Neyman, J., 1937. Smooth test for goodness of fit. Skand. Aktuar.
              20, 149-199. <a 
  name="dx1-5013"></a>
              </p><p class="bibitem"><span class="biblabel">
          [13] <span class="bibsp">&#x00A0;&#x00A0;&#x00A0;</span></span>  <a 
  name="X1947Rao50"></a>Rao,  C.R.,  1947.  Large  sample  tests  of  statistical  hypotheses
              concerning  several  parameters  with  applications  to  problems  of
              estimation. In&#x00A0;: Proceedings of the Cambridge Philosophical Society.
              Vol. 44. pp. 50-7. <a 
  name="dx1-5014"></a>
              </p><p class="bibitem"><span class="biblabel">
          [14] <span class="bibsp">&#x00A0;&#x00A0;&#x00A0;</span></span> <a 
  name="X1988Rayne3235intro"></a>Rayner, J.C.W., Best, D.J., 1988. Smooth tests of goodness of fit
              for regular distributions. Comm. Statist. Theory Methods 17(10),
              3235-67. <a 
  name="dx1-5015"></a>
              </p><p class="bibitem"><span class="biblabel">
          [15] <span class="bibsp">&#x00A0;&#x00A0;&#x00A0;</span></span> <a 
  name="X1968Royde"></a>Royden, H.L., 1968. Real analysis. New York&#x00A0;: MacMillan.</p></div>





   <h2 class="chapterHead"><span class="titlemark">Chapitre&#x00A0;2</span><br /><a 
  name="x1-60002"></a>Goodness-of-fit tests of normality for the innovations in ARMA
models</h2>
<!--l. 3--><p class="noindent">Cet article a &#x00E9;t&#x00E9; accept&#x00E9; pour publication dans la revue <span 
class="ecti-1200">Journal of Time Series</span>
<span 
class="ecti-1200">Analysis</span>.
</p><!--l. 8--><p class="noindent">Comme la coutume dans cette discipline le veut, l&#x2019;ordre alphab&#x00E9;tique des auteurs a
&#x00E9;t&#x00E9; respect&#x00E9;.
</p><!--l. 20--><p class="noindent">Voici la liste des contributions principales de Pierre Lafaye de Micheaux &#x00E0; cet
article&#x00A0;:
<br class="newline" />
     </p><ul class="itemize1">
     <li class="itemize">Recherche  bibliographique  ayant  permis  notamment  la  r&#x00E9;daction  de  la
     section 1.
     </li>
     <li class="itemize">D&#x00E9;monstration des r&#x00E9;sultats de la section 2.
     </li>
     <li class="itemize">Conception, &#x00E9;criture et validation des programmes Fortran77 pour obtenir
     la table 3.1.
     </li>
     <li class="itemize">Conception, &#x00E9;criture et validation des programmes Fortran77 pour obtenir
     les r&#x00E9;sultats de la section 4.
     </li>
     <li class="itemize">Conception, &#x00E9;criture et validation de l&#x2019;exemple.
     </li>
     <li class="itemize">Participation &#x00E0; la r&#x00E9;daction.</li></ul>
<!--l. 30--><p class="nopar">
</p><!--l. 32--><p class="indent">

</p>
<div class="center" 
>
 <span 
class="ecbx-1728">Goodness-of-fit tests of normality for the</span>
<span 
class="ecbx-1728">innovations in ARMA models</span><br />
(abbreviated title&#x00A0;: Testing the residuals in ARMA)
<!--l. 39--><p class="noindent"><span 
class="ecrm-1440">Gilles R. Ducharme and Pierre Lafaye de Micheaux</span><br />
<span 
class="ecti-1200">Laboratoire de probabilit</span><span 
class="ecti-1200">&#x00E9;</span><span 
class="ecti-1200">s et statistique, cc051</span><br />
<span 
class="ecti-1200">Universit</span><span 
class="ecti-1200">&#x00E9;</span> <span 
class="ecti-1200">Montpellier II</span><br />
<span 
class="ecti-1200">Place Eug</span><span 
class="ecti-1200">&#x00E8;</span><span 
class="ecti-1200">ne Bataillon</span><br />
<span 
class="ecti-1200">34095, Montpellier, Cedex 5</span><br />
<span 
class="ecti-1200">France</span></p></div>
________________________________________________________________________
    <span 
class="ecbx-1200">Abstract</span>
<br class="newline" />In this paper, we propose a goodness-of-fit test of normality for the innovations of an
ARMA(<!--l. 52--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mi 
>p</mi></math>,
<!--l. 52--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mi 
>q</mi></math>)
model with known mean or trend. This test is based on the data driven smooth test
approach and is simple to perform. An extensive simulation study is conducted to
study the behavior of the test for moderate sample sizes. It is found that our approach
is generally more powerful than existing tests while holding its level throughout most
of the parameter space and thus, can be recommended. This agrees with theoretical
results showing the superiority of the data driven smooth test approach in related
contexts.
<!--l. 62--><p class="noindent"><span 
class="ecti-1095">Key words</span>&#x00A0;<span 
class="ecti-1095">: </span>ARMA process, Gaussian white noise, Goodness-of-fit test, Normality of
residuals, Smooth test.____________________________________________________________________________
</p>
     <h3 class="sectionHead"><span class="titlemark">1. </span> <a 
  name="x1-70001"></a>Introduction</h3>
<!--l. 69--><p class="noindent">Let (<!--l. 69--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><msub><mrow 
><mi 
>Y</mi> </mrow><mrow 
><mi 
>t</mi></mrow></msub 
></math>,
<!--l. 69--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mi 
>t</mi> <mo 
class="MathClass-rel">&#x2208;</mo> <mi mathvariant="double-struck">&#x2124;</mi></math>)
be a stationary process. In this paper, we consider the case where
<!--l. 69--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mi 
>E</mi><mrow><mo 
class="MathClass-open">(</mo><mrow><msub><mrow 
><mi 
>Y</mi> </mrow><mrow 
><mi 
>t</mi></mrow></msub 
></mrow><mo 
class="MathClass-close">)</mo></mrow></math> is known or has
been estimated using information outside of the data set. Thus, without loss of generality, we set
<!--l. 69--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mi 
>E</mi><mrow><mo 
class="MathClass-open">(</mo><mrow><msub><mrow 
><mi 
>Y</mi> </mrow><mrow 
><mi 
>t</mi></mrow></msub 
></mrow><mo 
class="MathClass-close">)</mo></mrow> <mo 
class="MathClass-rel">=</mo> <mn>0</mn></math>. Consider the

framework where (<!--l. 69--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><msub><mrow 
><mi 
>Y</mi> </mrow><mrow 
><mi 
>t</mi></mrow></msub 
></math>,
<!--l. 69--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mi 
>t</mi> <mo 
class="MathClass-rel">&#x2208;</mo> <mi mathvariant="double-struck">&#x2124;</mi></math>) obeys the causal and
invertible finite order ARMA(<!--l. 69--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mi 
>p</mi></math>,
<!--l. 69--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mi 
>q</mi></math>)
model </p><table class="equation"><tr><td> <a 
  name="x1-7001r1"></a>
<!--l. 70--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="display">
                       <msub><mrow 
><mi 
>Y</mi> </mrow><mrow 
><mi 
>t</mi></mrow></msub 
> <mo 
class="MathClass-bin">&#x2212;</mo><mi 
>&#x03D5;</mi><!--mstyle 
class="text"--><mtext >T</mtext><!--/mstyle--><msubsup><mrow 
><mi 
>Y</mi> </mrow><mrow 
><mi 
>t</mi><mo 
class="MathClass-bin">&#x2212;</mo><mn>1</mn></mrow><mrow 
><mrow><mo 
class="MathClass-open">(</mo><mrow><mi 
>p</mi></mrow><mo 
class="MathClass-close">)</mo></mrow></mrow></msubsup 
> <mo 
class="MathClass-rel">=</mo> <mi 
>&#x03B8;</mi><!--mstyle 
class="text"--><mtext >T</mtext><!--/mstyle--><msubsup><mrow 
><mi 
>&#x03B5;</mi></mrow><mrow 
>
<mi 
>t</mi><mo 
class="MathClass-bin">&#x2212;</mo><mn>1</mn></mrow><mrow 
><mrow><mo 
class="MathClass-open">(</mo><mrow><mi 
>q</mi></mrow><mo 
class="MathClass-close">)</mo></mrow></mrow></msubsup 
> <mo 
class="MathClass-bin">+</mo> <msub><mrow 
><mi 
>&#x03B5;</mi></mrow><mrow 
>
<mi 
>t</mi></mrow></msub 
>
</math>
<!--l. 72--><p class="nopar"></p></td><td class="eq-no">(1)</td></tr></table>
where (<!--l. 73--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><msub><mrow 
><mi 
>&#x03B5;</mi></mrow><mrow 
><mi 
>t</mi></mrow></msub 
></math>,
<!--l. 73--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mi 
>t</mi> <mo 
class="MathClass-rel">&#x2208;</mo> <mi mathvariant="double-struck">&#x2124;</mi></math>)
is an innovation process of random variables with mean
<!--l. 73--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mn>0</mn></math> and
autocovariance <!--l. 73--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mi 
>E</mi><mrow><mo 
class="MathClass-open">(</mo><mrow><msub><mrow 
><mi 
>&#x03B5;</mi></mrow><mrow 
><mi 
>t</mi></mrow></msub 
><msub><mrow 
><mi 
>&#x03B5;</mi></mrow><mrow 
><mi 
>t</mi><mo 
class="MathClass-bin">+</mo><mi 
>h</mi></mrow></msub 
></mrow><mo 
class="MathClass-close">)</mo></mrow> <mo 
class="MathClass-rel">=</mo> <msup><mrow 
><mi 
>&#x03C3;</mi></mrow><mrow 
><mn>2</mn></mrow></msup 
> <mo 
class="MathClass-rel">&#x003C;</mo> <mi 
>&#x221E;</mi></math>
(unknown) if <!--l. 73--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mi 
>h</mi> <mo 
class="MathClass-rel">=</mo> <mn>0</mn></math>
and <!--l. 73--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mn>0</mn></math>
otherwise and where
<!--l. 74--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="display">
<mi 
>&#x03D5;</mi> <mo 
class="MathClass-rel">=</mo> <mfenced separators="" 
open="["  close="]" ><mrow><mtable  align="axis"  
equalrows="false" equalcolumns="false" class="array"><mtr><mtd 
class="array"  columnalign="center"><msub><mrow 
><mi 
>&#x03D5;</mi></mrow><mrow 
><mn>1</mn></mrow></msub 
></mtd>
</mtr><mtr><mtd 
class="array"  columnalign="center">  <mo 
class="MathClass-op">&#x22EE;</mo>  </mtd>
</mtr><mtr><mtd 
class="array"  columnalign="center"><msub><mrow 
><mi 
>&#x03D5;</mi></mrow><mrow 
><mi 
>p</mi></mrow></msub 
></mtd></mtr>  <!--c--></mtable>                                                                                                                      </mrow></mfenced> <mo 
class="MathClass-punc">,</mo> <mi 
>&#x03B8;</mi> <mo 
class="MathClass-rel">=</mo> <mfenced separators="" 
open="["  close="]" ><mrow><mtable  align="axis"  
equalrows="false" equalcolumns="false" class="array"><mtr><mtd 
class="array"  columnalign="center"><msub><mrow 
><mi 
>&#x03B8;</mi></mrow><mrow 
><mn>1</mn></mrow></msub 
></mtd>
</mtr><mtr><mtd 
class="array"  columnalign="center">  <mo 
class="MathClass-op">&#x22EE;</mo>  </mtd>
</mtr><mtr><mtd 
class="array"  columnalign="center"><msub><mrow 
><mi 
>&#x03B8;</mi></mrow><mrow 
><mi 
>q</mi></mrow></msub 
></mtd></mtr>  <!--c--></mtable>                                                                                                                      </mrow></mfenced> <mo 
class="MathClass-punc">,</mo><msubsup><mrow 
> <mi 
>Y</mi> </mrow><mrow 
><mi 
>t</mi><mo 
class="MathClass-bin">&#x2212;</mo><mn>1</mn></mrow><mrow 
><mrow><mo 
class="MathClass-open">(</mo><mrow><mi 
>p</mi></mrow><mo 
class="MathClass-close">)</mo></mrow></mrow></msubsup 
> <mo 
class="MathClass-rel">=</mo> <mfenced separators="" 
open="["  close="]" ><mrow><mtable  align="axis"  
equalrows="false" equalcolumns="false" class="array"><mtr><mtd 
class="array"  columnalign="center"><msub><mrow 
><mi 
>Y</mi> </mrow><mrow 
><mi 
>t</mi><mo 
class="MathClass-bin">&#x2212;</mo><mn>1</mn></mrow></msub 
></mtd>
</mtr><mtr><mtd 
class="array"  columnalign="center">    <mo 
class="MathClass-op">&#x22EE;</mo>    </mtd>
</mtr><mtr><mtd 
class="array"  columnalign="center"><msub><mrow 
><mi 
>Y</mi> </mrow><mrow 
><mi 
>t</mi><mo 
class="MathClass-bin">&#x2212;</mo><mi 
>p</mi></mrow></msub 
></mtd></mtr> <!--c--></mtable>                                                                                                                     </mrow></mfenced> <mo 
class="MathClass-punc">,</mo><msubsup><mrow 
> <mi 
>&#x03B5;</mi></mrow><mrow 
><mi 
>t</mi><mo 
class="MathClass-bin">&#x2212;</mo><mn>1</mn></mrow><mrow 
><mrow><mo 
class="MathClass-open">(</mo><mrow><mi 
>q</mi></mrow><mo 
class="MathClass-close">)</mo></mrow></mrow></msubsup 
> <mo 
class="MathClass-rel">=</mo> <mfenced separators="" 
open="["  close="]" ><mrow><mtable  align="axis"  
equalrows="false" equalcolumns="false" class="array"><mtr><mtd 
class="array"  columnalign="center"><msub><mrow 
><mi 
>&#x03B5;</mi></mrow><mrow 
><mi 
>t</mi><mo 
class="MathClass-bin">&#x2212;</mo><mn>1</mn></mrow></msub 
></mtd>
</mtr><mtr><mtd 
class="array"  columnalign="center">   <mo 
class="MathClass-op">&#x22EE;</mo>   </mtd>
</mtr><mtr><mtd 
class="array"  columnalign="center"><msub><mrow 
><mi 
>&#x03B5;</mi></mrow><mrow 
><mi 
>t</mi><mo 
class="MathClass-bin">&#x2212;</mo><mi 
>q</mi></mrow></msub 
></mtd></mtr> <!--c--></mtable>                                                                                                                      </mrow></mfenced> <mo 
class="MathClass-punc">.</mo>
</math>
<!--l. 107--><p class="nopar">
A sample <!--l. 108--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mrow><mo 
class="MathClass-open">{</mo><mrow><msub><mrow 
><mi 
>Y</mi> </mrow><mrow 
><mn>1</mn></mrow></msub 
><mo 
class="MathClass-punc">,</mo><mo 
class="MathClass-punc">.</mo><mo 
class="MathClass-punc">.</mo><mo 
class="MathClass-punc">.</mo><mo 
class="MathClass-punc">,</mo><msub><mrow 
><mi 
>Y</mi> </mrow><mrow 
><mi 
>T</mi> </mrow></msub 
></mrow><mo 
class="MathClass-close">}</mo></mrow></math> is
observed and model (<a 
href="#x1-7001r1">1<!--tex4ht:ref: equation1.1 --></a>) is fitted by standard methods, for example the unconditional Gaussian
maximum likelihood approach (see Brockwell and Davis (1991)(<a 
  name="dx1-7002"></a><a 
href="#X1991Brockduch">4</a>), p. 256-257), yielding the
estimator <!--l. 112--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mover 
accent="true"><mrow 
><mi 
>&#x03B2;</mi></mrow><mo 
class="MathClass-op">&#x0302;</mo></mover> <mo 
class="MathClass-rel">=</mo> <mrow><mo 
class="MathClass-open">(</mo><mrow><mover 
accent="true"><mrow 
><mi 
>&#x03D5;</mi></mrow><mo 
class="MathClass-op">&#x0302;</mo></mover><!--mstyle 
class="text"--><mtext >T</mtext><!--/mstyle--><mo 
class="MathClass-punc">,</mo><mover 
accent="true"><mrow 
><mi 
>&#x03B8;</mi></mrow><mo 
class="MathClass-op">&#x0302;</mo></mover><!--mstyle 
class="text"--><mtext >T</mtext><!--/mstyle--><mo 
class="MathClass-punc">,</mo><mover 
accent="true"><mrow 
><mi 
>&#x03C3;</mi></mrow><mo 
class="MathClass-op">&#x0302;</mo></mover></mrow><mo 
class="MathClass-close">)</mo></mrow><!--mstyle 
class="text"--><mtext >T</mtext><!--/mstyle--></math>

of <!--l. 114--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mi 
>&#x03B2;</mi> <mo 
class="MathClass-rel">=</mo> <mrow><mo 
class="MathClass-open">(</mo><mrow><mi 
>&#x03D5;</mi><!--mstyle 
class="text"--><mtext >T</mtext><!--/mstyle--><mo 
class="MathClass-punc">,</mo><mi 
>&#x03B8;</mi><!--mstyle 
class="text"--><mtext >T</mtext><!--/mstyle--><mo 
class="MathClass-punc">,</mo><mi 
>&#x03C3;</mi></mrow><mo 
class="MathClass-close">)</mo></mrow><!--mstyle 
class="text"--><mtext >T</mtext><!--/mstyle--></math>.
<br class="newline" />
</p><!--l. 116--><p class="indent">   If it can be safely assumed that the distribution of the
(<!--l. 116--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><msub><mrow 
><mi 
>&#x03B5;</mi></mrow><mrow 
><mi 
>t</mi></mrow></msub 
></math>,
<!--l. 116--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mi 
>t</mi> <mo 
class="MathClass-rel">&#x2208;</mo> <mi mathvariant="double-struck">&#x2124;</mi></math>) generating
the <!--l. 117--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><msub><mrow 
><mi 
>Y</mi> </mrow><mrow 
><mi 
>t</mi></mrow></msub 
></math>&#x2019;s
is of a given form, in particular independent identically distributed
(<span 
class="ecti-1200">i.i.d.</span>) normal (Gaussian) random variables, then better inference can
be obtained from the fitted model. For example, such an assumption is
helpful to get accurate confidence or tolerance bounds for a predicted
<!--l. 122--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><msub><mrow 
><mi 
>Y</mi> </mrow><mrow 
><mi 
>T</mi><mo 
class="MathClass-bin">+</mo><mi 
>h</mi></mrow></msub 
></math>. Moreover, under this
Gaussian assumption, <!--l. 123--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mover 
accent="true"><mrow 
><mi 
>&#x03B2;</mi></mrow><mo 
class="MathClass-op">&#x0302;</mo></mover></math>
is asymptotically efficient. It is thus important to have a tool to check the null
hypothesis </p><table class="equation"><tr><td> <a 
  name="x1-7003r2"></a>
<!--l. 125--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="display">
                       <msub><mrow 
><mi 
>H</mi></mrow><mrow 
><mn>0</mn></mrow></msub 
> <mo 
class="MathClass-punc">:</mo> <!--mstyle 
class="text"--><mtext >&#x000A0;the&#x000A0;</mtext><!--/mstyle--><msub><mrow 
><mi 
>&#x03B5;</mi></mrow><mrow 
><mi 
>t</mi></mrow></msub 
><!--mstyle 
class="text"--><mtext >&#x2019;s&#x000A0;are&#x000A0;</mtext><!--/mstyle--><mi 
>i</mi><mo 
class="MathClass-punc">.</mo><mi 
>i</mi><mo 
class="MathClass-punc">.</mo><mi 
>d</mi><mo 
class="MathClass-punc">.</mo> <mo 
class="MathClass-rel">&#x223C;</mo> <mi 
>N</mi><mrow><mo 
class="MathClass-open">(</mo><mrow><mn>0</mn><mo 
class="MathClass-punc">,</mo><msup><mrow 
><mi 
>&#x03C3;</mi></mrow><mrow 
><mn>2</mn></mrow></msup 
></mrow><mo 
class="MathClass-close">)</mo></mrow><mo 
class="MathClass-punc">.</mo>
</math>
<!--l. 127--><p class="nopar"></p></td><td class="eq-no">(2)</td></tr></table>
As pointed out by Pierce and Gray (1985)(<a 
  name="dx1-7004"></a><a 
href="#X1985Pierc552duch">30</a>) and Brockett et al. (1988)(<a 
  name="dx1-7005"></a><a 
href="#X1988Brock657duch">3</a>), other
reasons may motivate a test of (<a 
href="#x1-7003r2">2<!--tex4ht:ref: equation1.2 --></a>). One such reason is to check the fit of the
structural part of (<a 
href="#x1-7001r1">1<!--tex4ht:ref: equation1.1 --></a>). Indeed, the process of fitting a model to data often
reduces to finding the model whose residuals behave most like a sample of
<!--l. 134--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mi 
>i</mi><mo 
class="MathClass-punc">.</mo><mi 
>i</mi><mo 
class="MathClass-punc">.</mo><mi 
>d</mi><mo 
class="MathClass-punc">.</mo></math>
Gaussian variables. In this context, rejection of (<a 
href="#x1-7003r2">2<!--tex4ht:ref: equation1.2 --></a>) may indicate lack-of-fit of the
entertained ARMA model. We will not elaborate further here on this possibility and
assume, in the sequel, that model (<a 
href="#x1-7001r1">1<!--tex4ht:ref: equation1.1 --></a>) is not underspecified. Note however that there
exist specific tests for detecting lack-of-fit (for a recent review, see Koul and Stute
(1999)(<a 
  name="dx1-7006"></a><a 
href="#X1999Koul204duch">22</a>)).
<br class="newline" />
<!--l. 141--><p class="indent">   For the problem of testing (<a 
href="#x1-7003r2">2<!--tex4ht:ref: equation1.2 --></a>), the few tests available fall roughly into
two groups. Tests of the first group use the fact that for the ARMA
(<!--l. 143--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mi 
>p</mi></math>,
<!--l. 143--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mi 
>q</mi></math>) models, normality
of the <!--l. 144--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><msub><mrow 
><mi 
>Y</mi> </mrow><mrow 
><mi 
>t</mi></mrow></msub 
></math>&#x2019;s induces
normality of the <!--l. 144--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><msub><mrow 
><mi 
>&#x03B5;</mi></mrow><mrow 
><mi 
>t</mi></mrow></msub 
></math>&#x2019;s
and vice versa. Thus a test of the hypothesis that a process

(<!--l. 145--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><msub><mrow 
><mi 
>Y</mi> </mrow><mrow 
><mi 
>t</mi></mrow></msub 
></math>,
<!--l. 146--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mi 
>t</mi> <mo 
class="MathClass-rel">&#x2208;</mo> <mi mathvariant="double-struck">&#x2124;</mi></math>) is
Gaussian (Lomnicki (1961)(<a 
  name="dx1-7007"></a><a 
href="#X1961Lomni37duch">25</a>)<span class="frenchb-thinspace"> </span>; Hinich (1982)(<a 
  name="dx1-7008"></a><a 
href="#X1982Hinic169duch">16</a>)<span class="frenchb-thinspace"> </span>; Epps (1987)(<a 
  name="dx1-7009"></a><a 
href="#X1987Epps1683duch">9</a>)) can serve
for problem (<a 
href="#x1-7003r2">2<!--tex4ht:ref: equation1.2 --></a>). This presents the advantage of not requiring the values of
<!--l. 148--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mi 
>p</mi></math> and
<!--l. 148--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mi 
>q</mi></math>.
But Gasser (1975)(<span 
class="ecbx-1200">? </span>) and Granger (1976)(<a 
  name="dx1-7010"></a><a 
href="#X1976Grang237duch">13</a>) have shown, and Lutkepohl
and Schneider (1989)(<a 
  name="dx1-7011"></a><a 
href="#X1989Lutke151duch">26</a>) have confirmed by simulation, that this approach
may lose much power. This is because the central limit theorem forces the
<!--l. 152--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><msub><mrow 
><mi 
>Y</mi> </mrow><mrow 
><mi 
>t</mi></mrow></msub 
></math>&#x2019;s to
be close to normality even when (<a 
href="#x1-7003r2">2<!--tex4ht:ref: equation1.2 --></a>) is false. Moreover, the adaptation of standard
normality tests to dependent data is not an easy task. A small simulation study by Heuts
and Rens (1986)(<a 
  name="dx1-7012"></a><a 
href="#X1986Heuts49duch">15</a>) has shown that, because of the serial correlation between the
<!--l. 157--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><msub><mrow 
><mi 
>Y</mi> </mrow><mrow 
><mi 
>t</mi></mrow></msub 
></math>&#x2019;s, the finite null
behavior of standard normality tests based on the empirical distribution function (EDF) of the
<!--l. 158--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><msub><mrow 
><mi 
>Y</mi> </mrow><mrow 
><mi 
>t</mi></mrow></msub 
></math>&#x2019;s is different from
what is obtained under <!--l. 159--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mi 
>i</mi><mo 
class="MathClass-punc">.</mo><mi 
>i</mi><mo 
class="MathClass-punc">.</mo><mi 
>d</mi><mo 
class="MathClass-punc">.</mo></math>
data. The same problem appears for tests based on the third or fourth moment of
<!--l. 161--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><msub><mrow 
><mi 
>Y</mi> </mrow><mrow 
><mi 
>t</mi></mrow></msub 
></math> (see
Lomnicki (1961)(<a 
  name="dx1-7013"></a><a 
href="#X1961Lomni37duch">25</a>)<span class="frenchb-thinspace"> </span>; Lutkepohl and Schneider (1989)(<a 
  name="dx1-7014"></a><a 
href="#X1989Lutke151duch">26</a>)) and for Pearson&#x2019;s
chi-square test (Moore (1982)(<a 
  name="dx1-7015"></a><a 
href="#X1982Moore1163duch">27</a>)).
<br class="newline" />
</p><!--l. 165--><p class="indent">   It thus appears better, when there are reasons to believe that a given
ARMA(<!--l. 166--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mi 
>p</mi></math>,
<!--l. 166--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mi 
>q</mi></math>)
model holds, to &#x0022;inverse filter&#x0022; the data and compute the residuals
<!--l. 167--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><msub><mrow 
><mover 
accent="true"><mrow 
><mi 
>&#x03B5;</mi></mrow><mo 
class="MathClass-op">&#x0302;</mo></mover></mrow><mrow 
><mi 
>t</mi></mrow></msub 
></math> of the
fitted model. These can then be subjected to some test of normality. Tests of the
second group are based on this idea and some examples are listed in Hipel and McLeod
(1994)(<a 
  name="dx1-7016"></a><a 
href="#X1994Hipelduch">17</a>). However, these and other authors use such tests in conjunction with critical
values for <!--l. 171--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mi 
>i</mi><mo 
class="MathClass-punc">.</mo><mi 
>i</mi><mo 
class="MathClass-punc">.</mo><mi 
>d</mi><mo 
class="MathClass-punc">.</mo></math>
data. Since the residuals of an ARMA model are dependent, the null
distribution of standard test statistics may be affected and critical values for
<!--l. 173--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mi 
>i</mi><mo 
class="MathClass-punc">.</mo><mi 
>i</mi><mo 
class="MathClass-punc">.</mo><mi 
>d</mi><mo 
class="MathClass-punc">.</mo></math> data
may no longer be valid. It turns out that for AR models, there is theoretical evidence
that this dependence affects only slightly the critical values, at least when
<!--l. 175--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mi 
>T</mi></math> is large. For
an AR(<!--l. 176--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mi 
>p</mi></math>) model
with unknown <!--l. 176--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mi 
>E</mi><mrow><mo 
class="MathClass-open">(</mo><mrow><msub><mrow 
><mi 
>Y</mi> </mrow><mrow 
><mi 
>t</mi></mrow></msub 
></mrow><mo 
class="MathClass-close">)</mo></mrow></math>,
Pierce (1985)(<a 
  name="dx1-7017"></a><a 
href="#X1985Pierc552duch">30</a>) has shown that the asymptotic null distribution of any test statistic
based on the EDF of the residuals coincides with that of the same statistic for
<!--l. 179--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mi 
>i</mi><mo 
class="MathClass-punc">.</mo><mi 
>i</mi><mo 
class="MathClass-punc">.</mo><mi 
>d</mi><mo 
class="MathClass-punc">.</mo></math> data
with mean and variance unknown. Thus one can insert the residuals from an

AR(<!--l. 180--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mi 
>p</mi></math>)
model into any of the standard EDF-based tests (Kolmogorov-Smirnov, Anderson-Darling)
and if <!--l. 181--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mi 
>T</mi></math>
is large, use the critical values given, for example, in Chapter 4 of D&#x2019;Agostino and
Stephens (1986)(<a 
  name="dx1-7018"></a><a 
href="#X1986Dagosduch">7</a>), to obtain an asymptotically valid test strategy. In the same vein,
Lee and Na (2001)(<a 
  name="dx1-7019"></a><a 
href="#X2001Leeduch">24</a>) have recently adapted the Bickel-Rosenblatt test to
this AR setting. Beiser (1985)(<a 
  name="dx1-7020"></a><a 
href="#X1985Beiseduch">2</a>) has found that for the AR(1) model, tests
based on the skewness or kurtosis coefficient of the residuals (D&#x2019;Agostino and
Stephens (1986)(<a 
  name="dx1-7021"></a><a 
href="#X1986Dagosduch">7</a>), p. 408) in conjunction with the critical points derived for
<!--l. 188--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mi 
>i</mi><mo 
class="MathClass-punc">.</mo><mi 
>i</mi><mo 
class="MathClass-punc">.</mo><mi 
>d</mi><mo 
class="MathClass-punc">.</mo></math> data produce
valid levels if <!--l. 189--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mi 
>T</mi></math>
is large and the AR-parameter is not too close to its boundary. This has been
confirmed by Lutkepohl and Schneider (1989)(<a 
  name="dx1-7022"></a><a 
href="#X1989Lutke151duch">26</a>). See also Andel (1997)(<a 
  name="dx1-7023"></a><a 
href="#X1997Andel161duch">1</a>).
<br class="newline" />
</p><!--l. 193--><p class="indent">   For the general ARMA model, much less is known. Ojeda et al. (1997)(<a 
  name="dx1-7024"></a><a 
href="#X1997Ojeda3713duch">29</a>)
show that tests based on quadratic forms in differences between sample
moments and expected values of certain non-linear functions of the sample
have the same asymptotic distribution under the ARMA model as under
<!--l. 196--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mi 
>i</mi><mo 
class="MathClass-punc">.</mo><mi 
>i</mi><mo 
class="MathClass-punc">.</mo><mi 
>d</mi><mo 
class="MathClass-punc">.</mo></math> data.
This suggests that a generalization of Pierce (1985)(<a 
  name="dx1-7025"></a><a 
href="#X1985Pierc552duch">30</a>) theorem to ARMA models
could hold although, to our knowledge, no proof of this has been published. In
accordance with this conjecture, the practice recommended in many textbooks (see for
example, Brockwell and Davis (1991)(<a 
  name="dx1-7026"></a><a 
href="#X1991Brockduch">4</a>), p. 314<span class="frenchb-thinspace"> </span>; Hipel and McLeod (1994)(<a 
  name="dx1-7027"></a><a 
href="#X1994Hipelduch">17</a>), p.
241) is to use standard normality tests in conjunction with critical values for
<!--l. 202--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mi 
>i</mi><mo 
class="MathClass-punc">.</mo><mi 
>i</mi><mo 
class="MathClass-punc">.</mo><mi 
>d</mi><mo 
class="MathClass-punc">.</mo></math>
data.
<br class="newline" />
</p><!--l. 204--><p class="indent">   In this paper, we develop some tests designed specifically for problem (<a 
href="#x1-7003r2">2<!--tex4ht:ref: equation1.2 --></a>) in the
ARMA(<!--l. 205--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mi 
>p</mi></math>,
<!--l. 205--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mi 
>q</mi></math>)
context. Our approach is based on the smooth test paradigm introduced by Neyman
(1937)(<a 
  name="dx1-7028"></a><a 
href="#X1937Neyma149duch">28</a>) and improved by the data driven technology introduced by Ledwina
(1994)(<a 
  name="dx1-7029"></a><a 
href="#X1994Ledwi1000duch">23</a>) to select the best order for the test. This approach has been shown in the
<!--l. 209--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mi 
>i</mi><mo 
class="MathClass-punc">.</mo><mi 
>i</mi><mo 
class="MathClass-punc">.</mo><mi 
>d</mi><mo 
class="MathClass-punc">.</mo></math> case to
offer many advantages, both theoretically and empirically, over other tests. In particular,
the test statistic we recommend for problem (<a 
href="#x1-7003r2">2<!--tex4ht:ref: equation1.2 --></a>) is easy to compute with an asymptotic
<!--l. 212--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><msup><mrow 
><mi 
>&#x03C7;</mi></mrow><mrow 
><mn>2</mn></mrow></msup 
></math>
distribution that can be corrected in finite samples to yield a close to nominal level.
Moreover, as a byproduct of the procedure, diagnostic information is available that
helps in understanding which aspects of the null hypothesis are not supported by the
data.
<br class="newline" />
</p><!--l. 218--><p class="indent">   Note that we concentrate here on the development of valid tests along this paradigm

and do not dwell into their theoretical properties (i.e. local power and asymptotic
efficiency). We also stress that the tests proposed here are valid solely for the case
where <!--l. 221--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mi 
>E</mi><mrow><mo 
class="MathClass-open">(</mo><mrow><msub><mrow 
><mi 
>Y</mi> </mrow><mrow 
><mi 
>t</mi></mrow></msub 
></mrow><mo 
class="MathClass-close">)</mo></mrow></math>
is assumed known. The case where an unknown trend is present in (<a 
href="#x1-7001r1">1<!--tex4ht:ref: equation1.1 --></a>) requires a
special treatment and is the object of current research.
<br class="newline" />
</p><!--l. 226--><p class="indent">   The paper is organized as follows. In Section 2, we develop the smooth goodness-of-fit test in
the ARMA(<!--l. 227--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mi 
>p</mi></math>,
<!--l. 227--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mi 
>q</mi></math>)
context of (<a 
href="#x1-7001r1">1<!--tex4ht:ref: equation1.1 --></a>). In Section 3, we describe the data-driven technology that
allows to &#x0022;fine tune&#x0022; the test by choosing a good value for its order.
In Section 4, a Monte-Carlo study is conducted for some values of
(<!--l. 231--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mi 
>p</mi></math>,
<!--l. 231--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mi 
>q</mi></math>) to
study the behavior of the proposed tests under the null hypothesis and compare their
power to some competitors. It emerges that, under the null hypothesis, one of our data
driven smooth tests holds its level over most of the parameter space and, under the
alternatives studied, is in general more powerful than other methods. It can thus
be recommended as a good tool for problem (<a 
href="#x1-7003r2">2<!--tex4ht:ref: equation1.2 --></a>). An example concludes the
paper.
</p>
   <h3 class="sectionHead"><span class="titlemark">2. </span> <a 
  name="x1-80002"></a>Smooth test of normality in the ARMA context</h3>
<!--l. 237--><p class="noindent">Let <!--l. 237--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mi 
>&#x03A6;</mi><mrow><mo 
class="MathClass-open">(</mo><mrow><mo 
class="MathClass-punc">.</mo></mrow><mo 
class="MathClass-close">)</mo></mrow></math> be the cumulative
distribution function of the <!--l. 237--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mi 
>N</mi><mrow><mo 
class="MathClass-open">(</mo><mrow><mn>0</mn><mo 
class="MathClass-punc">,</mo> <mn>1</mn></mrow><mo 
class="MathClass-close">)</mo></mrow></math>
distribution with density <!--l. 238--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mi 
>&#x03C6;</mi><mrow><mo 
class="MathClass-open">(</mo><mrow><mo 
class="MathClass-punc">.</mo></mrow><mo 
class="MathClass-close">)</mo></mrow></math>
and let <!--l. 238--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><msub><mrow 
><mi 
>U</mi></mrow><mrow 
><mi 
>t</mi></mrow></msub 
> <mo 
class="MathClass-rel">=</mo> <mn>2</mn><mi 
>&#x03A6;</mi><mrow><mo 
class="MathClass-open">(</mo><mrow><msub><mrow 
><mi 
>&#x03B5;</mi></mrow><mrow 
><mi 
>t</mi></mrow></msub 
><mo 
class="MathClass-bin">&#x2215;</mo><mi 
>&#x03C3;</mi></mrow><mo 
class="MathClass-close">)</mo></mrow> <mo 
class="MathClass-bin">&#x2212;</mo> <mn>1</mn></math> with
density <!--l. 239--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mi 
>g</mi><mrow><mo 
class="MathClass-open">(</mo><mrow><mo 
class="MathClass-punc">.</mo></mrow><mo 
class="MathClass-close">)</mo></mrow></math>.
Under <!--l. 239--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><msub><mrow 
><mi 
>H</mi></mrow><mrow 
><mn>0</mn></mrow></msub 
></math> of (<a 
href="#x1-7003r2">2<!--tex4ht:ref: equation1.2 --></a>),
the <!--l. 239--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><msub><mrow 
><mi 
>U</mi></mrow><mrow 
><mi 
>t</mi></mrow></msub 
></math>&#x2019;s are
<!--l. 239--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mi 
>i</mi><mo 
class="MathClass-punc">.</mo><mi 
>i</mi><mo 
class="MathClass-punc">.</mo><mi 
>d</mi><mo 
class="MathClass-punc">.</mo></math> U[-1, 1] so that (<a 
href="#x1-7003r2">2<!--tex4ht:ref: equation1.2 --></a>)
reduces to testing <!--l. 241--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mi 
>g</mi><mrow><mo 
class="MathClass-open">(</mo><mrow><mi 
>u</mi></mrow><mo 
class="MathClass-close">)</mo></mrow> <mo 
class="MathClass-rel">=</mo> <mn>1</mn><mo 
class="MathClass-bin">&#x2215;</mo><mn>2</mn></math>
on [-1, 1]. The <!--l. 241--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><msub><mrow 
><mi 
>&#x03B5;</mi></mrow><mrow 
><mi 
>t</mi></mrow></msub 
></math>&#x2019;s
are unobserved so the test must be based on residuals. Since the process
<!--l. 242--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mrow><mo 
class="MathClass-open">(</mo><mrow><msub><mrow 
><mi 
>Y</mi> </mrow><mrow 
><mi 
>t</mi></mrow></msub 
><mo 
class="MathClass-punc">,</mo><mi 
>t</mi> <mo 
class="MathClass-rel">&#x2208;</mo> <mi mathvariant="double-struck">&#x2124;</mi></mrow><mo 
class="MathClass-close">)</mo></mrow></math> is
invertible, we have </p><table class="equation"><tr><td> <a 
  name="x1-8001r1"></a>

<!--l. 243--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="display">
                             <msub><mrow 
><mi 
>&#x03B5;</mi></mrow><mrow 
><mi 
>t</mi></mrow></msub 
> <mo 
class="MathClass-rel">=</mo> <mo 
class="MathClass-bin">&#x2212;</mo><msubsup><mrow 
><mo 
class="MathClass-op">&#x2211;</mo>
  </mrow><mrow 
><mi 
>r</mi><mo 
class="MathClass-rel">=</mo><mn>0</mn></mrow><mrow 
><mi 
>&#x221E;</mi></mrow></msubsup 
><msub><mrow 
><mi 
>&#x03B4;</mi></mrow><mrow 
>
<mi 
>r</mi></mrow></msub 
><msub><mrow 
><mi 
>Y</mi> </mrow><mrow 
><mi 
>t</mi><mo 
class="MathClass-bin">&#x2212;</mo><mi 
>r</mi></mrow></msub 
>
</math>
<!--l. 245--><p class="nopar"></p></td><td class="eq-no">(1)</td></tr></table>
where the <!--l. 246--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><msub><mrow 
><mi 
>&#x03B4;</mi></mrow><mrow 
><mi 
>r</mi></mrow></msub 
></math>&#x2019;s are
functions of <!--l. 246--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mi 
>&#x03B8;</mi></math> and
<!--l. 246--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mi 
>&#x03D5;</mi></math> (see (<a 
href="#x1-14004r2">A.2<!--tex4ht:ref: equationA.2 --></a>), (<a 
href="#x1-14005r3">A.3<!--tex4ht:ref: equationA.3 --></a>) of
Appendix A). Let <!--l. 246--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><msub><mrow 
><mover 
accent="true"><mrow 
><mi 
>&#x03B4;</mi></mrow><mo 
class="MathClass-op">&#x0302;</mo></mover></mrow><mrow 
><mi 
>r</mi></mrow></msub 
></math>
be the Gaussian maximum likelihood estimator (<span 
class="ecti-1200">m.l.e.</span>) of
<!--l. 246--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><msub><mrow 
><mi 
>&#x03B4;</mi></mrow><mrow 
><mi 
>r</mi></mrow></msub 
></math> under (<a 
href="#x1-7003r2">2<!--tex4ht:ref: equation1.2 --></a>), obtained by
plugging in the <span 
class="ecti-1200">m.l.e. </span><!--l. 246--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mover 
accent="true"><mrow 
><mi 
>&#x03B8;</mi></mrow><mo 
class="MathClass-op">&#x0302;</mo></mover></math>
and <!--l. 246--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mover 
accent="true"><mrow 
><mi 
>&#x03D5;</mi></mrow><mo 
class="MathClass-op">&#x0302;</mo></mover></math>
under <!--l. 246--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><msub><mrow 
><mi 
>H</mi></mrow><mrow 
><mn>0</mn></mrow></msub 
></math>.
We define the residuals of the fitted ARMA model by <table class="equation"><tr><td> <a 
  name="x1-8002r2"></a>
<!--l. 247--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="display"><msub><mrow 
>
                            <mover 
accent="true"><mrow 
><mi 
>&#x03B5;</mi></mrow><mo 
class="MathClass-op">&#x0302;</mo></mover></mrow><mrow 
><mi 
>t</mi></mrow></msub 
> <mo 
class="MathClass-rel">=</mo> <mo 
class="MathClass-bin">&#x2212;</mo><msubsup><mrow 
><mo 
class="MathClass-op">&#x2211;</mo>
  </mrow><mrow 
><mi 
>r</mi><mo 
class="MathClass-rel">=</mo><mn>0</mn></mrow><mrow 
><mi 
>&#x221E;</mi></mrow></msubsup 
><msub><mrow 
><mover 
accent="true"><mrow 
><mi 
>&#x03B4;</mi></mrow><mo 
class="MathClass-op">&#x0302;</mo></mover></mrow><mrow 
>
<mi 
>r</mi></mrow></msub 
><msub><mrow 
><mi 
>Y</mi> </mrow><mrow 
><mi 
>t</mi><mo 
class="MathClass-bin">&#x2212;</mo><mi 
>r</mi></mrow></msub 
><mo 
class="MathClass-punc">.</mo>
</math>
<!--l. 249--><p class="nopar"></p></td><td class="eq-no">(2)</td></tr></table>
In practice, some scheme must be used to compute these residuals, for example by taking
<!--l. 251--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><msub><mrow 
><mi 
>Y</mi> </mrow><mrow 
><mi 
>t</mi></mrow></msub 
> <mo 
class="MathClass-rel">=</mo> <mn>0</mn></math> if
<!--l. 251--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mi 
>t</mi> <mo 
class="MathClass-rel">&#x003C;</mo> <mn>1</mn></math>. Note
that other residuals can be defined for ARMA models (see Brockwell and Davis (1991)(<a 
  name="dx1-8003"></a><a 
href="#X1991Brockduch">4</a>),
Section 9.4) but the definition above is convenient for the following derivation. Consider
<!--l. 255--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><msub><mrow 
><mover 
accent="true"><mrow 
><mi 
>U</mi></mrow><mo 
class="MathClass-op">&#x0302;</mo></mover></mrow><mrow 
><mi 
>t</mi></mrow></msub 
> <mo 
class="MathClass-rel">=</mo> <mn>2</mn><mi 
>&#x03A6;</mi><mrow><mo 
class="MathClass-open">(</mo><mrow><msub><mrow 
><mover 
accent="true"><mrow 
><mi 
>&#x03B5;</mi></mrow><mo 
class="MathClass-op">&#x0302;</mo></mover></mrow><mrow 
><mi 
>t</mi></mrow></msub 
><mo 
class="MathClass-bin">&#x2215;</mo><mover 
accent="true"><mrow 
><mi 
>&#x03C3;</mi></mrow><mo 
class="MathClass-op">&#x0302;</mo></mover></mrow><mo 
class="MathClass-close">)</mo></mrow> <mo 
class="MathClass-bin">&#x2212;</mo> <mn>1</mn></math> ,
<!--l. 256--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mi 
>t</mi> <mo 
class="MathClass-rel">=</mo> <mn>1</mn><mo 
class="MathClass-punc">,</mo><mo 
class="MathClass-punc">.</mo><mo 
class="MathClass-punc">.</mo><mo 
class="MathClass-punc">.</mo><mo 
class="MathClass-punc">,</mo><mi 
>T</mi></math>. Let
<!--l. 257--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mrow><mo 
class="MathClass-open">{</mo><mrow><msub><mrow 
><mi 
>L</mi></mrow><mrow 
><mi 
>k</mi></mrow></msub 
><mrow><mo 
class="MathClass-open">(</mo><mrow><mo 
class="MathClass-punc">.</mo></mrow><mo 
class="MathClass-close">)</mo></mrow><mo 
class="MathClass-punc">,</mo><mi 
>k</mi> <mo 
class="MathClass-rel">&#x2265;</mo> <mn>0</mn></mrow><mo 
class="MathClass-close">}</mo></mrow></math> be
the normalized (over [-1, 1]) Legendre polynomials (Sansone (1959)(<a 
  name="dx1-8004"></a><a 
href="#X1959Sansoduch">32</a>)) with
<!--l. 258--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><msub><mrow 
><mi 
>L</mi></mrow><mrow 
><mn>0</mn></mrow></msub 
><mrow><mo 
class="MathClass-open">(</mo><mrow><mo 
class="MathClass-punc">.</mo></mrow><mo 
class="MathClass-close">)</mo></mrow> <mo 
class="MathClass-rel">&#x2261;</mo> <mn>1</mn></math>
satisfying <table class="equation"><tr><td> <a 
  name="x1-8005r3"></a>

<!--l. 259--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="display">
               <mfrac><mrow 
><mn>1</mn></mrow>
<mrow 
><mn>2</mn></mrow></mfrac><msubsup><mrow 
> <mo 
class="MathClass-op">&#x222B;</mo>
                   </mrow><mrow 
><mo 
class="MathClass-bin">&#x2212;</mo><mn>1</mn></mrow><mrow 
><mn>1</mn></mrow></msubsup 
><msub><mrow 
><mi 
>L</mi></mrow><mrow 
>
<mi 
>k</mi></mrow></msub 
><mrow><mo 
class="MathClass-open">(</mo><mrow><mi 
>x</mi></mrow><mo 
class="MathClass-close">)</mo></mrow><msub><mrow 
><mi 
>L</mi></mrow><mrow 
><mi 
>j</mi></mrow></msub 
><mrow><mo 
class="MathClass-open">(</mo><mrow><mi 
>x</mi></mrow><mo 
class="MathClass-close">)</mo></mrow><mi 
>d</mi><mi 
>x</mi> <mo 
class="MathClass-rel">=</mo> <mn>1</mn><!--mstyle 
class="text"--><mtext >&#x000A0;if&#x000A0;</mtext><!--/mstyle--><mi 
>k</mi> <mo 
class="MathClass-rel">=</mo> <mi 
>j</mi><!--mstyle 
class="text"--><mtext >&#x000A0;and&#x000A0;</mtext><!--/mstyle--><mn>0</mn><!--mstyle 
class="text"--><mtext >&#x000A0;otherwise</mtext><!--/mstyle--><mo 
class="MathClass-punc">.</mo>
</math>
<!--l. 262--><p class="nopar"></p></td><td class="eq-no">(3)</td></tr></table>
For some integer <!--l. 263--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mi 
>K</mi> <mo 
class="MathClass-rel">&#x2265;</mo> <mn>1</mn></math>,
consider the density defined on [-1, 1] by <table class="equation"><tr><td> <a 
  name="x1-8006r4"></a>
<!--l. 264--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="display">
                    <msub><mrow 
><mi 
>g</mi></mrow><mrow 
><mi 
>K</mi></mrow></msub 
><mrow><mo 
class="MathClass-open">(</mo><mrow><mi 
>u</mi><mo 
class="MathClass-punc">;</mo> <mi 
>&#x03C9;</mi></mrow><mo 
class="MathClass-close">)</mo></mrow> <mo 
class="MathClass-rel">=</mo> <mi 
>c</mi><mrow><mo 
class="MathClass-open">(</mo><mrow><mi 
>&#x03C9;</mi></mrow><mo 
class="MathClass-close">)</mo></mrow><mo 
> exp</mo><!--nolimits--> <mfenced separators="" 
open="{"  close="}" ><mrow><msubsup><mrow 
><mo 
class="MathClass-op">&#x2211;</mo>
  </mrow><mrow 
><mi 
>k</mi><mo 
class="MathClass-rel">=</mo><mn>1</mn></mrow><mrow 
><mi 
>K</mi></mrow></msubsup 
><msub><mrow 
><mi 
>&#x03C9;</mi></mrow><mrow 
>
<mi 
>k</mi></mrow></msub 
><msub><mrow 
><mi 
>L</mi></mrow><mrow 
><mi 
>k</mi></mrow></msub 
><mrow><mo 
class="MathClass-open">(</mo><mrow><mi 
>u</mi></mrow><mo 
class="MathClass-close">)</mo></mrow></mrow></mfenced> <mo 
class="MathClass-punc">,</mo>
</math>
<!--l. 266--><p class="nopar"></p></td><td class="eq-no">(4)</td></tr></table>
where <!--l. 267--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mi 
>c</mi><mrow><mo 
class="MathClass-open">(</mo><mrow><mi 
>&#x03C9;</mi></mrow><mo 
class="MathClass-close">)</mo></mrow></math> is a normalizing constant
such that <!--l. 267--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mi 
>c</mi><mrow><mo 
class="MathClass-open">(</mo><mrow><mn>0</mn></mrow><mo 
class="MathClass-close">)</mo></mrow> <mo 
class="MathClass-rel">=</mo> <mn>1</mn><mo 
class="MathClass-bin">&#x2215;</mo><mn>2</mn></math>. In the smooth
test paradigm, (<a 
href="#x1-8006r4">4<!--tex4ht:ref: equation2.4 --></a>) is the <!--l. 269--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mi 
>K</mi></math>-th
order alternative with <!--l. 269--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><msub><mrow 
><mi 
>g</mi></mrow><mrow 
><mi 
>K</mi></mrow></msub 
><mrow><mo 
class="MathClass-open">(</mo><mrow><mo 
class="MathClass-punc">.</mo><mo 
class="MathClass-punc">;</mo> <mn>0</mn></mrow><mo 
class="MathClass-close">)</mo></mrow></math> being
the U[-1, 1] density. Thus, if <!--l. 269--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mi 
>g</mi><mrow><mo 
class="MathClass-open">(</mo><mrow><mi 
>u</mi></mrow><mo 
class="MathClass-close">)</mo></mrow></math>
can be approximated by (<a 
href="#x1-8006r4">4<!--tex4ht:ref: equation2.4 --></a>), (<a 
href="#x1-7003r2">2<!--tex4ht:ref: equation1.2 --></a>) reduces to testing
<!--l. 271--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><msub><mrow 
><mi 
>H</mi></mrow><mrow 
><mn>0</mn></mrow></msub 
></math>&#x00A0;:
<!--l. 271--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mi 
>&#x03C9;</mi> <mo 
class="MathClass-rel">=</mo> <mn>0</mn></math>. For this, we use the
following route. Let <!--l. 273--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><msub><mrow 
><mi 
>L</mi></mrow><mrow 
><mi 
>t</mi></mrow></msub 
> <mo 
class="MathClass-rel">=</mo> <mrow><mo 
class="MathClass-open">(</mo><mrow><msub><mrow 
><mi 
>L</mi></mrow><mrow 
><mn>1</mn></mrow></msub 
><mrow><mo 
class="MathClass-open">(</mo><mrow><msub><mrow 
><mi 
>U</mi></mrow><mrow 
><mi 
>t</mi></mrow></msub 
></mrow><mo 
class="MathClass-close">)</mo></mrow><mo 
class="MathClass-punc">,</mo><mo 
class="MathClass-punc">.</mo><mo 
class="MathClass-punc">.</mo><mo 
class="MathClass-punc">.</mo><mo 
class="MathClass-punc">,</mo><msub><mrow 
><mi 
>L</mi></mrow><mrow 
><mi 
>K</mi></mrow></msub 
><mrow><mo 
class="MathClass-open">(</mo><mrow><msub><mrow 
><mi 
>U</mi></mrow><mrow 
><mi 
>t</mi></mrow></msub 
></mrow><mo 
class="MathClass-close">)</mo></mrow></mrow><mo 
class="MathClass-close">)</mo></mrow><!--mstyle 
class="text"--><mtext >T</mtext><!--/mstyle--></math>,
<!--l. 274--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><msub><mrow 
><mover 
accent="true"><mrow 
><mi 
>L</mi></mrow><mo 
class="MathClass-op">&#x0302;</mo></mover></mrow><mrow 
><mi 
>t</mi></mrow></msub 
> <mo 
class="MathClass-rel">=</mo> <mrow><mo 
class="MathClass-open">(</mo><mrow><msub><mrow 
><mi 
>L</mi></mrow><mrow 
><mn>1</mn></mrow></msub 
><mrow><mo 
class="MathClass-open">(</mo><mrow><msub><mrow 
><mover 
accent="true"><mrow 
><mi 
>U</mi></mrow><mo 
class="MathClass-op">&#x0302;</mo></mover></mrow><mrow 
><mi 
>t</mi></mrow></msub 
></mrow><mo 
class="MathClass-close">)</mo></mrow><mo 
class="MathClass-punc">,</mo><mo 
class="MathClass-punc">.</mo><mo 
class="MathClass-punc">.</mo><mo 
class="MathClass-punc">.</mo><mo 
class="MathClass-punc">,</mo><msub><mrow 
><mi 
>L</mi></mrow><mrow 
><mi 
>K</mi></mrow></msub 
><mrow><mo 
class="MathClass-open">(</mo><mrow><msub><mrow 
><mover 
accent="true"><mrow 
><mi 
>U</mi></mrow><mo 
class="MathClass-op">&#x0302;</mo></mover></mrow><mrow 
><mi 
>t</mi></mrow></msub 
></mrow><mo 
class="MathClass-close">)</mo></mrow></mrow><mo 
class="MathClass-close">)</mo></mrow><!--mstyle 
class="text"--><mtext >T</mtext><!--/mstyle--></math> and <table class="equation"><tr><td>
<a 
  name="x1-8007r5"></a>
<!--l. 276--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="display">
                             <mover accent="false" 
class="mml-overline"><mrow><mover 
accent="true"><mrow 
><mi 
>L</mi></mrow><mo 
class="MathClass-op">&#x0302;</mo></mover></mrow><mo 
accent="true">&#x00AF;</mo></mover> <mo 
class="MathClass-rel">=</mo> <msup><mrow 
><mi 
>T</mi></mrow><mrow 
><mo 
class="MathClass-bin">&#x2212;</mo><mn>1</mn></mrow></msup 
><msubsup><mrow 
> <mo 
class="MathClass-op">&#x2211;</mo>
    </mrow><mrow 
><mi 
>t</mi><mo 
class="MathClass-rel">=</mo><mn>1</mn></mrow><mrow 
><mi 
>T</mi> </mrow></msubsup 
><msub><mrow 
><mover 
accent="true"><mrow 
><mi 
>L</mi></mrow><mo 
class="MathClass-op">&#x0302;</mo></mover></mrow><mrow 
>
<mi 
>t</mi></mrow></msub 
><mo 
class="MathClass-punc">.</mo>
</math>
<!--l. 278--><p class="nopar"></p></td><td class="eq-no">(5)</td></tr></table>
Under <!--l. 279--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><msub><mrow 
><mi 
>H</mi></mrow><mrow 
><mn>0</mn></mrow></msub 
></math>,
<!--l. 279--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><msub><mrow 
><mi 
>L</mi></mrow><mrow 
><mi 
>t</mi></mrow></msub 
></math> has mean
<!--l. 279--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mn>0</mn></math> and covariance
matrix <!--l. 280--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><msub><mrow 
><mi 
>I</mi></mrow><mrow 
><mi 
>K</mi></mrow></msub 
></math>,

the <!--l. 280--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mi 
>K</mi></math>-th
order identity matrix. Under (<a 
href="#x1-8006r4">4<!--tex4ht:ref: equation2.4 --></a>), these moments will differ and (<a 
href="#x1-8007r5">5<!--tex4ht:ref: equation2.5 --></a>) can
be used to capture departures from the U[-1, 1] in the &#x0022;direction&#x0022; of
<!--l. 283--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><msub><mrow 
><mi 
>g</mi></mrow><mrow 
><mi 
>K</mi></mrow></msub 
><mrow><mo 
class="MathClass-open">(</mo><mrow><mo 
class="MathClass-punc">.</mo><mo 
class="MathClass-punc">;</mo> <mi 
>&#x03C9;</mi></mrow><mo 
class="MathClass-close">)</mo></mrow></math>.
This suggests as a test statistic a quadratic form in
<!--l. 284--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mover accent="false" 
class="mml-overline"><mrow><mover 
accent="true"><mrow 
><mi 
>L</mi></mrow><mo 
class="MathClass-op">&#x0302;</mo></mover></mrow><mo 
accent="true">&#x00AF;</mo></mover></math> . To
complete the test, we need the null asymptotic distribution of (<a 
href="#x1-8007r5">5<!--tex4ht:ref: equation2.5 --></a>). This is given in the
following theorem.

   <div class="newtheorem">
<!--l. 288--><p class="noindent"><span class="head">
<a 
  name="x1-8008r1"></a>
<span 
class="ecbx-1200">Theorem 1.</span></span>
   <span 
class="ecti-1200">Consider the causal and invertible</span>
<span 
class="ecti-1200">ARMA(</span><!--l. 290--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mi 
>p</mi></math><span 
class="ecti-1200">,</span>
<!--l. 290--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mi 
>q</mi></math><span 
class="ecti-1200">) process of (</span><a 
href="#x1-7001r1"><span 
class="ecti-1200">1</span><!--tex4ht:ref: equation1.1 --></a><span 
class="ecti-1200">) where</span>
<span 
class="ecti-1200">we assume </span><!--l. 292--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mn>1</mn> <mo 
class="MathClass-bin">&#x2212;</mo> <msub><mrow 
><mi 
>&#x03D5;</mi></mrow><mrow 
><mn>1</mn></mrow></msub 
><mi 
>z</mi> <mo 
class="MathClass-bin">&#x2212;</mo> <mo 
class="MathClass-punc">.</mo><mo 
class="MathClass-punc">.</mo><mo 
class="MathClass-punc">.</mo> <mo 
class="MathClass-bin">&#x2212;</mo> <msub><mrow 
><mi 
>&#x03D5;</mi></mrow><mrow 
><mi 
>p</mi></mrow></msub 
><msup><mrow 
><mi 
>z</mi></mrow><mrow 
><mi 
>p</mi></mrow></msup 
></math> <span 
class="ecti-1200">and</span>
<!--l. 292--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mn>1</mn> <mo 
class="MathClass-bin">+</mo> <msub><mrow 
><mi 
>&#x03B8;</mi></mrow><mrow 
><mn>1</mn></mrow></msub 
><mi 
>z</mi> <mo 
class="MathClass-bin">+</mo> <mo 
class="MathClass-punc">.</mo><mo 
class="MathClass-punc">.</mo><mo 
class="MathClass-punc">.</mo> <mo 
class="MathClass-bin">+</mo> <msub><mrow 
><mi 
>&#x03B8;</mi></mrow><mrow 
><mi 
>q</mi></mrow></msub 
><msup><mrow 
><mi 
>z</mi></mrow><mrow 
><mi 
>q</mi></mrow></msup 
></math> <span 
class="ecti-1200">have no common</span>
<span 
class="ecti-1200">zeroes. Under </span><!--l. 293--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><msub><mrow 
><mi 
>H</mi></mrow><mrow 
><mn>0</mn></mrow></msub 
></math><span 
class="ecti-1200">,</span>
<span 
class="ecti-1200">we have</span> </p><table class="equation"><tr><td> <a 
  name="x1-8009r6"></a>
<!--l. 294--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="display">
                         <msqrt><mrow>
<mi 
>T</mi></mrow></msqrt><mover accent="false" 
class="mml-overline"><mrow><mover 
accent="true"><mrow 
><mi 
>L</mi></mrow><mo 
class="MathClass-op">&#x0302;</mo></mover></mrow><mo 
accent="true">&#x00AF;</mo></mover><mover 
class="stackrel"><mrow 
><mo 
class="MathClass-rel">&#x2192;</mo></mrow><mrow 
><mo 
class="MathClass-op">L</mo></mrow></mover><msub><mrow 
><mi 
>N</mi></mrow><mrow 
><mi 
>K</mi></mrow></msub 
> <mfenced separators="" 
open="("  close=")" ><mrow><mn>0</mn><mo 
class="MathClass-punc">,</mo><msub><mrow 
><mi 
>I</mi></mrow><mrow 
><mi 
>K</mi></mrow></msub 
> <mo 
class="MathClass-bin">&#x2212;</mo><mfrac><mrow 
><mn>1</mn></mrow> 
<mrow 
><mn>2</mn></mrow></mfrac><msub><mrow 
><mi 
>b</mi></mrow><mrow 
><mi 
>K</mi></mrow></msub 
><msub><mrow 
><mi 
>b</mi></mrow><mrow 
><mi 
>K</mi></mrow></msub 
><!--mstyle 
class="text"--><mtext >T</mtext><!--/mstyle--></mrow></mfenced>
</math>
<!--l. 296--><p class="nopar"></p></td><td class="eq-no">(6)</td></tr></table>
<span 
class="ecti-1200">where </span><!--l. 297--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><msub><mrow 
><mi 
>b</mi></mrow><mrow 
><mi 
>K</mi></mrow></msub 
> <mo 
class="MathClass-rel">=</mo> <mrow><mo 
class="MathClass-open">(</mo><mrow><msub><mrow 
><mi 
>b</mi></mrow><mrow 
><mn>1</mn></mrow></msub 
><mo 
class="MathClass-punc">,</mo><mo 
class="MathClass-punc">.</mo><mo 
class="MathClass-punc">.</mo><mo 
class="MathClass-punc">.</mo><mo 
class="MathClass-punc">,</mo><msub><mrow 
><mi 
>b</mi></mrow><mrow 
><mi 
>K</mi></mrow></msub 
></mrow><mo 
class="MathClass-close">)</mo></mrow><!--mstyle 
class="text"--><mtext >T</mtext><!--/mstyle--></math><span 
class="ecti-1200">,</span>
<span 
class="ecti-1200">with </span><!--l. 297--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><msub><mrow 
><mi 
>b</mi></mrow><mrow 
><mi 
>k</mi></mrow></msub 
> <mo 
class="MathClass-rel">=</mo><msub><mrow 
> <mo 
class="MathClass-op">&#x222B;</mo>
  </mrow><mrow 
><mi mathvariant="double-struck">&#x211D;</mi></mrow></msub 
><msub><mrow 
><mi 
>L</mi></mrow><mrow 
><mi 
>k</mi></mrow></msub 
><mrow><mo 
class="MathClass-open">(</mo><mrow><mn>2</mn><mi 
>&#x03A6;</mi><mrow><mo 
class="MathClass-open">(</mo><mrow><mi 
>x</mi></mrow><mo 
class="MathClass-close">)</mo></mrow> <mo 
class="MathClass-bin">&#x2212;</mo> <mn>1</mn></mrow><mo 
class="MathClass-close">)</mo></mrow><msup><mrow 
><mi 
>x</mi></mrow><mrow 
><mn>2</mn></mrow></msup 
><mi 
>&#x03C6;</mi><mrow><mo 
class="MathClass-open">(</mo><mrow><mi 
>x</mi></mrow><mo 
class="MathClass-close">)</mo></mrow><mi 
>d</mi><mi 
>x</mi></math><span 
class="ecti-1200">.</span>
<span 
class="ecti-1200">Hence, the smooth test statistic</span>
<!--l. 300--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="display">
                    <msub><mrow 
><mi 
>R</mi></mrow><mrow 
><mi 
>K</mi></mrow></msub 
> <mo 
class="MathClass-rel">=</mo> <mi 
>T</mi><mover accent="false" 
class="mml-overline"><mrow><mover 
accent="true"><mrow 
><mi 
>L</mi></mrow><mo 
class="MathClass-op">&#x0302;</mo></mover></mrow><mo 
accent="true">&#x00AF;</mo></mover><!--mstyle 
class="text"--><mtext >T</mtext><!--/mstyle--><msup><mrow 
> <mfenced separators="" 
open="("  close=")" ><mrow><msub><mrow 
><mi 
>I</mi></mrow><mrow 
><mi 
>K</mi></mrow></msub 
> <mo 
class="MathClass-bin">&#x2212;</mo><mfrac><mrow 
><mn>1</mn></mrow> 
<mrow 
><mn>2</mn></mrow></mfrac><msub><mrow 
><mi 
>b</mi></mrow><mrow 
><mi 
>K</mi></mrow></msub 
><msub><mrow 
><mi 
>b</mi></mrow><mrow 
><mi 
>K</mi></mrow></msub 
><!--mstyle 
class="text"--><mtext >T</mtext><!--/mstyle--></mrow></mfenced> </mrow><mrow 
><mo 
class="MathClass-bin">&#x2212;</mo><mn>1</mn></mrow></msup 
><mover accent="false" 
class="mml-overline"><mrow><mover 
accent="true"><mrow 
><mi 
>L</mi></mrow><mo 
class="MathClass-op">&#x0302;</mo></mover></mrow><mo 
accent="true">&#x00AF;</mo></mover><mover 
class="stackrel"><mrow 
><mo 
class="MathClass-rel">&#x2192;</mo></mrow><mrow 
><mo 
class="MathClass-op">L</mo></mrow></mover><msubsup><mrow 
><mi 
>&#x03C7;</mi></mrow><mrow 
>
<mi 
>K</mi></mrow><mrow 
><mn>2</mn></mrow></msubsup 
><mo 
class="MathClass-punc">.</mo>
</math>
<!--l. 302--><p class="nopar">
</p>
   </div>

   <div class="proof">
<!--l. 305--><p class="indent">   <span class="head">
<span 
class="eccc-1200">D</span><small class="small-caps"><span 
class="eccc-1200">&#x00C9;</span></small><span 
class="eccc-1200"><small 
class="small-caps">M</small><small 
class="small-caps">O</small><small 
class="small-caps">N</small><small 
class="small-caps">S</small><small 
class="small-caps">T</small><small 
class="small-caps">R</small><small 
class="small-caps">A</small><small 
class="small-caps">T</small><small 
class="small-caps">I</small><small 
class="small-caps">O</small><small 
class="small-caps">N</small>.</span> </span>We present an outline of the argument. More details are
given in the appendices and in Ducharme and Lafaye de Micheaux (2002)(<a 
  name="dx1-8010"></a><a 
href="#X2002Duchaduch">8</a>).
Let
</p><!--l. 307--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="display">
                           <msub><mrow 
><mi 
>I</mi></mrow><mrow 
><mi 
>&#x03B2;</mi></mrow></msub 
> <mo 
class="MathClass-rel">=</mo> <!--mstyle 
class="text"--><mtext class="textrm" mathvariant="normal" >Var</mtext><!--/mstyle--> <mfenced separators="" 
open="["  close="]" ><mrow> <mfrac><mrow 
><mi 
>&#x2202;</mi></mrow>
<mrow 
><mi 
>&#x2202;</mi><mi 
>&#x03B2;</mi></mrow></mfrac><!--mstyle 
class="text"--><mtext class="textrm" mathvariant="normal" >Log</mtext><!--/mstyle--> <mfenced separators="" 
open="("  close=")" ><mrow><mfrac><mrow 
><mn>1</mn></mrow>
<mrow 
><mi 
>&#x03C3;</mi></mrow></mfrac><mi 
>&#x03C6;</mi> <mfenced separators="" 
open="("  close=")" ><mrow><mfrac><mrow 
><msub><mrow 
><mi 
>&#x03B5;</mi></mrow><mrow 
><mi 
>t</mi></mrow></msub 
></mrow>
<mrow 
><mi 
>&#x03C3;</mi></mrow></mfrac></mrow></mfenced></mrow></mfenced></mrow></mfenced>
</math>
<!--l. 310--><p class="nopar">
be Fisher&#x2019;s information matrix for <!--l. 311--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mi 
>&#x03B2;</mi></math>.
From standard results (see Gouri&#x00E9;roux and Monfort (1995)(<a 
  name="dx1-8011"></a><a 
href="#X1995Gourrduch">12</a>), p.325), we
have,
</p><!--l. 313--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="display">
            <msqrt><mrow>
<mi 
>T</mi></mrow></msqrt> <mfenced separators="" 
open="("  close=")" ><mrow><mover 
accent="true"><mrow 
><mi 
>&#x03B2;</mi></mrow><mo 
class="MathClass-op">&#x0302;</mo></mover><mo 
class="MathClass-bin">&#x2212;</mo><mi 
>&#x03B2;</mi></mrow></mfenced> <mo 
class="MathClass-rel">=</mo>   <mfrac><mrow 
><mn>1</mn></mrow> 
<mrow 
><msqrt><mrow><mi 
>T</mi></mrow></msqrt></mrow></mfrac><msubsup><mrow 
> <mo 
class="MathClass-op">&#x2211;</mo>
     </mrow><mrow 
><mi 
>t</mi><mo 
class="MathClass-rel">=</mo><mn>1</mn></mrow><mrow 
><mi 
>T</mi> </mrow></msubsup 
><msubsup><mrow 
><mi 
>I</mi></mrow><mrow 
>
<mi 
>&#x03B2;</mi></mrow><mrow 
><mo 
class="MathClass-bin">&#x2212;</mo><mn>1</mn></mrow></msubsup 
>  <mfrac><mrow 
><mi 
>&#x2202;</mi></mrow>
<mrow 
><mi 
>&#x2202;</mi><mi 
>&#x03B2;</mi></mrow></mfrac> <mfenced separators="" 
open="["  close="]" ><mrow><!--mstyle 
class="text"--><mtext class="textrm" mathvariant="normal" >Log</mtext><!--/mstyle--> <mfenced separators="" 
open="("  close=")" ><mrow><mfrac><mrow 
><mn>1</mn></mrow>
<mrow 
><mi 
>&#x03C3;</mi></mrow></mfrac><mi 
>&#x03C6;</mi> <mfenced separators="" 
open="("  close=")" ><mrow><mfrac><mrow 
><msub><mrow 
><mi 
>&#x03B5;</mi></mrow><mrow 
><mi 
>t</mi></mrow></msub 
></mrow>
<mrow 
><mi 
>&#x03C3;</mi></mrow></mfrac></mrow></mfenced></mrow></mfenced></mrow></mfenced> <mo 
class="MathClass-bin">+</mo> <msub><mrow 
><mi 
>o</mi></mrow><mrow 
><mi 
>P</mi> </mrow></msub 
><mrow><mo 
class="MathClass-open">(</mo><mrow><mn>1</mn></mrow><mo 
class="MathClass-close">)</mo></mrow><mo 
class="MathClass-punc">.</mo>
</math>
<!--l. 316--><p class="nopar">
Since <!--l. 317--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mfenced separators="" 
open="("  close=")" ><mrow><mover 
accent="true"><mrow 
><mi 
>&#x03B2;</mi></mrow><mo 
class="MathClass-op">&#x0302;</mo></mover><mo 
class="MathClass-bin">&#x2212;</mo><mi 
>&#x03B2;</mi></mrow></mfenced> <mo 
class="MathClass-rel">=</mo> <msub><mrow 
><mi 
>O</mi></mrow><mrow 
><mi 
>P</mi> </mrow></msub 
><mrow><mo 
class="MathClass-open">(</mo><mrow><msup><mrow 
><mi 
>T</mi></mrow><mrow 
><mo 
class="MathClass-bin">&#x2212;</mo><mn>1</mn><mo 
class="MathClass-bin">&#x2215;</mo><mn>2</mn></mrow></msup 
></mrow><mo 
class="MathClass-close">)</mo></mrow></math>,
a Taylor expansion yields </p><table class="equation"><tr><td> <a 
  name="x1-8012r7"></a>

<!--l. 319--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="display">
        <msqrt><mrow>
<mi 
>T</mi></mrow></msqrt><mover accent="false" 
class="mml-overline"><mrow><mover 
accent="true"><mrow 
><mi 
>L</mi></mrow><mo 
class="MathClass-op">&#x0302;</mo></mover></mrow><mo 
accent="true">&#x00AF;</mo></mover> <mo 
class="MathClass-rel">=</mo>   <mfrac><mrow 
><mn>1</mn></mrow> 
<mrow 
><msqrt><mrow><mi 
>T</mi></mrow></msqrt></mrow></mfrac><msubsup><mrow 
> <mo 
class="MathClass-op">&#x2211;</mo>
     </mrow><mrow 
><mi 
>t</mi><mo 
class="MathClass-rel">=</mo><mn>1</mn></mrow><mrow 
><mi 
>T</mi> </mrow></msubsup 
><msub><mrow 
><mi 
>L</mi></mrow><mrow 
>
<mi 
>t</mi></mrow></msub 
> <mo 
class="MathClass-bin">+</mo> <mfenced separators="" 
open="["  close="]" ><mrow> <mfrac><mrow 
><mn>1</mn></mrow>
<mrow 
><mi 
>T</mi></mrow></mfrac><msubsup><mrow 
> <mo 
class="MathClass-op">&#x2211;</mo>
    </mrow><mrow 
><mi 
>t</mi><mo 
class="MathClass-rel">=</mo><mn>1</mn></mrow><mrow 
><mi 
>T</mi> </mrow></msubsup 
>  <mfrac><mrow 
><mi 
>&#x2202;</mi></mrow>
<mrow 
><mi 
>&#x2202;</mi><mi 
>&#x03B2;</mi></mrow></mfrac><msub><mrow 
><mi 
>L</mi></mrow><mrow 
><mi 
>t</mi></mrow></msub 
></mrow></mfenced> <msqrt><mrow><mi 
>T</mi></mrow></msqrt> <mfenced separators="" 
open="("  close=")" ><mrow><mover 
accent="true"><mrow 
><mi 
>&#x03B2;</mi></mrow><mo 
class="MathClass-op">&#x0302;</mo></mover><mo 
class="MathClass-bin">&#x2212;</mo><mi 
>&#x03B2;</mi></mrow></mfenced> <mo 
class="MathClass-bin">+</mo> <msub><mrow 
><mi 
>o</mi></mrow><mrow 
><mi 
>P</mi> </mrow></msub 
><mrow><mo 
class="MathClass-open">(</mo><mrow><mn>1</mn></mrow><mo 
class="MathClass-close">)</mo></mrow><mo 
class="MathClass-punc">.</mo>
</math>
<!--l. 322--><p class="nopar"></p></td><td class="eq-no">(7)</td></tr></table>
The first term on the right hand side of (<a 
href="#x1-8012r7">7<!--tex4ht:ref: equation2.7 --></a>) converges to a
<!--l. 324--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><msub><mrow 
><mi 
>N</mi></mrow><mrow 
><mi 
>K</mi></mrow></msub 
><mrow><mo 
class="MathClass-open">(</mo><mrow><mn>0</mn><mo 
class="MathClass-punc">,</mo><msub><mrow 
><mi 
>I</mi></mrow><mrow 
><mi 
>K</mi></mrow></msub 
></mrow><mo 
class="MathClass-close">)</mo></mrow></math>.
Moreover, it is shown in Appendix A that <table class="equation"><tr><td> <a 
  name="x1-8013r8"></a>
<!--l. 326--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="display">
               <mfenced separators="" 
open="["  close="]" ><mrow> <mfrac><mrow 
><mn>1</mn></mrow>
<mrow 
><mi 
>T</mi></mrow></mfrac><msubsup><mrow 
> <mo 
class="MathClass-op">&#x2211;</mo>
    </mrow><mrow 
><mi 
>t</mi><mo 
class="MathClass-rel">=</mo><mn>1</mn></mrow><mrow 
><mi 
>T</mi> </mrow></msubsup 
>  <mfrac><mrow 
><mi 
>&#x2202;</mi></mrow>
<mrow 
><mi 
>&#x2202;</mi><mi 
>&#x03B2;</mi></mrow></mfrac><msub><mrow 
><mi 
>L</mi></mrow><mrow 
><mi 
>t</mi></mrow></msub 
></mrow></mfenced><mover 
class="stackrel"><mrow 
><mo 
class="MathClass-rel">&#x2192;</mo></mrow><mrow 
><mo 
class="MathClass-op">P</mo></mrow></mover> <mfenced separators="" 
open="["  close="]" ><mrow><munder><mrow 
><mn>0</mn></mrow><mrow 
><mi 
>K</mi> <mo 
class="MathClass-bin">&#x00D7;</mo> <mrow><mo 
class="MathClass-open">(</mo><mrow><mi 
>p</mi> <mo 
class="MathClass-bin">+</mo> <mi 
>q</mi></mrow><mo 
class="MathClass-close">)</mo></mrow></mrow></munder><mo 
class="MathClass-punc">,</mo><mo 
class="MathClass-bin">&#x2212;</mo><mfrac><mrow 
><mn>1</mn></mrow>
<mrow 
><mi 
>&#x03C3;</mi></mrow></mfrac><msub><mrow 
><mi 
>b</mi></mrow><mrow 
><mi 
>K</mi></mrow></msub 
></mrow></mfenced> <mo 
class="MathClass-rel">=</mo> <mo 
class="MathClass-bin">&#x2212;</mo><msub><mrow 
><mi 
>J</mi></mrow><mrow 
><mi 
>K</mi></mrow></msub 
><mo 
class="MathClass-punc">.</mo>
</math>
<!--l. 330--><p class="nopar"></p></td><td class="eq-no">(8)</td></tr></table>
Hence,

<!--l. 332--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="display">
<mtable 
class="multline-star">
<mtr><mtd 
class="multline-star"><msqrt><mrow>
<mi 
>T</mi></mrow></msqrt><mover accent="false" 
class="mml-overline"><mrow><mover 
accent="true"><mrow 
><mi 
>L</mi></mrow><mo 
class="MathClass-op">&#x0302;</mo></mover></mrow><mo 
accent="true">&#x00AF;</mo></mover> <mo 
class="MathClass-rel">=</mo>   <mfrac><mrow 
><mn>1</mn></mrow> 
<mrow 
><msqrt><mrow><mi 
>T</mi></mrow></msqrt></mrow></mfrac><msubsup><mrow 
> <mo 
class="MathClass-op">&#x2211;</mo>
     </mrow><mrow 
><mi 
>t</mi><mo 
class="MathClass-rel">=</mo><mn>1</mn></mrow><mrow 
><mi 
>T</mi> </mrow></msubsup 
><msub><mrow 
><mi 
>L</mi></mrow><mrow 
>
<mi 
>t</mi></mrow></msub 
> <mo 
class="MathClass-bin">&#x2212;</mo> <mfrac><mrow 
><mn>1</mn></mrow> 
<mrow 
><msqrt><mrow><mi 
>T</mi></mrow></msqrt></mrow></mfrac><msub><mrow 
><mi 
>J</mi></mrow><mrow 
><mi 
>K</mi></mrow></msub 
><msubsup><mrow 
><mi 
>I</mi></mrow><mrow 
><mi 
>&#x03B2;</mi></mrow><mrow 
><mo 
class="MathClass-bin">&#x2212;</mo><mn>1</mn></mrow></msubsup 
><msubsup><mrow 
> <mo 
class="MathClass-op">&#x2211;</mo>
  </mrow><mrow 
><mi 
>t</mi><mo 
class="MathClass-rel">=</mo><mn>1</mn></mrow><mrow 
><mi 
>T</mi> </mrow></msubsup 
>  <mfrac><mrow 
><mi 
>&#x2202;</mi></mrow>
<mrow 
><mi 
>&#x2202;</mi><mi 
>&#x03B2;</mi></mrow></mfrac> <mfenced separators="" 
open="["  close="]" ><mrow><!--mstyle 
class="text"--><mtext class="textrm" mathvariant="normal" >Log</mtext><!--/mstyle--> <mfenced separators="" 
open="("  close=")" ><mrow><mfrac><mrow 
><mn>1</mn></mrow>
<mrow 
><mi 
>&#x03C3;</mi></mrow></mfrac><mi 
>&#x03C6;</mi> <mfenced separators="" 
open="("  close=")" ><mrow><mfrac><mrow 
><msub><mrow 
><mi 
>&#x03B5;</mi></mrow><mrow 
><mi 
>t</mi></mrow></msub 
></mrow>
<mrow 
><mi 
>&#x03C3;</mi></mrow></mfrac></mrow></mfenced></mrow></mfenced></mrow></mfenced> <mo 
class="MathClass-bin">+</mo> <msub><mrow 
><mi 
>o</mi></mrow><mrow 
><mi 
>P</mi> </mrow></msub 
><mrow><mo 
class="MathClass-open">(</mo><mrow><mn>1</mn></mrow><mo 
class="MathClass-close">)</mo></mrow>
</mtd></mtr><mtr><mtd 
class="multline-star"> <mo 
class="MathClass-rel">=</mo>   <mfrac><mrow 
><mn>1</mn></mrow> 
<mrow 
><msqrt><mrow><mi 
>T</mi></mrow></msqrt></mrow></mfrac><msubsup><mrow 
> <mo 
class="MathClass-op">&#x2211;</mo>
     </mrow><mrow 
><mi 
>t</mi><mo 
class="MathClass-rel">=</mo><mn>1</mn></mrow><mrow 
><mi 
>T</mi> </mrow></msubsup 
><mi 
>B</mi><msub><mrow 
><mi 
>V</mi> </mrow><mrow 
>
<mi 
>t</mi></mrow></msub 
> <mo 
class="MathClass-bin">+</mo> <msub><mrow 
><mi 
>o</mi></mrow><mrow 
><mi 
>P</mi> </mrow></msub 
><mrow><mo 
class="MathClass-open">(</mo><mrow><mn>1</mn></mrow><mo 
class="MathClass-close">)</mo></mrow><mo 
class="MathClass-punc">,</mo>                                                  </mtd></mtr></mtable>
</math>
<!--l. 336--><p class="nopar">
where <!--l. 337--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mi 
>B</mi> <mo 
class="MathClass-rel">=</mo> <mrow><mo 
class="MathClass-open">(</mo><mrow><msub><mrow 
><mi 
>I</mi></mrow><mrow 
><mi 
>K</mi></mrow></msub 
><mo 
class="MathClass-punc">,</mo><mo 
class="MathClass-bin">&#x2212;</mo><msub><mrow 
><mi 
>J</mi></mrow><mrow 
><mi 
>K</mi></mrow></msub 
><msubsup><mrow 
><mi 
>I</mi></mrow><mrow 
><mi 
>&#x03B2;</mi></mrow><mrow 
><mo 
class="MathClass-bin">&#x2212;</mo><mn>1</mn></mrow></msubsup 
></mrow><mo 
class="MathClass-close">)</mo></mrow></math>
and
</p><!--l. 338--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="display"><msub><mrow 
>
                        <mi 
>V</mi> </mrow><mrow 
><mi 
>t</mi></mrow></msub 
> <mo 
class="MathClass-rel">=</mo> <mfenced separators="" 
open="("  close=")" ><mrow><msub><mrow 
><mi 
>L</mi></mrow><mrow 
><mi 
>t</mi></mrow></msub 
><!--mstyle 
class="text"--><mtext >T</mtext><!--/mstyle--><mo 
class="MathClass-punc">,</mo>  <mfrac><mrow 
><mi 
>&#x2202;</mi></mrow> 
<mrow 
><mi 
>&#x2202;</mi><mi 
>&#x03B2;</mi><!--mstyle 
class="text"--><mtext >T</mtext><!--/mstyle--></mrow></mfrac> <mfenced separators="" 
open="["  close="]" ><mrow><!--mstyle 
class="text"--><mtext class="textrm" mathvariant="normal" >Log</mtext><!--/mstyle--> <mfenced separators="" 
open="("  close=")" ><mrow><mfrac><mrow 
><mn>1</mn></mrow>
<mrow 
><mi 
>&#x03C3;</mi></mrow></mfrac><mi 
>&#x03C6;</mi> <mfenced separators="" 
open="("  close=")" ><mrow><mfrac><mrow 
><msub><mrow 
><mi 
>&#x03B5;</mi></mrow><mrow 
><mi 
>t</mi></mrow></msub 
></mrow>
<mrow 
><mi 
>&#x03C3;</mi></mrow></mfrac></mrow></mfenced></mrow></mfenced></mrow></mfenced></mrow></mfenced><!--mstyle 
class="text"--><mtext >T</mtext><!--/mstyle--><mo 
class="MathClass-punc">.</mo>
</math>
<!--l. 341--><p class="nopar">
From Appendix B, it follows that, <!--l. 342--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mi 
>E</mi><mrow><mo 
class="MathClass-open">(</mo><mrow><msub><mrow 
><mi 
>V</mi> </mrow><mrow 
><mi 
>t</mi></mrow></msub 
></mrow><mo 
class="MathClass-close">)</mo></mrow> <mo 
class="MathClass-rel">=</mo> <mn>0</mn></math>
and <!--l. 343--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><!--mstyle 
class="text"--><mtext class="textrm" mathvariant="normal" >Var</mtext><!--/mstyle--><mrow><mo 
class="MathClass-open">(</mo><mrow><mi 
>B</mi><msub><mrow 
><mi 
>V</mi> </mrow><mrow 
><mi 
>t</mi></mrow></msub 
></mrow><mo 
class="MathClass-close">)</mo></mrow> <mo 
class="MathClass-rel">=</mo><msub><mrow 
> <mi 
>I</mi></mrow><mrow 
><mi 
>K</mi></mrow></msub 
> <mo 
class="MathClass-bin">&#x2212;</mo><msub><mrow 
><mi 
>b</mi></mrow><mrow 
><mi 
>K</mi></mrow></msub 
><msub><mrow 
><mi 
>b</mi></mrow><mrow 
><mi 
>K</mi></mrow></msub 
><!--mstyle 
class="text"--><mtext >T</mtext><!--/mstyle--><mo 
class="MathClass-bin">&#x2215;</mo><mn>2</mn></math> .
The central limit theorem yields (<a 
href="#x1-8009r6">6<!--tex4ht:ref: equation2.6 --></a>). <span class="qed"><span 
class="msam-10x-x-120">&#x25A1;</span></span>
</p>
   </div>
<!--l. 347--><p class="indent">It is possible to write <!--l. 347--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><msub><mrow 
><mi 
>R</mi></mrow><mrow 
><mi 
>K</mi></mrow></msub 
></math>
in a form that makes it easy to use. A Cholesky decomposition of
<!--l. 349--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mfenced separators="" 
open="("  close=")" ><mrow><msub><mrow 
><mi 
>I</mi></mrow><mrow 
><mi 
>K</mi></mrow></msub 
> <mo 
class="MathClass-bin">&#x2212;</mo><msub><mrow 
><mi 
>b</mi></mrow><mrow 
><mi 
>K</mi></mrow></msub 
><msub><mrow 
><mi 
>b</mi></mrow><mrow 
><mi 
>K</mi></mrow></msub 
><!--mstyle 
class="text"--><mtext >T</mtext><!--/mstyle--><mo 
class="MathClass-bin">&#x2215;</mo><mn>2</mn></mrow></mfenced></math> yields
<!--l. 350--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><msup><mrow 
><mfenced separators="" 
open="("  close=")" ><mrow><msub><mrow 
><mi 
>I</mi></mrow><mrow 
><mi 
>K</mi></mrow></msub 
> <mo 
class="MathClass-bin">&#x2212;</mo><msub><mrow 
><mi 
>b</mi></mrow><mrow 
><mi 
>K</mi></mrow></msub 
><msub><mrow 
><mi 
>b</mi></mrow><mrow 
><mi 
>K</mi></mrow></msub 
><!--mstyle 
class="text"--><mtext >T</mtext><!--/mstyle--><mo 
class="MathClass-bin">&#x2215;</mo><mn>2</mn></mrow></mfenced></mrow><mrow 
><mo 
class="MathClass-bin">&#x2212;</mo><mn>1</mn></mrow></msup 
> <mo 
class="MathClass-rel">=</mo> <mi 
>P</mi><mi 
>P</mi><!--mstyle 
class="text"--><mtext >T</mtext><!--/mstyle--></math> with
<!--l. 351--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mi 
>P</mi> <mo 
class="MathClass-rel">=</mo> <mrow><mo 
class="MathClass-open">(</mo><mrow><msub><mrow 
><mi 
>p</mi></mrow><mrow 
><mi 
>i</mi><mi 
>j</mi></mrow></msub 
></mrow><mo 
class="MathClass-close">)</mo></mrow></math>, an upper triangular
matrix. Some algebra gives <!--l. 352--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><msub><mrow 
><mi 
>p</mi></mrow><mrow 
><mi 
>i</mi><mi 
>j</mi></mrow></msub 
> <mo 
class="MathClass-rel">=</mo> <mn>0</mn></math>
if <!--l. 352--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mi 
>i</mi> <mo 
class="MathClass-rel">&#x003E;</mo> <mi 
>j</mi></math>,
while

</p><!--l. 353--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="display">
  <msub><mrow 
><mi 
>p</mi></mrow><mrow 
><mi 
>i</mi><mi 
>i</mi></mrow></msub 
> <mo 
class="MathClass-rel">=</mo> <msqrt><mrow><mfrac><mrow 
><mn>2</mn> <mo 
class="MathClass-bin">&#x2212;</mo><msubsup><mrow 
> <mo 
class="MathClass-op">&#x2211;</mo>
  </mrow><mrow 
><mi 
>k</mi><mo 
class="MathClass-rel">=</mo><mn>1</mn></mrow><mrow 
><mi 
>i</mi><mo 
class="MathClass-bin">&#x2212;</mo><mn>1</mn></mrow></msubsup 
><msubsup><mrow 
><mi 
>b</mi></mrow><mrow 
><mi 
>k</mi></mrow><mrow 
><mn>2</mn></mrow></msubsup 
></mrow>
  <mrow 
><mn>2</mn> <mo 
class="MathClass-bin">&#x2212;</mo><msubsup><mrow 
><mo 
class="MathClass-op">&#x2211;</mo>
  </mrow><mrow 
><mi 
>k</mi><mo 
class="MathClass-rel">=</mo><mn>1</mn></mrow><mrow 
><mi 
>i</mi></mrow></msubsup 
><msubsup><mrow 
><mi 
>b</mi></mrow><mrow 
><mi 
>k</mi></mrow><mrow 
><mn>2</mn></mrow></msubsup 
></mrow></mfrac></mrow></msqrt>  <!--mstyle 
class="text"--><mtext >&#x000A0;and&#x000A0;</mtext><!--/mstyle--><msub><mrow 
><mi 
>p</mi></mrow><mrow 
><mi 
>i</mi><mi 
>j</mi></mrow></msub 
> <mo 
class="MathClass-rel">=</mo>                     <mfrac><mrow 
><msub><mrow 
><mi 
>b</mi></mrow><mrow 
><mi 
>i</mi></mrow></msub 
><msub><mrow 
><mi 
>b</mi></mrow><mrow 
><mi 
>j</mi></mrow></msub 
></mrow> 
<mrow 
><msqrt><mrow><mfenced separators="" 
open="("  close=")" ><mrow><mn>2</mn> <mo 
class="MathClass-bin">&#x2212;</mo><msubsup><mrow 
> <mo 
class="MathClass-op">&#x2211;</mo>
  </mrow><mrow 
><mi 
>k</mi><mo 
class="MathClass-rel">=</mo><mn>1</mn></mrow><mrow 
><mi 
>j</mi><mo 
class="MathClass-bin">&#x2212;</mo><mn>1</mn></mrow></msubsup 
><msubsup><mrow 
><mi 
>b</mi></mrow><mrow 
><mi 
>k</mi></mrow><mrow 
><mn>2</mn></mrow></msubsup 
></mrow></mfenced> <mfenced separators="" 
open="("  close=")" ><mrow><mn>2</mn> <mo 
class="MathClass-bin">&#x2212;</mo><msubsup><mrow 
><mo 
class="MathClass-op">&#x2211;</mo>
  </mrow><mrow 
><mi 
>k</mi><mo 
class="MathClass-rel">=</mo><mn>1</mn></mrow><mrow 
><mi 
>j</mi></mrow></msubsup 
><msubsup><mrow 
><mi 
>b</mi></mrow><mrow 
><mi 
>k</mi></mrow><mrow 
><mn>2</mn></mrow></msubsup 
></mrow></mfenced></mrow></msqrt></mrow></mfrac><!--mstyle 
class="text"--><mtext >&#x000A0;if&#x000A0;</mtext><!--/mstyle--><mi 
>j</mi> <mo 
class="MathClass-rel">&#x003E;</mo> <mi 
>i</mi><mo 
class="MathClass-punc">.</mo>
</math>
<!--l. 357--><p class="nopar">
Thus
</p><!--l. 359--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="display">
                     <msub><mrow 
><mi 
>R</mi></mrow><mrow 
><mi 
>K</mi></mrow></msub 
> <mo 
class="MathClass-rel">=</mo><msubsup><mrow 
> <mo 
class="MathClass-op">&#x2211;</mo>
  </mrow><mrow 
><mi 
>k</mi><mo 
class="MathClass-rel">=</mo><mn>1</mn></mrow><mrow 
><mi 
>K</mi></mrow></msubsup 
><msup><mrow 
> <mfenced separators="" 
open="("  close=")" ><mrow>  <mfrac><mrow 
><mn>1</mn></mrow>
<mrow 
><msqrt><mrow><mi 
>T</mi></mrow></msqrt></mrow></mfrac><msubsup><mrow 
> <mo 
class="MathClass-op">&#x2211;</mo>
     </mrow><mrow 
><mi 
>t</mi><mo 
class="MathClass-rel">=</mo><mn>1</mn></mrow><mrow 
><mi 
>T</mi> </mrow></msubsup 
><msubsup><mrow 
><mi 
>L</mi></mrow><mrow 
>
<mi 
>k</mi></mrow><mrow 
><mo 
class="MathClass-bin">&#x2217;</mo></mrow></msubsup 
><mrow><mo 
class="MathClass-open">(</mo><mrow><msub><mrow 
><mover 
accent="true"><mrow 
><mi 
>U</mi></mrow><mo 
class="MathClass-op">&#x0302;</mo></mover></mrow><mrow 
>
<mi 
>t</mi></mrow></msub 
></mrow><mo 
class="MathClass-close">)</mo></mrow></mrow></mfenced> </mrow><mrow 
><mn>2</mn></mrow></msup 
><mo 
class="MathClass-punc">,</mo>
</math>
<!--l. 361--><p class="nopar">
where </p><table class="equation"><tr><td> <a 
  name="x1-8014r9"></a>
<!--l. 363--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="display">
                         <msubsup><mrow 
><mi 
>L</mi></mrow><mrow 
><mi 
>k</mi></mrow><mrow 
><mo 
class="MathClass-bin">&#x2217;</mo></mrow></msubsup 
><mrow><mo 
class="MathClass-open">(</mo><mrow><msub><mrow 
><mover 
accent="true"><mrow 
><mi 
>U</mi></mrow><mo 
class="MathClass-op">&#x0302;</mo></mover></mrow><mrow 
>
<mi 
>t</mi></mrow></msub 
></mrow><mo 
class="MathClass-close">)</mo></mrow> <mo 
class="MathClass-rel">=</mo><msubsup><mrow 
> <mo 
class="MathClass-op">&#x2211;</mo>
  </mrow><mrow 
><mi 
>l</mi><mo 
class="MathClass-rel">=</mo><mn>1</mn></mrow><mrow 
><mi 
>k</mi></mrow></msubsup 
><msub><mrow 
><mi 
>p</mi></mrow><mrow 
>
<mi 
>l</mi><mi 
>k</mi></mrow></msub 
><msub><mrow 
><mi 
>L</mi></mrow><mrow 
><mi 
>l</mi></mrow></msub 
><mrow><mo 
class="MathClass-open">(</mo><mrow><msub><mrow 
><mover 
accent="true"><mrow 
><mi 
>U</mi></mrow><mo 
class="MathClass-op">&#x0302;</mo></mover></mrow><mrow 
><mi 
>t</mi></mrow></msub 
></mrow><mo 
class="MathClass-close">)</mo></mrow><mo 
class="MathClass-punc">.</mo>
</math>
<!--l. 365--><p class="nopar"></p></td><td class="eq-no">(9)</td></tr></table>
Numerical integration gives <!--l. 366--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mrow><mo 
class="MathClass-open">(</mo><mrow><msub><mrow 
><mi 
>b</mi></mrow><mrow 
><mn>2</mn></mrow></msub 
><mo 
class="MathClass-punc">,</mo><msub><mrow 
><mi 
>b</mi></mrow><mrow 
><mn>4</mn></mrow></msub 
><mo 
class="MathClass-punc">,</mo><mo 
class="MathClass-punc">.</mo><mo 
class="MathClass-punc">.</mo><mo 
class="MathClass-punc">.</mo><mo 
class="MathClass-punc">,</mo><msub><mrow 
><mi 
>b</mi></mrow><mrow 
><mn>1</mn><mn>0</mn></mrow></msub 
></mrow><mo 
class="MathClass-close">)</mo></mrow> <mo 
class="MathClass-rel">=</mo> <mrow><mo 
class="MathClass-open">(</mo><mrow><mn>1</mn><mo 
class="MathClass-punc">.</mo><mn>2</mn><mn>3</mn><mn>2</mn><mn>8</mn><mn>1</mn><mo 
class="MathClass-punc">,</mo> <mn>0</mn><mo 
class="MathClass-punc">.</mo><mn>5</mn><mn>2</mn><mn>1</mn><mn>1</mn><mn>2</mn><mn>5</mn><mo 
class="MathClass-punc">,</mo> <mn>0</mn><mo 
class="MathClass-punc">.</mo><mn>3</mn><mn>0</mn><mn>4</mn><mn>5</mn><mn>1</mn><mn>4</mn><mo 
class="MathClass-punc">,</mo> <mn>0</mn><mo 
class="MathClass-punc">.</mo><mn>2</mn><mn>0</mn><mn>5</mn><mn>5</mn><mn>8</mn><mn>9</mn><mo 
class="MathClass-punc">,</mo> <mn>0</mn><mo 
class="MathClass-punc">.</mo><mn>1</mn><mn>5</mn><mn>0</mn><mn>7</mn><mn>7</mn><mn>1</mn></mrow><mo 
class="MathClass-close">)</mo></mrow></math>
with <!--l. 366--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><msub><mrow 
><mi 
>b</mi></mrow><mrow 
><mi 
>k</mi></mrow></msub 
> <mo 
class="MathClass-rel">=</mo> <mn>0</mn></math>
if <!--l. 366--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mi 
>k</mi></math> is
odd. This yields the first ten &#x0022;modified&#x0022; Legendre polynomials

<!--l. 368--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="display">
<mtable  align="axis"  
equalrows="false" equalcolumns="false" class="array"><mtr><mtd 
class="array"  columnalign="left"><msubsup><mrow 
><mi 
>L</mi></mrow><mrow 
><mn>1</mn></mrow><mrow 
><mo 
class="MathClass-bin">&#x2217;</mo></mrow></msubsup 
><mrow><mo 
class="MathClass-open">(</mo><mrow><mi 
>u</mi></mrow><mo 
class="MathClass-close">)</mo></mrow> <mo 
class="MathClass-rel">=</mo> <mn>1</mn><mo 
class="MathClass-punc">.</mo><mn>7</mn><mn>3</mn><mi 
>u</mi><mo 
class="MathClass-punc">,</mo>                                                                 </mtd>
</mtr><mtr><mtd 
class="array"  columnalign="left"><msubsup><mrow 
><mi 
>L</mi></mrow><mrow 
><mn>2</mn></mrow><mrow 
><mo 
class="MathClass-bin">&#x2217;</mo></mrow></msubsup 
><mrow><mo 
class="MathClass-open">(</mo><mrow><mi 
>u</mi></mrow><mo 
class="MathClass-close">)</mo></mrow> <mo 
class="MathClass-rel">=</mo> <mn>6</mn><mo 
class="MathClass-punc">.</mo><mn>8</mn><mn>5</mn><msup><mrow 
><mi 
>u</mi></mrow><mrow 
><mn>2</mn></mrow></msup 
> <mo 
class="MathClass-bin">&#x2212;</mo> <mn>2</mn><mo 
class="MathClass-punc">.</mo><mn>2</mn><mn>8</mn><mo 
class="MathClass-punc">,</mo>                                                        </mtd>
</mtr><mtr><mtd 
class="array"  columnalign="left"><msubsup><mrow 
><mi 
>L</mi></mrow><mrow 
><mn>3</mn></mrow><mrow 
><mo 
class="MathClass-bin">&#x2217;</mo></mrow></msubsup 
><mrow><mo 
class="MathClass-open">(</mo><mrow><mi 
>u</mi></mrow><mo 
class="MathClass-close">)</mo></mrow> <mo 
class="MathClass-rel">=</mo> <mn>6</mn><mo 
class="MathClass-punc">.</mo><mn>6</mn><mn>1</mn><msup><mrow 
><mi 
>u</mi></mrow><mrow 
><mn>3</mn></mrow></msup 
> <mo 
class="MathClass-bin">&#x2212;</mo> <mn>3</mn><mo 
class="MathClass-punc">.</mo><mn>9</mn><mn>7</mn><mi 
>u</mi><mo 
class="MathClass-punc">,</mo>                                                       </mtd>
</mtr><mtr><mtd 
class="array"  columnalign="left"><msubsup><mrow 
><mi 
>L</mi></mrow><mrow 
><mn>4</mn></mrow><mrow 
><mo 
class="MathClass-bin">&#x2217;</mo></mrow></msubsup 
><mrow><mo 
class="MathClass-open">(</mo><mrow><mi 
>u</mi></mrow><mo 
class="MathClass-close">)</mo></mrow> <mo 
class="MathClass-rel">=</mo> <mn>1</mn><mn>9</mn><mo 
class="MathClass-punc">.</mo><mn>9</mn><mn>1</mn><msup><mrow 
><mi 
>u</mi></mrow><mrow 
><mn>4</mn></mrow></msup 
> <mo 
class="MathClass-bin">&#x2212;</mo> <mn>1</mn><mn>0</mn><mo 
class="MathClass-punc">.</mo><mn>2</mn><mn>6</mn><msup><mrow 
><mi 
>u</mi></mrow><mrow 
><mn>2</mn></mrow></msup 
> <mo 
class="MathClass-bin">&#x2212;</mo> <mn>0</mn><mo 
class="MathClass-punc">.</mo><mn>5</mn><mn>6</mn><mo 
class="MathClass-punc">,</mo>                                            </mtd>
</mtr><mtr><mtd 
class="array"  columnalign="left"><msubsup><mrow 
><mi 
>L</mi></mrow><mrow 
><mn>5</mn></mrow><mrow 
><mo 
class="MathClass-bin">&#x2217;</mo></mrow></msubsup 
><mrow><mo 
class="MathClass-open">(</mo><mrow><mi 
>u</mi></mrow><mo 
class="MathClass-close">)</mo></mrow> <mo 
class="MathClass-rel">=</mo> <mn>2</mn><mn>6</mn><mo 
class="MathClass-punc">.</mo><mn>1</mn><mn>2</mn><msup><mrow 
><mi 
>u</mi></mrow><mrow 
><mn>5</mn></mrow></msup 
> <mo 
class="MathClass-bin">&#x2212;</mo> <mn>2</mn><mn>9</mn><mo 
class="MathClass-punc">.</mo><mn>0</mn><mn>2</mn><msup><mrow 
><mi 
>u</mi></mrow><mrow 
><mn>3</mn></mrow></msup 
> <mo 
class="MathClass-bin">+</mo> <mn>6</mn><mo 
class="MathClass-punc">.</mo><mn>2</mn><mn>2</mn><mi 
>u</mi><mo 
class="MathClass-punc">,</mo>                                          </mtd>
</mtr><mtr><mtd 
class="array"  columnalign="left"><msubsup><mrow 
><mi 
>L</mi></mrow><mrow 
><mn>6</mn></mrow><mrow 
><mo 
class="MathClass-bin">&#x2217;</mo></mrow></msubsup 
><mrow><mo 
class="MathClass-open">(</mo><mrow><mi 
>u</mi></mrow><mo 
class="MathClass-close">)</mo></mrow> <mo 
class="MathClass-rel">=</mo> <mn>6</mn><mn>9</mn><mo 
class="MathClass-punc">.</mo><mn>8</mn><mn>4</mn><msup><mrow 
><mi 
>u</mi></mrow><mrow 
><mn>6</mn></mrow></msup 
> <mo 
class="MathClass-bin">&#x2212;</mo> <mn>8</mn><mn>1</mn><mo 
class="MathClass-punc">.</mo><mn>8</mn><mn>4</mn><msup><mrow 
><mi 
>u</mi></mrow><mrow 
><mn>4</mn></mrow></msup 
> <mo 
class="MathClass-bin">+</mo> <mn>2</mn><mn>8</mn><mo 
class="MathClass-punc">.</mo><mn>3</mn><mn>6</mn><msup><mrow 
><mi 
>u</mi></mrow><mrow 
><mn>2</mn></mrow></msup 
> <mo 
class="MathClass-bin">&#x2212;</mo> <mn>3</mn><mo 
class="MathClass-punc">.</mo><mn>0</mn><mn>6</mn><mo 
class="MathClass-punc">,</mo>                                </mtd>
</mtr><mtr><mtd 
class="array"  columnalign="left"><msubsup><mrow 
><mi 
>L</mi></mrow><mrow 
><mn>7</mn></mrow><mrow 
><mo 
class="MathClass-bin">&#x2217;</mo></mrow></msubsup 
><mrow><mo 
class="MathClass-open">(</mo><mrow><mi 
>u</mi></mrow><mo 
class="MathClass-close">)</mo></mrow> <mo 
class="MathClass-rel">=</mo> <mn>1</mn><mn>0</mn><mn>3</mn><mo 
class="MathClass-punc">.</mo><mn>8</mn><mn>4</mn><msup><mrow 
><mi 
>u</mi></mrow><mrow 
><mn>7</mn></mrow></msup 
> <mo 
class="MathClass-bin">&#x2212;</mo> <mn>1</mn><mn>6</mn><mn>7</mn><mo 
class="MathClass-punc">.</mo><mn>7</mn><mn>5</mn><msup><mrow 
><mi 
>u</mi></mrow><mrow 
><mn>5</mn></mrow></msup 
> <mo 
class="MathClass-bin">+</mo> <mn>7</mn><mn>6</mn><mo 
class="MathClass-punc">.</mo><mn>2</mn><mn>5</mn><msup><mrow 
><mi 
>u</mi></mrow><mrow 
><mn>3</mn></mrow></msup 
> <mo 
class="MathClass-bin">&#x2212;</mo> <mn>8</mn><mo 
class="MathClass-punc">.</mo><mn>4</mn><mn>7</mn><mi 
>u</mi><mo 
class="MathClass-punc">,</mo>                            </mtd>
</mtr><mtr><mtd 
class="array"  columnalign="left"><msubsup><mrow 
><mi 
>L</mi></mrow><mrow 
><mn>8</mn></mrow><mrow 
><mo 
class="MathClass-bin">&#x2217;</mo></mrow></msubsup 
><mrow><mo 
class="MathClass-open">(</mo><mrow><mi 
>u</mi></mrow><mo 
class="MathClass-close">)</mo></mrow> <mo 
class="MathClass-rel">=</mo> <mn>2</mn><mn>6</mn><mn>0</mn><mo 
class="MathClass-punc">.</mo><mn>0</mn><mn>7</mn><msup><mrow 
><mi 
>u</mi></mrow><mrow 
><mn>8</mn></mrow></msup 
> <mo 
class="MathClass-bin">&#x2212;</mo> <mn>4</mn><mn>5</mn><mn>0</mn><mo 
class="MathClass-punc">.</mo><mn>1</mn><mn>8</mn><msup><mrow 
><mi 
>u</mi></mrow><mrow 
><mn>6</mn></mrow></msup 
> <mo 
class="MathClass-bin">+</mo> <mn>2</mn><mn>4</mn><mn>7</mn><mo 
class="MathClass-punc">.</mo><mn>1</mn><mn>8</mn><msup><mrow 
><mi 
>u</mi></mrow><mrow 
><mn>4</mn></mrow></msup 
> <mo 
class="MathClass-bin">&#x2212;</mo> <mn>3</mn><mn>8</mn><mo 
class="MathClass-punc">.</mo><mn>7</mn><mn>3</mn><msup><mrow 
><mi 
>u</mi></mrow><mrow 
><mn>2</mn></mrow></msup 
> <mo 
class="MathClass-bin">&#x2212;</mo> <mn>1</mn><mo 
class="MathClass-punc">.</mo><mn>1</mn><mn>1</mn><mo 
class="MathClass-punc">,</mo>                 </mtd>
</mtr><mtr><mtd 
class="array"  columnalign="left"><msubsup><mrow 
><mi 
>L</mi></mrow><mrow 
><mn>9</mn></mrow><mrow 
><mo 
class="MathClass-bin">&#x2217;</mo></mrow></msubsup 
><mrow><mo 
class="MathClass-open">(</mo><mrow><mi 
>u</mi></mrow><mo 
class="MathClass-close">)</mo></mrow> <mo 
class="MathClass-rel">=</mo> <mn>4</mn><mn>1</mn><mn>3</mn><mo 
class="MathClass-punc">.</mo><mn>9</mn><mn>2</mn><msup><mrow 
><mi 
>u</mi></mrow><mrow 
><mn>9</mn></mrow></msup 
> <mo 
class="MathClass-bin">&#x2212;</mo> <mn>8</mn><mn>7</mn><mn>6</mn><mo 
class="MathClass-punc">.</mo><mn>5</mn><mn>5</mn><msup><mrow 
><mi 
>u</mi></mrow><mrow 
><mn>7</mn></mrow></msup 
> <mo 
class="MathClass-bin">+</mo> <mn>6</mn><mn>1</mn><mn>3</mn><mo 
class="MathClass-punc">.</mo><mn>5</mn><mn>8</mn><msup><mrow 
><mi 
>u</mi></mrow><mrow 
><mn>5</mn></mrow></msup 
> <mo 
class="MathClass-bin">&#x2212;</mo> <mn>1</mn><mn>5</mn><mn>7</mn><mo 
class="MathClass-punc">.</mo><mn>3</mn><mn>3</mn><msup><mrow 
><mi 
>u</mi></mrow><mrow 
><mn>3</mn></mrow></msup 
> <mo 
class="MathClass-bin">+</mo> <mn>1</mn><mn>0</mn><mo 
class="MathClass-punc">.</mo><mn>7</mn><mn>3</mn><mi 
>u</mi><mo 
class="MathClass-punc">,</mo>             </mtd>
</mtr><mtr><mtd 
class="array"  columnalign="left"><msubsup><mrow 
><mi 
>L</mi></mrow><mrow 
><mn>1</mn><mn>0</mn></mrow><mrow 
><mo 
class="MathClass-bin">&#x2217;</mo></mrow></msubsup 
><mrow><mo 
class="MathClass-open">(</mo><mrow><mi 
>u</mi></mrow><mo 
class="MathClass-close">)</mo></mrow> <mo 
class="MathClass-rel">=</mo> <mn>9</mn><mn>9</mn><mn>4</mn><mo 
class="MathClass-punc">.</mo><mn>5</mn><mn>1</mn><msup><mrow 
><mi 
>u</mi></mrow><mrow 
><mn>1</mn><mn>0</mn></mrow></msup 
> <mo 
class="MathClass-bin">&#x2212;</mo> <mn>2</mn><mn>2</mn><mn>5</mn><mn>0</mn><mo 
class="MathClass-punc">.</mo><mn>4</mn><mn>3</mn><msup><mrow 
><mi 
>u</mi></mrow><mrow 
><mn>8</mn></mrow></msup 
> <mo 
class="MathClass-bin">+</mo> <mn>1</mn><mn>7</mn><mn>8</mn><mn>2</mn><mo 
class="MathClass-punc">.</mo><mn>8</mn><mn>3</mn><msup><mrow 
><mi 
>u</mi></mrow><mrow 
><mn>6</mn></mrow></msup 
> <mo 
class="MathClass-bin">&#x2212;</mo> <mn>5</mn><mn>6</mn><mn>9</mn><mo 
class="MathClass-punc">.</mo><mn>9</mn><mn>2</mn><msup><mrow 
><mi 
>u</mi></mrow><mrow 
><mn>4</mn></mrow></msup 
> <mo 
class="MathClass-bin">+</mo> <mn>6</mn><mn>7</mn><mo 
class="MathClass-punc">.</mo><mn>5</mn><mn>4</mn><msup><mrow 
><mi 
>u</mi></mrow><mrow 
><mn>2</mn></mrow></msup 
> <mo 
class="MathClass-bin">&#x2212;</mo> <mn>3</mn><mo 
class="MathClass-punc">.</mo><mn>5</mn><mn>8</mn><mo 
class="MathClass-punc">.</mo></mtd></mtr><!--l--></mtable>
</math>
<!--l. 381--><p class="nopar">
</p>
   <div class="newtheorem">
<!--l. 382--><p class="noindent"><span class="head">
<a 
  name="x1-8015r1"></a>
<span 
class="ecbx-1200">Remark 2.1.</span></span>
   <span 
class="ecti-1200">Theorem </span><a 
href="#x1-8008r1"><span 
class="ecti-1200">1</span><!--tex4ht:ref: theorem2.1 --></a> <span 
class="ecti-1200">shows that we can slightly extend the result of Pierce (1985)(</span><a 
  name="dx1-8016"></a><a 
href="#X1985Pierc552duch"><span 
class="ecti-1200">30</span></a><span 
class="ecti-1200">)</span>
<span 
class="ecti-1200">and state that neither the estimation of </span><!--l. 384--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mi 
>&#x03D5;</mi></math>
<span 
class="ecti-1200">and </span><!--l. 384--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mi 
>&#x03B8;</mi></math>
<span 
class="ecti-1200">nor the dependence of the </span><!--l. 384--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><msub><mrow 
><mi 
>Y</mi> </mrow><mrow 
><mi 
>t</mi></mrow></msub 
></math><span 
class="ecti-1200">&#x2019;s</span>
<span 
class="ecti-1200">has any asymptotic impact on a smooth test of (</span><a 
href="#x1-7003r2"><span 
class="ecti-1200">2</span><!--tex4ht:ref: equation1.2 --></a><span 
class="ecti-1200">) in the ARMA context. In</span>
<span 
class="ecti-1200">pre-asymptotic situations, these elements and the complexity of the model will</span>
<span 
class="ecti-1200">affect the null distribution of </span><!--l. 384--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><msub><mrow 
><mi 
>R</mi></mrow><mrow 
><mi 
>K</mi></mrow></msub 
></math><span 
class="ecti-1200">.</span>
<span 
class="ecti-1200">This will be further explored in simulations of Section 4.</span>
</p>
   </div>
   <div class="newtheorem">
<!--l. 388--><p class="noindent"><span class="head">
<a 
  name="x1-8017r2"></a>
<span 
class="ecbx-1200">Remark 2.2.</span></span>
   <span 
class="ecti-1200">Each term </span><!--l. 389--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><msup><mrow 
><mi 
>T</mi></mrow><mrow 
><mo 
class="MathClass-bin">&#x2212;</mo><mn>1</mn></mrow></msup 
><msup><mrow 
> <mfenced separators="" 
open="("  close=")" ><mrow><msubsup><mrow 
><mo 
class="MathClass-op">&#x2211;</mo></mrow><mrow 
>
<mi 
>t</mi><mo 
class="MathClass-rel">=</mo><mn>1</mn></mrow><mrow 
><mi 
>T</mi> </mrow></msubsup 
><msubsup><mrow 
><mi 
>L</mi></mrow><mrow 
>
<mi 
>k</mi></mrow><mrow 
><mo 
class="MathClass-bin">&#x2217;</mo></mrow></msubsup 
><mrow><mo 
class="MathClass-open">(</mo><mrow><msub><mrow 
><mover 
accent="true"><mrow 
><mi 
>U</mi></mrow><mo 
class="MathClass-op">&#x0302;</mo></mover></mrow><mrow 
>
<mi 
>t</mi></mrow></msub 
></mrow><mo 
class="MathClass-close">)</mo></mrow></mrow></mfenced> </mrow><mrow 
><mn>2</mn></mrow></msup 
></math>
<span 
class="ecti-1200">is a component of the test statistic and has an asymptotic </span><!--l. 390--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><msubsup><mrow 
><mi 
>&#x03C7;</mi></mrow><mrow 
><mn>1</mn></mrow><mrow 
><mn>2</mn></mrow></msubsup 
></math>

<span 
class="ecti-1200">distribution under </span><!--l. 390--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><msub><mrow 
><mi 
>H</mi></mrow><mrow 
><mn>0</mn></mrow></msub 
></math><span 
class="ecti-1200">.</span>
<span 
class="ecti-1200">When the null hypothesis is rejected, some of these components will be large.</span>
<span 
class="ecti-1200">The simple structure of the first few polynomials in (</span><a 
href="#x1-8014r9"><span 
class="ecti-1200">9</span><!--tex4ht:ref: equation2.9 --></a><span 
class="ecti-1200">) helps in understanding</span>
<span 
class="ecti-1200">what aspects of the normal are not supported by the data. For example, the first</span>
<span 
class="ecti-1200">component detects departure from symmetry under </span><!--l. 395--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><msub><mrow 
><mi 
>H</mi></mrow><mrow 
><mn>0</mn></mrow></msub 
></math>
<span 
class="ecti-1200">in the &#x0022;direction&#x0022; of asymmetry. This diagnostic analysis must be undertaken</span>
<span 
class="ecti-1200">with some care however</span><span class="frenchb-thinspace"></span><span 
class="ecti-1200">; see Henze (1997)(</span><a 
  name="dx1-8018"></a><a 
href="#X1997Henze121duch"><span 
class="ecti-1200">14</span></a><span 
class="ecti-1200">) for details.</span>
</p>
   </div>
   <div class="newtheorem">
<!--l. 400--><p class="noindent"><span class="head">
<a 
  name="x1-8019r3"></a>
<span 
class="ecbx-1200">Remark 2.3.</span></span>
   <span 
class="ecti-1200">The  above  methodology  can  in  principle  be  applied  to  other  distributions</span>
<span 
class="ecti-1200">than the normal. For location-scale densities, one needs to replace the normal</span>
<span 
class="ecti-1200">distribution                in                the                definition                of</span>
<!--l. 403--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><msub><mrow 
><mi 
>U</mi></mrow><mrow 
><mi 
>t</mi></mrow></msub 
></math>
<span 
class="ecti-1200">and  follow  the  derivation  using  the  new  null  density.  The  structure  of</span>
<!--l. 404--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><msub><mrow 
><mi 
>R</mi></mrow><mrow 
><mi 
>K</mi></mrow></msub 
></math>
<span 
class="ecti-1200">will be similar to what is obtained above but the modified Legendre polynomials will</span>
<span 
class="ecti-1200">change. For distributions with a shape parameter, the statistic is more complex</span>
<span 
class="ecti-1200">since the coefficients of these polynomials will in general depend on this unknown</span>
<span 
class="ecti-1200">shape parameter that must be estimated.</span>
</p>
   </div>
   <h3 class="sectionHead"><span class="titlemark">3. </span> <a 
  name="x1-90003"></a>Choosing the order <!--l. 412--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mi 
>K</mi></math>
of the alternative</h3>
<!--l. 413--><p class="noindent">Before applying the test strategy of Section 2, one must choose the value of
<!--l. 414--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mi 
>K</mi></math>.
Ideally, this choice should be made so that members of the embedding family
<!--l. 415--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><msub><mrow 
><mi 
>g</mi></mrow><mrow 
><mi 
>K</mi></mrow></msub 
><mrow><mo 
class="MathClass-open">(</mo><mrow><mo 
class="MathClass-punc">.</mo><mo 
class="MathClass-punc">;</mo> <mi 
>&#x03C9;</mi></mrow><mo 
class="MathClass-close">)</mo></mrow></math>
of (<a 
href="#x1-8006r4">4<!--tex4ht:ref: equation2.4 --></a>) provide a good approximation to any plausible density
<!--l. 416--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mi 
>g</mi><mrow><mo 
class="MathClass-open">(</mo><mrow><mo 
class="MathClass-punc">.</mo></mrow><mo 
class="MathClass-close">)</mo></mrow></math> of
<!--l. 416--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><msub><mrow 
><mi 
>U</mi></mrow><mrow 
><mi 
>t</mi></mrow></msub 
></math> under the
alternative. If <!--l. 417--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mi 
>K</mi></math>
is too small, this approximation may be crude and the test loses power. If
<!--l. 418--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mi 
>K</mi></math> is too large, power
dilution can occur since <!--l. 419--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><msub><mrow 
><mi 
>g</mi></mrow><mrow 
><mi 
>K</mi></mrow></msub 
><mrow><mo 
class="MathClass-open">(</mo><mrow><mo 
class="MathClass-punc">.</mo><mo 
class="MathClass-punc">;</mo> <mi 
>&#x03C9;</mi></mrow><mo 
class="MathClass-close">)</mo></mrow></math>
encompasses unnecessary &#x0022;directions&#x0022;.
<br class="newline" />
</p><!--l. 422--><p class="indent">   In practice, the user has only, at best, a qualitative idea of the plausible alternatives and no specific

value of <!--l. 423--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mi 
>K</mi></math> emerges
naturally. In the <!--l. 424--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mi 
>i</mi><mo 
class="MathClass-punc">.</mo><mi 
>i</mi><mo 
class="MathClass-punc">.</mo><mi 
>d</mi><mo 
class="MathClass-punc">.</mo></math>
case, some authors (Rayner and Best (1989)(<a 
  name="dx1-9001"></a><a 
href="#X1989Rayneduch">31</a>)) argue that, as a rule of thumb, one can use a
trade-off value of <!--l. 426--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mi 
>K</mi></math>
between 2 and 4.
<br class="newline" />
</p><!--l. 429--><p class="indent">   Recently, Ledwina (1994)(<a 
  name="dx1-9002"></a><a 
href="#X1994Ledwi1000duch">23</a>) and Kallenberg and
Ledwina (1997a,b)(<span 
class="ecbx-1200">?</span> <a 
  name="dx1-9003"></a><a 
href="#X1997Kalle1094duch">21</a>) have proposed and explored for
<!--l. 431--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mi 
>i</mi><mo 
class="MathClass-punc">.</mo><mi 
>i</mi><mo 
class="MathClass-punc">.</mo><mi 
>d</mi><mo 
class="MathClass-punc">.</mo></math> data a method to choose
adaptively a value for <!--l. 432--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mi 
>K</mi></math>.
At the first step, Schwarz (1978)(<a 
  name="dx1-9004"></a><a 
href="#X1978Schwa461duch">33</a>)&#x2019;s criterion is used to choose the value
<!--l. 433--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mover 
accent="true"><mrow 
><mi 
>K</mi></mrow><mo 
class="MathClass-op">&#x0302;</mo></mover></math> that
seems best in view of the data at hand. The smooth test strategy is then applied using the
statistic <!--l. 435--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><msub><mrow 
><mi 
>R</mi></mrow><mrow 
><mover 
accent="true"><mrow 
><mi 
>K</mi></mrow><mo 
class="MathClass-op">&#x0302;</mo></mover></mrow></msub 
></math>.
Extensive simulations have shown that, even for small sample sizes, this so-called
&#x0022;data driven smooth test&#x0022; can yield power close to what could be obtained if
one knew the true form of the alternative and had chosen the best value of
<!--l. 439--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mi 
>K</mi></math>
accordingly.
<br class="newline" />
</p><!--l. 441--><p class="indent">   So far, this approach has been investigated for
<!--l. 441--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mi 
>i</mi><mo 
class="MathClass-punc">.</mo><mi 
>i</mi><mo 
class="MathClass-punc">.</mo><mi 
>d</mi><mo 
class="MathClass-punc">.</mo></math>
data only but it can be extended to the ARMA context. Choose two integers
<!--l. 443--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mn>1</mn> <mo 
class="MathClass-rel">&#x2264;</mo> <mi 
>d</mi> <mo 
class="MathClass-rel">&#x2264;</mo> <mi 
>D</mi></math> and consider the set of
statistics <!--l. 444--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mrow><mo 
class="MathClass-open">(</mo><mrow><msub><mrow 
><mi 
>R</mi></mrow><mrow 
><mi 
>d</mi></mrow></msub 
><mo 
class="MathClass-punc">,</mo><mo 
class="MathClass-punc">.</mo><mo 
class="MathClass-punc">.</mo><mo 
class="MathClass-punc">.</mo><mo 
class="MathClass-punc">,</mo><msub><mrow 
><mi 
>R</mi></mrow><mrow 
><mi 
>D</mi></mrow></msub 
></mrow><mo 
class="MathClass-close">)</mo></mrow></math>. We seek a rule
that will select a good <!--l. 444--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><msub><mrow 
><mi 
>R</mi></mrow><mrow 
><mi 
>K</mi></mrow></msub 
></math>
in this set. Write </p><table class="equation"><tr><td> <a 
  name="x1-9005r1"></a>
<!--l. 446--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="display">
                 <mover 
accent="true"><mrow 
><mi 
>K</mi></mrow><mo 
class="MathClass-op">&#x0302;</mo></mover> <mo 
class="MathClass-rel">=</mo><mo 
> min</mo> <mfenced separators="" 
open="["  close="]" ><mrow><munder><mrow 
><!--mstyle 
class="text"--><mtext class="textrm" mathvariant="normal" >Argmax</mtext><!--/mstyle--></mrow><mrow 
><mi 
>d</mi> <mo 
class="MathClass-rel">&#x2264;</mo> <mi 
>s</mi> <mo 
class="MathClass-rel">&#x2264;</mo> <mi 
>D</mi></mrow></munder><mrow><mo 
class="MathClass-open">{</mo><mrow><msub><mrow 
><mi 
>R</mi></mrow><mrow 
><mi 
>s</mi></mrow></msub 
> <mo 
class="MathClass-bin">&#x2212;</mo> <mi 
>s</mi><!--mstyle 
class="text"--><mtext class="textrm" mathvariant="normal" >Log</mtext><!--/mstyle--><mrow><mo 
class="MathClass-open">(</mo><mrow><mi 
>T</mi></mrow><mo 
class="MathClass-close">)</mo></mrow></mrow><mo 
class="MathClass-close">}</mo></mrow></mrow></mfenced>
</math>
<!--l. 448--><p class="nopar"></p></td><td class="eq-no">(1)</td></tr></table>
and denote <!--l. 449--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><msub><mrow 
><mi 
>R</mi></mrow><mrow 
><mover 
accent="true"><mrow 
><mi 
>K</mi></mrow><mo 
class="MathClass-op">&#x0302;</mo></mover></mrow></msub 
><mrow><mo 
class="MathClass-open">(</mo><mrow><mi 
>d</mi></mrow><mo 
class="MathClass-close">)</mo></mrow></math>, the
test statistic <!--l. 449--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><msub><mrow 
><mi 
>R</mi></mrow><mrow 
><mover 
accent="true"><mrow 
><mi 
>K</mi></mrow><mo 
class="MathClass-op">&#x0302;</mo></mover></mrow></msub 
></math>
selected by (<a 
href="#x1-9005r1">1<!--tex4ht:ref: equation3.1 --></a>) in <!--l. 450--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mrow><mo 
class="MathClass-open">(</mo><mrow><msub><mrow 
><mi 
>R</mi></mrow><mrow 
><mi 
>d</mi></mrow></msub 
><mo 
class="MathClass-punc">,</mo><mo 
class="MathClass-punc">.</mo><mo 
class="MathClass-punc">.</mo><mo 
class="MathClass-punc">.</mo><mo 
class="MathClass-punc">,</mo><msub><mrow 
><mi 
>R</mi></mrow><mrow 
><mi 
>D</mi></mrow></msub 
></mrow><mo 
class="MathClass-close">)</mo></mrow></math>.
   <div class="newtheorem">

<!--l. 454--><p class="noindent"><span class="head">
<a 
  name="x1-9006r2"></a>
<span 
class="ecbx-1200">Theorem 2.</span></span>
   <span 
class="ecti-1200">Under </span><!--l. 455--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><msub><mrow 
><mi 
>H</mi></mrow><mrow 
><mn>0</mn></mrow></msub 
></math><span 
class="ecti-1200">,</span>
<!--l. 455--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mover 
accent="true"><mrow 
><mi 
>K</mi></mrow><mo 
class="MathClass-op">&#x0302;</mo></mover><mo 
class="MathClass-rel">&#x2192;</mo><mi 
>d</mi></math>
<span 
class="ecti-1200">in probability and thus, </span><!--l. 455--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><msub><mrow 
><mi 
>R</mi></mrow><mrow 
><mover 
accent="true"><mrow 
><mi 
>K</mi></mrow><mo 
class="MathClass-op">&#x0302;</mo></mover></mrow></msub 
><mrow><mo 
class="MathClass-open">(</mo><mrow><mi 
>d</mi></mrow><mo 
class="MathClass-close">)</mo></mrow></math>
<span 
class="ecti-1200">is asymptotically </span><!--l. 455--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><msubsup><mrow 
><mi 
>&#x03C7;</mi></mrow><mrow 
><mi 
>d</mi></mrow><mrow 
><mn>2</mn></mrow></msubsup 
></math><span 
class="ecti-1200">.</span>
</p>
   </div>
   <div class="proof">
<!--l. 458--><p class="indent">   <span class="head">
<span 
class="eccc-1200">D</span><small class="small-caps"><span 
class="eccc-1200">&#x00C9;</span></small><span 
class="eccc-1200"><small 
class="small-caps">M</small><small 
class="small-caps">O</small><small 
class="small-caps">N</small><small 
class="small-caps">S</small><small 
class="small-caps">T</small><small 
class="small-caps">R</small><small 
class="small-caps">A</small><small 
class="small-caps">T</small><small 
class="small-caps">I</small><small 
class="small-caps">O</small><small 
class="small-caps">N</small>.</span> </span>Set <!--l. 458--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><msub><mrow 
><mi 
>e</mi></mrow><mrow 
><mi 
>k</mi></mrow></msub 
> <mo 
class="MathClass-rel">=</mo> <mrow><mo 
class="MathClass-open">(</mo><mrow><mi 
>k</mi> <mo 
class="MathClass-bin">&#x2212;</mo> <mi 
>d</mi></mrow><mo 
class="MathClass-close">)</mo></mrow><!--mstyle 
class="text"--><mtext class="textrm" mathvariant="normal" >Log</mtext><!--/mstyle--><mi 
>T</mi></math>.
For <!--l. 458--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mi 
>k</mi> <mo 
class="MathClass-rel">&#x2265;</mo> <mi 
>d</mi></math>,
<!--l. 458--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mi 
>P</mi><mrow><mo 
class="MathClass-open">(</mo><mrow><mover 
accent="true"><mrow 
><mi 
>K</mi></mrow><mo 
class="MathClass-op">&#x0302;</mo></mover> <mo 
class="MathClass-rel">=</mo> <mi 
>k</mi></mrow><mo 
class="MathClass-close">)</mo></mrow> <mo 
class="MathClass-rel">&#x2264;</mo> <mi 
>P</mi><mrow><mo 
class="MathClass-open">(</mo><mrow><msub><mrow 
><mi 
>R</mi></mrow><mrow 
><mi 
>k</mi></mrow></msub 
> <mo 
class="MathClass-rel">&#x003E;</mo> <msub><mrow 
><mi 
>e</mi></mrow><mrow 
><mi 
>k</mi></mrow></msub 
></mrow><mo 
class="MathClass-close">)</mo></mrow></math>. Now,
since each <!--l. 459--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><msub><mrow 
><mi 
>R</mi></mrow><mrow 
><mi 
>k</mi></mrow></msub 
></math> is
asymptotically <!--l. 459--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><msubsup><mrow 
><mi 
>&#x03C7;</mi></mrow><mrow 
><mi 
>k</mi></mrow><mrow 
><mn>2</mn></mrow></msubsup 
></math>
under <!--l. 459--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><msub><mrow 
><mi 
>H</mi></mrow><mrow 
><mn>0</mn></mrow></msub 
></math>, as
<!--l. 460--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mi 
>T</mi></math>
increases,
</p><!--l. 461--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="display">
                                 <mi 
>P</mi><mrow><mo 
class="MathClass-open">(</mo><mrow><msub><mrow 
><mi 
>R</mi></mrow><mrow 
><mi 
>k</mi></mrow></msub 
> <mo 
class="MathClass-rel">&#x003E;</mo> <msub><mrow 
><mi 
>e</mi></mrow><mrow 
><mi 
>k</mi></mrow></msub 
></mrow><mo 
class="MathClass-close">)</mo></mrow><mo 
class="MathClass-rel">&#x2192;</mo><mn>0</mn><mo 
class="MathClass-punc">,</mo>
</math>
<!--l. 463--><p class="nopar">
when k &#x003E; d. It follows that <!--l. 464--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mi 
>P</mi><mrow><mo 
class="MathClass-open">(</mo><mrow><mover 
accent="true"><mrow 
><mi 
>K</mi></mrow><mo 
class="MathClass-op">&#x0302;</mo></mover> <mo 
class="MathClass-rel">=</mo> <mi 
>d</mi></mrow><mo 
class="MathClass-close">)</mo></mrow> <mo 
class="MathClass-rel">=</mo> <mn>1</mn> <mo 
class="MathClass-bin">&#x2212;</mo> <mi 
>P</mi><mrow><mo 
class="MathClass-open">(</mo><mrow><mover 
accent="true"><mrow 
><mi 
>K</mi></mrow><mo 
class="MathClass-op">&#x0302;</mo></mover> <mo 
class="MathClass-rel">&#x2265;</mo> <mi 
>d</mi> <mo 
class="MathClass-bin">+</mo> <mn>1</mn></mrow><mo 
class="MathClass-close">)</mo></mrow><mo 
class="MathClass-rel">&#x2192;</mo><mn>1</mn></math>.
<span class="qed"><span 
class="msam-10x-x-120">&#x25A1;</span></span>
</p>
   </div>
<!--l. 468--><p class="indent">   For finite sample sizes, the asymptotic null distribution of
Theorem <a 
href="#x1-9006r2">2<!--tex4ht:ref: theorem3.1 --></a> may not provide a good approximation to that of
<!--l. 469--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><msub><mrow 
><mi 
>R</mi></mrow><mrow 
><mover 
accent="true"><mrow 
><mi 
>K</mi></mrow><mo 
class="MathClass-op">&#x0302;</mo></mover></mrow></msub 
><mrow><mo 
class="MathClass-open">(</mo><mrow><mi 
>d</mi></mrow><mo 
class="MathClass-close">)</mo></mrow></math> since there is a positive
probability that <!--l. 470--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mover 
accent="true"><mrow 
><mi 
>K</mi></mrow><mo 
class="MathClass-op">&#x0302;</mo></mover> <mo 
class="MathClass-rel">&#x2265;</mo> <mi 
>d</mi> <mo 
class="MathClass-bin">+</mo> <mn>1</mn></math>.

A simple correction has been developed by Janic-Wroblewska and Ledwina (2000)(<a 
  name="dx1-9007"></a><a 
href="#X2000Janic281duch">18</a>)
when <!--l. 472--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mi 
>d</mi> <mo 
class="MathClass-rel">=</mo> <mn>1</mn></math>
(<!--l. 472--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mi 
>i</mi><mo 
class="MathClass-punc">.</mo><mi 
>i</mi><mo 
class="MathClass-punc">.</mo><mi 
>d</mi><mo 
class="MathClass-punc">.</mo></math>
data). Because of the asymptotic independence between the components of
<!--l. 473--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><msub><mrow 
><mi 
>R</mi></mrow><mrow 
><mi 
>k</mi></mrow></msub 
></math>, this correction can
easily be extended to <!--l. 474--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mi 
>d</mi> <mo 
class="MathClass-rel">&#x003E;</mo> <mn>1</mn></math>
and to the present ARMA context. A direct application of the argument in
their Section 4 leads to the following approximation, which can be solved for
<!--l. 476--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mi 
>x</mi></math> by
numerical integration </p><table class="equation"><tr><td> <a 
  name="x1-9008r2"></a>
<!--l. 477--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="display">
<mi 
>P</mi><mrow><mo 
class="MathClass-open">(</mo><mrow><msub><mrow 
><mi 
>R</mi></mrow><mrow 
><mover 
accent="true"><mrow 
><mi 
>K</mi></mrow><mo 
class="MathClass-op">&#x0302;</mo></mover></mrow></msub 
><mrow><mo 
class="MathClass-open">(</mo><mrow><mi 
>d</mi></mrow><mo 
class="MathClass-close">)</mo></mrow> <mo 
class="MathClass-rel">&#x2264;</mo> <mi 
>x</mi></mrow><mo 
class="MathClass-close">)</mo></mrow> <mo 
class="MathClass-rel">&#x2248;</mo> <mi 
>P</mi><mrow><mo 
class="MathClass-open">(</mo><mrow><msubsup><mrow 
><mi 
>&#x03C7;</mi></mrow><mrow 
><mi 
>d</mi></mrow><mrow 
><mn>2</mn></mrow></msubsup 
> <mo 
class="MathClass-rel">&#x2264;</mo> <mi 
>x</mi></mrow><mo 
class="MathClass-close">)</mo></mrow><mi 
>P</mi><mrow><mo 
class="MathClass-open">(</mo><mrow><msubsup><mrow 
><mi 
>&#x03C7;</mi></mrow><mrow 
>
<mn>1</mn></mrow><mrow 
><mn>2</mn></mrow></msubsup 
> <mo 
class="MathClass-rel">&#x2264;</mo><!--mstyle 
class="text"--><mtext class="textrm" mathvariant="normal" >Log</mtext><!--/mstyle--><mrow><mo 
class="MathClass-open">(</mo><mrow><mi 
>T</mi></mrow><mo 
class="MathClass-close">)</mo></mrow></mrow><mo 
class="MathClass-close">)</mo></mrow><mo 
class="MathClass-bin">+</mo><msubsup><mrow 
><mo 
class="MathClass-op">&#x222B;</mo>
 </mrow><mrow 
><!--mstyle 
class="text"--><mtext class="textrm" mathvariant="normal" >Log</mtext><!--/mstyle--><mrow><mo 
class="MathClass-open">(</mo><mrow><mi 
>T</mi></mrow><mo 
class="MathClass-close">)</mo></mrow></mrow><mrow 
><mi 
>x</mi></mrow></msubsup 
><mi 
>P</mi><mrow><mo 
class="MathClass-open">(</mo><mrow><msubsup><mrow 
><mi 
>&#x03C7;</mi></mrow><mrow 
>
<mi 
>d</mi></mrow><mrow 
><mn>2</mn></mrow></msubsup 
> <mo 
class="MathClass-rel">&#x003C;</mo> <mi 
>x</mi><mo 
class="MathClass-bin">&#x2212;</mo><mi 
>z</mi></mrow><mo 
class="MathClass-close">)</mo></mrow>   <mfrac><mrow 
><mn>1</mn></mrow>
<mrow 
><msqrt><mrow><mn>2</mn><mi 
>&#x03C0;</mi><mi 
>z</mi></mrow></msqrt></mrow></mfrac><msup><mrow 
><mi 
>e</mi></mrow><mrow 
><mo 
class="MathClass-bin">&#x2212;</mo><mi 
>z</mi><mo 
class="MathClass-bin">&#x2215;</mo><mn>2</mn></mrow></msup 
><mi 
>d</mi><mi 
>z</mi><mo 
class="MathClass-punc">.</mo>
</math>
<!--l. 481--><p class="nopar"></p></td><td class="eq-no">(2)</td></tr></table>
Some quantiles corrected through (<a 
href="#x1-9008r2">2<!--tex4ht:ref: equation3.2 --></a>) are listed in Table 3.1.

<a 
  name="x1-90091"></a>
   <hr class="float" /><div align="center" class="float" 
><table class="float"><tr class="float"><td class="float" 
>

 <div align="center" class="caption"><table class="caption" 
><tr valign="baseline" class="caption"><td class="id"><span 
class="eccc-1200">T<small 
class="small-caps">A</small><small 
class="small-caps">B</small>.</span>&#x00A0;3.1: </td><td  
class="content">Some quantiles obtained from approximation (<a 
href="#x1-9008r2">2<!--tex4ht:ref: equation3.2 --></a>)</td></tr></table></div><!--tex4ht:label?: x1-90091 -->
<div class="tabular"><table class="tabular" 
cellspacing="0pt" cellpadding="0" rules="groups" 
frame="border" id="TBL-12-" ><colgroup id="TBL-12-1g"><col 
id="TBL-12-1" /></colgroup><colgroup id="TBL-12-2g"><col 
id="TBL-12-2" /></colgroup><colgroup id="TBL-12-3g"><col 
id="TBL-12-3" /></colgroup><colgroup id="TBL-12-4g"><col 
id="TBL-12-4" /></colgroup><colgroup id="TBL-12-5g"><col 
id="TBL-12-5" /></colgroup><tr 
class="hline"><td><hr /></td><td><hr /></td><td><hr /></td><td><hr /></td><td><hr /></td></tr><tr  
 valign="baseline" id="TBL-12-1-"><td  align="center" nowrap="nowrap" id="TBL-12-1-1"  
class="td11">       </td><td  align="center" nowrap="nowrap" id="TBL-12-1-2"  
class="td11"> T </td><td  align="center" nowrap="nowrap" id="TBL-12-1-3"  
class="td11">a = 0.10</td><td  align="center" nowrap="nowrap" id="TBL-12-1-4"  
class="td11">a = 0.05</td><td  align="center" nowrap="nowrap" id="TBL-12-1-5"  
class="td11">a = 0.01</td>
</tr><tr 
class="hline"><td><hr /></td><td><hr /></td><td><hr /></td><td><hr /></td><td><hr /></td></tr><tr  
 valign="baseline" id="TBL-12-2-"><td  align="center" nowrap="nowrap" id="TBL-12-2-1"  
class="td11">d = 1</td><td  align="center" nowrap="nowrap" id="TBL-12-2-2"  
class="td11"> 50 </td><td  align="center" nowrap="nowrap" id="TBL-12-2-3"  
class="td11">  3.692  </td><td  align="center" nowrap="nowrap" id="TBL-12-2-4"  
class="td11">  5.410  </td><td  align="center" nowrap="nowrap" id="TBL-12-2-5"  
class="td11">  8.805  </td>
</tr><tr  
 valign="baseline" id="TBL-12-3-"><td  align="center" nowrap="nowrap" id="TBL-12-3-1"  
class="td11">       </td><td  align="center" nowrap="nowrap" id="TBL-12-3-2"  
class="td11">100</td><td  align="center" nowrap="nowrap" id="TBL-12-3-3"  
class="td11">  3.275  </td><td  align="center" nowrap="nowrap" id="TBL-12-3-4"  
class="td11">  5.201  </td><td  align="center" nowrap="nowrap" id="TBL-12-3-5"  
class="td11">  8.703  </td>
</tr><tr  
 valign="baseline" id="TBL-12-4-"><td  align="center" nowrap="nowrap" id="TBL-12-4-1"  
class="td11">       </td><td  align="center" nowrap="nowrap" id="TBL-12-4-2"  
class="td11">200</td><td  align="center" nowrap="nowrap" id="TBL-12-4-3"  
class="td11">  3.057  </td><td  align="center" nowrap="nowrap" id="TBL-12-4-4"  
class="td11">  4.751  </td><td  align="center" nowrap="nowrap" id="TBL-12-4-5"  
class="td11">  8.590  </td>
</tr><tr 
class="hline"><td><hr /></td><td><hr /></td><td><hr /></td><td><hr /></td><td><hr /></td></tr><tr  
 valign="baseline" id="TBL-12-5-"><td  align="center" nowrap="nowrap" id="TBL-12-5-1"  
class="td11">d = 2</td><td  align="center" nowrap="nowrap" id="TBL-12-5-2"  
class="td11"> 50 </td><td  align="center" nowrap="nowrap" id="TBL-12-5-3"  
class="td11">  5.466  </td><td  align="center" nowrap="nowrap" id="TBL-12-5-4"  
class="td11">  7.137  </td><td  align="center" nowrap="nowrap" id="TBL-12-5-5"  
class="td11"> 10.807 </td>
</tr><tr  
 valign="baseline" id="TBL-12-6-"><td  align="center" nowrap="nowrap" id="TBL-12-6-1"  
class="td11">       </td><td  align="center" nowrap="nowrap" id="TBL-12-6-2"  
class="td11">100</td><td  align="center" nowrap="nowrap" id="TBL-12-6-3"  
class="td11">  5.262  </td><td  align="center" nowrap="nowrap" id="TBL-12-6-4"  
class="td11">  6.972  </td><td  align="center" nowrap="nowrap" id="TBL-12-6-5"  
class="td11"> 10.684 </td>
</tr><tr  
 valign="baseline" id="TBL-12-7-"><td  align="center" nowrap="nowrap" id="TBL-12-7-1"  
class="td11">       </td><td  align="center" nowrap="nowrap" id="TBL-12-7-2"  
class="td11">200</td><td  align="center" nowrap="nowrap" id="TBL-12-7-3"  
class="td11">  5.043  </td><td  align="center" nowrap="nowrap" id="TBL-12-7-4"  
class="td11">  6.796  </td><td  align="center" nowrap="nowrap" id="TBL-12-7-5"  
class="td11"> 10.558 </td>
</tr><tr 
class="hline"><td><hr /></td><td><hr /></td><td><hr /></td><td><hr /></td><td><hr /></td></tr><tr  
 valign="baseline" id="TBL-12-8-"><td  align="center" nowrap="nowrap" id="TBL-12-8-1"  
class="td11">       </td>
</tr><!--"|c|c|c|c|c|"--></table></div>

   </td></tr></table></div><hr class="endfloat" />
<br class="newline" />One may have the feeling that this data driven approach replaces the problem of selecting
<!--l. 501--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mi 
>K</mi></math> with that of
selecting <!--l. 501--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mi 
>d</mi></math> and
<!--l. 501--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mi 
>D</mi></math>. To answer
this, Kallenberg and Ledwina (1997a,b)(<span 
class="ecbx-1200">?</span> <a 
  name="dx1-9010"></a><a 
href="#X1997Kalle1094duch">21</a>) have studied a version of the above procedure where
<!--l. 503--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mi 
>D</mi></math> is allowed to
increase with <!--l. 503--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mi 
>T</mi></math>.
In the <!--l. 504--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mi 
>i</mi><mo 
class="MathClass-punc">.</mo><mi 
>i</mi><mo 
class="MathClass-punc">.</mo><mi 
>d</mi><mo 
class="MathClass-punc">.</mo></math>
case, they obtain rates connecting these quantities. These rates are
theoretically interesting but do not help in practice in selecting a value for
<!--l. 506--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mi 
>D</mi></math>. To get
more insight, they have conducted extensive simulations. It turns out that the power levels off
rapidly as <!--l. 508--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mi 
>D</mi></math>
increases and there is little to be gained by choosing
<!--l. 508--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mi 
>D</mi></math> much greater than 10.
As for the choice of <!--l. 509--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mi 
>d</mi></math>,
again Kallenberg and Ledwina (1997a)(<a 
  name="dx1-9011"></a><a 
href="#X1997Kalle101duch">20</a>) briefly discuss this problem where it emerges that in
their context <!--l. 511--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mi 
>d</mi> <mo 
class="MathClass-rel">=</mo> <mn>1</mn></math>
or <!--l. 511--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mn>2</mn></math>
appears reasonable. In the simulation study of the next section we use both these values of
<!--l. 513--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mi 
>d</mi></math> and
take <!--l. 513--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mi 
>D</mi> <mo 
class="MathClass-rel">=</mo> <mn>1</mn><mn>0</mn></math>.
<br class="newline" />
   In closing this section, note that, by plotting
<!--l. 516--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><msub><mrow 
><mi 
>g</mi></mrow><mrow 
><mover 
accent="true"><mrow 
><mi 
>K</mi></mrow><mo 
class="MathClass-op">&#x0302;</mo></mover></mrow></msub 
><mrow><mo 
class="MathClass-open">(</mo><mrow><mo 
class="MathClass-punc">.</mo><mo 
class="MathClass-punc">;</mo> <mover 
accent="true"><mrow 
><mi 
>&#x03C9;</mi></mrow><mo 
class="MathClass-op">&#x0302;</mo></mover></mrow><mo 
class="MathClass-close">)</mo></mrow></math> where
<!--l. 516--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mover 
accent="true"><mrow 
><mi 
>&#x03C9;</mi></mrow><mo 
class="MathClass-op">&#x0302;</mo></mover></math> is an
estimate of <!--l. 517--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mi 
>&#x03C9;</mi></math>,
one can get an idea of the true shape of the density when the null hypothesis has been
rejected. This can be helpful in finding a more appropriate distribution for the
innovations.
   <h3 class="sectionHead"><span class="titlemark">4. </span> <a 
  name="x1-100004"></a>Simulation Results</h3>
<!--l. 522--><p class="noindent">To get an idea of the behavior of our test statistics as compared
to some competitors, a simulation study was conducted. Samples
<!--l. 523--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mrow><mo 
class="MathClass-open">{</mo><mrow><msub><mrow 
><mi 
>Y</mi> </mrow><mrow 
><mi 
>t</mi></mrow></msub 
><mo 
class="MathClass-punc">,</mo><mi 
>t</mi> <mo 
class="MathClass-rel">=</mo> <mn>1</mn><mo 
class="MathClass-punc">,</mo><mo 
class="MathClass-punc">.</mo><mo 
class="MathClass-punc">.</mo><mo 
class="MathClass-punc">.</mo><mo 
class="MathClass-punc">,</mo><mi 
>T</mi></mrow><mo 
class="MathClass-close">}</mo></mrow></math> from various
ARMA(<!--l. 523--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mi 
>p</mi></math>,
<!--l. 523--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mi 
>q</mi></math>)
models were generated with the innovations arising, in the first part of the
simulation, from the normal distribution and, in the second, from various
alternatives. For each sample, we estimated the parameters of the model and
computed test statistics. From there, we obtained approximations to their level

and power. All programs are written in Fortran 77. The subroutines listed
below are from the Numerical Algorithms Group (NAG) MARK 16 Fortran
library.
</p>
   <h4 class="subsectionHead"><span class="titlemark">4.1. </span> <a 
  name="x1-110004.1"></a>Levels</h4> The first part of the simulation study was
designed to see if the critical values obtained from the asymptotic
<!--l. 526--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><msup><mrow 
><mi 
>&#x03C7;</mi></mrow><mrow 
><mn>2</mn></mrow></msup 
></math>
or from (<a 
href="#x1-9008r2">2<!--tex4ht:ref: equation3.2 --></a>) can be relied upon in finite samples. We took
<!--l. 528--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mi 
>T</mi> <mo 
class="MathClass-rel">=</mo> <mn>5</mn><mn>0</mn></math>,
<!--l. 528--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mn>1</mn><mn>0</mn><mn>0</mn></math> and
<!--l. 528--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mn>2</mn><mn>0</mn><mn>0</mn></math> and restricted
attention to the models MA(2), AR(2), ARMA(1,2), ARMA(2,1) and ARMA(2, 2). To generate
ARMA(<!--l. 529--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mi 
>p</mi></math>,<!--l. 529--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mi 
>q</mi></math>)
samples with Gaussian innovations, we used subroutine G05EGF and G05EWF. These
samples were submitted to subroutine G13DCF that returns estimates of the
parameters of the model as well as residuals. The definition of these residuals, given
at equation (9.4.1) in Brockett et al. (1988)(<a 
  name="dx1-11001"></a><a 
href="#X1988Brock657duch">3</a>), differs from (<a 
href="#x1-8002r2">2<!--tex4ht:ref: equation2.2 --></a>) but their
numerical values are almost identical. These residuals were then submitted to the
various tests. The actual level of each test was computed for nominal level
<!--l. 536--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mi 
>&#x03B1;</mi> <mo 
class="MathClass-rel">=</mo> <mn>0</mn><mo 
class="MathClass-punc">.</mo><mn>1</mn><mn>0</mn></math> and
<!--l. 536--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mn>0</mn><mo 
class="MathClass-punc">.</mo><mn>0</mn><mn>5</mn></math>.
<br class="newline" />
<!--l. 538--><p class="noindent">Regarding the parameter <!--l. 538--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mi 
>&#x03B2;</mi></math>,
note that our test statistics are in theory invariant to the choice of
<!--l. 540--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mi 
>&#x03C3;</mi></math> and we
took <!--l. 540--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mi 
>&#x03C3;</mi> <mo 
class="MathClass-rel">=</mo> <mn>1</mn></math>.
Numerically, this invariance holds approximately because of the stopping rule in
G13DCF. But the finite distribution of our test statistics depends on the values of
<!--l. 544--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mi 
>&#x03B8;</mi></math> and
<!--l. 544--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mi 
>&#x03D5;</mi></math>. To
explore this, we have proceeded as follows. First, causality requires that, if
<!--l. 546--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mi 
>p</mi> <mo 
class="MathClass-rel">=</mo> <mn>1</mn></math>,
<!--l. 546--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><msub><mrow 
><mi 
>&#x03D5;</mi></mrow><mrow 
><mn>1</mn></mrow></msub 
> <mo 
class="MathClass-rel">&#x2208;</mo><mo 
class="MathClass-bin">&#x2212;</mo><mn>1</mn><mo 
class="MathClass-punc">,</mo> <mn>1</mn></math> while
if <!--l. 546--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mi 
>p</mi> <mo 
class="MathClass-rel">=</mo> <mn>2</mn></math>,
<!--l. 547--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mi 
>&#x03D5;</mi></math> must be in
the region <!--l. 548--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><msub><mrow 
><mo 
class="MathClass-bin">&#x25B3;</mo></mrow><mrow 
><mi 
>&#x03D5;</mi></mrow></msub 
> <mo 
class="MathClass-rel">=</mo> <mrow><mo 
class="MathClass-open">{</mo><mrow><mrow><mo 
class="MathClass-open">(</mo><mrow><msub><mrow 
><mi 
>&#x03D5;</mi></mrow><mrow 
><mn>1</mn></mrow></msub 
><mo 
class="MathClass-punc">,</mo><msub><mrow 
><mi 
>&#x03D5;</mi></mrow><mrow 
><mn>2</mn></mrow></msub 
></mrow><mo 
class="MathClass-close">)</mo></mrow><mo 
class="MathClass-rel">&#x2223;</mo><msub><mrow 
><mi 
>&#x03D5;</mi></mrow><mrow 
><mn>1</mn></mrow></msub 
> <mo 
class="MathClass-bin">+</mo> <msub><mrow 
><mi 
>&#x03D5;</mi></mrow><mrow 
><mn>2</mn></mrow></msub 
> <mo 
class="MathClass-rel">&#x003C;</mo> <mn>1</mn><mo 
class="MathClass-punc">,</mo><msub><mrow 
><mi 
>&#x03D5;</mi></mrow><mrow 
><mn>2</mn></mrow></msub 
> <mo 
class="MathClass-bin">&#x2212;</mo> <msub><mrow 
><mi 
>&#x03D5;</mi></mrow><mrow 
><mn>1</mn></mrow></msub 
> <mo 
class="MathClass-rel">&#x003C;</mo> <mn>1</mn><mo 
class="MathClass-punc">,</mo><mo 
class="MathClass-rel">&#x2223;</mo><msub><mrow 
><mi 
>&#x03D5;</mi></mrow><mrow 
><mn>2</mn></mrow></msub 
><mo 
class="MathClass-rel">&#x2223;</mo> <mo 
class="MathClass-rel">&#x003C;</mo> <mn>1</mn></mrow><mo 
class="MathClass-close">}</mo></mrow></math>
(Brockett et al. (1988)(<a 
  name="dx1-11002"></a><a 
href="#X1988Brock657duch">3</a>), p. 110, ex.3.2). Similarly, invertibility implies that if
<!--l. 551--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mi 
>q</mi> <mo 
class="MathClass-rel">=</mo> <mn>1</mn></math>,
<!--l. 551--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><msub><mrow 
><mi 
>&#x03B8;</mi></mrow><mrow 
><mn>1</mn></mrow></msub 
> <mo 
class="MathClass-rel">&#x2208;</mo><mo 
class="MathClass-bin">&#x2212;</mo><mn>1</mn><mo 
class="MathClass-punc">,</mo> <mn>1</mn></math> while
if <!--l. 551--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mi 
>q</mi> <mo 
class="MathClass-rel">=</mo> <mn>2</mn></math>,
<!--l. 552--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mi 
>&#x03B8;</mi></math> must be in
<!--l. 552--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><msub><mrow 
><mo 
class="MathClass-bin">&#x25BD;</mo></mrow><mrow 
><mi 
>&#x03B8;</mi></mrow></msub 
> <mo 
class="MathClass-rel">=</mo> <mrow><mo 
class="MathClass-open">{</mo><mrow><mrow><mo 
class="MathClass-open">(</mo><mrow><mo 
class="MathClass-bin">&#x2212;</mo><msub><mrow 
><mi 
>&#x03B8;</mi></mrow><mrow 
><mn>1</mn></mrow></msub 
><mo 
class="MathClass-punc">,</mo><mo 
class="MathClass-bin">&#x2212;</mo><msub><mrow 
><mi 
>&#x03B8;</mi></mrow><mrow 
><mn>2</mn></mrow></msub 
></mrow><mo 
class="MathClass-close">)</mo></mrow><mo 
class="MathClass-rel">&#x2223;</mo><msub><mrow 
><mi 
>&#x03B8;</mi></mrow><mrow 
><mn>1</mn></mrow></msub 
> <mo 
class="MathClass-bin">+</mo> <msub><mrow 
><mi 
>&#x03B8;</mi></mrow><mrow 
><mn>2</mn></mrow></msub 
> <mo 
class="MathClass-rel">&#x003C;</mo> <mn>1</mn><mo 
class="MathClass-punc">,</mo><msub><mrow 
><mi 
>&#x03B8;</mi></mrow><mrow 
><mn>2</mn></mrow></msub 
> <mo 
class="MathClass-bin">&#x2212;</mo> <msub><mrow 
><mi 
>&#x03B8;</mi></mrow><mrow 
><mn>1</mn></mrow></msub 
> <mo 
class="MathClass-rel">&#x003C;</mo> <mn>1</mn><!--mstyle 
class="text"--><mtext >&#x000A0;and&#x000A0;</mtext><!--/mstyle--><mo 
class="MathClass-rel">&#x2223;</mo><msub><mrow 
><mi 
>&#x03B8;</mi></mrow><mrow 
><mn>2</mn></mrow></msub 
><mo 
class="MathClass-rel">&#x2223;</mo> <mo 
class="MathClass-rel">&#x003C;</mo> <mn>1</mn></mrow><mo 
class="MathClass-close">}</mo></mrow></math>. In addition, the
polynomials <!--l. 555--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mn>1</mn> <mo 
class="MathClass-bin">&#x2212;</mo> <msub><mrow 
><mi 
>&#x03D5;</mi></mrow><mrow 
><mn>1</mn></mrow></msub 
><mi 
>z</mi></math>

when <!--l. 556--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mi 
>p</mi> <mo 
class="MathClass-rel">=</mo> <mn>1</mn></math> and
<!--l. 556--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mn>1</mn> <mo 
class="MathClass-bin">&#x2212;</mo> <msub><mrow 
><mi 
>&#x03D5;</mi></mrow><mrow 
><mn>1</mn></mrow></msub 
><mi 
>z</mi> <mo 
class="MathClass-bin">&#x2212;</mo> <msub><mrow 
><mi 
>&#x03D5;</mi></mrow><mrow 
><mn>2</mn></mrow></msub 
><msup><mrow 
><mi 
>z</mi></mrow><mrow 
><mn>2</mn></mrow></msup 
></math> when
<!--l. 556--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mi 
>p</mi> <mo 
class="MathClass-rel">=</mo> <mn>2</mn></math> must have no
common zeroes with <!--l. 557--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mn>1</mn> <mo 
class="MathClass-bin">+</mo> <msub><mrow 
><mi 
>&#x03B8;</mi></mrow><mrow 
><mn>1</mn></mrow></msub 
><mi 
>z</mi></math>
when q = 1 and <!--l. 557--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mn>1</mn> <mo 
class="MathClass-bin">+</mo> <msub><mrow 
><mi 
>&#x03B8;</mi></mrow><mrow 
><mn>1</mn></mrow></msub 
><mi 
>z</mi> <mo 
class="MathClass-bin">+</mo> <msub><mrow 
><mi 
>&#x03B8;</mi></mrow><mrow 
><mn>2</mn></mrow></msub 
><msup><mrow 
><mi 
>z</mi></mrow><mrow 
><mn>2</mn></mrow></msup 
></math>
when q = 2.
<br class="newline" />
</p><!--l. 560--><p class="indent">   For the AR(2) model, we have taken the values of
<!--l. 560--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mi 
>&#x03D5;</mi></math> in the grid
of 64 points <!--l. 561--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mrow><mo 
class="MathClass-open">{</mo><mrow><mrow><mo 
class="MathClass-open">(</mo><mrow><mo 
class="MathClass-bin">&#x2212;</mo><mn>2</mn><mo 
class="MathClass-punc">.</mo><mn>0</mn> <mo 
class="MathClass-bin">+</mo> <mn>0</mn><mo 
class="MathClass-punc">.</mo><mn>2</mn><mn>5</mn><mi 
>j</mi><mo 
class="MathClass-punc">,</mo><mo 
class="MathClass-bin">&#x2212;</mo><mn>0</mn><mo 
class="MathClass-punc">.</mo><mn>9</mn> <mo 
class="MathClass-bin">+</mo> <mn>0</mn><mo 
class="MathClass-punc">.</mo><mn>2</mn><mn>5</mn><mi 
>k</mi></mrow><mo 
class="MathClass-close">)</mo></mrow> <mo 
class="MathClass-rel">&#x2208;</mo><msub><mrow 
><mo 
class="MathClass-bin">&#x25B3;</mo></mrow><mrow 
><mi 
>&#x03D5;</mi></mrow></msub 
><mo 
class="MathClass-rel">&#x2223;</mo><mi 
>j</mi><mo 
class="MathClass-punc">,</mo><mi 
>k</mi> <mo 
class="MathClass-rel">&#x2265;</mo> <mn>0</mn></mrow><mo 
class="MathClass-close">}</mo></mrow></math>.
A similar grid was used for the MA(2). This makes it possible to
see whether the tests maintain the proper critical level over a large
section of the parameter space. For the ARMA(1, 2), the grid over
<!--l. 564--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><msub><mrow 
><mo 
class="MathClass-bin">&#x25BD;</mo></mrow><mrow 
><mi 
>&#x03B8;</mi></mrow></msub 
></math> was
reduced to <!--l. 565--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mrow><mo 
class="MathClass-open">{</mo><mrow><mrow><mo 
class="MathClass-open">(</mo><mrow><mo 
class="MathClass-bin">&#x2212;</mo><mn>2</mn><mo 
class="MathClass-punc">.</mo><mn>0</mn> <mo 
class="MathClass-bin">+</mo> <mn>0</mn><mo 
class="MathClass-punc">.</mo><mn>4</mn><mn>0</mn><mi 
>j</mi><mo 
class="MathClass-punc">,</mo><mo 
class="MathClass-bin">&#x2212;</mo><mn>0</mn><mo 
class="MathClass-punc">.</mo><mn>9</mn> <mo 
class="MathClass-bin">+</mo> <mn>0</mn><mo 
class="MathClass-punc">.</mo><mn>4</mn><mn>0</mn><mi 
>k</mi></mrow><mo 
class="MathClass-close">)</mo></mrow> <mo 
class="MathClass-rel">&#x2208;</mo><msub><mrow 
><mo 
class="MathClass-bin">&#x25BD;</mo></mrow><mrow 
><mi 
>&#x03B8;</mi></mrow></msub 
><mo 
class="MathClass-rel">&#x2223;</mo><mi 
>j</mi><mo 
class="MathClass-punc">,</mo><mi 
>k</mi> <mo 
class="MathClass-rel">&#x2265;</mo> <mn>0</mn></mrow><mo 
class="MathClass-close">}</mo></mrow></math>
while <!--l. 566--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><msub><mrow 
><mi 
>&#x03D5;</mi></mrow><mrow 
><mn>1</mn></mrow></msub 
> <mo 
class="MathClass-rel">=</mo> <mo 
class="MathClass-bin">&#x2212;</mo><mn>0</mn><mo 
class="MathClass-punc">.</mo><mn>9</mn> <mo 
class="MathClass-bin">+</mo> <mn>0</mn><mo 
class="MathClass-punc">.</mo><mn>2</mn><mi 
>j</mi><mo 
class="MathClass-punc">,</mo><mi 
>j</mi> <mo 
class="MathClass-rel">=</mo> <mn>0</mn><mo 
class="MathClass-punc">,</mo><mo 
class="MathClass-punc">.</mo><mo 
class="MathClass-punc">.</mo><mo 
class="MathClass-punc">.</mo><mo 
class="MathClass-punc">,</mo> <mn>9</mn></math>.
This gives a set of 250 points on the parameter space of
<!--l. 568--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mrow><mo 
class="MathClass-open">(</mo><mrow><msub><mrow 
><mi 
>&#x03D5;</mi></mrow><mrow 
><mn>1</mn></mrow></msub 
><mo 
class="MathClass-punc">,</mo><mi 
>&#x03B8;</mi></mrow><mo 
class="MathClass-close">)</mo></mrow></math>.
For the ARMA(2, 1) model, the same was done with
<!--l. 569--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mi 
>&#x03D5;</mi></math> and
<!--l. 569--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><msub><mrow 
><mi 
>&#x03B8;</mi></mrow><mrow 
><mn>1</mn></mrow></msub 
></math>
instead. Finally, for the ARMA (2, 2) model, points
<!--l. 570--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mrow><mo 
class="MathClass-open">(</mo><mrow><mi 
>&#x03D5;</mi><mo 
class="MathClass-punc">,</mo><mi 
>&#x03B8;</mi></mrow><mo 
class="MathClass-close">)</mo></mrow></math>
satisfying the &#x0022;no common zeroes&#x0022; condition were taken in
<!--l. 571--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mrow><mo 
class="MathClass-open">{</mo><mrow><mrow><mo 
class="MathClass-open">(</mo><mrow><mo 
class="MathClass-bin">&#x2212;</mo><mn>1</mn><mo 
class="MathClass-punc">.</mo><mn>9</mn><mn>5</mn><mo 
class="MathClass-bin">+</mo><mn>0</mn><mo 
class="MathClass-punc">.</mo><mn>4</mn><mn>5</mn><mi 
>j</mi><mo 
class="MathClass-punc">,</mo><mo 
class="MathClass-bin">&#x2212;</mo><mn>0</mn><mo 
class="MathClass-punc">.</mo><mn>8</mn><mn>5</mn><mo 
class="MathClass-bin">+</mo><mn>0</mn><mo 
class="MathClass-punc">.</mo><mn>4</mn><mn>5</mn><mi 
>k</mi></mrow><mo 
class="MathClass-close">)</mo></mrow> <mo 
class="MathClass-rel">&#x2208;</mo><msub><mrow 
><mo 
class="MathClass-bin">&#x25B3;</mo></mrow><mrow 
><mi 
>&#x03D5;</mi></mrow></msub 
><mo 
class="MathClass-rel">&#x2223;</mo><mi 
>j</mi><mo 
class="MathClass-punc">,</mo><mi 
>k</mi> <mo 
class="MathClass-rel">&#x2265;</mo> <mn>0</mn></mrow><mo 
class="MathClass-close">}</mo></mrow><mo 
class="MathClass-bin">&#x222A;</mo><mrow><mo 
class="MathClass-open">{</mo><mrow><mo 
class="MathClass-bin">&#x2212;</mo><mrow><mo 
class="MathClass-open">(</mo><mrow><mo 
class="MathClass-bin">&#x2212;</mo><mn>1</mn><mo 
class="MathClass-punc">.</mo><mn>9</mn><mn>5</mn><mo 
class="MathClass-bin">+</mo><mn>0</mn><mo 
class="MathClass-punc">.</mo><mn>4</mn><mn>5</mn><mi 
>j</mi><mo 
class="MathClass-punc">,</mo><mo 
class="MathClass-bin">&#x2212;</mo><mn>0</mn><mo 
class="MathClass-punc">.</mo><mn>9</mn><mn>5</mn><mo 
class="MathClass-bin">+</mo><mn>0</mn><mo 
class="MathClass-punc">.</mo><mn>4</mn><mn>5</mn><mi 
>k</mi></mrow><mo 
class="MathClass-close">)</mo></mrow> <mo 
class="MathClass-rel">&#x2208;</mo><msub><mrow 
><mo 
class="MathClass-bin">&#x25BD;</mo></mrow><mrow 
><mi 
>&#x03B8;</mi></mrow></msub 
><mo 
class="MathClass-rel">&#x2223;</mo><mi 
>j</mi><mo 
class="MathClass-punc">,</mo><mi 
>k</mi> <mo 
class="MathClass-rel">&#x2265;</mo> <mn>0</mn></mrow><mo 
class="MathClass-close">}</mo></mrow></math>. This
yields 294 <!--l. 574--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mrow><mo 
class="MathClass-open">(</mo><mrow><mi 
>&#x03D5;</mi><mo 
class="MathClass-punc">,</mo><mi 
>&#x03B8;</mi></mrow><mo 
class="MathClass-close">)</mo></mrow></math>
parameter points. For each of these parameter points, 10000 samples of size
<!--l. 574--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mi 
>T</mi></math> were
generated as described above.
<br class="newline" />
</p><!--l. 576--><p class="indent">   To summarize the results, the following approach was
adopted. A 95% confidence interval for the true level when
<!--l. 577--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mi 
>&#x03B1;</mi> <mo 
class="MathClass-rel">=</mo> <mn>0</mn><mo 
class="MathClass-punc">.</mo><mn>1</mn><mn>0</mn></math> is (0.094, 0.106).
Similarly, for <!--l. 578--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mi 
>&#x03B1;</mi> <mo 
class="MathClass-rel">=</mo> <mn>0</mn><mo 
class="MathClass-punc">.</mo><mn>0</mn><mn>5</mn></math>,
95% of the <!--l. 579--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mi 
>p</mi></math>-values
are expected in the interval (0.046, 0.054). Thus the range of possible
<!--l. 580--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mi 
>p</mi></math>-values was divided in
5 sub-intervals. For <!--l. 580--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mi 
>&#x03B1;</mi> <mo 
class="MathClass-rel">=</mo> <mn>1</mn><mn>0</mn><mi 
>%</mi></math>,
these are <!--l. 581--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><msub><mrow 
><mi 
>I</mi></mrow><mrow 
><mn>1</mn></mrow></msub 
> <mo 
class="MathClass-rel">=</mo> <mrow><mo 
class="MathClass-open">(</mo><mrow><mn>0</mn><mo 
class="MathClass-punc">,</mo> <mn>0</mn><mo 
class="MathClass-punc">.</mo><mn>0</mn><mn>8</mn><mn>5</mn></mrow><mo 
class="MathClass-close">)</mo></mrow></math>,
<!--l. 581--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><msub><mrow 
><mi 
>I</mi></mrow><mrow 
><mn>2</mn></mrow></msub 
> <mo 
class="MathClass-rel">=</mo> <mrow><mo 
class="MathClass-open">[</mo><mrow><mn>0</mn><mo 
class="MathClass-punc">.</mo><mn>0</mn><mn>8</mn><mn>5</mn><mo 
class="MathClass-punc">,</mo> <mn>0</mn><mo 
class="MathClass-punc">.</mo><mn>0</mn><mn>9</mn><mn>4</mn></mrow><mo 
class="MathClass-close">)</mo></mrow></math>,
<!--l. 581--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><msub><mrow 
><mi 
>I</mi></mrow><mrow 
><mn>3</mn></mrow></msub 
> <mo 
class="MathClass-rel">=</mo> <mrow><mo 
class="MathClass-open">[</mo><mrow><mn>0</mn><mo 
class="MathClass-punc">.</mo><mn>0</mn><mn>9</mn><mn>4</mn><mo 
class="MathClass-punc">,</mo> <mn>0</mn><mo 
class="MathClass-punc">.</mo><mn>1</mn><mn>0</mn><mn>6</mn></mrow><mo 
class="MathClass-close">)</mo></mrow></math>,
<!--l. 582--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><msub><mrow 
><mi 
>I</mi></mrow><mrow 
><mn>4</mn></mrow></msub 
> <mo 
class="MathClass-rel">=</mo> <mrow><mo 
class="MathClass-open">[</mo><mrow><mn>0</mn><mo 
class="MathClass-punc">.</mo><mn>1</mn><mn>0</mn><mn>6</mn><mo 
class="MathClass-punc">,</mo> <mn>0</mn><mo 
class="MathClass-punc">.</mo><mn>1</mn><mn>1</mn><mn>5</mn></mrow><mo 
class="MathClass-close">)</mo></mrow></math> and
<!--l. 582--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><msub><mrow 
><mi 
>I</mi></mrow><mrow 
><mn>5</mn></mrow></msub 
> <mo 
class="MathClass-rel">=</mo> <mrow><mo 
class="MathClass-open">[</mo><mrow><mn>0</mn><mo 
class="MathClass-punc">.</mo><mn>1</mn><mn>1</mn><mn>5</mn><mo 
class="MathClass-punc">,</mo> <mn>1</mn></mrow><mo 
class="MathClass-close">]</mo></mrow></math>. For

<!--l. 582--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mi 
>&#x03B1;</mi> <mo 
class="MathClass-rel">=</mo> <mn>0</mn><mo 
class="MathClass-punc">.</mo><mn>0</mn><mn>5</mn></math>,
<!--l. 583--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><msub><mrow 
><mi 
>I</mi></mrow><mrow 
><mn>1</mn></mrow></msub 
> <mo 
class="MathClass-rel">=</mo> <mrow><mo 
class="MathClass-open">(</mo><mrow><mn>0</mn><mo 
class="MathClass-punc">,</mo> <mn>0</mn><mo 
class="MathClass-punc">.</mo><mn>0</mn><mn>3</mn><mn>5</mn></mrow><mo 
class="MathClass-close">)</mo></mrow></math>,
<!--l. 583--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><msub><mrow 
><mi 
>I</mi></mrow><mrow 
><mn>2</mn></mrow></msub 
> <mo 
class="MathClass-rel">=</mo> <mrow><mo 
class="MathClass-open">[</mo><mrow><mn>0</mn><mo 
class="MathClass-punc">.</mo><mn>0</mn><mn>3</mn><mn>5</mn><mo 
class="MathClass-punc">,</mo> <mn>0</mn><mo 
class="MathClass-punc">.</mo><mn>0</mn><mn>4</mn><mn>6</mn></mrow><mo 
class="MathClass-close">)</mo></mrow></math>,
<!--l. 583--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><msub><mrow 
><mi 
>I</mi></mrow><mrow 
><mn>3</mn></mrow></msub 
> <mo 
class="MathClass-rel">=</mo> <mrow><mo 
class="MathClass-open">[</mo><mrow><mn>0</mn><mo 
class="MathClass-punc">.</mo><mn>0</mn><mn>4</mn><mn>6</mn><mo 
class="MathClass-punc">,</mo> <mn>0</mn><mo 
class="MathClass-punc">.</mo><mn>0</mn><mn>5</mn><mn>4</mn></mrow><mo 
class="MathClass-close">)</mo></mrow></math>,
<!--l. 583--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><msub><mrow 
><mi 
>I</mi></mrow><mrow 
><mn>4</mn></mrow></msub 
> <mo 
class="MathClass-rel">=</mo> <mrow><mo 
class="MathClass-open">[</mo><mrow><mn>0</mn><mo 
class="MathClass-punc">.</mo><mn>0</mn><mn>5</mn><mn>4</mn><mo 
class="MathClass-punc">,</mo> <mn>0</mn><mo 
class="MathClass-punc">.</mo><mn>0</mn><mn>6</mn><mn>5</mn></mrow><mo 
class="MathClass-close">)</mo></mrow></math> and
<!--l. 584--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><msub><mrow 
><mi 
>I</mi></mrow><mrow 
><mn>5</mn></mrow></msub 
> <mo 
class="MathClass-rel">=</mo> <mrow><mo 
class="MathClass-open">[</mo><mrow><mn>0</mn><mo 
class="MathClass-punc">.</mo><mn>0</mn><mn>6</mn><mn>5</mn><mo 
class="MathClass-punc">,</mo> <mn>1</mn></mrow><mo 
class="MathClass-close">]</mo></mrow></math>. For each model, the
percentage of <!--l. 585--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mi 
>p</mi></math>-values
in each interval was recorded. Table 4.1 reports the results for statistics
<!--l. 586--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><msub><mrow 
><mi 
>R</mi></mrow><mrow 
><mn>3</mn></mrow></msub 
></math> and
<!--l. 586--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><msub><mrow 
><mi 
>R</mi></mrow><mrow 
><mover 
accent="true"><mrow 
><mi 
>K</mi></mrow><mo 
class="MathClass-op">&#x0302;</mo></mover></mrow></msub 
><mrow><mo 
class="MathClass-open">(</mo><mrow><mn>2</mn></mrow><mo 
class="MathClass-close">)</mo></mrow></math> which, as
discussed in Section 3, are representative of the two schools of thought for the choice of
<!--l. 588--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mi 
>K</mi></math>. The
results for the AR(2) and ARMA(2,1) models being similar to those of the MA(2) and
ARMA(1,2) respectively, are omitted for brevity (see Ducharme and Lafaye de
Micheaux (2002)(<a 
  name="dx1-11003"></a><a 
href="#X2002Duchaduch">8</a>) for more complete results).
<br class="newline" />

<a 
  name="x1-110041"></a>
</p>
   <hr class="float" /><div align="center" class="float" 
><table class="float"><tr class="float"><td class="float" 
>

 <div align="center" class="caption"><table class="caption" 
><tr valign="baseline" class="caption"><td class="id"><span 
class="eccc-1200">T<small 
class="small-caps">A</small><small 
class="small-caps">B</small>.</span>&#x00A0;4.1: </td><td  
class="content">Distribution (in % of the number of parameter points) of the empirical
<!--l. 599--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mi 
>p</mi></math>-values
(based      on      10000      replications)      for      the      tests      based      on
<!--l. 599--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><msub><mrow 
><mi 
>R</mi></mrow><mrow 
><mn>3</mn></mrow></msub 
></math>
and <!--l. 599--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><msub><mrow 
><mi 
>R</mi></mrow><mrow 
><mover 
accent="true"><mrow 
><mi 
>K</mi></mrow><mo 
class="MathClass-op">&#x0302;</mo></mover></mrow></msub 
><mrow><mo 
class="MathClass-open">(</mo><mrow><mn>2</mn></mrow><mo 
class="MathClass-close">)</mo></mrow></math>
among 5 sub-intervals.</td></tr></table></div><!--tex4ht:label?: x1-110041 -->

<div class="tabular"><table class="tabular" 
cellspacing="0pt" cellpadding="0" rules="groups" 
frame="border" id="TBL-13-" ><colgroup id="TBL-13-1g"><col 
id="TBL-13-1" /></colgroup><colgroup id="TBL-13-2g"><col 
id="TBL-13-2" /></colgroup><colgroup id="TBL-13-3g"><col 
id="TBL-13-3" /></colgroup><colgroup id="TBL-13-4g"><col 
id="TBL-13-4" /></colgroup><colgroup id="TBL-13-5g"><col 
id="TBL-13-5" /></colgroup><colgroup id="TBL-13-6g"><col 
id="TBL-13-6" /></colgroup><colgroup id="TBL-13-7g"><col 
id="TBL-13-7" /></colgroup><colgroup id="TBL-13-8g"><col 
id="TBL-13-8" /></colgroup><colgroup id="TBL-13-9g"><col 
id="TBL-13-9" /></colgroup><tr 
class="hline"><td><hr /></td><td><hr /></td><td><hr /></td><td><hr /></td><td><hr /></td><td><hr /></td><td><hr /></td><td><hr /></td><td><hr /></td></tr><tr  
 valign="baseline" id="TBL-13-1-"><td  align="center" nowrap="nowrap" id="TBL-13-1-1"  
class="td11"><!--l. 606--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><msub><mrow 
><mi 
>R</mi></mrow><mrow 
><mn>3</mn></mrow></msub 
></math></td><td  align="center" nowrap="nowrap" id="TBL-13-1-2"  
class="td11">     </td><td  align="center" nowrap="nowrap" id="TBL-13-1-3"  
class="td11">                                                                                                         </td><td colspan="5" align="center" nowrap="nowrap" id="TBL-13-1-4"  
class="td11">                                                                                                                                                                                                                                                                     <div class="multicolumn"  align="center" nowrap="nowrap">Observed level</div>                                                                                                                                                                                                 </td><td  align="center" nowrap="nowrap" id="TBL-13-1-9"  
class="td11">                                                      Min                                                      </td>
</tr><tr 
class="cline"><td><hr /></td><td><hr /></td><td><hr /></td><td><hr /></td><td><hr /></td><td><hr /></td><td><hr /></td><td><hr /></td><td></td></tr><tr  
 valign="baseline" id="TBL-13-2-"><td  align="center" nowrap="nowrap" id="TBL-13-2-1"  
class="td11">                                                 Model                                                 </td><td  align="center" nowrap="nowrap" id="TBL-13-2-2"  
class="td11"> T </td><td  align="center" nowrap="nowrap" id="TBL-13-2-3"  
class="td11"><!--l. 610--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mi 
>&#x03B1;</mi></math></td><td  align="center" nowrap="nowrap" id="TBL-13-2-4"  
class="td11"><!--l. 610--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><msub><mrow 
><mi 
>I</mi></mrow><mrow 
><mn>1</mn></mrow></msub 
></math></td><td  align="center" nowrap="nowrap" id="TBL-13-2-5"  
class="td11"><!--l. 610--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><msub><mrow 
><mi 
>I</mi></mrow><mrow 
><mn>2</mn></mrow></msub 
></math></td><td  align="center" nowrap="nowrap" id="TBL-13-2-6"  
class="td11"><!--l. 610--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><msub><mrow 
><mi 
>I</mi></mrow><mrow 
><mn>3</mn></mrow></msub 
></math></td><td  align="center" nowrap="nowrap" id="TBL-13-2-7"  
class="td11"><!--l. 610--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><msub><mrow 
><mi 
>I</mi></mrow><mrow 
><mn>4</mn></mrow></msub 
></math></td><td  align="center" nowrap="nowrap" id="TBL-13-2-8"  
class="td11"><!--l. 610--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><msub><mrow 
><mi 
>I</mi></mrow><mrow 
><mn>5</mn></mrow></msub 
></math></td><td  align="center" nowrap="nowrap" id="TBL-13-2-9"  
class="td11"><!--l. 610--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mi 
>p</mi></math>-level</td>
</tr><tr 
class="hline"><td><hr /></td><td><hr /></td><td><hr /></td><td><hr /></td><td><hr /></td><td><hr /></td><td><hr /></td><td><hr /></td><td><hr /></td></tr><tr 
class="hline"><td><hr /></td><td><hr /></td><td><hr /></td><td><hr /></td><td><hr /></td><td><hr /></td><td><hr /></td><td><hr /></td><td><hr /></td></tr><tr  
 valign="baseline" id="TBL-13-3-"><td  align="center" nowrap="nowrap" id="TBL-13-3-1"  
class="td11">                                                                                                         </td><td  align="center" nowrap="nowrap" id="TBL-13-3-2"  
class="td11"> 50 </td><td  align="center" nowrap="nowrap" id="TBL-13-3-3"  
class="td11">                                                   5%                                                   </td><td  align="center" nowrap="nowrap" id="TBL-13-3-4"  
class="td11">                                                  18.8                                                  </td><td  align="center" nowrap="nowrap" id="TBL-13-3-5"  
class="td11">                                                  68.8                                                  </td><td  align="center" nowrap="nowrap" id="TBL-13-3-6"  
class="td11">                                                  12.5                                                  </td><td  align="center" nowrap="nowrap" id="TBL-13-3-7"  
class="td11">                                                    0                                                    </td><td  align="center" nowrap="nowrap" id="TBL-13-3-8"  
class="td11">                                                    0                                                    </td><td  align="center" nowrap="nowrap" id="TBL-13-3-9"  
class="td11">                                                     2.76                                                     </td>
</tr><tr 
class="cline"><td></td><td><hr /></td><td><hr /></td><td></td><td></td><td></td><td></td><td></td><td></td></tr><tr  
 valign="baseline" id="TBL-13-4-"><td  align="center" nowrap="nowrap" id="TBL-13-4-1"  
class="td11">                                                                                                         </td><td  align="center" nowrap="nowrap" id="TBL-13-4-2"  
class="td11">100</td><td  align="center" nowrap="nowrap" id="TBL-13-4-3"  
class="td11">                                                   5%                                                   </td><td  align="center" nowrap="nowrap" id="TBL-13-4-4"  
class="td11">                                                   1.6                                                   </td><td  align="center" nowrap="nowrap" id="TBL-13-4-5"  
class="td11">                                                  50.0                                                  </td><td  align="center" nowrap="nowrap" id="TBL-13-4-6"  
class="td11">                                                  48.4                                                  </td><td  align="center" nowrap="nowrap" id="TBL-13-4-7"  
class="td11">                                                    0                                                    </td><td  align="center" nowrap="nowrap" id="TBL-13-4-8"  
class="td11">                                                    0                                                    </td><td  align="center" nowrap="nowrap" id="TBL-13-4-9"  
class="td11">                                                     3.41                                                     </td>
</tr><tr 
class="cline"><td></td><td><hr /></td><td><hr /></td><td></td><td></td><td></td><td></td><td></td><td></td></tr><tr  
 valign="baseline" id="TBL-13-5-"><td  align="center" nowrap="nowrap" id="TBL-13-5-1"  
class="td11">                                                MA(2)                                                </td><td  align="center" nowrap="nowrap" id="TBL-13-5-2"  
class="td11">200</td><td  align="center" nowrap="nowrap" id="TBL-13-5-3"  
class="td11">                                                   5%                                                   </td><td  align="center" nowrap="nowrap" id="TBL-13-5-4"  
class="td11">                                                    0                                                    </td><td  align="center" nowrap="nowrap" id="TBL-13-5-5"  
class="td11">                                                   9.4                                                   </td><td  align="center" nowrap="nowrap" id="TBL-13-5-6"  
class="td11">                                                  89.1                                                  </td><td  align="center" nowrap="nowrap" id="TBL-13-5-7"  
class="td11">                                                   1.6                                                   </td><td  align="center" nowrap="nowrap" id="TBL-13-5-8"  
class="td11">                                                    0                                                    </td><td  align="center" nowrap="nowrap" id="TBL-13-5-9"  
class="td11">                                                     4.04                                                     </td>
</tr><tr 
class="cline"><td></td><td><hr /></td><td><hr /></td><td></td><td></td><td></td><td></td><td></td><td></td></tr><tr  
 valign="baseline" id="TBL-13-6-"><td  align="center" nowrap="nowrap" id="TBL-13-6-1"  
class="td11">                                                                                                         </td><td  align="center" nowrap="nowrap" id="TBL-13-6-2"  
class="td11"> 50 </td><td  align="center" nowrap="nowrap" id="TBL-13-6-3"  
class="td11">                                                  10%                                                  </td><td  align="center" nowrap="nowrap" id="TBL-13-6-4"  
class="td11">                                                  23.4                                                  </td><td  align="center" nowrap="nowrap" id="TBL-13-6-5"  
class="td11">                                                  53.1                                                  </td><td  align="center" nowrap="nowrap" id="TBL-13-6-6"  
class="td11">                                                  23.4                                                  </td><td  align="center" nowrap="nowrap" id="TBL-13-6-7"  
class="td11">                                                    0                                                    </td><td  align="center" nowrap="nowrap" id="TBL-13-6-8"  
class="td11">                                                    0                                                    </td><td  align="center" nowrap="nowrap" id="TBL-13-6-9"  
class="td11">                                                     6.49                                                     </td>
</tr><tr 
class="cline"><td></td><td><hr /></td><td><hr /></td><td></td><td></td><td></td><td></td><td></td><td></td></tr><tr  
 valign="baseline" id="TBL-13-7-"><td  align="center" nowrap="nowrap" id="TBL-13-7-1"  
class="td11">                                              (64 points)                                              </td><td  align="center" nowrap="nowrap" id="TBL-13-7-2"  
class="td11">100</td><td  align="center" nowrap="nowrap" id="TBL-13-7-3"  
class="td11">                                                  10%                                                  </td><td  align="center" nowrap="nowrap" id="TBL-13-7-4"  
class="td11">                                                   6.3                                                   </td><td  align="center" nowrap="nowrap" id="TBL-13-7-5"  
class="td11">                                                  20.3                                                  </td><td  align="center" nowrap="nowrap" id="TBL-13-7-6"  
class="td11">                                                  73.4                                                  </td><td  align="center" nowrap="nowrap" id="TBL-13-7-7"  
class="td11">                                                    0                                                    </td><td  align="center" nowrap="nowrap" id="TBL-13-7-8"  
class="td11">                                                    0                                                    </td><td  align="center" nowrap="nowrap" id="TBL-13-7-9"  
class="td11">                                                     7.96                                                     </td>
</tr><tr 
class="cline"><td></td><td><hr /></td><td><hr /></td><td></td><td></td><td></td><td></td><td></td><td></td></tr><tr  
 valign="baseline" id="TBL-13-8-"><td  align="center" nowrap="nowrap" id="TBL-13-8-1"  
class="td11">                                                                                                         </td><td  align="center" nowrap="nowrap" id="TBL-13-8-2"  
class="td11">200</td><td  align="center" nowrap="nowrap" id="TBL-13-8-3"  
class="td11">                                                  10%                                                  </td><td  align="center" nowrap="nowrap" id="TBL-13-8-4"  
class="td11">                                                    0                                                    </td><td  align="center" nowrap="nowrap" id="TBL-13-8-5"  
class="td11">                                                   7.8                                                   </td><td  align="center" nowrap="nowrap" id="TBL-13-8-6"  
class="td11">                                                  90.6                                                  </td><td  align="center" nowrap="nowrap" id="TBL-13-8-7"  
class="td11">                                                   1.6                                                   </td><td  align="center" nowrap="nowrap" id="TBL-13-8-8"  
class="td11">                                                    0                                                    </td><td  align="center" nowrap="nowrap" id="TBL-13-8-9"  
class="td11">                                                     8.92                                                     </td>
</tr><tr 
class="hline"><td><hr /></td><td><hr /></td><td><hr /></td><td><hr /></td><td><hr /></td><td><hr /></td><td><hr /></td><td><hr /></td><td><hr /></td></tr><tr  
 valign="baseline" id="TBL-13-9-"><td  align="center" nowrap="nowrap" id="TBL-13-9-1"  
class="td11">                                                                                                         </td><td  align="center" nowrap="nowrap" id="TBL-13-9-2"  
class="td11"> 50 </td><td  align="center" nowrap="nowrap" id="TBL-13-9-3"  
class="td11">                                                   5%                                                   </td><td  align="center" nowrap="nowrap" id="TBL-13-9-4"  
class="td11">                                                  47.2                                                  </td><td  align="center" nowrap="nowrap" id="TBL-13-9-5"  
class="td11">                                                  46.4                                                  </td><td  align="center" nowrap="nowrap" id="TBL-13-9-6"  
class="td11">                                                   6.4                                                   </td><td  align="center" nowrap="nowrap" id="TBL-13-9-7"  
class="td11">                                                    0                                                    </td><td  align="center" nowrap="nowrap" id="TBL-13-9-8"  
class="td11">                                                    0                                                    </td><td  align="center" nowrap="nowrap" id="TBL-13-9-9"  
class="td11">                                                     2.43                                                     </td>
</tr><tr 
class="cline"><td></td><td><hr /></td><td><hr /></td><td></td><td></td><td></td><td></td><td></td><td></td></tr><tr  
 valign="baseline" id="TBL-13-10-"><td  align="center" nowrap="nowrap" id="TBL-13-10-1"  
class="td11">                                                                                                         </td><td  align="center" nowrap="nowrap" id="TBL-13-10-2"  
class="td11">100</td><td  align="center" nowrap="nowrap" id="TBL-13-10-3"  
class="td11">                                                   5%                                                   </td><td  align="center" nowrap="nowrap" id="TBL-13-10-4"  
class="td11">                                                   8.0                                                   </td><td  align="center" nowrap="nowrap" id="TBL-13-10-5"  
class="td11">                                                  71.6                                                  </td><td  align="center" nowrap="nowrap" id="TBL-13-10-6"  
class="td11">                                                  20.4                                                  </td><td  align="center" nowrap="nowrap" id="TBL-13-10-7"  
class="td11">                                                    0                                                    </td><td  align="center" nowrap="nowrap" id="TBL-13-10-8"  
class="td11">                                                    0                                                    </td><td  align="center" nowrap="nowrap" id="TBL-13-10-9"  
class="td11">                                                     2.98                                                     </td>
</tr><tr 
class="cline"><td></td><td><hr /></td><td><hr /></td><td></td><td></td><td></td><td></td><td></td><td></td></tr><tr  
 valign="baseline" id="TBL-13-11-"><td  align="center" nowrap="nowrap" id="TBL-13-11-1"  
class="td11">                                             ARMA(1,2)                                             </td><td  align="center" nowrap="nowrap" id="TBL-13-11-2"  
class="td11">200</td><td  align="center" nowrap="nowrap" id="TBL-13-11-3"  
class="td11">                                                   5%                                                   </td><td  align="center" nowrap="nowrap" id="TBL-13-11-4"  
class="td11">                                                   0.8                                                   </td><td  align="center" nowrap="nowrap" id="TBL-13-11-5"  
class="td11">                                                  32.4                                                  </td><td  align="center" nowrap="nowrap" id="TBL-13-11-6"  
class="td11">                                                  66.4                                                  </td><td  align="center" nowrap="nowrap" id="TBL-13-11-7"  
class="td11">                                                   0.4                                                   </td><td  align="center" nowrap="nowrap" id="TBL-13-11-8"  
class="td11">                                                    0                                                    </td><td  align="center" nowrap="nowrap" id="TBL-13-11-9"  
class="td11">                                                     3.32                                                     </td>
</tr><tr 
class="cline"><td></td><td><hr /></td><td><hr /></td><td></td><td></td><td></td><td></td><td></td><td></td></tr><tr  
 valign="baseline" id="TBL-13-12-"><td  align="center" nowrap="nowrap" id="TBL-13-12-1"  
class="td11">                                                                                                         </td><td  align="center" nowrap="nowrap" id="TBL-13-12-2"  
class="td11"> 50 </td><td  align="center" nowrap="nowrap" id="TBL-13-12-3"  
class="td11">                                                  10%                                                  </td><td  align="center" nowrap="nowrap" id="TBL-13-12-4"  
class="td11">                                                  65.6                                                  </td><td  align="center" nowrap="nowrap" id="TBL-13-12-5"  
class="td11">                                                  24.0                                                  </td><td  align="center" nowrap="nowrap" id="TBL-13-12-6"  
class="td11">                                                  10.4                                                  </td><td  align="center" nowrap="nowrap" id="TBL-13-12-7"  
class="td11">                                                    0                                                    </td><td  align="center" nowrap="nowrap" id="TBL-13-12-8"  
class="td11">                                                    0                                                    </td><td  align="center" nowrap="nowrap" id="TBL-13-12-9"  
class="td11">                                                     6.20                                                     </td>
</tr><tr 
class="cline"><td></td><td><hr /></td><td><hr /></td><td></td><td></td><td></td><td></td><td></td><td></td></tr><tr  
 valign="baseline" id="TBL-13-13-"><td  align="center" nowrap="nowrap" id="TBL-13-13-1"  
class="td11">                                             (250 points)                                             </td><td  align="center" nowrap="nowrap" id="TBL-13-13-2"  
class="td11">100</td><td  align="center" nowrap="nowrap" id="TBL-13-13-3"  
class="td11">                                                  10%                                                  </td><td  align="center" nowrap="nowrap" id="TBL-13-13-4"  
class="td11">                                                  21.6                                                  </td><td  align="center" nowrap="nowrap" id="TBL-13-13-5"  
class="td11">                                                  35.2                                                  </td><td  align="center" nowrap="nowrap" id="TBL-13-13-6"  
class="td11">                                                  42.8                                                  </td><td  align="center" nowrap="nowrap" id="TBL-13-13-7"  
class="td11">                                                   0.4                                                   </td><td  align="center" nowrap="nowrap" id="TBL-13-13-8"  
class="td11">                                                    0                                                    </td><td  align="center" nowrap="nowrap" id="TBL-13-13-9"  
class="td11">                                                     6.80                                                     </td>
</tr><tr 
class="cline"><td></td><td><hr /></td><td><hr /></td><td></td><td></td><td></td><td></td><td></td><td></td></tr><tr  
 valign="baseline" id="TBL-13-14-"><td  align="center" nowrap="nowrap" id="TBL-13-14-1"  
class="td11">                                                                                                         </td><td  align="center" nowrap="nowrap" id="TBL-13-14-2"  
class="td11">200</td><td  align="center" nowrap="nowrap" id="TBL-13-14-3"  
class="td11">                                                  10%                                                  </td><td  align="center" nowrap="nowrap" id="TBL-13-14-4"  
class="td11">                                                   4.0                                                   </td><td  align="center" nowrap="nowrap" id="TBL-13-14-5"  
class="td11">                                                  19.6                                                  </td><td  align="center" nowrap="nowrap" id="TBL-13-14-6"  
class="td11">                                                  75.6                                                  </td><td  align="center" nowrap="nowrap" id="TBL-13-14-7"  
class="td11">                                                   0.8                                                   </td><td  align="center" nowrap="nowrap" id="TBL-13-14-8"  
class="td11">                                                    0                                                    </td><td  align="center" nowrap="nowrap" id="TBL-13-14-9"  
class="td11">                                                     7.42                                                     </td>
</tr><tr 
class="hline"><td><hr /></td><td><hr /></td><td><hr /></td><td><hr /></td><td><hr /></td><td><hr /></td><td><hr /></td><td><hr /></td><td><hr /></td></tr><tr  
 valign="baseline" id="TBL-13-15-"><td  align="center" nowrap="nowrap" id="TBL-13-15-1"  
class="td11">                                                                                                         </td><td  align="center" nowrap="nowrap" id="TBL-13-15-2"  
class="td11"> 50 </td><td  align="center" nowrap="nowrap" id="TBL-13-15-3"  
class="td11">                                                   5%                                                   </td><td  align="center" nowrap="nowrap" id="TBL-13-15-4"  
class="td11">                                                  41.2                                                  </td><td  align="center" nowrap="nowrap" id="TBL-13-15-5"  
class="td11">                                                  57.1                                                  </td><td  align="center" nowrap="nowrap" id="TBL-13-15-6"  
class="td11">                                                   1.7                                                   </td><td  align="center" nowrap="nowrap" id="TBL-13-15-7"  
class="td11">                                                    0                                                    </td><td  align="center" nowrap="nowrap" id="TBL-13-15-8"  
class="td11">                                                    0                                                    </td><td  align="center" nowrap="nowrap" id="TBL-13-15-9"  
class="td11">                                                     2.56                                                     </td>
</tr><tr 
class="cline"><td></td><td><hr /></td><td><hr /></td><td></td><td></td><td></td><td></td><td></td><td></td></tr><tr  
 valign="baseline" id="TBL-13-16-"><td  align="center" nowrap="nowrap" id="TBL-13-16-1"  
class="td11">                                                                                                         </td><td  align="center" nowrap="nowrap" id="TBL-13-16-2"  
class="td11">100</td><td  align="center" nowrap="nowrap" id="TBL-13-16-3"  
class="td11">                                                   5%                                                   </td><td  align="center" nowrap="nowrap" id="TBL-13-16-4"  
class="td11">                                                   5.1                                                   </td><td  align="center" nowrap="nowrap" id="TBL-13-16-5"  
class="td11">                                                  74.1                                                  </td><td  align="center" nowrap="nowrap" id="TBL-13-16-6"  
class="td11">                                                  20.8                                                  </td><td  align="center" nowrap="nowrap" id="TBL-13-16-7"  
class="td11">                                                    0                                                    </td><td  align="center" nowrap="nowrap" id="TBL-13-16-8"  
class="td11">                                                    0                                                    </td><td  align="center" nowrap="nowrap" id="TBL-13-16-9"  
class="td11">                                                     3.09                                                     </td>
</tr><tr 
class="cline"><td></td><td><hr /></td><td><hr /></td><td></td><td></td><td></td><td></td><td></td><td></td></tr><tr  
 valign="baseline" id="TBL-13-17-"><td  align="center" nowrap="nowrap" id="TBL-13-17-1"  
class="td11">                                             ARMA(2,2)                                             </td><td  align="center" nowrap="nowrap" id="TBL-13-17-2"  
class="td11">200</td><td  align="center" nowrap="nowrap" id="TBL-13-17-3"  
class="td11">                                                   5%                                                   </td><td  align="center" nowrap="nowrap" id="TBL-13-17-4"  
class="td11">                                                   0.3                                                   </td><td  align="center" nowrap="nowrap" id="TBL-13-17-5"  
class="td11">                                                  27.9                                                  </td><td  align="center" nowrap="nowrap" id="TBL-13-17-6"  
class="td11">                                                  71.8                                                  </td><td  align="center" nowrap="nowrap" id="TBL-13-17-7"  
class="td11">                                                    0                                                    </td><td  align="center" nowrap="nowrap" id="TBL-13-17-8"  
class="td11">                                                    0                                                    </td><td  align="center" nowrap="nowrap" id="TBL-13-17-9"  
class="td11">                                                     3.47                                                     </td>
</tr><tr 
class="cline"><td></td><td><hr /></td><td><hr /></td><td></td><td></td><td></td><td></td><td></td><td></td></tr><tr  
 valign="baseline" id="TBL-13-18-"><td  align="center" nowrap="nowrap" id="TBL-13-18-1"  
class="td11">                                                                                                         </td><td  align="center" nowrap="nowrap" id="TBL-13-18-2"  
class="td11"> 50 </td><td  align="center" nowrap="nowrap" id="TBL-13-18-3"  
class="td11">                                                  10%                                                  </td><td  align="center" nowrap="nowrap" id="TBL-13-18-4"  
class="td11">                                                  57.8                                                  </td><td  align="center" nowrap="nowrap" id="TBL-13-18-5"  
class="td11">                                                  37.4                                                  </td><td  align="center" nowrap="nowrap" id="TBL-13-18-6"  
class="td11">                                                   4.8                                                   </td><td  align="center" nowrap="nowrap" id="TBL-13-18-7"  
class="td11">                                                    0                                                    </td><td  align="center" nowrap="nowrap" id="TBL-13-18-8"  
class="td11">                                                    0                                                    </td><td  align="center" nowrap="nowrap" id="TBL-13-18-9"  
class="td11">                                                     6.24                                                     </td>
</tr><tr 
class="cline"><td></td><td><hr /></td><td><hr /></td><td></td><td></td><td></td><td></td><td></td><td></td></tr><tr  
 valign="baseline" id="TBL-13-19-"><td  align="center" nowrap="nowrap" id="TBL-13-19-1"  
class="td11">                                             (294 points)                                             </td><td  align="center" nowrap="nowrap" id="TBL-13-19-2"  
class="td11">100</td><td  align="center" nowrap="nowrap" id="TBL-13-19-3"  
class="td11">                                                  10%                                                  </td><td  align="center" nowrap="nowrap" id="TBL-13-19-4"  
class="td11">                                                  21.1                                                  </td><td  align="center" nowrap="nowrap" id="TBL-13-19-5"  
class="td11">                                                  33.7                                                  </td><td  align="center" nowrap="nowrap" id="TBL-13-19-6"  
class="td11">                                                  45.2                                                  </td><td  align="center" nowrap="nowrap" id="TBL-13-19-7"  
class="td11">                                                    0                                                    </td><td  align="center" nowrap="nowrap" id="TBL-13-19-8"  
class="td11">                                                    0                                                    </td><td  align="center" nowrap="nowrap" id="TBL-13-19-9"  
class="td11">                                                     6.88                                                     </td>
</tr><tr 
class="cline"><td></td><td><hr /></td><td><hr /></td><td></td><td></td><td></td><td></td><td></td><td></td></tr><tr  
 valign="baseline" id="TBL-13-20-"><td  align="center" nowrap="nowrap" id="TBL-13-20-1"  
class="td11">                                                                                                         </td><td  align="center" nowrap="nowrap" id="TBL-13-20-2"  
class="td11">200</td><td  align="center" nowrap="nowrap" id="TBL-13-20-3"  
class="td11">                                                  10%                                                  </td><td  align="center" nowrap="nowrap" id="TBL-13-20-4"  
class="td11">                                                   3.1                                                   </td><td  align="center" nowrap="nowrap" id="TBL-13-20-5"  
class="td11">                                                  18.0                                                  </td><td  align="center" nowrap="nowrap" id="TBL-13-20-6"  
class="td11">                                                  78.6                                                  </td><td  align="center" nowrap="nowrap" id="TBL-13-20-7"  
class="td11">                                                   0.3                                                   </td><td  align="center" nowrap="nowrap" id="TBL-13-20-8"  
class="td11">                                                    0                                                    </td><td  align="center" nowrap="nowrap" id="TBL-13-20-9"  
class="td11">                                                     7.86                                                     </td>
</tr><tr 
class="hline"><td><hr /></td><td><hr /></td><td><hr /></td><td><hr /></td><td><hr /></td><td><hr /></td><td><hr /></td><td><hr /></td><td><hr /></td></tr><tr 
class="hline"><td><hr /></td><td><hr /></td><td><hr /></td><td><hr /></td><td><hr /></td><td><hr /></td><td><hr /></td><td><hr /></td><td><hr /></td></tr><tr  
 valign="baseline" id="TBL-13-21-"><td  align="center" nowrap="nowrap" id="TBL-13-21-1"  
class="td11"><!--l. 660--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><msub><mrow 
><mi 
>R</mi></mrow><mrow 
><mover 
accent="true"><mrow 
><mi 
>K</mi></mrow><mo 
class="MathClass-op">&#x0302;</mo></mover></mrow></msub 
><mrow><mo 
class="MathClass-open">(</mo><mrow><mn>2</mn></mrow><mo 
class="MathClass-close">)</mo></mrow></math></td><td  align="center" nowrap="nowrap" id="TBL-13-21-2"  
class="td11">     </td><td  align="center" nowrap="nowrap" id="TBL-13-21-3"  
class="td11">                                                                                                         </td><td colspan="5" align="center" nowrap="nowrap" id="TBL-13-21-4"  
class="td11">                                                                                                                                                                                                                                                                     <div class="multicolumn"  align="center" nowrap="nowrap">Observed level</div>                                                                                                                                                                                                 </td><td  align="center" nowrap="nowrap" id="TBL-13-21-9"  
class="td11">                                                      Min                                                      </td>
</tr><tr 
class="cline"><td><hr /></td><td><hr /></td><td><hr /></td><td><hr /></td><td><hr /></td><td><hr /></td><td><hr /></td><td><hr /></td><td></td></tr><tr  
 valign="baseline" id="TBL-13-22-"><td  align="center" nowrap="nowrap" id="TBL-13-22-1"  
class="td11">                                                 Model                                                 </td><td  align="center" nowrap="nowrap" id="TBL-13-22-2"  
class="td11"> T </td><td  align="center" nowrap="nowrap" id="TBL-13-22-3"  
class="td11"><!--l. 664--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mi 
>&#x03B1;</mi></math></td><td  align="center" nowrap="nowrap" id="TBL-13-22-4"  
class="td11"><!--l. 664--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><msub><mrow 
><mi 
>I</mi></mrow><mrow 
><mn>1</mn></mrow></msub 
></math></td><td  align="center" nowrap="nowrap" id="TBL-13-22-5"  
class="td11"><!--l. 664--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><msub><mrow 
><mi 
>I</mi></mrow><mrow 
><mn>2</mn></mrow></msub 
></math></td><td  align="center" nowrap="nowrap" id="TBL-13-22-6"  
class="td11"><!--l. 664--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><msub><mrow 
><mi 
>I</mi></mrow><mrow 
><mn>3</mn></mrow></msub 
></math></td><td  align="center" nowrap="nowrap" id="TBL-13-22-7"  
class="td11"><!--l. 664--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><msub><mrow 
><mi 
>I</mi></mrow><mrow 
><mn>4</mn></mrow></msub 
></math></td><td  align="center" nowrap="nowrap" id="TBL-13-22-8"  
class="td11"><!--l. 664--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><msub><mrow 
><mi 
>I</mi></mrow><mrow 
><mn>5</mn></mrow></msub 
></math></td><td  align="center" nowrap="nowrap" id="TBL-13-22-9"  
class="td11"><!--l. 664--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mi 
>p</mi></math>-level</td>
</tr><tr 
class="hline"><td><hr /></td><td><hr /></td><td><hr /></td><td><hr /></td><td><hr /></td><td><hr /></td><td><hr /></td><td><hr /></td><td><hr /></td></tr><tr 
class="hline"><td><hr /></td><td><hr /></td><td><hr /></td><td><hr /></td><td><hr /></td><td><hr /></td><td><hr /></td><td><hr /></td><td><hr /></td></tr><tr  
 valign="baseline" id="TBL-13-23-"><td  align="center" nowrap="nowrap" id="TBL-13-23-1"  
class="td11">                                                                                                         </td><td  align="center" nowrap="nowrap" id="TBL-13-23-2"  
class="td11"> 50 </td><td  align="center" nowrap="nowrap" id="TBL-13-23-3"  
class="td11">                                                   5%                                                   </td><td  align="center" nowrap="nowrap" id="TBL-13-23-4"  
class="td11">                                                    0                                                    </td><td  align="center" nowrap="nowrap" id="TBL-13-23-5"  
class="td11">                                                   9.4                                                   </td><td  align="center" nowrap="nowrap" id="TBL-13-23-6"  
class="td11">                                                  46.9                                                  </td><td  align="center" nowrap="nowrap" id="TBL-13-23-7"  
class="td11">                                                  43.7                                                  </td><td  align="center" nowrap="nowrap" id="TBL-13-23-8"  
class="td11">                                                    0                                                    </td><td  align="center" nowrap="nowrap" id="TBL-13-23-9"  
class="td11">                                                     4.12                                                     </td>
</tr><tr 
class="cline"><td></td><td><hr /></td><td><hr /></td><td></td><td></td><td></td><td></td><td></td><td></td></tr><tr  
 valign="baseline" id="TBL-13-24-"><td  align="center" nowrap="nowrap" id="TBL-13-24-1"  
class="td11">                                                                                                         </td><td  align="center" nowrap="nowrap" id="TBL-13-24-2"  
class="td11">100</td><td  align="center" nowrap="nowrap" id="TBL-13-24-3"  
class="td11">                                                   5%                                                   </td><td  align="center" nowrap="nowrap" id="TBL-13-24-4"  
class="td11">                                                    0                                                    </td><td  align="center" nowrap="nowrap" id="TBL-13-24-5"  
class="td11">                                                  14.1                                                  </td><td  align="center" nowrap="nowrap" id="TBL-13-24-6"  
class="td11">                                                  68.8                                                  </td><td  align="center" nowrap="nowrap" id="TBL-13-24-7"  
class="td11">                                                  17.2                                                  </td><td  align="center" nowrap="nowrap" id="TBL-13-24-8"  
class="td11">                                                    0                                                    </td><td  align="center" nowrap="nowrap" id="TBL-13-24-9"  
class="td11">                                                     4.17                                                     </td>
</tr><tr 
class="cline"><td></td><td><hr /></td><td><hr /></td><td></td><td></td><td></td><td></td><td></td><td></td></tr><tr  
 valign="baseline" id="TBL-13-25-"><td  align="center" nowrap="nowrap" id="TBL-13-25-1"  
class="td11">                                                MA(2)                                                </td><td  align="center" nowrap="nowrap" id="TBL-13-25-2"  
class="td11">200</td><td  align="center" nowrap="nowrap" id="TBL-13-25-3"  
class="td11">                                                   5%                                                   </td><td  align="center" nowrap="nowrap" id="TBL-13-25-4"  
class="td11">                                                    0                                                    </td><td  align="center" nowrap="nowrap" id="TBL-13-25-5"  
class="td11">                                                   7.8                                                   </td><td  align="center" nowrap="nowrap" id="TBL-13-25-6"  
class="td11">                                                  87.5                                                  </td><td  align="center" nowrap="nowrap" id="TBL-13-25-7"  
class="td11">                                                   4.7                                                   </td><td  align="center" nowrap="nowrap" id="TBL-13-25-8"  
class="td11">                                                    0                                                    </td><td  align="center" nowrap="nowrap" id="TBL-13-25-9"  
class="td11">                                                     4.23                                                     </td>
</tr><tr 
class="cline"><td></td><td><hr /></td><td><hr /></td><td></td><td></td><td></td><td></td><td></td><td></td></tr><tr  
 valign="baseline" id="TBL-13-26-"><td  align="center" nowrap="nowrap" id="TBL-13-26-1"  
class="td11">                                                                                                         </td><td  align="center" nowrap="nowrap" id="TBL-13-26-2"  
class="td11"> 50 </td><td  align="center" nowrap="nowrap" id="TBL-13-26-3"  
class="td11">                                                  10%                                                  </td><td  align="center" nowrap="nowrap" id="TBL-13-26-4"  
class="td11">                                                   6.3                                                   </td><td  align="center" nowrap="nowrap" id="TBL-13-26-5"  
class="td11">                                                  14.1                                                  </td><td  align="center" nowrap="nowrap" id="TBL-13-26-6"  
class="td11">                                                  62.5                                                  </td><td  align="center" nowrap="nowrap" id="TBL-13-26-7"  
class="td11">                                                  17.2                                                  </td><td  align="center" nowrap="nowrap" id="TBL-13-26-8"  
class="td11">                                                    0                                                    </td><td  align="center" nowrap="nowrap" id="TBL-13-26-9"  
class="td11">                                                     7.78                                                     </td>
</tr><tr 
class="cline"><td></td><td><hr /></td><td><hr /></td><td></td><td></td><td></td><td></td><td></td><td></td></tr><tr  
 valign="baseline" id="TBL-13-27-"><td  align="center" nowrap="nowrap" id="TBL-13-27-1"  
class="td11">                                              (64 points)                                              </td><td  align="center" nowrap="nowrap" id="TBL-13-27-2"  
class="td11">100</td><td  align="center" nowrap="nowrap" id="TBL-13-27-3"  
class="td11">                                                  10%                                                  </td><td  align="center" nowrap="nowrap" id="TBL-13-27-4"  
class="td11">                                                   6.3                                                   </td><td  align="center" nowrap="nowrap" id="TBL-13-27-5"  
class="td11">                                                   6.3                                                   </td><td  align="center" nowrap="nowrap" id="TBL-13-27-6"  
class="td11">                                                  81.3                                                  </td><td  align="center" nowrap="nowrap" id="TBL-13-27-7"  
class="td11">                                                   6.3                                                   </td><td  align="center" nowrap="nowrap" id="TBL-13-27-8"  
class="td11">                                                    0                                                    </td><td  align="center" nowrap="nowrap" id="TBL-13-27-9"  
class="td11">                                                     8.19                                                     </td>
</tr><tr 
class="cline"><td></td><td><hr /></td><td><hr /></td><td></td><td></td><td></td><td></td><td></td><td></td></tr><tr  
 valign="baseline" id="TBL-13-28-"><td  align="center" nowrap="nowrap" id="TBL-13-28-1"  
class="td11">                                                                                                         </td><td  align="center" nowrap="nowrap" id="TBL-13-28-2"  
class="td11">200</td><td  align="center" nowrap="nowrap" id="TBL-13-28-3"  
class="td11">                                                  10%                                                  </td><td  align="center" nowrap="nowrap" id="TBL-13-28-4"  
class="td11">                                                    0                                                    </td><td  align="center" nowrap="nowrap" id="TBL-13-28-5"  
class="td11">                                                   6.3                                                   </td><td  align="center" nowrap="nowrap" id="TBL-13-28-6"  
class="td11">                                                  89.1                                                  </td><td  align="center" nowrap="nowrap" id="TBL-13-28-7"  
class="td11">                                                   4.7                                                   </td><td  align="center" nowrap="nowrap" id="TBL-13-28-8"  
class="td11">                                                    0                                                    </td><td  align="center" nowrap="nowrap" id="TBL-13-28-9"  
class="td11">                                                     8.83                                                     </td>
</tr><tr 
class="hline"><td><hr /></td><td><hr /></td><td><hr /></td><td><hr /></td><td><hr /></td><td><hr /></td><td><hr /></td><td><hr /></td><td><hr /></td></tr><tr  
 valign="baseline" id="TBL-13-29-"><td  align="center" nowrap="nowrap" id="TBL-13-29-1"  
class="td11">                                                                                                         </td><td  align="center" nowrap="nowrap" id="TBL-13-29-2"  
class="td11"> 50 </td><td  align="center" nowrap="nowrap" id="TBL-13-29-3"  
class="td11">                                                   5%                                                   </td><td  align="center" nowrap="nowrap" id="TBL-13-29-4"  
class="td11">                                                    0                                                    </td><td  align="center" nowrap="nowrap" id="TBL-13-29-5"  
class="td11">                                                  38.8                                                  </td><td  align="center" nowrap="nowrap" id="TBL-13-29-6"  
class="td11">                                                  46.8                                                  </td><td  align="center" nowrap="nowrap" id="TBL-13-29-7"  
class="td11">                                                  14.4                                                  </td><td  align="center" nowrap="nowrap" id="TBL-13-29-8"  
class="td11">                                                    0                                                    </td><td  align="center" nowrap="nowrap" id="TBL-13-29-9"  
class="td11">                                                     3.53                                                     </td>
</tr><tr 
class="cline"><td></td><td><hr /></td><td><hr /></td><td></td><td></td><td></td><td></td><td></td><td></td></tr><tr  
 valign="baseline" id="TBL-13-30-"><td  align="center" nowrap="nowrap" id="TBL-13-30-1"  
class="td11">                                                                                                         </td><td  align="center" nowrap="nowrap" id="TBL-13-30-2"  
class="td11">100</td><td  align="center" nowrap="nowrap" id="TBL-13-30-3"  
class="td11">                                                   5%                                                   </td><td  align="center" nowrap="nowrap" id="TBL-13-30-4"  
class="td11">                                                    0                                                    </td><td  align="center" nowrap="nowrap" id="TBL-13-30-5"  
class="td11">                                                  34.8                                                  </td><td  align="center" nowrap="nowrap" id="TBL-13-30-6"  
class="td11">                                                  59.2                                                  </td><td  align="center" nowrap="nowrap" id="TBL-13-30-7"  
class="td11">                                                   6.0                                                   </td><td  align="center" nowrap="nowrap" id="TBL-13-30-8"  
class="td11">                                                    0                                                    </td><td  align="center" nowrap="nowrap" id="TBL-13-30-9"  
class="td11">                                                     3.74                                                     </td>
</tr><tr 
class="cline"><td></td><td><hr /></td><td><hr /></td><td></td><td></td><td></td><td></td><td></td><td></td></tr><tr  
 valign="baseline" id="TBL-13-31-"><td  align="center" nowrap="nowrap" id="TBL-13-31-1"  
class="td11">                                             ARMA(1,2)                                             </td><td  align="center" nowrap="nowrap" id="TBL-13-31-2"  
class="td11">200</td><td  align="center" nowrap="nowrap" id="TBL-13-31-3"  
class="td11">                                                   5%                                                   </td><td  align="center" nowrap="nowrap" id="TBL-13-31-4"  
class="td11">                                                    0                                                    </td><td  align="center" nowrap="nowrap" id="TBL-13-31-5"  
class="td11">                                                  23.2                                                  </td><td  align="center" nowrap="nowrap" id="TBL-13-31-6"  
class="td11">                                                  75.2                                                  </td><td  align="center" nowrap="nowrap" id="TBL-13-31-7"  
class="td11">                                                   1.6                                                   </td><td  align="center" nowrap="nowrap" id="TBL-13-31-8"  
class="td11">                                                    0                                                    </td><td  align="center" nowrap="nowrap" id="TBL-13-31-9"  
class="td11">                                                     3.80                                                     </td>
</tr><tr 
class="cline"><td></td><td><hr /></td><td><hr /></td><td></td><td></td><td></td><td></td><td></td><td></td></tr><tr  
 valign="baseline" id="TBL-13-32-"><td  align="center" nowrap="nowrap" id="TBL-13-32-1"  
class="td11">                                                                                                         </td><td  align="center" nowrap="nowrap" id="TBL-13-32-2"  
class="td11"> 50 </td><td  align="center" nowrap="nowrap" id="TBL-13-32-3"  
class="td11">                                                  10%                                                  </td><td  align="center" nowrap="nowrap" id="TBL-13-32-4"  
class="td11">                                                  24.8                                                  </td><td  align="center" nowrap="nowrap" id="TBL-13-32-5"  
class="td11">                                                  31.6                                                  </td><td  align="center" nowrap="nowrap" id="TBL-13-32-6"  
class="td11">                                                  35.2                                                  </td><td  align="center" nowrap="nowrap" id="TBL-13-32-7"  
class="td11">                                                   8.4                                                   </td><td  align="center" nowrap="nowrap" id="TBL-13-32-8"  
class="td11">                                                    0                                                    </td><td  align="center" nowrap="nowrap" id="TBL-13-32-9"  
class="td11">                                                     7.06                                                     </td>
</tr><tr 
class="cline"><td></td><td><hr /></td><td><hr /></td><td></td><td></td><td></td><td></td><td></td><td></td></tr><tr  
 valign="baseline" id="TBL-13-33-"><td  align="center" nowrap="nowrap" id="TBL-13-33-1"  
class="td11">                                             (250 points)                                             </td><td  align="center" nowrap="nowrap" id="TBL-13-33-2"  
class="td11">100</td><td  align="center" nowrap="nowrap" id="TBL-13-33-3"  
class="td11">                                                  10%                                                  </td><td  align="center" nowrap="nowrap" id="TBL-13-33-4"  
class="td11">                                                  13.2                                                  </td><td  align="center" nowrap="nowrap" id="TBL-13-33-5"  
class="td11">                                                  27.2                                                  </td><td  align="center" nowrap="nowrap" id="TBL-13-33-6"  
class="td11">                                                  57.6                                                  </td><td  align="center" nowrap="nowrap" id="TBL-13-33-7"  
class="td11">                                                   2.0                                                   </td><td  align="center" nowrap="nowrap" id="TBL-13-33-8"  
class="td11">                                                    0                                                    </td><td  align="center" nowrap="nowrap" id="TBL-13-33-9"  
class="td11">                                                     7.33                                                     </td>
</tr><tr 
class="cline"><td></td><td><hr /></td><td><hr /></td><td></td><td></td><td></td><td></td><td></td><td></td></tr><tr  
 valign="baseline" id="TBL-13-34-"><td  align="center" nowrap="nowrap" id="TBL-13-34-1"  
class="td11">                                                                                                         </td><td  align="center" nowrap="nowrap" id="TBL-13-34-2"  
class="td11">200</td><td  align="center" nowrap="nowrap" id="TBL-13-34-3"  
class="td11">                                                  10%                                                  </td><td  align="center" nowrap="nowrap" id="TBL-13-34-4"  
class="td11">                                                   4.4                                                   </td><td  align="center" nowrap="nowrap" id="TBL-13-34-5"  
class="td11">                                                  18.0                                                  </td><td  align="center" nowrap="nowrap" id="TBL-13-34-6"  
class="td11">                                                  76.0                                                  </td><td  align="center" nowrap="nowrap" id="TBL-13-34-7"  
class="td11">                                                   1.6                                                   </td><td  align="center" nowrap="nowrap" id="TBL-13-34-8"  
class="td11">                                                    0                                                    </td><td  align="center" nowrap="nowrap" id="TBL-13-34-9"  
class="td11">                                                     7.61                                                     </td>
</tr><tr 
class="hline"><td><hr /></td><td><hr /></td><td><hr /></td><td><hr /></td><td><hr /></td><td><hr /></td><td><hr /></td><td><hr /></td><td><hr /></td></tr><tr  
 valign="baseline" id="TBL-13-35-"><td  align="center" nowrap="nowrap" id="TBL-13-35-1"  
class="td11">                                                                                                         </td><td  align="center" nowrap="nowrap" id="TBL-13-35-2"  
class="td11"> 50 </td><td  align="center" nowrap="nowrap" id="TBL-13-35-3"  
class="td11">                                                   5%                                                   </td><td  align="center" nowrap="nowrap" id="TBL-13-35-4"  
class="td11">                                                    0                                                    </td><td  align="center" nowrap="nowrap" id="TBL-13-35-5"  
class="td11">                                                  32.0                                                  </td><td  align="center" nowrap="nowrap" id="TBL-13-35-6"  
class="td11">                                                  55.4                                                  </td><td  align="center" nowrap="nowrap" id="TBL-13-35-7"  
class="td11">                                                  12.6                                                  </td><td  align="center" nowrap="nowrap" id="TBL-13-35-8"  
class="td11">                                                    0                                                    </td><td  align="center" nowrap="nowrap" id="TBL-13-35-9"  
class="td11">                                                     3.65                                                     </td>
</tr><tr 
class="cline"><td></td><td><hr /></td><td><hr /></td><td></td><td></td><td></td><td></td><td></td><td></td></tr><tr  
 valign="baseline" id="TBL-13-36-"><td  align="center" nowrap="nowrap" id="TBL-13-36-1"  
class="td11">                                                                                                         </td><td  align="center" nowrap="nowrap" id="TBL-13-36-2"  
class="td11">100</td><td  align="center" nowrap="nowrap" id="TBL-13-36-3"  
class="td11">                                                   5%                                                   </td><td  align="center" nowrap="nowrap" id="TBL-13-36-4"  
class="td11">                                                    0                                                    </td><td  align="center" nowrap="nowrap" id="TBL-13-36-5"  
class="td11">                                                  31.0                                                  </td><td  align="center" nowrap="nowrap" id="TBL-13-36-6"  
class="td11">                                                  62.9                                                  </td><td  align="center" nowrap="nowrap" id="TBL-13-36-7"  
class="td11">                                                   6.1                                                   </td><td  align="center" nowrap="nowrap" id="TBL-13-36-8"  
class="td11">                                                    0                                                    </td><td  align="center" nowrap="nowrap" id="TBL-13-36-9"  
class="td11">                                                     3.75                                                     </td>
</tr><tr 
class="cline"><td></td><td><hr /></td><td><hr /></td><td></td><td></td><td></td><td></td><td></td><td></td></tr><tr  
 valign="baseline" id="TBL-13-37-"><td  align="center" nowrap="nowrap" id="TBL-13-37-1"  
class="td11">                                             ARMA(2,2)                                             </td><td  align="center" nowrap="nowrap" id="TBL-13-37-2"  
class="td11">200</td><td  align="center" nowrap="nowrap" id="TBL-13-37-3"  
class="td11">                                                   5%                                                   </td><td  align="center" nowrap="nowrap" id="TBL-13-37-4"  
class="td11">                                                    0                                                    </td><td  align="center" nowrap="nowrap" id="TBL-13-37-5"  
class="td11">                                                  23.8                                                  </td><td  align="center" nowrap="nowrap" id="TBL-13-37-6"  
class="td11">                                                  75.9                                                  </td><td  align="center" nowrap="nowrap" id="TBL-13-37-7"  
class="td11">                                                   0.3                                                   </td><td  align="center" nowrap="nowrap" id="TBL-13-37-8"  
class="td11">                                                    0                                                    </td><td  align="center" nowrap="nowrap" id="TBL-13-37-9"  
class="td11">                                                     3.89                                                     </td>
</tr><tr 
class="cline"><td></td><td><hr /></td><td><hr /></td><td></td><td></td><td></td><td></td><td></td><td></td></tr><tr  
 valign="baseline" id="TBL-13-38-"><td  align="center" nowrap="nowrap" id="TBL-13-38-1"  
class="td11">                                                                                                         </td><td  align="center" nowrap="nowrap" id="TBL-13-38-2"  
class="td11"> 50 </td><td  align="center" nowrap="nowrap" id="TBL-13-38-3"  
class="td11">                                                  10%                                                  </td><td  align="center" nowrap="nowrap" id="TBL-13-38-4"  
class="td11">                                                  21.4                                                  </td><td  align="center" nowrap="nowrap" id="TBL-13-38-5"  
class="td11">                                                  30.3                                                  </td><td  align="center" nowrap="nowrap" id="TBL-13-38-6"  
class="td11">                                                  47.0                                                  </td><td  align="center" nowrap="nowrap" id="TBL-13-38-7"  
class="td11">                                                   1.4                                                   </td><td  align="center" nowrap="nowrap" id="TBL-13-38-8"  
class="td11">                                                    0                                                    </td><td  align="center" nowrap="nowrap" id="TBL-13-38-9"  
class="td11">                                                     7.14                                                     </td>
</tr><tr 
class="cline"><td></td><td><hr /></td><td><hr /></td><td></td><td></td><td></td><td></td><td></td><td></td></tr><tr  
 valign="baseline" id="TBL-13-39-"><td  align="center" nowrap="nowrap" id="TBL-13-39-1"  
class="td11">                                             (294 points)                                             </td><td  align="center" nowrap="nowrap" id="TBL-13-39-2"  
class="td11">100</td><td  align="center" nowrap="nowrap" id="TBL-13-39-3"  
class="td11">                                                  10%                                                  </td><td  align="center" nowrap="nowrap" id="TBL-13-39-4"  
class="td11">                                                  11.2                                                  </td><td  align="center" nowrap="nowrap" id="TBL-13-39-5"  
class="td11">                                                  24.8                                                  </td><td  align="center" nowrap="nowrap" id="TBL-13-39-6"  
class="td11">                                                  62.6                                                  </td><td  align="center" nowrap="nowrap" id="TBL-13-39-7"  
class="td11">                                                   1.4                                                   </td><td  align="center" nowrap="nowrap" id="TBL-13-39-8"  
class="td11">                                                    0                                                    </td><td  align="center" nowrap="nowrap" id="TBL-13-39-9"  
class="td11">                                                     7.51                                                     </td>
</tr><tr 
class="cline"><td></td><td><hr /></td><td><hr /></td><td></td><td></td><td></td><td></td><td></td><td></td></tr><tr  
 valign="baseline" id="TBL-13-40-"><td  align="center" nowrap="nowrap" id="TBL-13-40-1"  
class="td11">                                                                                                         </td><td  align="center" nowrap="nowrap" id="TBL-13-40-2"  
class="td11">200</td><td  align="center" nowrap="nowrap" id="TBL-13-40-3"  
class="td11">                                                  10%                                                  </td><td  align="center" nowrap="nowrap" id="TBL-13-40-4"  
class="td11">                                                   2.7                                                   </td><td  align="center" nowrap="nowrap" id="TBL-13-40-5"  
class="td11">                                                  16.7                                                  </td><td  align="center" nowrap="nowrap" id="TBL-13-40-6"  
class="td11">                                                  80.6                                                  </td><td  align="center" nowrap="nowrap" id="TBL-13-40-7"  
class="td11">                                                    0                                                    </td><td  align="center" nowrap="nowrap" id="TBL-13-40-8"  
class="td11">                                                    0                                                    </td><td  align="center" nowrap="nowrap" id="TBL-13-40-9"  
class="td11">                                                     7.62                                                     </td>
</tr><tr 
class="hline"><td><hr /></td><td><hr /></td><td><hr /></td><td><hr /></td><td><hr /></td><td><hr /></td><td><hr /></td><td><hr /></td><td><hr /></td></tr><tr  
 valign="baseline" id="TBL-13-41-"><td  align="center" nowrap="nowrap" id="TBL-13-41-1"  
class="td11">                                                                                                         </td>
</tr><!--"|c|c|c|c|c|c|c|c|c|"--></table>
</div>

   </td></tr></table></div><hr class="endfloat" />
   The actual levels for <!--l. 719--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><msub><mrow 
><mi 
>R</mi></mrow><mrow 
><mn>3</mn></mrow></msub 
></math>
are concentrated on <!--l. 719--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><msub><mrow 
><mi 
>I</mi></mrow><mrow 
><mn>1</mn></mrow></msub 
></math>,
<!--l. 719--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><msub><mrow 
><mi 
>I</mi></mrow><mrow 
><mn>2</mn></mrow></msub 
></math> and
<!--l. 719--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><msub><mrow 
><mi 
>I</mi></mrow><mrow 
><mn>3</mn></mrow></msub 
></math>.
The mode of the distribution is generally located on
<!--l. 720--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><msub><mrow 
><mi 
>I</mi></mrow><mrow 
><mn>2</mn></mrow></msub 
></math> for
<!--l. 720--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mi 
>T</mi> <mo 
class="MathClass-rel">=</mo> <mn>5</mn><mn>0</mn></math> and is
shifted to <!--l. 720--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><msub><mrow 
><mi 
>I</mi></mrow><mrow 
><mn>3</mn></mrow></msub 
></math>
as <!--l. 721--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mi 
>T</mi></math>
increases. This lead, at worst, to slightly conservative tests. To
appreciate this, the last column of Table 4.1 gives the smallest
<!--l. 723--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mi 
>p</mi></math>-value recorded over the
parameter points. For <!--l. 724--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><msub><mrow 
><mi 
>R</mi></mrow><mrow 
><mover 
accent="true"><mrow 
><mi 
>K</mi></mrow><mo 
class="MathClass-op">&#x0302;</mo></mover></mrow></msub 
><mrow><mo 
class="MathClass-open">(</mo><mrow><mn>2</mn></mrow><mo 
class="MathClass-close">)</mo></mrow></math>, the
distribution is concentrated on <!--l. 725--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><msub><mrow 
><mi 
>I</mi></mrow><mrow 
><mn>2</mn></mrow></msub 
></math>,
<!--l. 725--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><msub><mrow 
><mi 
>I</mi></mrow><mrow 
><mn>3</mn></mrow></msub 
></math> and
<!--l. 725--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><msub><mrow 
><mi 
>I</mi></mrow><mrow 
><mn>4</mn></mrow></msub 
></math> with, in all cases, a mode
centered on <!--l. 726--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><msub><mrow 
><mi 
>I</mi></mrow><mrow 
><mn>3</mn></mrow></msub 
></math>. For this
statistic, the minimal <!--l. 726--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mi 
>p</mi></math>-values
are also closer to the nominal level (no maximal
<!--l. 727--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mi 
>p</mi></math>-value was very far from
the upper bound of <!--l. 728--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><msub><mrow 
><mi 
>I</mi></mrow><mrow 
><mn>4</mn></mrow></msub 
></math>).
Thus correction (<a 
href="#x1-9008r2">2<!--tex4ht:ref: equation3.2 --></a>) works nicely, at least for the cases considered here.
<br class="newline" />
<!--l. 731--><p class="indent">   We also investigated what areas of the parameter space give
<!--l. 732--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mi 
>p</mi></math>-values
in <!--l. 732--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><msub><mrow 
><mi 
>I</mi></mrow><mrow 
><mn>1</mn></mrow></msub 
></math>.
Intuitively, one expects these points to be near the boundary.
However, the pattern that emerges, which is very similar for both
<!--l. 734--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><msub><mrow 
><mi 
>R</mi></mrow><mrow 
><mn>3</mn></mrow></msub 
></math>, and
<!--l. 735--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><msub><mrow 
><mi 
>R</mi></mrow><mrow 
><mover 
accent="true"><mrow 
><mi 
>K</mi></mrow><mo 
class="MathClass-op">&#x0302;</mo></mover></mrow></msub 
><mrow><mo 
class="MathClass-open">(</mo><mrow><mn>2</mn></mrow><mo 
class="MathClass-close">)</mo></mrow></math>, is
more precise. For AR(2) models, these points correspond mainly to positive
<!--l. 736--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mrow><mo 
class="MathClass-open">(</mo><mrow><msub><mrow 
><mi 
>&#x03D5;</mi></mrow><mrow 
><mn>1</mn></mrow></msub 
><mo 
class="MathClass-punc">,</mo><msub><mrow 
><mi 
>&#x03D5;</mi></mrow><mrow 
><mn>2</mn></mrow></msub 
></mrow><mo 
class="MathClass-close">)</mo></mrow></math> close to the right boundary
of <!--l. 737--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><msub><mrow 
><mo 
class="MathClass-bin">&#x25B3;</mo></mrow><mrow 
><mi 
>&#x03D5;</mi></mrow></msub 
></math> and, to a lesser degree,
to those with positive <!--l. 738--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><msub><mrow 
><mi 
>&#x03D5;</mi></mrow><mrow 
><mn>1</mn></mrow></msub 
></math>
and negative <!--l. 738--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><msub><mrow 
><mi 
>&#x03D5;</mi></mrow><mrow 
><mn>2</mn></mrow></msub 
></math> but
again close to that boundary. For MA(2) models, the situation is reversed, which is not surprising since
<!--l. 740--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><msub><mrow 
><mo 
class="MathClass-bin">&#x25BD;</mo></mrow><mrow 
><mi 
>&#x03B8;</mi></mrow></msub 
> <mo 
class="MathClass-rel">=</mo> <mo 
class="MathClass-bin">&#x2212;</mo><msub><mrow 
><mo 
class="MathClass-bin">&#x25B3;</mo></mrow><mrow 
><mi 
>&#x03D5;</mi></mrow></msub 
></math>. For ARMA(2, 1), the
points giving small <!--l. 742--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mi 
>p</mi></math>-values
correspond to positive <!--l. 742--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mrow><mo 
class="MathClass-open">(</mo><mrow><msub><mrow 
><mi 
>&#x03D5;</mi></mrow><mrow 
><mn>1</mn></mrow></msub 
><mo 
class="MathClass-punc">,</mo><msub><mrow 
><mi 
>&#x03D5;</mi></mrow><mrow 
><mn>2</mn></mrow></msub 
></mrow><mo 
class="MathClass-close">)</mo></mrow></math>
combined with values of <!--l. 743--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><msub><mrow 
><mi 
>&#x03B8;</mi></mrow><mrow 
><mn>1</mn></mrow></msub 
></math>
close to -1. Again, for ARMA(1, 2) the situation is reversed and small

<!--l. 744--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mi 
>p</mi></math>-values are associated
with negative values of <!--l. 745--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mrow><mo 
class="MathClass-open">(</mo><mrow><msub><mrow 
><mi 
>&#x03B8;</mi></mrow><mrow 
><mn>1</mn></mrow></msub 
><mo 
class="MathClass-punc">,</mo><msub><mrow 
><mi 
>&#x03B8;</mi></mrow><mrow 
><mn>2</mn></mrow></msub 
></mrow><mo 
class="MathClass-close">)</mo></mrow></math>
with a value of <!--l. 745--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><msub><mrow 
><mi 
>&#x03D5;</mi></mrow><mrow 
><mn>1</mn></mrow></msub 
></math>
close to 1. Finally, for the ARMA(2, 2), the points that yield
<!--l. 747--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mi 
>p</mi></math>-values in
<!--l. 747--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><msub><mrow 
><mi 
>I</mi></mrow><mrow 
><mn>1</mn></mrow></msub 
></math> are mainly those
with positive <!--l. 747--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mrow><mo 
class="MathClass-open">(</mo><mrow><msub><mrow 
><mi 
>&#x03D5;</mi></mrow><mrow 
><mn>1</mn></mrow></msub 
><mo 
class="MathClass-punc">,</mo><msub><mrow 
><mi 
>&#x03D5;</mi></mrow><mrow 
><mn>2</mn></mrow></msub 
></mrow><mo 
class="MathClass-close">)</mo></mrow></math>
and negative <!--l. 748--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mrow><mo 
class="MathClass-open">(</mo><mrow><msub><mrow 
><mi 
>&#x03B8;</mi></mrow><mrow 
><mn>1</mn></mrow></msub 
><mo 
class="MathClass-punc">,</mo><msub><mrow 
><mi 
>&#x03B8;</mi></mrow><mrow 
><mn>2</mn></mrow></msub 
></mrow><mo 
class="MathClass-close">)</mo></mrow></math>.
<br class="newline" />
</p><!--l. 750--><p class="indent">   We have also investigated the behavior under
<!--l. 750--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><msub><mrow 
><mi 
>H</mi></mrow><mrow 
><mn>0</mn></mrow></msub 
></math>
of some other tests that have been recommended in the time
series literature for (<a 
href="#x1-7003r2">2<!--tex4ht:ref: equation1.2 --></a>). We first considered the Anderson-Darling
(<!--l. 752--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mi 
>A</mi><mi 
>D</mi></math>) test
(Pierce (1985)(<a 
  name="dx1-11005"></a><a 
href="#X1985Pierc552duch">30</a>)) for case 2 (known mean) used in conjunction with the quantiles
given in D&#x2019;Agostino and Stephens (1986)(<a 
  name="dx1-11006"></a><a 
href="#X1986Dagosduch">7</a>) p. 122. Our simulations show that, for
large <!--l. 754--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mi 
>T</mi></math>
this yields valid critical levels. We also studied a variant of the
Shapiro-Wilk test known as the Weisberg and Bingham (1975)(<a 
  name="dx1-11007"></a><a 
href="#X1975Weisb133duch">35</a>)
(<!--l. 756--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mi 
>W</mi><mi 
>B</mi></math>) test.
To adapt this test to our context where the mean is known, the denominator
of equation (9.68) of D&#x2019;Agostino and Stephens (1986)(<a 
  name="dx1-11008"></a><a 
href="#X1986Dagosduch">7</a>) was replaced by
<!--l. 759--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mi 
>T</mi><msup><mrow 
><mover 
accent="true"><mrow 
><mi 
>&#x03C3;</mi></mrow><mo 
class="MathClass-op">&#x0302;</mo></mover></mrow><mrow 
><mn>2</mn></mrow></msup 
></math> , where
<!--l. 759--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><msup><mrow 
><mover 
accent="true"><mrow 
><mi 
>&#x03C3;</mi></mrow><mo 
class="MathClass-op">&#x0302;</mo></mover></mrow><mrow 
><mn>2</mn></mrow></msup 
></math> is the
estimate of <!--l. 760--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><msup><mrow 
><mi 
>&#x03C3;</mi></mrow><mrow 
><mn>2</mn></mrow></msup 
></math>
returned by subroutine G13DCF. Up to the numerical accuracy of procedure G13DCF,
this corresponds to the sum of squares of the residuals. Our simulations show
that the quantiles for this test can be approximated by Monte Carlo using
<!--l. 763--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mi 
>i</mi><mo 
class="MathClass-punc">.</mo><mi 
>i</mi><mo 
class="MathClass-punc">.</mo><mi 
>d</mi><mo 
class="MathClass-punc">.</mo></math> data,
although we found no theoretical result supporting this. Thus, we simulated 100000
samples from an ARMA(0,0) model and computed the empirical quantiles. For
<!--l. 765--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mi 
>T</mi></math> = 50, 100 and
200, we got, for <!--l. 766--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mi 
>&#x03B1;</mi> <mo 
class="MathClass-rel">=</mo> <mn>1</mn><mn>0</mn><mi 
>%</mi></math>,
0.920, 0.958 and 0.978. For 5%, we found 0.899, 0.947 and
0.973. A third approach, the Jarqueand Bera (1987)(<a 
  name="dx1-11009"></a><a 
href="#X1987Jarqu163duch">19</a>) eq. (5)
(<!--l. 768--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mi 
>J</mi><mi 
>B</mi></math>) test
was also investigated. Although developed in the linear regression context, this test has
been recommended in the time series literature (see Cromwell et al. (1994)(<a 
  name="dx1-11010"></a><a 
href="#X1994Cromwduch">6</a>)<span class="frenchb-thinspace"> </span>; Frances
(1998)(<a 
  name="dx1-11011"></a><a 
href="#X1998Francduch">10</a>)). A summary of the results for these tests in the ARMA(1, 2) model is
given in Table 4.2. Also appearing in this table are the levels of the test based on
<!--l. 774--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><msub><mrow 
><mi 
>R</mi></mrow><mrow 
><mover 
accent="true"><mrow 
><mi 
>K</mi></mrow><mo 
class="MathClass-op">&#x0302;</mo></mover></mrow></msub 
><mrow><mo 
class="MathClass-open">(</mo><mrow><mn>1</mn></mrow><mo 
class="MathClass-close">)</mo></mrow></math> using
quantiles derived from (refequation3.2).
<br class="newline" />

</p><!--l. 776--><p class="indent">   Overall, the best tests, according to the criterion of maintaining the proper level throughout the
parameter space, are <!--l. 778--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><msub><mrow 
><mi 
>R</mi></mrow><mrow 
><mover 
accent="true"><mrow 
><mi 
>K</mi></mrow><mo 
class="MathClass-op">&#x0302;</mo></mover></mrow></msub 
><mrow><mo 
class="MathClass-open">(</mo><mrow><mn>2</mn></mrow><mo 
class="MathClass-close">)</mo></mrow></math>
followed by <!--l. 778--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><msub><mrow 
><mi 
>R</mi></mrow><mrow 
><mover 
accent="true"><mrow 
><mi 
>K</mi></mrow><mo 
class="MathClass-op">&#x0302;</mo></mover></mrow></msub 
><mrow><mo 
class="MathClass-open">(</mo><mrow><mn>1</mn></mrow><mo 
class="MathClass-close">)</mo></mrow></math>
and then <!--l. 779--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><msub><mrow 
><mi 
>R</mi></mrow><mrow 
><mn>3</mn></mrow></msub 
></math>,
<!--l. 779--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mi 
>A</mi><mi 
>D</mi></math> and
<!--l. 779--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mi 
>W</mi><mi 
>B</mi></math>. In general, the AD test
yields distributions of <!--l. 780--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mi 
>p</mi></math>-values
in between those of <!--l. 781--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><msub><mrow 
><mi 
>R</mi></mrow><mrow 
><mn>3</mn></mrow></msub 
></math>
and <!--l. 781--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><msub><mrow 
><mi 
>R</mi></mrow><mrow 
><mover 
accent="true"><mrow 
><mi 
>K</mi></mrow><mo 
class="MathClass-op">&#x0302;</mo></mover></mrow></msub 
><mrow><mo 
class="MathClass-open">(</mo><mrow><mn>1</mn></mrow><mo 
class="MathClass-close">)</mo></mrow></math>.
More troublesome is the fact that this test, as well as the
<!--l. 782--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mi 
>W</mi><mi 
>B</mi></math> test,
may vastly underestimate the intended level, as can be seen by the minimal
<!--l. 783--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mi 
>p</mi></math>-values (last
column of Table 4.2) encountered on the grids. Also, there appears to be a problem with the
<!--l. 785--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mi 
>J</mi><mi 
>B</mi></math> test as the quantiles,
obtained from the <!--l. 786--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><msubsup><mrow 
><mi 
>&#x03C7;</mi></mrow><mrow 
><mn>2</mn></mrow><mrow 
><mn>2</mn></mrow></msubsup 
></math>
approximation, lead to gross error. Further simulations indicate that the convergence to the
<!--l. 787--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><msubsup><mrow 
><mi 
>&#x03C7;</mi></mrow><mrow 
><mn>2</mn></mrow><mrow 
><mn>2</mn></mrow></msubsup 
></math> is very
slow. The <!--l. 788--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mi 
>J</mi><mi 
>B</mi></math>
statistic is a version of the Bowman and Shenton test statistic that, for
<!--l. 789--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mi 
>i</mi><mo 
class="MathClass-punc">.</mo><mi 
>i</mi><mo 
class="MathClass-punc">.</mo><mi 
>d</mi><mo 
class="MathClass-punc">.</mo></math> data,
has a notoriously slow convergence. The simulation results in Lutkepohl and Schneider
(1989)(<a 
  name="dx1-11012"></a><a 
href="#X1989Lutke151duch">26</a>) tend to show that this is also the case for AR(1) and AR(2) models.
In view of this problem, we choose to drop from further investigations the
<!--l. 793--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mi 
>J</mi><mi 
>B</mi></math>
test.
<br class="newline" />

<a 
  name="x1-110132"></a>
</p>
   <hr class="float" /><div align="center" class="float" 
><table class="float"><tr class="float"><td class="float" 
>

 <div align="center" class="caption"><table class="caption" 
><tr valign="baseline" class="caption"><td class="id"><span 
class="eccc-1200">T<small 
class="small-caps">A</small><small 
class="small-caps">B</small>.</span>&#x00A0;4.2: </td><td  
class="content">Distribution (in % of the number of parameter points) of the empirical
<!--l. 802--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mi 
>p</mi></math>-values
(based  on  10000  replications)  of  various  tests  for  the  ARMA(1,2)  model.
<!--l. 802--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mi 
>A</mi><mi 
>D</mi></math>=Anderson-Darling,
<!--l. 802--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mi 
>W</mi><mi 
>B</mi></math>=Weisberg-Bingham,
<!--l. 802--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mi 
>J</mi><mi 
>B</mi></math>=Jarque-Bera
and <!--l. 802--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><msub><mrow 
><mi 
>R</mi></mrow><mrow 
><mover 
accent="true"><mrow 
><mi 
>K</mi></mrow><mo 
class="MathClass-op">&#x0302;</mo></mover></mrow></msub 
><mrow><mo 
class="MathClass-open">(</mo><mrow><mn>1</mn></mrow><mo 
class="MathClass-close">)</mo></mrow> <mo 
class="MathClass-rel">=</mo> <msub><mrow 
><mi 
>R</mi></mrow><mrow 
><mover 
accent="true"><mrow 
><mi 
>K</mi></mrow><mo 
class="MathClass-op">&#x0302;</mo></mover></mrow></msub 
></math>
with <!--l. 802--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mi 
>d</mi> <mo 
class="MathClass-rel">=</mo> <mn>1</mn></math>.</td></tr></table></div><!--tex4ht:label?: x1-110132 -->
<div class="tabular"><table class="tabular" 
cellspacing="0pt" cellpadding="0" rules="groups" 
frame="border" id="TBL-14-" ><colgroup id="TBL-14-1g"><col 
id="TBL-14-1" /></colgroup><colgroup id="TBL-14-2g"><col 
id="TBL-14-2" /></colgroup><colgroup id="TBL-14-3g"><col 
id="TBL-14-3" /></colgroup><colgroup id="TBL-14-4g"><col 
id="TBL-14-4" /></colgroup><colgroup id="TBL-14-5g"><col 
id="TBL-14-5" /></colgroup><colgroup id="TBL-14-6g"><col 
id="TBL-14-6" /></colgroup><colgroup id="TBL-14-7g"><col 
id="TBL-14-7" /></colgroup><colgroup id="TBL-14-8g"><col 
id="TBL-14-8" /></colgroup><colgroup id="TBL-14-9g"><col 
id="TBL-14-9" /></colgroup><tr 
class="hline"><td><hr /></td><td><hr /></td><td><hr /></td><td><hr /></td><td><hr /></td><td><hr /></td><td><hr /></td><td><hr /></td><td><hr /></td></tr><tr  
 valign="baseline" id="TBL-14-1-"><td  align="center" nowrap="nowrap" id="TBL-14-1-1"  
class="td11">                                                  Test                                                  </td><td  align="center" nowrap="nowrap" id="TBL-14-1-2"  
class="td11">     </td><td  align="center" nowrap="nowrap" id="TBL-14-1-3"  
class="td11">                                                                                                         </td><td colspan="5" align="center" nowrap="nowrap" id="TBL-14-1-4"  
class="td11">                                                                                                                                                                                                                                                                     <div class="multicolumn"  align="center" nowrap="nowrap">Observed level</div>                                                                                                                                                                                                 </td><td  align="center" nowrap="nowrap" id="TBL-14-1-9"  
class="td11">                                                      Min                                                      </td>
</tr><tr 
class="cline"><td><hr /></td><td><hr /></td><td><hr /></td><td><hr /></td><td><hr /></td><td><hr /></td><td><hr /></td><td><hr /></td><td></td></tr><tr  
 valign="baseline" id="TBL-14-2-"><td  align="center" nowrap="nowrap" id="TBL-14-2-1"  
class="td11">                                                 Model                                                 </td><td  align="center" nowrap="nowrap" id="TBL-14-2-2"  
class="td11"> T </td><td  align="center" nowrap="nowrap" id="TBL-14-2-3"  
class="td11"><!--l. 812--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mi 
>&#x03B1;</mi></math></td><td  align="center" nowrap="nowrap" id="TBL-14-2-4"  
class="td11"><!--l. 812--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><msub><mrow 
><mi 
>I</mi></mrow><mrow 
><mn>1</mn></mrow></msub 
></math></td><td  align="center" nowrap="nowrap" id="TBL-14-2-5"  
class="td11"><!--l. 812--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><msub><mrow 
><mi 
>I</mi></mrow><mrow 
><mn>2</mn></mrow></msub 
></math></td><td  align="center" nowrap="nowrap" id="TBL-14-2-6"  
class="td11"><!--l. 812--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><msub><mrow 
><mi 
>I</mi></mrow><mrow 
><mn>3</mn></mrow></msub 
></math></td><td  align="center" nowrap="nowrap" id="TBL-14-2-7"  
class="td11"><!--l. 812--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><msub><mrow 
><mi 
>I</mi></mrow><mrow 
><mn>4</mn></mrow></msub 
></math></td><td  align="center" nowrap="nowrap" id="TBL-14-2-8"  
class="td11"><!--l. 812--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><msub><mrow 
><mi 
>I</mi></mrow><mrow 
><mn>5</mn></mrow></msub 
></math></td><td  align="center" nowrap="nowrap" id="TBL-14-2-9"  
class="td11"><!--l. 812--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mi 
>p</mi></math>-level</td>
</tr><tr 
class="hline"><td><hr /></td><td><hr /></td><td><hr /></td><td><hr /></td><td><hr /></td><td><hr /></td><td><hr /></td><td><hr /></td><td><hr /></td></tr><tr 
class="hline"><td><hr /></td><td><hr /></td><td><hr /></td><td><hr /></td><td><hr /></td><td><hr /></td><td><hr /></td><td><hr /></td><td><hr /></td></tr><tr  
 valign="baseline" id="TBL-14-3-"><td  align="center" nowrap="nowrap" id="TBL-14-3-1"  
class="td11">                                                                                                         </td><td  align="center" nowrap="nowrap" id="TBL-14-3-2"  
class="td11"> 50 </td><td  align="center" nowrap="nowrap" id="TBL-14-3-3"  
class="td11">                                                   5%                                                   </td><td  align="center" nowrap="nowrap" id="TBL-14-3-4"  
class="td11">                                                  43.8                                                  </td><td  align="center" nowrap="nowrap" id="TBL-14-3-5"  
class="td11">                                                  24.4                                                  </td><td  align="center" nowrap="nowrap" id="TBL-14-3-6"  
class="td11">                                                  20.0                                                  </td><td  align="center" nowrap="nowrap" id="TBL-14-3-7"  
class="td11">                                                   6.8                                                   </td><td  align="center" nowrap="nowrap" id="TBL-14-3-8"  
class="td11">                                                    0                                                    </td><td  align="center" nowrap="nowrap" id="TBL-14-3-9"  
class="td11">                                                     0.54                                                     </td>
</tr><tr 
class="cline"><td></td><td><hr /></td><td><hr /></td><td></td><td></td><td></td><td></td><td></td><td></td></tr><tr  
 valign="baseline" id="TBL-14-4-"><td  align="center" nowrap="nowrap" id="TBL-14-4-1"  
class="td11">                                                                                                         </td><td  align="center" nowrap="nowrap" id="TBL-14-4-2"  
class="td11">100</td><td  align="center" nowrap="nowrap" id="TBL-14-4-3"  
class="td11">                                                   5%                                                   </td><td  align="center" nowrap="nowrap" id="TBL-14-4-4"  
class="td11">                                                  32.0                                                  </td><td  align="center" nowrap="nowrap" id="TBL-14-4-5"  
class="td11">                                                  34.8                                                  </td><td  align="center" nowrap="nowrap" id="TBL-14-4-6"  
class="td11">                                                  33.2                                                  </td><td  align="center" nowrap="nowrap" id="TBL-14-4-7"  
class="td11">                                                    0                                                    </td><td  align="center" nowrap="nowrap" id="TBL-14-4-8"  
class="td11">                                                    0                                                    </td><td  align="center" nowrap="nowrap" id="TBL-14-4-9"  
class="td11">                                                     0.92                                                     </td>
</tr><tr 
class="cline"><td></td><td><hr /></td><td><hr /></td><td></td><td></td><td></td><td></td><td></td><td></td></tr><tr  
 valign="baseline" id="TBL-14-5-"><td  align="center" nowrap="nowrap" id="TBL-14-5-1"  
class="td11"><!--l. 821--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mi 
>A</mi><mi 
>D</mi></math></td><td  align="center" nowrap="nowrap" id="TBL-14-5-2"  
class="td11">200</td><td  align="center" nowrap="nowrap" id="TBL-14-5-3"  
class="td11">                                                   5%                                                   </td><td  align="center" nowrap="nowrap" id="TBL-14-5-4"  
class="td11">                                                  11.6                                                  </td><td  align="center" nowrap="nowrap" id="TBL-14-5-5"  
class="td11">                                                  38.0                                                  </td><td  align="center" nowrap="nowrap" id="TBL-14-5-6"  
class="td11">                                                  49.6                                                  </td><td  align="center" nowrap="nowrap" id="TBL-14-5-7"  
class="td11">                                                   0.8                                                   </td><td  align="center" nowrap="nowrap" id="TBL-14-5-8"  
class="td11">                                                    0                                                    </td><td  align="center" nowrap="nowrap" id="TBL-14-5-9"  
class="td11">                                                     1.50                                                     </td>
</tr><tr 
class="cline"><td></td><td><hr /></td><td><hr /></td><td></td><td></td><td></td><td></td><td></td><td></td></tr><tr  
 valign="baseline" id="TBL-14-6-"><td  align="center" nowrap="nowrap" id="TBL-14-6-1"  
class="td11">                                                                                                         </td><td  align="center" nowrap="nowrap" id="TBL-14-6-2"  
class="td11"> 50 </td><td  align="center" nowrap="nowrap" id="TBL-14-6-3"  
class="td11">                                                  10%                                                  </td><td  align="center" nowrap="nowrap" id="TBL-14-6-4"  
class="td11">                                                  41.2                                                  </td><td  align="center" nowrap="nowrap" id="TBL-14-6-5"  
class="td11">                                                  16.0                                                  </td><td  align="center" nowrap="nowrap" id="TBL-14-6-6"  
class="td11">                                                  22.8                                                  </td><td  align="center" nowrap="nowrap" id="TBL-14-6-7"  
class="td11">                                                  18.4                                                  </td><td  align="center" nowrap="nowrap" id="TBL-14-6-8"  
class="td11">                                                   1.6                                                   </td><td  align="center" nowrap="nowrap" id="TBL-14-6-9"  
class="td11">                                                     3.38                                                     </td>
</tr><tr 
class="cline"><td></td><td><hr /></td><td><hr /></td><td></td><td></td><td></td><td></td><td></td><td></td></tr><tr  
 valign="baseline" id="TBL-14-7-"><td  align="center" nowrap="nowrap" id="TBL-14-7-1"  
class="td11">                                                                                                         </td><td  align="center" nowrap="nowrap" id="TBL-14-7-2"  
class="td11">100</td><td  align="center" nowrap="nowrap" id="TBL-14-7-3"  
class="td11">                                                  10%                                                  </td><td  align="center" nowrap="nowrap" id="TBL-14-7-4"  
class="td11">                                                  23.2                                                  </td><td  align="center" nowrap="nowrap" id="TBL-14-7-5"  
class="td11">                                                  24.4                                                  </td><td  align="center" nowrap="nowrap" id="TBL-14-7-6"  
class="td11">                                                  48.0                                                  </td><td  align="center" nowrap="nowrap" id="TBL-14-7-7"  
class="td11">                                                   3.6                                                   </td><td  align="center" nowrap="nowrap" id="TBL-14-7-8"  
class="td11">                                                   0.8                                                   </td><td  align="center" nowrap="nowrap" id="TBL-14-7-9"  
class="td11">                                                     3.93                                                     </td>
</tr><tr 
class="cline"><td></td><td><hr /></td><td><hr /></td><td></td><td></td><td></td><td></td><td></td><td></td></tr><tr  
 valign="baseline" id="TBL-14-8-"><td  align="center" nowrap="nowrap" id="TBL-14-8-1"  
class="td11">                                                                                                         </td><td  align="center" nowrap="nowrap" id="TBL-14-8-2"  
class="td11">200</td><td  align="center" nowrap="nowrap" id="TBL-14-8-3"  
class="td11">                                                  10%                                                  </td><td  align="center" nowrap="nowrap" id="TBL-14-8-4"  
class="td11">                                                   9.6                                                   </td><td  align="center" nowrap="nowrap" id="TBL-14-8-5"  
class="td11">                                                  13.2                                                  </td><td  align="center" nowrap="nowrap" id="TBL-14-8-6"  
class="td11">                                                  70.0                                                  </td><td  align="center" nowrap="nowrap" id="TBL-14-8-7"  
class="td11">                                                   6.8                                                   </td><td  align="center" nowrap="nowrap" id="TBL-14-8-8"  
class="td11">                                                   0.4                                                   </td><td  align="center" nowrap="nowrap" id="TBL-14-8-9"  
class="td11">                                                     4.65                                                     </td>
</tr><tr 
class="hline"><td><hr /></td><td><hr /></td><td><hr /></td><td><hr /></td><td><hr /></td><td><hr /></td><td><hr /></td><td><hr /></td><td><hr /></td></tr><tr  
 valign="baseline" id="TBL-14-9-"><td  align="center" nowrap="nowrap" id="TBL-14-9-1"  
class="td11">                                                                                                         </td><td  align="center" nowrap="nowrap" id="TBL-14-9-2"  
class="td11"> 50 </td><td  align="center" nowrap="nowrap" id="TBL-14-9-3"  
class="td11">                                                   5%                                                   </td><td  align="center" nowrap="nowrap" id="TBL-14-9-4"  
class="td11">                                                  61.2                                                  </td><td  align="center" nowrap="nowrap" id="TBL-14-9-5"  
class="td11">                                                  23.6                                                  </td><td  align="center" nowrap="nowrap" id="TBL-14-9-6"  
class="td11">                                                  15.2                                                  </td><td  align="center" nowrap="nowrap" id="TBL-14-9-7"  
class="td11">                                                    0                                                    </td><td  align="center" nowrap="nowrap" id="TBL-14-9-8"  
class="td11">                                                    0                                                    </td><td  align="center" nowrap="nowrap" id="TBL-14-9-9"  
class="td11">                                                     0.57                                                     </td>
</tr><tr 
class="cline"><td></td><td><hr /></td><td><hr /></td><td></td><td></td><td></td><td></td><td></td><td></td></tr><tr  
 valign="baseline" id="TBL-14-10-"><td  align="center" nowrap="nowrap" id="TBL-14-10-1"  
class="td11">                                                                                                         </td><td  align="center" nowrap="nowrap" id="TBL-14-10-2"  
class="td11">100</td><td  align="center" nowrap="nowrap" id="TBL-14-10-3"  
class="td11">                                                   5%                                                   </td><td  align="center" nowrap="nowrap" id="TBL-14-10-4"  
class="td11">                                                  39.2                                                  </td><td  align="center" nowrap="nowrap" id="TBL-14-10-5"  
class="td11">                                                  46.0                                                  </td><td  align="center" nowrap="nowrap" id="TBL-14-10-6"  
class="td11">                                                  14.4                                                  </td><td  align="center" nowrap="nowrap" id="TBL-14-10-7"  
class="td11">                                                   0.4                                                   </td><td  align="center" nowrap="nowrap" id="TBL-14-10-8"  
class="td11">                                                    0                                                    </td><td  align="center" nowrap="nowrap" id="TBL-14-10-9"  
class="td11">                                                     0.93                                                     </td>
</tr><tr 
class="cline"><td></td><td><hr /></td><td><hr /></td><td></td><td></td><td></td><td></td><td></td><td></td></tr><tr  
 valign="baseline" id="TBL-14-11-"><td  align="center" nowrap="nowrap" id="TBL-14-11-1"  
class="td11"><!--l. 834--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mi 
>W</mi><mi 
>B</mi></math></td><td  align="center" nowrap="nowrap" id="TBL-14-11-2"  
class="td11">200</td><td  align="center" nowrap="nowrap" id="TBL-14-11-3"  
class="td11">                                                   5%                                                   </td><td  align="center" nowrap="nowrap" id="TBL-14-11-4"  
class="td11">                                                  10.8                                                  </td><td  align="center" nowrap="nowrap" id="TBL-14-11-5"  
class="td11">                                                  30.4                                                  </td><td  align="center" nowrap="nowrap" id="TBL-14-11-6"  
class="td11">                                                  56.0                                                  </td><td  align="center" nowrap="nowrap" id="TBL-14-11-7"  
class="td11">                                                   2.8                                                   </td><td  align="center" nowrap="nowrap" id="TBL-14-11-8"  
class="td11">                                                    0                                                    </td><td  align="center" nowrap="nowrap" id="TBL-14-11-9"  
class="td11">                                                     1.60                                                     </td>
</tr><tr 
class="cline"><td></td><td><hr /></td><td><hr /></td><td></td><td></td><td></td><td></td><td></td><td></td></tr><tr  
 valign="baseline" id="TBL-14-12-"><td  align="center" nowrap="nowrap" id="TBL-14-12-1"  
class="td11">                                                                                                         </td><td  align="center" nowrap="nowrap" id="TBL-14-12-2"  
class="td11"> 50 </td><td  align="center" nowrap="nowrap" id="TBL-14-12-3"  
class="td11">                                                  10%                                                  </td><td  align="center" nowrap="nowrap" id="TBL-14-12-4"  
class="td11">                                                  56.8                                                  </td><td  align="center" nowrap="nowrap" id="TBL-14-12-5"  
class="td11">                                                  16.4                                                  </td><td  align="center" nowrap="nowrap" id="TBL-14-12-6"  
class="td11">                                                  25.6                                                  </td><td  align="center" nowrap="nowrap" id="TBL-14-12-7"  
class="td11">                                                   1.2                                                   </td><td  align="center" nowrap="nowrap" id="TBL-14-12-8"  
class="td11">                                                    0                                                    </td><td  align="center" nowrap="nowrap" id="TBL-14-12-9"  
class="td11">                                                     2.96                                                     </td>
</tr><tr 
class="cline"><td></td><td><hr /></td><td><hr /></td><td></td><td></td><td></td><td></td><td></td><td></td></tr><tr  
 valign="baseline" id="TBL-14-13-"><td  align="center" nowrap="nowrap" id="TBL-14-13-1"  
class="td11">                                                                                                         </td><td  align="center" nowrap="nowrap" id="TBL-14-13-2"  
class="td11">100</td><td  align="center" nowrap="nowrap" id="TBL-14-13-3"  
class="td11">                                                  10%                                                  </td><td  align="center" nowrap="nowrap" id="TBL-14-13-4"  
class="td11">                                                  37.2                                                  </td><td  align="center" nowrap="nowrap" id="TBL-14-13-5"  
class="td11">                                                  47.2                                                  </td><td  align="center" nowrap="nowrap" id="TBL-14-13-6"  
class="td11">                                                  15.6                                                  </td><td  align="center" nowrap="nowrap" id="TBL-14-13-7"  
class="td11">                                                    0                                                    </td><td  align="center" nowrap="nowrap" id="TBL-14-13-8"  
class="td11">                                                    0                                                    </td><td  align="center" nowrap="nowrap" id="TBL-14-13-9"  
class="td11">                                                     3.55                                                     </td>
</tr><tr 
class="cline"><td></td><td><hr /></td><td><hr /></td><td></td><td></td><td></td><td></td><td></td><td></td></tr><tr  
 valign="baseline" id="TBL-14-14-"><td  align="center" nowrap="nowrap" id="TBL-14-14-1"  
class="td11">                                                                                                         </td><td  align="center" nowrap="nowrap" id="TBL-14-14-2"  
class="td11">200</td><td  align="center" nowrap="nowrap" id="TBL-14-14-3"  
class="td11">                                                  10%                                                  </td><td  align="center" nowrap="nowrap" id="TBL-14-14-4"  
class="td11">                                                  15.6                                                  </td><td  align="center" nowrap="nowrap" id="TBL-14-14-5"  
class="td11">                                                  36.0                                                  </td><td  align="center" nowrap="nowrap" id="TBL-14-14-6"  
class="td11">                                                  46.0                                                  </td><td  align="center" nowrap="nowrap" id="TBL-14-14-7"  
class="td11">                                                   2.4                                                   </td><td  align="center" nowrap="nowrap" id="TBL-14-14-8"  
class="td11">                                                    0                                                    </td><td  align="center" nowrap="nowrap" id="TBL-14-14-9"  
class="td11">                                                     4.71                                                     </td>
</tr><tr 
class="hline"><td><hr /></td><td><hr /></td><td><hr /></td><td><hr /></td><td><hr /></td><td><hr /></td><td><hr /></td><td><hr /></td><td><hr /></td></tr><tr  
 valign="baseline" id="TBL-14-15-"><td  align="center" nowrap="nowrap" id="TBL-14-15-1"  
class="td11">                                                                                                         </td><td  align="center" nowrap="nowrap" id="TBL-14-15-2"  
class="td11"> 50 </td><td  align="center" nowrap="nowrap" id="TBL-14-15-3"  
class="td11">                                                   5%                                                   </td><td  align="center" nowrap="nowrap" id="TBL-14-15-4"  
class="td11">                                                  71.2                                                  </td><td  align="center" nowrap="nowrap" id="TBL-14-15-5"  
class="td11">                                                  28.8                                                  </td><td  align="center" nowrap="nowrap" id="TBL-14-15-6"  
class="td11">                                                    0                                                    </td><td  align="center" nowrap="nowrap" id="TBL-14-15-7"  
class="td11">                                                    0                                                    </td><td  align="center" nowrap="nowrap" id="TBL-14-15-8"  
class="td11">                                                    0                                                    </td><td  align="center" nowrap="nowrap" id="TBL-14-15-9"  
class="td11">                                                     3.13                                                     </td>
</tr><tr 
class="cline"><td></td><td><hr /></td><td><hr /></td><td></td><td></td><td></td><td></td><td></td><td></td></tr><tr  
 valign="baseline" id="TBL-14-16-"><td  align="center" nowrap="nowrap" id="TBL-14-16-1"  
class="td11">                                                                                                         </td><td  align="center" nowrap="nowrap" id="TBL-14-16-2"  
class="td11">100</td><td  align="center" nowrap="nowrap" id="TBL-14-16-3"  
class="td11">                                                   5%                                                   </td><td  align="center" nowrap="nowrap" id="TBL-14-16-4"  
class="td11">                                                   0.4                                                   </td><td  align="center" nowrap="nowrap" id="TBL-14-16-5"  
class="td11">                                                  99.2                                                  </td><td  align="center" nowrap="nowrap" id="TBL-14-16-6"  
class="td11">                                                   0.4                                                   </td><td  align="center" nowrap="nowrap" id="TBL-14-16-7"  
class="td11">                                                    0                                                    </td><td  align="center" nowrap="nowrap" id="TBL-14-16-8"  
class="td11">                                                    0                                                    </td><td  align="center" nowrap="nowrap" id="TBL-14-16-9"  
class="td11">                                                     3.13                                                     </td>
</tr><tr 
class="cline"><td></td><td><hr /></td><td><hr /></td><td></td><td></td><td></td><td></td><td></td><td></td></tr><tr  
 valign="baseline" id="TBL-14-17-"><td  align="center" nowrap="nowrap" id="TBL-14-17-1"  
class="td11"><!--l. 847--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mi 
>J</mi><mi 
>B</mi></math></td><td  align="center" nowrap="nowrap" id="TBL-14-17-2"  
class="td11">200</td><td  align="center" nowrap="nowrap" id="TBL-14-17-3"  
class="td11">                                                   5%                                                   </td><td  align="center" nowrap="nowrap" id="TBL-14-17-4"  
class="td11">                                                    0                                                    </td><td  align="center" nowrap="nowrap" id="TBL-14-17-5"  
class="td11">                                                  85.2                                                  </td><td  align="center" nowrap="nowrap" id="TBL-14-17-6"  
class="td11">                                                  14.4                                                  </td><td  align="center" nowrap="nowrap" id="TBL-14-17-7"  
class="td11">                                                   0.4                                                   </td><td  align="center" nowrap="nowrap" id="TBL-14-17-8"  
class="td11">                                                    0                                                    </td><td  align="center" nowrap="nowrap" id="TBL-14-17-9"  
class="td11">                                                     4.18                                                     </td>
</tr><tr 
class="cline"><td></td><td><hr /></td><td><hr /></td><td></td><td></td><td></td><td></td><td></td><td></td></tr><tr  
 valign="baseline" id="TBL-14-18-"><td  align="center" nowrap="nowrap" id="TBL-14-18-1"  
class="td11">                                                                                                         </td><td  align="center" nowrap="nowrap" id="TBL-14-18-2"  
class="td11"> 50 </td><td  align="center" nowrap="nowrap" id="TBL-14-18-3"  
class="td11">                                                  10%                                                  </td><td  align="center" nowrap="nowrap" id="TBL-14-18-4"  
class="td11">                                                  100                                                  </td><td  align="center" nowrap="nowrap" id="TBL-14-18-5"  
class="td11">                                                    0                                                    </td><td  align="center" nowrap="nowrap" id="TBL-14-18-6"  
class="td11">                                                    0                                                    </td><td  align="center" nowrap="nowrap" id="TBL-14-18-7"  
class="td11">                                                    0                                                    </td><td  align="center" nowrap="nowrap" id="TBL-14-18-8"  
class="td11">                                                    0                                                    </td><td  align="center" nowrap="nowrap" id="TBL-14-18-9"  
class="td11">                                                     4.96                                                     </td>
</tr><tr 
class="cline"><td></td><td><hr /></td><td><hr /></td><td></td><td></td><td></td><td></td><td></td><td></td></tr><tr  
 valign="baseline" id="TBL-14-19-"><td  align="center" nowrap="nowrap" id="TBL-14-19-1"  
class="td11">                                                                                                         </td><td  align="center" nowrap="nowrap" id="TBL-14-19-2"  
class="td11">100</td><td  align="center" nowrap="nowrap" id="TBL-14-19-3"  
class="td11">                                                  10%                                                  </td><td  align="center" nowrap="nowrap" id="TBL-14-19-4"  
class="td11">                                                  100                                                  </td><td  align="center" nowrap="nowrap" id="TBL-14-19-5"  
class="td11">                                                    0                                                    </td><td  align="center" nowrap="nowrap" id="TBL-14-19-6"  
class="td11">                                                    0                                                    </td><td  align="center" nowrap="nowrap" id="TBL-14-19-7"  
class="td11">                                                    0                                                    </td><td  align="center" nowrap="nowrap" id="TBL-14-19-8"  
class="td11">                                                    0                                                    </td><td  align="center" nowrap="nowrap" id="TBL-14-19-9"  
class="td11">                                                     5.88                                                     </td>
</tr><tr 
class="cline"><td></td><td><hr /></td><td><hr /></td><td></td><td></td><td></td><td></td><td></td><td></td></tr><tr  
 valign="baseline" id="TBL-14-20-"><td  align="center" nowrap="nowrap" id="TBL-14-20-1"  
class="td11">                                                                                                         </td><td  align="center" nowrap="nowrap" id="TBL-14-20-2"  
class="td11">200</td><td  align="center" nowrap="nowrap" id="TBL-14-20-3"  
class="td11">                                                  10%                                                  </td><td  align="center" nowrap="nowrap" id="TBL-14-20-4"  
class="td11">                                                  98.8                                                  </td><td  align="center" nowrap="nowrap" id="TBL-14-20-5"  
class="td11">                                                   1.2                                                   </td><td  align="center" nowrap="nowrap" id="TBL-14-20-6"  
class="td11">                                                    0                                                    </td><td  align="center" nowrap="nowrap" id="TBL-14-20-7"  
class="td11">                                                    0                                                    </td><td  align="center" nowrap="nowrap" id="TBL-14-20-8"  
class="td11">                                                    0                                                    </td><td  align="center" nowrap="nowrap" id="TBL-14-20-9"  
class="td11">                                                     7.23                                                     </td>
</tr><tr 
class="hline"><td><hr /></td><td><hr /></td><td><hr /></td><td><hr /></td><td><hr /></td><td><hr /></td><td><hr /></td><td><hr /></td><td><hr /></td></tr><tr  
 valign="baseline" id="TBL-14-21-"><td  align="center" nowrap="nowrap" id="TBL-14-21-1"  
class="td11">                                                                                                         </td><td  align="center" nowrap="nowrap" id="TBL-14-21-2"  
class="td11"> 50 </td><td  align="center" nowrap="nowrap" id="TBL-14-21-3"  
class="td11">                                                   5%                                                   </td><td  align="center" nowrap="nowrap" id="TBL-14-21-4"  
class="td11">                                                    0                                                    </td><td  align="center" nowrap="nowrap" id="TBL-14-21-5"  
class="td11">                                                  58.0                                                  </td><td  align="center" nowrap="nowrap" id="TBL-14-21-6"  
class="td11">                                                  27.6                                                  </td><td  align="center" nowrap="nowrap" id="TBL-14-21-7"  
class="td11">                                                  14.4                                                  </td><td  align="center" nowrap="nowrap" id="TBL-14-21-8"  
class="td11">                                                    0                                                    </td><td  align="center" nowrap="nowrap" id="TBL-14-21-9"  
class="td11">                                                     3.52                                                     </td>
</tr><tr 
class="cline"><td></td><td><hr /></td><td><hr /></td><td></td><td></td><td></td><td></td><td></td><td></td></tr><tr  
 valign="baseline" id="TBL-14-22-"><td  align="center" nowrap="nowrap" id="TBL-14-22-1"  
class="td11">                                                                                                         </td><td  align="center" nowrap="nowrap" id="TBL-14-22-2"  
class="td11">100</td><td  align="center" nowrap="nowrap" id="TBL-14-22-3"  
class="td11">                                                   5%                                                   </td><td  align="center" nowrap="nowrap" id="TBL-14-22-4"  
class="td11">                                                  10.0                                                  </td><td  align="center" nowrap="nowrap" id="TBL-14-22-5"  
class="td11">                                                  48.8                                                  </td><td  align="center" nowrap="nowrap" id="TBL-14-22-6"  
class="td11">                                                  39.2                                                  </td><td  align="center" nowrap="nowrap" id="TBL-14-22-7"  
class="td11">                                                   2.0                                                   </td><td  align="center" nowrap="nowrap" id="TBL-14-22-8"  
class="td11">                                                    0                                                    </td><td  align="center" nowrap="nowrap" id="TBL-14-22-9"  
class="td11">                                                     3.32                                                     </td>
</tr><tr 
class="cline"><td></td><td><hr /></td><td><hr /></td><td></td><td></td><td></td><td></td><td></td><td></td></tr><tr  
 valign="baseline" id="TBL-14-23-"><td  align="center" nowrap="nowrap" id="TBL-14-23-1"  
class="td11"><!--l. 860--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><msub><mrow 
><mi 
>R</mi></mrow><mrow 
><mover 
accent="true"><mrow 
><mi 
>K</mi></mrow><mo 
class="MathClass-op">&#x0302;</mo></mover></mrow></msub 
><mrow><mo 
class="MathClass-open">(</mo><mrow><mn>1</mn></mrow><mo 
class="MathClass-close">)</mo></mrow></math></td><td  align="center" nowrap="nowrap" id="TBL-14-23-2"  
class="td11">200</td><td  align="center" nowrap="nowrap" id="TBL-14-23-3"  
class="td11">                                                   5%                                                   </td><td  align="center" nowrap="nowrap" id="TBL-14-23-4"  
class="td11">                                                   8.4                                                   </td><td  align="center" nowrap="nowrap" id="TBL-14-23-5"  
class="td11">                                                  33.6                                                  </td><td  align="center" nowrap="nowrap" id="TBL-14-23-6"  
class="td11">                                                  56.4                                                  </td><td  align="center" nowrap="nowrap" id="TBL-14-23-7"  
class="td11">                                                   1.6                                                   </td><td  align="center" nowrap="nowrap" id="TBL-14-23-8"  
class="td11">                                                    0                                                    </td><td  align="center" nowrap="nowrap" id="TBL-14-23-9"  
class="td11">                                                     3.39                                                     </td>
</tr><tr 
class="cline"><td></td><td><hr /></td><td><hr /></td><td></td><td></td><td></td><td></td><td></td><td></td></tr><tr  
 valign="baseline" id="TBL-14-24-"><td  align="center" nowrap="nowrap" id="TBL-14-24-1"  
class="td11">                                                                                                         </td><td  align="center" nowrap="nowrap" id="TBL-14-24-2"  
class="td11"> 50 </td><td  align="center" nowrap="nowrap" id="TBL-14-24-3"  
class="td11">                                                  10%                                                  </td><td  align="center" nowrap="nowrap" id="TBL-14-24-4"  
class="td11">                                                  43.6                                                  </td><td  align="center" nowrap="nowrap" id="TBL-14-24-5"  
class="td11">                                                  20.8                                                  </td><td  align="center" nowrap="nowrap" id="TBL-14-24-6"  
class="td11">                                                  26.0                                                  </td><td  align="center" nowrap="nowrap" id="TBL-14-24-7"  
class="td11">                                                   9.6                                                   </td><td  align="center" nowrap="nowrap" id="TBL-14-24-8"  
class="td11">                                                    0                                                    </td><td  align="center" nowrap="nowrap" id="TBL-14-24-9"  
class="td11">                                                     4.69                                                     </td>
</tr><tr 
class="cline"><td></td><td><hr /></td><td><hr /></td><td></td><td></td><td></td><td></td><td></td><td></td></tr><tr  
 valign="baseline" id="TBL-14-25-"><td  align="center" nowrap="nowrap" id="TBL-14-25-1"  
class="td11">                                                                                                         </td><td  align="center" nowrap="nowrap" id="TBL-14-25-2"  
class="td11">100</td><td  align="center" nowrap="nowrap" id="TBL-14-25-3"  
class="td11">                                                  10%                                                  </td><td  align="center" nowrap="nowrap" id="TBL-14-25-4"  
class="td11">                                                  26.0                                                  </td><td  align="center" nowrap="nowrap" id="TBL-14-25-5"  
class="td11">                                                  24.8                                                  </td><td  align="center" nowrap="nowrap" id="TBL-14-25-6"  
class="td11">                                                  48.0                                                  </td><td  align="center" nowrap="nowrap" id="TBL-14-25-7"  
class="td11">                                                   1.2                                                   </td><td  align="center" nowrap="nowrap" id="TBL-14-25-8"  
class="td11">                                                    0                                                    </td><td  align="center" nowrap="nowrap" id="TBL-14-25-9"  
class="td11">                                                     4.81                                                     </td>
</tr><tr 
class="cline"><td></td><td><hr /></td><td><hr /></td><td></td><td></td><td></td><td></td><td></td><td></td></tr><tr  
 valign="baseline" id="TBL-14-26-"><td  align="center" nowrap="nowrap" id="TBL-14-26-1"  
class="td11">                                                                                                         </td><td  align="center" nowrap="nowrap" id="TBL-14-26-2"  
class="td11">200</td><td  align="center" nowrap="nowrap" id="TBL-14-26-3"  
class="td11">                                                  10%                                                  </td><td  align="center" nowrap="nowrap" id="TBL-14-26-4"  
class="td11">                                                   8.8                                                   </td><td  align="center" nowrap="nowrap" id="TBL-14-26-5"  
class="td11">                                                  16.4                                                  </td><td  align="center" nowrap="nowrap" id="TBL-14-26-6"  
class="td11">                                                  70.4                                                  </td><td  align="center" nowrap="nowrap" id="TBL-14-26-7"  
class="td11">                                                   4.4                                                   </td><td  align="center" nowrap="nowrap" id="TBL-14-26-8"  
class="td11">                                                    0                                                    </td><td  align="center" nowrap="nowrap" id="TBL-14-26-9"  
class="td11">                                                     5.79                                                     </td>
</tr><tr 
class="hline"><td><hr /></td><td><hr /></td><td><hr /></td><td><hr /></td><td><hr /></td><td><hr /></td><td><hr /></td><td><hr /></td><td><hr /></td></tr><tr  
 valign="baseline" id="TBL-14-27-"><td  align="center" nowrap="nowrap" id="TBL-14-27-1"  
class="td11">                                                                                                         </td>
</tr><!--"|c|c|c|c|c|c|c|c|c|"--></table>
</div>

   </td></tr></table></div><hr class="endfloat" />
   <h4 class="subsectionHead"><span class="titlemark">4.2. </span> <a 
  name="x1-120004.2"></a>Power</h4>
<!--l. 880--><p class="noindent">The second part of the simulation was designed to study the power of our tests and
allow comparison with the competitors mentioned above. We restricted attention to
<!--l. 882--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mi 
>i</mi><mo 
class="MathClass-punc">.</mo><mi 
>i</mi><mo 
class="MathClass-punc">.</mo><mi 
>d</mi><mo 
class="MathClass-punc">.</mo></math> innovations. We
generated samples <!--l. 882--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mrow><mo 
class="MathClass-open">{</mo><mrow><msub><mrow 
><mi 
>Y</mi> </mrow><mrow 
><mi 
>t</mi></mrow></msub 
><mo 
class="MathClass-punc">,</mo><mi 
>t</mi> <mo 
class="MathClass-rel">=</mo> <mn>1</mn><mo 
class="MathClass-punc">,</mo><mo 
class="MathClass-punc">.</mo><mo 
class="MathClass-punc">.</mo><mo 
class="MathClass-punc">.</mo><mo 
class="MathClass-punc">,</mo><mi 
>T</mi></mrow><mo 
class="MathClass-close">}</mo></mrow></math>
according to model (<a 
href="#x1-7001r1">1<!--tex4ht:ref: equation1.1 --></a>) from various alternatives to the normal distribution.
These alternatives were taken as the centered version of the densities listed in
Table V of Kallenberg and Ledwina (1997b)(<a 
  name="dx1-12001"></a><a 
href="#X1997Kalle1094duch">21</a>). They comprise a large range
of departure from the normal distribution both in skewness, kurtosis and
shape.
<br class="newline" />
</p><!--l. 889--><p class="indent">   To generate ARMA(<!--l. 889--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mi 
>p</mi></math>,
<!--l. 889--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mi 
>q</mi></math>) samples
<!--l. 889--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mrow><mo 
class="MathClass-open">{</mo><mrow><msub><mrow 
><mi 
>Y</mi> </mrow><mrow 
><mi 
>t</mi></mrow></msub 
><mo 
class="MathClass-punc">,</mo><mi 
>t</mi> <mo 
class="MathClass-rel">=</mo> <mn>1</mn><mo 
class="MathClass-punc">,</mo><mo 
class="MathClass-punc">.</mo><mo 
class="MathClass-punc">.</mo><mo 
class="MathClass-punc">.</mo><mo 
class="MathClass-punc">,</mo><mi 
>T</mi></mrow><mo 
class="MathClass-close">}</mo></mrow></math> according to
model (<a 
href="#x1-7001r1">1<!--tex4ht:ref: equation1.1 --></a>) with non-Gaussian innovations, we used the random shock method (algorithms IA
1 with <!--l. 891--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mi 
>m</mi> <mo 
class="MathClass-rel">=</mo> <mn>5</mn><mn>0</mn></math> and
SA 1 with <!--l. 892--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mi 
>M</mi> <mo 
class="MathClass-rel">=</mo> <mn>2</mn><mn>0</mn><mn>0</mn></math>)
of Burn (1987)(<a 
  name="dx1-12002"></a><a 
href="#X1987Burn289duch">5</a>). To allow a proper comparison of the various
tests, we used for each model a set of parameters for which the
<!--l. 895--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mi 
>p</mi></math>-values
computed in the first part of the simulation were in
<!--l. 896--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><msub><mrow 
><mi 
>I</mi></mrow><mrow 
><mn>3</mn></mrow></msub 
></math>
for all tests. More precisely we took&#x00A0;: ARMA(2, 1)&#x00A0;:
<!--l. 897--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mrow><mo 
class="MathClass-open">(</mo><mrow><mi 
>&#x03D5;</mi><mo 
class="MathClass-punc">,</mo><msub><mrow 
><mi 
>&#x03B8;</mi></mrow><mrow 
><mn>1</mn></mrow></msub 
></mrow><mo 
class="MathClass-close">)</mo></mrow> <mo 
class="MathClass-rel">=</mo> <mrow><mo 
class="MathClass-open">(</mo><mrow><mo 
class="MathClass-bin">&#x2212;</mo><mn>0</mn><mo 
class="MathClass-punc">.</mo><mn>8</mn><mo 
class="MathClass-punc">,</mo><mo 
class="MathClass-bin">&#x2212;</mo><mn>0</mn><mo 
class="MathClass-punc">.</mo><mn>1</mn><mo 
class="MathClass-punc">,</mo> <mn>0</mn><mo 
class="MathClass-punc">.</mo><mn>7</mn></mrow><mo 
class="MathClass-close">)</mo></mrow></math>, ARMA(1,
2)&#x00A0;: <!--l. 898--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mrow><mo 
class="MathClass-open">(</mo><mrow><msub><mrow 
><mi 
>&#x03D5;</mi></mrow><mrow 
><mn>1</mn></mrow></msub 
><mo 
class="MathClass-punc">,</mo><mi 
>&#x03B8;</mi></mrow><mo 
class="MathClass-close">)</mo></mrow> <mo 
class="MathClass-rel">=</mo> <mrow><mo 
class="MathClass-open">(</mo><mrow><mo 
class="MathClass-bin">&#x2212;</mo><mn>0</mn><mo 
class="MathClass-punc">.</mo><mn>7</mn><mo 
class="MathClass-punc">,</mo> <mn>0</mn><mo 
class="MathClass-punc">.</mo><mn>4</mn><mo 
class="MathClass-punc">,</mo> <mn>0</mn><mo 
class="MathClass-punc">.</mo><mn>5</mn></mrow><mo 
class="MathClass-close">)</mo></mrow></math> and
ARMA(2, 2)&#x00A0;: <!--l. 899--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mrow><mo 
class="MathClass-open">(</mo><mrow><mi 
>&#x03D5;</mi><mo 
class="MathClass-punc">,</mo><mi 
>&#x03B8;</mi></mrow><mo 
class="MathClass-close">)</mo></mrow> <mo 
class="MathClass-rel">=</mo> <mrow><mo 
class="MathClass-open">(</mo><mrow><mo 
class="MathClass-bin">&#x2212;</mo><mn>1</mn><mo 
class="MathClass-punc">.</mo><mn>0</mn><mn>5</mn><mo 
class="MathClass-punc">,</mo><mo 
class="MathClass-bin">&#x2212;</mo><mn>0</mn><mo 
class="MathClass-punc">.</mo><mn>4</mn><mo 
class="MathClass-punc">,</mo> <mn>0</mn><mo 
class="MathClass-punc">.</mo><mn>1</mn><mn>5</mn><mo 
class="MathClass-punc">,</mo> <mn>0</mn><mo 
class="MathClass-punc">.</mo><mn>8</mn><mn>5</mn></mrow><mo 
class="MathClass-close">)</mo></mrow></math>.
Also we took <!--l. 900--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mi 
>T</mi> <mo 
class="MathClass-rel">=</mo> <mn>5</mn><mn>0</mn></math>
(more complete simulations appear in Ducharme and Lafaye de Micheaux (2002)(<a 
  name="dx1-12003"></a><a 
href="#X2002Duchaduch">8</a>)).
For each combination of model and alternative distribution, we generated 10000
samples and performed the various tests. From there, empirical powers were
computed.
<br class="newline" />
</p><!--l. 905--><p class="indent">   Table 4.3 presents these empirical powers for the tests
<!--l. 906--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><msub><mrow 
><mi 
>R</mi></mrow><mrow 
><mn>3</mn></mrow></msub 
></math>,
<!--l. 906--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><msub><mrow 
><mi 
>R</mi></mrow><mrow 
><mover 
accent="true"><mrow 
><mi 
>K</mi></mrow><mo 
class="MathClass-op">&#x0302;</mo></mover></mrow></msub 
><mrow><mo 
class="MathClass-open">(</mo><mrow><mn>2</mn></mrow><mo 
class="MathClass-close">)</mo></mrow></math> and
<!--l. 906--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mi 
>W</mi><mi 
>B</mi></math> when
<!--l. 906--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mi 
>&#x03B1;</mi> <mo 
class="MathClass-rel">=</mo> <mn>1</mn><mn>0</mn><mi 
>%</mi></math>. Similar results
were obtained for <!--l. 906--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mi 
>&#x03B1;</mi> <mo 
class="MathClass-rel">=</mo> <mn>5</mn><mi 
>%</mi></math>.
The tests <!--l. 907--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><msub><mrow 
><mi 
>R</mi></mrow><mrow 
><mn>3</mn></mrow></msub 
></math> and
<!--l. 907--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><msub><mrow 
><mi 
>R</mi></mrow><mrow 
><mover 
accent="true"><mrow 
><mi 
>K</mi></mrow><mo 
class="MathClass-op">&#x0302;</mo></mover></mrow></msub 
><mrow><mo 
class="MathClass-open">(</mo><mrow><mn>2</mn></mrow><mo 
class="MathClass-close">)</mo></mrow></math> behave similarly
with, overall, <!--l. 907--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><msub><mrow 
><mi 
>R</mi></mrow><mrow 
><mover 
accent="true"><mrow 
><mi 
>K</mi></mrow><mo 
class="MathClass-op">&#x0302;</mo></mover></mrow></msub 
><mrow><mo 
class="MathClass-open">(</mo><mrow><mn>2</mn></mrow><mo 
class="MathClass-close">)</mo></mrow></math>

being slightly better. Both these tests generally dominate the others. The
<!--l. 909--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mi 
>A</mi><mi 
>D</mi></math> approach,
not shown here, often yields a power that is much lower than these two tests whereas
<!--l. 910--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mi 
>W</mi><mi 
>B</mi></math> generally lies somewhere
in between. For <!--l. 911--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mi 
>i</mi><mo 
class="MathClass-punc">.</mo><mi 
>i</mi><mo 
class="MathClass-punc">.</mo><mi 
>d</mi><mo 
class="MathClass-punc">.</mo></math>
data, the <!--l. 911--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mi 
>W</mi><mi 
>B</mi></math>
test, as a variant of the Shapiro-Wilk test, is considered among the best omnibus tests
of normality. In ARMA situations, this does not seem to hold at the same
degree.
<br class="newline" />
</p><!--l. 916--><p class="indent">   We have also computed the power of the test based on
<!--l. 917--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><msub><mrow 
><mi 
>R</mi></mrow><mrow 
><mover 
accent="true"><mrow 
><mi 
>K</mi></mrow><mo 
class="MathClass-op">&#x0302;</mo></mover></mrow></msub 
><mrow><mo 
class="MathClass-open">(</mo><mrow><mn>1</mn></mrow><mo 
class="MathClass-close">)</mo></mrow></math>.
The tabulated results are not presented here for brevity. We found that, for
<!--l. 918--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mi 
>T</mi> <mo 
class="MathClass-rel">=</mo> <mn>5</mn><mn>0</mn></math> and symmetric alternatives,
the test based on <!--l. 919--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><msub><mrow 
><mi 
>R</mi></mrow><mrow 
><mover 
accent="true"><mrow 
><mi 
>K</mi></mrow><mo 
class="MathClass-op">&#x0302;</mo></mover></mrow></msub 
><mrow><mo 
class="MathClass-open">(</mo><mrow><mn>1</mn></mrow><mo 
class="MathClass-close">)</mo></mrow></math> yields
slightly better power that <!--l. 920--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><msub><mrow 
><mi 
>R</mi></mrow><mrow 
><mover 
accent="true"><mrow 
><mi 
>K</mi></mrow><mo 
class="MathClass-op">&#x0302;</mo></mover></mrow></msub 
><mrow><mo 
class="MathClass-open">(</mo><mrow><mn>2</mn></mrow><mo 
class="MathClass-close">)</mo></mrow></math>.
For asymmetric alternatives, the situation is reversed. But for
<!--l. 922--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mi 
>T</mi> <mo 
class="MathClass-rel">=</mo> <mn>1</mn><mn>0</mn><mn>0</mn></math>,
<!--l. 922--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><msub><mrow 
><mi 
>R</mi></mrow><mrow 
><mover 
accent="true"><mrow 
><mi 
>K</mi></mrow><mo 
class="MathClass-op">&#x0302;</mo></mover></mrow></msub 
><mrow><mo 
class="MathClass-open">(</mo><mrow><mn>2</mn></mrow><mo 
class="MathClass-close">)</mo></mrow></math>
is more powerful almost everywhere. This behavior of
<!--l. 924--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><msub><mrow 
><mi 
>R</mi></mrow><mrow 
><mover 
accent="true"><mrow 
><mi 
>K</mi></mrow><mo 
class="MathClass-op">&#x0302;</mo></mover></mrow></msub 
><mrow><mo 
class="MathClass-open">(</mo><mrow><mn>1</mn></mrow><mo 
class="MathClass-close">)</mo></mrow></math>
is explained by the fact that for asymmetric alternatives,
<!--l. 925--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><msub><mrow 
><mi 
>R</mi></mrow><mrow 
><mn>1</mn></mrow></msub 
></math>
yields little, sometimes trivial, power. Moreover, power as a function of
<!--l. 925--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mi 
>K</mi></math> usually levels
off at <!--l. 926--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mi 
>K</mi> <mo 
class="MathClass-rel">=</mo> <mn>3</mn></math>, and not
infrequently at <!--l. 926--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mi 
>K</mi> <mo 
class="MathClass-rel">=</mo> <mn>2</mn></math>.
This empirical observation is behind the rule of thumb stated
in Section 3. Thus to have good power, the selection rule with
<!--l. 928--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mi 
>d</mi> <mo 
class="MathClass-rel">=</mo> <mn>1</mn></math> must give
<!--l. 928--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mover 
accent="true"><mrow 
><mi 
>K</mi></mrow><mo 
class="MathClass-op">&#x0302;</mo></mover> <mo 
class="MathClass-rel">&#x2265;</mo> <mn>3</mn></math>, which may be difficult.
Starting at <!--l. 929--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mi 
>d</mi> <mo 
class="MathClass-rel">=</mo> <mn>2</mn></math> gives a
better chance that <!--l. 930--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mover 
accent="true"><mrow 
><mi 
>K</mi></mrow><mo 
class="MathClass-op">&#x0302;</mo></mover> <mo 
class="MathClass-rel">&#x2265;</mo> <mn>3</mn></math>
when necessary.
<br class="newline" />
</p><!--l. 932--><p class="indent">   In view of the results of these simulations, we recommend the use of
<!--l. 933--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><msub><mrow 
><mi 
>R</mi></mrow><mrow 
><mover 
accent="true"><mrow 
><mi 
>K</mi></mrow><mo 
class="MathClass-op">&#x0302;</mo></mover></mrow></msub 
><mrow><mo 
class="MathClass-open">(</mo><mrow><mn>2</mn></mrow><mo 
class="MathClass-close">)</mo></mrow></math> for testing
(<a 
href="#x1-7003r2">2<!--tex4ht:ref: equation1.2 --></a>) when <!--l. 933--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mi 
>E</mi><mrow><mo 
class="MathClass-open">(</mo><mrow><msub><mrow 
><mi 
>Y</mi> </mrow><mrow 
><mi 
>t</mi></mrow></msub 
></mrow><mo 
class="MathClass-close">)</mo></mrow></math>
is known. The levels are stable over most of the parameter points and close to nominal
for moderate samples. Moreover, the power is generally better than that of other tests
that have been recommended in the time series literature. Finally, the test is very easy
to apply.
<br class="newline" />


<a 
  name="x1-120043"></a>
</p>
   <hr class="float" /><div align="center" class="float" 
><table class="float"><tr class="float"><td class="float" 
>

   <div align="center" class="caption"><table class="caption" 
><tr valign="baseline" class="caption"><td class="id"><span 
class="eccc-1200">T<small 
class="small-caps">A</small><small 
class="small-caps">B</small>.</span>&#x00A0;4.3:    </td><td  
class="content">Empirical    power    (based    on    10000    replications    with
<!--l. 957--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mi 
>&#x03B1;</mi> <mo 
class="MathClass-rel">=</mo> <mn>1</mn><mn>0</mn><mi 
>%</mi></math>)
of various tests when <!--l. 957--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mi 
>T</mi> <mo 
class="MathClass-rel">=</mo> <mn>5</mn><mn>0</mn></math>.
The part above the line in the middle of the table corresponds to symmetric
alternatives  while  those  below  are  skewed.  The  distributions  are  ordered
according  to  increasing  kurtosis.  The  ARMA(2,1)  model  has  parameter
<!--l. 957--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mrow><mo 
class="MathClass-open">(</mo><mrow><mi 
>&#x03D5;</mi><mo 
class="MathClass-punc">,</mo><msub><mrow 
><mi 
>&#x03B8;</mi></mrow><mrow 
><mn>1</mn></mrow></msub 
></mrow><mo 
class="MathClass-close">)</mo></mrow> <mo 
class="MathClass-rel">=</mo> <mrow><mo 
class="MathClass-open">(</mo><mrow><mo 
class="MathClass-bin">&#x2212;</mo><mn>0</mn><mo 
class="MathClass-punc">.</mo><mn>8</mn><mo 
class="MathClass-punc">,</mo><mo 
class="MathClass-bin">&#x2212;</mo><mn>0</mn><mo 
class="MathClass-punc">.</mo><mn>1</mn><mo 
class="MathClass-punc">,</mo> <mn>0</mn><mo 
class="MathClass-punc">.</mo><mn>7</mn></mrow><mo 
class="MathClass-close">)</mo></mrow></math>,
the ARMA(1,2) model has parameter <!--l. 957--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mrow><mo 
class="MathClass-open">(</mo><mrow><msub><mrow 
><mi 
>&#x03D5;</mi></mrow><mrow 
><mn>1</mn></mrow></msub 
><mo 
class="MathClass-punc">,</mo><mi 
>&#x03B8;</mi></mrow><mo 
class="MathClass-close">)</mo></mrow> <mo 
class="MathClass-rel">=</mo> <mrow><mo 
class="MathClass-open">(</mo><mrow><mo 
class="MathClass-bin">&#x2212;</mo><mn>0</mn><mo 
class="MathClass-punc">.</mo><mn>7</mn><mo 
class="MathClass-punc">,</mo> <mn>0</mn><mo 
class="MathClass-punc">.</mo><mn>4</mn><mo 
class="MathClass-punc">,</mo> <mn>0</mn><mo 
class="MathClass-punc">.</mo><mn>5</mn></mrow><mo 
class="MathClass-close">)</mo></mrow></math>
while           the           ARMA(2,2)           model           has           parameter
<!--l. 957--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mrow><mo 
class="MathClass-open">(</mo><mrow><mi 
>&#x03D5;</mi><mo 
class="MathClass-punc">,</mo><mi 
>&#x03B8;</mi></mrow><mo 
class="MathClass-close">)</mo></mrow> <mo 
class="MathClass-rel">=</mo> <mfenced separators="" 
open="("  close="" ><mrow><mo 
class="MathClass-bin">&#x2212;</mo><mn>1</mn><mo 
class="MathClass-punc">.</mo><mn>0</mn><mn>5</mn><mo 
class="MathClass-punc">,</mo><mo 
class="MathClass-bin">&#x2212;</mo><mn>0</mn><mo 
class="MathClass-punc">.</mo><mn>4</mn><mo 
class="MathClass-punc">,</mo></mrow></mfenced></math>
<!--l. 957--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mfenced separators="" 
open=""  close=")" ><mrow><mn>0</mn><mo 
class="MathClass-punc">.</mo><mn>1</mn><mn>5</mn><mo 
class="MathClass-punc">,</mo> <mn>0</mn><mo 
class="MathClass-punc">.</mo><mn>8</mn><mn>5</mn></mrow></mfenced></math>.</td></tr></table></div><!--tex4ht:label?: x1-120043 -->
<div class="tabular"><table class="tabular" 
cellspacing="0pt" cellpadding="0" rules="groups" 
frame="border" id="TBL-15-" ><colgroup id="TBL-15-1g"><col 
id="TBL-15-1" /></colgroup><colgroup id="TBL-15-2g"><col 
id="TBL-15-2" /></colgroup><colgroup id="TBL-15-3g"><col 
id="TBL-15-3" /></colgroup><colgroup id="TBL-15-4g"><col 
id="TBL-15-4" /></colgroup><colgroup id="TBL-15-5g"><col 
id="TBL-15-5" /></colgroup><colgroup id="TBL-15-6g"><col 
id="TBL-15-6" /></colgroup><colgroup id="TBL-15-7g"><col 
id="TBL-15-7" /></colgroup><colgroup id="TBL-15-8g"><col 
id="TBL-15-8" /></colgroup><colgroup id="TBL-15-9g"><col 
id="TBL-15-9" /></colgroup><colgroup id="TBL-15-10g"><col 
id="TBL-15-10" /></colgroup><tr 
class="hline"><td><hr /></td><td><hr /></td><td><hr /></td><td><hr /></td><td><hr /></td><td><hr /></td><td><hr /></td><td><hr /></td><td><hr /></td><td><hr /></td></tr><tr  
 valign="baseline" id="TBL-15-1-"><td  align="center" nowrap="nowrap" id="TBL-15-1-1"  
class="td11">      <!--l. 964--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mi 
>T</mi> <mo 
class="MathClass-rel">=</mo> <mn>5</mn><mn>0</mn></math>      </td><td colspan="3" align="center" nowrap="nowrap" id="TBL-15-1-2"  
class="td11">                                                                                                                                                           <div class="multicolumn"  align="center" nowrap="nowrap">ARMA(2,1)</div>                                                                                                                 </td><td colspan="3" align="center" nowrap="nowrap" id="TBL-15-1-5"  
class="td11">                                                                                                                                                          <div class="multicolumn"  align="center" nowrap="nowrap">ARMA(1,2)</div>                                                                                                                  </td><td colspan="3" align="center" nowrap="nowrap" id="TBL-15-1-8"  
class="td11">                                                                                                                                                          <div class="multicolumn"  align="center" nowrap="nowrap">ARMA(2,2)</div>
</td></tr><tr 
class="hline"><td><hr /></td><td><hr /></td><td><hr /></td><td><hr /></td><td><hr /></td><td><hr /></td><td><hr /></td><td><hr /></td><td><hr /></td><td><hr /></td></tr><tr  
 valign="baseline" id="TBL-15-2-"><td  align="center" nowrap="nowrap" id="TBL-15-2-1"  
class="td11">                                                   Alternatives                                                   </td><td  align="center" nowrap="nowrap" id="TBL-15-2-2"  
class="td11"><!--l. 968--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><msub><mrow 
><mi 
>R</mi></mrow><mrow 
><mn>3</mn></mrow></msub 
></math></td><td  align="center" nowrap="nowrap" id="TBL-15-2-3"  
class="td11"><!--l. 968--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><msub><mrow 
><mi 
>R</mi></mrow><mrow 
><mover 
accent="true"><mrow 
><mi 
>K</mi></mrow><mo 
class="MathClass-op">&#x0302;</mo></mover></mrow></msub 
><mrow><mo 
class="MathClass-open">(</mo><mrow><mn>2</mn></mrow><mo 
class="MathClass-close">)</mo></mrow></math></td><td  align="center" nowrap="nowrap" id="TBL-15-2-4"  
class="td11"><!--l. 968--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mi 
>W</mi><mi 
>B</mi></math></td><td  align="center" nowrap="nowrap" id="TBL-15-2-5"  
class="td11"><!--l. 968--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><msub><mrow 
><mi 
>R</mi></mrow><mrow 
><mn>3</mn></mrow></msub 
></math></td><td  align="center" nowrap="nowrap" id="TBL-15-2-6"  
class="td11"><!--l. 968--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><msub><mrow 
><mi 
>R</mi></mrow><mrow 
><mover 
accent="true"><mrow 
><mi 
>K</mi></mrow><mo 
class="MathClass-op">&#x0302;</mo></mover></mrow></msub 
><mrow><mo 
class="MathClass-open">(</mo><mrow><mn>2</mn></mrow><mo 
class="MathClass-close">)</mo></mrow></math></td><td  align="center" nowrap="nowrap" id="TBL-15-2-7"  
class="td11"><!--l. 968--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mi 
>W</mi><mi 
>B</mi></math></td><td  align="center" nowrap="nowrap" id="TBL-15-2-8"  
class="td11"><!--l. 968--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><msub><mrow 
><mi 
>R</mi></mrow><mrow 
><mn>3</mn></mrow></msub 
></math></td><td  align="center" nowrap="nowrap" id="TBL-15-2-9"  
class="td11"><!--l. 968--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><msub><mrow 
><mi 
>R</mi></mrow><mrow 
><mover 
accent="true"><mrow 
><mi 
>K</mi></mrow><mo 
class="MathClass-op">&#x0302;</mo></mover></mrow></msub 
><mrow><mo 
class="MathClass-open">(</mo><mrow><mn>2</mn></mrow><mo 
class="MathClass-close">)</mo></mrow></math></td><td  align="center" nowrap="nowrap" id="TBL-15-2-10"  
class="td11"><!--l. 968--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mi 
>W</mi><mi 
>B</mi></math></td>
</tr><tr 
class="hline"><td><hr /></td><td><hr /></td><td><hr /></td><td><hr /></td><td><hr /></td><td><hr /></td><td><hr /></td><td><hr /></td><td><hr /></td><td><hr /></td></tr><tr 
class="hline"><td><hr /></td><td><hr /></td><td><hr /></td><td><hr /></td><td><hr /></td><td><hr /></td><td><hr /></td><td><hr /></td><td><hr /></td><td><hr /></td></tr><tr  
 valign="baseline" id="TBL-15-3-"><td  align="center" nowrap="nowrap" id="TBL-15-3-1"  
class="td11">                                                    SB(0<span class="frenchb-thinspace"> </span>;0.5)                                                    </td><td  align="center" nowrap="nowrap" id="TBL-15-3-2"  
class="td11">                                                 83.19                                                 </td><td  align="center" nowrap="nowrap" id="TBL-15-3-3"  
class="td11">                                                 84.76                                                 </td><td  align="center" nowrap="nowrap" id="TBL-15-3-4"  
class="td11">                                                 28.93                                                 </td><td  align="center" nowrap="nowrap" id="TBL-15-3-5"  
class="td11">                                                 73.16                                                 </td><td  align="center" nowrap="nowrap" id="TBL-15-3-6"  
class="td11">                                                 74.90                                                 </td><td  align="center" nowrap="nowrap" id="TBL-15-3-7"  
class="td11">                                                 22.47                                                 </td><td  align="center" nowrap="nowrap" id="TBL-15-3-8"  
class="td11">                                                 63.85                                                 </td><td  align="center" nowrap="nowrap" id="TBL-15-3-9"  
class="td11">                                                 65.44                                                 </td><td  align="center" nowrap="nowrap" id="TBL-15-3-10"  
class="td11">                                                 17.57                                                 </td>
</tr><tr  
 valign="baseline" id="TBL-15-4-"><td  align="center" nowrap="nowrap" id="TBL-15-4-1"  
class="td11">                                                     TU(1.5)                                                     </td><td  align="center" nowrap="nowrap" id="TBL-15-4-2"  
class="td11">                                                 66.94                                                 </td><td  align="center" nowrap="nowrap" id="TBL-15-4-3"  
class="td11">                                                 67.96                                                 </td><td  align="center" nowrap="nowrap" id="TBL-15-4-4"  
class="td11">                                                 18.27                                                 </td><td  align="center" nowrap="nowrap" id="TBL-15-4-5"  
class="td11">                                                 57.86                                                 </td><td  align="center" nowrap="nowrap" id="TBL-15-4-6"  
class="td11">                                                 59.43                                                 </td><td  align="center" nowrap="nowrap" id="TBL-15-4-7"  
class="td11">                                                 15.07                                                 </td><td  align="center" nowrap="nowrap" id="TBL-15-4-8"  
class="td11">                                                 49.17                                                 </td><td  align="center" nowrap="nowrap" id="TBL-15-4-9"  
class="td11">                                                 50.50                                                 </td><td  align="center" nowrap="nowrap" id="TBL-15-4-10"  
class="td11">                                                 13.62                                                 </td>
</tr><tr  
 valign="baseline" id="TBL-15-5-"><td  align="center" nowrap="nowrap" id="TBL-15-5-1"  
class="td11">                                                     TU(0.7)                                                     </td><td  align="center" nowrap="nowrap" id="TBL-15-5-2"  
class="td11">                                                 44.47                                                 </td><td  align="center" nowrap="nowrap" id="TBL-15-5-3"  
class="td11">                                                 45.64                                                 </td><td  align="center" nowrap="nowrap" id="TBL-15-5-4"  
class="td11">                                                 12.42                                                 </td><td  align="center" nowrap="nowrap" id="TBL-15-5-5"  
class="td11">                                                 38.69                                                 </td><td  align="center" nowrap="nowrap" id="TBL-15-5-6"  
class="td11">                                                 39.44                                                 </td><td  align="center" nowrap="nowrap" id="TBL-15-5-7"  
class="td11">                                                 11.02                                                 </td><td  align="center" nowrap="nowrap" id="TBL-15-5-8"  
class="td11">                                                 32.58                                                 </td><td  align="center" nowrap="nowrap" id="TBL-15-5-9"  
class="td11">                                                 33.88                                                 </td><td  align="center" nowrap="nowrap" id="TBL-15-5-10"  
class="td11">                                                 10.76                                                 </td>
</tr><tr  
 valign="baseline" id="TBL-15-6-"><td  align="center" nowrap="nowrap" id="TBL-15-6-1"  
class="td11">                                                    Logistic(1)                                                    </td><td  align="center" nowrap="nowrap" id="TBL-15-6-2"  
class="td11">                                                 20.74                                                 </td><td  align="center" nowrap="nowrap" id="TBL-15-6-3"  
class="td11">                                                 22.75                                                 </td><td  align="center" nowrap="nowrap" id="TBL-15-6-4"  
class="td11">                                                 19.02                                                 </td><td  align="center" nowrap="nowrap" id="TBL-15-6-5"  
class="td11">                                                 18.97                                                 </td><td  align="center" nowrap="nowrap" id="TBL-15-6-6"  
class="td11">                                                 20.87                                                 </td><td  align="center" nowrap="nowrap" id="TBL-15-6-7"  
class="td11">                                                 17.10                                                 </td><td  align="center" nowrap="nowrap" id="TBL-15-6-8"  
class="td11">                                                 18.59                                                 </td><td  align="center" nowrap="nowrap" id="TBL-15-6-9"  
class="td11">                                                 20.36                                                 </td><td  align="center" nowrap="nowrap" id="TBL-15-6-10"  
class="td11">                                                 17.60                                                 </td>
</tr><tr  
 valign="baseline" id="TBL-15-7-"><td  align="center" nowrap="nowrap" id="TBL-15-7-1"  
class="td11">                                                      TU(10)                                                      </td><td  align="center" nowrap="nowrap" id="TBL-15-7-2"  
class="td11">                                                 94.64                                                 </td><td  align="center" nowrap="nowrap" id="TBL-15-7-3"  
class="td11">                                                 96.64                                                 </td><td  align="center" nowrap="nowrap" id="TBL-15-7-4"  
class="td11">                                                 83.60                                                 </td><td  align="center" nowrap="nowrap" id="TBL-15-7-5"  
class="td11">                                                 89.57                                                 </td><td  align="center" nowrap="nowrap" id="TBL-15-7-6"  
class="td11">                                                 91.62                                                 </td><td  align="center" nowrap="nowrap" id="TBL-15-7-7"  
class="td11">                                                 74.31                                                 </td><td  align="center" nowrap="nowrap" id="TBL-15-7-8"  
class="td11">                                                 85.14                                                 </td><td  align="center" nowrap="nowrap" id="TBL-15-7-9"  
class="td11">                                                 87.26                                                 </td><td  align="center" nowrap="nowrap" id="TBL-15-7-10"  
class="td11">                                                 65.78                                                 </td>
</tr><tr  
 valign="baseline" id="TBL-15-8-"><td  align="center" nowrap="nowrap" id="TBL-15-8-1"  
class="td11">                                                    SC(0.05<span class="frenchb-thinspace"> </span>;3)                                                    </td><td  align="center" nowrap="nowrap" id="TBL-15-8-2"  
class="td11">                                                 33.65                                                 </td><td  align="center" nowrap="nowrap" id="TBL-15-8-3"  
class="td11">                                                 37.38                                                 </td><td  align="center" nowrap="nowrap" id="TBL-15-8-4"  
class="td11">                                                 35.98                                                 </td><td  align="center" nowrap="nowrap" id="TBL-15-8-5"  
class="td11">                                                 32.82                                                 </td><td  align="center" nowrap="nowrap" id="TBL-15-8-6"  
class="td11">                                                 35.65                                                 </td><td  align="center" nowrap="nowrap" id="TBL-15-8-7"  
class="td11">                                                 34.40                                                 </td><td  align="center" nowrap="nowrap" id="TBL-15-8-8"  
class="td11">                                                 30.81                                                 </td><td  align="center" nowrap="nowrap" id="TBL-15-8-9"  
class="td11">                                                 34.69                                                 </td><td  align="center" nowrap="nowrap" id="TBL-15-8-10"  
class="td11">                                                 32.37                                                 </td>
</tr><tr  
 valign="baseline" id="TBL-15-9-"><td  align="center" nowrap="nowrap" id="TBL-15-9-1"  
class="td11">                                                    SC(0.2<span class="frenchb-thinspace"> </span>;5)                                                    </td><td  align="center" nowrap="nowrap" id="TBL-15-9-2"  
class="td11">                                                 96.36                                                 </td><td  align="center" nowrap="nowrap" id="TBL-15-9-3"  
class="td11">                                                 96.77                                                 </td><td  align="center" nowrap="nowrap" id="TBL-15-9-4"  
class="td11">                                                 92.84                                                 </td><td  align="center" nowrap="nowrap" id="TBL-15-9-5"  
class="td11">                                                 94.21                                                 </td><td  align="center" nowrap="nowrap" id="TBL-15-9-6"  
class="td11">                                                 94.72                                                 </td><td  align="center" nowrap="nowrap" id="TBL-15-9-7"  
class="td11">                                                 89.12                                                 </td><td  align="center" nowrap="nowrap" id="TBL-15-9-8"  
class="td11">                                                 92.28                                                 </td><td  align="center" nowrap="nowrap" id="TBL-15-9-9"  
class="td11">                                                 92.96                                                 </td><td  align="center" nowrap="nowrap" id="TBL-15-9-10"  
class="td11">                                                 85.62                                                 </td>
</tr><tr  
 valign="baseline" id="TBL-15-10-"><td  align="center" nowrap="nowrap" id="TBL-15-10-1"  
class="td11">                                                    SC(0.05<span class="frenchb-thinspace"> </span>;5)                                                    </td><td  align="center" nowrap="nowrap" id="TBL-15-10-2"  
class="td11">                                                 62.33                                                 </td><td  align="center" nowrap="nowrap" id="TBL-15-10-3"  
class="td11">                                                 65.22                                                 </td><td  align="center" nowrap="nowrap" id="TBL-15-10-4"  
class="td11">                                                 63.63                                                 </td><td  align="center" nowrap="nowrap" id="TBL-15-10-5"  
class="td11">                                                 61.43                                                 </td><td  align="center" nowrap="nowrap" id="TBL-15-10-6"  
class="td11">                                                 63.86                                                 </td><td  align="center" nowrap="nowrap" id="TBL-15-10-7"  
class="td11">                                                 61.81                                                 </td><td  align="center" nowrap="nowrap" id="TBL-15-10-8"  
class="td11">                                                 58.90                                                 </td><td  align="center" nowrap="nowrap" id="TBL-15-10-9"  
class="td11">                                                 62.20                                                 </td><td  align="center" nowrap="nowrap" id="TBL-15-10-10"  
class="td11">                                                 59.77                                                 </td>
</tr><tr  
 valign="baseline" id="TBL-15-11-"><td  align="center" nowrap="nowrap" id="TBL-15-11-1"  
class="td11">                                                    SC(0.05<span class="frenchb-thinspace"> </span>;7)                                                    </td><td  align="center" nowrap="nowrap" id="TBL-15-11-2"  
class="td11">                                                 74.05                                                 </td><td  align="center" nowrap="nowrap" id="TBL-15-11-3"  
class="td11">                                                 76.12                                                 </td><td  align="center" nowrap="nowrap" id="TBL-15-11-4"  
class="td11">                                                 75.32                                                 </td><td  align="center" nowrap="nowrap" id="TBL-15-11-5"  
class="td11">                                                 73.00                                                 </td><td  align="center" nowrap="nowrap" id="TBL-15-11-6"  
class="td11">                                                 75.22                                                 </td><td  align="center" nowrap="nowrap" id="TBL-15-11-7"  
class="td11">                                                 73.89                                                 </td><td  align="center" nowrap="nowrap" id="TBL-15-11-8"  
class="td11">                                                 72.28                                                 </td><td  align="center" nowrap="nowrap" id="TBL-15-11-9"  
class="td11">                                                 74.04                                                 </td><td  align="center" nowrap="nowrap" id="TBL-15-11-10"  
class="td11">                                                 72.50                                                 </td>
</tr><tr  
 valign="baseline" id="TBL-15-12-"><td  align="center" nowrap="nowrap" id="TBL-15-12-1"  
class="td11">                                                     SU(0<span class="frenchb-thinspace"> </span>;1)                                                     </td><td  align="center" nowrap="nowrap" id="TBL-15-12-2"  
class="td11">                                                 75.96                                                 </td><td  align="center" nowrap="nowrap" id="TBL-15-12-3"  
class="td11">                                                 76.49                                                 </td><td  align="center" nowrap="nowrap" id="TBL-15-12-4"  
class="td11">                                                 66.57                                                 </td><td  align="center" nowrap="nowrap" id="TBL-15-12-5"  
class="td11">                                                 71.73                                                 </td><td  align="center" nowrap="nowrap" id="TBL-15-12-6"  
class="td11">                                                 72.44                                                 </td><td  align="center" nowrap="nowrap" id="TBL-15-12-7"  
class="td11">                                                 62.20                                                 </td><td  align="center" nowrap="nowrap" id="TBL-15-12-8"  
class="td11">                                                 68.60                                                 </td><td  align="center" nowrap="nowrap" id="TBL-15-12-9"  
class="td11">                                                 69.79                                                 </td><td  align="center" nowrap="nowrap" id="TBL-15-12-10"  
class="td11">                                                 59.99                                                 </td>
</tr><tr 
class="hline"><td><hr /></td><td><hr /></td><td><hr /></td><td><hr /></td><td><hr /></td><td><hr /></td><td><hr /></td><td><hr /></td><td><hr /></td><td><hr /></td></tr><tr  
 valign="baseline" id="TBL-15-13-"><td  align="center" nowrap="nowrap" id="TBL-15-13-1"  
class="td11">                                                  SB(0.533<span class="frenchb-thinspace"> </span>;0.5)                                                  </td><td  align="center" nowrap="nowrap" id="TBL-15-13-2"  
class="td11">                                                 91.09                                                 </td><td  align="center" nowrap="nowrap" id="TBL-15-13-3"  
class="td11">                                                 89.76                                                 </td><td  align="center" nowrap="nowrap" id="TBL-15-13-4"  
class="td11">                                                 59.41                                                 </td><td  align="center" nowrap="nowrap" id="TBL-15-13-5"  
class="td11">                                                 83.62                                                 </td><td  align="center" nowrap="nowrap" id="TBL-15-13-6"  
class="td11">                                                 82.09                                                 </td><td  align="center" nowrap="nowrap" id="TBL-15-13-7"  
class="td11">                                                 48.17                                                 </td><td  align="center" nowrap="nowrap" id="TBL-15-13-8"  
class="td11">                                                 76.29                                                 </td><td  align="center" nowrap="nowrap" id="TBL-15-13-9"  
class="td11">                                                 74.04                                                 </td><td  align="center" nowrap="nowrap" id="TBL-15-13-10"  
class="td11">                                                 36.87                                                 </td>
</tr><tr  
 valign="baseline" id="TBL-15-14-"><td  align="center" nowrap="nowrap" id="TBL-15-14-1"  
class="td11">                                                      SB(1<span class="frenchb-thinspace"> </span>;1)                                                      </td><td  align="center" nowrap="nowrap" id="TBL-15-14-2"  
class="td11">                                                 53.75                                                 </td><td  align="center" nowrap="nowrap" id="TBL-15-14-3"  
class="td11">                                                 56.94                                                 </td><td  align="center" nowrap="nowrap" id="TBL-15-14-4"  
class="td11">                                                 32.60                                                 </td><td  align="center" nowrap="nowrap" id="TBL-15-14-5"  
class="td11">                                                 45.94                                                 </td><td  align="center" nowrap="nowrap" id="TBL-15-14-6"  
class="td11">                                                 48.41                                                 </td><td  align="center" nowrap="nowrap" id="TBL-15-14-7"  
class="td11">                                                 26.18                                                 </td><td  align="center" nowrap="nowrap" id="TBL-15-14-8"  
class="td11">                                                 42.03                                                 </td><td  align="center" nowrap="nowrap" id="TBL-15-14-9"  
class="td11">                                                 44.17                                                 </td><td  align="center" nowrap="nowrap" id="TBL-15-14-10"  
class="td11">                                                 23.84                                                 </td>
</tr><tr  
 valign="baseline" id="TBL-15-15-"><td  align="center" nowrap="nowrap" id="TBL-15-15-1"  
class="td11">                                                    LC(0.2<span class="frenchb-thinspace"> </span>;3)                                                    </td><td  align="center" nowrap="nowrap" id="TBL-15-15-2"  
class="td11">                                                 55.58                                                 </td><td  align="center" nowrap="nowrap" id="TBL-15-15-3"  
class="td11">                                                 57.79                                                 </td><td  align="center" nowrap="nowrap" id="TBL-15-15-4"  
class="td11">                                                 29.72                                                 </td><td  align="center" nowrap="nowrap" id="TBL-15-15-5"  
class="td11">                                                 49.58                                                 </td><td  align="center" nowrap="nowrap" id="TBL-15-15-6"  
class="td11">                                                 52.11                                                 </td><td  align="center" nowrap="nowrap" id="TBL-15-15-7"  
class="td11">                                                 26.19                                                 </td><td  align="center" nowrap="nowrap" id="TBL-15-15-8"  
class="td11">                                                 43.88                                                 </td><td  align="center" nowrap="nowrap" id="TBL-15-15-9"  
class="td11">                                                 46.16                                                 </td><td  align="center" nowrap="nowrap" id="TBL-15-15-10"  
class="td11">                                                 22.62                                                 </td>
</tr><tr  
 valign="baseline" id="TBL-15-16-"><td  align="center" nowrap="nowrap" id="TBL-15-16-1"  
class="td11">                                                    Weibull(2)                                                    </td><td  align="center" nowrap="nowrap" id="TBL-15-16-2"  
class="td11">                                                 28.10                                                 </td><td  align="center" nowrap="nowrap" id="TBL-15-16-3"  
class="td11">                                                 30.72                                                 </td><td  align="center" nowrap="nowrap" id="TBL-15-16-4"  
class="td11">                                                 21.25                                                 </td><td  align="center" nowrap="nowrap" id="TBL-15-16-5"  
class="td11">                                                 25.63                                                 </td><td  align="center" nowrap="nowrap" id="TBL-15-16-6"  
class="td11">                                                 28.66                                                 </td><td  align="center" nowrap="nowrap" id="TBL-15-16-7"  
class="td11">                                                 18.52                                                 </td><td  align="center" nowrap="nowrap" id="TBL-15-16-8"  
class="td11">                                                 24.32                                                 </td><td  align="center" nowrap="nowrap" id="TBL-15-16-9"  
class="td11">                                                 26.85                                                 </td><td  align="center" nowrap="nowrap" id="TBL-15-16-10"  
class="td11">                                                 18.68                                                 </td>
</tr><tr  
 valign="baseline" id="TBL-15-17-"><td  align="center" nowrap="nowrap" id="TBL-15-17-1"  
class="td11">                                                    LC(0.1<span class="frenchb-thinspace"> </span>;3)                                                    </td><td  align="center" nowrap="nowrap" id="TBL-15-17-2"  
class="td11">                                                 44.10                                                 </td><td  align="center" nowrap="nowrap" id="TBL-15-17-3"  
class="td11">                                                 43.85                                                 </td><td  align="center" nowrap="nowrap" id="TBL-15-17-4"  
class="td11">                                                 35.21                                                 </td><td  align="center" nowrap="nowrap" id="TBL-15-17-5"  
class="td11">                                                 40.62                                                 </td><td  align="center" nowrap="nowrap" id="TBL-15-17-6"  
class="td11">                                                 40.54                                                 </td><td  align="center" nowrap="nowrap" id="TBL-15-17-7"  
class="td11">                                                 31.38                                                 </td><td  align="center" nowrap="nowrap" id="TBL-15-17-8"  
class="td11">                                                 37.00                                                 </td><td  align="center" nowrap="nowrap" id="TBL-15-17-9"  
class="td11">                                                 37.25                                                 </td><td  align="center" nowrap="nowrap" id="TBL-15-17-10"  
class="td11">                                                 27.97                                                 </td>
</tr><tr  
 valign="baseline" id="TBL-15-18-"><td  align="center" nowrap="nowrap" id="TBL-15-18-1"  
class="td11"><!--l. 989--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><msup><mrow 
><mi 
>&#x03C7;</mi></mrow><mrow 
><mn>2</mn></mrow></msup 
></math> (df.=10)</td><td  align="center" nowrap="nowrap" id="TBL-15-18-2"  
class="td11">                                                 41.41                                                 </td><td  align="center" nowrap="nowrap" id="TBL-15-18-3"  
class="td11">                                                 45.84                                                 </td><td  align="center" nowrap="nowrap" id="TBL-15-18-4"  
class="td11">                                                 34.72                                                 </td><td  align="center" nowrap="nowrap" id="TBL-15-18-5"  
class="td11">                                                 37.80                                                 </td><td  align="center" nowrap="nowrap" id="TBL-15-18-6"  
class="td11">                                                 41.98                                                 </td><td  align="center" nowrap="nowrap" id="TBL-15-18-7"  
class="td11">                                                 31.09                                                 </td><td  align="center" nowrap="nowrap" id="TBL-15-18-8"  
class="td11">                                                 35.04                                                 </td><td  align="center" nowrap="nowrap" id="TBL-15-18-9"  
class="td11">                                                 38.91                                                 </td><td  align="center" nowrap="nowrap" id="TBL-15-18-10"  
class="td11">                                                 29.66                                                 </td>
</tr><tr  
 valign="baseline" id="TBL-15-19-"><td  align="center" nowrap="nowrap" id="TBL-15-19-1"  
class="td11">                                                    LC(0.05<span class="frenchb-thinspace"> </span>;3)                                                    </td><td  align="center" nowrap="nowrap" id="TBL-15-19-2"  
class="td11">                                                 29.50                                                 </td><td  align="center" nowrap="nowrap" id="TBL-15-19-3"  
class="td11">                                                 31.25                                                 </td><td  align="center" nowrap="nowrap" id="TBL-15-19-4"  
class="td11">                                                 28.28                                                 </td><td  align="center" nowrap="nowrap" id="TBL-15-19-5"  
class="td11">                                                 28.05                                                 </td><td  align="center" nowrap="nowrap" id="TBL-15-19-6"  
class="td11">                                                 29.86                                                 </td><td  align="center" nowrap="nowrap" id="TBL-15-19-7"  
class="td11">                                                 26.18                                                 </td><td  align="center" nowrap="nowrap" id="TBL-15-19-8"  
class="td11">                                                 25.91                                                 </td><td  align="center" nowrap="nowrap" id="TBL-15-19-9"  
class="td11">                                                 28.32                                                 </td><td  align="center" nowrap="nowrap" id="TBL-15-19-10"  
class="td11">                                                 24.17                                                 </td>
</tr><tr  
 valign="baseline" id="TBL-15-20-"><td  align="center" nowrap="nowrap" id="TBL-15-20-1"  
class="td11">                                                    LC(0.1<span class="frenchb-thinspace"> </span>;5)                                                    </td><td  align="center" nowrap="nowrap" id="TBL-15-20-2"  
class="td11">                                                 96.10                                                 </td><td  align="center" nowrap="nowrap" id="TBL-15-20-3"  
class="td11">                                                 96.00                                                 </td><td  align="center" nowrap="nowrap" id="TBL-15-20-4"  
class="td11">                                                 95.07                                                 </td><td  align="center" nowrap="nowrap" id="TBL-15-20-5"  
class="td11">                                                 93.40                                                 </td><td  align="center" nowrap="nowrap" id="TBL-15-20-6"  
class="td11">                                                 93.03                                                 </td><td  align="center" nowrap="nowrap" id="TBL-15-20-7"  
class="td11">                                                 90.44                                                 </td><td  align="center" nowrap="nowrap" id="TBL-15-20-8"  
class="td11">                                                 91.04                                                 </td><td  align="center" nowrap="nowrap" id="TBL-15-20-9"  
class="td11">                                                 89.90                                                 </td><td  align="center" nowrap="nowrap" id="TBL-15-20-10"  
class="td11">                                                 86.06                                                 </td>
</tr><tr  
 valign="baseline" id="TBL-15-21-"><td  align="center" nowrap="nowrap" id="TBL-15-21-1"  
class="td11">                                                     SU(-1<span class="frenchb-thinspace"> </span>;2)                                                     </td><td  align="center" nowrap="nowrap" id="TBL-15-21-2"  
class="td11">                                                 37.88                                                 </td><td  align="center" nowrap="nowrap" id="TBL-15-21-3"  
class="td11">                                                 38.92                                                 </td><td  align="center" nowrap="nowrap" id="TBL-15-21-4"  
class="td11">                                                 33.93                                                 </td><td  align="center" nowrap="nowrap" id="TBL-15-21-5"  
class="td11">                                                 34.38                                                 </td><td  align="center" nowrap="nowrap" id="TBL-15-21-6"  
class="td11">                                                 36.29                                                 </td><td  align="center" nowrap="nowrap" id="TBL-15-21-7"  
class="td11">                                                 31.12                                                 </td><td  align="center" nowrap="nowrap" id="TBL-15-21-8"  
class="td11">                                                 33.54                                                 </td><td  align="center" nowrap="nowrap" id="TBL-15-21-9"  
class="td11">                                                 65.40                                                 </td><td  align="center" nowrap="nowrap" id="TBL-15-21-10"  
class="td11">                                                 29.87                                                 </td>
</tr><tr  
 valign="baseline" id="TBL-15-22-"><td  align="center" nowrap="nowrap" id="TBL-15-22-1"  
class="td11"> <!--l. 993--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><msup><mrow 
><mi 
>&#x03C7;</mi></mrow><mrow 
><mn>2</mn></mrow></msup 
></math> (df.=4) </td><td  align="center" nowrap="nowrap" id="TBL-15-22-2"  
class="td11">                                                 76.13                                                 </td><td  align="center" nowrap="nowrap" id="TBL-15-22-3"  
class="td11">                                                 80.54                                                 </td><td  align="center" nowrap="nowrap" id="TBL-15-22-4"  
class="td11">                                                 69.78                                                 </td><td  align="center" nowrap="nowrap" id="TBL-15-22-5"  
class="td11">                                                 71.19                                                 </td><td  align="center" nowrap="nowrap" id="TBL-15-22-6"  
class="td11">                                                 75.76                                                 </td><td  align="center" nowrap="nowrap" id="TBL-15-22-7"  
class="td11">                                                 63.30                                                 </td><td  align="center" nowrap="nowrap" id="TBL-15-22-8"  
class="td11">                                                 65.96                                                 </td><td  align="center" nowrap="nowrap" id="TBL-15-22-9"  
class="td11">                                                 70.30                                                 </td><td  align="center" nowrap="nowrap" id="TBL-15-22-10"  
class="td11">                                                 57.70                                                 </td>
</tr><tr  
 valign="baseline" id="TBL-15-23-"><td  align="center" nowrap="nowrap" id="TBL-15-23-1"  
class="td11">                                                    LC(0.05<span class="frenchb-thinspace"> </span>;5)                                                    </td><td  align="center" nowrap="nowrap" id="TBL-15-23-2"  
class="td11">                                                 81.48                                                 </td><td  align="center" nowrap="nowrap" id="TBL-15-23-3"  
class="td11">                                                 83.98                                                 </td><td  align="center" nowrap="nowrap" id="TBL-15-23-4"  
class="td11">                                                 84.41                                                 </td><td  align="center" nowrap="nowrap" id="TBL-15-23-5"  
class="td11">                                                 78.07                                                 </td><td  align="center" nowrap="nowrap" id="TBL-15-23-6"  
class="td11">                                                 80.38                                                 </td><td  align="center" nowrap="nowrap" id="TBL-15-23-7"  
class="td11">                                                 80.80                                                 </td><td  align="center" nowrap="nowrap" id="TBL-15-23-8"  
class="td11">                                                 75.48                                                 </td><td  align="center" nowrap="nowrap" id="TBL-15-23-9"  
class="td11">                                                 77.71                                                 </td><td  align="center" nowrap="nowrap" id="TBL-15-23-10"  
class="td11">                                                 77.58                                                 </td>
</tr><tr  
 valign="baseline" id="TBL-15-24-"><td  align="center" nowrap="nowrap" id="TBL-15-24-1"  
class="td11">                                                    LC(0.05<span class="frenchb-thinspace"> </span>;7)                                                    </td><td  align="center" nowrap="nowrap" id="TBL-15-24-2"  
class="td11">                                                 94.26                                                 </td><td  align="center" nowrap="nowrap" id="TBL-15-24-3"  
class="td11">                                                 94.74                                                 </td><td  align="center" nowrap="nowrap" id="TBL-15-24-4"  
class="td11">                                                 96.28                                                 </td><td  align="center" nowrap="nowrap" id="TBL-15-24-5"  
class="td11">                                                 94.05                                                 </td><td  align="center" nowrap="nowrap" id="TBL-15-24-6"  
class="td11">                                                 94.73                                                 </td><td  align="center" nowrap="nowrap" id="TBL-15-24-7"  
class="td11">                                                 96.39                                                 </td><td  align="center" nowrap="nowrap" id="TBL-15-24-8"  
class="td11">                                                 93.44                                                 </td><td  align="center" nowrap="nowrap" id="TBL-15-24-9"  
class="td11">                                                 94.24                                                 </td><td  align="center" nowrap="nowrap" id="TBL-15-24-10"  
class="td11">                                                 95.88                                                 </td>
</tr><tr  
 valign="baseline" id="TBL-15-25-"><td  align="center" nowrap="nowrap" id="TBL-15-25-1"  
class="td11">                                                     SU(1<span class="frenchb-thinspace"> </span>;1)                                                     </td><td  align="center" nowrap="nowrap" id="TBL-15-25-2"  
class="td11">                                                 96.26                                                 </td><td  align="center" nowrap="nowrap" id="TBL-15-25-3"  
class="td11">                                                 96.15                                                 </td><td  align="center" nowrap="nowrap" id="TBL-15-25-4"  
class="td11">                                                 93.98                                                 </td><td  align="center" nowrap="nowrap" id="TBL-15-25-5"  
class="td11">                                                 94.18                                                 </td><td  align="center" nowrap="nowrap" id="TBL-15-25-6"  
class="td11">                                                 94.17                                                 </td><td  align="center" nowrap="nowrap" id="TBL-15-25-7"  
class="td11">                                                 91.39                                                 </td><td  align="center" nowrap="nowrap" id="TBL-15-25-8"  
class="td11">                                                 93.14                                                 </td><td  align="center" nowrap="nowrap" id="TBL-15-25-9"  
class="td11">                                                 93.17                                                 </td><td  align="center" nowrap="nowrap" id="TBL-15-25-10"  
class="td11">                                                 90.14                                                 </td>
</tr><tr  
 valign="baseline" id="TBL-15-26-"><td  align="center" nowrap="nowrap" id="TBL-15-26-1"  
class="td11">                                                     LN(0<span class="frenchb-thinspace"> </span>;1)                                                     </td><td  align="center" nowrap="nowrap" id="TBL-15-26-2"  
class="td11">                                                 99.52                                                 </td><td  align="center" nowrap="nowrap" id="TBL-15-26-3"  
class="td11">                                                 99.68                                                 </td><td  align="center" nowrap="nowrap" id="TBL-15-26-4"  
class="td11">                                                 99.24                                                 </td><td  align="center" nowrap="nowrap" id="TBL-15-26-5"  
class="td11">                                                 98.74                                                 </td><td  align="center" nowrap="nowrap" id="TBL-15-26-6"  
class="td11">                                                 98.85                                                 </td><td  align="center" nowrap="nowrap" id="TBL-15-26-7"  
class="td11">                                                 98.02                                                 </td><td  align="center" nowrap="nowrap" id="TBL-15-26-8"  
class="td11">                                                 97.89                                                 </td><td  align="center" nowrap="nowrap" id="TBL-15-26-9"  
class="td11">                                                 98.16                                                 </td><td  align="center" nowrap="nowrap" id="TBL-15-26-10"  
class="td11">                                                 96.83                                                 </td>
</tr><tr 
class="hline"><td><hr /></td><td><hr /></td><td><hr /></td><td><hr /></td><td><hr /></td><td><hr /></td><td><hr /></td><td><hr /></td><td><hr /></td><td><hr /></td></tr><tr  
 valign="baseline" id="TBL-15-27-"><td  align="center" nowrap="nowrap" id="TBL-15-27-1"  
class="td11">                                                                                                                      </td>
</tr><!--"|c||c|c|c|c||c|c|c|c|c|"--></table>
</div>

   </td></tr></table></div><hr class="endfloat" />
   <h3 class="sectionHead"><span class="titlemark">5. </span> <a 
  name="x1-130005"></a>An example</h3>
<!--l. 1011--><p class="noindent">In the course of a study to forecast the amount of daily gas
required, Shea (1987)(<a 
  name="dx1-13001"></a><a 
href="#X1987Shea95duch">34</a>) has studied a bivariate time series of
<!--l. 1012--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mi 
>T</mi> <mo 
class="MathClass-rel">=</mo> <mn>3</mn><mn>6</mn><mn>6</mn></math> points. The
first component of this time series pertains to differences in daily temperature between successive
days (<!--l. 1015--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mo 
class="MathClass-bin">&#x25BD;</mo><msub><mrow 
><mi 
>&#x03C4;</mi></mrow><mrow 
><mi 
>t</mi></mrow></msub 
></math>)
and he found, after an iteration process of fitting and diagnostic checking, that the
following MA(4) model could be entertained&#x00A0;:
</p><!--l. 1018--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="display">
              <mo 
class="MathClass-bin">&#x25BD;</mo><msub><mrow 
><mi 
>&#x03C4;</mi></mrow><mrow 
><mi 
>t</mi></mrow></msub 
> <mo 
class="MathClass-rel">=</mo> <msub><mrow 
><mi 
>&#x03B5;</mi></mrow><mrow 
><mi 
>t</mi></mrow></msub 
> <mo 
class="MathClass-bin">+</mo> <mn>0</mn><mo 
class="MathClass-punc">.</mo><mn>0</mn><mn>7</mn><msub><mrow 
><mi 
>&#x03B5;</mi></mrow><mrow 
><mi 
>t</mi><mo 
class="MathClass-bin">&#x2212;</mo><mn>1</mn></mrow></msub 
> <mo 
class="MathClass-bin">&#x2212;</mo> <mn>0</mn><mo 
class="MathClass-punc">.</mo><mn>3</mn><mn>0</mn><msub><mrow 
><mi 
>&#x03B5;</mi></mrow><mrow 
><mi 
>t</mi><mo 
class="MathClass-bin">&#x2212;</mo><mn>2</mn></mrow></msub 
> <mo 
class="MathClass-bin">&#x2212;</mo> <mn>0</mn><mo 
class="MathClass-punc">.</mo><mn>1</mn><mn>5</mn><msub><mrow 
><mi 
>&#x03B5;</mi></mrow><mrow 
><mi 
>t</mi><mo 
class="MathClass-bin">&#x2212;</mo><mn>3</mn></mrow></msub 
> <mo 
class="MathClass-bin">&#x2212;</mo> <mn>0</mn><mo 
class="MathClass-punc">.</mo><mn>2</mn><mn>0</mn><msub><mrow 
><mi 
>&#x03B5;</mi></mrow><mrow 
><mi 
>t</mi><mo 
class="MathClass-bin">&#x2212;</mo><mn>4</mn></mrow></msub 
><mo 
class="MathClass-punc">.</mo>
</math>
<!--l. 1020--><p class="nopar">
The residual variance is 2.475. All these parameters are obtained by maximizing the
Gaussian likelihood so that problem (<a 
href="#x1-7003r2">2<!--tex4ht:ref: equation1.2 --></a>) is of some importance. Shea does not discuss
the normality of the innovations in assessing the fit of this model but rather goes on to
find a good model for the bivariate series based on an analysis of the residuals&#x2019; cross
correlation matrix.
<br class="newline" />
</p><!--l. 1028--><p class="indent">   An application of our tests yields <!--l. 1028--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><msub><mrow 
><mi 
>R</mi></mrow><mrow 
><mn>3</mn></mrow></msub 
> <mo 
class="MathClass-rel">=</mo> <mn>2</mn><mn>2</mn><mo 
class="MathClass-punc">.</mo><mn>8</mn><mn>5</mn></math>,
with a <!--l. 1028--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mi 
>p</mi></math>-value of
0.00004 while <!--l. 1028--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><msub><mrow 
><mi 
>R</mi></mrow><mrow 
><mover 
accent="true"><mrow 
><mi 
>K</mi></mrow><mo 
class="MathClass-op">&#x0302;</mo></mover></mrow></msub 
><mrow><mo 
class="MathClass-open">(</mo><mrow><mn>2</mn></mrow><mo 
class="MathClass-close">)</mo></mrow> <mo 
class="MathClass-rel">=</mo> <mn>2</mn><mn>2</mn><mo 
class="MathClass-punc">.</mo><mn>7</mn><mn>7</mn></math>
(<!--l. 1028--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mover 
accent="true"><mrow 
><mi 
>K</mi></mrow><mo 
class="MathClass-op">&#x0302;</mo></mover> <mo 
class="MathClass-rel">=</mo> <mn>2</mn></math>) yielding
a <!--l. 1028--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mi 
>p</mi></math>-value
of 0.00003 according to (<a 
href="#x1-9008r2">2<!--tex4ht:ref: equation3.2 --></a>). Thus, both tests strongly reject the
null hypothesis (<a 
href="#x1-7003r2">2<!--tex4ht:ref: equation1.2 --></a>). A complementary analysis helps understanding
what aspect of the Gaussian is not supported by the data. We found
<!--l. 1028--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><msub><mrow 
><mi 
>R</mi></mrow><mrow 
><mn>1</mn></mrow></msub 
> <mo 
class="MathClass-rel">=</mo> <mn>0</mn><mo 
class="MathClass-punc">.</mo><mn>1</mn><mn>5</mn></math>
(<!--l. 1028--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mi 
>p</mi> <mo 
class="MathClass-rel">=</mo> <mn>0</mn><mo 
class="MathClass-punc">.</mo><mn>6</mn><mn>9</mn></math>)
with a skewness coefficient of 0.13. Thus there is no reason to suspect
an asymmetrical distribution for the innovations. On the other hand, we
can notice that 9.3% of the absolute standardized residuals are greater
than 2.5 and the kurtosis is 4.33. Thus, if the model entertained above is

correct, the conclusion that emerges from the present analysis is that the
<!--l. 1028--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mo 
class="MathClass-bin">&#x25BD;</mo><msub><mrow 
><mi 
>&#x03C4;</mi></mrow><mrow 
><mi 
>t</mi></mrow></msub 
></math> series
could have been generated from innovations with a symmetric distribution having
fatter tails than the Gaussian.
<br class="newline" />
<br class="newline" /><span 
class="ecbx-1200">ACKNOWLEDGMENTS</span>
<br class="newline" />The authors would like to thank Dr. B.L. Shea for some insight on subroutine G13DCF
of the NAG library and for providing them with the data set used in Section
5.
</p>
   <h3 class="sectionHead"><a 
  name="x1-140005"></a>Appendix A</h3>
<!--l. 1042--><p class="noindent">We show that(<a 
href="#x1-8013r8">8<!--tex4ht:ref: equation2.8 --></a>) holds under <!--l. 1042--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><msub><mrow 
><mi 
>H</mi></mrow><mrow 
><mn>0</mn></mrow></msub 
></math>.
Assume <!--l. 1042--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mi 
>p</mi></math>
and <!--l. 1042--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mi 
>q</mi> <mo 
class="MathClass-rel">&#x003E;</mo> <mn>0</mn></math>.
It suffices to show that </p><table class="equation"><tr><td> <a 
  name="x1-14001r1"></a>
<!--l. 1044--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="display">
                  <mfrac><mrow 
><mn>1</mn></mrow>
<mrow 
><mi 
>T</mi></mrow></mfrac><msubsup><mrow 
> <mo 
class="MathClass-op">&#x2211;</mo>
                       </mrow><mrow 
><mi 
>t</mi><mo 
class="MathClass-rel">=</mo><mn>1</mn></mrow><mrow 
><mi 
>T</mi> </mrow></msubsup 
> <mfrac><mrow 
><mi 
>&#x2202;</mi></mrow>
<mrow 
><mi 
>&#x2202;</mi><mi 
>&#x03C3;</mi></mrow></mfrac><msub><mrow 
><mi 
>L</mi></mrow><mrow 
><mi 
>k</mi></mrow></msub 
><mrow><mo 
class="MathClass-open">(</mo><mrow><msub><mrow 
><mi 
>U</mi></mrow><mrow 
><mi 
>t</mi></mrow></msub 
></mrow><mo 
class="MathClass-close">)</mo></mrow><mover 
class="stackrel"><mrow 
><mo 
class="MathClass-rel">&#x2192;</mo></mrow><mrow 
><mo 
class="MathClass-op"> P</mo></mrow></mover><mi 
>E</mi> <mfenced separators="" 
open="["  close="]" ><mrow> <mfrac><mrow 
><mi 
>&#x2202;</mi></mrow>
<mrow 
><mi 
>&#x2202;</mi><mi 
>&#x03C3;</mi></mrow></mfrac><msub><mrow 
><mi 
>L</mi></mrow><mrow 
><mi 
>k</mi></mrow></msub 
><mrow><mo 
class="MathClass-open">(</mo><mrow><msub><mrow 
><mi 
>U</mi></mrow><mrow 
><mi 
>t</mi></mrow></msub 
></mrow><mo 
class="MathClass-close">)</mo></mrow></mrow></mfenced> <mo 
class="MathClass-rel">=</mo> <mo 
class="MathClass-bin">&#x2212;</mo><mfrac><mrow 
><mn>1</mn></mrow>
<mrow 
><mi 
>&#x03C3;</mi></mrow></mfrac><msub><mrow 
><mi 
>b</mi></mrow><mrow 
><mi 
>k</mi></mrow></msub 
><mo 
class="MathClass-punc">,</mo>
</math>
<!--l. 1046--><p class="nopar"></p></td><td class="eq-no">(A.1.a)</td></tr></table>
<table class="equation"><tr><td> <a 
  name="x1-14002r2"></a>
<!--l. 1047--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="display">
                   <mfrac><mrow 
><mn>1</mn></mrow>
<mrow 
><mi 
>T</mi></mrow></mfrac><msubsup><mrow 
> <mo 
class="MathClass-op">&#x2211;</mo>
                        </mrow><mrow 
><mi 
>t</mi><mo 
class="MathClass-rel">=</mo><mn>1</mn></mrow><mrow 
><mi 
>T</mi> </mrow></msubsup 
>  <mfrac><mrow 
><mi 
>&#x2202;</mi></mrow>
<mrow 
><mi 
>&#x2202;</mi><msub><mrow 
><mi 
>&#x03D5;</mi></mrow><mrow 
><mn>1</mn></mrow></msub 
></mrow></mfrac><msub><mrow 
><mi 
>L</mi></mrow><mrow 
><mi 
>k</mi></mrow></msub 
><mrow><mo 
class="MathClass-open">(</mo><mrow><msub><mrow 
><mi 
>U</mi></mrow><mrow 
><mi 
>t</mi></mrow></msub 
></mrow><mo 
class="MathClass-close">)</mo></mrow><mover 
class="stackrel"><mrow 
><mo 
class="MathClass-rel">&#x2192;</mo></mrow><mrow 
><mo 
class="MathClass-op"> P</mo></mrow></mover><mi 
>E</mi> <mfenced separators="" 
open="["  close="]" ><mrow>  <mfrac><mrow 
><mi 
>&#x2202;</mi></mrow>
<mrow 
><mi 
>&#x2202;</mi><msub><mrow 
><mi 
>&#x03D5;</mi></mrow><mrow 
><mn>1</mn></mrow></msub 
></mrow></mfrac><msub><mrow 
><mi 
>L</mi></mrow><mrow 
><mi 
>k</mi></mrow></msub 
><mrow><mo 
class="MathClass-open">(</mo><mrow><msub><mrow 
><mi 
>U</mi></mrow><mrow 
><mi 
>t</mi></mrow></msub 
></mrow><mo 
class="MathClass-close">)</mo></mrow></mrow></mfenced> <mo 
class="MathClass-rel">=</mo> <mn>0</mn><mo 
class="MathClass-punc">,</mo>
</math>
<!--l. 1049--><p class="nopar"></p></td><td class="eq-no">(A.1.b)</td></tr></table>
<table class="equation"><tr><td> <a 
  name="x1-14003r3"></a>

<!--l. 1050--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="display">
                    <mfrac><mrow 
><mn>1</mn></mrow>
<mrow 
><mi 
>T</mi></mrow></mfrac><msubsup><mrow 
> <mo 
class="MathClass-op">&#x2211;</mo>
                         </mrow><mrow 
><mi 
>t</mi><mo 
class="MathClass-rel">=</mo><mn>1</mn></mrow><mrow 
><mi 
>T</mi> </mrow></msubsup 
>  <mfrac><mrow 
><mi 
>&#x2202;</mi></mrow>
<mrow 
><mi 
>&#x2202;</mi><msub><mrow 
><mi 
>&#x03B8;</mi></mrow><mrow 
><mn>1</mn></mrow></msub 
></mrow></mfrac><msub><mrow 
><mi 
>L</mi></mrow><mrow 
><mi 
>k</mi></mrow></msub 
><mrow><mo 
class="MathClass-open">(</mo><mrow><msub><mrow 
><mi 
>U</mi></mrow><mrow 
><mi 
>t</mi></mrow></msub 
></mrow><mo 
class="MathClass-close">)</mo></mrow><mover 
class="stackrel"><mrow 
><mo 
class="MathClass-rel">&#x2192;</mo></mrow><mrow 
><mo 
class="MathClass-op"> P</mo></mrow></mover><mi 
>E</mi> <mfenced separators="" 
open="["  close="]" ><mrow> <mfrac><mrow 
><mi 
>&#x2202;</mi></mrow>
<mrow 
><mi 
>&#x2202;</mi><msub><mrow 
><mi 
>&#x03B8;</mi></mrow><mrow 
><mn>1</mn></mrow></msub 
></mrow></mfrac><msub><mrow 
><mi 
>L</mi></mrow><mrow 
><mi 
>k</mi></mrow></msub 
><mrow><mo 
class="MathClass-open">(</mo><mrow><msub><mrow 
><mi 
>U</mi></mrow><mrow 
><mi 
>t</mi></mrow></msub 
></mrow><mo 
class="MathClass-close">)</mo></mrow></mrow></mfenced> <mo 
class="MathClass-rel">=</mo> <mn>0</mn><mo 
class="MathClass-punc">.</mo>
</math>
<!--l. 1052--><p class="nopar"></p></td><td class="eq-no">(A.1.c)</td></tr></table>
First,
<!--l. 1056--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="display">
             <mfrac><mrow 
><mi 
>&#x2202;</mi></mrow>
<mrow 
><mi 
>&#x2202;</mi><mi 
>&#x03C3;</mi></mrow></mfrac><msub><mrow 
><mi 
>L</mi></mrow><mrow 
><mi 
>k</mi></mrow></msub 
><mrow><mo 
class="MathClass-open">(</mo><mrow><msub><mrow 
><mi 
>U</mi></mrow><mrow 
><mi 
>t</mi></mrow></msub 
></mrow><mo 
class="MathClass-close">)</mo></mrow> <mo 
class="MathClass-rel">=</mo> <mo 
class="MathClass-bin">&#x2212;</mo><mfrac><mrow 
><mn>2</mn><msub><mrow 
><mi 
>&#x03B5;</mi></mrow><mrow 
><mi 
>t</mi></mrow></msub 
></mrow>
<mrow 
><msup><mrow 
><mi 
>&#x03C3;</mi></mrow><mrow 
><mn>2</mn></mrow></msup 
></mrow></mfrac> <mi 
>&#x03C6;</mi> <mfenced separators="" 
open="("  close=")" ><mrow><mfrac><mrow 
><msub><mrow 
><mi 
>&#x03B5;</mi></mrow><mrow 
><mi 
>t</mi></mrow></msub 
></mrow>
<mrow 
><mi 
>&#x03C3;</mi></mrow></mfrac></mrow></mfenced><msubsup><mrow 
><mi 
>L</mi></mrow><mrow 
><mi 
>k</mi></mrow><mrow 
><mi 
>&#x2032;</mi></mrow></msubsup 
><mrow><mo 
class="MathClass-open">(</mo><mrow><mi 
>x</mi></mrow><mo 
class="MathClass-close">)</mo></mrow><msub><mrow 
><mo 
class="MathClass-rel">&#x2223;</mo></mrow><mrow 
>
<mi 
>x</mi><mo 
class="MathClass-rel">=</mo><mn>2</mn><mi 
>&#x03A6;</mi><mfenced separators="" 
open="("  close=")" ><mrow><mfrac><mrow 
><msub><mrow 
><mi 
>&#x03B5;</mi></mrow><mrow 
><mi 
>t</mi></mrow></msub 
></mrow>
<mrow 
><mi 
>&#x03C3;</mi></mrow></mfrac> </mrow></mfenced><mo 
class="MathClass-bin">&#x2212;</mo><mn>1</mn></mrow></msub 
> <mo 
class="MathClass-rel">=</mo> <mo 
class="MathClass-bin">&#x2212;</mo><mfrac><mrow 
><msub><mrow 
><mi 
>&#x03B5;</mi></mrow><mrow 
><mi 
>t</mi></mrow></msub 
></mrow>
<mrow 
><msup><mrow 
><mi 
>&#x03C3;</mi></mrow><mrow 
><mn>2</mn></mrow></msup 
></mrow></mfrac><mi 
>w</mi> <mfenced separators="" 
open="("  close=")" ><mrow><mfrac><mrow 
><msub><mrow 
><mi 
>&#x03B5;</mi></mrow><mrow 
><mi 
>t</mi></mrow></msub 
></mrow>
<mrow 
><mi 
>&#x03C3;</mi></mrow></mfrac></mrow></mfenced><!--mstyle 
class="text"--><mtext >&#x000A0;say</mtext><!--/mstyle--><mo 
class="MathClass-punc">.</mo>
</math>
<!--l. 1061--><p class="nopar">
The law of large numbers yields (<a 
href="#x1-14001r1">A.1.a<!--tex4ht:ref: equationA.1.a --></a>). For (<a 
href="#x1-14002r2">A.1.b<!--tex4ht:ref: equationA.1.b --></a>), define for
<!--l. 1063--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mi 
>r</mi> <mo 
class="MathClass-rel">&#x2265;</mo> <mn>0</mn></math>,
</p><!--l. 1064--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="display">
                             <msub><mrow 
><mi 
>B</mi></mrow><mrow 
><mi 
>r</mi><mo 
class="MathClass-bin">&#x2212;</mo><mn>1</mn></mrow></msub 
> <mo 
class="MathClass-rel">=</mo>   <mfrac><mrow 
><mi 
>&#x2202;</mi></mrow> 
<mrow 
><mi 
>&#x2202;</mi><msub><mrow 
><mi 
>&#x03D5;</mi></mrow><mrow 
><mn>1</mn></mrow></msub 
></mrow></mfrac><msub><mrow 
><mi 
>&#x03B4;</mi></mrow><mrow 
><mi 
>r</mi></mrow></msub 
><mrow><mo 
class="MathClass-open">(</mo><mrow><mi 
>&#x03B8;</mi><mo 
class="MathClass-punc">,</mo><mi 
>&#x03D5;</mi></mrow><mo 
class="MathClass-close">)</mo></mrow><mo 
class="MathClass-punc">,</mo>
</math>
<!--l. 1066--><p class="nopar">
where, setting <!--l. 1067--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><msub><mrow 
><mi 
>&#x03D5;</mi></mrow><mrow 
><mn>0</mn></mrow></msub 
> <mo 
class="MathClass-rel">=</mo> <mo 
class="MathClass-bin">&#x2212;</mo><mn>1</mn></math>,
<!--l. 1067--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><msub><mrow 
><mi 
>&#x03B3;</mi></mrow><mrow 
><mn>0</mn></mrow></msub 
> <mo 
class="MathClass-rel">=</mo> <msub><mrow 
><mi 
>&#x03B8;</mi></mrow><mrow 
><mn>0</mn></mrow></msub 
> <mo 
class="MathClass-rel">=</mo> <mn>1</mn></math>, we
have </p><table class="equation"><tr><td> <a 
  name="x1-14004r2"></a>

<!--l. 1068--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="display">
                   <msub><mrow 
><mi 
>&#x03B4;</mi></mrow><mrow 
><mi 
>r</mi></mrow></msub 
><mrow><mo 
class="MathClass-open">(</mo><mrow><mi 
>&#x03B8;</mi><mo 
class="MathClass-punc">,</mo><mi 
>&#x03D5;</mi></mrow><mo 
class="MathClass-close">)</mo></mrow> <mo 
class="MathClass-rel">=</mo> <msub><mrow 
><mi 
>&#x03B4;</mi></mrow><mrow 
><mi 
>r</mi></mrow></msub 
> <mo 
class="MathClass-rel">=</mo><msubsup><mrow 
> <mo 
class="MathClass-op">&#x2211;</mo>
  </mrow><mrow 
><mi 
>i</mi><mo 
class="MathClass-rel">=</mo><mn>0</mn></mrow><mrow 
><mo 
>min</mo><mrow><mo 
class="MathClass-open">(</mo><mrow><mi 
>r</mi><mo 
class="MathClass-punc">,</mo><mi 
>p</mi></mrow><mo 
class="MathClass-close">)</mo></mrow></mrow></msubsup 
><msub><mrow 
><mi 
>&#x03D5;</mi></mrow><mrow 
>
<mi 
>i</mi></mrow></msub 
><msub><mrow 
><mi 
>&#x03B3;</mi></mrow><mrow 
><mi 
>r</mi><mo 
class="MathClass-bin">&#x2212;</mo><mi 
>i</mi></mrow></msub 
>  <mi 
>r</mi> <mo 
class="MathClass-rel">&#x2265;</mo> <mn>0</mn><mo 
class="MathClass-punc">,</mo>
</math>
<!--l. 1070--><p class="nopar"></p></td><td class="eq-no">(A.2)</td></tr></table>
<table class="equation"><tr><td> <a 
  name="x1-14005r3"></a>
<!--l. 1071--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="display">
                       <msub><mrow 
><mi 
>&#x03B3;</mi></mrow><mrow 
><mi 
>r</mi></mrow></msub 
> <mo 
class="MathClass-rel">=</mo> <mo 
class="MathClass-bin">&#x2212;</mo><msubsup><mrow 
><mo 
class="MathClass-op">&#x2211;</mo>
  </mrow><mrow 
><mi 
>i</mi><mo 
class="MathClass-rel">=</mo><mn>1</mn></mrow><mrow 
><mo 
>min</mo><mrow><mo 
class="MathClass-open">(</mo><mrow><mi 
>r</mi><mo 
class="MathClass-punc">,</mo><mi 
>q</mi></mrow><mo 
class="MathClass-close">)</mo></mrow></mrow></msubsup 
><msub><mrow 
><mi 
>&#x03B3;</mi></mrow><mrow 
>
<mi 
>r</mi><mo 
class="MathClass-bin">&#x2212;</mo><mi 
>i</mi></mrow></msub 
><msub><mrow 
><mi 
>&#x03B8;</mi></mrow><mrow 
><mi 
>i</mi></mrow></msub 
>  <mi 
>r</mi> <mo 
class="MathClass-rel">&#x2265;</mo> <mn>1</mn><mo 
class="MathClass-punc">.</mo>
</math>
<!--l. 1073--><p class="nopar"></p></td><td class="eq-no">(A.3)</td></tr></table>
Obviously <!--l. 1074--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><msub><mrow 
><mi 
>B</mi></mrow><mrow 
><mi 
>r</mi><mo 
class="MathClass-bin">&#x2212;</mo><mn>1</mn></mrow></msub 
> <mo 
class="MathClass-rel">=</mo> <msub><mrow 
><mi 
>&#x03B3;</mi></mrow><mrow 
><mi 
>r</mi><mo 
class="MathClass-bin">&#x2212;</mo><mn>1</mn></mrow></msub 
></math>
when <!--l. 1074--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mi 
>r</mi> <mo 
class="MathClass-rel">&#x2265;</mo> <mn>1</mn></math>.
For <!--l. 1074--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mi 
>r</mi> <mo 
class="MathClass-rel">&#x2265;</mo> <mi 
>q</mi></math>,
from Brockwell and Davis (1991)(<a 
  name="dx1-14006"></a><a 
href="#X1991Brockduch">4</a>), p.107,
<!--l. 1076--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="display">
                       <msub><mrow 
><mi 
>&#x03B3;</mi></mrow><mrow 
><mi 
>r</mi></mrow></msub 
> <mo 
class="MathClass-rel">=</mo><msubsup><mrow 
> <mo 
class="MathClass-op">&#x2211;</mo>
  </mrow><mrow 
><mi 
>i</mi><mo 
class="MathClass-rel">=</mo><mn>1</mn></mrow><mrow 
><mi 
>j</mi></mrow></msubsup 
><msubsup><mrow 
> <mo 
class="MathClass-op">&#x2211;</mo>
  </mrow><mrow 
><mi 
>n</mi><mo 
class="MathClass-rel">=</mo><mn>0</mn></mrow><mrow 
><msub><mrow 
><mi 
>r</mi></mrow><mrow 
><mi 
>i</mi></mrow></msub 
><mo 
class="MathClass-bin">&#x2212;</mo><mn>1</mn></mrow></msubsup 
><msub><mrow 
><mi 
>c</mi></mrow><mrow 
>
<mi 
>i</mi><mi 
>n</mi></mrow></msub 
><msup><mrow 
><mi 
>r</mi></mrow><mrow 
><mi 
>n</mi></mrow></msup 
><msubsup><mrow 
><mi 
>&#x03B1;</mi></mrow><mrow 
>
<mi 
>i</mi></mrow><mrow 
><mo 
class="MathClass-bin">&#x2212;</mo><mi 
>r</mi></mrow></msubsup 
>
</math>
<!--l. 1078--><p class="nopar">
for some constants <!--l. 1079--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><msub><mrow 
><mi 
>c</mi></mrow><mrow 
><mi 
>i</mi><mi 
>n</mi></mrow></msub 
></math>
and where the <!--l. 1079--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><msub><mrow 
><mi 
>&#x03B1;</mi></mrow><mrow 
><mi 
>i</mi></mrow></msub 
></math>&#x2019;s
are the <!--l. 1079--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mi 
>j</mi></math> distinct
roots of <!--l. 1080--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mn>1</mn> <mo 
class="MathClass-bin">+</mo> <msub><mrow 
><mi 
>&#x03B8;</mi></mrow><mrow 
><mn>1</mn></mrow></msub 
><mi 
>z</mi> <mo 
class="MathClass-bin">+</mo> <mo 
class="MathClass-punc">.</mo><mo 
class="MathClass-punc">.</mo><mo 
class="MathClass-punc">.</mo> <mo 
class="MathClass-bin">+</mo> <msub><mrow 
><mi 
>&#x03B8;</mi></mrow><mrow 
><mi 
>q</mi></mrow></msub 
><msup><mrow 
><mi 
>z</mi></mrow><mrow 
><mi 
>q</mi></mrow></msup 
></math>
and <!--l. 1080--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><msub><mrow 
><mi 
>r</mi></mrow><mrow 
><mi 
>i</mi></mrow></msub 
></math> is the

multiplicity of <!--l. 1081--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><msub><mrow 
><mi 
>&#x03B1;</mi></mrow><mrow 
><mi 
>i</mi></mrow></msub 
><mo 
class="MathClass-punc">,</mo> <mi 
>i</mi> <mo 
class="MathClass-rel">=</mo> <mn>1</mn><mo 
class="MathClass-punc">,</mo><mo 
class="MathClass-punc">.</mo><mo 
class="MathClass-punc">.</mo><mo 
class="MathClass-punc">.</mo><mo 
class="MathClass-punc">,</mo><mi 
>j</mi></math>.
Thus, when <!--l. 1081--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mi 
>r</mi> <mo 
class="MathClass-rel">&#x2265;</mo> <mi 
>q</mi> <mo 
class="MathClass-bin">+</mo> <mn>1</mn></math>,
</p><table class="equation"><tr><td> <a 
  name="x1-14007r4"></a>
<!--l. 1082--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="display">
                  <msub><mrow 
><mi 
>B</mi></mrow><mrow 
><mi 
>r</mi><mo 
class="MathClass-bin">&#x2212;</mo><mn>1</mn></mrow></msub 
> <mo 
class="MathClass-rel">=</mo><msubsup><mrow 
> <mo 
class="MathClass-op">&#x2211;</mo>
  </mrow><mrow 
><mi 
>i</mi><mo 
class="MathClass-rel">=</mo><mn>1</mn></mrow><mrow 
><mi 
>j</mi></mrow></msubsup 
><msubsup><mrow 
> <mo 
class="MathClass-op">&#x2211;</mo>
  </mrow><mrow 
><mi 
>n</mi><mo 
class="MathClass-rel">=</mo><mn>0</mn></mrow><mrow 
><msub><mrow 
><mi 
>r</mi></mrow><mrow 
><mi 
>i</mi></mrow></msub 
><mo 
class="MathClass-bin">&#x2212;</mo><mn>1</mn></mrow></msubsup 
><msub><mrow 
><mi 
>c</mi></mrow><mrow 
>
<mi 
>i</mi><mi 
>n</mi></mrow></msub 
><msup><mrow 
><mrow><mo 
class="MathClass-open">(</mo><mrow><mi 
>r</mi> <mo 
class="MathClass-bin">&#x2212;</mo> <mn>1</mn></mrow><mo 
class="MathClass-close">)</mo></mrow></mrow><mrow 
><mi 
>n</mi></mrow></msup 
><msubsup><mrow 
><mi 
>&#x03B1;</mi></mrow><mrow 
>
<mi 
>i</mi></mrow><mrow 
><mo 
class="MathClass-bin">&#x2212;</mo><mi 
>r</mi><mo 
class="MathClass-bin">+</mo><mn>1</mn></mrow></msubsup 
><mo 
class="MathClass-punc">.</mo>
</math>
<!--l. 1084--><p class="nopar"></p></td><td class="eq-no">(A.4)</td></tr></table>
If <!--l. 1085--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mrow><mo 
class="MathClass-open">(</mo><mrow><msub><mrow 
><mi 
>X</mi></mrow><mrow 
><mi 
>t</mi></mrow></msub 
><mo 
class="MathClass-punc">,</mo><mi 
>t</mi> <mo 
class="MathClass-rel">&#x2208;</mo> <mi mathvariant="double-struck">&#x2124;</mi></mrow><mo 
class="MathClass-close">)</mo></mrow></math> is a weak stationary
process such that <!--l. 1086--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><!--mstyle 
class="text"--><mtext class="textrm" mathvariant="normal" >Cov</mtext><!--/mstyle--><mrow><mo 
class="MathClass-open">(</mo><mrow><msub><mrow 
><mi 
>X</mi></mrow><mrow 
><mi 
>t</mi></mrow></msub 
><mo 
class="MathClass-punc">,</mo><msub><mrow 
><mi 
>X</mi></mrow><mrow 
><mi 
>t</mi><mo 
class="MathClass-bin">+</mo><mi 
>h</mi></mrow></msub 
></mrow><mo 
class="MathClass-close">)</mo></mrow> <mo 
class="MathClass-rel">&#x2192;</mo> <mn>0</mn></math>
as <!--l. 1086--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mi 
>h</mi> <mo 
class="MathClass-rel">&#x2192;</mo><mi 
>&#x221E;</mi></math>, then
<!--l. 1087--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><msub><mrow 
><mover accent="false" 
class="mml-overline"><mrow><mi 
>X</mi></mrow><mo 
accent="true">&#x00AF;</mo></mover></mrow><mrow 
><mi 
>T</mi></mrow></msub 
><mover 
class="stackrel"><mrow 
><mo 
class="MathClass-rel">&#x2192;</mo></mrow><mrow 
><mo 
class="MathClass-op">P</mo></mrow></mover><mi 
>E</mi><mrow><mo 
class="MathClass-open">(</mo><mrow><msub><mrow 
><mi 
>X</mi></mrow><mrow 
><mi 
>t</mi></mrow></msub 
></mrow><mo 
class="MathClass-close">)</mo></mrow></math>. We apply this
result with <!--l. 1088--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><msub><mrow 
><mi 
>X</mi></mrow><mrow 
><mi 
>t</mi></mrow></msub 
> <mo 
class="MathClass-rel">=</mo> <mi 
>&#x2202;</mi><msub><mrow 
><mi 
>L</mi></mrow><mrow 
><mi 
>k</mi></mrow></msub 
><mrow><mo 
class="MathClass-open">(</mo><mrow><msub><mrow 
><mi 
>U</mi></mrow><mrow 
><mi 
>t</mi></mrow></msub 
></mrow><mo 
class="MathClass-close">)</mo></mrow><mo 
class="MathClass-bin">&#x2215;</mo><mi 
>&#x2202;</mi><msub><mrow 
><mi 
>&#x03D5;</mi></mrow><mrow 
><mn>1</mn></mrow></msub 
></math>.
From (<a 
href="#x1-7001r1">1<!--tex4ht:ref: equation1.1 --></a>) and (<a 
href="#x1-8001r1">1<!--tex4ht:ref: equation2.1 --></a>), we have <table class="equation"><tr><td> <a 
  name="x1-14008r5"></a>
<!--l. 1090--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="display">
      <msub><mrow 
><mi 
>X</mi></mrow><mrow 
><mi 
>t</mi></mrow></msub 
> <mo 
class="MathClass-rel">=</mo> <mfrac><mrow 
><mn>1</mn></mrow> 
<mrow 
><mi 
>&#x03C3;</mi></mrow></mfrac><mi 
>w</mi> <mfenced separators="" 
open="("  close=")" ><mrow><mfrac><mrow 
><msub><mrow 
><mi 
>&#x03B5;</mi></mrow><mrow 
><mi 
>t</mi></mrow></msub 
></mrow>
<mrow 
><mi 
>&#x03C3;</mi></mrow></mfrac></mrow></mfenced>  <mfrac><mrow 
><mi 
>&#x2202;</mi></mrow> 
<mrow 
><mi 
>&#x2202;</mi><msub><mrow 
><mi 
>&#x03D5;</mi></mrow><mrow 
><mn>1</mn></mrow></msub 
></mrow></mfrac><msub><mrow 
><mi 
>&#x03B5;</mi></mrow><mrow 
><mi 
>t</mi></mrow></msub 
> <mo 
class="MathClass-rel">=</mo> <mo 
class="MathClass-bin">&#x2212;</mo><mfrac><mrow 
><mn>1</mn></mrow>
<mrow 
><mi 
>&#x03C3;</mi></mrow></mfrac><mi 
>w</mi> <mfenced separators="" 
open="("  close=")" ><mrow><mfrac><mrow 
><msub><mrow 
><mi 
>&#x03B5;</mi></mrow><mrow 
><mi 
>t</mi></mrow></msub 
></mrow>
<mrow 
><mi 
>&#x03C3;</mi></mrow></mfrac></mrow></mfenced> <mfenced separators="" 
open="("  close=")" ><mrow><msub><mrow 
><mi 
>Y</mi> </mrow><mrow 
><mi 
>t</mi><mo 
class="MathClass-bin">&#x2212;</mo><mn>1</mn></mrow></msub 
> <mo 
class="MathClass-bin">&#x2212;</mo><msubsup><mrow 
><mo 
class="MathClass-op">&#x2211;</mo>
  </mrow><mrow 
><mi 
>r</mi><mo 
class="MathClass-rel">=</mo><mn>0</mn></mrow><mrow 
><mi 
>&#x221E;</mi></mrow></msubsup 
><mfenced separators="" 
open="("  close=")" ><mrow> <mfrac><mrow 
><mi 
>&#x2202;</mi></mrow>
<mrow 
><mi 
>&#x2202;</mi><msub><mrow 
><mi 
>&#x03D5;</mi></mrow><mrow 
><mn>1</mn></mrow></msub 
></mrow></mfrac><msub><mrow 
><mi 
>&#x03B4;</mi></mrow><mrow 
><mi 
>r</mi></mrow></msub 
></mrow></mfenced> <mi 
>&#x03B8;</mi><!--mstyle 
class="text"--><mtext >T</mtext><!--/mstyle--><msubsup><mrow 
><mi 
>Y</mi> </mrow><mrow 
><mi 
>t</mi><mo 
class="MathClass-bin">&#x2212;</mo><mn>1</mn><mo 
class="MathClass-bin">&#x2212;</mo><mi 
>r</mi></mrow><mrow 
><mrow><mo 
class="MathClass-open">(</mo><mrow><mi 
>q</mi></mrow><mo 
class="MathClass-close">)</mo></mrow></mrow></msubsup 
></mrow></mfenced> <mo 
class="MathClass-punc">.</mo>
</math>
<!--l. 1093--><p class="nopar"></p></td><td class="eq-no">(A.5)</td></tr></table>
Thus <!--l. 1094--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mi 
>E</mi><mrow><mo 
class="MathClass-open">(</mo><mrow><msub><mrow 
><mi 
>X</mi></mrow><mrow 
><mi 
>t</mi></mrow></msub 
></mrow><mo 
class="MathClass-close">)</mo></mrow> <mo 
class="MathClass-rel">=</mo> <mn>0</mn></math>.
Moreover, <!--l. 1094--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><!--mstyle 
class="text"--><mtext class="textrm" mathvariant="normal" >Var</mtext><!--/mstyle--><mrow><mo 
class="MathClass-open">(</mo><mrow><msub><mrow 
><mi 
>X</mi></mrow><mrow 
><mi 
>t</mi></mrow></msub 
></mrow><mo 
class="MathClass-close">)</mo></mrow> <mo 
class="MathClass-rel">&#x003C;</mo> <mi 
>&#x221E;</mi></math>
as shown in Appendix C and it is seen by Lemma C.1 that
<!--l. 1095--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><!--mstyle 
class="text"--><mtext class="textrm" mathvariant="normal" >Cov</mtext><!--/mstyle--><mrow><mo 
class="MathClass-open">(</mo><mrow><msub><mrow 
><mi 
>X</mi></mrow><mrow 
><mi 
>t</mi></mrow></msub 
><mo 
class="MathClass-punc">,</mo><msub><mrow 
><mi 
>X</mi></mrow><mrow 
><mi 
>t</mi><mo 
class="MathClass-bin">+</mo><mi 
>h</mi></mrow></msub 
></mrow><mo 
class="MathClass-close">)</mo></mrow></math> depends only
on <!--l. 1095--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mi 
>h</mi></math>. Thus
<!--l. 1095--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mrow><mo 
class="MathClass-open">(</mo><mrow><msub><mrow 
><mi 
>X</mi></mrow><mrow 
><mi 
>t</mi></mrow></msub 
><mo 
class="MathClass-punc">,</mo><mi 
>t</mi> <mo 
class="MathClass-rel">&#x2208;</mo> <mi mathvariant="double-struck">&#x2124;</mi></mrow><mo 
class="MathClass-close">)</mo></mrow></math> is stationary.
We show that <!--l. 1096--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><!--mstyle 
class="text"--><mtext class="textrm" mathvariant="normal" >Cov</mtext><!--/mstyle--><mrow><mo 
class="MathClass-open">(</mo><mrow><msub><mrow 
><mi 
>X</mi></mrow><mrow 
><mi 
>t</mi></mrow></msub 
><mo 
class="MathClass-punc">,</mo><msub><mrow 
><mi 
>X</mi></mrow><mrow 
><mi 
>t</mi><mo 
class="MathClass-bin">+</mo><mi 
>h</mi></mrow></msub 
></mrow><mo 
class="MathClass-close">)</mo></mrow> <mo 
class="MathClass-rel">&#x2192;</mo> <mn>0</mn></math>
as <!--l. 1096--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mi 
>h</mi> <mo 
class="MathClass-rel">&#x2192;</mo><mi 
>&#x221E;</mi></math>. From
(<a 
href="#x1-14008r5">A.5<!--tex4ht:ref: equationA.5 --></a>), for <!--l. 1096--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mi 
>h</mi></math>
large, <!--l. 1097--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mo 
class="MathClass-rel">&#x2223;</mo><mi 
>C</mi><mi 
>o</mi><mi 
>v</mi><mrow><mo 
class="MathClass-open">(</mo><mrow><msub><mrow 
><mi 
>X</mi></mrow><mrow 
><mi 
>t</mi></mrow></msub 
><mo 
class="MathClass-punc">,</mo><msub><mrow 
><mi 
>X</mi></mrow><mrow 
><mi 
>t</mi><mo 
class="MathClass-bin">+</mo><mi 
>h</mi></mrow></msub 
></mrow><mo 
class="MathClass-close">)</mo></mrow><mo 
class="MathClass-rel">&#x2223;</mo> <mo 
class="MathClass-rel">=</mo> <mo 
class="MathClass-rel">&#x2223;</mo><msub><mrow 
><mi 
>d</mi></mrow><mrow 
><mn>1</mn></mrow></msub 
><mo 
class="MathClass-rel">&#x2223;</mo><mi 
>E</mi><mo 
class="MathClass-rel">&#x2223;</mo><mi 
>w</mi><mrow><mo 
class="MathClass-open">(</mo><mrow><msub><mrow 
><mi 
>&#x03B5;</mi></mrow><mrow 
><mi 
>t</mi><mo 
class="MathClass-bin">+</mo><mi 
>h</mi></mrow></msub 
><mo 
class="MathClass-bin">&#x2215;</mo><mi 
>&#x03C3;</mi></mrow><mo 
class="MathClass-close">)</mo></mrow><mo 
class="MathClass-rel">&#x2223;</mo><mo 
class="MathClass-bin">&#x2215;</mo><mi 
>&#x03C3;</mi></math>,
where <table class="equation"><tr><td> <a 
  name="x1-14009r6"></a>

<!--l. 1098--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="display"><msub><mrow 
>
<mi 
>d</mi></mrow><mrow 
><mn>1</mn></mrow></msub 
> <mo 
class="MathClass-rel">=</mo> <mi 
>E</mi> <mfenced separators="" 
open="["  close="]" ><mrow><mfrac><mrow 
><mn>1</mn></mrow>
<mrow 
><mi 
>&#x03C3;</mi></mrow></mfrac><mi 
>w</mi> <mfenced separators="" 
open="("  close=")" ><mrow><mfrac><mrow 
><msub><mrow 
><mi 
>&#x03B5;</mi></mrow><mrow 
><mi 
>t</mi></mrow></msub 
></mrow>
<mrow 
><mi 
>&#x03C3;</mi></mrow></mfrac></mrow></mfenced> <mfenced separators="" 
open="{"  close="}" ><mrow><msub><mrow 
><mi 
>Y</mi> </mrow><mrow 
><mi 
>t</mi><mo 
class="MathClass-bin">&#x2212;</mo><mn>1</mn></mrow></msub 
> <mo 
class="MathClass-bin">&#x2212;</mo><msubsup><mrow 
><mo 
class="MathClass-op">&#x2211;</mo>
  </mrow><mrow 
><mi 
>r</mi><mo 
class="MathClass-rel">=</mo><mn>0</mn></mrow><mrow 
><mi 
>&#x221E;</mi></mrow></msubsup 
><msub><mrow 
><mi 
>B</mi></mrow><mrow 
>
<mi 
>r</mi><mo 
class="MathClass-bin">&#x2212;</mo><mn>1</mn></mrow></msub 
><mi 
>&#x03B8;</mi><!--mstyle 
class="text"--><mtext >T</mtext><!--/mstyle--><msubsup><mrow 
><mi 
>Y</mi> </mrow><mrow 
>
<mi 
>t</mi><mo 
class="MathClass-bin">&#x2212;</mo><mn>1</mn><mo 
class="MathClass-bin">&#x2212;</mo><mi 
>r</mi></mrow><mrow 
><mrow><mo 
class="MathClass-open">(</mo><mrow><mi 
>q</mi></mrow><mo 
class="MathClass-close">)</mo></mrow></mrow></msubsup 
></mrow></mfenced> <mfenced separators="" 
open="{"  close="}" ><mrow><msub><mrow 
><mi 
>Y</mi> </mrow><mrow 
>
<mi 
>t</mi><mo 
class="MathClass-bin">+</mo><mi 
>h</mi><mo 
class="MathClass-bin">&#x2212;</mo><mn>1</mn></mrow></msub 
> <mo 
class="MathClass-bin">&#x2212;</mo><msubsup><mrow 
><mo 
class="MathClass-op">&#x2211;</mo>
  </mrow><mrow 
><mi 
>r</mi><mo 
class="MathClass-rel">=</mo><mn>0</mn></mrow><mrow 
><mi 
>&#x221E;</mi></mrow></msubsup 
><msub><mrow 
><mi 
>B</mi></mrow><mrow 
>
<mi 
>r</mi><mo 
class="MathClass-bin">&#x2212;</mo><mn>1</mn></mrow></msub 
><mi 
>&#x03B8;</mi><!--mstyle 
class="text"--><mtext >T</mtext><!--/mstyle--><msubsup><mrow 
><mi 
>Y</mi> </mrow><mrow 
>
<mi 
>t</mi><mo 
class="MathClass-bin">+</mo><mi 
>h</mi><mo 
class="MathClass-bin">&#x2212;</mo><mn>1</mn><mo 
class="MathClass-bin">&#x2212;</mo><mi 
>r</mi></mrow><mrow 
><mrow><mo 
class="MathClass-open">(</mo><mrow><mi 
>q</mi></mrow><mo 
class="MathClass-close">)</mo></mrow></mrow></msubsup 
></mrow></mfenced></mrow></mfenced> <mo 
class="MathClass-punc">.</mo>
</math>
<!--l. 1107--><p class="nopar"></p></td><td class="eq-no">(A.6)</td></tr></table>
But, <!--l. 1109--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mo 
class="MathClass-rel">&#x2223;</mo><msub><mrow 
><mi 
>d</mi></mrow><mrow 
><mn>1</mn></mrow></msub 
><mo 
class="MathClass-rel">&#x2223;</mo><mo 
class="MathClass-rel">&#x2264;</mo> <msub><mrow 
><mi 
>d</mi></mrow><mrow 
><mn>2</mn></mrow></msub 
> <mo 
class="MathClass-bin">+</mo><msubsup><mrow 
> <mo 
class="MathClass-op">&#x2211;</mo>
  </mrow><mrow 
><mi 
>j</mi><mo 
class="MathClass-rel">=</mo><mn>1</mn></mrow><mrow 
><mi 
>q</mi></mrow></msubsup 
><mo 
class="MathClass-rel">&#x2223;</mo><msub><mrow 
><mi 
>&#x03B8;</mi></mrow><mrow 
>
<mi 
>j</mi></mrow></msub 
><mo 
class="MathClass-rel">&#x2223;</mo><mrow><mo 
class="MathClass-open">(</mo><mrow><msub><mrow 
><mi 
>d</mi></mrow><mrow 
><mn>3</mn><mi 
>j</mi></mrow></msub 
> <mo 
class="MathClass-bin">+</mo> <msub><mrow 
><mi 
>d</mi></mrow><mrow 
><mn>4</mn><mi 
>j</mi></mrow></msub 
></mrow><mo 
class="MathClass-close">)</mo></mrow> <mo 
class="MathClass-bin">+</mo><msubsup><mrow 
> <mo 
class="MathClass-op">&#x2211;</mo>
</mrow><mrow 
><mi 
>i</mi><mo 
class="MathClass-rel">=</mo><mn>1</mn></mrow><mrow 
><mi 
>q</mi></mrow></msubsup 
><msubsup><mrow 
> <mo 
class="MathClass-op">&#x2211;</mo></mrow><mrow 
>
<mi 
>j</mi><mo 
class="MathClass-rel">=</mo><mn>1</mn></mrow><mrow 
><mi 
>q</mi></mrow></msubsup 
><mo 
class="MathClass-rel">&#x2223;</mo><msub><mrow 
><mi 
>&#x03B8;</mi></mrow><mrow 
>
<mi 
>i</mi></mrow></msub 
><msub><mrow 
><mi 
>&#x03B8;</mi></mrow><mrow 
><mi 
>j</mi></mrow></msub 
><mo 
class="MathClass-rel">&#x2223;</mo><msub><mrow 
><mi 
>d</mi></mrow><mrow 
><mn>5</mn><mi 
>i</mi><mi 
>j</mi></mrow></msub 
></math>
where
<!--l. 1111--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="display">
    <msub><mrow 
><mi 
>d</mi></mrow><mrow 
><mn>2</mn></mrow></msub 
> <mo 
class="MathClass-rel">=</mo> <mfenced separators="" 
open="|"  close="|" ><mrow><mi 
>E</mi> <mfenced separators="" 
open="["  close="]" ><mrow><mfrac><mrow 
><mn>1</mn></mrow>
<mrow 
><mi 
>&#x03C3;</mi></mrow></mfrac><mi 
>w</mi> <mfenced separators="" 
open="("  close=")" ><mrow><mfrac><mrow 
><msub><mrow 
><mi 
>&#x03B5;</mi></mrow><mrow 
><mi 
>t</mi></mrow></msub 
></mrow>
<mrow 
><mi 
>&#x03C3;</mi></mrow></mfrac></mrow></mfenced><msub><mrow 
><mi 
>Y</mi> </mrow><mrow 
><mi 
>t</mi><mo 
class="MathClass-bin">&#x2212;</mo><mn>1</mn></mrow></msub 
><msub><mrow 
><mi 
>Y</mi> </mrow><mrow 
><mi 
>t</mi><mo 
class="MathClass-bin">+</mo><mi 
>h</mi><mo 
class="MathClass-bin">&#x2212;</mo><mn>1</mn></mrow></msub 
></mrow></mfenced></mrow></mfenced> <mo 
class="MathClass-punc">,</mo> <msub><mrow 
><mi 
>d</mi></mrow><mrow 
><mn>3</mn><mi 
>j</mi></mrow></msub 
> <mo 
class="MathClass-rel">=</mo><msubsup><mrow 
> <mo 
class="MathClass-op">&#x2211;</mo>
  </mrow><mrow 
><mi 
>r</mi><mo 
class="MathClass-rel">=</mo><mn>0</mn></mrow><mrow 
><mi 
>&#x221E;</mi></mrow></msubsup 
><mfenced separators="" 
open="|"  close="|" ><mrow><msub><mrow 
><mi 
>B</mi></mrow><mrow 
>
<mi 
>r</mi><mo 
class="MathClass-bin">&#x2212;</mo><mn>1</mn></mrow></msub 
><mi 
>E</mi> <mfenced separators="" 
open="["  close="]" ><mrow><mfrac><mrow 
><mn>1</mn></mrow>
<mrow 
><mi 
>&#x03C3;</mi></mrow></mfrac><mi 
>w</mi> <mfenced separators="" 
open="("  close=")" ><mrow><mfrac><mrow 
><msub><mrow 
><mi 
>&#x03B5;</mi></mrow><mrow 
><mi 
>t</mi></mrow></msub 
></mrow>
<mrow 
><mi 
>&#x03C3;</mi></mrow></mfrac></mrow></mfenced><msub><mrow 
><mi 
>Y</mi> </mrow><mrow 
><mi 
>t</mi><mo 
class="MathClass-bin">&#x2212;</mo><mi 
>r</mi><mo 
class="MathClass-bin">&#x2212;</mo><mi 
>j</mi></mrow></msub 
><msub><mrow 
><mi 
>Y</mi> </mrow><mrow 
><mi 
>t</mi><mo 
class="MathClass-bin">+</mo><mi 
>h</mi><mo 
class="MathClass-bin">&#x2212;</mo><mn>1</mn></mrow></msub 
></mrow></mfenced></mrow></mfenced> <mo 
class="MathClass-punc">,</mo>
</math>
<!--l. 1116--><p class="nopar">
</p><!--l. 1117--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="display">
                  <msub><mrow 
><mi 
>d</mi></mrow><mrow 
><mn>4</mn><mi 
>j</mi></mrow></msub 
> <mo 
class="MathClass-rel">=</mo><msubsup><mrow 
> <mo 
class="MathClass-op">&#x2211;</mo>
  </mrow><mrow 
><mi 
>r</mi><mo 
class="MathClass-rel">=</mo><mn>0</mn></mrow><mrow 
><mi 
>&#x221E;</mi></mrow></msubsup 
><mfenced separators="" 
open="|"  close="|" ><mrow><msub><mrow 
><mi 
>B</mi></mrow><mrow 
>
<mi 
>r</mi><mo 
class="MathClass-bin">&#x2212;</mo><mn>1</mn></mrow></msub 
><mi 
>E</mi> <mfenced separators="" 
open="["  close="]" ><mrow><mfrac><mrow 
><mn>1</mn></mrow>
<mrow 
><mi 
>&#x03C3;</mi></mrow></mfrac><mi 
>w</mi> <mfenced separators="" 
open="("  close=")" ><mrow><mfrac><mrow 
><msub><mrow 
><mi 
>&#x03B5;</mi></mrow><mrow 
><mi 
>t</mi></mrow></msub 
></mrow>
<mrow 
><mi 
>&#x03C3;</mi></mrow></mfrac></mrow></mfenced><msub><mrow 
><mi 
>Y</mi> </mrow><mrow 
><mi 
>t</mi><mo 
class="MathClass-bin">&#x2212;</mo><mn>1</mn></mrow></msub 
><msub><mrow 
><mi 
>Y</mi> </mrow><mrow 
><mi 
>t</mi><mo 
class="MathClass-bin">+</mo><mi 
>h</mi><mo 
class="MathClass-bin">&#x2212;</mo><mi 
>r</mi><mo 
class="MathClass-bin">&#x2212;</mo><mi 
>j</mi></mrow></msub 
></mrow></mfenced></mrow></mfenced>
</math>
<!--l. 1120--><p class="nopar">
and

</p><!--l. 1122--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="display">
         <msub><mrow 
><mi 
>d</mi></mrow><mrow 
><mn>5</mn><mi 
>i</mi><mi 
>j</mi></mrow></msub 
> <mo 
class="MathClass-rel">=</mo><msubsup><mrow 
> <mo 
class="MathClass-op">&#x2211;</mo>
  </mrow><mrow 
><mi 
>r</mi><mo 
class="MathClass-rel">=</mo><mn>0</mn></mrow><mrow 
><mi 
>&#x221E;</mi></mrow></msubsup 
><msubsup><mrow 
><mo 
class="MathClass-op">&#x2211;</mo>
  </mrow><mrow 
><msup><mrow 
><mi 
>r</mi></mrow><mrow 
><mi 
>&#x2032;</mi></mrow></msup 
><mo 
class="MathClass-rel">=</mo><mn>1</mn></mrow><mrow 
><mi 
>&#x221E;</mi></mrow></msubsup 
><mfenced separators="" 
open="|"  close="|" ><mrow><msub><mrow 
><mi 
>B</mi></mrow><mrow 
>
<mi 
>r</mi><mo 
class="MathClass-bin">&#x2212;</mo><mn>1</mn></mrow></msub 
><msub><mrow 
><mi 
>B</mi></mrow><mrow 
><msup><mrow 
><mi 
>r</mi></mrow><mrow 
><mi 
>&#x2032;</mi></mrow></msup 
><mo 
class="MathClass-bin">&#x2212;</mo><mn>1</mn></mrow></msub 
><mi 
>E</mi> <mfenced separators="" 
open="["  close="]" ><mrow><mfrac><mrow 
><mn>1</mn></mrow>
<mrow 
><mi 
>&#x03C3;</mi></mrow></mfrac><mi 
>w</mi> <mfenced separators="" 
open="("  close=")" ><mrow><mfrac><mrow 
><msub><mrow 
><mi 
>&#x03B5;</mi></mrow><mrow 
><mi 
>t</mi></mrow></msub 
></mrow>
<mrow 
><mi 
>&#x03C3;</mi></mrow></mfrac></mrow></mfenced><msub><mrow 
><mi 
>Y</mi> </mrow><mrow 
><mi 
>t</mi><mo 
class="MathClass-bin">&#x2212;</mo><mi 
>r</mi><mo 
class="MathClass-bin">&#x2212;</mo><mi 
>i</mi></mrow></msub 
><msub><mrow 
><mi 
>Y</mi> </mrow><mrow 
><mi 
>t</mi><mo 
class="MathClass-bin">+</mo><mi 
>h</mi><mo 
class="MathClass-bin">&#x2212;</mo><msup><mrow 
><mi 
>r</mi></mrow><mrow 
><mi 
>&#x2032;</mi></mrow></msup 
><mo 
class="MathClass-bin">&#x2212;</mo><mi 
>j</mi></mrow></msub 
></mrow></mfenced></mrow></mfenced> <mo 
class="MathClass-punc">.</mo>
</math>
<!--l. 1126--><p class="nopar">
It can be shown that <!--l. 1127--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><msub><mrow 
><mi 
>d</mi></mrow><mrow 
><mn>2</mn></mrow></msub 
></math>,
<!--l. 1127--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><msub><mrow 
><mi 
>d</mi></mrow><mrow 
><mn>3</mn><mi 
>j</mi></mrow></msub 
></math>,
<!--l. 1127--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><msub><mrow 
><mi 
>d</mi></mrow><mrow 
><mn>4</mn><mi 
>j</mi></mrow></msub 
></math> and
<!--l. 1127--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><msub><mrow 
><mi 
>d</mi></mrow><mrow 
><mn>5</mn><mi 
>i</mi><mi 
>j</mi></mrow></msub 
> <mo 
class="MathClass-rel">&#x2192;</mo> <mn>0</mn></math> when
<!--l. 1128--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mi 
>h</mi> <mo 
class="MathClass-rel">&#x2192;</mo><mi 
>&#x221E;</mi></math>. Proof
for <!--l. 1128--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><msub><mrow 
><mi 
>d</mi></mrow><mrow 
><mn>4</mn><mi 
>j</mi></mrow></msub 
></math>,
which is typical, is sketched in Appendix D. This yields (<a 
href="#x1-14002r2">A.1.b<!--tex4ht:ref: equationA.1.b --></a>).
<br class="newline" />
<br class="newline" />As for (<a 
href="#x1-14003r3">A.1.c<!--tex4ht:ref: equationA.1.c --></a>), let <!--l. 1132--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><msub><mrow 
><mi 
>A</mi></mrow><mrow 
><mi 
>r</mi></mrow></msub 
> <mo 
class="MathClass-rel">=</mo>  <mfrac><mrow 
><mi 
>&#x2202;</mi></mrow> 
<mrow 
><mi 
>&#x2202;</mi><msub><mrow 
><mi 
>&#x03B8;</mi></mrow><mrow 
><mn>1</mn></mrow></msub 
></mrow></mfrac><msub><mrow 
><mi 
>&#x03B4;</mi></mrow><mrow 
><mi 
>r</mi></mrow></msub 
><mrow><mo 
class="MathClass-open">(</mo><mrow><mi 
>&#x03B8;</mi><mo 
class="MathClass-punc">,</mo><mi 
>&#x03D5;</mi></mrow><mo 
class="MathClass-close">)</mo></mrow></math>. From
(<a 
href="#x1-14005r3">A.3<!--tex4ht:ref: equationA.3 --></a>), we obtain, for <!--l. 1133--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mi 
>r</mi> <mo 
class="MathClass-rel">&#x2265;</mo> <mi 
>q</mi></math>,
the system
</p><!--l. 1134--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="display">
<mfenced separators="" 
open="{"  close="" ><mrow><mtable  align="axis"  
equalrows="false" equalcolumns="false" class="array"><mtr><mtd 
class="array"  columnalign="center"><msubsup><mrow 
><mi 
>&#x03B3;</mi></mrow><mrow 
><mi 
>r</mi></mrow><mrow 
><mi 
>&#x2032;</mi></mrow></msubsup 
> <mo 
class="MathClass-bin">+</mo> <msub><mrow 
><mi 
>&#x03B8;</mi></mrow><mrow 
>
<mn>1</mn></mrow></msub 
><msubsup><mrow 
><mi 
>&#x03B3;</mi></mrow><mrow 
><mi 
>r</mi><mo 
class="MathClass-bin">&#x2212;</mo><mn>1</mn></mrow><mrow 
><mi 
>&#x2032;</mi></mrow></msubsup 
> <mo 
class="MathClass-bin">+</mo> <mo 
class="MathClass-punc">.</mo><mo 
class="MathClass-punc">.</mo><mo 
class="MathClass-punc">.</mo> <mo 
class="MathClass-bin">+</mo> <msub><mrow 
><mi 
>&#x03B8;</mi></mrow><mrow 
>
<mi 
>q</mi></mrow></msub 
><msubsup><mrow 
><mi 
>&#x03B3;</mi></mrow><mrow 
><mi 
>r</mi><mo 
class="MathClass-bin">&#x2212;</mo><mi 
>q</mi></mrow><mrow 
><mi 
>&#x2032;</mi></mrow></msubsup 
> <mo 
class="MathClass-rel">=</mo> <mo 
class="MathClass-bin">&#x2212;</mo><msub><mrow 
><mi 
>&#x03B3;</mi></mrow><mrow 
>
<mi 
>r</mi><mo 
class="MathClass-bin">&#x2212;</mo><mn>1</mn></mrow></msub 
></mtd>
</mtr><mtr><mtd 
class="array"  columnalign="center">   <msub><mrow 
><mi 
>&#x03B3;</mi></mrow><mrow 
><mi 
>r</mi></mrow></msub 
> <mo 
class="MathClass-bin">+</mo> <msub><mrow 
><mi 
>&#x03B8;</mi></mrow><mrow 
><mn>1</mn></mrow></msub 
><msub><mrow 
><mi 
>&#x03B3;</mi></mrow><mrow 
><mi 
>r</mi><mo 
class="MathClass-bin">&#x2212;</mo><mn>1</mn></mrow></msub 
> <mo 
class="MathClass-bin">+</mo> <mo 
class="MathClass-punc">.</mo><mo 
class="MathClass-punc">.</mo><mo 
class="MathClass-punc">.</mo> <mo 
class="MathClass-bin">+</mo> <msub><mrow 
><mi 
>&#x03B8;</mi></mrow><mrow 
><mi 
>q</mi></mrow></msub 
><msub><mrow 
><mi 
>&#x03B3;</mi></mrow><mrow 
><mi 
>r</mi><mo 
class="MathClass-bin">&#x2212;</mo><mi 
>q</mi></mrow></msub 
> <mo 
class="MathClass-rel">=</mo> <mn>0</mn>    </mtd></mtr><!--c--></mtable>                                           </mrow></mfenced>
</math>
<!--l. 1141--><p class="nopar">
from which we find

</p><!--l. 1143--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="display">
<mn>0</mn> <mo 
class="MathClass-rel">=</mo><msubsup><mrow 
> <mo 
class="MathClass-op">&#x2211;</mo>
  </mrow><mrow 
><mi 
>j</mi><mo 
class="MathClass-rel">=</mo><mn>0</mn></mrow><mrow 
><mi 
>q</mi></mrow></msubsup 
><msub><mrow 
><mi 
>&#x03B8;</mi></mrow><mrow 
>
<mi 
>j</mi></mrow></msub 
> <mfenced separators="" 
open="("  close=")" ><mrow><mo 
class="MathClass-bin">&#x2212;</mo><msubsup><mrow 
><mo 
class="MathClass-op">&#x2211;</mo>
  </mrow><mrow 
><mi 
>i</mi><mo 
class="MathClass-rel">=</mo><mn>0</mn></mrow><mrow 
><mi 
>q</mi></mrow></msubsup 
><msub><mrow 
><mi 
>&#x03B8;</mi></mrow><mrow 
>
<mi 
>i</mi></mrow></msub 
><msubsup><mrow 
><mi 
>&#x03B3;</mi></mrow><mrow 
><mi 
>r</mi><mo 
class="MathClass-bin">&#x2212;</mo><mi 
>j</mi><mo 
class="MathClass-bin">&#x2212;</mo><mi 
>i</mi><mo 
class="MathClass-bin">+</mo><mn>1</mn></mrow><mrow 
><mi 
>&#x2032;</mi></mrow></msubsup 
></mrow></mfenced> <mo 
class="MathClass-rel">=</mo><msubsup><mrow 
> <mo 
class="MathClass-op">&#x2211;</mo>
</mrow><mrow 
><mi 
>h</mi><mo 
class="MathClass-rel">=</mo><mn>0</mn></mrow><mrow 
><mn>2</mn><mi 
>q</mi></mrow></msubsup 
><msub><mrow 
><mi 
>a</mi></mrow><mrow 
>
<mi 
>h</mi></mrow></msub 
><msubsup><mrow 
><mi 
>&#x03B3;</mi></mrow><mrow 
><mi 
>r</mi><mo 
class="MathClass-bin">&#x2212;</mo><mi 
>h</mi><mo 
class="MathClass-bin">+</mo><mn>1</mn></mrow><mrow 
><mi 
>&#x2032;</mi></mrow></msubsup 
><!--mstyle 
class="text"--><mtext >&#x000A0;where&#x000A0;</mtext><!--/mstyle--><msub><mrow 
><mi 
>a</mi></mrow><mrow 
>
<mi 
>h</mi></mrow></msub 
> <mo 
class="MathClass-rel">=</mo><msub><mrow 
> <mo 
class="MathClass-op">&#x2211;</mo>
   </mrow><mrow 
><mfrac linethickness="0"><mrow> <mi 
>i</mi><mo 
class="MathClass-bin">+</mo><mi 
>j</mi><mo 
class="MathClass-rel">=</mo><mi 
>h</mi></mrow>
<mrow><mn>0</mn><mo 
class="MathClass-rel">&#x2264;</mo><mi 
>i</mi><mo 
class="MathClass-punc">,</mo><mi 
>j</mi><mo 
class="MathClass-rel">&#x2264;</mo><mi 
>q</mi></mrow></mfrac> </mrow></msub 
><msub><mrow 
><mi 
>&#x03B8;</mi></mrow><mrow 
><mi 
>i</mi></mrow></msub 
><msub><mrow 
><mi 
>&#x03B8;</mi></mrow><mrow 
><mi 
>j</mi></mrow></msub 
><mo 
class="MathClass-punc">,</mo> <mi 
>&#x2200;</mi><mi 
>r</mi> <mo 
class="MathClass-rel">&#x2265;</mo> <mn>2</mn><mi 
>q</mi><mo 
class="MathClass-bin">&#x2212;</mo><mn>1</mn><mo 
class="MathClass-punc">.</mo>
</math>
<!--l. 1147--><p class="nopar">
Again from Brockwell and Davis (1991)(<a 
  name="dx1-14010"></a><a 
href="#X1991Brockduch">4</a>), p.107, we have, for some constants
<!--l. 1149--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><msub><mrow 
><mi 
>d</mi></mrow><mrow 
><mi 
>i</mi><mi 
>n</mi></mrow></msub 
></math>
</p><!--l. 1150--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="display">
                       <msubsup><mrow 
><mi 
>&#x03B3;</mi></mrow><mrow 
><mi 
>r</mi></mrow><mrow 
><mi 
>&#x2032;</mi></mrow></msubsup 
> <mo 
class="MathClass-rel">=</mo><msubsup><mrow 
> <mo 
class="MathClass-op">&#x2211;</mo>
  </mrow><mrow 
><mi 
>i</mi><mo 
class="MathClass-rel">=</mo><mn>1</mn></mrow><mrow 
><mi 
>j</mi></mrow></msubsup 
><msubsup><mrow 
> <mo 
class="MathClass-op">&#x2211;</mo>
  </mrow><mrow 
><mi 
>n</mi><mo 
class="MathClass-rel">=</mo><mn>0</mn></mrow><mrow 
><msub><mrow 
><mi 
>s</mi></mrow><mrow 
><mi 
>i</mi></mrow></msub 
><mo 
class="MathClass-bin">&#x2212;</mo><mn>1</mn></mrow></msubsup 
><msub><mrow 
><mi 
>d</mi></mrow><mrow 
>
<mi 
>i</mi><mi 
>n</mi></mrow></msub 
><msup><mrow 
><mi 
>r</mi></mrow><mrow 
><mi 
>n</mi></mrow></msup 
><msubsup><mrow 
><mi 
>&#x03B2;</mi></mrow><mrow 
>
<mi 
>i</mi></mrow><mrow 
><mo 
class="MathClass-bin">&#x2212;</mo><mi 
>r</mi></mrow></msubsup 
>
</math>
<!--l. 1152--><p class="nopar">
where the <!--l. 1153--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><msub><mrow 
><mi 
>&#x03B2;</mi></mrow><mrow 
><mi 
>i</mi></mrow></msub 
></math>&#x2019;s are
the <!--l. 1153--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mi 
>j</mi></math> distinct roots
(with multiplicity <!--l. 1153--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><msub><mrow 
><mi 
>s</mi></mrow><mrow 
><mi 
>i</mi></mrow></msub 
></math>)
of <!--l. 1154--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mn>1</mn> <mo 
class="MathClass-bin">+</mo> <msub><mrow 
><mi 
>a</mi></mrow><mrow 
><mn>1</mn></mrow></msub 
><mi 
>z</mi> <mo 
class="MathClass-bin">+</mo> <msub><mrow 
><mi 
>a</mi></mrow><mrow 
><mn>2</mn></mrow></msub 
><msup><mrow 
><mi 
>z</mi></mrow><mrow 
><mn>2</mn></mrow></msup 
> <mo 
class="MathClass-bin">+</mo> <mo 
class="MathClass-punc">.</mo><mo 
class="MathClass-punc">.</mo><mo 
class="MathClass-punc">.</mo> <mo 
class="MathClass-bin">+</mo> <msub><mrow 
><mi 
>a</mi></mrow><mrow 
>
<mn>2</mn><mi 
>q</mi></mrow></msub 
><msup><mrow 
><mi 
>z</mi></mrow><mrow 
><mn>2</mn><mi 
>q</mi></mrow></msup 
></math>.
Now
</p><!--l. 1155--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="display"><msup><mrow 
>
            <mfenced separators="" 
open="("  close=")" ><mrow><msubsup><mrow 
><mo 
class="MathClass-op">&#x2211;</mo>
  </mrow><mrow 
><mi 
>i</mi><mo 
class="MathClass-rel">=</mo><mn>0</mn></mrow><mrow 
><mi 
>q</mi></mrow></msubsup 
><msub><mrow 
><mi 
>&#x03B8;</mi></mrow><mrow 
>
<mi 
>i</mi></mrow></msub 
><mi 
>z</mi></mrow></mfenced></mrow><mrow 
><mn>2</mn></mrow></msup 
> <mo 
class="MathClass-rel">=</mo><msubsup><mrow 
> <mo 
class="MathClass-op">&#x2211;</mo>
  </mrow><mrow 
><mi 
>h</mi><mo 
class="MathClass-rel">=</mo><mn>0</mn></mrow><mrow 
><mn>2</mn><mi 
>q</mi></mrow></msubsup 
> <mfenced separators="" 
open="("  close=")" ><mrow><msub><mrow 
><mo 
class="MathClass-op">&#x2211;</mo>
  </mrow><mrow 
><mfrac linethickness="0"><mrow> <mi 
>i</mi><mo 
class="MathClass-bin">+</mo><mi 
>j</mi><mo 
class="MathClass-rel">=</mo><mi 
>h</mi></mrow>
<mrow><mn>0</mn><mo 
class="MathClass-rel">&#x2264;</mo><mi 
>i</mi><mo 
class="MathClass-punc">,</mo><mi 
>j</mi><mo 
class="MathClass-rel">&#x2264;</mo><mi 
>q</mi></mrow></mfrac> </mrow></msub 
><msub><mrow 
><mi 
>&#x03B8;</mi></mrow><mrow 
><mi 
>i</mi></mrow></msub 
><msub><mrow 
><mi 
>&#x03B8;</mi></mrow><mrow 
><mi 
>j</mi></mrow></msub 
></mrow></mfenced> <msup><mrow 
><mi 
>z</mi></mrow><mrow 
><mi 
>h</mi></mrow></msup 
> <mo 
class="MathClass-rel">=</mo><msubsup><mrow 
> <mo 
class="MathClass-op">&#x2211;</mo>
</mrow><mrow 
><mi 
>h</mi><mo 
class="MathClass-rel">=</mo><mn>0</mn></mrow><mrow 
><mn>2</mn><mi 
>q</mi></mrow></msubsup 
><msub><mrow 
><mi 
>a</mi></mrow><mrow 
>
<mi 
>h</mi></mrow></msub 
><msup><mrow 
><mi 
>z</mi></mrow><mrow 
><mi 
>h</mi></mrow></msup 
>
</math>
<!--l. 1159--><p class="nopar">
where <!--l. 1160--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><msub><mrow 
><mi 
>a</mi></mrow><mrow 
><mn>0</mn></mrow></msub 
> <mo 
class="MathClass-rel">=</mo> <msubsup><mrow 
><mi 
>&#x03B8;</mi></mrow><mrow 
><mn>0</mn></mrow><mrow 
><mn>2</mn></mrow></msubsup 
> <mo 
class="MathClass-rel">=</mo> <mn>1</mn></math>. This shows that
the roots of <!--l. 1161--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mn>1</mn> <mo 
class="MathClass-bin">+</mo> <msub><mrow 
><mi 
>a</mi></mrow><mrow 
><mn>1</mn></mrow></msub 
><mi 
>z</mi> <mo 
class="MathClass-bin">+</mo> <msub><mrow 
><mi 
>a</mi></mrow><mrow 
><mn>2</mn></mrow></msub 
><msup><mrow 
><mi 
>z</mi></mrow><mrow 
><mn>2</mn></mrow></msup 
> <mo 
class="MathClass-bin">+</mo> <mo 
class="MathClass-punc">.</mo><mo 
class="MathClass-punc">.</mo><mo 
class="MathClass-punc">.</mo> <mo 
class="MathClass-bin">+</mo> <msub><mrow 
><mi 
>a</mi></mrow><mrow 
>
<mn>2</mn><mi 
>q</mi></mrow></msub 
><msup><mrow 
><mi 
>z</mi></mrow><mrow 
><mn>2</mn><mi 
>q</mi></mrow></msup 
></math> are exactly
the same than that of <!--l. 1162--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mn>1</mn> <mo 
class="MathClass-bin">+</mo> <msub><mrow 
><mi 
>&#x03B8;</mi></mrow><mrow 
><mn>1</mn></mrow></msub 
><mi 
>z</mi> <mo 
class="MathClass-bin">+</mo> <msub><mrow 
><mi 
>&#x03B8;</mi></mrow><mrow 
><mn>2</mn></mrow></msub 
><msup><mrow 
><mi 
>z</mi></mrow><mrow 
><mn>2</mn></mrow></msup 
> <mo 
class="MathClass-bin">+</mo> <mo 
class="MathClass-punc">.</mo><mo 
class="MathClass-punc">.</mo><mo 
class="MathClass-punc">.</mo> <mo 
class="MathClass-bin">+</mo> <msub><mrow 
><mi 
>&#x03B8;</mi></mrow><mrow 
>
<mi 
>q</mi></mrow></msub 
><msup><mrow 
><mi 
>z</mi></mrow><mrow 
><mi 
>q</mi></mrow></msup 
></math>,
apart from the multiplicity. Thus, we obtain </p><table class="equation"><tr><td> <a 
  name="x1-14011r7"></a>

<!--l. 1164--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="display">
  <msub><mrow 
><mi 
>A</mi></mrow><mrow 
><mi 
>r</mi></mrow></msub 
> <mo 
class="MathClass-rel">=</mo><msubsup><mrow 
> <mo 
class="MathClass-op">&#x2211;</mo>
  </mrow><mrow 
><mi 
>l</mi><mo 
class="MathClass-rel">=</mo><mn>0</mn></mrow><mrow 
><mi 
>p</mi></mrow></msubsup 
><msubsup><mrow 
> <mo 
class="MathClass-op">&#x2211;</mo>
  </mrow><mrow 
><mi 
>i</mi><mo 
class="MathClass-rel">=</mo><mn>1</mn></mrow><mrow 
><mi 
>j</mi></mrow></msubsup 
><msubsup><mrow 
> <mo 
class="MathClass-op">&#x2211;</mo>
</mrow><mrow 
><mi 
>n</mi><mo 
class="MathClass-rel">=</mo><mn>0</mn></mrow><mrow 
><msub><mrow 
><mi 
>s</mi></mrow><mrow 
><mi 
>i</mi></mrow></msub 
><mo 
class="MathClass-bin">&#x2212;</mo><mn>1</mn></mrow></msubsup 
><msub><mrow 
><mi 
>d</mi></mrow><mrow 
>
<mi 
>i</mi><mi 
>n</mi></mrow></msub 
><msup><mrow 
><mrow><mo 
class="MathClass-open">(</mo><mrow><mi 
>r</mi> <mo 
class="MathClass-bin">&#x2212;</mo> <mi 
>l</mi></mrow><mo 
class="MathClass-close">)</mo></mrow></mrow><mrow 
><mi 
>n</mi></mrow></msup 
><msubsup><mrow 
><mi 
>&#x03B1;</mi></mrow><mrow 
>
<mi 
>i</mi></mrow><mrow 
><mo 
class="MathClass-bin">&#x2212;</mo><mrow><mo 
class="MathClass-open">(</mo><mrow><mi 
>r</mi><mo 
class="MathClass-bin">&#x2212;</mo><mi 
>l</mi></mrow><mo 
class="MathClass-close">)</mo></mrow></mrow></msubsup 
><msub><mrow 
><mi 
>&#x03D5;</mi></mrow><mrow 
>
<mi 
>l</mi></mrow></msub 
><mo 
class="MathClass-punc">,</mo><!--mstyle 
class="text"--><mtext >&#x000A0;for&#x000A0;all&#x000A0;</mtext><!--/mstyle--><mi 
>r</mi> <mo 
class="MathClass-rel">&#x2265;</mo><mo 
> max</mo><mrow><mo 
class="MathClass-open">(</mo><mrow><mn>2</mn><mi 
>q</mi><mo 
class="MathClass-punc">,</mo><mi 
>p</mi></mrow><mo 
class="MathClass-close">)</mo></mrow><mo 
class="MathClass-punc">.</mo>
</math>
<!--l. 1166--><p class="nopar"></p></td><td class="eq-no">(A.7)</td></tr></table>
By the same argument, using <!--l. 1168--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><msub><mrow 
><mi 
>A</mi></mrow><mrow 
><mi 
>r</mi></mrow></msub 
></math>
of (<a 
href="#x1-14011r7">A.7<!--tex4ht:ref: equationA.7 --></a>) instead of <!--l. 1168--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><msub><mrow 
><mi 
>B</mi></mrow><mrow 
><mi 
>r</mi><mo 
class="MathClass-bin">&#x2212;</mo><mn>1</mn></mrow></msub 
></math>
of (<a 
href="#x1-14007r4">A.4<!--tex4ht:ref: equationA.4 --></a>), we get (<a 
href="#x1-14003r3">A.1.c<!--tex4ht:ref: equationA.1.c --></a>).
   <h3 class="sectionHead"><a 
  name="x1-150005"></a>Appendix B</h3>
<!--l. 1177--><p class="noindent">We show that <!--l. 1177--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mi 
>E</mi><mrow><mo 
class="MathClass-open">(</mo><mrow><msub><mrow 
><mi 
>V</mi> </mrow><mrow 
><mi 
>t</mi></mrow></msub 
></mrow><mo 
class="MathClass-close">)</mo></mrow> <mo 
class="MathClass-rel">=</mo> <mn>0</mn></math>
and <!--l. 1178--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><!--mstyle 
class="text"--><mtext class="textrm" mathvariant="normal" >Var</mtext><!--/mstyle--><mrow><mo 
class="MathClass-open">(</mo><mrow><mi 
>B</mi><msub><mrow 
><mi 
>V</mi> </mrow><mrow 
><mi 
>t</mi></mrow></msub 
></mrow><mo 
class="MathClass-close">)</mo></mrow> <mo 
class="MathClass-rel">=</mo><msub><mrow 
> <mi 
>I</mi></mrow><mrow 
><mi 
>K</mi></mrow></msub 
> <mo 
class="MathClass-bin">&#x2212;</mo><msub><mrow 
><mi 
>b</mi></mrow><mrow 
><mi 
>K</mi></mrow></msub 
><msub><mrow 
><mi 
>b</mi></mrow><mrow 
><mi 
>K</mi></mrow></msub 
><!--mstyle 
class="text"--><mtext >T</mtext><!--/mstyle--><mo 
class="MathClass-bin">&#x2215;</mo><mn>2</mn></math>.
In view of (<a 
href="#x1-7001r1">1<!--tex4ht:ref: equation1.1 --></a>) and (<a 
href="#x1-8001r1">1<!--tex4ht:ref: equation2.1 --></a>),
</p><!--l. 1180--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="display">
           <mfrac><mrow 
><mi 
>&#x2202;</mi></mrow>
<mrow 
><mi 
>&#x2202;</mi><mi 
>&#x03D5;</mi></mrow></mfrac><!--mstyle 
class="text"--><mtext class="textrm" mathvariant="normal" >Log</mtext><!--/mstyle--> <mfenced separators="" 
open="("  close=")" ><mrow><mfrac><mrow 
><mn>1</mn></mrow>
<mrow 
><mi 
>&#x03C3;</mi></mrow></mfrac><mi 
>&#x03C6;</mi> <mfenced separators="" 
open="("  close=")" ><mrow><mfrac><mrow 
><msub><mrow 
><mi 
>&#x03B5;</mi></mrow><mrow 
><mi 
>t</mi></mrow></msub 
></mrow>
<mrow 
><mi 
>&#x03C3;</mi></mrow></mfrac></mrow></mfenced></mrow></mfenced> <mo 
class="MathClass-rel">=</mo>  <mfrac><mrow 
><msub><mrow 
><mi 
>&#x03B5;</mi></mrow><mrow 
><mi 
>t</mi></mrow></msub 
></mrow> 
<mrow 
><msup><mrow 
><mi 
>&#x03C3;</mi></mrow><mrow 
><mn>2</mn></mrow></msup 
></mrow></mfrac>  <mfenced separators="" 
open="["  close="]" ><mrow><msubsup><mrow 
><mi 
>Y</mi> </mrow><mrow 
><mi 
>t</mi><mo 
class="MathClass-bin">&#x2212;</mo><mn>1</mn></mrow><mrow 
><mrow><mo 
class="MathClass-open">(</mo><mrow><mi 
>p</mi></mrow><mo 
class="MathClass-close">)</mo></mrow></mrow></msubsup 
> <mo 
class="MathClass-bin">&#x2212;</mo><msubsup><mrow 
><mo 
class="MathClass-op">&#x2211;</mo>
  </mrow><mrow 
><mi 
>r</mi><mo 
class="MathClass-rel">=</mo><mn>0</mn></mrow><mrow 
><mi 
>&#x221E;</mi></mrow></msubsup 
><mfenced separators="" 
open="("  close=")" ><mrow> <mfrac><mrow 
><mi 
>&#x2202;</mi></mrow>
<mrow 
><mi 
>&#x2202;</mi><mi 
>&#x03D5;</mi></mrow></mfrac><msub><mrow 
><mi 
>&#x03B4;</mi></mrow><mrow 
><mi 
>r</mi></mrow></msub 
></mrow></mfenced> <mi 
>&#x03B8;</mi><!--mstyle 
class="text"--><mtext >T</mtext><!--/mstyle--><msubsup><mrow 
><mi 
>Y</mi> </mrow><mrow 
><mi 
>t</mi><mo 
class="MathClass-bin">&#x2212;</mo><mn>1</mn><mo 
class="MathClass-bin">&#x2212;</mo><mi 
>r</mi></mrow><mrow 
><mrow><mo 
class="MathClass-open">(</mo><mrow><mi 
>q</mi></mrow><mo 
class="MathClass-close">)</mo></mrow></mrow></msubsup 
></mrow></mfenced> <mo 
class="MathClass-punc">,</mo>
</math>
<!--l. 1184--><p class="nopar">

</p><!--l. 1185--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="display">
            <mfrac><mrow 
><mi 
>&#x2202;</mi></mrow>
<mrow 
><mi 
>&#x2202;</mi><mi 
>&#x03B8;</mi></mrow></mfrac><!--mstyle 
class="text"--><mtext class="textrm" mathvariant="normal" >Log</mtext><!--/mstyle--> <mfenced separators="" 
open="("  close=")" ><mrow><mfrac><mrow 
><mn>1</mn></mrow>
<mrow 
><mi 
>&#x03C3;</mi></mrow></mfrac><mi 
>&#x03C6;</mi> <mfenced separators="" 
open="("  close=")" ><mrow><mfrac><mrow 
><msub><mrow 
><mi 
>&#x03B5;</mi></mrow><mrow 
><mi 
>t</mi></mrow></msub 
></mrow>
<mrow 
><mi 
>&#x03C3;</mi></mrow></mfrac></mrow></mfenced></mrow></mfenced> <mo 
class="MathClass-rel">=</mo>  <mfrac><mrow 
><msub><mrow 
><mi 
>&#x03B5;</mi></mrow><mrow 
><mi 
>t</mi></mrow></msub 
></mrow> 
<mrow 
><msup><mrow 
><mi 
>&#x03C3;</mi></mrow><mrow 
><mn>2</mn></mrow></msup 
></mrow></mfrac>  <mfenced separators="" 
open="["  close="]" ><mrow><msubsup><mrow 
><mi 
>&#x03B5;</mi></mrow><mrow 
><mi 
>t</mi><mo 
class="MathClass-bin">&#x2212;</mo><mn>1</mn></mrow><mrow 
><mrow><mo 
class="MathClass-open">(</mo><mrow><mi 
>q</mi></mrow><mo 
class="MathClass-close">)</mo></mrow></mrow></msubsup 
> <mo 
class="MathClass-bin">&#x2212;</mo><msubsup><mrow 
><mo 
class="MathClass-op">&#x2211;</mo>
  </mrow><mrow 
><mi 
>r</mi><mo 
class="MathClass-rel">=</mo><mn>0</mn></mrow><mrow 
><mi 
>&#x221E;</mi></mrow></msubsup 
><mfenced separators="" 
open="("  close=")" ><mrow> <mfrac><mrow 
><mi 
>&#x2202;</mi></mrow>
<mrow 
><mi 
>&#x2202;</mi><mi 
>&#x03B8;</mi></mrow></mfrac><msub><mrow 
><mi 
>&#x03B4;</mi></mrow><mrow 
><mi 
>r</mi></mrow></msub 
></mrow></mfenced> <mi 
>&#x03B8;</mi><!--mstyle 
class="text"--><mtext >T</mtext><!--/mstyle--><msubsup><mrow 
><mi 
>Y</mi> </mrow><mrow 
><mi 
>t</mi><mo 
class="MathClass-bin">&#x2212;</mo><mn>1</mn><mo 
class="MathClass-bin">&#x2212;</mo><mi 
>r</mi></mrow><mrow 
><mrow><mo 
class="MathClass-open">(</mo><mrow><mi 
>q</mi></mrow><mo 
class="MathClass-close">)</mo></mrow></mrow></msubsup 
></mrow></mfenced>
</math>
<!--l. 1189--><p class="nopar">
and
</p><!--l. 1191--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="display">
                          <mfrac><mrow 
><mi 
>&#x2202;</mi></mrow>
<mrow 
><mi 
>&#x2202;</mi><mi 
>&#x03C3;</mi></mrow></mfrac><!--mstyle 
class="text"--><mtext class="textrm" mathvariant="normal" >Log</mtext><!--/mstyle--> <mfenced separators="" 
open="("  close=")" ><mrow><mfrac><mrow 
><mn>1</mn></mrow>
<mrow 
><mi 
>&#x03C3;</mi></mrow></mfrac><mi 
>&#x03C6;</mi> <mfenced separators="" 
open="("  close=")" ><mrow><mfrac><mrow 
><msub><mrow 
><mi 
>&#x03B5;</mi></mrow><mrow 
><mi 
>t</mi></mrow></msub 
></mrow>
<mrow 
><mi 
>&#x03C3;</mi></mrow></mfrac></mrow></mfenced></mrow></mfenced> <mo 
class="MathClass-rel">=</mo> <mfrac><mrow 
><mn>1</mn></mrow> 
<mrow 
><mi 
>&#x03C3;</mi></mrow></mfrac> <mfenced separators="" 
open="("  close=")" ><mrow><msup><mrow 
><mfenced separators="" 
open="("  close=")" ><mrow><mfrac><mrow 
><msub><mrow 
><mi 
>&#x03B5;</mi></mrow><mrow 
><mi 
>t</mi></mrow></msub 
></mrow>
<mrow 
><mi 
>&#x03C3;</mi></mrow></mfrac></mrow></mfenced></mrow><mrow 
><mn>2</mn></mrow></msup 
> <mo 
class="MathClass-bin">&#x2212;</mo> <mn>1</mn></mrow></mfenced> <mo 
class="MathClass-punc">.</mo>
</math>
<!--l. 1194--><p class="nopar">
It follows that <!--l. 1195--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mi 
>E</mi><mrow><mo 
class="MathClass-open">(</mo><mrow><msub><mrow 
><mi 
>V</mi> </mrow><mrow 
><mi 
>t</mi></mrow></msub 
></mrow><mo 
class="MathClass-close">)</mo></mrow> <mo 
class="MathClass-rel">=</mo> <mn>0</mn></math>
under <!--l. 1196--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><msub><mrow 
><mi 
>H</mi></mrow><mrow 
><mn>0</mn></mrow></msub 
></math>. Moreover,
under <!--l. 1197--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><msub><mrow 
><mi 
>H</mi></mrow><mrow 
><mn>0</mn></mrow></msub 
></math>,
<!--l. 1197--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><!--mstyle 
class="text"--><mtext class="textrm" mathvariant="normal" >Var</mtext><!--/mstyle--><mrow><mo 
class="MathClass-open">(</mo><mrow><msub><mrow 
><mi 
>L</mi></mrow><mrow 
><mi 
>t</mi></mrow></msub 
></mrow><mo 
class="MathClass-close">)</mo></mrow> <mo 
class="MathClass-rel">=</mo><msub><mrow 
> <mi 
>I</mi></mrow><mrow 
><mi 
>K</mi></mrow></msub 
></math>.
Thus,
</p><!--l. 1198--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="display">
<!--mstyle 
class="text"--><mtext class="textrm" mathvariant="normal" >Cov</mtext><!--/mstyle--> <mfenced separators="" 
open="("  close=")" ><mrow><msub><mrow 
><mi 
>L</mi></mrow><mrow 
><mi 
>t</mi></mrow></msub 
><mo 
class="MathClass-punc">,</mo>  <mfrac><mrow 
><mi 
>&#x2202;</mi></mrow> 
<mrow 
><mi 
>&#x2202;</mi><mi 
>&#x03B2;</mi></mrow></mfrac><!--mstyle 
class="text"--><mtext class="textrm" mathvariant="normal" >Log</mtext><!--/mstyle--> <mfenced separators="" 
open="("  close=")" ><mrow><mfrac><mrow 
><mn>1</mn></mrow>
<mrow 
><mi 
>&#x03C3;</mi></mrow></mfrac><mi 
>&#x03C6;</mi> <mfenced separators="" 
open="("  close=")" ><mrow><mfrac><mrow 
><msub><mrow 
><mi 
>&#x03B5;</mi></mrow><mrow 
><mi 
>t</mi></mrow></msub 
></mrow>
<mrow 
><mi 
>&#x03C3;</mi></mrow></mfrac></mrow></mfenced></mrow></mfenced></mrow></mfenced><!--mstyle 
class="text"--><mtext >T</mtext><!--/mstyle--> <mo 
class="MathClass-rel">=</mo> <mfenced separators="" 
open="["  close="]" ><mrow><mtable  align="axis"  
equalrows="false" equalcolumns="false" class="array"><mtr><mtd 
class="array"  columnalign="center">   <mn>0</mn>   </mtd>
</mtr><mtr><mtd 
class="array"  columnalign="center">   <mn>0</mn>   </mtd>
</mtr><mtr><mtd 
class="array"  columnalign="center"><mfrac><mrow 
><mn>1</mn></mrow>
<mrow 
><mi 
>&#x03C3;</mi></mrow></mfrac><msub><mrow 
><mi 
>b</mi></mrow><mrow 
><mi 
>K</mi></mrow></msub 
><!--mstyle 
class="text"--><mtext >T</mtext><!--/mstyle--></mtd></mtr> <!--c--></mtable>                                                                                                     </mrow></mfenced> <mo 
class="MathClass-rel">=</mo> <msub><mrow 
><mi 
>J</mi></mrow><mrow 
><mi 
>K</mi></mrow></msub 
><!--mstyle 
class="text"--><mtext >T</mtext><!--/mstyle--><mo 
class="MathClass-punc">.</mo>
</math>
<!--l. 1209--><p class="nopar">
Finally, <!--l. 1210--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><!--mstyle 
class="text"--><mtext class="textrm" mathvariant="normal" >Var</mtext><!--/mstyle--> <mfenced separators="" 
open="("  close=")" ><mrow> <mfrac><mrow 
><mi 
>&#x2202;</mi></mrow>
<mrow 
><mi 
>&#x2202;</mi><mi 
>&#x03B2;</mi></mrow></mfrac><!--mstyle 
class="text"--><mtext class="textrm" mathvariant="normal" >Log</mtext><!--/mstyle--> <mfenced separators="" 
open="("  close=")" ><mrow><mfrac><mrow 
><mn>1</mn></mrow>
<mrow 
><mi 
>&#x03C3;</mi></mrow></mfrac><mi 
>&#x03C6;</mi> <mfenced separators="" 
open="("  close=")" ><mrow><mfrac><mrow 
><msub><mrow 
><mi 
>&#x03B5;</mi></mrow><mrow 
><mi 
>t</mi></mrow></msub 
></mrow>
<mrow 
><mi 
>&#x03C3;</mi></mrow></mfrac> </mrow></mfenced></mrow></mfenced></mrow></mfenced> <mo 
class="MathClass-rel">=</mo> <msub><mrow 
><mi 
>I</mi></mrow><mrow 
><mi 
>&#x03B2;</mi></mrow></msub 
> <mo 
class="MathClass-rel">=</mo> <mfenced separators="" 
open="["  close="]" ><mrow><mtable  align="axis"  
equalrows="false" equalcolumns="false" class="array"><mtr><mtd 
class="array"  columnalign="center"><mi 
>C</mi></mtd><mtd 
class="array"  columnalign="center"> <mn>0</mn> </mtd>
</mtr><mtr><mtd 
class="array"  columnalign="center"><mn>0</mn></mtd><mtd 
class="array"  columnalign="center"> <mfrac><mrow 
><mn>2</mn></mrow>
<mrow 
><msup><mrow 
><mi 
>&#x03C3;</mi></mrow><mrow 
><mn>2</mn></mrow></msup 
></mrow></mfrac></mtd></mtr> <!--cc--></mtable>                                                                                                                                                            </mrow></mfenced> </math>, for
some matrix <!--l. 1217--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mi 
>C</mi></math>
whose exact expression is not needed. Thus

</p><!--l. 1219--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="display">
<!--mstyle 
class="text"--><mtext class="textrm" mathvariant="normal" >Var</mtext><!--/mstyle--><mrow><mo 
class="MathClass-open">(</mo><mrow><msub><mrow 
><mi 
>V</mi> </mrow><mrow 
><mi 
>t</mi></mrow></msub 
></mrow><mo 
class="MathClass-close">)</mo></mrow> <mo 
class="MathClass-rel">=</mo> <mfenced separators="" 
open="["  close="]" ><mrow><mtable  align="axis"  
equalrows="false" equalcolumns="false" class="array"><mtr><mtd 
class="array"  columnalign="center"><msub><mrow 
> <mi 
>I</mi></mrow><mrow 
><mi 
>K</mi></mrow></msub 
> </mtd> <mtd 
class="array"  columnalign="center"><msub><mrow 
><mi 
>I</mi></mrow><mrow 
><mi 
>K</mi></mrow></msub 
></mtd>
</mtr><mtr><mtd 
class="array"  columnalign="center"><msub><mrow 
><mi 
>I</mi></mrow><mrow 
><mi 
>K</mi></mrow></msub 
><!--mstyle 
class="text"--><mtext >T</mtext><!--/mstyle--></mtd><mtd 
class="array"  columnalign="center"><msub><mrow 
><mi 
>I</mi></mrow><mrow 
>
<mi 
>&#x03B2;</mi></mrow></msub 
></mtd></mtr> <!--cc--></mtable>                                                                                                                </mrow></mfenced> <mo 
class="MathClass-punc">.</mo>
</math>
<!--l. 1226--><p class="nopar">
</p>
   <h3 class="sectionHead"><a 
  name="x1-160005"></a>Appendix C</h3>
<!--l. 1233--><p class="noindent">We show that <!--l. 1233--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><!--mstyle 
class="text"--><mtext class="textrm" mathvariant="normal" >Var</mtext><!--/mstyle--><mrow><mo 
class="MathClass-open">(</mo><mrow><msub><mrow 
><mi 
>X</mi></mrow><mrow 
><mi 
>t</mi></mrow></msub 
></mrow><mo 
class="MathClass-close">)</mo></mrow> <mo 
class="MathClass-rel">&#x003C;</mo> <mi 
>&#x221E;</mi></math>. Without
loss of generality, set <!--l. 1234--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mi 
>&#x03C3;</mi> <mo 
class="MathClass-rel">=</mo> <mn>1</mn></math>.
This will be assumed here and in the next appendix. Since
<!--l. 1234--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><msub><mrow 
><mi 
>Y</mi> </mrow><mrow 
><mi 
>t</mi></mrow></msub 
></math> is causal, we
can write <!--l. 1235--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><msub><mrow 
><mi 
>Y</mi> </mrow><mrow 
><mi 
>t</mi></mrow></msub 
> <mo 
class="MathClass-rel">=</mo><msubsup><mrow 
> <mo 
class="MathClass-op">&#x2211;</mo>
  </mrow><mrow 
><mi 
>j</mi><mo 
class="MathClass-rel">=</mo><mn>0</mn></mrow><mrow 
><mi 
>&#x221E;</mi></mrow></msubsup 
><msub><mrow 
><mi 
>&#x03C8;</mi></mrow><mrow 
>
<mi 
>j</mi></mrow></msub 
><msub><mrow 
><mi 
>&#x03B5;</mi></mrow><mrow 
><mi 
>t</mi><mo 
class="MathClass-bin">&#x2212;</mo><mi 
>j</mi></mrow></msub 
></math>
and from (<a 
href="#x1-14008r5">A.5<!--tex4ht:ref: equationA.5 --></a>)
</p><!--l. 1237--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="display">
<!--mstyle 
class="text"--><mtext class="textrm" mathvariant="normal" >Var</mtext><!--/mstyle--><mrow><mo 
class="MathClass-open">(</mo><mrow><msub><mrow 
><mi 
>X</mi></mrow><mrow 
><mi 
>t</mi></mrow></msub 
></mrow><mo 
class="MathClass-close">)</mo></mrow> <mo 
class="MathClass-rel">=</mo> <mi 
>E</mi><msup><mrow 
><mrow><mo 
class="MathClass-open">(</mo><mrow><mi 
>w</mi><mrow><mo 
class="MathClass-open">(</mo><mrow><msub><mrow 
><mi 
>&#x03B5;</mi></mrow><mrow 
><mi 
>t</mi></mrow></msub 
></mrow><mo 
class="MathClass-close">)</mo></mrow></mrow><mo 
class="MathClass-close">)</mo></mrow></mrow><mrow 
><mn>2</mn></mrow></msup 
><mi 
>E</mi><msup><mrow 
> <mfenced separators="" 
open="("  close=")" ><mrow><msub><mrow 
><mi 
>Y</mi> </mrow><mrow 
>
<mi 
>t</mi><mo 
class="MathClass-bin">&#x2212;</mo><mn>1</mn></mrow></msub 
> <mo 
class="MathClass-bin">&#x2212;</mo><msubsup><mrow 
><mo 
class="MathClass-op">&#x2211;</mo>
  </mrow><mrow 
><mi 
>r</mi><mo 
class="MathClass-rel">=</mo><mn>0</mn></mrow><mrow 
><mi 
>&#x221E;</mi></mrow></msubsup 
><msub><mrow 
><mi 
>B</mi></mrow><mrow 
>
<mi 
>r</mi><mo 
class="MathClass-bin">&#x2212;</mo><mn>1</mn></mrow></msub 
><mi 
>&#x03B8;</mi><!--mstyle 
class="text"--><mtext >T</mtext><!--/mstyle--><msubsup><mrow 
><mi 
>Y</mi> </mrow><mrow 
>
<mi 
>t</mi><mo 
class="MathClass-bin">&#x2212;</mo><mn>1</mn><mo 
class="MathClass-bin">&#x2212;</mo><mi 
>r</mi></mrow><mrow 
><mrow><mo 
class="MathClass-open">(</mo><mrow><mi 
>q</mi></mrow><mo 
class="MathClass-close">)</mo></mrow></mrow></msubsup 
></mrow></mfenced> </mrow><mrow 
><mn>2</mn></mrow></msup 
> <mo 
class="MathClass-rel">=</mo> <mi 
>E</mi><msup><mrow 
><mrow><mo 
class="MathClass-open">(</mo><mrow><mi 
>w</mi><mrow><mo 
class="MathClass-open">(</mo><mrow><msub><mrow 
><mi 
>&#x03B5;</mi></mrow><mrow 
>
<mi 
>t</mi></mrow></msub 
></mrow><mo 
class="MathClass-close">)</mo></mrow></mrow><mo 
class="MathClass-close">)</mo></mrow></mrow><mrow 
><mn>2</mn></mrow></msup 
><mi 
>E</mi><msup><mrow 
> <mfenced separators="" 
open="("  close=")" ><mrow><msubsup><mrow 
><mo 
class="MathClass-op">&#x2211;</mo>
  </mrow><mrow 
><mi 
>h</mi><mo 
class="MathClass-rel">=</mo><mn>1</mn></mrow><mrow 
><mi 
>&#x221E;</mi></mrow></msubsup 
><msub><mrow 
><mi 
>d</mi></mrow><mrow 
>
<mi 
>h</mi></mrow></msub 
><msub><mrow 
><mi 
>&#x03B5;</mi></mrow><mrow 
><mi 
>t</mi><mo 
class="MathClass-bin">&#x2212;</mo><mi 
>h</mi></mrow></msub 
></mrow></mfenced> </mrow><mrow 
><mn>2</mn></mrow></msup 
>
</math>
<!--l. 1241--><p class="nopar">
where <!--l. 1242--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><msub><mrow 
><mi 
>d</mi></mrow><mrow 
><mi 
>h</mi></mrow></msub 
> <mo 
class="MathClass-rel">=</mo> <msub><mrow 
><mi 
>&#x03C8;</mi></mrow><mrow 
><mi 
>h</mi><mo 
class="MathClass-bin">&#x2212;</mo><mn>1</mn></mrow></msub 
> <mo 
class="MathClass-bin">&#x2212;</mo><msub><mrow 
><mo 
class="MathClass-op">&#x2211;</mo>
  </mrow><mrow 
><mfrac linethickness="0"><mrow> <mi 
>r</mi><mo 
class="MathClass-bin">+</mo><mi 
>j</mi><mo 
class="MathClass-bin">+</mo><mi 
>l</mi><mo 
class="MathClass-rel">=</mo><mi 
>h</mi></mrow>
<mrow><mfrac linethickness="0"><mrow>   <mn>1</mn><mo 
class="MathClass-rel">&#x2264;</mo><mi 
>j</mi><mo 
class="MathClass-rel">&#x2264;</mo><mi 
>q</mi></mrow>
<mrow><mn>0</mn><mo 
class="MathClass-rel">&#x2264;</mo><mi 
>r</mi><mo 
class="MathClass-punc">,</mo><mi 
>l</mi><mo 
class="MathClass-rel">&#x2264;</mo><mi 
>h</mi><mo 
class="MathClass-bin">&#x2212;</mo><mn>1</mn></mrow></mfrac></mrow></mfrac> </mrow></msub 
><msub><mrow 
><mi 
>&#x03C8;</mi></mrow><mrow 
><mi 
>l</mi></mrow></msub 
><msub><mrow 
><mi 
>&#x03B3;</mi></mrow><mrow 
><mi 
>r</mi><mo 
class="MathClass-bin">&#x2212;</mo><mn>1</mn></mrow></msub 
><msub><mrow 
><mi 
>&#x03B8;</mi></mrow><mrow 
><mi 
>j</mi></mrow></msub 
></math>.
We now need the following lemma.
</p>
   <div class="newtheorem">
<!--l. 1245--><p class="noindent"><span class="head">
<a 
  name="x1-16001r1"></a>
<span 
class="ecbx-1200">Lemma 1.</span></span>

   <span 
class="ecti-1200">If the ARMA process (</span><a 
href="#x1-7001r1"><span 
class="ecti-1200">1</span><!--tex4ht:ref: equation1.1 --></a><span 
class="ecti-1200">) is causal and invertible, then </span><!--l. 1246--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><msubsup><mrow 
><mo 
class="MathClass-op">&#x2211;</mo>
  </mrow><mrow 
><mi 
>h</mi><mo 
class="MathClass-rel">=</mo><mn>1</mn></mrow><mrow 
><mi 
>&#x221E;</mi></mrow></msubsup 
><mo 
class="MathClass-rel">&#x2223;</mo><msub><mrow 
><mi 
>d</mi></mrow><mrow 
>
<mi 
>h</mi></mrow></msub 
><mo 
class="MathClass-rel">&#x2223;</mo> <mo 
class="MathClass-rel">&#x003C;</mo> <mi 
>&#x221E;</mi></math><span 
class="ecti-1200">.</span>
</p>
   </div>
   <div class="proof">
<!--l. 1248--><p class="indent">   <span class="head">
<span 
class="eccc-1200">D</span><small class="small-caps"><span 
class="eccc-1200">&#x00C9;</span></small><span 
class="eccc-1200"><small 
class="small-caps">M</small><small 
class="small-caps">O</small><small 
class="small-caps">N</small><small 
class="small-caps">S</small><small 
class="small-caps">T</small><small 
class="small-caps">R</small><small 
class="small-caps">A</small><small 
class="small-caps">T</small><small 
class="small-caps">I</small><small 
class="small-caps">O</small><small 
class="small-caps">N</small>.</span> </span><!--l. 1248--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"></math>
<br class="newline" />From (<a 
href="#x1-14005r3">A.3<!--tex4ht:ref: equationA.3 --></a>), <!--l. 1249--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><msub><mrow 
><mo 
class="MathClass-op">&#x2211;</mo>
  </mrow><mrow 
><mfrac linethickness="0"><mrow> <mi 
>r</mi><mo 
class="MathClass-bin">+</mo><mi 
>j</mi><mo 
class="MathClass-bin">+</mo><mi 
>l</mi><mo 
class="MathClass-rel">=</mo><mi 
>h</mi></mrow>
<mrow><mfrac linethickness="0"><mrow>   <mn>1</mn><mo 
class="MathClass-rel">&#x2264;</mo><mi 
>j</mi><mo 
class="MathClass-rel">&#x2264;</mo><mi 
>q</mi></mrow>
<mrow><mn>0</mn><mo 
class="MathClass-rel">&#x2264;</mo><mi 
>r</mi><mo 
class="MathClass-punc">,</mo><mi 
>l</mi><mo 
class="MathClass-rel">&#x2264;</mo><mi 
>h</mi><mo 
class="MathClass-bin">&#x2212;</mo><mn>1</mn></mrow></mfrac></mrow></mfrac> </mrow></msub 
><msub><mrow 
><mi 
>&#x03C8;</mi></mrow><mrow 
><mi 
>l</mi></mrow></msub 
><msub><mrow 
><mi 
>&#x03B3;</mi></mrow><mrow 
><mi 
>r</mi><mo 
class="MathClass-bin">&#x2212;</mo><mn>1</mn></mrow></msub 
><msub><mrow 
><mi 
>&#x03B8;</mi></mrow><mrow 
><mi 
>j</mi></mrow></msub 
> <mo 
class="MathClass-rel">=</mo><msubsup><mrow 
> <mo 
class="MathClass-op">&#x2211;</mo>
  </mrow><mrow 
><mi 
>k</mi><mo 
class="MathClass-rel">=</mo><mn>1</mn></mrow><mrow 
><mi 
>h</mi></mrow></msubsup 
><msub><mrow 
><mi 
>&#x03C8;</mi></mrow><mrow 
>
<mi 
>h</mi><mo 
class="MathClass-bin">&#x2212;</mo><mi 
>k</mi></mrow></msub 
> <mfenced separators="" 
open="("  close=")" ><mrow><mfrac linethickness="0"><mrow>    <munder><mrow 
><mo 
class="MathClass-op">&#x2211;</mo>
    </mrow><mrow 
><mi 
>r</mi><mo 
class="MathClass-bin">+</mo><mi 
>j</mi><mo 
class="MathClass-rel">=</mo><mi 
>k</mi></mrow>
<mrow><mfrac linethickness="0"><mrow>  <mn>1</mn><mo 
class="MathClass-rel">&#x2264;</mo><mi 
>j</mi><mo 
class="MathClass-rel">&#x2264;</mo><mi 
>q</mi></mrow>
<mrow><mn>0</mn><mo 
class="MathClass-rel">&#x2264;</mo><mi 
>r</mi><mo 
class="MathClass-rel">&#x2264;</mo><mi 
>h</mi><mo 
class="MathClass-bin">&#x2212;</mo><mn>1</mn></mrow></mfrac></mrow></munder><msub><mrow 
><mi 
>&#x03B3;</mi></mrow><mrow 
><mi 
>r</mi><mo 
class="MathClass-bin">&#x2212;</mo><mn>1</mn></mrow></msub 
><msub><mrow 
><mi 
>&#x03B8;</mi></mrow><mrow 
><mi 
>j</mi></mrow></msub 
></mrow></mfrac></mrow></mfenced> <mo 
class="MathClass-rel">=</mo> <mo 
class="MathClass-bin">&#x2212;</mo><msubsup><mrow 
><mo 
class="MathClass-op">&#x2211;</mo>
  </mrow><mrow 
><mi 
>k</mi><mo 
class="MathClass-rel">=</mo><mn>1</mn></mrow><mrow 
><mi 
>h</mi></mrow></msubsup 
><msub><mrow 
><mi 
>&#x03C8;</mi></mrow><mrow 
>
<mi 
>h</mi><mo 
class="MathClass-bin">&#x2212;</mo><mi 
>k</mi></mrow></msub 
><msub><mrow 
><mi 
>&#x03B3;</mi></mrow><mrow 
><mi 
>k</mi><mo 
class="MathClass-bin">&#x2212;</mo><mn>1</mn></mrow></msub 
></math>.
We have also <!--l. 1255--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><msubsup><mrow 
><mo 
class="MathClass-op">&#x2211;</mo>
  </mrow><mrow 
><mi 
>h</mi><mo 
class="MathClass-rel">=</mo><mn>1</mn></mrow><mrow 
><mi 
>&#x221E;</mi></mrow></msubsup 
><msubsup><mrow 
><mo 
class="MathClass-op">&#x2211;</mo></mrow><mrow 
>
<mi 
>k</mi><mo 
class="MathClass-rel">=</mo><mn>1</mn></mrow><mrow 
><mi 
>h</mi></mrow></msubsup 
><mo 
class="MathClass-rel">&#x2223;</mo><msub><mrow 
><mi 
>&#x03C8;</mi></mrow><mrow 
>
<mi 
>h</mi><mo 
class="MathClass-bin">&#x2212;</mo><mi 
>k</mi></mrow></msub 
><msub><mrow 
><mi 
>&#x03B3;</mi></mrow><mrow 
><mi 
>k</mi><mo 
class="MathClass-bin">&#x2212;</mo><mn>1</mn></mrow></msub 
><mo 
class="MathClass-rel">&#x2223;</mo>    <mo 
class="MathClass-rel">=</mo><msubsup><mrow 
>          <mo 
class="MathClass-op">&#x2211;</mo>
      </mrow><mrow 
><mi 
>h</mi><mo 
class="MathClass-rel">=</mo><mn>0</mn></mrow><mrow 
><mi 
>&#x221E;</mi></mrow></msubsup 
><msubsup><mrow 
><mo 
class="MathClass-op">&#x2211;</mo></mrow><mrow 
>
<mi 
>k</mi><mo 
class="MathClass-rel">=</mo><mn>0</mn></mrow><mrow 
><mi 
>h</mi></mrow></msubsup 
><mo 
class="MathClass-rel">&#x2223;</mo><msub><mrow 
><mi 
>&#x03C8;</mi></mrow><mrow 
>
<mi 
>h</mi><mo 
class="MathClass-bin">&#x2212;</mo><mi 
>k</mi></mrow></msub 
><msub><mrow 
><mi 
>&#x03B3;</mi></mrow><mrow 
><mi 
>k</mi></mrow></msub 
><mo 
class="MathClass-rel">&#x2223;</mo>    <mo 
class="MathClass-rel">=</mo><msubsup><mrow 
><mo 
class="MathClass-op">&#x2211;</mo>
  </mrow><mrow 
><mi 
>k</mi><mo 
class="MathClass-rel">=</mo><mn>0</mn></mrow><mrow 
><mi 
>&#x221E;</mi></mrow></msubsup 
><mo 
class="MathClass-rel">&#x2223;</mo><msub><mrow 
><mi 
>&#x03B3;</mi></mrow><mrow 
>
<mi 
>k</mi></mrow></msub 
><mo 
class="MathClass-rel">&#x2223;</mo><msubsup><mrow 
><mo 
class="MathClass-op">&#x2211;</mo>
  </mrow><mrow 
><mi 
>h</mi><mo 
class="MathClass-rel">=</mo><mn>0</mn></mrow><mrow 
><mi 
>&#x221E;</mi></mrow></msubsup 
><mo 
class="MathClass-rel">&#x2223;</mo><msub><mrow 
><mi 
>&#x03C8;</mi></mrow><mrow 
>
<mi 
>h</mi></mrow></msub 
><mo 
class="MathClass-rel">&#x2223;</mo></math>.
<br class="newline" />Thus, <!--l. 1256--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><msubsup><mrow 
><mo 
class="MathClass-op">&#x2211;</mo>
  </mrow><mrow 
><mi 
>h</mi><mo 
class="MathClass-rel">=</mo><mn>1</mn></mrow><mrow 
><mi 
>&#x221E;</mi></mrow></msubsup 
><mo 
class="MathClass-rel">&#x2223;</mo><msub><mrow 
><mi 
>d</mi></mrow><mrow 
>
<mi 
>h</mi></mrow></msub 
><mo 
class="MathClass-rel">&#x2223;</mo>   <mo 
class="MathClass-rel">&#x2264;</mo><msubsup><mrow 
>   <mo 
class="MathClass-op">&#x2211;</mo>
     </mrow><mrow 
><mi 
>h</mi><mo 
class="MathClass-rel">=</mo><mn>1</mn></mrow><mrow 
><mi 
>&#x221E;</mi></mrow></msubsup 
><mo 
class="MathClass-rel">&#x2223;</mo><msub><mrow 
><mi 
>&#x03C8;</mi></mrow><mrow 
>
<mi 
>h</mi><mo 
class="MathClass-bin">&#x2212;</mo><mn>1</mn></mrow></msub 
><mo 
class="MathClass-rel">&#x2223;</mo> <mo 
class="MathClass-bin">+</mo><msubsup><mrow 
>   <mo 
class="MathClass-op">&#x2211;</mo>
   </mrow><mrow 
><mi 
>h</mi><mo 
class="MathClass-rel">=</mo><mn>1</mn></mrow><mrow 
><mi 
>&#x221E;</mi></mrow></msubsup 
><msubsup><mrow 
><mo 
class="MathClass-op">&#x2211;</mo></mrow><mrow 
>
<mi 
>k</mi><mo 
class="MathClass-rel">=</mo><mn>1</mn></mrow><mrow 
><mi 
>h</mi></mrow></msubsup 
><mo 
class="MathClass-rel">&#x2223;</mo><msub><mrow 
><mi 
>&#x03C8;</mi></mrow><mrow 
>
<mi 
>h</mi><mo 
class="MathClass-bin">&#x2212;</mo><mi 
>k</mi></mrow></msub 
><msub><mrow 
><mi 
>&#x03B3;</mi></mrow><mrow 
><mi 
>k</mi><mo 
class="MathClass-bin">&#x2212;</mo><mn>1</mn></mrow></msub 
><mo 
class="MathClass-rel">&#x2223;</mo>   <mo 
class="MathClass-rel">=</mo><msubsup><mrow 
><mo 
class="MathClass-op">&#x2211;</mo>
  </mrow><mrow 
><mi 
>h</mi><mo 
class="MathClass-rel">=</mo><mn>0</mn></mrow><mrow 
><mi 
>&#x221E;</mi></mrow></msubsup 
><mo 
class="MathClass-rel">&#x2223;</mo><msub><mrow 
><mi 
>&#x03C8;</mi></mrow><mrow 
>
<mi 
>h</mi></mrow></msub 
><mo 
class="MathClass-rel">&#x2223;</mo><mfenced separators="" 
open="("  close=")" ><mrow><msubsup><mrow 
><mo 
class="MathClass-op">&#x2211;</mo>
</mrow><mrow 
><mi 
>k</mi><mo 
class="MathClass-rel">=</mo><mn>0</mn></mrow><mrow 
><mi 
>&#x221E;</mi></mrow></msubsup 
><mo 
class="MathClass-rel">&#x2223;</mo><msub><mrow 
><mi 
>&#x03B3;</mi></mrow><mrow 
>
<mi 
>k</mi></mrow></msub 
><mo 
class="MathClass-rel">&#x2223;</mo> <mo 
class="MathClass-bin">+</mo> <mn>1</mn></mrow></mfenced></math>.
But from Brockwell and Davis (1991)(<a 
  name="dx1-16002"></a><a 
href="#X1991Brockduch">4</a>), p.87, <!--l. 1258--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><msubsup><mrow 
><mo 
class="MathClass-op">&#x2211;</mo>
  </mrow><mrow 
><mi 
>k</mi><mo 
class="MathClass-rel">=</mo><mn>0</mn></mrow><mrow 
><mi 
>&#x221E;</mi></mrow></msubsup 
><mo 
class="MathClass-rel">&#x2223;</mo><msub><mrow 
><mi 
>&#x03B3;</mi></mrow><mrow 
>
<mi 
>k</mi></mrow></msub 
><mo 
class="MathClass-rel">&#x2223;</mo></math>
is finite. Since under the assumption of Theorem <a 
href="#x1-8008r1">1<!--tex4ht:ref: theorem2.1 --></a>, <!--l. 1260--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><msubsup><mrow 
><mo 
class="MathClass-op">&#x2211;</mo>
  </mrow><mrow 
><mi 
>j</mi><mo 
class="MathClass-rel">=</mo><mn>0</mn></mrow><mrow 
><mi 
>&#x221E;</mi></mrow></msubsup 
><mo 
class="MathClass-rel">&#x2223;</mo><msub><mrow 
><mi 
>&#x03C8;</mi></mrow><mrow 
>
<mi 
>j</mi></mrow></msub 
><mo 
class="MathClass-rel">&#x2223;</mo> <mo 
class="MathClass-rel">&#x003C;</mo> <mi 
>&#x221E;</mi></math>
the lemma follows. <span class="qed"><span 
class="msam-10x-x-120">&#x25A1;</span></span>
</p>
   </div>
<!--l. 1262--><p class="indent">From this lemma, we conclude that <!--l. 1263--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mi 
>E</mi><msup><mrow 
> <mfenced separators="" 
open="["  close="]" ><mrow><msubsup><mrow 
><mo 
class="MathClass-op">&#x2211;</mo>
  </mrow><mrow 
><mi 
>h</mi><mo 
class="MathClass-rel">=</mo><mn>1</mn></mrow><mrow 
><mi 
>&#x221E;</mi></mrow></msubsup 
><msub><mrow 
><mi 
>d</mi></mrow><mrow 
>
<mi 
>h</mi></mrow></msub 
><msub><mrow 
><mi 
>&#x03B5;</mi></mrow><mrow 
><mi 
>t</mi><mo 
class="MathClass-bin">&#x2212;</mo><mi 
>h</mi></mrow></msub 
></mrow></mfenced> </mrow><mrow 
><mn>2</mn></mrow></msup 
> <mo 
class="MathClass-rel">=</mo><msubsup><mrow 
> <mo 
class="MathClass-op">&#x2211;</mo></mrow><mrow 
>
<mi 
>h</mi><mo 
class="MathClass-rel">=</mo><mn>1</mn></mrow><mrow 
><mi 
>&#x221E;</mi></mrow></msubsup 
><msubsup><mrow 
><mi 
>d</mi></mrow><mrow 
>
<mi 
>h</mi></mrow><mrow 
><mn>2</mn></mrow></msubsup 
> <mo 
class="MathClass-rel">&#x003C;</mo> <mi 
>&#x221E;</mi></math>.
Since
</p><!--l. 1265--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="display">
                <mi 
>E</mi><msup><mrow 
><mrow><mo 
class="MathClass-open">(</mo><mrow><mi 
>w</mi><mrow><mo 
class="MathClass-open">(</mo><mrow><msub><mrow 
><mi 
>&#x03B5;</mi></mrow><mrow 
><mi 
>t</mi></mrow></msub 
></mrow><mo 
class="MathClass-close">)</mo></mrow></mrow><mo 
class="MathClass-close">)</mo></mrow></mrow><mrow 
><mn>2</mn></mrow></msup 
> <mo 
class="MathClass-rel">=</mo> <mn>4</mn> <mo 
class="MathClass-op">&#x222B;</mo>
  <msup><mrow 
><mrow><mo 
class="MathClass-open">(</mo><mrow><msubsup><mrow 
><mi 
>L</mi></mrow><mrow 
><mi 
>k</mi></mrow><mrow 
><mi 
>&#x2032;</mi></mrow></msubsup 
><mrow><mo 
class="MathClass-open">(</mo><mrow><mn>2</mn><mi 
>&#x03A6;</mi><mrow><mo 
class="MathClass-open">(</mo><mrow><mi 
>x</mi></mrow><mo 
class="MathClass-close">)</mo></mrow> <mo 
class="MathClass-bin">&#x2212;</mo> <mn>1</mn></mrow><mo 
class="MathClass-close">)</mo></mrow></mrow><mo 
class="MathClass-close">)</mo></mrow></mrow><mrow 
><mn>2</mn></mrow></msup 
><msup><mrow 
><mi 
>&#x03C6;</mi></mrow><mrow 
><mn>3</mn></mrow></msup 
><mrow><mo 
class="MathClass-open">(</mo><mrow><mi 
>x</mi></mrow><mo 
class="MathClass-close">)</mo></mrow><mi 
>d</mi><mi 
>x</mi> <mo 
class="MathClass-rel">&#x003C;</mo> <mi 
>&#x221E;</mi><mo 
class="MathClass-punc">,</mo>
</math>
<!--l. 1267--><p class="nopar">
the result follows.
</p>
   <h3 class="sectionHead"><a 
  name="x1-170005"></a>Appendix D</h3>
<!--l. 1276--><p class="noindent">Here we sketch the proof that the typical element
<!--l. 1276--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><msub><mrow 
><mi 
>d</mi></mrow><mrow 
><mn>4</mn><mi 
>j</mi></mrow></msub 
></math> of inequality (<a 
href="#x1-14009r6">A.6<!--tex4ht:ref: equationA.6 --></a>)
vanishes. From <!--l. 1278--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><msub><mrow 
><mi 
>Y</mi> </mrow><mrow 
><mi 
>t</mi></mrow></msub 
> <mo 
class="MathClass-rel">=</mo><msubsup><mrow 
> <mo 
class="MathClass-op">&#x2211;</mo>
  </mrow><mrow 
><mi 
>j</mi><mo 
class="MathClass-rel">=</mo><mn>0</mn></mrow><mrow 
><mi 
>&#x221E;</mi></mrow></msubsup 
><msub><mrow 
><mi 
>&#x03C8;</mi></mrow><mrow 
>
<mi 
>j</mi></mrow></msub 
><msub><mrow 
><mi 
>&#x03B5;</mi></mrow><mrow 
><mi 
>t</mi><mo 
class="MathClass-bin">&#x2212;</mo><mi 
>j</mi></mrow></msub 
></math>
and the fact that the remainder of a convergent series converges toward 0, we

have
</p><!--l. 1280--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="display">
<mtable 
class="multline">
<mtr><mtd 
class="multline"></mtd><mtd><mstyle 
    class="label" id="x1-17001r1"  ></mstyle><!--endlabel--><munder><mrow 
><mo 
>lim</mo></mrow><mrow 
><mi 
>h</mi> <mo 
class="MathClass-rel">&#x2192;</mo><mi 
>&#x221E;</mi></mrow></munder><msub><mrow 
><mi 
>d</mi></mrow><mrow 
><mn>4</mn><mi 
>j</mi></mrow></msub 
> <mo 
class="MathClass-rel">=</mo> <munder><mrow 
><mo 
> lim</mo> </mrow><mrow 
><mi 
>h</mi> <mo 
class="MathClass-rel">&#x2192;</mo><mi 
>&#x221E;</mi></mrow></munder><msubsup><mrow 
><mo 
class="MathClass-op">&#x2211;</mo>
  </mrow><mrow 
><mi 
>r</mi><mo 
class="MathClass-rel">=</mo><mn>0</mn></mrow><mrow 
><mi 
>&#x221E;</mi></mrow></msubsup 
><mo 
class="MathClass-rel">&#x2223;</mo><msub><mrow 
><mi 
>B</mi></mrow><mrow 
>
<mi 
>r</mi><mo 
class="MathClass-bin">&#x2212;</mo><mn>1</mn></mrow></msub 
><mi 
>E</mi> <mfenced separators="" 
open="("  close=")" ><mrow><mi 
>w</mi><mrow><mo 
class="MathClass-open">(</mo><mrow><msub><mrow 
><mi 
>&#x03B5;</mi></mrow><mrow 
><mi 
>t</mi></mrow></msub 
></mrow><mo 
class="MathClass-close">)</mo></mrow><msub><mrow 
><mi 
>Y</mi> </mrow><mrow 
><mi 
>t</mi><mo 
class="MathClass-bin">&#x2212;</mo><mn>1</mn></mrow></msub 
><msub><mrow 
><mi 
>Y</mi> </mrow><mrow 
><mi 
>t</mi><mo 
class="MathClass-bin">+</mo><mi 
>h</mi><mo 
class="MathClass-bin">&#x2212;</mo><mi 
>r</mi><mo 
class="MathClass-bin">&#x2212;</mo><mi 
>j</mi></mrow></msub 
></mrow></mfenced> <mo 
class="MathClass-rel">&#x2223;</mo><mo 
class="MathClass-rel">&#x2264;</mo>
</mtd></mtr><mtr><mtd 
class="multline"></mtd><mtd><munder><mrow 
><mo 
>lim</mo></mrow><mrow 
><mi 
>h</mi> <mo 
class="MathClass-rel">&#x2192;</mo><mi 
>&#x221E;</mi></mrow></munder><mo 
class="MathClass-rel">&#x2223;</mo><mi 
>E</mi><mrow><mo 
class="MathClass-open">(</mo><mrow><mi 
>w</mi><mrow><mo 
class="MathClass-open">(</mo><mrow><msub><mrow 
><mi 
>&#x03B5;</mi></mrow><mrow 
><mi 
>t</mi></mrow></msub 
></mrow><mo 
class="MathClass-close">)</mo></mrow></mrow><mo 
class="MathClass-close">)</mo></mrow><mo 
class="MathClass-rel">&#x2223;</mo><msubsup><mrow 
><mo 
class="MathClass-op">&#x2211;</mo>
  </mrow><mrow 
><mi 
>r</mi><mo 
class="MathClass-rel">=</mo><mn>0</mn></mrow><mrow 
><mi 
>h</mi><mo 
class="MathClass-bin">&#x2212;</mo><mi 
>j</mi></mrow></msubsup 
> <mfenced separators="" 
open="|"  close="|" ><mrow><msub><mrow 
><mi 
>B</mi></mrow><mrow 
>
<mi 
>r</mi><mo 
class="MathClass-bin">&#x2212;</mo><mn>1</mn></mrow></msub 
><msubsup><mrow 
> <mo 
class="MathClass-op">&#x2211;</mo>
    </mrow><mrow 
><mi 
>a</mi><mo 
class="MathClass-rel">=</mo><mn>0</mn></mrow><mrow 
><mi 
>&#x221E;</mi></mrow></msubsup 
><msub><mrow 
><mi 
>&#x03C8;</mi></mrow><mrow 
>
<mi 
>a</mi></mrow></msub 
><msub><mrow 
><mi 
>&#x03C8;</mi></mrow><mrow 
><mi 
>a</mi><mo 
class="MathClass-bin">+</mo><mi 
>h</mi><mo 
class="MathClass-bin">&#x2212;</mo><mi 
>j</mi><mo 
class="MathClass-bin">&#x2212;</mo><mi 
>r</mi><mo 
class="MathClass-bin">+</mo><mn>1</mn></mrow></msub 
></mrow></mfenced>
</mtd></mtr><mtr><mtd 
class="multline"></mtd><mtd> <mo 
class="MathClass-rel">&#x2264;</mo><mo 
class="MathClass-rel">&#x2223;</mo><mi 
>E</mi><mrow><mo 
class="MathClass-open">(</mo><mrow><mi 
>w</mi><mrow><mo 
class="MathClass-open">(</mo><mrow><msub><mrow 
><mi 
>&#x03B5;</mi></mrow><mrow 
><mi 
>t</mi></mrow></msub 
></mrow><mo 
class="MathClass-close">)</mo></mrow></mrow><mo 
class="MathClass-close">)</mo></mrow><mo 
class="MathClass-rel">&#x2223;</mo><munder><mrow 
><mo 
> lim</mo> </mrow><mrow 
><mi 
>h</mi> <mo 
class="MathClass-rel">&#x2192;</mo><mi 
>&#x221E;</mi></mrow></munder><mfenced separators="" 
open="["  close="" ><mrow><msubsup><mrow 
><mo 
class="MathClass-op">&#x2211;</mo>
  </mrow><mrow 
><mi 
>a</mi><mo 
class="MathClass-rel">=</mo><mn>0</mn></mrow><mrow 
><mi 
>m</mi><mo 
class="MathClass-bin">&#x2212;</mo><mn>1</mn></mrow></msubsup 
><mo 
class="MathClass-rel">&#x2223;</mo><msub><mrow 
><mi 
>&#x03C8;</mi></mrow><mrow 
>
<mi 
>a</mi></mrow></msub 
><mo 
class="MathClass-rel">&#x2223;</mo><msubsup><mrow 
><mo 
class="MathClass-op">&#x2211;</mo>
  </mrow><mrow 
><mi 
>r</mi><mo 
class="MathClass-rel">=</mo><mn>0</mn></mrow><mrow 
><mi 
>a</mi><mo 
class="MathClass-bin">+</mo><mi 
>h</mi><mo 
class="MathClass-bin">&#x2212;</mo><mi 
>j</mi><mo 
class="MathClass-bin">&#x2212;</mo><mi 
>m</mi></mrow></msubsup 
><mo 
class="MathClass-rel">&#x2223;</mo><msub><mrow 
><mi 
>B</mi></mrow><mrow 
>
<mi 
>r</mi><mo 
class="MathClass-bin">&#x2212;</mo><mn>1</mn></mrow></msub 
><msub><mrow 
><mi 
>&#x03C8;</mi></mrow><mrow 
><mi 
>a</mi><mo 
class="MathClass-bin">+</mo><mi 
>h</mi><mo 
class="MathClass-bin">&#x2212;</mo><mi 
>j</mi><mo 
class="MathClass-bin">&#x2212;</mo><mi 
>r</mi><mo 
class="MathClass-bin">+</mo><mn>1</mn></mrow></msub 
><mo 
class="MathClass-rel">&#x2223;</mo> <mo 
class="MathClass-bin">+</mo> <mspace width="-20.66162pt"/><msubsup><mrow 
><mo 
class="MathClass-op">&#x2211;</mo>
</mrow><mrow 
><mi 
>r</mi><mo 
class="MathClass-rel">=</mo><mi 
>a</mi><mo 
class="MathClass-bin">+</mo><mi 
>h</mi><mo 
class="MathClass-bin">&#x2212;</mo><mi 
>j</mi><mo 
class="MathClass-bin">&#x2212;</mo><mi 
>m</mi><mo 
class="MathClass-bin">+</mo><mn>1</mn></mrow><mrow 
><mi 
>h</mi><mo 
class="MathClass-bin">&#x2212;</mo><mi 
>j</mi></mrow></msubsup 
><mo 
class="MathClass-rel">&#x2223;</mo><msub><mrow 
><mi 
>B</mi></mrow><mrow 
>
<mi 
>r</mi><mo 
class="MathClass-bin">&#x2212;</mo><mn>1</mn></mrow></msub 
><msub><mrow 
><mi 
>&#x03C8;</mi></mrow><mrow 
><mi 
>a</mi><mo 
class="MathClass-bin">+</mo><mi 
>h</mi><mo 
class="MathClass-bin">&#x2212;</mo><mi 
>j</mi><mo 
class="MathClass-bin">&#x2212;</mo><mi 
>r</mi><mo 
class="MathClass-bin">+</mo><mn>1</mn></mrow></msub 
><mo 
class="MathClass-rel">&#x2223;</mo></mrow></mfenced>
</mtd></mtr><mtr><mtd 
class="multline"></mtd><mtd> <mfenced separators="" 
open=""  close="]" ><mrow><mo 
class="MathClass-bin">+</mo><msubsup><mrow 
> <mo 
class="MathClass-op">&#x2211;</mo>
  </mrow><mrow 
><mi 
>r</mi><mo 
class="MathClass-rel">=</mo><mn>0</mn></mrow><mrow 
><mi 
>h</mi><mo 
class="MathClass-bin">&#x2212;</mo><mi 
>j</mi></mrow></msubsup 
><mo 
class="MathClass-rel">&#x2223;</mo><msub><mrow 
><mi 
>B</mi></mrow><mrow 
>
<mi 
>r</mi><mo 
class="MathClass-bin">&#x2212;</mo><mn>1</mn></mrow></msub 
><mo 
class="MathClass-rel">&#x2223;</mo><msubsup><mrow 
><mo 
class="MathClass-op">&#x2211;</mo>
</mrow><mrow 
><mi 
>a</mi><mo 
class="MathClass-rel">=</mo><mi 
>m</mi></mrow><mrow 
><mi 
>&#x221E;</mi></mrow></msubsup 
><mo 
class="MathClass-rel">&#x2223;</mo><msub><mrow 
><mi 
>&#x03C8;</mi></mrow><mrow 
>
<mi 
>a</mi></mrow></msub 
><msub><mrow 
><mi 
>&#x03C8;</mi></mrow><mrow 
><mi 
>a</mi><mo 
class="MathClass-bin">+</mo><mi 
>h</mi><mo 
class="MathClass-bin">&#x2212;</mo><mi 
>j</mi><mo 
class="MathClass-bin">&#x2212;</mo><mi 
>r</mi><mo 
class="MathClass-bin">+</mo><mn>1</mn></mrow></msub 
><mo 
class="MathClass-rel">&#x2223;</mo></mrow></mfenced></mtd><mtd><mrow><mo 
class="MathClass-open">(</mo><mrow><mi 
>D</mi><mo 
class="MathClass-punc">.</mo><mn>1</mn></mrow><mo 
class="MathClass-close">)</mo></mrow>                                                         </mtd></mtr></mtable>
</math>
<!--l. 1288--><p class="nopar">
where <!--l. 1289--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mi 
>m</mi> <mo 
class="MathClass-rel">=</mo><mo 
> max</mo><mrow><mo 
class="MathClass-open">{</mo><mrow><mi 
>p</mi><mo 
class="MathClass-punc">,</mo><mi 
>q</mi> <mo 
class="MathClass-bin">+</mo> <mn>1</mn></mrow><mo 
class="MathClass-close">}</mo></mrow><mo 
class="MathClass-bin">&#x2212;</mo> <mi 
>p</mi></math>.
For the first term in the limit of (<a 
href="#x1-17001r1">1<!--tex4ht:ref: equationD.1 --></a>), using the expression for
<!--l. 1290--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><msub><mrow 
><mi 
>B</mi></mrow><mrow 
><mi 
>r</mi><mo 
class="MathClass-bin">&#x2212;</mo><mn>1</mn></mrow></msub 
></math> in (<a 
href="#x1-14007r4">A.4<!--tex4ht:ref: equationA.4 --></a>) and
that of <!--l. 1291--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><msub><mrow 
><mi 
>&#x03C8;</mi></mrow><mrow 
><mi 
>a</mi><mo 
class="MathClass-bin">+</mo><mi 
>h</mi><mo 
class="MathClass-bin">&#x2212;</mo><mi 
>j</mi><mo 
class="MathClass-bin">&#x2212;</mo><mi 
>r</mi><mo 
class="MathClass-bin">+</mo><mn>1</mn></mrow></msub 
></math>
given in Brockwell and Davis (1991)(<a 
  name="dx1-17002"></a><a 
href="#X1991Brockduch">4</a>) eq. (3.3.6), we have

</p><!--l. 1293--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="display">
<mtable 
class="multline-star">
<mtr><mtd 
class="multline-star"><msubsup><mrow 
><mo 
class="MathClass-op">&#x2211;</mo>
    </mrow><mrow 
><mi 
>r</mi><mo 
class="MathClass-rel">=</mo><mi 
>q</mi><mo 
class="MathClass-bin">+</mo><mn>1</mn></mrow><mrow 
><mi 
>a</mi><mo 
class="MathClass-bin">+</mo><mi 
>h</mi><mo 
class="MathClass-bin">&#x2212;</mo><mi 
>j</mi><mo 
class="MathClass-bin">&#x2212;</mo><mi 
>m</mi></mrow></msubsup 
><mo 
class="MathClass-rel">&#x2223;</mo><msub><mrow 
><mi 
>B</mi></mrow><mrow 
>
<mi 
>r</mi><mo 
class="MathClass-bin">&#x2212;</mo><mn>1</mn></mrow></msub 
><msub><mrow 
><mi 
>&#x03C8;</mi></mrow><mrow 
><mi 
>a</mi><mo 
class="MathClass-bin">+</mo><mi 
>h</mi><mo 
class="MathClass-bin">&#x2212;</mo><mi 
>j</mi><mo 
class="MathClass-bin">&#x2212;</mo><mi 
>r</mi><mo 
class="MathClass-bin">+</mo><mn>1</mn></mrow></msub 
><mo 
class="MathClass-rel">&#x2223;</mo> <mo 
class="MathClass-rel">=</mo>
</mtd></mtr><mtr><mtd 
class="multline-star"><msubsup><mrow 
><mo 
class="MathClass-op">&#x2211;</mo>
    </mrow><mrow 
><mi 
>r</mi><mo 
class="MathClass-rel">=</mo><mi 
>q</mi><mo 
class="MathClass-bin">+</mo><mn>1</mn></mrow><mrow 
><mi 
>a</mi><mo 
class="MathClass-bin">+</mo><mi 
>h</mi><mo 
class="MathClass-bin">&#x2212;</mo><mi 
>j</mi><mo 
class="MathClass-bin">&#x2212;</mo><mi 
>m</mi></mrow></msubsup 
> <mfenced separators="" 
open="|"  close="|" ><mrow><msubsup><mrow 
><mo 
class="MathClass-op">&#x2211;</mo>
  </mrow><mrow 
><mi 
>b</mi><mo 
class="MathClass-rel">=</mo><mn>1</mn></mrow><mrow 
><mi 
>k</mi></mrow></msubsup 
><msubsup><mrow 
> <mo 
class="MathClass-op">&#x2211;</mo>
</mrow><mrow 
><mi 
>l</mi><mo 
class="MathClass-rel">=</mo><mn>0</mn></mrow><mrow 
><msub><mrow 
><mi 
>r</mi></mrow><mrow 
><mi 
>b</mi></mrow></msub 
><mo 
class="MathClass-bin">&#x2212;</mo><mn>1</mn></mrow></msubsup 
><msub><mrow 
><mi 
>c</mi></mrow><mrow 
>
<mi 
>b</mi><mi 
>l</mi></mrow></msub 
><msup><mrow 
><mi 
>r</mi></mrow><mrow 
><mi 
>l</mi></mrow></msup 
><msubsup><mrow 
><mi 
>&#x03B1;</mi></mrow><mrow 
>
<mi 
>a</mi></mrow><mrow 
><mo 
class="MathClass-bin">&#x2212;</mo><mi 
>r</mi></mrow></msubsup 
><msubsup><mrow 
> <mo 
class="MathClass-op">&#x2211;</mo>
</mrow><mrow 
><msup><mrow 
><mi 
>b</mi></mrow><mrow 
><mi 
>&#x2032;</mi></mrow></msup 
><mo 
class="MathClass-rel">=</mo><mn>1</mn></mrow><mrow 
><msup><mrow 
><mi 
>k</mi></mrow><mrow 
><mi 
>&#x2032;</mi></mrow></msup 
>
     </mrow></msubsup 
><msubsup><mrow 
><mo 
class="MathClass-op">&#x2211;</mo>
</mrow><mrow 
><msup><mrow 
><mi 
>l</mi></mrow><mrow 
><mi 
>&#x2032;</mi></mrow></msup 
><mo 
class="MathClass-rel">=</mo><mn>0</mn></mrow><mrow 
><msub><mrow 
><mi 
>r</mi></mrow><mrow 
><msup><mrow 
><mi 
>b</mi></mrow><mrow 
><mi 
>&#x2032;</mi></mrow></msup 
></mrow></msub 
><mo 
class="MathClass-bin">&#x2212;</mo><mn>1</mn></mrow></msubsup 
><msub><mrow 
><mi 
>&#x03B1;</mi></mrow><mrow 
><msup><mrow 
>
<mi 
>b</mi></mrow><mrow 
><mi 
>&#x2032;</mi></mrow></msup 
><msup><mrow 
><mi 
>l</mi></mrow><mrow 
><mi 
>&#x2032;</mi></mrow></msup 
></mrow></msub 
><msup><mrow 
><mrow><mo 
class="MathClass-open">(</mo><mrow><mi 
>a</mi> <mo 
class="MathClass-bin">+</mo> <mi 
>h</mi> <mo 
class="MathClass-bin">&#x2212;</mo> <mi 
>j</mi> <mo 
class="MathClass-bin">&#x2212;</mo> <mi 
>r</mi> <mo 
class="MathClass-bin">+</mo> <mn>1</mn></mrow><mo 
class="MathClass-close">)</mo></mrow></mrow><mrow 
><msup><mrow 
><mi 
>l</mi></mrow><mrow 
><mi 
>&#x2032;</mi></mrow></msup 
>
 </mrow></msup 
><msubsup><mrow 
><mi 
>&#x03BE;</mi></mrow><mrow 
><msup><mrow 
><mi 
>b</mi></mrow><mrow 
><mi 
>&#x2032;</mi></mrow></msup 
></mrow><mrow 
><mo 
class="MathClass-bin">&#x2212;</mo><mrow><mo 
class="MathClass-open">(</mo><mrow><mi 
>a</mi><mo 
class="MathClass-bin">+</mo><mi 
>h</mi><mo 
class="MathClass-bin">&#x2212;</mo><mi 
>j</mi><mo 
class="MathClass-bin">&#x2212;</mo><mi 
>r</mi><mo 
class="MathClass-bin">+</mo><mn>1</mn></mrow><mo 
class="MathClass-close">)</mo></mrow></mrow></msubsup 
></mrow></mfenced>
</mtd></mtr><mtr><mtd 
class="multline-star"> <mo 
class="MathClass-rel">&#x2264;</mo><msubsup><mrow 
><mo 
class="MathClass-op">&#x2211;</mo>
  </mrow><mrow 
><mi 
>b</mi><mo 
class="MathClass-rel">=</mo><mn>1</mn></mrow><mrow 
><mi 
>k</mi></mrow></msubsup 
><msubsup><mrow 
> <mo 
class="MathClass-op">&#x2211;</mo>
  </mrow><mrow 
><mi 
>l</mi><mo 
class="MathClass-rel">=</mo><mn>0</mn></mrow><mrow 
><msub><mrow 
><mi 
>r</mi></mrow><mrow 
><mi 
>b</mi></mrow></msub 
><mo 
class="MathClass-bin">&#x2212;</mo><mn>1</mn></mrow></msubsup 
><msubsup><mrow 
> <mo 
class="MathClass-op">&#x2211;</mo>
</mrow><mrow 
><msup><mrow 
><mi 
>b</mi></mrow><mrow 
><mi 
>&#x2032;</mi></mrow></msup 
><mo 
class="MathClass-rel">=</mo><mn>1</mn></mrow><mrow 
><msup><mrow 
><mi 
>k</mi></mrow><mrow 
><mi 
>&#x2032;</mi></mrow></msup 
>
     </mrow></msubsup 
><msubsup><mrow 
><mo 
class="MathClass-op">&#x2211;</mo>
</mrow><mrow 
><msup><mrow 
><mi 
>l</mi></mrow><mrow 
><mi 
>&#x2032;</mi></mrow></msup 
><mo 
class="MathClass-rel">=</mo><mn>0</mn></mrow><mrow 
><msub><mrow 
><mi 
>r</mi></mrow><mrow 
><msup><mrow 
><mi 
>b</mi></mrow><mrow 
><mi 
>&#x2032;</mi></mrow></msup 
></mrow></msub 
><mo 
class="MathClass-bin">&#x2212;</mo><mn>1</mn></mrow></msubsup 
><msubsup><mrow 
> <mo 
class="MathClass-op">&#x2211;</mo>
</mrow><mrow 
><mi 
>d</mi><mo 
class="MathClass-rel">=</mo><mn>0</mn></mrow><mrow 
><msup><mrow 
><mi 
>l</mi></mrow><mrow 
><mi 
>&#x2032;</mi></mrow></msup 
>
    </mrow></msubsup 
><mfenced separators="" 
open="(" close=")"><mfrac linethickness="0"><mrow><msup><mrow 
><mi 
>l</mi></mrow><mrow 
><mi 
>&#x2032;</mi></mrow></msup 
></mrow>
<mrow><mi 
>d</mi></mrow></mfrac></mfenced> <mfenced separators="" 
open="{"  close="" ><mrow><mo 
class="MathClass-rel">&#x2223;</mo><msub><mrow 
><mi 
>c</mi></mrow><mrow 
><mi 
>b</mi><mi 
>l</mi></mrow></msub 
><msub><mrow 
><mi 
>&#x03B1;</mi></mrow><mrow 
><msup><mrow 
><mi 
>b</mi></mrow><mrow 
><mi 
>&#x2032;</mi></mrow></msup 
><msup><mrow 
><mi 
>l</mi></mrow><mrow 
><mi 
>&#x2032;</mi></mrow></msup 
></mrow></msub 
><mo 
class="MathClass-rel">&#x2223;</mo><mo 
class="MathClass-rel">&#x2223;</mo><msubsup><mrow 
><mi 
>&#x03BE;</mi></mrow><mrow 
><msup><mrow 
><mi 
>b</mi></mrow><mrow 
><mi 
>&#x2032;</mi></mrow></msup 
></mrow><mrow 
><mo 
class="MathClass-bin">&#x2212;</mo><mrow><mo 
class="MathClass-open">(</mo><mrow><mi 
>a</mi><mo 
class="MathClass-bin">+</mo><mi 
>h</mi><mo 
class="MathClass-bin">&#x2212;</mo><mi 
>j</mi><mo 
class="MathClass-bin">+</mo><mn>1</mn></mrow><mo 
class="MathClass-close">)</mo></mrow></mrow></msubsup 
><msup><mrow 
><mrow><mo 
class="MathClass-open">(</mo><mrow><mi 
>a</mi> <mo 
class="MathClass-bin">+</mo> <mi 
>h</mi> <mo 
class="MathClass-bin">&#x2212;</mo> <mi 
>j</mi> <mo 
class="MathClass-bin">+</mo> <mn>1</mn></mrow><mo 
class="MathClass-close">)</mo></mrow></mrow><mrow 
><msup><mrow 
><mi 
>l</mi></mrow><mrow 
><mi 
>&#x2032;</mi></mrow></msup 
><mo 
class="MathClass-bin">&#x2212;</mo><mi 
>d</mi></mrow></msup 
><mo 
class="MathClass-rel">&#x2223;</mo></mrow></mfenced>
</mtd></mtr><mtr><mtd 
class="multline-star"> <mfenced separators="" 
open=""  close="}" ><mrow><mo 
class="MathClass-bin">&#x00D7;</mo><msubsup><mrow 
><mo 
class="MathClass-op">&#x2211;</mo>
  </mrow><mrow 
><mi 
>r</mi><mo 
class="MathClass-rel">=</mo><mi 
>q</mi><mo 
class="MathClass-bin">+</mo><mn>1</mn></mrow><mrow 
><mi 
>a</mi><mo 
class="MathClass-bin">+</mo><mi 
>h</mi><mo 
class="MathClass-bin">&#x2212;</mo><mi 
>j</mi><mo 
class="MathClass-bin">&#x2212;</mo><mi 
>m</mi></mrow></msubsup 
><msup><mrow 
><mi 
>r</mi></mrow><mrow 
><mi 
>l</mi><mo 
class="MathClass-bin">+</mo><mi 
>d</mi></mrow></msup 
><mo 
class="MathClass-rel">&#x2223;</mo><msub><mrow 
><mi 
>&#x03B1;</mi></mrow><mrow 
>
<mi 
>a</mi></mrow></msub 
><msup><mrow 
><mo 
class="MathClass-rel">&#x2223;</mo></mrow><mrow 
><mo 
class="MathClass-bin">&#x2212;</mo><mi 
>r</mi></mrow></msup 
><mo 
class="MathClass-rel">&#x2223;</mo><msub><mrow 
><mi 
>&#x03BE;</mi></mrow><mrow 
><msup><mrow 
>
<mi 
>b</mi></mrow><mrow 
><mi 
>&#x2032;</mi></mrow></msup 
></mrow></msub 
><msup><mrow 
><mo 
class="MathClass-rel">&#x2223;</mo></mrow><mrow 
><mi 
>r</mi></mrow></msup 
></mrow></mfenced><mo 
class="MathClass-punc">.</mo>                                                                   </mtd></mtr></mtable>
</math>
<!--l. 1304--><p class="nopar">
If <!--l. 1305--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mo 
class="MathClass-rel">&#x2223;</mo><msub><mrow 
><mi 
>&#x03BE;</mi></mrow><mrow 
><msup><mrow 
><mi 
>b</mi></mrow><mrow 
><mi 
>&#x2032;</mi></mrow></msup 
></mrow></msub 
><mo 
class="MathClass-rel">&#x2223;</mo> <mo 
class="MathClass-rel">&#x003C;</mo> <mo 
class="MathClass-rel">&#x2223;</mo><msub><mrow 
><mi 
>&#x03B1;</mi></mrow><mrow 
><mi 
>a</mi></mrow></msub 
><mo 
class="MathClass-rel">&#x2223;</mo></math>, the term
in braces <!--l. 1305--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mo 
class="MathClass-rel">&#x2192;</mo> <mn>0</mn></math>
as <!--l. 1305--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mi 
>h</mi> <mo 
class="MathClass-rel">&#x2192;</mo><mi 
>&#x221E;</mi></math>.
Let <!--l. 1306--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mo 
class="MathClass-rel">&#x2223;</mo><msub><mrow 
><mi 
>&#x03B1;</mi></mrow><mrow 
><mi 
>a</mi></mrow></msub 
><mo 
class="MathClass-rel">&#x2223;</mo> <mo 
class="MathClass-rel">=</mo> <mn>1</mn> <mo 
class="MathClass-bin">+</mo> <msub><mrow 
><mi 
>&#x03B5;</mi></mrow><mrow 
><mn>1</mn></mrow></msub 
> <mo 
class="MathClass-rel">&#x003C;</mo> <mo 
class="MathClass-rel">&#x2223;</mo><msub><mrow 
><mi 
>&#x03BE;</mi></mrow><mrow 
><msup><mrow 
><mi 
>b</mi></mrow><mrow 
><mi 
>&#x2032;</mi></mrow></msup 
></mrow></msub 
><mo 
class="MathClass-rel">&#x2223;</mo> <mo 
class="MathClass-rel">=</mo> <mn>1</mn> <mo 
class="MathClass-bin">+</mo> <msub><mrow 
><mi 
>&#x03B5;</mi></mrow><mrow 
><mn>2</mn></mrow></msub 
></math>
with <!--l. 1306--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><msub><mrow 
><mi 
>&#x03B5;</mi></mrow><mrow 
><mn>1</mn></mrow></msub 
></math>,
<!--l. 1307--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><msub><mrow 
><mi 
>&#x03B5;</mi></mrow><mrow 
><mn>2</mn></mrow></msub 
> <mo 
class="MathClass-rel">&#x003E;</mo> <mn>0</mn></math>. </p><table class="equation"><tr><td>
<a 
  name="x1-17003r2"></a>
<!--l. 1308--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="display">
<mfenced separators="" 
open="|"  close="|" ><mrow><mfrac><mrow 
><msup><mrow 
><mrow><mo 
class="MathClass-open">(</mo><mrow><mi 
>a</mi> <mo 
class="MathClass-bin">+</mo> <mi 
>h</mi> <mo 
class="MathClass-bin">&#x2212;</mo><mi 
>j</mi> <mo 
class="MathClass-bin">+</mo> <mn>1</mn></mrow><mo 
class="MathClass-close">)</mo></mrow></mrow><mrow 
><msup><mrow 
><mi 
>l</mi></mrow><mrow 
><mi 
>&#x2032;</mi></mrow></msup 
><mo 
class="MathClass-bin">&#x2212;</mo><mi 
>d</mi>
     </mrow></msup 
></mrow>
     <mrow 
><msubsup><mrow 
><mi 
>&#x03BE;</mi></mrow><mrow 
><msup><mrow 
><mi 
>b</mi></mrow><mrow 
><mi 
>&#x2032;</mi></mrow></msup 
></mrow><mrow 
><mrow><mo 
class="MathClass-open">(</mo><mrow><mi 
>a</mi><mo 
class="MathClass-bin">+</mo><mi 
>h</mi><mo 
class="MathClass-bin">&#x2212;</mo><mi 
>j</mi><mo 
class="MathClass-bin">+</mo><mn>1</mn></mrow><mo 
class="MathClass-close">)</mo></mrow></mrow></msubsup 
></mrow></mfrac>   </mrow></mfenced><msubsup><mrow 
><mo 
class="MathClass-op">&#x2211;</mo>
   </mrow><mrow 
><mi 
>r</mi><mo 
class="MathClass-rel">=</mo><mi 
>q</mi><mo 
class="MathClass-bin">+</mo><mn>1</mn></mrow><mrow 
><mi 
>a</mi><mo 
class="MathClass-bin">+</mo><mi 
>h</mi><mo 
class="MathClass-bin">&#x2212;</mo><mi 
>j</mi><mo 
class="MathClass-bin">&#x2212;</mo><mi 
>m</mi></mrow></msubsup 
><msup><mrow 
><mi 
>r</mi></mrow><mrow 
><mi 
>l</mi><mo 
class="MathClass-bin">+</mo><mi 
>d</mi></mrow></msup 
><mo 
class="MathClass-rel">&#x2223;</mo><msub><mrow 
><mi 
>&#x03B1;</mi></mrow><mrow 
>
<mi 
>a</mi></mrow></msub 
><msup><mrow 
><mo 
class="MathClass-rel">&#x2223;</mo></mrow><mrow 
><mo 
class="MathClass-bin">&#x2212;</mo><mi 
>r</mi></mrow></msup 
><mo 
class="MathClass-rel">&#x2223;</mo><msub><mrow 
><mi 
>&#x03BE;</mi></mrow><mrow 
><msup><mrow 
>
<mi 
>b</mi></mrow><mrow 
><mi 
>&#x2032;</mi></mrow></msup 
></mrow></msub 
><msup><mrow 
><mo 
class="MathClass-rel">&#x2223;</mo></mrow><mrow 
><mi 
>r</mi></mrow></msup 
> <mo 
class="MathClass-rel">&#x2264;</mo> <mfrac><mrow 
><mo 
class="MathClass-rel">&#x2223;</mo><mi 
>a</mi> <mo 
class="MathClass-bin">+</mo> <mi 
>h</mi> <mo 
class="MathClass-bin">&#x2212;</mo><mi 
>j</mi> <mo 
class="MathClass-bin">+</mo> <mn>1</mn><msup><mrow 
><mo 
class="MathClass-rel">&#x2223;</mo></mrow><mrow 
><msup><mrow 
><mi 
>l</mi></mrow><mrow 
><mi 
>&#x2032;</mi></mrow></msup 
><mo 
class="MathClass-bin">&#x2212;</mo><mi 
>d</mi>
     </mrow></msup 
></mrow> 
    <mrow 
><mo 
class="MathClass-rel">&#x2223;</mo><msub><mrow 
><mi 
>&#x03BE;</mi></mrow><mrow 
><msup><mrow 
><mi 
>b</mi></mrow><mrow 
><mi 
>&#x2032;</mi></mrow></msup 
></mrow></msub 
><msup><mrow 
><mo 
class="MathClass-rel">&#x2223;</mo></mrow><mrow 
><mi 
>a</mi><mo 
class="MathClass-bin">+</mo><mi 
>h</mi><mo 
class="MathClass-bin">&#x2212;</mo><mi 
>j</mi><mo 
class="MathClass-bin">+</mo><mn>1</mn></mrow></msup 
></mrow></mfrac><msubsup><mrow 
>      <mo 
class="MathClass-op">&#x2211;</mo>
              </mrow><mrow 
><mi 
>r</mi><mo 
class="MathClass-rel">=</mo><mn>0</mn></mrow><mrow 
><mi 
>a</mi><mo 
class="MathClass-bin">+</mo><mi 
>h</mi><mo 
class="MathClass-bin">&#x2212;</mo><mi 
>j</mi><mo 
class="MathClass-bin">+</mo><mn>1</mn></mrow></msubsup 
><msup><mrow 
><mi 
>r</mi></mrow><mrow 
><mi 
>l</mi><mo 
class="MathClass-bin">+</mo><mi 
>d</mi></mrow></msup 
><msup><mrow 
> <mfenced separators="" 
open="("  close=")" ><mrow><mfrac><mrow 
><mo 
class="MathClass-rel">&#x2223;</mo><msub><mrow 
><mi 
>&#x03BE;</mi></mrow><mrow 
><msup><mrow 
><mi 
>b</mi></mrow><mrow 
><mi 
>&#x2032;</mi></mrow></msup 
></mrow></msub 
><mo 
class="MathClass-rel">&#x2223;</mo></mrow>
<mrow 
><mo 
class="MathClass-rel">&#x2223;</mo><msub><mrow 
><mi 
>&#x03B1;</mi></mrow><mrow 
><mi 
>a</mi></mrow></msub 
><mo 
class="MathClass-rel">&#x2223;</mo></mrow></mfrac></mrow></mfenced></mrow><mrow 
><mi 
>r</mi></mrow></msup 
><mo 
class="MathClass-punc">.</mo>
</math>
<!--l. 1312--><p class="nopar"></p></td><td class="eq-no"><span 
class="ecrm-1095">(D.2)</span></td></tr></table>
For all <!--l. 1313--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mi 
>&#x03B5;</mi> <mo 
class="MathClass-rel">&#x003E;</mo> <mn>0</mn></math>,
there exist a <!--l. 1313--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mi 
>C</mi><mo 
class="MathClass-punc">,</mo><msup><mrow 
><mi 
>C</mi></mrow><mrow 
><mi 
>&#x2032;</mi></mrow></msup 
></math>
such that the left-hand side of (<a 
href="#x1-17003r2">D.2<!--tex4ht:ref: equationD.2 --></a>) is bounded above by <table class="equation"><tr><td> <a 
  name="x1-17004r3"></a>

<!--l. 1315--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="display">
<mi 
>C</mi><mfrac><mrow 
><mo 
class="MathClass-rel">&#x2223;</mo><mi 
>a</mi> <mo 
class="MathClass-bin">+</mo> <mi 
>h</mi> <mo 
class="MathClass-bin">&#x2212;</mo> <mi 
>j</mi> <mo 
class="MathClass-bin">+</mo> <mn>1</mn><msup><mrow 
><mo 
class="MathClass-rel">&#x2223;</mo></mrow><mrow 
><msup><mrow 
><mi 
>l</mi></mrow><mrow 
><mi 
>&#x2032;</mi></mrow></msup 
><mo 
class="MathClass-bin">&#x2212;</mo><mi 
>d</mi></mrow></msup 
></mrow> 
     <mrow 
><mo 
class="MathClass-rel">&#x2223;</mo><msub><mrow 
><mi 
>&#x03BE;</mi></mrow><mrow 
><msup><mrow 
><mi 
>b</mi></mrow><mrow 
><mi 
>&#x2032;</mi></mrow></msup 
></mrow></msub 
><msup><mrow 
><mo 
class="MathClass-rel">&#x2223;</mo></mrow><mrow 
><mi 
>a</mi><mo 
class="MathClass-bin">+</mo><mi 
>h</mi><mo 
class="MathClass-bin">&#x2212;</mo><mi 
>j</mi><mo 
class="MathClass-bin">+</mo><mn>1</mn></mrow></msup 
></mrow></mfrac>       <mfrac><mrow 
><msup><mrow 
> <mfenced separators="" 
open="("  close=")" ><mrow><mfrac><mrow 
><mo 
class="MathClass-rel">&#x2223;</mo><msub><mrow 
><mi 
>&#x03BE;</mi></mrow><mrow 
><msup><mrow 
><mi 
>b</mi></mrow><mrow 
><mi 
>&#x2032;</mi></mrow></msup 
></mrow></msub 
><mo 
class="MathClass-rel">&#x2223;</mo></mrow>
<mrow 
><mo 
class="MathClass-rel">&#x2223;</mo><msub><mrow 
><mi 
>&#x03B1;</mi></mrow><mrow 
><mi 
>a</mi></mrow></msub 
><mo 
class="MathClass-rel">&#x2223;</mo></mrow></mfrac> <mo 
class="MathClass-bin">+</mo> <mi 
>&#x03B5;</mi></mrow></mfenced></mrow><mrow 
><mi 
>h</mi><mo 
class="MathClass-bin">+</mo><mi 
>a</mi><mo 
class="MathClass-bin">&#x2212;</mo><mi 
>j</mi><mo 
class="MathClass-bin">+</mo><mn>2</mn></mrow></msup 
> <mo 
class="MathClass-bin">&#x2212;</mo> <mn>1</mn></mrow> 
      <mrow 
><mfrac><mrow 
><mo 
class="MathClass-rel">&#x2223;</mo><msub><mrow 
><mi 
>&#x03BE;</mi></mrow><mrow 
><msup><mrow 
><mi 
>b</mi></mrow><mrow 
><mi 
>&#x2032;</mi></mrow></msup 
></mrow></msub 
><mo 
class="MathClass-rel">&#x2223;</mo></mrow> 
<mrow 
><mo 
class="MathClass-rel">&#x2223;</mo><msub><mrow 
><mi 
>&#x03B1;</mi></mrow><mrow 
><mi 
>a</mi></mrow></msub 
><mo 
class="MathClass-rel">&#x2223;</mo></mrow></mfrac> <mo 
class="MathClass-bin">+</mo> <mi 
>&#x03B5;</mi> <mo 
class="MathClass-bin">&#x2212;</mo> <mn>1</mn></mrow></mfrac>       <mo 
class="MathClass-rel">&#x2264;</mo> <msup><mrow 
><mi 
>C</mi></mrow><mrow 
><mi 
>&#x2032;</mi></mrow></msup 
><mo 
class="MathClass-rel">&#x2223;</mo><mi 
>a</mi> <mo 
class="MathClass-bin">+</mo> <mi 
>h</mi> <mo 
class="MathClass-bin">&#x2212;</mo> <mi 
>j</mi> <mo 
class="MathClass-bin">+</mo> <mn>1</mn><msup><mrow 
><mo 
class="MathClass-rel">&#x2223;</mo></mrow><mrow 
><msup><mrow 
><mi 
>l</mi></mrow><mrow 
><mi 
>&#x2032;</mi></mrow></msup 
><mo 
class="MathClass-bin">&#x2212;</mo><mi 
>d</mi></mrow></msup 
><msup><mrow 
> <mfenced separators="" 
open="("  close=")" ><mrow><mfrac><mrow 
><mfrac><mrow 
><mo 
class="MathClass-rel">&#x2223;</mo><msub><mrow 
><mi 
>&#x03BE;</mi></mrow><mrow 
><msup><mrow 
><mi 
>b</mi></mrow><mrow 
><mi 
>&#x2032;</mi></mrow></msup 
></mrow></msub 
><mo 
class="MathClass-rel">&#x2223;</mo></mrow> 
<mrow 
><mo 
class="MathClass-rel">&#x2223;</mo><msub><mrow 
><mi 
>&#x03B1;</mi></mrow><mrow 
><mi 
>a</mi></mrow></msub 
><mo 
class="MathClass-rel">&#x2223;</mo></mrow></mfrac> <mo 
class="MathClass-bin">+</mo> <mi 
>&#x03B5;</mi></mrow>
  <mrow 
><mo 
class="MathClass-rel">&#x2223;</mo><msub><mrow 
><mi 
>&#x03BE;</mi></mrow><mrow 
><msup><mrow 
><mi 
>b</mi></mrow><mrow 
><mi 
>&#x2032;</mi></mrow></msup 
></mrow></msub 
><mo 
class="MathClass-rel">&#x2223;</mo></mrow></mfrac> </mrow></mfenced></mrow><mrow 
><mi 
>a</mi><mo 
class="MathClass-bin">+</mo><mi 
>h</mi><mo 
class="MathClass-bin">&#x2212;</mo><mi 
>j</mi><mo 
class="MathClass-bin">+</mo><mn>2</mn></mrow></msup 
><mo 
class="MathClass-punc">.</mo>
</math>
<!--l. 1319--><p class="nopar"></p></td><td class="eq-no">(D.3)</td></tr></table>
In (<a 
href="#x1-17004r3">D.3<!--tex4ht:ref: equationD.3 --></a>), take <!--l. 1320--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mi 
>&#x03B5;</mi> <mo 
class="MathClass-rel">&#x003E;</mo> <mn>0</mn></math>
smaller than <!--l. 1321--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><msub><mrow 
><mi 
>&#x03B5;</mi></mrow><mrow 
><mn>1</mn></mrow></msub 
><mrow><mo 
class="MathClass-open">(</mo><mrow><mn>1</mn> <mo 
class="MathClass-bin">+</mo> <msub><mrow 
><mi 
>&#x03B5;</mi></mrow><mrow 
><mn>2</mn></mrow></msub 
></mrow><mo 
class="MathClass-close">)</mo></mrow><mo 
class="MathClass-bin">&#x2215;</mo><mrow><mo 
class="MathClass-open">(</mo><mrow><mn>1</mn> <mo 
class="MathClass-bin">+</mo> <msub><mrow 
><mi 
>&#x03B5;</mi></mrow><mrow 
><mn>1</mn></mrow></msub 
></mrow><mo 
class="MathClass-close">)</mo></mrow></math>.
Then the right hand side of (<a 
href="#x1-17004r3">D.3<!--tex4ht:ref: equationD.3 --></a>) converges to 0 as
<!--l. 1322--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mi 
>h</mi> <mo 
class="MathClass-rel">&#x2192;</mo><mi 
>&#x221E;</mi></math>. This
shows that the first term in the limit of (<a 
href="#x1-17001r1">1<!--tex4ht:ref: equationD.1 --></a>) converges to 0. It follows that
the second term also converges toward 0. As for the last term in the limit, a
similar argument yields that all terms on the right hand side of (<a 
href="#x1-17001r1">1<!--tex4ht:ref: equationD.1 --></a>) converge to
<!--l. 1325--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mn>0</mn></math> so
that <!--l. 1325--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><msub><mrow 
><mi 
>d</mi></mrow><mrow 
><mn>4</mn><mi 
>j</mi></mrow></msub 
> <mo 
class="MathClass-rel">&#x2192;</mo> <mn>0</mn></math>.
   <h3 class="sectionHead"><a 
  name="x1-180005"></a>Bibliographie</h3>
<!--l. 1328--><p class="noindent">
<a 
  name="dx1-18001"></a>
              </p><div class="thebibliography"><p class="bibitem"><span class="biblabel">
           [1] <span class="bibsp">&#x00A0;&#x00A0;&#x00A0;</span></span>  <a 
  name="X1997Andel161duch"></a>Andel,  J.,  1997.  On  residual  analysis  for  time  series  models.
              Kybernetika 33(2), 161-170. <a 
  name="dx1-18002"></a>
              </p><p class="bibitem"><span class="biblabel">
           [2] <span class="bibsp">&#x00A0;&#x00A0;&#x00A0;</span></span>          <a 
  name="X1985Beiseduch"></a>Beiser,          A.,          1985.          Distributions          of
              <!--l. 1332--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><msqrt><mrow><msub><mrow 
><mi 
>b</mi></mrow><mrow 
><mn>1</mn></mrow></msub 
></mrow></msqrt></math>
              and <!--l. 1332--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><msub><mrow 
><mi 
>b</mi></mrow><mrow 
><mn>2</mn></mrow></msub 
></math>
              for autoregressive errors. Ph.D. thesis, Boston University. <a 
  name="dx1-18003"></a>
              </p><p class="bibitem"><span class="biblabel">
           [3] <span class="bibsp">&#x00A0;&#x00A0;&#x00A0;</span></span>   <a 
  name="X1988Brock657duch"></a>Brockett,   P.   L.,   Hinich,   M.   J.,   Patterson,   D.,   1988.
              Bispectral-based tests for the detection of Gaussianity and linearity
              in time series. J. Amer. Statist. Assoc. 83, 657-664. <a 
  name="dx1-18004"></a>
              </p><p class="bibitem"><span class="biblabel">
           [4] <span class="bibsp">&#x00A0;&#x00A0;&#x00A0;</span></span> <a 
  name="X1991Brockduch"></a>Brockwell, P. J., Davis, R. A., 1991. Time series&#x00A0;: Theory and
              Methods, 2nd Edition. Springer-Verlag New York. <a 
  name="dx1-18005"></a>
              </p><p class="bibitem"><span class="biblabel">
           [5] <span class="bibsp">&#x00A0;&#x00A0;&#x00A0;</span></span> <a 
  name="X1987Burn289duch"></a>Burn, D.A., 1987. Simulation of stationary time series. Proceedings
              of the 1987 Winter Simulation Conference, 289-294. <a 
  name="dx1-18006"></a>
              </p><p class="bibitem"><span class="biblabel">
           [6] <span class="bibsp">&#x00A0;&#x00A0;&#x00A0;</span></span>  <a 
  name="X1994Cromwduch"></a>Cromwell,  J.  B.,  Labys,  W.  C.,  Terraza,  M.,  1994.  Univariate
              tests for time-series models. Sage Publications Inc, Thousand Oaks,
              California. <a 
  name="dx1-18007"></a>
              </p><p class="bibitem"><span class="biblabel">
           [7] <span class="bibsp">&#x00A0;&#x00A0;&#x00A0;</span></span>  <a 
  name="X1986Dagosduch"></a>D&#x2019;Agostino,  R.  B.,  Stephens,  M.  A.,  1986.  Goodness-of-fit

              techniques.  Statistics&#x00A0;:  TextBOOKs  and  Monographs,  68,  New
              York&#x00A0;: Marcel Dekker. <a 
  name="dx1-18008"></a>
              </p><p class="bibitem"><span class="biblabel">
           [8] <span class="bibsp">&#x00A0;&#x00A0;&#x00A0;</span></span> <a 
  name="X2002Duchaduch"></a>Ducharme, G.R., Lafaye de Micheaux, P., 2002. Goodness-of-fit
              tests of normality for the innovations in ARMA models. Tech. rep.,
              Technical report #02-02, Universit&#x00E9; Montpellier II. <a 
  name="dx1-18009"></a>
              </p><p class="bibitem"><span class="biblabel">
           [9] <span class="bibsp">&#x00A0;&#x00A0;&#x00A0;</span></span>  <a 
  name="X1987Epps1683duch"></a>Epps,  T.  W.,  1987.  Testing  that  a  stationnary  time  series  is
              Gaussian. Ann. Statist. 15(4), 1683-1698. <a 
  name="dx1-18010"></a>
              </p><p class="bibitem"><span class="biblabel">
          [10] <span class="bibsp">&#x00A0;&#x00A0;&#x00A0;</span></span> <a 
  name="X1998Francduch"></a>Frances, P.H., 1998. Time series models for business and economic
              forecasting. Cambridge University Press, Cambridge. <a 
  name="dx1-18011"></a>
              </p><p class="bibitem"><span class="biblabel">
          [11] <span class="bibsp">&#x00A0;&#x00A0;&#x00A0;</span></span>  <a 
  name="X1975Gasse563duch"></a>Gasser,  T.,  1975.  Goodness-of-fit  tests  for  correlated  data.
              Biometrika 62, 563-570. <a 
  name="dx1-18012"></a>
              </p><p class="bibitem"><span class="biblabel">
          [12] <span class="bibsp">&#x00A0;&#x00A0;&#x00A0;</span></span>  <a 
  name="X1995Gourrduch"></a>Gouri&#x00E9;roux,  C.,  Monfort,  A.,  1995.  S&#x00E9;ries  temporelles  et
              mod&#x00E8;les dynamiques, 2nd Edition. Economica. <a 
  name="dx1-18013"></a>
              </p><p class="bibitem"><span class="biblabel">
          [13] <span class="bibsp">&#x00A0;&#x00A0;&#x00A0;</span></span> <a 
  name="X1976Grang237duch"></a>Granger, C. W. J., 1976. Tendency towards normality of linear
              combinations of random variables. Metrika 23(4), 237-248. <a 
  name="dx1-18014"></a>
              </p><p class="bibitem"><span class="biblabel">
          [14] <span class="bibsp">&#x00A0;&#x00A0;&#x00A0;</span></span>  <a 
  name="X1997Henze121duch"></a>Henze,  N.,  1997.  Do  components  of  smooth  tests  of  fit  have
              diagnostic properties<span class="frenchb-thinspace"> </span>? Metrika 45, 121-130. <a 
  name="dx1-18015"></a>
              </p><p class="bibitem"><span class="biblabel">
          [15] <span class="bibsp">&#x00A0;&#x00A0;&#x00A0;</span></span>   <a 
  name="X1986Heuts49duch"></a>Heuts,   R.M.J.,   Rens,   S.,   1986.   Testing   normality   when
              observations satisfy a certain low order ARMA-scheme. Computat.
              Statist. Quarterly 1, 49-60. <a 
  name="dx1-18016"></a>
              </p><p class="bibitem"><span class="biblabel">
          [16] <span class="bibsp">&#x00A0;&#x00A0;&#x00A0;</span></span> <a 
  name="X1982Hinic169duch"></a>Hinich, M. J., 1982. Testing for Gaussianity and Linearity of a
              stationary time series. J. Time Ser. Anal. 3(3), 169-176. <a 
  name="dx1-18017"></a>
              </p><p class="bibitem"><span class="biblabel">
          [17] <span class="bibsp">&#x00A0;&#x00A0;&#x00A0;</span></span> <a 
  name="X1994Hipelduch"></a>Hipel, K. W., McLeod, A. I., 1994. Time series modelling of water
              resources and environmental systems. [Elsevier Science Publishing
              Co., New York<span class="frenchb-thinspace"> </span>; North-Holland Publishing Co., Amsterdam] (New
              York<span class="frenchb-thinspace"> </span>; Amsterdam). <a 
  name="dx1-18018"></a>
              </p><p class="bibitem"><span class="biblabel">
          [18] <span class="bibsp">&#x00A0;&#x00A0;&#x00A0;</span></span> <a 
  name="X2000Janic281duch"></a>Janic-Wroblewska, A., Ledwina, T., 2000. Data driven rank test
              for two-sample problem. Scand. J. Statist. 27, 281-298. <a 
  name="dx1-18019"></a>
              </p><p class="bibitem"><span class="biblabel">
          [19] <span class="bibsp">&#x00A0;&#x00A0;&#x00A0;</span></span>  <a 
  name="X1987Jarqu163duch"></a>Jarque,  C.M.,  Bera,  A.K.,  1987.  A  test  for  normality  of
              observations  and  regression  residuals.  Internat.  Statist.  Review
              55(2), 163-172. <a 
  name="dx1-18020"></a>

              </p><p class="bibitem"><span class="biblabel">
          [20] <span class="bibsp">&#x00A0;&#x00A0;&#x00A0;</span></span>  <a 
  name="X1997Kalle101duch"></a>Kallenberg,  W.C.M.,  Ledwina,  T,  1997a.  Data  driven  smooth
              tests for composite hypotheses&#x00A0;: comparison of powers. J. Statist.
              Comput. Simul. 59(2), 101-121. <a 
  name="dx1-18021"></a>
              </p><p class="bibitem"><span class="biblabel">
          [21] <span class="bibsp">&#x00A0;&#x00A0;&#x00A0;</span></span> <a 
  name="X1997Kalle1094duch"></a>Kallenberg, W.C.M., Ledwina, T, 1997b. Data-driven smooth tests
              when the hypothesis is composite. J. Amer. Statist. Assoc. 439(92),
              1094-1104. <a 
  name="dx1-18022"></a>
              </p><p class="bibitem"><span class="biblabel">
          [22] <span class="bibsp">&#x00A0;&#x00A0;&#x00A0;</span></span> <a 
  name="X1999Koul204duch"></a>Koul, H. L., Stute, W., 1999. Nonparametric model checks for time
              series. Ann. Statist. 27(1), 204&#x2013;236. <a 
  name="dx1-18023"></a>
              </p><p class="bibitem"><span class="biblabel">
          [23] <span class="bibsp">&#x00A0;&#x00A0;&#x00A0;</span></span> <a 
  name="X1994Ledwi1000duch"></a>Ledwina, T., 1994. Data-driven version of Neyman&#x2019;s smooth test
              of fit. J. Amer. Statist. Assoc. 89(427), 1000-1005. <a 
  name="dx1-18024"></a>
              </p><p class="bibitem"><span class="biblabel">
          [24] <span class="bibsp">&#x00A0;&#x00A0;&#x00A0;</span></span> <a 
  name="X2001Leeduch"></a>Lee, S., Na, S., 2001. On the Bickel-Rosenblatt test for first-order
              autoregressive models. Statist. Probab. Lett. 56(1), 23-35. <a 
  name="dx1-18025"></a>
              </p><p class="bibitem"><span class="biblabel">
          [25] <span class="bibsp">&#x00A0;&#x00A0;&#x00A0;</span></span> <a 
  name="X1961Lomni37duch"></a>Lomnicki, Z.A., 1961. Tests for departure from normality in the
              case of linear stochastic processes. Metrika 4, 37-62. <a 
  name="dx1-18026"></a>
              </p><p class="bibitem"><span class="biblabel">
          [26] <span class="bibsp">&#x00A0;&#x00A0;&#x00A0;</span></span>  <a 
  name="X1989Lutke151duch"></a>Lutkepohl,  H.,  Schneider,  W.,  1989.  Testing  for  normality  of
              autoregressive time series. Comput. Statist. Quaterly 2, 151-168. <a 
  name="dx1-18027"></a>
              </p><p class="bibitem"><span class="biblabel">
          [27] <span class="bibsp">&#x00A0;&#x00A0;&#x00A0;</span></span> <a 
  name="X1982Moore1163duch"></a>Moore, D. S., 1982. The effect of dependence on chi squared tests
              of fit. Ann. Statist. 10(4), 1163-1171. <a 
  name="dx1-18028"></a>
              </p><p class="bibitem"><span class="biblabel">
          [28] <span class="bibsp">&#x00A0;&#x00A0;&#x00A0;</span></span> <a 
  name="X1937Neyma149duch"></a>Neyman, J., 1937. Smooth test for goodness of fit. Skand. Aktuar.
              20, 149-199. <a 
  name="dx1-18029"></a>
              </p><p class="bibitem"><span class="biblabel">
          [29] <span class="bibsp">&#x00A0;&#x00A0;&#x00A0;</span></span>  <a 
  name="X1997Ojeda3713duch"></a>Ojeda,  R.,  Cardoso,  J.F.,  Moulines,  E.,  1997.  Asymptotically
              invariant gaussianity test for causal invertible time series. Proc.
              of IEEE international conference on Acoustics, Speech and Signal
              Processing 5, 3713-3716. <a 
  name="dx1-18030"></a>
              </p><p class="bibitem"><span class="biblabel">
          [30] <span class="bibsp">&#x00A0;&#x00A0;&#x00A0;</span></span> <a 
  name="X1985Pierc552duch"></a>Pierce, D. A., Gray, R. J., 1985. Goodness-of-fit tests for censored
              survival data. Ann. Statist. 13(2), 552-563. <a 
  name="dx1-18031"></a>
              </p><p class="bibitem"><span class="biblabel">
          [31] <span class="bibsp">&#x00A0;&#x00A0;&#x00A0;</span></span>   <a 
  name="X1989Rayneduch"></a>Rayner,   J.C.W.,   Best,   D.J.,   1989.   Smooth   Tests   of
              Goodness-of-Fit. Oxford&#x00A0;: Oxford University Press. <a 
  name="dx1-18032"></a>
              </p><p class="bibitem"><span class="biblabel">
          [32] <span class="bibsp">&#x00A0;&#x00A0;&#x00A0;</span></span> <a 
  name="X1959Sansoduch"></a>Sansone, G., 1959. Orthogonal functions. New York&#x00A0;: Interscience.
              <a 
  name="dx1-18033"></a>

              </p><p class="bibitem"><span class="biblabel">
          [33] <span class="bibsp">&#x00A0;&#x00A0;&#x00A0;</span></span> <a 
  name="X1978Schwa461duch"></a>Schwarz, G., 1978. Estimating the dimension of a model. Ann.
              Statist. 6(2), 461-464. <a 
  name="dx1-18034"></a>
              </p><p class="bibitem"><span class="biblabel">
          [34] <span class="bibsp">&#x00A0;&#x00A0;&#x00A0;</span></span> <a 
  name="X1987Shea95duch"></a>Shea, B. L., 1987. Estimation of multivariate time series. J. Time
              Ser. Anal. 8(1), 95-109. <a 
  name="dx1-18035"></a>
              </p><p class="bibitem"><span class="biblabel">
          [35] <span class="bibsp">&#x00A0;&#x00A0;&#x00A0;</span></span>  <a 
  name="X1975Weisb133duch"></a>Weisberg,  S.,  Bingham,  C,  1975.  An  approximate  analysis  of
              variance test for non-normality suitable for machine calculation.
              Technometrics 17, 133-134.</p></div>





   <h2 class="chapterHead"><span class="titlemark">Chapitre&#x00A0;3</span><br /><a 
  name="x1-190003"></a>A multivariate empirical characteristic function test of independence with
normal marginals</h2>
<!--l. 7--><p class="noindent">Cet article a &#x00E9;t&#x00E9; soumis &#x00E0; la revue <span 
class="ecti-1200">Journal of Multivariate Analysis</span>.
</p><!--l. 11--><p class="noindent">Comme la coutume dans cette discipline le veut, l&#x2019;ordre alphab&#x00E9;tique des auteurs a
&#x00E9;t&#x00E9; respect&#x00E9;.
</p><!--l. 24--><p class="noindent">Voici la liste des contributions principales de Pierre Lafaye de Micheaux &#x00E0; cet
article&#x00A0;:
<br class="newline" />
     </p><ul class="itemize1">
     <li class="itemize">Conduite d&#x2019;une importante recherche bibliographique.
     </li>
     <li class="itemize">D&#x00E9;monstration des Th&#x00E9;or&#x00E8;mes <a 
href="#x1-22008r1">2.1<!--tex4ht:ref: nonserialconvknown --></a>, <a 
href="#x1-23010r3">2.3<!--tex4ht:ref: thkeller --></a>, <a 
href="#x1-27001r1">3.1<!--tex4ht:ref: serialconvknown --></a>, <a 
href="#x1-28002r2">3.2<!--tex4ht:ref: serialconvunknown --></a> et <a 
href="#x1-28005r3">3.3<!--tex4ht:ref: serialconvint --></a>.
     </li>
     <li class="itemize">D&#x00E9;monstration d&#x2019;une partie de la preuve du Th&#x00E9;or&#x00E8;me <a 
href="#x1-23003r2">2.2<!--tex4ht:ref: nonserialconvunknown --></a>.
     </li>
     <li class="itemize">D&#x00E9;monstration de l&#x2019;essentiel de la preuve du Th&#x00E9;or&#x00E8;me <a 
href="#x1-23012r4">2.4<!--tex4ht:ref: jointdistcramer --></a>.
     </li>
     <li class="itemize">Conduite g&#x00E9;n&#x00E9;rale de la recherche pour l&#x2019;int&#x00E9;gralit&#x00E9; de la section 4.
     </li>
     <li class="itemize">Conception, &#x00E9;criture et validation des programmes C++ et simulations.
     </li>
     <li class="itemize">R&#x00E9;daction d&#x2019;une bonne partie de l&#x2019;article en anglais.</li></ul>
<!--l. 34--><p class="nopar">
</p><!--l. 36--><p class="indent">

</p>
<div class="center" 
>
 <span 
class="ecbx-1728">A multivariate empirical characteristic function</span>
<span 
class="ecbx-1728">test of independence with normal marginals</span><br />
<span 
class="ecrm-1440">Martin Bilodeau and Pierre Lafaye de Micheaux</span><br />
<span 
class="ecti-1095">D</span><span 
class="ecti-1095">&#x00E9;</span><span 
class="ecti-1095">partement de math</span><span 
class="ecti-1095">&#x00E9;</span><span 
class="ecti-1095">matiques et de statistique, Universit</span><span 
class="ecti-1095">&#x00E9;</span> <span 
class="ecti-1095">de Montr</span><span 
class="ecti-1095">&#x00E9;</span><span 
class="ecti-1095">al, Canada</span></div>
_
     <span 
class="ecbx-1200">Abstract</span>
<br class="newline" />This paper proposes a semi-parametric test of independence (or serial independence)
between marginal vectors each of which is normally distributed but without assuming
the joint normality of these marginal vectors. The test statistic is a Cram&#x00E9;r-von Mises
functional of a process defined from the empirical characteristic function. This process
is defined similarly as the process of Ghoudi et al. (2001) built from the empirical
distribution function and used to test for independence between univariate marginal
variables. The test statistic can be represented as a V statistic. It is consistent to
detect any form of dependence. The weak convergence of the process is derived. The
asymptotic distribution of the Cram&#x00E9;r-von Mises functionals are approximated by the
Cornish-Fisher expansion using a recursive formula for cumulants and by the
numerical evaluations of the eigenvalues in the inversion formula. The test
statistic is finally compared with Wilks&#x2019; statistic for testing the parametric
hypothesis of independence in the one-way MANOVA model with random
effects.
<!--l. 72--><p class="noindent"><span 
class="ecti-1095">Key words</span>&#x00A0;<span 
class="ecti-1095">: </span>Characteristic function, Independence, Multivariate Analysis, Serial
independence, Stochastic processes
</p><!--l. 75--><p class="indent">     <span 
class="ecti-1200">1991 MSC:</span>&#x00A0;62H15, 62M99___________________________________________________________________
</p>
     <h3 class="sectionHead"><span class="titlemark">1. </span> <a 
  name="x1-200001"></a>Introduction</h3>
<!--l. 82--><p class="noindent">Different characterizations have led to various tests of independence. Let
<!--l. 83--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mi 
>p</mi> <mo 
class="MathClass-rel">&#x2265;</mo> <mn>1</mn></math>
be a fixed integer. Consider a partitioned random vector
<!--l. 85--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mi 
>&#x03B5;</mi> <mo 
class="MathClass-rel">=</mo> <mfenced separators="" 
open="("  close=")" ><mrow><msup><mrow 
><mi 
>&#x03B5;</mi></mrow><mrow 
><mrow><mo 
class="MathClass-open">(</mo><mrow><mn>1</mn></mrow><mo 
class="MathClass-close">)</mo></mrow></mrow></msup 
><mo 
class="MathClass-punc">,</mo><mo 
class="MathClass-op">&#x2026;</mo><mo 
class="MathClass-punc">,</mo><msup><mrow 
><mi 
>&#x03B5;</mi></mrow><mrow 
><mrow><mo 
class="MathClass-open">(</mo><mrow><mi 
>p</mi></mrow><mo 
class="MathClass-close">)</mo></mrow></mrow></msup 
></mrow></mfenced></math> made
up of <!--l. 86--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mi 
>p</mi></math>
<!--l. 86--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mi 
>q</mi></math>-dimensional subvectors and
a corresponding partitioned <!--l. 88--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mi 
>t</mi> <mo 
class="MathClass-rel">=</mo> <mfenced separators="" 
open="("  close=")" ><mrow><msup><mrow 
><mi 
>t</mi></mrow><mrow 
><mrow><mo 
class="MathClass-open">(</mo><mrow><mn>1</mn></mrow><mo 
class="MathClass-close">)</mo></mrow></mrow></msup 
><mo 
class="MathClass-punc">,</mo><mo 
class="MathClass-op">&#x2026;</mo><mo 
class="MathClass-punc">,</mo><msup><mrow 
><mi 
>t</mi></mrow><mrow 
><mrow><mo 
class="MathClass-open">(</mo><mrow><mi 
>p</mi></mrow><mo 
class="MathClass-close">)</mo></mrow></mrow></msup 
></mrow></mfenced></math>,
for any fixed vector <!--l. 89--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mi 
>t</mi></math>.

Independence of the subvectors may be characterized with the joint distribution
function or characteristic function as
</p><!--l. 92--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="display">
<mtable 
class="eqnarray" columnalign="right center left" >
<mtr><mtd 
class="eqnarray-1"> <msub><mrow 
><mi 
>K</mi></mrow><mrow 
><mi 
>p</mi></mrow></msub 
><mrow><mo 
class="MathClass-open">(</mo><mrow><mi 
>t</mi></mrow><mo 
class="MathClass-close">)</mo></mrow></mtd><mtd 
class="eqnarray-2">   <mo 
class="MathClass-rel">=</mo></mtd><mtd 
class="eqnarray-3"><msubsup><mrow 
>   <mo 
class="MathClass-op">&#x220F;</mo>
                </mrow><mrow 
><mi 
>k</mi><mo 
class="MathClass-rel">=</mo><mn>1</mn></mrow><mrow 
><mi 
>p</mi></mrow></msubsup 
><msup><mrow 
><mi 
>K</mi></mrow><mrow 
><mrow><mo 
class="MathClass-open">(</mo><mrow><mi 
>k</mi></mrow><mo 
class="MathClass-close">)</mo></mrow></mrow></msup 
><mrow><mo 
class="MathClass-open">(</mo><mrow><msup><mrow 
><mi 
>t</mi></mrow><mrow 
><mrow><mo 
class="MathClass-open">(</mo><mrow><mi 
>k</mi></mrow><mo 
class="MathClass-close">)</mo></mrow></mrow></msup 
></mrow><mo 
class="MathClass-close">)</mo></mrow><mo 
class="MathClass-punc">,</mo></mtd><mtd 
class="eqnarray-4"> <mtext class="eqnarray">(1.1)</mtext><mtext 
   id="x1-20001r1.1"  class="label" ></mtext><mtext 
class="endlabel"></mtext></mtd>
</mtr><mtr><mtd 
class="eqnarray-1"> <msub><mrow 
><mi 
>C</mi></mrow><mrow 
><mi 
>p</mi></mrow></msub 
><mrow><mo 
class="MathClass-open">(</mo><mrow><mi 
>t</mi></mrow><mo 
class="MathClass-close">)</mo></mrow></mtd><mtd 
class="eqnarray-2">   <mo 
class="MathClass-rel">=</mo></mtd><mtd 
class="eqnarray-3"><msubsup><mrow 
>   <mo 
class="MathClass-op">&#x220F;</mo>
                </mrow><mrow 
><mi 
>k</mi><mo 
class="MathClass-rel">=</mo><mn>1</mn></mrow><mrow 
><mi 
>p</mi></mrow></msubsup 
><msup><mrow 
><mi 
>C</mi></mrow><mrow 
><mrow><mo 
class="MathClass-open">(</mo><mrow><mi 
>k</mi></mrow><mo 
class="MathClass-close">)</mo></mrow></mrow></msup 
><mrow><mo 
class="MathClass-open">(</mo><mrow><msup><mrow 
><mi 
>t</mi></mrow><mrow 
><mrow><mo 
class="MathClass-open">(</mo><mrow><mi 
>k</mi></mrow><mo 
class="MathClass-close">)</mo></mrow></mrow></msup 
></mrow><mo 
class="MathClass-close">)</mo></mrow><mo 
class="MathClass-punc">,</mo> </mtd><mtd 
class="eqnarray-4"> <mtext class="eqnarray">(1.2)</mtext><mtext 
   id="x1-20001r1.2"  class="label" ></mtext><mtext 
class="endlabel"></mtext></mtd>                                               </mtr></mtable>
</math>
<!--l. 97--><p class="nopar">
where <!--l. 98--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><msub><mrow 
><mi 
>K</mi></mrow><mrow 
><mi 
>p</mi></mrow></msub 
></math>
and <!--l. 98--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><msub><mrow 
><mi 
>C</mi></mrow><mrow 
><mi 
>p</mi></mrow></msub 
></math> are,
respectively, the joint distribution function and joint characteristic function. The marginal
versions are <!--l. 100--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><msup><mrow 
><mi 
>K</mi></mrow><mrow 
><mrow><mo 
class="MathClass-open">(</mo><mrow><mi 
>k</mi></mrow><mo 
class="MathClass-close">)</mo></mrow></mrow></msup 
></math>
and <!--l. 100--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><msup><mrow 
><mi 
>C</mi></mrow><mrow 
><mrow><mo 
class="MathClass-open">(</mo><mrow><mi 
>k</mi></mrow><mo 
class="MathClass-close">)</mo></mrow></mrow></msup 
></math> for
<!--l. 100--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mi 
>k</mi> <mo 
class="MathClass-rel">=</mo> <mn>1</mn><mo 
class="MathClass-punc">,</mo><mo 
class="MathClass-op">&#x2026;</mo><mo 
class="MathClass-punc">,</mo><mi 
>p</mi></math>. In the univariate
setting (<!--l. 101--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mi 
>q</mi> <mo 
class="MathClass-rel">=</mo> <mn>1</mn></math>)
Blum et al. (1961)(<a 
  name="dx1-20002"></a><a 
href="#X1961Blum485bilo">3</a>) proposed an empirical process based on (<a 
href="#x1-20001r1.1">1.1<!--tex4ht:ref: indcharK --></a>), whereas Csorgo
(1981a)(<a 
  name="dx1-20003"></a><a 
href="#X1981Csorg130bilo">8</a>) defined a similar process based on (<a 
href="#x1-20001r1.2">1.2<!--tex4ht:ref: indcharc --></a>). Feuerverger (1993)(<a 
  name="dx1-20004"></a><a 
href="#X1993Feuer419bilo">16</a>) proposes an
empirical characteristic function version of the Blum et al. (1961)(<a 
  name="dx1-20005"></a><a 
href="#X1961Blum485bilo">3</a>) test statistic. He
points out difficulties with dimensions above 2.
<br class="newline" />
</p><!--l. 107--><p class="indent">   Recently, in the univariate setting, Ghoudi et al. (2001)(<a 
  name="dx1-20006"></a><a 
href="#X2001Ghoud191bilo">18</a>) introduced a new process based
on their novel characterization of independence which is now presented. This characterization
for <!--l. 109--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mi 
>p</mi> <mo 
class="MathClass-rel">=</mo> <mn>3</mn></math>
is implicit in the paper of Blum et al. (1961)(<a 
  name="dx1-20007"></a><a 
href="#X1961Blum485bilo">3</a>). For any
<!--l. 110--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mi 
>A</mi> <mo 
class="MathClass-rel">&#x2282;</mo> <msub><mrow 
><mi 
>I</mi></mrow><mrow 
><mi 
>p</mi></mrow></msub 
> <mo 
class="MathClass-rel">=</mo> <mrow><mo 
class="MathClass-open">{</mo><mrow><mn>1</mn><mo 
class="MathClass-punc">,</mo><mo 
class="MathClass-op">&#x2026;</mo><mo 
class="MathClass-punc">,</mo><mi 
>p</mi></mrow><mo 
class="MathClass-close">}</mo></mrow></math> and
any <!--l. 111--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mi 
>t</mi> <mo 
class="MathClass-rel">&#x2208;</mo> <msup><mrow 
><mi mathvariant="double-struck">&#x211D;</mi></mrow><mrow 
><mi 
>p</mi></mrow></msup 
></math>,
let
</p>

   <center class="math-display"><!--l. 112--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="display"><mrow 
>
                   <msub><mrow 
><mi 
>&#x03BC;</mi></mrow><mrow 
><mi 
>A</mi></mrow></msub 
><mrow><mo 
class="MathClass-open">(</mo><mrow><mi 
>t</mi></mrow><mo 
class="MathClass-close">)</mo></mrow> <mo 
class="MathClass-rel">=</mo><msub><mrow 
> <mo 
class="MathClass-op">&#x2211;</mo>
   </mrow><mrow 
><mi 
>B</mi><mo 
class="MathClass-rel">&#x2282;</mo><mi 
>A</mi></mrow></msub 
><msup><mrow 
><mrow><mo 
class="MathClass-open">(</mo><mrow><mo 
class="MathClass-bin">&#x2212;</mo><mn>1</mn></mrow><mo 
class="MathClass-close">)</mo></mrow></mrow><mrow 
><mo 
class="MathClass-rel">&#x2223;</mo><mi 
>A</mi><mo 
class="MathClass-bin">&#x2216;</mo><mi 
>B</mi><mo 
class="MathClass-rel">&#x2223;</mo></mrow></msup 
><msub><mrow 
><mi 
>K</mi></mrow><mrow 
>
<mi 
>p</mi></mrow></msub 
><mrow><mo 
class="MathClass-open">(</mo><mrow><msup><mrow 
><mi 
>t</mi></mrow><mrow 
><mi 
>B</mi></mrow></msup 
></mrow><mo 
class="MathClass-close">)</mo></mrow><msub><mrow 
> <mo 
class="MathClass-op">&#x220F;</mo>
  </mrow><mrow 
><mi 
>j</mi><mo 
class="MathClass-rel">&#x2208;</mo><mi 
>A</mi><mo 
class="MathClass-bin">&#x2216;</mo><mi 
>B</mi></mrow></msub 
><msup><mrow 
><mi 
>K</mi></mrow><mrow 
><mrow><mo 
class="MathClass-open">(</mo><mrow><mi 
>j</mi></mrow><mo 
class="MathClass-close">)</mo></mrow></mrow></msup 
><mrow><mo 
class="MathClass-open">(</mo><mrow><msup><mrow 
><mi 
>t</mi></mrow><mrow 
><mrow><mo 
class="MathClass-open">(</mo><mrow><mi 
>j</mi></mrow><mo 
class="MathClass-close">)</mo></mrow></mrow></msup 
></mrow><mo 
class="MathClass-close">)</mo></mrow><mo 
class="MathClass-punc">.</mo>
</mrow></math></center>
<!--l. 115--><p class="nopar">
The notation <!--l. 116--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mo 
class="MathClass-rel">&#x2223;</mo><mi 
>A</mi><mo 
class="MathClass-rel">&#x2223;</mo></math> stands for
cardinality of the set <!--l. 117--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mi 
>A</mi></math> and
the convention <!--l. 118--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><msub><mrow 
><mo 
class="MathClass-op">&#x220F;</mo>
  </mrow><mrow 
><mi 
>&#x2205;</mi></mrow></msub 
> <mo 
class="MathClass-rel">=</mo> <mn>1</mn></math> is adopted.
The vector <!--l. 118--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><msup><mrow 
><mi 
>t</mi></mrow><mrow 
><mi 
>B</mi></mrow></msup 
></math> is used to make a
selection of components of <!--l. 119--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mi 
>t</mi></math>
according to the set <!--l. 120--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mi 
>B</mi></math>,
</p>
   <center class="math-display"><!--l. 121--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="display"><mrow 
><msup><mrow 
>
<mrow><mo 
class="MathClass-open">(</mo><mrow><msup><mrow 
><mi 
>t</mi></mrow><mrow 
><mi 
>B</mi></mrow></msup 
></mrow><mo 
class="MathClass-close">)</mo></mrow></mrow><mrow 
><mrow><mo 
class="MathClass-open">(</mo><mrow><mi 
>i</mi></mrow><mo 
class="MathClass-close">)</mo></mrow></mrow></msup 
> <mo 
class="MathClass-rel">=</mo> <mfenced separators="" 
open="{"  close="" ><mrow><mtable  align="axis"  
equalrows="false" equalcolumns="false" class="array"><mtr><mtd 
class="array"  columnalign="left"><msup><mrow 
><mi 
>t</mi></mrow><mrow 
><mrow><mo 
class="MathClass-open">(</mo><mrow><mi 
>i</mi></mrow><mo 
class="MathClass-close">)</mo></mrow></mrow></msup 
><mo 
class="MathClass-punc">,</mo></mtd><mtd 
class="array"  columnalign="left"><mspace width="1em" class="quad"/><mi 
>i</mi> <mo 
class="MathClass-rel">&#x2208;</mo> <mi 
>B</mi><mo 
class="MathClass-punc">;</mo>    </mtd>
</mtr><mtr><mtd 
class="array"  columnalign="left"><mi 
>&#x221E;</mi><mo 
class="MathClass-punc">,</mo> </mtd><mtd 
class="array"  columnalign="left"><mspace width="1em" class="quad"/><mi 
>i</mi> <mo 
class="MathClass-rel">&#x2208;</mo> <msub><mrow 
><mi 
>I</mi></mrow><mrow 
><mi 
>p</mi></mrow></msub 
><mo 
class="MathClass-bin">&#x2216;</mo><mi 
>B</mi><mo 
class="MathClass-punc">.</mo></mtd></mtr> <!--ll--></mtable>                                                                           </mrow></mfenced>
</mrow></math></center>
<!--l. 128--><p class="nopar">
Independence can be characterized&#x00A0;: <!--l. 130--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><msup><mrow 
><mi 
>&#x03B5;</mi></mrow><mrow 
><mrow><mo 
class="MathClass-open">(</mo><mrow><mn>1</mn></mrow><mo 
class="MathClass-close">)</mo></mrow></mrow></msup 
><mo 
class="MathClass-punc">,</mo><mo 
class="MathClass-op">&#x2026;</mo><mo 
class="MathClass-punc">,</mo><msup><mrow 
><mi 
>&#x03B5;</mi></mrow><mrow 
><mrow><mo 
class="MathClass-open">(</mo><mrow><mi 
>p</mi></mrow><mo 
class="MathClass-close">)</mo></mrow></mrow></msup 
></math>
are independent if and only if <!--l. 131--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><msub><mrow 
><mi 
>&#x03BC;</mi></mrow><mrow 
><mi 
>A</mi></mrow></msub 
> <mo 
class="MathClass-rel">&#x2261;</mo> <mn>0</mn></math>,
for all <!--l. 131--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mi 
>A</mi> <mo 
class="MathClass-rel">&#x2282;</mo> <msub><mrow 
><mi 
>I</mi></mrow><mrow 
><mi 
>p</mi></mrow></msub 
></math>
satisfying <!--l. 132--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mo 
class="MathClass-rel">&#x2223;</mo><mi 
>A</mi><mo 
class="MathClass-rel">&#x2223;</mo> <mo 
class="MathClass-rel">&#x003E;</mo> <mn>1</mn></math>.
Cram&#x00E9;r-von Mises type functional of an associated process then leads them to a
non-parametric test of independence in the non-serial or serial situation. The interest
in their process resides in the simple form of the covariance which is expressed as a
product of covariance functions of Brownian bridge.
<br class="newline" />
</p><!--l. 138--><p class="indent">   In the multivariate setting (<!--l. 138--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mi 
>q</mi> <mo 
class="MathClass-rel">&#x2265;</mo> <mn>1</mn></math>),
the present paper proposes tests of independence, when subvectors or marginals are
normally distributed, built from a process relying on a similar independence
characterization based on characteristic functions. Note that the subvectors are not
assumed to be jointly multinormal in which case independence can be tested

parametrically with covariances using likelihood ratio tests. Namely, the marginals
<!--l. 145--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><msup><mrow 
><mi 
>&#x03B5;</mi></mrow><mrow 
><mrow><mo 
class="MathClass-open">(</mo><mrow><mn>1</mn></mrow><mo 
class="MathClass-close">)</mo></mrow></mrow></msup 
><mo 
class="MathClass-punc">,</mo><mo 
class="MathClass-op">&#x2026;</mo><mo 
class="MathClass-punc">,</mo><msup><mrow 
><mi 
>&#x03B5;</mi></mrow><mrow 
><mrow><mo 
class="MathClass-open">(</mo><mrow><mi 
>p</mi></mrow><mo 
class="MathClass-close">)</mo></mrow></mrow></msup 
></math> are independent
if and only if <!--l. 146--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><msub><mrow 
><mi 
>&#x03BC;</mi></mrow><mrow 
><mi 
>A</mi></mrow></msub 
> <mo 
class="MathClass-rel">&#x2261;</mo> <mn>0</mn></math>,
for all <!--l. 147--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mi 
>A</mi> <mo 
class="MathClass-rel">&#x2282;</mo> <msub><mrow 
><mi 
>I</mi></mrow><mrow 
><mi 
>p</mi></mrow></msub 
></math>,
<!--l. 147--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mo 
class="MathClass-rel">&#x2223;</mo><mi 
>A</mi><mo 
class="MathClass-rel">&#x2223;</mo> <mo 
class="MathClass-rel">&#x003E;</mo> <mn>1</mn></math>.
Here,
</p>
   <center class="math-display"><!--l. 148--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="display"><mrow 
>
                   <msub><mrow 
><mi 
>&#x03BC;</mi></mrow><mrow 
><mi 
>A</mi></mrow></msub 
><mrow><mo 
class="MathClass-open">(</mo><mrow><mi 
>t</mi></mrow><mo 
class="MathClass-close">)</mo></mrow> <mo 
class="MathClass-rel">=</mo><msub><mrow 
> <mo 
class="MathClass-op">&#x2211;</mo>
   </mrow><mrow 
><mi 
>B</mi><mo 
class="MathClass-rel">&#x2282;</mo><mi 
>A</mi></mrow></msub 
><msup><mrow 
><mrow><mo 
class="MathClass-open">(</mo><mrow><mo 
class="MathClass-bin">&#x2212;</mo><mn>1</mn></mrow><mo 
class="MathClass-close">)</mo></mrow></mrow><mrow 
><mo 
class="MathClass-rel">&#x2223;</mo><mi 
>A</mi><mo 
class="MathClass-bin">&#x2216;</mo><mi 
>B</mi><mo 
class="MathClass-rel">&#x2223;</mo></mrow></msup 
><msub><mrow 
><mi 
>C</mi></mrow><mrow 
>
<mi 
>p</mi></mrow></msub 
><mrow><mo 
class="MathClass-open">(</mo><mrow><msup><mrow 
><mi 
>t</mi></mrow><mrow 
><mi 
>B</mi></mrow></msup 
></mrow><mo 
class="MathClass-close">)</mo></mrow><msub><mrow 
> <mo 
class="MathClass-op">&#x220F;</mo>
  </mrow><mrow 
><mi 
>j</mi><mo 
class="MathClass-rel">&#x2208;</mo><mi 
>A</mi><mo 
class="MathClass-bin">&#x2216;</mo><mi 
>B</mi></mrow></msub 
><msup><mrow 
><mi 
>C</mi></mrow><mrow 
><mrow><mo 
class="MathClass-open">(</mo><mrow><mi 
>j</mi></mrow><mo 
class="MathClass-close">)</mo></mrow></mrow></msup 
><mrow><mo 
class="MathClass-open">(</mo><mrow><msup><mrow 
><mi 
>t</mi></mrow><mrow 
><mrow><mo 
class="MathClass-open">(</mo><mrow><mi 
>j</mi></mrow><mo 
class="MathClass-close">)</mo></mrow></mrow></msup 
></mrow><mo 
class="MathClass-close">)</mo></mrow><mo 
class="MathClass-punc">,</mo>
</mrow></math></center>
<!--l. 151--><p class="nopar">
where
</p>
   <center class="math-display"><!--l. 153--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="display"><mrow 
><msup><mrow 
>
<mrow><mo 
class="MathClass-open">(</mo><mrow><msup><mrow 
><mi 
>t</mi></mrow><mrow 
><mi 
>B</mi></mrow></msup 
></mrow><mo 
class="MathClass-close">)</mo></mrow></mrow><mrow 
><mrow><mo 
class="MathClass-open">(</mo><mrow><mi 
>i</mi></mrow><mo 
class="MathClass-close">)</mo></mrow></mrow></msup 
> <mo 
class="MathClass-rel">=</mo> <mfenced separators="" 
open="{"  close="" ><mrow><mtable  align="axis"  
equalrows="false" equalcolumns="false" class="array"><mtr><mtd 
class="array"  columnalign="left"><msup><mrow 
><mi 
>t</mi></mrow><mrow 
><mrow><mo 
class="MathClass-open">(</mo><mrow><mi 
>i</mi></mrow><mo 
class="MathClass-close">)</mo></mrow></mrow></msup 
><mo 
class="MathClass-punc">,</mo></mtd><mtd 
class="array"  columnalign="left"><mspace width="1em" class="quad"/><mi 
>i</mi> <mo 
class="MathClass-rel">&#x2208;</mo> <mi 
>B</mi><mo 
class="MathClass-punc">;</mo>    </mtd>
</mtr><mtr><mtd 
class="array"  columnalign="left"><mn>0</mn><mo 
class="MathClass-punc">,</mo>  </mtd><mtd 
class="array"  columnalign="left"><mspace width="1em" class="quad"/><mi 
>i</mi> <mo 
class="MathClass-rel">&#x2208;</mo> <msub><mrow 
><mi 
>I</mi></mrow><mrow 
><mi 
>p</mi></mrow></msub 
><mo 
class="MathClass-bin">&#x2216;</mo><mi 
>B</mi><mo 
class="MathClass-punc">.</mo></mtd></mtr> <!--ll--></mtable>                                                                           </mrow></mfenced>
</mrow></math></center>
<!--l. 160--><p class="nopar">
Note that the subvectors are not assumed to be jointly multinormal in which case
independence can be tested parametrically with covariances using likelihood ratio tests.
Normality of the marginals will often be approximately satisfied. For example, data
analysis of regression models on which Box-Cox transformations are done in the first
stage are common in practice. One should bear in mind, however, that the asymptotic
of the tests of independence proposed here would not consider the Box-Cox
transformation as data dependent but as a fixed transformation. Goodness-of-fit tests
of normality after a data dependent Box-Cox transformation by Chen et al.

(2002)(<span 
class="ecbx-1200">? </span>) is a result in this direction<span class="frenchb-thinspace"> </span>; it will not be pursued here for tests of
independence.
<br class="newline" />
</p><!--l. 175--><p class="indent">   The non-serial and serial problems are considered. It is shown that the asymptotic
distribution of the proposed process is the same in both cases under the null hypothesis of
independence. Moreover, it is established that the estimation of the unknown mean
vector and positive definite covariance matrix of the normal marginals does not affect
the asymptotic distribution of the process. The proposed Cram&#x00E9;r-von Mises type of
test statistic is related to V-statistics for which de Wet and Randles(1987)(<a 
  name="dx1-20008"></a><a 
href="#X1987Dewet398bilo">13</a>)
studied the effect of estimating unknown parameters. Norm on Euclidian spaces
<!--l. 184--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><msup><mrow 
><mi mathvariant="double-struck">&#x211D;</mi></mrow><mrow 
><mi 
>m</mi></mrow></msup 
></math> will be denoted
<!--l. 184--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mo 
class="MathClass-rel">&#x2225;</mo><mo 
class="MathClass-punc">&#x22C5;</mo><mo 
class="MathClass-rel">&#x2225;</mo></math>, whereas
<!--l. 184--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mo 
class="MathClass-rel">&#x2223;</mo><mo 
class="MathClass-punc">&#x22C5;</mo><mo 
class="MathClass-rel">&#x2223;</mo></math> will be the norm on
the complex field <!--l. 185--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mi mathvariant="double-struck">&#x2102;</mi></math>. We
also let <!--l. 186--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mi 
>C</mi><mrow><mo 
class="MathClass-open">(</mo><mrow><msup><mrow 
><mi mathvariant="double-struck">&#x211D;</mi></mrow><mrow 
><mi 
>p</mi><mi 
>q</mi></mrow></msup 
><mo 
class="MathClass-punc">,</mo> <mi mathvariant="double-struck">&#x2102;</mi></mrow><mo 
class="MathClass-close">)</mo></mrow></math> be the space of
continuous functions from <!--l. 187--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><msup><mrow 
><mi mathvariant="double-struck">&#x211D;</mi></mrow><mrow 
><mi 
>p</mi><mi 
>q</mi></mrow></msup 
></math>
to <!--l. 187--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mi mathvariant="double-struck">&#x2102;</mi></math>.
</p>
   <h3 class="sectionHead"><span class="titlemark">2. </span> <a 
  name="x1-210002"></a>Testing independence&#x00A0;: the non-serial situation</h3>
   <h4 class="subsectionHead"><span class="titlemark">2.1. </span> <a 
  name="x1-220002.1"></a>The case of known parameters</h4>
<!--l. 193--><p class="noindent">Let <!--l. 194--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mi 
>&#x03B5;</mi> <mo 
class="MathClass-rel">=</mo> <mfenced separators="" 
open="("  close=")" ><mrow><msup><mrow 
><mi 
>&#x03B5;</mi></mrow><mrow 
><mrow><mo 
class="MathClass-open">(</mo><mrow><mn>1</mn></mrow><mo 
class="MathClass-close">)</mo></mrow></mrow></msup 
><mo 
class="MathClass-punc">,</mo><mo 
class="MathClass-op">&#x2026;</mo><mo 
class="MathClass-punc">,</mo><msup><mrow 
><mi 
>&#x03B5;</mi></mrow><mrow 
><mrow><mo 
class="MathClass-open">(</mo><mrow><mi 
>p</mi></mrow><mo 
class="MathClass-close">)</mo></mrow></mrow></msup 
></mrow></mfenced> <mo 
class="MathClass-rel">&#x2208;</mo> <msup><mrow 
><mi mathvariant="double-struck">&#x211D;</mi></mrow><mrow 
><mi 
>p</mi><mi 
>q</mi></mrow></msup 
></math> denote a partition
into <!--l. 195--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mi 
>p</mi></math> subvectors and
<!--l. 196--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><msub><mrow 
><mi 
>&#x03B5;</mi></mrow><mrow 
><mn>1</mn></mrow></msub 
><mo 
class="MathClass-punc">,</mo><mo 
class="MathClass-op">&#x2026;</mo><mo 
class="MathClass-punc">,</mo><msub><mrow 
><mi 
>&#x03B5;</mi></mrow><mrow 
><mi 
>n</mi></mrow></msub 
></math> be an i.i.d. sample
of such <!--l. 197--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mrow><mo 
class="MathClass-open">(</mo><mrow><mi 
>p</mi><mi 
>q</mi></mrow><mo 
class="MathClass-close">)</mo></mrow></math>-dimensional
random vectors. Suppose that the subvectors of the random vectors
<!--l. 198--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><msub><mrow 
><mi 
>&#x03B5;</mi></mrow><mrow 
><mi 
>i</mi></mrow></msub 
></math> all have the same
<!--l. 199--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><msub><mrow 
><mi 
>N</mi></mrow><mrow 
><mi 
>q</mi></mrow></msub 
><mrow><mo 
class="MathClass-open">(</mo><mrow><mn>0</mn><mo 
class="MathClass-punc">,</mo><mi 
>I</mi></mrow><mo 
class="MathClass-close">)</mo></mrow></math> normal distribution, with
characteristic function <!--l. 200--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mi 
>&#x03C6;</mi></math>.
The problem is that of testing the independence of the marginals, that is the independence
of <!--l. 202--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><msup><mrow 
><mi 
>&#x03B5;</mi></mrow><mrow 
><mrow><mo 
class="MathClass-open">(</mo><mrow><mn>1</mn></mrow><mo 
class="MathClass-close">)</mo></mrow></mrow></msup 
><mo 
class="MathClass-punc">,</mo><mo 
class="MathClass-op">&#x2026;</mo><mo 
class="MathClass-punc">,</mo><msup><mrow 
><mi 
>&#x03B5;</mi></mrow><mrow 
><mrow><mo 
class="MathClass-open">(</mo><mrow><mi 
>p</mi></mrow><mo 
class="MathClass-close">)</mo></mrow></mrow></msup 
></math>.
This non-serial problem with known parameters is of very limited practical
importance. However, it serves as a prototype on which subsequent results are
based.
</p><!--l. 207--><p class="indent">   Following Ghoudi et al. (2001)(<a 
  name="dx1-22001"></a><a 
href="#X2001Ghoud191bilo">18</a>), for any
<!--l. 207--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mi 
>A</mi> <mo 
class="MathClass-rel">&#x2282;</mo> <msub><mrow 
><mi 
>I</mi></mrow><mrow 
><mi 
>p</mi></mrow></msub 
> <mo 
class="MathClass-rel">=</mo> <mrow><mo 
class="MathClass-open">{</mo><mrow><mn>1</mn><mo 
class="MathClass-punc">,</mo><mo 
class="MathClass-op">&#x2026;</mo><mo 
class="MathClass-punc">,</mo><mi 
>p</mi></mrow><mo 
class="MathClass-close">}</mo></mrow></math> and
any <!--l. 209--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mi 
>t</mi> <mo 
class="MathClass-rel">=</mo> <mrow><mo 
class="MathClass-open">(</mo><mrow><msup><mrow 
><mi 
>t</mi></mrow><mrow 
><mrow><mo 
class="MathClass-open">(</mo><mrow><mn>1</mn></mrow><mo 
class="MathClass-close">)</mo></mrow></mrow></msup 
><mo 
class="MathClass-punc">,</mo><mo 
class="MathClass-op">&#x2026;</mo><mo 
class="MathClass-punc">,</mo><msup><mrow 
><mi 
>t</mi></mrow><mrow 
><mrow><mo 
class="MathClass-open">(</mo><mrow><mi 
>p</mi></mrow><mo 
class="MathClass-close">)</mo></mrow></mrow></msup 
></mrow><mo 
class="MathClass-close">)</mo></mrow> <mo 
class="MathClass-rel">&#x2208;</mo> <msup><mrow 
><mi mathvariant="double-struck">&#x211D;</mi></mrow><mrow 
><mi 
>p</mi><mi 
>q</mi></mrow></msup 
></math>,
let </p><table class="equation"><tr><td> <a 
  name="x1-22002r1"></a>

<!--l. 211--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="display">
             <msub><mrow 
><mi 
>R</mi></mrow><mrow 
><mi 
>n</mi><mo 
class="MathClass-punc">,</mo><mi 
>A</mi></mrow></msub 
><mrow><mo 
class="MathClass-open">(</mo><mrow><mi 
>t</mi></mrow><mo 
class="MathClass-close">)</mo></mrow> <mo 
class="MathClass-rel">=</mo> <msqrt><mrow><mi 
>n</mi></mrow></msqrt><msub><mrow 
><mo 
class="MathClass-op">&#x2211;</mo>
     </mrow><mrow 
><mi 
>B</mi><mo 
class="MathClass-rel">&#x2282;</mo><mi 
>A</mi></mrow></msub 
><msup><mrow 
><mrow><mo 
class="MathClass-open">(</mo><mrow><mo 
class="MathClass-bin">&#x2212;</mo><mn>1</mn></mrow><mo 
class="MathClass-close">)</mo></mrow></mrow><mrow 
><mo 
class="MathClass-rel">&#x2223;</mo><mi 
>A</mi><mo 
class="MathClass-bin">&#x2216;</mo><mi 
>B</mi><mo 
class="MathClass-rel">&#x2223;</mo></mrow></msup 
><msub><mrow 
><mi 
>&#x03C6;</mi></mrow><mrow 
>
<mi 
>n</mi><mo 
class="MathClass-punc">,</mo><mi 
>p</mi></mrow></msub 
><mrow><mo 
class="MathClass-open">(</mo><mrow><msup><mrow 
><mi 
>t</mi></mrow><mrow 
><mi 
>B</mi></mrow></msup 
></mrow><mo 
class="MathClass-close">)</mo></mrow><msub><mrow 
> <mo 
class="MathClass-op">&#x220F;</mo>
  </mrow><mrow 
><mi 
>i</mi><mo 
class="MathClass-rel">&#x2208;</mo><mi 
>A</mi><mo 
class="MathClass-bin">&#x2216;</mo><mi 
>B</mi></mrow></msub 
><mi 
>&#x03C6;</mi><mrow><mo 
class="MathClass-open">(</mo><mrow><msup><mrow 
><mi 
>t</mi></mrow><mrow 
><mrow><mo 
class="MathClass-open">(</mo><mrow><mi 
>i</mi></mrow><mo 
class="MathClass-close">)</mo></mrow></mrow></msup 
></mrow><mo 
class="MathClass-close">)</mo></mrow>
</math>
<!--l. 215--><p class="nopar"></p></td><td class="eq-no">(2.1)</td></tr></table>
where <table class="equation"><tr><td> <a 
  name="x1-22003r2"></a>
<!--l. 217--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="display">
                        <msub><mrow 
><mi 
>&#x03C6;</mi></mrow><mrow 
><mi 
>n</mi><mo 
class="MathClass-punc">,</mo><mi 
>p</mi></mrow></msub 
><mrow><mo 
class="MathClass-open">(</mo><mrow><mi 
>t</mi></mrow><mo 
class="MathClass-close">)</mo></mrow> <mo 
class="MathClass-rel">=</mo> <mfrac><mrow 
><mn>1</mn></mrow> 
<mrow 
><mi 
>n</mi></mrow></mfrac><msubsup><mrow 
> <mo 
class="MathClass-op">&#x2211;</mo>
    </mrow><mrow 
><mi 
>j</mi><mo 
class="MathClass-rel">=</mo><mn>1</mn></mrow><mrow 
><mi 
>n</mi></mrow></msubsup 
><mo 
> exp</mo><!--nolimits--><mrow><mo 
class="MathClass-open">(</mo><mrow><mstyle mathvariant="normal"><mi 
>i</mi></mstyle><mrow><mo 
class="MathClass-open">&#x2329;</mo><mrow><mi 
>t</mi><mo 
class="MathClass-punc">,</mo><msub><mrow 
><mi 
>&#x03B5;</mi></mrow><mrow 
>
<mi 
>j</mi></mrow></msub 
></mrow><mo 
class="MathClass-close">&#x232A;</mo></mrow></mrow><mo 
class="MathClass-close">)</mo></mrow>
</math>
<!--l. 220--><p class="nopar"></p></td><td class="eq-no">(2.2)</td></tr></table>
is the empirical characteristic function of the sample. The notation
<!--l. 222--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mrow><mo 
class="MathClass-open">&#x2329;</mo><mrow><mo 
class="MathClass-punc">&#x22C5;</mo><mo 
class="MathClass-punc">,</mo><mo 
class="MathClass-punc">&#x22C5;</mo></mrow><mo 
class="MathClass-close">&#x232A;</mo></mrow></math> is for
the usual inner product between vectors.
<br class="newline" />
<!--l. 225--><p class="indent">   The asymptotic behaviour of these processes is stated next. It states that for different
subsets <!--l. 226--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mi 
>A</mi></math>
the associated processes are asymptotically independent, each process being
asymptotically Gaussian with a covariance function of a particularly simple form.
Specifically, the covariance function is a product of covariance functions of the type
encountered by Feuerverger and Mureika (1977)(<a 
  name="dx1-22004"></a><a 
href="#X1977Feuer88bilo">17</a>), Csorgo (1981a)(<a 
  name="dx1-22005"></a><a 
href="#X1981Csorg130bilo">8</a>) or
Marcus (1981)(<a 
  name="dx1-22006"></a><a 
href="#X1981Marcu194bilo">26</a>), for the empirical characteristic function process. Another
process defined by Csorgo (1985)(<a 
  name="dx1-22007"></a><a 
href="#X1985Csorg290bilo">10</a>) has a covariance of a more complicated
structure.
</p>
   <div class="newtheorem">
<!--l. 237--><p class="noindent"><span class="head">
<a 
  name="x1-22008r1"></a>
<span 
class="ecbx-1200">Theorem 2.1.</span></span>
   <span 
class="ecti-1200">If </span><!--l. 238--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><msubsup><mrow 
><mi 
>&#x03B5;</mi></mrow><mrow 
><mn>1</mn></mrow><mrow 
><mrow><mo 
class="MathClass-open">(</mo><mrow><mn>1</mn></mrow><mo 
class="MathClass-close">)</mo></mrow></mrow></msubsup 
><mo 
class="MathClass-punc">,</mo><mo 
class="MathClass-op">&#x2026;</mo><mo 
class="MathClass-punc">,</mo><msubsup><mrow 
><mi 
>&#x03B5;</mi></mrow><mrow 
>
<mn>1</mn></mrow><mrow 
><mrow><mo 
class="MathClass-open">(</mo><mrow><mi 
>p</mi></mrow><mo 
class="MathClass-close">)</mo></mrow></mrow></msubsup 
></math> <span 
class="ecti-1200">are independent,</span>
<span 
class="ecti-1200">the collection of processes </span><!--l. 239--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mrow><mo 
class="MathClass-open">{</mo><mrow><msub><mrow 
><mi 
>R</mi></mrow><mrow 
><mi 
>n</mi><mo 
class="MathClass-punc">,</mo><mi 
>A</mi></mrow></msub 
> <mo 
class="MathClass-punc">:</mo> <mspace class="nbsp" /><mo 
class="MathClass-rel">&#x2223;</mo><mi 
>A</mi><mo 
class="MathClass-rel">&#x2223;</mo> <mo 
class="MathClass-rel">&#x003E;</mo> <mn>1</mn></mrow><mo 
class="MathClass-close">}</mo></mrow></math>
<span 
class="ecti-1200">converge in </span><!--l. 240--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mi 
>C</mi><mrow><mo 
class="MathClass-open">(</mo><mrow><msup><mrow 
><mi mathvariant="double-struck">&#x211D;</mi></mrow><mrow 
><mi 
>p</mi><mi 
>q</mi></mrow></msup 
><mo 
class="MathClass-punc">,</mo> <mi mathvariant="double-struck">&#x2102;</mi></mrow><mo 
class="MathClass-close">)</mo></mrow></math>
<span 
class="ecti-1200">to independent zero mean complex Gaussian processes</span>
<!--l. 241--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mrow><mo 
class="MathClass-open">{</mo><mrow><msub><mrow 
><mi 
>R</mi></mrow><mrow 
><mi 
>A</mi></mrow></msub 
> <mo 
class="MathClass-punc">:</mo> <mspace class="nbsp" /><mo 
class="MathClass-rel">&#x2223;</mo><mi 
>A</mi><mo 
class="MathClass-rel">&#x2223;</mo> <mo 
class="MathClass-rel">&#x003E;</mo> <mn>1</mn></mrow><mo 
class="MathClass-close">}</mo></mrow></math>
<span 
class="ecti-1200">having covariance function given by</span> </p><table class="equation"><tr><td> <a 
  name="x1-22009r3"></a>

<!--l. 243--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="display">
                <msub><mrow 
><mi 
>C</mi></mrow><mrow 
><mi 
>A</mi></mrow></msub 
><mrow><mo 
class="MathClass-open">(</mo><mrow><mi 
>s</mi><mo 
class="MathClass-punc">,</mo><mi 
>t</mi></mrow><mo 
class="MathClass-close">)</mo></mrow> <mo 
class="MathClass-rel">=</mo><msub><mrow 
> <mo 
class="MathClass-op">&#x220F;</mo>
  </mrow><mrow 
><mi 
>k</mi><mo 
class="MathClass-rel">&#x2208;</mo><mi 
>A</mi></mrow></msub 
><mrow><mo 
class="MathClass-open">[</mo><mrow><mi 
>&#x03C6;</mi><mrow><mo 
class="MathClass-open">(</mo><mrow><msup><mrow 
><mi 
>t</mi></mrow><mrow 
><mrow><mo 
class="MathClass-open">(</mo><mrow><mi 
>k</mi></mrow><mo 
class="MathClass-close">)</mo></mrow></mrow></msup 
> <mo 
class="MathClass-bin">&#x2212;</mo><msup><mrow 
><mi 
>s</mi></mrow><mrow 
><mrow><mo 
class="MathClass-open">(</mo><mrow><mi 
>k</mi></mrow><mo 
class="MathClass-close">)</mo></mrow></mrow></msup 
></mrow><mo 
class="MathClass-close">)</mo></mrow> <mo 
class="MathClass-bin">&#x2212;</mo> <mi 
>&#x03C6;</mi><mrow><mo 
class="MathClass-open">(</mo><mrow><msup><mrow 
><mi 
>t</mi></mrow><mrow 
><mrow><mo 
class="MathClass-open">(</mo><mrow><mi 
>k</mi></mrow><mo 
class="MathClass-close">)</mo></mrow></mrow></msup 
></mrow><mo 
class="MathClass-close">)</mo></mrow><mi 
>&#x03C6;</mi><mrow><mo 
class="MathClass-open">(</mo><mrow><msup><mrow 
><mi 
>s</mi></mrow><mrow 
><mrow><mo 
class="MathClass-open">(</mo><mrow><mi 
>k</mi></mrow><mo 
class="MathClass-close">)</mo></mrow></mrow></msup 
></mrow><mo 
class="MathClass-close">)</mo></mrow></mrow><mo 
class="MathClass-close">]</mo></mrow>
</math>
<!--l. 246--><p class="nopar"></p></td><td class="eq-no">(2.3)</td></tr></table>
<span 
class="ecti-1200">and pseudo-covariance function given by </span><table class="equation"><tr><td> <a 
  name="x1-22010r4"></a>
<!--l. 248--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="display"><msub><mrow 
>
                    <mover accent="false" 
class="mml-overline"><mrow><mi 
>C</mi></mrow><mo 
accent="true">&#x00AF;</mo></mover></mrow><mrow 
><mi 
>A</mi></mrow></msub 
><mrow><mo 
class="MathClass-open">(</mo><mrow><mi 
>s</mi><mo 
class="MathClass-punc">,</mo><mi 
>t</mi></mrow><mo 
class="MathClass-close">)</mo></mrow> <mo 
class="MathClass-rel">=</mo> <mi 
>E</mi><mrow><mo 
class="MathClass-open">[</mo><mrow><msub><mrow 
><mi 
>R</mi></mrow><mrow 
><mi 
>A</mi></mrow></msub 
><mrow><mo 
class="MathClass-open">(</mo><mrow><mi 
>s</mi></mrow><mo 
class="MathClass-close">)</mo></mrow><msub><mrow 
><mi 
>R</mi></mrow><mrow 
><mi 
>A</mi></mrow></msub 
><mrow><mo 
class="MathClass-open">(</mo><mrow><mi 
>t</mi></mrow><mo 
class="MathClass-close">)</mo></mrow></mrow><mo 
class="MathClass-close">]</mo></mrow> <mo 
class="MathClass-rel">=</mo> <msub><mrow 
><mi 
>C</mi></mrow><mrow 
><mi 
>A</mi></mrow></msub 
><mrow><mo 
class="MathClass-open">(</mo><mrow><mo 
class="MathClass-bin">&#x2212;</mo><mi 
>s</mi><mo 
class="MathClass-punc">,</mo><mi 
>t</mi></mrow><mo 
class="MathClass-close">)</mo></mrow><mo 
class="MathClass-punc">.</mo>
</math>
<!--l. 250--><p class="nopar"></p></td><td class="eq-no">(2.4)</td></tr></table>
   </div>
<!--l. 254--><p class="noindent">The multinomial formula (Ghoudi et al. (2001)(<a 
  name="dx1-22011"></a><a 
href="#X2001Ghoud191bilo">18</a>)) yields the equivalent
representation </p><table class="equation"><tr><td> <a 
  name="x1-22012r5"></a>
<!--l. 256--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="display">
           <msub><mrow 
><mi 
>R</mi></mrow><mrow 
><mi 
>n</mi><mo 
class="MathClass-punc">,</mo><mi 
>A</mi></mrow></msub 
><mrow><mo 
class="MathClass-open">(</mo><mrow><mi 
>t</mi></mrow><mo 
class="MathClass-close">)</mo></mrow> <mo 
class="MathClass-rel">=</mo>   <mfrac><mrow 
><mn>1</mn></mrow> 
<mrow 
><msqrt><mrow><mi 
>n</mi></mrow></msqrt></mrow></mfrac><msubsup><mrow 
> <mo 
class="MathClass-op">&#x2211;</mo>
     </mrow><mrow 
><mi 
>j</mi><mo 
class="MathClass-rel">=</mo><mn>1</mn></mrow><mrow 
><mi 
>n</mi></mrow></msubsup 
><msub><mrow 
> <mo 
class="MathClass-op">&#x220F;</mo>
  </mrow><mrow 
><mi 
>k</mi><mo 
class="MathClass-rel">&#x2208;</mo><mi 
>A</mi></mrow></msub 
><mrow><mo 
class="MathClass-open">[</mo><mrow><mo 
>exp</mo><!--nolimits--><mrow><mo 
class="MathClass-open">(</mo><mrow><mstyle mathvariant="normal"><mi 
>i</mi></mstyle><mrow><mo 
class="MathClass-open">&#x2329;</mo><mrow><msup><mrow 
><mi 
>t</mi></mrow><mrow 
><mrow><mo 
class="MathClass-open">(</mo><mrow><mi 
>k</mi></mrow><mo 
class="MathClass-close">)</mo></mrow></mrow></msup 
><mo 
class="MathClass-punc">,</mo><msubsup><mrow 
><mi 
>&#x03B5;</mi></mrow><mrow 
>
<mi 
>j</mi></mrow><mrow 
><mrow><mo 
class="MathClass-open">(</mo><mrow><mi 
>k</mi></mrow><mo 
class="MathClass-close">)</mo></mrow></mrow></msubsup 
></mrow><mo 
class="MathClass-close">&#x232A;</mo></mrow></mrow><mo 
class="MathClass-close">)</mo></mrow> <mo 
class="MathClass-bin">&#x2212;</mo> <mi 
>&#x03C6;</mi><mrow><mo 
class="MathClass-open">(</mo><mrow><msup><mrow 
><mi 
>t</mi></mrow><mrow 
><mrow><mo 
class="MathClass-open">(</mo><mrow><mi 
>k</mi></mrow><mo 
class="MathClass-close">)</mo></mrow></mrow></msup 
></mrow><mo 
class="MathClass-close">)</mo></mrow></mrow><mo 
class="MathClass-close">]</mo></mrow><mo 
class="MathClass-punc">.</mo>
</math>
<!--l. 259--><p class="nopar"></p></td><td class="eq-no">(2.5)</td></tr></table>
This i.i.d. average representation is used in the proof of Theorem <a 
href="#x1-22008r1">2.1<!--tex4ht:ref: nonserialconvknown --></a>.

   <h4 class="subsectionHead"><span class="titlemark">2.2. </span> <a 
  name="x1-230002.2"></a>The case of unknown parameters</h4> The context is the same as in the
preceeding subsection except that the components of the random vectors
<!--l. 265--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><msub><mrow 
><mi 
>&#x03B5;</mi></mrow><mrow 
><mi 
>i</mi></mrow></msub 
></math> in the sample now have
all the same <!--l. 266--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><msub><mrow 
><mi 
>N</mi></mrow><mrow 
><mi 
>q</mi></mrow></msub 
><mrow><mo 
class="MathClass-open">(</mo><mrow><mi 
>&#x03BC;</mi><mo 
class="MathClass-punc">,</mo><mi 
>&#x03A3;</mi></mrow><mo 
class="MathClass-close">)</mo></mrow></math> normal
distribution, where <!--l. 267--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mi 
>&#x03BC;</mi></math>
and <!--l. 267--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mi 
>&#x03A3;</mi></math>,
positive definite, are unknown. The problem again is that of testing for
independence of the marginals, that is the independence of the components
<!--l. 271--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><msup><mrow 
><mi 
>&#x03B5;</mi></mrow><mrow 
><mrow><mo 
class="MathClass-open">(</mo><mrow><mn>1</mn></mrow><mo 
class="MathClass-close">)</mo></mrow></mrow></msup 
><mo 
class="MathClass-punc">,</mo><mo 
class="MathClass-op">&#x2026;</mo><mo 
class="MathClass-punc">,</mo><msup><mrow 
><mi 
>&#x03B5;</mi></mrow><mrow 
><mrow><mo 
class="MathClass-open">(</mo><mrow><mi 
>p</mi></mrow><mo 
class="MathClass-close">)</mo></mrow></mrow></msup 
></math>.
<br class="newline" />
<!--l. 273--><p class="noindent">First, define the standardized residual vectors
<!--l. 274--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><msubsup><mrow 
><mi 
>e</mi></mrow><mrow 
><mi 
>j</mi></mrow><mrow 
><mrow><mo 
class="MathClass-open">(</mo><mrow><mi 
>k</mi></mrow><mo 
class="MathClass-close">)</mo></mrow></mrow></msubsup 
> <mo 
class="MathClass-rel">=</mo><msup><mrow 
> <mi 
>S</mi></mrow><mrow 
><mo 
class="MathClass-bin">&#x2212;</mo><mfrac><mrow 
><mn>1</mn></mrow>
<mrow 
><mn>2</mn></mrow></mfrac> </mrow></msup 
><mrow><mo 
class="MathClass-open">(</mo><mrow><msubsup><mrow 
><mi 
>&#x03B5;</mi></mrow><mrow 
><mi 
>j</mi></mrow><mrow 
><mrow><mo 
class="MathClass-open">(</mo><mrow><mi 
>k</mi></mrow><mo 
class="MathClass-close">)</mo></mrow></mrow></msubsup 
> <mo 
class="MathClass-bin">&#x2212;</mo><mover accent="false" 
class="mml-overline"><mrow><mi 
>&#x03B5;</mi></mrow><mo 
accent="true">&#x00AF;</mo></mover></mrow><mo 
class="MathClass-close">)</mo></mrow></math>,
where <!--l. 276--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mi 
>S</mi> <mo 
class="MathClass-rel">=</mo>  <mfrac><mrow 
><mn>1</mn></mrow> 
<mrow 
><mi 
>n</mi><mi 
>p</mi></mrow></mfrac><msubsup><mrow 
> <mo 
class="MathClass-op">&#x2211;</mo>
    </mrow><mrow 
><mi 
>j</mi><mo 
class="MathClass-rel">=</mo><mn>1</mn></mrow><mrow 
><mi 
>n</mi></mrow></msubsup 
><msubsup><mrow 
> <mo 
class="MathClass-op">&#x2211;</mo></mrow><mrow 
>
<mi 
>k</mi><mo 
class="MathClass-rel">=</mo><mn>1</mn></mrow><mrow 
><mi 
>p</mi></mrow></msubsup 
><mrow><mo 
class="MathClass-open">(</mo><mrow><msubsup><mrow 
><mi 
>&#x03B5;</mi></mrow><mrow 
>
<mi 
>j</mi></mrow><mrow 
><mrow><mo 
class="MathClass-open">(</mo><mrow><mi 
>k</mi></mrow><mo 
class="MathClass-close">)</mo></mrow></mrow></msubsup 
> <mo 
class="MathClass-bin">&#x2212;</mo><mover accent="false" 
class="mml-overline"><mrow><mi 
>&#x03B5;</mi></mrow><mo 
accent="true">&#x00AF;</mo></mover></mrow><mo 
class="MathClass-close">)</mo></mrow><mrow><mo 
class="MathClass-open">(</mo><mrow><msubsup><mrow 
><mi 
>&#x03B5;</mi></mrow><mrow 
>
<mi 
>j</mi></mrow><mrow 
><mrow><mo 
class="MathClass-open">(</mo><mrow><mi 
>k</mi></mrow><mo 
class="MathClass-close">)</mo></mrow></mrow></msubsup 
> <mo 
class="MathClass-bin">&#x2212;</mo><mover accent="false" 
class="mml-overline"><mrow><mi 
>&#x03B5;</mi></mrow><mo 
accent="true">&#x00AF;</mo></mover></mrow><mo 
class="MathClass-close">)</mo></mrow><!--mstyle 
class="text"--><mtext >T</mtext><!--/mstyle--></math>
and <!--l. 278--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mover accent="false" 
class="mml-overline"><mrow><mi 
>&#x03B5;</mi></mrow><mo 
accent="true">&#x00AF;</mo></mover> <mo 
class="MathClass-rel">=</mo>  <mfrac><mrow 
><mn>1</mn></mrow> 
<mrow 
><mi 
>n</mi><mi 
>p</mi></mrow></mfrac><msubsup><mrow 
> <mo 
class="MathClass-op">&#x2211;</mo>
    </mrow><mrow 
><mi 
>j</mi><mo 
class="MathClass-rel">=</mo><mn>1</mn></mrow><mrow 
><mi 
>n</mi></mrow></msubsup 
><msubsup><mrow 
> <mo 
class="MathClass-op">&#x2211;</mo></mrow><mrow 
>
<mi 
>k</mi><mo 
class="MathClass-rel">=</mo><mn>1</mn></mrow><mrow 
><mi 
>p</mi></mrow></msubsup 
><msubsup><mrow 
><mi 
>&#x03B5;</mi></mrow><mrow 
>
<mi 
>j</mi></mrow><mrow 
><mrow><mo 
class="MathClass-open">(</mo><mrow><mi 
>k</mi></mrow><mo 
class="MathClass-close">)</mo></mrow></mrow></msubsup 
></math>
are, respectively, the sample covariance matrix and the sample mean. Also, let
<!--l. 281--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><msup><mrow 
><mover accent="false" 
class="mml-overline"><mrow><mi 
>&#x03B5;</mi></mrow><mo 
accent="true">&#x00AF;</mo></mover></mrow><mrow 
><mrow><mo 
class="MathClass-open">(</mo><mrow><mi 
>k</mi></mrow><mo 
class="MathClass-close">)</mo></mrow></mrow></msup 
> <mo 
class="MathClass-rel">=</mo> <mfrac><mrow 
><mn>1</mn></mrow> 
<mrow 
><mi 
>n</mi></mrow></mfrac><msubsup><mrow 
> <mo 
class="MathClass-op">&#x2211;</mo>
   </mrow><mrow 
><mi 
>j</mi><mo 
class="MathClass-rel">=</mo><mn>1</mn></mrow><mrow 
><mi 
>n</mi></mrow></msubsup 
><msubsup><mrow 
><mi 
>&#x03B5;</mi></mrow><mrow 
>
<mi 
>j</mi></mrow><mrow 
><mrow><mo 
class="MathClass-open">(</mo><mrow><mi 
>k</mi></mrow><mo 
class="MathClass-close">)</mo></mrow></mrow></msubsup 
></math> be the sample
mean of the <!--l. 282--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mi 
>k</mi></math>th
subvectors.
<br class="newline" />
</p><!--l. 284--><p class="indent">   The underlying process is the same apart from the unknown parameters
which are replaced by their sample estimates. The plug-in process is thus </p><table class="equation"><tr><td>
<a 
  name="x1-23001r6"></a>
<!--l. 287--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="display"><msub><mrow 
>
             <mover 
accent="true"><mrow 
><mi 
>R</mi></mrow><mo 
class="MathClass-op">&#x0302;</mo></mover></mrow><mrow 
><mi 
>n</mi><mo 
class="MathClass-punc">,</mo><mi 
>A</mi></mrow></msub 
><mrow><mo 
class="MathClass-open">(</mo><mrow><mi 
>t</mi></mrow><mo 
class="MathClass-close">)</mo></mrow> <mo 
class="MathClass-rel">=</mo> <msqrt><mrow><mi 
>n</mi></mrow></msqrt><msub><mrow 
><mo 
class="MathClass-op">&#x2211;</mo>
     </mrow><mrow 
><mi 
>B</mi><mo 
class="MathClass-rel">&#x2282;</mo><mi 
>A</mi></mrow></msub 
><msup><mrow 
><mrow><mo 
class="MathClass-open">(</mo><mrow><mo 
class="MathClass-bin">&#x2212;</mo><mn>1</mn></mrow><mo 
class="MathClass-close">)</mo></mrow></mrow><mrow 
><mo 
class="MathClass-rel">&#x2223;</mo><mi 
>A</mi><mo 
class="MathClass-bin">&#x2216;</mo><mi 
>B</mi><mo 
class="MathClass-rel">&#x2223;</mo></mrow></msup 
><msub><mrow 
><mover 
accent="true"><mrow 
><mi 
>&#x03C6;</mi></mrow><mo 
class="MathClass-op">&#x0302;</mo></mover></mrow><mrow 
>
<mi 
>n</mi><mo 
class="MathClass-punc">,</mo><mi 
>p</mi></mrow></msub 
><mrow><mo 
class="MathClass-open">(</mo><mrow><msup><mrow 
><mi 
>t</mi></mrow><mrow 
><mi 
>B</mi></mrow></msup 
></mrow><mo 
class="MathClass-close">)</mo></mrow><msub><mrow 
> <mo 
class="MathClass-op">&#x220F;</mo>
  </mrow><mrow 
><mi 
>i</mi><mo 
class="MathClass-rel">&#x2208;</mo><mi 
>A</mi><mo 
class="MathClass-bin">&#x2216;</mo><mi 
>B</mi></mrow></msub 
><mi 
>&#x03C6;</mi><mrow><mo 
class="MathClass-open">(</mo><mrow><msup><mrow 
><mi 
>t</mi></mrow><mrow 
><mrow><mo 
class="MathClass-open">(</mo><mrow><mi 
>i</mi></mrow><mo 
class="MathClass-close">)</mo></mrow></mrow></msup 
></mrow><mo 
class="MathClass-close">)</mo></mrow>
</math>
<!--l. 291--><p class="nopar"></p></td><td class="eq-no">(2.6)</td></tr></table>
where <table class="equation"><tr><td> <a 
  name="x1-23002r7"></a>

<!--l. 293--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="display"><msub><mrow 
>
                        <mover 
accent="true"><mrow 
><mi 
>&#x03C6;</mi></mrow><mo 
class="MathClass-op">&#x0302;</mo></mover></mrow><mrow 
><mi 
>n</mi><mo 
class="MathClass-punc">,</mo><mi 
>p</mi></mrow></msub 
><mrow><mo 
class="MathClass-open">(</mo><mrow><mi 
>t</mi></mrow><mo 
class="MathClass-close">)</mo></mrow> <mo 
class="MathClass-rel">=</mo> <mfrac><mrow 
><mn>1</mn></mrow> 
<mrow 
><mi 
>n</mi></mrow></mfrac><msubsup><mrow 
> <mo 
class="MathClass-op">&#x2211;</mo>
    </mrow><mrow 
><mi 
>j</mi><mo 
class="MathClass-rel">=</mo><mn>1</mn></mrow><mrow 
><mi 
>n</mi></mrow></msubsup 
><mo 
> exp</mo><!--nolimits--><mrow><mo 
class="MathClass-open">(</mo><mrow><mstyle mathvariant="normal"><mi 
>i</mi></mstyle><mrow><mo 
class="MathClass-open">&#x2329;</mo><mrow><mi 
>t</mi><mo 
class="MathClass-punc">,</mo><msub><mrow 
><mi 
>e</mi></mrow><mrow 
>
<mi 
>j</mi></mrow></msub 
></mrow><mo 
class="MathClass-close">&#x232A;</mo></mrow></mrow><mo 
class="MathClass-close">)</mo></mrow>
</math>
<!--l. 296--><p class="nopar"></p></td><td class="eq-no">(2.7)</td></tr></table>
is the empirical characteristic function based on standardized residuals
<!--l. 299--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><msub><mrow 
><mi 
>e</mi></mrow><mrow 
><mi 
>j</mi></mrow></msub 
> <mo 
class="MathClass-rel">=</mo> <mfenced separators="" 
open="("  close=")" ><mrow><msubsup><mrow 
><mi 
>e</mi></mrow><mrow 
><mi 
>j</mi></mrow><mrow 
><mrow><mo 
class="MathClass-open">(</mo><mrow><mn>1</mn></mrow><mo 
class="MathClass-close">)</mo></mrow></mrow></msubsup 
><mo 
class="MathClass-punc">,</mo><mo 
class="MathClass-op">&#x2026;</mo><mo 
class="MathClass-punc">,</mo><msubsup><mrow 
><mi 
>e</mi></mrow><mrow 
>
<mi 
>j</mi></mrow><mrow 
><mrow><mo 
class="MathClass-open">(</mo><mrow><mi 
>p</mi></mrow><mo 
class="MathClass-close">)</mo></mrow></mrow></msubsup 
></mrow></mfenced> <mo 
class="MathClass-rel">&#x2208;</mo> <msup><mrow 
><mi mathvariant="double-struck">&#x211D;</mi></mrow><mrow 
><mi 
>p</mi><mi 
>q</mi></mrow></msup 
></math>. The
asymptotic behaviour of these processes is stated next, the main conclusion being that
the estimation of the unknown parameters does not affect the asymptotic
distribution.
   <div class="newtheorem">
<!--l. 306--><p class="noindent"><span class="head">
<a 
  name="x1-23003r2"></a>
<span 
class="ecbx-1200">Theorem 2.2.</span></span>
   <span 
class="ecti-1200">If</span>
<!--l. 307--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><msubsup><mrow 
><mi 
>&#x03B5;</mi></mrow><mrow 
><mn>1</mn></mrow><mrow 
><mrow><mo 
class="MathClass-open">(</mo><mrow><mn>1</mn></mrow><mo 
class="MathClass-close">)</mo></mrow></mrow></msubsup 
><mo 
class="MathClass-punc">,</mo><mo 
class="MathClass-op">&#x2026;</mo><mo 
class="MathClass-punc">,</mo><msubsup><mrow 
><mi 
>&#x03B5;</mi></mrow><mrow 
>
<mn>1</mn></mrow><mrow 
><mrow><mo 
class="MathClass-open">(</mo><mrow><mi 
>p</mi></mrow><mo 
class="MathClass-close">)</mo></mrow></mrow></msubsup 
></math>
<span 
class="ecti-1200">are                      independent,                      the                      processes</span>
<!--l. 308--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mrow><mo 
class="MathClass-open">{</mo><mrow><msub><mrow 
><mover 
accent="true"><mrow 
><mi 
>R</mi></mrow><mo 
class="MathClass-op">&#x0302;</mo></mover></mrow><mrow 
><mi 
>n</mi><mo 
class="MathClass-punc">,</mo><mi 
>A</mi></mrow></msub 
> <mo 
class="MathClass-punc">:</mo> <mspace class="nbsp" /><mo 
class="MathClass-rel">&#x2223;</mo><mi 
>A</mi><mo 
class="MathClass-rel">&#x2223;</mo> <mo 
class="MathClass-rel">&#x003E;</mo> <mn>1</mn></mrow><mo 
class="MathClass-close">}</mo></mrow></math>
<span 
class="ecti-1200">converge                                                                                      in</span>
<!--l. 309--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mi 
>C</mi><mrow><mo 
class="MathClass-open">(</mo><mrow><msup><mrow 
><mi mathvariant="double-struck">&#x211D;</mi></mrow><mrow 
><mi 
>p</mi><mi 
>q</mi></mrow></msup 
><mo 
class="MathClass-punc">,</mo> <mi mathvariant="double-struck">&#x2102;</mi></mrow><mo 
class="MathClass-close">)</mo></mrow></math>
<span 
class="ecti-1200">to      independent      zero      mean      complex      Gaussian      processes</span>
<!--l. 310--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mrow><mo 
class="MathClass-open">{</mo><mrow><msub><mrow 
><mi 
>R</mi></mrow><mrow 
><mi 
>A</mi></mrow></msub 
> <mo 
class="MathClass-punc">:</mo> <mspace class="nbsp" /><mo 
class="MathClass-rel">&#x2223;</mo><mi 
>A</mi><mo 
class="MathClass-rel">&#x2223;</mo> <mo 
class="MathClass-rel">&#x003E;</mo> <mn>1</mn></mrow><mo 
class="MathClass-close">}</mo></mrow></math>
<span 
class="ecti-1200">having   covariance   and   pseudo-covariance   functions   respectively   given   by</span>
<!--l. 312--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><msub><mrow 
><mi 
>C</mi></mrow><mrow 
><mi 
>A</mi></mrow></msub 
><mrow><mo 
class="MathClass-open">(</mo><mrow><mi 
>s</mi><mo 
class="MathClass-punc">,</mo><mi 
>t</mi></mrow><mo 
class="MathClass-close">)</mo></mrow></math>
<span 
class="ecti-1200">and</span>
<!--l. 313--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><msub><mrow 
><mover accent="false" 
class="mml-overline"><mrow><mi 
>C</mi></mrow><mo 
accent="true">&#x00AF;</mo></mover></mrow><mrow 
><mi 
>A</mi></mrow></msub 
><mrow><mo 
class="MathClass-open">(</mo><mrow><mi 
>s</mi><mo 
class="MathClass-punc">,</mo><mi 
>t</mi></mrow><mo 
class="MathClass-close">)</mo></mrow></math>
<span 
class="ecti-1200">in (</span><a 
href="#x1-22009r3"><span 
class="ecti-1200">2.3</span><!--tex4ht:ref: covariance --></a><span 
class="ecti-1200">) and (</span><a 
href="#x1-22010r4"><span 
class="ecti-1200">2.4</span><!--tex4ht:ref: pseudocovariance --></a><span 
class="ecti-1200">).</span>
</p>
   </div>
<!--l. 318--><p class="noindent">The same multinomial formula (Ghoudi et al. (2001)(<a 
  name="dx1-23004"></a><a 
href="#X2001Ghoud191bilo">18</a>)) yields the representation </p><table class="equation"><tr><td>
<a 
  name="x1-23005r8"></a>
<!--l. 320--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="display"><msub><mrow 
>
           <mover 
accent="true"><mrow 
><mi 
>R</mi></mrow><mo 
class="MathClass-op">&#x0302;</mo></mover></mrow><mrow 
><mi 
>n</mi><mo 
class="MathClass-punc">,</mo><mi 
>A</mi></mrow></msub 
><mrow><mo 
class="MathClass-open">(</mo><mrow><mi 
>t</mi></mrow><mo 
class="MathClass-close">)</mo></mrow> <mo 
class="MathClass-rel">=</mo>   <mfrac><mrow 
><mn>1</mn></mrow> 
<mrow 
><msqrt><mrow><mi 
>n</mi></mrow></msqrt></mrow></mfrac><msubsup><mrow 
> <mo 
class="MathClass-op">&#x2211;</mo>
     </mrow><mrow 
><mi 
>j</mi><mo 
class="MathClass-rel">=</mo><mn>1</mn></mrow><mrow 
><mi 
>n</mi></mrow></msubsup 
><msub><mrow 
> <mo 
class="MathClass-op">&#x220F;</mo>
  </mrow><mrow 
><mi 
>k</mi><mo 
class="MathClass-rel">&#x2208;</mo><mi 
>A</mi></mrow></msub 
><mrow><mo 
class="MathClass-open">[</mo><mrow><mo 
>exp</mo><!--nolimits--><mrow><mo 
class="MathClass-open">(</mo><mrow><mstyle mathvariant="normal"><mi 
>i</mi></mstyle><mrow><mo 
class="MathClass-open">&#x2329;</mo><mrow><msup><mrow 
><mi 
>t</mi></mrow><mrow 
><mrow><mo 
class="MathClass-open">(</mo><mrow><mi 
>k</mi></mrow><mo 
class="MathClass-close">)</mo></mrow></mrow></msup 
><mo 
class="MathClass-punc">,</mo><msubsup><mrow 
><mi 
>e</mi></mrow><mrow 
>
<mi 
>j</mi></mrow><mrow 
><mrow><mo 
class="MathClass-open">(</mo><mrow><mi 
>k</mi></mrow><mo 
class="MathClass-close">)</mo></mrow></mrow></msubsup 
></mrow><mo 
class="MathClass-close">&#x232A;</mo></mrow></mrow><mo 
class="MathClass-close">)</mo></mrow> <mo 
class="MathClass-bin">&#x2212;</mo> <mi 
>&#x03C6;</mi><mrow><mo 
class="MathClass-open">(</mo><mrow><msup><mrow 
><mi 
>t</mi></mrow><mrow 
><mrow><mo 
class="MathClass-open">(</mo><mrow><mi 
>k</mi></mrow><mo 
class="MathClass-close">)</mo></mrow></mrow></msup 
></mrow><mo 
class="MathClass-close">)</mo></mrow></mrow><mo 
class="MathClass-close">]</mo></mrow><mo 
class="MathClass-punc">.</mo>
</math>
<!--l. 323--><p class="nopar"></p></td><td class="eq-no">(2.8)</td></tr></table>

The Cram&#x00E9;r-von Mises test statistic proposed is
<!--l. 324--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mi 
>n</mi><msub><mrow 
><mi 
>T</mi></mrow><mrow 
><mi 
>n</mi><mo 
class="MathClass-punc">,</mo><mi 
>b</mi><mo 
class="MathClass-punc">,</mo><mi 
>A</mi></mrow></msub 
></math>, where for a
given subset <!--l. 325--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mi 
>A</mi></math>
<table class="equation"><tr><td> <a 
  name="x1-23006r9"></a>
<!--l. 326--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="display">
                        <msub><mrow 
><mi 
>T</mi></mrow><mrow 
><mi 
>n</mi><mo 
class="MathClass-punc">,</mo><mi 
>b</mi><mo 
class="MathClass-punc">,</mo><mi 
>A</mi></mrow></msub 
> <mo 
class="MathClass-rel">=</mo> <mfrac><mrow 
><mn>1</mn></mrow> 
<mrow 
><mi 
>n</mi></mrow></mfrac> <mo 
class="MathClass-op">&#x222B;</mo>
   <mo 
class="MathClass-rel">&#x2223;</mo><msub><mrow 
><mover 
accent="true"><mrow 
><mi 
>R</mi></mrow><mo 
class="MathClass-op">&#x0302;</mo></mover></mrow><mrow 
><mi 
>n</mi><mo 
class="MathClass-punc">,</mo><mi 
>A</mi></mrow></msub 
><mrow><mo 
class="MathClass-open">(</mo><mrow><mi 
>t</mi></mrow><mo 
class="MathClass-close">)</mo></mrow><msup><mrow 
><mo 
class="MathClass-rel">&#x2223;</mo></mrow><mrow 
><mn>2</mn></mrow></msup 
><msub><mrow 
><mi 
>&#x03D5;</mi></mrow><mrow 
>
<mi 
>b</mi></mrow></msub 
><mrow><mo 
class="MathClass-open">(</mo><mrow><mi 
>t</mi></mrow><mo 
class="MathClass-close">)</mo></mrow><mi 
>d</mi><mi 
>t</mi><mo 
class="MathClass-punc">,</mo>
</math>
<!--l. 328--><p class="nopar"></p></td><td class="eq-no">(2.9)</td></tr></table>
where <!--l. 329--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><msub><mrow 
><mi 
>&#x03D5;</mi></mrow><mrow 
><mi 
>b</mi></mrow></msub 
></math>
is the <!--l. 329--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><msub><mrow 
><mi 
>N</mi></mrow><mrow 
><mi 
>p</mi><mi 
>q</mi></mrow></msub 
><mrow><mo 
class="MathClass-open">(</mo><mrow><mn>0</mn><mo 
class="MathClass-punc">,</mo><msup><mrow 
><mi 
>b</mi></mrow><mrow 
><mn>2</mn></mrow></msup 
><mi 
>I</mi></mrow><mo 
class="MathClass-close">)</mo></mrow></math>
density which acts as a weighting function. The multinomial representation and
this appropriate weighting allow this test statistic to be computed explicitely
as
<!--l. 333--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="display">
<mtable 
class="eqnarray" columnalign="right center left" >
<mtr><mtd 
class="eqnarray-1">  <mfrac><mrow 
><mn>1</mn></mrow>
<mrow 
><msup><mrow 
><mi 
>n</mi></mrow><mrow 
><mn>2</mn></mrow></msup 
></mrow></mfrac><msubsup><mrow 
> <mo 
class="MathClass-op">&#x2211;</mo>
       </mrow><mrow 
><mi 
>l</mi><mo 
class="MathClass-rel">=</mo><mn>1</mn></mrow><mrow 
><mi 
>n</mi></mrow></msubsup 
><msubsup><mrow 
> <mo 
class="MathClass-op">&#x2211;</mo>
  </mrow><mrow 
><msup><mrow 
><mi 
>l</mi></mrow><mrow 
><mi 
>&#x2032;</mi></mrow></msup 
><mo 
class="MathClass-rel">=</mo><mn>1</mn></mrow><mrow 
><mi 
>n</mi></mrow></msubsup 
><msub><mrow 
> <mo 
class="MathClass-op">&#x220F;</mo>
  </mrow><mrow 
><mi 
>k</mi><mo 
class="MathClass-rel">&#x2208;</mo><mi 
>A</mi></mrow></msub 
><mfenced separators="" 
open="{"  close="" ><mrow></mrow></mfenced></mtd><mtd 
class="eqnarray-2">   <mo 
>exp</mo><!--nolimits--></mtd><mtd 
class="eqnarray-3">   <mfenced separators="" 
open="["  close="]" ><mrow><mo 
class="MathClass-bin">&#x2212;</mo><mfrac><mrow 
><msup><mrow 
><mi 
>b</mi></mrow><mrow 
><mn>2</mn></mrow></msup 
></mrow>
 <mrow 
><mn>2</mn></mrow></mfrac> <mo 
class="MathClass-rel">&#x2225;</mo><msubsup><mrow 
><mi 
>e</mi></mrow><mrow 
><mi 
>l</mi></mrow><mrow 
><mrow><mo 
class="MathClass-open">(</mo><mrow><mi 
>k</mi></mrow><mo 
class="MathClass-close">)</mo></mrow></mrow></msubsup 
> <mo 
class="MathClass-bin">&#x2212;</mo><msubsup><mrow 
><mi 
>e</mi></mrow><mrow 
><msup><mrow 
>
<mi 
>l</mi></mrow><mrow 
><mi 
>&#x2032;</mi></mrow></msup 
></mrow><mrow 
><mrow><mo 
class="MathClass-open">(</mo><mrow><mi 
>k</mi></mrow><mo 
class="MathClass-close">)</mo></mrow></mrow></msubsup 
><msup><mrow 
><mo 
class="MathClass-rel">&#x2225;</mo></mrow><mrow 
><mn>2</mn></mrow></msup 
></mrow></mfenced>             </mtd><mtd 
class="eqnarray-4"> <mtext class="eqnarray">(2.10)</mtext><mtext 
   id="x1-23007r2.10"  class="label" ></mtext><mtext 
class="endlabel"></mtext></mtd>
</mtr><mtr><mtd 
class="eqnarray-1">               <mo 
class="MathClass-bin">&#x2212;</mo><msup><mrow 
><mrow><mo 
class="MathClass-open">(</mo><mrow><msup><mrow 
><mi 
>b</mi></mrow><mrow 
><mn>2</mn></mrow></msup 
> <mo 
class="MathClass-bin">+</mo> <mn>1</mn></mrow><mo 
class="MathClass-close">)</mo></mrow></mrow><mrow 
><mo 
class="MathClass-bin">&#x2212;</mo><mfrac><mrow 
><mi 
>q</mi></mrow>
<mrow 
><mn>2</mn></mrow></mfrac> </mrow></msup 
></mtd><mtd 
class="eqnarray-2">   <mo 
>exp</mo><!--nolimits--></mtd><mtd 
class="eqnarray-3">   <mfenced separators="" 
open="["  close="]" ><mrow><mo 
class="MathClass-bin">&#x2212;</mo><mfrac><mrow 
><mn>1</mn></mrow>
<mrow 
><mn>2</mn></mrow></mfrac>   <mfrac><mrow 
><msup><mrow 
><mi 
>b</mi></mrow><mrow 
><mn>2</mn></mrow></msup 
></mrow> 
<mrow 
><msup><mrow 
><mi 
>b</mi></mrow><mrow 
><mn>2</mn></mrow></msup 
> <mo 
class="MathClass-bin">+</mo> <mn>1</mn></mrow></mfrac><mo 
class="MathClass-rel">&#x2225;</mo><msubsup><mrow 
><mi 
>e</mi></mrow><mrow 
><mi 
>l</mi></mrow><mrow 
><mrow><mo 
class="MathClass-open">(</mo><mrow><mi 
>k</mi></mrow><mo 
class="MathClass-close">)</mo></mrow></mrow></msubsup 
><msup><mrow 
><mo 
class="MathClass-rel">&#x2225;</mo></mrow><mrow 
><mn>2</mn></mrow></msup 
></mrow></mfenced>               </mtd><mtd 
class="eqnarray-4"> <mtext class="eqnarray">(2.11)</mtext><mtext 
   id="x1-23007r2.11"  class="label" ></mtext><mtext 
class="endlabel"></mtext></mtd>
</mtr><mtr><mtd 
class="eqnarray-1">               <mo 
class="MathClass-bin">&#x2212;</mo><msup><mrow 
><mrow><mo 
class="MathClass-open">(</mo><mrow><msup><mrow 
><mi 
>b</mi></mrow><mrow 
><mn>2</mn></mrow></msup 
> <mo 
class="MathClass-bin">+</mo> <mn>1</mn></mrow><mo 
class="MathClass-close">)</mo></mrow></mrow><mrow 
><mo 
class="MathClass-bin">&#x2212;</mo><mfrac><mrow 
><mi 
>q</mi></mrow>
<mrow 
><mn>2</mn></mrow></mfrac> </mrow></msup 
></mtd><mtd 
class="eqnarray-2">   <mo 
>exp</mo><!--nolimits--></mtd><mtd 
class="eqnarray-3">   <mfenced separators="" 
open="["  close="]" ><mrow><mo 
class="MathClass-bin">&#x2212;</mo><mfrac><mrow 
><mn>1</mn></mrow>
<mrow 
><mn>2</mn></mrow></mfrac>   <mfrac><mrow 
><msup><mrow 
><mi 
>b</mi></mrow><mrow 
><mn>2</mn></mrow></msup 
></mrow> 
<mrow 
><msup><mrow 
><mi 
>b</mi></mrow><mrow 
><mn>2</mn></mrow></msup 
> <mo 
class="MathClass-bin">+</mo> <mn>1</mn></mrow></mfrac><mo 
class="MathClass-rel">&#x2225;</mo><msubsup><mrow 
><mi 
>e</mi></mrow><mrow 
><msup><mrow 
><mi 
>l</mi></mrow><mrow 
><mi 
>&#x2032;</mi></mrow></msup 
></mrow><mrow 
><mrow><mo 
class="MathClass-open">(</mo><mrow><mi 
>k</mi></mrow><mo 
class="MathClass-close">)</mo></mrow></mrow></msubsup 
><msup><mrow 
><mo 
class="MathClass-rel">&#x2225;</mo></mrow><mrow 
><mn>2</mn></mrow></msup 
></mrow></mfenced> <mo 
class="MathClass-bin">+</mo> <msup><mrow 
><mrow><mo 
class="MathClass-open">(</mo><mrow><mn>2</mn><msup><mrow 
><mi 
>b</mi></mrow><mrow 
><mn>2</mn></mrow></msup 
> <mo 
class="MathClass-bin">+</mo> <mn>1</mn></mrow><mo 
class="MathClass-close">)</mo></mrow></mrow><mrow 
><mo 
class="MathClass-bin">&#x2212;</mo><mfrac><mrow 
><mi 
>q</mi></mrow>
<mrow 
><mn>2</mn></mrow></mfrac> </mrow></msup 
><mfenced separators="" 
open="}"  close="" ><mrow></mrow></mfenced><mo 
class="MathClass-punc">.</mo></mtd><mtd 
class="eqnarray-4"> <mtext class="eqnarray">(2.12)</mtext><mtext 
   id="x1-23007r2.12"  class="label" ></mtext><mtext 
class="endlabel"></mtext></mtd>          </mtr></mtable>
</math>

<!--l. 341--><p class="nopar">
</p><!--l. 343--><p class="noindent">Since squared Mahalanobis type statistics are affine invariant it follows that
<!--l. 344--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><msub><mrow 
><mi 
>T</mi></mrow><mrow 
><mi 
>n</mi><mo 
class="MathClass-punc">,</mo><mi 
>b</mi><mo 
class="MathClass-punc">,</mo><mi 
>A</mi></mrow></msub 
></math> is
affine invariant. Thus, the asymptotic distribution of this statistic does not depend on
unknown parameters.
<br class="newline" />
</p><!--l. 348--><p class="indent">   It should be noted that the functional (<a 
href="#x1-23006r9">2.9<!--tex4ht:ref: functional --></a>) defining this test statistic is not continuous<span class="frenchb-thinspace"> </span>; it is not
even defined on <!--l. 350--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mi 
>C</mi><mrow><mo 
class="MathClass-open">(</mo><mrow><msup><mrow 
><mi mathvariant="double-struck">&#x211D;</mi></mrow><mrow 
><mi 
>p</mi><mi 
>q</mi></mrow></msup 
><mo 
class="MathClass-punc">,</mo> <mi mathvariant="double-struck">&#x2102;</mi></mrow><mo 
class="MathClass-close">)</mo></mrow></math>
but only on the subset of squared-integrable functions with respect to the measure
<!--l. 352--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><msub><mrow 
><mi 
>&#x03D5;</mi></mrow><mrow 
><mi 
>b</mi></mrow></msub 
><mrow><mo 
class="MathClass-open">(</mo><mrow><mi 
>t</mi></mrow><mo 
class="MathClass-close">)</mo></mrow><mi 
>d</mi><mi 
>t</mi></math>. Thus,
the continuity theorem as in Billingsley (1968)(<a 
  name="dx1-23008"></a><a 
href="#X1968Billibilo">2</a>) can not be invoked. In order to obtain
the asymptotic distribution of this functional, the following generalization of Theorem
3.3 of Kellermeier (1980)(<a 
  name="dx1-23009"></a><a 
href="#X1980Kelle78bilo">23</a>) on a uniform integrability condition is proposed. Let
<!--l. 357--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><msubsup><mrow 
><mi mathvariant="double-struck">&#x211D;</mi></mrow><mrow 
><mi 
>j</mi></mrow><mrow 
><mi 
>p</mi><mi 
>q</mi></mrow></msubsup 
></math> be the ball of
radius <!--l. 357--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mi 
>j</mi></math> centered
at zero in <!--l. 358--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><msup><mrow 
><mi mathvariant="double-struck">&#x211D;</mi></mrow><mrow 
><mi 
>p</mi><mi 
>q</mi></mrow></msup 
></math>.
</p>
   <div class="newtheorem">
<!--l. 361--><p class="noindent"><span class="head">
<a 
  name="x1-23010r3"></a>
<span 
class="ecbx-1200">Theorem 2.3.</span></span>
   <span 
class="ecti-1200">Let </span><!--l. 362--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><msub><mrow 
><mi 
>y</mi></mrow><mrow 
><mi 
>n</mi></mrow></msub 
></math> <span 
class="ecti-1200">and</span>
<!--l. 362--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mi 
>y</mi></math> <span 
class="ecti-1200">be random elements</span>
<span 
class="ecti-1200">of </span><!--l. 363--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mi 
>C</mi><msup><mrow 
><mrow><mo 
class="MathClass-open">(</mo><mrow><msup><mrow 
><mi mathvariant="double-struck">&#x211D;</mi></mrow><mrow 
><mi 
>p</mi><mi 
>q</mi></mrow></msup 
><mo 
class="MathClass-punc">,</mo> <mi mathvariant="double-struck">&#x2102;</mi></mrow><mo 
class="MathClass-close">)</mo></mrow></mrow><mrow 
><mn>2</mn></mrow></msup 
></math> <span 
class="ecti-1200">such that</span>
<!--l. 364--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><msub><mrow 
><mi 
>y</mi></mrow><mrow 
><mi 
>n</mi></mrow></msub 
><mover><mrow 
> <mo 
class="MathClass-rel">&#x2192;</mo></mrow><mrow 
><mi 
>D</mi></mrow></mover><mi 
>y</mi></math> <span 
class="ecti-1200">on all compact balls.</span>
<span 
class="ecti-1200">Let </span><!--l. 365--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mi 
>f</mi> <mo 
class="MathClass-punc">:</mo> <msup><mrow 
><mi mathvariant="double-struck">&#x2102;</mi></mrow><mrow 
><mn>2</mn></mrow></msup 
> <mo 
class="MathClass-rel">&#x2192;</mo> <mi mathvariant="double-struck">&#x211D;</mi></math> <span 
class="ecti-1200">be a continuous</span>
<span 
class="ecti-1200">function and let </span><!--l. 366--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mi 
>G</mi></math> <span 
class="ecti-1200">be a</span>
<span 
class="ecti-1200">probability measure on </span><!--l. 367--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><msup><mrow 
><mi mathvariant="double-struck">&#x211D;</mi></mrow><mrow 
><mi 
>p</mi><mi 
>q</mi></mrow></msup 
></math><span 
class="ecti-1200">.</span>
<span 
class="ecti-1200">Define </span><!--l. 367--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><msub><mrow 
><mi 
>w</mi></mrow><mrow 
><mi 
>n</mi></mrow></msub 
> <mo 
class="MathClass-rel">=</mo> <mo 
class="MathClass-op">&#x222B;</mo>
  <mi 
>f</mi><mrow><mo 
class="MathClass-open">(</mo><mrow><msub><mrow 
><mi 
>y</mi></mrow><mrow 
><mi 
>n</mi></mrow></msub 
><mrow><mo 
class="MathClass-open">(</mo><mrow><mi 
>t</mi></mrow><mo 
class="MathClass-close">)</mo></mrow></mrow><mo 
class="MathClass-close">)</mo></mrow><mi 
>d</mi><mi 
>G</mi><mrow><mo 
class="MathClass-open">(</mo><mrow><mi 
>t</mi></mrow><mo 
class="MathClass-close">)</mo></mrow></math> <span 
class="ecti-1200">and</span>
<!--l. 368--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mi 
>w</mi> <mo 
class="MathClass-rel">=</mo> <mo 
class="MathClass-op">&#x222B;</mo>
  <mi 
>f</mi><mrow><mo 
class="MathClass-open">(</mo><mrow><mi 
>y</mi><mrow><mo 
class="MathClass-open">(</mo><mrow><mi 
>t</mi></mrow><mo 
class="MathClass-close">)</mo></mrow></mrow><mo 
class="MathClass-close">)</mo></mrow><mi 
>d</mi><mi 
>G</mi><mrow><mo 
class="MathClass-open">(</mo><mrow><mi 
>t</mi></mrow><mo 
class="MathClass-close">)</mo></mrow></math><span 
class="ecti-1200">. Suppose</span>
<span 
class="ecti-1200">that </span><!--l. 369--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><msub><mrow 
><mi 
>w</mi></mrow><mrow 
><mi 
>n</mi></mrow></msub 
></math>
<span 
class="ecti-1200">and </span><!--l. 369--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mi 
>w</mi></math>
<span 
class="ecti-1200">are well defined with probability one. Moreover, suppose that there exists</span>
<!--l. 371--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mi 
>&#x03B1;</mi> <mo 
class="MathClass-rel">&#x2265;</mo> <mn>1</mn></math> <span 
class="ecti-1200">such that</span>
<span 
class="ecti-1200">for all </span><!--l. 371--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mi 
>&#x03B5;</mi> <mo 
class="MathClass-rel">&#x003E;</mo> <mn>0</mn></math><span 
class="ecti-1200">,</span> </p><table class="equation"><tr><td>
<a 
  name="x1-23011r13"></a>

<!--l. 372--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="display">
          <munder><mrow 
><mo 
>lim</mo></mrow><mrow 
><mi 
>j</mi> <mo 
class="MathClass-rel">&#x2192;</mo><mi 
>&#x221E;</mi></mrow></munder><munder><mrow 
><mo 
> lim sup</mo> </mrow><mrow 
><mi 
>n</mi> <mo 
class="MathClass-rel">&#x2192;</mo><mi 
>&#x221E;</mi></mrow></munder><msub><mrow 
><mo 
class="MathClass-op">&#x222B;</mo>
  </mrow><mrow 
><msup><mrow 
><mi mathvariant="double-struck">&#x211D;</mi></mrow><mrow 
><mi 
>p</mi><mi 
>q</mi></mrow></msup 
><mo 
class="MathClass-bin">&#x2216;</mo><msubsup><mrow 
><mi mathvariant="double-struck">&#x211D;</mi></mrow><mrow 
><mi 
>j</mi></mrow><mrow 
><mi 
>p</mi><mi 
>q</mi></mrow></msubsup 
></mrow></msub 
><mi 
>E</mi><mo 
class="MathClass-rel">&#x2223;</mo><mi 
>f</mi><mrow><mo 
class="MathClass-open">(</mo><mrow><msub><mrow 
><mi 
>y</mi></mrow><mrow 
><mi 
>n</mi></mrow></msub 
><mrow><mo 
class="MathClass-open">(</mo><mrow><mi 
>t</mi></mrow><mo 
class="MathClass-close">)</mo></mrow></mrow><mo 
class="MathClass-close">)</mo></mrow><msup><mrow 
><mo 
class="MathClass-rel">&#x2223;</mo></mrow><mrow 
><mi 
>&#x03B1;</mi></mrow></msup 
><mi 
>d</mi><mi 
>G</mi><mrow><mo 
class="MathClass-open">(</mo><mrow><mi 
>t</mi></mrow><mo 
class="MathClass-close">)</mo></mrow> <mo 
class="MathClass-rel">=</mo> <mn>0</mn><mo 
class="MathClass-punc">.</mo>
</math>
<!--l. 375--><p class="nopar"></p></td><td class="eq-no">(2.13)</td></tr></table>
<span 
class="ecti-1200">Then </span><!--l. 376--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><msub><mrow 
><mi 
>w</mi></mrow><mrow 
><mi 
>n</mi></mrow></msub 
><mover><mrow 
> <mo 
class="MathClass-rel">&#x2192;</mo></mrow><mrow 
><mi 
>D</mi></mrow></mover><mi 
>w</mi></math>
<span 
class="ecti-1200">as </span><!--l. 376--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mi 
>n</mi> <mo 
class="MathClass-rel">&#x2192;</mo><mi 
>&#x221E;</mi></math><span 
class="ecti-1200">.</span>
   </div>
<!--l. 380--><p class="indent">   Using Theorem <a 
href="#x1-23010r3">2.3<!--tex4ht:ref: thkeller --></a>, the joint convergence of the Cram&#x00E9;r-von Mises functionals can
be established.
</p>
   <div class="newtheorem">
<!--l. 384--><p class="noindent"><span class="head">
<a 
  name="x1-23012r4"></a>
<span 
class="ecbx-1200">Theorem 2.4.</span></span>
</p>
   <center class="par-math-display"><!--l. 386--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="display"><mrow 
>
          <mo 
class="MathClass-op">&#x222B;</mo>
       <mfenced separators="" 
open="("  close=")" ><mrow><mo 
class="MathClass-rel">&#x2223;</mo><msub><mrow 
><mover 
accent="true"><mrow 
><mi 
>R</mi></mrow><mo 
class="MathClass-op">&#x0302;</mo></mover></mrow><mrow 
><mi 
>n</mi><mo 
class="MathClass-punc">,</mo><mi 
>A</mi></mrow></msub 
><mrow><mo 
class="MathClass-open">(</mo><mrow><mi 
>t</mi></mrow><mo 
class="MathClass-close">)</mo></mrow><msup><mrow 
><mo 
class="MathClass-rel">&#x2223;</mo></mrow><mrow 
><mn>2</mn></mrow></msup 
><mo 
class="MathClass-punc">,</mo><mo 
class="MathClass-rel">&#x2223;</mo><msub><mrow 
><mover 
accent="true"><mrow 
><mi 
>R</mi></mrow><mo 
class="MathClass-op">&#x0302;</mo></mover></mrow><mrow 
>
<mi 
>n</mi><mo 
class="MathClass-punc">,</mo><mi 
>B</mi></mrow></msub 
><mrow><mo 
class="MathClass-open">(</mo><mrow><mi 
>t</mi></mrow><mo 
class="MathClass-close">)</mo></mrow><msup><mrow 
><mo 
class="MathClass-rel">&#x2223;</mo></mrow><mrow 
><mn>2</mn></mrow></msup 
></mrow></mfenced> <msub><mrow 
><mi 
>&#x03D5;</mi></mrow><mrow 
>
<mi 
>b</mi></mrow></msub 
><mrow><mo 
class="MathClass-open">(</mo><mrow><mi 
>t</mi></mrow><mo 
class="MathClass-close">)</mo></mrow><mi 
>d</mi><mi 
>t</mi><mover><mrow 
><mo 
class="MathClass-rel">&#x2192;</mo></mrow><mrow 
><mi 
>D</mi></mrow></mover><mo 
class="MathClass-op">&#x222B;</mo>
  <mfenced separators="" 
open="("  close=")" ><mrow><mo 
class="MathClass-rel">&#x2223;</mo><msub><mrow 
><mi 
>R</mi></mrow><mrow 
><mi 
>A</mi></mrow></msub 
><mrow><mo 
class="MathClass-open">(</mo><mrow><mi 
>t</mi></mrow><mo 
class="MathClass-close">)</mo></mrow><msup><mrow 
><mo 
class="MathClass-rel">&#x2223;</mo></mrow><mrow 
><mn>2</mn></mrow></msup 
><mo 
class="MathClass-punc">,</mo><mo 
class="MathClass-rel">&#x2223;</mo><msub><mrow 
><mi 
>R</mi></mrow><mrow 
>
<mi 
>B</mi></mrow></msub 
><mrow><mo 
class="MathClass-open">(</mo><mrow><mi 
>t</mi></mrow><mo 
class="MathClass-close">)</mo></mrow><msup><mrow 
><mo 
class="MathClass-rel">&#x2223;</mo></mrow><mrow 
><mn>2</mn></mrow></msup 
></mrow></mfenced> <msub><mrow 
><mi 
>&#x03D5;</mi></mrow><mrow 
>
<mi 
>b</mi></mrow></msub 
><mrow><mo 
class="MathClass-open">(</mo><mrow><mi 
>t</mi></mrow><mo 
class="MathClass-close">)</mo></mrow><mi 
>d</mi><mi 
>t</mi><mo 
class="MathClass-punc">,</mo>
</mrow></math></center>
<!--l. 392--><p class="nopar">
<span 
class="ecti-1200">where integrals are computed componentwise.</span>
</p>
   </div>
<!--l. 397--><p class="indent">   All possible subsets <!--l. 397--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mi 
>A</mi></math>
can then be simultaneously accounted for by combining the test statistics as in </p><table class="equation"><tr><td>
<a 
  name="x1-23013r14"></a>

<!--l. 399--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="display">
                             <msub><mrow 
><mi 
>S</mi></mrow><mrow 
><mi 
>n</mi></mrow></msub 
> <mo 
class="MathClass-rel">=</mo> <mi 
>n</mi><msub><mrow 
><mo 
class="MathClass-op">&#x2211;</mo>
   </mrow><mrow 
><mo 
class="MathClass-rel">&#x2223;</mo><mi 
>A</mi><mo 
class="MathClass-rel">&#x2223;</mo><mo 
class="MathClass-rel">&#x003E;</mo><mn>1</mn></mrow></msub 
><msub><mrow 
><mi 
>T</mi></mrow><mrow 
><mi 
>n</mi><mo 
class="MathClass-punc">,</mo><mi 
>b</mi><mo 
class="MathClass-punc">,</mo><mi 
>A</mi></mrow></msub 
>
</math>
<!--l. 400--><p class="nopar"></p></td><td class="eq-no">(2.14)</td></tr></table>
or <table class="equation"><tr><td> <a 
  name="x1-23014r15"></a>
<!--l. 401--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="display">
                            <msub><mrow 
><mi 
>M</mi></mrow><mrow 
><mi 
>n</mi></mrow></msub 
> <mo 
class="MathClass-rel">=</mo> <mi 
>n</mi><msub><mrow 
><mo 
> max</mo> </mrow><mrow 
><mo 
class="MathClass-rel">&#x2223;</mo><mi 
>A</mi><mo 
class="MathClass-rel">&#x2223;</mo><mo 
class="MathClass-rel">&#x003E;</mo><mn>1</mn></mrow></msub 
><msub><mrow 
><mi 
>T</mi></mrow><mrow 
><mi 
>n</mi><mo 
class="MathClass-punc">,</mo><mi 
>b</mi><mo 
class="MathClass-punc">,</mo><mi 
>A</mi></mrow></msub 
><mo 
class="MathClass-punc">.</mo>
</math>
<!--l. 401--><p class="nopar"></p></td><td class="eq-no">(2.15)</td></tr></table>
   <h4 class="subsectionHead"><span class="titlemark">2.3. </span> <a 
  name="x1-240002.3"></a>Relation to V-statistics</h4>
<!--l. 405--><p class="noindent">The statistic <!--l. 405--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><msub><mrow 
><mi 
>T</mi></mrow><mrow 
><mi 
>n</mi><mo 
class="MathClass-punc">,</mo><mi 
>b</mi><mo 
class="MathClass-punc">,</mo><mi 
>A</mi></mrow></msub 
></math>
is in fact a V-statistic as in de Wet and Randles (1987)(<a 
  name="dx1-24001"></a><a 
href="#X1987Dewet398bilo">13</a>). It can be represented as </p><table class="equation"><tr><td>
<a 
  name="x1-24002r16"></a>
<!--l. 407--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="display">
                   <msub><mrow 
><mi 
>T</mi></mrow><mrow 
><mi 
>n</mi><mo 
class="MathClass-punc">,</mo><mi 
>b</mi><mo 
class="MathClass-punc">,</mo><mi 
>A</mi></mrow></msub 
> <mo 
class="MathClass-rel">=</mo>  <mfrac><mrow 
><mn>1</mn></mrow> 
<mrow 
><msup><mrow 
><mi 
>n</mi></mrow><mrow 
><mn>2</mn></mrow></msup 
></mrow></mfrac><msubsup><mrow 
> <mo 
class="MathClass-op">&#x2211;</mo>
    </mrow><mrow 
><mi 
>l</mi><mo 
class="MathClass-rel">=</mo><mn>1</mn></mrow><mrow 
><mi 
>n</mi></mrow></msubsup 
><msubsup><mrow 
> <mo 
class="MathClass-op">&#x2211;</mo>
  </mrow><mrow 
><msup><mrow 
><mi 
>l</mi></mrow><mrow 
><mi 
>&#x2032;</mi></mrow></msup 
><mo 
class="MathClass-rel">=</mo><mn>1</mn></mrow><mrow 
><mi 
>n</mi></mrow></msubsup 
><mi 
>h</mi><mrow><mo 
class="MathClass-open">(</mo><mrow><msub><mrow 
><mi 
>&#x03B5;</mi></mrow><mrow 
>
<mi 
>l</mi></mrow></msub 
><mo 
class="MathClass-punc">,</mo><msub><mrow 
><mi 
>&#x03B5;</mi></mrow><mrow 
><msup><mrow 
><mi 
>l</mi></mrow><mrow 
><mi 
>&#x2032;</mi></mrow></msup 
></mrow></msub 
><mo 
class="MathClass-punc">;</mo><msub><mrow 
> <mover 
accent="true"><mrow 
><mi 
>&#x03BB;</mi></mrow><mo 
class="MathClass-op">&#x0302;</mo></mover></mrow><mrow 
><mi 
>n</mi></mrow></msub 
></mrow><mo 
class="MathClass-close">)</mo></mrow><mo 
class="MathClass-punc">,</mo>
</math>
<!--l. 410--><p class="nopar"></p></td><td class="eq-no">(2.16)</td></tr></table>
where <!--l. 411--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><msub><mrow 
><mover 
accent="true"><mrow 
><mi 
>&#x03BB;</mi></mrow><mo 
class="MathClass-op">&#x0302;</mo></mover></mrow><mrow 
><mi 
>n</mi></mrow></msub 
> <mo 
class="MathClass-rel">=</mo> <mrow><mo 
class="MathClass-open">(</mo><mrow><mover 
accent="true"><mrow 
><mi 
>&#x03B5;</mi></mrow><mo 
class="MathClass-op">&#x0304;</mo></mover><mo 
class="MathClass-punc">,</mo><mi 
>S</mi></mrow><mo 
class="MathClass-close">)</mo></mrow></math> consistently estimates
the true parameter <!--l. 413--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mi 
>&#x03BB;</mi> <mo 
class="MathClass-rel">=</mo> <mrow><mo 
class="MathClass-open">(</mo><mrow><mn>0</mn><mo 
class="MathClass-punc">,</mo><mi 
>I</mi></mrow><mo 
class="MathClass-close">)</mo></mrow></math>.
The function <!--l. 413--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mi 
>h</mi></math> at
an arbitrary <!--l. 414--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mi 
>&#x03B3;</mi> <mo 
class="MathClass-rel">=</mo> <mrow><mo 
class="MathClass-open">(</mo><mrow><mi 
>&#x03BC;</mi><mo 
class="MathClass-punc">,</mo><mi 
>&#x03A3;</mi></mrow><mo 
class="MathClass-close">)</mo></mrow></math>
is defined as

   <center class="math-display"><!--l. 415--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="display"><mrow 
>
                        <mi 
>h</mi><mrow><mo 
class="MathClass-open">(</mo><mrow><msub><mrow 
><mi 
>&#x03B5;</mi></mrow><mrow 
><mi 
>l</mi></mrow></msub 
><mo 
class="MathClass-punc">,</mo><msub><mrow 
><mi 
>&#x03B5;</mi></mrow><mrow 
><msup><mrow 
><mi 
>l</mi></mrow><mrow 
><mi 
>&#x2032;</mi></mrow></msup 
></mrow></msub 
><mo 
class="MathClass-punc">;</mo> <mi 
>&#x03B3;</mi></mrow><mo 
class="MathClass-close">)</mo></mrow> <mo 
class="MathClass-rel">=</mo> <mo 
class="MathClass-op">&#x222B;</mo>
  <mi 
>g</mi><mrow><mo 
class="MathClass-open">(</mo><mrow><msub><mrow 
><mi 
>&#x03B5;</mi></mrow><mrow 
><mi 
>l</mi></mrow></msub 
><mo 
class="MathClass-punc">,</mo><mi 
>t</mi><mo 
class="MathClass-punc">;</mo> <mi 
>&#x03B3;</mi></mrow><mo 
class="MathClass-close">)</mo></mrow><mi 
>g</mi><mrow><mo 
class="MathClass-open">(</mo><mrow><msub><mrow 
><mi 
>&#x03B5;</mi></mrow><mrow 
><msup><mrow 
><mi 
>l</mi></mrow><mrow 
><mi 
>&#x2032;</mi></mrow></msup 
></mrow></msub 
><mo 
class="MathClass-punc">,</mo><mi 
>t</mi><mo 
class="MathClass-punc">;</mo> <mi 
>&#x03B3;</mi></mrow><mo 
class="MathClass-close">)</mo></mrow><msub><mrow 
><mi 
>&#x03D5;</mi></mrow><mrow 
><mi 
>b</mi></mrow></msub 
><mrow><mo 
class="MathClass-open">(</mo><mrow><mi 
>t</mi></mrow><mo 
class="MathClass-close">)</mo></mrow><mi 
>d</mi><mi 
>t</mi><mo 
class="MathClass-punc">,</mo>
</mrow></math></center>
<!--l. 420--><p class="nopar">
where, from elementary properties of integrals of odd functions, the function
<!--l. 422--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mi 
>g</mi></math> can
be taken real-valued
</p><!--l. 424--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="display">
<mtable 
class="eqnarray" columnalign="right center left" >
<mtr><mtd 
class="eqnarray-1"> <mi 
>g</mi><mrow><mo 
class="MathClass-open">(</mo><mrow><msub><mrow 
><mi 
>&#x03B5;</mi></mrow><mrow 
><mi 
>l</mi></mrow></msub 
><mo 
class="MathClass-punc">,</mo><mi 
>t</mi><mo 
class="MathClass-punc">;</mo> <mi 
>&#x03B3;</mi></mrow><mo 
class="MathClass-close">)</mo></mrow></mtd><mtd 
class="eqnarray-2">   <mo 
class="MathClass-rel">=</mo></mtd><mtd 
class="eqnarray-3"><msub><mrow 
>   <mo 
class="MathClass-op">&#x220F;</mo>
                    </mrow><mrow 
><mi 
>k</mi><mo 
class="MathClass-rel">&#x2208;</mo><mi 
>A</mi></mrow></msub 
> <mfenced separators="" 
open="["  close="" ><mrow><mo 
>cos</mo><!--nolimits--><mrow><mo 
class="MathClass-open">(</mo><mrow><mrow><mo 
class="MathClass-open">&#x2329;</mo><mrow><msup><mrow 
><mi 
>t</mi></mrow><mrow 
><mrow><mo 
class="MathClass-open">(</mo><mrow><mi 
>k</mi></mrow><mo 
class="MathClass-close">)</mo></mrow></mrow></msup 
><mo 
class="MathClass-punc">,</mo><msup><mrow 
><mi 
>&#x03A3;</mi></mrow><mrow 
><mo 
class="MathClass-bin">&#x2212;</mo><mn>1</mn><mo 
class="MathClass-bin">&#x2215;</mo><mn>2</mn></mrow></msup 
><mrow><mo 
class="MathClass-open">(</mo><mrow><msubsup><mrow 
><mi 
>&#x03B5;</mi></mrow><mrow 
>
<mi 
>l</mi></mrow><mrow 
><mrow><mo 
class="MathClass-open">(</mo><mrow><mi 
>k</mi></mrow><mo 
class="MathClass-close">)</mo></mrow></mrow></msubsup 
> <mo 
class="MathClass-bin">&#x2212;</mo><mi 
>&#x03BC;</mi></mrow><mo 
class="MathClass-close">)</mo></mrow></mrow><mo 
class="MathClass-close">&#x232A;</mo></mrow></mrow><mo 
class="MathClass-close">)</mo></mrow></mrow></mfenced>     </mtd><mtd 
class="eqnarray-4"> <mtext class="eqnarray">(2.17)</mtext><mtext 
   id="x1-24003r2.17"  class="label" ></mtext><mtext 
class="endlabel"></mtext></mtd>
</mtr><mtr><mtd 
class="eqnarray-1">          </mtd><mtd 
class="eqnarray-2">    </mtd><mtd 
class="eqnarray-3">   <mfenced separators="" 
open=""  close="]" ><mrow><mo 
class="MathClass-bin">+</mo><mo 
> sin</mo><!--nolimits--><mrow><mo 
class="MathClass-open">(</mo><mrow><mrow><mo 
class="MathClass-open">&#x2329;</mo><mrow><msup><mrow 
><mi 
>t</mi></mrow><mrow 
><mrow><mo 
class="MathClass-open">(</mo><mrow><mi 
>k</mi></mrow><mo 
class="MathClass-close">)</mo></mrow></mrow></msup 
><mo 
class="MathClass-punc">,</mo><msup><mrow 
><mi 
>&#x03A3;</mi></mrow><mrow 
><mo 
class="MathClass-bin">&#x2212;</mo><mn>1</mn><mo 
class="MathClass-bin">&#x2215;</mo><mn>2</mn></mrow></msup 
><mrow><mo 
class="MathClass-open">(</mo><mrow><msubsup><mrow 
><mi 
>&#x03B5;</mi></mrow><mrow 
>
<mi 
>l</mi></mrow><mrow 
><mrow><mo 
class="MathClass-open">(</mo><mrow><mi 
>k</mi></mrow><mo 
class="MathClass-close">)</mo></mrow></mrow></msubsup 
> <mo 
class="MathClass-bin">&#x2212;</mo><mi 
>&#x03BC;</mi></mrow><mo 
class="MathClass-close">)</mo></mrow></mrow><mo 
class="MathClass-close">&#x232A;</mo></mrow></mrow><mo 
class="MathClass-close">)</mo></mrow> <mo 
class="MathClass-bin">&#x2212;</mo> <mi 
>&#x03C6;</mi><mrow><mo 
class="MathClass-open">(</mo><mrow><msup><mrow 
><mi 
>t</mi></mrow><mrow 
><mrow><mo 
class="MathClass-open">(</mo><mrow><mi 
>k</mi></mrow><mo 
class="MathClass-close">)</mo></mrow></mrow></msup 
></mrow><mo 
class="MathClass-close">)</mo></mrow></mrow></mfenced><mo 
class="MathClass-punc">.</mo></mtd><mtd 
class="eqnarray-4"> <mtext class="eqnarray">(2.18)</mtext><mtext 
   id="x1-24003r2.18"  class="label" ></mtext><mtext 
class="endlabel"></mtext></mtd>                      </mtr></mtable>
</math>
<!--l. 428--><p class="nopar">
Letting <!--l. 429--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mi 
>&#x03BC;</mi><mrow><mo 
class="MathClass-open">(</mo><mrow><mi 
>t</mi><mo 
class="MathClass-punc">;</mo> <mi 
>&#x03B3;</mi></mrow><mo 
class="MathClass-close">)</mo></mrow> <mo 
class="MathClass-rel">=</mo> <msub><mrow 
><mi 
>E</mi></mrow><mrow 
><mrow><mo 
class="MathClass-open">(</mo><mrow><mn>0</mn><mo 
class="MathClass-punc">,</mo><mi 
>I</mi></mrow><mo 
class="MathClass-close">)</mo></mrow></mrow></msub 
><mi 
>g</mi><mrow><mo 
class="MathClass-open">(</mo><mrow><msub><mrow 
><mi 
>&#x03B5;</mi></mrow><mrow 
><mi 
>l</mi></mrow></msub 
><mo 
class="MathClass-punc">,</mo><mi 
>t</mi><mo 
class="MathClass-punc">;</mo> <mi 
>&#x03B3;</mi></mrow><mo 
class="MathClass-close">)</mo></mrow></math>, it is
seen that <!--l. 431--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><msub><mrow 
><mi 
>T</mi></mrow><mrow 
><mi 
>n</mi><mo 
class="MathClass-punc">,</mo><mi 
>b</mi><mo 
class="MathClass-punc">,</mo><mi 
>A</mi></mrow></msub 
></math>
is a V-statistic which falls into case I situation. In de Wet and Randles
(1987)(<a 
  name="dx1-24004"></a><a 
href="#X1987Dewet398bilo">13</a>), they refer to case I when all first order partial derivatives of
<!--l. 433--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mi 
>&#x03BC;</mi><mrow><mo 
class="MathClass-open">(</mo><mrow><mi 
>t</mi><mo 
class="MathClass-punc">;</mo> <mi 
>&#x03B3;</mi></mrow><mo 
class="MathClass-close">)</mo></mrow></math> evaluated at the
true parameter <!--l. 434--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mi 
>&#x03B3;</mi> <mo 
class="MathClass-rel">=</mo> <mi 
>&#x03BB;</mi></math>
vanish. Otherwise, they refer to case II. This is case I here since only
<!--l. 436--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mi 
>A</mi></math>&#x2019;s such
that <!--l. 436--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mo 
class="MathClass-rel">&#x2223;</mo><mi 
>A</mi><mo 
class="MathClass-rel">&#x2223;</mo> <mo 
class="MathClass-rel">&#x003E;</mo> <mn>1</mn></math>
are considered. Thus, the asymptotic distribution of
<!--l. 437--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><msub><mrow 
><mi 
>T</mi></mrow><mrow 
><mi 
>n</mi><mo 
class="MathClass-punc">,</mo><mi 
>b</mi><mo 
class="MathClass-punc">,</mo><mi 
>A</mi></mrow></msub 
></math> is the same
whether one uses <!--l. 438--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><msub><mrow 
><mover 
accent="true"><mrow 
><mi 
>&#x03BB;</mi></mrow><mo 
class="MathClass-op">&#x0302;</mo></mover></mrow><mrow 
><mi 
>n</mi></mrow></msub 
></math>

or <!--l. 438--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mi 
>&#x03BB;</mi></math> in
(<a 
href="#x1-24002r16">2.16<!--tex4ht:ref: vstat --></a>). It is not clear, however, how this argument would apply to the joint distribution
of <!--l. 440--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><msub><mrow 
><mi 
>T</mi></mrow><mrow 
><mi 
>n</mi><mo 
class="MathClass-punc">,</mo><mi 
>b</mi><mo 
class="MathClass-punc">,</mo><mi 
>A</mi></mrow></msub 
></math>
and <!--l. 440--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><msub><mrow 
><mi 
>T</mi></mrow><mrow 
><mi 
>n</mi><mo 
class="MathClass-punc">,</mo><mi 
>b</mi><mo 
class="MathClass-punc">,</mo><mi 
>B</mi></mrow></msub 
></math>.
The proof of Theorem <a 
href="#x1-23012r4">2.4<!--tex4ht:ref: jointdistcramer --></a> in the Appendix does not use de Wet and Randles
(1987)(<a 
  name="dx1-24005"></a><a 
href="#X1987Dewet398bilo">13</a>).
<br class="newline" />
</p><!--l. 444--><p class="indent">   For subsets <!--l. 444--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mi 
>A</mi></math>,
<!--l. 444--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mo 
class="MathClass-rel">&#x2223;</mo><mi 
>A</mi><mo 
class="MathClass-rel">&#x2223;</mo> <mo 
class="MathClass-rel">=</mo> <mn>1</mn></math>, the
statistic <!--l. 444--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><msub><mrow 
><mi 
>T</mi></mrow><mrow 
><mi 
>n</mi><mo 
class="MathClass-punc">,</mo><mi 
>b</mi><mo 
class="MathClass-punc">,</mo><mi 
>A</mi></mrow></msub 
></math>
reduces to the statistic used by Baringhaus and Henze (1988)(<a 
  name="dx1-24006"></a><a 
href="#X1988Barin339bilo">1</a>) and Henze and
Zirkler (1990)(<a 
  name="dx1-24007"></a><a 
href="#X1990Henze3595bilo">20</a>) to test normality of a given marginal. They showed that the
asymptotic distribution is affected by the estimation of the unknown parameters by
establishing case II of de Wet and Randles (1987)(<a 
  name="dx1-24008"></a><a 
href="#X1987Dewet398bilo">13</a>). Henze and Wagner
(1997)(<a 
  name="dx1-24009"></a><a 
href="#X1997Henze1bilo">19</a>) treated the same problem with an approach based on stochastic
processes.
</p>
   <h4 class="subsectionHead"><span class="titlemark">2.4. </span> <a 
  name="x1-250002.4"></a>Consistency</h4>
<!--l. 455--><p class="noindent">Consider the alternatives whereby <!--l. 456--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><msup><mrow 
><mi 
>&#x03B5;</mi></mrow><mrow 
><mrow><mo 
class="MathClass-open">(</mo><mrow><mn>1</mn></mrow><mo 
class="MathClass-close">)</mo></mrow></mrow></msup 
><mo 
class="MathClass-punc">,</mo><mo 
class="MathClass-op">&#x2026;</mo><mo 
class="MathClass-punc">,</mo><msup><mrow 
><mi 
>&#x03B5;</mi></mrow><mrow 
><mrow><mo 
class="MathClass-open">(</mo><mrow><mi 
>p</mi></mrow><mo 
class="MathClass-close">)</mo></mrow></mrow></msup 
></math>
are distributed as <!--l. 457--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><msub><mrow 
><mi 
>N</mi></mrow><mrow 
><mi 
>q</mi></mrow></msub 
><mrow><mo 
class="MathClass-open">(</mo><mrow><mi 
>&#x03BC;</mi><mo 
class="MathClass-punc">,</mo><mi 
>&#x03A3;</mi></mrow><mo 
class="MathClass-close">)</mo></mrow></math>, but are
not independent. Then, <!--l. 458--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><msub><mrow 
><mi 
>S</mi></mrow><mrow 
><mi 
>n</mi></mrow></msub 
> <mo 
class="MathClass-rel">&#x2192;</mo><mi 
>&#x221E;</mi></math>
and <!--l. 458--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><msub><mrow 
><mi 
>M</mi></mrow><mrow 
><mi 
>n</mi></mrow></msub 
> <mo 
class="MathClass-rel">&#x2192;</mo><mi 
>&#x221E;</mi></math>. Thus, the
test statistics <!--l. 459--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><msub><mrow 
><mi 
>S</mi></mrow><mrow 
><mi 
>n</mi></mrow></msub 
></math>
and <!--l. 459--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><msub><mrow 
><mi 
>M</mi></mrow><mrow 
><mi 
>n</mi></mrow></msub 
></math>
in (<a 
href="#x1-23013r14">2.14<!--tex4ht:ref: statsum --></a>)-(<a 
href="#x1-23014r15">2.15<!--tex4ht:ref: statmax --></a>) are consistent against any such alternatives.
<br class="newline" />
</p><!--l. 462--><p class="indent">   The argument to establish consistency is rather trivial as in Baringhaus and Henze (1988)(<a 
  name="dx1-25001"></a><a 
href="#X1988Barin339bilo">1</a>). Recall
that <!--l. 463--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><msub><mrow 
><mi 
>C</mi></mrow><mrow 
><mi 
>p</mi></mrow></msub 
><mrow><mo 
class="MathClass-open">(</mo><mrow><mo 
class="MathClass-punc">&#x22C5;</mo></mrow><mo 
class="MathClass-close">)</mo></mrow></math> is the joint
characteristic function of <!--l. 465--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><msup><mrow 
><mi 
>&#x03B5;</mi></mrow><mrow 
><mrow><mo 
class="MathClass-open">(</mo><mrow><mn>1</mn></mrow><mo 
class="MathClass-close">)</mo></mrow></mrow></msup 
><mo 
class="MathClass-punc">,</mo><mo 
class="MathClass-op">&#x2026;</mo><mo 
class="MathClass-punc">,</mo><msup><mrow 
><mi 
>&#x03B5;</mi></mrow><mrow 
><mrow><mo 
class="MathClass-open">(</mo><mrow><mi 
>p</mi></mrow><mo 
class="MathClass-close">)</mo></mrow></mrow></msup 
></math>.
This argument consists of the following almost sure convergence&#x00A0;:

</p><!--l. 467--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="display">
<mtable 
class="eqnarray" columnalign="right center left" >
<mtr><mtd 
class="eqnarray-1"> <msub><mrow 
><mi 
>T</mi></mrow><mrow 
><mi 
>n</mi><mo 
class="MathClass-punc">,</mo><mi 
>b</mi><mo 
class="MathClass-punc">,</mo><mi 
>A</mi></mrow></msub 
></mtd><mtd 
class="eqnarray-2">    <mo 
class="MathClass-rel">=</mo>  </mtd><mtd 
class="eqnarray-3">   <mo 
class="MathClass-op">&#x222B;</mo>
                   <mo 
class="MathClass-rel">&#x2223;</mo><msub><mrow 
><mo 
class="MathClass-op">&#x2211;</mo>
   </mrow><mrow 
><mi 
>B</mi><mo 
class="MathClass-rel">&#x2282;</mo><mi 
>A</mi></mrow></msub 
><msup><mrow 
><mrow><mo 
class="MathClass-open">(</mo><mrow><mo 
class="MathClass-bin">&#x2212;</mo><mn>1</mn></mrow><mo 
class="MathClass-close">)</mo></mrow></mrow><mrow 
><mo 
class="MathClass-rel">&#x2223;</mo><mi 
>A</mi><mo 
class="MathClass-bin">&#x2216;</mo><mi 
>B</mi><mo 
class="MathClass-rel">&#x2223;</mo></mrow></msup 
><mo 
> exp</mo><!--nolimits--><mrow><mo 
class="MathClass-open">(</mo><mrow><mo 
class="MathClass-bin">&#x2212;</mo><mstyle mathvariant="normal"><mi 
>i</mi></mstyle><msub><mrow 
> <mo 
class="MathClass-op">&#x2211;</mo>
   </mrow><mrow 
><mi 
>k</mi><mo 
class="MathClass-rel">&#x2208;</mo><mi 
>B</mi></mrow></msub 
><mrow><mo 
class="MathClass-open">&#x2329;</mo><mrow><msup><mrow 
><mi 
>t</mi></mrow><mrow 
><mrow><mo 
class="MathClass-open">(</mo><mrow><mi 
>k</mi></mrow><mo 
class="MathClass-close">)</mo></mrow></mrow></msup 
><mo 
class="MathClass-punc">,</mo><msup><mrow 
><mi 
>S</mi></mrow><mrow 
><mo 
class="MathClass-bin">&#x2212;</mo><mfrac><mrow 
><mn>1</mn></mrow>
<mrow 
><mn>2</mn></mrow></mfrac> </mrow></msup 
><mover accent="false" 
class="mml-overline"><mrow><mi 
>&#x03B5;</mi></mrow><mo 
accent="true">&#x00AF;</mo></mover></mrow><mo 
class="MathClass-close">&#x232A;</mo></mrow></mrow><mo 
class="MathClass-close">)</mo></mrow>                </mtd><mtd 
class="eqnarray-4"> <mtext class="eqnarray">(2.19)</mtext><mtext 
   id="x1-25002r2.19"  class="label" ></mtext><mtext 
class="endlabel"></mtext></mtd>
</mtr><mtr><mtd 
class="eqnarray-1">      </mtd><mtd 
class="eqnarray-2">        </mtd><mtd 
class="eqnarray-3">   <mo 
class="MathClass-bin">&#x00D7;</mo><mfrac><mrow 
><mn>1</mn></mrow>
<mrow 
><mi 
>n</mi></mrow></mfrac><msubsup><mrow 
> <mo 
class="MathClass-op">&#x2211;</mo>
   </mrow><mrow 
><mi 
>j</mi><mo 
class="MathClass-rel">=</mo><mn>1</mn></mrow><mrow 
><mi 
>n</mi></mrow></msubsup 
><mo 
> exp</mo><!--nolimits--><mrow><mo 
class="MathClass-open">(</mo><mrow><mstyle mathvariant="normal"><mi 
>i</mi></mstyle><msub><mrow 
> <mo 
class="MathClass-op">&#x2211;</mo>
   </mrow><mrow 
><mi 
>k</mi><mo 
class="MathClass-rel">&#x2208;</mo><mi 
>B</mi></mrow></msub 
><mrow><mo 
class="MathClass-open">&#x2329;</mo><mrow><msup><mrow 
><mi 
>t</mi></mrow><mrow 
><mrow><mo 
class="MathClass-open">(</mo><mrow><mi 
>k</mi></mrow><mo 
class="MathClass-close">)</mo></mrow></mrow></msup 
><mo 
class="MathClass-punc">,</mo><msup><mrow 
><mi 
>S</mi></mrow><mrow 
><mo 
class="MathClass-bin">&#x2212;</mo><mfrac><mrow 
><mn>1</mn></mrow>
<mrow 
><mn>2</mn></mrow></mfrac> </mrow></msup 
><msubsup><mrow 
><mi 
>&#x03B5;</mi></mrow><mrow 
><mi 
>j</mi></mrow><mrow 
><mrow><mo 
class="MathClass-open">(</mo><mrow><mi 
>k</mi></mrow><mo 
class="MathClass-close">)</mo></mrow></mrow></msubsup 
></mrow><mo 
class="MathClass-close">&#x232A;</mo></mrow></mrow><mo 
class="MathClass-close">)</mo></mrow><msub><mrow 
> <mo 
class="MathClass-op">&#x220F;</mo>
  </mrow><mrow 
><mi 
>i</mi><mo 
class="MathClass-rel">&#x2208;</mo><mi 
>A</mi><mo 
class="MathClass-bin">&#x2216;</mo><mi 
>B</mi></mrow></msub 
><mi 
>&#x03C6;</mi><mrow><mo 
class="MathClass-open">(</mo><mrow><msup><mrow 
><mi 
>t</mi></mrow><mrow 
><mrow><mo 
class="MathClass-open">(</mo><mrow><mi 
>i</mi></mrow><mo 
class="MathClass-close">)</mo></mrow></mrow></msup 
></mrow><mo 
class="MathClass-close">)</mo></mrow><msup><mrow 
><mo 
class="MathClass-rel">&#x2223;</mo></mrow><mrow 
><mn>2</mn></mrow></msup 
><msub><mrow 
><mi 
>&#x03D5;</mi></mrow><mrow 
>
<mi 
>b</mi></mrow></msub 
><mrow><mo 
class="MathClass-open">(</mo><mrow><mi 
>t</mi></mrow><mo 
class="MathClass-close">)</mo></mrow><mi 
>d</mi><mi 
>t</mi></mtd><mtd 
class="eqnarray-4"> <mtext class="eqnarray">(2.20)</mtext><mtext 
   id="x1-25002r2.20"  class="label" ></mtext><mtext 
class="endlabel"></mtext></mtd>
</mtr><mtr><mtd 
class="eqnarray-1">      </mtd><mtd 
class="eqnarray-2">   <mover 
class="stackrel"><mrow 
><mo 
class="MathClass-rel">&#x2192;</mo></mrow><mrow 
><mo 
class="MathClass-op">as</mo></mrow></mover></mtd><mtd 
class="eqnarray-3">   <mo 
class="MathClass-op">&#x222B;</mo>
                   <mo 
class="MathClass-rel">&#x2223;</mo><msub><mrow 
><mo 
class="MathClass-op">&#x2211;</mo>
   </mrow><mrow 
><mi 
>B</mi><mo 
class="MathClass-rel">&#x2282;</mo><mi 
>A</mi></mrow></msub 
><msup><mrow 
><mrow><mo 
class="MathClass-open">(</mo><mrow><mo 
class="MathClass-bin">&#x2212;</mo><mn>1</mn></mrow><mo 
class="MathClass-close">)</mo></mrow></mrow><mrow 
><mo 
class="MathClass-rel">&#x2223;</mo><mi 
>A</mi><mo 
class="MathClass-bin">&#x2216;</mo><mi 
>B</mi><mo 
class="MathClass-rel">&#x2223;</mo></mrow></msup 
><mo 
> exp</mo><!--nolimits--><mrow><mo 
class="MathClass-open">(</mo><mrow><mo 
class="MathClass-bin">&#x2212;</mo><mstyle mathvariant="normal"><mi 
>i</mi></mstyle><msub><mrow 
> <mo 
class="MathClass-op">&#x2211;</mo>
   </mrow><mrow 
><mi 
>k</mi><mo 
class="MathClass-rel">&#x2208;</mo><mi 
>B</mi></mrow></msub 
><mrow><mo 
class="MathClass-open">&#x2329;</mo><mrow><msup><mrow 
><mi 
>t</mi></mrow><mrow 
><mrow><mo 
class="MathClass-open">(</mo><mrow><mi 
>k</mi></mrow><mo 
class="MathClass-close">)</mo></mrow></mrow></msup 
><mo 
class="MathClass-punc">,</mo><msup><mrow 
><mi 
>&#x03A3;</mi></mrow><mrow 
><mo 
class="MathClass-bin">&#x2212;</mo><mfrac><mrow 
><mn>1</mn></mrow>
<mrow 
><mn>2</mn></mrow></mfrac> </mrow></msup 
><mi 
>&#x03BC;</mi></mrow><mo 
class="MathClass-close">&#x232A;</mo></mrow></mrow><mo 
class="MathClass-close">)</mo></mrow>               </mtd><mtd 
class="eqnarray-4"> <mtext class="eqnarray">(2.21)</mtext><mtext 
   id="x1-25002r2.21"  class="label" ></mtext><mtext 
class="endlabel"></mtext></mtd>
</mtr><mtr><mtd 
class="eqnarray-1">      </mtd><mtd 
class="eqnarray-2">        </mtd><mtd 
class="eqnarray-3">   <mo 
class="MathClass-bin">&#x00D7;</mo><msub><mrow 
><mi 
>C</mi></mrow><mrow 
><mi 
>p</mi></mrow></msub 
><mrow><mo 
class="MathClass-open">(</mo><mrow><mrow><mo 
class="MathClass-open">(</mo><mrow><msub><mrow 
><mi 
>I</mi></mrow><mrow 
><mi 
>p</mi></mrow></msub 
> <mo 
class="MathClass-bin">&#x2297;</mo><msup><mrow 
> <mi 
>&#x03A3;</mi></mrow><mrow 
><mo 
class="MathClass-bin">&#x2212;</mo><mfrac><mrow 
><mn>1</mn></mrow>
<mrow 
><mn>2</mn></mrow></mfrac> </mrow></msup 
></mrow><mo 
class="MathClass-close">)</mo></mrow><msup><mrow 
><mi 
>t</mi></mrow><mrow 
><mi 
>B</mi></mrow></msup 
></mrow><mo 
class="MathClass-close">)</mo></mrow><msub><mrow 
> <mo 
class="MathClass-op">&#x220F;</mo>
  </mrow><mrow 
><mi 
>i</mi><mo 
class="MathClass-rel">&#x2208;</mo><mi 
>A</mi><mo 
class="MathClass-bin">&#x2216;</mo><mi 
>B</mi></mrow></msub 
><mi 
>&#x03C6;</mi><mrow><mo 
class="MathClass-open">(</mo><mrow><msup><mrow 
><mi 
>t</mi></mrow><mrow 
><mrow><mo 
class="MathClass-open">(</mo><mrow><mi 
>i</mi></mrow><mo 
class="MathClass-close">)</mo></mrow></mrow></msup 
></mrow><mo 
class="MathClass-close">)</mo></mrow><msup><mrow 
><mo 
class="MathClass-rel">&#x2223;</mo></mrow><mrow 
><mn>2</mn></mrow></msup 
><msub><mrow 
><mi 
>&#x03D5;</mi></mrow><mrow 
>
<mi 
>b</mi></mrow></msub 
><mrow><mo 
class="MathClass-open">(</mo><mrow><mi 
>t</mi></mrow><mo 
class="MathClass-close">)</mo></mrow><mi 
>d</mi><mi 
>t</mi>                    </mtd><mtd 
class="eqnarray-4"> <mtext class="eqnarray">(2.22)</mtext><mtext 
   id="x1-25002r2.22"  class="label" ></mtext><mtext 
class="endlabel"></mtext></mtd></mtr></mtable>
</math>
<!--l. 483--><p class="nopar">
which equals <!--l. 484--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mn>0</mn></math>
for all <!--l. 484--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mi 
>A</mi></math>,
<!--l. 484--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mo 
class="MathClass-rel">&#x2223;</mo><mi 
>A</mi><mo 
class="MathClass-rel">&#x2223;</mo> <mo 
class="MathClass-rel">&#x003E;</mo> <mn>1</mn></math>, if and only if
<!--l. 485--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><msup><mrow 
><mi 
>&#x03B5;</mi></mrow><mrow 
><mrow><mo 
class="MathClass-open">(</mo><mrow><mn>1</mn></mrow><mo 
class="MathClass-close">)</mo></mrow></mrow></msup 
><mo 
class="MathClass-punc">,</mo><mo 
class="MathClass-op">&#x2026;</mo><mo 
class="MathClass-punc">,</mo><msup><mrow 
><mi 
>&#x03B5;</mi></mrow><mrow 
><mrow><mo 
class="MathClass-open">(</mo><mrow><mi 
>p</mi></mrow><mo 
class="MathClass-close">)</mo></mrow></mrow></msup 
></math> are independent
<!--l. 486--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><msub><mrow 
><mi 
>N</mi></mrow><mrow 
><mi 
>q</mi></mrow></msub 
><mrow><mo 
class="MathClass-open">(</mo><mrow><mi 
>&#x03BC;</mi><mo 
class="MathClass-punc">,</mo><mi 
>&#x03A3;</mi></mrow><mo 
class="MathClass-close">)</mo></mrow></math>. Therefore, if
<!--l. 487--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><msup><mrow 
><mi 
>&#x03B5;</mi></mrow><mrow 
><mrow><mo 
class="MathClass-open">(</mo><mrow><mn>1</mn></mrow><mo 
class="MathClass-close">)</mo></mrow></mrow></msup 
><mo 
class="MathClass-punc">,</mo><mo 
class="MathClass-op">&#x2026;</mo><mo 
class="MathClass-punc">,</mo><msup><mrow 
><mi 
>&#x03B5;</mi></mrow><mrow 
><mrow><mo 
class="MathClass-open">(</mo><mrow><mi 
>p</mi></mrow><mo 
class="MathClass-close">)</mo></mrow></mrow></msup 
></math> are dependent
<!--l. 488--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><msub><mrow 
><mi 
>N</mi></mrow><mrow 
><mi 
>q</mi></mrow></msub 
><mrow><mo 
class="MathClass-open">(</mo><mrow><mi 
>&#x03BC;</mi><mo 
class="MathClass-punc">,</mo><mi 
>&#x03A3;</mi></mrow><mo 
class="MathClass-close">)</mo></mrow></math> then, there
exists an <!--l. 488--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mi 
>A</mi></math> such
that <!--l. 489--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mi 
>n</mi><msub><mrow 
><mi 
>T</mi></mrow><mrow 
><mi 
>n</mi><mo 
class="MathClass-punc">,</mo><mi 
>b</mi><mo 
class="MathClass-punc">,</mo><mi 
>A</mi></mrow></msub 
> <mo 
class="MathClass-rel">&#x2192;</mo><mi 
>&#x221E;</mi></math> which
suffices to have <!--l. 489--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><msub><mrow 
><mi 
>S</mi></mrow><mrow 
><mi 
>n</mi></mrow></msub 
> <mo 
class="MathClass-rel">&#x2192;</mo><mi 
>&#x221E;</mi></math>
and <!--l. 490--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><msub><mrow 
><mi 
>M</mi></mrow><mrow 
><mi 
>n</mi></mrow></msub 
> <mo 
class="MathClass-rel">&#x2192;</mo><mi 
>&#x221E;</mi></math>.
</p>
   <h3 class="sectionHead"><span class="titlemark">3. </span> <a 
  name="x1-260003"></a>Testing independence&#x00A0;: the serial situation</h3>
   <h4 class="subsectionHead"><span class="titlemark">3.1. </span> <a 
  name="x1-270003.1"></a>The case of known parameters</h4> Let
<!--l. 495--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><msub><mrow 
><mi 
>u</mi></mrow><mrow 
><mn>1</mn></mrow></msub 
><mo 
class="MathClass-punc">,</mo><msub><mrow 
><mi 
>u</mi></mrow><mrow 
><mn>2</mn></mrow></msub 
><mo 
class="MathClass-punc">,</mo><mo 
class="MathClass-op">&#x2026;</mo></math> be a stationary sequence
of random vectors <!--l. 496--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><msub><mrow 
><mi 
>u</mi></mrow><mrow 
><mi 
>i</mi></mrow></msub 
></math>
distributed as <!--l. 497--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><msub><mrow 
><mi 
>N</mi></mrow><mrow 
><mi 
>q</mi></mrow></msub 
><mrow><mo 
class="MathClass-open">(</mo><mrow><mn>0</mn><mo 
class="MathClass-punc">,</mo><mi 
>I</mi></mrow><mo 
class="MathClass-close">)</mo></mrow></math>. It is desired
to verify whether the <!--l. 498--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><msub><mrow 
><mi 
>u</mi></mrow><mrow 
><mi 
>i</mi></mrow></msub 
></math>&#x2019;s
are independent. Introduce the partitioned random vectors
<!--l. 500--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><msub><mrow 
><mi 
>&#x03B5;</mi></mrow><mrow 
><mi 
>i</mi></mrow></msub 
> <mo 
class="MathClass-rel">=</mo> <mrow><mo 
class="MathClass-open">(</mo><mrow><msub><mrow 
><mi 
>u</mi></mrow><mrow 
><mi 
>i</mi></mrow></msub 
><mo 
class="MathClass-punc">,</mo><mo 
class="MathClass-op">&#x2026;</mo><mo 
class="MathClass-punc">,</mo><msub><mrow 
><mi 
>u</mi></mrow><mrow 
><mi 
>i</mi><mo 
class="MathClass-bin">+</mo><mi 
>p</mi><mo 
class="MathClass-bin">&#x2212;</mo><mn>1</mn></mrow></msub 
></mrow><mo 
class="MathClass-close">)</mo></mrow> <mo 
class="MathClass-rel">&#x2208;</mo> <msup><mrow 
><mi mathvariant="double-struck">&#x211D;</mi></mrow><mrow 
><mi 
>p</mi><mi 
>q</mi></mrow></msup 
></math>,
<!--l. 501--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mi 
>i</mi> <mo 
class="MathClass-rel">=</mo> <mn>1</mn><mo 
class="MathClass-punc">,</mo><mo 
class="MathClass-op">&#x2026;</mo><mo 
class="MathClass-punc">,</mo><mi 
>n</mi> <mo 
class="MathClass-bin">&#x2212;</mo> <mi 
>p</mi> <mo 
class="MathClass-bin">+</mo> <mn>1</mn></math>. Also, let
<!--l. 501--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><msub><mrow 
><mi 
>R</mi></mrow><mrow 
><mi 
>n</mi><mo 
class="MathClass-punc">,</mo><mi 
>A</mi></mrow></msub 
><mrow><mo 
class="MathClass-open">(</mo><mrow><mi 
>t</mi></mrow><mo 
class="MathClass-close">)</mo></mrow></math> be as in (<a 
href="#x1-22002r1">2.1<!--tex4ht:ref: Rnat --></a>) with the
slight modification <!--l. 503--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><msub><mrow 
><mi 
>&#x03C6;</mi></mrow><mrow 
><mi 
>n</mi><mo 
class="MathClass-punc">,</mo><mi 
>p</mi></mrow></msub 
><mrow><mo 
class="MathClass-open">(</mo><mrow><mi 
>t</mi></mrow><mo 
class="MathClass-close">)</mo></mrow> <mo 
class="MathClass-rel">=</mo> <mfrac><mrow 
><mn>1</mn></mrow> 
<mrow 
><mi 
>n</mi></mrow></mfrac><msubsup><mrow 
> <mo 
class="MathClass-op">&#x2211;</mo>
   </mrow><mrow 
><mi 
>j</mi><mo 
class="MathClass-rel">=</mo><mn>1</mn></mrow><mrow 
><mi 
>n</mi><mo 
class="MathClass-bin">&#x2212;</mo><mi 
>p</mi><mo 
class="MathClass-bin">+</mo><mn>1</mn></mrow></msubsup 
><mo 
> exp</mo><!--nolimits--><mrow><mo 
class="MathClass-open">(</mo><mrow><mstyle mathvariant="normal"><mi 
>i</mi></mstyle><mrow><mo 
class="MathClass-open">&#x2329;</mo><mrow><mi 
>t</mi><mo 
class="MathClass-punc">,</mo><msub><mrow 
><mi 
>&#x03B5;</mi></mrow><mrow 
>
<mi 
>j</mi></mrow></msub 
></mrow><mo 
class="MathClass-close">&#x232A;</mo></mrow></mrow><mo 
class="MathClass-close">)</mo></mrow></math>.
The main result related to the asymptotic distribution is that the
<!--l. 505--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mi 
>m</mi></math>-dependence introduced by

the overlapping of the <!--l. 506--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><msub><mrow 
><mi 
>u</mi></mrow><mrow 
><mi 
>i</mi></mrow></msub 
></math>&#x2019;s
does not affect the asymptotic distribution. It is the same as in the non-serial
case.
   <div class="newtheorem">
<!--l. 510--><p class="noindent"><span class="head">
<a 
  name="x1-27001r1"></a>
<span 
class="ecbx-1200">Theorem 3.1.</span></span>
   <span 
class="ecti-1200">If the </span><!--l. 511--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><msub><mrow 
><mi 
>u</mi></mrow><mrow 
><mi 
>i</mi></mrow></msub 
></math><span 
class="ecti-1200">&#x2019;s</span>
<span 
class="ecti-1200">are independent, the collection of processes </span><!--l. 512--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mrow><mo 
class="MathClass-open">{</mo><mrow><msub><mrow 
><mi 
>R</mi></mrow><mrow 
><mi 
>n</mi><mo 
class="MathClass-punc">,</mo><mi 
>A</mi></mrow></msub 
> <mo 
class="MathClass-punc">:</mo> <mo 
class="MathClass-rel">&#x2223;</mo><mi 
>A</mi><mo 
class="MathClass-rel">&#x2223;</mo> <mo 
class="MathClass-rel">&#x003E;</mo> <mn>1</mn></mrow><mo 
class="MathClass-close">}</mo></mrow></math>
<span 
class="ecti-1200">converge in </span><!--l. 512--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mi 
>C</mi><mrow><mo 
class="MathClass-open">(</mo><mrow><msup><mrow 
><mi mathvariant="double-struck">&#x211D;</mi></mrow><mrow 
><mi 
>p</mi><mi 
>q</mi></mrow></msup 
><mo 
class="MathClass-punc">,</mo> <mi mathvariant="double-struck">&#x2102;</mi></mrow><mo 
class="MathClass-close">)</mo></mrow></math>
<span 
class="ecti-1200">to independent zero mean complex Gaussian processes </span><!--l. 513--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mrow><mo 
class="MathClass-open">{</mo><mrow><msub><mrow 
><mi 
>R</mi></mrow><mrow 
><mi 
>A</mi></mrow></msub 
> <mo 
class="MathClass-punc">:</mo> <mo 
class="MathClass-rel">&#x2223;</mo><mi 
>A</mi><mo 
class="MathClass-rel">&#x2223;</mo> <mo 
class="MathClass-rel">&#x003E;</mo> <mn>1</mn></mrow><mo 
class="MathClass-close">}</mo></mrow></math>
<span 
class="ecti-1200">having covariance and pseudo-covariance functions respectively given by </span><!--l. 516--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><msub><mrow 
><mi 
>C</mi></mrow><mrow 
><mi 
>A</mi></mrow></msub 
><mrow><mo 
class="MathClass-open">(</mo><mrow><mi 
>s</mi><mo 
class="MathClass-punc">,</mo><mi 
>t</mi></mrow><mo 
class="MathClass-close">)</mo></mrow></math>
<span 
class="ecti-1200">and </span><!--l. 517--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><msub><mrow 
><mover accent="false" 
class="mml-overline"><mrow><mi 
>C</mi></mrow><mo 
accent="true">&#x00AF;</mo></mover></mrow><mrow 
><mi 
>A</mi></mrow></msub 
><mrow><mo 
class="MathClass-open">(</mo><mrow><mi 
>s</mi><mo 
class="MathClass-punc">,</mo><mi 
>t</mi></mrow><mo 
class="MathClass-close">)</mo></mrow></math>
<span 
class="ecti-1200">in (</span><a 
href="#x1-22009r3"><span 
class="ecti-1200">2.3</span><!--tex4ht:ref: covariance --></a><span 
class="ecti-1200">) and (</span><a 
href="#x1-22010r4"><span 
class="ecti-1200">2.4</span><!--tex4ht:ref: pseudocovariance --></a><span 
class="ecti-1200">).</span>
</p>
   </div>
<!--l. 522--><p class="indent">   As in (<a 
href="#x1-22012r5">2.5<!--tex4ht:ref: RnArepresentation --></a>), the multinomial formula (Ghoudi et al. (2001)(<a 
  name="dx1-27002"></a><a 
href="#X2001Ghoud191bilo">18</a>)) yields </p><table class="equation"><tr><td>
<a 
  name="x1-27003r1"></a>
<!--l. 524--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="display">
         <msub><mrow 
><mi 
>R</mi></mrow><mrow 
><mi 
>n</mi><mo 
class="MathClass-punc">,</mo><mi 
>A</mi></mrow></msub 
><mrow><mo 
class="MathClass-open">(</mo><mrow><mi 
>t</mi></mrow><mo 
class="MathClass-close">)</mo></mrow> <mo 
class="MathClass-rel">=</mo>   <mfrac><mrow 
><mn>1</mn></mrow> 
<mrow 
><msqrt><mrow><mi 
>n</mi></mrow></msqrt></mrow></mfrac><msubsup><mrow 
> <mo 
class="MathClass-op">&#x2211;</mo>
     </mrow><mrow 
><mi 
>j</mi><mo 
class="MathClass-rel">=</mo><mn>1</mn></mrow><mrow 
><mi 
>n</mi><mo 
class="MathClass-bin">&#x2212;</mo><mi 
>p</mi><mo 
class="MathClass-bin">+</mo><mn>1</mn></mrow></msubsup 
><msub><mrow 
> <mo 
class="MathClass-op">&#x220F;</mo>
  </mrow><mrow 
><mi 
>k</mi><mo 
class="MathClass-rel">&#x2208;</mo><mi 
>A</mi></mrow></msub 
><mrow><mo 
class="MathClass-open">[</mo><mrow><mo 
>exp</mo><!--nolimits--><mrow><mo 
class="MathClass-open">(</mo><mrow><mstyle mathvariant="normal"><mi 
>i</mi></mstyle><mrow><mo 
class="MathClass-open">&#x2329;</mo><mrow><msup><mrow 
><mi 
>t</mi></mrow><mrow 
><mrow><mo 
class="MathClass-open">(</mo><mrow><mi 
>k</mi></mrow><mo 
class="MathClass-close">)</mo></mrow></mrow></msup 
><mo 
class="MathClass-punc">,</mo><msubsup><mrow 
><mi 
>&#x03B5;</mi></mrow><mrow 
>
<mi 
>j</mi></mrow><mrow 
><mrow><mo 
class="MathClass-open">(</mo><mrow><mi 
>k</mi></mrow><mo 
class="MathClass-close">)</mo></mrow></mrow></msubsup 
></mrow><mo 
class="MathClass-close">&#x232A;</mo></mrow></mrow><mo 
class="MathClass-close">)</mo></mrow> <mo 
class="MathClass-bin">&#x2212;</mo> <mi 
>&#x03C6;</mi><mrow><mo 
class="MathClass-open">(</mo><mrow><msup><mrow 
><mi 
>t</mi></mrow><mrow 
><mrow><mo 
class="MathClass-open">(</mo><mrow><mi 
>k</mi></mrow><mo 
class="MathClass-close">)</mo></mrow></mrow></msup 
></mrow><mo 
class="MathClass-close">)</mo></mrow></mrow><mo 
class="MathClass-close">]</mo></mrow><mo 
class="MathClass-punc">.</mo>
</math>
<!--l. 527--><p class="nopar"></p></td><td class="eq-no">(3.1)</td></tr></table>
which is useful in the proof of Theorem <a 
href="#x1-27001r1">3.1<!--tex4ht:ref: serialconvknown --></a>.
   <h4 class="subsectionHead"><span class="titlemark">3.2. </span> <a 
  name="x1-280003.2"></a>The case of unknown parameters</h4> The context is the same as in the preceeding section but
here the <!--l. 531--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><msub><mrow 
><mi 
>u</mi></mrow><mrow 
><mi 
>i</mi></mrow></msub 
></math>&#x2019;s all have
the same <!--l. 531--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><msub><mrow 
><mi 
>N</mi></mrow><mrow 
><mi 
>q</mi></mrow></msub 
><mrow><mo 
class="MathClass-open">(</mo><mrow><mi 
>&#x03BC;</mi><mo 
class="MathClass-punc">,</mo><mi 
>&#x03A3;</mi></mrow><mo 
class="MathClass-close">)</mo></mrow></math> normal
distribution, where <!--l. 532--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mi 
>&#x03BC;</mi></math>
and <!--l. 532--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mi 
>&#x03A3;</mi></math>,
positive definite, are assumed unknown. Again, we want to test whether the
<!--l. 534--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><msub><mrow 
><mi 
>u</mi></mrow><mrow 
><mi 
>i</mi></mrow></msub 
></math>&#x2019;s
are independent. To this aim, define the random vectors
<!--l. 536--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><msub><mrow 
><mi 
>&#x03B5;</mi></mrow><mrow 
><mi 
>i</mi></mrow></msub 
> <mo 
class="MathClass-rel">=</mo> <mrow><mo 
class="MathClass-open">(</mo><mrow><msub><mrow 
><mi 
>u</mi></mrow><mrow 
><mi 
>i</mi></mrow></msub 
><mo 
class="MathClass-punc">,</mo><mo 
class="MathClass-op">&#x2026;</mo><mo 
class="MathClass-punc">,</mo><msub><mrow 
><mi 
>u</mi></mrow><mrow 
><mi 
>i</mi><mo 
class="MathClass-bin">+</mo><mi 
>p</mi><mo 
class="MathClass-bin">&#x2212;</mo><mn>1</mn></mrow></msub 
></mrow><mo 
class="MathClass-close">)</mo></mrow> <mo 
class="MathClass-rel">&#x2208;</mo> <msup><mrow 
><mi mathvariant="double-struck">&#x211D;</mi></mrow><mrow 
><mi 
>p</mi><mi 
>q</mi></mrow></msup 
></math> and

<!--l. 538--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><msub><mrow 
><mi 
>e</mi></mrow><mrow 
><mi 
>i</mi></mrow></msub 
> <mo 
class="MathClass-rel">=</mo> <mrow><mo 
class="MathClass-open">(</mo><mrow><msub><mrow 
><mover 
accent="true"><mrow 
><mi 
>u</mi></mrow><mo 
class="MathClass-op">&#x0302;</mo></mover></mrow><mrow 
><mi 
>i</mi></mrow></msub 
><mo 
class="MathClass-punc">,</mo><mo 
class="MathClass-op">&#x2026;</mo><mo 
class="MathClass-punc">,</mo><msub><mrow 
><mover 
accent="true"><mrow 
><mi 
>u</mi></mrow><mo 
class="MathClass-op">&#x0302;</mo></mover></mrow><mrow 
><mi 
>i</mi><mo 
class="MathClass-bin">+</mo><mi 
>p</mi><mo 
class="MathClass-bin">&#x2212;</mo><mn>1</mn></mrow></msub 
></mrow><mo 
class="MathClass-close">)</mo></mrow> <mo 
class="MathClass-rel">&#x2208;</mo> <msup><mrow 
><mi mathvariant="double-struck">&#x211D;</mi></mrow><mrow 
><mi 
>p</mi><mi 
>q</mi></mrow></msup 
></math>,
<!--l. 539--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mi 
>i</mi> <mo 
class="MathClass-rel">=</mo> <mn>1</mn><mo 
class="MathClass-punc">,</mo><mo 
class="MathClass-op">&#x2026;</mo><mo 
class="MathClass-punc">,</mo><mi 
>n</mi> <mo 
class="MathClass-bin">&#x2212;</mo> <mi 
>p</mi> <mo 
class="MathClass-bin">+</mo> <mn>1</mn></math>. Also, define the standardized
residuals <!--l. 540--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><msub><mrow 
><mover 
accent="true"><mrow 
><mi 
>u</mi></mrow><mo 
class="MathClass-op">&#x0302;</mo></mover></mrow><mrow 
><mi 
>i</mi></mrow></msub 
> <mo 
class="MathClass-rel">=</mo><msup><mrow 
> <mi 
>S</mi></mrow><mrow 
><mo 
class="MathClass-bin">&#x2212;</mo><mfrac><mrow 
><mn>1</mn></mrow>
<mrow 
><mn>2</mn></mrow></mfrac> </mrow></msup 
><mrow><mo 
class="MathClass-open">(</mo><mrow><msub><mrow 
><mi 
>u</mi></mrow><mrow 
><mi 
>i</mi></mrow></msub 
> <mo 
class="MathClass-bin">&#x2212;</mo><mover accent="false" 
class="mml-overline"><mrow><mi 
>u</mi></mrow><mo 
accent="true">&#x00AF;</mo></mover></mrow><mo 
class="MathClass-close">)</mo></mrow></math> with the sample
covariance matrix <!--l. 542--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mi 
>S</mi> <mo 
class="MathClass-rel">=</mo> <mfrac><mrow 
><mn>1</mn></mrow> 
<mrow 
><mi 
>n</mi></mrow></mfrac><msubsup><mrow 
> <mo 
class="MathClass-op">&#x2211;</mo>
   </mrow><mrow 
><mi 
>j</mi><mo 
class="MathClass-rel">=</mo><mn>1</mn></mrow><mrow 
><mi 
>n</mi></mrow></msubsup 
><mrow><mo 
class="MathClass-open">(</mo><mrow><msub><mrow 
><mi 
>u</mi></mrow><mrow 
>
<mi 
>j</mi></mrow></msub 
> <mo 
class="MathClass-bin">&#x2212;</mo><mover accent="false" 
class="mml-overline"><mrow><mi 
>u</mi></mrow><mo 
accent="true">&#x00AF;</mo></mover></mrow><mo 
class="MathClass-close">)</mo></mrow><mrow><mo 
class="MathClass-open">(</mo><mrow><msub><mrow 
><mi 
>u</mi></mrow><mrow 
><mi 
>j</mi></mrow></msub 
> <mo 
class="MathClass-bin">&#x2212;</mo><mover accent="false" 
class="mml-overline"><mrow><mi 
>u</mi></mrow><mo 
accent="true">&#x00AF;</mo></mover></mrow><mo 
class="MathClass-close">)</mo></mrow><!--mstyle 
class="text"--><mtext >T</mtext><!--/mstyle--></math>
and the sample mean <!--l. 544--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mover accent="false" 
class="mml-overline"><mrow><mi 
>u</mi></mrow><mo 
accent="true">&#x00AF;</mo></mover> <mo 
class="MathClass-rel">=</mo> <mfrac><mrow 
><mn>1</mn></mrow> 
<mrow 
><mi 
>n</mi></mrow></mfrac><msubsup><mrow 
> <mo 
class="MathClass-op">&#x2211;</mo>
   </mrow><mrow 
><mi 
>j</mi><mo 
class="MathClass-rel">=</mo><mn>1</mn></mrow><mrow 
><mi 
>n</mi></mrow></msubsup 
><msub><mrow 
><mi 
>u</mi></mrow><mrow 
>
<mi 
>j</mi></mrow></msub 
></math>.
Now, let <table class="equation"><tr><td> <a 
  name="x1-28001r2"></a>
<!--l. 545--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="display"><msub><mrow 
>
            <mover 
accent="true"><mrow 
><mi 
>R</mi></mrow><mo 
class="MathClass-op">&#x0302;</mo></mover></mrow><mrow 
><mi 
>n</mi><mo 
class="MathClass-punc">,</mo><mi 
>A</mi></mrow></msub 
><mrow><mo 
class="MathClass-open">(</mo><mrow><mi 
>t</mi></mrow><mo 
class="MathClass-close">)</mo></mrow> <mo 
class="MathClass-rel">=</mo> <msqrt><mrow><mi 
>n</mi></mrow></msqrt><msub><mrow 
><mo 
class="MathClass-op">&#x2211;</mo>
     </mrow><mrow 
><mi 
>B</mi><mo 
class="MathClass-rel">&#x2282;</mo><mi 
>A</mi></mrow></msub 
><msup><mrow 
><mrow><mo 
class="MathClass-open">(</mo><mrow><mo 
class="MathClass-bin">&#x2212;</mo><mn>1</mn></mrow><mo 
class="MathClass-close">)</mo></mrow></mrow><mrow 
><mo 
class="MathClass-rel">&#x2223;</mo><mi 
>A</mi><mo 
class="MathClass-bin">&#x2216;</mo><mi 
>B</mi><mo 
class="MathClass-rel">&#x2223;</mo></mrow></msup 
><msub><mrow 
><mover 
accent="true"><mrow 
><mi 
>&#x03C6;</mi></mrow><mo 
class="MathClass-op">&#x0302;</mo></mover></mrow><mrow 
>
<mi 
>n</mi><mo 
class="MathClass-punc">,</mo><mi 
>p</mi></mrow></msub 
><mrow><mo 
class="MathClass-open">(</mo><mrow><msup><mrow 
><mi 
>t</mi></mrow><mrow 
><mi 
>B</mi></mrow></msup 
></mrow><mo 
class="MathClass-close">)</mo></mrow><msub><mrow 
> <mo 
class="MathClass-op">&#x220F;</mo>
  </mrow><mrow 
><mi 
>i</mi><mo 
class="MathClass-rel">&#x2208;</mo><mi 
>A</mi><mo 
class="MathClass-bin">&#x2216;</mo><mi 
>B</mi></mrow></msub 
><mi 
>&#x03C6;</mi><mrow><mo 
class="MathClass-open">(</mo><mrow><msup><mrow 
><mi 
>t</mi></mrow><mrow 
><mrow><mo 
class="MathClass-open">(</mo><mrow><mi 
>i</mi></mrow><mo 
class="MathClass-close">)</mo></mrow></mrow></msup 
></mrow><mo 
class="MathClass-close">)</mo></mrow><mo 
class="MathClass-punc">,</mo>
</math>
<!--l. 549--><p class="nopar"></p></td><td class="eq-no">(3.2)</td></tr></table>
where <!--l. 551--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><msub><mrow 
><mover 
accent="true"><mrow 
><mi 
>&#x03C6;</mi></mrow><mo 
class="MathClass-op">&#x0302;</mo></mover></mrow><mrow 
><mi 
>n</mi><mo 
class="MathClass-punc">,</mo><mi 
>p</mi></mrow></msub 
><mrow><mo 
class="MathClass-open">(</mo><mrow><mi 
>t</mi></mrow><mo 
class="MathClass-close">)</mo></mrow> <mo 
class="MathClass-rel">=</mo> <mfrac><mrow 
><mn>1</mn></mrow> 
<mrow 
><mi 
>n</mi></mrow></mfrac><msubsup><mrow 
> <mo 
class="MathClass-op">&#x2211;</mo>
   </mrow><mrow 
><mi 
>j</mi><mo 
class="MathClass-rel">=</mo><mn>1</mn></mrow><mrow 
><mi 
>n</mi><mo 
class="MathClass-bin">&#x2212;</mo><mi 
>p</mi><mo 
class="MathClass-bin">+</mo><mn>1</mn></mrow></msubsup 
><mo 
> exp</mo><!--nolimits--><mrow><mo 
class="MathClass-open">(</mo><mrow><mstyle mathvariant="normal"><mi 
>i</mi></mstyle><mrow><mo 
class="MathClass-open">&#x2329;</mo><mrow><mi 
>t</mi><mo 
class="MathClass-punc">,</mo><msub><mrow 
><mi 
>e</mi></mrow><mrow 
>
<mi 
>j</mi></mrow></msub 
></mrow><mo 
class="MathClass-close">&#x232A;</mo></mrow></mrow><mo 
class="MathClass-close">)</mo></mrow></math>.
The asymptotic behaviour of these processes is stated next. The main conclusion is
that the estimation of the unknown parameters does not affect the asymptotic
distribution.
   <div class="newtheorem">
<!--l. 557--><p class="noindent"><span class="head">
<a 
  name="x1-28002r2"></a>
<span 
class="ecbx-1200">Theorem 3.2.</span></span>
   <span 
class="ecti-1200">If the </span><!--l. 558--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><msub><mrow 
><mi 
>u</mi></mrow><mrow 
><mi 
>i</mi></mrow></msub 
></math><span 
class="ecti-1200">&#x2019;s</span>
<span 
class="ecti-1200">are independent, the processes </span><!--l. 559--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mrow><mo 
class="MathClass-open">{</mo><mrow><msub><mrow 
><mover 
accent="true"><mrow 
><mi 
>R</mi></mrow><mo 
class="MathClass-op">&#x0302;</mo></mover></mrow><mrow 
><mi 
>n</mi><mo 
class="MathClass-punc">,</mo><mi 
>A</mi></mrow></msub 
> <mo 
class="MathClass-punc">:</mo> <mo 
class="MathClass-rel">&#x2223;</mo><mi 
>A</mi><mo 
class="MathClass-rel">&#x2223;</mo> <mo 
class="MathClass-rel">&#x003E;</mo> <mn>1</mn></mrow><mo 
class="MathClass-close">}</mo></mrow></math>
<span 
class="ecti-1200">converge in </span><!--l. 560--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mi 
>C</mi><mrow><mo 
class="MathClass-open">(</mo><mrow><msup><mrow 
><mi mathvariant="double-struck">&#x211D;</mi></mrow><mrow 
><mi 
>p</mi><mi 
>q</mi></mrow></msup 
><mo 
class="MathClass-punc">,</mo> <mi mathvariant="double-struck">&#x2102;</mi></mrow><mo 
class="MathClass-close">)</mo></mrow></math>
<span 
class="ecti-1200">to independent zero mean complex Gaussian processes </span><!--l. 561--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mrow><mo 
class="MathClass-open">{</mo><mrow><msub><mrow 
><mi 
>R</mi></mrow><mrow 
><mi 
>A</mi></mrow></msub 
> <mo 
class="MathClass-punc">:</mo> <mo 
class="MathClass-rel">&#x2223;</mo><mi 
>A</mi><mo 
class="MathClass-rel">&#x2223;</mo> <mo 
class="MathClass-rel">&#x003E;</mo> <mn>1</mn></mrow><mo 
class="MathClass-close">}</mo></mrow></math>
<span 
class="ecti-1200">having covariance and pseudo-covariance functions respectively given by </span><!--l. 564--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><msub><mrow 
><mi 
>C</mi></mrow><mrow 
><mi 
>A</mi></mrow></msub 
><mrow><mo 
class="MathClass-open">(</mo><mrow><mi 
>s</mi><mo 
class="MathClass-punc">,</mo><mi 
>t</mi></mrow><mo 
class="MathClass-close">)</mo></mrow></math>
<span 
class="ecti-1200">and </span><!--l. 565--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><msub><mrow 
><mover accent="false" 
class="mml-overline"><mrow><mi 
>C</mi></mrow><mo 
accent="true">&#x00AF;</mo></mover></mrow><mrow 
><mi 
>A</mi></mrow></msub 
><mrow><mo 
class="MathClass-open">(</mo><mrow><mi 
>s</mi><mo 
class="MathClass-punc">,</mo><mi 
>t</mi></mrow><mo 
class="MathClass-close">)</mo></mrow></math>
<span 
class="ecti-1200">in (</span><a 
href="#x1-22009r3"><span 
class="ecti-1200">2.3</span><!--tex4ht:ref: covariance --></a><span 
class="ecti-1200">) and (</span><a 
href="#x1-22010r4"><span 
class="ecti-1200">2.4</span><!--tex4ht:ref: pseudocovariance --></a><span 
class="ecti-1200">).</span>
</p>
   </div>
<!--l. 570--><p class="indent">   Note that the multinomial formula yields </p><table class="equation"><tr><td> <a 
  name="x1-28003r3"></a>

<!--l. 571--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="display"><msub><mrow 
>
         <mover 
accent="true"><mrow 
><mi 
>R</mi></mrow><mo 
class="MathClass-op">&#x0302;</mo></mover></mrow><mrow 
><mi 
>n</mi><mo 
class="MathClass-punc">,</mo><mi 
>A</mi></mrow></msub 
><mrow><mo 
class="MathClass-open">(</mo><mrow><mi 
>t</mi></mrow><mo 
class="MathClass-close">)</mo></mrow> <mo 
class="MathClass-rel">=</mo>   <mfrac><mrow 
><mn>1</mn></mrow> 
<mrow 
><msqrt><mrow><mi 
>n</mi></mrow></msqrt></mrow></mfrac><msubsup><mrow 
> <mo 
class="MathClass-op">&#x2211;</mo>
     </mrow><mrow 
><mi 
>j</mi><mo 
class="MathClass-rel">=</mo><mn>1</mn></mrow><mrow 
><mi 
>n</mi><mo 
class="MathClass-bin">&#x2212;</mo><mi 
>p</mi><mo 
class="MathClass-bin">+</mo><mn>1</mn></mrow></msubsup 
><msub><mrow 
> <mo 
class="MathClass-op">&#x220F;</mo>
  </mrow><mrow 
><mi 
>k</mi><mo 
class="MathClass-rel">&#x2208;</mo><mi 
>A</mi></mrow></msub 
><mrow><mo 
class="MathClass-open">[</mo><mrow><mo 
>exp</mo><!--nolimits--><mrow><mo 
class="MathClass-open">(</mo><mrow><mstyle mathvariant="normal"><mi 
>i</mi></mstyle><mrow><mo 
class="MathClass-open">&#x2329;</mo><mrow><msup><mrow 
><mi 
>t</mi></mrow><mrow 
><mrow><mo 
class="MathClass-open">(</mo><mrow><mi 
>k</mi></mrow><mo 
class="MathClass-close">)</mo></mrow></mrow></msup 
><mo 
class="MathClass-punc">,</mo><msubsup><mrow 
><mi 
>e</mi></mrow><mrow 
>
<mi 
>j</mi></mrow><mrow 
><mrow><mo 
class="MathClass-open">(</mo><mrow><mi 
>k</mi></mrow><mo 
class="MathClass-close">)</mo></mrow></mrow></msubsup 
></mrow><mo 
class="MathClass-close">&#x232A;</mo></mrow></mrow><mo 
class="MathClass-close">)</mo></mrow> <mo 
class="MathClass-bin">&#x2212;</mo> <mi 
>&#x03C6;</mi><mrow><mo 
class="MathClass-open">(</mo><mrow><msup><mrow 
><mi 
>t</mi></mrow><mrow 
><mrow><mo 
class="MathClass-open">(</mo><mrow><mi 
>k</mi></mrow><mo 
class="MathClass-close">)</mo></mrow></mrow></msup 
></mrow><mo 
class="MathClass-close">)</mo></mrow></mrow><mo 
class="MathClass-close">]</mo></mrow>
</math>
<!--l. 575--><p class="nopar"></p></td><td class="eq-no">(3.3)</td></tr></table>
and so the Cram&#x00E9;r-von Mises test statistic
   <center class="math-display"><!--l. 577--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="display"><mrow 
>
                                 <msub><mrow 
><mi 
>T</mi></mrow><mrow 
><mi 
>n</mi><mo 
class="MathClass-punc">,</mo><mi 
>b</mi><mo 
class="MathClass-punc">,</mo><mi 
>A</mi></mrow></msub 
> <mo 
class="MathClass-rel">=</mo> <mfrac><mrow 
><mn>1</mn></mrow> 
<mrow 
><mi 
>n</mi></mrow></mfrac> <mo 
class="MathClass-op">&#x222B;</mo>
   <mo 
class="MathClass-rel">&#x2223;</mo><msub><mrow 
><mover 
accent="true"><mrow 
><mi 
>R</mi></mrow><mo 
class="MathClass-op">&#x0302;</mo></mover></mrow><mrow 
><mi 
>n</mi><mo 
class="MathClass-punc">,</mo><mi 
>A</mi></mrow></msub 
><mrow><mo 
class="MathClass-open">(</mo><mrow><mi 
>t</mi></mrow><mo 
class="MathClass-close">)</mo></mrow><msup><mrow 
><mo 
class="MathClass-rel">&#x2223;</mo></mrow><mrow 
><mn>2</mn></mrow></msup 
><msub><mrow 
><mi 
>&#x03D5;</mi></mrow><mrow 
>
<mi 
>b</mi></mrow></msub 
><mrow><mo 
class="MathClass-open">(</mo><mrow><mi 
>t</mi></mrow><mo 
class="MathClass-close">)</mo></mrow><mi 
>d</mi><mi 
>t</mi>
</mrow></math></center>
<!--l. 579--><p class="nopar">
can be computed as
</p><!--l. 581--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="display">
<mtable 
class="eqnarray" columnalign="right center left" >
<mtr><mtd 
class="eqnarray-1">  <mfrac><mrow 
><mn>1</mn></mrow>
<mrow 
><msup><mrow 
><mi 
>n</mi></mrow><mrow 
><mn>2</mn></mrow></msup 
></mrow></mfrac><msubsup><mrow 
> <mo 
class="MathClass-op">&#x2211;</mo>
       </mrow><mrow 
><mi 
>l</mi><mo 
class="MathClass-rel">=</mo><mn>1</mn></mrow><mrow 
><mi 
>n</mi><mo 
class="MathClass-bin">&#x2212;</mo><mi 
>p</mi><mo 
class="MathClass-bin">+</mo><mn>1</mn></mrow></msubsup 
><msubsup><mrow 
> <mo 
class="MathClass-op">&#x2211;</mo>
  </mrow><mrow 
><msup><mrow 
><mi 
>l</mi></mrow><mrow 
><mi 
>&#x2032;</mi></mrow></msup 
><mo 
class="MathClass-rel">=</mo><mn>1</mn></mrow><mrow 
><mi 
>n</mi><mo 
class="MathClass-bin">&#x2212;</mo><mi 
>p</mi><mo 
class="MathClass-bin">+</mo><mn>1</mn></mrow></msubsup 
><msub><mrow 
> <mo 
class="MathClass-op">&#x220F;</mo>
  </mrow><mrow 
><mi 
>k</mi><mo 
class="MathClass-rel">&#x2208;</mo><mi 
>A</mi></mrow></msub 
><mfenced separators="" 
open="{"  close="" ><mrow></mrow></mfenced></mtd><mtd 
class="eqnarray-2">   <mo 
>exp</mo><!--nolimits--></mtd><mtd 
class="eqnarray-3">   <mfenced separators="" 
open="["  close="]" ><mrow><mo 
class="MathClass-bin">&#x2212;</mo><mfrac><mrow 
><msup><mrow 
><mi 
>b</mi></mrow><mrow 
><mn>2</mn></mrow></msup 
></mrow>
 <mrow 
><mn>2</mn></mrow></mfrac> <mo 
class="MathClass-rel">&#x2225;</mo><msubsup><mrow 
><mi 
>e</mi></mrow><mrow 
><mi 
>l</mi></mrow><mrow 
><mrow><mo 
class="MathClass-open">(</mo><mrow><mi 
>k</mi></mrow><mo 
class="MathClass-close">)</mo></mrow></mrow></msubsup 
> <mo 
class="MathClass-bin">&#x2212;</mo><msubsup><mrow 
><mi 
>e</mi></mrow><mrow 
><msup><mrow 
>
<mi 
>l</mi></mrow><mrow 
><mi 
>&#x2032;</mi></mrow></msup 
></mrow><mrow 
><mrow><mo 
class="MathClass-open">(</mo><mrow><mi 
>k</mi></mrow><mo 
class="MathClass-close">)</mo></mrow></mrow></msubsup 
><msup><mrow 
><mo 
class="MathClass-rel">&#x2225;</mo></mrow><mrow 
><mn>2</mn></mrow></msup 
></mrow></mfenced>             </mtd><mtd 
class="eqnarray-4"> <mtext class="eqnarray">(3.4)</mtext><mtext 
   id="x1-28004r3.4"  class="label" ></mtext><mtext 
class="endlabel"></mtext></mtd>
</mtr><mtr><mtd 
class="eqnarray-1">                       <mo 
class="MathClass-bin">&#x2212;</mo><msup><mrow 
><mrow><mo 
class="MathClass-open">(</mo><mrow><msup><mrow 
><mi 
>b</mi></mrow><mrow 
><mn>2</mn></mrow></msup 
> <mo 
class="MathClass-bin">+</mo> <mn>1</mn></mrow><mo 
class="MathClass-close">)</mo></mrow></mrow><mrow 
><mo 
class="MathClass-bin">&#x2212;</mo><mfrac><mrow 
><mi 
>q</mi></mrow>
<mrow 
><mn>2</mn></mrow></mfrac> </mrow></msup 
></mtd><mtd 
class="eqnarray-2">   <mo 
>exp</mo><!--nolimits--></mtd><mtd 
class="eqnarray-3">   <mfenced separators="" 
open="["  close="]" ><mrow><mo 
class="MathClass-bin">&#x2212;</mo><mfrac><mrow 
><mn>1</mn></mrow>
<mrow 
><mn>2</mn></mrow></mfrac>   <mfrac><mrow 
><msup><mrow 
><mi 
>b</mi></mrow><mrow 
><mn>2</mn></mrow></msup 
></mrow> 
<mrow 
><msup><mrow 
><mi 
>b</mi></mrow><mrow 
><mn>2</mn></mrow></msup 
> <mo 
class="MathClass-bin">+</mo> <mn>1</mn></mrow></mfrac><mo 
class="MathClass-rel">&#x2225;</mo><msubsup><mrow 
><mi 
>e</mi></mrow><mrow 
><mi 
>l</mi></mrow><mrow 
><mrow><mo 
class="MathClass-open">(</mo><mrow><mi 
>k</mi></mrow><mo 
class="MathClass-close">)</mo></mrow></mrow></msubsup 
><msup><mrow 
><mo 
class="MathClass-rel">&#x2225;</mo></mrow><mrow 
><mn>2</mn></mrow></msup 
></mrow></mfenced>               </mtd><mtd 
class="eqnarray-4"> <mtext class="eqnarray">(3.5)</mtext><mtext 
   id="x1-28004r3.5"  class="label" ></mtext><mtext 
class="endlabel"></mtext></mtd>
</mtr><mtr><mtd 
class="eqnarray-1">                       <mo 
class="MathClass-bin">&#x2212;</mo><msup><mrow 
><mrow><mo 
class="MathClass-open">(</mo><mrow><msup><mrow 
><mi 
>b</mi></mrow><mrow 
><mn>2</mn></mrow></msup 
> <mo 
class="MathClass-bin">+</mo> <mn>1</mn></mrow><mo 
class="MathClass-close">)</mo></mrow></mrow><mrow 
><mo 
class="MathClass-bin">&#x2212;</mo><mfrac><mrow 
><mi 
>q</mi></mrow>
<mrow 
><mn>2</mn></mrow></mfrac> </mrow></msup 
></mtd><mtd 
class="eqnarray-2">   <mo 
>exp</mo><!--nolimits--></mtd><mtd 
class="eqnarray-3">   <mfenced separators="" 
open="["  close="]" ><mrow><mo 
class="MathClass-bin">&#x2212;</mo><mfrac><mrow 
><mn>1</mn></mrow>
<mrow 
><mn>2</mn></mrow></mfrac>   <mfrac><mrow 
><msup><mrow 
><mi 
>b</mi></mrow><mrow 
><mn>2</mn></mrow></msup 
></mrow> 
<mrow 
><msup><mrow 
><mi 
>b</mi></mrow><mrow 
><mn>2</mn></mrow></msup 
> <mo 
class="MathClass-bin">+</mo> <mn>1</mn></mrow></mfrac><mo 
class="MathClass-rel">&#x2225;</mo><msubsup><mrow 
><mi 
>e</mi></mrow><mrow 
><msup><mrow 
><mi 
>l</mi></mrow><mrow 
><mi 
>&#x2032;</mi></mrow></msup 
></mrow><mrow 
><mrow><mo 
class="MathClass-open">(</mo><mrow><mi 
>k</mi></mrow><mo 
class="MathClass-close">)</mo></mrow></mrow></msubsup 
><msup><mrow 
><mo 
class="MathClass-rel">&#x2225;</mo></mrow><mrow 
><mn>2</mn></mrow></msup 
></mrow></mfenced> <mo 
class="MathClass-bin">+</mo> <msup><mrow 
><mrow><mo 
class="MathClass-open">(</mo><mrow><mn>2</mn><msup><mrow 
><mi 
>b</mi></mrow><mrow 
><mn>2</mn></mrow></msup 
> <mo 
class="MathClass-bin">+</mo> <mn>1</mn></mrow><mo 
class="MathClass-close">)</mo></mrow></mrow><mrow 
><mo 
class="MathClass-bin">&#x2212;</mo><mfrac><mrow 
><mi 
>q</mi></mrow>
<mrow 
><mn>2</mn></mrow></mfrac> </mrow></msup 
><mfenced separators="" 
open="}"  close="" ><mrow></mrow></mfenced><mo 
class="MathClass-punc">.</mo></mtd><mtd 
class="eqnarray-4"> <mtext class="eqnarray">(3.6)</mtext><mtext 
   id="x1-28004r3.6"  class="label" ></mtext><mtext 
class="endlabel"></mtext></mtd>  </mtr></mtable>
</math>
<!--l. 589--><p class="nopar">
This representation shows that <!--l. 590--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><msub><mrow 
><mi 
>T</mi></mrow><mrow 
><mi 
>n</mi><mo 
class="MathClass-punc">,</mo><mi 
>b</mi><mo 
class="MathClass-punc">,</mo><mi 
>A</mi></mrow></msub 
></math>
is affine invariant. Here again we can use theorem <a 
href="#x1-23010r3">2.3<!--tex4ht:ref: thkeller --></a> to obtain
</p>

   <div class="newtheorem">
<!--l. 594--><p class="noindent"><span class="head">
<a 
  name="x1-28005r3"></a>
<span 
class="ecbx-1200">Theorem 3.3.</span></span>
</p>
   <table class="equation"><tr><td> <a 
  name="x1-28006r7"></a>
<!--l. 595--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="display">
         <mo 
class="MathClass-op">&#x222B;</mo>
            <mfenced separators="" 
open="("  close=")" ><mrow><mo 
class="MathClass-rel">&#x2223;</mo><msub><mrow 
><mover 
accent="true"><mrow 
><mi 
>R</mi></mrow><mo 
class="MathClass-op">&#x0302;</mo></mover></mrow><mrow 
><mi 
>n</mi><mo 
class="MathClass-punc">,</mo><mi 
>A</mi></mrow></msub 
><mrow><mo 
class="MathClass-open">(</mo><mrow><mi 
>t</mi></mrow><mo 
class="MathClass-close">)</mo></mrow><msup><mrow 
><mo 
class="MathClass-rel">&#x2223;</mo></mrow><mrow 
><mn>2</mn></mrow></msup 
><mo 
class="MathClass-punc">,</mo><mo 
class="MathClass-rel">&#x2223;</mo><msub><mrow 
><mover 
accent="true"><mrow 
><mi 
>R</mi></mrow><mo 
class="MathClass-op">&#x0302;</mo></mover></mrow><mrow 
>
<mi 
>n</mi><mo 
class="MathClass-punc">,</mo><mi 
>B</mi></mrow></msub 
><mrow><mo 
class="MathClass-open">(</mo><mrow><mi 
>t</mi></mrow><mo 
class="MathClass-close">)</mo></mrow><msup><mrow 
><mo 
class="MathClass-rel">&#x2223;</mo></mrow><mrow 
><mn>2</mn></mrow></msup 
></mrow></mfenced><msub><mrow 
><mi 
>&#x03D5;</mi></mrow><mrow 
>
<mi 
>b</mi></mrow></msub 
><mrow><mo 
class="MathClass-open">(</mo><mrow><mi 
>t</mi></mrow><mo 
class="MathClass-close">)</mo></mrow><mi 
>d</mi><mi 
>t</mi><mover><mrow 
><mo 
class="MathClass-rel">&#x2192;</mo></mrow><mrow 
><mi 
>D</mi></mrow></mover><mo 
class="MathClass-op">&#x222B;</mo>
  <mfenced separators="" 
open="("  close=")" ><mrow><mo 
class="MathClass-rel">&#x2223;</mo><msub><mrow 
><mi 
>R</mi></mrow><mrow 
><mi 
>A</mi></mrow></msub 
><mrow><mo 
class="MathClass-open">(</mo><mrow><mi 
>t</mi></mrow><mo 
class="MathClass-close">)</mo></mrow><msup><mrow 
><mo 
class="MathClass-rel">&#x2223;</mo></mrow><mrow 
><mn>2</mn></mrow></msup 
><mo 
class="MathClass-punc">,</mo><mo 
class="MathClass-rel">&#x2223;</mo><msub><mrow 
><mi 
>R</mi></mrow><mrow 
>
<mi 
>B</mi></mrow></msub 
><mrow><mo 
class="MathClass-open">(</mo><mrow><mi 
>t</mi></mrow><mo 
class="MathClass-close">)</mo></mrow><msup><mrow 
><mo 
class="MathClass-rel">&#x2223;</mo></mrow><mrow 
><mn>2</mn></mrow></msup 
></mrow></mfenced> <msub><mrow 
><mi 
>&#x03D5;</mi></mrow><mrow 
>
<mi 
>b</mi></mrow></msub 
><mrow><mo 
class="MathClass-open">(</mo><mrow><mi 
>t</mi></mrow><mo 
class="MathClass-close">)</mo></mrow><mi 
>d</mi><mi 
>t</mi><mo 
class="MathClass-punc">,</mo>
</math>
<!--l. 603--><p class="nopar"></p></td><td class="eq-no">(3.7)</td></tr></table>
<span 
class="ecti-1200">where integrals are computed componentwise.</span>
   </div>
<!--l. 608--><p class="indent">   In the serial situation, a subset <!--l. 608--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mi 
>A</mi></math>
and its translate <!--l. 608--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mi 
>A</mi> <mo 
class="MathClass-bin">+</mo> <mi 
>k</mi></math> essentially
lead to the same statistic <!--l. 609--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><msub><mrow 
><mi 
>T</mi></mrow><mrow 
><mi 
>n</mi><mo 
class="MathClass-punc">,</mo><mi 
>b</mi><mo 
class="MathClass-punc">,</mo><mi 
>A</mi></mrow></msub 
></math>.
Hence, when considering these statistics, only
<!--l. 610--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mi 
>A</mi></math>&#x2019;s such
that <!--l. 610--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mn>1</mn> <mo 
class="MathClass-rel">&#x2208;</mo> <mi 
>A</mi></math>
can be considered. The same statistics (<a 
href="#x1-23013r14">2.14<!--tex4ht:ref: statsum --></a>) or (<a 
href="#x1-23014r15">2.15<!--tex4ht:ref: statmax --></a>) can be used to perform the
statistical test&#x00A0;:
</p>
   <center class="math-display"><!--l. 613--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="display"><mrow 
>
                  <msub><mrow 
><mi 
>S</mi></mrow><mrow 
><mi 
>n</mi></mrow></msub 
> <mo 
class="MathClass-rel">=</mo> <mi 
>n</mi><msub><mrow 
><mo 
class="MathClass-op">&#x2211;</mo>
   </mrow><mrow 
><mo 
class="MathClass-rel">&#x2223;</mo><mi 
>A</mi><mo 
class="MathClass-rel">&#x2223;</mo><mo 
class="MathClass-rel">&#x003E;</mo><mn>1</mn><mo 
class="MathClass-punc">,</mo><mn>1</mn><mo 
class="MathClass-rel">&#x2208;</mo><mi 
>A</mi></mrow></msub 
><msub><mrow 
><mi 
>T</mi></mrow><mrow 
><mi 
>n</mi><mo 
class="MathClass-punc">,</mo><mi 
>b</mi><mo 
class="MathClass-punc">,</mo><mi 
>A</mi></mrow></msub 
><mo 
class="MathClass-punc">,</mo><mspace width="2em" class="qquad"/><msub><mrow 
><mi 
>M</mi></mrow><mrow 
><mi 
>n</mi></mrow></msub 
> <mo 
class="MathClass-rel">=</mo> <mi 
>n</mi><msub><mrow 
><mo 
> max</mo> </mrow><mrow 
><mo 
class="MathClass-rel">&#x2223;</mo><mi 
>A</mi><mo 
class="MathClass-rel">&#x2223;</mo><mo 
class="MathClass-rel">&#x003E;</mo><mn>1</mn><mo 
class="MathClass-punc">,</mo><mn>1</mn><mo 
class="MathClass-rel">&#x2208;</mo><mi 
>A</mi></mrow></msub 
><msub><mrow 
><mi 
>T</mi></mrow><mrow 
><mi 
>n</mi><mo 
class="MathClass-punc">,</mo><mi 
>b</mi><mo 
class="MathClass-punc">,</mo><mi 
>A</mi></mrow></msub 
><mo 
class="MathClass-punc">.</mo>
</mrow></math></center>
<!--l. 615--><p class="nopar">

</p>
   <h3 class="sectionHead"><span class="titlemark">4. </span> <a 
  name="x1-290004"></a>Properties of the limiting processes</h3>
<!--l. 619--><p class="noindent">This section shows how to compute the critical values of the Cram&#x00E9;r-von Mises variable
<!--l. 620--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><msub><mrow 
><mi 
>T</mi></mrow><mrow 
><mi 
>b</mi><mo 
class="MathClass-punc">,</mo><mi 
>A</mi></mrow></msub 
> <mo 
class="MathClass-rel">&#x2261;</mo><mo 
class="MathClass-op">&#x222B;</mo>
  <mo 
class="MathClass-rel">&#x2223;</mo><msub><mrow 
><mi 
>R</mi></mrow><mrow 
><mi 
>A</mi></mrow></msub 
><mrow><mo 
class="MathClass-open">(</mo><mrow><mi 
>t</mi></mrow><mo 
class="MathClass-close">)</mo></mrow><msup><mrow 
><mo 
class="MathClass-rel">&#x2223;</mo></mrow><mrow 
><mn>2</mn></mrow></msup 
><msub><mrow 
><mi 
>&#x03D5;</mi></mrow><mrow 
>
<mi 
>b</mi></mrow></msub 
><mrow><mo 
class="MathClass-open">(</mo><mrow><mi 
>t</mi></mrow><mo 
class="MathClass-close">)</mo></mrow><mi 
>d</mi><mi 
>t</mi></math>. This
can be achieved either by computing its cumulants and then applying the
Cornish-Fisher asymptotic expansion (see Lee and Lin (1992)<span class="frenchb-thinspace"> </span>; Lee and Lee (1992)(<span 
class="ecbx-1200">?</span>
<a 
  name="dx1-29001"></a><a 
href="#X1992Lee443bilo">24</a>)) or by inversion of the characteristic function (see Imhof(1961)(<a 
  name="dx1-29002"></a><a 
href="#X1961Imhof419bilo">21</a>) or an
improved version of this algorithm introduced by Davies (1973, 1980)(<span 
class="ecbx-1200">?</span> <a 
  name="dx1-29003"></a><a 
href="#X1980Davie323bilo">12</a>) or
Deheuvels and Martynov (1996)(<a 
  name="dx1-29004"></a><a 
href="#X1996Deheu871bilo">14</a>)) after evaluation of the eigenvalues of
<!--l. 629--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><msub><mrow 
><mi 
>C</mi></mrow><mrow 
><mi 
>A</mi></mrow></msub 
></math>.
</p><!--l. 631--><p class="indent">   The Cram&#x00E9;r-von Mises test statistic in (<a 
href="#x1-23006r9">2.9<!--tex4ht:ref: functional --></a>)can also be written in terms of a real
process&#x00A0;:
</p>
   <center class="math-display"><!--l. 633--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="display"><mrow 
>
                                 <msub><mrow 
><mi 
>T</mi></mrow><mrow 
><mi 
>n</mi><mo 
class="MathClass-punc">,</mo><mi 
>b</mi><mo 
class="MathClass-punc">,</mo><mi 
>A</mi></mrow></msub 
> <mo 
class="MathClass-rel">=</mo> <mfrac><mrow 
><mn>1</mn></mrow> 
<mrow 
><mi 
>n</mi></mrow></mfrac> <mo 
class="MathClass-op">&#x222B;</mo>
   <msubsup><mrow 
><mi 
>W</mi></mrow><mrow 
><mi 
>n</mi><mo 
class="MathClass-punc">,</mo><mi 
>A</mi></mrow><mrow 
><mn>2</mn></mrow></msubsup 
><mrow><mo 
class="MathClass-open">(</mo><mrow><mi 
>t</mi></mrow><mo 
class="MathClass-close">)</mo></mrow><msub><mrow 
><mi 
>&#x03D5;</mi></mrow><mrow 
>
<mi 
>b</mi></mrow></msub 
><mrow><mo 
class="MathClass-open">(</mo><mrow><mi 
>t</mi></mrow><mo 
class="MathClass-close">)</mo></mrow><mi 
>d</mi><mi 
>t</mi>
</mrow></math></center>
<!--l. 636--><p class="nopar">
where <!--l. 638--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><msub><mrow 
><mi 
>W</mi></mrow><mrow 
><mi 
>n</mi><mo 
class="MathClass-punc">,</mo><mi 
>A</mi></mrow></msub 
><mrow><mo 
class="MathClass-open">(</mo><mrow><mi 
>t</mi></mrow><mo 
class="MathClass-close">)</mo></mrow> <mo 
class="MathClass-rel">=</mo>  <mfrac><mrow 
><mn>1</mn></mrow> 
<mrow 
><msqrt><mrow><mi 
>n</mi></mrow></msqrt></mrow></mfrac><msubsup><mrow 
> <mo 
class="MathClass-op">&#x2211;</mo>
    </mrow><mrow 
><mi 
>j</mi><mo 
class="MathClass-rel">=</mo><mn>1</mn></mrow><mrow 
><mi 
>n</mi></mrow></msubsup 
><msub><mrow 
> <mo 
class="MathClass-op">&#x220F;</mo></mrow><mrow 
>
<mi 
>k</mi><mo 
class="MathClass-rel">&#x2208;</mo><mi 
>A</mi></mrow></msub 
> <mfenced separators="" 
open="["  close="]" ><mrow><mo 
>cos</mo><!--nolimits--><mrow><mo 
class="MathClass-open">(</mo><mrow><mrow><mo 
class="MathClass-open">&#x2329;</mo><mrow><msup><mrow 
><mi 
>t</mi></mrow><mrow 
><mrow><mo 
class="MathClass-open">(</mo><mrow><mi 
>k</mi></mrow><mo 
class="MathClass-close">)</mo></mrow></mrow></msup 
><mo 
class="MathClass-punc">,</mo><msubsup><mrow 
><mi 
>e</mi></mrow><mrow 
>
<mi 
>j</mi></mrow><mrow 
><mrow><mo 
class="MathClass-open">(</mo><mrow><mi 
>k</mi></mrow><mo 
class="MathClass-close">)</mo></mrow></mrow></msubsup 
></mrow><mo 
class="MathClass-close">&#x232A;</mo></mrow></mrow><mo 
class="MathClass-close">)</mo></mrow> <mo 
class="MathClass-bin">+</mo><mo 
> sin</mo><!--nolimits--><mrow><mo 
class="MathClass-open">(</mo><mrow><mrow><mo 
class="MathClass-open">&#x2329;</mo><mrow><msup><mrow 
><mi 
>t</mi></mrow><mrow 
><mrow><mo 
class="MathClass-open">(</mo><mrow><mi 
>k</mi></mrow><mo 
class="MathClass-close">)</mo></mrow></mrow></msup 
><mo 
class="MathClass-punc">,</mo><msubsup><mrow 
><mi 
>e</mi></mrow><mrow 
>
<mi 
>j</mi></mrow><mrow 
><mrow><mo 
class="MathClass-open">(</mo><mrow><mi 
>k</mi></mrow><mo 
class="MathClass-close">)</mo></mrow></mrow></msubsup 
></mrow><mo 
class="MathClass-close">&#x232A;</mo></mrow></mrow><mo 
class="MathClass-close">)</mo></mrow> <mo 
class="MathClass-bin">&#x2212;</mo> <mi 
>&#x03C6;</mi><mrow><mo 
class="MathClass-open">(</mo><mrow><msup><mrow 
><mi 
>t</mi></mrow><mrow 
><mrow><mo 
class="MathClass-open">(</mo><mrow><mi 
>k</mi></mrow><mo 
class="MathClass-close">)</mo></mrow></mrow></msup 
></mrow><mo 
class="MathClass-close">)</mo></mrow></mrow></mfenced></math>
is a real process which converges to a real Gaussian process with the same covariance
function <!--l. 645--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><msub><mrow 
><mi 
>C</mi></mrow><mrow 
><mi 
>A</mi></mrow></msub 
><mrow><mo 
class="MathClass-open">(</mo><mrow><mi 
>s</mi><mo 
class="MathClass-punc">,</mo><mi 
>t</mi></mrow><mo 
class="MathClass-close">)</mo></mrow></math>
as in (<a 
href="#x1-22009r3">2.3<!--tex4ht:ref: covariance --></a>). Thus the usual Karhunen-Lo&#x00E8;ve expansion holds.
</p><!--l. 648--><p class="indent">   Let <!--l. 648--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mi 
>k</mi> <mo 
class="MathClass-rel">=</mo> <mo 
class="MathClass-rel">&#x2223;</mo><mi 
>A</mi><mo 
class="MathClass-rel">&#x2223;</mo></math>.
It is well known that </p><table class="equation"><tr><td> <a 
  name="x1-29005r1"></a>

<!--l. 649--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="display"><msub><mrow 
>
          <mo 
class="MathClass-op">&#x222B;</mo>
             </mrow><mrow 
><msup><mrow 
><mi mathvariant="double-struck">&#x211D;</mi></mrow><mrow 
><mi 
>p</mi><mi 
>q</mi></mrow></msup 
></mrow></msub 
><mo 
class="MathClass-rel">&#x2223;</mo><msub><mrow 
><mi 
>R</mi></mrow><mrow 
><mi 
>A</mi></mrow></msub 
><mrow><mo 
class="MathClass-open">(</mo><mrow><mi 
>t</mi></mrow><mo 
class="MathClass-close">)</mo></mrow><msup><mrow 
><mo 
class="MathClass-rel">&#x2223;</mo></mrow><mrow 
><mn>2</mn></mrow></msup 
><msub><mrow 
><mi 
>&#x03D5;</mi></mrow><mrow 
>
<mi 
>b</mi></mrow></msub 
><mrow><mo 
class="MathClass-open">(</mo><mrow><mi 
>t</mi></mrow><mo 
class="MathClass-close">)</mo></mrow><mi 
>d</mi><mi 
>t</mi> <mo 
class="MathClass-rel">&#x223C;</mo> <msub><mrow 
><mi 
>T</mi></mrow><mrow 
><mi 
>b</mi><mo 
class="MathClass-punc">,</mo><mi 
>A</mi></mrow></msub 
> <mo 
class="MathClass-rel">=</mo><msub><mrow 
> <mo 
class="MathClass-op">&#x2211;</mo>
   </mrow><mrow 
><mrow><mo 
class="MathClass-open">(</mo><mrow><msub><mrow 
><mi 
>i</mi></mrow><mrow 
>
<mn>1</mn></mrow></msub 
><mo 
class="MathClass-punc">,</mo><mo 
class="MathClass-op">&#x2026;</mo><mo 
class="MathClass-punc">,</mo><msub><mrow 
><mi 
>i</mi></mrow><mrow 
><mi 
>k</mi></mrow></msub 
></mrow><mo 
class="MathClass-close">)</mo></mrow><mo 
class="MathClass-rel">&#x2208;</mo><msup><mrow 
><mi mathvariant="double-struck">&#x2115;</mi></mrow><mrow 
><msup><mrow 
><mo 
class="MathClass-bin">&#x2217;</mo></mrow><mrow 
><mi 
>k</mi></mrow></msup 
></mrow></msup 
></mrow></msub 
><msub><mrow 
><mi 
>&#x03BB;</mi></mrow><mrow 
><mrow><mo 
class="MathClass-open">(</mo><mrow><msub><mrow 
><mi 
>i</mi></mrow><mrow 
><mn>1</mn></mrow></msub 
><mo 
class="MathClass-punc">,</mo><mo 
class="MathClass-op">&#x2026;</mo><mo 
class="MathClass-punc">,</mo><msub><mrow 
><mi 
>i</mi></mrow><mrow 
><mi 
>k</mi></mrow></msub 
></mrow><mo 
class="MathClass-close">)</mo></mrow></mrow></msub 
><mo 
class="MathClass-rel">&#x2223;</mo><msub><mrow 
><mi 
>Z</mi></mrow><mrow 
><mrow><mo 
class="MathClass-open">(</mo><mrow><msub><mrow 
><mi 
>i</mi></mrow><mrow 
><mn>1</mn></mrow></msub 
><mo 
class="MathClass-punc">,</mo><mo 
class="MathClass-op">&#x2026;</mo><mo 
class="MathClass-punc">,</mo><msub><mrow 
><mi 
>i</mi></mrow><mrow 
><mi 
>k</mi></mrow></msub 
></mrow><mo 
class="MathClass-close">)</mo></mrow></mrow></msub 
><msup><mrow 
><mo 
class="MathClass-rel">&#x2223;</mo></mrow><mrow 
><mn>2</mn></mrow></msup 
>
</math>
<!--l. 652--><p class="nopar"></p></td><td class="eq-no">(4.1)</td></tr></table>
where <!--l. 653--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><msub><mrow 
><mi 
>Z</mi></mrow><mrow 
><mrow><mo 
class="MathClass-open">(</mo><mrow><msub><mrow 
><mi 
>i</mi></mrow><mrow 
><mn>1</mn></mrow></msub 
><mo 
class="MathClass-punc">,</mo><mo 
class="MathClass-op">&#x2026;</mo><mo 
class="MathClass-punc">,</mo><msub><mrow 
><mi 
>i</mi></mrow><mrow 
><mi 
>k</mi></mrow></msub 
></mrow><mo 
class="MathClass-close">)</mo></mrow></mrow></msub 
></math> are
standard i.i.d. <!--l. 653--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mi 
>C</mi><mi 
>N</mi><mrow><mo 
class="MathClass-open">(</mo><mrow><mn>0</mn><mo 
class="MathClass-punc">,</mo> <mn>1</mn></mrow><mo 
class="MathClass-close">)</mo></mrow></math>
complex random variables. Also, it is easy to show that
<!--l. 655--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><msub><mrow 
><mi 
>&#x03BB;</mi></mrow><mrow 
><mrow><mo 
class="MathClass-open">(</mo><mrow><msub><mrow 
><mi 
>i</mi></mrow><mrow 
><mn>1</mn></mrow></msub 
><mo 
class="MathClass-punc">,</mo><mo 
class="MathClass-op">&#x2026;</mo><mo 
class="MathClass-punc">,</mo><msub><mrow 
><mi 
>i</mi></mrow><mrow 
><mi 
>k</mi></mrow></msub 
></mrow><mo 
class="MathClass-close">)</mo></mrow></mrow></msub 
> <mo 
class="MathClass-rel">=</mo><msubsup><mrow 
> <mo 
class="MathClass-op">&#x220F;</mo>
  </mrow><mrow 
><mi 
>l</mi><mo 
class="MathClass-rel">=</mo><mn>1</mn></mrow><mrow 
><mi 
>k</mi></mrow></msubsup 
><msub><mrow 
><mi 
>&#x03BB;</mi></mrow><mrow 
><msub><mrow 
>
<mi 
>i</mi></mrow><mrow 
><mi 
>l</mi></mrow></msub 
></mrow></msub 
></math> where the
<!--l. 656--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><msub><mrow 
><mi 
>&#x03BB;</mi></mrow><mrow 
><mi 
>j</mi></mrow></msub 
></math>&#x2019;s are the eigenvalues of
the integral operator <!--l. 656--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mi 
>O</mi></math>
defined by <table class="equation"><tr><td> <a 
  name="x1-29006r2"></a>
<!--l. 658--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="display">
                       <mi 
>O</mi><mrow><mo 
class="MathClass-open">(</mo><mrow><mi 
>f</mi></mrow><mo 
class="MathClass-close">)</mo></mrow><mrow><mo 
class="MathClass-open">(</mo><mrow><mi 
>s</mi></mrow><mo 
class="MathClass-close">)</mo></mrow> <mo 
class="MathClass-rel">=</mo><msub><mrow 
> <mo 
class="MathClass-op">&#x222B;</mo>
  </mrow><mrow 
><msup><mrow 
><mi mathvariant="double-struck">&#x211D;</mi></mrow><mrow 
><mi 
>q</mi></mrow></msup 
></mrow></msub 
><mi 
>f</mi><mrow><mo 
class="MathClass-open">(</mo><mrow><mi 
>t</mi></mrow><mo 
class="MathClass-close">)</mo></mrow><mi 
>K</mi><mrow><mo 
class="MathClass-open">(</mo><mrow><mi 
>s</mi><mo 
class="MathClass-punc">,</mo><mi 
>t</mi></mrow><mo 
class="MathClass-close">)</mo></mrow><msub><mrow 
><mi 
>&#x03D5;</mi></mrow><mrow 
><mi 
>b</mi></mrow></msub 
><mrow><mo 
class="MathClass-open">(</mo><mrow><mi 
>t</mi></mrow><mo 
class="MathClass-close">)</mo></mrow><mi 
>d</mi><mi 
>t</mi>
</math>
<!--l. 660--><p class="nopar"></p></td><td class="eq-no">(4.2)</td></tr></table>
with <table class="equation"><tr><td> <a 
  name="x1-29007r3"></a>
<!--l. 662--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="display">
              <mi 
>K</mi><mrow><mo 
class="MathClass-open">(</mo><mrow><mi 
>s</mi><mo 
class="MathClass-punc">,</mo><mi 
>t</mi></mrow><mo 
class="MathClass-close">)</mo></mrow> <mo 
class="MathClass-rel">=</mo><mo 
> exp</mo><!--nolimits--><mrow><mo 
class="MathClass-open">(</mo><mrow><mo 
class="MathClass-bin">&#x2212;</mo><mfrac><mrow 
><mn>1</mn></mrow>
<mrow 
><mn>2</mn></mrow></mfrac><mo 
class="MathClass-rel">&#x2225;</mo><mi 
>s</mi><mo 
class="MathClass-bin">&#x2212;</mo><mi 
>t</mi><msup><mrow 
><mo 
class="MathClass-rel">&#x2225;</mo></mrow><mrow 
><mn>2</mn></mrow></msup 
></mrow><mo 
class="MathClass-close">)</mo></mrow> <mo 
class="MathClass-bin">&#x2212;</mo><mo 
> exp</mo><!--nolimits--><mrow><mo 
class="MathClass-open">(</mo><mrow><mo 
class="MathClass-bin">&#x2212;</mo><mfrac><mrow 
><mn>1</mn></mrow>
<mrow 
><mn>2</mn></mrow></mfrac><mrow><mo 
class="MathClass-open">(</mo><mrow><mo 
class="MathClass-rel">&#x2225;</mo><mi 
>s</mi><msup><mrow 
><mo 
class="MathClass-rel">&#x2225;</mo></mrow><mrow 
><mn>2</mn></mrow></msup 
> <mo 
class="MathClass-bin">+</mo> <mo 
class="MathClass-rel">&#x2225;</mo><mi 
>t</mi><msup><mrow 
><mo 
class="MathClass-rel">&#x2225;</mo></mrow><mrow 
><mn>2</mn></mrow></msup 
></mrow><mo 
class="MathClass-close">)</mo></mrow></mrow><mo 
class="MathClass-close">)</mo></mrow><mo 
class="MathClass-punc">.</mo>
</math>
<!--l. 664--><p class="nopar"></p></td><td class="eq-no">(4.3)</td></tr></table>
That is to say the problem is to solve, in
<!--l. 665--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mi 
>&#x03BB;</mi></math> (and
<!--l. 665--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mi 
>f</mi></math>), the
linear second order homogeneous Fredholm integral equation <table class="equation"><tr><td> <a 
  name="x1-29008r4"></a>

<!--l. 667--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="display">
                       <mi 
>&#x03BB;</mi><mi 
>f</mi><mrow><mo 
class="MathClass-open">(</mo><mrow><mi 
>s</mi></mrow><mo 
class="MathClass-close">)</mo></mrow> <mo 
class="MathClass-rel">=</mo><msub><mrow 
> <mo 
class="MathClass-op">&#x222B;</mo>
  </mrow><mrow 
><msup><mrow 
><mi mathvariant="double-struck">&#x211D;</mi></mrow><mrow 
><mi 
>q</mi></mrow></msup 
></mrow></msub 
><mi 
>f</mi><mrow><mo 
class="MathClass-open">(</mo><mrow><mi 
>t</mi></mrow><mo 
class="MathClass-close">)</mo></mrow><mi 
>K</mi><mrow><mo 
class="MathClass-open">(</mo><mrow><mi 
>s</mi><mo 
class="MathClass-punc">,</mo><mi 
>t</mi></mrow><mo 
class="MathClass-close">)</mo></mrow><msub><mrow 
><mi 
>&#x03D5;</mi></mrow><mrow 
><mi 
>b</mi></mrow></msub 
><mrow><mo 
class="MathClass-open">(</mo><mrow><mi 
>t</mi></mrow><mo 
class="MathClass-close">)</mo></mrow><mi 
>d</mi><mi 
>t</mi><mo 
class="MathClass-punc">.</mo>
</math>
<!--l. 669--><p class="nopar"></p></td><td class="eq-no">(4.4)</td></tr></table>
See Conway (1985)(<a 
  name="dx1-29009"></a><a 
href="#X1985Conwabilo">5</a>) for an introduction to integral operators.
<br class="newline" />
<!--l. 672--><p class="indent">   It does not seem possible to solve (<a 
href="#x1-29008r4">4.4<!--tex4ht:ref: fredholmequation --></a>) explicitely, but one can compute its
eigenvalues using a relation as </p><table class="equation"><tr><td> <a 
  name="x1-29010r5"></a>
<!--l. 674--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="display"><msub><mrow 
>
                     <mo 
class="MathClass-op">&#x222B;</mo>
                        </mrow><mrow 
><msup><mrow 
><mi mathvariant="double-struck">&#x211D;</mi></mrow><mrow 
><mi 
>q</mi></mrow></msup 
></mrow></msub 
><mi 
>f</mi><mrow><mo 
class="MathClass-open">(</mo><mrow><mi 
>&#x03BD;</mi></mrow><mo 
class="MathClass-close">)</mo></mrow><msup><mrow 
><mi 
>e</mi></mrow><mrow 
><mo 
class="MathClass-bin">&#x2212;</mo><mo 
class="MathClass-rel">&#x2225;</mo><mi 
>&#x03BD;</mi><msup><mrow 
><mo 
class="MathClass-rel">&#x2225;</mo></mrow><mrow 
><mn>2</mn></mrow></msup 
>
          </mrow></msup 
><mi 
>d</mi><mi 
>&#x03BD;</mi> <mo 
class="MathClass-rel">=</mo><msubsup><mrow 
> <mo 
class="MathClass-op">&#x2211;</mo>
  </mrow><mrow 
><mi 
>j</mi><mo 
class="MathClass-rel">=</mo><mn>1</mn></mrow><mrow 
><mi 
>N</mi></mrow></msubsup 
><msub><mrow 
><mi 
>B</mi></mrow><mrow 
>
<mi 
>j</mi></mrow></msub 
><mi 
>f</mi><mrow><mo 
class="MathClass-open">(</mo><mrow><msub><mrow 
><mi 
>&#x03BD;</mi></mrow><mrow 
><mi 
>j</mi></mrow></msub 
></mrow><mo 
class="MathClass-close">)</mo></mrow>
</math>
<!--l. 676--><p class="nopar"></p></td><td class="eq-no">(4.5)</td></tr></table>
where the parameters <!--l. 677--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><msub><mrow 
><mi 
>B</mi></mrow><mrow 
><mi 
>j</mi></mrow></msub 
></math>
and <!--l. 678--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><msub><mrow 
><mi 
>&#x03BD;</mi></mrow><mrow 
><mi 
>j</mi></mrow></msub 
> <mo 
class="MathClass-rel">=</mo> <mrow><mo 
class="MathClass-open">(</mo><mrow><msub><mrow 
><mi 
>&#x03BD;</mi></mrow><mrow 
><mi 
>j</mi><mo 
class="MathClass-punc">,</mo><mn>1</mn></mrow></msub 
><mo 
class="MathClass-punc">,</mo><mo 
class="MathClass-op">&#x2026;</mo><mo 
class="MathClass-punc">,</mo><msub><mrow 
><mi 
>&#x03BD;</mi></mrow><mrow 
><mi 
>j</mi><mo 
class="MathClass-punc">,</mo><mi 
>q</mi></mrow></msub 
></mrow><mo 
class="MathClass-close">)</mo></mrow></math>,
<!--l. 678--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mi 
>j</mi> <mo 
class="MathClass-rel">=</mo> <mn>1</mn><mo 
class="MathClass-punc">,</mo><mo 
class="MathClass-op">&#x2026;</mo><mo 
class="MathClass-punc">,</mo><mi 
>N</mi></math>
could be respectively the coefficients and the points of a cubature formula
(CF), or also could be obtained by a Monte-Carlo experiment, in which case
<!--l. 682--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><msub><mrow 
><mi 
>B</mi></mrow><mrow 
><mi 
>j</mi></mrow></msub 
> <mo 
class="MathClass-rel">=</mo>  <mfrac><mrow 
><mn>1</mn></mrow> 
<mrow 
><mi 
>N</mi></mrow></mfrac></math> and
<!--l. 682--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><msub><mrow 
><mi 
>&#x03BD;</mi></mrow><mrow 
><mi 
>j</mi></mrow></msub 
> <mo 
class="MathClass-rel">&#x223C;</mo> <mi 
>N</mi><mrow><mo 
class="MathClass-open">(</mo><mrow><mn>0</mn><mo 
class="MathClass-punc">,</mo><mi 
>I</mi></mrow><mo 
class="MathClass-close">)</mo></mrow><mo 
class="MathClass-punc">,</mo> <mi 
>j</mi> <mo 
class="MathClass-rel">=</mo> <mn>1</mn><mo 
class="MathClass-punc">,</mo><mo 
class="MathClass-op">&#x2026;</mo><mo 
class="MathClass-punc">,</mo><mi 
>N</mi></math>.
A good rule of the thumb is to use a cubature formula when
<!--l. 684--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mi 
>b</mi></math> is
small, for example less than one, otherwise use Monte Carlo method.
<!--l. 687--><p class="indent">   We used the following formulas&#x00A0;: the
<!--l. 687--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mi 
>n</mi></math>th degree Gauss quadrature
formula when <!--l. 688--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mi 
>q</mi> <mo 
class="MathClass-rel">=</mo> <mn>1</mn></math>, the fifteenth
degree CF <!--l. 689--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><msubsup><mrow 
><mi 
>E</mi></mrow><mrow 
><mn>2</mn></mrow><mrow 
><msup><mrow 
><mi 
>r</mi></mrow><mrow 
><mn>2</mn></mrow></msup 
></mrow></msubsup 
> <mo 
class="MathClass-punc">:</mo> <mn>1</mn><mn>5</mn> <mo 
class="MathClass-bin">&#x2212;</mo> <mn>1</mn></math> (see (Stroud, 1971,
p. 326)(<a 
  name="dx1-29011"></a><a 
href="#X1971Stroubilo">29</a>)) when <!--l. 689--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mi 
>q</mi> <mo 
class="MathClass-rel">=</mo> <mn>2</mn></math> and the
seventh degree CF <!--l. 690--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><msubsup><mrow 
><mi 
>E</mi></mrow><mrow 
><mi 
>q</mi></mrow><mrow 
><msup><mrow 
><mi 
>r</mi></mrow><mrow 
><mn>2</mn></mrow></msup 
></mrow></msubsup 
> <mo 
class="MathClass-punc">:</mo> <mn>7</mn> <mo 
class="MathClass-bin">&#x2212;</mo> <mn>2</mn></math> appearing in
(Stroud, 1971, p. 319)(<a 
  name="dx1-29012"></a><a 
href="#X1971Stroubilo">29</a>) for <!--l. 691--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mi 
>q</mi> <mo 
class="MathClass-rel">&#x2265;</mo> <mn>3</mn></math>.
This last formula contains an error, see Stroud (1967)(<a 
  name="dx1-29013"></a><a 
href="#X1967Strou37bilo">28</a>) for details.

<br class="newline" />
</p><!--l. 695--><p class="indent">   Moreover one can notice that all the cumulants of
<!--l. 696--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><msub><mrow 
><mi 
>T</mi></mrow><mrow 
><mi 
>b</mi><mo 
class="MathClass-punc">,</mo><mi 
>A</mi></mrow></msub 
></math> can be computed
explicitly. In fact, the <!--l. 696--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mi 
>m</mi></math>-th
cumulant <!--l. 697--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><msub><mrow 
><mi 
>&#x03BA;</mi></mrow><mrow 
><mi 
>m</mi><mo 
class="MathClass-punc">,</mo><mi 
>A</mi></mrow></msub 
><mrow><mo 
class="MathClass-open">(</mo><mrow><mi 
>b</mi></mrow><mo 
class="MathClass-close">)</mo></mrow></math>
of <!--l. 697--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><msub><mrow 
><mi 
>T</mi></mrow><mrow 
><mi 
>b</mi><mo 
class="MathClass-punc">,</mo><mi 
>A</mi></mrow></msub 
></math> in
(<a 
href="#x1-29005r1">4.1<!--tex4ht:ref: TbA --></a>) is given by </p><table class="equation"><tr><td> <a 
  name="x1-29014r6"></a>
<!--l. 698--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="display">
                 <msub><mrow 
><mi 
>&#x03BA;</mi></mrow><mrow 
><mi 
>m</mi><mo 
class="MathClass-punc">,</mo><mi 
>A</mi></mrow></msub 
><mrow><mo 
class="MathClass-open">(</mo><mrow><mi 
>b</mi></mrow><mo 
class="MathClass-close">)</mo></mrow> <mo 
class="MathClass-rel">=</mo> <mrow><mo 
class="MathClass-open">(</mo><mrow><mi 
>m</mi> <mo 
class="MathClass-bin">&#x2212;</mo> <mn>1</mn></mrow><mo 
class="MathClass-close">)</mo></mrow><mi 
>!</mi><msup><mrow 
> <mfenced separators="" 
open="["  close="]" ><mrow><msub><mrow 
><mo 
class="MathClass-op">&#x222B;</mo>
  </mrow><mrow 
><msup><mrow 
><mi mathvariant="double-struck">&#x211D;</mi></mrow><mrow 
><mi 
>q</mi></mrow></msup 
></mrow></msub 
><msup><mrow 
><mi 
>K</mi></mrow><mrow 
><mrow><mo 
class="MathClass-open">(</mo><mrow><mi 
>m</mi></mrow><mo 
class="MathClass-close">)</mo></mrow></mrow></msup 
><mrow><mo 
class="MathClass-open">(</mo><mrow><mi 
>x</mi><mo 
class="MathClass-punc">,</mo><mi 
>x</mi></mrow><mo 
class="MathClass-close">)</mo></mrow><msub><mrow 
><mi 
>&#x03D5;</mi></mrow><mrow 
>
<mi 
>b</mi></mrow></msub 
><mrow><mo 
class="MathClass-open">(</mo><mrow><mi 
>x</mi></mrow><mo 
class="MathClass-close">)</mo></mrow><mi 
>d</mi><mi 
>x</mi></mrow></mfenced></mrow><mrow 
><mo 
class="MathClass-rel">&#x2223;</mo><mi 
>A</mi><mo 
class="MathClass-rel">&#x2223;</mo></mrow></msup 
>
</math>
<!--l. 700--><p class="nopar"></p></td><td class="eq-no">(4.6)</td></tr></table>
where <table class="equation"><tr><td> <a 
  name="x1-29015r7"></a>
<!--l. 702--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="display">
                     <msub><mrow 
><mi 
>&#x03D5;</mi></mrow><mrow 
><mi 
>b</mi></mrow></msub 
><mrow><mo 
class="MathClass-open">(</mo><mrow><mi 
>x</mi></mrow><mo 
class="MathClass-close">)</mo></mrow> <mo 
class="MathClass-rel">=</mo> <msup><mrow 
><mrow><mo 
class="MathClass-open">(</mo><mrow><mn>2</mn><mi 
>&#x03C0;</mi></mrow><mo 
class="MathClass-close">)</mo></mrow></mrow><mrow 
><mo 
class="MathClass-bin">&#x2212;</mo><mi 
>q</mi><mo 
class="MathClass-bin">&#x2215;</mo><mn>2</mn></mrow></msup 
><msup><mrow 
><mi 
>b</mi></mrow><mrow 
><mo 
class="MathClass-bin">&#x2212;</mo><mi 
>q</mi></mrow></msup 
><mo 
> exp</mo><!--nolimits--><mrow><mo 
class="MathClass-open">(</mo><mrow><mo 
class="MathClass-bin">&#x2212;</mo><mfrac><mrow 
><mn>1</mn></mrow>
<mrow 
><mn>2</mn></mrow></mfrac><mo 
class="MathClass-rel">&#x2225;</mo><mi 
>x</mi><msup><mrow 
><mo 
class="MathClass-rel">&#x2225;</mo></mrow><mrow 
><mn>2</mn></mrow></msup 
><mo 
class="MathClass-bin">&#x2215;</mo><msup><mrow 
><mi 
>b</mi></mrow><mrow 
><mn>2</mn></mrow></msup 
></mrow><mo 
class="MathClass-close">)</mo></mrow>
</math>
<!--l. 704--><p class="nopar"></p></td><td class="eq-no">(4.7)</td></tr></table>
and where <!--l. 706--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><msup><mrow 
><mi 
>K</mi></mrow><mrow 
><mrow><mo 
class="MathClass-open">(</mo><mrow><mn>1</mn></mrow><mo 
class="MathClass-close">)</mo></mrow></mrow></msup 
><mrow><mo 
class="MathClass-open">(</mo><mrow><mi 
>x</mi><mo 
class="MathClass-punc">,</mo><mi 
>y</mi></mrow><mo 
class="MathClass-close">)</mo></mrow> <mo 
class="MathClass-rel">=</mo> <mi 
>K</mi><mrow><mo 
class="MathClass-open">(</mo><mrow><mi 
>x</mi><mo 
class="MathClass-punc">,</mo><mi 
>y</mi></mrow><mo 
class="MathClass-close">)</mo></mrow></math>
and

<!--l. 707--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="display">
            <msup><mrow 
><mi 
>K</mi></mrow><mrow 
><mrow><mo 
class="MathClass-open">(</mo><mrow><mi 
>m</mi></mrow><mo 
class="MathClass-close">)</mo></mrow></mrow></msup 
><mrow><mo 
class="MathClass-open">(</mo><mrow><mi 
>x</mi><mo 
class="MathClass-punc">,</mo><mi 
>y</mi></mrow><mo 
class="MathClass-close">)</mo></mrow> <mo 
class="MathClass-rel">=</mo><msub><mrow 
> <mo 
class="MathClass-op">&#x222B;</mo>
  </mrow><mrow 
><msup><mrow 
><mi mathvariant="double-struck">&#x211D;</mi></mrow><mrow 
><mi 
>q</mi></mrow></msup 
></mrow></msub 
><msup><mrow 
><mi 
>K</mi></mrow><mrow 
><mrow><mo 
class="MathClass-open">(</mo><mrow><mi 
>m</mi><mo 
class="MathClass-bin">&#x2212;</mo><mn>1</mn></mrow><mo 
class="MathClass-close">)</mo></mrow></mrow></msup 
><mrow><mo 
class="MathClass-open">(</mo><mrow><mi 
>x</mi><mo 
class="MathClass-punc">,</mo><mi 
>z</mi></mrow><mo 
class="MathClass-close">)</mo></mrow><mi 
>K</mi><mrow><mo 
class="MathClass-open">(</mo><mrow><mi 
>z</mi><mo 
class="MathClass-punc">,</mo><mi 
>y</mi></mrow><mo 
class="MathClass-close">)</mo></mrow><msub><mrow 
><mi 
>&#x03D5;</mi></mrow><mrow 
>
<mi 
>b</mi></mrow></msub 
><mrow><mo 
class="MathClass-open">(</mo><mrow><mi 
>z</mi></mrow><mo 
class="MathClass-close">)</mo></mrow><mi 
>d</mi><mi 
>z</mi><mo 
class="MathClass-punc">,</mo> <mi 
>m</mi> <mo 
class="MathClass-rel">&#x2265;</mo> <mn>2</mn><mo 
class="MathClass-punc">.</mo>
</math>
<!--l. 711--><p class="nopar">
Define
</p><!--l. 713--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="display">
<mtable 
class="eqnarray" columnalign="right center left" >
<mtr><mtd 
class="eqnarray-1"> <msubsup><mrow 
><mi 
>I</mi></mrow><mrow 
><mi 
>x</mi><mo 
class="MathClass-punc">,</mo><mi 
>y</mi></mrow><mrow 
><mrow><mo 
class="MathClass-open">(</mo><mrow><mn>1</mn></mrow><mo 
class="MathClass-close">)</mo></mrow></mrow></msubsup 
><mrow><mo 
class="MathClass-open">(</mo><mrow><mi 
>&#x03B1;</mi><mo 
class="MathClass-punc">,</mo><mi 
>&#x03B2;</mi><mo 
class="MathClass-punc">,</mo><mi 
>&#x03B3;</mi></mrow><mo 
class="MathClass-close">)</mo></mrow></mtd><mtd 
class="eqnarray-2">   <mo 
class="MathClass-rel">=</mo></mtd><mtd 
class="eqnarray-3">   <mo 
>exp</mo><!--nolimits--><mrow><mo 
class="MathClass-open">(</mo><mrow><mi 
>&#x03B1;</mi><mo 
class="MathClass-rel">&#x2225;</mo><mi 
>x</mi><msup><mrow 
><mo 
class="MathClass-rel">&#x2225;</mo></mrow><mrow 
><mn>2</mn></mrow></msup 
> <mo 
class="MathClass-bin">+</mo> <mi 
>&#x03B2;</mi><mo 
class="MathClass-rel">&#x2225;</mo><mi 
>y</mi><msup><mrow 
><mo 
class="MathClass-rel">&#x2225;</mo></mrow><mrow 
><mn>2</mn></mrow></msup 
> <mo 
class="MathClass-bin">+</mo> <mi 
>&#x03B3;</mi><mrow><mo 
class="MathClass-open">&#x2329;</mo><mrow><mi 
>x</mi><mo 
class="MathClass-punc">,</mo><mi 
>y</mi></mrow><mo 
class="MathClass-close">&#x232A;</mo></mrow></mrow><mo 
class="MathClass-close">)</mo></mrow>               </mtd><mtd 
class="eqnarray-4"> <mtext class="eqnarray">(4.8)</mtext><mtext 
   id="x1-29016r4.8"  class="label" ></mtext><mtext 
class="endlabel"></mtext></mtd>
</mtr><mtr><mtd 
class="eqnarray-1"> <msubsup><mrow 
><mi 
>I</mi></mrow><mrow 
><mi 
>x</mi><mo 
class="MathClass-punc">,</mo><mi 
>y</mi></mrow><mrow 
><mrow><mo 
class="MathClass-open">(</mo><mrow><mi 
>m</mi></mrow><mo 
class="MathClass-close">)</mo></mrow></mrow></msubsup 
><mrow><mo 
class="MathClass-open">(</mo><mrow><mi 
>&#x03B1;</mi><mo 
class="MathClass-punc">,</mo><mi 
>&#x03B2;</mi><mo 
class="MathClass-punc">,</mo><mi 
>&#x03B3;</mi></mrow><mo 
class="MathClass-close">)</mo></mrow></mtd><mtd 
class="eqnarray-2">   <mo 
class="MathClass-rel">=</mo></mtd><mtd 
class="eqnarray-3"><msub><mrow 
>   <mo 
class="MathClass-op">&#x222B;</mo>
                         </mrow><mrow 
><msup><mrow 
><mi mathvariant="double-struck">&#x211D;</mi></mrow><mrow 
><mi 
>q</mi></mrow></msup 
></mrow></msub 
><msubsup><mrow 
><mi 
>I</mi></mrow><mrow 
><mi 
>x</mi><mo 
class="MathClass-punc">,</mo><mi 
>z</mi></mrow><mrow 
><mrow><mo 
class="MathClass-open">(</mo><mrow><mi 
>m</mi><mo 
class="MathClass-bin">&#x2212;</mo><mn>1</mn></mrow><mo 
class="MathClass-close">)</mo></mrow></mrow></msubsup 
><mrow><mo 
class="MathClass-open">(</mo><mrow><mi 
>&#x03B1;</mi><mo 
class="MathClass-punc">,</mo><mi 
>&#x03B2;</mi><mo 
class="MathClass-punc">,</mo><mi 
>&#x03B3;</mi></mrow><mo 
class="MathClass-close">)</mo></mrow><mi 
>K</mi><mrow><mo 
class="MathClass-open">(</mo><mrow><mi 
>z</mi><mo 
class="MathClass-punc">,</mo><mi 
>y</mi></mrow><mo 
class="MathClass-close">)</mo></mrow><msub><mrow 
><mi 
>&#x03D5;</mi></mrow><mrow 
>
<mi 
>b</mi></mrow></msub 
><mrow><mo 
class="MathClass-open">(</mo><mrow><mi 
>z</mi></mrow><mo 
class="MathClass-close">)</mo></mrow><mi 
>d</mi><mi 
>z</mi><mo 
class="MathClass-punc">,</mo> <mi 
>m</mi> <mo 
class="MathClass-rel">&#x2265;</mo> <mn>2</mn><mo 
class="MathClass-punc">.</mo></mtd><mtd 
class="eqnarray-4"> <mtext class="eqnarray">(4.9)</mtext><mtext 
   id="x1-29016r4.9"  class="label" ></mtext><mtext 
class="endlabel"></mtext></mtd>           </mtr></mtable>
</math>
<!--l. 720--><p class="nopar">
One can show </p><table class="equation"><tr><td> <a 
  name="x1-29017r10"></a>
<!--l. 722--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="display">
              <msup><mrow 
><mi 
>K</mi></mrow><mrow 
><mrow><mo 
class="MathClass-open">(</mo><mrow><mi 
>m</mi></mrow><mo 
class="MathClass-close">)</mo></mrow></mrow></msup 
><mrow><mo 
class="MathClass-open">(</mo><mrow><mi 
>x</mi><mo 
class="MathClass-punc">,</mo><mi 
>x</mi></mrow><mo 
class="MathClass-close">)</mo></mrow> <mo 
class="MathClass-rel">=</mo> <msubsup><mrow 
><mi 
>I</mi></mrow><mrow 
>
<mi 
>x</mi><mo 
class="MathClass-punc">,</mo><mi 
>x</mi></mrow><mrow 
><mrow><mo 
class="MathClass-open">(</mo><mrow><mi 
>m</mi></mrow><mo 
class="MathClass-close">)</mo></mrow></mrow></msubsup 
> <mfenced separators="" 
open="("  close=")" ><mrow><mo 
class="MathClass-bin">&#x2212;</mo><mfrac><mrow 
><mn>1</mn></mrow>
<mrow 
><mn>2</mn></mrow></mfrac><mo 
class="MathClass-punc">,</mo><mo 
class="MathClass-bin">&#x2212;</mo><mfrac><mrow 
><mn>1</mn></mrow>
<mrow 
><mn>2</mn></mrow></mfrac><mo 
class="MathClass-punc">,</mo> <mn>1</mn></mrow></mfenced> <mo 
class="MathClass-bin">&#x2212;</mo> <msubsup><mrow 
><mi 
>I</mi></mrow><mrow 
><mi 
>x</mi><mo 
class="MathClass-punc">,</mo><mi 
>x</mi></mrow><mrow 
><mrow><mo 
class="MathClass-open">(</mo><mrow><mi 
>m</mi></mrow><mo 
class="MathClass-close">)</mo></mrow></mrow></msubsup 
> <mfenced separators="" 
open="("  close=")" ><mrow><mo 
class="MathClass-bin">&#x2212;</mo><mfrac><mrow 
><mn>1</mn></mrow>
<mrow 
><mn>2</mn></mrow></mfrac><mo 
class="MathClass-punc">,</mo><mo 
class="MathClass-bin">&#x2212;</mo><mfrac><mrow 
><mn>1</mn></mrow>
<mrow 
><mn>2</mn></mrow></mfrac><mo 
class="MathClass-punc">,</mo> <mn>0</mn></mrow></mfenced>
</math>
<!--l. 724--><p class="nopar"></p></td><td class="eq-no">(4.10)</td></tr></table>
and the recurrence relation

   <center class="math-display"><!--l. 726--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="display"><mrow 
><msubsup><mrow 
>
<mi 
>I</mi></mrow><mrow 
><mi 
>x</mi><mo 
class="MathClass-punc">,</mo><mi 
>x</mi></mrow><mrow 
><mrow><mo 
class="MathClass-open">(</mo><mrow><mi 
>m</mi></mrow><mo 
class="MathClass-close">)</mo></mrow></mrow></msubsup 
><mrow><mo 
class="MathClass-open">(</mo><mrow><mi 
>&#x03B1;</mi><mo 
class="MathClass-punc">,</mo><mi 
>&#x03B2;</mi><mo 
class="MathClass-punc">,</mo><mi 
>&#x03B3;</mi></mrow><mo 
class="MathClass-close">)</mo></mrow> <mo 
class="MathClass-rel">=</mo> <msub><mrow 
><mi 
>&#x03C7;</mi></mrow><mrow 
>
<mi 
>&#x03B2;</mi></mrow></msub 
> <mfenced separators="" 
open="["  close="]" ><mrow><msubsup><mrow 
><mi 
>I</mi></mrow><mrow 
><mi 
>x</mi><mo 
class="MathClass-punc">,</mo><mi 
>x</mi></mrow><mrow 
><mrow><mo 
class="MathClass-open">(</mo><mrow><mi 
>m</mi><mo 
class="MathClass-bin">&#x2212;</mo><mn>1</mn></mrow><mo 
class="MathClass-close">)</mo></mrow></mrow></msubsup 
><mrow><mo 
class="MathClass-open">(</mo><mrow><mi 
>&#x03B1;</mi> <mo 
class="MathClass-bin">&#x2212;</mo><mfrac><mrow 
><msup><mrow 
><mi 
>&#x03B3;</mi></mrow><mrow 
><mn>2</mn></mrow></msup 
></mrow> 
<mrow 
><mn>4</mn><mi 
>c</mi></mrow></mfrac><mo 
class="MathClass-punc">,</mo><mo 
class="MathClass-bin">&#x2212;</mo><mfrac><mrow 
><mn>1</mn></mrow>
<mrow 
><mn>4</mn><mi 
>c</mi></mrow></mfrac> <mo 
class="MathClass-bin">&#x2212;</mo><mfrac><mrow 
><mn>1</mn></mrow> 
<mrow 
><mn>2</mn></mrow></mfrac><mo 
class="MathClass-punc">,</mo><mo 
class="MathClass-bin">&#x2212;</mo><mfrac><mrow 
><mn>2</mn><mi 
>&#x03B3;</mi></mrow>
<mrow 
><mn>4</mn><mi 
>c</mi></mrow></mfrac> </mrow><mo 
class="MathClass-close">)</mo></mrow> <mo 
class="MathClass-bin">&#x2212;</mo> <msubsup><mrow 
><mi 
>I</mi></mrow><mrow 
><mi 
>x</mi><mo 
class="MathClass-punc">,</mo><mi 
>x</mi></mrow><mrow 
><mrow><mo 
class="MathClass-open">(</mo><mrow><mi 
>m</mi><mo 
class="MathClass-bin">&#x2212;</mo><mn>1</mn></mrow><mo 
class="MathClass-close">)</mo></mrow></mrow></msubsup 
><mrow><mo 
class="MathClass-open">(</mo><mrow><mi 
>&#x03B1;</mi> <mo 
class="MathClass-bin">&#x2212;</mo><mfrac><mrow 
><msup><mrow 
><mi 
>&#x03B3;</mi></mrow><mrow 
><mn>2</mn></mrow></msup 
></mrow> 
<mrow 
><mn>4</mn><mi 
>c</mi></mrow></mfrac><mo 
class="MathClass-punc">,</mo><mo 
class="MathClass-bin">&#x2212;</mo><mfrac><mrow 
><mn>1</mn></mrow>
<mrow 
><mn>2</mn></mrow></mfrac><mo 
class="MathClass-punc">,</mo> <mn>0</mn></mrow><mo 
class="MathClass-close">)</mo></mrow></mrow></mfenced> <mo 
class="MathClass-punc">,</mo>
</mrow></math></center>
<!--l. 730--><p class="nopar">
where <!--l. 731--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><msub><mrow 
><mi 
>&#x03C7;</mi></mrow><mrow 
><mi 
>&#x03B2;</mi></mrow></msub 
> <mo 
class="MathClass-rel">=</mo> <msup><mrow 
><mrow><mo 
class="MathClass-open">(</mo><mrow><mn>2</mn><mi 
>&#x03C0;</mi></mrow><mo 
class="MathClass-close">)</mo></mrow></mrow><mrow 
><mo 
class="MathClass-bin">&#x2212;</mo><mi 
>q</mi><mo 
class="MathClass-bin">&#x2215;</mo><mn>2</mn></mrow></msup 
><msup><mrow 
><mi 
>b</mi></mrow><mrow 
><mo 
class="MathClass-bin">&#x2212;</mo><mi 
>q</mi></mrow></msup 
><msub><mrow 
> <mo 
class="MathClass-op">&#x222B;</mo> </mrow><mrow 
><msup><mrow 
><mi mathvariant="double-struck">&#x211D;</mi></mrow><mrow 
><mi 
>q</mi>
 </mrow></msup 
></mrow></msub 
><msup><mrow 
><mi 
>e</mi></mrow><mrow 
><mi 
>c</mi><mo 
class="MathClass-rel">&#x2225;</mo><mi 
>z</mi><msup><mrow 
><mo 
class="MathClass-rel">&#x2225;</mo></mrow><mrow 
><mn>2</mn></mrow></msup 
></mrow></msup 
><mi 
>d</mi><mi 
>z</mi> <mo 
class="MathClass-rel">=</mo> <msup><mrow 
><mrow><mo 
class="MathClass-open">(</mo><mrow><mn>1</mn> <mo 
class="MathClass-bin">+</mo> <msup><mrow 
><mi 
>b</mi></mrow><mrow 
><mn>2</mn></mrow></msup 
> <mo 
class="MathClass-bin">&#x2212;</mo> <mn>2</mn><msup><mrow 
><mi 
>b</mi></mrow><mrow 
><mn>2</mn></mrow></msup 
><mi 
>&#x03B2;</mi></mrow><mo 
class="MathClass-close">)</mo></mrow></mrow><mrow 
><mo 
class="MathClass-bin">&#x2212;</mo><mi 
>q</mi><mo 
class="MathClass-bin">&#x2215;</mo><mn>2</mn></mrow></msup 
></math> and
<!--l. 733--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mo 
class="MathClass-bin">&#x2212;</mo><mfrac><mrow 
><mn>1</mn></mrow>
<mrow 
><mn>4</mn><mi 
>c</mi></mrow></mfrac> <mo 
class="MathClass-rel">=</mo>      <mfrac><mrow 
><msup><mrow 
><mi 
>b</mi></mrow><mrow 
><mn>2</mn></mrow></msup 
></mrow> 
<mrow 
><mn>2</mn><mo 
class="MathClass-bin">+</mo><mn>2</mn><msup><mrow 
><mi 
>b</mi></mrow><mrow 
><mn>2</mn></mrow></msup 
><mo 
class="MathClass-bin">&#x2212;</mo><mn>4</mn><msup><mrow 
><mi 
>b</mi></mrow><mrow 
><mn>2</mn></mrow></msup 
><mi 
>&#x03B2;</mi></mrow></mfrac></math>. Thus, one
can express <!--l. 734--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><msup><mrow 
><mi 
>K</mi></mrow><mrow 
><mrow><mo 
class="MathClass-open">(</mo><mrow><mi 
>m</mi></mrow><mo 
class="MathClass-close">)</mo></mrow></mrow></msup 
><mrow><mo 
class="MathClass-open">(</mo><mrow><mi 
>x</mi><mo 
class="MathClass-punc">,</mo><mi 
>x</mi></mrow><mo 
class="MathClass-close">)</mo></mrow></math>
in terms of <!--l. 735--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><msubsup><mrow 
><mi 
>I</mi></mrow><mrow 
><mi 
>x</mi><mo 
class="MathClass-punc">,</mo><mi 
>x</mi></mrow><mrow 
><mrow><mo 
class="MathClass-open">(</mo><mrow><mn>1</mn></mrow><mo 
class="MathClass-close">)</mo></mrow></mrow></msubsup 
></math>
and then use the relation </p><table class="equation"><tr><td> <a 
  name="x1-29018r11"></a>
<!--l. 736--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="display"><msub><mrow 
>
             <mo 
class="MathClass-op">&#x222B;</mo>
                </mrow><mrow 
><msup><mrow 
><mi mathvariant="double-struck">&#x211D;</mi></mrow><mrow 
><mi 
>q</mi></mrow></msup 
></mrow></msub 
><msubsup><mrow 
><mi 
>I</mi></mrow><mrow 
><mi 
>x</mi><mo 
class="MathClass-punc">,</mo><mi 
>x</mi></mrow><mrow 
><mrow><mo 
class="MathClass-open">(</mo><mrow><mn>1</mn></mrow><mo 
class="MathClass-close">)</mo></mrow></mrow></msubsup 
><mrow><mo 
class="MathClass-open">(</mo><mrow><mi 
>&#x03B1;</mi><mo 
class="MathClass-punc">,</mo><mi 
>&#x03B2;</mi><mo 
class="MathClass-punc">,</mo><mi 
>&#x03B3;</mi></mrow><mo 
class="MathClass-close">)</mo></mrow><msub><mrow 
><mi 
>&#x03D5;</mi></mrow><mrow 
>
<mi 
>b</mi></mrow></msub 
><mrow><mo 
class="MathClass-open">(</mo><mrow><mi 
>x</mi></mrow><mo 
class="MathClass-close">)</mo></mrow><mi 
>d</mi><mi 
>x</mi> <mo 
class="MathClass-rel">=</mo> <msup><mrow 
><mrow><mo 
class="MathClass-open">[</mo><mrow><mn>1</mn> <mo 
class="MathClass-bin">&#x2212;</mo> <mn>2</mn><msup><mrow 
><mi 
>b</mi></mrow><mrow 
><mn>2</mn></mrow></msup 
><mrow><mo 
class="MathClass-open">(</mo><mrow><mi 
>&#x03B1;</mi> <mo 
class="MathClass-bin">+</mo> <mi 
>&#x03B2;</mi> <mo 
class="MathClass-bin">+</mo> <mi 
>&#x03B3;</mi></mrow><mo 
class="MathClass-close">)</mo></mrow></mrow><mo 
class="MathClass-close">]</mo></mrow></mrow><mrow 
><mo 
class="MathClass-bin">&#x2212;</mo><mi 
>q</mi><mo 
class="MathClass-bin">&#x2215;</mo><mn>2</mn></mrow></msup 
>
</math>
<!--l. 740--><p class="nopar"></p></td><td class="eq-no">(4.11)</td></tr></table>
to obtain all the cumulants recursively. Note that this permits to double-check into
the preceding computation of the eigenvalues through the following relation <table class="equation"><tr><td>
<a 
  name="x1-29019r12"></a>
<!--l. 744--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="display">
                      <msub><mrow 
><mi 
>&#x03BA;</mi></mrow><mrow 
><mi 
>m</mi><mo 
class="MathClass-punc">,</mo><mi 
>A</mi></mrow></msub 
><mrow><mo 
class="MathClass-open">(</mo><mrow><mi 
>b</mi></mrow><mo 
class="MathClass-close">)</mo></mrow> <mo 
class="MathClass-rel">=</mo> <mrow><mo 
class="MathClass-open">(</mo><mrow><mi 
>m</mi> <mo 
class="MathClass-bin">&#x2212;</mo> <mn>1</mn></mrow><mo 
class="MathClass-close">)</mo></mrow><mi 
>!</mi><msup><mrow 
> <mfenced separators="" 
open="["  close="]" ><mrow><msubsup><mrow 
><mo 
class="MathClass-op">&#x2211;</mo>
  </mrow><mrow 
><mi 
>j</mi><mo 
class="MathClass-rel">=</mo><mn>1</mn></mrow><mrow 
><mi 
>&#x221E;</mi></mrow></msubsup 
><msubsup><mrow 
><mi 
>&#x03BB;</mi></mrow><mrow 
>
<mi 
>j</mi></mrow><mrow 
><mi 
>m</mi></mrow></msubsup 
></mrow></mfenced> </mrow><mrow 
><mo 
class="MathClass-rel">&#x2223;</mo><mi 
>A</mi><mo 
class="MathClass-rel">&#x2223;</mo></mrow></msup 
><mo 
class="MathClass-punc">.</mo>
</math>
<!--l. 746--><p class="nopar"></p></td><td class="eq-no">(4.12)</td></tr></table>
Note also that one only needs to compute the cumulants
<!--l. 747--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><msub><mrow 
><mi 
>&#x03BA;</mi></mrow><mrow 
><mi 
>m</mi></mrow></msub 
><mrow><mo 
class="MathClass-open">(</mo><mrow><mi 
>b</mi></mrow><mo 
class="MathClass-close">)</mo></mrow></math>&#x2019;s for the

case <!--l. 748--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mo 
class="MathClass-rel">&#x2223;</mo><mi 
>A</mi><mo 
class="MathClass-rel">&#x2223;</mo> <mo 
class="MathClass-rel">=</mo> <mn>1</mn></math>
since <table class="equation"><tr><td> <a 
  name="x1-29020r13"></a>
<!--l. 749--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="display">
                       <msub><mrow 
><mi 
>&#x03BA;</mi></mrow><mrow 
><mi 
>m</mi><mo 
class="MathClass-punc">,</mo><mi 
>A</mi></mrow></msub 
><mrow><mo 
class="MathClass-open">(</mo><mrow><mi 
>b</mi></mrow><mo 
class="MathClass-close">)</mo></mrow> <mo 
class="MathClass-rel">=</mo><msup><mrow 
> <mfenced separators="" 
open="["  close="]" ><mrow><msub><mrow 
><mi 
>&#x03BA;</mi></mrow><mrow 
><mi 
>m</mi></mrow></msub 
><mrow><mo 
class="MathClass-open">(</mo><mrow><mi 
>b</mi></mrow><mo 
class="MathClass-close">)</mo></mrow></mrow></mfenced> </mrow><mrow 
><mo 
class="MathClass-rel">&#x2223;</mo><mi 
>A</mi><mo 
class="MathClass-rel">&#x2223;</mo></mrow></msup 
><msup><mrow 
><mfenced separators="" 
open="["  close="]" ><mrow><mrow><mo 
class="MathClass-open">(</mo><mrow><mi 
>m</mi> <mo 
class="MathClass-bin">&#x2212;</mo> <mn>1</mn></mrow><mo 
class="MathClass-close">)</mo></mrow><mi 
>!</mi></mrow></mfenced> </mrow><mrow 
><mn>1</mn><mo 
class="MathClass-bin">&#x2212;</mo><mo 
class="MathClass-rel">&#x2223;</mo><mi 
>A</mi><mo 
class="MathClass-rel">&#x2223;</mo></mrow></msup 
><mo 
class="MathClass-punc">.</mo>
</math>
<!--l. 751--><p class="nopar"></p></td><td class="eq-no">(4.13)</td></tr></table>
The CF&#x2019;s used here are not the only one available to obtain estimates
<!--l. 753--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><msub><mrow 
><mover 
accent="true"><mrow 
><mi 
>&#x03BB;</mi></mrow><mo 
class="MathClass-op">&#x0302;</mo></mover></mrow><mrow 
><mi 
>j</mi></mrow></msub 
></math> of the
<!--l. 753--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><msub><mrow 
><mi 
>&#x03BB;</mi></mrow><mrow 
><mi 
>j</mi></mrow></msub 
></math>&#x2019;s. A
good choice is one that minimises <table class="equation"><tr><td> <a 
  name="x1-29021r14"></a>
<!--l. 755--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="display">
                        <mo 
class="MathClass-rel">&#x2223;</mo><msub><mrow 
><mi 
>&#x03BA;</mi></mrow><mrow 
><mi 
>m</mi></mrow></msub 
><mrow><mo 
class="MathClass-open">(</mo><mrow><mi 
>b</mi></mrow><mo 
class="MathClass-close">)</mo></mrow> <mo 
class="MathClass-bin">&#x2212;</mo> <mrow><mo 
class="MathClass-open">(</mo><mrow><mi 
>m</mi> <mo 
class="MathClass-bin">&#x2212;</mo> <mn>1</mn></mrow><mo 
class="MathClass-close">)</mo></mrow><mi 
>!</mi><msubsup><mrow 
> <mo 
class="MathClass-op">&#x2211;</mo>
  </mrow><mrow 
><mi 
>j</mi><mo 
class="MathClass-rel">=</mo><mn>1</mn></mrow><mrow 
><mi 
>&#x221E;</mi></mrow></msubsup 
><msubsup><mrow 
><mover 
accent="true"><mrow 
><mi 
>&#x03BB;</mi></mrow><mo 
class="MathClass-op">&#x0302;</mo></mover></mrow><mrow 
>
<mi 
>j</mi></mrow><mrow 
><mi 
>m</mi></mrow></msubsup 
><mo 
class="MathClass-rel">&#x2223;</mo><mo 
class="MathClass-punc">.</mo>
</math>
<!--l. 757--><p class="nopar"></p></td><td class="eq-no">(4.14)</td></tr></table>
See Cools (1999)(<a 
  name="dx1-29022"></a><a 
href="#X1999Cools21bilo">6</a>) and Cools and Rabinowitz (1993)(<a 
  name="dx1-29023"></a><a 
href="#X1993Cools309bilo">7</a>) for a comprehensive list of
such formulas.
<br class="newline" />Table <a 
href="#x1-290241">4.1<!--tex4ht:ref: critvalues --></a> provides an approximation of the cut-off values obtained from the
Cornish Fisher asymptotic expansion based on the first six cumulants, for
<!--l. 762--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mi 
>b</mi> <mo 
class="MathClass-rel">=</mo> <mn>0</mn><mo 
class="MathClass-punc">.</mo><mn>1</mn></math>.

<a 
  name="x1-290241"></a>
   <hr class="float" /><div align="center" class="float" 
><table class="float"><tr class="float"><td class="float" 
>

     <div align="center" class="caption"><table class="caption" 
><tr valign="baseline" class="caption"><td class="id"><span 
class="eccc-1200">T<small 
class="small-caps">A</small><small 
class="small-caps">B</small>.</span>&#x00A0;4.1:       </td><td  
class="content">Critical       Values       of       the       Distribution       of
<!--l. 766--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><msub><mrow 
><mi 
>T</mi></mrow><mrow 
><mi 
>b</mi><mo 
class="MathClass-punc">,</mo><mi 
>A</mi></mrow></msub 
></math>
for <!--l. 766--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mi 
>b</mi> <mo 
class="MathClass-rel">=</mo> <mn>0</mn><mo 
class="MathClass-punc">.</mo><mn>1</mn></math>.</td></tr></table></div><!--tex4ht:label?: x1-290241 -->
<div class="tabular"><table class="tabular" 
cellspacing="0pt" cellpadding="0" rules="groups" 
frame="border" id="TBL-22-" ><colgroup id="TBL-22-1g"><col 
id="TBL-22-1" /></colgroup><colgroup id="TBL-22-2g"><col 
id="TBL-22-2" /></colgroup><colgroup id="TBL-22-3g"><col 
id="TBL-22-3" /></colgroup><colgroup id="TBL-22-4g"><col 
id="TBL-22-4" /></colgroup><colgroup id="TBL-22-5g"><col 
id="TBL-22-5" /></colgroup><colgroup id="TBL-22-6g"><col 
id="TBL-22-6" /></colgroup><colgroup id="TBL-22-7g"><col 
id="TBL-22-7" /></colgroup><tr 
class="hline"><td><hr /></td><td><hr /></td><td><hr /></td><td><hr /></td><td><hr /></td><td><hr /></td><td><hr /></td></tr><tr  
 valign="baseline" id="TBL-22-1-"><td  align="center" nowrap="nowrap" id="TBL-22-1-1"  
class="td11">                                                                                                                                                  </td><td colspan="3" align="center" nowrap="nowrap" id="TBL-22-1-2"  
class="td11">                   <div class="multicolumn"  align="center" nowrap="nowrap"><span 
class="ecrm-0800">q=2</span></div>         </td><td colspan="3" align="center" nowrap="nowrap" id="TBL-22-1-5"  
class="td11">                  <div class="multicolumn"  align="center" nowrap="nowrap"><span 
class="ecrm-0800">q=3</span></div>
</td></tr><tr 
class="cline"><td></td><td><hr /></td><td><hr /></td><td><hr /></td><td><hr /></td><td><hr /></td><td><hr /></td></tr><tr  
 valign="baseline" id="TBL-22-2-"><td  align="center" nowrap="nowrap" id="TBL-22-2-1"  
class="td11"><!--l. 773--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mfrac linethickness="0"><mrow><mn>1</mn><mo 
class="MathClass-bin">&#x2212;</mo><mi 
>&#x03B1;</mi></mrow>
   <mrow></mrow></mfrac>   </math></td><td  align="center" nowrap="nowrap" id="TBL-22-2-2"  
class="td11">   <span 
class="ecrm-0800">k=2   </span></td><td  align="center" nowrap="nowrap" id="TBL-22-2-3"  
class="td11">   <span 
class="ecrm-0800">k=3   </span></td><td  align="center" nowrap="nowrap" id="TBL-22-2-4"  
class="td11">   <span 
class="ecrm-0800">k=4   </span></td><td  align="center" nowrap="nowrap" id="TBL-22-2-5"  
class="td11">  <span 
class="ecrm-0800">k=2  </span></td><td  align="center" nowrap="nowrap" id="TBL-22-2-6"  
class="td11">   <span 
class="ecrm-0800">k=3   </span></td><td  align="center" nowrap="nowrap" id="TBL-22-2-7"  
class="td11">   <span 
class="ecrm-0800">k=4   </span></td>
</tr><tr 
class="hline"><td><hr /></td><td><hr /></td><td><hr /></td><td><hr /></td><td><hr /></td><td><hr /></td><td><hr /></td></tr><tr  
 valign="baseline" id="TBL-22-3-"><td  align="center" nowrap="nowrap" id="TBL-22-3-1"  
class="td11">                                                                     <span 
class="ecrm-0800">0.900                                                                     </span></td><td  align="center" nowrap="nowrap" id="TBL-22-3-2"  
class="td11"><span 
class="ecrm-0800">0.000733</span></td><td  align="center" nowrap="nowrap" id="TBL-22-3-3"  
class="td11"><span 
class="ecrm-0800">1.230e-05</span></td><td  align="center" nowrap="nowrap" id="TBL-22-3-4"  
class="td11"><span 
class="ecrm-0800">2.122e-07</span></td><td  align="center" nowrap="nowrap" id="TBL-22-3-5"  
class="td11"><span 
class="ecrm-0800">0.00137</span></td><td  align="center" nowrap="nowrap" id="TBL-22-3-6"  
class="td11"><span 
class="ecrm-0800">3.347e-05</span></td><td  align="center" nowrap="nowrap" id="TBL-22-3-7"  
class="td11"><span 
class="ecrm-0800">8.707e-07</span></td>
</tr><tr  
 valign="baseline" id="TBL-22-4-"><td  align="center" nowrap="nowrap" id="TBL-22-4-1"  
class="td11">                                                                     <span 
class="ecrm-0800">0.905                                                                     </span></td><td  align="center" nowrap="nowrap" id="TBL-22-4-2"  
class="td11"><span 
class="ecrm-0800">0.000745</span></td><td  align="center" nowrap="nowrap" id="TBL-22-4-3"  
class="td11"><span 
class="ecrm-0800">1.244e-05</span></td><td  align="center" nowrap="nowrap" id="TBL-22-4-4"  
class="td11"><span 
class="ecrm-0800">2.140e-07</span></td><td  align="center" nowrap="nowrap" id="TBL-22-4-5"  
class="td11"><span 
class="ecrm-0800">0.00138</span></td><td  align="center" nowrap="nowrap" id="TBL-22-4-6"  
class="td11"><span 
class="ecrm-0800">3.370e-05</span></td><td  align="center" nowrap="nowrap" id="TBL-22-4-7"  
class="td11"><span 
class="ecrm-0800">8.741e-07</span></td>
</tr><tr  
 valign="baseline" id="TBL-22-5-"><td  align="center" nowrap="nowrap" id="TBL-22-5-1"  
class="td11">                                                                     <span 
class="ecrm-0800">0.910                                                                     </span></td><td  align="center" nowrap="nowrap" id="TBL-22-5-2"  
class="td11"><span 
class="ecrm-0800">0.000758</span></td><td  align="center" nowrap="nowrap" id="TBL-22-5-3"  
class="td11"><span 
class="ecrm-0800">1.260e-05</span></td><td  align="center" nowrap="nowrap" id="TBL-22-5-4"  
class="td11"><span 
class="ecrm-0800">2.159e-07</span></td><td  align="center" nowrap="nowrap" id="TBL-22-5-5"  
class="td11"><span 
class="ecrm-0800">0.00140</span></td><td  align="center" nowrap="nowrap" id="TBL-22-5-6"  
class="td11"><span 
class="ecrm-0800">3.393e-05</span></td><td  align="center" nowrap="nowrap" id="TBL-22-5-7"  
class="td11"><span 
class="ecrm-0800">8.777e-07</span></td>
</tr><tr  
 valign="baseline" id="TBL-22-6-"><td  align="center" nowrap="nowrap" id="TBL-22-6-1"  
class="td11">                                                                     <span 
class="ecrm-0800">0.915                                                                     </span></td><td  align="center" nowrap="nowrap" id="TBL-22-6-2"  
class="td11"><span 
class="ecrm-0800">0.000771</span></td><td  align="center" nowrap="nowrap" id="TBL-22-6-3"  
class="td11"><span 
class="ecrm-0800">1.276e-05</span></td><td  align="center" nowrap="nowrap" id="TBL-22-6-4"  
class="td11"><span 
class="ecrm-0800">2.179e-07</span></td><td  align="center" nowrap="nowrap" id="TBL-22-6-5"  
class="td11"><span 
class="ecrm-0800">0.00142</span></td><td  align="center" nowrap="nowrap" id="TBL-22-6-6"  
class="td11"><span 
class="ecrm-0800">3.418e-05</span></td><td  align="center" nowrap="nowrap" id="TBL-22-6-7"  
class="td11"><span 
class="ecrm-0800">8.815e-07</span></td>
</tr><tr  
 valign="baseline" id="TBL-22-7-"><td  align="center" nowrap="nowrap" id="TBL-22-7-1"  
class="td11">                                                                     <span 
class="ecrm-0800">0.920                                                                     </span></td><td  align="center" nowrap="nowrap" id="TBL-22-7-2"  
class="td11"><span 
class="ecrm-0800">0.000785</span></td><td  align="center" nowrap="nowrap" id="TBL-22-7-3"  
class="td11"><span 
class="ecrm-0800">1.293e-05</span></td><td  align="center" nowrap="nowrap" id="TBL-22-7-4"  
class="td11"><span 
class="ecrm-0800">2.200e-07</span></td><td  align="center" nowrap="nowrap" id="TBL-22-7-5"  
class="td11"><span 
class="ecrm-0800">0.00143</span></td><td  align="center" nowrap="nowrap" id="TBL-22-7-6"  
class="td11"><span 
class="ecrm-0800">3.444e-05</span></td><td  align="center" nowrap="nowrap" id="TBL-22-7-7"  
class="td11"><span 
class="ecrm-0800">8.854e-07</span></td>
</tr><tr  
 valign="baseline" id="TBL-22-8-"><td  align="center" nowrap="nowrap" id="TBL-22-8-1"  
class="td11">                                                                     <span 
class="ecrm-0800">0.925                                                                     </span></td><td  align="center" nowrap="nowrap" id="TBL-22-8-2"  
class="td11"><span 
class="ecrm-0800">0.000800</span></td><td  align="center" nowrap="nowrap" id="TBL-22-8-3"  
class="td11"><span 
class="ecrm-0800">1.311e-05</span></td><td  align="center" nowrap="nowrap" id="TBL-22-8-4"  
class="td11"><span 
class="ecrm-0800">2.222e-07</span></td><td  align="center" nowrap="nowrap" id="TBL-22-8-5"  
class="td11"><span 
class="ecrm-0800">0.00145</span></td><td  align="center" nowrap="nowrap" id="TBL-22-8-6"  
class="td11"><span 
class="ecrm-0800">3.472e-05</span></td><td  align="center" nowrap="nowrap" id="TBL-22-8-7"  
class="td11"><span 
class="ecrm-0800">8.896e-07</span></td>
</tr><tr  
 valign="baseline" id="TBL-22-9-"><td  align="center" nowrap="nowrap" id="TBL-22-9-1"  
class="td11">                                                                     <span 
class="ecrm-0800">0.930                                                                     </span></td><td  align="center" nowrap="nowrap" id="TBL-22-9-2"  
class="td11"><span 
class="ecrm-0800">0.000815</span></td><td  align="center" nowrap="nowrap" id="TBL-22-9-3"  
class="td11"><span 
class="ecrm-0800">1.330e-05</span></td><td  align="center" nowrap="nowrap" id="TBL-22-9-4"  
class="td11"><span 
class="ecrm-0800">2.246e-07</span></td><td  align="center" nowrap="nowrap" id="TBL-22-9-5"  
class="td11"><span 
class="ecrm-0800">0.00147</span></td><td  align="center" nowrap="nowrap" id="TBL-22-9-6"  
class="td11"><span 
class="ecrm-0800">3.501e-05</span></td><td  align="center" nowrap="nowrap" id="TBL-22-9-7"  
class="td11"><span 
class="ecrm-0800">8.939e-07</span></td>
</tr><tr  
 valign="baseline" id="TBL-22-10-"><td  align="center" nowrap="nowrap" id="TBL-22-10-1"  
class="td11">                                                                     <span 
class="ecrm-0800">0.935                                                                     </span></td><td  align="center" nowrap="nowrap" id="TBL-22-10-2"  
class="td11"><span 
class="ecrm-0800">0.000832</span></td><td  align="center" nowrap="nowrap" id="TBL-22-10-3"  
class="td11"><span 
class="ecrm-0800">1.350e-05</span></td><td  align="center" nowrap="nowrap" id="TBL-22-10-4"  
class="td11"><span 
class="ecrm-0800">2.271e-07</span></td><td  align="center" nowrap="nowrap" id="TBL-22-10-5"  
class="td11"><span 
class="ecrm-0800">0.00149</span></td><td  align="center" nowrap="nowrap" id="TBL-22-10-6"  
class="td11"><span 
class="ecrm-0800">3.531e-05</span></td><td  align="center" nowrap="nowrap" id="TBL-22-10-7"  
class="td11"><span 
class="ecrm-0800">8.986e-07</span></td>
</tr><tr  
 valign="baseline" id="TBL-22-11-"><td  align="center" nowrap="nowrap" id="TBL-22-11-1"  
class="td11">                                                                     <span 
class="ecrm-0800">0.940                                                                     </span></td><td  align="center" nowrap="nowrap" id="TBL-22-11-2"  
class="td11"><span 
class="ecrm-0800">0.000850</span></td><td  align="center" nowrap="nowrap" id="TBL-22-11-3"  
class="td11"><span 
class="ecrm-0800">1.372e-05</span></td><td  align="center" nowrap="nowrap" id="TBL-22-11-4"  
class="td11"><span 
class="ecrm-0800">2.298e-07</span></td><td  align="center" nowrap="nowrap" id="TBL-22-11-5"  
class="td11"><span 
class="ecrm-0800">0.00152</span></td><td  align="center" nowrap="nowrap" id="TBL-22-11-6"  
class="td11"><span 
class="ecrm-0800">3.564e-05</span></td><td  align="center" nowrap="nowrap" id="TBL-22-11-7"  
class="td11"><span 
class="ecrm-0800">9.035e-07</span></td>
</tr><tr  
 valign="baseline" id="TBL-22-12-"><td  align="center" nowrap="nowrap" id="TBL-22-12-1"  
class="td11">                                                                     <span 
class="ecrm-0800">0.945                                                                     </span></td><td  align="center" nowrap="nowrap" id="TBL-22-12-2"  
class="td11"><span 
class="ecrm-0800">0.000870</span></td><td  align="center" nowrap="nowrap" id="TBL-22-12-3"  
class="td11"><span 
class="ecrm-0800">1.395e-05</span></td><td  align="center" nowrap="nowrap" id="TBL-22-12-4"  
class="td11"><span 
class="ecrm-0800">2.326e-07</span></td><td  align="center" nowrap="nowrap" id="TBL-22-12-5"  
class="td11"><span 
class="ecrm-0800">0.00154</span></td><td  align="center" nowrap="nowrap" id="TBL-22-12-6"  
class="td11"><span 
class="ecrm-0800">3.600e-05</span></td><td  align="center" nowrap="nowrap" id="TBL-22-12-7"  
class="td11"><span 
class="ecrm-0800">9.088e-07</span></td>
</tr><tr  
 valign="baseline" id="TBL-22-13-"><td  align="center" nowrap="nowrap" id="TBL-22-13-1"  
class="td11">                                                                     <span 
class="ecrm-0800">0.950                                                                     </span></td><td  align="center" nowrap="nowrap" id="TBL-22-13-2"  
class="td11"><span 
class="ecrm-0800">0.000891</span></td><td  align="center" nowrap="nowrap" id="TBL-22-13-3"  
class="td11"><span 
class="ecrm-0800">1.421e-05</span></td><td  align="center" nowrap="nowrap" id="TBL-22-13-4"  
class="td11"><span 
class="ecrm-0800">2.357e-07</span></td><td  align="center" nowrap="nowrap" id="TBL-22-13-5"  
class="td11"><span 
class="ecrm-0800">0.00157</span></td><td  align="center" nowrap="nowrap" id="TBL-22-13-6"  
class="td11"><span 
class="ecrm-0800">3.638e-05</span></td><td  align="center" nowrap="nowrap" id="TBL-22-13-7"  
class="td11"><span 
class="ecrm-0800">9.145e-07</span></td>
</tr><tr  
 valign="baseline" id="TBL-22-14-"><td  align="center" nowrap="nowrap" id="TBL-22-14-1"  
class="td11">                                                                     <span 
class="ecrm-0800">0.955                                                                     </span></td><td  align="center" nowrap="nowrap" id="TBL-22-14-2"  
class="td11"><span 
class="ecrm-0800">0.000915</span></td><td  align="center" nowrap="nowrap" id="TBL-22-14-3"  
class="td11"><span 
class="ecrm-0800">1.449e-05</span></td><td  align="center" nowrap="nowrap" id="TBL-22-14-4"  
class="td11"><span 
class="ecrm-0800">2.392e-07</span></td><td  align="center" nowrap="nowrap" id="TBL-22-14-5"  
class="td11"><span 
class="ecrm-0800">0.00160</span></td><td  align="center" nowrap="nowrap" id="TBL-22-14-6"  
class="td11"><span 
class="ecrm-0800">3.680e-05</span></td><td  align="center" nowrap="nowrap" id="TBL-22-14-7"  
class="td11"><span 
class="ecrm-0800">9.207e-07</span></td>
</tr><tr  
 valign="baseline" id="TBL-22-15-"><td  align="center" nowrap="nowrap" id="TBL-22-15-1"  
class="td11">                                                                     <span 
class="ecrm-0800">0.960                                                                     </span></td><td  align="center" nowrap="nowrap" id="TBL-22-15-2"  
class="td11"><span 
class="ecrm-0800">0.000941</span></td><td  align="center" nowrap="nowrap" id="TBL-22-15-3"  
class="td11"><span 
class="ecrm-0800">1.480e-05</span></td><td  align="center" nowrap="nowrap" id="TBL-22-15-4"  
class="td11"><span 
class="ecrm-0800">2.429e-07</span></td><td  align="center" nowrap="nowrap" id="TBL-22-15-5"  
class="td11"><span 
class="ecrm-0800">0.00163</span></td><td  align="center" nowrap="nowrap" id="TBL-22-15-6"  
class="td11"><span 
class="ecrm-0800">3.726e-05</span></td><td  align="center" nowrap="nowrap" id="TBL-22-15-7"  
class="td11"><span 
class="ecrm-0800">9.275e-07</span></td>
</tr><tr  
 valign="baseline" id="TBL-22-16-"><td  align="center" nowrap="nowrap" id="TBL-22-16-1"  
class="td11">                                                                     <span 
class="ecrm-0800">0.965                                                                     </span></td><td  align="center" nowrap="nowrap" id="TBL-22-16-2"  
class="td11"><span 
class="ecrm-0800">0.000971</span></td><td  align="center" nowrap="nowrap" id="TBL-22-16-3"  
class="td11"><span 
class="ecrm-0800">1.514e-05</span></td><td  align="center" nowrap="nowrap" id="TBL-22-16-4"  
class="td11"><span 
class="ecrm-0800">2.471e-07</span></td><td  align="center" nowrap="nowrap" id="TBL-22-16-5"  
class="td11"><span 
class="ecrm-0800">0.00167</span></td><td  align="center" nowrap="nowrap" id="TBL-22-16-6"  
class="td11"><span 
class="ecrm-0800">3.777e-05</span></td><td  align="center" nowrap="nowrap" id="TBL-22-16-7"  
class="td11"><span 
class="ecrm-0800">9.351e-07</span></td>
</tr><tr  
 valign="baseline" id="TBL-22-17-"><td  align="center" nowrap="nowrap" id="TBL-22-17-1"  
class="td11">                                                                     <span 
class="ecrm-0800">0.970                                                                     </span></td><td  align="center" nowrap="nowrap" id="TBL-22-17-2"  
class="td11"><span 
class="ecrm-0800">0.001005</span></td><td  align="center" nowrap="nowrap" id="TBL-22-17-3"  
class="td11"><span 
class="ecrm-0800">1.554e-05</span></td><td  align="center" nowrap="nowrap" id="TBL-22-17-4"  
class="td11"><span 
class="ecrm-0800">2.519e-07</span></td><td  align="center" nowrap="nowrap" id="TBL-22-17-5"  
class="td11"><span 
class="ecrm-0800">0.00171</span></td><td  align="center" nowrap="nowrap" id="TBL-22-17-6"  
class="td11"><span 
class="ecrm-0800">3.836e-05</span></td><td  align="center" nowrap="nowrap" id="TBL-22-17-7"  
class="td11"><span 
class="ecrm-0800">9.437e-07</span></td>
</tr><tr  
 valign="baseline" id="TBL-22-18-"><td  align="center" nowrap="nowrap" id="TBL-22-18-1"  
class="td11">                                                                     <span 
class="ecrm-0800">0.975                                                                     </span></td><td  align="center" nowrap="nowrap" id="TBL-22-18-2"  
class="td11"><span 
class="ecrm-0800">0.001045</span></td><td  align="center" nowrap="nowrap" id="TBL-22-18-3"  
class="td11"><span 
class="ecrm-0800">1.601e-05</span></td><td  align="center" nowrap="nowrap" id="TBL-22-18-4"  
class="td11"><span 
class="ecrm-0800">2.575e-07</span></td><td  align="center" nowrap="nowrap" id="TBL-22-18-5"  
class="td11"><span 
class="ecrm-0800">0.00176</span></td><td  align="center" nowrap="nowrap" id="TBL-22-18-6"  
class="td11"><span 
class="ecrm-0800">3.904e-05</span></td><td  align="center" nowrap="nowrap" id="TBL-22-18-7"  
class="td11"><span 
class="ecrm-0800">9.537e-07</span></td>
</tr><tr  
 valign="baseline" id="TBL-22-19-"><td  align="center" nowrap="nowrap" id="TBL-22-19-1"  
class="td11">                                                                     <span 
class="ecrm-0800">0.980                                                                     </span></td><td  align="center" nowrap="nowrap" id="TBL-22-19-2"  
class="td11"><span 
class="ecrm-0800">0.001093</span></td><td  align="center" nowrap="nowrap" id="TBL-22-19-3"  
class="td11"><span 
class="ecrm-0800">1.657e-05</span></td><td  align="center" nowrap="nowrap" id="TBL-22-19-4"  
class="td11"><span 
class="ecrm-0800">2.643e-07</span></td><td  align="center" nowrap="nowrap" id="TBL-22-19-5"  
class="td11"><span 
class="ecrm-0800">0.00182</span></td><td  align="center" nowrap="nowrap" id="TBL-22-19-6"  
class="td11"><span 
class="ecrm-0800">3.985e-05</span></td><td  align="center" nowrap="nowrap" id="TBL-22-19-7"  
class="td11"><span 
class="ecrm-0800">9.656e-07</span></td>
</tr><tr  
 valign="baseline" id="TBL-22-20-"><td  align="center" nowrap="nowrap" id="TBL-22-20-1"  
class="td11">                                                                     <span 
class="ecrm-0800">0.985                                                                     </span></td><td  align="center" nowrap="nowrap" id="TBL-22-20-2"  
class="td11"><span 
class="ecrm-0800">0.001156</span></td><td  align="center" nowrap="nowrap" id="TBL-22-20-3"  
class="td11"><span 
class="ecrm-0800">1.729e-05</span></td><td  align="center" nowrap="nowrap" id="TBL-22-20-4"  
class="td11"><span 
class="ecrm-0800">2.728e-07</span></td><td  align="center" nowrap="nowrap" id="TBL-22-20-5"  
class="td11"><span 
class="ecrm-0800">0.00190</span></td><td  align="center" nowrap="nowrap" id="TBL-22-20-6"  
class="td11"><span 
class="ecrm-0800">4.088e-05</span></td><td  align="center" nowrap="nowrap" id="TBL-22-20-7"  
class="td11"><span 
class="ecrm-0800">9.805e-07</span></td>
</tr><tr  
 valign="baseline" id="TBL-22-21-"><td  align="center" nowrap="nowrap" id="TBL-22-21-1"  
class="td11">                                                                     <span 
class="ecrm-0800">0.990                                                                     </span></td><td  align="center" nowrap="nowrap" id="TBL-22-21-2"  
class="td11"><span 
class="ecrm-0800">0.001243</span></td><td  align="center" nowrap="nowrap" id="TBL-22-21-3"  
class="td11"><span 
class="ecrm-0800">1.828e-05</span></td><td  align="center" nowrap="nowrap" id="TBL-22-21-4"  
class="td11"><span 
class="ecrm-0800">2.845e-07</span></td><td  align="center" nowrap="nowrap" id="TBL-22-21-5"  
class="td11"><span 
class="ecrm-0800">0.00200</span></td><td  align="center" nowrap="nowrap" id="TBL-22-21-6"  
class="td11"><span 
class="ecrm-0800">4.229e-05</span></td><td  align="center" nowrap="nowrap" id="TBL-22-21-7"  
class="td11"><span 
class="ecrm-0800">1.000e-06</span></td>
</tr><tr  
 valign="baseline" id="TBL-22-22-"><td  align="center" nowrap="nowrap" id="TBL-22-22-1"  
class="td11">                                                                     <span 
class="ecrm-0800">0.995                                                                     </span></td><td  align="center" nowrap="nowrap" id="TBL-22-22-2"  
class="td11"><span 
class="ecrm-0800">0.001390</span></td><td  align="center" nowrap="nowrap" id="TBL-22-22-3"  
class="td11"><span 
class="ecrm-0800">1.994e-05</span></td><td  align="center" nowrap="nowrap" id="TBL-22-22-4"  
class="td11"><span 
class="ecrm-0800">3.039e-07</span></td><td  align="center" nowrap="nowrap" id="TBL-22-22-5"  
class="td11"><span 
class="ecrm-0800">0.00217</span></td><td  align="center" nowrap="nowrap" id="TBL-22-22-6"  
class="td11"><span 
class="ecrm-0800">4.460e-05</span></td><td  align="center" nowrap="nowrap" id="TBL-22-22-7"  
class="td11"><span 
class="ecrm-0800">1.033e-06</span></td>
</tr><tr 
class="hline"><td><hr /></td><td><hr /></td><td><hr /></td><td><hr /></td><td><hr /></td><td><hr /></td><td><hr /></td></tr><tr  
 valign="baseline" id="TBL-22-23-"><td  align="center" nowrap="nowrap" id="TBL-22-23-1"  
class="td11">                                                                                                                                                  </td>
</tr><!--"|c|c|c|c||c|c|c|"--></table>
</div>

   </td></tr></table></div><hr class="endfloat" />


<a 
  name="x1-290252"></a>
   <hr class="float" /><div align="center" class="float" 
><table class="float"><tr class="float"><td class="float" 
>

<div align="center" class="caption"><table class="caption" 
><tr valign="baseline" class="caption"><td class="id"><span 
class="eccc-1200">T<small 
class="small-caps">A</small><small 
class="small-caps">B</small>.</span>&#x00A0;4.2: </td><td  
class="content">Distribution of <!--l. 801--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><msubsup><mrow 
><mi 
>T</mi></mrow><mrow 
><mi 
>b</mi><mo 
class="MathClass-punc">,</mo><mi 
>A</mi></mrow><mrow 
><mo 
class="MathClass-bin">&#x2217;</mo></mrow></msubsup 
></math>
for <!--l. 801--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mi 
>b</mi> <mo 
class="MathClass-rel">=</mo> <mn>0</mn><mo 
class="MathClass-punc">.</mo><mn>1</mn></math>.</td></tr></table></div><!--tex4ht:label?: x1-290252 -->
<div class="tabular"><table class="tabular" 
cellspacing="0pt" cellpadding="0" rules="groups" 
frame="border" id="TBL-23-" ><colgroup id="TBL-23-1g"><col 
id="TBL-23-1" /></colgroup><colgroup id="TBL-23-2g"><col 
id="TBL-23-2" /></colgroup><colgroup id="TBL-23-3g"><col 
id="TBL-23-3" /></colgroup><colgroup id="TBL-23-4g"><col 
id="TBL-23-4" /></colgroup><colgroup id="TBL-23-5g"><col 
id="TBL-23-5" /></colgroup><colgroup id="TBL-23-6g"><col 
id="TBL-23-6" /></colgroup><colgroup id="TBL-23-7g"><col 
id="TBL-23-7" /></colgroup><tr 
class="hline"><td><hr /></td><td><hr /></td><td><hr /></td><td><hr /></td><td><hr /></td><td><hr /></td><td><hr /></td></tr><tr  
 valign="baseline" id="TBL-23-1-"><td  align="center" nowrap="nowrap" id="TBL-23-1-1"  
class="td11"> <span 
class="ecrm-0800">x </span></td><td colspan="3" align="center" nowrap="nowrap" id="TBL-23-1-2"  
class="td11">                                                                                                                                                                                                                            <div class="multicolumn"  align="center" nowrap="nowrap"><span 
class="ecrm-0800">q=2</span></div>                                                                                                                      </td><td colspan="3" align="center" nowrap="nowrap" id="TBL-23-1-5"  
class="td11">                                                                                                                                                                                                                            <div class="multicolumn"  align="center" nowrap="nowrap"><span 
class="ecrm-0800">q=3</span></div>
</td></tr><tr 
class="cline"><td></td><td><hr /></td><td><hr /></td><td><hr /></td><td><hr /></td><td><hr /></td><td><hr /></td></tr><tr  
 valign="baseline" id="TBL-23-2-"><td  align="center" nowrap="nowrap" id="TBL-23-2-1"  
class="td11">    </td><td  align="center" nowrap="nowrap" id="TBL-23-2-2"  
class="td11"><!--l. 809--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mi 
>P</mi><mrow><mo 
class="MathClass-open">[</mo><mrow><msub><mrow 
><mi 
>T</mi></mrow><mrow 
><mi 
>b</mi><mo 
class="MathClass-punc">,</mo><mn>2</mn></mrow></msub 
> <mo 
class="MathClass-rel">&#x2264;</mo> <mi 
>x</mi></mrow><mo 
class="MathClass-close">]</mo></mrow></math></td><td  align="center" nowrap="nowrap" id="TBL-23-2-3"  
class="td11"><!--l. 809--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mi 
>P</mi><mrow><mo 
class="MathClass-open">[</mo><mrow><msub><mrow 
><mi 
>T</mi></mrow><mrow 
><mi 
>b</mi><mo 
class="MathClass-punc">,</mo><mn>3</mn></mrow></msub 
> <mo 
class="MathClass-rel">&#x2264;</mo> <mi 
>x</mi></mrow><mo 
class="MathClass-close">]</mo></mrow></math></td><td  align="center" nowrap="nowrap" id="TBL-23-2-4"  
class="td11"><!--l. 809--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mi 
>P</mi><mrow><mo 
class="MathClass-open">[</mo><mrow><msub><mrow 
><mi 
>T</mi></mrow><mrow 
><mi 
>b</mi><mo 
class="MathClass-punc">,</mo><mn>4</mn></mrow></msub 
> <mo 
class="MathClass-rel">&#x2264;</mo> <mi 
>x</mi></mrow><mo 
class="MathClass-close">]</mo></mrow></math></td><td  align="center" nowrap="nowrap" id="TBL-23-2-5"  
class="td11"><!--l. 809--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mi 
>P</mi><mrow><mo 
class="MathClass-open">[</mo><mrow><msub><mrow 
><mi 
>T</mi></mrow><mrow 
><mi 
>b</mi><mo 
class="MathClass-punc">,</mo><mn>2</mn></mrow></msub 
> <mo 
class="MathClass-rel">&#x2264;</mo> <mi 
>x</mi></mrow><mo 
class="MathClass-close">]</mo></mrow></math></td><td  align="center" nowrap="nowrap" id="TBL-23-2-6"  
class="td11"><!--l. 809--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mi 
>P</mi><mrow><mo 
class="MathClass-open">[</mo><mrow><msub><mrow 
><mi 
>T</mi></mrow><mrow 
><mi 
>b</mi><mo 
class="MathClass-punc">,</mo><mn>3</mn></mrow></msub 
> <mo 
class="MathClass-rel">&#x2264;</mo> <mi 
>x</mi></mrow><mo 
class="MathClass-close">]</mo></mrow></math></td><td  align="center" nowrap="nowrap" id="TBL-23-2-7"  
class="td11"><!--l. 809--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mi 
>P</mi><mrow><mo 
class="MathClass-open">[</mo><mrow><msub><mrow 
><mi 
>T</mi></mrow><mrow 
><mi 
>b</mi><mo 
class="MathClass-punc">,</mo><mn>4</mn></mrow></msub 
> <mo 
class="MathClass-rel">&#x2264;</mo> <mi 
>x</mi></mrow><mo 
class="MathClass-close">]</mo></mrow></math></td>
</tr><tr 
class="hline"><td><hr /></td><td><hr /></td><td><hr /></td><td><hr /></td><td><hr /></td><td><hr /></td><td><hr /></td></tr><tr  
 valign="baseline" id="TBL-23-3-"><td  align="center" nowrap="nowrap" id="TBL-23-3-1"  
class="td11"><span 
class="ecrm-0800">0.0</span></td><td  align="center" nowrap="nowrap" id="TBL-23-3-2"  
class="td11">                                                                     <span 
class="ecrm-0800">0.593                                                                     </span></td><td  align="center" nowrap="nowrap" id="TBL-23-3-3"  
class="td11">                                                                     <span 
class="ecrm-0800">0.566                                                                     </span></td><td  align="center" nowrap="nowrap" id="TBL-23-3-4"  
class="td11">                                                                     <span 
class="ecrm-0800">0.546                                                                     </span></td><td  align="center" nowrap="nowrap" id="TBL-23-3-5"  
class="td11">                                                                     <span 
class="ecrm-0800">0.562                                                                     </span></td><td  align="center" nowrap="nowrap" id="TBL-23-3-6"  
class="td11">                                                                     <span 
class="ecrm-0800">0.536                                                                     </span></td><td  align="center" nowrap="nowrap" id="TBL-23-3-7"  
class="td11">                                                                     <span 
class="ecrm-0800">0.520                                                                     </span></td>
</tr><tr  
 valign="baseline" id="TBL-23-4-"><td  align="center" nowrap="nowrap" id="TBL-23-4-1"  
class="td11"><span 
class="ecrm-0800">0.2</span></td><td  align="center" nowrap="nowrap" id="TBL-23-4-2"  
class="td11">                                                                     <span 
class="ecrm-0800">0.665                                                                     </span></td><td  align="center" nowrap="nowrap" id="TBL-23-4-3"  
class="td11">                                                                     <span 
class="ecrm-0800">0.640                                                                     </span></td><td  align="center" nowrap="nowrap" id="TBL-23-4-4"  
class="td11">                                                                     <span 
class="ecrm-0800">0.622                                                                     </span></td><td  align="center" nowrap="nowrap" id="TBL-23-4-5"  
class="td11">                                                                     <span 
class="ecrm-0800">0.637                                                                     </span></td><td  align="center" nowrap="nowrap" id="TBL-23-4-6"  
class="td11">                                                                     <span 
class="ecrm-0800">0.612                                                                     </span></td><td  align="center" nowrap="nowrap" id="TBL-23-4-7"  
class="td11">                                                                     <span 
class="ecrm-0800">0.598                                                                     </span></td>
</tr><tr  
 valign="baseline" id="TBL-23-5-"><td  align="center" nowrap="nowrap" id="TBL-23-5-1"  
class="td11"><span 
class="ecrm-0800">0.4</span></td><td  align="center" nowrap="nowrap" id="TBL-23-5-2"  
class="td11">                                                                     <span 
class="ecrm-0800">0.725                                                                     </span></td><td  align="center" nowrap="nowrap" id="TBL-23-5-3"  
class="td11">                                                                     <span 
class="ecrm-0800">0.705                                                                     </span></td><td  align="center" nowrap="nowrap" id="TBL-23-5-4"  
class="td11">                                                                     <span 
class="ecrm-0800">0.691                                                                     </span></td><td  align="center" nowrap="nowrap" id="TBL-23-5-5"  
class="td11">                                                                     <span 
class="ecrm-0800">0.702                                                                     </span></td><td  align="center" nowrap="nowrap" id="TBL-23-5-6"  
class="td11">                                                                     <span 
class="ecrm-0800">0.683                                                                     </span></td><td  align="center" nowrap="nowrap" id="TBL-23-5-7"  
class="td11">                                                                     <span 
class="ecrm-0800">0.671                                                                     </span></td>
</tr><tr  
 valign="baseline" id="TBL-23-6-"><td  align="center" nowrap="nowrap" id="TBL-23-6-1"  
class="td11"><span 
class="ecrm-0800">0.6</span></td><td  align="center" nowrap="nowrap" id="TBL-23-6-2"  
class="td11">                                                                     <span 
class="ecrm-0800">0.777                                                                     </span></td><td  align="center" nowrap="nowrap" id="TBL-23-6-3"  
class="td11">                                                                     <span 
class="ecrm-0800">0.761                                                                     </span></td><td  align="center" nowrap="nowrap" id="TBL-23-6-4"  
class="td11">                                                                     <span 
class="ecrm-0800">0.751                                                                     </span></td><td  align="center" nowrap="nowrap" id="TBL-23-6-5"  
class="td11">                                                                     <span 
class="ecrm-0800">0.759                                                                     </span></td><td  align="center" nowrap="nowrap" id="TBL-23-6-6"  
class="td11">                                                                     <span 
class="ecrm-0800">0.745                                                                     </span></td><td  align="center" nowrap="nowrap" id="TBL-23-6-7"  
class="td11">                                                                     <span 
class="ecrm-0800">0.737                                                                     </span></td>
</tr><tr  
 valign="baseline" id="TBL-23-7-"><td  align="center" nowrap="nowrap" id="TBL-23-7-1"  
class="td11"><span 
class="ecrm-0800">0.8</span></td><td  align="center" nowrap="nowrap" id="TBL-23-7-2"  
class="td11">                                                                     <span 
class="ecrm-0800">0.819                                                                     </span></td><td  align="center" nowrap="nowrap" id="TBL-23-7-3"  
class="td11">                                                                     <span 
class="ecrm-0800">0.809                                                                     </span></td><td  align="center" nowrap="nowrap" id="TBL-23-7-4"  
class="td11">                                                                     <span 
class="ecrm-0800">0.802                                                                     </span></td><td  align="center" nowrap="nowrap" id="TBL-23-7-5"  
class="td11">                                                                     <span 
class="ecrm-0800">0.807                                                                     </span></td><td  align="center" nowrap="nowrap" id="TBL-23-7-6"  
class="td11">                                                                     <span 
class="ecrm-0800">0.798                                                                     </span></td><td  align="center" nowrap="nowrap" id="TBL-23-7-7"  
class="td11">                                                                     <span 
class="ecrm-0800">0.794                                                                     </span></td>
</tr><tr  
 valign="baseline" id="TBL-23-8-"><td  align="center" nowrap="nowrap" id="TBL-23-8-1"  
class="td11"><span 
class="ecrm-0800">1.0</span></td><td  align="center" nowrap="nowrap" id="TBL-23-8-2"  
class="td11">                                                                     <span 
class="ecrm-0800">0.854                                                                     </span></td><td  align="center" nowrap="nowrap" id="TBL-23-8-3"  
class="td11">                                                                     <span 
class="ecrm-0800">0.848                                                                     </span></td><td  align="center" nowrap="nowrap" id="TBL-23-8-4"  
class="td11">                                                                     <span 
class="ecrm-0800">0.845                                                                     </span></td><td  align="center" nowrap="nowrap" id="TBL-23-8-5"  
class="td11">                                                                     <span 
class="ecrm-0800">0.848                                                                     </span></td><td  align="center" nowrap="nowrap" id="TBL-23-8-6"  
class="td11">                                                                     <span 
class="ecrm-0800">0.843                                                                     </span></td><td  align="center" nowrap="nowrap" id="TBL-23-8-7"  
class="td11">                                                                     <span 
class="ecrm-0800">0.842                                                                     </span></td>
</tr><tr  
 valign="baseline" id="TBL-23-9-"><td  align="center" nowrap="nowrap" id="TBL-23-9-1"  
class="td11"><span 
class="ecrm-0800">1.2</span></td><td  align="center" nowrap="nowrap" id="TBL-23-9-2"  
class="td11">                                                                     <span 
class="ecrm-0800">0.883                                                                     </span></td><td  align="center" nowrap="nowrap" id="TBL-23-9-3"  
class="td11">                                                                     <span 
class="ecrm-0800">0.881                                                                     </span></td><td  align="center" nowrap="nowrap" id="TBL-23-9-4"  
class="td11">                                                                     <span 
class="ecrm-0800">0.880                                                                     </span></td><td  align="center" nowrap="nowrap" id="TBL-23-9-5"  
class="td11">                                                                     <span 
class="ecrm-0800">0.880                                                                     </span></td><td  align="center" nowrap="nowrap" id="TBL-23-9-6"  
class="td11">                                                                     <span 
class="ecrm-0800">0.880                                                                     </span></td><td  align="center" nowrap="nowrap" id="TBL-23-9-7"  
class="td11">                                                                     <span 
class="ecrm-0800">0.881                                                                     </span></td>
</tr><tr  
 valign="baseline" id="TBL-23-10-"><td  align="center" nowrap="nowrap" id="TBL-23-10-1"  
class="td11"><span 
class="ecrm-0800">1.4</span></td><td  align="center" nowrap="nowrap" id="TBL-23-10-2"  
class="td11">                                                                     <span 
class="ecrm-0800">0.906                                                                     </span></td><td  align="center" nowrap="nowrap" id="TBL-23-10-3"  
class="td11">                                                                     <span 
class="ecrm-0800">0.907                                                                     </span></td><td  align="center" nowrap="nowrap" id="TBL-23-10-4"  
class="td11">                                                                     <span 
class="ecrm-0800">0.908                                                                     </span></td><td  align="center" nowrap="nowrap" id="TBL-23-10-5"  
class="td11">                                                                     <span 
class="ecrm-0800">0.907                                                                     </span></td><td  align="center" nowrap="nowrap" id="TBL-23-10-6"  
class="td11">                                                                     <span 
class="ecrm-0800">0.910                                                                     </span></td><td  align="center" nowrap="nowrap" id="TBL-23-10-7"  
class="td11">                                                                     <span 
class="ecrm-0800">0.913                                                                     </span></td>
</tr><tr  
 valign="baseline" id="TBL-23-11-"><td  align="center" nowrap="nowrap" id="TBL-23-11-1"  
class="td11"><span 
class="ecrm-0800">1.6</span></td><td  align="center" nowrap="nowrap" id="TBL-23-11-2"  
class="td11">                                                                     <span 
class="ecrm-0800">0.925                                                                     </span></td><td  align="center" nowrap="nowrap" id="TBL-23-11-3"  
class="td11">                                                                     <span 
class="ecrm-0800">0.928                                                                     </span></td><td  align="center" nowrap="nowrap" id="TBL-23-11-4"  
class="td11">                                                                     <span 
class="ecrm-0800">0.931                                                                     </span></td><td  align="center" nowrap="nowrap" id="TBL-23-11-5"  
class="td11">                                                                     <span 
class="ecrm-0800">0.928                                                                     </span></td><td  align="center" nowrap="nowrap" id="TBL-23-11-6"  
class="td11">                                                                     <span 
class="ecrm-0800">0.933                                                                     </span></td><td  align="center" nowrap="nowrap" id="TBL-23-11-7"  
class="td11">                                                                     <span 
class="ecrm-0800">0.937                                                                     </span></td>
</tr><tr  
 valign="baseline" id="TBL-23-12-"><td  align="center" nowrap="nowrap" id="TBL-23-12-1"  
class="td11"><span 
class="ecrm-0800">1.8</span></td><td  align="center" nowrap="nowrap" id="TBL-23-12-2"  
class="td11">                                                                     <span 
class="ecrm-0800">0.941                                                                     </span></td><td  align="center" nowrap="nowrap" id="TBL-23-12-3"  
class="td11">                                                                     <span 
class="ecrm-0800">0.944                                                                     </span></td><td  align="center" nowrap="nowrap" id="TBL-23-12-4"  
class="td11">                                                                     <span 
class="ecrm-0800">0.948                                                                     </span></td><td  align="center" nowrap="nowrap" id="TBL-23-12-5"  
class="td11">                                                                     <span 
class="ecrm-0800">0.945                                                                     </span></td><td  align="center" nowrap="nowrap" id="TBL-23-12-6"  
class="td11">                                                                     <span 
class="ecrm-0800">0.951                                                                     </span></td><td  align="center" nowrap="nowrap" id="TBL-23-12-7"  
class="td11">                                                                     <span 
class="ecrm-0800">0.955                                                                     </span></td>
</tr><tr  
 valign="baseline" id="TBL-23-13-"><td  align="center" nowrap="nowrap" id="TBL-23-13-1"  
class="td11"><span 
class="ecrm-0800">2.0</span></td><td  align="center" nowrap="nowrap" id="TBL-23-13-2"  
class="td11">                                                                     <span 
class="ecrm-0800">0.953                                                                     </span></td><td  align="center" nowrap="nowrap" id="TBL-23-13-3"  
class="td11">                                                                     <span 
class="ecrm-0800">0.957                                                                     </span></td><td  align="center" nowrap="nowrap" id="TBL-23-13-4"  
class="td11">                                                                     <span 
class="ecrm-0800">0.961                                                                     </span></td><td  align="center" nowrap="nowrap" id="TBL-23-13-5"  
class="td11">                                                                     <span 
class="ecrm-0800">0.958                                                                     </span></td><td  align="center" nowrap="nowrap" id="TBL-23-13-6"  
class="td11">                                                                     <span 
class="ecrm-0800">0.964                                                                     </span></td><td  align="center" nowrap="nowrap" id="TBL-23-13-7"  
class="td11">                                                                     <span 
class="ecrm-0800">0.969                                                                     </span></td>
</tr><tr  
 valign="baseline" id="TBL-23-14-"><td  align="center" nowrap="nowrap" id="TBL-23-14-1"  
class="td11"><span 
class="ecrm-0800">2.2</span></td><td  align="center" nowrap="nowrap" id="TBL-23-14-2"  
class="td11">                                                                     <span 
class="ecrm-0800">0.963                                                                     </span></td><td  align="center" nowrap="nowrap" id="TBL-23-14-3"  
class="td11">                                                                     <span 
class="ecrm-0800">0.967                                                                     </span></td><td  align="center" nowrap="nowrap" id="TBL-23-14-4"  
class="td11">                                                                     <span 
class="ecrm-0800">0.972                                                                     </span></td><td  align="center" nowrap="nowrap" id="TBL-23-14-5"  
class="td11">                                                                     <span 
class="ecrm-0800">0.968                                                                     </span></td><td  align="center" nowrap="nowrap" id="TBL-23-14-6"  
class="td11">                                                                     <span 
class="ecrm-0800">0.974                                                                     </span></td><td  align="center" nowrap="nowrap" id="TBL-23-14-7"  
class="td11">                                                                     <span 
class="ecrm-0800">0.979                                                                     </span></td>
</tr><tr  
 valign="baseline" id="TBL-23-15-"><td  align="center" nowrap="nowrap" id="TBL-23-15-1"  
class="td11"><span 
class="ecrm-0800">2.4</span></td><td  align="center" nowrap="nowrap" id="TBL-23-15-2"  
class="td11">                                                                     <span 
class="ecrm-0800">0.970                                                                     </span></td><td  align="center" nowrap="nowrap" id="TBL-23-15-3"  
class="td11">                                                                     <span 
class="ecrm-0800">0.975                                                                     </span></td><td  align="center" nowrap="nowrap" id="TBL-23-15-4"  
class="td11">                                                                     <span 
class="ecrm-0800">0.979                                                                     </span></td><td  align="center" nowrap="nowrap" id="TBL-23-15-5"  
class="td11">                                                                     <span 
class="ecrm-0800">0.976                                                                     </span></td><td  align="center" nowrap="nowrap" id="TBL-23-15-6"  
class="td11">                                                                     <span 
class="ecrm-0800">0.982                                                                     </span></td><td  align="center" nowrap="nowrap" id="TBL-23-15-7"  
class="td11">                                                                     <span 
class="ecrm-0800">0.986                                                                     </span></td>
</tr><tr  
 valign="baseline" id="TBL-23-16-"><td  align="center" nowrap="nowrap" id="TBL-23-16-1"  
class="td11"><span 
class="ecrm-0800">2.6</span></td><td  align="center" nowrap="nowrap" id="TBL-23-16-2"  
class="td11">                                                                     <span 
class="ecrm-0800">0.977                                                                     </span></td><td  align="center" nowrap="nowrap" id="TBL-23-16-3"  
class="td11">                                                                     <span 
class="ecrm-0800">0.981                                                                     </span></td><td  align="center" nowrap="nowrap" id="TBL-23-16-4"  
class="td11">                                                                     <span 
class="ecrm-0800">0.985                                                                     </span></td><td  align="center" nowrap="nowrap" id="TBL-23-16-5"  
class="td11">                                                                     <span 
class="ecrm-0800">0.982                                                                     </span></td><td  align="center" nowrap="nowrap" id="TBL-23-16-6"  
class="td11">                                                                     <span 
class="ecrm-0800">0.987                                                                     </span></td><td  align="center" nowrap="nowrap" id="TBL-23-16-7"  
class="td11">                                                                     <span 
class="ecrm-0800">0.990                                                                     </span></td>
</tr><tr  
 valign="baseline" id="TBL-23-17-"><td  align="center" nowrap="nowrap" id="TBL-23-17-1"  
class="td11"><span 
class="ecrm-0800">2.8</span></td><td  align="center" nowrap="nowrap" id="TBL-23-17-2"  
class="td11">                                                                     <span 
class="ecrm-0800">0.982                                                                     </span></td><td  align="center" nowrap="nowrap" id="TBL-23-17-3"  
class="td11">                                                                     <span 
class="ecrm-0800">0.986                                                                     </span></td><td  align="center" nowrap="nowrap" id="TBL-23-17-4"  
class="td11">                                                                     <span 
class="ecrm-0800">0.989                                                                     </span></td><td  align="center" nowrap="nowrap" id="TBL-23-17-5"  
class="td11">                                                                     <span 
class="ecrm-0800">0.986                                                                     </span></td><td  align="center" nowrap="nowrap" id="TBL-23-17-6"  
class="td11">                                                                     <span 
class="ecrm-0800">0.991                                                                     </span></td><td  align="center" nowrap="nowrap" id="TBL-23-17-7"  
class="td11">                                                                     <span 
class="ecrm-0800">0.994                                                                     </span></td>
</tr><tr  
 valign="baseline" id="TBL-23-18-"><td  align="center" nowrap="nowrap" id="TBL-23-18-1"  
class="td11"><span 
class="ecrm-0800">3.0</span></td><td  align="center" nowrap="nowrap" id="TBL-23-18-2"  
class="td11">                                                                     <span 
class="ecrm-0800">0.985                                                                     </span></td><td  align="center" nowrap="nowrap" id="TBL-23-18-3"  
class="td11">                                                                     <span 
class="ecrm-0800">0.989                                                                     </span></td><td  align="center" nowrap="nowrap" id="TBL-23-18-4"  
class="td11">                                                                     <span 
class="ecrm-0800">0.992                                                                     </span></td><td  align="center" nowrap="nowrap" id="TBL-23-18-5"  
class="td11">                                                                     <span 
class="ecrm-0800">0.990                                                                     </span></td><td  align="center" nowrap="nowrap" id="TBL-23-18-6"  
class="td11">                                                                     <span 
class="ecrm-0800">0.994                                                                     </span></td><td  align="center" nowrap="nowrap" id="TBL-23-18-7"  
class="td11">                                                                     <span 
class="ecrm-0800">0.996                                                                     </span></td>
</tr><tr  
 valign="baseline" id="TBL-23-19-"><td  align="center" nowrap="nowrap" id="TBL-23-19-1"  
class="td11"><span 
class="ecrm-0800">3.2</span></td><td  align="center" nowrap="nowrap" id="TBL-23-19-2"  
class="td11">                                                                     <span 
class="ecrm-0800">0.988                                                                     </span></td><td  align="center" nowrap="nowrap" id="TBL-23-19-3"  
class="td11">                                                                     <span 
class="ecrm-0800">0.992                                                                     </span></td><td  align="center" nowrap="nowrap" id="TBL-23-19-4"  
class="td11">                                                                     <span 
class="ecrm-0800">0.994                                                                     </span></td><td  align="center" nowrap="nowrap" id="TBL-23-19-5"  
class="td11">                                                                     <span 
class="ecrm-0800">0.992                                                                     </span></td><td  align="center" nowrap="nowrap" id="TBL-23-19-6"  
class="td11">                                                                     <span 
class="ecrm-0800">0.996                                                                     </span></td><td  align="center" nowrap="nowrap" id="TBL-23-19-7"  
class="td11">                                                                     <span 
class="ecrm-0800">0.997                                                                     </span></td>
</tr><tr  
 valign="baseline" id="TBL-23-20-"><td  align="center" nowrap="nowrap" id="TBL-23-20-1"  
class="td11"><span 
class="ecrm-0800">3.4</span></td><td  align="center" nowrap="nowrap" id="TBL-23-20-2"  
class="td11">                                                                     <span 
class="ecrm-0800">0.991                                                                     </span></td><td  align="center" nowrap="nowrap" id="TBL-23-20-3"  
class="td11">                                                                     <span 
class="ecrm-0800">0.994                                                                     </span></td><td  align="center" nowrap="nowrap" id="TBL-23-20-4"  
class="td11">                                                                     <span 
class="ecrm-0800">0.996                                                                     </span></td><td  align="center" nowrap="nowrap" id="TBL-23-20-5"  
class="td11">                                                                     <span 
class="ecrm-0800">0.994                                                                     </span></td><td  align="center" nowrap="nowrap" id="TBL-23-20-6"  
class="td11">                                                                     <span 
class="ecrm-0800">0.997                                                                     </span></td><td  align="center" nowrap="nowrap" id="TBL-23-20-7"  
class="td11">                                                                     <span 
class="ecrm-0800">0.998                                                                     </span></td>
</tr><tr  
 valign="baseline" id="TBL-23-21-"><td  align="center" nowrap="nowrap" id="TBL-23-21-1"  
class="td11"><span 
class="ecrm-0800">3.6</span></td><td  align="center" nowrap="nowrap" id="TBL-23-21-2"  
class="td11">                                                                     <span 
class="ecrm-0800">0.993                                                                     </span></td><td  align="center" nowrap="nowrap" id="TBL-23-21-3"  
class="td11">                                                                     <span 
class="ecrm-0800">0.995                                                                     </span></td><td  align="center" nowrap="nowrap" id="TBL-23-21-4"  
class="td11">                                                                     <span 
class="ecrm-0800">0.997                                                                     </span></td><td  align="center" nowrap="nowrap" id="TBL-23-21-5"  
class="td11">                                                                     <span 
class="ecrm-0800">0.996                                                                     </span></td><td  align="center" nowrap="nowrap" id="TBL-23-21-6"  
class="td11">                                                                     <span 
class="ecrm-0800">0.998                                                                     </span></td><td  align="center" nowrap="nowrap" id="TBL-23-21-7"  
class="td11">                                                                     <span 
class="ecrm-0800">0.999                                                                     </span></td>
</tr><tr  
 valign="baseline" id="TBL-23-22-"><td  align="center" nowrap="nowrap" id="TBL-23-22-1"  
class="td11"><span 
class="ecrm-0800">3.8</span></td><td  align="center" nowrap="nowrap" id="TBL-23-22-2"  
class="td11">                                                                     <span 
class="ecrm-0800">0.994                                                                     </span></td><td  align="center" nowrap="nowrap" id="TBL-23-22-3"  
class="td11">                                                                     <span 
class="ecrm-0800">0.996                                                                     </span></td><td  align="center" nowrap="nowrap" id="TBL-23-22-4"  
class="td11">                                                                     <span 
class="ecrm-0800">0.998                                                                     </span></td><td  align="center" nowrap="nowrap" id="TBL-23-22-5"  
class="td11">                                                                     <span 
class="ecrm-0800">0.997                                                                     </span></td><td  align="center" nowrap="nowrap" id="TBL-23-22-6"  
class="td11">                                                                     <span 
class="ecrm-0800">0.998                                                                     </span></td><td  align="center" nowrap="nowrap" id="TBL-23-22-7"  
class="td11">                                                                     <span 
class="ecrm-0800">0.999                                                                     </span></td>
</tr><tr  
 valign="baseline" id="TBL-23-23-"><td  align="center" nowrap="nowrap" id="TBL-23-23-1"  
class="td11"><span 
class="ecrm-0800">4.0</span></td><td  align="center" nowrap="nowrap" id="TBL-23-23-2"  
class="td11">                                                                     <span 
class="ecrm-0800">0.995                                                                     </span></td><td  align="center" nowrap="nowrap" id="TBL-23-23-3"  
class="td11">                                                                     <span 
class="ecrm-0800">0.997                                                                     </span></td><td  align="center" nowrap="nowrap" id="TBL-23-23-4"  
class="td11">                                                                     <span 
class="ecrm-0800">0.998                                                                     </span></td><td  align="center" nowrap="nowrap" id="TBL-23-23-5"  
class="td11">                                                                     <span 
class="ecrm-0800">0.997                                                                     </span></td><td  align="center" nowrap="nowrap" id="TBL-23-23-6"  
class="td11">                                                                     <span 
class="ecrm-0800">0.999                                                                     </span></td><td  align="center" nowrap="nowrap" id="TBL-23-23-7"  
class="td11">                                                                     <span 
class="ecrm-0800">0.999                                                                     </span></td>
</tr><tr 
class="hline"><td><hr /></td><td><hr /></td><td><hr /></td><td><hr /></td><td><hr /></td><td><hr /></td><td><hr /></td></tr><tr  
 valign="baseline" id="TBL-23-24-"><td  align="center" nowrap="nowrap" id="TBL-23-24-1"  
class="td11">    </td>
</tr><!--"|c|c|c|c||c|c|c|"--></table>
</div>

   </td></tr></table></div><hr class="endfloat" />
As in Ghoudi et al. (2001)(<a 
  name="dx1-29026"></a><a 
href="#X2001Ghoud191bilo">18</a>), define <!--l. 836--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><msubsup><mrow 
><mi 
>T</mi></mrow><mrow 
><mi 
>b</mi><mo 
class="MathClass-punc">,</mo><mi 
>A</mi></mrow><mrow 
><mo 
class="MathClass-bin">&#x2217;</mo></mrow></msubsup 
></math>
to be the standardised version of <!--l. 836--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><msub><mrow 
><mi 
>T</mi></mrow><mrow 
><mi 
>b</mi><mo 
class="MathClass-punc">,</mo><mi 
>A</mi></mrow></msub 
></math>.
Then Table <a 
href="#x1-290252">4.2<!--tex4ht:ref: Distrib --></a> provides the distribution function of this statistic for some values of
<!--l. 838--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mo 
class="MathClass-rel">&#x2223;</mo><mi 
>A</mi><mo 
class="MathClass-rel">&#x2223;</mo></math> and
<!--l. 838--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mi 
>q</mi></math>, with
<!--l. 838--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mi 
>b</mi> <mo 
class="MathClass-rel">=</mo> <mn>0</mn><mo 
class="MathClass-punc">.</mo><mn>1</mn></math> as
approximated by Davies technique. Besides, a C++ program is available from the
authors which permits to compute any cut-off value given the nominal level and
vice-versa.

   In Table <a 
href="#x1-290273">4.3<!--tex4ht:ref: Montecarlo1 --></a>, one can find the empirical percentage points of
<!--l. 844--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mi 
>n</mi><msub><mrow 
><mi 
>T</mi></mrow><mrow 
><mi 
>n</mi><mo 
class="MathClass-punc">,</mo><mi 
>b</mi><mo 
class="MathClass-punc">,</mo><mi 
>A</mi></mrow></msub 
></math>
<!--l. 844--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mrow><mo 
class="MathClass-open">(</mo><mrow><mi 
>n</mi> <mo 
class="MathClass-rel">=</mo> <mn>2</mn><mn>0</mn><mo 
class="MathClass-punc">,</mo> <mn>5</mn><mn>0</mn><mo 
class="MathClass-punc">,</mo> <mn>1</mn><mn>0</mn><mn>0</mn><mo 
class="MathClass-punc">;</mo> <mi 
>b</mi> <mo 
class="MathClass-rel">=</mo> <mn>0</mn><mo 
class="MathClass-punc">.</mo><mn>1</mn><mo 
class="MathClass-punc">,</mo> <mn>0</mn><mo 
class="MathClass-punc">.</mo><mn>5</mn><mo 
class="MathClass-punc">,</mo> <mn>1</mn><mo 
class="MathClass-punc">.</mo><mn>0</mn><mo 
class="MathClass-punc">,</mo> <mn>3</mn><mo 
class="MathClass-punc">.</mo><mn>0</mn><mo 
class="MathClass-punc">;</mo> <mi 
>&#x03B1;</mi> <mo 
class="MathClass-rel">=</mo> <mn>0</mn><mo 
class="MathClass-punc">.</mo><mn>1</mn><mo 
class="MathClass-punc">,</mo> <mn>0</mn><mo 
class="MathClass-punc">.</mo><mn>0</mn><mn>5</mn></mrow><mo 
class="MathClass-close">)</mo></mrow></math> based
on <!--l. 845--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mi 
>N</mi> <mo 
class="MathClass-rel">=</mo> <mn>1</mn><mn>0</mn><mn>0</mn><mn>0</mn><mn>0</mn></math>
Monte Carlo replications, in the non serial case.

<a 
  name="x1-290273"></a>
   <hr class="float" /><div align="center" class="float" 
><table class="float"><tr class="float"><td class="float" 
>

        <div align="center" class="caption"><table class="caption" 
><tr valign="baseline" class="caption"><td class="id"><span 
class="eccc-1200">T<small 
class="small-caps">A</small><small 
class="small-caps">B</small>.</span>&#x00A0;4.3:           </td><td  
class="content">Empirical           Percentage           Points           of
<!--l. 850--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mi 
>n</mi><msub><mrow 
><mi 
>T</mi></mrow><mrow 
><mi 
>n</mi><mo 
class="MathClass-punc">,</mo><mi 
>b</mi><mo 
class="MathClass-punc">,</mo><mi 
>A</mi></mrow></msub 
></math>
based                                                                                               on
<!--l. 850--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mi 
>N</mi> <mo 
class="MathClass-rel">=</mo> <mn>1</mn><mn>0</mn><mn>0</mn><mn>0</mn><mn>0</mn></math>
Monte Carlo replications&#x00A0;: non-serial case.</td></tr></table></div><!--tex4ht:label?: x1-290273 -->
<div class="tabular"><table class="tabular" 
cellspacing="0pt" cellpadding="0" rules="groups" 
frame="border" id="TBL-24-" ><colgroup id="TBL-24-1g"><col 
id="TBL-24-1" /></colgroup><colgroup id="TBL-24-2g"><col 
id="TBL-24-2" /></colgroup><colgroup id="TBL-24-3g"><col 
id="TBL-24-3" /></colgroup><colgroup id="TBL-24-4g"><col 
id="TBL-24-4" /></colgroup><colgroup id="TBL-24-5g"><col 
id="TBL-24-5" /></colgroup><colgroup id="TBL-24-6g"><col 
id="TBL-24-6" /></colgroup><colgroup id="TBL-24-7g"><col 
id="TBL-24-7" /></colgroup><colgroup id="TBL-24-8g"><col 
id="TBL-24-8" /></colgroup><colgroup id="TBL-24-9g"><col 
id="TBL-24-9" /></colgroup><tr 
class="hline"><td><hr /></td><td><hr /></td><td><hr /></td><td><hr /></td><td><hr /></td><td><hr /></td><td><hr /></td><td><hr /></td><td><hr /></td></tr><tr  
 valign="baseline" id="TBL-24-1-"><td  align="center" nowrap="nowrap" id="TBL-24-1-1"  
class="td11">                                                                                                                                                  </td><td  align="center" nowrap="nowrap" id="TBL-24-1-2"  
class="td11">                                                                                                                                                  </td><td  align="center" nowrap="nowrap" id="TBL-24-1-3"  
class="td11">                                                                                                                                                  </td><td colspan="3" align="center" nowrap="nowrap" id="TBL-24-1-4"  
class="td11">                                                                                                                                                                                                                            <div class="multicolumn"  align="center" nowrap="nowrap"><span 
class="ecrm-0800">q=2</span></div>                                                                                                                      </td><td colspan="3" align="center" nowrap="nowrap" id="TBL-24-1-7"  
class="td11">                                                                                                                                                                                                                            <div class="multicolumn"  align="center" nowrap="nowrap"><span 
class="ecrm-0800">q=3</span></div>
</td></tr><tr 
class="cline"><td></td><td></td><td></td><td><hr /></td><td><hr /></td><td><hr /></td><td><hr /></td><td><hr /></td><td><hr /></td></tr><tr  
 valign="baseline" id="TBL-24-2-"><td  align="center" nowrap="nowrap" id="TBL-24-2-1"  
class="td11"><!--l. 858--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mfrac linethickness="0"><mrow><mn>1</mn><mo 
class="MathClass-bin">&#x2212;</mo><mi 
>&#x03B1;</mi></mrow>
   <mrow></mrow></mfrac>   </math></td><td  align="center" nowrap="nowrap" id="TBL-24-2-2"  
class="td11"><!--l. 858--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mfrac linethickness="0"><mrow><mi 
>b</mi></mrow>
 <mrow></mrow></mfrac> </math></td><td  align="center" nowrap="nowrap" id="TBL-24-2-3"  
class="td11"><!--l. 858--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mfrac linethickness="0"><mrow><mi 
>n</mi></mrow>
 <mrow></mrow></mfrac> </math></td><td  align="center" nowrap="nowrap" id="TBL-24-2-4"  
class="td11"><!--l. 858--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mi 
>k</mi> <mo 
class="MathClass-rel">=</mo> <mn>2</mn></math></td><td  align="center" nowrap="nowrap" id="TBL-24-2-5"  
class="td11"><!--l. 858--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mi 
>k</mi> <mo 
class="MathClass-rel">=</mo> <mn>3</mn></math></td><td  align="center" nowrap="nowrap" id="TBL-24-2-6"  
class="td11"><!--l. 858--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mi 
>k</mi> <mo 
class="MathClass-rel">=</mo> <mn>4</mn></math></td><td  align="center" nowrap="nowrap" id="TBL-24-2-7"  
class="td11"><!--l. 858--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mi 
>k</mi> <mo 
class="MathClass-rel">=</mo> <mn>2</mn></math></td><td  align="center" nowrap="nowrap" id="TBL-24-2-8"  
class="td11"><!--l. 858--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mi 
>k</mi> <mo 
class="MathClass-rel">=</mo> <mn>3</mn></math></td><td  align="center" nowrap="nowrap" id="TBL-24-2-9"  
class="td11"><!--l. 858--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mi 
>k</mi> <mo 
class="MathClass-rel">=</mo> <mn>4</mn></math></td>
</tr><tr 
class="hline"><td><hr /></td><td><hr /></td><td><hr /></td><td><hr /></td><td><hr /></td><td><hr /></td><td><hr /></td><td><hr /></td><td><hr /></td></tr><tr  
 valign="baseline" id="TBL-24-3-"><td  align="center" nowrap="nowrap" id="TBL-24-3-1"  
class="td11">                                                                                                                                                  </td><td  align="center" nowrap="nowrap" id="TBL-24-3-2"  
class="td11">                                                                                                                                                  </td><td  align="center" nowrap="nowrap" id="TBL-24-3-3"  
class="td11">                                                                       <span 
class="ecrm-0800">20                                                                       </span></td><td  align="center" nowrap="nowrap" id="TBL-24-3-4"  
class="td11">                                                                   <span 
class="ecrm-0800">0.000718                                                                   </span></td><td  align="center" nowrap="nowrap" id="TBL-24-3-5"  
class="td11">                                                                   <span 
class="ecrm-0800">1.249e-05                                                                   </span></td><td  align="center" nowrap="nowrap" id="TBL-24-3-6"  
class="td11">                                                                   <span 
class="ecrm-0800">2.371e-07                                                                   </span></td><td  align="center" nowrap="nowrap" id="TBL-24-3-7"  
class="td11">                                                                    <span 
class="ecrm-0800">0.00134                                                                    </span></td><td  align="center" nowrap="nowrap" id="TBL-24-3-8"  
class="td11">                                                                   <span 
class="ecrm-0800">3.460e-05                                                                   </span></td><td  align="center" nowrap="nowrap" id="TBL-24-3-9"  
class="td11">                                                                   <span 
class="ecrm-0800">1.033e-06                                                                   </span></td>
</tr><tr  
 valign="baseline" id="TBL-24-4-"><td  align="center" nowrap="nowrap" id="TBL-24-4-1"  
class="td11">                                                                                                                                                  </td><td  align="center" nowrap="nowrap" id="TBL-24-4-2"  
class="td11">                                                                       <span 
class="ecrm-0800">0.1                                                                       </span></td><td  align="center" nowrap="nowrap" id="TBL-24-4-3"  
class="td11">                                                                       <span 
class="ecrm-0800">50                                                                       </span></td><td  align="center" nowrap="nowrap" id="TBL-24-4-4"  
class="td11">                                                                   <span 
class="ecrm-0800">0.000718                                                                   </span></td><td  align="center" nowrap="nowrap" id="TBL-24-4-5"  
class="td11">                                                                   <span 
class="ecrm-0800">1.253e-05                                                                   </span></td><td  align="center" nowrap="nowrap" id="TBL-24-4-6"  
class="td11">                                                                   <span 
class="ecrm-0800">2.358e-07                                                                   </span></td><td  align="center" nowrap="nowrap" id="TBL-24-4-7"  
class="td11">                                                                    <span 
class="ecrm-0800">0.00136                                                                    </span></td><td  align="center" nowrap="nowrap" id="TBL-24-4-8"  
class="td11">                                                                   <span 
class="ecrm-0800">3.420e-05                                                                   </span></td><td  align="center" nowrap="nowrap" id="TBL-24-4-9"  
class="td11">                                                                   <span 
class="ecrm-0800">9.748e-07                                                                   </span></td>
</tr><tr  
 valign="baseline" id="TBL-24-5-"><td  align="center" nowrap="nowrap" id="TBL-24-5-1"  
class="td11">                                                                                                                                                  </td><td  align="center" nowrap="nowrap" id="TBL-24-5-2"  
class="td11">                                                                                                                                                  </td><td  align="center" nowrap="nowrap" id="TBL-24-5-3"  
class="td11">                                                                       <span 
class="ecrm-0800">100                                                                       </span></td><td  align="center" nowrap="nowrap" id="TBL-24-5-4"  
class="td11">                                                                   <span 
class="ecrm-0800">0.000733                                                                   </span></td><td  align="center" nowrap="nowrap" id="TBL-24-5-5"  
class="td11">                                                                   <span 
class="ecrm-0800">1.229e-05                                                                   </span></td><td  align="center" nowrap="nowrap" id="TBL-24-5-6"  
class="td11">                                                                   <span 
class="ecrm-0800">2.242e-07                                                                   </span></td><td  align="center" nowrap="nowrap" id="TBL-24-5-7"  
class="td11">                                                                    <span 
class="ecrm-0800">0.00137                                                                    </span></td><td  align="center" nowrap="nowrap" id="TBL-24-5-8"  
class="td11">                                                                   <span 
class="ecrm-0800">3.389e-05                                                                   </span></td><td  align="center" nowrap="nowrap" id="TBL-24-5-9"  
class="td11">                                                                   <span 
class="ecrm-0800">9.430e-07                                                                   </span></td>
</tr><tr 
class="cline"><td></td><td><hr /></td><td><hr /></td><td><hr /></td><td><hr /></td><td><hr /></td><td><hr /></td><td><hr /></td><td><hr /></td></tr><tr  
 valign="baseline" id="TBL-24-6-"><td  align="center" nowrap="nowrap" id="TBL-24-6-1"  
class="td11">                                                                                                                                                  </td><td  align="center" nowrap="nowrap" id="TBL-24-6-2"  
class="td11">                                                                                                                                                  </td><td  align="center" nowrap="nowrap" id="TBL-24-6-3"  
class="td11">                                                                       <span 
class="ecrm-0800">20                                                                       </span></td><td  align="center" nowrap="nowrap" id="TBL-24-6-4"  
class="td11">                                                                     <span 
class="ecrm-0800">0.170                                                                     </span></td><td  align="center" nowrap="nowrap" id="TBL-24-6-5"  
class="td11">                                                                     <span 
class="ecrm-0800">0.049                                                                     </span></td><td  align="center" nowrap="nowrap" id="TBL-24-6-6"  
class="td11">                                                                     <span 
class="ecrm-0800">0.016                                                                     </span></td><td  align="center" nowrap="nowrap" id="TBL-24-6-7"  
class="td11">                                                                     <span 
class="ecrm-0800">0.269                                                                     </span></td><td  align="center" nowrap="nowrap" id="TBL-24-6-8"  
class="td11">                                                                     <span 
class="ecrm-0800">0.110                                                                     </span></td><td  align="center" nowrap="nowrap" id="TBL-24-6-9"  
class="td11">                                                                     <span 
class="ecrm-0800">0.050                                                                     </span></td>
</tr><tr  
 valign="baseline" id="TBL-24-7-"><td  align="center" nowrap="nowrap" id="TBL-24-7-1"  
class="td11">                                                                                                                                                  </td><td  align="center" nowrap="nowrap" id="TBL-24-7-2"  
class="td11">                                                                       <span 
class="ecrm-0800">0.5                                                                       </span></td><td  align="center" nowrap="nowrap" id="TBL-24-7-3"  
class="td11">                                                                       <span 
class="ecrm-0800">50                                                                       </span></td><td  align="center" nowrap="nowrap" id="TBL-24-7-4"  
class="td11">                                                                     <span 
class="ecrm-0800">0.167                                                                     </span></td><td  align="center" nowrap="nowrap" id="TBL-24-7-5"  
class="td11">                                                                     <span 
class="ecrm-0800">0.0481                                                                     </span></td><td  align="center" nowrap="nowrap" id="TBL-24-7-6"  
class="td11">                                                                     <span 
class="ecrm-0800">0.0156                                                                     </span></td><td  align="center" nowrap="nowrap" id="TBL-24-7-7"  
class="td11">                                                                     <span 
class="ecrm-0800">0.266                                                                     </span></td><td  align="center" nowrap="nowrap" id="TBL-24-7-8"  
class="td11">                                                                     <span 
class="ecrm-0800">0.107                                                                     </span></td><td  align="center" nowrap="nowrap" id="TBL-24-7-9"  
class="td11">                                                                     <span 
class="ecrm-0800">0.0484                                                                     </span></td>
</tr><tr  
 valign="baseline" id="TBL-24-8-"><td  align="center" nowrap="nowrap" id="TBL-24-8-1"  
class="td11">                                                                       <span 
class="ecrm-0800">0.9                                                                       </span></td><td  align="center" nowrap="nowrap" id="TBL-24-8-2"  
class="td11">                                                                                                                                                  </td><td  align="center" nowrap="nowrap" id="TBL-24-8-3"  
class="td11">                                                                       <span 
class="ecrm-0800">100                                                                       </span></td><td  align="center" nowrap="nowrap" id="TBL-24-8-4"  
class="td11">                                                                     <span 
class="ecrm-0800">0.168                                                                     </span></td><td  align="center" nowrap="nowrap" id="TBL-24-8-5"  
class="td11">                                                                     <span 
class="ecrm-0800">0.0471                                                                     </span></td><td  align="center" nowrap="nowrap" id="TBL-24-8-6"  
class="td11">                                                                     <span 
class="ecrm-0800">0.0149                                                                     </span></td><td  align="center" nowrap="nowrap" id="TBL-24-8-7"  
class="td11">                                                                     <span 
class="ecrm-0800">0.266                                                                     </span></td><td  align="center" nowrap="nowrap" id="TBL-24-8-8"  
class="td11">                                                                     <span 
class="ecrm-0800">0.106                                                                     </span></td><td  align="center" nowrap="nowrap" id="TBL-24-8-9"  
class="td11">                                                                     <span 
class="ecrm-0800">0.0472                                                                     </span></td>
</tr><tr 
class="cline"><td></td><td><hr /></td><td><hr /></td><td><hr /></td><td><hr /></td><td><hr /></td><td><hr /></td><td><hr /></td><td><hr /></td></tr><tr  
 valign="baseline" id="TBL-24-9-"><td  align="center" nowrap="nowrap" id="TBL-24-9-1"  
class="td11">                                                                                                                                                  </td><td  align="center" nowrap="nowrap" id="TBL-24-9-2"  
class="td11">                                                                                                                                                  </td><td  align="center" nowrap="nowrap" id="TBL-24-9-3"  
class="td11">                                                                       <span 
class="ecrm-0800">20                                                                       </span></td><td  align="center" nowrap="nowrap" id="TBL-24-9-4"  
class="td11">                                                                     <span 
class="ecrm-0800">0.561                                                                     </span></td><td  align="center" nowrap="nowrap" id="TBL-24-9-5"  
class="td11">                                                                     <span 
class="ecrm-0800">0.333                                                                     </span></td><td  align="center" nowrap="nowrap" id="TBL-24-9-6"  
class="td11">                                                                     <span 
class="ecrm-0800">0.221                                                                     </span></td><td  align="center" nowrap="nowrap" id="TBL-24-9-7"  
class="td11">                                                                     <span 
class="ecrm-0800">0.727                                                                     </span></td><td  align="center" nowrap="nowrap" id="TBL-24-9-8"  
class="td11">                                                                     <span 
class="ecrm-0800">0.555                                                                     </span></td><td  align="center" nowrap="nowrap" id="TBL-24-9-9"  
class="td11">                                                                     <span 
class="ecrm-0800">0.450                                                                     </span></td>
</tr><tr  
 valign="baseline" id="TBL-24-10-"><td  align="center" nowrap="nowrap" id="TBL-24-10-1"  
class="td11">                                                                                                                                                  </td><td  align="center" nowrap="nowrap" id="TBL-24-10-2"  
class="td11">                                                                       <span 
class="ecrm-0800">1.0                                                                       </span></td><td  align="center" nowrap="nowrap" id="TBL-24-10-3"  
class="td11">                                                                       <span 
class="ecrm-0800">50                                                                       </span></td><td  align="center" nowrap="nowrap" id="TBL-24-10-4"  
class="td11">                                                                     <span 
class="ecrm-0800">0.558                                                                     </span></td><td  align="center" nowrap="nowrap" id="TBL-24-10-5"  
class="td11">                                                                     <span 
class="ecrm-0800">0.327                                                                     </span></td><td  align="center" nowrap="nowrap" id="TBL-24-10-6"  
class="td11">                                                                     <span 
class="ecrm-0800">0.213                                                                     </span></td><td  align="center" nowrap="nowrap" id="TBL-24-10-7"  
class="td11">                                                                     <span 
class="ecrm-0800">0.724                                                                     </span></td><td  align="center" nowrap="nowrap" id="TBL-24-10-8"  
class="td11">                                                                     <span 
class="ecrm-0800">0.547                                                                     </span></td><td  align="center" nowrap="nowrap" id="TBL-24-10-9"  
class="td11">                                                                     <span 
class="ecrm-0800">0.440                                                                     </span></td>
</tr><tr  
 valign="baseline" id="TBL-24-11-"><td  align="center" nowrap="nowrap" id="TBL-24-11-1"  
class="td11">                                                                                                                                                  </td><td  align="center" nowrap="nowrap" id="TBL-24-11-2"  
class="td11">                                                                                                                                                  </td><td  align="center" nowrap="nowrap" id="TBL-24-11-3"  
class="td11">                                                                       <span 
class="ecrm-0800">100                                                                       </span></td><td  align="center" nowrap="nowrap" id="TBL-24-11-4"  
class="td11">                                                                     <span 
class="ecrm-0800">0.559                                                                     </span></td><td  align="center" nowrap="nowrap" id="TBL-24-11-5"  
class="td11">                                                                     <span 
class="ecrm-0800">0.326                                                                     </span></td><td  align="center" nowrap="nowrap" id="TBL-24-11-6"  
class="td11">                                                                     <span 
class="ecrm-0800">0.209                                                                     </span></td><td  align="center" nowrap="nowrap" id="TBL-24-11-7"  
class="td11">                                                                     <span 
class="ecrm-0800">0.723                                                                     </span></td><td  align="center" nowrap="nowrap" id="TBL-24-11-8"  
class="td11">                                                                     <span 
class="ecrm-0800">0.544                                                                     </span></td><td  align="center" nowrap="nowrap" id="TBL-24-11-9"  
class="td11">                                                                     <span 
class="ecrm-0800">0.436                                                                     </span></td>
</tr><tr 
class="cline"><td></td><td><hr /></td><td><hr /></td><td><hr /></td><td><hr /></td><td><hr /></td><td><hr /></td><td><hr /></td><td><hr /></td></tr><tr  
 valign="baseline" id="TBL-24-12-"><td  align="center" nowrap="nowrap" id="TBL-24-12-1"  
class="td11">                                                                                                                                                  </td><td  align="center" nowrap="nowrap" id="TBL-24-12-2"  
class="td11">                                                                                                                                                  </td><td  align="center" nowrap="nowrap" id="TBL-24-12-3"  
class="td11">                                                                       <span 
class="ecrm-0800">20                                                                       </span></td><td  align="center" nowrap="nowrap" id="TBL-24-12-4"  
class="td11">                                                                     <span 
class="ecrm-0800">0.938                                                                     </span></td><td  align="center" nowrap="nowrap" id="TBL-24-12-5"  
class="td11">                                                                     <span 
class="ecrm-0800">0.864                                                                     </span></td><td  align="center" nowrap="nowrap" id="TBL-24-12-6"  
class="td11">                                                                     <span 
class="ecrm-0800">0.820                                                                     </span></td><td  align="center" nowrap="nowrap" id="TBL-24-12-7"  
class="td11">                                                                     <span 
class="ecrm-0800">0.981                                                                     </span></td><td  align="center" nowrap="nowrap" id="TBL-24-12-8"  
class="td11">                                                                     <span 
class="ecrm-0800">0.969                                                                     </span></td><td  align="center" nowrap="nowrap" id="TBL-24-12-9"  
class="td11">                                                                     <span 
class="ecrm-0800">0.958                                                                     </span></td>
</tr><tr  
 valign="baseline" id="TBL-24-13-"><td  align="center" nowrap="nowrap" id="TBL-24-13-1"  
class="td11">                                                                                                                                                  </td><td  align="center" nowrap="nowrap" id="TBL-24-13-2"  
class="td11">                                                                       <span 
class="ecrm-0800">3.0                                                                       </span></td><td  align="center" nowrap="nowrap" id="TBL-24-13-3"  
class="td11">                                                                       <span 
class="ecrm-0800">50                                                                       </span></td><td  align="center" nowrap="nowrap" id="TBL-24-13-4"  
class="td11">                                                                     <span 
class="ecrm-0800">0.940                                                                     </span></td><td  align="center" nowrap="nowrap" id="TBL-24-13-5"  
class="td11">                                                                     <span 
class="ecrm-0800">0.860                                                                     </span></td><td  align="center" nowrap="nowrap" id="TBL-24-13-6"  
class="td11">                                                                     <span 
class="ecrm-0800">0.814                                                                     </span></td><td  align="center" nowrap="nowrap" id="TBL-24-13-7"  
class="td11">                                                                     <span 
class="ecrm-0800">0.983                                                                     </span></td><td  align="center" nowrap="nowrap" id="TBL-24-13-8"  
class="td11">                                                                     <span 
class="ecrm-0800">0.967                                                                     </span></td><td  align="center" nowrap="nowrap" id="TBL-24-13-9"  
class="td11">                                                                     <span 
class="ecrm-0800">0.955                                                                     </span></td>
</tr><tr  
 valign="baseline" id="TBL-24-14-"><td  align="center" nowrap="nowrap" id="TBL-24-14-1"  
class="td11">                                                                                                                                                  </td><td  align="center" nowrap="nowrap" id="TBL-24-14-2"  
class="td11">                                                                                                                                                  </td><td  align="center" nowrap="nowrap" id="TBL-24-14-3"  
class="td11">                                                                       <span 
class="ecrm-0800">100                                                                       </span></td><td  align="center" nowrap="nowrap" id="TBL-24-14-4"  
class="td11">                                                                     <span 
class="ecrm-0800">0.938                                                                     </span></td><td  align="center" nowrap="nowrap" id="TBL-24-14-5"  
class="td11">                                                                     <span 
class="ecrm-0800">0.858                                                                     </span></td><td  align="center" nowrap="nowrap" id="TBL-24-14-6"  
class="td11">                                                                     <span 
class="ecrm-0800">0.811                                                                     </span></td><td  align="center" nowrap="nowrap" id="TBL-24-14-7"  
class="td11">                                                                     <span 
class="ecrm-0800">0.983                                                                     </span></td><td  align="center" nowrap="nowrap" id="TBL-24-14-8"  
class="td11">                                                                     <span 
class="ecrm-0800">0.966                                                                     </span></td><td  align="center" nowrap="nowrap" id="TBL-24-14-9"  
class="td11">                                                                     <span 
class="ecrm-0800">0.954                                                                     </span></td>
</tr><tr 
class="hline"><td><hr /></td><td><hr /></td><td><hr /></td><td><hr /></td><td><hr /></td><td><hr /></td><td><hr /></td><td><hr /></td><td><hr /></td></tr><tr  
 valign="baseline" id="TBL-24-15-"><td  align="center" nowrap="nowrap" id="TBL-24-15-1"  
class="td11">                                                                                                                                                  </td><td  align="center" nowrap="nowrap" id="TBL-24-15-2"  
class="td11">                                                                                                                                                  </td><td  align="center" nowrap="nowrap" id="TBL-24-15-3"  
class="td11">                                                                       <span 
class="ecrm-0800">20                                                                       </span></td><td  align="center" nowrap="nowrap" id="TBL-24-15-4"  
class="td11">                                                                   <span 
class="ecrm-0800">0.000854                                                                   </span></td><td  align="center" nowrap="nowrap" id="TBL-24-15-5"  
class="td11">                                                                   <span 
class="ecrm-0800">1.485e-05                                                                   </span></td><td  align="center" nowrap="nowrap" id="TBL-24-15-6"  
class="td11">                                                                   <span 
class="ecrm-0800">3.036e-07                                                                   </span></td><td  align="center" nowrap="nowrap" id="TBL-24-15-7"  
class="td11">                                                                    <span 
class="ecrm-0800">0.00151                                                                    </span></td><td  align="center" nowrap="nowrap" id="TBL-24-15-8"  
class="td11">                                                                   <span 
class="ecrm-0800">3.849e-05                                                                   </span></td><td  align="center" nowrap="nowrap" id="TBL-24-15-9"  
class="td11">                                                                   <span 
class="ecrm-0800">1.212e-06                                                                   </span></td>
</tr><tr  
 valign="baseline" id="TBL-24-16-"><td  align="center" nowrap="nowrap" id="TBL-24-16-1"  
class="td11">                                                                                                                                                  </td><td  align="center" nowrap="nowrap" id="TBL-24-16-2"  
class="td11">                                                                       <span 
class="ecrm-0800">0.1                                                                       </span></td><td  align="center" nowrap="nowrap" id="TBL-24-16-3"  
class="td11">                                                                       <span 
class="ecrm-0800">50                                                                       </span></td><td  align="center" nowrap="nowrap" id="TBL-24-16-4"  
class="td11">                                                                   <span 
class="ecrm-0800">0.000883                                                                   </span></td><td  align="center" nowrap="nowrap" id="TBL-24-16-5"  
class="td11">                                                                   <span 
class="ecrm-0800">1.465e-05                                                                   </span></td><td  align="center" nowrap="nowrap" id="TBL-24-16-6"  
class="td11">                                                                   <span 
class="ecrm-0800">2.840e-07                                                                   </span></td><td  align="center" nowrap="nowrap" id="TBL-24-16-7"  
class="td11">                                                                    <span 
class="ecrm-0800">0.00156                                                                    </span></td><td  align="center" nowrap="nowrap" id="TBL-24-16-8"  
class="td11">                                                                   <span 
class="ecrm-0800">3.751e-05                                                                   </span></td><td  align="center" nowrap="nowrap" id="TBL-24-16-9"  
class="td11">                                                                   <span 
class="ecrm-0800">1.103e-06                                                                   </span></td>
</tr><tr  
 valign="baseline" id="TBL-24-17-"><td  align="center" nowrap="nowrap" id="TBL-24-17-1"  
class="td11">                                                                                                                                                  </td><td  align="center" nowrap="nowrap" id="TBL-24-17-2"  
class="td11">                                                                                                                                                  </td><td  align="center" nowrap="nowrap" id="TBL-24-17-3"  
class="td11">                                                                       <span 
class="ecrm-0800">100                                                                       </span></td><td  align="center" nowrap="nowrap" id="TBL-24-17-4"  
class="td11">                                                                   <span 
class="ecrm-0800">0.000874                                                                   </span></td><td  align="center" nowrap="nowrap" id="TBL-24-17-5"  
class="td11">                                                                   <span 
class="ecrm-0800">1.429e-05                                                                   </span></td><td  align="center" nowrap="nowrap" id="TBL-24-17-6"  
class="td11">                                                                   <span 
class="ecrm-0800">2.653e-07                                                                   </span></td><td  align="center" nowrap="nowrap" id="TBL-24-17-7"  
class="td11">                                                                    <span 
class="ecrm-0800">0.00155                                                                    </span></td><td  align="center" nowrap="nowrap" id="TBL-24-17-8"  
class="td11">                                                                   <span 
class="ecrm-0800">3.724e-05                                                                   </span></td><td  align="center" nowrap="nowrap" id="TBL-24-17-9"  
class="td11">                                                                   <span 
class="ecrm-0800">1.027e-06                                                                   </span></td>
</tr><tr 
class="cline"><td></td><td><hr /></td><td><hr /></td><td><hr /></td><td><hr /></td><td><hr /></td><td><hr /></td><td><hr /></td><td><hr /></td></tr><tr  
 valign="baseline" id="TBL-24-18-"><td  align="center" nowrap="nowrap" id="TBL-24-18-1"  
class="td11">                                                                                                                                                  </td><td  align="center" nowrap="nowrap" id="TBL-24-18-2"  
class="td11">                                                                                                                                                  </td><td  align="center" nowrap="nowrap" id="TBL-24-18-3"  
class="td11">                                                                       <span 
class="ecrm-0800">20                                                                       </span></td><td  align="center" nowrap="nowrap" id="TBL-24-18-4"  
class="td11">                                                                     <span 
class="ecrm-0800">0.191                                                                     </span></td><td  align="center" nowrap="nowrap" id="TBL-24-18-5"  
class="td11">                                                                     <span 
class="ecrm-0800">0.0539                                                                     </span></td><td  align="center" nowrap="nowrap" id="TBL-24-18-6"  
class="td11">                                                                     <span 
class="ecrm-0800">0.0184                                                                     </span></td><td  align="center" nowrap="nowrap" id="TBL-24-18-7"  
class="td11">                                                                     <span 
class="ecrm-0800">0.289                                                                     </span></td><td  align="center" nowrap="nowrap" id="TBL-24-18-8"  
class="td11">                                                                     <span 
class="ecrm-0800">0.114                                                                     </span></td><td  align="center" nowrap="nowrap" id="TBL-24-18-9"  
class="td11">                                                                     <span 
class="ecrm-0800">0.053                                                                     </span></td>
</tr><tr  
 valign="baseline" id="TBL-24-19-"><td  align="center" nowrap="nowrap" id="TBL-24-19-1"  
class="td11">                                                                                                                                                  </td><td  align="center" nowrap="nowrap" id="TBL-24-19-2"  
class="td11">                                                                       <span 
class="ecrm-0800">0.5                                                                       </span></td><td  align="center" nowrap="nowrap" id="TBL-24-19-3"  
class="td11">                                                                       <span 
class="ecrm-0800">50                                                                       </span></td><td  align="center" nowrap="nowrap" id="TBL-24-19-4"  
class="td11">                                                                     <span 
class="ecrm-0800">0.192                                                                     </span></td><td  align="center" nowrap="nowrap" id="TBL-24-19-5"  
class="td11">                                                                     <span 
class="ecrm-0800">0.0520                                                                     </span></td><td  align="center" nowrap="nowrap" id="TBL-24-19-6"  
class="td11">                                                                     <span 
class="ecrm-0800">0.0168                                                                     </span></td><td  align="center" nowrap="nowrap" id="TBL-24-19-7"  
class="td11">                                                                     <span 
class="ecrm-0800">0.289                                                                     </span></td><td  align="center" nowrap="nowrap" id="TBL-24-19-8"  
class="td11">                                                                     <span 
class="ecrm-0800">0.111                                                                     </span></td><td  align="center" nowrap="nowrap" id="TBL-24-19-9"  
class="td11">                                                                     <span 
class="ecrm-0800">0.0505                                                                     </span></td>
</tr><tr  
 valign="baseline" id="TBL-24-20-"><td  align="center" nowrap="nowrap" id="TBL-24-20-1"  
class="td11">                                                                      <span 
class="ecrm-0800">0.95                                                                      </span></td><td  align="center" nowrap="nowrap" id="TBL-24-20-2"  
class="td11">                                                                                                                                                  </td><td  align="center" nowrap="nowrap" id="TBL-24-20-3"  
class="td11">                                                                       <span 
class="ecrm-0800">100                                                                       </span></td><td  align="center" nowrap="nowrap" id="TBL-24-20-4"  
class="td11">                                                                     <span 
class="ecrm-0800">0.191                                                                     </span></td><td  align="center" nowrap="nowrap" id="TBL-24-20-5"  
class="td11">                                                                     <span 
class="ecrm-0800">0.0513                                                                     </span></td><td  align="center" nowrap="nowrap" id="TBL-24-20-6"  
class="td11">                                                                     <span 
class="ecrm-0800">0.0158                                                                     </span></td><td  align="center" nowrap="nowrap" id="TBL-24-20-7"  
class="td11">                                                                     <span 
class="ecrm-0800">0.289                                                                     </span></td><td  align="center" nowrap="nowrap" id="TBL-24-20-8"  
class="td11">                                                                     <span 
class="ecrm-0800">0.110                                                                     </span></td><td  align="center" nowrap="nowrap" id="TBL-24-20-9"  
class="td11">                                                                     <span 
class="ecrm-0800">0.0486                                                                     </span></td>
</tr><tr 
class="cline"><td></td><td><hr /></td><td><hr /></td><td><hr /></td><td><hr /></td><td><hr /></td><td><hr /></td><td><hr /></td><td><hr /></td></tr><tr  
 valign="baseline" id="TBL-24-21-"><td  align="center" nowrap="nowrap" id="TBL-24-21-1"  
class="td11">                                                                                                                                                  </td><td  align="center" nowrap="nowrap" id="TBL-24-21-2"  
class="td11">                                                                                                                                                  </td><td  align="center" nowrap="nowrap" id="TBL-24-21-3"  
class="td11">                                                                       <span 
class="ecrm-0800">20                                                                       </span></td><td  align="center" nowrap="nowrap" id="TBL-24-21-4"  
class="td11">                                                                     <span 
class="ecrm-0800">0.606                                                                     </span></td><td  align="center" nowrap="nowrap" id="TBL-24-21-5"  
class="td11">                                                                     <span 
class="ecrm-0800">0.345                                                                     </span></td><td  align="center" nowrap="nowrap" id="TBL-24-21-6"  
class="td11">                                                                     <span 
class="ecrm-0800">0.228                                                                     </span></td><td  align="center" nowrap="nowrap" id="TBL-24-21-7"  
class="td11">                                                                     <span 
class="ecrm-0800">0.749                                                                     </span></td><td  align="center" nowrap="nowrap" id="TBL-24-21-8"  
class="td11">                                                                     <span 
class="ecrm-0800">0.562                                                                     </span></td><td  align="center" nowrap="nowrap" id="TBL-24-21-9"  
class="td11">                                                                     <span 
class="ecrm-0800">0.456                                                                     </span></td>
</tr><tr  
 valign="baseline" id="TBL-24-22-"><td  align="center" nowrap="nowrap" id="TBL-24-22-1"  
class="td11">                                                                                                                                                  </td><td  align="center" nowrap="nowrap" id="TBL-24-22-2"  
class="td11">                                                                       <span 
class="ecrm-0800">1.0                                                                       </span></td><td  align="center" nowrap="nowrap" id="TBL-24-22-3"  
class="td11">                                                                       <span 
class="ecrm-0800">50                                                                       </span></td><td  align="center" nowrap="nowrap" id="TBL-24-22-4"  
class="td11">                                                                     <span 
class="ecrm-0800">0.603                                                                     </span></td><td  align="center" nowrap="nowrap" id="TBL-24-22-5"  
class="td11">                                                                     <span 
class="ecrm-0800">0.338                                                                     </span></td><td  align="center" nowrap="nowrap" id="TBL-24-22-6"  
class="td11">                                                                     <span 
class="ecrm-0800">0.218                                                                     </span></td><td  align="center" nowrap="nowrap" id="TBL-24-22-7"  
class="td11">                                                                     <span 
class="ecrm-0800">0.748                                                                     </span></td><td  align="center" nowrap="nowrap" id="TBL-24-22-8"  
class="td11">                                                                     <span 
class="ecrm-0800">0.553                                                                     </span></td><td  align="center" nowrap="nowrap" id="TBL-24-22-9"  
class="td11">                                                                     <span 
class="ecrm-0800">0.445                                                                     </span></td>
</tr><tr  
 valign="baseline" id="TBL-24-23-"><td  align="center" nowrap="nowrap" id="TBL-24-23-1"  
class="td11">                                                                                                                                                  </td><td  align="center" nowrap="nowrap" id="TBL-24-23-2"  
class="td11">                                                                                                                                                  </td><td  align="center" nowrap="nowrap" id="TBL-24-23-3"  
class="td11">                                                                       <span 
class="ecrm-0800">100                                                                       </span></td><td  align="center" nowrap="nowrap" id="TBL-24-23-4"  
class="td11">                                                                     <span 
class="ecrm-0800">0.593                                                                     </span></td><td  align="center" nowrap="nowrap" id="TBL-24-23-5"  
class="td11">                                                                     <span 
class="ecrm-0800">0.336                                                                     </span></td><td  align="center" nowrap="nowrap" id="TBL-24-23-6"  
class="td11">                                                                     <span 
class="ecrm-0800">0.213                                                                     </span></td><td  align="center" nowrap="nowrap" id="TBL-24-23-7"  
class="td11">                                                                     <span 
class="ecrm-0800">0.745                                                                     </span></td><td  align="center" nowrap="nowrap" id="TBL-24-23-8"  
class="td11">                                                                     <span 
class="ecrm-0800">0.549                                                                     </span></td><td  align="center" nowrap="nowrap" id="TBL-24-23-9"  
class="td11">                                                                     <span 
class="ecrm-0800">0.439                                                                     </span></td>
</tr><tr 
class="cline"><td></td><td><hr /></td><td><hr /></td><td><hr /></td><td><hr /></td><td><hr /></td><td><hr /></td><td><hr /></td><td><hr /></td></tr><tr  
 valign="baseline" id="TBL-24-24-"><td  align="center" nowrap="nowrap" id="TBL-24-24-1"  
class="td11">                                                                                                                                                  </td><td  align="center" nowrap="nowrap" id="TBL-24-24-2"  
class="td11">                                                                                                                                                  </td><td  align="center" nowrap="nowrap" id="TBL-24-24-3"  
class="td11">                                                                       <span 
class="ecrm-0800">20                                                                       </span></td><td  align="center" nowrap="nowrap" id="TBL-24-24-4"  
class="td11">                                                                     <span 
class="ecrm-0800">0.955                                                                     </span></td><td  align="center" nowrap="nowrap" id="TBL-24-24-5"  
class="td11">                                                                     <span 
class="ecrm-0800">0.868                                                                     </span></td><td  align="center" nowrap="nowrap" id="TBL-24-24-6"  
class="td11">                                                                     <span 
class="ecrm-0800">0.823                                                                     </span></td><td  align="center" nowrap="nowrap" id="TBL-24-24-7"  
class="td11">                                                                     <span 
class="ecrm-0800">0.984                                                                     </span></td><td  align="center" nowrap="nowrap" id="TBL-24-24-8"  
class="td11">                                                                     <span 
class="ecrm-0800">0.970                                                                     </span></td><td  align="center" nowrap="nowrap" id="TBL-24-24-9"  
class="td11">                                                                     <span 
class="ecrm-0800">0.959                                                                     </span></td>
</tr><tr  
 valign="baseline" id="TBL-24-25-"><td  align="center" nowrap="nowrap" id="TBL-24-25-1"  
class="td11">                                                                                                                                                  </td><td  align="center" nowrap="nowrap" id="TBL-24-25-2"  
class="td11">                                                                       <span 
class="ecrm-0800">3.0                                                                       </span></td><td  align="center" nowrap="nowrap" id="TBL-24-25-3"  
class="td11">                                                                       <span 
class="ecrm-0800">50                                                                       </span></td><td  align="center" nowrap="nowrap" id="TBL-24-25-4"  
class="td11">                                                                     <span 
class="ecrm-0800">0.954                                                                     </span></td><td  align="center" nowrap="nowrap" id="TBL-24-25-5"  
class="td11">                                                                     <span 
class="ecrm-0800">0.863                                                                     </span></td><td  align="center" nowrap="nowrap" id="TBL-24-25-6"  
class="td11">                                                                     <span 
class="ecrm-0800">0.816                                                                     </span></td><td  align="center" nowrap="nowrap" id="TBL-24-25-7"  
class="td11">                                                                     <span 
class="ecrm-0800">0.987                                                                     </span></td><td  align="center" nowrap="nowrap" id="TBL-24-25-8"  
class="td11">                                                                     <span 
class="ecrm-0800">0.967                                                                     </span></td><td  align="center" nowrap="nowrap" id="TBL-24-25-9"  
class="td11">                                                                     <span 
class="ecrm-0800">0.956                                                                     </span></td>
</tr><tr  
 valign="baseline" id="TBL-24-26-"><td  align="center" nowrap="nowrap" id="TBL-24-26-1"  
class="td11">                                                                                                                                                  </td><td  align="center" nowrap="nowrap" id="TBL-24-26-2"  
class="td11">                                                                                                                                                  </td><td  align="center" nowrap="nowrap" id="TBL-24-26-3"  
class="td11">                                                                       <span 
class="ecrm-0800">100                                                                       </span></td><td  align="center" nowrap="nowrap" id="TBL-24-26-4"  
class="td11">                                                                     <span 
class="ecrm-0800">0.953                                                                     </span></td><td  align="center" nowrap="nowrap" id="TBL-24-26-5"  
class="td11">                                                                     <span 
class="ecrm-0800">0.861                                                                     </span></td><td  align="center" nowrap="nowrap" id="TBL-24-26-6"  
class="td11">                                                                     <span 
class="ecrm-0800">0.813                                                                     </span></td><td  align="center" nowrap="nowrap" id="TBL-24-26-7"  
class="td11">                                                                     <span 
class="ecrm-0800">0.986                                                                     </span></td><td  align="center" nowrap="nowrap" id="TBL-24-26-8"  
class="td11">                                                                     <span 
class="ecrm-0800">0.966                                                                     </span></td><td  align="center" nowrap="nowrap" id="TBL-24-26-9"  
class="td11">                                                                     <span 
class="ecrm-0800">0.955                                                                     </span></td>
</tr><tr 
class="hline"><td><hr /></td><td><hr /></td><td><hr /></td><td><hr /></td><td><hr /></td><td><hr /></td><td><hr /></td><td><hr /></td><td><hr /></td></tr><tr  
 valign="baseline" id="TBL-24-27-"><td  align="center" nowrap="nowrap" id="TBL-24-27-1"  
class="td11">                                                                                                                                                  </td>
</tr><!--"|c|c|c|c|c|c||c|c|c|"--></table>
</div>

   </td></tr></table></div><hr class="endfloat" />

   In Table <a 
href="#x1-290284">4.4<!--tex4ht:ref: Montecarlo2 --></a>, one can find the empirical percentage points of
<!--l. 896--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mi 
>n</mi><msub><mrow 
><mi 
>T</mi></mrow><mrow 
><mi 
>n</mi><mo 
class="MathClass-punc">,</mo><mi 
>b</mi><mo 
class="MathClass-punc">,</mo><mi 
>A</mi></mrow></msub 
></math>
<!--l. 896--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mrow><mo 
class="MathClass-open">(</mo><mrow><mi 
>n</mi> <mo 
class="MathClass-rel">=</mo> <mn>2</mn><mn>0</mn><mo 
class="MathClass-punc">,</mo> <mn>5</mn><mn>0</mn><mo 
class="MathClass-punc">,</mo> <mn>1</mn><mn>0</mn><mn>0</mn><mo 
class="MathClass-punc">;</mo> <mi 
>b</mi> <mo 
class="MathClass-rel">=</mo> <mn>0</mn><mo 
class="MathClass-punc">.</mo><mn>1</mn><mo 
class="MathClass-punc">,</mo> <mn>0</mn><mo 
class="MathClass-punc">.</mo><mn>5</mn><mo 
class="MathClass-punc">,</mo> <mn>1</mn><mo 
class="MathClass-punc">.</mo><mn>0</mn><mo 
class="MathClass-punc">,</mo> <mn>3</mn><mo 
class="MathClass-punc">.</mo><mn>0</mn><mo 
class="MathClass-punc">;</mo> <mi 
>&#x03B1;</mi> <mo 
class="MathClass-rel">=</mo> <mn>0</mn><mo 
class="MathClass-punc">.</mo><mn>1</mn><mo 
class="MathClass-punc">,</mo> <mn>0</mn><mo 
class="MathClass-punc">.</mo><mn>0</mn><mn>5</mn></mrow><mo 
class="MathClass-close">)</mo></mrow></math> based on
<!--l. 897--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mi 
>N</mi> <mo 
class="MathClass-rel">=</mo> <mn>1</mn><mn>0</mn><mn>0</mn><mn>0</mn><mn>0</mn></math> Monte Carlo replications,
in the serial case, for <!--l. 898--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mi 
>p</mi> <mo 
class="MathClass-rel">=</mo> <mn>4</mn></math>.

<a 
  name="x1-290284"></a>
   <hr class="float" /><div align="center" class="float" 
><table class="float"><tr class="float"><td class="float" 
>

<div align="center" class="caption"><table class="caption" 
><tr valign="baseline" class="caption"><td class="id"><span 
class="eccc-1200">T<small 
class="small-caps">A</small><small 
class="small-caps">B</small>.</span>&#x00A0;4.4: </td><td  
class="content">Empirical Percentage Points of <!--l. 902--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mi 
>n</mi><msub><mrow 
><mi 
>T</mi></mrow><mrow 
><mi 
>n</mi><mo 
class="MathClass-punc">,</mo><mi 
>b</mi><mo 
class="MathClass-punc">,</mo><mi 
>A</mi></mrow></msub 
></math>
based on <!--l. 902--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mi 
>N</mi> <mo 
class="MathClass-rel">=</mo> <mn>1</mn><mn>0</mn><mn>0</mn><mn>0</mn><mn>0</mn></math>
Monte Carlo replications for <!--l. 902--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mi 
>p</mi> <mo 
class="MathClass-rel">=</mo> <mn>4</mn></math>&#x00A0;:
serial case.</td></tr></table></div><!--tex4ht:label?: x1-290284 -->
<div class="tabular"><table class="tabular" 
cellspacing="0pt" cellpadding="0" rules="groups" 
frame="border" id="TBL-25-" ><colgroup id="TBL-25-1g"><col 
id="TBL-25-1" /></colgroup><colgroup id="TBL-25-2g"><col 
id="TBL-25-2" /></colgroup><colgroup id="TBL-25-3g"><col 
id="TBL-25-3" /></colgroup><colgroup id="TBL-25-4g"><col 
id="TBL-25-4" /></colgroup><colgroup id="TBL-25-5g"><col 
id="TBL-25-5" /></colgroup><colgroup id="TBL-25-6g"><col 
id="TBL-25-6" /></colgroup><colgroup id="TBL-25-7g"><col 
id="TBL-25-7" /></colgroup><colgroup id="TBL-25-8g"><col 
id="TBL-25-8" /></colgroup><colgroup id="TBL-25-9g"><col 
id="TBL-25-9" /></colgroup><tr 
class="hline"><td><hr /></td><td><hr /></td><td><hr /></td><td><hr /></td><td><hr /></td><td><hr /></td><td><hr /></td><td><hr /></td><td><hr /></td></tr><tr  
 valign="baseline" id="TBL-25-1-"><td  align="center" nowrap="nowrap" id="TBL-25-1-1"  
class="td11">                                                                                                                                                  </td><td  align="center" nowrap="nowrap" id="TBL-25-1-2"  
class="td11">                                                                                                                                                  </td><td  align="center" nowrap="nowrap" id="TBL-25-1-3"  
class="td11">                                                                                                                                                  </td><td colspan="3" align="center" nowrap="nowrap" id="TBL-25-1-4"  
class="td11">                                                                                                                                                                                                                            <div class="multicolumn"  align="center" nowrap="nowrap"><span 
class="ecrm-0800">q=2</span></div>                                                                                                                      </td><td colspan="3" align="center" nowrap="nowrap" id="TBL-25-1-7"  
class="td11">                                                                                                                                                                                                                            <div class="multicolumn"  align="center" nowrap="nowrap"><span 
class="ecrm-0800">q=3</span></div>
</td></tr><tr 
class="cline"><td></td><td></td><td></td><td><hr /></td><td><hr /></td><td><hr /></td><td><hr /></td><td><hr /></td><td><hr /></td></tr><tr  
 valign="baseline" id="TBL-25-2-"><td  align="center" nowrap="nowrap" id="TBL-25-2-1"  
class="td11"><!--l. 910--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mfrac linethickness="0"><mrow><mn>1</mn><mo 
class="MathClass-bin">&#x2212;</mo><mi 
>&#x03B1;</mi></mrow>
   <mrow></mrow></mfrac>   </math></td><td  align="center" nowrap="nowrap" id="TBL-25-2-2"  
class="td11"><!--l. 910--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mfrac linethickness="0"><mrow><mi 
>b</mi></mrow>
 <mrow></mrow></mfrac> </math></td><td  align="center" nowrap="nowrap" id="TBL-25-2-3"  
class="td11"><!--l. 910--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mfrac linethickness="0"><mrow><mi 
>n</mi></mrow>
 <mrow></mrow></mfrac> </math></td><td  align="center" nowrap="nowrap" id="TBL-25-2-4"  
class="td11"><!--l. 910--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mi 
>k</mi> <mo 
class="MathClass-rel">=</mo> <mn>2</mn></math></td><td  align="center" nowrap="nowrap" id="TBL-25-2-5"  
class="td11"><!--l. 910--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mi 
>k</mi> <mo 
class="MathClass-rel">=</mo> <mn>3</mn></math></td><td  align="center" nowrap="nowrap" id="TBL-25-2-6"  
class="td11"><!--l. 910--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mi 
>k</mi> <mo 
class="MathClass-rel">=</mo> <mn>4</mn></math></td><td  align="center" nowrap="nowrap" id="TBL-25-2-7"  
class="td11"><!--l. 910--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mi 
>k</mi> <mo 
class="MathClass-rel">=</mo> <mn>2</mn></math></td><td  align="center" nowrap="nowrap" id="TBL-25-2-8"  
class="td11"><!--l. 910--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mi 
>k</mi> <mo 
class="MathClass-rel">=</mo> <mn>3</mn></math></td><td  align="center" nowrap="nowrap" id="TBL-25-2-9"  
class="td11"><!--l. 910--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mi 
>k</mi> <mo 
class="MathClass-rel">=</mo> <mn>4</mn></math></td>
</tr><tr 
class="hline"><td><hr /></td><td><hr /></td><td><hr /></td><td><hr /></td><td><hr /></td><td><hr /></td><td><hr /></td><td><hr /></td><td><hr /></td></tr><tr  
 valign="baseline" id="TBL-25-3-"><td  align="center" nowrap="nowrap" id="TBL-25-3-1"  
class="td11">                                                                                                                                                  </td><td  align="center" nowrap="nowrap" id="TBL-25-3-2"  
class="td11">                                                                                                                                                  </td><td  align="center" nowrap="nowrap" id="TBL-25-3-3"  
class="td11">                                                                       <span 
class="ecrm-0800">20                                                                       </span></td><td  align="center" nowrap="nowrap" id="TBL-25-3-4"  
class="td11">                                                                   <span 
class="ecrm-0800">0.000712                                                                   </span></td><td  align="center" nowrap="nowrap" id="TBL-25-3-5"  
class="td11">                                                                   <span 
class="ecrm-0800">1.174e-05                                                                   </span></td><td  align="center" nowrap="nowrap" id="TBL-25-3-6"  
class="td11">                                                                   <span 
class="ecrm-0800">2.139e-07                                                                   </span></td><td  align="center" nowrap="nowrap" id="TBL-25-3-7"  
class="td11">                                                                    <span 
class="ecrm-0800">0.00132                                                                    </span></td><td  align="center" nowrap="nowrap" id="TBL-25-3-8"  
class="td11">                                                                   <span 
class="ecrm-0800">3.384e-05                                                                   </span></td><td  align="center" nowrap="nowrap" id="TBL-25-3-9"  
class="td11">                                                                   <span 
class="ecrm-0800">9.931e-07                                                                   </span></td>
</tr><tr  
 valign="baseline" id="TBL-25-4-"><td  align="center" nowrap="nowrap" id="TBL-25-4-1"  
class="td11">                                                                                                                                                  </td><td  align="center" nowrap="nowrap" id="TBL-25-4-2"  
class="td11">                                                                       <span 
class="ecrm-0800">0.1                                                                       </span></td><td  align="center" nowrap="nowrap" id="TBL-25-4-3"  
class="td11">                                                                       <span 
class="ecrm-0800">50                                                                       </span></td><td  align="center" nowrap="nowrap" id="TBL-25-4-4"  
class="td11">                                                                   <span 
class="ecrm-0800">0.000721                                                                   </span></td><td  align="center" nowrap="nowrap" id="TBL-25-4-5"  
class="td11">                                                                   <span 
class="ecrm-0800">1.205e-05                                                                   </span></td><td  align="center" nowrap="nowrap" id="TBL-25-4-6"  
class="td11">                                                                   <span 
class="ecrm-0800">2.288e-07                                                                   </span></td><td  align="center" nowrap="nowrap" id="TBL-25-4-7"  
class="td11">                                                                    <span 
class="ecrm-0800">0.00135                                                                    </span></td><td  align="center" nowrap="nowrap" id="TBL-25-4-8"  
class="td11">                                                                   <span 
class="ecrm-0800">3.357e-05                                                                   </span></td><td  align="center" nowrap="nowrap" id="TBL-25-4-9"  
class="td11">                                                                   <span 
class="ecrm-0800">9.867e-07                                                                   </span></td>
</tr><tr  
 valign="baseline" id="TBL-25-5-"><td  align="center" nowrap="nowrap" id="TBL-25-5-1"  
class="td11">                                                                                                                                                  </td><td  align="center" nowrap="nowrap" id="TBL-25-5-2"  
class="td11">                                                                                                                                                  </td><td  align="center" nowrap="nowrap" id="TBL-25-5-3"  
class="td11">                                                                       <span 
class="ecrm-0800">100                                                                       </span></td><td  align="center" nowrap="nowrap" id="TBL-25-5-4"  
class="td11">                                                                   <span 
class="ecrm-0800">0.000716                                                                   </span></td><td  align="center" nowrap="nowrap" id="TBL-25-5-5"  
class="td11">                                                                   <span 
class="ecrm-0800">1.217e-05                                                                   </span></td><td  align="center" nowrap="nowrap" id="TBL-25-5-6"  
class="td11">                                                                   <span 
class="ecrm-0800">2.261e-07                                                                   </span></td><td  align="center" nowrap="nowrap" id="TBL-25-5-7"  
class="td11">                                                                    <span 
class="ecrm-0800">0.00138                                                                    </span></td><td  align="center" nowrap="nowrap" id="TBL-25-5-8"  
class="td11">                                                                   <span 
class="ecrm-0800">3.335e-05                                                                   </span></td><td  align="center" nowrap="nowrap" id="TBL-25-5-9"  
class="td11">                                                                   <span 
class="ecrm-0800">9.530e-07                                                                   </span></td>
</tr><tr 
class="cline"><td></td><td><hr /></td><td><hr /></td><td><hr /></td><td><hr /></td><td><hr /></td><td><hr /></td><td><hr /></td><td><hr /></td></tr><tr  
 valign="baseline" id="TBL-25-6-"><td  align="center" nowrap="nowrap" id="TBL-25-6-1"  
class="td11">                                                                                                                                                  </td><td  align="center" nowrap="nowrap" id="TBL-25-6-2"  
class="td11">                                                                                                                                                  </td><td  align="center" nowrap="nowrap" id="TBL-25-6-3"  
class="td11">                                                                       <span 
class="ecrm-0800">20                                                                       </span></td><td  align="center" nowrap="nowrap" id="TBL-25-6-4"  
class="td11">                                                                     <span 
class="ecrm-0800">0.173                                                                     </span></td><td  align="center" nowrap="nowrap" id="TBL-25-6-5"  
class="td11">                                                                     <span 
class="ecrm-0800">0.0504                                                                     </span></td><td  align="center" nowrap="nowrap" id="TBL-25-6-6"  
class="td11">                                                                     <span 
class="ecrm-0800">0.0171                                                                     </span></td><td  align="center" nowrap="nowrap" id="TBL-25-6-7"  
class="td11">                                                                     <span 
class="ecrm-0800">0.276                                                                     </span></td><td  align="center" nowrap="nowrap" id="TBL-25-6-8"  
class="td11">                                                                     <span 
class="ecrm-0800">0.1160                                                                     </span></td><td  align="center" nowrap="nowrap" id="TBL-25-6-9"  
class="td11">                                                                     <span 
class="ecrm-0800">0.0547                                                                     </span></td>
</tr><tr  
 valign="baseline" id="TBL-25-7-"><td  align="center" nowrap="nowrap" id="TBL-25-7-1"  
class="td11">                                                                                                                                                  </td><td  align="center" nowrap="nowrap" id="TBL-25-7-2"  
class="td11">                                                                       <span 
class="ecrm-0800">0.5                                                                       </span></td><td  align="center" nowrap="nowrap" id="TBL-25-7-3"  
class="td11">                                                                       <span 
class="ecrm-0800">50                                                                       </span></td><td  align="center" nowrap="nowrap" id="TBL-25-7-4"  
class="td11">                                                                     <span 
class="ecrm-0800">0.168                                                                     </span></td><td  align="center" nowrap="nowrap" id="TBL-25-7-5"  
class="td11">                                                                     <span 
class="ecrm-0800">0.0484                                                                     </span></td><td  align="center" nowrap="nowrap" id="TBL-25-7-6"  
class="td11">                                                                     <span 
class="ecrm-0800">0.0162                                                                     </span></td><td  align="center" nowrap="nowrap" id="TBL-25-7-7"  
class="td11">                                                                     <span 
class="ecrm-0800">0.269                                                                     </span></td><td  align="center" nowrap="nowrap" id="TBL-25-7-8"  
class="td11">                                                                     <span 
class="ecrm-0800">0.109                                                                     </span></td><td  align="center" nowrap="nowrap" id="TBL-25-7-9"  
class="td11">                                                                     <span 
class="ecrm-0800">0.050                                                                     </span></td>
</tr><tr  
 valign="baseline" id="TBL-25-8-"><td  align="center" nowrap="nowrap" id="TBL-25-8-1"  
class="td11">                                                                       <span 
class="ecrm-0800">0.9                                                                       </span></td><td  align="center" nowrap="nowrap" id="TBL-25-8-2"  
class="td11">                                                                                                                                                  </td><td  align="center" nowrap="nowrap" id="TBL-25-8-3"  
class="td11">                                                                       <span 
class="ecrm-0800">100                                                                       </span></td><td  align="center" nowrap="nowrap" id="TBL-25-8-4"  
class="td11">                                                                     <span 
class="ecrm-0800">0.170                                                                     </span></td><td  align="center" nowrap="nowrap" id="TBL-25-8-5"  
class="td11">                                                                     <span 
class="ecrm-0800">0.0476                                                                     </span></td><td  align="center" nowrap="nowrap" id="TBL-25-8-6"  
class="td11">                                                                     <span 
class="ecrm-0800">0.0155                                                                     </span></td><td  align="center" nowrap="nowrap" id="TBL-25-8-7"  
class="td11">                                                                     <span 
class="ecrm-0800">0.268                                                                     </span></td><td  align="center" nowrap="nowrap" id="TBL-25-8-8"  
class="td11">                                                                     <span 
class="ecrm-0800">0.107                                                                     </span></td><td  align="center" nowrap="nowrap" id="TBL-25-8-9"  
class="td11">                                                                     <span 
class="ecrm-0800">0.048                                                                     </span></td>
</tr><tr 
class="cline"><td></td><td><hr /></td><td><hr /></td><td><hr /></td><td><hr /></td><td><hr /></td><td><hr /></td><td><hr /></td><td><hr /></td></tr><tr  
 valign="baseline" id="TBL-25-9-"><td  align="center" nowrap="nowrap" id="TBL-25-9-1"  
class="td11">                                                                                                                                                  </td><td  align="center" nowrap="nowrap" id="TBL-25-9-2"  
class="td11">                                                                                                                                                  </td><td  align="center" nowrap="nowrap" id="TBL-25-9-3"  
class="td11">                                                                       <span 
class="ecrm-0800">20                                                                       </span></td><td  align="center" nowrap="nowrap" id="TBL-25-9-4"  
class="td11">                                                                     <span 
class="ecrm-0800">0.567                                                                     </span></td><td  align="center" nowrap="nowrap" id="TBL-25-9-5"  
class="td11">                                                                     <span 
class="ecrm-0800">0.353                                                                     </span></td><td  align="center" nowrap="nowrap" id="TBL-25-9-6"  
class="td11">                                                                     <span 
class="ecrm-0800">0.241                                                                     </span></td><td  align="center" nowrap="nowrap" id="TBL-25-9-7"  
class="td11">                                                                     <span 
class="ecrm-0800">0.737                                                                     </span></td><td  align="center" nowrap="nowrap" id="TBL-25-9-8"  
class="td11">                                                                     <span 
class="ecrm-0800">0.586                                                                     </span></td><td  align="center" nowrap="nowrap" id="TBL-25-9-9"  
class="td11">                                                                     <span 
class="ecrm-0800">0.486                                                                     </span></td>
</tr><tr  
 valign="baseline" id="TBL-25-10-"><td  align="center" nowrap="nowrap" id="TBL-25-10-1"  
class="td11">                                                                                                                                                  </td><td  align="center" nowrap="nowrap" id="TBL-25-10-2"  
class="td11">                                                                       <span 
class="ecrm-0800">1.0                                                                       </span></td><td  align="center" nowrap="nowrap" id="TBL-25-10-3"  
class="td11">                                                                       <span 
class="ecrm-0800">50                                                                       </span></td><td  align="center" nowrap="nowrap" id="TBL-25-10-4"  
class="td11">                                                                     <span 
class="ecrm-0800">0.561                                                                     </span></td><td  align="center" nowrap="nowrap" id="TBL-25-10-5"  
class="td11">                                                                     <span 
class="ecrm-0800">0.334                                                                     </span></td><td  align="center" nowrap="nowrap" id="TBL-25-10-6"  
class="td11">                                                                     <span 
class="ecrm-0800">0.223                                                                     </span></td><td  align="center" nowrap="nowrap" id="TBL-25-10-7"  
class="td11">                                                                     <span 
class="ecrm-0800">0.728                                                                     </span></td><td  align="center" nowrap="nowrap" id="TBL-25-10-8"  
class="td11">                                                                     <span 
class="ecrm-0800">0.559                                                                     </span></td><td  align="center" nowrap="nowrap" id="TBL-25-10-9"  
class="td11">                                                                     <span 
class="ecrm-0800">0.458                                                                     </span></td>
</tr><tr  
 valign="baseline" id="TBL-25-11-"><td  align="center" nowrap="nowrap" id="TBL-25-11-1"  
class="td11">                                                                                                                                                  </td><td  align="center" nowrap="nowrap" id="TBL-25-11-2"  
class="td11">                                                                                                                                                  </td><td  align="center" nowrap="nowrap" id="TBL-25-11-3"  
class="td11">                                                                       <span 
class="ecrm-0800">100                                                                       </span></td><td  align="center" nowrap="nowrap" id="TBL-25-11-4"  
class="td11">                                                                     <span 
class="ecrm-0800">0.561                                                                     </span></td><td  align="center" nowrap="nowrap" id="TBL-25-11-5"  
class="td11">                                                                     <span 
class="ecrm-0800">0.328                                                                     </span></td><td  align="center" nowrap="nowrap" id="TBL-25-11-6"  
class="td11">                                                                     <span 
class="ecrm-0800">0.216                                                                     </span></td><td  align="center" nowrap="nowrap" id="TBL-25-11-7"  
class="td11">                                                                     <span 
class="ecrm-0800">0.727                                                                     </span></td><td  align="center" nowrap="nowrap" id="TBL-25-11-8"  
class="td11">                                                                      <span 
class="ecrm-0800">0.55                                                                      </span></td><td  align="center" nowrap="nowrap" id="TBL-25-11-9"  
class="td11">                                                                     <span 
class="ecrm-0800">0.447                                                                     </span></td>
</tr><tr 
class="cline"><td></td><td><hr /></td><td><hr /></td><td><hr /></td><td><hr /></td><td><hr /></td><td><hr /></td><td><hr /></td><td><hr /></td></tr><tr  
 valign="baseline" id="TBL-25-12-"><td  align="center" nowrap="nowrap" id="TBL-25-12-1"  
class="td11">                                                                                                                                                  </td><td  align="center" nowrap="nowrap" id="TBL-25-12-2"  
class="td11">                                                                                                                                                  </td><td  align="center" nowrap="nowrap" id="TBL-25-12-3"  
class="td11">                                                                       <span 
class="ecrm-0800">20                                                                       </span></td><td  align="center" nowrap="nowrap" id="TBL-25-12-4"  
class="td11">                                                                     <span 
class="ecrm-0800">0.937                                                                     </span></td><td  align="center" nowrap="nowrap" id="TBL-25-12-5"  
class="td11">                                                                     <span 
class="ecrm-0800">0.880                                                                     </span></td><td  align="center" nowrap="nowrap" id="TBL-25-12-6"  
class="td11">                                                                     <span 
class="ecrm-0800">0.842                                                                     </span></td><td  align="center" nowrap="nowrap" id="TBL-25-12-7"  
class="td11">                                                                     <span 
class="ecrm-0800">0.984                                                                     </span></td><td  align="center" nowrap="nowrap" id="TBL-25-12-8"  
class="td11">                                                                     <span 
class="ecrm-0800">0.975                                                                     </span></td><td  align="center" nowrap="nowrap" id="TBL-25-12-9"  
class="td11">                                                                     <span 
class="ecrm-0800">0.966                                                                     </span></td>
</tr><tr  
 valign="baseline" id="TBL-25-13-"><td  align="center" nowrap="nowrap" id="TBL-25-13-1"  
class="td11">                                                                                                                                                  </td><td  align="center" nowrap="nowrap" id="TBL-25-13-2"  
class="td11">                                                                       <span 
class="ecrm-0800">3.0                                                                       </span></td><td  align="center" nowrap="nowrap" id="TBL-25-13-3"  
class="td11">                                                                       <span 
class="ecrm-0800">50                                                                       </span></td><td  align="center" nowrap="nowrap" id="TBL-25-13-4"  
class="td11">                                                                     <span 
class="ecrm-0800">0.939                                                                     </span></td><td  align="center" nowrap="nowrap" id="TBL-25-13-5"  
class="td11">                                                                     <span 
class="ecrm-0800">0.867                                                                     </span></td><td  align="center" nowrap="nowrap" id="TBL-25-13-6"  
class="td11">                                                                     <span 
class="ecrm-0800">0.825                                                                     </span></td><td  align="center" nowrap="nowrap" id="TBL-25-13-7"  
class="td11">                                                                     <span 
class="ecrm-0800">0.983                                                                     </span></td><td  align="center" nowrap="nowrap" id="TBL-25-13-8"  
class="td11">                                                                     <span 
class="ecrm-0800">0.970                                                                     </span></td><td  align="center" nowrap="nowrap" id="TBL-25-13-9"  
class="td11">                                                                     <span 
class="ecrm-0800">0.960                                                                     </span></td>
</tr><tr  
 valign="baseline" id="TBL-25-14-"><td  align="center" nowrap="nowrap" id="TBL-25-14-1"  
class="td11">                                                                                                                                                  </td><td  align="center" nowrap="nowrap" id="TBL-25-14-2"  
class="td11">                                                                                                                                                  </td><td  align="center" nowrap="nowrap" id="TBL-25-14-3"  
class="td11">                                                                       <span 
class="ecrm-0800">100                                                                       </span></td><td  align="center" nowrap="nowrap" id="TBL-25-14-4"  
class="td11">                                                                     <span 
class="ecrm-0800">0.939                                                                     </span></td><td  align="center" nowrap="nowrap" id="TBL-25-14-5"  
class="td11">                                                                     <span 
class="ecrm-0800">0.862                                                                     </span></td><td  align="center" nowrap="nowrap" id="TBL-25-14-6"  
class="td11">                                                                     <span 
class="ecrm-0800">0.818                                                                     </span></td><td  align="center" nowrap="nowrap" id="TBL-25-14-7"  
class="td11">                                                                     <span 
class="ecrm-0800">0.983                                                                     </span></td><td  align="center" nowrap="nowrap" id="TBL-25-14-8"  
class="td11">                                                                     <span 
class="ecrm-0800">0.968                                                                     </span></td><td  align="center" nowrap="nowrap" id="TBL-25-14-9"  
class="td11">                                                                     <span 
class="ecrm-0800">0.957                                                                     </span></td>
</tr><tr 
class="hline"><td><hr /></td><td><hr /></td><td><hr /></td><td><hr /></td><td><hr /></td><td><hr /></td><td><hr /></td><td><hr /></td><td><hr /></td></tr><tr  
 valign="baseline" id="TBL-25-15-"><td  align="center" nowrap="nowrap" id="TBL-25-15-1"  
class="td11">                                                                                                                                                  </td><td  align="center" nowrap="nowrap" id="TBL-25-15-2"  
class="td11">                                                                                                                                                  </td><td  align="center" nowrap="nowrap" id="TBL-25-15-3"  
class="td11">                                                                       <span 
class="ecrm-0800">20                                                                       </span></td><td  align="center" nowrap="nowrap" id="TBL-25-15-4"  
class="td11">                                                                   <span 
class="ecrm-0800">0.000841                                                                   </span></td><td  align="center" nowrap="nowrap" id="TBL-25-15-5"  
class="td11">                                                                   <span 
class="ecrm-0800">1.414e-05                                                                   </span></td><td  align="center" nowrap="nowrap" id="TBL-25-15-6"  
class="td11">                                                                   <span 
class="ecrm-0800">2.734e-07                                                                   </span></td><td  align="center" nowrap="nowrap" id="TBL-25-15-7"  
class="td11">                                                                    <span 
class="ecrm-0800">0.00148                                                                    </span></td><td  align="center" nowrap="nowrap" id="TBL-25-15-8"  
class="td11">                                                                   <span 
class="ecrm-0800">3.804e-05                                                                   </span></td><td  align="center" nowrap="nowrap" id="TBL-25-15-9"  
class="td11">                                                                   <span 
class="ecrm-0800">1.176e-06                                                                   </span></td>
</tr><tr  
 valign="baseline" id="TBL-25-16-"><td  align="center" nowrap="nowrap" id="TBL-25-16-1"  
class="td11">                                                                                                                                                  </td><td  align="center" nowrap="nowrap" id="TBL-25-16-2"  
class="td11">                                                                       <span 
class="ecrm-0800">0.1                                                                       </span></td><td  align="center" nowrap="nowrap" id="TBL-25-16-3"  
class="td11">                                                                       <span 
class="ecrm-0800">50                                                                       </span></td><td  align="center" nowrap="nowrap" id="TBL-25-16-4"  
class="td11">                                                                   <span 
class="ecrm-0800">0.000897                                                                   </span></td><td  align="center" nowrap="nowrap" id="TBL-25-16-5"  
class="td11">                                                                   <span 
class="ecrm-0800">1.412e-05                                                                   </span></td><td  align="center" nowrap="nowrap" id="TBL-25-16-6"  
class="td11">                                                                   <span 
class="ecrm-0800">2.780e-07                                                                   </span></td><td  align="center" nowrap="nowrap" id="TBL-25-16-7"  
class="td11">                                                                    <span 
class="ecrm-0800">0.00154                                                                    </span></td><td  align="center" nowrap="nowrap" id="TBL-25-16-8"  
class="td11">                                                                   <span 
class="ecrm-0800">3.772e-05                                                                   </span></td><td  align="center" nowrap="nowrap" id="TBL-25-16-9"  
class="td11">                                                                   <span 
class="ecrm-0800">1.128e-06                                                                   </span></td>
</tr><tr  
 valign="baseline" id="TBL-25-17-"><td  align="center" nowrap="nowrap" id="TBL-25-17-1"  
class="td11">                                                                                                                                                  </td><td  align="center" nowrap="nowrap" id="TBL-25-17-2"  
class="td11">                                                                                                                                                  </td><td  align="center" nowrap="nowrap" id="TBL-25-17-3"  
class="td11">                                                                       <span 
class="ecrm-0800">100                                                                       </span></td><td  align="center" nowrap="nowrap" id="TBL-25-17-4"  
class="td11">                                                                   <span 
class="ecrm-0800">0.000861                                                                   </span></td><td  align="center" nowrap="nowrap" id="TBL-25-17-5"  
class="td11">                                                                   <span 
class="ecrm-0800">1.435e-05                                                                   </span></td><td  align="center" nowrap="nowrap" id="TBL-25-17-6"  
class="td11">                                                                   <span 
class="ecrm-0800">2.737e-07                                                                   </span></td><td  align="center" nowrap="nowrap" id="TBL-25-17-7"  
class="td11">                                                                    <span 
class="ecrm-0800">0.00154                                                                    </span></td><td  align="center" nowrap="nowrap" id="TBL-25-17-8"  
class="td11">                                                                   <span 
class="ecrm-0800">3.688e-05                                                                   </span></td><td  align="center" nowrap="nowrap" id="TBL-25-17-9"  
class="td11">                                                                   <span 
class="ecrm-0800">1.071e-06                                                                   </span></td>
</tr><tr 
class="cline"><td></td><td><hr /></td><td><hr /></td><td><hr /></td><td><hr /></td><td><hr /></td><td><hr /></td><td><hr /></td><td><hr /></td></tr><tr  
 valign="baseline" id="TBL-25-18-"><td  align="center" nowrap="nowrap" id="TBL-25-18-1"  
class="td11">                                                                                                                                                  </td><td  align="center" nowrap="nowrap" id="TBL-25-18-2"  
class="td11">                                                                                                                                                  </td><td  align="center" nowrap="nowrap" id="TBL-25-18-3"  
class="td11">                                                                       <span 
class="ecrm-0800">20                                                                       </span></td><td  align="center" nowrap="nowrap" id="TBL-25-18-4"  
class="td11">                                                                     <span 
class="ecrm-0800">0.196                                                                     </span></td><td  align="center" nowrap="nowrap" id="TBL-25-18-5"  
class="td11">                                                                     <span 
class="ecrm-0800">0.0556                                                                     </span></td><td  align="center" nowrap="nowrap" id="TBL-25-18-6"  
class="td11">                                                                     <span 
class="ecrm-0800">0.0193                                                                     </span></td><td  align="center" nowrap="nowrap" id="TBL-25-18-7"  
class="td11">                                                                     <span 
class="ecrm-0800">0.296                                                                     </span></td><td  align="center" nowrap="nowrap" id="TBL-25-18-8"  
class="td11">                                                                     <span 
class="ecrm-0800">0.122                                                                     </span></td><td  align="center" nowrap="nowrap" id="TBL-25-18-9"  
class="td11">                                                                     <span 
class="ecrm-0800">0.0587                                                                     </span></td>
</tr><tr  
 valign="baseline" id="TBL-25-19-"><td  align="center" nowrap="nowrap" id="TBL-25-19-1"  
class="td11">                                                                                                                                                  </td><td  align="center" nowrap="nowrap" id="TBL-25-19-2"  
class="td11">                                                                       <span 
class="ecrm-0800">0.5                                                                       </span></td><td  align="center" nowrap="nowrap" id="TBL-25-19-3"  
class="td11">                                                                       <span 
class="ecrm-0800">50                                                                       </span></td><td  align="center" nowrap="nowrap" id="TBL-25-19-4"  
class="td11">                                                                     <span 
class="ecrm-0800">0.192                                                                     </span></td><td  align="center" nowrap="nowrap" id="TBL-25-19-5"  
class="td11">                                                                     <span 
class="ecrm-0800">0.0528                                                                     </span></td><td  align="center" nowrap="nowrap" id="TBL-25-19-6"  
class="td11">                                                                     <span 
class="ecrm-0800">0.0179                                                                     </span></td><td  align="center" nowrap="nowrap" id="TBL-25-19-7"  
class="td11">                                                                     <span 
class="ecrm-0800">0.292                                                                     </span></td><td  align="center" nowrap="nowrap" id="TBL-25-19-8"  
class="td11">                                                                     <span 
class="ecrm-0800">0.114                                                                     </span></td><td  align="center" nowrap="nowrap" id="TBL-25-19-9"  
class="td11">                                                                     <span 
class="ecrm-0800">0.0539                                                                     </span></td>
</tr><tr  
 valign="baseline" id="TBL-25-20-"><td  align="center" nowrap="nowrap" id="TBL-25-20-1"  
class="td11">                                                                      <span 
class="ecrm-0800">0.95                                                                      </span></td><td  align="center" nowrap="nowrap" id="TBL-25-20-2"  
class="td11">                                                                                                                                                  </td><td  align="center" nowrap="nowrap" id="TBL-25-20-3"  
class="td11">                                                                       <span 
class="ecrm-0800">100                                                                       </span></td><td  align="center" nowrap="nowrap" id="TBL-25-20-4"  
class="td11">                                                                     <span 
class="ecrm-0800">0.189                                                                     </span></td><td  align="center" nowrap="nowrap" id="TBL-25-20-5"  
class="td11">                                                                     <span 
class="ecrm-0800">0.0517                                                                     </span></td><td  align="center" nowrap="nowrap" id="TBL-25-20-6"  
class="td11">                                                                     <span 
class="ecrm-0800">0.0168                                                                     </span></td><td  align="center" nowrap="nowrap" id="TBL-25-20-7"  
class="td11">                                                                     <span 
class="ecrm-0800">0.290                                                                     </span></td><td  align="center" nowrap="nowrap" id="TBL-25-20-8"  
class="td11">                                                                     <span 
class="ecrm-0800">0.111                                                                     </span></td><td  align="center" nowrap="nowrap" id="TBL-25-20-9"  
class="td11">                                                                     <span 
class="ecrm-0800">0.0509                                                                     </span></td>
</tr><tr 
class="cline"><td></td><td><hr /></td><td><hr /></td><td><hr /></td><td><hr /></td><td><hr /></td><td><hr /></td><td><hr /></td><td><hr /></td></tr><tr  
 valign="baseline" id="TBL-25-21-"><td  align="center" nowrap="nowrap" id="TBL-25-21-1"  
class="td11">                                                                                                                                                  </td><td  align="center" nowrap="nowrap" id="TBL-25-21-2"  
class="td11">                                                                                                                                                  </td><td  align="center" nowrap="nowrap" id="TBL-25-21-3"  
class="td11">                                                                       <span 
class="ecrm-0800">20                                                                       </span></td><td  align="center" nowrap="nowrap" id="TBL-25-21-4"  
class="td11">                                                                     <span 
class="ecrm-0800">0.615                                                                     </span></td><td  align="center" nowrap="nowrap" id="TBL-25-21-5"  
class="td11">                                                                     <span 
class="ecrm-0800">0.367                                                                     </span></td><td  align="center" nowrap="nowrap" id="TBL-25-21-6"  
class="td11">                                                                     <span 
class="ecrm-0800">0.255                                                                     </span></td><td  align="center" nowrap="nowrap" id="TBL-25-21-7"  
class="td11">                                                                     <span 
class="ecrm-0800">0.759                                                                     </span></td><td  align="center" nowrap="nowrap" id="TBL-25-21-8"  
class="td11">                                                                     <span 
class="ecrm-0800">0.598                                                                     </span></td><td  align="center" nowrap="nowrap" id="TBL-25-21-9"  
class="td11">                                                                     <span 
class="ecrm-0800">0.498                                                                     </span></td>
</tr><tr  
 valign="baseline" id="TBL-25-22-"><td  align="center" nowrap="nowrap" id="TBL-25-22-1"  
class="td11">                                                                                                                                                  </td><td  align="center" nowrap="nowrap" id="TBL-25-22-2"  
class="td11">                                                                       <span 
class="ecrm-0800">1.0                                                                       </span></td><td  align="center" nowrap="nowrap" id="TBL-25-22-3"  
class="td11">                                                                       <span 
class="ecrm-0800">50                                                                       </span></td><td  align="center" nowrap="nowrap" id="TBL-25-22-4"  
class="td11">                                                                     <span 
class="ecrm-0800">0.604                                                                     </span></td><td  align="center" nowrap="nowrap" id="TBL-25-22-5"  
class="td11">                                                                     <span 
class="ecrm-0800">0.346                                                                     </span></td><td  align="center" nowrap="nowrap" id="TBL-25-22-6"  
class="td11">                                                                     <span 
class="ecrm-0800">0.231                                                                     </span></td><td  align="center" nowrap="nowrap" id="TBL-25-22-7"  
class="td11">                                                                     <span 
class="ecrm-0800">0.753                                                                     </span></td><td  align="center" nowrap="nowrap" id="TBL-25-22-8"  
class="td11">                                                                     <span 
class="ecrm-0800">0.567                                                                     </span></td><td  align="center" nowrap="nowrap" id="TBL-25-22-9"  
class="td11">                                                                     <span 
class="ecrm-0800">0.466                                                                     </span></td>
</tr><tr  
 valign="baseline" id="TBL-25-23-"><td  align="center" nowrap="nowrap" id="TBL-25-23-1"  
class="td11">                                                                                                                                                  </td><td  align="center" nowrap="nowrap" id="TBL-25-23-2"  
class="td11">                                                                                                                                                  </td><td  align="center" nowrap="nowrap" id="TBL-25-23-3"  
class="td11">                                                                       <span 
class="ecrm-0800">100                                                                       </span></td><td  align="center" nowrap="nowrap" id="TBL-25-23-4"  
class="td11">                                                                     <span 
class="ecrm-0800">0.602                                                                     </span></td><td  align="center" nowrap="nowrap" id="TBL-25-23-5"  
class="td11">                                                                     <span 
class="ecrm-0800">0.340                                                                     </span></td><td  align="center" nowrap="nowrap" id="TBL-25-23-6"  
class="td11">                                                                     <span 
class="ecrm-0800">0.222                                                                     </span></td><td  align="center" nowrap="nowrap" id="TBL-25-23-7"  
class="td11">                                                                     <span 
class="ecrm-0800">0.751                                                                     </span></td><td  align="center" nowrap="nowrap" id="TBL-25-23-8"  
class="td11">                                                                     <span 
class="ecrm-0800">0.557                                                                     </span></td><td  align="center" nowrap="nowrap" id="TBL-25-23-9"  
class="td11">                                                                     <span 
class="ecrm-0800">0.452                                                                     </span></td>
</tr><tr 
class="cline"><td></td><td><hr /></td><td><hr /></td><td><hr /></td><td><hr /></td><td><hr /></td><td><hr /></td><td><hr /></td><td><hr /></td></tr><tr  
 valign="baseline" id="TBL-25-24-"><td  align="center" nowrap="nowrap" id="TBL-25-24-1"  
class="td11">                                                                                                                                                  </td><td  align="center" nowrap="nowrap" id="TBL-25-24-2"  
class="td11">                                                                                                                                                  </td><td  align="center" nowrap="nowrap" id="TBL-25-24-3"  
class="td11">                                                                       <span 
class="ecrm-0800">20                                                                       </span></td><td  align="center" nowrap="nowrap" id="TBL-25-24-4"  
class="td11">                                                                     <span 
class="ecrm-0800">0.955                                                                     </span></td><td  align="center" nowrap="nowrap" id="TBL-25-24-5"  
class="td11">                                                                     <span 
class="ecrm-0800">0.886                                                                     </span></td><td  align="center" nowrap="nowrap" id="TBL-25-24-6"  
class="td11">                                                                     <span 
class="ecrm-0800">0.849                                                                     </span></td><td  align="center" nowrap="nowrap" id="TBL-25-24-7"  
class="td11">                                                                     <span 
class="ecrm-0800">0.985                                                                     </span></td><td  align="center" nowrap="nowrap" id="TBL-25-24-8"  
class="td11">                                                                     <span 
class="ecrm-0800">0.976                                                                     </span></td><td  align="center" nowrap="nowrap" id="TBL-25-24-9"  
class="td11">                                                                     <span 
class="ecrm-0800">0.968                                                                     </span></td>
</tr><tr  
 valign="baseline" id="TBL-25-25-"><td  align="center" nowrap="nowrap" id="TBL-25-25-1"  
class="td11">                                                                                                                                                  </td><td  align="center" nowrap="nowrap" id="TBL-25-25-2"  
class="td11">                                                                       <span 
class="ecrm-0800">3.0                                                                       </span></td><td  align="center" nowrap="nowrap" id="TBL-25-25-3"  
class="td11">                                                                       <span 
class="ecrm-0800">50                                                                       </span></td><td  align="center" nowrap="nowrap" id="TBL-25-25-4"  
class="td11">                                                                     <span 
class="ecrm-0800">0.953                                                                     </span></td><td  align="center" nowrap="nowrap" id="TBL-25-25-5"  
class="td11">                                                                     <span 
class="ecrm-0800">0.871                                                                     </span></td><td  align="center" nowrap="nowrap" id="TBL-25-25-6"  
class="td11">                                                                     <span 
class="ecrm-0800">0.829                                                                     </span></td><td  align="center" nowrap="nowrap" id="TBL-25-25-7"  
class="td11">                                                                     <span 
class="ecrm-0800">0.987                                                                     </span></td><td  align="center" nowrap="nowrap" id="TBL-25-25-8"  
class="td11">                                                                     <span 
class="ecrm-0800">0.971                                                                     </span></td><td  align="center" nowrap="nowrap" id="TBL-25-25-9"  
class="td11">                                                                     <span 
class="ecrm-0800">0.961                                                                     </span></td>
</tr><tr  
 valign="baseline" id="TBL-25-26-"><td  align="center" nowrap="nowrap" id="TBL-25-26-1"  
class="td11">                                                                                                                                                  </td><td  align="center" nowrap="nowrap" id="TBL-25-26-2"  
class="td11">                                                                                                                                                  </td><td  align="center" nowrap="nowrap" id="TBL-25-26-3"  
class="td11">                                                                       <span 
class="ecrm-0800">100                                                                       </span></td><td  align="center" nowrap="nowrap" id="TBL-25-26-4"  
class="td11">                                                                     <span 
class="ecrm-0800">0.952                                                                     </span></td><td  align="center" nowrap="nowrap" id="TBL-25-26-5"  
class="td11">                                                                     <span 
class="ecrm-0800">0.865                                                                     </span></td><td  align="center" nowrap="nowrap" id="TBL-25-26-6"  
class="td11">                                                                     <span 
class="ecrm-0800">0.822                                                                     </span></td><td  align="center" nowrap="nowrap" id="TBL-25-26-7"  
class="td11">                                                                     <span 
class="ecrm-0800">0.987                                                                     </span></td><td  align="center" nowrap="nowrap" id="TBL-25-26-8"  
class="td11">                                                                     <span 
class="ecrm-0800">0.969                                                                     </span></td><td  align="center" nowrap="nowrap" id="TBL-25-26-9"  
class="td11">                                                                     <span 
class="ecrm-0800">0.958                                                                     </span></td>
</tr><tr 
class="hline"><td><hr /></td><td><hr /></td><td><hr /></td><td><hr /></td><td><hr /></td><td><hr /></td><td><hr /></td><td><hr /></td><td><hr /></td></tr><tr  
 valign="baseline" id="TBL-25-27-"><td  align="center" nowrap="nowrap" id="TBL-25-27-1"  
class="td11">                                                                                                                                                  </td>
</tr><!--"|c|c|c|c|c|c||c|c|c|"--></table>
</div>

   </td></tr></table></div><hr class="endfloat" />
   <h3 class="sectionHead"><span class="titlemark">5. </span> <a 
  name="x1-300005"></a>One-way MANOVA model with random effects</h3>
<!--l. 950--><p class="noindent">The one way linear model with random effects
</p>
   <center class="math-display"><!--l. 951--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="display"><mrow 
><msubsup><mrow 
>
                          <mi 
>&#x03B5;</mi></mrow><mrow 
><mi 
>i</mi></mrow><mrow 
><mrow><mo 
class="MathClass-open">(</mo><mrow><mi 
>j</mi></mrow><mo 
class="MathClass-close">)</mo></mrow></mrow></msubsup 
> <mo 
class="MathClass-rel">=</mo> <mi 
>&#x03BC;</mi> <mo 
class="MathClass-bin">+</mo><msub><mrow 
> <mi 
>&#x03B1;</mi></mrow><mrow 
>
<mi 
>i</mi></mrow></msub 
> <mo 
class="MathClass-bin">+</mo><msubsup><mrow 
> <mi 
>&#x03B4;</mi></mrow><mrow 
><mi 
>i</mi></mrow><mrow 
><mrow><mo 
class="MathClass-open">(</mo><mrow><mi 
>j</mi></mrow><mo 
class="MathClass-close">)</mo></mrow></mrow></msubsup 
><mo 
class="MathClass-punc">,</mo> <mi 
>i</mi> <mo 
class="MathClass-rel">=</mo> <mn>1</mn><mo 
class="MathClass-punc">,</mo><mo 
class="MathClass-op">&#x2026;</mo><mo 
class="MathClass-punc">,</mo><mi 
>n</mi><mo 
class="MathClass-punc">;</mo> <mi 
>j</mi> <mo 
class="MathClass-rel">=</mo> <mn>1</mn><mo 
class="MathClass-punc">,</mo><mo 
class="MathClass-op">&#x2026;</mo><mo 
class="MathClass-punc">,</mo><mi 
>p</mi><mo 
class="MathClass-punc">,</mo>
</mrow></math></center>
<!--l. 953--><p class="nopar">
where <!--l. 954--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><msub><mrow 
><mi 
>&#x03B1;</mi></mrow><mrow 
><mi 
>i</mi></mrow></msub 
> <mo 
class="MathClass-rel">&#x223C;</mo> <msub><mrow 
><mi 
>N</mi></mrow><mrow 
><mi 
>q</mi></mrow></msub 
><mrow><mo 
class="MathClass-open">(</mo><mrow><mn>0</mn><mo 
class="MathClass-punc">,</mo><mi 
>&#x03C8;</mi></mrow><mo 
class="MathClass-close">)</mo></mrow></math>
and <!--l. 956--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><msubsup><mrow 
><mi 
>&#x03B4;</mi></mrow><mrow 
><mi 
>i</mi></mrow><mrow 
><mrow><mo 
class="MathClass-open">(</mo><mrow><mi 
>j</mi></mrow><mo 
class="MathClass-close">)</mo></mrow></mrow></msubsup 
> <mo 
class="MathClass-rel">&#x223C;</mo> <msub><mrow 
><mi 
>N</mi></mrow><mrow 
>
<mi 
>q</mi></mrow></msub 
><mrow><mo 
class="MathClass-open">(</mo><mrow><mn>0</mn><mo 
class="MathClass-punc">,</mo><mi 
>&#x03A3;</mi></mrow><mo 
class="MathClass-close">)</mo></mrow></math>
are all mutually independant, provides a joint normal model for the non-serial case.
This means that in this variance component model
</p>
   <center class="math-display"><!--l. 959--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="display"><mrow 
><msub><mrow 
>
        <mi 
>&#x03B5;</mi></mrow><mrow 
><mi 
>i</mi></mrow></msub 
> <mo 
class="MathClass-rel">=</mo> <mrow><mo 
class="MathClass-open">(</mo><mrow><msubsup><mrow 
><mi 
>&#x03B5;</mi></mrow><mrow 
><mi 
>i</mi></mrow><mrow 
><mrow><mo 
class="MathClass-open">(</mo><mrow><mn>1</mn></mrow><mo 
class="MathClass-close">)</mo></mrow></mrow></msubsup 
><mo 
class="MathClass-punc">,</mo><mo 
class="MathClass-op">&#x2026;</mo><mo 
class="MathClass-punc">,</mo><msubsup><mrow 
><mi 
>&#x03B5;</mi></mrow><mrow 
>
<mi 
>i</mi></mrow><mrow 
><mrow><mo 
class="MathClass-open">(</mo><mrow><mi 
>p</mi></mrow><mo 
class="MathClass-close">)</mo></mrow></mrow></msubsup 
></mrow><mo 
class="MathClass-close">)</mo></mrow> <mo 
class="MathClass-rel">&#x223C;</mo> <msub><mrow 
><mi 
>N</mi></mrow><mrow 
>
<mi 
>p</mi><mi 
>q</mi></mrow></msub 
><mrow><mo 
class="MathClass-open">(</mo><mrow><msub><mrow 
><mn>1</mn></mrow><mrow 
><mi 
>p</mi></mrow></msub 
> <mo 
class="MathClass-bin">&#x2297;</mo><mi 
>&#x03BC;</mi><mo 
class="MathClass-punc">,</mo> <mrow><mo 
class="MathClass-open">(</mo><mrow><msub><mrow 
><mi 
>I</mi></mrow><mrow 
><mi 
>p</mi></mrow></msub 
> <mo 
class="MathClass-bin">&#x2297;</mo> <mi 
>&#x03A3;</mi></mrow><mo 
class="MathClass-close">)</mo></mrow> <mo 
class="MathClass-bin">+</mo> <mrow><mo 
class="MathClass-open">(</mo><mrow><msub><mrow 
><mn>1</mn></mrow><mrow 
><mi 
>p</mi></mrow></msub 
><msub><mrow 
><mn>1</mn></mrow><mrow 
><mi 
>p</mi></mrow></msub 
><!--mstyle 
class="text"--><mtext >T</mtext><!--/mstyle--></mrow><mo 
class="MathClass-close">)</mo></mrow> <mo 
class="MathClass-bin">&#x2297;</mo><mi 
>&#x03C8;</mi></mrow><mo 
class="MathClass-close">)</mo></mrow><mo 
class="MathClass-punc">,</mo><mi 
>i</mi> <mo 
class="MathClass-rel">=</mo> <mn>1</mn><mo 
class="MathClass-punc">,</mo><mo 
class="MathClass-op">&#x2026;</mo><mo 
class="MathClass-punc">,</mo><mi 
>n</mi><mo 
class="MathClass-punc">,</mo>
</mrow></math></center>
<!--l. 961--><p class="nopar">
are i.i.d. The test of independance amounts to the parametric test of the hypothesis
<!--l. 963--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><msub><mrow 
><mi 
>H</mi></mrow><mrow 
><mn>0</mn></mrow></msub 
> <mo 
class="MathClass-punc">:</mo> <mi 
>&#x03C8;</mi> <mo 
class="MathClass-rel">=</mo> <mn>0</mn></math>. The
MANOVA decomposition

</p><!--l. 965--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="display">
<mtable 
class="eqnarray" columnalign="right center left" >
<mtr><mtd 
class="eqnarray-1"><msubsup><mrow 
> <mo 
class="MathClass-op">&#x2211;</mo>
    </mrow><mrow 
><mi 
>i</mi><mo 
class="MathClass-rel">=</mo><mn>1</mn></mrow><mrow 
><mi 
>n</mi></mrow></msubsup 
><msubsup><mrow 
> <mo 
class="MathClass-op">&#x2211;</mo>
  </mrow><mrow 
><mi 
>j</mi><mo 
class="MathClass-rel">=</mo><mn>1</mn></mrow><mrow 
><mi 
>p</mi></mrow></msubsup 
><mrow><mo 
class="MathClass-open">(</mo><mrow><msubsup><mrow 
><mi 
>&#x03B5;</mi></mrow><mrow 
>
<mi 
>i</mi></mrow><mrow 
><mrow><mo 
class="MathClass-open">(</mo><mrow><mi 
>j</mi></mrow><mo 
class="MathClass-close">)</mo></mrow></mrow></msubsup 
> <mo 
class="MathClass-bin">&#x2212;</mo><msubsup><mrow 
><mover accent="false" 
class="mml-overline"><mrow><mi 
>&#x03B5;</mi></mrow><mo 
accent="true">&#x00AF;</mo></mover></mrow><mrow 
>
<mo 
class="MathClass-bin">&#x2022;</mo></mrow><mrow 
><mrow><mo 
class="MathClass-open">(</mo><mrow><mo 
class="MathClass-bin">&#x2022;</mo></mrow><mo 
class="MathClass-close">)</mo></mrow></mrow></msubsup 
></mrow><mo 
class="MathClass-close">)</mo></mrow><mrow><mo 
class="MathClass-open">(</mo><mrow><msubsup><mrow 
><mi 
>&#x03B5;</mi></mrow><mrow 
>
<mi 
>i</mi></mrow><mrow 
><mrow><mo 
class="MathClass-open">(</mo><mrow><mi 
>j</mi></mrow><mo 
class="MathClass-close">)</mo></mrow></mrow></msubsup 
> <mo 
class="MathClass-bin">&#x2212;</mo><msubsup><mrow 
><mover accent="false" 
class="mml-overline"><mrow><mi 
>&#x03B5;</mi></mrow><mo 
accent="true">&#x00AF;</mo></mover></mrow><mrow 
>
<mo 
class="MathClass-bin">&#x2022;</mo></mrow><mrow 
><mrow><mo 
class="MathClass-open">(</mo><mrow><mo 
class="MathClass-bin">&#x2022;</mo></mrow><mo 
class="MathClass-close">)</mo></mrow></mrow></msubsup 
></mrow><mo 
class="MathClass-close">)</mo></mrow><!--mstyle 
class="text"--><mtext >T</mtext><!--/mstyle--></mtd><mtd 
class="eqnarray-2">   <mo 
class="MathClass-rel">=</mo></mtd><mtd 
class="eqnarray-3"><msubsup><mrow 
>   <mo 
class="MathClass-op">&#x2211;</mo>
                                                     </mrow><mrow 
><mi 
>i</mi><mo 
class="MathClass-rel">=</mo><mn>1</mn></mrow><mrow 
><mi 
>n</mi></mrow></msubsup 
><msubsup><mrow 
> <mo 
class="MathClass-op">&#x2211;</mo>
  </mrow><mrow 
><mi 
>j</mi><mo 
class="MathClass-rel">=</mo><mn>1</mn></mrow><mrow 
><mi 
>p</mi></mrow></msubsup 
><mrow><mo 
class="MathClass-open">(</mo><mrow><msubsup><mrow 
><mi 
>&#x03B5;</mi></mrow><mrow 
>
<mi 
>i</mi></mrow><mrow 
><mrow><mo 
class="MathClass-open">(</mo><mrow><mi 
>j</mi></mrow><mo 
class="MathClass-close">)</mo></mrow></mrow></msubsup 
> <mo 
class="MathClass-bin">&#x2212;</mo><msubsup><mrow 
><mover accent="false" 
class="mml-overline"><mrow><mi 
>&#x03B5;</mi></mrow><mo 
accent="true">&#x00AF;</mo></mover></mrow><mrow 
>
<mi 
>i</mi></mrow><mrow 
><mrow><mo 
class="MathClass-open">(</mo><mrow><mo 
class="MathClass-bin">&#x2022;</mo></mrow><mo 
class="MathClass-close">)</mo></mrow></mrow></msubsup 
></mrow><mo 
class="MathClass-close">)</mo></mrow><mrow><mo 
class="MathClass-open">(</mo><mrow><msubsup><mrow 
><mi 
>&#x03B5;</mi></mrow><mrow 
>
<mi 
>i</mi></mrow><mrow 
><mrow><mo 
class="MathClass-open">(</mo><mrow><mi 
>j</mi></mrow><mo 
class="MathClass-close">)</mo></mrow></mrow></msubsup 
> <mo 
class="MathClass-bin">&#x2212;</mo><msubsup><mrow 
><mover accent="false" 
class="mml-overline"><mrow><mi 
>&#x03B5;</mi></mrow><mo 
accent="true">&#x00AF;</mo></mover></mrow><mrow 
>
<mi 
>i</mi></mrow><mrow 
><mrow><mo 
class="MathClass-open">(</mo><mrow><mo 
class="MathClass-bin">&#x2022;</mo></mrow><mo 
class="MathClass-close">)</mo></mrow></mrow></msubsup 
></mrow><mo 
class="MathClass-close">)</mo></mrow><!--mstyle 
class="text"--><mtext >T</mtext><!--/mstyle--></mtd><mtd 
class="eqnarray-4"> <mtext class="eqnarray">(5.1)</mtext><mtext 
   id="x1-30001r5.1"  class="label" ></mtext><mtext 
class="endlabel"></mtext></mtd>
</mtr><mtr><mtd 
class="eqnarray-1">                                           </mtd><mtd 
class="eqnarray-2">   <mo 
class="MathClass-bin">+</mo></mtd><mtd 
class="eqnarray-3">   <mi 
>p</mi><msubsup><mrow 
><mo 
class="MathClass-op">&#x2211;</mo>
  </mrow><mrow 
><mi 
>i</mi><mo 
class="MathClass-rel">=</mo><mn>1</mn></mrow><mrow 
><mi 
>n</mi></mrow></msubsup 
><mrow><mo 
class="MathClass-open">(</mo><mrow><msubsup><mrow 
><mover accent="false" 
class="mml-overline"><mrow><mi 
>&#x03B5;</mi></mrow><mo 
accent="true">&#x00AF;</mo></mover></mrow><mrow 
>
<mi 
>i</mi></mrow><mrow 
><mrow><mo 
class="MathClass-open">(</mo><mrow><mo 
class="MathClass-bin">&#x2022;</mo></mrow><mo 
class="MathClass-close">)</mo></mrow></mrow></msubsup 
> <mo 
class="MathClass-bin">&#x2212;</mo><msubsup><mrow 
><mover accent="false" 
class="mml-overline"><mrow><mi 
>&#x03B5;</mi></mrow><mo 
accent="true">&#x00AF;</mo></mover></mrow><mrow 
>
<mo 
class="MathClass-bin">&#x2022;</mo></mrow><mrow 
><mrow><mo 
class="MathClass-open">(</mo><mrow><mo 
class="MathClass-bin">&#x2022;</mo></mrow><mo 
class="MathClass-close">)</mo></mrow></mrow></msubsup 
></mrow><mo 
class="MathClass-close">)</mo></mrow><mrow><mo 
class="MathClass-open">(</mo><mrow><msubsup><mrow 
><mover accent="false" 
class="mml-overline"><mrow><mi 
>&#x03B5;</mi></mrow><mo 
accent="true">&#x00AF;</mo></mover></mrow><mrow 
>
<mi 
>i</mi></mrow><mrow 
><mrow><mo 
class="MathClass-open">(</mo><mrow><mo 
class="MathClass-bin">&#x2022;</mo></mrow><mo 
class="MathClass-close">)</mo></mrow></mrow></msubsup 
> <mo 
class="MathClass-bin">&#x2212;</mo><msubsup><mrow 
><mover accent="false" 
class="mml-overline"><mrow><mi 
>&#x03B5;</mi></mrow><mo 
accent="true">&#x00AF;</mo></mover></mrow><mrow 
>
<mo 
class="MathClass-bin">&#x2022;</mo></mrow><mrow 
><mrow><mo 
class="MathClass-open">(</mo><mrow><mo 
class="MathClass-bin">&#x2022;</mo></mrow><mo 
class="MathClass-close">)</mo></mrow></mrow></msubsup 
></mrow><mo 
class="MathClass-close">)</mo></mrow><!--mstyle 
class="text"--><mtext >T</mtext><!--/mstyle-->      </mtd><mtd 
class="eqnarray-4"> <mtext class="eqnarray">(5.2)</mtext><mtext 
   id="x1-30001r5.2"  class="label" ></mtext><mtext 
class="endlabel"></mtext></mtd>
</mtr><mtr><mtd 
class="eqnarray-1">                                           </mtd><mtd 
class="eqnarray-2">   <mo 
class="MathClass-rel">=</mo></mtd><mtd 
class="eqnarray-3">   <mi 
>E</mi> <mo 
class="MathClass-bin">+</mo> <mi 
>H</mi><mo 
class="MathClass-punc">,</mo>                                  </mtd><mtd 
class="eqnarray-4"> <mtext class="eqnarray">(5.3)</mtext><mtext 
   id="x1-30001r5.3"  class="label" ></mtext><mtext 
class="endlabel"></mtext></mtd></mtr></mtable>
</math>
<!--l. 973--><p class="nopar">
(see Rencher (2002)(<a 
  name="dx1-30002"></a><a 
href="#X2002Renchbilo">27</a>)), leads to the usual MANOVA table. A dot means averaging
over the corresponding index.

<a 
  name="x1-300031"></a>
</p>
   <hr class="float" /><div align="center" class="float" 
><table class="float"><tr class="float"><td class="float" 
>

<div class="center" 
>
<br /> <div align="center" class="caption"><table class="caption" 
><tr valign="baseline" class="caption"><td class="id"><span 
class="eccc-1200">T<small 
class="small-caps">A</small><small 
class="small-caps">B</small>.</span>&#x00A0;5.1: </td><td  
class="content">MANOVA table</td></tr></table></div><!--tex4ht:label?: x1-300031 -->
</div>
   <div class="tabular"><table class="tabular" 
cellspacing="0pt" cellpadding="0"  
frame="void" id="TBL-26-" ><colgroup id="TBL-26-1g"><col 
id="TBL-26-1" /><col 
id="TBL-26-2" /><col 
id="TBL-26-3" /><col 
id="TBL-26-4" /><col 
id="TBL-26-5" /></colgroup><tr  
 valign="baseline" id="TBL-26-1-"><td  align="center" nowrap="nowrap" id="TBL-26-1-1"  
class="td11"> Source </td><td  align="center" nowrap="nowrap" id="TBL-26-1-2"  
class="td11">                                           Sum of squares                                           </td><td  align="left" id="TBL-26-1-3"  
class="td11"><!--l. 981--><p class="noindent">Degrees
of freedom    </p></td><td  align="left" id="TBL-26-1-4"  
class="td11"><!--l. 981--><p class="noindent">Expected
sum          of
squares         </p></td><td  align="center" nowrap="nowrap" id="TBL-26-1-5"  
class="td11">                                          Null distribution                                          </td>
</tr><tr 
class="hline"><td><hr /></td><td><hr /></td><td><hr /></td><td><hr /></td><td><hr /></td></tr><tr  
 valign="baseline" id="TBL-26-2-"><td  align="center" nowrap="nowrap" id="TBL-26-2-1"  
class="td11">Between</td><td  align="center" nowrap="nowrap" id="TBL-26-2-2"  
class="td11"><!--l. 984--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mi 
>H</mi></math></td><td  align="left" id="TBL-26-2-3"  
class="td11"><!--l. 984--><p class="noindent"><!--l. 984--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><msub><mrow 
><mi 
>&#x03BD;</mi></mrow><mrow 
><mi 
>H</mi></mrow></msub 
> <mo 
class="MathClass-rel">=</mo> <mi 
>n</mi> <mo 
class="MathClass-bin">&#x2212;</mo> <mn>1</mn></math></p></td><td  align="left" id="TBL-26-2-4"  
class="td11"><!--l. 985--><p class="noindent"><!--l. 985--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mrow><mo 
class="MathClass-open">(</mo><mrow><mi 
>n</mi>  <mo 
class="MathClass-bin">&#x2212;</mo> <mn>1</mn></mrow><mo 
class="MathClass-close">)</mo></mrow><mi 
>&#x03A3;</mi>  <mo 
class="MathClass-bin">+</mo>
<mi 
>p</mi><mrow><mo 
class="MathClass-open">(</mo><mrow><mi 
>n</mi> <mo 
class="MathClass-bin">&#x2212;</mo> <mn>1</mn></mrow><mo 
class="MathClass-close">)</mo></mrow><mi 
>&#x03C8;</mi></math></p></td><td  align="center" nowrap="nowrap" id="TBL-26-2-5"  
class="td11"><!--l. 986--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><msub><mrow 
><mi 
>W</mi></mrow><mrow 
><mi 
>q</mi></mrow></msub 
><mrow><mo 
class="MathClass-open">(</mo><mrow><mi 
>n</mi> <mo 
class="MathClass-bin">&#x2212;</mo> <mn>1</mn><mo 
class="MathClass-punc">,</mo><mi 
>&#x03A3;</mi></mrow><mo 
class="MathClass-close">)</mo></mrow></math></td>
</tr><tr  
 valign="baseline" id="TBL-26-3-"><td  align="center" nowrap="nowrap" id="TBL-26-3-1"  
class="td11"> Within </td> <td  align="center" nowrap="nowrap" id="TBL-26-3-2"  
class="td11"><!--l. 987--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mi 
>E</mi></math></td><td  align="left" id="TBL-26-3-3"  
class="td11"><!--l. 987--><p class="noindent"><!--l. 987--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><msub><mrow 
><mi 
>&#x03BD;</mi></mrow><mrow 
><mi 
>E</mi></mrow></msub 
> <mo 
class="MathClass-rel">=</mo> <mi 
>n</mi><mrow><mo 
class="MathClass-open">(</mo><mrow><mi 
>p</mi><mo 
class="MathClass-bin">&#x2212;</mo> <mn>1</mn></mrow><mo 
class="MathClass-close">)</mo></mrow></math></p></td><td  align="left" id="TBL-26-3-4"  
class="td11"><!--l. 987--><p class="noindent"><!--l. 987--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mi 
>n</mi><mrow><mo 
class="MathClass-open">(</mo><mrow><mi 
>p</mi> <mo 
class="MathClass-bin">&#x2212;</mo> <mn>1</mn></mrow><mo 
class="MathClass-close">)</mo></mrow><mi 
>&#x03A3;</mi></math></p></td><td  align="center" nowrap="nowrap" id="TBL-26-3-5"  
class="td11"><!--l. 988--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><msub><mrow 
><mi 
>W</mi></mrow><mrow 
><mi 
>q</mi></mrow></msub 
><mrow><mo 
class="MathClass-open">(</mo><mrow><mi 
>n</mi><mrow><mo 
class="MathClass-open">(</mo><mrow><mi 
>p</mi> <mo 
class="MathClass-bin">&#x2212;</mo> <mn>1</mn></mrow><mo 
class="MathClass-close">)</mo></mrow><mo 
class="MathClass-punc">,</mo><mi 
>&#x03A3;</mi></mrow><mo 
class="MathClass-close">)</mo></mrow></math></td>
</tr><tr 
class="hline"><td><hr /></td><td><hr /></td><td><hr /></td><td><hr /></td><td><hr /></td></tr><tr  
 valign="baseline" id="TBL-26-4-"><td  align="center" nowrap="nowrap" id="TBL-26-4-1"  
class="td11">  Total  </td><td  align="center" nowrap="nowrap" id="TBL-26-4-2"  
class="td11"><!--l. 990--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mi 
>E</mi> <mo 
class="MathClass-bin">+</mo> <mi 
>H</mi></math></td><td  align="left" id="TBL-26-4-3"  
class="td11"><!--l. 990--><p class="noindent">                  </p></td><td  align="left" id="TBL-26-4-4"  
class="td11"><!--l. 990--><p class="noindent">                  </p></td><td  align="center" nowrap="nowrap" id="TBL-26-4-5"  
class="td11">                                                                                                         </td> </tr><!--"ccp{2.5cm}p{2.5cm}c"--></table>
</div>

   </td></tr></table></div><hr class="endfloat" />
The test of <!--l. 993--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><msub><mrow 
><mi 
>H</mi></mrow><mrow 
><mn>0</mn></mrow></msub 
> <mo 
class="MathClass-punc">:</mo> <mi 
>&#x03C8;</mi> <mo 
class="MathClass-rel">=</mo> <mn>0</mn></math>
is usually done with Wilks statistic
   <center class="math-display"><!--l. 995--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="display"><mrow 
>
                       <mi 
>&#x039B;</mi> <mo 
class="MathClass-rel">=</mo>      <mfrac><mrow 
><mi 
>d</mi><mi 
>e</mi><mi 
>t</mi><mi 
>E</mi></mrow> 
<mrow 
><mi 
>d</mi><mi 
>e</mi><mi 
>t</mi><mrow><mo 
class="MathClass-open">(</mo><mrow><mi 
>E</mi> <mo 
class="MathClass-bin">+</mo> <mi 
>H</mi></mrow><mo 
class="MathClass-close">)</mo></mrow></mrow></mfrac> <mo 
class="MathClass-rel">=</mo><msubsup><mrow 
> <mo 
class="MathClass-op">&#x220F;</mo>
  </mrow><mrow 
><mi 
>k</mi><mo 
class="MathClass-rel">=</mo><mn>1</mn></mrow><mrow 
><mi 
>q</mi></mrow></msubsup 
><msup><mrow 
> <mfenced separators="" 
open="["  close="]" ><mrow><mn>1</mn> <mo 
class="MathClass-bin">+</mo> <msub><mrow 
><mi 
>&#x03BB;</mi></mrow><mrow 
>
<mi 
>k</mi></mrow></msub 
><mrow><mo 
class="MathClass-open">(</mo><mrow><msup><mrow 
><mi 
>E</mi></mrow><mrow 
><mo 
class="MathClass-bin">&#x2212;</mo><mn>1</mn></mrow></msup 
><mi 
>H</mi></mrow><mo 
class="MathClass-close">)</mo></mrow></mrow></mfenced> </mrow><mrow 
><mo 
class="MathClass-bin">&#x2212;</mo><mn>1</mn></mrow></msup 
><mo 
class="MathClass-punc">,</mo>
</mrow></math></center>
<!--l. 997--><p class="nopar">
where <!--l. 998--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><msub><mrow 
><mi 
>&#x03BB;</mi></mrow><mrow 
><mi 
>k</mi></mrow></msub 
><mrow><mo 
class="MathClass-open">(</mo><mrow><msup><mrow 
><mi 
>E</mi></mrow><mrow 
><mo 
class="MathClass-bin">&#x2212;</mo><mn>1</mn></mrow></msup 
><mi 
>H</mi></mrow><mo 
class="MathClass-close">)</mo></mrow></math> are the
eigenvalues of <!--l. 998--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><msup><mrow 
><mi 
>E</mi></mrow><mrow 
><mo 
class="MathClass-bin">&#x2212;</mo><mn>1</mn></mrow></msup 
><mi 
>H</mi></math>. The null
distribution of <!--l. 999--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mi 
>&#x039B;</mi></math> is the
<!--l. 999--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><msub><mrow 
><mi 
>&#x039B;</mi></mrow><mrow 
><mi 
>q</mi><mo 
class="MathClass-punc">,</mo><msub><mrow 
><mi 
>&#x03BD;</mi></mrow><mrow 
><mi 
>H</mi></mrow></msub 
><mo 
class="MathClass-punc">,</mo><msub><mrow 
><mi 
>&#x03BD;</mi></mrow><mrow 
><mi 
>E</mi></mrow></msub 
></mrow></msub 
></math> distribution. Tables of
exact critical points for <!--l. 999--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mi 
>&#x039B;</mi></math>
are available but for <!--l. 1000--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mi 
>q</mi> <mo 
class="MathClass-rel">=</mo> <mn>2</mn></math>
the relation
</p>
   <center class="math-display"><!--l. 1001--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="display"><mrow 
>
                               <mfrac><mrow 
><mrow><mo 
class="MathClass-open">(</mo><mrow><msub><mrow 
><mi 
>&#x03BD;</mi></mrow><mrow 
><mi 
>E</mi></mrow></msub 
> <mo 
class="MathClass-bin">&#x2212;</mo> <mn>1</mn></mrow><mo 
class="MathClass-close">)</mo></mrow></mrow> 
    <mrow 
><msub><mrow 
><mi 
>&#x03BD;</mi></mrow><mrow 
><mi 
>H</mi></mrow></msub 
></mrow></mfrac>     <mfrac><mrow 
><mrow><mo 
class="MathClass-open">(</mo><mrow><mn>1</mn> <mo 
class="MathClass-bin">&#x2212;</mo> <msup><mrow 
><mi 
>&#x039B;</mi></mrow><mrow 
><mfrac><mrow 
><mn>1</mn></mrow>
<mrow 
><mn>2</mn></mrow></mfrac> </mrow></msup 
></mrow><mo 
class="MathClass-close">)</mo></mrow></mrow> 
    <mrow 
><msup><mrow 
><mi 
>&#x039B;</mi></mrow><mrow 
><mfrac><mrow 
><mn>1</mn></mrow>
<mrow 
><mn>2</mn></mrow></mfrac> </mrow></msup 
></mrow></mfrac>        <mo 
class="MathClass-rel">&#x223C;</mo> <msub><mrow 
><mi 
>F</mi></mrow><mrow 
><mn>2</mn><msub><mrow 
><mi 
>&#x03BD;</mi></mrow><mrow 
><mi 
>H</mi></mrow></msub 
><mo 
class="MathClass-punc">,</mo><mn>2</mn><mrow><mo 
class="MathClass-open">(</mo><mrow><msub><mrow 
><mi 
>&#x03BD;</mi></mrow><mrow 
><mi 
>E</mi></mrow></msub 
><mo 
class="MathClass-bin">&#x2212;</mo><mn>1</mn></mrow><mo 
class="MathClass-close">)</mo></mrow></mrow></msub 
>
</mrow></math></center>
<!--l. 1003--><p class="nopar">
holds.

<a 
  name="x1-300042"></a>
</p>
   <hr class="float" /><div align="center" class="float" 
><table class="float"><tr class="float"><td class="float" 
>

<div align="center" class="caption"><table class="caption" 
><tr valign="baseline" class="caption"><td class="id"><span 
class="eccc-1200">T<small 
class="small-caps">A</small><small 
class="small-caps">B</small>.</span>&#x00A0;5.2: </td><td  
class="content">Empirical power of <!--l. 1013--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mi 
>n</mi><msub><mrow 
><mi 
>T</mi></mrow><mrow 
><mi 
>n</mi><mo 
class="MathClass-punc">,</mo><mi 
>b</mi><mo 
class="MathClass-punc">,</mo><mi 
>A</mi></mrow></msub 
></math>
and Wilks test based on <!--l. 1013--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mi 
>N</mi> <mo 
class="MathClass-rel">=</mo> <mn>1</mn><mn>0</mn><mn>0</mn><mn>0</mn><mn>0</mn></math>
Monte Carlo replications for <!--l. 1013--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mi 
>p</mi> <mo 
class="MathClass-rel">=</mo> <mn>2</mn></math>,
<!--l. 1013--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mi 
>q</mi> <mo 
class="MathClass-rel">=</mo> <mn>2</mn></math>,
<!--l. 1013--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mi 
>&#x03BC;</mi> <mo 
class="MathClass-rel">=</mo> <mn>0</mn></math>,
<!--l. 1013--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mi 
>&#x03A3;</mi> <mo 
class="MathClass-rel">=</mo> <mi 
>&#x03B3;</mi><msub><mrow 
><mi 
>I</mi></mrow><mrow 
><mn>2</mn></mrow></msub 
></math>
and <!--l. 1013--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mi 
>&#x03A8;</mi> <mo 
class="MathClass-rel">=</mo> <mi 
>&#x03B8;</mi><msub><mrow 
><mi 
>I</mi></mrow><mrow 
><mn>2</mn></mrow></msub 
></math>.</td></tr></table></div><!--tex4ht:label?: x1-300042 -->
<div class="tabular"><table class="tabular" 
cellspacing="0pt" cellpadding="0" rules="groups" 
frame="border" id="TBL-27-" ><colgroup id="TBL-27-1g"><col 
id="TBL-27-1" /></colgroup><colgroup id="TBL-27-2g"><col 
id="TBL-27-2" /></colgroup><colgroup id="TBL-27-3g"><col 
id="TBL-27-3" /></colgroup><colgroup id="TBL-27-4g"><col 
id="TBL-27-4" /></colgroup><colgroup id="TBL-27-5g"><col 
id="TBL-27-5" /></colgroup><colgroup id="TBL-27-6g"><col 
id="TBL-27-6" /></colgroup><colgroup id="TBL-27-7g"><col 
id="TBL-27-7" /></colgroup><colgroup id="TBL-27-8g"><col 
id="TBL-27-8" /></colgroup><colgroup id="TBL-27-9g"><col 
id="TBL-27-9" /></colgroup><colgroup id="TBL-27-10g"><col 
id="TBL-27-10" /></colgroup><tr 
class="hline"><td><hr /></td><td><hr /></td><td><hr /></td><td><hr /></td><td><hr /></td><td><hr /></td><td><hr /></td><td><hr /></td><td><hr /></td><td><hr /></td></tr><tr  
 valign="baseline" id="TBL-27-1-"><td  align="center" nowrap="nowrap" id="TBL-27-1-1"  
class="td11">                                                                                                                                                  </td><td  align="center" nowrap="nowrap" id="TBL-27-1-2"  
class="td11">                                                                                                                                                  </td><td  align="center" nowrap="nowrap" id="TBL-27-1-3"  
class="td11">                                                                                                                                                  </td><td colspan="5" align="center" nowrap="nowrap" id="TBL-27-1-4"  
class="td11">                                                                                                                                                                                                                                                                                                           <div class="multicolumn"  align="center" nowrap="nowrap"><!--l. 1019--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mi 
>n</mi><msub><mrow 
><mi 
>T</mi></mrow><mrow 
><mi 
>n</mi><mo 
class="MathClass-punc">,</mo><mi 
>b</mi><mo 
class="MathClass-punc">,</mo><mi 
>A</mi></mrow></msub 
></math></div>                                                                                                                                                                </td><td  align="center" nowrap="nowrap" id="TBL-27-1-9"  
class="td11">                                                                                                                                                  </td><td  align="center" nowrap="nowrap" id="TBL-27-1-10"  
class="td11"><!--l. 1019--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mfrac linethickness="0"><mrow>       </mrow>
<mrow><mfrac><mrow 
><mo 
class="MathClass-rel">&#x2223;</mo><msub><mrow 
><mover 
accent="true"><mrow 
><mi 
>R</mi></mrow><mo 
class="MathClass-op">&#x0302;</mo></mover></mrow><mrow 
><mi 
>n</mi><mo 
class="MathClass-punc">,</mo><mi 
>A</mi></mrow></msub 
><mrow><mo 
class="MathClass-open">(</mo><mrow><mi 
>t</mi></mrow><mo 
class="MathClass-close">)</mo></mrow><msup><mrow 
><mo 
class="MathClass-rel">&#x2223;</mo></mrow><mrow 
><mn>2</mn></mrow></msup 
></mrow> 
<mrow 
><mn>0</mn><mo 
class="MathClass-punc">.</mo><mn>5</mn><msub><mrow 
><mi 
>C</mi></mrow><mrow 
><mi 
>A</mi></mrow></msub 
><mrow><mo 
class="MathClass-open">(</mo><mrow><mi 
>t</mi><mo 
class="MathClass-punc">,</mo><mi 
>t</mi></mrow><mo 
class="MathClass-close">)</mo></mrow></mrow></mfrac></mrow></mfrac> </math></td>
</tr><tr 
class="cline"><td></td><td></td><td></td><td><hr /></td><td><hr /></td><td><hr /></td><td><hr /></td><td><hr /></td><td></td><td></td></tr><tr  
 valign="baseline" id="TBL-27-2-"><td  align="center" nowrap="nowrap" id="TBL-27-2-1"  
class="td11"><!--l. 1021--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mfrac linethickness="0"><mrow><mn>1</mn><mo 
class="MathClass-bin">&#x2212;</mo><mi 
>&#x03B1;</mi></mrow>
   <mrow></mrow></mfrac>   </math></td><td  align="center" nowrap="nowrap" id="TBL-27-2-2"  
class="td11"><!--l. 1021--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mfrac linethickness="0"><mrow> <mfrac><mrow 
><mi 
>&#x03B8;</mi></mrow> 
<mrow 
><mi 
>&#x03B3;</mi></mrow></mfrac></mrow>
 <mrow></mrow></mfrac> </math></td><td  align="center" nowrap="nowrap" id="TBL-27-2-3"  
class="td11"><!--l. 1021--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mfrac linethickness="0"><mrow><mi 
>n</mi></mrow>
 <mrow></mrow></mfrac> </math></td><td  align="center" nowrap="nowrap" id="TBL-27-2-4"  
class="td11"><!--l. 1022--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mi 
>b</mi> <mo 
class="MathClass-rel">=</mo> <mn>0</mn><mo 
class="MathClass-punc">.</mo><mn>0</mn><mn>1</mn></math></td><td  align="center" nowrap="nowrap" id="TBL-27-2-5"  
class="td11"><!--l. 1022--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mi 
>b</mi> <mo 
class="MathClass-rel">=</mo> <mn>0</mn><mo 
class="MathClass-punc">.</mo><mn>1</mn></math></td><td  align="center" nowrap="nowrap" id="TBL-27-2-6"  
class="td11"><!--l. 1022--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mi 
>b</mi> <mo 
class="MathClass-rel">=</mo> <mn>0</mn><mo 
class="MathClass-punc">.</mo><mn>5</mn></math></td><td  align="center" nowrap="nowrap" id="TBL-27-2-7"  
class="td11"><!--l. 1022--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mi 
>b</mi> <mo 
class="MathClass-rel">=</mo> <mn>1</mn><mo 
class="MathClass-punc">.</mo><mn>0</mn></math></td><td  align="center" nowrap="nowrap" id="TBL-27-2-8"  
class="td11"><!--l. 1022--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mi 
>b</mi> <mo 
class="MathClass-rel">=</mo> <mn>3</mn><mo 
class="MathClass-punc">.</mo><mn>0</mn></math></td><td  align="center" nowrap="nowrap" id="TBL-27-2-9"  
class="td11"><!--l. 1023--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mfrac linethickness="0"><mrow><!--mstyle 
class="text"--><mtext >Wilks</mtext><!--/mstyle--></mrow> <mrow></mrow></mfrac></math></td><td  align="center" nowrap="nowrap" id="TBL-27-2-10"  
class="td11"><!--l. 1023--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mi 
>t</mi> <mo 
class="MathClass-rel">=</mo> <mrow><mo 
class="MathClass-open">(</mo><mrow><mn>0</mn><mo 
class="MathClass-punc">.</mo><mn>6</mn><mo 
class="MathClass-punc">,</mo> <mn>0</mn><mo 
class="MathClass-punc">.</mo><mn>6</mn><mo 
class="MathClass-punc">,</mo> <mn>0</mn><mo 
class="MathClass-punc">.</mo><mn>6</mn><mo 
class="MathClass-punc">,</mo> <mn>0</mn><mo 
class="MathClass-punc">.</mo><mn>6</mn></mrow><mo 
class="MathClass-close">)</mo></mrow></math></td>
</tr><tr 
class="hline"><td><hr /></td><td><hr /></td><td><hr /></td><td><hr /></td><td><hr /></td><td><hr /></td><td><hr /></td><td><hr /></td><td><hr /></td><td><hr /></td></tr><tr  
 valign="baseline" id="TBL-27-3-"><td  align="center" nowrap="nowrap" id="TBL-27-3-1"  
class="td11">                                                                                                                                                  </td><td  align="center" nowrap="nowrap" id="TBL-27-3-2"  
class="td11">                                                                       <span 
class="ecrm-0800">0.0                                                                       </span></td><td  align="center" nowrap="nowrap" id="TBL-27-3-3"  
class="td11">                                                                       <span 
class="ecrm-0800">20                                                                       </span></td><td  align="center" nowrap="nowrap" id="TBL-27-3-4"  
class="td11">                                                                     <span 
class="ecrm-0800">10.14                                                                     </span></td><td  align="center" nowrap="nowrap" id="TBL-27-3-5"  
class="td11">                                                                     <span 
class="ecrm-0800">10.27                                                                     </span></td><td  align="center" nowrap="nowrap" id="TBL-27-3-6"  
class="td11">                                                                     <span 
class="ecrm-0800">10.06                                                                     </span></td><td  align="center" nowrap="nowrap" id="TBL-27-3-7"  
class="td11">                                                                     <span 
class="ecrm-0800">10.21                                                                     </span></td><td  align="center" nowrap="nowrap" id="TBL-27-3-8"  
class="td11">                                                                     <span 
class="ecrm-0800">10.33                                                                     </span></td><td  align="center" nowrap="nowrap" id="TBL-27-3-9"  
class="td11">                                                                      <span 
class="ecrm-0800">9.96                                                                      </span></td><td  align="center" nowrap="nowrap" id="TBL-27-3-10"  
class="td11">                                                                     <span 
class="ecrm-0800">10.64                                                                     </span></td>
</tr><tr  
 valign="baseline" id="TBL-27-4-"><td  align="center" nowrap="nowrap" id="TBL-27-4-1"  
class="td11">                                                                                                                                                  </td><td  align="center" nowrap="nowrap" id="TBL-27-4-2"  
class="td11">                                                                                                                                                  </td><td  align="center" nowrap="nowrap" id="TBL-27-4-3"  
class="td11">                                                                       <span 
class="ecrm-0800">50                                                                       </span></td><td  align="center" nowrap="nowrap" id="TBL-27-4-4"  
class="td11">                                                                      <span 
class="ecrm-0800">9.46                                                                      </span></td><td  align="center" nowrap="nowrap" id="TBL-27-4-5"  
class="td11">                                                                     <span 
class="ecrm-0800">10.14                                                                     </span></td><td  align="center" nowrap="nowrap" id="TBL-27-4-6"  
class="td11">                                                                     <span 
class="ecrm-0800">10.15                                                                     </span></td><td  align="center" nowrap="nowrap" id="TBL-27-4-7"  
class="td11">                                                                     <span 
class="ecrm-0800">10.20                                                                     </span></td><td  align="center" nowrap="nowrap" id="TBL-27-4-8"  
class="td11">                                                                      <span 
class="ecrm-0800">9.94                                                                      </span></td><td  align="center" nowrap="nowrap" id="TBL-27-4-9"  
class="td11">                                                                     <span 
class="ecrm-0800">10.34                                                                     </span></td><td  align="center" nowrap="nowrap" id="TBL-27-4-10"  
class="td11">                                                                      <span 
class="ecrm-0800">9.99                                                                      </span></td>
</tr><tr 
class="cline"><td></td><td><hr /></td><td><hr /></td><td><hr /></td><td><hr /></td><td><hr /></td><td><hr /></td><td><hr /></td><td><hr /></td><td><hr /></td></tr><tr  
 valign="baseline" id="TBL-27-5-"><td  align="center" nowrap="nowrap" id="TBL-27-5-1"  
class="td11">                                                                                                                                                  </td><td  align="center" nowrap="nowrap" id="TBL-27-5-2"  
class="td11">                                                                       <span 
class="ecrm-0800">0.2                                                                       </span></td><td  align="center" nowrap="nowrap" id="TBL-27-5-3"  
class="td11">                                                                       <span 
class="ecrm-0800">20                                                                       </span></td><td  align="center" nowrap="nowrap" id="TBL-27-5-4"  
class="td11">                                                                     <span 
class="ecrm-0800">14.27                                                                     </span></td><td  align="center" nowrap="nowrap" id="TBL-27-5-5"  
class="td11">                                                                     <span 
class="ecrm-0800">14.39                                                                     </span></td><td  align="center" nowrap="nowrap" id="TBL-27-5-6"  
class="td11">                                                                     <span 
class="ecrm-0800">13.78                                                                     </span></td><td  align="center" nowrap="nowrap" id="TBL-27-5-7"  
class="td11">                                                                     <span 
class="ecrm-0800">12.64                                                                     </span></td><td  align="center" nowrap="nowrap" id="TBL-27-5-8"  
class="td11">                                                                     <span 
class="ecrm-0800">11.12                                                                     </span></td><td  align="center" nowrap="nowrap" id="TBL-27-5-9"  
class="td11">                                                                     <span 
class="ecrm-0800">39.15                                                                     </span></td><td  align="center" nowrap="nowrap" id="TBL-27-5-10"  
class="td11">                                                                     <span 
class="ecrm-0800">22.23                                                                     </span></td>
</tr><tr  
 valign="baseline" id="TBL-27-6-"><td  align="center" nowrap="nowrap" id="TBL-27-6-1"  
class="td11">                                                                      <span 
class="ecrm-0800">0.90                                                                      </span></td><td  align="center" nowrap="nowrap" id="TBL-27-6-2"  
class="td11">                                                                                                                                                  </td><td  align="center" nowrap="nowrap" id="TBL-27-6-3"  
class="td11">                                                                       <span 
class="ecrm-0800">50                                                                       </span></td><td  align="center" nowrap="nowrap" id="TBL-27-6-4"  
class="td11">                                                                     <span 
class="ecrm-0800">28.61                                                                     </span></td><td  align="center" nowrap="nowrap" id="TBL-27-6-5"  
class="td11">                                                                     <span 
class="ecrm-0800">29.87                                                                     </span></td><td  align="center" nowrap="nowrap" id="TBL-27-6-6"  
class="td11">                                                                     <span 
class="ecrm-0800">27.50                                                                     </span></td><td  align="center" nowrap="nowrap" id="TBL-27-6-7"  
class="td11">                                                                     <span 
class="ecrm-0800">19.00                                                                     </span></td><td  align="center" nowrap="nowrap" id="TBL-27-6-8"  
class="td11">                                                                     <span 
class="ecrm-0800">10.50                                                                     </span></td><td  align="center" nowrap="nowrap" id="TBL-27-6-9"  
class="td11">                                                                     <span 
class="ecrm-0800">63.63                                                                     </span></td><td  align="center" nowrap="nowrap" id="TBL-27-6-10"  
class="td11">                                                                     <span 
class="ecrm-0800">29.44                                                                     </span></td>
</tr><tr 
class="cline"><td></td><td><hr /></td><td><hr /></td><td><hr /></td><td><hr /></td><td><hr /></td><td><hr /></td><td><hr /></td><td><hr /></td><td><hr /></td></tr><tr  
 valign="baseline" id="TBL-27-7-"><td  align="center" nowrap="nowrap" id="TBL-27-7-1"  
class="td11">                                                                                                                                                  </td><td  align="center" nowrap="nowrap" id="TBL-27-7-2"  
class="td11">                                                                       <span 
class="ecrm-0800">0.4                                                                       </span></td><td  align="center" nowrap="nowrap" id="TBL-27-7-3"  
class="td11">                                                                       <span 
class="ecrm-0800">20                                                                       </span></td><td  align="center" nowrap="nowrap" id="TBL-27-7-4"  
class="td11">                                                                     <span 
class="ecrm-0800">28.43                                                                     </span></td><td  align="center" nowrap="nowrap" id="TBL-27-7-5"  
class="td11">                                                                     <span 
class="ecrm-0800">28.57                                                                     </span></td><td  align="center" nowrap="nowrap" id="TBL-27-7-6"  
class="td11">                                                                     <span 
class="ecrm-0800">26.61                                                                     </span></td><td  align="center" nowrap="nowrap" id="TBL-27-7-7"  
class="td11">                                                                     <span 
class="ecrm-0800">19.28                                                                     </span></td><td  align="center" nowrap="nowrap" id="TBL-27-7-8"  
class="td11">                                                                     <span 
class="ecrm-0800">11.81                                                                     </span></td><td  align="center" nowrap="nowrap" id="TBL-27-7-9"  
class="td11">                                                                     <span 
class="ecrm-0800">67.69                                                                     </span></td><td  align="center" nowrap="nowrap" id="TBL-27-7-10"  
class="td11">                                                                     <span 
class="ecrm-0800">35.55                                                                     </span></td>
</tr><tr  
 valign="baseline" id="TBL-27-8-"><td  align="center" nowrap="nowrap" id="TBL-27-8-1"  
class="td11">                                                                                                                                                  </td><td  align="center" nowrap="nowrap" id="TBL-27-8-2"  
class="td11">                                                                                                                                                  </td><td  align="center" nowrap="nowrap" id="TBL-27-8-3"  
class="td11">                                                                       <span 
class="ecrm-0800">50                                                                       </span></td><td  align="center" nowrap="nowrap" id="TBL-27-8-4"  
class="td11">                                                                     <span 
class="ecrm-0800">68.31                                                                     </span></td><td  align="center" nowrap="nowrap" id="TBL-27-8-5"  
class="td11">                                                                     <span 
class="ecrm-0800">69.70                                                                     </span></td><td  align="center" nowrap="nowrap" id="TBL-27-8-6"  
class="td11">                                                                     <span 
class="ecrm-0800">63.43                                                                     </span></td><td  align="center" nowrap="nowrap" id="TBL-27-8-7"  
class="td11">                                                                     <span 
class="ecrm-0800">40.63                                                                     </span></td><td  align="center" nowrap="nowrap" id="TBL-27-8-8"  
class="td11">                                                                     <span 
class="ecrm-0800">13.67                                                                     </span></td><td  align="center" nowrap="nowrap" id="TBL-27-8-9"  
class="td11">                                                                     <span 
class="ecrm-0800">94.72                                                                     </span></td><td  align="center" nowrap="nowrap" id="TBL-27-8-10"  
class="td11">                                                                     <span 
class="ecrm-0800">49.78                                                                     </span></td>
</tr><tr 
class="cline"><td></td><td><hr /></td><td><hr /></td><td><hr /></td><td><hr /></td><td><hr /></td><td><hr /></td><td><hr /></td><td><hr /></td><td><hr /></td></tr><tr  
 valign="baseline" id="TBL-27-9-"><td  align="center" nowrap="nowrap" id="TBL-27-9-1"  
class="td11">                                                                                                                                                  </td><td  align="center" nowrap="nowrap" id="TBL-27-9-2"  
class="td11">                                                                       <span 
class="ecrm-0800">1.0                                                                       </span></td><td  align="center" nowrap="nowrap" id="TBL-27-9-3"  
class="td11">                                                                       <span 
class="ecrm-0800">20                                                                       </span></td><td  align="center" nowrap="nowrap" id="TBL-27-9-4"  
class="td11">                                                                     <span 
class="ecrm-0800">77.09                                                                     </span></td><td  align="center" nowrap="nowrap" id="TBL-27-9-5"  
class="td11">                                                                     <span 
class="ecrm-0800">77.36                                                                     </span></td><td  align="center" nowrap="nowrap" id="TBL-27-9-6"  
class="td11">                                                                     <span 
class="ecrm-0800">72.66                                                                     </span></td><td  align="center" nowrap="nowrap" id="TBL-27-9-7"  
class="td11">                                                                     <span 
class="ecrm-0800">50.48                                                                     </span></td><td  align="center" nowrap="nowrap" id="TBL-27-9-8"  
class="td11">                                                                     <span 
class="ecrm-0800">16.49                                                                     </span></td><td  align="center" nowrap="nowrap" id="TBL-27-9-9"  
class="td11">                                                                     <span 
class="ecrm-0800">97.86                                                                     </span></td><td  align="center" nowrap="nowrap" id="TBL-27-9-10"  
class="td11">                                                                     <span 
class="ecrm-0800">51.98                                                                     </span></td>
</tr><tr  
 valign="baseline" id="TBL-27-10-"><td  align="center" nowrap="nowrap" id="TBL-27-10-1"  
class="td11">                                                                                                                                                  </td><td  align="center" nowrap="nowrap" id="TBL-27-10-2"  
class="td11">                                                                                                                                                  </td><td  align="center" nowrap="nowrap" id="TBL-27-10-3"  
class="td11">                                                                       <span 
class="ecrm-0800">50                                                                       </span></td><td  align="center" nowrap="nowrap" id="TBL-27-10-4"  
class="td11">                                                                     <span 
class="ecrm-0800">99.80                                                                     </span></td><td  align="center" nowrap="nowrap" id="TBL-27-10-5"  
class="td11">                                                                     <span 
class="ecrm-0800">99.81                                                                     </span></td><td  align="center" nowrap="nowrap" id="TBL-27-10-6"  
class="td11">                                                                     <span 
class="ecrm-0800">99.43                                                                     </span></td><td  align="center" nowrap="nowrap" id="TBL-27-10-7"  
class="td11">                                                                     <span 
class="ecrm-0800">92.68                                                                     </span></td><td  align="center" nowrap="nowrap" id="TBL-27-10-8"  
class="td11">                                                                     <span 
class="ecrm-0800">27.66                                                                     </span></td><td  align="center" nowrap="nowrap" id="TBL-27-10-9"  
class="td11">                                                                     <span 
class="ecrm-0800">99.99                                                                     </span></td><td  align="center" nowrap="nowrap" id="TBL-27-10-10"  
class="td11">                                                                     <span 
class="ecrm-0800">60.26                                                                     </span></td>
</tr><tr 
class="hline"><td><hr /></td><td><hr /></td><td><hr /></td><td><hr /></td><td><hr /></td><td><hr /></td><td><hr /></td><td><hr /></td><td><hr /></td><td><hr /></td></tr><tr  
 valign="baseline" id="TBL-27-11-"><td  align="center" nowrap="nowrap" id="TBL-27-11-1"  
class="td11">                                                                                                                                                  </td><td  align="center" nowrap="nowrap" id="TBL-27-11-2"  
class="td11">                                                                       <span 
class="ecrm-0800">0.0                                                                       </span></td><td  align="center" nowrap="nowrap" id="TBL-27-11-3"  
class="td11">                                                                       <span 
class="ecrm-0800">20                                                                       </span></td><td  align="center" nowrap="nowrap" id="TBL-27-11-4"  
class="td11">                                                                      <span 
class="ecrm-0800">4.67                                                                      </span></td><td  align="center" nowrap="nowrap" id="TBL-27-11-5"  
class="td11">                                                                      <span 
class="ecrm-0800">4.91                                                                      </span></td><td  align="center" nowrap="nowrap" id="TBL-27-11-6"  
class="td11">                                                                      <span 
class="ecrm-0800">5.52                                                                      </span></td><td  align="center" nowrap="nowrap" id="TBL-27-11-7"  
class="td11">                                                                      <span 
class="ecrm-0800">4.88                                                                      </span></td><td  align="center" nowrap="nowrap" id="TBL-27-11-8"  
class="td11">                                                                      <span 
class="ecrm-0800">5.16                                                                      </span></td><td  align="center" nowrap="nowrap" id="TBL-27-11-9"  
class="td11">                                                                      <span 
class="ecrm-0800">5.22                                                                      </span></td><td  align="center" nowrap="nowrap" id="TBL-27-11-10"  
class="td11">                                                                      <span 
class="ecrm-0800">5.39                                                                      </span></td>
</tr><tr  
 valign="baseline" id="TBL-27-12-"><td  align="center" nowrap="nowrap" id="TBL-27-12-1"  
class="td11">                                                                                                                                                  </td><td  align="center" nowrap="nowrap" id="TBL-27-12-2"  
class="td11">                                                                                                                                                  </td><td  align="center" nowrap="nowrap" id="TBL-27-12-3"  
class="td11">                                                                       <span 
class="ecrm-0800">50                                                                       </span></td><td  align="center" nowrap="nowrap" id="TBL-27-12-4"  
class="td11">                                                                      <span 
class="ecrm-0800">4.84                                                                      </span></td><td  align="center" nowrap="nowrap" id="TBL-27-12-5"  
class="td11">                                                                      <span 
class="ecrm-0800">4.58                                                                      </span></td><td  align="center" nowrap="nowrap" id="TBL-27-12-6"  
class="td11">                                                                      <span 
class="ecrm-0800">4.98                                                                      </span></td><td  align="center" nowrap="nowrap" id="TBL-27-12-7"  
class="td11">                                                                      <span 
class="ecrm-0800">4.82                                                                      </span></td><td  align="center" nowrap="nowrap" id="TBL-27-12-8"  
class="td11">                                                                      <span 
class="ecrm-0800">5.04                                                                      </span></td><td  align="center" nowrap="nowrap" id="TBL-27-12-9"  
class="td11">                                                                      <span 
class="ecrm-0800">5.22                                                                      </span></td><td  align="center" nowrap="nowrap" id="TBL-27-12-10"  
class="td11">                                                                      <span 
class="ecrm-0800">5.16                                                                      </span></td>
</tr><tr 
class="cline"><td></td><td><hr /></td><td><hr /></td><td><hr /></td><td><hr /></td><td><hr /></td><td><hr /></td><td><hr /></td><td><hr /></td><td><hr /></td></tr><tr  
 valign="baseline" id="TBL-27-13-"><td  align="center" nowrap="nowrap" id="TBL-27-13-1"  
class="td11">                                                                                                                                                  </td><td  align="center" nowrap="nowrap" id="TBL-27-13-2"  
class="td11">                                                                       <span 
class="ecrm-0800">0.2                                                                       </span></td><td  align="center" nowrap="nowrap" id="TBL-27-13-3"  
class="td11">                                                                       <span 
class="ecrm-0800">20                                                                       </span></td><td  align="center" nowrap="nowrap" id="TBL-27-13-4"  
class="td11">                                                                      <span 
class="ecrm-0800">7.35                                                                      </span></td><td  align="center" nowrap="nowrap" id="TBL-27-13-5"  
class="td11">                                                                      <span 
class="ecrm-0800">7.63                                                                      </span></td><td  align="center" nowrap="nowrap" id="TBL-27-13-6"  
class="td11">                                                                      <span 
class="ecrm-0800">7.94                                                                      </span></td><td  align="center" nowrap="nowrap" id="TBL-27-13-7"  
class="td11">                                                                      <span 
class="ecrm-0800">6.39                                                                      </span></td><td  align="center" nowrap="nowrap" id="TBL-27-13-8"  
class="td11">                                                                      <span 
class="ecrm-0800">5.53                                                                      </span></td><td  align="center" nowrap="nowrap" id="TBL-27-13-9"  
class="td11">                                                                     <span 
class="ecrm-0800">26.10                                                                     </span></td><td  align="center" nowrap="nowrap" id="TBL-27-13-10"  
class="td11">                                                                     <span 
class="ecrm-0800">13.86                                                                     </span></td>
</tr><tr  
 valign="baseline" id="TBL-27-14-"><td  align="center" nowrap="nowrap" id="TBL-27-14-1"  
class="td11">                                                                      <span 
class="ecrm-0800">0.95                                                                      </span></td><td  align="center" nowrap="nowrap" id="TBL-27-14-2"  
class="td11">                                                                                                                                                  </td><td  align="center" nowrap="nowrap" id="TBL-27-14-3"  
class="td11">                                                                       <span 
class="ecrm-0800">50                                                                       </span></td><td  align="center" nowrap="nowrap" id="TBL-27-14-4"  
class="td11">                                                                     <span 
class="ecrm-0800">18.96                                                                     </span></td><td  align="center" nowrap="nowrap" id="TBL-27-14-5"  
class="td11">                                                                     <span 
class="ecrm-0800">18.26                                                                     </span></td><td  align="center" nowrap="nowrap" id="TBL-27-14-6"  
class="td11">                                                                     <span 
class="ecrm-0800">17.11                                                                     </span></td><td  align="center" nowrap="nowrap" id="TBL-27-14-7"  
class="td11">                                                                     <span 
class="ecrm-0800">10.60                                                                     </span></td><td  align="center" nowrap="nowrap" id="TBL-27-14-8"  
class="td11">                                                                      <span 
class="ecrm-0800">5.14                                                                      </span></td><td  align="center" nowrap="nowrap" id="TBL-27-14-9"  
class="td11">                                                                     <span 
class="ecrm-0800">49.60                                                                     </span></td><td  align="center" nowrap="nowrap" id="TBL-27-14-10"  
class="td11">                                                                     <span 
class="ecrm-0800">20.06                                                                     </span></td>
</tr><tr 
class="cline"><td></td><td><hr /></td><td><hr /></td><td><hr /></td><td><hr /></td><td><hr /></td><td><hr /></td><td><hr /></td><td><hr /></td><td><hr /></td></tr><tr  
 valign="baseline" id="TBL-27-15-"><td  align="center" nowrap="nowrap" id="TBL-27-15-1"  
class="td11">                                                                                                                                                  </td><td  align="center" nowrap="nowrap" id="TBL-27-15-2"  
class="td11">                                                                       <span 
class="ecrm-0800">0.4                                                                       </span></td><td  align="center" nowrap="nowrap" id="TBL-27-15-3"  
class="td11">                                                                       <span 
class="ecrm-0800">20                                                                       </span></td><td  align="center" nowrap="nowrap" id="TBL-27-15-4"  
class="td11">                                                                     <span 
class="ecrm-0800">16.77                                                                     </span></td><td  align="center" nowrap="nowrap" id="TBL-27-15-5"  
class="td11">                                                                     <span 
class="ecrm-0800">17.20                                                                     </span></td><td  align="center" nowrap="nowrap" id="TBL-27-15-6"  
class="td11">                                                                     <span 
class="ecrm-0800">16.93                                                                     </span></td><td  align="center" nowrap="nowrap" id="TBL-27-15-7"  
class="td11">                                                                     <span 
class="ecrm-0800">10.80                                                                     </span></td><td  align="center" nowrap="nowrap" id="TBL-27-15-8"  
class="td11">                                                                      <span 
class="ecrm-0800">6.03                                                                      </span></td><td  align="center" nowrap="nowrap" id="TBL-27-15-9"  
class="td11">                                                                     <span 
class="ecrm-0800">53.44                                                                     </span></td><td  align="center" nowrap="nowrap" id="TBL-27-15-10"  
class="td11">                                                                     <span 
class="ecrm-0800">25.04                                                                     </span></td>
</tr><tr  
 valign="baseline" id="TBL-27-16-"><td  align="center" nowrap="nowrap" id="TBL-27-16-1"  
class="td11">                                                                                                                                                  </td><td  align="center" nowrap="nowrap" id="TBL-27-16-2"  
class="td11">                                                                                                                                                  </td><td  align="center" nowrap="nowrap" id="TBL-27-16-3"  
class="td11">                                                                       <span 
class="ecrm-0800">50                                                                       </span></td><td  align="center" nowrap="nowrap" id="TBL-27-16-4"  
class="td11">                                                                     <span 
class="ecrm-0800">56.83                                                                     </span></td><td  align="center" nowrap="nowrap" id="TBL-27-16-5"  
class="td11">                                                                     <span 
class="ecrm-0800">55.72                                                                     </span></td><td  align="center" nowrap="nowrap" id="TBL-27-16-6"  
class="td11">                                                                     <span 
class="ecrm-0800">50.23                                                                     </span></td><td  align="center" nowrap="nowrap" id="TBL-27-16-7"  
class="td11">                                                                     <span 
class="ecrm-0800">28.08                                                                     </span></td><td  align="center" nowrap="nowrap" id="TBL-27-16-8"  
class="td11">                                                                      <span 
class="ecrm-0800">7.37                                                                      </span></td><td  align="center" nowrap="nowrap" id="TBL-27-16-9"  
class="td11">                                                                     <span 
class="ecrm-0800">89.24                                                                     </span></td><td  align="center" nowrap="nowrap" id="TBL-27-16-10"  
class="td11">                                                                     <span 
class="ecrm-0800">38.59                                                                     </span></td>
</tr><tr 
class="cline"><td></td><td><hr /></td><td><hr /></td><td><hr /></td><td><hr /></td><td><hr /></td><td><hr /></td><td><hr /></td><td><hr /></td><td><hr /></td></tr><tr  
 valign="baseline" id="TBL-27-17-"><td  align="center" nowrap="nowrap" id="TBL-27-17-1"  
class="td11">                                                                                                                                                  </td><td  align="center" nowrap="nowrap" id="TBL-27-17-2"  
class="td11">                                                                       <span 
class="ecrm-0800">1.0                                                                       </span></td><td  align="center" nowrap="nowrap" id="TBL-27-17-3"  
class="td11">                                                                       <span 
class="ecrm-0800">20                                                                       </span></td><td  align="center" nowrap="nowrap" id="TBL-27-17-4"  
class="td11">                                                                     <span 
class="ecrm-0800">64.57                                                                     </span></td><td  align="center" nowrap="nowrap" id="TBL-27-17-5"  
class="td11">                                                                     <span 
class="ecrm-0800">65.61                                                                     </span></td><td  align="center" nowrap="nowrap" id="TBL-27-17-6"  
class="td11">                                                                     <span 
class="ecrm-0800">61.12                                                                     </span></td><td  align="center" nowrap="nowrap" id="TBL-27-17-7"  
class="td11">                                                                     <span 
class="ecrm-0800">36.17                                                                     </span></td><td  align="center" nowrap="nowrap" id="TBL-27-17-8"  
class="td11">                                                                      <span 
class="ecrm-0800">8.98                                                                      </span></td><td  align="center" nowrap="nowrap" id="TBL-27-17-9"  
class="td11">                                                                     <span 
class="ecrm-0800">94.91                                                                     </span></td><td  align="center" nowrap="nowrap" id="TBL-27-17-10"  
class="td11">                                                                     <span 
class="ecrm-0800">42.47                                                                     </span></td>
</tr><tr  
 valign="baseline" id="TBL-27-18-"><td  align="center" nowrap="nowrap" id="TBL-27-18-1"  
class="td11">                                                                                                                                                  </td><td  align="center" nowrap="nowrap" id="TBL-27-18-2"  
class="td11">                                                                                                                                                  </td><td  align="center" nowrap="nowrap" id="TBL-27-18-3"  
class="td11">                                                                       <span 
class="ecrm-0800">50                                                                       </span></td><td  align="center" nowrap="nowrap" id="TBL-27-18-4"  
class="td11">                                                                     <span 
class="ecrm-0800">99.45                                                                     </span></td><td  align="center" nowrap="nowrap" id="TBL-27-18-5"  
class="td11">                                                                     <span 
class="ecrm-0800">99.42                                                                     </span></td><td  align="center" nowrap="nowrap" id="TBL-27-18-6"  
class="td11">                                                                     <span 
class="ecrm-0800">98.61                                                                     </span></td><td  align="center" nowrap="nowrap" id="TBL-27-18-7"  
class="td11">                                                                     <span 
class="ecrm-0800">86.81                                                                     </span></td><td  align="center" nowrap="nowrap" id="TBL-27-18-8"  
class="td11">                                                                     <span 
class="ecrm-0800">17.72                                                                     </span></td><td  align="center" nowrap="nowrap" id="TBL-27-18-9"  
class="td11">                                                                     <span 
class="ecrm-0800">99.98                                                                     </span></td><td  align="center" nowrap="nowrap" id="TBL-27-18-10"  
class="td11">                                                                     <span 
class="ecrm-0800">50.93                                                                     </span></td>
</tr><tr 
class="hline"><td><hr /></td><td><hr /></td><td><hr /></td><td><hr /></td><td><hr /></td><td><hr /></td><td><hr /></td><td><hr /></td><td><hr /></td><td><hr /></td></tr><tr  
 valign="baseline" id="TBL-27-19-"><td  align="center" nowrap="nowrap" id="TBL-27-19-1"  
class="td11">                                                                                                                                                  </td>
</tr><!--"|c|c|c|c|c|c|c|c||c|c|"--></table>
</div>

   </td></tr></table></div><hr class="endfloat" />
Wilks test has power superior to the test proposed in this paper. This is not
surprising since Wilks test is specifically designed for the parametric hypothesis
<!--l. 1055--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mi 
>&#x03A8;</mi> <mo 
class="MathClass-rel">=</mo> <mn>0</mn></math> in the
linear model which holds in the simulation. However, our test is more generally
applicable and will yield reasonable power for reasonably large sample sizes. Moreover,
it is not difficult to construct another model where Wilks test would fail. For example,
Wilks test would be unable to detect the dependance in the normal mixture
model
   <center class="math-display"><!--l. 1061--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="display"><mrow 
>
<mfenced separators="" 
open="("  close=")" ><mrow><mtable  align="axis"  
equalrows="false" equalcolumns="false" class="array"><mtr><mtd 
class="array"  columnalign="center"><msup><mrow 
><mi 
>&#x03B5;</mi></mrow><mrow 
><mrow><mo 
class="MathClass-open">(</mo><mrow><mn>1</mn></mrow><mo 
class="MathClass-close">)</mo></mrow></mrow></msup 
></mtd>
</mtr><mtr><mtd 
class="array"  columnalign="center"><msup><mrow 
><mi 
>&#x03B5;</mi></mrow><mrow 
><mrow><mo 
class="MathClass-open">(</mo><mrow><mn>2</mn></mrow><mo 
class="MathClass-close">)</mo></mrow></mrow></msup 
></mtd>
</mtr>      <!--c--></mtable>                                                                                                                                           </mrow></mfenced> <mo 
class="MathClass-rel">&#x223C;</mo> <mn>0</mn><mo 
class="MathClass-punc">.</mo><mn>5</mn><msub><mrow 
><mi 
>N</mi></mrow><mrow 
><mn>4</mn></mrow></msub 
> <mfenced separators="" 
open="("  close=")" ><mrow><mfenced separators="" 
open="("  close=")" ><mrow><mtable  align="axis"  
equalrows="false" equalcolumns="false" class="array"><mtr><mtd 
class="array"  columnalign="center"><mn>0</mn></mtd>
</mtr><mtr><mtd 
class="array"  columnalign="center"><mn>0</mn></mtd></mtr>   <!--c--></mtable>                                                                                        </mrow></mfenced><mo 
class="MathClass-punc">,</mo> <mfenced separators="" 
open="("  close=")" ><mrow><mtable  align="axis"  
equalrows="false" equalcolumns="false" class="array"><mtr><mtd 
class="array"  columnalign="center"><msub><mrow 
><mi 
>I</mi></mrow><mrow 
><mn>2</mn></mrow></msub 
></mtd><mtd 
class="array"  columnalign="center"><mi 
>&#x03A8;</mi></mtd>
</mtr><mtr><mtd 
class="array"  columnalign="center"><mi 
>&#x03A8;</mi></mtd> <mtd 
class="array"  columnalign="center"><msub><mrow 
><mi 
>I</mi></mrow><mrow 
><mn>2</mn></mrow></msub 
></mtd></mtr> <!--cc--></mtable>                                                                                                                                         </mrow></mfenced></mrow></mfenced><mo 
class="MathClass-bin">+</mo><mn>0</mn><mo 
class="MathClass-punc">.</mo><mn>5</mn><msub><mrow 
><mi 
>N</mi></mrow><mrow 
><mn>4</mn></mrow></msub 
> <mfenced separators="" 
open="("  close=")" ><mrow><mfenced separators="" 
open="("  close=")" ><mrow><mtable  align="axis"  
equalrows="false" equalcolumns="false" class="array"><mtr><mtd 
class="array"  columnalign="center"><mn>0</mn></mtd>
</mtr><mtr><mtd 
class="array"  columnalign="center"><mn>0</mn></mtd></mtr>   <!--c--></mtable>                                                                                        </mrow></mfenced><mo 
class="MathClass-punc">,</mo> <mfenced separators="" 
open="("  close=")" ><mrow><mtable  align="axis"  
equalrows="false" equalcolumns="false" class="array"><mtr><mtd 
class="array"  columnalign="center"><msub><mrow 
> <mi 
>I</mi></mrow><mrow 
><mn>2</mn></mrow></msub 
> </mtd><mtd 
class="array"  columnalign="center"><mo 
class="MathClass-bin">&#x2212;</mo><mi 
>&#x03A8;</mi></mtd>
</mtr><mtr><mtd 
class="array"  columnalign="center"><mo 
class="MathClass-bin">&#x2212;</mo><mi 
>&#x03A8;</mi></mtd><mtd 
class="array"  columnalign="center"><msub><mrow 
> <mi 
>I</mi></mrow><mrow 
><mn>2</mn></mrow></msub 
> </mtd></mtr> <!--cc--></mtable>                                                                                                                                    </mrow></mfenced></mrow></mfenced>
</mrow></math></center>
<!--l. 1090--><p class="nopar">
contrary to our test.
</p>
   <h3 class="sectionHead"><span class="titlemark">6. </span> <a 
  name="x1-310006"></a>Proofs</h3>
<!--l. 1094--><p class="noindent">Define the metric <!--l. 1094--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mi 
>&#x03C1;</mi></math>
on <!--l. 1094--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mi 
>C</mi> <mo 
class="MathClass-punc">:</mo><mo 
class="MathClass-rel">=</mo> <mi 
>C</mi><mrow><mo 
class="MathClass-open">(</mo><mrow><msup><mrow 
><mi mathvariant="double-struck">&#x211D;</mi></mrow><mrow 
><mi 
>p</mi><mi 
>q</mi></mrow></msup 
><mo 
class="MathClass-punc">,</mo> <mi mathvariant="double-struck">&#x2102;</mi></mrow><mo 
class="MathClass-close">)</mo></mrow></math> by
</p><table class="equation"><tr><td> <a 
  name="x1-31001r1"></a>
<!--l. 1095--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="display">
                       <mi 
>&#x03C1;</mi><mrow><mo 
class="MathClass-open">(</mo><mrow><mi 
>x</mi><mo 
class="MathClass-punc">,</mo><mi 
>y</mi></mrow><mo 
class="MathClass-close">)</mo></mrow> <mo 
class="MathClass-rel">=</mo><msubsup><mrow 
> <mo 
class="MathClass-op">&#x2211;</mo>
  </mrow><mrow 
><mi 
>j</mi><mo 
class="MathClass-rel">=</mo><mn>1</mn></mrow><mrow 
><mi 
>&#x221E;</mi></mrow></msubsup 
><msup><mrow 
><mn>2</mn></mrow><mrow 
><mo 
class="MathClass-bin">&#x2212;</mo><mi 
>j</mi></mrow></msup 
>   <mfrac><mrow 
><msub><mrow 
><mi 
>&#x03C1;</mi></mrow><mrow 
><mi 
>j</mi></mrow></msub 
><mrow><mo 
class="MathClass-open">(</mo><mrow><mi 
>x</mi><mo 
class="MathClass-punc">,</mo><mi 
>y</mi></mrow><mo 
class="MathClass-close">)</mo></mrow></mrow> 
<mrow 
><mn>1</mn> <mo 
class="MathClass-bin">+</mo> <msub><mrow 
><mi 
>&#x03C1;</mi></mrow><mrow 
><mi 
>j</mi></mrow></msub 
><mrow><mo 
class="MathClass-open">(</mo><mrow><mi 
>x</mi><mo 
class="MathClass-punc">,</mo><mi 
>y</mi></mrow><mo 
class="MathClass-close">)</mo></mrow></mrow></mfrac><mo 
class="MathClass-punc">,</mo>
</math>
<!--l. 1098--><p class="nopar"></p></td><td class="eq-no">(6.1)</td></tr></table>
where

   <center class="math-display"><!--l. 1100--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="display"><mrow 
>
                              <msub><mrow 
><mi 
>&#x03C1;</mi></mrow><mrow 
><mi 
>j</mi></mrow></msub 
><mrow><mo 
class="MathClass-open">(</mo><mrow><mi 
>x</mi><mo 
class="MathClass-punc">,</mo><mi 
>y</mi></mrow><mo 
class="MathClass-close">)</mo></mrow> <mo 
class="MathClass-rel">=</mo> <munder><mrow 
><mo 
> sup</mo> </mrow><mrow 
><mo 
class="MathClass-rel">&#x2225;</mo><mi 
>t</mi><mo 
class="MathClass-rel">&#x2225;</mo><mo 
class="MathClass-rel">&#x2264;</mo> <mi 
>j</mi></mrow></munder><mo 
class="MathClass-rel">&#x2223;</mo><mi 
>x</mi><mrow><mo 
class="MathClass-open">(</mo><mrow><mi 
>t</mi></mrow><mo 
class="MathClass-close">)</mo></mrow> <mo 
class="MathClass-bin">&#x2212;</mo> <mi 
>y</mi><mrow><mo 
class="MathClass-open">(</mo><mrow><mi 
>t</mi></mrow><mo 
class="MathClass-close">)</mo></mrow><mo 
class="MathClass-rel">&#x2223;</mo>
</mrow></math></center>
<!--l. 1103--><p class="nopar">
is the usual sup norm. Endowed with this metric,
<!--l. 1105--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mi 
>C</mi><mrow><mo 
class="MathClass-open">(</mo><mrow><msup><mrow 
><mi mathvariant="double-struck">&#x211D;</mi></mrow><mrow 
><mi 
>p</mi></mrow></msup 
><mo 
class="MathClass-punc">,</mo> <mi mathvariant="double-struck">&#x2102;</mi></mrow><mo 
class="MathClass-close">)</mo></mrow></math> is a
separable Fr&#x00E9;chet space, that is a linear complete and separable metric space. Moreover,
convergence in this metric corresponds to the uniform convergence on all compact sets,
<!--l. 1109--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><munder><mrow 
><mo 
>lim</mo></mrow><mrow 
><mi 
>n</mi> <mo 
class="MathClass-rel">&#x2192;</mo><mi 
>&#x221E;</mi></mrow></munder><mi 
>&#x03C1;</mi><mrow><mo 
class="MathClass-open">(</mo><mrow><msub><mrow 
><mi 
>x</mi></mrow><mrow 
><mi 
>n</mi></mrow></msub 
><mo 
class="MathClass-punc">,</mo><mi 
>x</mi></mrow><mo 
class="MathClass-close">)</mo></mrow> <mo 
class="MathClass-rel">=</mo> <mn>0</mn></math> if and only if
<!--l. 1110--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mi 
>&#x2200;</mi><mi 
>j</mi> <mo 
class="MathClass-rel">&#x2265;</mo> <mn>1</mn><mo 
class="MathClass-punc">,</mo><munder><mrow 
><mo 
> lim</mo> </mrow><mrow 
><mi 
>n</mi> <mo 
class="MathClass-rel">&#x2192;</mo><mi 
>&#x221E;</mi></mrow></munder><msub><mrow 
><mi 
>&#x03C1;</mi></mrow><mrow 
><mi 
>j</mi></mrow></msub 
><mrow><mo 
class="MathClass-open">(</mo><mrow><msub><mrow 
><mi 
>x</mi></mrow><mrow 
><mi 
>n</mi></mrow></msub 
><mo 
class="MathClass-punc">,</mo><mi 
>x</mi></mrow><mo 
class="MathClass-close">)</mo></mrow> <mo 
class="MathClass-rel">=</mo> <mn>0</mn></math>. For random
elements, it also holds <!--l. 1112--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mi 
>&#x03C1;</mi><mrow><mo 
class="MathClass-open">(</mo><mrow><msub><mrow 
><mi 
>X</mi></mrow><mrow 
><mi 
>n</mi></mrow></msub 
><mo 
class="MathClass-punc">,</mo><msub><mrow 
><mi 
>Y</mi> </mrow><mrow 
><mi 
>n</mi></mrow></msub 
></mrow><mo 
class="MathClass-close">)</mo></mrow><mover 
class="stackrel"><mrow 
><mo 
class="MathClass-rel">&#x2192;</mo></mrow><mrow 
><mo 
class="MathClass-op">P</mo></mrow></mover><mn>0</mn></math>
if and only if <!--l. 1113--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mi 
>&#x2200;</mi><mi 
>j</mi> <mo 
class="MathClass-rel">&#x2265;</mo> <mn>1</mn><mo 
class="MathClass-punc">,</mo><msub><mrow 
><mi 
>&#x03C1;</mi></mrow><mrow 
><mi 
>j</mi></mrow></msub 
><mrow><mo 
class="MathClass-open">(</mo><mrow><msub><mrow 
><mi 
>X</mi></mrow><mrow 
><mi 
>n</mi></mrow></msub 
><mo 
class="MathClass-punc">,</mo><msub><mrow 
><mi 
>Y</mi> </mrow><mrow 
><mi 
>n</mi></mrow></msub 
></mrow><mo 
class="MathClass-close">)</mo></mrow><mover 
class="stackrel"><mrow 
><mo 
class="MathClass-rel">&#x2192;</mo></mrow><mrow 
><mo 
class="MathClass-op">P</mo></mrow></mover><mn>0</mn></math>. For
all mappings <!--l. 1114--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mi 
>x</mi> <mo 
class="MathClass-rel">&#x2208;</mo> <mi 
>C</mi></math>,
let <!--l. 1115--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><msub><mrow 
><mi 
>r</mi></mrow><mrow 
><mi 
>j</mi></mrow></msub 
><mrow><mo 
class="MathClass-open">(</mo><mrow><mi 
>x</mi></mrow><mo 
class="MathClass-close">)</mo></mrow></math> be the
restriction of <!--l. 1115--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mi 
>x</mi></math>
to the ball <!--l. 1116--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><msubsup><mrow 
><mi mathvariant="double-struck">&#x211D;</mi></mrow><mrow 
><mi 
>j</mi></mrow><mrow 
><mi 
>p</mi><mi 
>q</mi></mrow></msubsup 
></math>
of radius <!--l. 1116--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mi 
>j</mi></math>.
</p>
   <h4 class="subsectionHead"><span class="titlemark">6.1. </span> <a 
  name="x1-320006.1"></a>Proof of Theorem 2.1</h4>
<!--l. 1122--><p class="noindent">By Propositions 14.6, 14.2 and Theorem 14.3 of Kallenberg (1997)(<a 
  name="dx1-32001"></a><a 
href="#X1997Kallebilo">22</a>), it suffices to show
that <!--l. 1124--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><msub><mrow 
><mi 
>r</mi></mrow><mrow 
><mi 
>j</mi></mrow></msub 
><mrow><mo 
class="MathClass-open">(</mo><mrow><msub><mrow 
><mi 
>R</mi></mrow><mrow 
><mi 
>n</mi><mo 
class="MathClass-punc">,</mo><mi 
>A</mi></mrow></msub 
></mrow><mo 
class="MathClass-close">)</mo></mrow><mover><mrow 
><mo 
class="MathClass-rel">&#x2192;</mo></mrow><mrow 
><mi 
>f</mi><mi 
>d</mi></mrow></mover><msub><mrow 
><mi 
>r</mi></mrow><mrow 
><mi 
>j</mi></mrow></msub 
><mrow><mo 
class="MathClass-open">(</mo><mrow><msub><mrow 
><mi 
>R</mi></mrow><mrow 
><mi 
>A</mi></mrow></msub 
></mrow><mo 
class="MathClass-close">)</mo></mrow></math> and
<!--l. 1125--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mrow><mo 
class="MathClass-open">{</mo><mrow><msub><mrow 
><mi 
>r</mi></mrow><mrow 
><mi 
>j</mi></mrow></msub 
><mrow><mo 
class="MathClass-open">(</mo><mrow><msub><mrow 
><mi 
>R</mi></mrow><mrow 
><mi 
>n</mi><mo 
class="MathClass-punc">,</mo><mi 
>A</mi></mrow></msub 
></mrow><mo 
class="MathClass-close">)</mo></mrow></mrow><mo 
class="MathClass-close">}</mo></mrow></math> is a tight family in order
to show the convergence <!--l. 1126--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><msub><mrow 
><mi 
>R</mi></mrow><mrow 
><mi 
>n</mi><mo 
class="MathClass-punc">,</mo><mi 
>A</mi></mrow></msub 
><mover><mrow 
><mo 
class="MathClass-rel">&#x2192;</mo></mrow><mrow 
><mi 
>D</mi></mrow></mover><msub><mrow 
><mi 
>R</mi></mrow><mrow 
><mi 
>A</mi></mrow></msub 
></math>.
Convergence of the finite dimensional distributions to Gaussian limit
is a direct consequence of the multivariate central limit theorem
and the representation (<a 
href="#x1-22012r5">2.5<!--tex4ht:ref: RnArepresentation --></a>) of the process. The covariance function
<!--l. 1130--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><msub><mrow 
><mi 
>C</mi></mrow><mrow 
><mi 
>A</mi></mrow></msub 
></math>
of (<a 
href="#x1-22009r3">2.3<!--tex4ht:ref: covariance --></a>) is also easy to obtain, as is the independence of the processes
<!--l. 1132--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><msub><mrow 
><mi 
>R</mi></mrow><mrow 
><mi 
>A</mi></mrow></msub 
></math>.
Then, one can write </p><table class="equation"><tr><td> <a 
  name="x1-32002r2"></a>

<!--l. 1134--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="display">
                   <msub><mrow 
><mi 
>R</mi></mrow><mrow 
><mi 
>n</mi><mo 
class="MathClass-punc">,</mo><mi 
>A</mi></mrow></msub 
><mrow><mo 
class="MathClass-open">(</mo><mrow><mi 
>t</mi></mrow><mo 
class="MathClass-close">)</mo></mrow> <mo 
class="MathClass-rel">=</mo><msub><mrow 
> <mo 
class="MathClass-op">&#x2211;</mo>
   </mrow><mrow 
><mi 
>B</mi><mo 
class="MathClass-rel">&#x2282;</mo><mi 
>A</mi></mrow></msub 
><msup><mrow 
><mrow><mo 
class="MathClass-open">(</mo><mrow><mo 
class="MathClass-bin">&#x2212;</mo><mn>1</mn></mrow><mo 
class="MathClass-close">)</mo></mrow></mrow><mrow 
><mo 
class="MathClass-rel">&#x2223;</mo><mi 
>A</mi><mo 
class="MathClass-bin">&#x2216;</mo><mi 
>B</mi><mo 
class="MathClass-rel">&#x2223;</mo></mrow></msup 
><msub><mrow 
><mi 
>&#x03C6;</mi></mrow><mrow 
>
<mi 
>A</mi><mo 
class="MathClass-punc">,</mo><mi 
>B</mi></mrow></msub 
><mrow><mo 
class="MathClass-open">(</mo><mrow><mi 
>t</mi></mrow><mo 
class="MathClass-close">)</mo></mrow><msub><mrow 
><mi 
>Y</mi> </mrow><mrow 
><mi 
>n</mi><mo 
class="MathClass-punc">,</mo><mi 
>B</mi></mrow></msub 
><mrow><mo 
class="MathClass-open">(</mo><mrow><mi 
>t</mi></mrow><mo 
class="MathClass-close">)</mo></mrow><mo 
class="MathClass-punc">,</mo>
</math>
<!--l. 1137--><p class="nopar"></p></td><td class="eq-no">(6.2)</td></tr></table>
where <table class="equation"><tr><td> <a 
  name="x1-32003r3"></a>
<!--l. 1139--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="display">
            <msub><mrow 
><mi 
>Y</mi> </mrow><mrow 
><mi 
>n</mi><mo 
class="MathClass-punc">,</mo><mi 
>B</mi></mrow></msub 
><mrow><mo 
class="MathClass-open">(</mo><mrow><mi 
>t</mi></mrow><mo 
class="MathClass-close">)</mo></mrow> <mo 
class="MathClass-rel">=</mo>   <mfrac><mrow 
><mn>1</mn></mrow> 
<mrow 
><msqrt><mrow><mi 
>n</mi></mrow></msqrt></mrow></mfrac><msubsup><mrow 
> <mo 
class="MathClass-op">&#x2211;</mo>
     </mrow><mrow 
><mi 
>j</mi><mo 
class="MathClass-rel">=</mo><mn>1</mn></mrow><mrow 
><mi 
>n</mi></mrow></msubsup 
> <mfenced separators="" 
open="{"  close="}" ><mrow><mo 
>exp</mo><!--nolimits--><mrow><mo 
class="MathClass-open">(</mo><mrow><mstyle mathvariant="normal"><mi 
>i</mi></mstyle><mrow><mo 
class="MathClass-open">&#x2329;</mo><mrow><msup><mrow 
><mi 
>t</mi></mrow><mrow 
><mi 
>B</mi></mrow></msup 
><mo 
class="MathClass-punc">,</mo><msub><mrow 
><mi 
>&#x03B5;</mi></mrow><mrow 
>
<mi 
>j</mi></mrow></msub 
></mrow><mo 
class="MathClass-close">&#x232A;</mo></mrow></mrow><mo 
class="MathClass-close">)</mo></mrow> <mo 
class="MathClass-bin">&#x2212;</mo> <mi 
>E</mi> <mfenced separators="" 
open="["  close="]" ><mrow><mo 
>exp</mo><!--nolimits--><mrow><mo 
class="MathClass-open">(</mo><mrow><mstyle mathvariant="normal"><mi 
>i</mi></mstyle><mrow><mo 
class="MathClass-open">&#x2329;</mo><mrow><msup><mrow 
><mi 
>t</mi></mrow><mrow 
><mi 
>B</mi></mrow></msup 
><mo 
class="MathClass-punc">,</mo><msub><mrow 
><mi 
>&#x03B5;</mi></mrow><mrow 
>
<mn>1</mn></mrow></msub 
></mrow><mo 
class="MathClass-close">&#x232A;</mo></mrow></mrow><mo 
class="MathClass-close">)</mo></mrow></mrow></mfenced></mrow></mfenced>
</math>
<!--l. 1143--><p class="nopar"></p></td><td class="eq-no">(6.3)</td></tr></table>
and <!--l. 1144--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><msub><mrow 
><mi 
>&#x03C6;</mi></mrow><mrow 
><mi 
>A</mi><mo 
class="MathClass-punc">,</mo><mi 
>B</mi></mrow></msub 
><mrow><mo 
class="MathClass-open">(</mo><mrow><mi 
>t</mi></mrow><mo 
class="MathClass-close">)</mo></mrow> <mo 
class="MathClass-rel">=</mo><msub><mrow 
> <mo 
class="MathClass-op">&#x220F;</mo>
  </mrow><mrow 
><mi 
>l</mi><mo 
class="MathClass-rel">&#x2208;</mo><mi 
>A</mi><mo 
class="MathClass-bin">&#x2216;</mo><mi 
>B</mi></mrow></msub 
><mi 
>&#x03C6;</mi><mrow><mo 
class="MathClass-open">(</mo><mrow><msup><mrow 
><mi 
>t</mi></mrow><mrow 
><mrow><mo 
class="MathClass-open">(</mo><mrow><mi 
>l</mi></mrow><mo 
class="MathClass-close">)</mo></mrow></mrow></msup 
></mrow><mo 
class="MathClass-close">)</mo></mrow></math>. The
process <!--l. 1146--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><msub><mrow 
><mi 
>Y</mi> </mrow><mrow 
><mi 
>n</mi><mo 
class="MathClass-punc">,</mo><mi 
>B</mi></mrow></msub 
></math> on a
compact is an empirical characteristic function process which was shown by Csorgo (1981b)(<a 
  name="dx1-32004"></a><a 
href="#X1981Csorg203bilo">9</a>)
to be tight if the sufficient condition in (Csorgo, 1985, p. 294)(<a 
  name="dx1-32005"></a><a 
href="#X1985Csorg290bilo">10</a>) is satisfied. Hence,
<!--l. 1150--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><msub><mrow 
><mi 
>r</mi></mrow><mrow 
><mi 
>j</mi></mrow></msub 
><mrow><mo 
class="MathClass-open">(</mo><mrow><msub><mrow 
><mi 
>Y</mi> </mrow><mrow 
><mi 
>n</mi><mo 
class="MathClass-punc">,</mo><mi 
>B</mi></mrow></msub 
></mrow><mo 
class="MathClass-close">)</mo></mrow></math> is tight. Since there is
only a finite number of <!--l. 1152--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mi 
>B</mi></math>&#x2019;s
in (<a 
href="#x1-32002r2">6.2<!--tex4ht:ref: repY --></a>), it follows that <!--l. 1152--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mrow><mo 
class="MathClass-open">{</mo><mrow><msub><mrow 
><mi 
>r</mi></mrow><mrow 
><mi 
>j</mi></mrow></msub 
><mrow><mo 
class="MathClass-open">(</mo><mrow><msub><mrow 
><mi 
>R</mi></mrow><mrow 
><mi 
>n</mi><mo 
class="MathClass-punc">,</mo><mi 
>A</mi></mrow></msub 
></mrow><mo 
class="MathClass-close">)</mo></mrow></mrow><mo 
class="MathClass-close">}</mo></mrow></math>
is also tight.
   <h4 class="subsectionHead"><span class="titlemark">6.2. </span> <a 
  name="x1-330006.2"></a>Proof of Theorem 2.2</h4>
<!--l. 1159--><p class="noindent">By invariance assume <!--l. 1159--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mi 
>&#x03BC;</mi> <mo 
class="MathClass-rel">=</mo> <mn>0</mn></math>
and <!--l. 1160--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mi 
>&#x03A3;</mi> <mo 
class="MathClass-rel">=</mo> <mi 
>I</mi></math>.
Let <!--l. 1161--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><msubsup><mrow 
><mi 
>e</mi></mrow><mrow 
><mi 
>j</mi></mrow><mrow 
><mrow><mo 
class="MathClass-open">(</mo><mrow><mi 
>k</mi></mrow><mo 
class="MathClass-close">)</mo></mrow></mrow></msubsup 
> <mo 
class="MathClass-rel">=</mo><msup><mrow 
> <mi 
>S</mi></mrow><mrow 
><mo 
class="MathClass-bin">&#x2212;</mo><mfrac><mrow 
><mn>1</mn></mrow>
<mrow 
><mn>2</mn></mrow></mfrac> </mrow></msup 
><mrow><mo 
class="MathClass-open">(</mo><mrow><msubsup><mrow 
><mi 
>&#x03B5;</mi></mrow><mrow 
><mi 
>j</mi></mrow><mrow 
><mrow><mo 
class="MathClass-open">(</mo><mrow><mi 
>k</mi></mrow><mo 
class="MathClass-close">)</mo></mrow></mrow></msubsup 
> <mo 
class="MathClass-bin">&#x2212;</mo><mover accent="false" 
class="mml-overline"><mrow><mi 
>&#x03B5;</mi></mrow><mo 
accent="true">&#x00AF;</mo></mover></mrow><mo 
class="MathClass-close">)</mo></mrow> <mo 
class="MathClass-rel">=</mo><msubsup><mrow 
> <mi 
>&#x03B5;</mi></mrow><mrow 
><mi 
>j</mi></mrow><mrow 
><mrow><mo 
class="MathClass-open">(</mo><mrow><mi 
>k</mi></mrow><mo 
class="MathClass-close">)</mo></mrow></mrow></msubsup 
> <mo 
class="MathClass-bin">+</mo><msubsup><mrow 
> <mi 
>&#x03B4;</mi></mrow><mrow 
><mi 
>j</mi></mrow><mrow 
><mrow><mo 
class="MathClass-open">(</mo><mrow><mi 
>k</mi></mrow><mo 
class="MathClass-close">)</mo></mrow></mrow></msubsup 
></math>,
with <!--l. 1163--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><msubsup><mrow 
><mi 
>&#x03B4;</mi></mrow><mrow 
><mi 
>j</mi></mrow><mrow 
><mrow><mo 
class="MathClass-open">(</mo><mrow><mi 
>k</mi></mrow><mo 
class="MathClass-close">)</mo></mrow></mrow></msubsup 
> <mo 
class="MathClass-rel">=</mo> <mrow><mo 
class="MathClass-open">(</mo><mrow><msup><mrow 
><mi 
>S</mi></mrow><mrow 
><mo 
class="MathClass-bin">&#x2212;</mo><mfrac><mrow 
><mn>1</mn></mrow>
<mrow 
><mn>2</mn></mrow></mfrac> </mrow></msup 
> <mo 
class="MathClass-bin">&#x2212;</mo><mi 
>I</mi></mrow><mo 
class="MathClass-close">)</mo></mrow><msubsup><mrow 
><mi 
>&#x03B5;</mi></mrow><mrow 
><mi 
>j</mi></mrow><mrow 
><mrow><mo 
class="MathClass-open">(</mo><mrow><mi 
>k</mi></mrow><mo 
class="MathClass-close">)</mo></mrow></mrow></msubsup 
> <mo 
class="MathClass-bin">&#x2212;</mo><msup><mrow 
><mi 
>S</mi></mrow><mrow 
><mo 
class="MathClass-bin">&#x2212;</mo><mfrac><mrow 
><mn>1</mn></mrow>
<mrow 
><mn>2</mn></mrow></mfrac> </mrow></msup 
><mover accent="false" 
class="mml-overline"><mrow><mi 
>&#x03B5;</mi></mrow><mo 
accent="true">&#x00AF;</mo></mover></math>.
Two intermediate processes are now defined. Firstly,

</p><!--l. 1166--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="display">
<mtable 
class="eqnarray" columnalign="right center left" >
<mtr><mtd 
class="eqnarray-1"><msub><mrow 
>   <mover 
accent="true"><mrow 
><mi 
>R</mi></mrow><mo 
class="MathClass-op">&#x02DC;</mo></mover></mrow><mrow 
><mi 
>n</mi><mo 
class="MathClass-punc">,</mo><mi 
>A</mi></mrow></msub 
><mrow><mo 
class="MathClass-open">(</mo><mrow><mi 
>t</mi></mrow><mo 
class="MathClass-close">)</mo></mrow></mtd><mtd 
class="eqnarray-2">    <mo 
class="MathClass-rel">=</mo> </mtd><mtd 
class="eqnarray-3">    <mfrac><mrow 
><mn>1</mn></mrow>
<mrow 
><msqrt><mrow><mi 
>n</mi></mrow></msqrt></mrow></mfrac><msubsup><mrow 
> <mo 
class="MathClass-op">&#x2211;</mo>
                           </mrow><mrow 
><mi 
>j</mi><mo 
class="MathClass-rel">=</mo><mn>1</mn></mrow><mrow 
><mi 
>n</mi></mrow></msubsup 
> <mfenced separators="" 
open="{"  close="" ><mrow><msub><mrow 
><mo 
class="MathClass-op">&#x220F;</mo>
  </mrow><mrow 
><mi 
>k</mi><mo 
class="MathClass-rel">&#x2208;</mo><mi 
>A</mi></mrow></msub 
><mrow><mo 
class="MathClass-open">(</mo><mrow><mo 
>exp</mo><!--nolimits--><mrow><mo 
class="MathClass-open">(</mo><mrow><mstyle mathvariant="normal"><mi 
>i</mi></mstyle><mrow><mo 
class="MathClass-open">&#x2329;</mo><mrow><msup><mrow 
><mi 
>t</mi></mrow><mrow 
><mrow><mo 
class="MathClass-open">(</mo><mrow><mi 
>k</mi></mrow><mo 
class="MathClass-close">)</mo></mrow></mrow></msup 
><mo 
class="MathClass-punc">,</mo><msubsup><mrow 
><mi 
>&#x03B5;</mi></mrow><mrow 
>
<mi 
>j</mi></mrow><mrow 
><mrow><mo 
class="MathClass-open">(</mo><mrow><mi 
>k</mi></mrow><mo 
class="MathClass-close">)</mo></mrow></mrow></msubsup 
></mrow><mo 
class="MathClass-close">&#x232A;</mo></mrow></mrow><mo 
class="MathClass-close">)</mo></mrow> <mo 
class="MathClass-bin">&#x2212;</mo> <mi 
>&#x03C6;</mi><mrow><mo 
class="MathClass-open">(</mo><mrow><msup><mrow 
><mi 
>t</mi></mrow><mrow 
><mrow><mo 
class="MathClass-open">(</mo><mrow><mi 
>k</mi></mrow><mo 
class="MathClass-close">)</mo></mrow></mrow></msup 
></mrow><mo 
class="MathClass-close">)</mo></mrow></mrow><mo 
class="MathClass-close">)</mo></mrow></mrow></mfenced>        </mtd><mtd 
class="eqnarray-4"> <mtext class="eqnarray">(6.4)</mtext><mtext 
   id="x1-33001r6.4"  class="label" ></mtext><mtext 
class="endlabel"></mtext></mtd>
</mtr><mtr><mtd 
class="eqnarray-1"> <mo 
class="MathClass-bin">+</mo><mstyle mathvariant="normal"><mi 
>i</mi></mstyle><msub><mrow 
> <mo 
class="MathClass-op">&#x2211;</mo>
   </mrow><mrow 
><mi 
>&#x03B1;</mi><mo 
class="MathClass-rel">&#x2208;</mo><mi 
>A</mi></mrow></msub 
></mtd><mtd 
class="eqnarray-2">   <msub><mrow 
><mi 
>a</mi></mrow><mrow 
><mi 
>&#x03B1;</mi><mo 
class="MathClass-punc">,</mo><mi 
>j</mi></mrow></msub 
></mtd><mtd 
class="eqnarray-3">   <mfenced separators="" 
open=""  close="}" ><mrow><msub><mrow 
><mo 
class="MathClass-op">&#x220F;</mo>
  </mrow><mrow 
><mi 
>k</mi><mo 
class="MathClass-rel">&#x2208;</mo><mi 
>A</mi><mo 
class="MathClass-punc">;</mo><mi 
>k</mi><mo 
class="MathClass-rel">&#x2260;</mo><mi 
>&#x03B1;</mi></mrow></msub 
> <mfenced separators="" 
open="["  close="]" ><mrow><mo 
>exp</mo><!--nolimits--><mrow><mo 
class="MathClass-open">(</mo><mrow><mstyle mathvariant="normal"><mi 
>i</mi></mstyle><mrow><mo 
class="MathClass-open">&#x2329;</mo><mrow><msup><mrow 
><mi 
>t</mi></mrow><mrow 
><mrow><mo 
class="MathClass-open">(</mo><mrow><mi 
>k</mi></mrow><mo 
class="MathClass-close">)</mo></mrow></mrow></msup 
><mo 
class="MathClass-punc">,</mo><msubsup><mrow 
><mi 
>&#x03B5;</mi></mrow><mrow 
>
<mi 
>j</mi></mrow><mrow 
><mrow><mo 
class="MathClass-open">(</mo><mrow><mi 
>k</mi></mrow><mo 
class="MathClass-close">)</mo></mrow></mrow></msubsup 
></mrow><mo 
class="MathClass-close">&#x232A;</mo></mrow></mrow><mo 
class="MathClass-close">)</mo></mrow> <mo 
class="MathClass-bin">&#x2212;</mo> <mi 
>&#x03C6;</mi><mrow><mo 
class="MathClass-open">(</mo><mrow><msup><mrow 
><mi 
>t</mi></mrow><mrow 
><mrow><mo 
class="MathClass-open">(</mo><mrow><mi 
>k</mi></mrow><mo 
class="MathClass-close">)</mo></mrow></mrow></msup 
></mrow><mo 
class="MathClass-close">)</mo></mrow></mrow></mfenced><mo 
> exp</mo><!--nolimits--><mrow><mo 
class="MathClass-open">(</mo><mrow><mstyle mathvariant="normal"><mi 
>i</mi></mstyle><mrow><mo 
class="MathClass-open">&#x2329;</mo><mrow><msup><mrow 
><mi 
>t</mi></mrow><mrow 
><mrow><mo 
class="MathClass-open">(</mo><mrow><mi 
>&#x03B1;</mi></mrow><mo 
class="MathClass-close">)</mo></mrow></mrow></msup 
><mo 
class="MathClass-punc">,</mo><msubsup><mrow 
><mi 
>&#x03B5;</mi></mrow><mrow 
>
<mi 
>j</mi></mrow><mrow 
><mrow><mo 
class="MathClass-open">(</mo><mrow><mi 
>&#x03B1;</mi></mrow><mo 
class="MathClass-close">)</mo></mrow></mrow></msubsup 
></mrow><mo 
class="MathClass-close">&#x232A;</mo></mrow></mrow><mo 
class="MathClass-close">)</mo></mrow></mrow></mfenced>  </mtd><mtd 
class="eqnarray-4"> <mtext class="eqnarray">(6.5)</mtext><mtext 
   id="x1-33001r6.5"  class="label" ></mtext><mtext 
class="endlabel"></mtext></mtd>
</mtr><mtr><mtd 
class="eqnarray-1">           </mtd><mtd 
class="eqnarray-2">    <mo 
class="MathClass-rel">&#x2261;</mo> </mtd><mtd 
class="eqnarray-3">    <mfrac><mrow 
><mn>1</mn></mrow>
<mrow 
><msqrt><mrow><mi 
>n</mi></mrow></msqrt></mrow></mfrac><msubsup><mrow 
> <mo 
class="MathClass-op">&#x2211;</mo>
                           </mrow><mrow 
><mi 
>j</mi><mo 
class="MathClass-rel">=</mo><mn>1</mn></mrow><mrow 
><mi 
>n</mi></mrow></msubsup 
><msub><mrow 
> <mo 
class="MathClass-op">&#x220F;</mo>
  </mrow><mrow 
><mi 
>k</mi><mo 
class="MathClass-rel">&#x2208;</mo><mi 
>A</mi></mrow></msub 
><mrow><mo 
class="MathClass-open">[</mo><mrow><mo 
>exp</mo><!--nolimits--><mrow><mo 
class="MathClass-open">(</mo><mrow><mstyle mathvariant="normal"><mi 
>i</mi></mstyle><mrow><mo 
class="MathClass-open">&#x2329;</mo><mrow><msup><mrow 
><mi 
>t</mi></mrow><mrow 
><mrow><mo 
class="MathClass-open">(</mo><mrow><mi 
>k</mi></mrow><mo 
class="MathClass-close">)</mo></mrow></mrow></msup 
><mo 
class="MathClass-punc">,</mo><msubsup><mrow 
><mi 
>&#x03B5;</mi></mrow><mrow 
>
<mi 
>j</mi></mrow><mrow 
><mrow><mo 
class="MathClass-open">(</mo><mrow><mi 
>k</mi></mrow><mo 
class="MathClass-close">)</mo></mrow></mrow></msubsup 
></mrow><mo 
class="MathClass-close">&#x232A;</mo></mrow></mrow><mo 
class="MathClass-close">)</mo></mrow> <mo 
class="MathClass-bin">&#x2212;</mo> <mi 
>&#x03C6;</mi><mrow><mo 
class="MathClass-open">(</mo><mrow><msup><mrow 
><mi 
>t</mi></mrow><mrow 
><mrow><mo 
class="MathClass-open">(</mo><mrow><mi 
>k</mi></mrow><mo 
class="MathClass-close">)</mo></mrow></mrow></msup 
></mrow><mo 
class="MathClass-close">)</mo></mrow></mrow><mo 
class="MathClass-close">]</mo></mrow> <mo 
class="MathClass-bin">+</mo> <mstyle mathvariant="normal"><mi 
>i</mi></mstyle><msub><mrow 
><mi 
>U</mi></mrow><mrow 
>
<mi 
>n</mi></mrow></msub 
><mrow><mo 
class="MathClass-open">(</mo><mrow><mi 
>t</mi></mrow><mo 
class="MathClass-close">)</mo></mrow></mtd><mtd 
class="eqnarray-4"> <mtext class="eqnarray">(6.6)</mtext><mtext 
   id="x1-33001r6.6"  class="label" ></mtext><mtext 
class="endlabel"></mtext></mtd>     </mtr></mtable>
</math>
<!--l. 1177--><p class="nopar">
where <!--l. 1179--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><msub><mrow 
><mi 
>a</mi></mrow><mrow 
><mi 
>&#x03B1;</mi><mo 
class="MathClass-punc">,</mo><mi 
>j</mi></mrow></msub 
> <mo 
class="MathClass-rel">=</mo> <mrow><mo 
class="MathClass-open">&#x2329;</mo><mrow><msup><mrow 
><mi 
>t</mi></mrow><mrow 
><mrow><mo 
class="MathClass-open">(</mo><mrow><mi 
>&#x03B1;</mi></mrow><mo 
class="MathClass-close">)</mo></mrow></mrow></msup 
><mo 
class="MathClass-punc">,</mo><msubsup><mrow 
><mi 
>&#x03B4;</mi></mrow><mrow 
>
<mi 
>j</mi></mrow><mrow 
><mrow><mo 
class="MathClass-open">(</mo><mrow><mi 
>&#x03B1;</mi></mrow><mo 
class="MathClass-close">)</mo></mrow></mrow></msubsup 
></mrow><mo 
class="MathClass-close">&#x232A;</mo></mrow></math>.
Secondly, define also </p><table class="equation"><tr><td> <a 
  name="x1-33002r7"></a>
<!--l. 1181--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="display"><msub><mrow 
>
           <mover 
accent="true"><mrow 
><mi 
>R</mi></mrow><mo 
class="MathClass-op">&#x02D8;</mo></mover></mrow><mrow 
><mi 
>n</mi><mo 
class="MathClass-punc">,</mo><mi 
>A</mi></mrow></msub 
><mrow><mo 
class="MathClass-open">(</mo><mrow><mi 
>t</mi></mrow><mo 
class="MathClass-close">)</mo></mrow> <mo 
class="MathClass-rel">=</mo>   <mfrac><mrow 
><mn>1</mn></mrow> 
<mrow 
><msqrt><mrow><mi 
>n</mi></mrow></msqrt></mrow></mfrac><msubsup><mrow 
> <mo 
class="MathClass-op">&#x2211;</mo>
     </mrow><mrow 
><mi 
>j</mi><mo 
class="MathClass-rel">=</mo><mn>1</mn></mrow><mrow 
><mi 
>n</mi></mrow></msubsup 
><msub><mrow 
> <mo 
class="MathClass-op">&#x220F;</mo>
  </mrow><mrow 
><mi 
>k</mi><mo 
class="MathClass-rel">&#x2208;</mo><mi 
>A</mi></mrow></msub 
> <mfenced separators="" 
open="["  close="]" ><mrow><mo 
>exp</mo><!--nolimits--><mrow><mo 
class="MathClass-open">(</mo><mrow><mstyle mathvariant="normal"><mi 
>i</mi></mstyle><mrow><mo 
class="MathClass-open">&#x2329;</mo><mrow><msup><mrow 
><mi 
>t</mi></mrow><mrow 
><mrow><mo 
class="MathClass-open">(</mo><mrow><mi 
>k</mi></mrow><mo 
class="MathClass-close">)</mo></mrow></mrow></msup 
><mo 
class="MathClass-punc">,</mo><msubsup><mrow 
><mi 
>&#x03B5;</mi></mrow><mrow 
>
<mi 
>j</mi></mrow><mrow 
><mrow><mo 
class="MathClass-open">(</mo><mrow><mi 
>k</mi></mrow><mo 
class="MathClass-close">)</mo></mrow></mrow></msubsup 
></mrow><mo 
class="MathClass-close">&#x232A;</mo></mrow></mrow><mo 
class="MathClass-close">)</mo></mrow> <mo 
class="MathClass-bin">&#x2212;</mo> <mi 
>&#x03C6;</mi><mrow><mo 
class="MathClass-open">(</mo><mrow><msup><mrow 
><mi 
>t</mi></mrow><mrow 
><mrow><mo 
class="MathClass-open">(</mo><mrow><mi 
>k</mi></mrow><mo 
class="MathClass-close">)</mo></mrow></mrow></msup 
></mrow><mo 
class="MathClass-close">)</mo></mrow></mrow></mfenced> <mo 
class="MathClass-punc">.</mo>
</math>
<!--l. 1186--><p class="nopar"></p></td><td class="eq-no">(6.7)</td></tr></table>
The proof proceeds with the following steps <table class="equation"><tr><td> <a 
  name="x1-33003r8"></a>
<!--l. 1188--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="display">
                             <mi 
>&#x03C1;</mi><mrow><mo 
class="MathClass-open">(</mo><mrow><msub><mrow 
><mover 
accent="true"><mrow 
><mi 
>R</mi></mrow><mo 
class="MathClass-op">&#x0302;</mo></mover></mrow><mrow 
><mi 
>n</mi><mo 
class="MathClass-punc">,</mo><mi 
>A</mi></mrow></msub 
><mo 
class="MathClass-punc">,</mo><msub><mrow 
><mover 
accent="true"><mrow 
><mi 
>R</mi></mrow><mo 
class="MathClass-op">&#x02DC;</mo></mover></mrow><mrow 
><mi 
>n</mi><mo 
class="MathClass-punc">,</mo><mi 
>A</mi></mrow></msub 
></mrow><mo 
class="MathClass-close">)</mo></mrow><mover 
class="stackrel"><mrow 
><mo 
class="MathClass-rel">&#x2192;</mo></mrow><mrow 
><mo 
class="MathClass-op">P</mo></mrow></mover><mn>0</mn><mo 
class="MathClass-punc">,</mo>
</math>
<!--l. 1190--><p class="nopar"></p></td><td class="eq-no">(6.8)</td></tr></table>
<table class="equation"><tr><td> <a 
  name="x1-33004r9"></a>

<!--l. 1191--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="display">
                             <mi 
>&#x03C1;</mi><mrow><mo 
class="MathClass-open">(</mo><mrow><msub><mrow 
><mover 
accent="true"><mrow 
><mi 
>R</mi></mrow><mo 
class="MathClass-op">&#x02DC;</mo></mover></mrow><mrow 
><mi 
>n</mi><mo 
class="MathClass-punc">,</mo><mi 
>A</mi></mrow></msub 
><mo 
class="MathClass-punc">,</mo><msub><mrow 
><mover 
accent="true"><mrow 
><mi 
>R</mi></mrow><mo 
class="MathClass-op">&#x02D8;</mo></mover></mrow><mrow 
><mi 
>n</mi><mo 
class="MathClass-punc">,</mo><mi 
>A</mi></mrow></msub 
></mrow><mo 
class="MathClass-close">)</mo></mrow><mover 
class="stackrel"><mrow 
><mo 
class="MathClass-rel">&#x2192;</mo></mrow><mrow 
><mo 
class="MathClass-op">P</mo></mrow></mover><mn>0</mn><mo 
class="MathClass-punc">,</mo>
</math>
<!--l. 1193--><p class="nopar"></p></td><td class="eq-no">(6.9)</td></tr></table>
<table class="equation"><tr><td> <a 
  name="x1-33005r10"></a>
<!--l. 1194--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="display">
                      <mrow><mo 
class="MathClass-open">{</mo><mrow><msub><mrow 
><mover 
accent="true"><mrow 
><mi 
>R</mi></mrow><mo 
class="MathClass-op">&#x02D8;</mo></mover></mrow><mrow 
><mi 
>n</mi><mo 
class="MathClass-punc">,</mo><mi 
>A</mi></mrow></msub 
> <mo 
class="MathClass-punc">:</mo> <mspace class="nbsp" /><mo 
class="MathClass-rel">&#x2223;</mo><mi 
>A</mi><mo 
class="MathClass-rel">&#x2223;</mo> <mo 
class="MathClass-rel">&#x003E;</mo> <mn>1</mn></mrow><mo 
class="MathClass-close">}</mo></mrow><mo 
class="MathClass-rel">&#x21D2;</mo><mrow><mo 
class="MathClass-open">{</mo><mrow><msub><mrow 
><mi 
>R</mi></mrow><mrow 
><mi 
>A</mi></mrow></msub 
> <mo 
class="MathClass-punc">:</mo> <mspace class="nbsp" /><mo 
class="MathClass-rel">&#x2223;</mo><mi 
>A</mi><mo 
class="MathClass-rel">&#x2223;</mo> <mo 
class="MathClass-rel">&#x003E;</mo> <mn>1</mn></mrow><mo 
class="MathClass-close">}</mo></mrow><mo 
class="MathClass-punc">.</mo>
</math>
<!--l. 1196--><p class="nopar"></p></td><td class="eq-no">(6.10)</td></tr></table>
The last step was proven in Theorem <a 
href="#x1-22008r1">2.1<!--tex4ht:ref: nonserialconvknown --></a>. A Taylor expansion of
   <center class="math-display"><!--l. 1199--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="display"><mrow 
><msub><mrow 
>
                           <mo 
class="MathClass-op">&#x220F;</mo>
               </mrow><mrow 
><mi 
>k</mi><mo 
class="MathClass-rel">&#x2208;</mo><mi 
>A</mi></mrow></msub 
> <mfenced separators="" 
open="["  close="]" ><mrow><mo 
>exp</mo><!--nolimits--><mrow><mo 
class="MathClass-open">(</mo><mrow><mstyle mathvariant="normal"><mi 
>i</mi></mstyle><mrow><mo 
class="MathClass-open">&#x2329;</mo><mrow><msup><mrow 
><mi 
>t</mi></mrow><mrow 
><mrow><mo 
class="MathClass-open">(</mo><mrow><mi 
>k</mi></mrow><mo 
class="MathClass-close">)</mo></mrow></mrow></msup 
><mo 
class="MathClass-punc">,</mo><msubsup><mrow 
><mi 
>&#x03B5;</mi></mrow><mrow 
>
<mi 
>j</mi></mrow><mrow 
><mrow><mo 
class="MathClass-open">(</mo><mrow><mi 
>k</mi></mrow><mo 
class="MathClass-close">)</mo></mrow></mrow></msubsup 
></mrow><mo 
class="MathClass-close">&#x232A;</mo></mrow> <mo 
class="MathClass-bin">+</mo> <msub><mrow 
><mi 
>a</mi></mrow><mrow 
>
<mi 
>k</mi><mo 
class="MathClass-punc">,</mo><mi 
>j</mi></mrow></msub 
></mrow><mo 
class="MathClass-close">)</mo></mrow> <mo 
class="MathClass-bin">&#x2212;</mo> <mi 
>&#x03C6;</mi><mrow><mo 
class="MathClass-open">(</mo><mrow><msup><mrow 
><mi 
>t</mi></mrow><mrow 
><mrow><mo 
class="MathClass-open">(</mo><mrow><mi 
>k</mi></mrow><mo 
class="MathClass-close">)</mo></mrow></mrow></msup 
></mrow><mo 
class="MathClass-close">)</mo></mrow></mrow></mfenced>
</mrow></math></center>
<!--l. 1203--><p class="nopar">
around <!--l. 1204--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><msub><mrow 
><mrow><mo 
class="MathClass-open">(</mo><mrow><msub><mrow 
><mi 
>a</mi></mrow><mrow 
><mi 
>k</mi><mo 
class="MathClass-punc">,</mo><mi 
>j</mi></mrow></msub 
></mrow><mo 
class="MathClass-close">)</mo></mrow></mrow><mrow 
><mi 
>k</mi><mo 
class="MathClass-rel">&#x2208;</mo><mi 
>A</mi></mrow></msub 
> <mo 
class="MathClass-rel">=</mo> <mn>0</mn></math>
and Schwarz&#x2019;s inequality yield </p><table class="equation"><tr><td> <a 
  name="x1-33006r11"></a>

<!--l. 1206--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="display">
             <mfenced separators="" 
open="|"  close="|" ><mrow><msub><mrow 
><mover 
accent="true"><mrow 
><mi 
>R</mi></mrow><mo 
class="MathClass-op">&#x0302;</mo></mover></mrow><mrow 
><mi 
>n</mi><mo 
class="MathClass-punc">,</mo><mi 
>A</mi></mrow></msub 
><mrow><mo 
class="MathClass-open">(</mo><mrow><mi 
>t</mi></mrow><mo 
class="MathClass-close">)</mo></mrow> <mo 
class="MathClass-bin">&#x2212;</mo><msub><mrow 
><mover 
accent="true"><mrow 
><mi 
>R</mi></mrow><mo 
class="MathClass-op">&#x02DC;</mo></mover></mrow><mrow 
><mi 
>n</mi><mo 
class="MathClass-punc">,</mo><mi 
>A</mi></mrow></msub 
><mrow><mo 
class="MathClass-open">(</mo><mrow><mi 
>t</mi></mrow><mo 
class="MathClass-close">)</mo></mrow></mrow></mfenced> <mo 
class="MathClass-rel">&#x2264;</mo> <msup><mrow 
><mn>2</mn></mrow><mrow 
><mo 
class="MathClass-rel">&#x2223;</mo><mi 
>A</mi><mo 
class="MathClass-rel">&#x2223;</mo><mo 
class="MathClass-bin">&#x2212;</mo><mn>2</mn></mrow></msup 
><mo 
class="MathClass-rel">&#x2223;</mo><mi 
>A</mi><msup><mrow 
><mo 
class="MathClass-rel">&#x2223;</mo></mrow><mrow 
><mn>2</mn></mrow></msup 
><mo 
class="MathClass-rel">&#x2225;</mo><mi 
>t</mi><msup><mrow 
><mo 
class="MathClass-rel">&#x2225;</mo></mrow><mrow 
><mn>2</mn></mrow></msup 
>  <mfrac><mrow 
><mn>1</mn></mrow> 
<mrow 
><msqrt><mrow><mi 
>n</mi></mrow></msqrt></mrow></mfrac><msubsup><mrow 
> <mo 
class="MathClass-op">&#x2211;</mo>
     </mrow><mrow 
><mi 
>j</mi><mo 
class="MathClass-rel">=</mo><mn>1</mn></mrow><mrow 
><mi 
>n</mi></mrow></msubsup 
><mo 
class="MathClass-rel">&#x2225;</mo><msub><mrow 
><mi 
>&#x03B4;</mi></mrow><mrow 
>
<mi 
>j</mi></mrow></msub 
><msup><mrow 
><mo 
class="MathClass-rel">&#x2225;</mo></mrow><mrow 
><mn>2</mn></mrow></msup 
><mo 
class="MathClass-punc">,</mo>
</math>
<!--l. 1209--><p class="nopar"></p></td><td class="eq-no">(6.11)</td></tr></table>
where <!--l. 1211--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><msub><mrow 
><mi 
>&#x03B4;</mi></mrow><mrow 
><mi 
>j</mi></mrow></msub 
> <mo 
class="MathClass-rel">=</mo> <mrow><mo 
class="MathClass-open">(</mo><mrow><msubsup><mrow 
><mi 
>&#x03B4;</mi></mrow><mrow 
><mi 
>j</mi></mrow><mrow 
><mrow><mo 
class="MathClass-open">(</mo><mrow><mn>1</mn></mrow><mo 
class="MathClass-close">)</mo></mrow></mrow></msubsup 
><mo 
class="MathClass-punc">,</mo><mo 
class="MathClass-op">&#x2026;</mo><mo 
class="MathClass-punc">,</mo><msubsup><mrow 
><mi 
>&#x03B4;</mi></mrow><mrow 
>
<mi 
>j</mi></mrow><mrow 
><mrow><mo 
class="MathClass-open">(</mo><mrow><mi 
>p</mi></mrow><mo 
class="MathClass-close">)</mo></mrow></mrow></msubsup 
></mrow><mo 
class="MathClass-close">)</mo></mrow></math>.
Now <table class="equation"><tr><td> <a 
  name="x1-33007r12"></a>
<!--l. 1213--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="display">
                 <mfrac><mrow 
><mn>1</mn></mrow>
<mrow 
><msqrt><mrow><mi 
>n</mi></mrow></msqrt></mrow></mfrac><msubsup><mrow 
> <mo 
class="MathClass-op">&#x2211;</mo>
                       </mrow><mrow 
><mi 
>j</mi><mo 
class="MathClass-rel">=</mo><mn>1</mn></mrow><mrow 
><mi 
>n</mi></mrow></msubsup 
><mo 
class="MathClass-rel">&#x2225;</mo><msub><mrow 
><mi 
>&#x03B4;</mi></mrow><mrow 
>
<mi 
>j</mi></mrow></msub 
><msup><mrow 
><mo 
class="MathClass-rel">&#x2225;</mo></mrow><mrow 
><mn>2</mn></mrow></msup 
> <mo 
class="MathClass-rel">=</mo><msubsup><mrow 
> <mo 
class="MathClass-op">&#x2211;</mo>
  </mrow><mrow 
><mi 
>k</mi><mo 
class="MathClass-rel">=</mo><mn>1</mn></mrow><mrow 
><mi 
>p</mi></mrow></msubsup 
>  <mfrac><mrow 
><mn>1</mn></mrow>
<mrow 
><msqrt><mrow><mi 
>n</mi></mrow></msqrt></mrow></mfrac><msubsup><mrow 
> <mo 
class="MathClass-op">&#x2211;</mo>
     </mrow><mrow 
><mi 
>j</mi><mo 
class="MathClass-rel">=</mo><mn>1</mn></mrow><mrow 
><mi 
>n</mi></mrow></msubsup 
><mo 
class="MathClass-rel">&#x2225;</mo><msubsup><mrow 
><mi 
>&#x03B4;</mi></mrow><mrow 
>
<mi 
>j</mi></mrow><mrow 
><mrow><mo 
class="MathClass-open">(</mo><mrow><mi 
>k</mi></mrow><mo 
class="MathClass-close">)</mo></mrow></mrow></msubsup 
><msup><mrow 
><mo 
class="MathClass-rel">&#x2225;</mo></mrow><mrow 
><mn>2</mn></mrow></msup 
><mo 
class="MathClass-punc">,</mo>
</math>
<!--l. 1217--><p class="nopar"></p></td><td class="eq-no">(6.12)</td></tr></table>
where each of the <!--l. 1218--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mi 
>p</mi></math>
terms is expressed as
<!--l. 1219--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="display">
<mtable 
class="eqnarray" columnalign="right center left" >
<mtr><mtd 
class="eqnarray-1">  <mfrac><mrow 
><mn>1</mn></mrow>
<mrow 
><msqrt><mrow><mi 
>n</mi></mrow></msqrt></mrow></mfrac><msubsup><mrow 
> <mo 
class="MathClass-op">&#x2211;</mo>
        </mrow><mrow 
><mi 
>j</mi><mo 
class="MathClass-rel">=</mo><mn>1</mn></mrow><mrow 
><mi 
>n</mi></mrow></msubsup 
><mo 
class="MathClass-rel">&#x2225;</mo><msubsup><mrow 
><mi 
>&#x03B4;</mi></mrow><mrow 
>
<mi 
>j</mi></mrow><mrow 
><mrow><mo 
class="MathClass-open">(</mo><mrow><mi 
>k</mi></mrow><mo 
class="MathClass-close">)</mo></mrow></mrow></msubsup 
><msup><mrow 
><mo 
class="MathClass-rel">&#x2225;</mo></mrow><mrow 
><mn>2</mn></mrow></msup 
></mtd><mtd 
class="eqnarray-2">   <mo 
class="MathClass-rel">=</mo></mtd><mtd 
class="eqnarray-3">   <msqrt><mrow><mi 
>n</mi></mrow></msqrt><mstyle mathvariant="normal"><mi 
>t</mi><mi 
>r</mi></mstyle> <mfenced separators="" 
open="["  close="]" ><mrow><msup><mrow 
><mrow><mo 
class="MathClass-open">(</mo><mrow><msup><mrow 
><mi 
>S</mi></mrow><mrow 
><mo 
class="MathClass-bin">&#x2212;</mo><mfrac><mrow 
><mn>1</mn></mrow>
<mrow 
><mn>2</mn></mrow></mfrac> </mrow></msup 
> <mo 
class="MathClass-bin">&#x2212;</mo><mi 
>I</mi></mrow><mo 
class="MathClass-close">)</mo></mrow></mrow><mrow 
><mn>2</mn></mrow></msup 
> <mfrac><mrow 
><mn>1</mn></mrow> 
<mrow 
><mi 
>n</mi></mrow></mfrac><msubsup><mrow 
> <mo 
class="MathClass-op">&#x2211;</mo>
    </mrow><mrow 
><mi 
>j</mi><mo 
class="MathClass-rel">=</mo><mn>1</mn></mrow><mrow 
><mi 
>n</mi></mrow></msubsup 
><msubsup><mrow 
><mi 
>&#x03B5;</mi></mrow><mrow 
>
<mi 
>j</mi></mrow><mrow 
><mrow><mo 
class="MathClass-open">(</mo><mrow><mi 
>k</mi></mrow><mo 
class="MathClass-close">)</mo></mrow></mrow></msubsup 
><msubsup><mrow 
><mi 
>&#x03B5;</mi></mrow><mrow 
>
<mi 
>j</mi></mrow><mrow 
><mrow><mo 
class="MathClass-open">(</mo><mrow><mi 
>k</mi></mrow><mo 
class="MathClass-close">)</mo></mrow><!--mstyle 
class="text"--><mtext >T</mtext><!--/mstyle--></mrow></msubsup 
></mrow></mfenced>  </mtd><mtd 
class="eqnarray-4"> <mtext class="eqnarray">(6.13)</mtext><mtext 
   id="x1-33008r6.13"  class="label" ></mtext><mtext 
class="endlabel"></mtext></mtd>
</mtr><mtr><mtd 
class="eqnarray-1">                    </mtd><mtd 
class="eqnarray-2">   <mo 
class="MathClass-bin">&#x2212;</mo></mtd><mtd 
class="eqnarray-3">   <mn>2</mn><msup><mrow 
><mover accent="false" 
class="mml-overline"><mrow><mi 
>&#x03B5;</mi></mrow><mo 
accent="true">&#x00AF;</mo></mover></mrow><mrow 
><mrow><mo 
class="MathClass-open">(</mo><mrow><mi 
>k</mi></mrow><mo 
class="MathClass-close">)</mo></mrow><!--mstyle 
class="text"--><mtext >T</mtext><!--/mstyle--></mrow></msup 
><msup><mrow 
><mi 
>S</mi></mrow><mrow 
><mo 
class="MathClass-bin">&#x2212;</mo><mfrac><mrow 
><mn>1</mn></mrow>
<mrow 
><mn>2</mn></mrow></mfrac> </mrow></msup 
><msqrt><mrow><mi 
>n</mi></mrow></msqrt><mrow><mo 
class="MathClass-open">(</mo><mrow><msup><mrow 
><mi 
>S</mi></mrow><mrow 
><mo 
class="MathClass-bin">&#x2212;</mo><mfrac><mrow 
><mn>1</mn></mrow>
<mrow 
><mn>2</mn></mrow></mfrac> </mrow></msup 
> <mo 
class="MathClass-bin">&#x2212;</mo><mi 
>I</mi></mrow><mo 
class="MathClass-close">)</mo></mrow><mover accent="false" 
class="mml-overline"><mrow><mi 
>&#x03B5;</mi></mrow><mo 
accent="true">&#x00AF;</mo></mover> <mo 
class="MathClass-bin">+</mo> <msqrt><mrow><mi 
>n</mi></mrow></msqrt><mover accent="false" 
class="mml-overline"><mrow><mi 
>&#x03B5;</mi></mrow><mo 
accent="true">&#x00AF;</mo></mover><!--mstyle 
class="text"--><mtext >T</mtext><!--/mstyle--><msup><mrow 
><mi 
>S</mi></mrow><mrow 
><mo 
class="MathClass-bin">&#x2212;</mo><mn>1</mn></mrow></msup 
><mover accent="false" 
class="mml-overline"><mrow><mi 
>&#x03B5;</mi></mrow><mo 
accent="true">&#x00AF;</mo></mover><mo 
class="MathClass-punc">.</mo></mtd><mtd 
class="eqnarray-4"> <mtext class="eqnarray">(6.14)</mtext><mtext 
   id="x1-33008r6.14"  class="label" ></mtext><mtext 
class="endlabel"></mtext></mtd>            </mtr></mtable>
</math>
<!--l. 1225--><p class="nopar">
In view of <!--l. 1226--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><msup><mrow 
><mover accent="false" 
class="mml-overline"><mrow><mi 
>&#x03B5;</mi></mrow><mo 
accent="true">&#x00AF;</mo></mover></mrow><mrow 
><mrow><mo 
class="MathClass-open">(</mo><mrow><mi 
>k</mi></mrow><mo 
class="MathClass-close">)</mo></mrow></mrow></msup 
> <mo 
class="MathClass-rel">=</mo> <msub><mrow 
><mi 
>O</mi></mrow><mrow 
>
<mi 
>P</mi> </mrow></msub 
><mrow><mo 
class="MathClass-open">(</mo><mrow><msup><mrow 
><mi 
>n</mi></mrow><mrow 
><mo 
class="MathClass-bin">&#x2212;</mo><mfrac><mrow 
><mn>1</mn></mrow>
<mrow 
><mn>2</mn></mrow></mfrac> </mrow></msup 
></mrow><mo 
class="MathClass-close">)</mo></mrow></math>,
<!--l. 1227--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mover accent="false" 
class="mml-overline"><mrow><mi 
>&#x03B5;</mi></mrow><mo 
accent="true">&#x00AF;</mo></mover> <mo 
class="MathClass-rel">=</mo> <msub><mrow 
><mi 
>O</mi></mrow><mrow 
><mi 
>P</mi> </mrow></msub 
><mrow><mo 
class="MathClass-open">(</mo><mrow><msup><mrow 
><mi 
>n</mi></mrow><mrow 
><mo 
class="MathClass-bin">&#x2212;</mo><mfrac><mrow 
><mn>1</mn></mrow>
<mrow 
><mn>2</mn></mrow></mfrac> </mrow></msup 
></mrow><mo 
class="MathClass-close">)</mo></mrow></math>, </p><table class="equation"><tr><td>
<a 
  name="x1-33009r15"></a>

<!--l. 1228--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="display">
      <msqrt><mrow><mi 
>n</mi><mi 
>p</mi></mrow></msqrt><mrow><mo 
class="MathClass-open">(</mo><mrow><msup><mrow 
><mi 
>S</mi></mrow><mrow 
><mo 
class="MathClass-bin">&#x2212;</mo><mfrac><mrow 
><mn>1</mn></mrow>
<mrow 
><mn>2</mn></mrow></mfrac> </mrow></msup 
> <mo 
class="MathClass-bin">&#x2212;</mo><mi 
>I</mi></mrow><mo 
class="MathClass-close">)</mo></mrow> <mo 
class="MathClass-rel">=</mo> <mo 
class="MathClass-bin">&#x2212;</mo> <mfrac><mrow 
><mn>1</mn></mrow>
<mrow 
><mn>2</mn><msqrt><mrow><mi 
>n</mi><mi 
>p</mi></mrow></msqrt></mrow></mfrac><msubsup><mrow 
> <mo 
class="MathClass-op">&#x2211;</mo>
      </mrow><mrow 
><mi 
>j</mi><mo 
class="MathClass-rel">=</mo><mn>1</mn></mrow><mrow 
><mi 
>n</mi></mrow></msubsup 
><msubsup><mrow 
> <mo 
class="MathClass-op">&#x2211;</mo>
  </mrow><mrow 
><mi 
>k</mi><mo 
class="MathClass-rel">=</mo><mn>1</mn></mrow><mrow 
><mi 
>p</mi></mrow></msubsup 
> <mfenced separators="" 
open="("  close=")" ><mrow><msubsup><mrow 
><mi 
>&#x03B5;</mi></mrow><mrow 
>
<mi 
>j</mi></mrow><mrow 
><mrow><mo 
class="MathClass-open">(</mo><mrow><mi 
>k</mi></mrow><mo 
class="MathClass-close">)</mo></mrow></mrow></msubsup 
><msubsup><mrow 
><mi 
>&#x03B5;</mi></mrow><mrow 
>
<mi 
>j</mi></mrow><mrow 
><mrow><mo 
class="MathClass-open">(</mo><mrow><mi 
>k</mi></mrow><mo 
class="MathClass-close">)</mo></mrow><!--mstyle 
class="text"--><mtext >T</mtext><!--/mstyle--></mrow></msubsup 
> <mo 
class="MathClass-bin">&#x2212;</mo><mi 
>I</mi></mrow></mfenced> <mo 
class="MathClass-bin">+</mo> <msub><mrow 
><mi 
>O</mi></mrow><mrow 
>
<mi 
>P</mi> </mrow></msub 
><mrow><mo 
class="MathClass-open">(</mo><mrow><msup><mrow 
><mi 
>n</mi></mrow><mrow 
><mo 
class="MathClass-bin">&#x2212;</mo><mfrac><mrow 
><mn>1</mn></mrow>
<mrow 
><mn>2</mn></mrow></mfrac> </mrow></msup 
></mrow><mo 
class="MathClass-close">)</mo></mrow>
</math>
<!--l. 1231--><p class="nopar"></p></td><td class="eq-no">(6.15)</td></tr></table>
and <table class="equation"><tr><td> <a 
  name="x1-33010r16"></a>
<!--l. 1233--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="display">
                      <mfrac><mrow 
><mn>1</mn></mrow>
<mrow 
><mi 
>n</mi></mrow></mfrac><msubsup><mrow 
> <mo 
class="MathClass-op">&#x2211;</mo>
                           </mrow><mrow 
><mi 
>j</mi><mo 
class="MathClass-rel">=</mo><mn>1</mn></mrow><mrow 
><mi 
>n</mi></mrow></msubsup 
><msubsup><mrow 
><mi 
>&#x03B5;</mi></mrow><mrow 
>
<mi 
>j</mi></mrow><mrow 
><mrow><mo 
class="MathClass-open">(</mo><mrow><mi 
>k</mi></mrow><mo 
class="MathClass-close">)</mo></mrow></mrow></msubsup 
><msubsup><mrow 
><mi 
>&#x03B5;</mi></mrow><mrow 
>
<mi 
>j</mi></mrow><mrow 
><mrow><mo 
class="MathClass-open">(</mo><mrow><mi 
>k</mi></mrow><mo 
class="MathClass-close">)</mo></mrow><!--mstyle 
class="text"--><mtext >T</mtext><!--/mstyle--></mrow></msubsup 
> <mo 
class="MathClass-rel">=</mo> <mi 
>I</mi> <mo 
class="MathClass-bin">+</mo> <msub><mrow 
><mi 
>O</mi></mrow><mrow 
>
<mi 
>P</mi> </mrow></msub 
><mrow><mo 
class="MathClass-open">(</mo><mrow><msup><mrow 
><mi 
>n</mi></mrow><mrow 
><mo 
class="MathClass-bin">&#x2212;</mo><mfrac><mrow 
><mn>1</mn></mrow>
<mrow 
><mn>2</mn></mrow></mfrac> </mrow></msup 
></mrow><mo 
class="MathClass-close">)</mo></mrow>
</math>
<!--l. 1235--><p class="nopar"></p></td><td class="eq-no">(6.16)</td></tr></table>
(see Henze and Wagner (1997)(<a 
  name="dx1-33011"></a><a 
href="#X1997Henze1bilo">19</a>), p.9), we obtain
<!--l. 1237--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"> <mfrac><mrow 
><mn>1</mn></mrow>
<mrow 
><msqrt><mrow><mi 
>n</mi></mrow></msqrt></mrow></mfrac><msubsup><mrow 
> <mo 
class="MathClass-op">&#x2211;</mo>
      </mrow><mrow 
><mi 
>j</mi><mo 
class="MathClass-rel">=</mo><mn>1</mn></mrow><mrow 
><mi 
>n</mi></mrow></msubsup 
><mo 
class="MathClass-rel">&#x2225;</mo><msub><mrow 
><mi 
>&#x03B4;</mi></mrow><mrow 
>
<mi 
>j</mi></mrow></msub 
><msup><mrow 
><mo 
class="MathClass-rel">&#x2225;</mo></mrow><mrow 
><mn>2</mn></mrow></msup 
><mover 
class="stackrel"><mrow 
><mo 
class="MathClass-rel">&#x2192;</mo></mrow><mrow 
><mo 
class="MathClass-op">P</mo></mrow></mover><mn>0</mn></math>. Using (<a 
href="#x1-33006r11">6.11<!--tex4ht:ref: ineqhattilde --></a>),
<!--l. 1239--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><msub><mrow 
><mi 
>&#x03C1;</mi></mrow><mrow 
><mi 
>k</mi></mrow></msub 
><mrow><mo 
class="MathClass-open">(</mo><mrow><msub><mrow 
><mover 
accent="true"><mrow 
><mi 
>R</mi></mrow><mo 
class="MathClass-op">&#x0302;</mo></mover></mrow><mrow 
><mi 
>n</mi><mo 
class="MathClass-punc">,</mo><mi 
>A</mi></mrow></msub 
><mo 
class="MathClass-punc">,</mo><msub><mrow 
><mover 
accent="true"><mrow 
><mi 
>R</mi></mrow><mo 
class="MathClass-op">&#x02DC;</mo></mover></mrow><mrow 
><mi 
>n</mi><mo 
class="MathClass-punc">,</mo><mi 
>A</mi></mrow></msub 
></mrow><mo 
class="MathClass-close">)</mo></mrow><mover 
class="stackrel"><mrow 
><mo 
class="MathClass-rel">&#x2192;</mo></mrow><mrow 
><mo 
class="MathClass-op">P</mo></mrow></mover><mn>0</mn></math> and so (<a 
href="#x1-33003r8">6.8<!--tex4ht:ref: step1proofth1.3 --></a>) is proved. To
establish (<a 
href="#x1-33004r9">6.9<!--tex4ht:ref: step2proofth1.3 --></a>) consider <!--l. 1242--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><msub><mrow 
><mi 
>&#x03C1;</mi></mrow><mrow 
><mi 
>k</mi></mrow></msub 
><mrow><mo 
class="MathClass-open">(</mo><mrow><msub><mrow 
><mover 
accent="true"><mrow 
><mi 
>R</mi></mrow><mo 
class="MathClass-op">&#x02DC;</mo></mover></mrow><mrow 
><mi 
>n</mi><mo 
class="MathClass-punc">,</mo><mi 
>A</mi></mrow></msub 
><mrow><mo 
class="MathClass-open">(</mo><mrow><mi 
>t</mi></mrow><mo 
class="MathClass-close">)</mo></mrow><mo 
class="MathClass-punc">,</mo><msub><mrow 
><mover 
accent="true"><mrow 
><mi 
>R</mi></mrow><mo 
class="MathClass-op">&#x02D8;</mo></mover></mrow><mrow 
><mi 
>n</mi><mo 
class="MathClass-punc">,</mo><mi 
>A</mi></mrow></msub 
><mrow><mo 
class="MathClass-open">(</mo><mrow><mi 
>t</mi></mrow><mo 
class="MathClass-close">)</mo></mrow></mrow><mo 
class="MathClass-close">)</mo></mrow> <mo 
class="MathClass-rel">=</mo><msub><mrow 
><mo 
> sup</mo> </mrow><mrow 
><mo 
class="MathClass-rel">&#x2225;</mo><mi 
>t</mi><mo 
class="MathClass-rel">&#x2225;</mo><mo 
class="MathClass-rel">&#x2264;</mo><mi 
>k</mi></mrow></msub 
><mo 
class="MathClass-rel">&#x2223;</mo><msub><mrow 
><mi 
>U</mi></mrow><mrow 
><mi 
>n</mi></mrow></msub 
><mrow><mo 
class="MathClass-open">(</mo><mrow><mi 
>t</mi></mrow><mo 
class="MathClass-close">)</mo></mrow><mo 
class="MathClass-rel">&#x2223;</mo></math>,
where

<!--l. 1244--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="display">
<mtable 
class="eqnarray" columnalign="right center left" >
<mtr><mtd 
class="eqnarray-1"> <msub><mrow 
><mi 
>U</mi></mrow><mrow 
><mi 
>n</mi></mrow></msub 
><mrow><mo 
class="MathClass-open">(</mo><mrow><mi 
>t</mi></mrow><mo 
class="MathClass-close">)</mo></mrow> <mo 
class="MathClass-rel">=</mo></mtd><mtd 
class="eqnarray-2"><msub><mrow 
>   <mo 
class="MathClass-op">&#x2211;</mo>
              </mrow><mrow 
><mi 
>&#x03B1;</mi><mo 
class="MathClass-rel">&#x2208;</mo><mi 
>A</mi></mrow></msub 
></mtd><mtd 
class="eqnarray-3">   <mfenced separators="" 
open="{"  close="" ><mrow><msup><mrow 
><mi 
>t</mi></mrow><mrow 
><mrow><mo 
class="MathClass-open">(</mo><mrow><mi 
>&#x03B1;</mi></mrow><mo 
class="MathClass-close">)</mo></mrow><!--mstyle 
class="text"--><mtext >T</mtext><!--/mstyle--></mrow></msup 
><msqrt><mrow><mi 
>n</mi></mrow></msqrt><mrow><mo 
class="MathClass-open">(</mo><mrow><msup><mrow 
><mi 
>S</mi></mrow><mrow 
><mo 
class="MathClass-bin">&#x2212;</mo><mfrac><mrow 
><mn>1</mn></mrow>
<mrow 
><mn>2</mn></mrow></mfrac> </mrow></msup 
> <mo 
class="MathClass-bin">&#x2212;</mo><mi 
>I</mi></mrow><mo 
class="MathClass-close">)</mo></mrow> <mfenced separators="" 
open="["  close="]" ><mrow><msub><mrow 
><mi 
>A</mi></mrow><mrow 
><mi 
>n</mi><mo 
class="MathClass-punc">,</mo><mi 
>&#x03B1;</mi></mrow></msub 
><mrow><mo 
class="MathClass-open">(</mo><mrow><msup><mrow 
><mi 
>t</mi></mrow><mrow 
><mrow><mo 
class="MathClass-open">(</mo><mrow><mi 
>A</mi></mrow><mo 
class="MathClass-close">)</mo></mrow></mrow></msup 
></mrow><mo 
class="MathClass-close">)</mo></mrow> <mo 
class="MathClass-bin">&#x2212;</mo><mover accent="false" 
class="mml-overline"><mrow><mi 
>&#x03B5;</mi></mrow><mo 
accent="true">&#x00AF;</mo></mover><msub><mrow 
><mi 
>B</mi></mrow><mrow 
><mi 
>n</mi><mo 
class="MathClass-punc">,</mo><mi 
>&#x03B1;</mi></mrow></msub 
><mrow><mo 
class="MathClass-open">(</mo><mrow><msup><mrow 
><mi 
>t</mi></mrow><mrow 
><mrow><mo 
class="MathClass-open">(</mo><mrow><mi 
>A</mi></mrow><mo 
class="MathClass-close">)</mo></mrow></mrow></msup 
></mrow><mo 
class="MathClass-close">)</mo></mrow></mrow></mfenced></mrow></mfenced></mtd><mtd 
class="eqnarray-4"> <mtext class="eqnarray">(6.17)</mtext><mtext 
   id="x1-33012r6.17"  class="label" ></mtext><mtext 
class="endlabel"></mtext></mtd>
</mtr><mtr><mtd 
class="eqnarray-1">         </mtd><mtd 
class="eqnarray-2">     <mo 
class="MathClass-bin">&#x2212;</mo>  </mtd><mtd 
class="eqnarray-3">   <mfenced separators="" 
open=""  close="}" ><mrow><msup><mrow 
><mi 
>t</mi></mrow><mrow 
><mrow><mo 
class="MathClass-open">(</mo><mrow><mi 
>&#x03B1;</mi></mrow><mo 
class="MathClass-close">)</mo></mrow><!--mstyle 
class="text"--><mtext >T</mtext><!--/mstyle--></mrow></msup 
><msqrt><mrow><mi 
>n</mi></mrow></msqrt><mover accent="false" 
class="mml-overline"><mrow><mi 
>&#x03B5;</mi></mrow><mo 
accent="true">&#x00AF;</mo></mover><msub><mrow 
><mi 
>B</mi></mrow><mrow 
>
<mi 
>n</mi><mo 
class="MathClass-punc">,</mo><mi 
>&#x03B1;</mi></mrow></msub 
><mrow><mo 
class="MathClass-open">(</mo><mrow><msup><mrow 
><mi 
>t</mi></mrow><mrow 
><mrow><mo 
class="MathClass-open">(</mo><mrow><mi 
>A</mi></mrow><mo 
class="MathClass-close">)</mo></mrow></mrow></msup 
></mrow><mo 
class="MathClass-close">)</mo></mrow></mrow></mfenced>                        </mtd><mtd 
class="eqnarray-4"> <mtext class="eqnarray">(6.18)</mtext><mtext 
   id="x1-33012r6.18"  class="label" ></mtext><mtext 
class="endlabel"></mtext></mtd>               </mtr></mtable>
</math>
<!--l. 1250--><p class="nopar">
with </p><table class="equation"><tr><td> <a 
  name="x1-33013r19"></a>
<!--l. 1252--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="display"><msub><mrow 
>
<mi 
>A</mi></mrow><mrow 
><mi 
>n</mi><mo 
class="MathClass-punc">,</mo><mi 
>&#x03B1;</mi></mrow></msub 
><mrow><mo 
class="MathClass-open">(</mo><mrow><msup><mrow 
><mi 
>t</mi></mrow><mrow 
><mrow><mo 
class="MathClass-open">(</mo><mrow><mi 
>A</mi></mrow><mo 
class="MathClass-close">)</mo></mrow></mrow></msup 
></mrow><mo 
class="MathClass-close">)</mo></mrow> <mo 
class="MathClass-rel">=</mo> <mfrac><mrow 
><mn>1</mn></mrow> 
<mrow 
><mi 
>n</mi></mrow></mfrac><msubsup><mrow 
> <mo 
class="MathClass-op">&#x2211;</mo>
    </mrow><mrow 
><mi 
>j</mi><mo 
class="MathClass-rel">=</mo><mn>1</mn></mrow><mrow 
><mi 
>n</mi></mrow></msubsup 
> <mfenced separators="" 
open="{"  close="}" ><mrow><msubsup><mrow 
><mi 
>&#x03B5;</mi></mrow><mrow 
>
<mi 
>j</mi></mrow><mrow 
><mrow><mo 
class="MathClass-open">(</mo><mrow><mi 
>&#x03B1;</mi></mrow><mo 
class="MathClass-close">)</mo></mrow></mrow></msubsup 
><mo 
> exp</mo><!--nolimits--><mrow><mo 
class="MathClass-open">(</mo><mrow><mstyle mathvariant="normal"><mi 
>i</mi></mstyle><mrow><mo 
class="MathClass-open">&#x2329;</mo><mrow><msup><mrow 
><mi 
>t</mi></mrow><mrow 
><mrow><mo 
class="MathClass-open">(</mo><mrow><mi 
>&#x03B1;</mi></mrow><mo 
class="MathClass-close">)</mo></mrow></mrow></msup 
><mo 
class="MathClass-punc">,</mo><msubsup><mrow 
><mi 
>&#x03B5;</mi></mrow><mrow 
>
<mi 
>j</mi></mrow><mrow 
><mrow><mo 
class="MathClass-open">(</mo><mrow><mi 
>&#x03B1;</mi></mrow><mo 
class="MathClass-close">)</mo></mrow></mrow></msubsup 
></mrow><mo 
class="MathClass-close">&#x232A;</mo></mrow></mrow><mo 
class="MathClass-close">)</mo></mrow><msub><mrow 
> <mo 
class="MathClass-op">&#x220F;</mo>
  </mrow><mrow 
><mi 
>k</mi><mo 
class="MathClass-rel">&#x2208;</mo><mi 
>A</mi><mo 
class="MathClass-punc">;</mo><mi 
>k</mi><mo 
class="MathClass-rel">&#x2260;</mo><mi 
>&#x03B1;</mi></mrow></msub 
> <mfenced separators="" 
open="["  close="]" ><mrow><mo 
>exp</mo><!--nolimits--><mrow><mo 
class="MathClass-open">(</mo><mrow><mstyle mathvariant="normal"><mi 
>i</mi></mstyle><mrow><mo 
class="MathClass-open">&#x2329;</mo><mrow><msup><mrow 
><mi 
>t</mi></mrow><mrow 
><mrow><mo 
class="MathClass-open">(</mo><mrow><mi 
>k</mi></mrow><mo 
class="MathClass-close">)</mo></mrow></mrow></msup 
><mo 
class="MathClass-punc">,</mo><msubsup><mrow 
><mi 
>&#x03B5;</mi></mrow><mrow 
>
<mi 
>j</mi></mrow><mrow 
><mrow><mo 
class="MathClass-open">(</mo><mrow><mi 
>k</mi></mrow><mo 
class="MathClass-close">)</mo></mrow></mrow></msubsup 
></mrow><mo 
class="MathClass-close">&#x232A;</mo></mrow></mrow><mo 
class="MathClass-close">)</mo></mrow> <mo 
class="MathClass-bin">&#x2212;</mo> <mi 
>&#x03C6;</mi><mrow><mo 
class="MathClass-open">(</mo><mrow><msup><mrow 
><mi 
>t</mi></mrow><mrow 
><mrow><mo 
class="MathClass-open">(</mo><mrow><mi 
>k</mi></mrow><mo 
class="MathClass-close">)</mo></mrow></mrow></msup 
></mrow><mo 
class="MathClass-close">)</mo></mrow></mrow></mfenced></mrow></mfenced>
</math>
<!--l. 1258--><p class="nopar"></p></td><td class="eq-no">(6.19)</td></tr></table>
and <table class="equation"><tr><td> <a 
  name="x1-33014r20"></a>
<!--l. 1260--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="display">
 <msub><mrow 
><mi 
>B</mi></mrow><mrow 
><mi 
>n</mi><mo 
class="MathClass-punc">,</mo><mi 
>&#x03B1;</mi></mrow></msub 
><mrow><mo 
class="MathClass-open">(</mo><mrow><msup><mrow 
><mi 
>t</mi></mrow><mrow 
><mrow><mo 
class="MathClass-open">(</mo><mrow><mi 
>A</mi></mrow><mo 
class="MathClass-close">)</mo></mrow></mrow></msup 
></mrow><mo 
class="MathClass-close">)</mo></mrow> <mo 
class="MathClass-rel">=</mo> <mfrac><mrow 
><mn>1</mn></mrow> 
<mrow 
><mi 
>n</mi></mrow></mfrac><msubsup><mrow 
> <mo 
class="MathClass-op">&#x2211;</mo>
    </mrow><mrow 
><mi 
>j</mi><mo 
class="MathClass-rel">=</mo><mn>1</mn></mrow><mrow 
><mi 
>n</mi></mrow></msubsup 
> <mfenced separators="" 
open="{"  close="}" ><mrow><mo 
>exp</mo><!--nolimits--><mrow><mo 
class="MathClass-open">(</mo><mrow><mstyle mathvariant="normal"><mi 
>i</mi></mstyle><mrow><mo 
class="MathClass-open">&#x2329;</mo><mrow><msup><mrow 
><mi 
>t</mi></mrow><mrow 
><mrow><mo 
class="MathClass-open">(</mo><mrow><mi 
>&#x03B1;</mi></mrow><mo 
class="MathClass-close">)</mo></mrow></mrow></msup 
><mo 
class="MathClass-punc">,</mo><msubsup><mrow 
><mi 
>&#x03B5;</mi></mrow><mrow 
>
<mi 
>j</mi></mrow><mrow 
><mrow><mo 
class="MathClass-open">(</mo><mrow><mi 
>&#x03B1;</mi></mrow><mo 
class="MathClass-close">)</mo></mrow></mrow></msubsup 
></mrow><mo 
class="MathClass-close">&#x232A;</mo></mrow></mrow><mo 
class="MathClass-close">)</mo></mrow><msub><mrow 
> <mo 
class="MathClass-op">&#x220F;</mo>
  </mrow><mrow 
><mi 
>k</mi><mo 
class="MathClass-rel">&#x2208;</mo><mi 
>A</mi><mo 
class="MathClass-punc">;</mo><mi 
>k</mi><mo 
class="MathClass-rel">&#x2260;</mo><mi 
>&#x03B1;</mi></mrow></msub 
> <mfenced separators="" 
open="["  close="]" ><mrow><mo 
>exp</mo><!--nolimits--><mrow><mo 
class="MathClass-open">(</mo><mrow><mstyle mathvariant="normal"><mi 
>i</mi></mstyle><mrow><mo 
class="MathClass-open">&#x2329;</mo><mrow><msup><mrow 
><mi 
>t</mi></mrow><mrow 
><mrow><mo 
class="MathClass-open">(</mo><mrow><mi 
>k</mi></mrow><mo 
class="MathClass-close">)</mo></mrow></mrow></msup 
><mo 
class="MathClass-punc">,</mo><msubsup><mrow 
><mi 
>&#x03B5;</mi></mrow><mrow 
>
<mi 
>j</mi></mrow><mrow 
><mrow><mo 
class="MathClass-open">(</mo><mrow><mi 
>k</mi></mrow><mo 
class="MathClass-close">)</mo></mrow></mrow></msubsup 
></mrow><mo 
class="MathClass-close">&#x232A;</mo></mrow></mrow><mo 
class="MathClass-close">)</mo></mrow> <mo 
class="MathClass-bin">&#x2212;</mo> <mi 
>&#x03C6;</mi><mrow><mo 
class="MathClass-open">(</mo><mrow><msup><mrow 
><mi 
>t</mi></mrow><mrow 
><mrow><mo 
class="MathClass-open">(</mo><mrow><mi 
>k</mi></mrow><mo 
class="MathClass-close">)</mo></mrow></mrow></msup 
></mrow><mo 
class="MathClass-close">)</mo></mrow></mrow></mfenced></mrow></mfenced> <mo 
class="MathClass-punc">.</mo>
</math>
<!--l. 1265--><p class="nopar"></p></td><td class="eq-no">(6.20)</td></tr></table>
Note that both expressions <!--l. 1266--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><msub><mrow 
><mi 
>A</mi></mrow><mrow 
><mi 
>n</mi><mo 
class="MathClass-punc">,</mo><mi 
>&#x03B1;</mi></mrow></msub 
></math>
and <!--l. 1266--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><msub><mrow 
><mi 
>B</mi></mrow><mrow 
><mi 
>n</mi><mo 
class="MathClass-punc">,</mo><mi 
>&#x03B1;</mi></mrow></msub 
></math>
are i.i.d. averages of zero mean variables. By the uniform strong law of large
numbers on compact sets (see (Ferguson, 1996, p. 108)(<a 
  name="dx1-33015"></a><a 
href="#X1996Fergubilo">15</a>)), one can show that <table class="equation"><tr><td>
<a 
  name="x1-33016r21"></a>

<!--l. 1269--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="display">
                       <munder><mrow 
><mo 
>max</mo></mrow><mrow 
><mo 
class="MathClass-rel">&#x2225;</mo><msup><mrow 
><mi 
>t</mi></mrow><mrow 
><mrow><mo 
class="MathClass-open">(</mo><mrow><mi 
>A</mi></mrow><mo 
class="MathClass-close">)</mo></mrow></mrow></msup 
><mo 
class="MathClass-rel">&#x2225;</mo><mo 
class="MathClass-rel">&#x2264;</mo> <mi 
>k</mi></mrow></munder><mo 
class="MathClass-rel">&#x2225;</mo><msub><mrow 
><mi 
>A</mi></mrow><mrow 
>
<mi 
>n</mi><mo 
class="MathClass-punc">,</mo><mi 
>&#x03B1;</mi></mrow></msub 
><mrow><mo 
class="MathClass-open">(</mo><mrow><msup><mrow 
><mi 
>t</mi></mrow><mrow 
><mrow><mo 
class="MathClass-open">(</mo><mrow><mi 
>A</mi></mrow><mo 
class="MathClass-close">)</mo></mrow></mrow></msup 
></mrow><mo 
class="MathClass-close">)</mo></mrow><mo 
class="MathClass-rel">&#x2225;</mo><mover 
class="stackrel"><mrow 
><mo 
class="MathClass-rel">&#x2192;</mo></mrow><mrow 
><mo>as</mo></mrow></mover><mn>0</mn>
</math>
<!--l. 1272--><p class="nopar"></p></td><td class="eq-no">(6.21)</td></tr></table>
and <table class="equation"><tr><td> <a 
  name="x1-33017r22"></a>
<!--l. 1274--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="display">
                       <munder><mrow 
><mo 
>max</mo></mrow><mrow 
><mo 
class="MathClass-rel">&#x2225;</mo><msup><mrow 
><mi 
>t</mi></mrow><mrow 
><mrow><mo 
class="MathClass-open">(</mo><mrow><mi 
>A</mi></mrow><mo 
class="MathClass-close">)</mo></mrow></mrow></msup 
><mo 
class="MathClass-rel">&#x2225;</mo><mo 
class="MathClass-rel">&#x2264;</mo> <mi 
>k</mi></mrow></munder><mo 
class="MathClass-rel">&#x2223;</mo><msub><mrow 
><mi 
>B</mi></mrow><mrow 
>
<mi 
>n</mi><mo 
class="MathClass-punc">,</mo><mi 
>&#x03B1;</mi></mrow></msub 
><mrow><mo 
class="MathClass-open">(</mo><mrow><msup><mrow 
><mi 
>t</mi></mrow><mrow 
><mrow><mo 
class="MathClass-open">(</mo><mrow><mi 
>A</mi></mrow><mo 
class="MathClass-close">)</mo></mrow></mrow></msup 
></mrow><mo 
class="MathClass-close">)</mo></mrow><mo 
class="MathClass-rel">&#x2223;</mo><mover 
class="stackrel"><mrow 
><mo 
class="MathClass-rel">&#x2192;</mo></mrow><mrow 
><mo>as</mo></mrow></mover><mn>0</mn><mo 
class="MathClass-punc">,</mo>
</math>
<!--l. 1278--><p class="nopar"></p></td><td class="eq-no">(6.22)</td></tr></table>
so that (<a 
href="#x1-33004r9">6.9<!--tex4ht:ref: step2proofth1.3 --></a>) is proved.
   <h4 class="subsectionHead"><span class="titlemark">6.3. </span> <a 
  name="x1-340006.3"></a>Proof of Theorem 2.3</h4>
<!--l. 1285--><p class="noindent">Let <!--l. 1286--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><msub><mrow 
><mi 
>x</mi></mrow><mrow 
><mi 
>n</mi><mo 
class="MathClass-punc">,</mo><mi 
>j</mi></mrow></msub 
> <mo 
class="MathClass-rel">=</mo><msub><mrow 
> <mo 
class="MathClass-op">&#x222B;</mo>
  </mrow><mrow 
><msubsup><mrow 
><mi mathvariant="double-struck">&#x211D;</mi></mrow><mrow 
><mi 
>j</mi></mrow><mrow 
><mi 
>p</mi><mi 
>q</mi></mrow></msubsup 
></mrow></msub 
><mi 
>f</mi><mrow><mo 
class="MathClass-open">(</mo><mrow><msub><mrow 
><mi 
>y</mi></mrow><mrow 
><mi 
>n</mi></mrow></msub 
><mrow><mo 
class="MathClass-open">(</mo><mrow><mi 
>t</mi></mrow><mo 
class="MathClass-close">)</mo></mrow></mrow><mo 
class="MathClass-close">)</mo></mrow><mi 
>d</mi><mi 
>G</mi><mrow><mo 
class="MathClass-open">(</mo><mrow><mi 
>t</mi></mrow><mo 
class="MathClass-close">)</mo></mrow></math> and
<!--l. 1288--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><msub><mrow 
><mi 
>x</mi></mrow><mrow 
><mi 
>j</mi></mrow></msub 
> <mo 
class="MathClass-rel">=</mo><msub><mrow 
> <mo 
class="MathClass-op">&#x222B;</mo>
  </mrow><mrow 
><msubsup><mrow 
><mi mathvariant="double-struck">&#x211D;</mi></mrow><mrow 
><mi 
>j</mi></mrow><mrow 
><mi 
>p</mi><mi 
>q</mi></mrow></msubsup 
></mrow></msub 
><mi 
>f</mi><mrow><mo 
class="MathClass-open">(</mo><mrow><mi 
>y</mi><mrow><mo 
class="MathClass-open">(</mo><mrow><mi 
>t</mi></mrow><mo 
class="MathClass-close">)</mo></mrow></mrow><mo 
class="MathClass-close">)</mo></mrow><mi 
>d</mi><mi 
>G</mi><mrow><mo 
class="MathClass-open">(</mo><mrow><mi 
>t</mi></mrow><mo 
class="MathClass-close">)</mo></mrow></math>. Define the
mapping <!--l. 1289--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><msub><mrow 
><mi 
>h</mi></mrow><mrow 
><mi 
>j</mi></mrow></msub 
> <mo 
class="MathClass-punc">:</mo> <mi 
>C</mi><msup><mrow 
><mrow><mo 
class="MathClass-open">(</mo><mrow><msubsup><mrow 
><mi mathvariant="double-struck">&#x211D;</mi></mrow><mrow 
><mi 
>j</mi></mrow><mrow 
><mi 
>p</mi><mi 
>q</mi></mrow></msubsup 
><mo 
class="MathClass-punc">,</mo> <mi mathvariant="double-struck">&#x2102;</mi></mrow><mo 
class="MathClass-close">)</mo></mrow></mrow><mrow 
><mn>2</mn></mrow></msup 
> <mo 
class="MathClass-rel">&#x2192;</mo> <mi mathvariant="double-struck">&#x211D;</mi></math>
by <!--l. 1291--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><msub><mrow 
><mi 
>h</mi></mrow><mrow 
><mi 
>j</mi></mrow></msub 
><mrow><mo 
class="MathClass-open">(</mo><mrow><mi 
>y</mi></mrow><mo 
class="MathClass-close">)</mo></mrow> <mo 
class="MathClass-rel">=</mo><msub><mrow 
> <mo 
class="MathClass-op">&#x222B;</mo>
  </mrow><mrow 
><msubsup><mrow 
><mi mathvariant="double-struck">&#x211D;</mi></mrow><mrow 
><mi 
>j</mi></mrow><mrow 
><mi 
>p</mi><mi 
>q</mi></mrow></msubsup 
></mrow></msub 
><mi 
>f</mi><mrow><mo 
class="MathClass-open">(</mo><mrow><mi 
>y</mi><mrow><mo 
class="MathClass-open">(</mo><mrow><mi 
>t</mi></mrow><mo 
class="MathClass-close">)</mo></mrow></mrow><mo 
class="MathClass-close">)</mo></mrow><mi 
>d</mi><mi 
>G</mi><mrow><mo 
class="MathClass-open">(</mo><mrow><mi 
>t</mi></mrow><mo 
class="MathClass-close">)</mo></mrow></math>. Then,
<!--l. 1292--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><msub><mrow 
><mi 
>x</mi></mrow><mrow 
><mi 
>n</mi><mo 
class="MathClass-punc">,</mo><mi 
>j</mi></mrow></msub 
> <mo 
class="MathClass-rel">=</mo> <msub><mrow 
><mi 
>h</mi></mrow><mrow 
><mi 
>j</mi></mrow></msub 
><mrow><mo 
class="MathClass-open">(</mo><mrow><msub><mrow 
><mi 
>r</mi></mrow><mrow 
><mi 
>j</mi></mrow></msub 
><mrow><mo 
class="MathClass-open">(</mo><mrow><msub><mrow 
><mi 
>y</mi></mrow><mrow 
><mi 
>n</mi></mrow></msub 
></mrow><mo 
class="MathClass-close">)</mo></mrow></mrow><mo 
class="MathClass-close">)</mo></mrow></math> and
<!--l. 1292--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><msub><mrow 
><mi 
>x</mi></mrow><mrow 
><mi 
>j</mi></mrow></msub 
> <mo 
class="MathClass-rel">=</mo> <msub><mrow 
><mi 
>h</mi></mrow><mrow 
><mi 
>j</mi></mrow></msub 
><mrow><mo 
class="MathClass-open">(</mo><mrow><msub><mrow 
><mi 
>r</mi></mrow><mrow 
><mi 
>j</mi></mrow></msub 
><mrow><mo 
class="MathClass-open">(</mo><mrow><mi 
>y</mi></mrow><mo 
class="MathClass-close">)</mo></mrow></mrow><mo 
class="MathClass-close">)</mo></mrow></math>. By assumption,
for all <!--l. 1293--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mi 
>j</mi></math>,
<!--l. 1294--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><msub><mrow 
><mi 
>P</mi></mrow><mrow 
><msub><mrow 
><mi 
>y</mi></mrow><mrow 
><mi 
>n</mi></mrow></msub 
></mrow></msub 
><msubsup><mrow 
><mi 
>r</mi></mrow><mrow 
><mi 
>j</mi></mrow><mrow 
><mo 
class="MathClass-bin">&#x2212;</mo><mn>1</mn></mrow></msubsup 
> <mo 
class="MathClass-rel">&#x21D2;</mo> <msub><mrow 
><mi 
>P</mi></mrow><mrow 
>
<mi 
>y</mi></mrow></msub 
><msubsup><mrow 
><mi 
>r</mi></mrow><mrow 
><mi 
>j</mi></mrow><mrow 
><mo 
class="MathClass-bin">&#x2212;</mo><mn>1</mn></mrow></msubsup 
></math>.
Thus, Theorem 5.1 of Billingsley (1968)(<a 
  name="dx1-34001"></a><a 
href="#X1968Billibilo">2</a>) and the continuity of
<!--l. 1295--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><msub><mrow 
><mi 
>h</mi></mrow><mrow 
><mi 
>j</mi></mrow></msub 
></math> imply
<!--l. 1296--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><msub><mrow 
><mi 
>P</mi></mrow><mrow 
><msub><mrow 
><mi 
>x</mi></mrow><mrow 
><mi 
>n</mi><mo 
class="MathClass-punc">,</mo><mi 
>j</mi></mrow></msub 
></mrow></msub 
> <mo 
class="MathClass-rel">&#x21D2;</mo> <msub><mrow 
><mi 
>P</mi></mrow><mrow 
><msub><mrow 
><mi 
>x</mi></mrow><mrow 
><mi 
>j</mi></mrow></msub 
></mrow></msub 
></math> as
<!--l. 1296--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mi 
>n</mi> <mo 
class="MathClass-rel">&#x2192;</mo><mi 
>&#x221E;</mi></math>, for all
<!--l. 1296--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mi 
>j</mi></math>. Also, the dominated
convergence theorem yields <!--l. 1298--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><msub><mrow 
><mi 
>x</mi></mrow><mrow 
><mi 
>j</mi></mrow></msub 
><mover><mrow 
> <mo 
class="MathClass-rel">&#x2192;</mo></mrow><mrow 
><mi 
>D</mi></mrow></mover><mi 
>w</mi></math>,
as <!--l. 1298--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mi 
>j</mi> <mo 
class="MathClass-rel">&#x2192;</mo><mi 
>&#x221E;</mi></math>.
Using Theorem 4.2 of Billingsley (1968)(<a 
  name="dx1-34002"></a><a 
href="#X1968Billibilo">2</a>), in order to establish
<!--l. 1300--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><msub><mrow 
><mi 
>w</mi></mrow><mrow 
><mi 
>n</mi></mrow></msub 
><mover><mrow 
> <mo 
class="MathClass-rel">&#x2192;</mo></mrow><mrow 
><mi 
>D</mi></mrow></mover><mi 
>w</mi></math> as
<!--l. 1300--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mi 
>n</mi> <mo 
class="MathClass-rel">&#x2192;</mo><mi 
>&#x221E;</mi></math>, it suffices to

show that for all <!--l. 1301--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mi 
>&#x03B5;</mi> <mo 
class="MathClass-rel">&#x003E;</mo> <mn>0</mn></math>,
</p>
   <center class="math-display"><!--l. 1302--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="display"><mrow 
>
                    <munder><mrow 
><mo 
> lim</mo> </mrow><mrow 
><mi 
>j</mi> <mo 
class="MathClass-rel">&#x2192;</mo><mi 
>&#x221E;</mi></mrow></munder><munder><mrow 
><mo 
> lim sup</mo> </mrow><mrow 
><mi 
>n</mi> <mo 
class="MathClass-rel">&#x2192;</mo><mi 
>&#x221E;</mi></mrow></munder><mi 
>P</mi><mrow><mo 
class="MathClass-open">{</mo><mrow><mo 
class="MathClass-rel">&#x2223;</mo><msub><mrow 
><mi 
>x</mi></mrow><mrow 
><mi 
>n</mi><mo 
class="MathClass-punc">,</mo><mi 
>j</mi></mrow></msub 
> <mo 
class="MathClass-bin">&#x2212;</mo> <msub><mrow 
><mi 
>w</mi></mrow><mrow 
><mi 
>n</mi></mrow></msub 
><mo 
class="MathClass-rel">&#x2223;</mo><mo 
class="MathClass-rel">&#x2265;</mo> <mi 
>&#x03B5;</mi></mrow><mo 
class="MathClass-close">}</mo></mrow> <mo 
class="MathClass-rel">=</mo> <mn>0</mn><mo 
class="MathClass-punc">.</mo>
</mrow></math></center>
<!--l. 1305--><p class="nopar">
By Markov&#x2019;s inequality it suffices to show that for all
<!--l. 1307--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mi 
>&#x03B5;</mi> <mo 
class="MathClass-rel">&#x003E;</mo> <mn>0</mn></math>, </p><table class="equation"><tr><td>
<a 
  name="x1-34003r23"></a>
<!--l. 1308--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="display">
                  <munder><mrow 
><mo 
>lim</mo></mrow><mrow 
><mi 
>j</mi> <mo 
class="MathClass-rel">&#x2192;</mo><mi 
>&#x221E;</mi></mrow></munder><munder><mrow 
><mo 
> lim sup</mo> </mrow><mrow 
><mi 
>n</mi> <mo 
class="MathClass-rel">&#x2192;</mo><mi 
>&#x221E;</mi></mrow></munder><mi 
>E</mi><mo 
class="MathClass-rel">&#x2223;</mo><msub><mrow 
><mi 
>x</mi></mrow><mrow 
><mi 
>n</mi><mo 
class="MathClass-punc">,</mo><mi 
>j</mi></mrow></msub 
> <mo 
class="MathClass-bin">&#x2212;</mo> <msub><mrow 
><mi 
>w</mi></mrow><mrow 
><mi 
>n</mi></mrow></msub 
><msup><mrow 
><mo 
class="MathClass-rel">&#x2223;</mo></mrow><mrow 
><mi 
>&#x03B1;</mi></mrow></msup 
> <mo 
class="MathClass-rel">=</mo> <mn>0</mn>
</math>
<!--l. 1311--><p class="nopar"></p></td><td class="eq-no">(6.23)</td></tr></table>
for some <!--l. 1312--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mi 
>&#x03B1;</mi> <mo 
class="MathClass-rel">&#x003E;</mo> <mn>0</mn></math>.
But

<!--l. 1313--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="display">
<mtable 
class="eqnarray" columnalign="right center left" >
<mtr><mtd 
class="eqnarray-1"> <mi 
>E</mi><mo 
class="MathClass-rel">&#x2223;</mo><msub><mrow 
><mi 
>x</mi></mrow><mrow 
><mi 
>n</mi><mo 
class="MathClass-punc">,</mo><mi 
>j</mi></mrow></msub 
> <mo 
class="MathClass-bin">&#x2212;</mo> <msub><mrow 
><mi 
>w</mi></mrow><mrow 
><mi 
>n</mi></mrow></msub 
><msup><mrow 
><mo 
class="MathClass-rel">&#x2223;</mo></mrow><mrow 
><mi 
>&#x03B1;</mi></mrow></msup 
></mtd><mtd 
class="eqnarray-2">   <mo 
class="MathClass-rel">=</mo></mtd><mtd 
class="eqnarray-3">   <mi 
>E</mi><msup><mrow 
> <mfenced separators="" 
open="|"  close="|" ><mrow><msub><mrow 
><mo 
class="MathClass-op">&#x222B;</mo>
  </mrow><mrow 
><msup><mrow 
><mi mathvariant="double-struck">&#x211D;</mi></mrow><mrow 
><mi 
>p</mi><mi 
>q</mi></mrow></msup 
><mo 
class="MathClass-bin">&#x2216;</mo><msubsup><mrow 
><mi mathvariant="double-struck">&#x211D;</mi></mrow><mrow 
><mi 
>j</mi></mrow><mrow 
><mi 
>p</mi><mi 
>q</mi></mrow></msubsup 
></mrow></msub 
><mi 
>f</mi><mrow><mo 
class="MathClass-open">(</mo><mrow><msub><mrow 
><mi 
>y</mi></mrow><mrow 
><mi 
>n</mi></mrow></msub 
><mrow><mo 
class="MathClass-open">(</mo><mrow><mi 
>t</mi></mrow><mo 
class="MathClass-close">)</mo></mrow></mrow><mo 
class="MathClass-close">)</mo></mrow><mi 
>d</mi><mi 
>G</mi><mrow><mo 
class="MathClass-open">(</mo><mrow><mi 
>t</mi></mrow><mo 
class="MathClass-close">)</mo></mrow></mrow></mfenced> </mrow><mrow 
><mi 
>&#x03B1;</mi></mrow></msup 
>    </mtd><mtd 
class="eqnarray-4"> <mtext class="eqnarray">(6.24)</mtext><mtext 
   id="x1-34004r6.24"  class="label" ></mtext><mtext 
class="endlabel"></mtext></mtd>
</mtr><mtr><mtd 
class="eqnarray-1">              </mtd><mtd 
class="eqnarray-2">   <mo 
class="MathClass-rel">&#x2264;</mo></mtd><mtd 
class="eqnarray-3">   <mi 
>E</mi><msup><mrow 
> <mfenced separators="" 
open="["  close="]" ><mrow><msub><mrow 
><mo 
class="MathClass-op">&#x222B;</mo>
  </mrow><mrow 
><msup><mrow 
><mi mathvariant="double-struck">&#x211D;</mi></mrow><mrow 
><mi 
>p</mi><mi 
>q</mi></mrow></msup 
><mo 
class="MathClass-bin">&#x2216;</mo><msubsup><mrow 
><mi mathvariant="double-struck">&#x211D;</mi></mrow><mrow 
><mi 
>j</mi></mrow><mrow 
><mi 
>p</mi><mi 
>q</mi></mrow></msubsup 
></mrow></msub 
><mo 
class="MathClass-rel">&#x2223;</mo><mi 
>f</mi><mrow><mo 
class="MathClass-open">(</mo><mrow><msub><mrow 
><mi 
>y</mi></mrow><mrow 
><mi 
>n</mi></mrow></msub 
><mrow><mo 
class="MathClass-open">(</mo><mrow><mi 
>t</mi></mrow><mo 
class="MathClass-close">)</mo></mrow></mrow><mo 
class="MathClass-close">)</mo></mrow><mo 
class="MathClass-rel">&#x2223;</mo><mi 
>d</mi><mi 
>G</mi><mrow><mo 
class="MathClass-open">(</mo><mrow><mi 
>t</mi></mrow><mo 
class="MathClass-close">)</mo></mrow></mrow></mfenced> </mrow><mrow 
><mi 
>&#x03B1;</mi></mrow></msup 
>  </mtd><mtd 
class="eqnarray-4"> <mtext class="eqnarray">(6.25)</mtext><mtext 
   id="x1-34004r6.25"  class="label" ></mtext><mtext 
class="endlabel"></mtext></mtd>
</mtr><mtr><mtd 
class="eqnarray-1">              </mtd><mtd 
class="eqnarray-2">   <mo 
class="MathClass-rel">=</mo></mtd><mtd 
class="eqnarray-3">   <msub><mrow 
><mi 
>E</mi></mrow><mrow 
><msub><mrow 
><mi 
>y</mi></mrow><mrow 
><mi 
>n</mi></mrow></msub 
></mrow></msub 
><msup><mrow 
> <mfenced separators="" 
open="("  close=")" ><mrow><msub><mrow 
><mi 
>E</mi></mrow><mrow 
><mi 
>G</mi></mrow></msub 
> <mfenced separators="" 
open="["  close="]" ><mrow><!--mstyle 
class="mbox"--><mtext >1l</mtext><!--/mstyle--><mrow><mo 
class="MathClass-open">{</mo><mrow><mo 
class="MathClass-rel">&#x2225;</mo><mi 
>t</mi><mo 
class="MathClass-rel">&#x2225;</mo> <mo 
class="MathClass-rel">&#x003E;</mo> <mi 
>j</mi></mrow><mo 
class="MathClass-close">}</mo></mrow><mo 
class="MathClass-rel">&#x2223;</mo><mi 
>f</mi><mrow><mo 
class="MathClass-open">(</mo><mrow><msub><mrow 
><mi 
>y</mi></mrow><mrow 
><mi 
>n</mi></mrow></msub 
><mrow><mo 
class="MathClass-open">(</mo><mrow><mi 
>t</mi></mrow><mo 
class="MathClass-close">)</mo></mrow></mrow><mo 
class="MathClass-close">)</mo></mrow><mo 
class="MathClass-rel">&#x2223;</mo></mrow></mfenced></mrow></mfenced></mrow><mrow 
><mi 
>&#x03B1;</mi></mrow></msup 
><mo 
class="MathClass-punc">.</mo></mtd><mtd 
class="eqnarray-4"> <mtext class="eqnarray">(6.26)</mtext><mtext 
   id="x1-34004r6.26"  class="label" ></mtext><mtext 
class="endlabel"></mtext></mtd>                         </mtr></mtable>
</math>
<!--l. 1321--><p class="nopar">
Then, using Jensen&#x2019;s inequality with <!--l. 1322--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mi 
>&#x03B1;</mi> <mo 
class="MathClass-rel">&#x2265;</mo> <mn>1</mn></math>
and Fubini&#x2019;s theorem,
</p><!--l. 1323--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="display">
<mtable 
class="eqnarray" columnalign="right center left" >
<mtr><mtd 
class="eqnarray-1"> <mi 
>E</mi><mo 
class="MathClass-rel">&#x2223;</mo><msub><mrow 
><mi 
>x</mi></mrow><mrow 
><mi 
>n</mi><mo 
class="MathClass-punc">,</mo><mi 
>j</mi></mrow></msub 
> <mo 
class="MathClass-bin">&#x2212;</mo> <msub><mrow 
><mi 
>w</mi></mrow><mrow 
><mi 
>n</mi></mrow></msub 
><msup><mrow 
><mo 
class="MathClass-rel">&#x2223;</mo></mrow><mrow 
><mi 
>&#x03B1;</mi></mrow></msup 
></mtd><mtd 
class="eqnarray-2">   <mo 
class="MathClass-rel">&#x2264;</mo></mtd><mtd 
class="eqnarray-3">   <msub><mrow 
><mi 
>E</mi></mrow><mrow 
><msub><mrow 
>
<mi 
>y</mi></mrow><mrow 
><mi 
>n</mi></mrow></msub 
></mrow></msub 
><msub><mrow 
><mi 
>E</mi></mrow><mrow 
><mi 
>G</mi></mrow></msub 
><mrow><mo 
class="MathClass-open">[</mo><mrow><!--mstyle 
class="mbox"--><mtext >1l</mtext><!--/mstyle--><mrow><mo 
class="MathClass-open">{</mo><mrow><mo 
class="MathClass-rel">&#x2225;</mo><mi 
>t</mi><mo 
class="MathClass-rel">&#x2225;</mo> <mo 
class="MathClass-rel">&#x003E;</mo> <mi 
>j</mi></mrow><mo 
class="MathClass-close">}</mo></mrow><mo 
class="MathClass-rel">&#x2223;</mo><mi 
>f</mi><mrow><mo 
class="MathClass-open">(</mo><mrow><msub><mrow 
><mi 
>y</mi></mrow><mrow 
><mi 
>n</mi></mrow></msub 
><mrow><mo 
class="MathClass-open">(</mo><mrow><mi 
>t</mi></mrow><mo 
class="MathClass-close">)</mo></mrow></mrow><mo 
class="MathClass-close">)</mo></mrow><msup><mrow 
><mo 
class="MathClass-rel">&#x2223;</mo></mrow><mrow 
><mi 
>&#x03B1;</mi></mrow></msup 
></mrow><mo 
class="MathClass-close">]</mo></mrow></mtd><mtd 
class="eqnarray-4"> <mtext class="eqnarray">(6.27)</mtext><mtext 
   id="x1-34005r6.27"  class="label" ></mtext><mtext 
class="endlabel"></mtext></mtd>
</mtr><mtr><mtd 
class="eqnarray-1">              </mtd><mtd 
class="eqnarray-2">   <mo 
class="MathClass-rel">=</mo></mtd><mtd 
class="eqnarray-3">   <msub><mrow 
><mi 
>E</mi></mrow><mrow 
><mi 
>G</mi></mrow></msub 
><msub><mrow 
><mi 
>E</mi></mrow><mrow 
><msub><mrow 
><mi 
>y</mi></mrow><mrow 
><mi 
>n</mi></mrow></msub 
></mrow></msub 
><mrow><mo 
class="MathClass-open">[</mo><mrow><!--mstyle 
class="mbox"--><mtext >1l</mtext><!--/mstyle--><mrow><mo 
class="MathClass-open">{</mo><mrow><mo 
class="MathClass-rel">&#x2225;</mo><mi 
>t</mi><mo 
class="MathClass-rel">&#x2225;</mo> <mo 
class="MathClass-rel">&#x003E;</mo> <mi 
>j</mi></mrow><mo 
class="MathClass-close">}</mo></mrow><mo 
class="MathClass-rel">&#x2223;</mo><mi 
>f</mi><mrow><mo 
class="MathClass-open">(</mo><mrow><msub><mrow 
><mi 
>y</mi></mrow><mrow 
><mi 
>n</mi></mrow></msub 
><mrow><mo 
class="MathClass-open">(</mo><mrow><mi 
>t</mi></mrow><mo 
class="MathClass-close">)</mo></mrow></mrow><mo 
class="MathClass-close">)</mo></mrow><msup><mrow 
><mo 
class="MathClass-rel">&#x2223;</mo></mrow><mrow 
><mi 
>&#x03B1;</mi></mrow></msup 
></mrow><mo 
class="MathClass-close">]</mo></mrow></mtd><mtd 
class="eqnarray-4"> <mtext class="eqnarray">(6.28)</mtext><mtext 
   id="x1-34005r6.28"  class="label" ></mtext><mtext 
class="endlabel"></mtext></mtd>
</mtr><mtr><mtd 
class="eqnarray-1">              </mtd><mtd 
class="eqnarray-2">   <mo 
class="MathClass-rel">=</mo></mtd><mtd 
class="eqnarray-3"><msub><mrow 
>   <mo 
class="MathClass-op">&#x222B;</mo>
                        </mrow><mrow 
><msup><mrow 
><mi mathvariant="double-struck">&#x211D;</mi></mrow><mrow 
><mi 
>p</mi><mi 
>q</mi></mrow></msup 
><mo 
class="MathClass-bin">&#x2216;</mo><msubsup><mrow 
><mi mathvariant="double-struck">&#x211D;</mi></mrow><mrow 
><mi 
>j</mi></mrow><mrow 
><mi 
>p</mi><mi 
>q</mi></mrow></msubsup 
></mrow></msub 
><mi 
>E</mi><mo 
class="MathClass-rel">&#x2223;</mo><mi 
>f</mi><mrow><mo 
class="MathClass-open">(</mo><mrow><msub><mrow 
><mi 
>y</mi></mrow><mrow 
><mi 
>n</mi></mrow></msub 
><mrow><mo 
class="MathClass-open">(</mo><mrow><mi 
>t</mi></mrow><mo 
class="MathClass-close">)</mo></mrow></mrow><mo 
class="MathClass-close">)</mo></mrow><msup><mrow 
><mo 
class="MathClass-rel">&#x2223;</mo></mrow><mrow 
><mi 
>&#x03B1;</mi></mrow></msup 
><mi 
>d</mi><mi 
>G</mi><mrow><mo 
class="MathClass-open">(</mo><mrow><mi 
>t</mi></mrow><mo 
class="MathClass-close">)</mo></mrow><mo 
class="MathClass-punc">.</mo>  </mtd><mtd 
class="eqnarray-4"> <mtext class="eqnarray">(6.29)</mtext><mtext 
   id="x1-34005r6.29"  class="label" ></mtext><mtext 
class="endlabel"></mtext></mtd>                           </mtr></mtable>
</math>
<!--l. 1330--><p class="nopar">
The theorem is proved.
</p>
   <h4 class="subsectionHead"><span class="titlemark">6.4. </span> <a 
  name="x1-350006.4"></a>Proof of Theorem 2.4</h4>
<!--l. 1337--><p class="noindent">Define the functional (norm) <!--l. 1337--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mo 
class="MathClass-rel">&#x2223;</mo><mrow><mo 
class="MathClass-open">[</mo><mrow><mi 
>x</mi></mrow><mo 
class="MathClass-close">]</mo></mrow><msup><mrow 
><mo 
class="MathClass-rel">&#x2223;</mo></mrow><mrow 
><mn>2</mn></mrow></msup 
> <mo 
class="MathClass-rel">=</mo> <mo 
class="MathClass-op">&#x222B;</mo> <mo 
class="MathClass-rel">&#x2223;</mo><mi 
>x</mi><mrow><mo 
class="MathClass-open">(</mo><mrow><mi 
>t</mi></mrow><mo 
class="MathClass-close">)</mo></mrow><msup><mrow 
><mo 
class="MathClass-rel">&#x2223;</mo></mrow><mrow 
><mn>2</mn></mrow></msup 
><msub><mrow 
><mi 
>&#x03D5;</mi></mrow><mrow 
>
<mi 
>b</mi></mrow></msub 
><mrow><mo 
class="MathClass-open">(</mo><mrow><mi 
>t</mi></mrow><mo 
class="MathClass-close">)</mo></mrow><mi 
>d</mi><mi 
>t</mi></math>
on the subset of squared-integrable functions with respect to
<!--l. 1340--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><msub><mrow 
><mi 
>&#x03D5;</mi></mrow><mrow 
><mi 
>b</mi></mrow></msub 
><mrow><mo 
class="MathClass-open">(</mo><mrow><mi 
>t</mi></mrow><mo 
class="MathClass-close">)</mo></mrow><mi 
>d</mi><mi 
>t</mi></math>.
Following (Henze and Wagner, 1997, pp. 10-11)(<a 
  name="dx1-35001"></a><a 
href="#X1997Henze1bilo">19</a>) , in order to prove the theorem, it

suffices to show </p><table class="equation"><tr><td> <a 
  name="x1-35002r30"></a>
<!--l. 1343--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="display">
                     <mfenced separators="" 
open="("  close=")" ><mrow><mo 
class="MathClass-rel">&#x2223;</mo><mrow><mo 
class="MathClass-open">[</mo><mrow><msub><mrow 
><mover 
accent="true"><mrow 
><mi 
>R</mi></mrow><mo 
class="MathClass-op">&#x02D8;</mo></mover></mrow><mrow 
><mi 
>n</mi><mo 
class="MathClass-punc">,</mo><mi 
>A</mi></mrow></msub 
></mrow><mo 
class="MathClass-close">]</mo></mrow><msup><mrow 
><mo 
class="MathClass-rel">&#x2223;</mo></mrow><mrow 
><mn>2</mn></mrow></msup 
><mo 
class="MathClass-punc">,</mo><mo 
class="MathClass-rel">&#x2223;</mo><mrow><mo 
class="MathClass-open">[</mo><mrow><msub><mrow 
><mover 
accent="true"><mrow 
><mi 
>R</mi></mrow><mo 
class="MathClass-op">&#x02D8;</mo></mover></mrow><mrow 
>
<mi 
>n</mi><mo 
class="MathClass-punc">,</mo><mi 
>B</mi></mrow></msub 
></mrow><mo 
class="MathClass-close">]</mo></mrow><msup><mrow 
><mo 
class="MathClass-rel">&#x2223;</mo></mrow><mrow 
><mn>2</mn></mrow></msup 
></mrow></mfenced><mover 
class="stackrel"><mrow 
><mo 
class="MathClass-rel">&#x2192;</mo></mrow><mrow 
><mo 
class="MathClass-op">D</mo></mrow></mover> <mfenced separators="" 
open="("  close=")" ><mrow><mo 
class="MathClass-rel">&#x2223;</mo><mrow><mo 
class="MathClass-open">[</mo><mrow><msub><mrow 
><mi 
>R</mi></mrow><mrow 
>
<mi 
>A</mi></mrow></msub 
></mrow><mo 
class="MathClass-close">]</mo></mrow><msup><mrow 
><mo 
class="MathClass-rel">&#x2223;</mo></mrow><mrow 
><mn>2</mn></mrow></msup 
><mo 
class="MathClass-punc">,</mo><mo 
class="MathClass-rel">&#x2223;</mo><mrow><mo 
class="MathClass-open">[</mo><mrow><msub><mrow 
><mi 
>R</mi></mrow><mrow 
>
<mi 
>B</mi></mrow></msub 
></mrow><mo 
class="MathClass-close">]</mo></mrow><msup><mrow 
><mo 
class="MathClass-rel">&#x2223;</mo></mrow><mrow 
><mn>2</mn></mrow></msup 
></mrow></mfenced>
</math>
<!--l. 1346--><p class="nopar"></p></td><td class="eq-no">(6.30)</td></tr></table>
and <table class="equation"><tr><td> <a 
  name="x1-35003r31"></a>
<!--l. 1348--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="display">
                            <mo 
class="MathClass-rel">&#x2223;</mo><mrow><mo 
class="MathClass-open">[</mo><mrow><msub><mrow 
><mover 
accent="true"><mrow 
><mi 
>R</mi></mrow><mo 
class="MathClass-op">&#x02DC;</mo></mover></mrow><mrow 
><mi 
>n</mi><mo 
class="MathClass-punc">,</mo><mi 
>A</mi></mrow></msub 
> <mo 
class="MathClass-bin">&#x2212;</mo><msub><mrow 
><mover 
accent="true"><mrow 
><mi 
>R</mi></mrow><mo 
class="MathClass-op">&#x02D8;</mo></mover></mrow><mrow 
><mi 
>n</mi><mo 
class="MathClass-punc">,</mo><mi 
>A</mi></mrow></msub 
></mrow><mo 
class="MathClass-close">]</mo></mrow><msup><mrow 
><mo 
class="MathClass-rel">&#x2223;</mo></mrow><mrow 
><mn>2</mn></mrow></msup 
><mover 
class="stackrel"><mrow 
><mo 
class="MathClass-rel">&#x2192;</mo></mrow><mrow 
><mo 
class="MathClass-op">P</mo></mrow></mover><mn>0</mn><mo 
class="MathClass-punc">.</mo>
</math>
<!--l. 1350--><p class="nopar"></p></td><td class="eq-no">(6.31)</td></tr></table>
This is sufficient since then the triangle inequality produces
   <center class="math-display"><!--l. 1352--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="display"><mrow 
>
                         <mfenced separators="" 
open="|"  close="|" ><mrow><mo 
class="MathClass-rel">&#x2223;</mo><mrow><mo 
class="MathClass-open">[</mo><mrow><msub><mrow 
><mover 
accent="true"><mrow 
><mi 
>R</mi></mrow><mo 
class="MathClass-op">&#x02D8;</mo></mover></mrow><mrow 
><mi 
>n</mi><mo 
class="MathClass-punc">,</mo><mi 
>A</mi></mrow></msub 
></mrow><mo 
class="MathClass-close">]</mo></mrow><mo 
class="MathClass-rel">&#x2223;</mo><mo 
class="MathClass-bin">&#x2212;</mo><mo 
class="MathClass-rel">&#x2223;</mo><mrow><mo 
class="MathClass-open">[</mo><mrow><msub><mrow 
><mover 
accent="true"><mrow 
><mi 
>R</mi></mrow><mo 
class="MathClass-op">&#x02DC;</mo></mover></mrow><mrow 
><mi 
>n</mi><mo 
class="MathClass-punc">,</mo><mi 
>A</mi></mrow></msub 
></mrow><mo 
class="MathClass-close">]</mo></mrow><mo 
class="MathClass-rel">&#x2223;</mo></mrow></mfenced><mo 
class="MathClass-rel">&#x2264;</mo><mo 
class="MathClass-rel">&#x2223;</mo><mrow><mo 
class="MathClass-open">[</mo><mrow><msub><mrow 
><mover 
accent="true"><mrow 
><mi 
>R</mi></mrow><mo 
class="MathClass-op">&#x02D8;</mo></mover></mrow><mrow 
><mi 
>n</mi><mo 
class="MathClass-punc">,</mo><mi 
>A</mi></mrow></msub 
> <mo 
class="MathClass-bin">&#x2212;</mo><msub><mrow 
><mover 
accent="true"><mrow 
><mi 
>R</mi></mrow><mo 
class="MathClass-op">&#x02DC;</mo></mover></mrow><mrow 
><mi 
>n</mi><mo 
class="MathClass-punc">,</mo><mi 
>A</mi></mrow></msub 
></mrow><mo 
class="MathClass-close">]</mo></mrow><mo 
class="MathClass-rel">&#x2223;</mo><mover 
class="stackrel"><mrow 
><mo 
class="MathClass-rel">&#x2192;</mo></mrow><mrow 
><mo 
class="MathClass-op">P</mo></mrow></mover><mn>0</mn><mo 
class="MathClass-punc">.</mo>
</mrow></math></center>
<!--l. 1355--><p class="nopar">
This implies </p><table class="equation"><tr><td> <a 
  name="x1-35004r32"></a>

<!--l. 1357--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="display">
                    <mfenced separators="" 
open="("  close=")" ><mrow><mo 
class="MathClass-rel">&#x2223;</mo><mrow><mo 
class="MathClass-open">[</mo><mrow><msub><mrow 
><mover 
accent="true"><mrow 
><mi 
>R</mi></mrow><mo 
class="MathClass-op">&#x02DC;</mo></mover></mrow><mrow 
><mi 
>n</mi><mo 
class="MathClass-punc">,</mo><mi 
>A</mi></mrow></msub 
></mrow><mo 
class="MathClass-close">]</mo></mrow><msup><mrow 
><mo 
class="MathClass-rel">&#x2223;</mo></mrow><mrow 
><mn>2</mn></mrow></msup 
><mo 
class="MathClass-punc">,</mo><mo 
class="MathClass-rel">&#x2223;</mo><mrow><mo 
class="MathClass-open">[</mo><mrow><msub><mrow 
><mover 
accent="true"><mrow 
><mi 
>R</mi></mrow><mo 
class="MathClass-op">&#x02DC;</mo></mover></mrow><mrow 
>
<mi 
>n</mi><mo 
class="MathClass-punc">,</mo><mi 
>B</mi></mrow></msub 
></mrow><mo 
class="MathClass-close">]</mo></mrow><msup><mrow 
><mo 
class="MathClass-rel">&#x2223;</mo></mrow><mrow 
><mn>2</mn></mrow></msup 
></mrow></mfenced><mover 
class="stackrel"><mrow 
><mo 
class="MathClass-rel">&#x2192;</mo></mrow><mrow 
><mo 
class="MathClass-op">D</mo></mrow></mover> <mfenced separators="" 
open="("  close=")" ><mrow><mo 
class="MathClass-rel">&#x2223;</mo><mrow><mo 
class="MathClass-open">[</mo><mrow><msub><mrow 
><mi 
>R</mi></mrow><mrow 
>
<mi 
>A</mi></mrow></msub 
></mrow><mo 
class="MathClass-close">]</mo></mrow><msup><mrow 
><mo 
class="MathClass-rel">&#x2223;</mo></mrow><mrow 
><mn>2</mn></mrow></msup 
><mo 
class="MathClass-punc">,</mo><mo 
class="MathClass-rel">&#x2223;</mo><mrow><mo 
class="MathClass-open">[</mo><mrow><msub><mrow 
><mi 
>R</mi></mrow><mrow 
>
<mi 
>B</mi></mrow></msub 
></mrow><mo 
class="MathClass-close">]</mo></mrow><msup><mrow 
><mo 
class="MathClass-rel">&#x2223;</mo></mrow><mrow 
><mn>2</mn></mrow></msup 
></mrow></mfenced><mo 
class="MathClass-punc">.</mo>
</math>
<!--l. 1360--><p class="nopar"></p></td><td class="eq-no">(6.32)</td></tr></table>
But from (<a 
href="#x1-33006r11">6.11<!--tex4ht:ref: ineqhattilde --></a>), <!--l. 1362--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mfenced separators="" 
open="|"  close="|" ><mrow><msub><mrow 
><mover 
accent="true"><mrow 
><mi 
>R</mi></mrow><mo 
class="MathClass-op">&#x0302;</mo></mover></mrow><mrow 
><mi 
>n</mi><mo 
class="MathClass-punc">,</mo><mi 
>A</mi></mrow></msub 
><mrow><mo 
class="MathClass-open">(</mo><mrow><mi 
>t</mi></mrow><mo 
class="MathClass-close">)</mo></mrow> <mo 
class="MathClass-bin">&#x2212;</mo><msub><mrow 
><mover 
accent="true"><mrow 
><mi 
>R</mi></mrow><mo 
class="MathClass-op">&#x02DC;</mo></mover></mrow><mrow 
><mi 
>n</mi><mo 
class="MathClass-punc">,</mo><mi 
>A</mi></mrow></msub 
><mrow><mo 
class="MathClass-open">(</mo><mrow><mi 
>t</mi></mrow><mo 
class="MathClass-close">)</mo></mrow></mrow></mfenced> <mo 
class="MathClass-rel">=</mo> <mo 
class="MathClass-rel">&#x2225;</mo><mi 
>t</mi><msup><mrow 
><mo 
class="MathClass-rel">&#x2225;</mo></mrow><mrow 
><mn>2</mn></mrow></msup 
><msub><mrow 
><mi 
>o</mi></mrow><mrow 
>
<mi 
>P</mi> </mrow></msub 
><mrow><mo 
class="MathClass-open">(</mo><mrow><mn>1</mn></mrow><mo 
class="MathClass-close">)</mo></mrow></math>
which yields <table class="equation"><tr><td> <a 
  name="x1-35005r33"></a>
<!--l. 1364--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="display">
                            <mo 
class="MathClass-rel">&#x2223;</mo><mrow><mo 
class="MathClass-open">[</mo><mrow><msub><mrow 
><mover 
accent="true"><mrow 
><mi 
>R</mi></mrow><mo 
class="MathClass-op">&#x0302;</mo></mover></mrow><mrow 
><mi 
>n</mi><mo 
class="MathClass-punc">,</mo><mi 
>A</mi></mrow></msub 
> <mo 
class="MathClass-bin">&#x2212;</mo><msub><mrow 
><mover 
accent="true"><mrow 
><mi 
>R</mi></mrow><mo 
class="MathClass-op">&#x02DC;</mo></mover></mrow><mrow 
><mi 
>n</mi><mo 
class="MathClass-punc">,</mo><mi 
>A</mi></mrow></msub 
></mrow><mo 
class="MathClass-close">]</mo></mrow><msup><mrow 
><mo 
class="MathClass-rel">&#x2223;</mo></mrow><mrow 
><mn>2</mn></mrow></msup 
><mover 
class="stackrel"><mrow 
><mo 
class="MathClass-rel">&#x2192;</mo></mrow><mrow 
><mo 
class="MathClass-op">P</mo></mrow></mover><mn>0</mn><mo 
class="MathClass-punc">.</mo>
</math>
<!--l. 1366--><p class="nopar"></p></td><td class="eq-no">(6.33)</td></tr></table>
Again, the triangle inequality produces
   <center class="math-display"><!--l. 1368--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="display"><mrow 
>
                         <mfenced separators="" 
open="|"  close="|" ><mrow><mo 
class="MathClass-rel">&#x2223;</mo><mrow><mo 
class="MathClass-open">[</mo><mrow><msub><mrow 
><mover 
accent="true"><mrow 
><mi 
>R</mi></mrow><mo 
class="MathClass-op">&#x0302;</mo></mover></mrow><mrow 
><mi 
>n</mi><mo 
class="MathClass-punc">,</mo><mi 
>A</mi></mrow></msub 
></mrow><mo 
class="MathClass-close">]</mo></mrow><mo 
class="MathClass-rel">&#x2223;</mo><mo 
class="MathClass-bin">&#x2212;</mo><mo 
class="MathClass-rel">&#x2223;</mo><mrow><mo 
class="MathClass-open">[</mo><mrow><msub><mrow 
><mover 
accent="true"><mrow 
><mi 
>R</mi></mrow><mo 
class="MathClass-op">&#x02DC;</mo></mover></mrow><mrow 
><mi 
>n</mi><mo 
class="MathClass-punc">,</mo><mi 
>A</mi></mrow></msub 
></mrow><mo 
class="MathClass-close">]</mo></mrow><mo 
class="MathClass-rel">&#x2223;</mo></mrow></mfenced><mo 
class="MathClass-rel">&#x2264;</mo><mo 
class="MathClass-rel">&#x2223;</mo><mrow><mo 
class="MathClass-open">[</mo><mrow><msub><mrow 
><mover 
accent="true"><mrow 
><mi 
>R</mi></mrow><mo 
class="MathClass-op">&#x0302;</mo></mover></mrow><mrow 
><mi 
>n</mi><mo 
class="MathClass-punc">,</mo><mi 
>A</mi></mrow></msub 
> <mo 
class="MathClass-bin">&#x2212;</mo><msub><mrow 
><mover 
accent="true"><mrow 
><mi 
>R</mi></mrow><mo 
class="MathClass-op">&#x02DC;</mo></mover></mrow><mrow 
><mi 
>n</mi><mo 
class="MathClass-punc">,</mo><mi 
>A</mi></mrow></msub 
></mrow><mo 
class="MathClass-close">]</mo></mrow><mo 
class="MathClass-rel">&#x2223;</mo><mover 
class="stackrel"><mrow 
><mo 
class="MathClass-rel">&#x2192;</mo></mrow><mrow 
><mo 
class="MathClass-op">P</mo></mrow></mover><mn>0</mn><mo 
class="MathClass-punc">.</mo>
</mrow></math></center>
<!--l. 1371--><p class="nopar">
Then, the desired result </p><table class="equation"><tr><td> <a 
  name="x1-35006r34"></a>

<!--l. 1373--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="display">
                     <mfenced separators="" 
open="("  close=")" ><mrow><mo 
class="MathClass-rel">&#x2223;</mo><mrow><mo 
class="MathClass-open">[</mo><mrow><msub><mrow 
><mover 
accent="true"><mrow 
><mi 
>R</mi></mrow><mo 
class="MathClass-op">&#x0302;</mo></mover></mrow><mrow 
><mi 
>n</mi><mo 
class="MathClass-punc">,</mo><mi 
>A</mi></mrow></msub 
></mrow><mo 
class="MathClass-close">]</mo></mrow><msup><mrow 
><mo 
class="MathClass-rel">&#x2223;</mo></mrow><mrow 
><mn>2</mn></mrow></msup 
><mo 
class="MathClass-punc">,</mo><mo 
class="MathClass-rel">&#x2223;</mo><mrow><mo 
class="MathClass-open">[</mo><mrow><msub><mrow 
><mover 
accent="true"><mrow 
><mi 
>R</mi></mrow><mo 
class="MathClass-op">&#x0302;</mo></mover></mrow><mrow 
>
<mi 
>n</mi><mo 
class="MathClass-punc">,</mo><mi 
>B</mi></mrow></msub 
></mrow><mo 
class="MathClass-close">]</mo></mrow><msup><mrow 
><mo 
class="MathClass-rel">&#x2223;</mo></mrow><mrow 
><mn>2</mn></mrow></msup 
></mrow></mfenced><mover 
class="stackrel"><mrow 
><mo 
class="MathClass-rel">&#x2192;</mo></mrow><mrow 
><mo 
class="MathClass-op">D</mo></mrow></mover> <mfenced separators="" 
open="("  close=")" ><mrow><mo 
class="MathClass-rel">&#x2223;</mo><mrow><mo 
class="MathClass-open">[</mo><mrow><msub><mrow 
><mi 
>R</mi></mrow><mrow 
>
<mi 
>A</mi></mrow></msub 
></mrow><mo 
class="MathClass-close">]</mo></mrow><msup><mrow 
><mo 
class="MathClass-rel">&#x2223;</mo></mrow><mrow 
><mn>2</mn></mrow></msup 
><mo 
class="MathClass-punc">,</mo><mo 
class="MathClass-rel">&#x2223;</mo><mrow><mo 
class="MathClass-open">[</mo><mrow><msub><mrow 
><mi 
>R</mi></mrow><mrow 
>
<mi 
>B</mi></mrow></msub 
></mrow><mo 
class="MathClass-close">]</mo></mrow><msup><mrow 
><mo 
class="MathClass-rel">&#x2223;</mo></mrow><mrow 
><mn>2</mn></mrow></msup 
></mrow></mfenced>
</math>
<!--l. 1376--><p class="nopar"></p></td><td class="eq-no">(6.34)</td></tr></table>
could be concluded.
<br class="newline" />
<!--l. 1379--><p class="indent">   The convergence in (<a 
href="#x1-35002r30">6.30<!--tex4ht:ref: cond1th1.4 --></a>) is now proved by means of
arbitrary linear combinations with the use of Theorem <a 
href="#x1-23010r3">2.3<!--tex4ht:ref: thkeller --></a> with
<!--l. 1381--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><msub><mrow 
><mi 
>y</mi></mrow><mrow 
><mi 
>n</mi></mrow></msub 
> <mo 
class="MathClass-rel">=</mo> <mrow><mo 
class="MathClass-open">(</mo><mrow><msub><mrow 
><mover 
accent="true"><mrow 
><mi 
>R</mi></mrow><mo 
class="MathClass-op">&#x02D8;</mo></mover></mrow><mrow 
><mi 
>n</mi><mo 
class="MathClass-punc">,</mo><mi 
>A</mi></mrow></msub 
><mo 
class="MathClass-punc">,</mo><msub><mrow 
><mover 
accent="true"><mrow 
><mi 
>R</mi></mrow><mo 
class="MathClass-op">&#x02D8;</mo></mover></mrow><mrow 
><mi 
>n</mi><mo 
class="MathClass-punc">,</mo><mi 
>B</mi></mrow></msub 
></mrow><mo 
class="MathClass-close">)</mo></mrow></math>, and the continuous
function <!--l. 1382--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mi 
>f</mi> <mo 
class="MathClass-punc">:</mo> <msup><mrow 
><mi mathvariant="double-struck">&#x2102;</mi></mrow><mrow 
><mn>2</mn></mrow></msup 
> <mo 
class="MathClass-rel">&#x2192;</mo> <mi mathvariant="double-struck">&#x211D;</mi></math> defined
by <!--l. 1383--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mi 
>f</mi><mrow><mo 
class="MathClass-open">(</mo><mrow><msub><mrow 
><mi 
>x</mi></mrow><mrow 
><mn>1</mn></mrow></msub 
><mo 
class="MathClass-punc">,</mo><msub><mrow 
><mi 
>x</mi></mrow><mrow 
><mn>2</mn></mrow></msub 
></mrow><mo 
class="MathClass-close">)</mo></mrow> <mo 
class="MathClass-rel">=</mo> <msub><mrow 
><mi 
>a</mi></mrow><mrow 
><mn>1</mn></mrow></msub 
><mo 
class="MathClass-rel">&#x2223;</mo><msub><mrow 
><mi 
>x</mi></mrow><mrow 
><mn>1</mn></mrow></msub 
><msup><mrow 
><mo 
class="MathClass-rel">&#x2223;</mo></mrow><mrow 
><mn>2</mn></mrow></msup 
> <mo 
class="MathClass-bin">+</mo> <msub><mrow 
><mi 
>a</mi></mrow><mrow 
>
<mn>2</mn></mrow></msub 
><mo 
class="MathClass-rel">&#x2223;</mo><msub><mrow 
><mi 
>x</mi></mrow><mrow 
><mn>2</mn></mrow></msub 
><msup><mrow 
><mo 
class="MathClass-rel">&#x2223;</mo></mrow><mrow 
><mn>2</mn></mrow></msup 
></math> for arbitrary
constants <!--l. 1384--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><msub><mrow 
><mi 
>a</mi></mrow><mrow 
><mn>1</mn></mrow></msub 
></math> and
<!--l. 1384--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><msub><mrow 
><mi 
>a</mi></mrow><mrow 
><mn>2</mn></mrow></msub 
></math> . Theorem <a 
href="#x1-22008r1">2.1<!--tex4ht:ref: nonserialconvknown --></a>
states that <!--l. 1385--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mrow><mo 
class="MathClass-open">(</mo><mrow><msub><mrow 
><mover 
accent="true"><mrow 
><mi 
>R</mi></mrow><mo 
class="MathClass-op">&#x02D8;</mo></mover></mrow><mrow 
><mi 
>n</mi><mo 
class="MathClass-punc">,</mo><mi 
>A</mi></mrow></msub 
><mo 
class="MathClass-punc">,</mo><msub><mrow 
><mover 
accent="true"><mrow 
><mi 
>R</mi></mrow><mo 
class="MathClass-op">&#x02D8;</mo></mover></mrow><mrow 
><mi 
>n</mi><mo 
class="MathClass-punc">,</mo><mi 
>B</mi></mrow></msub 
></mrow><mo 
class="MathClass-close">)</mo></mrow><mover><mrow 
> <mo 
class="MathClass-rel">&#x2192;</mo></mrow><mrow 
><mi 
>D</mi></mrow></mover><mrow><mo 
class="MathClass-open">(</mo><mrow><msub><mrow 
><mi 
>R</mi></mrow><mrow 
><mi 
>A</mi></mrow></msub 
><mo 
class="MathClass-punc">,</mo><msub><mrow 
><mi 
>R</mi></mrow><mrow 
><mi 
>B</mi></mrow></msub 
></mrow><mo 
class="MathClass-close">)</mo></mrow></math>.
From Proposition 14.6 of Kallenberg (1997)(<a 
  name="dx1-35007"></a><a 
href="#X1997Kallebilo">22</a>), this remains true on all the closed
balls. Note that
</p>
   <center class="math-display"><!--l. 1389--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="display"><mrow 
>
                     <mi 
>E</mi><mo 
class="MathClass-rel">&#x2223;</mo><mi 
>f</mi><mrow><mo 
class="MathClass-open">(</mo><mrow><msub><mrow 
><mi 
>y</mi></mrow><mrow 
><mi 
>n</mi></mrow></msub 
><mrow><mo 
class="MathClass-open">(</mo><mrow><mi 
>t</mi></mrow><mo 
class="MathClass-close">)</mo></mrow></mrow><mo 
class="MathClass-close">)</mo></mrow><mo 
class="MathClass-rel">&#x2223;</mo><mo 
class="MathClass-rel">&#x2264;</mo> <mi 
>E</mi><mo 
class="MathClass-rel">&#x2223;</mo><msub><mrow 
><mi 
>a</mi></mrow><mrow 
><mn>1</mn></mrow></msub 
><mo 
class="MathClass-rel">&#x2223;</mo><mo 
class="MathClass-rel">&#x2223;</mo><msub><mrow 
><mover 
accent="true"><mrow 
><mi 
>R</mi></mrow><mo 
class="MathClass-op">&#x02D8;</mo></mover></mrow><mrow 
><mi 
>n</mi><mo 
class="MathClass-punc">,</mo><mi 
>A</mi></mrow></msub 
><mrow><mo 
class="MathClass-open">(</mo><mrow><mi 
>t</mi></mrow><mo 
class="MathClass-close">)</mo></mrow><msup><mrow 
><mo 
class="MathClass-rel">&#x2223;</mo></mrow><mrow 
><mn>2</mn></mrow></msup 
> <mo 
class="MathClass-bin">+</mo> <mi 
>E</mi><mo 
class="MathClass-rel">&#x2223;</mo><msub><mrow 
><mi 
>a</mi></mrow><mrow 
>
<mn>2</mn></mrow></msub 
><mo 
class="MathClass-rel">&#x2223;</mo><mo 
class="MathClass-rel">&#x2223;</mo><msub><mrow 
><mover 
accent="true"><mrow 
><mi 
>R</mi></mrow><mo 
class="MathClass-op">&#x02D8;</mo></mover></mrow><mrow 
><mi 
>n</mi><mo 
class="MathClass-punc">,</mo><mi 
>B</mi></mrow></msub 
><mrow><mo 
class="MathClass-open">(</mo><mrow><mi 
>t</mi></mrow><mo 
class="MathClass-close">)</mo></mrow><msup><mrow 
><mo 
class="MathClass-rel">&#x2223;</mo></mrow><mrow 
><mn>2</mn></mrow></msup 
><mo 
class="MathClass-punc">.</mo>
</mrow></math></center>
<!--l. 1393--><p class="nopar">
It can be readily shown that <!--l. 1395--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mi 
>E</mi><mo 
class="MathClass-rel">&#x2223;</mo><msub><mrow 
><mover 
accent="true"><mrow 
><mi 
>R</mi></mrow><mo 
class="MathClass-op">&#x02D8;</mo></mover></mrow><mrow 
><mi 
>n</mi><mo 
class="MathClass-punc">,</mo><mi 
>A</mi></mrow></msub 
><mrow><mo 
class="MathClass-open">(</mo><mrow><mi 
>t</mi></mrow><mo 
class="MathClass-close">)</mo></mrow><msup><mrow 
><mo 
class="MathClass-rel">&#x2223;</mo></mrow><mrow 
><mn>2</mn></mrow></msup 
> <mo 
class="MathClass-rel">=</mo><msub><mrow 
> <mo 
class="MathClass-op">&#x220F;</mo></mrow><mrow 
>
<mi 
>k</mi><mo 
class="MathClass-rel">&#x2208;</mo><mi 
>A</mi></mrow></msub 
><mrow><mo 
class="MathClass-open">(</mo><mrow><mn>1</mn> <mo 
class="MathClass-bin">&#x2212;</mo> <msup><mrow 
><mi 
>&#x03C6;</mi></mrow><mrow 
><mn>2</mn></mrow></msup 
><mrow><mo 
class="MathClass-open">(</mo><mrow><msup><mrow 
><mi 
>t</mi></mrow><mrow 
><mrow><mo 
class="MathClass-open">(</mo><mrow><mi 
>k</mi></mrow><mo 
class="MathClass-close">)</mo></mrow></mrow></msup 
></mrow><mo 
class="MathClass-close">)</mo></mrow></mrow><mo 
class="MathClass-close">)</mo></mrow></math>,
which is independent of <!--l. 1396--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mi 
>n</mi></math> and
integrable with respect to <!--l. 1397--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><msub><mrow 
><mi 
>&#x03D5;</mi></mrow><mrow 
><mi 
>b</mi></mrow></msub 
><mrow><mo 
class="MathClass-open">(</mo><mrow><mi 
>t</mi></mrow><mo 
class="MathClass-close">)</mo></mrow><mi 
>d</mi><mi 
>t</mi></math>. Hence,
condition (<a 
href="#x1-23011r13">2.13<!--tex4ht:ref: condkeller --></a>) is satisfied with <!--l. 1398--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mi 
>&#x03B1;</mi> <mo 
class="MathClass-rel">=</mo> <mn>1</mn></math>.
The convergence in (<a 
href="#x1-35002r30">6.30<!--tex4ht:ref: cond1th1.4 --></a>) thus holds.
<br class="newline" />
</p><!--l. 1401--><p class="indent">   To prove (<a 
href="#x1-35003r31">6.31<!--tex4ht:ref: cond2th1.4 --></a>), proceed as follows. From (<a 
href="#x1-33001r6.4">6.4<!--tex4ht:ref: Unt --></a>), (<a 
href="#x1-33002r7">6.7<!--tex4ht:ref: secproc --></a>), (<a 
href="#x1-33012r6.17">6.17<!--tex4ht:ref: expunt --></a>) and the inequality
<!--l. 1403--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><msup><mrow 
><mrow><mo 
class="MathClass-open">(</mo><mrow><msubsup><mrow 
><mo 
class="MathClass-op">&#x2211;</mo>
  </mrow><mrow 
><mi 
>j</mi><mo 
class="MathClass-rel">=</mo><mn>1</mn></mrow><mrow 
><mi 
>s</mi></mrow></msubsup 
><msub><mrow 
><mi 
>a</mi></mrow><mrow 
>
<mi 
>j</mi></mrow></msub 
></mrow><mo 
class="MathClass-close">)</mo></mrow></mrow><mrow 
><mn>2</mn></mrow></msup 
> <mo 
class="MathClass-rel">&#x2264;</mo> <mi 
>s</mi><msubsup><mrow 
><mo 
class="MathClass-op">&#x2211;</mo></mrow><mrow 
>
<mi 
>j</mi><mo 
class="MathClass-rel">=</mo><mn>1</mn></mrow><mrow 
><mi 
>s</mi></mrow></msubsup 
><msubsup><mrow 
><mi 
>a</mi></mrow><mrow 
>
<mi 
>j</mi></mrow><mrow 
><mn>2</mn></mrow></msubsup 
></math>, it
follows

</p><!--l. 1404--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="display">
<mtable 
class="eqnarray" columnalign="right center left" >
<mtr><mtd 
class="eqnarray-1"> </mtd><mtd 
class="eqnarray-2">   </mtd><mtd 
class="eqnarray-3">   <mo 
class="MathClass-rel">&#x2223;</mo><msub><mrow 
><mover 
accent="true"><mrow 
><mi 
>R</mi></mrow><mo 
class="MathClass-op">&#x02DC;</mo></mover></mrow><mrow 
><mi 
>n</mi><mo 
class="MathClass-punc">,</mo><mi 
>A</mi></mrow></msub 
><mrow><mo 
class="MathClass-open">(</mo><mrow><mi 
>t</mi></mrow><mo 
class="MathClass-close">)</mo></mrow> <mo 
class="MathClass-bin">&#x2212;</mo><msub><mrow 
><mover 
accent="true"><mrow 
><mi 
>R</mi></mrow><mo 
class="MathClass-op">&#x02D8;</mo></mover></mrow><mrow 
><mi 
>n</mi><mo 
class="MathClass-punc">,</mo><mi 
>A</mi></mrow></msub 
><mrow><mo 
class="MathClass-open">(</mo><mrow><mi 
>t</mi></mrow><mo 
class="MathClass-close">)</mo></mrow><msup><mrow 
><mo 
class="MathClass-rel">&#x2223;</mo></mrow><mrow 
><mn>2</mn></mrow></msup 
> <mo 
class="MathClass-rel">&#x2264;</mo>                                           </mtd><mtd 
class="eqnarray-4"> <mtext class="eqnarray">(6.35)</mtext><mtext 
   id="x1-35008r6.35"  class="label" ></mtext><mtext 
class="endlabel"></mtext></mtd>
</mtr><mtr><mtd 
class="eqnarray-1"> </mtd><mtd 
class="eqnarray-2">   </mtd><mtd 
class="eqnarray-3">   <mo 
class="MathClass-rel">&#x2223;</mo><mi 
>A</mi><mo 
class="MathClass-rel">&#x2223;</mo><msub><mrow 
><mo 
class="MathClass-op">&#x2211;</mo>
   </mrow><mrow 
><mi 
>&#x03B1;</mi><mo 
class="MathClass-rel">&#x2208;</mo><mi 
>A</mi></mrow></msub 
><mfenced separators="" 
open="["  close="" ><mrow></mrow></mfenced><mfrac><mrow 
><mo 
class="MathClass-rel">&#x2225;</mo><mi 
>t</mi><msup><mrow 
><mo 
class="MathClass-rel">&#x2225;</mo></mrow><mrow 
><mn>2</mn></mrow></msup 
></mrow> 
   <mrow 
><mn>4</mn></mrow></mfrac><msup><mrow 
>   <mfenced separators="" 
open="&#x2225;"  close="&#x2225;" ><mrow>  <mfrac><mrow 
><mn>1</mn></mrow>
<mrow 
><msqrt><mrow><mi 
>n</mi></mrow></msqrt><mi 
>p</mi></mrow></mfrac><msubsup><mrow 
> <mo 
class="MathClass-op">&#x2211;</mo>
     </mrow><mrow 
><mi 
>j</mi><mo 
class="MathClass-rel">=</mo><mn>1</mn></mrow><mrow 
><mi 
>n</mi></mrow></msubsup 
><msubsup><mrow 
> <mo 
class="MathClass-op">&#x2211;</mo>
  </mrow><mrow 
><mi 
>k</mi><mo 
class="MathClass-rel">=</mo><mn>1</mn></mrow><mrow 
><mi 
>p</mi></mrow></msubsup 
><mrow><mo 
class="MathClass-open">(</mo><mrow><msubsup><mrow 
><mi 
>&#x03B5;</mi></mrow><mrow 
>
<mi 
>j</mi></mrow><mrow 
><mrow><mo 
class="MathClass-open">(</mo><mrow><mi 
>k</mi></mrow><mo 
class="MathClass-close">)</mo></mrow></mrow></msubsup 
><msubsup><mrow 
><mi 
>&#x03B5;</mi></mrow><mrow 
>
<mi 
>j</mi></mrow><mrow 
><mrow><mo 
class="MathClass-open">(</mo><mrow><mi 
>k</mi></mrow><mo 
class="MathClass-close">)</mo></mrow><!--mstyle 
class="text"--><mtext >T</mtext><!--/mstyle--></mrow></msubsup 
> <mo 
class="MathClass-bin">&#x2212;</mo><mi 
>I</mi></mrow><mo 
class="MathClass-close">)</mo></mrow></mrow></mfenced> </mrow><mrow 
><mn>2</mn></mrow></msup 
><msup><mrow 
> <mfenced separators="" 
open="&#x2225;"  close="&#x2225;" ><mrow><msub><mrow 
><mi 
>A</mi></mrow><mrow 
>
<mi 
>n</mi><mo 
class="MathClass-punc">,</mo><mi 
>&#x03B1;</mi></mrow></msub 
><mrow><mo 
class="MathClass-open">(</mo><mrow><msup><mrow 
><mi 
>t</mi></mrow><mrow 
><mrow><mo 
class="MathClass-open">(</mo><mrow><mi 
>A</mi></mrow><mo 
class="MathClass-close">)</mo></mrow></mrow></msup 
></mrow><mo 
class="MathClass-close">)</mo></mrow></mrow></mfenced> </mrow><mrow 
><mn>2</mn></mrow></msup 
></mtd><mtd 
class="eqnarray-4"> <mtext class="eqnarray">(6.36)</mtext><mtext 
   id="x1-35008r6.36"  class="label" ></mtext><mtext 
class="endlabel"></mtext></mtd>
</mtr><mtr><mtd 
class="eqnarray-1"> </mtd><mtd 
class="eqnarray-2">   </mtd><mtd 
class="eqnarray-3">   <mo 
class="MathClass-bin">+</mo><mo 
class="MathClass-rel">&#x2225;</mo><mi 
>t</mi><msup><mrow 
><mo 
class="MathClass-rel">&#x2225;</mo></mrow><mrow 
><mn>2</mn></mrow></msup 
><msup><mrow 
> <mfenced separators="" 
open="&#x2225;"  close="&#x2225;" ><mrow><msub><mrow 
><mi 
>A</mi></mrow><mrow 
>
<mi 
>n</mi><mo 
class="MathClass-punc">,</mo><mi 
>&#x03B1;</mi></mrow></msub 
><mrow><mo 
class="MathClass-open">(</mo><mrow><msup><mrow 
><mi 
>t</mi></mrow><mrow 
><mrow><mo 
class="MathClass-open">(</mo><mrow><mi 
>A</mi></mrow><mo 
class="MathClass-close">)</mo></mrow></mrow></msup 
></mrow><mo 
class="MathClass-close">)</mo></mrow></mrow></mfenced> </mrow><mrow 
><mn>2</mn></mrow></msup 
><msub><mrow 
><mi 
>o</mi></mrow><mrow 
>
<mi 
>P</mi> </mrow></msub 
><mrow><mo 
class="MathClass-open">(</mo><mrow><mn>1</mn></mrow><mo 
class="MathClass-close">)</mo></mrow> <mo 
class="MathClass-bin">+</mo> <mo 
class="MathClass-rel">&#x2225;</mo><mi 
>t</mi><msup><mrow 
><mo 
class="MathClass-rel">&#x2225;</mo></mrow><mrow 
><mn>2</mn></mrow></msup 
><mi 
>n</mi><msup><mrow 
> <mfenced separators="" 
open="&#x2225;"  close="&#x2225;" ><mrow><mover accent="false" 
class="mml-overline"><mrow><mi 
>&#x03B5;</mi></mrow><mo 
accent="true">&#x00AF;</mo></mover></mrow></mfenced></mrow><mrow 
><mn>2</mn></mrow></msup 
><msup><mrow 
> <mfenced separators="" 
open="|"  close="|" ><mrow><msub><mrow 
><mi 
>B</mi></mrow><mrow 
>
<mi 
>n</mi><mo 
class="MathClass-punc">,</mo><mi 
>&#x03B1;</mi></mrow></msub 
><mrow><mo 
class="MathClass-open">(</mo><mrow><msup><mrow 
><mi 
>t</mi></mrow><mrow 
><mrow><mo 
class="MathClass-open">(</mo><mrow><mi 
>A</mi></mrow><mo 
class="MathClass-close">)</mo></mrow></mrow></msup 
></mrow><mo 
class="MathClass-close">)</mo></mrow></mrow></mfenced> </mrow><mrow 
><mn>2</mn></mrow></msup 
>                   </mtd><mtd 
class="eqnarray-4"> <mtext class="eqnarray">(6.37)</mtext><mtext 
   id="x1-35008r6.37"  class="label" ></mtext><mtext 
class="endlabel"></mtext></mtd>
</mtr><mtr><mtd 
class="eqnarray-1"> </mtd><mtd 
class="eqnarray-2">   </mtd><mtd 
class="eqnarray-3">   <mo 
class="MathClass-bin">+</mo><mo 
class="MathClass-rel">&#x2225;</mo><mi 
>t</mi><msup><mrow 
><mo 
class="MathClass-rel">&#x2225;</mo></mrow><mrow 
><mn>2</mn></mrow></msup 
><msup><mrow 
> <mfenced separators="" 
open="&#x2225;"  close="&#x2225;" ><mrow><msqrt><mrow><mi 
>n</mi></mrow></msqrt><mrow><mo 
class="MathClass-open">(</mo><mrow><msup><mrow 
><mi 
>S</mi></mrow><mrow 
><mo 
class="MathClass-bin">&#x2212;</mo><mfrac><mrow 
><mn>1</mn></mrow>
<mrow 
><mn>2</mn></mrow></mfrac> </mrow></msup 
> <mo 
class="MathClass-bin">&#x2212;</mo><mi 
>I</mi></mrow><mo 
class="MathClass-close">)</mo></mrow></mrow></mfenced> </mrow><mrow 
><mn>2</mn></mrow></msup 
><msup><mrow 
> <mfenced separators="" 
open="&#x2225;"  close="&#x2225;" ><mrow><mover accent="false" 
class="mml-overline"><mrow><mi 
>&#x03B5;</mi></mrow><mo 
accent="true">&#x00AF;</mo></mover></mrow></mfenced></mrow><mrow 
><mn>2</mn></mrow></msup 
><msup><mrow 
> <mfenced separators="" 
open="|"  close="|" ><mrow><msub><mrow 
><mi 
>B</mi></mrow><mrow 
><mi 
>n</mi><mo 
class="MathClass-punc">,</mo><mi 
>&#x03B1;</mi></mrow></msub 
><mrow><mo 
class="MathClass-open">(</mo><mrow><msup><mrow 
><mi 
>t</mi></mrow><mrow 
><mrow><mo 
class="MathClass-open">(</mo><mrow><mi 
>A</mi></mrow><mo 
class="MathClass-close">)</mo></mrow></mrow></msup 
></mrow><mo 
class="MathClass-close">)</mo></mrow></mrow></mfenced> </mrow><mrow 
><mn>2</mn></mrow></msup 
><mfenced separators="" 
open="]"  close="" ><mrow></mrow></mfenced><mo 
class="MathClass-punc">.</mo>                             </mtd><mtd 
class="eqnarray-4"> <mtext class="eqnarray">(6.38)</mtext><mtext 
   id="x1-35008r6.38"  class="label" ></mtext><mtext 
class="endlabel"></mtext></mtd>      </mtr></mtable>
</math>
<!--l. 1418--><p class="nopar">
Let
</p><!--l. 1420--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="display">
<mtable 
class="eqnarray" columnalign="right center left" >
<mtr><mtd 
class="eqnarray-1"> <msub><mrow 
><mi 
>W</mi></mrow><mrow 
><mi 
>n</mi></mrow></msub 
></mtd><mtd 
class="eqnarray-2">   <mo 
class="MathClass-rel">=</mo></mtd><mtd 
class="eqnarray-3"><msub><mrow 
>   <mo 
class="MathClass-op">&#x222B;</mo>
              </mrow><mrow 
><msup><mrow 
><mi mathvariant="double-struck">&#x211D;</mi></mrow><mrow 
><mi 
>p</mi></mrow></msup 
></mrow></msub 
><msup><mrow 
> <mfenced separators="" 
open="|"  close="|" ><mrow><msub><mrow 
><mi 
>B</mi></mrow><mrow 
><mi 
>n</mi><mo 
class="MathClass-punc">,</mo><mi 
>&#x03B1;</mi></mrow></msub 
><mrow><mo 
class="MathClass-open">(</mo><mrow><msup><mrow 
><mi 
>t</mi></mrow><mrow 
><mrow><mo 
class="MathClass-open">(</mo><mrow><mi 
>A</mi></mrow><mo 
class="MathClass-close">)</mo></mrow></mrow></msup 
></mrow><mo 
class="MathClass-close">)</mo></mrow></mrow></mfenced></mrow><mrow 
><mn>2</mn></mrow></msup 
><mo 
class="MathClass-rel">&#x2225;</mo><mi 
>t</mi><msup><mrow 
><mo 
class="MathClass-rel">&#x2225;</mo></mrow><mrow 
><mn>2</mn></mrow></msup 
><msub><mrow 
><mi 
>&#x03D5;</mi></mrow><mrow 
>
<mi 
>b</mi></mrow></msub 
><mrow><mo 
class="MathClass-open">(</mo><mrow><mi 
>t</mi></mrow><mo 
class="MathClass-close">)</mo></mrow><mi 
>d</mi><mi 
>t</mi><mo 
class="MathClass-punc">,</mo></mtd><mtd 
class="eqnarray-4"> <mtext class="eqnarray">(6.39)</mtext><mtext 
   id="x1-35009r6.39"  class="label" ></mtext><mtext 
class="endlabel"></mtext></mtd>
</mtr><mtr><mtd 
class="eqnarray-1"><msub><mrow 
> <mover 
accent="true"><mrow 
><mi 
>W</mi></mrow><mo 
class="MathClass-op">&#x02DC;</mo></mover></mrow><mrow 
><mi 
>n</mi></mrow></msub 
></mtd><mtd 
class="eqnarray-2">   <mo 
class="MathClass-rel">=</mo></mtd><mtd 
class="eqnarray-3"><msub><mrow 
>   <mo 
class="MathClass-op">&#x222B;</mo>
              </mrow><mrow 
><msup><mrow 
><mi mathvariant="double-struck">&#x211D;</mi></mrow><mrow 
><mi 
>p</mi></mrow></msup 
></mrow></msub 
><msup><mrow 
> <mfenced separators="" 
open="&#x2225;"  close="&#x2225;" ><mrow><msub><mrow 
><mi 
>A</mi></mrow><mrow 
><mi 
>n</mi><mo 
class="MathClass-punc">,</mo><mi 
>&#x03B1;</mi></mrow></msub 
><mrow><mo 
class="MathClass-open">(</mo><mrow><msup><mrow 
><mi 
>t</mi></mrow><mrow 
><mrow><mo 
class="MathClass-open">(</mo><mrow><mi 
>A</mi></mrow><mo 
class="MathClass-close">)</mo></mrow></mrow></msup 
></mrow><mo 
class="MathClass-close">)</mo></mrow></mrow></mfenced></mrow><mrow 
><mn>2</mn></mrow></msup 
><mo 
class="MathClass-rel">&#x2225;</mo><mi 
>t</mi><msup><mrow 
><mo 
class="MathClass-rel">&#x2225;</mo></mrow><mrow 
><mn>2</mn></mrow></msup 
><msub><mrow 
><mi 
>&#x03D5;</mi></mrow><mrow 
>
<mi 
>b</mi></mrow></msub 
><mrow><mo 
class="MathClass-open">(</mo><mrow><mi 
>t</mi></mrow><mo 
class="MathClass-close">)</mo></mrow><mi 
>d</mi><mi 
>t</mi><mo 
class="MathClass-punc">.</mo> </mtd><mtd 
class="eqnarray-4"> <mtext class="eqnarray">(6.40)</mtext><mtext 
   id="x1-35009r6.40"  class="label" ></mtext><mtext 
class="endlabel"></mtext></mtd>                                      </mtr></mtable>
</math>
<!--l. 1425--><p class="nopar">
By Tonelli&#x2019;s theorem, </p><table class="equation"><tr><td> <a 
  name="x1-35010r41"></a>

<!--l. 1427--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="display">
                     <mi 
>E</mi><msub><mrow 
><mi 
>W</mi></mrow><mrow 
><mi 
>n</mi></mrow></msub 
> <mo 
class="MathClass-rel">=</mo> <mo 
class="MathClass-op">&#x222B;</mo>
  <mi 
>E</mi><msup><mrow 
> <mfenced separators="" 
open="|"  close="|" ><mrow><msub><mrow 
><mi 
>B</mi></mrow><mrow 
><mi 
>n</mi><mo 
class="MathClass-punc">,</mo><mi 
>&#x03B1;</mi></mrow></msub 
><mrow><mo 
class="MathClass-open">(</mo><mrow><msup><mrow 
><mi 
>t</mi></mrow><mrow 
><mrow><mo 
class="MathClass-open">(</mo><mrow><mi 
>A</mi></mrow><mo 
class="MathClass-close">)</mo></mrow></mrow></msup 
></mrow><mo 
class="MathClass-close">)</mo></mrow></mrow></mfenced> </mrow><mrow 
><mn>2</mn></mrow></msup 
><mo 
class="MathClass-rel">&#x2225;</mo><mi 
>t</mi><msup><mrow 
><mo 
class="MathClass-rel">&#x2225;</mo></mrow><mrow 
><mn>2</mn></mrow></msup 
><msub><mrow 
><mi 
>&#x03D5;</mi></mrow><mrow 
>
<mi 
>b</mi></mrow></msub 
><mrow><mo 
class="MathClass-open">(</mo><mrow><mi 
>t</mi></mrow><mo 
class="MathClass-close">)</mo></mrow><mi 
>d</mi><mi 
>t</mi><mo 
class="MathClass-punc">,</mo>
</math>
<!--l. 1429--><p class="nopar"></p></td><td class="eq-no">(6.41)</td></tr></table>
where by direct calculation <table class="equation"><tr><td> <a 
  name="x1-35011r42"></a>
<!--l. 1431--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="display">
                   <mi 
>E</mi><msup><mrow 
> <mfenced separators="" 
open="|"  close="|" ><mrow><msub><mrow 
><mi 
>B</mi></mrow><mrow 
><mi 
>n</mi><mo 
class="MathClass-punc">,</mo><mi 
>&#x03B1;</mi></mrow></msub 
><mrow><mo 
class="MathClass-open">(</mo><mrow><msup><mrow 
><mi 
>t</mi></mrow><mrow 
><mrow><mo 
class="MathClass-open">(</mo><mrow><mi 
>A</mi></mrow><mo 
class="MathClass-close">)</mo></mrow></mrow></msup 
></mrow><mo 
class="MathClass-close">)</mo></mrow></mrow></mfenced> </mrow><mrow 
><mn>2</mn></mrow></msup 
> <mo 
class="MathClass-rel">=</mo> <mfrac><mrow 
><mn>1</mn></mrow> 
<mrow 
><mi 
>n</mi></mrow></mfrac><msub><mrow 
> <mo 
class="MathClass-op">&#x220F;</mo>
    </mrow><mrow 
><mi 
>k</mi><mo 
class="MathClass-rel">&#x2208;</mo><mi 
>A</mi><mo 
class="MathClass-punc">;</mo><mi 
>k</mi><mo 
class="MathClass-rel">&#x2260;</mo><mi 
>&#x03B1;</mi></mrow></msub 
><mrow><mo 
class="MathClass-open">(</mo><mrow><mn>1</mn> <mo 
class="MathClass-bin">&#x2212;</mo> <msup><mrow 
><mi 
>&#x03C6;</mi></mrow><mrow 
><mn>2</mn></mrow></msup 
><mrow><mo 
class="MathClass-open">(</mo><mrow><msup><mrow 
><mi 
>t</mi></mrow><mrow 
><mrow><mo 
class="MathClass-open">(</mo><mrow><mi 
>k</mi></mrow><mo 
class="MathClass-close">)</mo></mrow></mrow></msup 
></mrow><mo 
class="MathClass-close">)</mo></mrow></mrow><mo 
class="MathClass-close">)</mo></mrow><mo 
class="MathClass-punc">,</mo>
</math>
<!--l. 1435--><p class="nopar"></p></td><td class="eq-no">(6.42)</td></tr></table>
so that <!--l. 1436--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><msub><mrow 
><mi 
>W</mi></mrow><mrow 
><mi 
>n</mi></mrow></msub 
> <mo 
class="MathClass-rel">=</mo> <msub><mrow 
><mi 
>o</mi></mrow><mrow 
><mi 
>P</mi> </mrow></msub 
><mrow><mo 
class="MathClass-open">(</mo><mrow><mn>1</mn></mrow><mo 
class="MathClass-close">)</mo></mrow></math>.
Similarly, since <table class="equation"><tr><td> <a 
  name="x1-35012r43"></a>
<!--l. 1437--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="display">
                   <mi 
>E</mi><msup><mrow 
> <mfenced separators="" 
open="&#x2225;"  close="&#x2225;" ><mrow><msub><mrow 
><mi 
>A</mi></mrow><mrow 
><mi 
>n</mi><mo 
class="MathClass-punc">,</mo><mi 
>&#x03B1;</mi></mrow></msub 
><mrow><mo 
class="MathClass-open">(</mo><mrow><msup><mrow 
><mi 
>t</mi></mrow><mrow 
><mrow><mo 
class="MathClass-open">(</mo><mrow><mi 
>A</mi></mrow><mo 
class="MathClass-close">)</mo></mrow></mrow></msup 
></mrow><mo 
class="MathClass-close">)</mo></mrow></mrow></mfenced> </mrow><mrow 
><mn>2</mn></mrow></msup 
> <mo 
class="MathClass-rel">=</mo> <mfrac><mrow 
><mi 
>p</mi></mrow> 
<mrow 
><mi 
>n</mi></mrow></mfrac><msub><mrow 
> <mo 
class="MathClass-op">&#x220F;</mo>
    </mrow><mrow 
><mi 
>k</mi><mo 
class="MathClass-rel">&#x2208;</mo><mi 
>A</mi><mo 
class="MathClass-punc">;</mo><mi 
>k</mi><mo 
class="MathClass-rel">&#x2260;</mo><mi 
>&#x03B1;</mi></mrow></msub 
><mrow><mo 
class="MathClass-open">(</mo><mrow><mn>1</mn> <mo 
class="MathClass-bin">&#x2212;</mo> <msup><mrow 
><mi 
>&#x03C6;</mi></mrow><mrow 
><mn>2</mn></mrow></msup 
><mrow><mo 
class="MathClass-open">(</mo><mrow><msup><mrow 
><mi 
>t</mi></mrow><mrow 
><mrow><mo 
class="MathClass-open">(</mo><mrow><mi 
>k</mi></mrow><mo 
class="MathClass-close">)</mo></mrow></mrow></msup 
></mrow><mo 
class="MathClass-close">)</mo></mrow></mrow><mo 
class="MathClass-close">)</mo></mrow><mo 
class="MathClass-punc">,</mo>
</math>
<!--l. 1441--><p class="nopar"></p></td><td class="eq-no">(6.43)</td></tr></table>
it follows that <!--l. 1442--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><msub><mrow 
><mover 
accent="true"><mrow 
><mi 
>W</mi></mrow><mo 
class="MathClass-op">&#x02DC;</mo></mover></mrow><mrow 
><mi 
>n</mi></mrow></msub 
> <mo 
class="MathClass-rel">=</mo> <msub><mrow 
><mi 
>o</mi></mrow><mrow 
><mi 
>P</mi> </mrow></msub 
><mrow><mo 
class="MathClass-open">(</mo><mrow><mn>1</mn></mrow><mo 
class="MathClass-close">)</mo></mrow></math>.
Thus, <table class="equation"><tr><td> <a 
  name="x1-35013r44"></a>
<!--l. 1443--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="display">
                           <mo 
class="MathClass-rel">&#x2223;</mo><mrow><mo 
class="MathClass-open">[</mo><mrow><msub><mrow 
><mover 
accent="true"><mrow 
><mi 
>R</mi></mrow><mo 
class="MathClass-op">&#x02DC;</mo></mover></mrow><mrow 
><mi 
>n</mi><mo 
class="MathClass-punc">,</mo><mi 
>A</mi></mrow></msub 
> <mo 
class="MathClass-bin">&#x2212;</mo><msub><mrow 
><mover 
accent="true"><mrow 
><mi 
>R</mi></mrow><mo 
class="MathClass-op">&#x02D8;</mo></mover></mrow><mrow 
><mi 
>n</mi><mo 
class="MathClass-punc">,</mo><mi 
>A</mi></mrow></msub 
></mrow><mo 
class="MathClass-close">]</mo></mrow><msup><mrow 
><mo 
class="MathClass-rel">&#x2223;</mo></mrow><mrow 
><mn>2</mn></mrow></msup 
> <mo 
class="MathClass-rel">&#x2264;</mo> <msub><mrow 
><mi 
>o</mi></mrow><mrow 
>
<mi 
>P</mi> </mrow></msub 
><mrow><mo 
class="MathClass-open">(</mo><mrow><mn>1</mn></mrow><mo 
class="MathClass-close">)</mo></mrow><mo 
class="MathClass-punc">.</mo>
</math>

<!--l. 1445--><p class="nopar"></p></td><td class="eq-no">(6.44)</td></tr></table>
   <h4 class="subsectionHead"><span class="titlemark">6.5. </span> <a 
  name="x1-360006.5"></a>Proof of Theorem 3.1</h4> As in the proof of Theorem <a 
href="#x1-22008r1">2.1<!--tex4ht:ref: nonserialconvknown --></a>, it suffices to show that
<!--l. 1449--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><msub><mrow 
><mi 
>r</mi></mrow><mrow 
><mi 
>j</mi></mrow></msub 
><mrow><mo 
class="MathClass-open">(</mo><mrow><msub><mrow 
><mi 
>R</mi></mrow><mrow 
><mi 
>n</mi><mo 
class="MathClass-punc">,</mo><mi 
>A</mi></mrow></msub 
></mrow><mo 
class="MathClass-close">)</mo></mrow><mover><mrow 
><mo 
class="MathClass-rel">&#x2192;</mo></mrow><mrow 
><mi 
>f</mi><mi 
>d</mi></mrow></mover><msub><mrow 
><mi 
>r</mi></mrow><mrow 
><mi 
>j</mi></mrow></msub 
><mrow><mo 
class="MathClass-open">(</mo><mrow><msub><mrow 
><mi 
>R</mi></mrow><mrow 
><mi 
>A</mi></mrow></msub 
></mrow><mo 
class="MathClass-close">)</mo></mrow></math> and
<!--l. 1450--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mrow><mo 
class="MathClass-open">{</mo><mrow><msub><mrow 
><mi 
>r</mi></mrow><mrow 
><mi 
>j</mi></mrow></msub 
><mrow><mo 
class="MathClass-open">(</mo><mrow><msub><mrow 
><mi 
>R</mi></mrow><mrow 
><mi 
>n</mi><mo 
class="MathClass-punc">,</mo><mi 
>A</mi></mrow></msub 
></mrow><mo 
class="MathClass-close">)</mo></mrow></mrow><mo 
class="MathClass-close">}</mo></mrow></math> is a
tight family. We have
<!--l. 1451--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="display">
<mtable 
class="eqnarray" columnalign="right center left" >
<mtr><mtd 
class="eqnarray-1"> <msub><mrow 
><mi 
>R</mi></mrow><mrow 
><mi 
>n</mi><mo 
class="MathClass-punc">,</mo><mi 
>A</mi></mrow></msub 
><mrow><mo 
class="MathClass-open">(</mo><mrow><mi 
>t</mi></mrow><mo 
class="MathClass-close">)</mo></mrow></mtd><mtd 
class="eqnarray-2">   <mo 
class="MathClass-rel">=</mo></mtd><mtd 
class="eqnarray-3">    <mfrac><mrow 
><mn>1</mn></mrow>
<mrow 
><msqrt><mrow><mi 
>n</mi></mrow></msqrt></mrow></mfrac><msubsup><mrow 
> <mo 
class="MathClass-op">&#x2211;</mo>
                      </mrow><mrow 
><mi 
>l</mi><mo 
class="MathClass-rel">=</mo><mn>1</mn></mrow><mrow 
><mi 
>p</mi><msub><mrow 
><mi 
>c</mi></mrow><mrow 
><mi 
>n</mi></mrow></msub 
>
          </mrow></msubsup 
><msub><mrow 
> <mo 
class="MathClass-op">&#x220F;</mo>
  </mrow><mrow 
><mi 
>k</mi><mo 
class="MathClass-rel">&#x2208;</mo><mi 
>A</mi></mrow></msub 
> <mfenced separators="" 
open="["  close="]" ><mrow><mo 
>exp</mo><!--nolimits--> <mfenced separators="" 
open="("  close=")" ><mrow><mstyle mathvariant="normal"><mi 
>i</mi></mstyle><mrow><mo 
class="MathClass-open">&#x2329;</mo><mrow><msup><mrow 
><mi 
>t</mi></mrow><mrow 
><mrow><mo 
class="MathClass-open">(</mo><mrow><mi 
>k</mi></mrow><mo 
class="MathClass-close">)</mo></mrow></mrow></msup 
><mo 
class="MathClass-punc">,</mo><msubsup><mrow 
><mi 
>&#x03B5;</mi></mrow><mrow 
>
<mi 
>l</mi></mrow><mrow 
><mrow><mo 
class="MathClass-open">(</mo><mrow><mi 
>k</mi></mrow><mo 
class="MathClass-close">)</mo></mrow></mrow></msubsup 
></mrow><mo 
class="MathClass-close">&#x232A;</mo></mrow></mrow></mfenced><mo 
class="MathClass-bin">&#x2212;</mo> <mi 
>&#x03C6;</mi><mrow><mo 
class="MathClass-open">(</mo><mrow><msup><mrow 
><mi 
>t</mi></mrow><mrow 
><mrow><mo 
class="MathClass-open">(</mo><mrow><mi 
>k</mi></mrow><mo 
class="MathClass-close">)</mo></mrow></mrow></msup 
></mrow><mo 
class="MathClass-close">)</mo></mrow></mrow></mfenced>         </mtd><mtd 
class="eqnarray-4"> <mtext class="eqnarray">(6.45)</mtext><mtext 
   id="x1-36001r6.45"  class="label" ></mtext><mtext 
class="endlabel"></mtext></mtd>
</mtr><mtr><mtd 
class="eqnarray-1">        </mtd><mtd 
class="eqnarray-2">    </mtd><mtd 
class="eqnarray-3">   <mo 
class="MathClass-bin">+</mo>  <mfrac><mrow 
><mn>1</mn></mrow>
<mrow 
><msqrt><mrow><mi 
>n</mi></mrow></msqrt></mrow></mfrac><msubsup><mrow 
> <mo 
class="MathClass-op">&#x2211;</mo>
     </mrow><mrow 
><mi 
>l</mi><mo 
class="MathClass-rel">=</mo><mi 
>p</mi><msub><mrow 
><mi 
>c</mi></mrow><mrow 
><mi 
>n</mi></mrow></msub 
><mo 
class="MathClass-bin">+</mo><mn>1</mn></mrow><mrow 
><mi 
>n</mi><mo 
class="MathClass-bin">&#x2212;</mo><mi 
>p</mi><mo 
class="MathClass-bin">+</mo><mn>1</mn></mrow></msubsup 
><msub><mrow 
> <mo 
class="MathClass-op">&#x220F;</mo>
  </mrow><mrow 
><mi 
>k</mi><mo 
class="MathClass-rel">&#x2208;</mo><mi 
>A</mi></mrow></msub 
> <mfenced separators="" 
open="["  close="]" ><mrow><mo 
>exp</mo><!--nolimits--> <mfenced separators="" 
open="("  close=")" ><mrow><mstyle mathvariant="normal"><mi 
>i</mi></mstyle><mrow><mo 
class="MathClass-open">&#x2329;</mo><mrow><msup><mrow 
><mi 
>t</mi></mrow><mrow 
><mrow><mo 
class="MathClass-open">(</mo><mrow><mi 
>k</mi></mrow><mo 
class="MathClass-close">)</mo></mrow></mrow></msup 
><mo 
class="MathClass-punc">,</mo><msubsup><mrow 
><mi 
>&#x03B5;</mi></mrow><mrow 
>
<mi 
>l</mi></mrow><mrow 
><mrow><mo 
class="MathClass-open">(</mo><mrow><mi 
>k</mi></mrow><mo 
class="MathClass-close">)</mo></mrow></mrow></msubsup 
></mrow><mo 
class="MathClass-close">&#x232A;</mo></mrow></mrow></mfenced><mo 
class="MathClass-bin">&#x2212;</mo> <mi 
>&#x03C6;</mi><mrow><mo 
class="MathClass-open">(</mo><mrow><msup><mrow 
><mi 
>t</mi></mrow><mrow 
><mrow><mo 
class="MathClass-open">(</mo><mrow><mi 
>k</mi></mrow><mo 
class="MathClass-close">)</mo></mrow></mrow></msup 
></mrow><mo 
class="MathClass-close">)</mo></mrow></mrow></mfenced></mtd><mtd 
class="eqnarray-4"> <mtext class="eqnarray">(6.46)</mtext><mtext 
   id="x1-36001r6.46"  class="label" ></mtext><mtext 
class="endlabel"></mtext></mtd>
</mtr><mtr><mtd 
class="eqnarray-1">        </mtd><mtd 
class="eqnarray-2">   <mo 
class="MathClass-rel">&#x2261;</mo></mtd><mtd 
class="eqnarray-3"><msub><mrow 
>   <mover 
accent="true"><mrow 
><mi 
>R</mi></mrow><mo 
class="MathClass-op">&#x02DC;</mo></mover></mrow><mrow 
><mi 
>n</mi><mo 
class="MathClass-punc">,</mo><mi 
>A</mi></mrow></msub 
><mrow><mo 
class="MathClass-open">(</mo><mrow><mi 
>t</mi></mrow><mo 
class="MathClass-close">)</mo></mrow> <mo 
class="MathClass-bin">+</mo> <msub><mrow 
><mi 
>r</mi></mrow><mrow 
><mi 
>n</mi></mrow></msub 
><mrow><mo 
class="MathClass-open">(</mo><mrow><mi 
>t</mi></mrow><mo 
class="MathClass-close">)</mo></mrow><mo 
class="MathClass-punc">,</mo>                                     </mtd><mtd 
class="eqnarray-4"> <mtext class="eqnarray">(6.47)</mtext><mtext 
   id="x1-36001r6.47"  class="label" ></mtext><mtext 
class="endlabel"></mtext></mtd>          </mtr></mtable>
</math>
<!--l. 1459--><p class="nopar">
where <!--l. 1460--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><msub><mrow 
><mi 
>c</mi></mrow><mrow 
><mi 
>n</mi></mrow></msub 
> <mo 
class="MathClass-rel">=</mo> <mfenced separators="" 
open="["  close="]" ><mrow><mfrac><mrow 
><mi 
>n</mi><mo 
class="MathClass-bin">&#x2212;</mo><mi 
>p</mi><mo 
class="MathClass-bin">+</mo><mn>1</mn></mrow>
    <mrow 
><mi 
>p</mi></mrow></mfrac>    </mrow></mfenced></math> is the integer
part. The process <!--l. 1461--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><msub><mrow 
><mi 
>R</mi></mrow><mrow 
><mi 
>n</mi><mo 
class="MathClass-punc">,</mo><mi 
>A</mi></mrow></msub 
></math> is
asymptotically equivalent to <!--l. 1462--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><msub><mrow 
><mover 
accent="true"><mrow 
><mi 
>R</mi></mrow><mo 
class="MathClass-op">&#x02DC;</mo></mover></mrow><mrow 
><mi 
>n</mi><mo 
class="MathClass-punc">,</mo><mi 
>A</mi></mrow></msub 
></math>
since </p><table class="equation"><tr><td> <a 
  name="x1-36002r48"></a>
<!--l. 1463--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="display">
                 <msub><mrow 
><mi 
>&#x03C1;</mi></mrow><mrow 
><mi 
>j</mi></mrow></msub 
><mrow><mo 
class="MathClass-open">(</mo><mrow><msub><mrow 
><mi 
>R</mi></mrow><mrow 
><mi 
>n</mi><mo 
class="MathClass-punc">,</mo><mi 
>A</mi></mrow></msub 
><mo 
class="MathClass-punc">,</mo><msub><mrow 
><mover 
accent="true"><mrow 
><mi 
>R</mi></mrow><mo 
class="MathClass-op">&#x02DC;</mo></mover></mrow><mrow 
><mi 
>n</mi><mo 
class="MathClass-punc">,</mo><mi 
>A</mi></mrow></msub 
></mrow><mo 
class="MathClass-close">)</mo></mrow> <mo 
class="MathClass-rel">&#x2264;</mo> <mfrac><mrow 
><mn>1</mn></mrow> 
<mrow 
><msqrt><mrow><mi 
>n</mi></mrow></msqrt></mrow></mfrac><msubsup><mrow 
> <mo 
class="MathClass-op">&#x2211;</mo>
     </mrow><mrow 
><mi 
>l</mi><mo 
class="MathClass-rel">=</mo><mi 
>p</mi><msub><mrow 
><mi 
>c</mi></mrow><mrow 
><mi 
>n</mi></mrow></msub 
><mo 
class="MathClass-bin">+</mo><mn>1</mn></mrow><mrow 
><mi 
>n</mi><mo 
class="MathClass-bin">&#x2212;</mo><mi 
>p</mi><mo 
class="MathClass-bin">+</mo><mn>1</mn></mrow></msubsup 
><msup><mrow 
><mn>2</mn></mrow><mrow 
><mo 
class="MathClass-rel">&#x2223;</mo><mi 
>A</mi><mo 
class="MathClass-rel">&#x2223;</mo></mrow></msup 
><mover 
class="stackrel"><mrow 
><mo 
class="MathClass-rel">&#x2192;</mo></mrow><mrow 
><mo 
class="MathClass-op">P</mo></mrow></mover><mn>0</mn><mo 
class="MathClass-punc">.</mo>
</math>

<!--l. 1466--><p class="nopar"></p></td><td class="eq-no">(6.48)</td></tr></table>
Let <table class="equation"><tr><td> <a 
  name="x1-36003r49"></a>
<!--l. 1468--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="display">
              <msubsup><mrow 
><mi 
>Y</mi> </mrow><mrow 
><mi 
>l</mi></mrow><mrow 
><mi 
>A</mi></mrow></msubsup 
><mrow><mo 
class="MathClass-open">(</mo><mrow><mi 
>t</mi></mrow><mo 
class="MathClass-close">)</mo></mrow> <mo 
class="MathClass-rel">=</mo><msub><mrow 
> <mo 
class="MathClass-op">&#x220F;</mo>
  </mrow><mrow 
><mi 
>k</mi><mo 
class="MathClass-rel">&#x2208;</mo><mi 
>A</mi></mrow></msub 
> <mfenced separators="" 
open="["  close="]" ><mrow><mo 
>exp</mo><!--nolimits--> <mfenced separators="" 
open="("  close=")" ><mrow><mstyle mathvariant="normal"><mi 
>i</mi></mstyle><mrow><mo 
class="MathClass-open">&#x2329;</mo><mrow><msup><mrow 
><mi 
>t</mi></mrow><mrow 
><mrow><mo 
class="MathClass-open">(</mo><mrow><mi 
>k</mi></mrow><mo 
class="MathClass-close">)</mo></mrow></mrow></msup 
><mo 
class="MathClass-punc">,</mo><msubsup><mrow 
><mi 
>&#x03B5;</mi></mrow><mrow 
>
<mi 
>l</mi></mrow><mrow 
><mrow><mo 
class="MathClass-open">(</mo><mrow><mi 
>k</mi></mrow><mo 
class="MathClass-close">)</mo></mrow></mrow></msubsup 
></mrow><mo 
class="MathClass-close">&#x232A;</mo></mrow></mrow></mfenced><mo 
class="MathClass-bin">&#x2212;</mo> <mi 
>&#x03C6;</mi><mrow><mo 
class="MathClass-open">(</mo><mrow><msup><mrow 
><mi 
>t</mi></mrow><mrow 
><mrow><mo 
class="MathClass-open">(</mo><mrow><mi 
>k</mi></mrow><mo 
class="MathClass-close">)</mo></mrow></mrow></msup 
></mrow><mo 
class="MathClass-close">)</mo></mrow></mrow></mfenced> <mo 
class="MathClass-punc">,</mo> <mi 
>l</mi> <mo 
class="MathClass-rel">=</mo> <mn>1</mn><mo 
class="MathClass-punc">,</mo> <mn>2</mn><mo 
class="MathClass-punc">,</mo><mo 
class="MathClass-op">&#x2026;</mo><mo 
class="MathClass-punc">,</mo>
</math>
<!--l. 1472--><p class="nopar"></p></td><td class="eq-no">(6.49)</td></tr></table>
which is an <!--l. 1473--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mi 
>m</mi></math>-dependent
sequence. Thus, using a multivariate central limit theorem for
<!--l. 1474--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mi 
>m</mi></math>-dependent
complex random vectors obtained by applying the Cram&#x00E9;r-Wold device in connection with
a complex variant of Theorem 11 in Ferguson (1996)(<a 
  name="dx1-36004"></a><a 
href="#X1996Fergubilo">15</a>), the finite dimensional convergence
to Gaussian limit and the covariance function are obtained. It remains to show that
<!--l. 1479--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mrow><mo 
class="MathClass-open">{</mo><mrow><msub><mrow 
><mover 
accent="true"><mrow 
><mi 
>R</mi></mrow><mo 
class="MathClass-op">&#x02DC;</mo></mover></mrow><mrow 
><mi 
>n</mi><mo 
class="MathClass-punc">,</mo><mi 
>A</mi></mrow></msub 
></mrow><mo 
class="MathClass-close">}</mo></mrow></math> is a tight
sequence. Since <!--l. 1480--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mrow><mo 
class="MathClass-open">{</mo><mrow><mn>1</mn><mo 
class="MathClass-punc">,</mo> <mn>2</mn><mo 
class="MathClass-punc">,</mo><mo 
class="MathClass-op">&#x2026;</mo><mo 
class="MathClass-punc">,</mo><mi 
>p</mi><msub><mrow 
><mi 
>c</mi></mrow><mrow 
><mi 
>n</mi></mrow></msub 
></mrow><mo 
class="MathClass-close">}</mo></mrow> <mo 
class="MathClass-rel">=</mo> <msubsup><mrow 
><mo 
class="MathClass-bin">&#x222A;</mo></mrow><mrow 
><mi 
>h</mi><mo 
class="MathClass-rel">=</mo><mn>1</mn></mrow><mrow 
><mi 
>p</mi></mrow></msubsup 
><mrow><mo 
class="MathClass-open">{</mo><mrow><mi 
>p</mi><mi 
>l</mi> <mo 
class="MathClass-bin">+</mo> <mi 
>h</mi><mo 
class="MathClass-punc">;</mo> <mn>0</mn> <mo 
class="MathClass-rel">&#x2264;</mo> <mi 
>l</mi> <mo 
class="MathClass-rel">&#x003C;</mo> <msub><mrow 
><mi 
>c</mi></mrow><mrow 
>
<mi 
>n</mi></mrow></msub 
></mrow><mo 
class="MathClass-close">}</mo></mrow></math>,
we have <!--l. 1481--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><msub><mrow 
><mi 
>r</mi></mrow><mrow 
><mi 
>j</mi></mrow></msub 
><mrow><mo 
class="MathClass-open">(</mo><mrow><msub><mrow 
><mover 
accent="true"><mrow 
><mi 
>R</mi></mrow><mo 
class="MathClass-op">&#x02DC;</mo></mover></mrow><mrow 
><mi 
>n</mi><mo 
class="MathClass-punc">,</mo><mi 
>A</mi></mrow></msub 
></mrow><mo 
class="MathClass-close">)</mo></mrow><mrow><mo 
class="MathClass-open">(</mo><mrow><mi 
>t</mi></mrow><mo 
class="MathClass-close">)</mo></mrow> <mo 
class="MathClass-rel">=</mo><msubsup><mrow 
> <mo 
class="MathClass-op">&#x2211;</mo>
  </mrow><mrow 
><mi 
>h</mi><mo 
class="MathClass-rel">=</mo><mn>1</mn></mrow><mrow 
><mi 
>p</mi></mrow></msubsup 
><msub><mrow 
> <mo 
class="MathClass-op">&#x2211;</mo></mrow><mrow 
>
<mi 
>B</mi><mo 
class="MathClass-rel">&#x2282;</mo><mi 
>A</mi></mrow></msub 
><msup><mrow 
><mrow><mo 
class="MathClass-open">(</mo><mrow><mo 
class="MathClass-bin">&#x2212;</mo><mn>1</mn></mrow><mo 
class="MathClass-close">)</mo></mrow></mrow><mrow 
><mo 
class="MathClass-rel">&#x2223;</mo><mi 
>A</mi><mo 
class="MathClass-bin">&#x2216;</mo><mi 
>B</mi><mo 
class="MathClass-rel">&#x2223;</mo></mrow></msup 
><msub><mrow 
><mi 
>&#x03C6;</mi></mrow><mrow 
>
<mi 
>A</mi><mo 
class="MathClass-punc">,</mo><mi 
>B</mi></mrow></msub 
><mrow><mo 
class="MathClass-open">(</mo><mrow><mi 
>t</mi></mrow><mo 
class="MathClass-close">)</mo></mrow><msubsup><mrow 
><mi 
>Y</mi> </mrow><mrow 
><mi 
>n</mi><mo 
class="MathClass-punc">,</mo><mi 
>h</mi><mo 
class="MathClass-punc">,</mo><mi 
>B</mi></mrow><mrow 
><mi 
>j</mi></mrow></msubsup 
><mrow><mo 
class="MathClass-open">(</mo><mrow><mi 
>t</mi></mrow><mo 
class="MathClass-close">)</mo></mrow></math>,
where <!--l. 1483--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><msub><mrow 
><mi 
>&#x03C6;</mi></mrow><mrow 
><mi 
>A</mi><mo 
class="MathClass-punc">,</mo><mi 
>B</mi></mrow></msub 
><mrow><mo 
class="MathClass-open">(</mo><mrow><mi 
>t</mi></mrow><mo 
class="MathClass-close">)</mo></mrow> <mo 
class="MathClass-rel">=</mo><msub><mrow 
> <mo 
class="MathClass-op">&#x220F;</mo>
  </mrow><mrow 
><mi 
>l</mi><mo 
class="MathClass-rel">&#x2208;</mo><mi 
>A</mi><mo 
class="MathClass-bin">&#x2216;</mo><mi 
>B</mi></mrow></msub 
><mi 
>&#x03C6;</mi><mrow><mo 
class="MathClass-open">(</mo><mrow><msup><mrow 
><mi 
>t</mi></mrow><mrow 
><mrow><mo 
class="MathClass-open">(</mo><mrow><mi 
>l</mi></mrow><mo 
class="MathClass-close">)</mo></mrow></mrow></msup 
></mrow><mo 
class="MathClass-close">)</mo></mrow></math>
and <table class="equation"><tr><td> <a 
  name="x1-36005r50"></a>
<!--l. 1485--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="display">
     <msubsup><mrow 
><mi 
>Y</mi> </mrow><mrow 
><mi 
>n</mi><mo 
class="MathClass-punc">,</mo><mi 
>h</mi><mo 
class="MathClass-punc">,</mo><mi 
>B</mi></mrow><mrow 
><mi 
>j</mi></mrow></msubsup 
><mrow><mo 
class="MathClass-open">(</mo><mrow><mi 
>t</mi></mrow><mo 
class="MathClass-close">)</mo></mrow> <mo 
class="MathClass-rel">=</mo>   <mfrac><mrow 
><mn>1</mn></mrow> 
<mrow 
><msqrt><mrow><mi 
>n</mi></mrow></msqrt></mrow></mfrac><msubsup><mrow 
> <mo 
class="MathClass-op">&#x2211;</mo>
     </mrow><mrow 
><mi 
>l</mi><mo 
class="MathClass-rel">=</mo><mn>0</mn></mrow><mrow 
><msub><mrow 
><mi 
>c</mi></mrow><mrow 
><mi 
>n</mi></mrow></msub 
><mo 
class="MathClass-bin">&#x2212;</mo><mn>1</mn></mrow></msubsup 
> <mfenced separators="" 
open="["  close="]" ><mrow><msub><mrow 
><mo 
class="MathClass-op">&#x220F;</mo>
  </mrow><mrow 
><mi 
>j</mi><mo 
class="MathClass-rel">&#x2208;</mo><mi 
>B</mi></mrow></msub 
><mo 
> exp</mo><!--nolimits--> <mfenced separators="" 
open="("  close=")" ><mrow><mstyle mathvariant="normal"><mi 
>i</mi></mstyle><mrow><mo 
class="MathClass-open">&#x2329;</mo><mrow><msup><mrow 
><mi 
>t</mi></mrow><mrow 
><mrow><mo 
class="MathClass-open">(</mo><mrow><mi 
>j</mi></mrow><mo 
class="MathClass-close">)</mo></mrow></mrow></msup 
><mo 
class="MathClass-punc">,</mo><msubsup><mrow 
><mi 
>&#x03B5;</mi></mrow><mrow 
>
<mi 
>p</mi><mi 
>l</mi><mo 
class="MathClass-bin">+</mo><mi 
>h</mi></mrow><mrow 
><mrow><mo 
class="MathClass-open">(</mo><mrow><mi 
>j</mi></mrow><mo 
class="MathClass-close">)</mo></mrow></mrow></msubsup 
></mrow><mo 
class="MathClass-close">&#x232A;</mo></mrow></mrow></mfenced><mo 
class="MathClass-bin">&#x2212;</mo><msub><mrow 
><mo 
class="MathClass-op">&#x220F;</mo>
  </mrow><mrow 
><mi 
>j</mi><mo 
class="MathClass-rel">&#x2208;</mo><mi 
>B</mi></mrow></msub 
><mi 
>&#x03C6;</mi><mrow><mo 
class="MathClass-open">(</mo><mrow><msup><mrow 
><mi 
>t</mi></mrow><mrow 
><mrow><mo 
class="MathClass-open">(</mo><mrow><mi 
>j</mi></mrow><mo 
class="MathClass-close">)</mo></mrow></mrow></msup 
></mrow><mo 
class="MathClass-close">)</mo></mrow></mrow></mfenced> <mo 
class="MathClass-punc">.</mo>
</math>
<!--l. 1490--><p class="nopar"></p></td><td class="eq-no">(6.50)</td></tr></table>
To show that <!--l. 1491--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mrow><mo 
class="MathClass-open">{</mo><mrow><msubsup><mrow 
><mi 
>Y</mi> </mrow><mrow 
><mi 
>n</mi><mo 
class="MathClass-punc">,</mo><mi 
>h</mi><mo 
class="MathClass-punc">,</mo><mi 
>B</mi></mrow><mrow 
><mi 
>j</mi></mrow></msubsup 
></mrow><mo 
class="MathClass-close">}</mo></mrow></math>
is tight, proceed as in proof of Theorem <a 
href="#x1-22008r1">2.1<!--tex4ht:ref: nonserialconvknown --></a>. Since there is only a finite number of
<!--l. 1493--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mi 
>h</mi></math>&#x2019;s and
<!--l. 1493--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mi 
>B</mi></math>&#x2019;s,
tightness follows and the theorem is proved.

   <h4 class="subsectionHead"><span class="titlemark">6.6. </span> <a 
  name="x1-370006.6"></a>Proof of Theorem 3.2</h4>
<!--l. 1498--><p class="noindent">Let </p><table class="equation"><tr><td> <a 
  name="x1-37001r51"></a>
<!--l. 1499--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="display"><msub><mrow 
>
     <mover 
accent="true"><mrow 
><mi 
>R</mi></mrow><mo 
class="MathClass-op">&#x02DC;</mo></mover></mrow><mrow 
><mi 
>n</mi><mo 
class="MathClass-punc">,</mo><mi 
>A</mi></mrow></msub 
><mrow><mo 
class="MathClass-open">(</mo><mrow><mi 
>t</mi></mrow><mo 
class="MathClass-close">)</mo></mrow> <mo 
class="MathClass-rel">=</mo>   <mfrac><mrow 
><mn>1</mn></mrow> 
<mrow 
><msqrt><mrow><mi 
>n</mi></mrow></msqrt></mrow></mfrac><msubsup><mrow 
> <mo 
class="MathClass-op">&#x2211;</mo>
     </mrow><mrow 
><mi 
>j</mi><mo 
class="MathClass-rel">=</mo><mn>1</mn></mrow><mrow 
><mi 
>n</mi><mo 
class="MathClass-bin">&#x2212;</mo><mi 
>p</mi><mo 
class="MathClass-bin">+</mo><mn>1</mn></mrow></msubsup 
><msub><mrow 
> <mo 
class="MathClass-op">&#x220F;</mo>
  </mrow><mrow 
><mi 
>k</mi><mo 
class="MathClass-rel">&#x2208;</mo><mi 
>A</mi></mrow></msub 
><mrow><mo 
class="MathClass-open">[</mo><mrow><mo 
>exp</mo><!--nolimits--><mrow><mo 
class="MathClass-open">(</mo><mrow><mstyle mathvariant="normal"><mi 
>i</mi></mstyle><mrow><mo 
class="MathClass-open">&#x2329;</mo><mrow><msup><mrow 
><mi 
>t</mi></mrow><mrow 
><mrow><mo 
class="MathClass-open">(</mo><mrow><mi 
>k</mi></mrow><mo 
class="MathClass-close">)</mo></mrow></mrow></msup 
><mo 
class="MathClass-punc">,</mo><msubsup><mrow 
><mi 
>&#x03B5;</mi></mrow><mrow 
>
<mi 
>j</mi></mrow><mrow 
><mrow><mo 
class="MathClass-open">(</mo><mrow><mi 
>k</mi></mrow><mo 
class="MathClass-close">)</mo></mrow></mrow></msubsup 
></mrow><mo 
class="MathClass-close">&#x232A;</mo></mrow></mrow><mo 
class="MathClass-close">)</mo></mrow> <mo 
class="MathClass-bin">&#x2212;</mo> <mi 
>&#x03C6;</mi><mrow><mo 
class="MathClass-open">(</mo><mrow><msup><mrow 
><mi 
>t</mi></mrow><mrow 
><mrow><mo 
class="MathClass-open">(</mo><mrow><mi 
>k</mi></mrow><mo 
class="MathClass-close">)</mo></mrow></mrow></msup 
></mrow><mo 
class="MathClass-close">)</mo></mrow></mrow><mo 
class="MathClass-close">]</mo></mrow> <mo 
class="MathClass-bin">+</mo> <mstyle mathvariant="normal"><mi 
>i</mi></mstyle><msub><mrow 
><mi 
>U</mi></mrow><mrow 
>
<mi 
>n</mi></mrow></msub 
><mrow><mo 
class="MathClass-open">(</mo><mrow><mi 
>t</mi></mrow><mo 
class="MathClass-close">)</mo></mrow><mo 
class="MathClass-punc">,</mo>
</math>
<!--l. 1504--><p class="nopar"></p></td><td class="eq-no">(6.51)</td></tr></table>
where <!--l. 1505--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><msub><mrow 
><mi 
>U</mi></mrow><mrow 
><mi 
>n</mi></mrow></msub 
><mrow><mo 
class="MathClass-open">(</mo><mrow><mi 
>t</mi></mrow><mo 
class="MathClass-close">)</mo></mrow></math> is defined as
in (<a 
href="#x1-33001r6.4">6.4<!--tex4ht:ref: Unt --></a>) and where <!--l. 1506--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><msubsup><mrow 
><mi 
>&#x03B4;</mi></mrow><mrow 
><mi 
>j</mi></mrow><mrow 
><mrow><mo 
class="MathClass-open">(</mo><mrow><mi 
>k</mi></mrow><mo 
class="MathClass-close">)</mo></mrow></mrow></msubsup 
> <mo 
class="MathClass-rel">=</mo> <mrow><mo 
class="MathClass-open">(</mo><mrow><msup><mrow 
><mi 
>S</mi></mrow><mrow 
><mo 
class="MathClass-bin">&#x2212;</mo><mfrac><mrow 
><mn>1</mn></mrow>
<mrow 
><mn>2</mn></mrow></mfrac> </mrow></msup 
> <mo 
class="MathClass-bin">&#x2212;</mo><mi 
>I</mi></mrow><mo 
class="MathClass-close">)</mo></mrow><msubsup><mrow 
><mi 
>&#x03B5;</mi></mrow><mrow 
><mi 
>j</mi></mrow><mrow 
><mrow><mo 
class="MathClass-open">(</mo><mrow><mi 
>k</mi></mrow><mo 
class="MathClass-close">)</mo></mrow></mrow></msubsup 
> <mo 
class="MathClass-bin">&#x2212;</mo><msup><mrow 
><mi 
>S</mi></mrow><mrow 
><mo 
class="MathClass-bin">&#x2212;</mo><mfrac><mrow 
><mn>1</mn></mrow>
<mrow 
><mn>2</mn></mrow></mfrac> </mrow></msup 
><mover 
accent="true"><mrow 
><mi 
>u</mi></mrow><mo 
class="MathClass-op">&#x0304;</mo></mover></math>.
Let also <table class="equation"><tr><td> <a 
  name="x1-37002r52"></a>
<!--l. 1508--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="display"><msub><mrow 
>
         <mover 
accent="true"><mrow 
><mi 
>R</mi></mrow><mo 
class="MathClass-op">&#x02D8;</mo></mover></mrow><mrow 
><mi 
>n</mi><mo 
class="MathClass-punc">,</mo><mi 
>A</mi></mrow></msub 
><mrow><mo 
class="MathClass-open">(</mo><mrow><mi 
>t</mi></mrow><mo 
class="MathClass-close">)</mo></mrow> <mo 
class="MathClass-rel">=</mo>   <mfrac><mrow 
><mn>1</mn></mrow> 
<mrow 
><msqrt><mrow><mi 
>n</mi></mrow></msqrt></mrow></mfrac><msubsup><mrow 
> <mo 
class="MathClass-op">&#x2211;</mo>
     </mrow><mrow 
><mi 
>j</mi><mo 
class="MathClass-rel">=</mo><mn>1</mn></mrow><mrow 
><mi 
>n</mi><mo 
class="MathClass-bin">&#x2212;</mo><mi 
>p</mi><mo 
class="MathClass-bin">+</mo><mn>1</mn></mrow></msubsup 
><msub><mrow 
> <mo 
class="MathClass-op">&#x220F;</mo>
  </mrow><mrow 
><mi 
>k</mi><mo 
class="MathClass-rel">&#x2208;</mo><mi 
>A</mi></mrow></msub 
> <mfenced separators="" 
open="["  close="]" ><mrow><mo 
>exp</mo><!--nolimits--><mrow><mo 
class="MathClass-open">(</mo><mrow><mstyle mathvariant="normal"><mi 
>i</mi></mstyle><mrow><mo 
class="MathClass-open">&#x2329;</mo><mrow><msup><mrow 
><mi 
>t</mi></mrow><mrow 
><mrow><mo 
class="MathClass-open">(</mo><mrow><mi 
>k</mi></mrow><mo 
class="MathClass-close">)</mo></mrow></mrow></msup 
><mo 
class="MathClass-punc">,</mo><msubsup><mrow 
><mi 
>&#x03B5;</mi></mrow><mrow 
>
<mi 
>j</mi></mrow><mrow 
><mrow><mo 
class="MathClass-open">(</mo><mrow><mi 
>k</mi></mrow><mo 
class="MathClass-close">)</mo></mrow></mrow></msubsup 
></mrow><mo 
class="MathClass-close">&#x232A;</mo></mrow></mrow><mo 
class="MathClass-close">)</mo></mrow> <mo 
class="MathClass-bin">&#x2212;</mo> <mi 
>&#x03C6;</mi><mrow><mo 
class="MathClass-open">(</mo><mrow><msup><mrow 
><mi 
>t</mi></mrow><mrow 
><mrow><mo 
class="MathClass-open">(</mo><mrow><mi 
>k</mi></mrow><mo 
class="MathClass-close">)</mo></mrow></mrow></msup 
></mrow><mo 
class="MathClass-close">)</mo></mrow></mrow></mfenced> <mo 
class="MathClass-punc">.</mo>
</math>
<!--l. 1513--><p class="nopar"></p></td><td class="eq-no">(6.52)</td></tr></table>
Proceed as in the proof of Theorem <a 
href="#x1-23003r2">2.2<!--tex4ht:ref: nonserialconvunknown --></a> to establish (<a 
href="#x1-33003r8">6.8<!--tex4ht:ref: step1proofth1.3 --></a>), (<a 
href="#x1-33004r9">6.9<!--tex4ht:ref: step2proofth1.3 --></a>) and (<a 
href="#x1-33005r10">6.10<!--tex4ht:ref: step3proofth1.3 --></a>). The proofs
of (<a 
href="#x1-33003r8">6.8<!--tex4ht:ref: step1proofth1.3 --></a>) and (<a 
href="#x1-33004r9">6.9<!--tex4ht:ref: step2proofth1.3 --></a>) are established along the lines in the proof of Theorem <a 
href="#x1-23003r2">2.2<!--tex4ht:ref: nonserialconvunknown --></a>. Step
(<a 
href="#x1-33005r10">6.10<!--tex4ht:ref: step3proofth1.3 --></a>) was proven in Theorem <a 
href="#x1-27001r1">3.1<!--tex4ht:ref: serialconvknown --></a>.
   <h4 class="subsectionHead"><span class="titlemark">6.7. </span> <a 
  name="x1-380006.7"></a>Proof of Theorem 3.3</h4> Follow the lines in the proof of Theorem <a 
href="#x1-23012r4">2.4<!--tex4ht:ref: jointdistcramer --></a> but use
Theorem <a 
href="#x1-27001r1">3.1<!--tex4ht:ref: serialconvknown --></a> instead of Theorem <a 
href="#x1-22008r1">2.1<!--tex4ht:ref: nonserialconvknown --></a>, and replace (<a 
href="#x1-35008r6.35">6.35<!--tex4ht:ref: afterjensen1 --></a>) with

<!--l. 1526--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="display">
<mtable 
class="eqnarray" columnalign="right center left" >
<mtr><mtd 
class="eqnarray-1"> </mtd><mtd 
class="eqnarray-2">   </mtd><mtd 
class="eqnarray-3">   <mo 
class="MathClass-rel">&#x2223;</mo><msub><mrow 
><mover 
accent="true"><mrow 
><mi 
>R</mi></mrow><mo 
class="MathClass-op">&#x02DC;</mo></mover></mrow><mrow 
><mi 
>n</mi><mo 
class="MathClass-punc">,</mo><mi 
>A</mi></mrow></msub 
><mrow><mo 
class="MathClass-open">(</mo><mrow><mi 
>t</mi></mrow><mo 
class="MathClass-close">)</mo></mrow> <mo 
class="MathClass-bin">&#x2212;</mo><msub><mrow 
><mover 
accent="true"><mrow 
><mi 
>R</mi></mrow><mo 
class="MathClass-op">&#x02D8;</mo></mover></mrow><mrow 
><mi 
>n</mi><mo 
class="MathClass-punc">,</mo><mi 
>A</mi></mrow></msub 
><mrow><mo 
class="MathClass-open">(</mo><mrow><mi 
>t</mi></mrow><mo 
class="MathClass-close">)</mo></mrow><msup><mrow 
><mo 
class="MathClass-rel">&#x2223;</mo></mrow><mrow 
><mn>2</mn></mrow></msup 
> <mo 
class="MathClass-rel">&#x2264;</mo>                              </mtd><mtd 
class="eqnarray-4"> <mtext class="eqnarray">(6.53)</mtext><mtext 
   id="x1-38001r6.53"  class="label" ></mtext><mtext 
class="endlabel"></mtext></mtd>
</mtr><mtr><mtd 
class="eqnarray-1"> </mtd><mtd 
class="eqnarray-2">   </mtd><mtd 
class="eqnarray-3">   <mo 
class="MathClass-rel">&#x2223;</mo><mi 
>A</mi><mo 
class="MathClass-rel">&#x2223;</mo><msub><mrow 
><mo 
class="MathClass-op">&#x2211;</mo>
   </mrow><mrow 
><mi 
>&#x03B1;</mi><mo 
class="MathClass-rel">&#x2208;</mo><mi 
>A</mi></mrow></msub 
><mfenced separators="" 
open="["  close="" ><mrow></mrow></mfenced><mfrac><mrow 
><mo 
class="MathClass-rel">&#x2225;</mo><mi 
>t</mi><msup><mrow 
><mo 
class="MathClass-rel">&#x2225;</mo></mrow><mrow 
><mn>2</mn></mrow></msup 
></mrow> 
   <mrow 
><mn>4</mn></mrow></mfrac><msup><mrow 
>   <mfenced separators="" 
open="&#x2225;"  close="&#x2225;" ><mrow>  <mfrac><mrow 
><mn>1</mn></mrow>
<mrow 
><msqrt><mrow><mi 
>n</mi></mrow></msqrt></mrow></mfrac><msubsup><mrow 
> <mo 
class="MathClass-op">&#x2211;</mo>
     </mrow><mrow 
><mi 
>j</mi><mo 
class="MathClass-rel">=</mo><mn>1</mn></mrow><mrow 
><mi 
>n</mi></mrow></msubsup 
><mrow><mo 
class="MathClass-open">(</mo><mrow><msub><mrow 
><mi 
>u</mi></mrow><mrow 
>
<mi 
>j</mi></mrow></msub 
><msub><mrow 
><mi 
>u</mi></mrow><mrow 
><mi 
>j</mi></mrow></msub 
><!--mstyle 
class="text"--><mtext >T</mtext><!--/mstyle--> <mo 
class="MathClass-bin">&#x2212;</mo><mi 
>I</mi></mrow><mo 
class="MathClass-close">)</mo></mrow></mrow></mfenced> </mrow><mrow 
><mn>2</mn></mrow></msup 
><msup><mrow 
> <mfenced separators="" 
open="&#x2225;"  close="&#x2225;" ><mrow><msub><mrow 
><mi 
>A</mi></mrow><mrow 
>
<mi 
>n</mi><mo 
class="MathClass-punc">,</mo><mi 
>&#x03B1;</mi></mrow></msub 
><mrow><mo 
class="MathClass-open">(</mo><mrow><msup><mrow 
><mi 
>t</mi></mrow><mrow 
><mrow><mo 
class="MathClass-open">(</mo><mrow><mi 
>A</mi></mrow><mo 
class="MathClass-close">)</mo></mrow></mrow></msup 
></mrow><mo 
class="MathClass-close">)</mo></mrow></mrow></mfenced> </mrow><mrow 
><mn>2</mn></mrow></msup 
></mtd><mtd 
class="eqnarray-4"> <mtext class="eqnarray">(6.54)</mtext><mtext 
   id="x1-38001r6.54"  class="label" ></mtext><mtext 
class="endlabel"></mtext></mtd>
</mtr><mtr><mtd 
class="eqnarray-1"> </mtd><mtd 
class="eqnarray-2">   </mtd><mtd 
class="eqnarray-3">   <mo 
class="MathClass-bin">+</mo><mo 
class="MathClass-rel">&#x2225;</mo><mi 
>t</mi><msup><mrow 
><mo 
class="MathClass-rel">&#x2225;</mo></mrow><mrow 
><mn>2</mn></mrow></msup 
><msup><mrow 
> <mfenced separators="" 
open="&#x2225;"  close="&#x2225;" ><mrow><msub><mrow 
><mi 
>A</mi></mrow><mrow 
>
<mi 
>n</mi><mo 
class="MathClass-punc">,</mo><mi 
>&#x03B1;</mi></mrow></msub 
><mrow><mo 
class="MathClass-open">(</mo><mrow><msup><mrow 
><mi 
>t</mi></mrow><mrow 
><mrow><mo 
class="MathClass-open">(</mo><mrow><mi 
>A</mi></mrow><mo 
class="MathClass-close">)</mo></mrow></mrow></msup 
></mrow><mo 
class="MathClass-close">)</mo></mrow></mrow></mfenced> </mrow><mrow 
><mn>2</mn></mrow></msup 
><msub><mrow 
><mi 
>o</mi></mrow><mrow 
>
<mi 
>P</mi> </mrow></msub 
><mrow><mo 
class="MathClass-open">(</mo><mrow><mn>1</mn></mrow><mo 
class="MathClass-close">)</mo></mrow> <mo 
class="MathClass-bin">+</mo> <mo 
class="MathClass-rel">&#x2225;</mo><mi 
>t</mi><msup><mrow 
><mo 
class="MathClass-rel">&#x2225;</mo></mrow><mrow 
><mn>2</mn></mrow></msup 
><mi 
>n</mi><msup><mrow 
> <mfenced separators="" 
open="&#x2225;"  close="&#x2225;" ><mrow><mover accent="false" 
class="mml-overline"><mrow><mi 
>u</mi></mrow><mo 
accent="true">&#x00AF;</mo></mover></mrow></mfenced></mrow><mrow 
><mn>2</mn></mrow></msup 
><msup><mrow 
> <mfenced separators="" 
open="|"  close="|" ><mrow><msub><mrow 
><mi 
>B</mi></mrow><mrow 
>
<mi 
>n</mi><mo 
class="MathClass-punc">,</mo><mi 
>&#x03B1;</mi></mrow></msub 
><mrow><mo 
class="MathClass-open">(</mo><mrow><msup><mrow 
><mi 
>t</mi></mrow><mrow 
><mrow><mo 
class="MathClass-open">(</mo><mrow><mi 
>A</mi></mrow><mo 
class="MathClass-close">)</mo></mrow></mrow></msup 
></mrow><mo 
class="MathClass-close">)</mo></mrow></mrow></mfenced> </mrow><mrow 
><mn>2</mn></mrow></msup 
>      </mtd><mtd 
class="eqnarray-4"> <mtext class="eqnarray">(6.55)</mtext><mtext 
   id="x1-38001r6.55"  class="label" ></mtext><mtext 
class="endlabel"></mtext></mtd>
</mtr><mtr><mtd 
class="eqnarray-1"> </mtd><mtd 
class="eqnarray-2">   </mtd><mtd 
class="eqnarray-3">   <mo 
class="MathClass-bin">+</mo><mo 
class="MathClass-rel">&#x2225;</mo><mi 
>t</mi><msup><mrow 
><mo 
class="MathClass-rel">&#x2225;</mo></mrow><mrow 
><mn>2</mn></mrow></msup 
><msup><mrow 
> <mfenced separators="" 
open="&#x2225;"  close="&#x2225;" ><mrow><msqrt><mrow><mi 
>n</mi></mrow></msqrt><mrow><mo 
class="MathClass-open">(</mo><mrow><msup><mrow 
><mi 
>S</mi></mrow><mrow 
><mo 
class="MathClass-bin">&#x2212;</mo><mfrac><mrow 
><mn>1</mn></mrow>
<mrow 
><mn>2</mn></mrow></mfrac> </mrow></msup 
> <mo 
class="MathClass-bin">&#x2212;</mo><mi 
>I</mi></mrow><mo 
class="MathClass-close">)</mo></mrow></mrow></mfenced> </mrow><mrow 
><mn>2</mn></mrow></msup 
><msup><mrow 
> <mfenced separators="" 
open="&#x2225;"  close="&#x2225;" ><mrow><mover accent="false" 
class="mml-overline"><mrow><mi 
>u</mi></mrow><mo 
accent="true">&#x00AF;</mo></mover></mrow></mfenced></mrow><mrow 
><mn>2</mn></mrow></msup 
><msup><mrow 
> <mfenced separators="" 
open="|"  close="|" ><mrow><msub><mrow 
><mi 
>B</mi></mrow><mrow 
><mi 
>n</mi><mo 
class="MathClass-punc">,</mo><mi 
>&#x03B1;</mi></mrow></msub 
><mrow><mo 
class="MathClass-open">(</mo><mrow><msup><mrow 
><mi 
>t</mi></mrow><mrow 
><mrow><mo 
class="MathClass-open">(</mo><mrow><mi 
>A</mi></mrow><mo 
class="MathClass-close">)</mo></mrow></mrow></msup 
></mrow><mo 
class="MathClass-close">)</mo></mrow></mrow></mfenced> </mrow><mrow 
><mn>2</mn></mrow></msup 
><mfenced separators="" 
open="]"  close="" ><mrow></mrow></mfenced><mo 
class="MathClass-punc">.</mo>               </mtd><mtd 
class="eqnarray-4"> <mtext class="eqnarray">(6.56)</mtext><mtext 
   id="x1-38001r6.56"  class="label" ></mtext><mtext 
class="endlabel"></mtext></mtd>                   </mtr></mtable>
</math>
<!--l. 1540--><p class="nopar">
Replace also <!--l. 1541--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mi 
>n</mi></math>
with <!--l. 1541--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mi 
>n</mi> <mo 
class="MathClass-bin">&#x2212;</mo> <mi 
>p</mi> <mo 
class="MathClass-bin">+</mo> <mn>1</mn></math>
in (<a 
href="#x1-35011r42">6.42<!--tex4ht:ref: EBn2 --></a>) and (<a 
href="#x1-35012r43">6.43<!--tex4ht:ref: EAn2 --></a>).
</p>
   <h3 class="sectionHead"><a 
  name="x1-390006.7"></a>Acknowledgements</h3>
<!--l. 1551--><p class="noindent">The first author would like to thank the National Sciences and Engineering Research
Council of Canada for financial support through grant 97303-99. This paper is part of
the second author&#x2019;s Ph.D. thesis.
</p>
   <h3 class="sectionHead"><a 
  name="x1-400006.7"></a>Bibliographie</h3>
<!--l. 1564--><p class="noindent">
<a 
  name="dx1-40001"></a>
              </p><div class="thebibliography"><p class="bibitem"><span class="biblabel">
           [1] <span class="bibsp">&#x00A0;&#x00A0;&#x00A0;</span></span> <a 
  name="X1988Barin339bilo"></a>Baringhaus, L., Henze, N., 1988. A consistent test for multivariate
              normality based on the empirical characteristic function. Metrika
              35(6), 339-348. <a 
  name="dx1-40002"></a>
              </p><p class="bibitem"><span class="biblabel">
           [2] <span class="bibsp">&#x00A0;&#x00A0;&#x00A0;</span></span> <a 
  name="X1968Billibilo"></a>Billingsley, P., 1968. Convergence of probability measures. John
              Wiley &#x0026; Sons Inc., New York. <a 
  name="dx1-40003"></a>
              </p><p class="bibitem"><span class="biblabel">
           [3] <span class="bibsp">&#x00A0;&#x00A0;&#x00A0;</span></span> <a 
  name="X1961Blum485bilo"></a>Blum, J. R., Kiefer, J., Rosenblatt, M., 1961. Distribution free
              tests of independence based on the sample distribution function.
              Ann. Math. Statist. 32, 485-498. <a 
  name="dx1-40004"></a>
              </p><p class="bibitem"><span class="biblabel">
           [4] <span class="bibsp">&#x00A0;&#x00A0;&#x00A0;</span></span>  <a 
  name="X2002Chen17bilo"></a>Chen,  G.,  Lockhart,  R.  A.,  Stephens,  M.  A.,  2002.  Box-Cox

              transformations in linear models&#x00A0;: Large sample theory and tests of
              normality. Canad. J. Statist. 30(2), 177-234. <a 
  name="dx1-40005"></a>
              </p><p class="bibitem"><span class="biblabel">
           [5] <span class="bibsp">&#x00A0;&#x00A0;&#x00A0;</span></span>   <a 
  name="X1985Conwabilo"></a>Conway,   J.   B.,   1985.   A   course   in   functional   analysis.
              Springer-Verlag, New York. <a 
  name="dx1-40006"></a>
              </p><p class="bibitem"><span class="biblabel">
           [6] <span class="bibsp">&#x00A0;&#x00A0;&#x00A0;</span></span>  <a 
  name="X1999Cools21bilo"></a>Cools,  R.,  1999.  Monomial  cubature  rules  since  &#x201C;Stroud&#x201D;&#x00A0;:  a
              compilation. II. J. Comput. Appl. Math. 112(1-2), 21-27, numerical
              evaluation of integrals. <a 
  name="dx1-40007"></a>
              </p><p class="bibitem"><span class="biblabel">
           [7] <span class="bibsp">&#x00A0;&#x00A0;&#x00A0;</span></span> <a 
  name="X1993Cools309bilo"></a>Cools, R., Rabinowitz, P., 1993. Monomial cubature rules since
              &#x201C;Stroud&#x201D;&#x00A0;: a compilation. J. Comput. Appl. Math. 48(3), 309-326. <a 
  name="dx1-40008"></a>
              </p><p class="bibitem"><span class="biblabel">
           [8] <span class="bibsp">&#x00A0;&#x00A0;&#x00A0;</span></span> <a 
  name="X1981Csorg130bilo"></a>Csorgo, S., 1981a. Limit behaviour of the empirical characteristic
              function. Ann. Probab. 9(1), 130-144. <a 
  name="dx1-40009"></a>
              </p><p class="bibitem"><span class="biblabel">
           [9] <span class="bibsp">&#x00A0;&#x00A0;&#x00A0;</span></span> <a 
  name="X1981Csorg203bilo"></a>Csorgo, S., 1981b. Multivariate empirical characteristic functions.
              Z. Wahrsch. Verw. Gebiete 55(2), 203-229. <a 
  name="dx1-40010"></a>
              </p><p class="bibitem"><span class="biblabel">
          [10] <span class="bibsp">&#x00A0;&#x00A0;&#x00A0;</span></span>  <a 
  name="X1985Csorg290bilo"></a>Csorgo,  S.,  1985.  Testing  for  independence  by  the  empirical
              characteristic function. J. Multivariate Anal. 16(3), 290-299. <a 
  name="dx1-40011"></a>
              </p><p class="bibitem"><span class="biblabel">
          [11] <span class="bibsp">&#x00A0;&#x00A0;&#x00A0;</span></span>  <a 
  name="X1973Davie415bilo"></a>Davies,  R.  B.,  1973.  Numerical  inversion  of  a  characteristic
              function. Biometrika 60, 415-417. <a 
  name="dx1-40012"></a>
              </p><p class="bibitem"><span class="biblabel">
          [12] <span class="bibsp">&#x00A0;&#x00A0;&#x00A0;</span></span>      <a 
  name="X1980Davie323bilo"></a>Davies,      R.      B.,      1980.      [Algorithm      AS      155]
              The      distribution      of      a      linear      combination      of
              <!--l. 1594--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><msup><mrow 
><mi 
>&#x03C7;</mi></mrow><mrow 
><mn>2</mn></mrow></msup 
></math>
              random variables (AS R53&#x00A0;: 84V33 p. 366-369). Appl. Statistics 29,
              323-333. <a 
  name="dx1-40013"></a>
              </p><p class="bibitem"><span class="biblabel">
          [13] <span class="bibsp">&#x00A0;&#x00A0;&#x00A0;</span></span>   <a 
  name="X1987Dewet398bilo"></a>de   Wet,   T.,   Randles,   R.   H.,   1987.   On   the   effect
              of      substituting      parameter      estimators      in      limiting
              <!--l. 1597--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><msup><mrow 
><mi 
>&#x03C7;</mi></mrow><mrow 
><mn>2</mn></mrow></msup 
><mspace width="3.26212pt" class="tmspace"/><mi 
>U</mi></math>
              and <!--l. 1598--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mi 
>V</mi> </math>
              statistics. Ann. Statist. 15(1), 398-412. <a 
  name="dx1-40014"></a>
              </p><p class="bibitem"><span class="biblabel">
          [14] <span class="bibsp">&#x00A0;&#x00A0;&#x00A0;</span></span> <a 
  name="X1996Deheu871bilo"></a>Deheuvels, P., Martynov, G. V., 1996. Cram&#x00E9;r-von Mises-type
              tests with applications to tests of independence for multivariate
              extreme-value  distributions.  Comm.  Statist.  Theory  Methods
              25(4), 871-908. <a 
  name="dx1-40015"></a>
              </p><p class="bibitem"><span class="biblabel">
          [15] <span class="bibsp">&#x00A0;&#x00A0;&#x00A0;</span></span> <a 
  name="X1996Fergubilo"></a>Ferguson, T. S., 1996. A course in large sample theory. Chapman

              &#x0026; Hall, London. <a 
  name="dx1-40016"></a>
              </p><p class="bibitem"><span class="biblabel">
          [16] <span class="bibsp">&#x00A0;&#x00A0;&#x00A0;</span></span> <a 
  name="X1993Feuer419bilo"></a>Feuerverger, A., 1993. A consistent test for bivariate dependence.
              Internat. Statist. Rev. 61(2), 419-433. <a 
  name="dx1-40017"></a>
              </p><p class="bibitem"><span class="biblabel">
          [17] <span class="bibsp">&#x00A0;&#x00A0;&#x00A0;</span></span> <a 
  name="X1977Feuer88bilo"></a>Feuerverger, A., Mureika, R. A., 1977. The empirical characteristic
              function and its applications. Ann. Statist. 5(1), 88-97. <a 
  name="dx1-40018"></a>
              </p><p class="bibitem"><span class="biblabel">
          [18] <span class="bibsp">&#x00A0;&#x00A0;&#x00A0;</span></span>   <a 
  name="X2001Ghoud191bilo"></a>Ghoudi,   K.,   Kulperger,   R.   J.,   R&#x00E9;millard,   B.,   2001.   A
              nonparametric  test  of  serial  independence  for  time  series  and
              residuals. J. Multivariate Anal. 79, 191-218. <a 
  name="dx1-40019"></a>
              </p><p class="bibitem"><span class="biblabel">
          [19] <span class="bibsp">&#x00A0;&#x00A0;&#x00A0;</span></span> <a 
  name="X1997Henze1bilo"></a>Henze, N., Wagner, T., 1997. A new approach to the BHEP tests
              for multivariate normality. J. Multivariate Anal. 62, 1-23. <a 
  name="dx1-40020"></a>
              </p><p class="bibitem"><span class="biblabel">
          [20] <span class="bibsp">&#x00A0;&#x00A0;&#x00A0;</span></span> <a 
  name="X1990Henze3595bilo"></a>Henze, N., Zirkler, B., 1990. A class of invariant consistent tests
              for multivariate normality. Comm. Statist. Theory Methods 19,
              3595-3617. <a 
  name="dx1-40021"></a>
              </p><p class="bibitem"><span class="biblabel">
          [21] <span class="bibsp">&#x00A0;&#x00A0;&#x00A0;</span></span> <a 
  name="X1961Imhof419bilo"></a>Imhof, J. P., 1961. Computing the distribution of quadratic forms
              in normal variables. Biometrika 48, 419-426. <a 
  name="dx1-40022"></a>
              </p><p class="bibitem"><span class="biblabel">
          [22] <span class="bibsp">&#x00A0;&#x00A0;&#x00A0;</span></span>   <a 
  name="X1997Kallebilo"></a>Kallenberg,   O.,   1997.   Foundations   of   modern   probability.
              Springer-Verlag, New York. <a 
  name="dx1-40023"></a>
              </p><p class="bibitem"><span class="biblabel">
          [23] <span class="bibsp">&#x00A0;&#x00A0;&#x00A0;</span></span> <a 
  name="X1980Kelle78bilo"></a>Kellermeier, J., 1980. The empirical characteristic function and
              large sample hypothesis testing. J. Multivariate Anal. 10(1), 78-87.
              <a 
  name="dx1-40024"></a>
              </p><p class="bibitem"><span class="biblabel">
          [24] <span class="bibsp">&#x00A0;&#x00A0;&#x00A0;</span></span> <a 
  name="X1992Lee443bilo"></a>Lee, Y., Lee, M. C., 1992. On the derivation and computation of
              the Cornish-Fisher expansion. Austral. J. Statist., 34(3), 443-450. <a 
  name="dx1-40025"></a>
              </p><p class="bibitem"><span class="biblabel">
          [25] <span class="bibsp">&#x00A0;&#x00A0;&#x00A0;</span></span>   <a 
  name="X1992Lee233bilo"></a>Lee,   Y.,   Lin,   T.,   1992.   [Algorithm   AS   269]   High   order
              Cornish-Fisher expansion. Appl. Statistics 41, 233-240. <a 
  name="dx1-40026"></a>
              </p><p class="bibitem"><span class="biblabel">
          [26] <span class="bibsp">&#x00A0;&#x00A0;&#x00A0;</span></span>  <a 
  name="X1981Marcu194bilo"></a>Marcus,  M.  B.,  1981.  Weak  convergence  of  the  empirical
              characteristic function. Ann. Probab. 9(2), 194-201. <a 
  name="dx1-40027"></a>
              </p><p class="bibitem"><span class="biblabel">
          [27] <span class="bibsp">&#x00A0;&#x00A0;&#x00A0;</span></span>   <a 
  name="X2002Renchbilo"></a>Rencher,   A.   C.,   2002.   Methods   of   multivariate   analysis,
              2nd   Edition.   Wiley   Series   in   Probability   and   Statistics.
              Wiley-Interscience [John Wiley &#x0026; Sons], New York. <a 
  name="dx1-40028"></a>
              </p><p class="bibitem"><span class="biblabel">
          [28] <span class="bibsp">&#x00A0;&#x00A0;&#x00A0;</span></span> <a 
  name="X1967Strou37bilo"></a>Stroud, A.H., 1967. Some seventh degree integration formulas for

              symmetric regions. SIAM J. Numer. Anal. 4, 37-44. <a 
  name="dx1-40029"></a>
              </p><p class="bibitem"><span class="biblabel">
          [29] <span class="bibsp">&#x00A0;&#x00A0;&#x00A0;</span></span> <a 
  name="X1971Stroubilo"></a>Stroud, A. H., 1971. Approximate calculation of multiple integrals.
              Prentice-Hall Inc., Englewood Cliffs, N.J., prentice-Hall Series in
              Automatic Computation.</p></div>





   <h2 class="chapterHead"><span class="titlemark">Chapitre&#x00A0;4</span><br /><a 
  name="x1-410004"></a>Conclusion</h2>
<!--l. 4--><p class="noindent">La question initiale de recherche consistait &#x00E0; explorer diff&#x00E9;rentes pistes pouvant
permettre de valider certaines hypoth&#x00E8;ses qui sont souvent faites dans le contexte de
s&#x00E9;ries stochastiques d&#x00E9;pendantes, et en particulier l&#x2019;hypoth&#x00E8;se de normalit&#x00E9; et
d&#x2019;ind&#x00E9;pendance du bruit blanc pour lequel peu de travaux ont &#x00E9;t&#x00E9; publi&#x00E9;s.
Dans le Chapitre 2, nous nous sommes attaqu&#x00E9;s &#x00E0; la premi&#x00E8;re partie de ce
probl&#x00E8;me en consid&#x00E9;rant la mise au point d&#x2019;un test de normalit&#x00E9; pour les
innovations d&#x2019;un mod&#x00E8;le ARMA univari&#x00E9; de moyenne connue. Les mod&#x00E8;les
ARMA univari&#x00E9;s sont en effet tr&#x00E8;s connus et utilis&#x00E9;s dans la pratique.
Cette construction utilise la strat&#x00E9;gie des tests lisses de Neyman (1947)(<a 
  name="dx1-41001"></a><a 
href="#X1937Neyma149conclu">4</a>)
enrichie par la technologie &#x00AB; data-driven &#x00BB; de Ledwina (1994)(<a 
  name="dx1-41002"></a><a 
href="#X1994Ledwi1000conclu">3</a>) qui sont, selon
les travaux de Ledwina et son &#x00E9;quipe, th&#x00E9;oriquement plus performants
que les autres approches. Le test obtenu autorise une bonne puissance en
comparaison des rares tests existants et son niveau est atteint et tenu assez
rapidement. Une extension de ce travail est en cours pour consid&#x00E9;rer le cas
o&#x00F9; la moyenne est inconnue, estim&#x00E9;e par la m&#x00E9;thode du maximum de
vraisemblance. Il sera ensuite possible de g&#x00E9;n&#x00E9;raliser les r&#x00E9;sultats obtenus au
cas d&#x2019;un ARMA multivari&#x00E9;, et probablement aussi &#x00E0; celui d&#x2019;un ARIMA
multivari&#x00E9;.
</p><!--l. 26--><p class="indent">   Le chapitre suivant aborde le probl&#x00E8;me consistant &#x00E0; tester l&#x2019;ind&#x00E9;pendance de
donn&#x00E9;es s&#x00E9;rielles. L&#x2019;approche des tests lisses n&#x2019;&#x00E9;tant pas encore d&#x00E9;velopp&#x00E9;e pour
le cas de s&#x00E9;ries multivari&#x00E9;es, des r&#x00E9;sultats th&#x00E9;oriques sur la convergence faible de
processus stochastiques &#x00E0; valeurs dans un espace de Fr&#x00E9;chet ont &#x00E9;t&#x00E9; employ&#x00E9;s.
En utilisant la notion de convergence des lois de dimension finie et la tension d&#x2019;une
famille, la convergence faible d&#x2019;un certain processus empirique bas&#x00E9; sur la fonction
caract&#x00E9;ristique a &#x00E9;t&#x00E9; d&#x00E9;montr&#x00E9;e. L&#x2019;application d&#x2019;une fonctionnelle de type
Cram&#x00E9;r-von Mises a alors permis l&#x2019;obtention d&#x2019;un test d&#x2019;ind&#x00E9;pendance multivari&#x00E9;
pour des marginales Gaussiennes fix&#x00E9;es. Ce r&#x00E9;sultat est d&#x2019;un int&#x00E9;r&#x00EA;t
non n&#x00E9;gligeable dans le domaine des donn&#x00E9;es familiales. Il a ensuite &#x00E9;t&#x00E9;
&#x00E9;tendu au cas de donn&#x00E9;es d&#x00E9;pendantes afin de produire un test multivari&#x00E9;
d&#x2019;ind&#x00E9;pendance s&#x00E9;rielle, qui pourrait possiblement &#x00EA;tre appliqu&#x00E9; pour v&#x00E9;rifier
l&#x2019;hypoth&#x00E8;se de bruit blanc dans le cas de la r&#x00E9;gression multivari&#x00E9;e et celui
d&#x2019;innovations Gaussiennes d&#x2019;un mod&#x00E8;le ARMA. En consid&#x00E9;rant le cas d&#x2019;ensembles
<!--l. 42--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mi 
>A</mi></math> de
cardinal unit&#x00E9;, il sera possible de b&#x00E2;tir un test de l&#x2019;hypoth&#x00E8;se compos&#x00E9;e
simultan&#x00E9;ment de la multinormalit&#x00E9; et de l&#x2019;ind&#x00E9;pendance. Pour cela, certains
probl&#x00E8;mes doivent encore &#x00EA;tre r&#x00E9;solus comme la caract&#x00E9;risation de la loi
de deux statistiques de Cram&#x00E9;r-von Mises d&#x00E9;pendantes &#x00E0; partir de la
donn&#x00E9;e de leur covariance. Une autre extension importante consiste &#x00E0; se
d&#x00E9;barasser de l&#x2019;hypoth&#x00E8;se de multinormalit&#x00E9; des marginales afin d&#x2019;obtenir un
test d&#x2019;ind&#x00E9;pendance compl&#x00E8;tement non-param&#x00E9;trique. Un th&#x00E9;or&#x00E8;me de
Cs&#x00F6;rg&#x0151; (1981)(<a 
  name="dx1-41003"></a><a 
href="#X1981Csorg203conclu">2</a>) de type Glivenko-Cantelli pour la fonction caract&#x00E9;ristique

donne espoir d&#x2019;atteindre cet objectif. Des d&#x00E9;veloppements r&#x00E9;cents sur les
tests de normalit&#x00E9; bas&#x00E9;s sur un processus, tels ceux expos&#x00E9;s dans Chen et
al. (2002)(<a 
  name="dx1-41004"></a><a 
href="#X2002Chen177conclu">1</a>), montrent l&#x2019;int&#x00E9;r&#x00EA;t actuel de nombreux chercheurs dans ce
domaine.
</p>
   <h3 class="sectionHead"><a 
  name="x1-420004"></a>Bibliographie</h3>
<!--l. 58--><p class="noindent">
<a 
  name="dx1-42001"></a>
              </p><div class="thebibliography"><p class="bibitem"><span class="biblabel">
           [1] <span class="bibsp">&#x00A0;&#x00A0;&#x00A0;</span></span>  <a 
  name="X2002Chen177conclu"></a>Chen,  G.,  Lockhart,  R.  A.,  Stephens,  M.  A.,  2002.  Box-Cox
              transformations in linear models&#x00A0;: Large sample theory and tests of
              normality. Canad. J. Statist. 30(2), 177-234. <a 
  name="dx1-42002"></a>
              </p><p class="bibitem"><span class="biblabel">
           [2] <span class="bibsp">&#x00A0;&#x00A0;&#x00A0;</span></span> <a 
  name="X1981Csorg203conclu"></a>Csorgo, S., 1981. Multivariate empirical characteristic functions.
              Z. Wahrsch. Verw. Gebiete 55(2), 203-229. <a 
  name="dx1-42003"></a>
              </p><p class="bibitem"><span class="biblabel">
           [3] <span class="bibsp">&#x00A0;&#x00A0;&#x00A0;</span></span> <a 
  name="X1994Ledwi1000conclu"></a>Ledwina, T., 1994. Data-driven version of Neyman&#x2019;s smooth test
              of fit. J. Amer. Statist. Assoc. 89(427), 1000-1005. <a 
  name="dx1-42004"></a>
              </p><p class="bibitem"><span class="biblabel">
           [4] <span class="bibsp">&#x00A0;&#x00A0;&#x00A0;</span></span> <a 
  name="X1937Neyma149conclu"></a>Neyman, J., 1937. Smooth test for goodness of fit. Skand. Aktuar.
              20, 149-199.</p></div>







<a 
  name="x1-42005r52"></a>
   <h2 class="appendixHead"><span class="titlemark">Annexe&#x00A0;A</span><br /><a 
  name="x1-43000A"></a>Les Programmes Fortran 77 du premier article</h2>
<!--l. 7--><p class="noindent">Vu l&#x2019;ampleur des programmes (plus de 13000 lignes de code<span class="frenchb-thinspace"> </span>!), le listing des diff&#x00E9;rents
programmes n&#x2019;est fourni que dans la version &#x00E9;lectronique de ce document sur le site
Internet <a 
href="http://www.theses.umontreal.ca" class="url" ><span 
class="ectt-1200">http://www.theses.umontreal.ca</span></a>.
<br class="newline" />Tous ces programmes ont &#x00E9;t&#x00E9; utilis&#x00E9;s sur un PC (gracieusement mis &#x00E0; disposition
par Gilles Ducharme) disposant d&#x2019;un processeur de 1 m&#x00E9;gaHz et pourvu, par mes
soins, du syst&#x00E8;me d&#x2019;exploitation Linux Redhat 7.2.
<br class="newline" />
<br class="newline" />
</p><!--l. 16--><p class="noindent">Mode d&#x2019;utilisation de mon programme de simulation&#x00A0;:
<br class="newline" />
</p><!--l. 18--><p class="indent">   Il faut commencer par changer les valeurs des param&#x00E8;tres souhait&#x00E9;es
dans les programmes <span 
class="ecti-1200">big_prog_AR1.f </span>, <span 
class="ecti-1200">big_prog_AR2.f </span>, <span 
class="ecti-1200">big_prog_MA1.f </span>,
<span 
class="ecti-1200">big_prog_MA2.f </span>,
<br class="newline" /><span 
class="ecti-1200">big_prog_ARMA11.f </span>, <span 
class="ecti-1200">big_prog_ARMA12.f </span>, <span 
class="ecti-1200">big_prog_ARMA21.f </span>, <span 
class="ecti-1200">big_prog_ARMA22.f </span>.
Les param&#x00E8;tres o&#x00F9; des changements peuvent &#x00EA;tre n&#x00E9;cessaires sont marqu&#x00E9;s, dans
le code source, par le signe **.
</p><!--l. 27--><p class="indent">   Ensuite, il faut remplir le fichier nomm&#x00E9; <span 
class="ecti-1200">paramentree </span>de la fa&#x00E7;on
suivante&#x00A0;: sur chaque ligne du fichier, il doit figurer en s&#x00E9;quence les valeurs de
<!--l. 29--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mi 
>p</mi></math>
<!--l. 29--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mi 
>q</mi></math>
<!--l. 29--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mi 
>l</mi><mi 
>o</mi><mi 
>i</mi></math>
<!--l. 29--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><msub><mrow 
><mi 
>&#x03D5;</mi></mrow><mrow 
><mn>1</mn></mrow></msub 
></math>
<!--l. 29--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><msub><mrow 
><mi 
>&#x03D5;</mi></mrow><mrow 
><mn>2</mn></mrow></msub 
></math>
<!--l. 30--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><msub><mrow 
><mi 
>&#x03B8;</mi></mrow><mrow 
><mn>1</mn></mrow></msub 
></math>
<!--l. 30--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><msub><mrow 
><mi 
>&#x03B8;</mi></mrow><mrow 
><mn>2</mn></mrow></msub 
></math> avec
<!--l. 31--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mi 
>p</mi><mo 
class="MathClass-punc">,</mo><mi 
>q</mi> <mo 
class="MathClass-rel">=</mo> <mn>0</mn><mo 
class="MathClass-punc">,</mo> <mn>1</mn></math> ou
<!--l. 31--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mn>2</mn></math>,
<!--l. 32--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mi 
>l</mi><mi 
>o</mi><mi 
>i</mi></math>
<!--l. 32--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mo 
class="MathClass-rel">&#x2208;</mo><mrow><mo 
class="MathClass-open">{</mo><mrow><mn>0</mn><mo 
class="MathClass-punc">,</mo> <mn>1</mn><mo 
class="MathClass-punc">,</mo> <mn>2</mn><mo 
class="MathClass-punc">,</mo> <mn>3</mn><mo 
class="MathClass-punc">,</mo> <mn>4</mn><mo 
class="MathClass-punc">,</mo><mo 
class="MathClass-punc">.</mo><mo 
class="MathClass-punc">.</mo><mo 
class="MathClass-punc">.</mo><mo 
class="MathClass-punc">,</mo> <mn>1</mn><mn>9</mn></mrow><mo 
class="MathClass-close">}</mo></mrow></math> et
<!--l. 33--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mi 
>&#x03D5;</mi></math> et
<!--l. 33--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mi 
>&#x03B8;</mi></math> dans
la r&#x00E9;gion assurant l&#x2019;inversibilit&#x00E9; et la causalit&#x00E9; du processus.
</p>
   <div class="newtheorem">
<!--l. 37--><p class="noindent"><span class="head">
<a 
  name="x1-43001r1"></a>
<span 
class="ecbx-1200">Remarque 1.</span></span>
   <span 
class="ecti-1200">M</span><span 
class="ecti-1200">&#x00EA;</span><span 
class="ecti-1200">me si </span><!--l. 38--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mi 
>p</mi></math>
<span 
class="ecti-1200">(resp. </span><!--l. 38--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mi 
>q</mi></math><span 
class="ecti-1200">)</span>

<span 
class="ecti-1200">=0, il faut donner des valeurs aux </span><!--l. 39--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mi 
>&#x03B8;</mi></math>
<span 
class="ecti-1200">(resp. aux </span><!--l. 39--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mi 
>&#x03D5;</mi></math><span 
class="ecti-1200">),</span>
<span 
class="ecti-1200">mais ces valeurs ne seront pas prises en compte par le programme.</span>
<br class="newline" />
</p>
   </div>
<!--l. 44--><p class="indent">   Certains de ces fichiers, qui correspondent aux points de la grille que l&#x2019;on a choisi
avec Gilles Ducharme pour &#x00EA;tre dans les r&#x00E9;gions d&#x2019;inversibilit&#x00E9;, sont d&#x00E9;j&#x00E0;
cr&#x00E9;&#x00E9;s dans les r&#x00E9;pertoires <span 
class="ecti-1200">FICHIERS_paramentree</span>. Il suffit de les mettre dans le
dossier principal et de les renommer en <span 
class="ecti-1200">paramentree</span>.
<br class="newline" />
</p><!--l. 50--><p class="noindent">Ensuite, on tape&#x00A0;:

</p>
   <table width="100%" 
class="verbatim"><tr class="verbatim"><td 
class="verbatim"><div class="verbatim">
./compile</div>
</td></tr></table>
<!--l. 55--><p class="indent">

</p><!--l. 56--><p class="noindent">Puis&#x00A0;:

</p>
   <table width="100%" 
class="verbatim"><tr class="verbatim"><td 
class="verbatim"><div class="verbatim">
./a.out</div>
</td></tr></table>
<!--l. 62--><p class="noindent">Les r&#x00E9;sultats sont alors stock&#x00E9;s dans le dossier&#x00A0;:

</p>
   <table width="100%" 
class="verbatim"><tr class="verbatim"><td 
class="verbatim"><div class="verbatim">
./SIMUL/</div>
</td></tr></table>
<!--l. 66--><p class="indent">   sous la forme de diff&#x00E9;rents fichiers <span 
class="ecti-1200">para.i </span>et <span 
class="ecti-1200">resultat.i.xc</span>. Les fichiers <span 
class="ecti-1200">para.i</span>
contiennent diff&#x00E9;rents param&#x00E8;tres de la simulation. Les fichiers <span 
class="ecti-1200">resultat.i.xc</span>
contiennent de nombreux r&#x00E9;sultats de la simulation et sont faciles &#x00E0; lire avec
le logiciel Excel. Il est aussi cr&#x00E9;&#x00E9; un fichier <span 
class="ecti-1200">tableau.txt </span>qui r&#x00E9;sume cette
information.
<br class="newline" />
</p><!--l. 73--><p class="noindent"><span 
class="ecbx-1200">Attention</span>
<br class="newline" />Si la simulation est interrompue, des fichiers qui sont normalement effac&#x00E9;s &#x00E0; la fin de
chaque simulation (<span 
class="ecti-1200">data.txt </span>et <span 
class="ecti-1200">ftemp</span>) vont subsister dans le dossier

</p>
   <table width="100%" 
class="verbatim"><tr class="verbatim"><td 
class="verbatim"><div class="verbatim">
./SIMUL/../.</div>
</td></tr></table>
<!--l. 78--><p class="noindent">Avant de relancer une autre s&#x00E9;rie de simulations, il faut effacer ces deux fichiers. Il
faut aussi d&#x00E9;placer (ou effacer si on ne veut plus les conserver) les fichiers <span 
class="ecti-1200">para.i</span>,
<span 
class="ecti-1200">resultat.i.xc </span>et <span 
class="ecti-1200">tableau.txt </span>du dossier

</p>
   <table width="100%" 
class="verbatim"><tr class="verbatim"><td 
class="verbatim"><div class="verbatim">
SIMUL.</div>
</td></tr></table>
<!--l. 85--><p class="noindent">D&#x00E9;roulement des divers programmes&#x00A0;:
</p><!--l. 88--><p class="noindent">Voil&#x00E0; comment se d&#x00E9;roule l&#x2019;ex&#x00E9;cution de mes programmes.
<br class="newline" />Le programme principal est le programme <span 
class="ecti-1200">test.f  </span>(qui sera compil&#x00E9; en <span 
class="ecti-1200">a.out</span>).
<br class="newline" />
</p><!--l. 91--><p class="noindent">1) Dans le programme <span 
class="ecbx-1200">TEST</span>&#x00A0;:
</p><!--l. 93--><p class="noindent">On cr&#x00E9;e le fichier <span 
class="ecti-1200">tableau.txt </span>qui contiendra sur chaque ligne&#x00A0;:
<br class="newline" />Nbcle <!--l. 94--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mi 
>T</mi></math>
<!--l. 94--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mi 
>p</mi></math>
<!--l. 94--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mi 
>q</mi></math>
<!--l. 94--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mi 
>l</mi><mi 
>o</mi><mi 
>i</mi></math>
<!--l. 94--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mi 
>&#x03B1;</mi></math>
<!--l. 94--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><msub><mrow 
><mi 
>&#x03D5;</mi></mrow><mrow 
><mn>1</mn></mrow></msub 
></math>
<!--l. 94--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><msub><mrow 
><mi 
>&#x03D5;</mi></mrow><mrow 
><mn>2</mn></mrow></msub 
></math>
<!--l. 95--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><msub><mrow 
><mi 
>&#x03B8;</mi></mrow><mrow 
><mn>1</mn></mrow></msub 
></math>
<!--l. 95--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><msub><mrow 
><mi 
>&#x03B8;</mi></mrow><mrow 
><mn>2</mn></mrow></msub 
></math>
<!--l. 95--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mi 
>P</mi><mi 
>u</mi><mi 
>i</mi><mi 
>s</mi><mi 
>s</mi><mi 
>R</mi><mn>1</mn></math>
<!--l. 96--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mi 
>P</mi><mi 
>u</mi><mi 
>i</mi><mi 
>s</mi><mi 
>s</mi><mi 
>R</mi><mn>2</mn></math>
<!--l. 96--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mi 
>P</mi><mi 
>u</mi><mi 
>i</mi><mi 
>s</mi><mi 
>s</mi><mi 
>R</mi><mn>3</mn></math>
<!--l. 96--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mi 
>P</mi><mi 
>u</mi><mi 
>i</mi><mi 
>s</mi><mi 
>s</mi><mi 
>R</mi><mn>4</mn></math>
<!--l. 96--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mi 
>P</mi><mi 
>u</mi><mi 
>i</mi><mi 
>s</mi><mi 
>s</mi><mi 
>R</mi><mn>5</mn></math>
<!--l. 96--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mi 
>P</mi><mi 
>u</mi><mi 
>i</mi><mi 
>s</mi><mi 
>s</mi><mi 
>L</mi><mi 
>e</mi><mi 
>d</mi><mn>1</mn></math>
<!--l. 96--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mi 
>P</mi><mi 
>u</mi><mi 
>i</mi><mi 
>s</mi><mi 
>s</mi><mi 
>L</mi><mi 
>e</mi><mi 
>d</mi><mn>2</mn></math>
<!--l. 96--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mi 
>P</mi><mi 
>u</mi><mi 
>i</mi><mi 
>s</mi><mi 
>s</mi><mi 
>B</mi><mi 
>D</mi></math>
<!--l. 97--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mi 
>P</mi><mi 
>u</mi><mi 
>i</mi><mi 
>s</mi><mi 
>s</mi><mi 
>A</mi><mi 
>D</mi></math>
<!--l. 97--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mi 
>P</mi><mi 
>u</mi><mi 
>i</mi><mi 
>s</mi><mi 
>s</mi><mi 
>J</mi><mi 
>B</mi></math>.
<br class="newline" />Le programme <span 
class="ecbx-1200">TEST </span>lit, dans le fichier <span 
class="ecti-1200">paramentree</span>, les valeurs de
<!--l. 99--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mi 
>p</mi></math>,
<!--l. 99--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mi 
>q</mi></math>,
<!--l. 99--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mi 
>l</mi><mi 
>o</mi><mi 
>i</mi></math>,
<!--l. 99--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mi 
>p</mi><mi 
>h</mi><mi 
>i</mi><mrow><mo 
class="MathClass-open">(</mo><mrow><mn>1</mn></mrow><mo 
class="MathClass-close">)</mo></mrow></math>,
<!--l. 99--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mi 
>p</mi><mi 
>h</mi><mi 
>i</mi><mrow><mo 
class="MathClass-open">(</mo><mrow><mn>2</mn></mrow><mo 
class="MathClass-close">)</mo></mrow></math>,
<!--l. 99--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mi 
>t</mi><mi 
>h</mi><mi 
>e</mi><mi 
>t</mi><mi 
>a</mi><mrow><mo 
class="MathClass-open">(</mo><mrow><mn>1</mn></mrow><mo 
class="MathClass-close">)</mo></mrow></math>,
<!--l. 99--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mi 
>t</mi><mi 
>h</mi><mi 
>e</mi><mi 
>t</mi><mi 
>a</mi><mrow><mo 
class="MathClass-open">(</mo><mrow><mn>2</mn></mrow><mo 
class="MathClass-close">)</mo></mrow></math> et les stocke
dans la matrice <!--l. 100--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mi 
>t</mi><mi 
>e</mi><mi 
>m</mi><mi 
>p</mi></math>,
cela permet aussi de calculer le nombre de lignes (<span 
class="ecti-1200">nbline</span>) du fichier <span 
class="ecti-1200">paramentree</span>.
<br class="newline" />Pour <!--l. 102--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mi 
>i</mi> <mo 
class="MathClass-rel">=</mo> <mn>1</mn></math>

&#x00E0; <!--l. 102--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mi 
>n</mi><mi 
>b</mi><mi 
>l</mi><mi 
>i</mi><mi 
>n</mi><mi 
>e</mi></math>&#x00A0;:
<br class="newline" />On cr&#x00E9;e le fichier <span 
class="ecti-1200">ftemp </span>qui contient la ligne
<!--l. 103--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mi 
>i</mi></math>
du fichier <span 
class="ecti-1200">paramentree </span>en ne gardant bien s&#x00FB;r que ce qui est n&#x00E9;cessaire.
Ensuite on appelle, suivant les valeurs dans le fichier <span 
class="ecti-1200">ftemp</span>, le bon
programme <span 
class="ecti-1200">*.out </span>(&#x2013;&#x003E;2) puis on efface <span 
class="ecti-1200">ftemp </span>et on recommence &#x00E0;
<!--l. 108--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mi 
>i</mi> <mo 
class="MathClass-bin">+</mo> <mn>1</mn></math>.
<br class="newline" />&#x00C0; chaque boucle, le programme <span 
class="ecbx-1200">TEST </span>appelle donc l&#x2019;un des programmes
<span 
class="ecbx-1200">ARMA22.out</span>, <span 
class="ecbx-1200">ARMA21.out</span>, A<span 
class="ecbx-1200">RMA12.out</span>, <span 
class="ecbx-1200">ARMA11.out</span>, <span 
class="ecbx-1200">MA2.out</span>,
<span 
class="ecbx-1200">MA1.out</span>, <span 
class="ecbx-1200">AR2.out</span>, <span 
class="ecbx-1200">AR1.out </span>ou <span 
class="ecbx-1200">ARMA00.out</span>.
</p><!--l. 113--><p class="noindent">2) Prenons l&#x2019;exemple o&#x00F9; on appelle <span 
class="ecbx-1200">ARMA22.out</span>&#x00A0;:
</p><!--l. 115--><p class="noindent">Dans <span 
class="ecbx-1200">ARMA22.out</span>, on va lire les param&#x00E8;tres n&#x00E9;cessaires dans <span 
class="ecti-1200">ftemp</span>&#x00A0;:
<!--l. 115--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mi 
>j</mi></math>,
<!--l. 115--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mi 
>l</mi><mi 
>o</mi><mi 
>i</mi></math>,
<!--l. 115--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mi 
>p</mi><mi 
>h</mi><mi 
>i</mi><mrow><mo 
class="MathClass-open">(</mo><mrow><mn>1</mn></mrow><mo 
class="MathClass-close">)</mo></mrow></math>,
<!--l. 115--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mi 
>p</mi><mi 
>h</mi><mi 
>i</mi><mrow><mo 
class="MathClass-open">(</mo><mrow><mn>2</mn></mrow><mo 
class="MathClass-close">)</mo></mrow></math>,
<!--l. 115--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mi 
>t</mi><mi 
>h</mi><mi 
>e</mi><mi 
>t</mi><mi 
>a</mi><mrow><mo 
class="MathClass-open">(</mo><mrow><mn>1</mn></mrow><mo 
class="MathClass-close">)</mo></mrow></math>,
<!--l. 115--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mi 
>t</mi><mi 
>h</mi><mi 
>e</mi><mi 
>t</mi><mi 
>a</mi><mrow><mo 
class="MathClass-open">(</mo><mrow><mn>2</mn></mrow><mo 
class="MathClass-close">)</mo></mrow></math>.
<br class="newline" />On appelle le programme <span 
class="ecbx-1200">creerdat_ARMA </span>(&#x2013;&#x003E;3) qui cr&#x00E9;e
le fichier de donn&#x00E9;es <span 
class="ecti-1200">data.txt </span>qui contient sur chaque ligne
<!--l. 119--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mi 
>s</mi><mi 
>i</mi><mi 
>g</mi><mi 
>c</mi><mi 
>h</mi><mi 
>a</mi><mi 
>p</mi><mn>2</mn></math> et
<!--l. 119--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mi 
>e</mi><mi 
>p</mi><mi 
>s</mi><mi 
>c</mi><mi 
>h</mi><mi 
>a</mi><mi 
>p</mi></math>.
<br class="newline" />On appelle le programme <span 
class="ecbx-1200">calcstat </span>(&#x2013;&#x003E;4) qui cr&#x00E9;e le fichier des statistiques <span 
class="ecti-1200">resultat.i.xc </span>(qui contient
sur chaque ligne <!--l. 124--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mi 
>n</mi><mi 
>u</mi><mi 
>m</mi><mi 
>e</mi><mi 
>r</mi><mi 
>o</mi> <mo 
class="MathClass-bin">&#x2212;</mo> <mi 
>s</mi><mi 
>i</mi><mi 
>m</mi><mi 
>u</mi><mi 
>l</mi></math>
<!--l. 124--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mi 
>R</mi><mn>1</mn></math>
<!--l. 124--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mi 
>R</mi><mn>2</mn></math>
<!--l. 124--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mi 
>R</mi><mn>3</mn></math>
<!--l. 124--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mi 
>R</mi><mn>4</mn></math>
<!--l. 124--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mi 
>R</mi><mn>5</mn></math>
<!--l. 124--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mi 
>R</mi><mn>6</mn></math>
<!--l. 124--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mi 
>R</mi><mn>7</mn></math>
<!--l. 124--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mi 
>R</mi><mn>8</mn></math>
<!--l. 124--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mi 
>R</mi><mn>9</mn></math>
<!--l. 124--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mi 
>R</mi><mn>1</mn><mn>0</mn></math>
<!--l. 124--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mi 
>K</mi><mi 
>c</mi><mi 
>h</mi><mi 
>a</mi><mi 
>p</mi><mn>1</mn></math>
<!--l. 125--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mi 
>L</mi><mi 
>e</mi><mi 
>d</mi><mi 
>w</mi><mi 
>i</mi><mn>1</mn></math>
<!--l. 125--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mi 
>K</mi><mi 
>c</mi><mi 
>h</mi><mi 
>a</mi><mi 
>p</mi><mn>2</mn></math>
<!--l. 125--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mi 
>L</mi><mi 
>e</mi><mi 
>d</mi><mi 
>w</mi><mi 
>i</mi><mn>2</mn></math>
<!--l. 125--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mi 
>B</mi><mi 
>D</mi></math>
<!--l. 125--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mi 
>A</mi><mi 
>D</mi></math>
<!--l. 125--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mi 
>J</mi><mi 
>B</mi></math>) et
rajoute au fichier <span 
class="ecti-1200">tableau.txt </span>une ligne de puissances.

<br class="newline" />On efface <span 
class="ecti-1200">data.txt</span>.
<br class="newline" />On sort et on se retrouve donc dans la boucle du programme <span 
class="ecbx-1200">TEST</span>.
</p><!--l. 131--><p class="noindent">3) Dans le programme <span 
class="ecbx-1200">creerdat_ARMA</span>&#x00A0;:
</p><!--l. 133--><p class="noindent">On simule les donn&#x00E9;es&#x00A0;:
<br class="newline" />
     </p><ul class="itemize1">
     <li class="itemize">si <!--l. 136--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mi 
>l</mi><mi 
>o</mi><mi 
>i</mi> <mo 
class="MathClass-rel">=</mo> <mn>0</mn></math>&#x00A0;:
     <br class="newline" />On appelle <span 
class="ecbx-1200">G05EGF </span>qui &#x0022;sets up a reference vector for an ARMA model
     with normally distributed errors. It also initialises the series to a stationary
     position.&#x0022; On appelle <span 
class="ecbx-1200">G05EWF </span>qui &#x0022;returns the next term from an ARMA
     time series using the reference vector set up by <span 
class="ecbx-1200">G05EGF</span>&#x0022;.
     <br class="newline" />
     </li>
     <li class="itemize">si <!--l. 140--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mi 
>l</mi><mi 
>o</mi><mi 
>i</mi><mo 
class="MathClass-rel">&#x2260;</mo><mn>0</mn></math>&#x00A0;:
     <br class="newline" />On appelle <span 
class="ecbx-1200">simARM </span>(&#x2013;&#x003E;5) (resp. <span 
class="ecbx-1200">simAR</span>, resp. <span 
class="ecbx-1200">simMA</span>) Les donn&#x00E9;es
     seront les <!--l. 142--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mi 
>M</mi><mi 
>i</mi><mi 
>n</mi><mi 
>d</mi> <mo 
class="MathClass-bin">+</mo> <mi 
>p</mi> <mo 
class="MathClass-bin">+</mo> <mn>1</mn></math>
     &#x00E0; <!--l. 142--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mi 
>M</mi><mi 
>i</mi><mi 
>n</mi><mi 
>d</mi> <mo 
class="MathClass-bin">+</mo> <mi 
>p</mi> <mo 
class="MathClass-bin">+</mo> <mi 
>n</mi><mi 
>T</mi></math>
     valeurs de <!--l. 142--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mi 
>Y</mi> <mi 
>t</mi><mi 
>p</mi><mi 
>M</mi><mi 
>n</mi></math>
     (resp. <!--l. 143--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mi 
>Y</mi> <mi 
>t</mi><mi 
>p</mi><mi 
>M</mi><mi 
>n</mi></math>,
     resp. <!--l. 143--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mi 
>Y</mi> <mi 
>t</mi><mi 
>M</mi><mi 
>n</mi></math>).
     <br class="newline" /></li></ul>
<!--l. 144--><p class="nopar"> Puis, on estime les param&#x00E8;tres&#x00A0;: appel de <span 
class="ecbx-1200">G13DCF</span>.
<br class="newline" />Enfin, on cr&#x00E9;e le fichier <span 
class="ecti-1200">param.i </span>des param&#x00E8;tres de la simulation et on sort
pour se retrouver dans <span 
class="ecbx-1200">ARMA22.out</span>, qui va ensuite nous envoyer dans
<span 
class="ecbx-1200">calcstat</span>.
</p><!--l. 151--><p class="noindent">4) Dans <span 
class="ecbx-1200">calcstat</span>&#x00A0;:
</p><!--l. 153--><p class="noindent">On met les donn&#x00E9;es du fichier <span 
class="ecti-1200">data.txt </span>dans la matrice
<!--l. 153--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mi 
>v</mi><mi 
>a</mi><mi 
>l</mi><mi 
>e</mi><mi 
>u</mi><mi 
>r</mi><mi 
>s</mi></math>.
<br class="newline" />On cr&#x00E9;e le vecteur des <!--l. 154--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mi 
>s</mi><mi 
>i</mi><mi 
>g</mi><mi 
>c</mi><mi 
>h</mi><mi 
>a</mi><mi 
>p</mi><mn>2</mn></math>.
<br class="newline" />On cr&#x00E9;e la matrice des <!--l. 155--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mi 
>e</mi><mi 
>p</mi><mi 
>s</mi><mi 
>c</mi><mi 
>h</mi><mi 
>a</mi><mi 
>p</mi></math>.
<br class="newline" />On commence la grande boucle de 1 &#x00E0; 10000.
<br class="newline" />On affiche un d&#x00E9;compte &#x00E0; l&#x2019;&#x00E9;cran.
<br class="newline" />On calcule toutes les statistiques que l&#x2019;on compare aux quantiles appropri&#x00E9;s pour
incr&#x00E9;menter (ou pas) le compteur qui permettra de calculer les puissances.
<br class="newline" />Fin de la grande boucle.
<br class="newline" />
</p><!--l. 162--><p class="noindent">On calcule la puissance des tests en % en se servant des compteurs cr&#x00E9;&#x00E9;s.
<br class="newline" />On calcule les quantiles.
<br class="newline" />On calcule les rangs des valeurs des statistiques.
<br class="newline" />On calcule les moyennes et &#x00E9;cart-types des valeurs des statistiques.
<br class="newline" />On calcule le nombre de fois o&#x00F9; chaque polyn&#x00F4;me a &#x00E9;t&#x00E9; choisi par les proc&#x00E9;dures
de Ledwina.

<br class="newline" />On &#x00E9;crit les r&#x00E9;sultats dans <span 
class="ecti-1200">resultat.ijkl.xc</span>.
<br class="newline" />On &#x00E9;crit quelques r&#x00E9;sultats dans <span 
class="ecti-1200">para.ijkl</span>.
<br class="newline" />On &#x00E9;crit les r&#x00E9;sultats dans <span 
class="ecti-1200">tableau.txt</span>.
<br class="newline" />On sort pour se retrouver dans <span 
class="ecbx-1200">ARMA22.out</span>.
</p><!--l. 173--><p class="noindent">5) Dans <span 
class="ecbx-1200">simulARMA</span>&#x00A0;:
<br class="newline" />
</p><!--l. 175--><p class="noindent">Ce programme r&#x00E9;alise les &#x00E9;tapes 2 et 3 de la partie &#x00AB; Simulation
Algorithm 1 &#x00BB; de l&#x2019;article de Burn. Cette sous-routine remplace le vecteur
<!--l. 177--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mi 
>Y</mi> <mi 
>t</mi><mi 
>p</mi><mi 
>M</mi><mi 
>n</mi></math> en entr&#x00E9;e
par <!--l. 177--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mi 
>p</mi> <mo 
class="MathClass-bin">+</mo> <mi 
>M</mi><mi 
>i</mi><mi 
>n</mi><mi 
>d</mi> <mo 
class="MathClass-bin">+</mo> <mi 
>n</mi></math>
donn&#x00E9;es simul&#x00E9;es d&#x2019;un mod&#x00E8;le ARMA(p,q) de vecteur d&#x2019;innovations de loi donn&#x00E9;e par
l&#x2019;entier <!--l. 178--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mi 
>l</mi><mi 
>o</mi><mi 
>i</mi></math> , les
<!--l. 179--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mi 
>p</mi></math> premi&#x00E8;res valeurs sont
les <!--l. 179--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mi 
>p</mi></math> valeurs initiales de
l&#x2019;&#x00E9;tape 1 de Burn, les <!--l. 180--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mi 
>M</mi><mi 
>i</mi><mi 
>n</mi><mi 
>d</mi></math>
valeurs suivantes sont les valeurs &#x00E0; &#x00E9;carter de la warm-up period de longueur
<!--l. 181--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mi 
>M</mi><mi 
>i</mi><mi 
>n</mi><mi 
>d</mi></math>. Par cons&#x00E9;quent,
seules les <!--l. 182--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mi 
>n</mi></math>
derni&#x00E8;res valeurs devront &#x00EA;tre conserv&#x00E9;es pour la suite de la simulation.
<br class="newline" />Elle renvoie aussi le vecteur <!--l. 183--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mi 
>s</mi><mi 
>h</mi><mi 
>o</mi><mi 
>c</mi><mi 
>k</mi><mi 
>s</mi></math>
des <!--l. 183--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mi 
>m</mi><mi 
>a</mi><mi 
>r</mi><mi 
>r</mi><mi 
>e</mi><mi 
>t</mi> <mo 
class="MathClass-bin">+</mo> <mi 
>p</mi></math>
innovations utilis&#x00E9;es dans l&#x2019;algorithme &#x00AB; Initialisation 1 &#x00BB; de Burn, ainsi que le vecteur
<!--l. 183--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mi 
>A</mi><mi 
>t</mi><mi 
>n</mi><mi 
>q</mi></math> des
<!--l. 183--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mi 
>n</mi> <mo 
class="MathClass-bin">+</mo> <mi 
>M</mi><mi 
>i</mi><mi 
>n</mi><mi 
>d</mi> <mo 
class="MathClass-bin">+</mo> <mi 
>q</mi></math> &#x00AB; random
shocks &#x00BB; <!--l. 183--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mi 
>A</mi><mi 
>t</mi></math>
de l&#x2019;&#x00E9;tape 2 de Burn.
<br class="newline" />

</p>
   <table width="100%" 
class="verbatim"><tr class="verbatim"><td 
class="verbatim"><div class="verbatim">
c&#x00A0;Calcul&#x00A0;des&#x00A0;valeurs&#x00A0;de&#x00A0;psi&#x00A0;(sauf&#x00A0;pour&#x00A0;un&#x00A0;MA)
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;CALL&#x00A0;ARMpsi
&#x00A0;<br />
&#x00A0;<br />c&#x00A0;Calcul&#x00A0;de&#x00A0;shocks&#x00A0;et&#x00A0;Wtip&#x00A0;(sauf&#x00A0;pour&#x00A0;un&#x00A0;MA)
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;CALL&#x00A0;shock
&#x00A0;<br />
&#x00A0;<br />c&#x00A0;\&#x2019;Etape&#x00A0;2&#x00A0;de&#x00A0;l&#x2019;algorithme:&#x00A0;on&#x00A0;g\&#x2019;en\&#x2018;ere&#x00A0;les&#x00A0;random&#x00A0;shocks.
&#x00A0;<br />c&#x00A0;On&#x00A0;appelle&#x00A0;le&#x00A0;bon&#x00A0;g\&#x2019;en\&#x2019;erateur&#x00A0;al\&#x2019;eatoire&#x00A0;suivant&#x00A0;la&#x00A0;valeur
&#x00A0;<br />c&#x00A0;&#x00A0;de&#x00A0;loi&#x00A0;(loi=1,...,19).
&#x00A0;<br />Le&#x00A0;vecteur&#x00A0;Atnq&#x00A0;est&#x00A0;donc&#x00A0;cr\&#x2019;e\&#x2019;e.
&#x00A0;<br />
&#x00A0;<br />c&#x00A0;\&#x2019;Etape&#x00A0;3&#x00A0;de&#x00A0;l&#x2019;algorithme
&#x00A0;<br />c&#x00A0;YtpMn:&#x00A0;&#x00A0;Y(1-p),&#x00A0;Y(2-p),&#x00A0;...,&#x00A0;Y(0),&#x00A0;Y(1)&#x00A0;,&#x00A0;...,&#x00A0;Y(Mind+n)
&#x00A0;<br />c&#x00A0;YtpMn(i),i:&#x00A0;1&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;2&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;p&#x00A0;&#x00A0;&#x00A0;&#x00A0;p+1&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;p+Mind+n
&#x00A0;<br />c&#x00A0;Wtp:&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;Y(1-p),&#x00A0;Y(2-p),&#x00A0;...,&#x00A0;Y(0)
&#x00A0;<br />c&#x00A0;YtpMn(i),i:&#x00A0;&#x00A0;&#x00A0;&#x00A0;1&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;2&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;p
&#x00A0;<br />c&#x00A0;Atnq:&#x00A0;eps(1-q),eps(2-q),...,eps(0),eps(1),...,eps(n+Mind)
&#x00A0;<br />c&#x00A0;Atnq(k),&#x00A0;k:&#x00A0;1&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;2&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;q&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;q+1&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;n+Mind+q</div>
</td></tr></table>
<!--l. 207--><p class="noindent">Le vecteur <!--l. 207--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mi 
>Y</mi> <mi 
>t</mi><mi 
>p</mi><mi 
>M</mi><mi 
>n</mi></math>
est alors cr&#x00E9;&#x00E9;.
</p>
   <h3 class="sectionHead"><span class="titlemark">A.1. </span> <a 
  name="x1-44000A.1"></a>Le script <span 
class="ecti-1200">compile</span></h3>

   <table width="100%" 
class="verbatim"><tr class="verbatim"><td 
class="verbatim"><div class="verbatim">
fort77&#x00A0;-c&#x00A0;-f&#x00A0;test.f
&#x00A0;<br />fort77&#x00A0;-c&#x00A0;big_prog_ARMA22.f
&#x00A0;<br />fort77&#x00A0;-c&#x00A0;big_prog_ARMA21.f
&#x00A0;<br />fort77&#x00A0;-c&#x00A0;big_prog_ARMA12.f
&#x00A0;<br />fort77&#x00A0;-c&#x00A0;big_prog_ARMA11.f
&#x00A0;<br />fort77&#x00A0;-c&#x00A0;big_prog_AR2.f
&#x00A0;<br />fort77&#x00A0;-c&#x00A0;big_prog_AR1.f
&#x00A0;<br />fort77&#x00A0;-c&#x00A0;big_prog_MA2.f
&#x00A0;<br />fort77&#x00A0;-c&#x00A0;big_prog_MA1.f
&#x00A0;<br />fort77&#x00A0;-c&#x00A0;big_prog_ARMA00.f
&#x00A0;<br />f77&#x00A0;test.o&#x00A0;-lnag
&#x00A0;<br />f77&#x00A0;-o&#x00A0;ARMA22.out&#x00A0;big_prog_ARMA22.o&#x00A0;-lnag
&#x00A0;<br />f77&#x00A0;-o&#x00A0;ARMA21.out&#x00A0;big_prog_ARMA21.o&#x00A0;-lnag
&#x00A0;<br />f77&#x00A0;-o&#x00A0;ARMA12.out&#x00A0;big_prog_ARMA12.o&#x00A0;-lnag
&#x00A0;<br />f77&#x00A0;-o&#x00A0;ARMA11.out&#x00A0;big_prog_ARMA11.o&#x00A0;-lnag
&#x00A0;<br />f77&#x00A0;-o&#x00A0;AR2.out&#x00A0;big_prog_AR2.o&#x00A0;-lnag
&#x00A0;<br />f77&#x00A0;-o&#x00A0;AR1.out&#x00A0;big_prog_AR1.o&#x00A0;-lnag
&#x00A0;<br />f77&#x00A0;-o&#x00A0;MA2.out&#x00A0;big_prog_MA2.o&#x00A0;-lnag
&#x00A0;<br />f77&#x00A0;-o&#x00A0;MA1.out&#x00A0;big_prog_MA1.o&#x00A0;-lnag
&#x00A0;<br />f77&#x00A0;-o&#x00A0;ARMA00.out&#x00A0;big_prog_ARMA00.o&#x00A0;-lnag
&#x00A0;<br />rm&#x00A0;-f&#x00A0;*.o</div>
</td></tr></table>
   <h3 class="sectionHead"><span class="titlemark">A.2. </span> <a 
  name="x1-45000A.2"></a>Liste des diff&#x00E9;rents programmes</h3>
   <div class="verbatiminput">
<span 
class="ectt-0800">Polyn</span><span 
class="ectt-0800">&#x00F4;</span><span 
class="ectt-0800">mes</span>&#x00A0;<span 
class="ectt-0800">de</span>&#x00A0;<span 
class="ectt-0800">Legendre:</span>
&#x00A0;<br /><span 
class="ectt-0800">--&#x003E;H1.f</span>
&#x00A0;<br /><span 
class="ectt-0800">--&#x003E;H2.f</span>
&#x00A0;<br /><span 
class="ectt-0800">--&#x003E;H3.f</span>
&#x00A0;<br /><span 
class="ectt-0800">--&#x003E;H4.f</span>
&#x00A0;<br /><span 
class="ectt-0800">--&#x003E;H5.f</span>
&#x00A0;<br /><span 
class="ectt-0800">--&#x003E;H6.f</span>
&#x00A0;<br /><span 
class="ectt-0800">--&#x003E;H7.f</span>
&#x00A0;<br /><span 
class="ectt-0800">--&#x003E;H8.f</span>
&#x00A0;<br /><span 
class="ectt-0800">--&#x003E;H9.f</span>
&#x00A0;<br /><span 
class="ectt-0800">--&#x003E;H10.f</span>
&#x00A0;<br /><span 
class="ectt-0800">Polyn</span><span 
class="ectt-0800">&#x00F4;</span><span 
class="ectt-0800">mes</span>&#x00A0;<span 
class="ectt-0800">de</span>&#x00A0;<span 
class="ectt-0800">Legendre</span>&#x00A0;<span 
class="ectt-0800">modifi</span><span 
class="ectt-0800">&#x00E9;</span><span 
class="ectt-0800">s</span>&#x00A0;<span 
class="ectt-0800">(sans</span>&#x00A0;<span 
class="ectt-0800">les</span>&#x00A0;<span 
class="ectt-0800">ak):</span>
&#x00A0;<br /><span 
class="ectt-0800">--&#x003E;H1etoile.f</span>
&#x00A0;<br /><span 
class="ectt-0800">--&#x003E;H2etoile.f</span>
&#x00A0;<br /><span 
class="ectt-0800">--&#x003E;H3etoile.f</span>
&#x00A0;<br /><span 
class="ectt-0800">--&#x003E;H4etoile.f</span>
&#x00A0;<br /><span 
class="ectt-0800">--&#x003E;H5etoile.f</span>
&#x00A0;<br /><span 
class="ectt-0800">--&#x003E;H6etoile.f</span>
&#x00A0;<br /><span 
class="ectt-0800">--&#x003E;H7etoile.f</span>
&#x00A0;<br /><span 
class="ectt-0800">--&#x003E;H8etoile.f</span>
&#x00A0;<br /><span 
class="ectt-0800">--&#x003E;H9etoile.f</span>
&#x00A0;<br /><span 
class="ectt-0800">--&#x003E;H10etoile.f</span>
&#x00A0;<br /><span 
class="ectt-0800">Polyn</span><span 
class="ectt-0800">&#x00F4;</span><span 
class="ectt-0800">mes</span>&#x00A0;<span 
class="ectt-0800">de</span>&#x00A0;<span 
class="ectt-0800">Legendre</span>&#x00A0;<span 
class="ectt-0800">modifi</span><span 
class="ectt-0800">&#x00E9;</span><span 
class="ectt-0800">s</span>&#x00A0;<span 
class="ectt-0800">(avec</span>&#x00A0;<span 
class="ectt-0800">les</span>&#x00A0;<span 
class="ectt-0800">ak):</span>
&#x00A0;<br /><span 
class="ectt-0800">--&#x003E;H1isa.f</span>
&#x00A0;<br /><span 
class="ectt-0800">--&#x003E;H2isa.f</span>
&#x00A0;<br /><span 
class="ectt-0800">--&#x003E;H3isa.f</span>
&#x00A0;<br /><span 
class="ectt-0800">--&#x003E;H4isa.f</span>
&#x00A0;<br /><span 
class="ectt-0800">--&#x003E;H5isa.f</span>

&#x00A0;<br /><span 
class="ectt-0800">--&#x003E;H6isa.f</span>
&#x00A0;<br /><span 
class="ectt-0800">--&#x003E;H7isa.f</span>
&#x00A0;<br /><span 
class="ectt-0800">--&#x003E;H8isa.f</span>
&#x00A0;<br /><span 
class="ectt-0800">--&#x003E;H9isa.f</span>
&#x00A0;<br /><span 
class="ectt-0800">--&#x003E;H10isa.f</span>
&#x00A0;<br /><span 
class="ectt-0800">Calcul</span>&#x00A0;<span 
class="ectt-0800">des</span>&#x00A0;<span 
class="ectt-0800">psi(i)</span>&#x00A0;<span 
class="ectt-0800">comme</span>&#x00A0;<span 
class="ectt-0800">dans</span>&#x00A0;<span 
class="ectt-0800">l&#x2019;article</span>&#x00A0;<span 
class="ectt-0800">de</span>&#x00A0;<span 
class="ectt-0800">Burn:</span>
&#x00A0;<br /><span 
class="ectt-0800">--&#x003E;ARpsi.f</span>
&#x00A0;<br /><span 
class="ectt-0800">--&#x003E;MApsi.f</span>
&#x00A0;<br /><span 
class="ectt-0800">--&#x003E;ARMpsi.f</span>
&#x00A0;<br /><span 
class="ectt-0800">Calcule</span>&#x00A0;<span 
class="ectt-0800">la</span>&#x00A0;<span 
class="ectt-0800">densit</span><span 
class="ectt-0800">&#x00E9;</span>&#x00A0;<span 
class="ectt-0800">d&#x2019;un</span>&#x00A0;<span 
class="ectt-0800">&#x00E9;</span><span 
class="ectt-0800">chantillon</span>&#x00A0;<span 
class="ectt-0800">pour</span>&#x00A0;<span 
class="ectt-0800">une</span>&#x00A0;<span 
class="ectt-0800">loi</span>&#x00A0;<span 
class="ectt-0800">de</span>&#x00A0;<span 
class="ectt-0800">Laplace:</span>
&#x00A0;<br /><span 
class="ectt-0800">--&#x003E;dlap.f</span>
&#x00A0;<br /><span 
class="ectt-0800">Calcule</span>&#x00A0;<span 
class="ectt-0800">la</span>&#x00A0;<span 
class="ectt-0800">densit</span><span 
class="ectt-0800">&#x00E9;</span>&#x00A0;<span 
class="ectt-0800">d&#x2019;un</span>&#x00A0;<span 
class="ectt-0800">&#x00E9;</span><span 
class="ectt-0800">chantillon</span>&#x00A0;<span 
class="ectt-0800">pour</span>&#x00A0;<span 
class="ectt-0800">une</span>&#x00A0;<span 
class="ectt-0800">loi</span>&#x00A0;<span 
class="ectt-0800">Normale:</span>
&#x00A0;<br /><span 
class="ectt-0800">--&#x003E;dnorm.f</span>
&#x00A0;<br /><span 
class="ectt-0800">Calcule</span>&#x00A0;<span 
class="ectt-0800">la</span>&#x00A0;<span 
class="ectt-0800">densit</span><span 
class="ectt-0800">&#x00E9;</span>&#x00A0;<span 
class="ectt-0800">d&#x2019;un</span>&#x00A0;<span 
class="ectt-0800">&#x00E9;</span><span 
class="ectt-0800">chantillon</span>&#x00A0;<span 
class="ectt-0800">pour</span>&#x00A0;<span 
class="ectt-0800">une</span>&#x00A0;<span 
class="ectt-0800">loi</span>&#x00A0;<span 
class="ectt-0800">Skew-Normale:</span>
&#x00A0;<br /><span 
class="ectt-0800">--&#x003E;dskew.f</span>
&#x00A0;<br /><span 
class="ectt-0800">Calcule</span>&#x00A0;<span 
class="ectt-0800">le</span>&#x00A0;<span 
class="ectt-0800">maximum</span>&#x00A0;<span 
class="ectt-0800">d&#x2019;un</span>&#x00A0;<span 
class="ectt-0800">vecteur:</span>
&#x00A0;<br /><span 
class="ectt-0800">--&#x003E;max.f</span>
&#x00A0;<br /><span 
class="ectt-0800">Calcule</span>&#x00A0;<span 
class="ectt-0800">la</span>&#x00A0;<span 
class="ectt-0800">moyenne</span>&#x00A0;<span 
class="ectt-0800">d&#x2019;un</span>&#x00A0;<span 
class="ectt-0800">vecteur:</span>
&#x00A0;<br /><span 
class="ectt-0800">--&#x003E;mean.f</span>
&#x00A0;<br /><span 
class="ectt-0800">Calcule</span>&#x00A0;<span 
class="ectt-0800">le</span>&#x00A0;<span 
class="ectt-0800">minimum</span>&#x00A0;<span 
class="ectt-0800">d&#x2019;un</span>&#x00A0;<span 
class="ectt-0800">vecteur:</span>
&#x00A0;<br /><span 
class="ectt-0800">--&#x003E;min.f</span>
&#x00A0;<br /><span 
class="ectt-0800">Calcule</span>&#x00A0;<span 
class="ectt-0800">les</span>&#x00A0;<span 
class="ectt-0800">probabilit</span><span 
class="ectt-0800">&#x00E9;</span><span 
class="ectt-0800">s</span>&#x00A0;<span 
class="ectt-0800">d&#x2019;une</span>&#x00A0;<span 
class="ectt-0800">loi</span>&#x00A0;<span 
class="ectt-0800">Normale(mu,sigma)</span>&#x00A0;<span 
class="ectt-0800">aux</span>&#x00A0;<span 
class="ectt-0800">points</span>&#x00A0;<span 
class="ectt-0800">d&#x2019;un</span>&#x00A0;&#x00A0;<span 
class="ectt-0800">vecteur:</span>
&#x00A0;<br /><span 
class="ectt-0800">--&#x003E;pnorm.f</span>
&#x00A0;<br /><span 
class="ectt-0800">Calcule</span>&#x00A0;<span 
class="ectt-0800">les</span>&#x00A0;<span 
class="ectt-0800">quantiles</span>&#x00A0;<span 
class="ectt-0800">d&#x2019;une</span>&#x00A0;<span 
class="ectt-0800">loi</span>&#x00A0;<span 
class="ectt-0800">Normale(mu,sigma&#x0302;2):</span>
&#x00A0;<br /><span 
class="ectt-0800">--&#x003E;qnorm.f</span>
&#x00A0;<br /><span 
class="ectt-0800">Simulation</span>&#x00A0;<span 
class="ectt-0800">d&#x2019;un</span>&#x00A0;<span 
class="ectt-0800">&#x00E9;</span><span 
class="ectt-0800">chantillon</span>&#x00A0;<span 
class="ectt-0800">d&#x2019;une</span>&#x00A0;<span 
class="ectt-0800">loi</span>&#x00A0;<span 
class="ectt-0800">de</span>&#x00A0;<span 
class="ectt-0800">Laplace:</span>
&#x00A0;<br /><span 
class="ectt-0800">--&#x003E;rlap.f</span>
&#x00A0;<br /><span 
class="ectt-0800">Simulation</span>&#x00A0;<span 
class="ectt-0800">d&#x2019;un</span>&#x00A0;<span 
class="ectt-0800">&#x00E9;</span><span 
class="ectt-0800">chantillon</span>&#x00A0;<span 
class="ectt-0800">d&#x2019;une</span>&#x00A0;<span 
class="ectt-0800">loi</span>&#x00A0;<span 
class="ectt-0800">Skew-Normale:</span>
&#x00A0;<br /><span 
class="ectt-0800">--&#x003E;rlap.f</span>
&#x00A0;<br /><span 
class="ectt-0800">Ce</span>&#x00A0;<span 
class="ectt-0800">programme</span>&#x00A0;<span 
class="ectt-0800">r</span><span 
class="ectt-0800">&#x00E9;</span><span 
class="ectt-0800">alise</span>&#x00A0;<span 
class="ectt-0800">la</span>&#x00A0;<span 
class="ectt-0800">partie</span>&#x00A0;<span 
class="ectt-0800">Initialisation</span>&#x00A0;<span 
class="ectt-0800">Algoritm</span>&#x00A0;<span 
class="ectt-0800">1,</span>&#x00A0;<span 
class="ectt-0800">de</span>&#x00A0;<span 
class="ectt-0800">l&#x2019;article</span>&#x00A0;<span 
class="ectt-0800">de</span>&#x00A0;<span 
class="ectt-0800">Burn</span>
&#x00A0;<br /><span 
class="ectt-0800">Cette</span>&#x00A0;<span 
class="ectt-0800">sous-routine</span>&#x00A0;<span 
class="ectt-0800">remplace</span>&#x00A0;<span 
class="ectt-0800">le</span>&#x00A0;<span 
class="ectt-0800">vecteur</span>&#x00A0;<span 
class="ectt-0800">Wtip</span>&#x00A0;<span 
class="ectt-0800">en</span>&#x00A0;<span 
class="ectt-0800">entr</span><span 
class="ectt-0800">&#x00E9;</span><span 
class="ectt-0800">e</span>&#x00A0;<span 
class="ectt-0800">par</span>&#x00A0;<span 
class="ectt-0800">p</span>&#x00A0;<span 
class="ectt-0800">donn</span><span 
class="ectt-0800">&#x00E9;</span><span 
class="ectt-0800">es</span>
&#x00A0;<br /><span 
class="ectt-0800">simul</span><span 
class="ectt-0800">&#x00E9;</span><span 
class="ectt-0800">es</span>
&#x00A0;<br /><span 
class="ectt-0800">d&#x2019;un</span>&#x00A0;<span 
class="ectt-0800">mod</span><span 
class="ectt-0800">&#x00E8;</span><span 
class="ectt-0800">le</span>&#x00A0;<span 
class="ectt-0800">ARMA(p,q)</span>
&#x00A0;<br /><span 
class="ectt-0800">de</span>&#x00A0;<span 
class="ectt-0800">vecteur</span>&#x00A0;<span 
class="ectt-0800">d&#x2019;innovations</span>&#x00A0;<span 
class="ectt-0800">de</span>&#x00A0;<span 
class="ectt-0800">loi</span>&#x00A0;<span 
class="ectt-0800">donn</span><span 
class="ectt-0800">&#x00E9;</span><span 
class="ectt-0800">e</span>&#x00A0;<span 
class="ectt-0800">par</span>&#x00A0;<span 
class="ectt-0800">l&#x2019;entier</span>&#x00A0;<span 
class="ectt-0800">loi</span>
&#x00A0;<br /><span 
class="ectt-0800">elle</span>&#x00A0;<span 
class="ectt-0800">renvoie</span>&#x00A0;<span 
class="ectt-0800">aussi</span>&#x00A0;<span 
class="ectt-0800">le</span>&#x00A0;<span 
class="ectt-0800">vecteur</span>&#x00A0;<span 
class="ectt-0800">shocks</span>&#x00A0;<span 
class="ectt-0800">des</span>&#x00A0;<span 
class="ectt-0800">marret+p</span>&#x00A0;<span 
class="ectt-0800">innovations</span>&#x00A0;<span 
class="ectt-0800">utilis</span><span 
class="ectt-0800">&#x00E9;</span><span 
class="ectt-0800">es:</span>
&#x00A0;<br /><span 
class="ectt-0800">--&#x003E;shock.f</span>
&#x00A0;<br /><span 
class="ectt-0800">Calcule</span>&#x00A0;<span 
class="ectt-0800">la</span>&#x00A0;<span 
class="ectt-0800">variance</span>&#x00A0;<span 
class="ectt-0800">d&#x2019;un</span>&#x00A0;<span 
class="ectt-0800">vecteur:</span>
&#x00A0;<br /><span 
class="ectt-0800">--&#x003E;var.f</span>
&#x00A0;<br /><span 
class="ectt-0800">Ce</span>&#x00A0;<span 
class="ectt-0800">programme</span>&#x00A0;<span 
class="ectt-0800">r</span><span 
class="ectt-0800">&#x00E9;</span><span 
class="ectt-0800">alise</span>&#x00A0;<span 
class="ectt-0800">les</span>&#x00A0;<span 
class="ectt-0800">&#x00E9;</span><span 
class="ectt-0800">tapes</span>&#x00A0;<span 
class="ectt-0800">2</span>&#x00A0;<span 
class="ectt-0800">et</span>&#x00A0;<span 
class="ectt-0800">3</span>&#x00A0;<span 
class="ectt-0800">de</span>&#x00A0;<span 
class="ectt-0800">Simulation</span>&#x00A0;<span 
class="ectt-0800">Algorithm</span>&#x00A0;<span 
class="ectt-0800">1,</span>&#x00A0;<span 
class="ectt-0800">de</span>&#x00A0;<span 
class="ectt-0800">l&#x2019;article</span>&#x00A0;<span 
class="ectt-0800">de</span>&#x00A0;<span 
class="ectt-0800">Burn</span>
&#x00A0;<br /><span 
class="ectt-0800">Cette</span>&#x00A0;<span 
class="ectt-0800">sous-routine</span>&#x00A0;<span 
class="ectt-0800">remplace</span>&#x00A0;<span 
class="ectt-0800">le</span>&#x00A0;<span 
class="ectt-0800">vecteur</span>&#x00A0;<span 
class="ectt-0800">YtpMn</span>&#x00A0;<span 
class="ectt-0800">en</span>&#x00A0;<span 
class="ectt-0800">entr</span><span 
class="ectt-0800">&#x00E9;</span><span 
class="ectt-0800">e</span>&#x00A0;<span 
class="ectt-0800">par</span>&#x00A0;<span 
class="ectt-0800">p+M+n</span>&#x00A0;<span 
class="ectt-0800">donn</span><span 
class="ectt-0800">&#x00E9;</span><span 
class="ectt-0800">es</span>&#x00A0;<span 
class="ectt-0800">simul</span><span 
class="ectt-0800">&#x00E9;</span><span 
class="ectt-0800">es</span>
&#x00A0;<br /><span 
class="ectt-0800">d&#x2019;un</span>&#x00A0;<span 
class="ectt-0800">mod</span><span 
class="ectt-0800">&#x00E8;</span><span 
class="ectt-0800">le</span>&#x00A0;<span 
class="ectt-0800">AR(p)</span>&#x00A0;<span 
class="ectt-0800">de</span>&#x00A0;<span 
class="ectt-0800">vecteur</span>&#x00A0;<span 
class="ectt-0800">d&#x2019;innovations</span>&#x00A0;<span 
class="ectt-0800">de</span>&#x00A0;<span 
class="ectt-0800">loi</span>&#x00A0;<span 
class="ectt-0800">donn</span><span 
class="ectt-0800">&#x00E9;</span><span 
class="ectt-0800">e</span>&#x00A0;<span 
class="ectt-0800">par</span>&#x00A0;<span 
class="ectt-0800">l&#x2019;entier</span>&#x00A0;<span 
class="ectt-0800">loi</span>&#x00A0;<span 
class="ectt-0800">,</span>
&#x00A0;<br /><span 
class="ectt-0800">les</span>&#x00A0;<span 
class="ectt-0800">p</span>&#x00A0;<span 
class="ectt-0800">premi</span><span 
class="ectt-0800">&#x00E8;</span><span 
class="ectt-0800">res</span>&#x00A0;<span 
class="ectt-0800">valeurs</span>&#x00A0;<span 
class="ectt-0800">sont</span>&#x00A0;<span 
class="ectt-0800">les</span>&#x00A0;<span 
class="ectt-0800">p</span>&#x00A0;<span 
class="ectt-0800">valeurs</span>&#x00A0;<span 
class="ectt-0800">initiales</span>&#x00A0;<span 
class="ectt-0800">de</span>&#x00A0;<span 
class="ectt-0800">l&#x2019;</span><span 
class="ectt-0800">&#x00E9;</span><span 
class="ectt-0800">tape</span>&#x00A0;<span 
class="ectt-0800">1</span>&#x00A0;<span 
class="ectt-0800">de</span>&#x00A0;<span 
class="ectt-0800">Burn,</span>
&#x00A0;<br /><span 
class="ectt-0800">les</span>&#x00A0;<span 
class="ectt-0800">M</span>&#x00A0;<span 
class="ectt-0800">valeurs</span>&#x00A0;<span 
class="ectt-0800">suivantes</span>&#x00A0;<span 
class="ectt-0800">sont</span>&#x00A0;<span 
class="ectt-0800">les</span>&#x00A0;<span 
class="ectt-0800">valeurs</span>&#x00A0;<span 
class="ectt-0800">&#x00E0;</span>&#x00A0;<span 
class="ectt-0800">&#x00E9;</span><span 
class="ectt-0800">carter</span>&#x00A0;<span 
class="ectt-0800">de</span>&#x00A0;<span 
class="ectt-0800">la</span>&#x00A0;<span 
class="ectt-0800">warm-up</span>
&#x00A0;<br /><span 
class="ectt-0800">period</span>&#x00A0;<span 
class="ectt-0800">de</span>
&#x00A0;<br /><span 
class="ectt-0800">longueur</span>&#x00A0;<span 
class="ectt-0800">Mind</span>
&#x00A0;<br /><span 
class="ectt-0800">donc</span>&#x00A0;<span 
class="ectt-0800">seules</span>&#x00A0;<span 
class="ectt-0800">les</span>&#x00A0;<span 
class="ectt-0800">n</span>&#x00A0;<span 
class="ectt-0800">derni</span><span 
class="ectt-0800">&#x00E8;</span><span 
class="ectt-0800">res</span>&#x00A0;<span 
class="ectt-0800">valeurs</span>&#x00A0;<span 
class="ectt-0800">devront</span>&#x00A0;<span 
class="ectt-0800">&#x00EA;</span><span 
class="ectt-0800">tre</span>&#x00A0;<span 
class="ectt-0800">conserv</span><span 
class="ectt-0800">&#x00E9;</span><span 
class="ectt-0800">es</span>&#x00A0;<span 
class="ectt-0800">pour</span>&#x00A0;<span 
class="ectt-0800">la</span>
&#x00A0;<br /><span 
class="ectt-0800">suite</span>&#x00A0;<span 
class="ectt-0800">de</span>&#x00A0;<span 
class="ectt-0800">la</span>
&#x00A0;<br /><span 
class="ectt-0800">simulation</span>
&#x00A0;<br /><span 
class="ectt-0800">elle</span>&#x00A0;<span 
class="ectt-0800">renvoie</span>&#x00A0;<span 
class="ectt-0800">aussi</span>&#x00A0;<span 
class="ectt-0800">le</span>&#x00A0;<span 
class="ectt-0800">vecteur</span>&#x00A0;<span 
class="ectt-0800">shocks</span>&#x00A0;<span 
class="ectt-0800">des</span>&#x00A0;<span 
class="ectt-0800">marret+p</span>&#x00A0;<span 
class="ectt-0800">innovations</span>
&#x00A0;<br /><span 
class="ectt-0800">utilis</span><span 
class="ectt-0800">&#x00E9;</span><span 
class="ectt-0800">es</span>&#x00A0;<span 
class="ectt-0800">dans</span>
&#x00A0;<br /><span 
class="ectt-0800">l&#x2019;algorithme</span>
&#x00A0;<br /><span 
class="ectt-0800">Initialisation</span>&#x00A0;<span 
class="ectt-0800">1</span>&#x00A0;<span 
class="ectt-0800">de</span>&#x00A0;<span 
class="ectt-0800">Burn,</span>&#x00A0;<span 
class="ectt-0800">ainsi</span>&#x00A0;<span 
class="ectt-0800">que</span>&#x00A0;<span 
class="ectt-0800">le</span>&#x00A0;<span 
class="ectt-0800">vecteur</span>&#x00A0;<span 
class="ectt-0800">Atn</span>&#x00A0;<span 
class="ectt-0800">des</span>&#x00A0;<span 
class="ectt-0800">n+Mind</span>&#x00A0;<span 
class="ectt-0800">random</span>
&#x00A0;<br /><span 
class="ectt-0800">shocks</span>&#x00A0;<span 
class="ectt-0800">At</span>&#x00A0;<span 
class="ectt-0800">de</span>
&#x00A0;<br /><span 
class="ectt-0800">l&#x2019;</span><span 
class="ectt-0800">&#x00E9;</span><span 
class="ectt-0800">tape</span>&#x00A0;<span 
class="ectt-0800">2</span>&#x00A0;<span 
class="ectt-0800">de</span>&#x00A0;<span 
class="ectt-0800">Burn.</span>
&#x00A0;<br /><span 
class="ectt-0800">--&#x003E;simulAR.f</span>
&#x00A0;<br /><span 
class="ectt-0800">Ce</span>&#x00A0;<span 
class="ectt-0800">programme</span>&#x00A0;<span 
class="ectt-0800">r</span><span 
class="ectt-0800">&#x00E9;</span><span 
class="ectt-0800">alise</span>&#x00A0;<span 
class="ectt-0800">les</span>&#x00A0;<span 
class="ectt-0800">&#x00E9;</span><span 
class="ectt-0800">tapes</span>&#x00A0;<span 
class="ectt-0800">2</span>&#x00A0;<span 
class="ectt-0800">et</span>&#x00A0;<span 
class="ectt-0800">3</span>&#x00A0;<span 
class="ectt-0800">de</span>&#x00A0;<span 
class="ectt-0800">Simulation</span>&#x00A0;<span 
class="ectt-0800">Algorithm</span>&#x00A0;<span 
class="ectt-0800">1,</span>&#x00A0;<span 
class="ectt-0800">de</span>&#x00A0;<span 
class="ectt-0800">l&#x2019;article</span>&#x00A0;<span 
class="ectt-0800">de</span>&#x00A0;<span 
class="ectt-0800">Burn</span>
&#x00A0;<br /><span 
class="ectt-0800">Cette</span>&#x00A0;<span 
class="ectt-0800">sous-routine</span>&#x00A0;<span 
class="ectt-0800">remplace</span>&#x00A0;<span 
class="ectt-0800">le</span>&#x00A0;<span 
class="ectt-0800">vecteur</span>&#x00A0;<span 
class="ectt-0800">YtpMn</span>&#x00A0;<span 
class="ectt-0800">en</span>&#x00A0;<span 
class="ectt-0800">entr</span><span 
class="ectt-0800">&#x00E9;</span><span 
class="ectt-0800">e</span>&#x00A0;<span 
class="ectt-0800">par</span>&#x00A0;<span 
class="ectt-0800">p+Mind+n</span>&#x00A0;<span 
class="ectt-0800">donn</span><span 
class="ectt-0800">&#x00E9;</span><span 
class="ectt-0800">es</span>&#x00A0;<span 
class="ectt-0800">simul</span><span 
class="ectt-0800">&#x00E9;</span><span 
class="ectt-0800">es</span>
&#x00A0;<br /><span 
class="ectt-0800">d&#x2019;un</span>&#x00A0;<span 
class="ectt-0800">mod</span><span 
class="ectt-0800">&#x00E8;</span><span 
class="ectt-0800">le</span>&#x00A0;<span 
class="ectt-0800">ARMA(p,q)</span>&#x00A0;<span 
class="ectt-0800">de</span>&#x00A0;<span 
class="ectt-0800">vecteur</span>&#x00A0;<span 
class="ectt-0800">d&#x2019;innovations</span>&#x00A0;<span 
class="ectt-0800">de</span>&#x00A0;<span 
class="ectt-0800">loi</span>&#x00A0;<span 
class="ectt-0800">donn</span><span 
class="ectt-0800">&#x00E9;</span><span 
class="ectt-0800">e</span>&#x00A0;<span 
class="ectt-0800">par</span>&#x00A0;<span 
class="ectt-0800">l&#x2019;entier</span>&#x00A0;<span 
class="ectt-0800">loi</span>&#x00A0;<span 
class="ectt-0800">,</span>
&#x00A0;<br /><span 
class="ectt-0800">les</span>&#x00A0;<span 
class="ectt-0800">p</span>&#x00A0;<span 
class="ectt-0800">premi</span><span 
class="ectt-0800">&#x00E8;</span><span 
class="ectt-0800">res</span>&#x00A0;<span 
class="ectt-0800">valeurs</span>&#x00A0;<span 
class="ectt-0800">sont</span>&#x00A0;<span 
class="ectt-0800">les</span>&#x00A0;<span 
class="ectt-0800">p</span>&#x00A0;<span 
class="ectt-0800">valeurs</span>&#x00A0;<span 
class="ectt-0800">initiales</span>&#x00A0;<span 
class="ectt-0800">de</span>&#x00A0;<span 
class="ectt-0800">l&#x2019;</span><span 
class="ectt-0800">&#x00E9;</span><span 
class="ectt-0800">tape</span>&#x00A0;<span 
class="ectt-0800">1</span>&#x00A0;<span 
class="ectt-0800">de</span>&#x00A0;<span 
class="ectt-0800">Burn,</span>
&#x00A0;<br /><span 
class="ectt-0800">les</span>&#x00A0;<span 
class="ectt-0800">Mind</span>&#x00A0;<span 
class="ectt-0800">valeurs</span>&#x00A0;<span 
class="ectt-0800">suivantes</span>&#x00A0;<span 
class="ectt-0800">sont</span>&#x00A0;<span 
class="ectt-0800">les</span>&#x00A0;<span 
class="ectt-0800">valeurs</span>&#x00A0;<span 
class="ectt-0800">&#x00E0;</span>&#x00A0;<span 
class="ectt-0800">&#x00E9;</span><span 
class="ectt-0800">carter</span>&#x00A0;<span 
class="ectt-0800">de</span>&#x00A0;<span 
class="ectt-0800">la</span>&#x00A0;<span 
class="ectt-0800">warm-up</span>&#x00A0;<span 
class="ectt-0800">period</span>&#x00A0;<span 
class="ectt-0800">de</span>

&#x00A0;<br /><span 
class="ectt-0800">longueur</span>&#x00A0;<span 
class="ectt-0800">Mind</span>
&#x00A0;<br /><span 
class="ectt-0800">donc</span>&#x00A0;<span 
class="ectt-0800">seules</span>&#x00A0;<span 
class="ectt-0800">les</span>&#x00A0;<span 
class="ectt-0800">n</span>&#x00A0;<span 
class="ectt-0800">derni</span><span 
class="ectt-0800">&#x00E8;</span><span 
class="ectt-0800">res</span>&#x00A0;<span 
class="ectt-0800">valeurs</span>&#x00A0;<span 
class="ectt-0800">devront</span>&#x00A0;<span 
class="ectt-0800">&#x00EA;</span><span 
class="ectt-0800">tre</span>&#x00A0;<span 
class="ectt-0800">conserv</span><span 
class="ectt-0800">&#x00E9;</span><span 
class="ectt-0800">es</span>&#x00A0;<span 
class="ectt-0800">pour</span>&#x00A0;<span 
class="ectt-0800">la</span>
&#x00A0;<br /><span 
class="ectt-0800">suite</span>&#x00A0;<span 
class="ectt-0800">de</span>&#x00A0;<span 
class="ectt-0800">la</span>&#x00A0;<span 
class="ectt-0800">simulation</span>
&#x00A0;<br /><span 
class="ectt-0800">elle</span>&#x00A0;<span 
class="ectt-0800">renvoie</span>&#x00A0;<span 
class="ectt-0800">aussi</span>&#x00A0;<span 
class="ectt-0800">le</span>&#x00A0;<span 
class="ectt-0800">vecteur</span>&#x00A0;<span 
class="ectt-0800">shocks</span>&#x00A0;<span 
class="ectt-0800">des</span>&#x00A0;<span 
class="ectt-0800">marret+p</span>&#x00A0;<span 
class="ectt-0800">innovations</span>
&#x00A0;<br /><span 
class="ectt-0800">utilis</span><span 
class="ectt-0800">&#x00E9;</span><span 
class="ectt-0800">es</span>&#x00A0;<span 
class="ectt-0800">dans</span>&#x00A0;<span 
class="ectt-0800">l&#x2019;algorithme</span>
&#x00A0;<br /><span 
class="ectt-0800">Initialisation</span>&#x00A0;<span 
class="ectt-0800">1</span>&#x00A0;<span 
class="ectt-0800">de</span>&#x00A0;<span 
class="ectt-0800">Burn,</span>&#x00A0;<span 
class="ectt-0800">ainsi</span>&#x00A0;<span 
class="ectt-0800">que</span>&#x00A0;<span 
class="ectt-0800">le</span>&#x00A0;<span 
class="ectt-0800">vecteur</span>&#x00A0;<span 
class="ectt-0800">Atnq</span>&#x00A0;<span 
class="ectt-0800">des</span>&#x00A0;<span 
class="ectt-0800">n+Mind+q</span>
&#x00A0;<br /><span 
class="ectt-0800">random</span>&#x00A0;<span 
class="ectt-0800">shocks</span>&#x00A0;<span 
class="ectt-0800">At</span>&#x00A0;<span 
class="ectt-0800">de</span>&#x00A0;<span 
class="ectt-0800">l&#x2019;</span><span 
class="ectt-0800">&#x00E9;</span><span 
class="ectt-0800">tape</span>&#x00A0;<span 
class="ectt-0800">2</span>&#x00A0;<span 
class="ectt-0800">de</span>&#x00A0;<span 
class="ectt-0800">Burn.</span>
&#x00A0;<br /><span 
class="ectt-0800">--&#x003E;simulARMA.f</span>
&#x00A0;<br /><span 
class="ectt-0800">Ce</span>&#x00A0;<span 
class="ectt-0800">programme</span>&#x00A0;<span 
class="ectt-0800">r</span><span 
class="ectt-0800">&#x00E9;</span><span 
class="ectt-0800">alise</span>&#x00A0;<span 
class="ectt-0800">les</span>&#x00A0;<span 
class="ectt-0800">&#x00E9;</span><span 
class="ectt-0800">tapes</span>&#x00A0;<span 
class="ectt-0800">2</span>&#x00A0;<span 
class="ectt-0800">et</span>&#x00A0;<span 
class="ectt-0800">3</span>&#x00A0;<span 
class="ectt-0800">de</span>&#x00A0;<span 
class="ectt-0800">Simulation</span>&#x00A0;<span 
class="ectt-0800">Algorithm</span>&#x00A0;<span 
class="ectt-0800">1,</span>&#x00A0;<span 
class="ectt-0800">de</span>&#x00A0;<span 
class="ectt-0800">l&#x2019;article</span>&#x00A0;<span 
class="ectt-0800">de</span>&#x00A0;<span 
class="ectt-0800">Burn</span>
&#x00A0;<br /><span 
class="ectt-0800">Cette</span>&#x00A0;<span 
class="ectt-0800">sous-routine</span>&#x00A0;<span 
class="ectt-0800">remplace</span>&#x00A0;<span 
class="ectt-0800">le</span>&#x00A0;<span 
class="ectt-0800">vecteur</span>&#x00A0;<span 
class="ectt-0800">YtMn</span>&#x00A0;<span 
class="ectt-0800">en</span>&#x00A0;<span 
class="ectt-0800">entr</span><span 
class="ectt-0800">&#x00E9;</span><span 
class="ectt-0800">e</span>&#x00A0;<span 
class="ectt-0800">par</span>&#x00A0;<span 
class="ectt-0800">M+n</span>&#x00A0;<span 
class="ectt-0800">donn</span><span 
class="ectt-0800">&#x00E9;</span><span 
class="ectt-0800">es</span>&#x00A0;<span 
class="ectt-0800">simul</span><span 
class="ectt-0800">&#x00E9;</span><span 
class="ectt-0800">es</span>
&#x00A0;<br /><span 
class="ectt-0800">d&#x2019;un</span>&#x00A0;<span 
class="ectt-0800">mod</span><span 
class="ectt-0800">&#x00E8;</span><span 
class="ectt-0800">le</span>&#x00A0;<span 
class="ectt-0800">MA(q)</span>&#x00A0;<span 
class="ectt-0800">de</span>&#x00A0;<span 
class="ectt-0800">vecteur</span>&#x00A0;<span 
class="ectt-0800">d&#x2019;innovations</span>&#x00A0;<span 
class="ectt-0800">de</span>&#x00A0;<span 
class="ectt-0800">loi</span>&#x00A0;<span 
class="ectt-0800">donn</span><span 
class="ectt-0800">&#x00E9;</span><span 
class="ectt-0800">e</span>&#x00A0;<span 
class="ectt-0800">par</span>&#x00A0;<span 
class="ectt-0800">l&#x2019;entier</span>&#x00A0;<span 
class="ectt-0800">loi</span>&#x00A0;<span 
class="ectt-0800">,</span>
&#x00A0;<br /><span 
class="ectt-0800">les</span>&#x00A0;<span 
class="ectt-0800">M</span>&#x00A0;<span 
class="ectt-0800">valeurs</span>&#x00A0;<span 
class="ectt-0800">suivantes</span>&#x00A0;<span 
class="ectt-0800">sont</span>&#x00A0;<span 
class="ectt-0800">les</span>&#x00A0;<span 
class="ectt-0800">valeurs</span>&#x00A0;<span 
class="ectt-0800">a</span>&#x00A0;<span 
class="ectt-0800">&#x00E9;</span><span 
class="ectt-0800">carter</span>&#x00A0;<span 
class="ectt-0800">de</span>&#x00A0;<span 
class="ectt-0800">la</span>&#x00A0;<span 
class="ectt-0800">warm-up</span>
&#x00A0;<br /><span 
class="ectt-0800">period</span>&#x00A0;<span 
class="ectt-0800">de</span>&#x00A0;<span 
class="ectt-0800">longueur</span>&#x00A0;<span 
class="ectt-0800">Mind</span>
&#x00A0;<br /><span 
class="ectt-0800">donc</span>&#x00A0;<span 
class="ectt-0800">seules</span>&#x00A0;<span 
class="ectt-0800">les</span>&#x00A0;<span 
class="ectt-0800">n</span>&#x00A0;<span 
class="ectt-0800">derni</span><span 
class="ectt-0800">&#x00E8;</span><span 
class="ectt-0800">res</span>&#x00A0;<span 
class="ectt-0800">valeurs</span>&#x00A0;<span 
class="ectt-0800">devront</span>&#x00A0;<span 
class="ectt-0800">&#x00EA;</span><span 
class="ectt-0800">tre</span>&#x00A0;<span 
class="ectt-0800">conserv</span><span 
class="ectt-0800">&#x00E9;</span><span 
class="ectt-0800">es</span>&#x00A0;<span 
class="ectt-0800">pour</span>&#x00A0;<span 
class="ectt-0800">la</span>
&#x00A0;<br /><span 
class="ectt-0800">suite</span>&#x00A0;<span 
class="ectt-0800">de</span>&#x00A0;<span 
class="ectt-0800">la</span>&#x00A0;<span 
class="ectt-0800">simulation</span>
&#x00A0;<br /><span 
class="ectt-0800">elle</span>&#x00A0;<span 
class="ectt-0800">renvoie</span>&#x00A0;<span 
class="ectt-0800">aussi</span>&#x00A0;<span 
class="ectt-0800">le</span>&#x00A0;<span 
class="ectt-0800">vecteur</span>&#x00A0;<span 
class="ectt-0800">Atnq</span>&#x00A0;<span 
class="ectt-0800">des</span>&#x00A0;<span 
class="ectt-0800">n+Mind+q</span>&#x00A0;<span 
class="ectt-0800">random</span>&#x00A0;<span 
class="ectt-0800">shocks</span>&#x00A0;<span 
class="ectt-0800">At</span>&#x00A0;<span 
class="ectt-0800">de</span>&#x00A0;<span 
class="ectt-0800">l&#x2019;</span><span 
class="ectt-0800">&#x00E9;</span><span 
class="ectt-0800">tape</span>&#x00A0;<span 
class="ectt-0800">2</span>&#x00A0;<span 
class="ectt-0800">de</span>&#x00A0;<span 
class="ectt-0800">Burn.</span>
&#x00A0;<br /><span 
class="ectt-0800">--&#x003E;simulMA.f</span>
&#x00A0;<br /><span 
class="ectt-0800">Id</span><span 
class="ectt-0800">&#x00E9;</span><span 
class="ectt-0800">e</span>&#x00A0;<span 
class="ectt-0800">de</span>&#x00A0;<span 
class="ectt-0800">ce</span>&#x00A0;&#x00A0;<span 
class="ectt-0800">programme:</span>
&#x00A0;<br /><span 
class="ectt-0800">&#x00C9;</span><span 
class="ectt-0800">tape1)</span>
&#x00A0;<br /><span 
class="ectt-0800">On</span>&#x00A0;<span 
class="ectt-0800">cr</span><span 
class="ectt-0800">&#x00E9;</span><span 
class="ectt-0800">e</span>&#x00A0;<span 
class="ectt-0800">un</span>&#x00A0;<span 
class="ectt-0800">fichier</span>&#x00A0;<span 
class="ectt-0800">de</span>&#x00A0;<span 
class="ectt-0800">donn</span><span 
class="ectt-0800">&#x00E9;</span><span 
class="ectt-0800">es</span>&#x00A0;<span 
class="ectt-0800">&#x2019;data.txt&#x2019;</span>&#x00A0;<span 
class="ectt-0800">en</span>&#x00A0;<span 
class="ectt-0800">utilisant</span>&#x00A0;<span 
class="ectt-0800">certaines</span>&#x00A0;<span 
class="ectt-0800">valeurs</span>&#x00A0;<span 
class="ectt-0800">de</span>&#x00A0;<span 
class="ectt-0800">param</span><span 
class="ectt-0800">&#x00E8;</span><span 
class="ectt-0800">tres</span>
&#x00A0;<br /><span 
class="ectt-0800">&#x00E0;</span>&#x00A0;<span 
class="ectt-0800">lire</span>&#x00A0;<span 
class="ectt-0800">dans</span>&#x00A0;<span 
class="ectt-0800">un</span>&#x00A0;<span 
class="ectt-0800">fichier</span>&#x00A0;<span 
class="ectt-0800">d&#x2019;entr</span><span 
class="ectt-0800">&#x00E9;</span><span 
class="ectt-0800">e</span>&#x00A0;<span 
class="ectt-0800">&#x2019;ftemp&#x2019;</span>&#x00A0;<span 
class="ectt-0800">cr</span><span 
class="ectt-0800">&#x00E9;</span><span 
class="ectt-0800">e</span>&#x00A0;<span 
class="ectt-0800">par</span>&#x00A0;<span 
class="ectt-0800">le</span>&#x00A0;<span 
class="ectt-0800">programme</span>&#x00A0;<span 
class="ectt-0800">test.f</span>&#x00A0;<span 
class="ectt-0800">&#x00E0;</span>&#x00A0;<span 
class="ectt-0800">l&#x2019;aide</span>&#x00A0;<span 
class="ectt-0800">du</span>
&#x00A0;<br /><span 
class="ectt-0800">fichier</span>&#x00A0;<span 
class="ectt-0800">&#x2019;paramentree&#x2019;,</span>&#x00A0;<span 
class="ectt-0800">on</span>&#x00A0;<span 
class="ectt-0800">stocke</span>&#x00A0;<span 
class="ectt-0800">les</span>&#x00A0;<span 
class="ectt-0800">r</span><span 
class="ectt-0800">&#x00E9;</span><span 
class="ectt-0800">sultats</span>&#x00A0;<span 
class="ectt-0800">autres</span>&#x00A0;<span 
class="ectt-0800">que</span>
&#x00A0;<br /><span 
class="ectt-0800">les</span>&#x00A0;<span 
class="ectt-0800">donn</span><span 
class="ectt-0800">&#x00E9;</span><span 
class="ectt-0800">es</span>&#x00A0;<span 
class="ectt-0800">dans</span>&#x00A0;<span 
class="ectt-0800">un</span>&#x00A0;<span 
class="ectt-0800">fichier</span>&#x00A0;<span 
class="ectt-0800">&#x2019;param.i&#x2019;</span>
&#x00A0;<br /><span 
class="ectt-0800">&#x00C9;</span><span 
class="ectt-0800">tape</span>&#x00A0;<span 
class="ectt-0800">2)</span>
&#x00A0;<br /><span 
class="ectt-0800">ensuite</span>&#x00A0;<span 
class="ectt-0800">on</span>&#x00A0;<span 
class="ectt-0800">utilise</span>&#x00A0;<span 
class="ectt-0800">le</span>&#x00A0;<span 
class="ectt-0800">fichier</span>&#x00A0;<span 
class="ectt-0800">&#x2019;data.txt&#x2019;</span>
&#x00A0;<br /><span 
class="ectt-0800">avec</span>&#x00A0;<span 
class="ectt-0800">le</span>&#x00A0;<span 
class="ectt-0800">programme</span>&#x00A0;<span 
class="ectt-0800">calcstat</span>&#x00A0;<span 
class="ectt-0800">pour</span>&#x00A0;<span 
class="ectt-0800">cr</span><span 
class="ectt-0800">&#x00E9;</span><span 
class="ectt-0800">er</span>&#x00A0;<span 
class="ectt-0800">le</span>&#x00A0;<span 
class="ectt-0800">fichier</span>&#x00A0;<span 
class="ectt-0800">des</span>&#x00A0;<span 
class="ectt-0800">statistiques</span>&#x00A0;<span 
class="ectt-0800">&#x2019;resultat.i&#x2019;</span>
&#x00A0;<br /><span 
class="ectt-0800">&#x00C9;</span><span 
class="ectt-0800">tape</span>&#x00A0;<span 
class="ectt-0800">3)</span>
&#x00A0;<br /><span 
class="ectt-0800">Ensuite,</span>&#x00A0;<span 
class="ectt-0800">on</span>&#x00A0;<span 
class="ectt-0800">efface</span>&#x00A0;<span 
class="ectt-0800">le</span>&#x00A0;<span 
class="ectt-0800">fichier</span>&#x00A0;<span 
class="ectt-0800">&#x2019;data.txt&#x2019;</span>
&#x00A0;<br /><span 
class="ectt-0800">--&#x003E;big_prog_AR1.f</span>
&#x00A0;<br /><span 
class="ectt-0800">--&#x003E;big_prog_AR2.f</span>
&#x00A0;<br /><span 
class="ectt-0800">--&#x003E;big_prog_MA1.f</span>
&#x00A0;<br /><span 
class="ectt-0800">--&#x003E;big_prog_MA2.f</span>
&#x00A0;<br /><span 
class="ectt-0800">--&#x003E;big_prog_ARMA11.f</span>
&#x00A0;<br /><span 
class="ectt-0800">--&#x003E;big_prog_ARMA12.f</span>
&#x00A0;<br /><span 
class="ectt-0800">--&#x003E;big_prog_ARMA21.f</span>
&#x00A0;<br /><span 
class="ectt-0800">--&#x003E;big_prog_ARMA22.f</span>
&#x00A0;<br /><span 
class="ectt-0800">Ce</span>&#x00A0;<span 
class="ectt-0800">programme</span>&#x00A0;<span 
class="ectt-0800">cr</span><span 
class="ectt-0800">&#x00E9;</span><span 
class="ectt-0800">e</span>&#x00A0;<span 
class="ectt-0800">le</span>&#x00A0;<span 
class="ectt-0800">fichier</span>&#x00A0;<span 
class="ectt-0800">de</span>&#x00A0;<span 
class="ectt-0800">donn</span><span 
class="ectt-0800">&#x00E9;</span><span 
class="ectt-0800">es</span>&#x00A0;<span 
class="ectt-0800">data.txt</span>&#x00A0;<span 
class="ectt-0800">qui</span>&#x00A0;<span 
class="ectt-0800">contient,</span>&#x00A0;<span 
class="ectt-0800">en</span>&#x00A0;<span 
class="ectt-0800">ligne:</span>
&#x00A0;<br /><span 
class="ectt-0800">sigch2</span>&#x00A0;<span 
class="ectt-0800">et</span>&#x00A0;<span 
class="ectt-0800">epschap:</span>
&#x00A0;<br /><span 
class="ectt-0800">--&#x003E;creerdat_ARMA.f</span>
&#x00A0;<br /><span 
class="ectt-0800">--&#x003E;creerdat_MA.f</span>
&#x00A0;<br /><span 
class="ectt-0800">--&#x003E;creerdat_AR.f</span>
&#x00A0;<br /><span 
class="ectt-0800">Id</span><span 
class="ectt-0800">&#x00E9;</span><span 
class="ectt-0800">e:</span>
&#x00A0;<br /><span 
class="ectt-0800">On</span>&#x00A0;<span 
class="ectt-0800">cr</span><span 
class="ectt-0800">&#x00E9;</span><span 
class="ectt-0800">e</span>&#x00A0;<span 
class="ectt-0800">un</span>&#x00A0;<span 
class="ectt-0800">fichier</span>&#x00A0;<span 
class="ectt-0800">ARMA22.out,</span>&#x00A0;<span 
class="ectt-0800">ARMA21.out,</span>&#x00A0;<span 
class="ectt-0800">ARMA12.out,</span>&#x00A0;<span 
class="ectt-0800">ARMA11.out,</span>
&#x00A0;<br /><span 
class="ectt-0800">AR2.out,</span>&#x00A0;<span 
class="ectt-0800">AR1.out,</span>&#x00A0;<span 
class="ectt-0800">MA2.out</span>&#x00A0;<span 
class="ectt-0800">et</span>&#x00A0;<span 
class="ectt-0800">MA1.out</span>&#x00A0;<span 
class="ectt-0800">qui</span>&#x00A0;<span 
class="ectt-0800">vont</span>&#x00A0;<span 
class="ectt-0800">lire</span>&#x00A0;<span 
class="ectt-0800">des</span>&#x00A0;<span 
class="ectt-0800">valeurs</span>&#x00A0;<span 
class="ectt-0800">de</span>&#x00A0;<span 
class="ectt-0800">p,q,phi,teta</span>&#x00A0;<span 
class="ectt-0800">et</span>&#x00A0;<span 
class="ectt-0800">loi</span>
&#x00A0;<br /><span 
class="ectt-0800">dans</span>&#x00A0;<span 
class="ectt-0800">le</span>&#x00A0;<span 
class="ectt-0800">fichier</span>&#x00A0;<span 
class="ectt-0800">param_entree(c&#x2019;est</span>&#x00A0;<span 
class="ectt-0800">big_prog_ARMA.f,</span>&#x00A0;<span 
class="ectt-0800">big_prog_AR.f,</span>
&#x00A0;<br /><span 
class="ectt-0800">big_prog_MA.f</span>&#x00A0;<span 
class="ectt-0800">compil</span><span 
class="ectt-0800">&#x00E9;</span><span 
class="ectt-0800">s</span>&#x00A0;<span 
class="ectt-0800">pour</span>
&#x00A0;<br /><span 
class="ectt-0800">diff</span><span 
class="ectt-0800">&#x00E9;</span><span 
class="ectt-0800">rentes</span>&#x00A0;<span 
class="ectt-0800">valeurs</span>&#x00A0;<span 
class="ectt-0800">de</span>&#x00A0;<span 
class="ectt-0800">p</span>&#x00A0;<span 
class="ectt-0800">et</span>&#x00A0;<span 
class="ectt-0800">q)</span>
&#x00A0;<br /><span 
class="ectt-0800">Par</span>&#x00A0;<span 
class="ectt-0800">exemple,</span>&#x00A0;<span 
class="ectt-0800">si</span>&#x00A0;<span 
class="ectt-0800">c&#x2019;est</span>&#x00A0;<span 
class="ectt-0800">MA2.out</span>&#x00A0;<span 
class="ectt-0800">il</span>&#x00A0;<span 
class="ectt-0800">laissera</span>&#x00A0;<span 
class="ectt-0800">tomber</span>&#x00A0;<span 
class="ectt-0800">la</span>&#x00A0;<span 
class="ectt-0800">valeur</span>&#x00A0;<span 
class="ectt-0800">de</span>&#x00A0;<span 
class="ectt-0800">p</span>&#x00A0;<span 
class="ectt-0800">et</span>&#x00A0;<span 
class="ectt-0800">phi.</span>
&#x00A0;<br /><span 
class="ectt-0800">Ensuite,</span>&#x00A0;<span 
class="ectt-0800">ce</span>&#x00A0;<span 
class="ectt-0800">programme</span>&#x00A0;<span 
class="ectt-0800">va</span>&#x00A0;<span 
class="ectt-0800">appeler</span>&#x00A0;<span 
class="ectt-0800">ces</span>&#x00A0;<span 
class="ectt-0800">diff</span><span 
class="ectt-0800">&#x00E9;</span><span 
class="ectt-0800">rents</span>&#x00A0;<span 
class="ectt-0800">fichier.out</span>&#x00A0;<span 
class="ectt-0800">successivement,</span>
&#x00A0;<br /><span 
class="ectt-0800">&#x00E0;</span>&#x00A0;<span 
class="ectt-0800">l&#x2019;aide</span>&#x00A0;<span 
class="ectt-0800">de</span>&#x00A0;<span 
class="ectt-0800">la</span>&#x00A0;<span 
class="ectt-0800">commande</span>&#x00A0;<span 
class="ectt-0800">&#x2019;shell&#x2019;</span>
&#x00A0;<br /><span 
class="ectt-0800">--&#x003E;test.f</span>
&#x00A0;<br />
   </div>
   <h3 class="sectionHead"><span class="titlemark">A.3. </span> <a 
  name="x1-46000A.3"></a>Moyennes et variances empiriques des diff&#x00E9;rentes lois</h3>
   <div class="verbatiminput">

<span 
class="ectt-0800">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-0800">loi</span>&#x00A0;<span 
class="ectt-0800">des</span>&#x00A0;<span 
class="ectt-0800">erreurs</span>
&#x00A0;<br /><span 
class="ectt-0800">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-0800">si</span>&#x00A0;<span 
class="ectt-0800">loi=0</span>&#x00A0;<span 
class="ectt-0800">:</span>&#x00A0;<span 
class="ectt-0800">Normale(0,sigma&#x0302;2)</span>
&#x00A0;<br /><span 
class="ectt-0800">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-0800">si</span>&#x00A0;<span 
class="ectt-0800">loi=1</span>&#x00A0;<span 
class="ectt-0800">:</span>&#x00A0;<span 
class="ectt-0800">Khi2</span>&#x00A0;<span 
class="ectt-0800">centr</span><span 
class="ectt-0800">&#x00E9;</span><span 
class="ectt-0800">e</span>&#x00A0;<span 
class="ectt-0800">(df1)</span>
&#x00A0;<br /><span 
class="ectt-0800">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-0800">si</span>&#x00A0;<span 
class="ectt-0800">loi=2</span>&#x00A0;<span 
class="ectt-0800">:</span>&#x00A0;<span 
class="ectt-0800">Student</span>&#x00A0;<span 
class="ectt-0800">(df2)</span>
&#x00A0;<br /><span 
class="ectt-0800">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-0800">si</span>&#x00A0;<span 
class="ectt-0800">loi=3</span>&#x00A0;<span 
class="ectt-0800">:</span>&#x00A0;<span 
class="ectt-0800">Skew-Normale(lambda)</span>
&#x00A0;<br /><span 
class="ectt-0800">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-0800">si</span>&#x00A0;<span 
class="ectt-0800">loi=4</span>&#x00A0;<span 
class="ectt-0800">:</span>&#x00A0;<span 
class="ectt-0800">Laplace</span>
&#x00A0;<br /><span 
class="ectt-0800">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-0800">si</span>&#x00A0;<span 
class="ectt-0800">loi=5</span>&#x00A0;<span 
class="ectt-0800">:</span>&#x00A0;<span 
class="ectt-0800">Weibull(b,k)</span>
&#x00A0;<br /><span 
class="ectt-0800">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-0800">si</span>&#x00A0;<span 
class="ectt-0800">loi=6</span>&#x00A0;<span 
class="ectt-0800">:</span>&#x00A0;<span 
class="ectt-0800">Gamma(p,q)</span>
&#x00A0;<br /><span 
class="ectt-0800">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-0800">si</span>&#x00A0;<span 
class="ectt-0800">loi=7</span>&#x00A0;<span 
class="ectt-0800">:</span>&#x00A0;<span 
class="ectt-0800">Log-Normale(g,d)</span>
&#x00A0;<br /><span 
class="ectt-0800">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-0800">si</span>&#x00A0;<span 
class="ectt-0800">loi=8</span>&#x00A0;<span 
class="ectt-0800">:</span>&#x00A0;<span 
class="ectt-0800">Beta(p,q)</span>
&#x00A0;<br /><span 
class="ectt-0800">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-0800">si</span>&#x00A0;<span 
class="ectt-0800">loi=9</span>&#x00A0;<span 
class="ectt-0800">:</span>&#x00A0;<span 
class="ectt-0800">Uniform(a,b)</span>
&#x00A0;<br /><span 
class="ectt-0800">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-0800">si</span>&#x00A0;<span 
class="ectt-0800">loi=10</span>&#x00A0;<span 
class="ectt-0800">:</span>&#x00A0;<span 
class="ectt-0800">Shifted</span>&#x00A0;<span 
class="ectt-0800">exp</span>&#x00A0;<span 
class="ectt-0800">(l,b)</span>
&#x00A0;<br /><span 
class="ectt-0800">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-0800">si</span>&#x00A0;<span 
class="ectt-0800">loi=11</span>&#x00A0;<span 
class="ectt-0800">:</span>&#x00A0;<span 
class="ectt-0800">Pareto(a,k)</span>
&#x00A0;<br /><span 
class="ectt-0800">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-0800">si</span>&#x00A0;<span 
class="ectt-0800">loi=12</span>&#x00A0;<span 
class="ectt-0800">:</span>&#x00A0;<span 
class="ectt-0800">Shifted</span>&#x00A0;<span 
class="ectt-0800">Pareto</span>
&#x00A0;<br /><span 
class="ectt-0800">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-0800">si</span>&#x00A0;<span 
class="ectt-0800">loi=13</span>&#x00A0;<span 
class="ectt-0800">:</span>&#x00A0;<span 
class="ectt-0800">SU(g,d)</span>
&#x00A0;<br /><span 
class="ectt-0800">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-0800">si</span>&#x00A0;<span 
class="ectt-0800">loi=14</span>&#x00A0;<span 
class="ectt-0800">:</span>&#x00A0;<span 
class="ectt-0800">TU(l)</span>
&#x00A0;<br /><span 
class="ectt-0800">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-0800">si</span>&#x00A0;<span 
class="ectt-0800">loi=15</span>&#x00A0;<span 
class="ectt-0800">:</span>&#x00A0;<span 
class="ectt-0800">Logistic</span>
&#x00A0;<br /><span 
class="ectt-0800">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-0800">si</span>&#x00A0;<span 
class="ectt-0800">loi=16</span>&#x00A0;<span 
class="ectt-0800">:</span>&#x00A0;<span 
class="ectt-0800">SC(p,d)</span>
&#x00A0;<br /><span 
class="ectt-0800">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-0800">si</span>&#x00A0;<span 
class="ectt-0800">loi=17</span>&#x00A0;<span 
class="ectt-0800">:</span>&#x00A0;<span 
class="ectt-0800">LC(p,m)</span>
&#x00A0;<br /><span 
class="ectt-0800">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-0800">si</span>&#x00A0;<span 
class="ectt-0800">loi=18</span>&#x00A0;<span 
class="ectt-0800">:</span>&#x00A0;<span 
class="ectt-0800">SB(g,d)</span>
&#x00A0;<br /><span 
class="ectt-0800">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-0800">si</span>&#x00A0;<span 
class="ectt-0800">loi=19</span>&#x00A0;<span 
class="ectt-0800">:</span>&#x00A0;<span 
class="ectt-0800">S(a,b)</span>
&#x00A0;<br />
&#x00A0;<br />
&#x00A0;<br /><span 
class="ectt-0800">Dans</span>&#x00A0;<span 
class="ectt-0800">ce</span>&#x00A0;<span 
class="ectt-0800">fichier,</span>&#x00A0;<span 
class="ectt-0800">je</span>&#x00A0;<span 
class="ectt-0800">regroupe</span>&#x00A0;<span 
class="ectt-0800">les</span>&#x00A0;<span 
class="ectt-0800">r</span><span 
class="ectt-0800">&#x00E9;</span><span 
class="ectt-0800">sultats</span>&#x00A0;<span 
class="ectt-0800">de</span>&#x00A0;<span 
class="ectt-0800">moyennes</span>&#x00A0;<span 
class="ectt-0800">et</span>&#x00A0;<span 
class="ectt-0800">de</span>&#x00A0;<span 
class="ectt-0800">variances</span>&#x00A0;<span 
class="ectt-0800">empiriques</span>&#x00A0;<span 
class="ectt-0800">pour</span>
&#x00A0;<br /><span 
class="ectt-0800">les</span>&#x00A0;<span 
class="ectt-0800">19</span>&#x00A0;<span 
class="ectt-0800">lois</span>&#x00A0;<span 
class="ectt-0800">pr</span><span 
class="ectt-0800">&#x00E9;</span><span 
class="ectt-0800">c</span><span 
class="ectt-0800">&#x00E9;</span><span 
class="ectt-0800">dentes,</span>&#x00A0;<span 
class="ectt-0800">pour</span>&#x00A0;<span 
class="ectt-0800">des</span>&#x00A0;<span 
class="ectt-0800">&#x00E9;</span><span 
class="ectt-0800">chantillons</span>&#x00A0;<span 
class="ectt-0800">de</span>&#x00A0;<span 
class="ectt-0800">100000</span>&#x00A0;<span 
class="ectt-0800">observations.</span>
&#x00A0;<br /><span 
class="ectt-0800">J&#x2019;ai</span>&#x00A0;<span 
class="ectt-0800">retranche</span>&#x00A0;<span 
class="ectt-0800">leur</span>&#x00A0;<span 
class="ectt-0800">esp</span><span 
class="ectt-0800">&#x00E9;</span><span 
class="ectt-0800">rance</span>&#x00A0;<span 
class="ectt-0800">a</span>&#x00A0;<span 
class="ectt-0800">toutes</span>&#x00A0;<span 
class="ectt-0800">ces</span>&#x00A0;<span 
class="ectt-0800">lois</span>&#x00A0;<span 
class="ectt-0800">lors</span>&#x00A0;<span 
class="ectt-0800">de</span>&#x00A0;<span 
class="ectt-0800">la</span>&#x00A0;<span 
class="ectt-0800">simulation.</span>
&#x00A0;<br />
&#x00A0;<br /><span 
class="ectt-0800">loi=0:</span>&#x00A0;<span 
class="ectt-0800">N(0,1)</span>
&#x00A0;<br /><span 
class="ectt-0800">Moyenne=</span>&#x00A0;&#x00A0;<span 
class="ectt-0800">0.000985820168</span>&#x00A0;<span 
class="ectt-0800">Variance=</span>&#x00A0;&#x00A0;<span 
class="ectt-0800">1.00143444</span>
&#x00A0;<br />
&#x00A0;<br /><span 
class="ectt-0800">loi=1:</span>&#x00A0;<span 
class="ectt-0800">Khi2(10)</span>&#x00A0;<span 
class="ectt-0800">centr</span><span 
class="ectt-0800">&#x00E9;</span><span 
class="ectt-0800">e</span>
&#x00A0;<br /><span 
class="ectt-0800">Moyenne=</span>&#x00A0;&#x00A0;<span 
class="ectt-0800">0.00869464802</span>&#x00A0;<span 
class="ectt-0800">Variance=</span>&#x00A0;&#x00A0;<span 
class="ectt-0800">19.9797421</span>
&#x00A0;<br />
&#x00A0;<br /><span 
class="ectt-0800">loi=2:</span>&#x00A0;<span 
class="ectt-0800">Student(5)</span>
&#x00A0;<br /><span 
class="ectt-0800">Moyenne=</span>&#x00A0;<span 
class="ectt-0800">-0.00933666901</span>&#x00A0;<span 
class="ectt-0800">Variance=</span>&#x00A0;&#x00A0;<span 
class="ectt-0800">1.6789549</span>
&#x00A0;<br />
&#x00A0;<br /><span 
class="ectt-0800">loi=3:</span>&#x00A0;<span 
class="ectt-0800">Skew-Normale(2)</span>
&#x00A0;<br /><span 
class="ectt-0800">Moyenne=</span>&#x00A0;&#x00A0;<span 
class="ectt-0800">0.00123123782</span>&#x00A0;<span 
class="ectt-0800">Variance=</span>&#x00A0;&#x00A0;<span 
class="ectt-0800">0.49155381</span>
&#x00A0;<br />
&#x00A0;<br /><span 
class="ectt-0800">loi=4:</span>&#x00A0;<span 
class="ectt-0800">Laplace</span>
&#x00A0;<br /><span 
class="ectt-0800">Moyenne=</span>&#x00A0;<span 
class="ectt-0800">-0.00719270677</span>&#x00A0;<span 
class="ectt-0800">Variance=</span>&#x00A0;&#x00A0;<span 
class="ectt-0800">1.97827061</span>
&#x00A0;<br />
&#x00A0;<br /><span 
class="ectt-0800">loi=5:</span>&#x00A0;<span 
class="ectt-0800">Weibull(1,2)</span>
&#x00A0;<br /><span 
class="ectt-0800">Moyenne=</span>&#x00A0;&#x00A0;<span 
class="ectt-0800">0.00124143833</span>&#x00A0;<span 
class="ectt-0800">Variance=</span>&#x00A0;&#x00A0;<span 
class="ectt-0800">0.249560685</span>
&#x00A0;<br />
&#x00A0;<br /><span 
class="ectt-0800">loi6:</span>&#x00A0;<span 
class="ectt-0800">Gamma(1,2)</span>
&#x00A0;<br /><span 
class="ectt-0800">Moyenne=</span>&#x00A0;&#x00A0;<span 
class="ectt-0800">0.00496575333</span>&#x00A0;<span 
class="ectt-0800">Variance=</span>&#x00A0;&#x00A0;<span 
class="ectt-0800">3.99297096</span>
&#x00A0;<br />
&#x00A0;<br /><span 
class="ectt-0800">loi7:</span>&#x00A0;<span 
class="ectt-0800">Log-Normale(0,1)</span>
&#x00A0;<br /><span 
class="ectt-0800">Moyenne=</span>&#x00A0;<span 
class="ectt-0800">-0.00610782268</span>&#x00A0;<span 
class="ectt-0800">Variance=</span>&#x00A0;&#x00A0;<span 
class="ectt-0800">4.59459082</span>
&#x00A0;<br />
&#x00A0;<br /><span 
class="ectt-0800">loi8:</span>&#x00A0;<span 
class="ectt-0800">Beta(1,2)</span>
&#x00A0;<br /><span 
class="ectt-0800">Moyenne=</span>&#x00A0;&#x00A0;<span 
class="ectt-0800">0.00039170213</span>&#x00A0;<span 
class="ectt-0800">Variance=</span>&#x00A0;&#x00A0;<span 
class="ectt-0800">0.0558931017</span>
&#x00A0;<br />
&#x00A0;<br /><span 
class="ectt-0800">loi9:</span>&#x00A0;<span 
class="ectt-0800">Uniform(1,2)</span>
&#x00A0;<br /><span 
class="ectt-0800">Moyenne=</span>&#x00A0;<span 
class="ectt-0800">-0.00129533504</span>&#x00A0;<span 
class="ectt-0800">Variance=</span>&#x00A0;&#x00A0;<span 
class="ectt-0800">0.083051074</span>
&#x00A0;<br />
&#x00A0;<br />
&#x00A0;<br /><span 
class="ectt-0800">loi10:</span>&#x00A0;<span 
class="ectt-0800">Shifted</span>&#x00A0;<span 
class="ectt-0800">exponentielle(1.2)</span>
&#x00A0;<br /><span 
class="ectt-0800">La</span>&#x00A0;<span 
class="ectt-0800">y</span>&#x00A0;<span 
class="ectt-0800">a</span>&#x00A0;<span 
class="ectt-0800">peut</span>&#x00A0;<span 
class="ectt-0800">&#x00EA;</span><span 
class="ectt-0800">tre</span>&#x00A0;<span 
class="ectt-0800">un</span>&#x00A0;<span 
class="ectt-0800">probleme...</span>&#x00A0;<span 
class="ectt-0800">a</span>&#x00A0;<span 
class="ectt-0800">revoir</span>&#x00A0;<span 
class="ectt-0800">...</span>

&#x00A0;<br />
&#x00A0;<br /><span 
class="ectt-0800">loi11:</span>&#x00A0;<span 
class="ectt-0800">Pareto(1,2)</span>
&#x00A0;<br /><span 
class="ectt-0800">La</span>&#x00A0;<span 
class="ectt-0800">y</span>&#x00A0;<span 
class="ectt-0800">a</span>&#x00A0;<span 
class="ectt-0800">peut</span>&#x00A0;<span 
class="ectt-0800">&#x00EA;</span><span 
class="ectt-0800">tre</span>&#x00A0;<span 
class="ectt-0800">un</span>&#x00A0;<span 
class="ectt-0800">probleme...</span>&#x00A0;<span 
class="ectt-0800">a</span>&#x00A0;<span 
class="ectt-0800">revoir</span>&#x00A0;<span 
class="ectt-0800">...</span>
&#x00A0;<br />
&#x00A0;<br /><span 
class="ectt-0800">loi12:</span>&#x00A0;<span 
class="ectt-0800">Shifted</span>&#x00A0;<span 
class="ectt-0800">Pareto</span>
&#x00A0;<br /><span 
class="ectt-0800">Moyenne=</span>&#x00A0;<span 
class="ectt-0800">-0.0163636928</span>&#x00A0;<span 
class="ectt-0800">Variance=</span>&#x00A0;&#x00A0;<span 
class="ectt-0800">9.21524524</span>
&#x00A0;<br />
&#x00A0;<br /><span 
class="ectt-0800">loi13:</span>&#x00A0;<span 
class="ectt-0800">SU(0,1)</span>
&#x00A0;<br /><span 
class="ectt-0800">Moyenne=</span>&#x00A0;&#x00A0;<span 
class="ectt-0800">0.00324440832</span>&#x00A0;<span 
class="ectt-0800">Variance=</span>&#x00A0;&#x00A0;<span 
class="ectt-0800">3.11910338</span>
&#x00A0;<br />
&#x00A0;<br /><span 
class="ectt-0800">loi14:</span>&#x00A0;<span 
class="ectt-0800">TU(1.5)</span>
&#x00A0;<br /><span 
class="ectt-0800">Moyenne=</span>&#x00A0;<span 
class="ectt-0800">-0.00265401613</span>&#x00A0;<span 
class="ectt-0800">Variance=</span>&#x00A0;&#x00A0;<span 
class="ectt-0800">0.351612348</span>
&#x00A0;<br />
&#x00A0;<br /><span 
class="ectt-0800">loi15:</span>&#x00A0;<span 
class="ectt-0800">Logistic</span>
&#x00A0;<br /><span 
class="ectt-0800">Moyenne=</span>&#x00A0;<span 
class="ectt-0800">-0.00911216487</span>&#x00A0;<span 
class="ectt-0800">Variance=</span>&#x00A0;&#x00A0;<span 
class="ectt-0800">3.26081122</span>
&#x00A0;<br />
&#x00A0;<br /><span 
class="ectt-0800">loi16:</span>&#x00A0;<span 
class="ectt-0800">SC(0.05,3)</span>
&#x00A0;<br /><span 
class="ectt-0800">Moyenne=</span>&#x00A0;<span 
class="ectt-0800">-0.00296611369</span>&#x00A0;<span 
class="ectt-0800">Variance=</span>&#x00A0;&#x00A0;<span 
class="ectt-0800">1.40954288</span>
&#x00A0;<br />
&#x00A0;<br /><span 
class="ectt-0800">loi17:</span>&#x00A0;<span 
class="ectt-0800">LC(0.2,3)</span>
&#x00A0;<br /><span 
class="ectt-0800">Moyenne=</span>&#x00A0;<span 
class="ectt-0800">-0.00223043422</span>&#x00A0;<span 
class="ectt-0800">Variance=</span>&#x00A0;&#x00A0;<span 
class="ectt-0800">2.44646694</span>
&#x00A0;<br />
&#x00A0;<br /><span 
class="ectt-0800">loi18:</span>&#x00A0;<span 
class="ectt-0800">SB(0,0.5)</span>
&#x00A0;<br /><span 
class="ectt-0800">Moyenne=</span>&#x00A0;<span 
class="ectt-0800">-0.000192865407</span>&#x00A0;<span 
class="ectt-0800">Variance=</span>&#x00A0;&#x00A0;<span 
class="ectt-0800">0.0987884625</span>
&#x00A0;<br />
&#x00A0;<br /><span 
class="ectt-0800">loi19:</span>
&#x00A0;<br /><span 
class="ectt-0800">a</span>&#x00A0;<span 
class="ectt-0800">voir</span>&#x00A0;<span 
class="ectt-0800">car</span>&#x00A0;<span 
class="ectt-0800">esp</span><span 
class="ectt-0800">&#x00E9;</span><span 
class="ectt-0800">rance</span>&#x00A0;<span 
class="ectt-0800">n&#x2019;est</span>&#x00A0;<span 
class="ectt-0800">pas</span>&#x00A0;<span 
class="ectt-0800">connue...</span>
&#x00A0;<br />
   </div>
   <h3 class="sectionHead"><span class="titlemark">A.4. </span> <a 
  name="x1-47000A.4"></a>Le programme MAIN</h3>
<!--l. 272--><p class="noindent"><span 
class="ecbx-1200">Programme test.f</span> </p><div class="verbatiminput">
<span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Idee:</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">On</span>&#x00A0;<span 
class="ectt-1200">cree</span>&#x00A0;<span 
class="ectt-1200">un</span>&#x00A0;<span 
class="ectt-1200">fichier</span>&#x00A0;<span 
class="ectt-1200">ARMA22.out,</span>&#x00A0;<span 
class="ectt-1200">ARMA21.out,</span>&#x00A0;<span 
class="ectt-1200">ARMA12.out,</span>&#x00A0;<span 
class="ectt-1200">ARMA11.out,</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">AR2.out,</span>&#x00A0;<span 
class="ectt-1200">AR1.out,</span>&#x00A0;<span 
class="ectt-1200">MA2.out,</span>&#x00A0;<span 
class="ectt-1200">MA1.out</span>&#x00A0;<span 
class="ectt-1200">et</span>&#x00A0;<span 
class="ectt-1200">ARMA00.out</span>&#x00A0;<span 
class="ectt-1200">qui</span>&#x00A0;<span 
class="ectt-1200">vont</span>&#x00A0;<span 
class="ectt-1200">lire</span>&#x00A0;<span 
class="ectt-1200">des</span>&#x00A0;<span 
class="ectt-1200">valeurs</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">p,q,phi,teta</span>&#x00A0;<span 
class="ectt-1200">et</span>&#x00A0;<span 
class="ectt-1200">loi</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">dans</span>&#x00A0;<span 
class="ectt-1200">le</span>&#x00A0;<span 
class="ectt-1200">fichier</span>&#x00A0;<span 
class="ectt-1200">paramentree(c&#x2019;est</span>&#x00A0;<span 
class="ectt-1200">big_prog_ARMA.f,</span>&#x00A0;<span 
class="ectt-1200">big_prog_AR.f,</span>&#x00A0;<span 
class="ectt-1200">big_prog_MA.f</span>&#x00A0;<span 
class="ectt-1200">compiles</span>&#x00A0;<span 
class="ectt-1200">pour</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">differentes</span>&#x00A0;<span 
class="ectt-1200">valeurs</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">p</span>&#x00A0;<span 
class="ectt-1200">et</span>&#x00A0;<span 
class="ectt-1200">q)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Par</span>&#x00A0;<span 
class="ectt-1200">exemple,</span>&#x00A0;<span 
class="ectt-1200">si</span>&#x00A0;<span 
class="ectt-1200">c&#x2019;est</span>&#x00A0;<span 
class="ectt-1200">MA2.out</span>&#x00A0;<span 
class="ectt-1200">il</span>&#x00A0;<span 
class="ectt-1200">laissera</span>&#x00A0;<span 
class="ectt-1200">tomber</span>&#x00A0;<span 
class="ectt-1200">la</span>&#x00A0;<span 
class="ectt-1200">valeur</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">p</span>&#x00A0;<span 
class="ectt-1200">et</span>&#x00A0;<span 
class="ectt-1200">phi.</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Ensuite,</span>&#x00A0;<span 
class="ectt-1200">ce</span>&#x00A0;<span 
class="ectt-1200">programe</span>&#x00A0;<span 
class="ectt-1200">va</span>&#x00A0;<span 
class="ectt-1200">appeller</span>&#x00A0;<span 
class="ectt-1200">ces</span>&#x00A0;<span 
class="ectt-1200">differents</span>&#x00A0;<span 
class="ectt-1200">fichier.out</span>&#x00A0;<span 
class="ectt-1200">successivement,</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">a</span>&#x00A0;<span 
class="ectt-1200">l&#x2019;aide</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">la</span>&#x00A0;<span 
class="ectt-1200">commande</span>&#x00A0;<span 
class="ectt-1200">&#x2019;shell&#x2019;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PROGRAM</span>&#x00A0;<span 
class="ectt-1200">main</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">----------------------------------------------------------------------------------</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Declaration</span>&#x00A0;<span 
class="ectt-1200">des</span>&#x00A0;<span 
class="ectt-1200">variables</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">----------------------------------------------------------------------------------</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">nbline,i,j</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">p,q</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">loi</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">vec2(2),vec3(3),vec4(4),vec5(5),vec6(6)</span>

&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">phi(2),</span>&#x00A0;<span 
class="ectt-1200">teta(2)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">temp(1000,7)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CHARACTER*11</span>&#x00A0;<span 
class="ectt-1200">parin</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CHARACTER*12</span>&#x00A0;<span 
class="ectt-1200">ARMA22</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CHARACTER*12</span>&#x00A0;<span 
class="ectt-1200">ARMA21</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CHARACTER*12</span>&#x00A0;<span 
class="ectt-1200">ARMA12</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CHARACTER*12</span>&#x00A0;<span 
class="ectt-1200">ARMA11</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CHARACTER*12</span>&#x00A0;<span 
class="ectt-1200">ARMA00</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CHARACTER*9</span>&#x00A0;<span 
class="ectt-1200">AR2</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CHARACTER*9</span>&#x00A0;<span 
class="ectt-1200">AR1</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CHARACTER*9</span>&#x00A0;<span 
class="ectt-1200">MA2</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CHARACTER*9</span>&#x00A0;<span 
class="ectt-1200">MA1</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CHARACTER*7</span>&#x00A0;<span 
class="ectt-1200">ftmp</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CHARACTER*10</span>&#x00A0;<span 
class="ectt-1200">efface</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CHARACTER</span>&#x00A0;<span 
class="ectt-1200">filtab*19</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">----------------------------------------------------------------------------------</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Fin</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">declaration</span>&#x00A0;<span 
class="ectt-1200">des</span>&#x00A0;<span 
class="ectt-1200">variables</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">----------------------------------------------------------------------------------</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">efface=&#x2019;rm</span>&#x00A0;<span 
class="ectt-1200">./ftemp&#x2019;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">ftmp=&#x2019;./ftemp&#x2019;</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">C&#x2019;est</span>&#x00A0;<span 
class="ectt-1200">big_prog_ARMA.f</span>&#x00A0;<span 
class="ectt-1200">compile</span>&#x00A0;<span 
class="ectt-1200">avec</span>&#x00A0;<span 
class="ectt-1200">l&#x2019;option</span>&#x00A0;<span 
class="ectt-1200">-o</span>&#x00A0;<span 
class="ectt-1200">et</span>&#x00A0;<span 
class="ectt-1200">p=2,</span>&#x00A0;<span 
class="ectt-1200">q=2</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">ARMA22=&#x2019;./ARMA22.out&#x2019;</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">C&#x2019;est</span>&#x00A0;<span 
class="ectt-1200">big_prog_ARMA.f</span>&#x00A0;<span 
class="ectt-1200">compile</span>&#x00A0;<span 
class="ectt-1200">avec</span>&#x00A0;<span 
class="ectt-1200">l&#x2019;option</span>&#x00A0;<span 
class="ectt-1200">-o</span>&#x00A0;<span 
class="ectt-1200">et</span>&#x00A0;<span 
class="ectt-1200">p=2,</span>&#x00A0;<span 
class="ectt-1200">q=1</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">ARMA21=&#x2019;./ARMA21.out&#x2019;</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">C&#x2019;est</span>&#x00A0;<span 
class="ectt-1200">big_prog_ARMA.f</span>&#x00A0;<span 
class="ectt-1200">compile</span>&#x00A0;<span 
class="ectt-1200">avec</span>&#x00A0;<span 
class="ectt-1200">l&#x2019;option</span>&#x00A0;<span 
class="ectt-1200">-o</span>&#x00A0;<span 
class="ectt-1200">et</span>&#x00A0;<span 
class="ectt-1200">p=1,</span>&#x00A0;<span 
class="ectt-1200">q=2</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">ARMA12=&#x2019;./ARMA12.out&#x2019;</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">C&#x2019;est</span>&#x00A0;<span 
class="ectt-1200">big_prog_ARMA.f</span>&#x00A0;<span 
class="ectt-1200">compile</span>&#x00A0;<span 
class="ectt-1200">avec</span>&#x00A0;<span 
class="ectt-1200">l&#x2019;option</span>&#x00A0;<span 
class="ectt-1200">-o</span>&#x00A0;<span 
class="ectt-1200">et</span>&#x00A0;<span 
class="ectt-1200">p=1,</span>&#x00A0;<span 
class="ectt-1200">q=1</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">ARMA11=&#x2019;./ARMA11.out&#x2019;</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">C&#x2019;est</span>&#x00A0;<span 
class="ectt-1200">big_prog_AR.f</span>&#x00A0;<span 
class="ectt-1200">compile</span>&#x00A0;<span 
class="ectt-1200">avec</span>&#x00A0;<span 
class="ectt-1200">l&#x2019;option</span>&#x00A0;<span 
class="ectt-1200">-o</span>&#x00A0;<span 
class="ectt-1200">et</span>&#x00A0;<span 
class="ectt-1200">p=2</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">AR2=&#x2019;./AR2.out&#x2019;</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">C&#x2019;est</span>&#x00A0;<span 
class="ectt-1200">big_prog_AR.f</span>&#x00A0;<span 
class="ectt-1200">compile</span>&#x00A0;<span 
class="ectt-1200">avec</span>&#x00A0;<span 
class="ectt-1200">l&#x2019;option</span>&#x00A0;<span 
class="ectt-1200">-o</span>&#x00A0;<span 
class="ectt-1200">et</span>&#x00A0;<span 
class="ectt-1200">p=1</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">AR1=&#x2019;./AR1.out&#x2019;</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">C&#x2019;est</span>&#x00A0;<span 
class="ectt-1200">big_prog_MA.f</span>&#x00A0;<span 
class="ectt-1200">compile</span>&#x00A0;<span 
class="ectt-1200">avec</span>&#x00A0;<span 
class="ectt-1200">l&#x2019;option</span>&#x00A0;<span 
class="ectt-1200">-o</span>&#x00A0;<span 
class="ectt-1200">et</span>&#x00A0;<span 
class="ectt-1200">q=2</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">MA2=&#x2019;./MA2.out&#x2019;</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">C&#x2019;est</span>&#x00A0;<span 
class="ectt-1200">big_prog_MA.f</span>&#x00A0;<span 
class="ectt-1200">compile</span>&#x00A0;<span 
class="ectt-1200">avec</span>&#x00A0;<span 
class="ectt-1200">l&#x2019;option</span>&#x00A0;<span 
class="ectt-1200">-o</span>&#x00A0;<span 
class="ectt-1200">et</span>&#x00A0;<span 
class="ectt-1200">q=1</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">MA1=&#x2019;./MA1.out&#x2019;</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">C&#x2019;est</span>&#x00A0;<span 
class="ectt-1200">big_prog_ARMA.f</span>&#x00A0;<span 
class="ectt-1200">compile</span>&#x00A0;<span 
class="ectt-1200">avec</span>&#x00A0;<span 
class="ectt-1200">l&#x2019;option</span>&#x00A0;<span 
class="ectt-1200">-o</span>&#x00A0;<span 
class="ectt-1200">et</span>&#x00A0;<span 
class="ectt-1200">p=0,</span>&#x00A0;<span 
class="ectt-1200">q=0</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">adpate</span>&#x00A0;<span 
class="ectt-1200">pour</span>&#x00A0;<span 
class="ectt-1200">le</span>&#x00A0;<span 
class="ectt-1200">cas</span>&#x00A0;<span 
class="ectt-1200">(0,0)</span>&#x00A0;<span 
class="ectt-1200">??</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">ARMA00=&#x2019;./ARMA00.out&#x2019;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">filtab=&#x2019;./SIMUL/tableau.txt&#x2019;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">OPEN(UNIT=13,</span>&#x00A0;<span 
class="ectt-1200">FILE=filtab</span>&#x00A0;<span 
class="ectt-1200">,</span>&#x00A0;<span 
class="ectt-1200">STATUS=&#x2019;NEW&#x2019;</span>&#x00A0;<span 
class="ectt-1200">)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(13,*)</span>&#x00A0;<span 
class="ectt-1200">&#x2019;Nbcle</span>&#x00A0;<span 
class="ectt-1200">T</span>&#x00A0;<span 
class="ectt-1200">p</span>&#x00A0;<span 
class="ectt-1200">q</span>&#x00A0;<span 
class="ectt-1200">loi</span>&#x00A0;<span 
class="ectt-1200">alpha</span>&#x00A0;<span 
class="ectt-1200">phi1</span>&#x00A0;<span 
class="ectt-1200">phi2</span>&#x00A0;<span 
class="ectt-1200">teta1</span>&#x00A0;<span 
class="ectt-1200">teta2</span>&#x00A0;<span 
class="ectt-1200">PuissR1</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">+PuissR2</span>&#x00A0;&#x00A0;<span 
class="ectt-1200">PuissR3</span>&#x00A0;&#x00A0;<span 
class="ectt-1200">PuissR4</span>&#x00A0;<span 
class="ectt-1200">PuissR5</span>&#x00A0;<span 
class="ectt-1200">PuissLed1</span>&#x00A0;&#x00A0;<span 
class="ectt-1200">PuissLed2</span>&#x00A0;&#x00A0;<span 
class="ectt-1200">PuissBD</span>

&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">+PuissAD</span>&#x00A0;<span 
class="ectt-1200">PuissJB</span>&#x00A0;<span 
class="ectt-1200">QuLed1calc</span>&#x00A0;<span 
class="ectt-1200">QuLed2calc&#x2019;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CLOSE(UNIT=13)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">parin=&#x2019;paramentree&#x2019;</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Lit</span>&#x00A0;<span 
class="ectt-1200">dans</span>&#x00A0;<span 
class="ectt-1200">le</span>&#x00A0;<span 
class="ectt-1200">fichier</span>&#x00A0;<span 
class="ectt-1200">paramentree,</span>&#x00A0;<span 
class="ectt-1200">les</span>&#x00A0;<span 
class="ectt-1200">valeurs</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">p,</span>&#x00A0;<span 
class="ectt-1200">q,</span>&#x00A0;<span 
class="ectt-1200">loi,</span>&#x00A0;<span 
class="ectt-1200">phi(1),</span>&#x00A0;<span 
class="ectt-1200">phi(2),</span>&#x00A0;<span 
class="ectt-1200">teta(1),</span>&#x00A0;<span 
class="ectt-1200">teta(2)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">et</span>&#x00A0;<span 
class="ectt-1200">les</span>&#x00A0;<span 
class="ectt-1200">stocke</span>&#x00A0;<span 
class="ectt-1200">dans</span>&#x00A0;<span 
class="ectt-1200">la</span>&#x00A0;<span 
class="ectt-1200">matrice</span>&#x00A0;<span 
class="ectt-1200">temp,</span>&#x00A0;<span 
class="ectt-1200">cela</span>&#x00A0;<span 
class="ectt-1200">permet</span>&#x00A0;<span 
class="ectt-1200">aussi</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">calculer</span>&#x00A0;<span 
class="ectt-1200">le</span>&#x00A0;<span 
class="ectt-1200">nombre</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">lignes</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">ce</span>&#x00A0;<span 
class="ectt-1200">fichier</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">OPEN(UNIT=16,</span>&#x00A0;<span 
class="ectt-1200">FILE=parin</span>&#x00A0;<span 
class="ectt-1200">,</span>&#x00A0;<span 
class="ectt-1200">STATUS=&#x2019;OLD&#x2019;</span>&#x00A0;<span 
class="ectt-1200">)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">i=1</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DO</span>&#x00A0;&#x00A0;<span 
class="ectt-1200">WHILE</span>&#x00A0;<span 
class="ectt-1200">(2</span>&#x00A0;<span 
class="ectt-1200">.GT.</span>&#x00A0;<span 
class="ectt-1200">1)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">READ(16,*,END=10)</span>&#x00A0;<span 
class="ectt-1200">(temp(i,j),j=1,7)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">i=i+1</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">END</span>&#x00A0;<span 
class="ectt-1200">DO</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CLOSE(16)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Le</span>&#x00A0;<span 
class="ectt-1200">fichier</span>&#x00A0;<span 
class="ectt-1200">paramentree</span>&#x00A0;<span 
class="ectt-1200">contient</span>&#x00A0;<span 
class="ectt-1200">nbline=i-1</span>&#x00A0;<span 
class="ectt-1200">lignes</span>
&#x00A0;<br />&#x00A0;<span 
class="ectt-1200">10</span>&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">nbline=i-1</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DO</span>&#x00A0;<span 
class="ectt-1200">20,</span>&#x00A0;<span 
class="ectt-1200">j=1,nbline</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">p=temp(j,1)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">q=temp(j,2)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">loi=temp(j,3)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">phi(1)=temp(j,4)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">phi(2)=temp(j,5)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">teta(1)=temp(j,6)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">teta(2)=temp(j,7)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">On</span>&#x00A0;<span 
class="ectt-1200">cree</span>&#x00A0;<span 
class="ectt-1200">le</span>&#x00A0;<span 
class="ectt-1200">fichier</span>&#x00A0;<span 
class="ectt-1200">ftemp</span>&#x00A0;<span 
class="ectt-1200">qui</span>&#x00A0;<span 
class="ectt-1200">contient</span>&#x00A0;<span 
class="ectt-1200">la</span>&#x00A0;<span 
class="ectt-1200">ligne</span>&#x00A0;<span 
class="ectt-1200">en</span>&#x00A0;<span 
class="ectt-1200">cours</span>&#x00A0;<span 
class="ectt-1200">du</span>&#x00A0;<span 
class="ectt-1200">fichier</span>&#x00A0;<span 
class="ectt-1200">paramentree</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">en</span>&#x00A0;<span 
class="ectt-1200">ne</span>&#x00A0;<span 
class="ectt-1200">gardant</span>&#x00A0;<span 
class="ectt-1200">bien</span>&#x00A0;<span 
class="ectt-1200">sur</span>&#x00A0;<span 
class="ectt-1200">que</span>&#x00A0;<span 
class="ectt-1200">ce</span>&#x00A0;<span 
class="ectt-1200">qui</span>&#x00A0;<span 
class="ectt-1200">est</span>&#x00A0;<span 
class="ectt-1200">necessaire</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">OPEN(UNIT=15,</span>&#x00A0;<span 
class="ectt-1200">FILE=ftmp</span>&#x00A0;<span 
class="ectt-1200">,</span>&#x00A0;<span 
class="ectt-1200">STATUS=&#x2019;NEW&#x2019;</span>&#x00A0;<span 
class="ectt-1200">)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">IF</span>&#x00A0;<span 
class="ectt-1200">((p</span>&#x00A0;<span 
class="ectt-1200">.EQ.</span>&#x00A0;<span 
class="ectt-1200">2)</span>&#x00A0;<span 
class="ectt-1200">.AND.</span>&#x00A0;<span 
class="ectt-1200">(q</span>&#x00A0;<span 
class="ectt-1200">.EQ.</span>&#x00A0;<span 
class="ectt-1200">2))</span>&#x00A0;<span 
class="ectt-1200">THEN</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">vec6(1)=j</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">vec6(2)=loi</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">vec6(3)=phi(1)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">vec6(4)=phi(2)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">vec6(5)=teta(1)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">vec6(6)=teta(2)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(15,*)</span>&#x00A0;<span 
class="ectt-1200">vec6</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">ENDIF</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">IF</span>&#x00A0;<span 
class="ectt-1200">((p</span>&#x00A0;<span 
class="ectt-1200">.EQ.</span>&#x00A0;<span 
class="ectt-1200">2)</span>&#x00A0;<span 
class="ectt-1200">.AND.</span>&#x00A0;<span 
class="ectt-1200">(q</span>&#x00A0;<span 
class="ectt-1200">.EQ.</span>&#x00A0;<span 
class="ectt-1200">1))</span>&#x00A0;<span 
class="ectt-1200">THEN</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">vec5(1)=j</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">vec5(2)=loi</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">vec5(3)=phi(1)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">vec5(4)=phi(2)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">vec5(5)=teta(1)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(15,*)</span>&#x00A0;<span 
class="ectt-1200">vec5</span>

&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">ENDIF</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">IF</span>&#x00A0;<span 
class="ectt-1200">((p</span>&#x00A0;<span 
class="ectt-1200">.EQ.</span>&#x00A0;<span 
class="ectt-1200">1)</span>&#x00A0;<span 
class="ectt-1200">.AND.</span>&#x00A0;<span 
class="ectt-1200">(q</span>&#x00A0;<span 
class="ectt-1200">.EQ.</span>&#x00A0;<span 
class="ectt-1200">2))</span>&#x00A0;<span 
class="ectt-1200">THEN</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">vec5(1)=j</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">vec5(2)=loi</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">vec5(3)=phi(1)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">vec5(4)=teta(1)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">vec5(5)=teta(2)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(15,*)</span>&#x00A0;<span 
class="ectt-1200">vec5</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">ENDIF</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">IF</span>&#x00A0;<span 
class="ectt-1200">((p</span>&#x00A0;<span 
class="ectt-1200">.EQ.</span>&#x00A0;<span 
class="ectt-1200">1)</span>&#x00A0;<span 
class="ectt-1200">.AND.</span>&#x00A0;<span 
class="ectt-1200">(q</span>&#x00A0;<span 
class="ectt-1200">.EQ.</span>&#x00A0;<span 
class="ectt-1200">1))</span>&#x00A0;<span 
class="ectt-1200">THEN</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">vec4(1)=j</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">vec4(2)=loi</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">vec4(3)=phi(1)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">vec4(4)=teta(1)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(15,*)</span>&#x00A0;<span 
class="ectt-1200">vec4</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">ENDIF</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">IF</span>&#x00A0;<span 
class="ectt-1200">((p</span>&#x00A0;<span 
class="ectt-1200">.EQ.</span>&#x00A0;<span 
class="ectt-1200">2)</span>&#x00A0;<span 
class="ectt-1200">.AND.</span>&#x00A0;<span 
class="ectt-1200">(q</span>&#x00A0;<span 
class="ectt-1200">.EQ.</span>&#x00A0;<span 
class="ectt-1200">0))</span>&#x00A0;<span 
class="ectt-1200">THEN</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">vec4(1)=j</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">vec4(2)=loi</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">vec4(3)=phi(1)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">vec4(4)=phi(2)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(15,*)</span>&#x00A0;<span 
class="ectt-1200">vec4</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">ENDIF</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">IF</span>&#x00A0;<span 
class="ectt-1200">((p</span>&#x00A0;<span 
class="ectt-1200">.EQ.</span>&#x00A0;<span 
class="ectt-1200">1)</span>&#x00A0;<span 
class="ectt-1200">.AND.</span>&#x00A0;<span 
class="ectt-1200">(q</span>&#x00A0;<span 
class="ectt-1200">.EQ.</span>&#x00A0;<span 
class="ectt-1200">0))</span>&#x00A0;<span 
class="ectt-1200">THEN</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">vec3(1)=j</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">vec3(2)=loi</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">vec3(3)=phi(1)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(15,*)</span>&#x00A0;<span 
class="ectt-1200">vec3</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">ENDIF</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">IF</span>&#x00A0;<span 
class="ectt-1200">((p</span>&#x00A0;<span 
class="ectt-1200">.EQ.</span>&#x00A0;<span 
class="ectt-1200">0)</span>&#x00A0;<span 
class="ectt-1200">.AND.</span>&#x00A0;<span 
class="ectt-1200">(q</span>&#x00A0;<span 
class="ectt-1200">.EQ.</span>&#x00A0;<span 
class="ectt-1200">2))</span>&#x00A0;<span 
class="ectt-1200">THEN</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">vec4(1)=j</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">vec4(2)=loi</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">vec4(3)=teta(1)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">vec4(4)=teta(2)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(15,*)</span>&#x00A0;<span 
class="ectt-1200">vec4</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">ENDIF</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">IF</span>&#x00A0;<span 
class="ectt-1200">((p</span>&#x00A0;<span 
class="ectt-1200">.EQ.</span>&#x00A0;<span 
class="ectt-1200">0)</span>&#x00A0;<span 
class="ectt-1200">.AND.</span>&#x00A0;<span 
class="ectt-1200">(q</span>&#x00A0;<span 
class="ectt-1200">.EQ.</span>&#x00A0;<span 
class="ectt-1200">1))</span>&#x00A0;<span 
class="ectt-1200">THEN</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">vec3(1)=j</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">vec3(2)=loi</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">vec3(3)=teta(1)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(15,*)</span>&#x00A0;<span 
class="ectt-1200">vec3</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">ENDIF</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">IF</span>&#x00A0;<span 
class="ectt-1200">((p</span>&#x00A0;<span 
class="ectt-1200">.EQ.</span>&#x00A0;<span 
class="ectt-1200">0)</span>&#x00A0;<span 
class="ectt-1200">.AND.</span>&#x00A0;<span 
class="ectt-1200">(q</span>&#x00A0;<span 
class="ectt-1200">.EQ.</span>&#x00A0;<span 
class="ectt-1200">0))</span>&#x00A0;<span 
class="ectt-1200">THEN</span>

&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">vec2(1)=j</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">vec2(2)=loi</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(15,*)</span>&#x00A0;<span 
class="ectt-1200">vec2</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">ENDIF</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CLOSE(UNIT=15)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">On</span>&#x00A0;<span 
class="ectt-1200">appelle</span>&#x00A0;<span 
class="ectt-1200">suivant</span>&#x00A0;<span 
class="ectt-1200">les</span>&#x00A0;<span 
class="ectt-1200">valeurs</span>&#x00A0;<span 
class="ectt-1200">dans</span>&#x00A0;<span 
class="ectt-1200">le</span>&#x00A0;<span 
class="ectt-1200">fichier</span>&#x00A0;<span 
class="ectt-1200">ftemp,</span>&#x00A0;<span 
class="ectt-1200">le</span>&#x00A0;<span 
class="ectt-1200">bon</span>&#x00A0;<span 
class="ectt-1200">programme</span>&#x00A0;<span 
class="ectt-1200">.out</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Puis</span>&#x00A0;<span 
class="ectt-1200">on</span>&#x00A0;<span 
class="ectt-1200">efface</span>&#x00A0;<span 
class="ectt-1200">ftemp</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">IF</span>&#x00A0;<span 
class="ectt-1200">((p</span>&#x00A0;<span 
class="ectt-1200">.EQ.</span>&#x00A0;<span 
class="ectt-1200">2)</span>&#x00A0;<span 
class="ectt-1200">.AND.</span>&#x00A0;<span 
class="ectt-1200">(q</span>&#x00A0;<span 
class="ectt-1200">.EQ.</span>&#x00A0;<span 
class="ectt-1200">2))</span>&#x00A0;<span 
class="ectt-1200">THEN</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CALL</span>&#x00A0;<span 
class="ectt-1200">SYSTEM(ARMA22)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CALL</span>&#x00A0;<span 
class="ectt-1200">SYSTEM(efface)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">ENDIF</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">IF</span>&#x00A0;<span 
class="ectt-1200">((p</span>&#x00A0;<span 
class="ectt-1200">.EQ.</span>&#x00A0;<span 
class="ectt-1200">2)</span>&#x00A0;<span 
class="ectt-1200">.AND.</span>&#x00A0;<span 
class="ectt-1200">(q</span>&#x00A0;<span 
class="ectt-1200">.EQ.</span>&#x00A0;<span 
class="ectt-1200">1))</span>&#x00A0;<span 
class="ectt-1200">THEN</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CALL</span>&#x00A0;<span 
class="ectt-1200">SYSTEM(ARMA21)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CALL</span>&#x00A0;<span 
class="ectt-1200">SYSTEM(efface)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">ENDIF</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">IF</span>&#x00A0;<span 
class="ectt-1200">((p</span>&#x00A0;<span 
class="ectt-1200">.EQ.</span>&#x00A0;<span 
class="ectt-1200">1)</span>&#x00A0;<span 
class="ectt-1200">.AND.</span>&#x00A0;<span 
class="ectt-1200">(q</span>&#x00A0;<span 
class="ectt-1200">.EQ.</span>&#x00A0;<span 
class="ectt-1200">2))</span>&#x00A0;<span 
class="ectt-1200">THEN</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CALL</span>&#x00A0;<span 
class="ectt-1200">SYSTEM(ARMA12)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CALL</span>&#x00A0;<span 
class="ectt-1200">SYSTEM(efface)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">ENDIF</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">IF</span>&#x00A0;<span 
class="ectt-1200">((p</span>&#x00A0;<span 
class="ectt-1200">.EQ.</span>&#x00A0;<span 
class="ectt-1200">1)</span>&#x00A0;<span 
class="ectt-1200">.AND.</span>&#x00A0;<span 
class="ectt-1200">(q</span>&#x00A0;<span 
class="ectt-1200">.EQ.</span>&#x00A0;<span 
class="ectt-1200">1))</span>&#x00A0;<span 
class="ectt-1200">THEN</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CALL</span>&#x00A0;<span 
class="ectt-1200">SYSTEM(ARMA11)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CALL</span>&#x00A0;<span 
class="ectt-1200">SYSTEM(efface)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">ENDIF</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">IF</span>&#x00A0;<span 
class="ectt-1200">((p</span>&#x00A0;<span 
class="ectt-1200">.EQ.</span>&#x00A0;<span 
class="ectt-1200">2)</span>&#x00A0;<span 
class="ectt-1200">.AND.</span>&#x00A0;<span 
class="ectt-1200">(q</span>&#x00A0;<span 
class="ectt-1200">.EQ.</span>&#x00A0;<span 
class="ectt-1200">0))</span>&#x00A0;<span 
class="ectt-1200">THEN</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CALL</span>&#x00A0;<span 
class="ectt-1200">SYSTEM(AR2)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CALL</span>&#x00A0;<span 
class="ectt-1200">SYSTEM(efface)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">ENDIF</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">IF</span>&#x00A0;<span 
class="ectt-1200">((p</span>&#x00A0;<span 
class="ectt-1200">.EQ.</span>&#x00A0;<span 
class="ectt-1200">1)</span>&#x00A0;<span 
class="ectt-1200">.AND.</span>&#x00A0;<span 
class="ectt-1200">(q</span>&#x00A0;<span 
class="ectt-1200">.EQ.</span>&#x00A0;<span 
class="ectt-1200">0))</span>&#x00A0;<span 
class="ectt-1200">THEN</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CALL</span>&#x00A0;<span 
class="ectt-1200">SYSTEM(AR1)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CALL</span>&#x00A0;<span 
class="ectt-1200">SYSTEM(efface)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">ENDIF</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">IF</span>&#x00A0;<span 
class="ectt-1200">((p</span>&#x00A0;<span 
class="ectt-1200">.EQ.</span>&#x00A0;<span 
class="ectt-1200">0)</span>&#x00A0;<span 
class="ectt-1200">.AND.</span>&#x00A0;<span 
class="ectt-1200">(q</span>&#x00A0;<span 
class="ectt-1200">.EQ.</span>&#x00A0;<span 
class="ectt-1200">2))</span>&#x00A0;<span 
class="ectt-1200">THEN</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CALL</span>&#x00A0;<span 
class="ectt-1200">SYSTEM(MA2)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CALL</span>&#x00A0;<span 
class="ectt-1200">SYSTEM(efface)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">ENDIF</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">IF</span>&#x00A0;<span 
class="ectt-1200">((p</span>&#x00A0;<span 
class="ectt-1200">.EQ.</span>&#x00A0;<span 
class="ectt-1200">0)</span>&#x00A0;<span 
class="ectt-1200">.AND.</span>&#x00A0;<span 
class="ectt-1200">(q</span>&#x00A0;<span 
class="ectt-1200">.EQ.</span>&#x00A0;<span 
class="ectt-1200">1))</span>&#x00A0;<span 
class="ectt-1200">THEN</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CALL</span>&#x00A0;<span 
class="ectt-1200">SYSTEM(MA1)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CALL</span>&#x00A0;<span 
class="ectt-1200">SYSTEM(efface)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">ENDIF</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">IF</span>&#x00A0;<span 
class="ectt-1200">((p</span>&#x00A0;<span 
class="ectt-1200">.EQ.</span>&#x00A0;<span 
class="ectt-1200">0)</span>&#x00A0;<span 
class="ectt-1200">.AND.</span>&#x00A0;<span 
class="ectt-1200">(q</span>&#x00A0;<span 
class="ectt-1200">.EQ.</span>&#x00A0;<span 
class="ectt-1200">0))</span>&#x00A0;<span 
class="ectt-1200">THEN</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CALL</span>&#x00A0;<span 
class="ectt-1200">SYSTEM(ARMA00)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CALL</span>&#x00A0;<span 
class="ectt-1200">SYSTEM(efface)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">ENDIF</span>

&#x00A0;<br />&#x00A0;<span 
class="ectt-1200">20</span>&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CONTINUE</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">END</span>
   </div>
   <h3 class="sectionHead"><span class="titlemark">A.5. </span> <a 
  name="x1-48000A.5"></a>Les programmes big_prog_ARMApq</h3>
<!--l. 277--><p class="noindent"><span 
class="ecbx-1200">Programme big_prog_ARMA00.f</span> </p><div class="verbatiminput">
<span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Idee</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">ce</span>&#x00A0;&#x00A0;<span 
class="ectt-1200">programme:</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Etape1)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">On</span>&#x00A0;<span 
class="ectt-1200">cree</span>&#x00A0;<span 
class="ectt-1200">un</span>&#x00A0;<span 
class="ectt-1200">fichier</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">donnees</span>&#x00A0;<span 
class="ectt-1200">&#x2019;data.txt&#x2019;</span>&#x00A0;<span 
class="ectt-1200">en</span>&#x00A0;<span 
class="ectt-1200">utilisant</span>&#x00A0;<span 
class="ectt-1200">certaines</span>&#x00A0;<span 
class="ectt-1200">valeurs</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">parametres</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">a</span>&#x00A0;<span 
class="ectt-1200">lire</span>&#x00A0;<span 
class="ectt-1200">dans</span>&#x00A0;<span 
class="ectt-1200">un</span>&#x00A0;<span 
class="ectt-1200">fichier</span>&#x00A0;<span 
class="ectt-1200">d&#x2019;entree</span>&#x00A0;<span 
class="ectt-1200">&#x2019;ftemp&#x2019;</span>&#x00A0;<span 
class="ectt-1200">cree</span>&#x00A0;<span 
class="ectt-1200">par</span>&#x00A0;<span 
class="ectt-1200">le</span>&#x00A0;<span 
class="ectt-1200">programme</span>&#x00A0;<span 
class="ectt-1200">test.f</span>&#x00A0;<span 
class="ectt-1200">a</span>&#x00A0;<span 
class="ectt-1200">l&#x2019;aide</span>&#x00A0;<span 
class="ectt-1200">du</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">fichier</span>&#x00A0;<span 
class="ectt-1200">&#x2019;paramentree&#x2019;,</span>&#x00A0;<span 
class="ectt-1200">on</span>&#x00A0;<span 
class="ectt-1200">stocke</span>&#x00A0;<span 
class="ectt-1200">les</span>&#x00A0;<span 
class="ectt-1200">resultats</span>&#x00A0;<span 
class="ectt-1200">autres</span>&#x00A0;<span 
class="ectt-1200">que</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">les</span>&#x00A0;<span 
class="ectt-1200">donnees</span>&#x00A0;<span 
class="ectt-1200">dans</span>&#x00A0;<span 
class="ectt-1200">un</span>&#x00A0;<span 
class="ectt-1200">fichier</span>&#x00A0;<span 
class="ectt-1200">&#x2019;param.i&#x2019;</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Etape</span>&#x00A0;<span 
class="ectt-1200">2)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">ensuite</span>&#x00A0;<span 
class="ectt-1200">on</span>&#x00A0;<span 
class="ectt-1200">utilise</span>&#x00A0;<span 
class="ectt-1200">le</span>&#x00A0;<span 
class="ectt-1200">fichier</span>&#x00A0;<span 
class="ectt-1200">&#x2019;data.txt&#x2019;</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">avec</span>&#x00A0;<span 
class="ectt-1200">le</span>&#x00A0;<span 
class="ectt-1200">programme</span>&#x00A0;<span 
class="ectt-1200">calcstat</span>&#x00A0;<span 
class="ectt-1200">pour</span>&#x00A0;<span 
class="ectt-1200">creer</span>&#x00A0;<span 
class="ectt-1200">le</span>&#x00A0;<span 
class="ectt-1200">fichier</span>&#x00A0;<span 
class="ectt-1200">des</span>&#x00A0;<span 
class="ectt-1200">statistiques</span>&#x00A0;<span 
class="ectt-1200">&#x2019;resultat.i&#x2019;</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Etape</span>&#x00A0;<span 
class="ectt-1200">3)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Ensuite,</span>&#x00A0;<span 
class="ectt-1200">on</span>&#x00A0;<span 
class="ectt-1200">efface</span>&#x00A0;<span 
class="ectt-1200">le</span>&#x00A0;<span 
class="ectt-1200">fichier</span>&#x00A0;<span 
class="ectt-1200">&#x2019;data.txt&#x2019;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PROGRAM</span>&#x00A0;<span 
class="ectt-1200">main</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Les</span>&#x00A0;<span 
class="ectt-1200">**</span>&#x00A0;<span 
class="ectt-1200">indiquent</span>&#x00A0;<span 
class="ectt-1200">les</span>&#x00A0;<span 
class="ectt-1200">endroits</span>&#x00A0;<span 
class="ectt-1200">ou</span>&#x00A0;<span 
class="ectt-1200">des</span>&#x00A0;<span 
class="ectt-1200">changements</span>&#x00A0;<span 
class="ectt-1200">peuvent</span>&#x00A0;<span 
class="ectt-1200">etre</span>&#x00A0;<span 
class="ectt-1200">necessaires</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">--------------------------------------------------------------------------</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DEBUT</span>&#x00A0;<span 
class="ectt-1200">DE</span>&#x00A0;<span 
class="ectt-1200">DECLARATION</span>&#x00A0;<span 
class="ectt-1200">DES</span>&#x00A0;<span 
class="ectt-1200">VARIABLES</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">--------------------------------------------------------------------------</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Si</span>&#x00A0;<span 
class="ectt-1200">isa=.TRUE.</span>&#x00A0;<span 
class="ectt-1200">(ie</span>&#x00A0;<span 
class="ectt-1200">MEAN=.TRUE.)</span>&#x00A0;<span 
class="ectt-1200">on</span>&#x00A0;<span 
class="ectt-1200">prend</span>&#x00A0;<span 
class="ectt-1200">les</span>&#x00A0;<span 
class="ectt-1200">polynomes</span>&#x00A0;<span 
class="ectt-1200">modifies</span>&#x00A0;<span 
class="ectt-1200">avec</span>&#x00A0;<span 
class="ectt-1200">les</span>&#x00A0;<span 
class="ectt-1200">ak</span>&#x00A0;&#x00A0;<span 
class="ectt-1200">**</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Si</span>&#x00A0;<span 
class="ectt-1200">isa=.FALSE.</span>&#x00A0;<span 
class="ectt-1200">(ie</span>&#x00A0;<span 
class="ectt-1200">MEAN=.FALSE.)</span>&#x00A0;<span 
class="ectt-1200">on</span>&#x00A0;<span 
class="ectt-1200">prend</span>&#x00A0;<span 
class="ectt-1200">les</span>&#x00A0;<span 
class="ectt-1200">polynomes</span>&#x00A0;<span 
class="ectt-1200">modifies</span>&#x00A0;<span 
class="ectt-1200">sans</span>&#x00A0;<span 
class="ectt-1200">les</span>&#x00A0;<span 
class="ectt-1200">ak</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">LOGICAL</span>&#x00A0;<span 
class="ectt-1200">isa</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(isa=.FALSE.)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">------------------------------------</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">parametres</span>&#x00A0;<span 
class="ectt-1200">calcstat</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Niveau</span>&#x00A0;<span 
class="ectt-1200">1</span>&#x00A0;<span 
class="ectt-1200">du</span>&#x00A0;<span 
class="ectt-1200">test</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">**</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">alpha</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(alpha=0.1)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Niveau</span>&#x00A0;<span 
class="ectt-1200">2</span>&#x00A0;<span 
class="ectt-1200">du</span>&#x00A0;<span 
class="ectt-1200">test</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">**</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">alpha2</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(alpha2=0.05)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Quantiles</span>&#x00A0;<span 
class="ectt-1200">avec</span>&#x00A0;<span 
class="ectt-1200">alpha</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;&#x00A0;<span 
class="ectt-1200">khi(10)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Quantiles</span>&#x00A0;<span 
class="ectt-1200">avec</span>&#x00A0;<span 
class="ectt-1200">alpha2</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;&#x00A0;<span 
class="ectt-1200">khi2(10)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Quantiles</span>&#x00A0;<span 
class="ectt-1200">Ledwi1</span>&#x00A0;<span 
class="ectt-1200">et</span>&#x00A0;<span 
class="ectt-1200">Ledwi2</span>&#x00A0;<span 
class="ectt-1200">avec</span>&#x00A0;<span 
class="ectt-1200">alpha</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">**</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">QuLed1,</span>&#x00A0;<span 
class="ectt-1200">QuLed2</span>

&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">avec</span>&#x00A0;<span 
class="ectt-1200">T=50</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(QuLed1=3.98,QuLed2=5.696)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">avec</span>&#x00A0;<span 
class="ectt-1200">T=100</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(QuLed1=3.38,QuLed2=5.373)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">avec</span>&#x00A0;<span 
class="ectt-1200">T=200</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(QuLed1=3.10,QuLed2=5.096)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Quantiles</span>&#x00A0;<span 
class="ectt-1200">Ledwi1</span>&#x00A0;<span 
class="ectt-1200">et</span>&#x00A0;<span 
class="ectt-1200">Ledwi2</span>&#x00A0;<span 
class="ectt-1200">avec</span>&#x00A0;<span 
class="ectt-1200">alpha2</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">**</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">QuLe12,</span>&#x00A0;<span 
class="ectt-1200">QuLe22</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">avec</span>&#x00A0;<span 
class="ectt-1200">T=50</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(QuLe12=5.88,QuLe22=7.662)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">avec</span>&#x00A0;<span 
class="ectt-1200">T=100</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(QuLe12=5.43,QuLe22=7.213)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">avec</span>&#x00A0;<span 
class="ectt-1200">T=200</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(QuLe12=4.89,QuLe22=6.911)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Quantiles</span>&#x00A0;<span 
class="ectt-1200">Brockwell</span>&#x00A0;<span 
class="ectt-1200">et</span>&#x00A0;<span 
class="ectt-1200">Davis</span>&#x00A0;<span 
class="ectt-1200">et</span>&#x00A0;<span 
class="ectt-1200">Anderson</span>&#x00A0;<span 
class="ectt-1200">Darling</span>&#x00A0;<span 
class="ectt-1200">et</span>&#x00A0;<span 
class="ectt-1200">JB</span>&#x00A0;<span 
class="ectt-1200">avec</span>&#x00A0;<span 
class="ectt-1200">alpha</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">**</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">QuBD,</span>&#x00A0;<span 
class="ectt-1200">QuAD,</span>&#x00A0;<span 
class="ectt-1200">QuJB</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">avec</span>&#x00A0;<span 
class="ectt-1200">T=50</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(QuBD=0.920,QuAD=1.743,QuJB=4.61)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">avec</span>&#x00A0;<span 
class="ectt-1200">T=100</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(QuBD=0.958,QuAD=1.743,QuJB=4.61)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">avec</span>&#x00A0;<span 
class="ectt-1200">T=200</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(QuBD=0.978,QuAD=1.743,QuJB=4.61)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Quantiles</span>&#x00A0;<span 
class="ectt-1200">Brockwell</span>&#x00A0;<span 
class="ectt-1200">et</span>&#x00A0;<span 
class="ectt-1200">Davis</span>&#x00A0;<span 
class="ectt-1200">et</span>&#x00A0;<span 
class="ectt-1200">Anderson</span>&#x00A0;<span 
class="ectt-1200">Darling</span>&#x00A0;<span 
class="ectt-1200">et</span>&#x00A0;<span 
class="ectt-1200">JB</span>&#x00A0;<span 
class="ectt-1200">avec</span>&#x00A0;<span 
class="ectt-1200">alpha2</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">**</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">QuBD2,</span>&#x00A0;<span 
class="ectt-1200">QuAD2,</span>&#x00A0;<span 
class="ectt-1200">QuJB2</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">avec</span>&#x00A0;<span 
class="ectt-1200">T=50</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(QuBD2=0.899,QuAD2=2.308,QuJB2=5.99)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">avec</span>&#x00A0;<span 
class="ectt-1200">T=100</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(QuBD2=0.947,QuAD2=2.308,QuJB2=5.99)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">avec</span>&#x00A0;<span 
class="ectt-1200">T=200</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(QuBD2=0.973,QuAD2=2.308,QuJB2=5.99)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Nombre</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">polynomes</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">**</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">Kp</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(Kp=10)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">ordre</span>&#x00A0;<span 
class="ectt-1200">du</span>&#x00A0;<span 
class="ectt-1200">modele</span>&#x00A0;<span 
class="ectt-1200">AR</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">p</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(p=0)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">ordre</span>&#x00A0;<span 
class="ectt-1200">du</span>&#x00A0;<span 
class="ectt-1200">modele</span>&#x00A0;<span 
class="ectt-1200">MA</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">q</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(q=0)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">nombre</span>&#x00A0;<span 
class="ectt-1200">d&#x2019;observations</span>&#x00A0;<span 
class="ectt-1200">dans</span>&#x00A0;<span 
class="ectt-1200">mon</span>&#x00A0;<span 
class="ectt-1200">echantillon</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">**</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Si</span>&#x00A0;<span 
class="ectt-1200">on</span>&#x00A0;<span 
class="ectt-1200">change</span>&#x00A0;<span 
class="ectt-1200">la</span>&#x00A0;<span 
class="ectt-1200">valeur</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">nT,</span>&#x00A0;<span 
class="ectt-1200">il</span>&#x00A0;<span 
class="ectt-1200">faut</span>&#x00A0;<span 
class="ectt-1200">aller</span>&#x00A0;<span 
class="ectt-1200">modifier</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">la</span>&#x00A0;<span 
class="ectt-1200">valeur</span>&#x00A0;<span 
class="ectt-1200">dans</span>&#x00A0;<span 
class="ectt-1200">FORMAT</span>&#x00A0;<span 
class="ectt-1200">a</span>&#x00A0;<span 
class="ectt-1200">la</span>&#x00A0;<span 
class="ectt-1200">fin</span>&#x00A0;<span 
class="ectt-1200">du</span>&#x00A0;<span 
class="ectt-1200">programme</span>&#x00A0;<span 
class="ectt-1200">creerdat_ARMA00.f</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">et</span>&#x00A0;<span 
class="ectt-1200">dans</span>&#x00A0;<span 
class="ectt-1200">calcstat.f</span>

&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">nT</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(nT=50)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">n,m</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(m=nT+1)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">n=nombre</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">lignes</span>&#x00A0;<span 
class="ectt-1200">au</span>&#x00A0;<span 
class="ectt-1200">maximum</span>&#x00A0;<span 
class="ectt-1200">dans</span>&#x00A0;<span 
class="ectt-1200">le</span>&#x00A0;<span 
class="ectt-1200">fichier</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">donnees</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">**</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">cela</span>&#x00A0;<span 
class="ectt-1200">correspond</span>&#x00A0;<span 
class="ectt-1200">a</span>&#x00A0;<span 
class="ectt-1200">nbcle</span>&#x00A0;<span 
class="ectt-1200">s&#x2019;il</span>&#x00A0;<span 
class="ectt-1200">n&#x2019;y</span>&#x00A0;<span 
class="ectt-1200">a</span>&#x00A0;<span 
class="ectt-1200">pas</span>&#x00A0;<span 
class="ectt-1200">eu</span>&#x00A0;<span 
class="ectt-1200">d&#x2019;erreurs</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">dans</span>&#x00A0;<span 
class="ectt-1200">tous</span>&#x00A0;<span 
class="ectt-1200">les</span>&#x00A0;<span 
class="ectt-1200">cas</span>&#x00A0;<span 
class="ectt-1200">mettre</span>&#x00A0;<span 
class="ectt-1200">ici</span>&#x00A0;<span 
class="ectt-1200">n=nbcle=nombre</span>&#x00A0;<span 
class="ectt-1200">d&#x2019;echantillons</span>&#x00A0;<span 
class="ectt-1200">souhaites</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(n=10000)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CHARACTER</span>&#x00A0;<span 
class="ectt-1200">filer*8,</span>&#x00A0;<span 
class="ectt-1200">filew*21</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">**</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">valeur(n,m)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">sch2vc(n)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">epscha(n,nT)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">compt(Kp)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">compt2(Kp)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">statn(n,Kp)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">KoLed1(n)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">KoLed2(n)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">Ledwi1(Kp)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">Ledwi2(Kp-1)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">snLed1(n)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">snLed2(n)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">stanBD(n)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">stanAD(n),</span>&#x00A0;<span 
class="ectt-1200">stanJB(n)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">Z(nT)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">D(nT)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">Davant(nT),</span>&#x00A0;<span 
class="ectt-1200">E2(nT)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">U(nT)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">hUetoi(nT,Kp)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">Uavant(nT)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">hKetoi(Kp)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">hU(nT,Kp)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">hK(Kp)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">vecteu(Kp)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">vectoi(Kp)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">stat(Kp)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">Zavant(nT)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">BDa(nT)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">BDb(nT)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">BDc(nT)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">BDd(nT)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">Davan2(nT)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">ADa(nT)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">ADb(nT)</span>

&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">Puiss(Kp)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">Puiss2(Kp)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">snsort(n,Kp)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">snsorv(n)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">Qucalc(Kp)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">snLe1s(n)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">snLe2s(n)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">snBDso(n)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">snADso(n),</span>&#x00A0;<span 
class="ectt-1200">snJBso(n)</span>
&#x00A0;<br /><span 
class="ectt-1200">c--------------------------------------------------------</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">parametres</span>&#x00A0;<span 
class="ectt-1200">creerdat</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Nom</span>&#x00A0;<span 
class="ectt-1200">du</span>&#x00A0;<span 
class="ectt-1200">fichier</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">donnees</span>&#x00A0;<span 
class="ectt-1200">en</span>&#x00A0;<span 
class="ectt-1200">sortie</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">**</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CHARACTER</span>&#x00A0;<span 
class="ectt-1200">dataf*8</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Nom</span>&#x00A0;<span 
class="ectt-1200">du</span>&#x00A0;<span 
class="ectt-1200">fichier</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">parametres</span>&#x00A0;<span 
class="ectt-1200">en</span>&#x00A0;<span 
class="ectt-1200">sortie</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">**</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CHARACTER</span>&#x00A0;<span 
class="ectt-1200">paramf*17</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Nombre</span>&#x00A0;<span 
class="ectt-1200">d&#x2019;echantillons</span>&#x00A0;<span 
class="ectt-1200">souhaites</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">nbcle,nbclea</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">ecart-type</span>&#x00A0;<span 
class="ectt-1200">des</span>&#x00A0;<span 
class="ectt-1200">erreurs</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">**</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">sigma</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(sigma=1)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">moyenne</span>&#x00A0;<span 
class="ectt-1200">dans</span>&#x00A0;<span 
class="ectt-1200">mon</span>&#x00A0;<span 
class="ectt-1200">modele</span>&#x00A0;<span 
class="ectt-1200">ARMA</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">**</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">mu</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(mu=0)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">parametre</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">la</span>&#x00A0;<span 
class="ectt-1200">khi-deux</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">**</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">df1</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(df1=10)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">parametre</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">la</span>&#x00A0;<span 
class="ectt-1200">student</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">**</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">df2</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(df2=5)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">parametre</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">la</span>&#x00A0;<span 
class="ectt-1200">skew-normale</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">**</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">lambda</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(lambda=2.0)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">loi5b,</span>&#x00A0;<span 
class="ectt-1200">loi5k,</span>&#x00A0;<span 
class="ectt-1200">loi6p,</span>&#x00A0;<span 
class="ectt-1200">loi6q</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">loi7g,</span>&#x00A0;<span 
class="ectt-1200">loi7d,</span>&#x00A0;<span 
class="ectt-1200">loi8p,</span>&#x00A0;<span 
class="ectt-1200">loi8q,</span>&#x00A0;<span 
class="ectt-1200">loi9a,</span>&#x00A0;<span 
class="ectt-1200">loi9b</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">loi10b,</span>&#x00A0;<span 
class="ectt-1200">loi10l,</span>&#x00A0;<span 
class="ectt-1200">loi11a,</span>&#x00A0;<span 
class="ectt-1200">loi11k,</span>&#x00A0;<span 
class="ectt-1200">loi13g,</span>&#x00A0;<span 
class="ectt-1200">loi13d</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">loi14l,</span>&#x00A0;<span 
class="ectt-1200">loi16p,</span>&#x00A0;<span 
class="ectt-1200">loi16d,</span>&#x00A0;<span 
class="ectt-1200">loi17p,</span>&#x00A0;<span 
class="ectt-1200">loi17m</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">loi18g,</span>&#x00A0;<span 
class="ectt-1200">loi18d,</span>&#x00A0;<span 
class="ectt-1200">loi19a,</span>&#x00A0;<span 
class="ectt-1200">loi19b</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(loi5b=1.0,</span>&#x00A0;<span 
class="ectt-1200">loi5k=2.0,</span>&#x00A0;<span 
class="ectt-1200">loi6p=4,</span>&#x00A0;<span 
class="ectt-1200">loi6q=1)</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">**</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(loi7g=0.0,loi7d=1.0,</span>&#x00A0;<span 
class="ectt-1200">loi8p=2,</span>&#x00A0;<span 
class="ectt-1200">loi8q=2,</span>&#x00A0;<span 
class="ectt-1200">loi9a=0,loi9b=2)</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">**</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(loi10b=0.2,loi10l=1,</span>&#x00A0;<span 
class="ectt-1200">loi11a=2.0,loi11k=0.5)</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">**</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(loi13g=0.0,loi13d=1.0,</span>&#x00A0;<span 
class="ectt-1200">loi14l=1.5)</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">**</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(loi16p=0.05,loi16d=3.0,</span>&#x00A0;<span 
class="ectt-1200">loi17p=0.2,loi17m=3.0)</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">**</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(loi18g=0.0,loi18d=0.5,</span>&#x00A0;<span 
class="ectt-1200">loi19a=1.1,</span>&#x00A0;<span 
class="ectt-1200">loi19b=0.5)</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">**</span>

&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">loi</span>&#x00A0;<span 
class="ectt-1200">des</span>&#x00A0;<span 
class="ectt-1200">erreurs</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">si</span>&#x00A0;<span 
class="ectt-1200">loi=0</span>&#x00A0;<span 
class="ectt-1200">:</span>&#x00A0;<span 
class="ectt-1200">Normale(0,sigma&#x0302;2)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">si</span>&#x00A0;<span 
class="ectt-1200">loi=1</span>&#x00A0;<span 
class="ectt-1200">:</span>&#x00A0;<span 
class="ectt-1200">Khi2</span>&#x00A0;<span 
class="ectt-1200">centree</span>&#x00A0;<span 
class="ectt-1200">(df1)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">si</span>&#x00A0;<span 
class="ectt-1200">loi=2</span>&#x00A0;<span 
class="ectt-1200">:</span>&#x00A0;<span 
class="ectt-1200">Student</span>&#x00A0;<span 
class="ectt-1200">(df2)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">si</span>&#x00A0;<span 
class="ectt-1200">loi=3</span>&#x00A0;<span 
class="ectt-1200">:</span>&#x00A0;<span 
class="ectt-1200">Skew-Normale(lambda)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">si</span>&#x00A0;<span 
class="ectt-1200">loi=4</span>&#x00A0;<span 
class="ectt-1200">:</span>&#x00A0;<span 
class="ectt-1200">Laplace</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">si</span>&#x00A0;<span 
class="ectt-1200">loi=5</span>&#x00A0;<span 
class="ectt-1200">:</span>&#x00A0;<span 
class="ectt-1200">Weibull(b,k)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">si</span>&#x00A0;<span 
class="ectt-1200">loi=6</span>&#x00A0;<span 
class="ectt-1200">:</span>&#x00A0;<span 
class="ectt-1200">Gamma(p,q)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">si</span>&#x00A0;<span 
class="ectt-1200">loi=7</span>&#x00A0;<span 
class="ectt-1200">:</span>&#x00A0;<span 
class="ectt-1200">Log-Normale(g,d)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">si</span>&#x00A0;<span 
class="ectt-1200">loi=8</span>&#x00A0;<span 
class="ectt-1200">:</span>&#x00A0;<span 
class="ectt-1200">Beta(p,q)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">si</span>&#x00A0;<span 
class="ectt-1200">loi=9</span>&#x00A0;<span 
class="ectt-1200">:</span>&#x00A0;<span 
class="ectt-1200">Uniform(a,b)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">si</span>&#x00A0;<span 
class="ectt-1200">loi=10</span>&#x00A0;<span 
class="ectt-1200">:</span>&#x00A0;<span 
class="ectt-1200">Shifted</span>&#x00A0;<span 
class="ectt-1200">exp</span>&#x00A0;<span 
class="ectt-1200">(l,b)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">si</span>&#x00A0;<span 
class="ectt-1200">loi=11</span>&#x00A0;<span 
class="ectt-1200">:</span>&#x00A0;<span 
class="ectt-1200">Pareto(a,k)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">si</span>&#x00A0;<span 
class="ectt-1200">loi=12</span>&#x00A0;<span 
class="ectt-1200">:</span>&#x00A0;<span 
class="ectt-1200">Shifted</span>&#x00A0;<span 
class="ectt-1200">Pareto</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">si</span>&#x00A0;<span 
class="ectt-1200">loi=13</span>&#x00A0;<span 
class="ectt-1200">:</span>&#x00A0;<span 
class="ectt-1200">SU(g,d)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">si</span>&#x00A0;<span 
class="ectt-1200">loi=14</span>&#x00A0;<span 
class="ectt-1200">:</span>&#x00A0;<span 
class="ectt-1200">TU(l)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">si</span>&#x00A0;<span 
class="ectt-1200">loi=15</span>&#x00A0;<span 
class="ectt-1200">:</span>&#x00A0;<span 
class="ectt-1200">Logistic</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">si</span>&#x00A0;<span 
class="ectt-1200">loi=16</span>&#x00A0;<span 
class="ectt-1200">:</span>&#x00A0;<span 
class="ectt-1200">SC(p,d)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">si</span>&#x00A0;<span 
class="ectt-1200">loi=17</span>&#x00A0;<span 
class="ectt-1200">:</span>&#x00A0;<span 
class="ectt-1200">LC(p,m)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">si</span>&#x00A0;<span 
class="ectt-1200">loi=18</span>&#x00A0;<span 
class="ectt-1200">:</span>&#x00A0;<span 
class="ectt-1200">SB(g,d)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">si</span>&#x00A0;<span 
class="ectt-1200">loi=19</span>&#x00A0;<span 
class="ectt-1200">:</span>&#x00A0;<span 
class="ectt-1200">S(a,b)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">loi</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">vecteur</span>&#x00A0;<span 
class="ectt-1200">des</span>&#x00A0;<span 
class="ectt-1200">donnees</span>&#x00A0;<span 
class="ectt-1200">cree</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">donees(nT)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Esperances</span>&#x00A0;<span 
class="ectt-1200">des</span>&#x00A0;<span 
class="ectt-1200">lois</span>&#x00A0;<span 
class="ectt-1200">SU,</span>&#x00A0;<span 
class="ectt-1200">SB</span>&#x00A0;<span 
class="ectt-1200">et</span>&#x00A0;<span 
class="ectt-1200">S</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">**</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">EspSU,EspSB,EspS</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(EspSU=0.0,</span>&#x00A0;<span 
class="ectt-1200">EspSB=0.5,</span>&#x00A0;<span 
class="ectt-1200">EspS=0.0)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CHARACTER*13</span>&#x00A0;<span 
class="ectt-1200">efface</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">temp(2)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">j</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CHARACTER*5</span>&#x00A0;<span 
class="ectt-1200">ftemp</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CHARACTER*1</span>&#x00A0;<span 
class="ectt-1200">INTCH1</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CHARACTER*2</span>&#x00A0;<span 
class="ectt-1200">INTCH2</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CHARACTER*3</span>&#x00A0;<span 
class="ectt-1200">INTCH3</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CHARACTER*4</span>&#x00A0;<span 
class="ectt-1200">INTCH4</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">matric(n,18)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">dnT</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(dnT=Kp)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">QLed1u,QLe12u</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(QLed1u=QuLed1,QLe12u=QuLe12)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">QLed2u,QLe22u</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(QLed2u=QuLed2,QLe22u=QuLe22)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">QBDu,QBD2u</span>

&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(QBDu=QuBD,QBD2u=QuBD2)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">QADu,QAD2u</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(QADu=QuAD,QAD2u=QuAD2)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">QJBu,QJB2u</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(QJBu=QuJB,QJB2u=QuJB2)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">phi(2),</span>&#x00A0;<span 
class="ectt-1200">teta(2)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">NI,</span>&#x00A0;<span 
class="ectt-1200">NX,</span>&#x00A0;<span 
class="ectt-1200">IFAIL</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(NX=4,NI=9)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">IA(NI)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">XA(NX)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">seed=1</span>&#x00A0;<span 
class="ectt-1200">(non-repeatable</span>&#x00A0;<span 
class="ectt-1200">sequence)</span>&#x00A0;<span 
class="ectt-1200">ou</span>&#x00A0;<span 
class="ectt-1200">seed=0</span>&#x00A0;<span 
class="ectt-1200">(repeatable</span>&#x00A0;<span 
class="ectt-1200">sequence)</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">**</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">seed</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(seed=0)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">-------------------------------------------------------</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Fin</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">declaration</span>&#x00A0;<span 
class="ectt-1200">des</span>&#x00A0;<span 
class="ectt-1200">variables</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">-------------------------------------------------------</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">G05CBF</span>&#x00A0;<span 
class="ectt-1200">Initialise</span>&#x00A0;<span 
class="ectt-1200">random</span>&#x00A0;<span 
class="ectt-1200">number</span>&#x00A0;<span 
class="ectt-1200">generating</span>&#x00A0;<span 
class="ectt-1200">routines</span>&#x00A0;<span 
class="ectt-1200">to</span>&#x00A0;<span 
class="ectt-1200">give</span>&#x00A0;<span 
class="ectt-1200">repeatable</span>&#x00A0;<span 
class="ectt-1200">sequence</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">G05CCF</span>&#x00A0;<span 
class="ectt-1200">Initialise</span>&#x00A0;<span 
class="ectt-1200">random</span>&#x00A0;<span 
class="ectt-1200">number</span>&#x00A0;<span 
class="ectt-1200">generating</span>&#x00A0;<span 
class="ectt-1200">routines</span>&#x00A0;<span 
class="ectt-1200">to</span>&#x00A0;<span 
class="ectt-1200">give</span>&#x00A0;<span 
class="ectt-1200">non-repeatable</span>&#x00A0;<span 
class="ectt-1200">sequence</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">G05CFF</span>&#x00A0;<span 
class="ectt-1200">Save</span>&#x00A0;<span 
class="ectt-1200">state</span>&#x00A0;<span 
class="ectt-1200">of</span>&#x00A0;<span 
class="ectt-1200">random</span>&#x00A0;<span 
class="ectt-1200">number</span>&#x00A0;<span 
class="ectt-1200">generating</span>&#x00A0;<span 
class="ectt-1200">routines</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">G05CGF</span>&#x00A0;<span 
class="ectt-1200">Restore</span>&#x00A0;<span 
class="ectt-1200">state</span>&#x00A0;<span 
class="ectt-1200">of</span>&#x00A0;<span 
class="ectt-1200">random</span>&#x00A0;<span 
class="ectt-1200">number</span>&#x00A0;<span 
class="ectt-1200">generating</span>&#x00A0;<span 
class="ectt-1200">routines</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">IF</span>&#x00A0;<span 
class="ectt-1200">(seed</span>&#x00A0;<span 
class="ectt-1200">.EQ.</span>&#x00A0;<span 
class="ectt-1200">1)</span>&#x00A0;<span 
class="ectt-1200">THEN</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CALL</span>&#x00A0;<span 
class="ectt-1200">G05CCF</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">ENDIF</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">IF</span>&#x00A0;<span 
class="ectt-1200">(seed</span>&#x00A0;<span 
class="ectt-1200">.EQ.</span>&#x00A0;<span 
class="ectt-1200">0)</span>&#x00A0;<span 
class="ectt-1200">THEN</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CALL</span>&#x00A0;<span 
class="ectt-1200">G05CBF(0)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">ENDIF</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">IFAIL=0</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Rajouter</span>&#x00A0;<span 
class="ectt-1200">ici,</span>&#x00A0;<span 
class="ectt-1200">si</span>&#x00A0;<span 
class="ectt-1200">voulu,</span>&#x00A0;<span 
class="ectt-1200">les</span>&#x00A0;<span 
class="ectt-1200">IA</span>&#x00A0;<span 
class="ectt-1200">et</span>&#x00A0;<span 
class="ectt-1200">les</span>&#x00A0;<span 
class="ectt-1200">XA</span>&#x00A0;<span 
class="ectt-1200">a</span>&#x00A0;<span 
class="ectt-1200">prendre</span>&#x00A0;<span 
class="ectt-1200">a</span>&#x00A0;<span 
class="ectt-1200">la</span>&#x00A0;<span 
class="ectt-1200">fin</span>&#x00A0;<span 
class="ectt-1200">du</span>&#x00A0;<span 
class="ectt-1200">fichier</span>&#x00A0;<span 
class="ectt-1200">para.ijkl:</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">**</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">A</span>&#x00A0;<span 
class="ectt-1200">(de)commenter</span>&#x00A0;<span 
class="ectt-1200">si</span>&#x00A0;<span 
class="ectt-1200">necessaire</span>&#x00A0;<span 
class="ectt-1200">(si</span>&#x00A0;<span 
class="ectt-1200">on</span>&#x00A0;<span 
class="ectt-1200">rajoute</span>&#x00A0;<span 
class="ectt-1200">les</span>&#x00A0;<span 
class="ectt-1200">IA</span>&#x00A0;<span 
class="ectt-1200">et</span>&#x00A0;<span 
class="ectt-1200">XA,</span>&#x00A0;<span 
class="ectt-1200">on</span>&#x00A0;<span 
class="ectt-1200">decommente)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CALL</span>&#x00A0;<span 
class="ectt-1200">G05CGF(IA,NI,XA,NX,IFAIL)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CALL</span>&#x00A0;<span 
class="ectt-1200">G05CFF(IA,NI,XA,NX,IFAIL)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">nbcle=n</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">efface=&#x2019;rm</span>&#x00A0;<span 
class="ectt-1200">./data.txt&#x2019;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">ftemp=&#x2019;ftemp&#x2019;</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">On</span>&#x00A0;<span 
class="ectt-1200">va</span>&#x00A0;<span 
class="ectt-1200">lire</span>&#x00A0;<span 
class="ectt-1200">les</span>&#x00A0;<span 
class="ectt-1200">parametres</span>&#x00A0;<span 
class="ectt-1200">necessaires</span>&#x00A0;<span 
class="ectt-1200">dans</span>&#x00A0;<span 
class="ectt-1200">ftemp</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">temp</span>&#x00A0;<span 
class="ectt-1200">va</span>&#x00A0;<span 
class="ectt-1200">contenir</span>&#x00A0;<span 
class="ectt-1200">sur</span>&#x00A0;<span 
class="ectt-1200">chaque</span>&#x00A0;<span 
class="ectt-1200">ligne:</span>&#x00A0;<span 
class="ectt-1200">j,</span>&#x00A0;<span 
class="ectt-1200">loi</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">OPEN(UNIT=15,</span>&#x00A0;<span 
class="ectt-1200">FILE=ftemp</span>&#x00A0;<span 
class="ectt-1200">,</span>&#x00A0;<span 
class="ectt-1200">STATUS=&#x2019;OLD&#x2019;</span>&#x00A0;<span 
class="ectt-1200">)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">READ(15,*,END=10)</span>&#x00A0;<span 
class="ectt-1200">(temp(j),j=1,2)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CLOSE(15)</span>
&#x00A0;<br />&#x00A0;<span 
class="ectt-1200">10</span>&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">j=temp(1)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">loi=temp(2)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">phi(1)=0.0</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">phi(2)=0.0</span>

&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">teta(1)=0.0</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">teta(2)=0.0</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">On</span>&#x00A0;<span 
class="ectt-1200">sauvegarde</span>&#x00A0;<span 
class="ectt-1200">la</span>&#x00A0;<span 
class="ectt-1200">valeur</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">nbcle</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">nbclea=nbcle</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Nom</span>&#x00A0;<span 
class="ectt-1200">du</span>&#x00A0;<span 
class="ectt-1200">fichier</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">donnees</span>&#x00A0;<span 
class="ectt-1200">en</span>&#x00A0;<span 
class="ectt-1200">sortie</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">**</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">dataf=&#x2019;data.txt&#x2019;</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Permet</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">convertir</span>&#x00A0;<span 
class="ectt-1200">l&#x2019;entier</span>&#x00A0;<span 
class="ectt-1200">j</span>&#x00A0;<span 
class="ectt-1200">en</span>&#x00A0;<span 
class="ectt-1200">chaine</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">caracteres</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">IF</span>&#x00A0;<span 
class="ectt-1200">(j/10</span>&#x00A0;<span 
class="ectt-1200">.LT.</span>&#x00A0;<span 
class="ectt-1200">1)</span>&#x00A0;<span 
class="ectt-1200">THEN</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(INTCH1,</span>&#x00A0;<span 
class="ectt-1200">&#x2019;(I1)&#x2019;)</span>&#x00A0;<span 
class="ectt-1200">j</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Nom</span>&#x00A0;<span 
class="ectt-1200">du</span>&#x00A0;<span 
class="ectt-1200">fichier</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">parametres</span>&#x00A0;<span 
class="ectt-1200">en</span>&#x00A0;<span 
class="ectt-1200">sortie</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">**</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">paramf=&#x2019;./SIMUL/para.&#x2019;//&#x2019;000&#x2019;//INTCH1</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">filew=&#x2019;./SIMUL/resultat.&#x2019;//&#x2019;000&#x2019;//INTCH1</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">ENDIF</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">IF</span>&#x00A0;<span 
class="ectt-1200">((j/10</span>&#x00A0;<span 
class="ectt-1200">.EQ.</span>&#x00A0;<span 
class="ectt-1200">1)</span>&#x00A0;<span 
class="ectt-1200">.OR.</span>&#x00A0;<span 
class="ectt-1200">((j/10</span>&#x00A0;<span 
class="ectt-1200">.GT.</span>&#x00A0;<span 
class="ectt-1200">1)</span>&#x00A0;<span 
class="ectt-1200">.AND.</span>&#x00A0;<span 
class="ectt-1200">(j/10</span>&#x00A0;<span 
class="ectt-1200">.LT.</span>&#x00A0;<span 
class="ectt-1200">10)))</span>&#x00A0;<span 
class="ectt-1200">THEN</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(INTCH2,</span>&#x00A0;<span 
class="ectt-1200">&#x2019;(I2)&#x2019;)</span>&#x00A0;<span 
class="ectt-1200">j</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Nom</span>&#x00A0;<span 
class="ectt-1200">du</span>&#x00A0;<span 
class="ectt-1200">fichier</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">parametres</span>&#x00A0;<span 
class="ectt-1200">en</span>&#x00A0;<span 
class="ectt-1200">sortie</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">**</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">paramf=&#x2019;./SIMUL/para.&#x2019;//&#x2019;00&#x2019;//INTCH2</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">filew=&#x2019;./SIMUL/resultat.&#x2019;//&#x2019;00&#x2019;//INTCH2</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">ENDIF</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">IF</span>&#x00A0;<span 
class="ectt-1200">((j/10</span>&#x00A0;<span 
class="ectt-1200">.EQ.</span>&#x00A0;<span 
class="ectt-1200">10)</span>&#x00A0;<span 
class="ectt-1200">.OR.</span>&#x00A0;<span 
class="ectt-1200">((j/10</span>&#x00A0;<span 
class="ectt-1200">.GT.</span>&#x00A0;<span 
class="ectt-1200">10)</span>&#x00A0;<span 
class="ectt-1200">.AND.</span>&#x00A0;<span 
class="ectt-1200">(j/10</span>&#x00A0;<span 
class="ectt-1200">.LT.</span>&#x00A0;<span 
class="ectt-1200">100)))</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">+</span>&#x00A0;<span 
class="ectt-1200">THEN</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(INTCH3,</span>&#x00A0;<span 
class="ectt-1200">&#x2019;(I3)&#x2019;)</span>&#x00A0;<span 
class="ectt-1200">j</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Nom</span>&#x00A0;<span 
class="ectt-1200">du</span>&#x00A0;<span 
class="ectt-1200">fichier</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">parametres</span>&#x00A0;<span 
class="ectt-1200">en</span>&#x00A0;<span 
class="ectt-1200">sortie</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">**</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">paramf=&#x2019;./SIMUL/para.&#x2019;//&#x2019;0&#x2019;//INTCH3</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">filew=&#x2019;./SIMUL/resultat.&#x2019;//&#x2019;0&#x2019;//INTCH3</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">ENDIF</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">IF</span>&#x00A0;<span 
class="ectt-1200">((j/10</span>&#x00A0;<span 
class="ectt-1200">.EQ.</span>&#x00A0;<span 
class="ectt-1200">100)</span>&#x00A0;<span 
class="ectt-1200">.OR.</span>&#x00A0;<span 
class="ectt-1200">((j/10</span>&#x00A0;<span 
class="ectt-1200">.GT.</span>&#x00A0;<span 
class="ectt-1200">100)</span>&#x00A0;<span 
class="ectt-1200">.AND.</span>&#x00A0;<span 
class="ectt-1200">(j/10</span>&#x00A0;<span 
class="ectt-1200">.LT.</span>&#x00A0;<span 
class="ectt-1200">1000)))</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">+</span>&#x00A0;<span 
class="ectt-1200">THEN</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(INTCH4,</span>&#x00A0;<span 
class="ectt-1200">&#x2019;(I4)&#x2019;)</span>&#x00A0;<span 
class="ectt-1200">j</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Nom</span>&#x00A0;<span 
class="ectt-1200">du</span>&#x00A0;<span 
class="ectt-1200">fichier</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">parametres</span>&#x00A0;<span 
class="ectt-1200">en</span>&#x00A0;<span 
class="ectt-1200">sortie</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">**</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">paramf=&#x2019;./SIMUL/para.&#x2019;//INTCH4</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">filew=&#x2019;./SIMUL/resultat.&#x2019;//INTCH4</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">ENDIF</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">IF</span>&#x00A0;<span 
class="ectt-1200">(loi</span>&#x00A0;<span 
class="ectt-1200">.EQ.</span>&#x00A0;<span 
class="ectt-1200">0)</span>&#x00A0;<span 
class="ectt-1200">THEN</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Quantiles</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">la</span>&#x00A0;<span 
class="ectt-1200">loi</span>&#x00A0;<span 
class="ectt-1200">du</span>&#x00A0;<span 
class="ectt-1200">Khi2</span>&#x00A0;<span 
class="ectt-1200">(K=10;alpha=0.1)</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">**</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">khi(1)=2.71</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">khi(2)=4.61</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">khi(3)=6.25</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">khi(4)=7.78</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">khi(5)=9.24</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">khi(6)=10.64</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">khi(7)=12.02</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">khi(8)=13.36</span>

&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">khi(9)=14.68</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">khi(10)=15.99</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Quantiles</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">la</span>&#x00A0;<span 
class="ectt-1200">loi</span>&#x00A0;<span 
class="ectt-1200">du</span>&#x00A0;<span 
class="ectt-1200">Khi2</span>&#x00A0;<span 
class="ectt-1200">(K=10;alpha=0.05)</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">**</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">khi2(1)=3.84</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">khi2(2)=5.99</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">khi2(3)=7.81</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">khi2(4)=9.49</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">khi2(5)=11.07</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">khi2(6)=12.59</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">khi2(7)=14.07</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">khi2(8)=15.51</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">khi2(9)=16.92</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">khi2(10)=18.31</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">ENDIF</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">IF</span>&#x00A0;<span 
class="ectt-1200">(loi</span>&#x00A0;<span 
class="ectt-1200">.NE.</span>&#x00A0;<span 
class="ectt-1200">0)</span>&#x00A0;<span 
class="ectt-1200">THEN</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Quantiles</span>&#x00A0;<span 
class="ectt-1200">utilises</span>&#x00A0;<span 
class="ectt-1200">pour</span>&#x00A0;<span 
class="ectt-1200">le</span>&#x00A0;<span 
class="ectt-1200">calcul</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">la</span>&#x00A0;<span 
class="ectt-1200">stat(vrais</span>&#x00A0;<span 
class="ectt-1200">quantiles</span>&#x00A0;<span 
class="ectt-1200">calcules</span>&#x00A0;<span 
class="ectt-1200">sous</span>&#x00A0;<span 
class="ectt-1200">H0)</span>&#x00A0;&#x00A0;<span 
class="ectt-1200">**</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">avec</span>&#x00A0;<span 
class="ectt-1200">alpha=0.1</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">khi(1)=2.71</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">khi(2)=4.61</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">khi(3)=6.25</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">khi(4)=7.78</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">khi(5)=9.24</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">khi(6)=10.64</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">khi(7)=12.02</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">khi(8)=13.36</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">khi(9)=14.68</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">khi(10)=15.99</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Quantiles</span>&#x00A0;<span 
class="ectt-1200">utilises</span>&#x00A0;<span 
class="ectt-1200">pour</span>&#x00A0;<span 
class="ectt-1200">le</span>&#x00A0;<span 
class="ectt-1200">calcul</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">la</span>&#x00A0;<span 
class="ectt-1200">stat(vrais</span>&#x00A0;<span 
class="ectt-1200">quantiles</span>&#x00A0;<span 
class="ectt-1200">calcules</span>&#x00A0;<span 
class="ectt-1200">sous</span>&#x00A0;<span 
class="ectt-1200">H0)</span>&#x00A0;&#x00A0;<span 
class="ectt-1200">**</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">avec</span>&#x00A0;<span 
class="ectt-1200">alpha=0.05</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">khi2(1)=3.84</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">khi2(2)=5.99</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">khi2(3)=7.81</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">khi2(4)=9.49</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">khi2(5)=11.07</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">khi2(6)=12.59</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">khi2(7)=14.07</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">khi2(8)=15.51</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">khi2(9)=16.92</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">khi2(10)=18.31</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">ENDIF</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">On</span>&#x00A0;<span 
class="ectt-1200">peut</span>&#x00A0;<span 
class="ectt-1200">aussi</span>&#x00A0;<span 
class="ectt-1200">changer</span>&#x00A0;<span 
class="ectt-1200">le</span>&#x00A0;<span 
class="ectt-1200">nom</span>&#x00A0;<span 
class="ectt-1200">du</span>&#x00A0;<span 
class="ectt-1200">fichier</span>&#x00A0;<span 
class="ectt-1200">en</span>&#x00A0;<span 
class="ectt-1200">entree</span>&#x00A0;<span 
class="ectt-1200">(data.txt)</span>&#x00A0;<span 
class="ectt-1200">et</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">**</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">le</span>&#x00A0;<span 
class="ectt-1200">nom</span>&#x00A0;<span 
class="ectt-1200">du</span>&#x00A0;<span 
class="ectt-1200">fichier</span>&#x00A0;<span 
class="ectt-1200">en</span>&#x00A0;<span 
class="ectt-1200">sortie</span>&#x00A0;<span 
class="ectt-1200">(resultat.txt)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">filer=&#x2019;data.txt&#x2019;</span>

&#x00A0;<br /><span 
class="ectt-1200">c-----------------------------------------------------------</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">------------------------------------------------------------------------</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DEBUT</span>&#x00A0;<span 
class="ectt-1200">DU</span>&#x00A0;<span 
class="ectt-1200">PROGRAMME</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">------------------------------------------------------------------------</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CALL</span>&#x00A0;<span 
class="ectt-1200">cdzero(dataf,paramf,nbcle,sigma,mu,df1,df2,</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">+</span>&#x00A0;<span 
class="ectt-1200">lambda,loi5b,loi5k,loi6p,loi6q,loi7g,loi7d,loi8p,loi8q,loi9a,</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">+loi9b,loi10b,loi10l,loi11a,loi11k,loi13g,loi13d,loi14l,loi16p,</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">+loi16d,loi17p,loi17m,loi18g,loi18d,loi19a,loi19b,loi,p,q,nT,</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">+</span>&#x00A0;<span 
class="ectt-1200">donees,EspSU,EspSB,EspS)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Il</span>&#x00A0;<span 
class="ectt-1200">faut</span>&#x00A0;<span 
class="ectt-1200">faire</span>&#x00A0;<span 
class="ectt-1200">modifier</span>&#x00A0;<span 
class="ectt-1200">par</span>&#x00A0;<span 
class="ectt-1200">cdARMA</span>&#x00A0;<span 
class="ectt-1200">la</span>&#x00A0;<span 
class="ectt-1200">valeur</span>&#x00A0;<span 
class="ectt-1200">nbcle</span>&#x00A0;<span 
class="ectt-1200">en</span>&#x00A0;<span 
class="ectt-1200">entree</span>&#x00A0;<span 
class="ectt-1200">pour</span>&#x00A0;<span 
class="ectt-1200">lui</span>&#x00A0;<span 
class="ectt-1200">faire</span>&#x00A0;<span 
class="ectt-1200">sortir</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">une</span>&#x00A0;<span 
class="ectt-1200">nouvelle</span>&#x00A0;<span 
class="ectt-1200">valeur</span>&#x00A0;<span 
class="ectt-1200">nbcle</span>&#x00A0;<span 
class="ectt-1200">qui</span>&#x00A0;<span 
class="ectt-1200">est</span>&#x00A0;<span 
class="ectt-1200">le</span>&#x00A0;<span 
class="ectt-1200">nombre</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">bons</span>&#x00A0;<span 
class="ectt-1200">echantillons</span>&#x00A0;<span 
class="ectt-1200">conserves</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Ensuite,</span>&#x00A0;<span 
class="ectt-1200">il</span>&#x00A0;<span 
class="ectt-1200">faut</span>&#x00A0;<span 
class="ectt-1200">utiliser</span>&#x00A0;<span 
class="ectt-1200">cette</span>&#x00A0;<span 
class="ectt-1200">valeur</span>&#x00A0;<span 
class="ectt-1200">dans</span>&#x00A0;<span 
class="ectt-1200">calcstat,</span>&#x00A0;<span 
class="ectt-1200">comme</span>&#x00A0;<span 
class="ectt-1200">etant</span>&#x00A0;<span 
class="ectt-1200">la</span>&#x00A0;<span 
class="ectt-1200">vraie</span>&#x00A0;<span 
class="ectt-1200">valeur</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">du</span>&#x00A0;<span 
class="ectt-1200">nombre</span>&#x00A0;<span 
class="ectt-1200">d&#x2019;echantillons</span>&#x00A0;<span 
class="ectt-1200">disponibles,</span>&#x00A0;<span 
class="ectt-1200">la</span>&#x00A0;<span 
class="ectt-1200">valeur</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">n</span>&#x00A0;<span 
class="ectt-1200">que</span>&#x00A0;<span 
class="ectt-1200">l&#x2019;on</span>&#x00A0;<span 
class="ectt-1200">a</span>&#x00A0;<span 
class="ectt-1200">mise</span>&#x00A0;<span 
class="ectt-1200">etant</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">la</span>&#x00A0;<span 
class="ectt-1200">valeur</span>&#x00A0;<span 
class="ectt-1200">maximale</span>&#x00A0;<span 
class="ectt-1200">possible</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">bons</span>&#x00A0;<span 
class="ectt-1200">echantillons,</span>&#x00A0;<span 
class="ectt-1200">donc</span>&#x00A0;<span 
class="ectt-1200">les</span>&#x00A0;<span 
class="ectt-1200">differentes</span>&#x00A0;<span 
class="ectt-1200">matrices</span>&#x00A0;<span 
class="ectt-1200">initialisees</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">a</span>&#x00A0;<span 
class="ectt-1200">l&#x2019;aide</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">la</span>&#x00A0;<span 
class="ectt-1200">valeur</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">n</span>&#x00A0;<span 
class="ectt-1200">sont</span>&#x00A0;<span 
class="ectt-1200">plus</span>&#x00A0;<span 
class="ectt-1200">grandes</span>&#x00A0;<span 
class="ectt-1200">que</span>&#x00A0;<span 
class="ectt-1200">necessaires</span>&#x00A0;<span 
class="ectt-1200">(elles</span>&#x00A0;<span 
class="ectt-1200">auraient</span>&#x00A0;<span 
class="ectt-1200">du</span>&#x00A0;<span 
class="ectt-1200">etre</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">initialisees</span>&#x00A0;<span 
class="ectt-1200">avec</span>&#x00A0;<span 
class="ectt-1200">la</span>&#x00A0;<span 
class="ectt-1200">valeur</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">nbcle</span>&#x00A0;<span 
class="ectt-1200">renvoyee</span>&#x00A0;<span 
class="ectt-1200">par</span>&#x00A0;<span 
class="ectt-1200">cd</span>&#x00A0;<span 
class="ectt-1200">ARMA</span>&#x00A0;<span 
class="ectt-1200">mais</span>&#x00A0;<span 
class="ectt-1200">ce</span>&#x00A0;<span 
class="ectt-1200">n&#x2019;est</span>&#x00A0;<span 
class="ectt-1200">pas</span>&#x00A0;<span 
class="ectt-1200">possible</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">avec</span>&#x00A0;<span 
class="ectt-1200">fortran77)</span>&#x00A0;<span 
class="ectt-1200">et</span>&#x00A0;<span 
class="ectt-1200">il</span>&#x00A0;<span 
class="ectt-1200">faut</span>&#x00A0;<span 
class="ectt-1200">en</span>&#x00A0;<span 
class="ectt-1200">tenir</span>&#x00A0;<span 
class="ectt-1200">compte;</span>&#x00A0;<span 
class="ectt-1200">donc</span>&#x00A0;<span 
class="ectt-1200">bien</span>&#x00A0;<span 
class="ectt-1200">regarder</span>&#x00A0;<span 
class="ectt-1200">partout</span>&#x00A0;<span 
class="ectt-1200">dans</span>&#x00A0;<span 
class="ectt-1200">le</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">programme</span>&#x00A0;<span 
class="ectt-1200">calcstat</span>&#x00A0;<span 
class="ectt-1200">la</span>&#x00A0;<span 
class="ectt-1200">ou</span>&#x00A0;<span 
class="ectt-1200">il</span>&#x00A0;<span 
class="ectt-1200">y</span>&#x00A0;<span 
class="ectt-1200">a</span>&#x00A0;<span 
class="ectt-1200">n:</span>&#x00A0;<span 
class="ectt-1200">OK</span>&#x00A0;<span 
class="ectt-1200">CA</span>&#x00A0;<span 
class="ectt-1200">C&#x2019;EST</span>&#x00A0;<span 
class="ectt-1200">FAIT!!!</span>&#x00A0;<span 
class="ectt-1200">A</span>&#x00A0;<span 
class="ectt-1200">METTRE</span>&#x00A0;<span 
class="ectt-1200">EN</span>&#x00A0;<span 
class="ectt-1200">COMMENTAIRES</span>&#x00A0;<span 
class="ectt-1200">QUELQUEPART</span>&#x00A0;<span 
class="ectt-1200">...</span>
&#x00A0;<br /><span 
class="ectt-1200">CALL</span>&#x00A0;<span 
class="ectt-1200">calcstat(isa,khi,khi2,QuLed1,QuLe12,QuLed2,QuLe22,QuBD,</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">+</span>&#x00A0;<span 
class="ectt-1200">QuBD2,QuAD,QuAD2,QuJB,QuJB2,alpha,alpha2,Kp,p,q,nT,phi,teta,n,</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">+</span>&#x00A0;<span 
class="ectt-1200">nbcle,m,filer,filew,valeur,sch2vc,epscha,compt,compt2,statn,</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">+</span>&#x00A0;<span 
class="ectt-1200">KoLed1,KoLed2,Ledwi1,Ledwi2,snLed1,snLed2,stanBD,stanAD,stanJB,Z,</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">+</span>&#x00A0;<span 
class="ectt-1200">D,Davant,E2,U,hUetoi,Uavant,hKetoi,hU,hK,vecteu,vectoi,stat,</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">+</span>&#x00A0;<span 
class="ectt-1200">Zavant,BDa,BDb,BDc,BDd,Davan2,ADa,ADb,Puiss,Puiss2,snsort,snsorv,</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">+</span>&#x00A0;<span 
class="ectt-1200">Qucalc,snLe1s,snLe2s,snBDso,snADso,snJBso,matric,paramf,loi,</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">+</span>&#x00A0;<span 
class="ectt-1200">dnT,QLed1u,QLe12u,QLed2u,QLe22u,QBDu,QBD2u,QADu,QAD2u,QJBu,QJB2u)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">nbcle=nbclea</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">FAIRE</span>&#x00A0;<span 
class="ectt-1200">ATTENTION:</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">voir</span>&#x00A0;<span 
class="ectt-1200">si</span>&#x00A0;<span 
class="ectt-1200">mes</span>&#x00A0;<span 
class="ectt-1200">programmes</span>&#x00A0;<span 
class="ectt-1200">ne</span>&#x00A0;<span 
class="ectt-1200">modifient</span>&#x00A0;<span 
class="ectt-1200">pas</span>&#x00A0;<span 
class="ectt-1200">certains</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">leurs</span>&#x00A0;<span 
class="ectt-1200">parametres</span>&#x00A0;<span 
class="ectt-1200">en</span>&#x00A0;<span 
class="ectt-1200">entree</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">ce</span>&#x00A0;<span 
class="ectt-1200">qui</span>&#x00A0;<span 
class="ectt-1200">pourrait</span>&#x00A0;<span 
class="ectt-1200">ammener</span>&#x00A0;<span 
class="ectt-1200">des</span>&#x00A0;<span 
class="ectt-1200">erreurs</span>&#x00A0;<span 
class="ectt-1200">au</span>&#x00A0;<span 
class="ectt-1200">cours</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">la</span>&#x00A0;<span 
class="ectt-1200">boucle</span>&#x00A0;<span 
class="ectt-1200">que</span>&#x00A0;<span 
class="ectt-1200">je</span>&#x00A0;<span 
class="ectt-1200">vais</span>&#x00A0;<span 
class="ectt-1200">faire</span>&#x00A0;<span 
class="ectt-1200">dans</span>&#x00A0;<span 
class="ectt-1200">le</span>&#x00A0;<span 
class="ectt-1200">programme</span>&#x00A0;<span 
class="ectt-1200">test.f</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">pour</span>&#x00A0;<span 
class="ectt-1200">les</span>&#x00A0;<span 
class="ectt-1200">differentes</span>&#x00A0;<span 
class="ectt-1200">etapes</span>&#x00A0;<span 
class="ectt-1200">1),</span>&#x00A0;<span 
class="ectt-1200">2)</span>&#x00A0;<span 
class="ectt-1200">et</span>&#x00A0;<span 
class="ectt-1200">3)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CALL</span>&#x00A0;<span 
class="ectt-1200">SYSTEM(efface)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Sauvegarde</span>&#x00A0;<span 
class="ectt-1200">du</span>&#x00A0;<span 
class="ectt-1200">seed</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">OPEN(UNIT=14,</span>&#x00A0;<span 
class="ectt-1200">FILE=paramf</span>&#x00A0;<span 
class="ectt-1200">,</span>&#x00A0;<span 
class="ectt-1200">STATUS=&#x2019;OLD&#x2019;,</span>&#x00A0;<span 
class="ectt-1200">ACCESS=&#x2019;append&#x2019;</span>&#x00A0;<span 
class="ectt-1200">)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(14,*)</span>&#x00A0;<span 
class="ectt-1200">&#x2019;Sauvegarde</span>&#x00A0;<span 
class="ectt-1200">du</span>&#x00A0;<span 
class="ectt-1200">seed:&#x2019;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(14,*)</span>&#x00A0;<span 
class="ectt-1200">&#x2019;XA:&#x2019;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(14,15)</span>&#x00A0;<span 
class="ectt-1200">&#x2019;XA(1)=&#x2019;,XA(1)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(14,15)</span>&#x00A0;<span 
class="ectt-1200">&#x2019;XA(2)=&#x2019;,XA(2)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(14,15)</span>&#x00A0;<span 
class="ectt-1200">&#x2019;XA(3)=&#x2019;,XA(3)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(14,15)</span>&#x00A0;<span 
class="ectt-1200">&#x2019;XA(4)=&#x2019;,XA(4)</span>
&#x00A0;<br />&#x00A0;<span 
class="ectt-1200">15</span>&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">FORMAT(A6,1F20.15)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(14,*)</span>&#x00A0;<span 
class="ectt-1200">&#x2019;IA:&#x2019;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(14,30)</span>&#x00A0;<span 
class="ectt-1200">&#x2019;IA(1)=&#x2019;,IA(1)</span>

&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(14,30)</span>&#x00A0;<span 
class="ectt-1200">&#x2019;IA(2)=&#x2019;,IA(2)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(14,30)</span>&#x00A0;<span 
class="ectt-1200">&#x2019;IA(3)=&#x2019;,IA(3)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(14,30)</span>&#x00A0;<span 
class="ectt-1200">&#x2019;IA(4)=&#x2019;,IA(4)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(14,30)</span>&#x00A0;<span 
class="ectt-1200">&#x2019;IA(5)=&#x2019;,IA(5)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(14,30)</span>&#x00A0;<span 
class="ectt-1200">&#x2019;IA(6)=&#x2019;,IA(6)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(14,30)</span>&#x00A0;<span 
class="ectt-1200">&#x2019;IA(7)=&#x2019;,IA(7)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(14,30)</span>&#x00A0;<span 
class="ectt-1200">&#x2019;IA(8)=&#x2019;,IA(8)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(14,30)</span>&#x00A0;<span 
class="ectt-1200">&#x2019;IA(9)=&#x2019;,IA(9)</span>
&#x00A0;<br />&#x00A0;<span 
class="ectt-1200">30</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">FORMAT(A6,1I10)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CLOSE(UNIT=14)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">END</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INCLUDE</span>&#x00A0;<span 
class="ectt-1200">&#x2019;mean.f&#x2019;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INCLUDE</span>&#x00A0;<span 
class="ectt-1200">&#x2019;simulARMA.f&#x2019;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INCLUDE</span>&#x00A0;<span 
class="ectt-1200">&#x2019;ARMpsi.f&#x2019;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INCLUDE</span>&#x00A0;<span 
class="ectt-1200">&#x2019;shock.f&#x2019;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INCLUDE</span>&#x00A0;<span 
class="ectt-1200">&#x2019;rskew.f&#x2019;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INCLUDE</span>&#x00A0;<span 
class="ectt-1200">&#x2019;rlap.f&#x2019;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INCLUDE</span>&#x00A0;<span 
class="ectt-1200">&#x2019;rpare.f&#x2019;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INCLUDE</span>&#x00A0;<span 
class="ectt-1200">&#x2019;rspare.f&#x2019;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INCLUDE</span>&#x00A0;<span 
class="ectt-1200">&#x2019;rSU.f&#x2019;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INCLUDE</span>&#x00A0;<span 
class="ectt-1200">&#x2019;rTU.f&#x2019;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INCLUDE</span>&#x00A0;<span 
class="ectt-1200">&#x2019;rSC.f&#x2019;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INCLUDE</span>&#x00A0;<span 
class="ectt-1200">&#x2019;rLC.f&#x2019;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INCLUDE</span>&#x00A0;<span 
class="ectt-1200">&#x2019;rSB.f&#x2019;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INCLUDE</span>&#x00A0;<span 
class="ectt-1200">&#x2019;rS.f&#x2019;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INCLUDE</span>&#x00A0;<span 
class="ectt-1200">&#x2019;H1etoile.f&#x2019;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INCLUDE</span>&#x00A0;<span 
class="ectt-1200">&#x2019;H2etoile.f&#x2019;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INCLUDE</span>&#x00A0;<span 
class="ectt-1200">&#x2019;H3etoile.f&#x2019;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INCLUDE</span>&#x00A0;<span 
class="ectt-1200">&#x2019;H4etoile.f&#x2019;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INCLUDE</span>&#x00A0;<span 
class="ectt-1200">&#x2019;H5etoile.f&#x2019;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INCLUDE</span>&#x00A0;<span 
class="ectt-1200">&#x2019;H6etoile.f&#x2019;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INCLUDE</span>&#x00A0;<span 
class="ectt-1200">&#x2019;H7etoile.f&#x2019;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INCLUDE</span>&#x00A0;<span 
class="ectt-1200">&#x2019;H8etoile.f&#x2019;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INCLUDE</span>&#x00A0;<span 
class="ectt-1200">&#x2019;H9etoile.f&#x2019;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INCLUDE</span>&#x00A0;<span 
class="ectt-1200">&#x2019;H10etoile.f&#x2019;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INCLUDE</span>&#x00A0;<span 
class="ectt-1200">&#x2019;H1isa.f&#x2019;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INCLUDE</span>&#x00A0;<span 
class="ectt-1200">&#x2019;H2isa.f&#x2019;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INCLUDE</span>&#x00A0;<span 
class="ectt-1200">&#x2019;H3isa.f&#x2019;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INCLUDE</span>&#x00A0;<span 
class="ectt-1200">&#x2019;H4isa.f&#x2019;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INCLUDE</span>&#x00A0;<span 
class="ectt-1200">&#x2019;H5isa.f&#x2019;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INCLUDE</span>&#x00A0;<span 
class="ectt-1200">&#x2019;H6isa.f&#x2019;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INCLUDE</span>&#x00A0;<span 
class="ectt-1200">&#x2019;H7isa.f&#x2019;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INCLUDE</span>&#x00A0;<span 
class="ectt-1200">&#x2019;H8isa.f&#x2019;</span>

&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INCLUDE</span>&#x00A0;<span 
class="ectt-1200">&#x2019;H9isa.f&#x2019;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INCLUDE</span>&#x00A0;<span 
class="ectt-1200">&#x2019;H10isa.f&#x2019;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INCLUDE</span>&#x00A0;<span 
class="ectt-1200">&#x2019;H1.f&#x2019;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INCLUDE</span>&#x00A0;<span 
class="ectt-1200">&#x2019;H2.f&#x2019;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INCLUDE</span>&#x00A0;<span 
class="ectt-1200">&#x2019;H3.f&#x2019;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INCLUDE</span>&#x00A0;<span 
class="ectt-1200">&#x2019;H4.f&#x2019;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INCLUDE</span>&#x00A0;<span 
class="ectt-1200">&#x2019;H5.f&#x2019;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INCLUDE</span>&#x00A0;<span 
class="ectt-1200">&#x2019;H6.f&#x2019;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INCLUDE</span>&#x00A0;<span 
class="ectt-1200">&#x2019;H7.f&#x2019;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INCLUDE</span>&#x00A0;<span 
class="ectt-1200">&#x2019;H8.f&#x2019;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INCLUDE</span>&#x00A0;<span 
class="ectt-1200">&#x2019;H9.f&#x2019;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INCLUDE</span>&#x00A0;<span 
class="ectt-1200">&#x2019;H10.f&#x2019;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INCLUDE</span>&#x00A0;<span 
class="ectt-1200">&#x2019;qnorm.f&#x2019;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INCLUDE</span>&#x00A0;<span 
class="ectt-1200">&#x2019;pnorm.f&#x2019;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INCLUDE</span>&#x00A0;<span 
class="ectt-1200">&#x2019;min.f&#x2019;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INCLUDE</span>&#x00A0;<span 
class="ectt-1200">&#x2019;max.f&#x2019;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INCLUDE</span>&#x00A0;<span 
class="ectt-1200">&#x2019;var.f&#x2019;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INCLUDE</span>&#x00A0;<span 
class="ectt-1200">&#x2019;creerdat_ARMA00.f&#x2019;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INCLUDE</span>&#x00A0;<span 
class="ectt-1200">&#x2019;calcstat.f&#x2019;</span>
   </div> <span 
class="ecbx-1200">Programme big_prog_AR1.f </span><div class="verbatiminput">
<span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Idee</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">ce</span>&#x00A0;&#x00A0;<span 
class="ectt-1200">programme:</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Etape1)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">On</span>&#x00A0;<span 
class="ectt-1200">cree</span>&#x00A0;<span 
class="ectt-1200">un</span>&#x00A0;<span 
class="ectt-1200">fichier</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">donnees</span>&#x00A0;<span 
class="ectt-1200">&#x2019;data.txt&#x2019;</span>&#x00A0;<span 
class="ectt-1200">en</span>&#x00A0;<span 
class="ectt-1200">utilisant</span>&#x00A0;<span 
class="ectt-1200">certaines</span>&#x00A0;<span 
class="ectt-1200">valeurs</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">parametres</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">a</span>&#x00A0;<span 
class="ectt-1200">lire</span>&#x00A0;<span 
class="ectt-1200">dans</span>&#x00A0;<span 
class="ectt-1200">un</span>&#x00A0;<span 
class="ectt-1200">fichier</span>&#x00A0;<span 
class="ectt-1200">d&#x2019;entree</span>&#x00A0;<span 
class="ectt-1200">&#x2019;ftemp&#x2019;</span>&#x00A0;<span 
class="ectt-1200">cree</span>&#x00A0;<span 
class="ectt-1200">par</span>&#x00A0;<span 
class="ectt-1200">le</span>&#x00A0;<span 
class="ectt-1200">programme</span>&#x00A0;<span 
class="ectt-1200">test.f</span>&#x00A0;<span 
class="ectt-1200">a</span>&#x00A0;<span 
class="ectt-1200">l&#x2019;aide</span>&#x00A0;<span 
class="ectt-1200">du</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">fichier</span>&#x00A0;<span 
class="ectt-1200">&#x2019;paramentree&#x2019;,</span>&#x00A0;<span 
class="ectt-1200">on</span>&#x00A0;<span 
class="ectt-1200">stocke</span>&#x00A0;<span 
class="ectt-1200">les</span>&#x00A0;<span 
class="ectt-1200">resultats</span>&#x00A0;<span 
class="ectt-1200">autres</span>&#x00A0;<span 
class="ectt-1200">que</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">les</span>&#x00A0;<span 
class="ectt-1200">donnees</span>&#x00A0;<span 
class="ectt-1200">dans</span>&#x00A0;<span 
class="ectt-1200">un</span>&#x00A0;<span 
class="ectt-1200">fichier</span>&#x00A0;<span 
class="ectt-1200">&#x2019;param.i&#x2019;</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Etape</span>&#x00A0;<span 
class="ectt-1200">2)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">ensuite</span>&#x00A0;<span 
class="ectt-1200">on</span>&#x00A0;<span 
class="ectt-1200">utilise</span>&#x00A0;<span 
class="ectt-1200">le</span>&#x00A0;<span 
class="ectt-1200">fichier</span>&#x00A0;<span 
class="ectt-1200">&#x2019;data.txt&#x2019;</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">avec</span>&#x00A0;<span 
class="ectt-1200">le</span>&#x00A0;<span 
class="ectt-1200">programme</span>&#x00A0;<span 
class="ectt-1200">calcstat</span>&#x00A0;<span 
class="ectt-1200">pour</span>&#x00A0;<span 
class="ectt-1200">creer</span>&#x00A0;<span 
class="ectt-1200">le</span>&#x00A0;<span 
class="ectt-1200">fichier</span>&#x00A0;<span 
class="ectt-1200">des</span>&#x00A0;<span 
class="ectt-1200">statistiques</span>&#x00A0;<span 
class="ectt-1200">&#x2019;resultat.i&#x2019;</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Etape</span>&#x00A0;<span 
class="ectt-1200">3)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Ensuite,</span>&#x00A0;<span 
class="ectt-1200">on</span>&#x00A0;<span 
class="ectt-1200">efface</span>&#x00A0;<span 
class="ectt-1200">le</span>&#x00A0;<span 
class="ectt-1200">fichier</span>&#x00A0;<span 
class="ectt-1200">&#x2019;data.txt&#x2019;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PROGRAM</span>&#x00A0;<span 
class="ectt-1200">main</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Les</span>&#x00A0;<span 
class="ectt-1200">**</span>&#x00A0;<span 
class="ectt-1200">indiquent</span>&#x00A0;<span 
class="ectt-1200">les</span>&#x00A0;<span 
class="ectt-1200">endroits</span>&#x00A0;<span 
class="ectt-1200">ou</span>&#x00A0;<span 
class="ectt-1200">des</span>&#x00A0;<span 
class="ectt-1200">changements</span>&#x00A0;<span 
class="ectt-1200">peuvent</span>&#x00A0;<span 
class="ectt-1200">etre</span>&#x00A0;<span 
class="ectt-1200">necessaires</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">--------------------------------------------------------------------------</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DEBUT</span>&#x00A0;<span 
class="ectt-1200">DE</span>&#x00A0;<span 
class="ectt-1200">DECLARATION</span>&#x00A0;<span 
class="ectt-1200">DES</span>&#x00A0;<span 
class="ectt-1200">VARIABLES</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">--------------------------------------------------------------------------</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Si</span>&#x00A0;<span 
class="ectt-1200">isa=.TRUE.</span>&#x00A0;<span 
class="ectt-1200">(ie</span>&#x00A0;<span 
class="ectt-1200">MEAN=.TRUE.)</span>&#x00A0;<span 
class="ectt-1200">on</span>&#x00A0;<span 
class="ectt-1200">prend</span>&#x00A0;<span 
class="ectt-1200">les</span>&#x00A0;<span 
class="ectt-1200">polynomes</span>&#x00A0;<span 
class="ectt-1200">modifies</span>&#x00A0;<span 
class="ectt-1200">avec</span>&#x00A0;<span 
class="ectt-1200">les</span>&#x00A0;<span 
class="ectt-1200">ak</span>&#x00A0;&#x00A0;<span 
class="ectt-1200">**</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Si</span>&#x00A0;<span 
class="ectt-1200">isa=.FALSE.</span>&#x00A0;<span 
class="ectt-1200">(ie</span>&#x00A0;<span 
class="ectt-1200">MEAN=.FALSE.)</span>&#x00A0;<span 
class="ectt-1200">on</span>&#x00A0;<span 
class="ectt-1200">prend</span>&#x00A0;<span 
class="ectt-1200">les</span>&#x00A0;<span 
class="ectt-1200">polynomes</span>&#x00A0;<span 
class="ectt-1200">modifies</span>&#x00A0;<span 
class="ectt-1200">sans</span>&#x00A0;<span 
class="ectt-1200">les</span>&#x00A0;<span 
class="ectt-1200">ak</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">LOGICAL</span>&#x00A0;<span 
class="ectt-1200">isa</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(isa=.FALSE.)</span>

&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">------------------------------------</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">parametres</span>&#x00A0;<span 
class="ectt-1200">calcstat</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Niveau</span>&#x00A0;<span 
class="ectt-1200">1</span>&#x00A0;<span 
class="ectt-1200">du</span>&#x00A0;<span 
class="ectt-1200">test</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">**</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">alpha</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(alpha=0.1)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Niveau</span>&#x00A0;<span 
class="ectt-1200">2</span>&#x00A0;<span 
class="ectt-1200">du</span>&#x00A0;<span 
class="ectt-1200">test</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">**</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">alpha2</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(alpha2=0.05)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Quantiles</span>&#x00A0;<span 
class="ectt-1200">avec</span>&#x00A0;<span 
class="ectt-1200">alpha</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;&#x00A0;<span 
class="ectt-1200">khi(10)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Quantiles</span>&#x00A0;<span 
class="ectt-1200">avec</span>&#x00A0;<span 
class="ectt-1200">alpha2</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;&#x00A0;<span 
class="ectt-1200">khi2(10)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Quantiles</span>&#x00A0;<span 
class="ectt-1200">Ledwi1</span>&#x00A0;<span 
class="ectt-1200">et</span>&#x00A0;<span 
class="ectt-1200">Ledwi2</span>&#x00A0;<span 
class="ectt-1200">avec</span>&#x00A0;<span 
class="ectt-1200">alpha</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">**</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">QuLed1,</span>&#x00A0;<span 
class="ectt-1200">QuLed2</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">avec</span>&#x00A0;<span 
class="ectt-1200">T=50</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(QuLed1=3.69,QuLed2=5.466)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">avec</span>&#x00A0;<span 
class="ectt-1200">T=100</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(QuLed1=3.275,QuLed2=5.26)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">avec</span>&#x00A0;<span 
class="ectt-1200">T=200</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(QuLed1=3.057,QuLed2=5.043)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Quantiles</span>&#x00A0;<span 
class="ectt-1200">Ledwi1</span>&#x00A0;<span 
class="ectt-1200">et</span>&#x00A0;<span 
class="ectt-1200">Ledwi2</span>&#x00A0;<span 
class="ectt-1200">avec</span>&#x00A0;<span 
class="ectt-1200">alpha2</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">**</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">QuLe12,</span>&#x00A0;<span 
class="ectt-1200">QuLe22</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">avec</span>&#x00A0;<span 
class="ectt-1200">T=50</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(QuLe12=5.41,QuLe22=7.14)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">avec</span>&#x00A0;<span 
class="ectt-1200">T=100</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(QuLe12=5.20,QuLe22=6.97)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">avec</span>&#x00A0;<span 
class="ectt-1200">T=200</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(QuLe12=4.751,QuLe22=6.796)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Quantiles</span>&#x00A0;<span 
class="ectt-1200">Brockwell</span>&#x00A0;<span 
class="ectt-1200">et</span>&#x00A0;<span 
class="ectt-1200">Davis</span>&#x00A0;<span 
class="ectt-1200">et</span>&#x00A0;<span 
class="ectt-1200">Anderson</span>&#x00A0;<span 
class="ectt-1200">Darling</span>&#x00A0;<span 
class="ectt-1200">et</span>&#x00A0;<span 
class="ectt-1200">JB</span>&#x00A0;<span 
class="ectt-1200">avec</span>&#x00A0;<span 
class="ectt-1200">alpha</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">**</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">QuBD,</span>&#x00A0;<span 
class="ectt-1200">QuAD,</span>&#x00A0;<span 
class="ectt-1200">QuJB</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">avec</span>&#x00A0;<span 
class="ectt-1200">T=50</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(QuBD=0.920,QuAD=1.743,QuJB=4.61)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">avec</span>&#x00A0;<span 
class="ectt-1200">T=100</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(QuBD=0.958,QuAD=1.743,QuJB=4.61)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">avec</span>&#x00A0;<span 
class="ectt-1200">T=200</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(QuBD=0.978,QuAD=1.743,QuJB=4.61)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Quantiles</span>&#x00A0;<span 
class="ectt-1200">Brockwell</span>&#x00A0;<span 
class="ectt-1200">et</span>&#x00A0;<span 
class="ectt-1200">Davis</span>&#x00A0;<span 
class="ectt-1200">et</span>&#x00A0;<span 
class="ectt-1200">Anderson</span>&#x00A0;<span 
class="ectt-1200">Darling</span>&#x00A0;<span 
class="ectt-1200">et</span>&#x00A0;<span 
class="ectt-1200">JB</span>&#x00A0;<span 
class="ectt-1200">avec</span>&#x00A0;<span 
class="ectt-1200">alpha2</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">**</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">QuBD2,</span>&#x00A0;<span 
class="ectt-1200">QuAD2,</span>&#x00A0;<span 
class="ectt-1200">QuJB2</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">avec</span>&#x00A0;<span 
class="ectt-1200">T=50</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(QuBD2=0.899,QuAD2=2.308,QuJB2=5.99)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">avec</span>&#x00A0;<span 
class="ectt-1200">T=100</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(QuBD2=0.947,QuAD2=2.308,QuJB2=5.99)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">avec</span>&#x00A0;<span 
class="ectt-1200">T=200</span>

&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(QuBD2=0.973,QuAD2=2.308,QuJB2=5.99)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Nombre</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">polynomes</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">**</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">Kp</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(Kp=10)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">ordre</span>&#x00A0;<span 
class="ectt-1200">du</span>&#x00A0;<span 
class="ectt-1200">modele</span>&#x00A0;<span 
class="ectt-1200">AR</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">p</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(p=1)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">ordre</span>&#x00A0;<span 
class="ectt-1200">du</span>&#x00A0;<span 
class="ectt-1200">modele</span>&#x00A0;<span 
class="ectt-1200">MA</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">q</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(q=0)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">nombre</span>&#x00A0;<span 
class="ectt-1200">d&#x2019;observations</span>&#x00A0;<span 
class="ectt-1200">dans</span>&#x00A0;<span 
class="ectt-1200">mon</span>&#x00A0;<span 
class="ectt-1200">echantillon</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">**</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Si</span>&#x00A0;<span 
class="ectt-1200">on</span>&#x00A0;<span 
class="ectt-1200">change</span>&#x00A0;<span 
class="ectt-1200">la</span>&#x00A0;<span 
class="ectt-1200">valeur</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">nT,</span>&#x00A0;<span 
class="ectt-1200">il</span>&#x00A0;<span 
class="ectt-1200">faut</span>&#x00A0;<span 
class="ectt-1200">aller</span>&#x00A0;<span 
class="ectt-1200">modifier</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">la</span>&#x00A0;<span 
class="ectt-1200">valeur</span>&#x00A0;<span 
class="ectt-1200">dans</span>&#x00A0;<span 
class="ectt-1200">FORMAT</span>&#x00A0;<span 
class="ectt-1200">a</span>&#x00A0;<span 
class="ectt-1200">la</span>&#x00A0;<span 
class="ectt-1200">fin</span>&#x00A0;<span 
class="ectt-1200">du</span>&#x00A0;<span 
class="ectt-1200">programme</span>&#x00A0;<span 
class="ectt-1200">creerdat_AR.f</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">nT</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(nT=50)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">n,m</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(m=nT+1)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">n=nombre</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">lignes</span>&#x00A0;<span 
class="ectt-1200">au</span>&#x00A0;<span 
class="ectt-1200">maximum</span>&#x00A0;<span 
class="ectt-1200">dans</span>&#x00A0;<span 
class="ectt-1200">le</span>&#x00A0;<span 
class="ectt-1200">fichier</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">donnees</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">**</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">cela</span>&#x00A0;<span 
class="ectt-1200">correspond</span>&#x00A0;<span 
class="ectt-1200">a</span>&#x00A0;<span 
class="ectt-1200">nbcle</span>&#x00A0;<span 
class="ectt-1200">s&#x2019;il</span>&#x00A0;<span 
class="ectt-1200">n&#x2019;y</span>&#x00A0;<span 
class="ectt-1200">a</span>&#x00A0;<span 
class="ectt-1200">pas</span>&#x00A0;<span 
class="ectt-1200">eu</span>&#x00A0;<span 
class="ectt-1200">d&#x2019;erreurs</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">dans</span>&#x00A0;<span 
class="ectt-1200">tous</span>&#x00A0;<span 
class="ectt-1200">les</span>&#x00A0;<span 
class="ectt-1200">cas</span>&#x00A0;<span 
class="ectt-1200">mettre</span>&#x00A0;<span 
class="ectt-1200">ici</span>&#x00A0;<span 
class="ectt-1200">n=nbcle=nombre</span>&#x00A0;<span 
class="ectt-1200">d&#x2019;echantillons</span>&#x00A0;<span 
class="ectt-1200">souhaites</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(n=10000)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CHARACTER</span>&#x00A0;<span 
class="ectt-1200">filer*8,</span>&#x00A0;<span 
class="ectt-1200">filew*21</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">**</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">valeur(n,m)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">sch2vc(n)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">epscha(n,nT)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">compt(Kp)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">compt2(Kp)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">statn(n,Kp)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">KoLed1(n)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">KoLed2(n)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">Ledwi1(Kp)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">Ledwi2(Kp-1)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">snLed1(n)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">snLed2(n)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">stanBD(n)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">stanAD(n),</span>&#x00A0;<span 
class="ectt-1200">stanJB(n)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">Z(nT)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">D(nT)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">Davant(nT),</span>&#x00A0;<span 
class="ectt-1200">E2(nT)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">U(nT)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">hUetoi(nT,Kp)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">Uavant(nT)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">hKetoi(Kp)</span>

&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">hU(nT,Kp)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">hK(Kp)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">vecteu(Kp)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">vectoi(Kp)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">stat(Kp)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">Zavant(nT)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">BDa(nT)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">BDb(nT)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">BDc(nT)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">BDd(nT)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">Davan2(nT)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">ADa(nT)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">ADb(nT)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">Puiss(Kp)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">Puiss2(Kp)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">snsort(n,Kp)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">snsorv(n)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">Qucalc(Kp)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">snLe1s(n)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">snLe2s(n)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">snBDso(n)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">snADso(n),</span>&#x00A0;<span 
class="ectt-1200">snJBso(n)</span>
&#x00A0;<br /><span 
class="ectt-1200">c--------------------------------------------------------</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">parametres</span>&#x00A0;<span 
class="ectt-1200">creerdat</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Nom</span>&#x00A0;<span 
class="ectt-1200">du</span>&#x00A0;<span 
class="ectt-1200">fichier</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">donnees</span>&#x00A0;<span 
class="ectt-1200">en</span>&#x00A0;<span 
class="ectt-1200">sortie</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">**</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CHARACTER</span>&#x00A0;<span 
class="ectt-1200">dataf*8</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Nom</span>&#x00A0;<span 
class="ectt-1200">du</span>&#x00A0;<span 
class="ectt-1200">fichier</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">parametres</span>&#x00A0;<span 
class="ectt-1200">en</span>&#x00A0;<span 
class="ectt-1200">sortie</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">**</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CHARACTER</span>&#x00A0;<span 
class="ectt-1200">paramf*17</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Nombre</span>&#x00A0;<span 
class="ectt-1200">d&#x2019;echantillons</span>&#x00A0;<span 
class="ectt-1200">souhaites</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">nbcle,nbclea</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">rang</span>&#x00A0;<span 
class="ectt-1200">d&#x2019;arret</span>&#x00A0;<span 
class="ectt-1200">dans</span>&#x00A0;<span 
class="ectt-1200">la</span>&#x00A0;<span 
class="ectt-1200">random</span>&#x00A0;<span 
class="ectt-1200">shock</span>&#x00A0;<span 
class="ectt-1200">method</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">Burn</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">**</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">marret</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(marret=200)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Induction</span>&#x00A0;<span 
class="ectt-1200">period</span>&#x00A0;<span 
class="ectt-1200">dans</span>&#x00A0;<span 
class="ectt-1200">la</span>&#x00A0;<span 
class="ectt-1200">methode</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">Burn</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">**</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">Mind</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(Mind=200)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">ecart-type</span>&#x00A0;<span 
class="ectt-1200">des</span>&#x00A0;<span 
class="ectt-1200">erreurs</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">**</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">sigma</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(sigma=1)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">moyenne</span>&#x00A0;<span 
class="ectt-1200">dans</span>&#x00A0;<span 
class="ectt-1200">mon</span>&#x00A0;<span 
class="ectt-1200">modele</span>&#x00A0;<span 
class="ectt-1200">ARMA</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">**</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">mu</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(mu=0)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">parametre</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">la</span>&#x00A0;<span 
class="ectt-1200">khi-deux</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">**</span>

&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">df1</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(df1=2)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">parametre</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">la</span>&#x00A0;<span 
class="ectt-1200">student</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">**</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">df2</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(df2=5)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">parametre</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">la</span>&#x00A0;<span 
class="ectt-1200">skew-normale</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">**</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">lambda</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(lambda=2.0)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">loi5b,</span>&#x00A0;<span 
class="ectt-1200">loi5k,</span>&#x00A0;<span 
class="ectt-1200">loi6p,</span>&#x00A0;<span 
class="ectt-1200">loi6q</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">loi7g,</span>&#x00A0;<span 
class="ectt-1200">loi7d,</span>&#x00A0;<span 
class="ectt-1200">loi8p,</span>&#x00A0;<span 
class="ectt-1200">loi8q,</span>&#x00A0;<span 
class="ectt-1200">loi9a,</span>&#x00A0;<span 
class="ectt-1200">loi9b</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">loi10b,</span>&#x00A0;<span 
class="ectt-1200">loi10l,</span>&#x00A0;<span 
class="ectt-1200">loi11a,</span>&#x00A0;<span 
class="ectt-1200">loi11k,</span>&#x00A0;<span 
class="ectt-1200">loi13g,</span>&#x00A0;<span 
class="ectt-1200">loi13d</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">loi14l,</span>&#x00A0;<span 
class="ectt-1200">loi16p,</span>&#x00A0;<span 
class="ectt-1200">loi16d,</span>&#x00A0;<span 
class="ectt-1200">loi17p,</span>&#x00A0;<span 
class="ectt-1200">loi17m</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">loi18g,</span>&#x00A0;<span 
class="ectt-1200">loi18d,</span>&#x00A0;<span 
class="ectt-1200">loi19a,</span>&#x00A0;<span 
class="ectt-1200">loi19b</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(loi18g=1.0,loi18d=1.0,</span>&#x00A0;<span 
class="ectt-1200">loi19a=1.1,</span>&#x00A0;<span 
class="ectt-1200">loi19b=0.5)</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">**</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(loi16p=0.2,loi16d=5.0,</span>&#x00A0;<span 
class="ectt-1200">loi17p=0.2,loi17m=3.0)</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">**</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(loi10b=0.2,loi10l=1,</span>&#x00A0;<span 
class="ectt-1200">loi11a=2.0,loi11k=0.5)</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">**</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(loi13g=1.0,loi13d=1.0,</span>&#x00A0;<span 
class="ectt-1200">loi14l=0.7)</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">**</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(loi7g=0,loi7d=1,</span>&#x00A0;<span 
class="ectt-1200">loi8p=2,</span>&#x00A0;<span 
class="ectt-1200">loi8q=2,</span>&#x00A0;<span 
class="ectt-1200">loi9a=0,loi9b=2)</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">**</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(loi5b=1,</span>&#x00A0;<span 
class="ectt-1200">loi5k=1.8,</span>&#x00A0;<span 
class="ectt-1200">loi6p=4,</span>&#x00A0;<span 
class="ectt-1200">loi6q=1)</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">**</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">loi</span>&#x00A0;<span 
class="ectt-1200">des</span>&#x00A0;<span 
class="ectt-1200">erreurs</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">**</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">si</span>&#x00A0;<span 
class="ectt-1200">loi=0</span>&#x00A0;<span 
class="ectt-1200">:</span>&#x00A0;<span 
class="ectt-1200">Normale(0,sigma&#x0302;2)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">si</span>&#x00A0;<span 
class="ectt-1200">loi=1</span>&#x00A0;<span 
class="ectt-1200">:</span>&#x00A0;<span 
class="ectt-1200">Khi2</span>&#x00A0;<span 
class="ectt-1200">centree</span>&#x00A0;<span 
class="ectt-1200">(df1)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">si</span>&#x00A0;<span 
class="ectt-1200">loi=2</span>&#x00A0;<span 
class="ectt-1200">:</span>&#x00A0;<span 
class="ectt-1200">Student</span>&#x00A0;<span 
class="ectt-1200">(df2)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">si</span>&#x00A0;<span 
class="ectt-1200">loi=3</span>&#x00A0;<span 
class="ectt-1200">:</span>&#x00A0;<span 
class="ectt-1200">Skew-Normale(lambda)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">si</span>&#x00A0;<span 
class="ectt-1200">loi=4</span>&#x00A0;<span 
class="ectt-1200">:</span>&#x00A0;<span 
class="ectt-1200">Laplace</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">si</span>&#x00A0;<span 
class="ectt-1200">loi=5</span>&#x00A0;<span 
class="ectt-1200">:</span>&#x00A0;<span 
class="ectt-1200">Weibull(b,k)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">si</span>&#x00A0;<span 
class="ectt-1200">loi=6</span>&#x00A0;<span 
class="ectt-1200">:</span>&#x00A0;<span 
class="ectt-1200">Gamma(p,q)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">si</span>&#x00A0;<span 
class="ectt-1200">loi=7</span>&#x00A0;<span 
class="ectt-1200">:</span>&#x00A0;<span 
class="ectt-1200">Log-Normale(g,d)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">si</span>&#x00A0;<span 
class="ectt-1200">loi=8</span>&#x00A0;<span 
class="ectt-1200">:</span>&#x00A0;<span 
class="ectt-1200">Beta(p,q)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">si</span>&#x00A0;<span 
class="ectt-1200">loi=9</span>&#x00A0;<span 
class="ectt-1200">:</span>&#x00A0;<span 
class="ectt-1200">Uniform(a,b)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">si</span>&#x00A0;<span 
class="ectt-1200">loi=10</span>&#x00A0;<span 
class="ectt-1200">:</span>&#x00A0;<span 
class="ectt-1200">Shifted</span>&#x00A0;<span 
class="ectt-1200">exp</span>&#x00A0;<span 
class="ectt-1200">(l,b)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">si</span>&#x00A0;<span 
class="ectt-1200">loi=11</span>&#x00A0;<span 
class="ectt-1200">:</span>&#x00A0;<span 
class="ectt-1200">Pareto(a,k)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">si</span>&#x00A0;<span 
class="ectt-1200">loi=12</span>&#x00A0;<span 
class="ectt-1200">:</span>&#x00A0;<span 
class="ectt-1200">Shifted</span>&#x00A0;<span 
class="ectt-1200">Pareto</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">si</span>&#x00A0;<span 
class="ectt-1200">loi=13</span>&#x00A0;<span 
class="ectt-1200">:</span>&#x00A0;<span 
class="ectt-1200">SU(g,d)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">si</span>&#x00A0;<span 
class="ectt-1200">loi=14</span>&#x00A0;<span 
class="ectt-1200">:</span>&#x00A0;<span 
class="ectt-1200">TU(l)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">si</span>&#x00A0;<span 
class="ectt-1200">loi=15</span>&#x00A0;<span 
class="ectt-1200">:</span>&#x00A0;<span 
class="ectt-1200">Logistic</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">si</span>&#x00A0;<span 
class="ectt-1200">loi=16</span>&#x00A0;<span 
class="ectt-1200">:</span>&#x00A0;<span 
class="ectt-1200">SC(p,d)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">si</span>&#x00A0;<span 
class="ectt-1200">loi=17</span>&#x00A0;<span 
class="ectt-1200">:</span>&#x00A0;<span 
class="ectt-1200">LC(p,m)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">si</span>&#x00A0;<span 
class="ectt-1200">loi=18</span>&#x00A0;<span 
class="ectt-1200">:</span>&#x00A0;<span 
class="ectt-1200">SB(g,d)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">si</span>&#x00A0;<span 
class="ectt-1200">loi=19</span>&#x00A0;<span 
class="ectt-1200">:</span>&#x00A0;<span 
class="ectt-1200">S(a,b)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">loi</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">rm=max(p,q)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">rm</span>

&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(rm=1)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">the</span>&#x00A0;<span 
class="ectt-1200">autoregressive</span>&#x00A0;<span 
class="ectt-1200">coefficients</span>&#x00A0;<span 
class="ectt-1200">of</span>&#x00A0;<span 
class="ectt-1200">the</span>&#x00A0;<span 
class="ectt-1200">model</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">phi(2)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">phich(p)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">the</span>&#x00A0;<span 
class="ectt-1200">moving-average</span>&#x00A0;<span 
class="ectt-1200">coefficients</span>&#x00A0;<span 
class="ectt-1200">of</span>&#x00A0;<span 
class="ectt-1200">the</span>&#x00A0;<span 
class="ectt-1200">model</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">teta(2)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">vecteur</span>&#x00A0;<span 
class="ectt-1200">des</span>&#x00A0;<span 
class="ectt-1200">donnees</span>&#x00A0;<span 
class="ectt-1200">cree</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">donees(nT)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Parametres</span>&#x00A0;<span 
class="ectt-1200">pour</span>&#x00A0;<span 
class="ectt-1200">G05EGF:</span>&#x00A0;<span 
class="ectt-1200">simulation</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">the</span>&#x00A0;<span 
class="ectt-1200">autoregressive</span>&#x00A0;<span 
class="ectt-1200">coefficients</span>&#x00A0;<span 
class="ectt-1200">of</span>&#x00A0;<span 
class="ectt-1200">the</span>&#x00A0;<span 
class="ectt-1200">model=phi</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Input</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">A(p)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">the</span>&#x00A0;<span 
class="ectt-1200">moving-average</span>&#x00A0;<span 
class="ectt-1200">coefficients</span>&#x00A0;<span 
class="ectt-1200">of</span>&#x00A0;<span 
class="ectt-1200">the</span>&#x00A0;<span 
class="ectt-1200">model=teta</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Input</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">B(q+1)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">le</span>&#x00A0;<span 
class="ectt-1200">vecteur</span>&#x00A0;<span 
class="ectt-1200">des</span>&#x00A0;<span 
class="ectt-1200">innovations</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Output</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">R(nT)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Parametres</span>&#x00A0;<span 
class="ectt-1200">pour</span>&#x00A0;<span 
class="ectt-1200">G13DCF:</span>&#x00A0;<span 
class="ectt-1200">estimation</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">the</span>&#x00A0;<span 
class="ectt-1200">number</span>&#x00A0;<span 
class="ectt-1200">of</span>&#x00A0;<span 
class="ectt-1200">initial</span>&#x00A0;<span 
class="ectt-1200">parameter</span>&#x00A0;<span 
class="ectt-1200">estimates</span>&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Input</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">**</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">mettre</span>&#x00A0;<span 
class="ectt-1200">p+q+1</span>&#x00A0;<span 
class="ectt-1200">si</span>&#x00A0;<span 
class="ectt-1200">MEAN=.TRUE.</span>&#x00A0;<span 
class="ectt-1200">,</span>&#x00A0;<span 
class="ectt-1200">p+q</span>&#x00A0;<span 
class="ectt-1200">si</span>&#x00A0;<span 
class="ectt-1200">MEAN=.FALSE.</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">NPAR</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(NPAR=p+q)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">first</span>&#x00A0;<span 
class="ectt-1200">dimension</span>&#x00A0;<span 
class="ectt-1200">of</span>&#x00A0;<span 
class="ectt-1200">the</span>&#x00A0;<span 
class="ectt-1200">array</span>&#x00A0;<span 
class="ectt-1200">CM</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Input</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">**</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">mettre</span>&#x00A0;<span 
class="ectt-1200">p+q+1</span>&#x00A0;<span 
class="ectt-1200">si</span>&#x00A0;<span 
class="ectt-1200">MEAN=.TRUE.</span>&#x00A0;<span 
class="ectt-1200">,</span>&#x00A0;<span 
class="ectt-1200">p+q</span>&#x00A0;<span 
class="ectt-1200">si</span>&#x00A0;<span 
class="ectt-1200">MEAN=.FALSE.</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">ICM</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(ICM=p+q)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Workspace</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">IW(NPAR+rm+3)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">initial</span>&#x00A0;<span 
class="ectt-1200">parameter</span>&#x00A0;<span 
class="ectt-1200">estimates</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Input/Output</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">PAR(NPAR)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">W(i,t)</span>&#x00A0;<span 
class="ectt-1200">must</span>&#x00A0;<span 
class="ectt-1200">be</span>&#x00A0;<span 
class="ectt-1200">set</span>&#x00A0;<span 
class="ectt-1200">equal</span>&#x00A0;<span 
class="ectt-1200">to</span>&#x00A0;<span 
class="ectt-1200">the</span>&#x00A0;<span 
class="ectt-1200">observation</span>&#x00A0;<span 
class="ectt-1200">at</span>&#x00A0;<span 
class="ectt-1200">time</span>&#x00A0;<span 
class="ectt-1200">t</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Input</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">of</span>&#x00A0;<span 
class="ectt-1200">the</span>&#x00A0;<span 
class="ectt-1200">ith</span>&#x00A0;<span 
class="ectt-1200">series</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">W(1,nT)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">the</span>&#x00A0;<span 
class="ectt-1200">accuracy</span>&#x00A0;<span 
class="ectt-1200">to</span>&#x00A0;<span 
class="ectt-1200">which</span>&#x00A0;<span 
class="ectt-1200">the</span>&#x00A0;<span 
class="ectt-1200">solution</span>&#x00A0;<span 
class="ectt-1200">in</span>&#x00A0;<span 
class="ectt-1200">PAR</span>&#x00A0;<span 
class="ectt-1200">and</span>&#x00A0;<span 
class="ectt-1200">QQ</span>&#x00A0;<span 
class="ectt-1200">is</span>&#x00A0;<span 
class="ectt-1200">required</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Input</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">**</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">CGETOL</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(CGETOL=0.0001)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">residual</span>&#x00A0;<span 
class="ectt-1200">at</span>&#x00A0;<span 
class="ectt-1200">time</span>&#x00A0;<span 
class="ectt-1200">t</span>&#x00A0;<span 
class="ectt-1200">for</span>&#x00A0;<span 
class="ectt-1200">series</span>&#x00A0;<span 
class="ectt-1200">i,</span>&#x00A0;<span 
class="ectt-1200">for</span>&#x00A0;<span 
class="ectt-1200">i</span>&#x00A0;<span 
class="ectt-1200">=</span>&#x00A0;<span 
class="ectt-1200">1,2,...,k</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Output</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">V(1,nT)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">estimated</span>&#x00A0;<span 
class="ectt-1200">first</span>&#x00A0;<span 
class="ectt-1200">derivative</span>&#x00A0;<span 
class="ectt-1200">of</span>&#x00A0;<span 
class="ectt-1200">the</span>&#x00A0;<span 
class="ectt-1200">log-likelihood</span>&#x00A0;<span 
class="ectt-1200">function</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Output</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">G(NPAR)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">estimate</span>&#x00A0;<span 
class="ectt-1200">of</span>&#x00A0;<span 
class="ectt-1200">the</span>&#x00A0;<span 
class="ectt-1200">correlation</span>&#x00A0;<span 
class="ectt-1200">coefficient</span>&#x00A0;<span 
class="ectt-1200">between</span>&#x00A0;<span 
class="ectt-1200">the</span>&#x00A0;<span 
class="ectt-1200">ith</span>&#x00A0;<span 
class="ectt-1200">and</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Output</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">jth</span>&#x00A0;<span 
class="ectt-1200">elements</span>&#x00A0;<span 
class="ectt-1200">in</span>&#x00A0;<span 
class="ectt-1200">the</span>&#x00A0;<span 
class="ectt-1200">PAR</span>&#x00A0;<span 
class="ectt-1200">array</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">CM(ICM,NPAR)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Workspace</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">WORK((5+3*nT+2*rm)+(2*p+q+2*rm*(rm+2)+9)+</span>

&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">+</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">(NPAR+1)*(5*(NPAR+1)+29)/2+(rm+1)**2)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">MEAN</span>&#x00A0;<span 
class="ectt-1200">must</span>&#x00A0;<span 
class="ectt-1200">be</span>&#x00A0;<span 
class="ectt-1200">set</span>&#x00A0;<span 
class="ectt-1200">to</span>&#x00A0;<span 
class="ectt-1200">.TRUE.</span>&#x00A0;<span 
class="ectt-1200">if</span>&#x00A0;<span 
class="ectt-1200">components</span>&#x00A0;<span 
class="ectt-1200">of</span>&#x00A0;<span 
class="ectt-1200">mu</span>&#x00A0;<span 
class="ectt-1200">are</span>&#x00A0;<span 
class="ectt-1200">to</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Input</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">**</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">be</span>&#x00A0;<span 
class="ectt-1200">estimated</span>&#x00A0;<span 
class="ectt-1200">and</span>&#x00A0;<span 
class="ectt-1200">.FALSE.</span>&#x00A0;<span 
class="ectt-1200">if</span>&#x00A0;<span 
class="ectt-1200">all</span>&#x00A0;<span 
class="ectt-1200">elements</span>&#x00A0;<span 
class="ectt-1200">of</span>&#x00A0;<span 
class="ectt-1200">mu</span>&#x00A0;<span 
class="ectt-1200">are</span>&#x00A0;<span 
class="ectt-1200">to</span>&#x00A0;<span 
class="ectt-1200">be</span>&#x00A0;<span 
class="ectt-1200">taken</span>&#x00A0;<span 
class="ectt-1200">as</span>&#x00A0;<span 
class="ectt-1200">zero</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">LOGICAL</span>&#x00A0;<span 
class="ectt-1200">MEAN</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(MEAN=.FALSE.)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARHLD(i)</span>&#x00A0;<span 
class="ectt-1200">must</span>&#x00A0;<span 
class="ectt-1200">be</span>&#x00A0;<span 
class="ectt-1200">set</span>&#x00A0;<span 
class="ectt-1200">to</span>&#x00A0;<span 
class="ectt-1200">.TRUE.,</span>&#x00A0;<span 
class="ectt-1200">if</span>&#x00A0;<span 
class="ectt-1200">PAR(i)</span>&#x00A0;<span 
class="ectt-1200">is</span>&#x00A0;<span 
class="ectt-1200">to</span>&#x00A0;<span 
class="ectt-1200">be</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Input</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">held</span>&#x00A0;<span 
class="ectt-1200">constant</span>&#x00A0;<span 
class="ectt-1200">at</span>&#x00A0;<span 
class="ectt-1200">its</span>&#x00A0;<span 
class="ectt-1200">input</span>&#x00A0;<span 
class="ectt-1200">value</span>&#x00A0;<span 
class="ectt-1200">and</span>&#x00A0;<span 
class="ectt-1200">.FALSE.,</span>&#x00A0;<span 
class="ectt-1200">if</span>&#x00A0;<span 
class="ectt-1200">PAR(i)</span>&#x00A0;<span 
class="ectt-1200">is</span>&#x00A0;<span 
class="ectt-1200">a</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">free</span>&#x00A0;<span 
class="ectt-1200">parameter,</span>&#x00A0;<span 
class="ectt-1200">for</span>&#x00A0;<span 
class="ectt-1200">i</span>&#x00A0;<span 
class="ectt-1200">=</span>&#x00A0;<span 
class="ectt-1200">1,2,...,NPAR.</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">LOGICAL</span>&#x00A0;<span 
class="ectt-1200">PARHLD(NPAR)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">EXACT</span>&#x00A0;<span 
class="ectt-1200">must</span>&#x00A0;<span 
class="ectt-1200">be</span>&#x00A0;<span 
class="ectt-1200">set</span>&#x00A0;<span 
class="ectt-1200">equal</span>&#x00A0;<span 
class="ectt-1200">to</span>&#x00A0;<span 
class="ectt-1200">.TRUE.</span>&#x00A0;<span 
class="ectt-1200">if</span>&#x00A0;<span 
class="ectt-1200">the</span>&#x00A0;<span 
class="ectt-1200">user</span>&#x00A0;<span 
class="ectt-1200">wishes</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Input</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">**</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">the</span>&#x00A0;<span 
class="ectt-1200">routine</span>&#x00A0;<span 
class="ectt-1200">to</span>&#x00A0;<span 
class="ectt-1200">compute</span>&#x00A0;<span 
class="ectt-1200">exact</span>&#x00A0;<span 
class="ectt-1200">maximum</span>&#x00A0;<span 
class="ectt-1200">likelihood</span>&#x00A0;<span 
class="ectt-1200">estimates.</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">EXACT</span>&#x00A0;<span 
class="ectt-1200">must</span>&#x00A0;<span 
class="ectt-1200">be</span>&#x00A0;<span 
class="ectt-1200">set</span>&#x00A0;<span 
class="ectt-1200">equal</span>&#x00A0;<span 
class="ectt-1200">to</span>&#x00A0;<span 
class="ectt-1200">.FALSE.</span>&#x00A0;<span 
class="ectt-1200">if</span>&#x00A0;<span 
class="ectt-1200">only</span>&#x00A0;<span 
class="ectt-1200">conditional</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">likelihood</span>&#x00A0;<span 
class="ectt-1200">estimates</span>&#x00A0;<span 
class="ectt-1200">are</span>&#x00A0;<span 
class="ectt-1200">required.</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">voir</span>&#x00A0;<span 
class="ectt-1200">EXACT</span>&#x00A0;<span 
class="ectt-1200">plus</span>&#x00A0;<span 
class="ectt-1200">bas</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">LOGICAL</span>&#x00A0;<span 
class="ectt-1200">EXACT</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Contient</span>&#x00A0;<span 
class="ectt-1200">les</span>&#x00A0;<span 
class="ectt-1200">p</span>&#x00A0;<span 
class="ectt-1200">donnees</span>&#x00A0;<span 
class="ectt-1200">initiales</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">la</span>&#x00A0;<span 
class="ectt-1200">serie</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">Wtip(p)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">marret+p</span>&#x00A0;<span 
class="ectt-1200">innovations</span>&#x00A0;<span 
class="ectt-1200">genere</span>&#x00A0;<span 
class="ectt-1200">par</span>&#x00A0;<span 
class="ectt-1200">shock.f</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">shocks(marret+p)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">defini</span>&#x00A0;<span 
class="ectt-1200">dans</span>&#x00A0;<span 
class="ectt-1200">Burn,</span>&#x00A0;<span 
class="ectt-1200">calcule</span>&#x00A0;<span 
class="ectt-1200">par</span>&#x00A0;<span 
class="ectt-1200">ARpsi.f</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">psi(marret+1)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">utile</span>&#x00A0;<span 
class="ectt-1200">dans</span>&#x00A0;<span 
class="ectt-1200">simAR.f</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">longueur</span>&#x00A0;<span 
class="ectt-1200">max(p,q+1)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">phi2(marret)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">utile</span>&#x00A0;<span 
class="ectt-1200">dans</span>&#x00A0;<span 
class="ectt-1200">simAR.f</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">YtpMn(p+Mind+nT)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">utile</span>&#x00A0;<span 
class="ectt-1200">dans</span>&#x00A0;<span 
class="ectt-1200">simAR.f</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">Atn(nT+Mind)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Esperances</span>&#x00A0;<span 
class="ectt-1200">des</span>&#x00A0;<span 
class="ectt-1200">lois</span>&#x00A0;<span 
class="ectt-1200">SU,</span>&#x00A0;<span 
class="ectt-1200">SB</span>&#x00A0;<span 
class="ectt-1200">et</span>&#x00A0;<span 
class="ectt-1200">S</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">**</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">EspSU,EspSB,EspS</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(EspSU=0,</span>&#x00A0;<span 
class="ectt-1200">EspSB=0,</span>&#x00A0;<span 
class="ectt-1200">EspS=0)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CHARACTER*13</span>&#x00A0;<span 
class="ectt-1200">efface</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">temp(3)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">j</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CHARACTER*5</span>&#x00A0;<span 
class="ectt-1200">ftemp</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CHARACTER*1</span>&#x00A0;<span 
class="ectt-1200">INTCH1</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CHARACTER*2</span>&#x00A0;<span 
class="ectt-1200">INTCH2</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CHARACTER*3</span>&#x00A0;<span 
class="ectt-1200">INTCH3</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CHARACTER*4</span>&#x00A0;<span 
class="ectt-1200">INTCH4</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">matric(n,18)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">dnT</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(dnT=Kp)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">QLed1u,QLe12u</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(QLed1u=QuLed1,QLe12u=QuLe12)</span>

&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">QLed2u,QLe22u</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(QLed2u=QuLed2,QLe22u=QuLe22)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">QBDu,QBD2u</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(QBDu=QuBD,QBD2u=QuBD2)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">QADu,QAD2u</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(QADu=QuAD,QAD2u=QuAD2)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">QJBu,QJB2u</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(QJBu=QuJB,QJB2u=QuJB2)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">the</span>&#x00A0;<span 
class="ectt-1200">mean</span>&#x00A0;<span 
class="ectt-1200">of</span>&#x00A0;<span 
class="ectt-1200">the</span>&#x00A0;<span 
class="ectt-1200">time</span>&#x00A0;<span 
class="ectt-1200">series</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Input</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">E</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(E=mu)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">the</span>&#x00A0;<span 
class="ectt-1200">number</span>&#x00A0;<span 
class="ectt-1200">of</span>&#x00A0;<span 
class="ectt-1200">autoregressive</span>&#x00A0;<span 
class="ectt-1200">coefficients</span>&#x00A0;<span 
class="ectt-1200">supplied</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Input</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">NA</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(NA=p)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">the</span>&#x00A0;<span 
class="ectt-1200">number</span>&#x00A0;<span 
class="ectt-1200">of</span>&#x00A0;<span 
class="ectt-1200">moving-average</span>&#x00A0;<span 
class="ectt-1200">coefficients</span>&#x00A0;<span 
class="ectt-1200">supplied</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Input</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">NB</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(NB=q+1)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">the</span>&#x00A0;<span 
class="ectt-1200">dimension</span>&#x00A0;<span 
class="ectt-1200">of</span>&#x00A0;<span 
class="ectt-1200">the</span>&#x00A0;<span 
class="ectt-1200">array</span>&#x00A0;<span 
class="ectt-1200">R:</span>&#x00A0;<span 
class="ectt-1200">vecteur</span>&#x00A0;<span 
class="ectt-1200">des</span>&#x00A0;<span 
class="ectt-1200">innovations</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Input</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">NR</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(NR=7)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">the</span>&#x00A0;<span 
class="ectt-1200">number</span>&#x00A0;<span 
class="ectt-1200">of</span>&#x00A0;<span 
class="ectt-1200">observed</span>&#x00A0;<span 
class="ectt-1200">time</span>&#x00A0;<span 
class="ectt-1200">series,</span>&#x00A0;<span 
class="ectt-1200">k</span>&#x00A0;&#x00A0;<span 
class="ectt-1200">(chez</span>&#x00A0;<span 
class="ectt-1200">moi</span>&#x00A0;<span 
class="ectt-1200">k=1)</span>&#x00A0;&#x00A0;<span 
class="ectt-1200">Input</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">K</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(K=1)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">the</span>&#x00A0;<span 
class="ectt-1200">number</span>&#x00A0;<span 
class="ectt-1200">of</span>&#x00A0;<span 
class="ectt-1200">observations</span>&#x00A0;<span 
class="ectt-1200">in</span>&#x00A0;<span 
class="ectt-1200">each</span>&#x00A0;<span 
class="ectt-1200">time</span>&#x00A0;<span 
class="ectt-1200">series,</span>&#x00A0;<span 
class="ectt-1200">n</span>&#x00A0;<span 
class="ectt-1200">(chez</span>&#x00A0;<span 
class="ectt-1200">moi=nT)</span>&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Input</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">N2</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(N2=nT)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">the</span>&#x00A0;<span 
class="ectt-1200">number</span>&#x00A0;<span 
class="ectt-1200">of</span>&#x00A0;<span 
class="ectt-1200">AR</span>&#x00A0;<span 
class="ectt-1200">parameter</span>&#x00A0;<span 
class="ectt-1200">matrices,</span>&#x00A0;<span 
class="ectt-1200">p</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Input</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">IP</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(IP=p)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">the</span>&#x00A0;<span 
class="ectt-1200">number</span>&#x00A0;<span 
class="ectt-1200">of</span>&#x00A0;<span 
class="ectt-1200">MA</span>&#x00A0;<span 
class="ectt-1200">parameter</span>&#x00A0;<span 
class="ectt-1200">matrices,</span>&#x00A0;<span 
class="ectt-1200">q</span>&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Input</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">IQ</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(IQ=q)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">the</span>&#x00A0;<span 
class="ectt-1200">first</span>&#x00A0;<span 
class="ectt-1200">dimension</span>&#x00A0;<span 
class="ectt-1200">of</span>&#x00A0;<span 
class="ectt-1200">the</span>&#x00A0;<span 
class="ectt-1200">arrays</span>&#x00A0;<span 
class="ectt-1200">QQ,</span>&#x00A0;<span 
class="ectt-1200">W</span>&#x00A0;<span 
class="ectt-1200">and</span>&#x00A0;<span 
class="ectt-1200">V</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Input</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">IK</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(IK=1)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">the</span>&#x00A0;<span 
class="ectt-1200">maximum</span>&#x00A0;<span 
class="ectt-1200">number</span>&#x00A0;<span 
class="ectt-1200">of</span>&#x00A0;<span 
class="ectt-1200">likelihood</span>&#x00A0;<span 
class="ectt-1200">evaluations</span>&#x00A0;<span 
class="ectt-1200">to</span>&#x00A0;<span 
class="ectt-1200">be</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Input</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">permitted</span>&#x00A0;<span 
class="ectt-1200">by</span>&#x00A0;<span 
class="ectt-1200">the</span>&#x00A0;<span 
class="ectt-1200">search</span>&#x00A0;<span 
class="ectt-1200">procedure</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">MAXCAL</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(MAXCAL=40*NPAR*(NPAR+5))</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">which</span>&#x00A0;<span 
class="ectt-1200">quantities</span>&#x00A0;<span 
class="ectt-1200">are</span>&#x00A0;<span 
class="ectt-1200">to</span>&#x00A0;<span 
class="ectt-1200">be</span>&#x00A0;<span 
class="ectt-1200">printed</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Input</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">ISHOW</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(ISHOW=0)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">dimension</span>&#x00A0;<span 
class="ectt-1200">of</span>&#x00A0;<span 
class="ectt-1200">the</span>&#x00A0;<span 
class="ectt-1200">array</span>&#x00A0;<span 
class="ectt-1200">WORK</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Input</span>

&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">LWORK</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(LWORK=(5+3*(nT)+2*rm)+(2*p+q+2*rm*(rm+2)+9)+</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">+</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">(NPAR+1)*(5*(NPAR+1)+29)/2+(rm+1)**2)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">dimension</span>&#x00A0;<span 
class="ectt-1200">of</span>&#x00A0;<span 
class="ectt-1200">the</span>&#x00A0;<span 
class="ectt-1200">array</span>&#x00A0;<span 
class="ectt-1200">IW</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Input</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">LIW</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(LIW=NPAR+rm+3)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">QQ(i,j)</span>&#x00A0;<span 
class="ectt-1200">must</span>&#x00A0;<span 
class="ectt-1200">be</span>&#x00A0;<span 
class="ectt-1200">set</span>&#x00A0;<span 
class="ectt-1200">equal</span>&#x00A0;<span 
class="ectt-1200">to</span>&#x00A0;<span 
class="ectt-1200">an</span>&#x00A0;<span 
class="ectt-1200">initial</span>&#x00A0;<span 
class="ectt-1200">estimate</span>&#x00A0;<span 
class="ectt-1200">of</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Input/Output</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">the</span>&#x00A0;<span 
class="ectt-1200">(i,j)th</span>&#x00A0;<span 
class="ectt-1200">element</span>&#x00A0;<span 
class="ectt-1200">of</span>&#x00A0;<span 
class="ectt-1200">the</span>&#x00A0;<span 
class="ectt-1200">covariance</span>&#x00A0;<span 
class="ectt-1200">matrix</span>&#x00A0;<span 
class="ectt-1200">of</span>&#x00A0;<span 
class="ectt-1200">the</span>&#x00A0;<span 
class="ectt-1200">residual</span>&#x00A0;<span 
class="ectt-1200">series</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">QQ(IK,K)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">NI,</span>&#x00A0;<span 
class="ectt-1200">NX,</span>&#x00A0;<span 
class="ectt-1200">IFAIL</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(NX=4,NI=9)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">IA(NI)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">XA(NX)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">seed=1</span>&#x00A0;<span 
class="ectt-1200">(non-repeatable</span>&#x00A0;<span 
class="ectt-1200">sequence)</span>&#x00A0;<span 
class="ectt-1200">ou</span>&#x00A0;<span 
class="ectt-1200">seed=0</span>&#x00A0;<span 
class="ectt-1200">(repeatable</span>&#x00A0;<span 
class="ectt-1200">sequence)</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">**</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">seed</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(seed=0)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">-------------------------------------------------------</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Fin</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">declaration</span>&#x00A0;<span 
class="ectt-1200">des</span>&#x00A0;<span 
class="ectt-1200">variables</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">-------------------------------------------------------</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">G05CBF</span>&#x00A0;<span 
class="ectt-1200">Initialise</span>&#x00A0;<span 
class="ectt-1200">random</span>&#x00A0;<span 
class="ectt-1200">number</span>&#x00A0;<span 
class="ectt-1200">generating</span>&#x00A0;<span 
class="ectt-1200">routines</span>&#x00A0;<span 
class="ectt-1200">to</span>&#x00A0;<span 
class="ectt-1200">give</span>&#x00A0;<span 
class="ectt-1200">repeatable</span>&#x00A0;<span 
class="ectt-1200">sequence</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">G05CCF</span>&#x00A0;<span 
class="ectt-1200">Initialise</span>&#x00A0;<span 
class="ectt-1200">random</span>&#x00A0;<span 
class="ectt-1200">number</span>&#x00A0;<span 
class="ectt-1200">generating</span>&#x00A0;<span 
class="ectt-1200">routines</span>&#x00A0;<span 
class="ectt-1200">to</span>&#x00A0;<span 
class="ectt-1200">give</span>&#x00A0;<span 
class="ectt-1200">non-repeatable</span>&#x00A0;<span 
class="ectt-1200">sequence</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">G05CFF</span>&#x00A0;<span 
class="ectt-1200">Save</span>&#x00A0;<span 
class="ectt-1200">state</span>&#x00A0;<span 
class="ectt-1200">of</span>&#x00A0;<span 
class="ectt-1200">random</span>&#x00A0;<span 
class="ectt-1200">number</span>&#x00A0;<span 
class="ectt-1200">generating</span>&#x00A0;<span 
class="ectt-1200">routines</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">G05CGF</span>&#x00A0;<span 
class="ectt-1200">Restore</span>&#x00A0;<span 
class="ectt-1200">state</span>&#x00A0;<span 
class="ectt-1200">of</span>&#x00A0;<span 
class="ectt-1200">random</span>&#x00A0;<span 
class="ectt-1200">number</span>&#x00A0;<span 
class="ectt-1200">generating</span>&#x00A0;<span 
class="ectt-1200">routines</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">IF</span>&#x00A0;<span 
class="ectt-1200">(seed</span>&#x00A0;<span 
class="ectt-1200">.EQ.</span>&#x00A0;<span 
class="ectt-1200">1)</span>&#x00A0;<span 
class="ectt-1200">THEN</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CALL</span>&#x00A0;<span 
class="ectt-1200">G05CCF</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">ENDIF</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">IF</span>&#x00A0;<span 
class="ectt-1200">(seed</span>&#x00A0;<span 
class="ectt-1200">.EQ.</span>&#x00A0;<span 
class="ectt-1200">0)</span>&#x00A0;<span 
class="ectt-1200">THEN</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CALL</span>&#x00A0;<span 
class="ectt-1200">G05CBF(0)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">ENDIF</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">IFAIL=0</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Rajouter</span>&#x00A0;<span 
class="ectt-1200">ici,</span>&#x00A0;<span 
class="ectt-1200">si</span>&#x00A0;<span 
class="ectt-1200">voulu,</span>&#x00A0;<span 
class="ectt-1200">les</span>&#x00A0;<span 
class="ectt-1200">IA</span>&#x00A0;<span 
class="ectt-1200">et</span>&#x00A0;<span 
class="ectt-1200">les</span>&#x00A0;<span 
class="ectt-1200">XA</span>&#x00A0;<span 
class="ectt-1200">a</span>&#x00A0;<span 
class="ectt-1200">prendre</span>&#x00A0;<span 
class="ectt-1200">a</span>&#x00A0;<span 
class="ectt-1200">la</span>&#x00A0;<span 
class="ectt-1200">fin</span>&#x00A0;<span 
class="ectt-1200">du</span>&#x00A0;<span 
class="ectt-1200">fichier</span>&#x00A0;<span 
class="ectt-1200">para.ijkl:</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">**</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">A</span>&#x00A0;<span 
class="ectt-1200">(de)commenter</span>&#x00A0;<span 
class="ectt-1200">si</span>&#x00A0;<span 
class="ectt-1200">necessaire</span>&#x00A0;<span 
class="ectt-1200">(si</span>&#x00A0;<span 
class="ectt-1200">on</span>&#x00A0;<span 
class="ectt-1200">rajoute</span>&#x00A0;<span 
class="ectt-1200">les</span>&#x00A0;<span 
class="ectt-1200">IA</span>&#x00A0;<span 
class="ectt-1200">et</span>&#x00A0;<span 
class="ectt-1200">XA,</span>&#x00A0;<span 
class="ectt-1200">on</span>&#x00A0;<span 
class="ectt-1200">decommente)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CALL</span>&#x00A0;<span 
class="ectt-1200">G05CGF(IA,NI,XA,NX,IFAIL)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CALL</span>&#x00A0;<span 
class="ectt-1200">G05CFF(IA,NI,XA,NX,IFAIL)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">EXACT=.TRUE.</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">**</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">nbcle=n</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">efface=&#x2019;rm</span>&#x00A0;<span 
class="ectt-1200">./data.txt&#x2019;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">ftemp=&#x2019;ftemp&#x2019;</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">On</span>&#x00A0;<span 
class="ectt-1200">va</span>&#x00A0;<span 
class="ectt-1200">lire</span>&#x00A0;<span 
class="ectt-1200">les</span>&#x00A0;<span 
class="ectt-1200">parametres</span>&#x00A0;<span 
class="ectt-1200">necessaires</span>&#x00A0;<span 
class="ectt-1200">dans</span>&#x00A0;<span 
class="ectt-1200">ftemp</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">temp</span>&#x00A0;<span 
class="ectt-1200">va</span>&#x00A0;<span 
class="ectt-1200">contenir</span>&#x00A0;<span 
class="ectt-1200">sur</span>&#x00A0;<span 
class="ectt-1200">chaque</span>&#x00A0;<span 
class="ectt-1200">ligne:</span>&#x00A0;<span 
class="ectt-1200">j,</span>&#x00A0;<span 
class="ectt-1200">loi,</span>&#x00A0;<span 
class="ectt-1200">phi(1)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">OPEN(UNIT=15,</span>&#x00A0;<span 
class="ectt-1200">FILE=ftemp</span>&#x00A0;<span 
class="ectt-1200">,</span>&#x00A0;<span 
class="ectt-1200">STATUS=&#x2019;OLD&#x2019;</span>&#x00A0;<span 
class="ectt-1200">)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">READ(15,*,END=10)</span>&#x00A0;<span 
class="ectt-1200">(temp(j),j=1,3)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CLOSE(15)</span>

&#x00A0;<br />&#x00A0;<span 
class="ectt-1200">10</span>&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">j=temp(1)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">loi=temp(2)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">phi(1)=temp(3)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">phi(2)=0.0</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">teta(1)=0.0</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">teta(2)=0.0</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">On</span>&#x00A0;<span 
class="ectt-1200">sauvegarde</span>&#x00A0;<span 
class="ectt-1200">la</span>&#x00A0;<span 
class="ectt-1200">valeur</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">nbcle</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">nbclea=nbcle</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Nom</span>&#x00A0;<span 
class="ectt-1200">du</span>&#x00A0;<span 
class="ectt-1200">fichier</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">donnees</span>&#x00A0;<span 
class="ectt-1200">en</span>&#x00A0;<span 
class="ectt-1200">sortie</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">**</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">dataf=&#x2019;data.txt&#x2019;</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Permet</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">convertir</span>&#x00A0;<span 
class="ectt-1200">l&#x2019;entier</span>&#x00A0;<span 
class="ectt-1200">j</span>&#x00A0;<span 
class="ectt-1200">en</span>&#x00A0;<span 
class="ectt-1200">chaine</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">caracteres</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">IF</span>&#x00A0;<span 
class="ectt-1200">(j/10</span>&#x00A0;<span 
class="ectt-1200">.LT.</span>&#x00A0;<span 
class="ectt-1200">1)</span>&#x00A0;<span 
class="ectt-1200">THEN</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(INTCH1,</span>&#x00A0;<span 
class="ectt-1200">&#x2019;(I1)&#x2019;)</span>&#x00A0;<span 
class="ectt-1200">j</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Nom</span>&#x00A0;<span 
class="ectt-1200">du</span>&#x00A0;<span 
class="ectt-1200">fichier</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">parametres</span>&#x00A0;<span 
class="ectt-1200">en</span>&#x00A0;<span 
class="ectt-1200">sortie</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">**</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">paramf=&#x2019;./SIMUL/para.&#x2019;//&#x2019;000&#x2019;//INTCH1</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">filew=&#x2019;./SIMUL/resultat.&#x2019;//&#x2019;000&#x2019;//INTCH1</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">ENDIF</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">IF</span>&#x00A0;<span 
class="ectt-1200">((j/10</span>&#x00A0;<span 
class="ectt-1200">.EQ.</span>&#x00A0;<span 
class="ectt-1200">1)</span>&#x00A0;<span 
class="ectt-1200">.OR.</span>&#x00A0;<span 
class="ectt-1200">((j/10</span>&#x00A0;<span 
class="ectt-1200">.GT.</span>&#x00A0;<span 
class="ectt-1200">1)</span>&#x00A0;<span 
class="ectt-1200">.AND.</span>&#x00A0;<span 
class="ectt-1200">(j/10</span>&#x00A0;<span 
class="ectt-1200">.LT.</span>&#x00A0;<span 
class="ectt-1200">10)))</span>&#x00A0;<span 
class="ectt-1200">THEN</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(INTCH2,</span>&#x00A0;<span 
class="ectt-1200">&#x2019;(I2)&#x2019;)</span>&#x00A0;<span 
class="ectt-1200">j</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Nom</span>&#x00A0;<span 
class="ectt-1200">du</span>&#x00A0;<span 
class="ectt-1200">fichier</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">parametres</span>&#x00A0;<span 
class="ectt-1200">en</span>&#x00A0;<span 
class="ectt-1200">sortie</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">**</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">paramf=&#x2019;./SIMUL/para.&#x2019;//&#x2019;00&#x2019;//INTCH2</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">filew=&#x2019;./SIMUL/resultat.&#x2019;//&#x2019;00&#x2019;//INTCH2</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">ENDIF</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">IF</span>&#x00A0;<span 
class="ectt-1200">((j/10</span>&#x00A0;<span 
class="ectt-1200">.EQ.</span>&#x00A0;<span 
class="ectt-1200">10)</span>&#x00A0;<span 
class="ectt-1200">.OR.</span>&#x00A0;<span 
class="ectt-1200">((j/10</span>&#x00A0;<span 
class="ectt-1200">.GT.</span>&#x00A0;<span 
class="ectt-1200">10)</span>&#x00A0;<span 
class="ectt-1200">.AND.</span>&#x00A0;<span 
class="ectt-1200">(j/10</span>&#x00A0;<span 
class="ectt-1200">.LT.</span>&#x00A0;<span 
class="ectt-1200">100)))</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">+</span>&#x00A0;<span 
class="ectt-1200">THEN</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(INTCH3,</span>&#x00A0;<span 
class="ectt-1200">&#x2019;(I3)&#x2019;)</span>&#x00A0;<span 
class="ectt-1200">j</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Nom</span>&#x00A0;<span 
class="ectt-1200">du</span>&#x00A0;<span 
class="ectt-1200">fichier</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">parametres</span>&#x00A0;<span 
class="ectt-1200">en</span>&#x00A0;<span 
class="ectt-1200">sortie</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">**</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">paramf=&#x2019;./SIMUL/para.&#x2019;//&#x2019;0&#x2019;//INTCH3</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">filew=&#x2019;./SIMUL/resultat.&#x2019;//&#x2019;0&#x2019;//INTCH3</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">ENDIF</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">IF</span>&#x00A0;<span 
class="ectt-1200">((j/10</span>&#x00A0;<span 
class="ectt-1200">.EQ.</span>&#x00A0;<span 
class="ectt-1200">100)</span>&#x00A0;<span 
class="ectt-1200">.OR.</span>&#x00A0;<span 
class="ectt-1200">((j/10</span>&#x00A0;<span 
class="ectt-1200">.GT.</span>&#x00A0;<span 
class="ectt-1200">100)</span>&#x00A0;<span 
class="ectt-1200">.AND.</span>&#x00A0;<span 
class="ectt-1200">(j/10</span>&#x00A0;<span 
class="ectt-1200">.LT.</span>&#x00A0;<span 
class="ectt-1200">1000)))</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">+</span>&#x00A0;<span 
class="ectt-1200">THEN</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(INTCH4,</span>&#x00A0;<span 
class="ectt-1200">&#x2019;(I4)&#x2019;)</span>&#x00A0;<span 
class="ectt-1200">j</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Nom</span>&#x00A0;<span 
class="ectt-1200">du</span>&#x00A0;<span 
class="ectt-1200">fichier</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">parametres</span>&#x00A0;<span 
class="ectt-1200">en</span>&#x00A0;<span 
class="ectt-1200">sortie</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">**</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">paramf=&#x2019;./SIMUL/para.&#x2019;//INTCH4</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">filew=&#x2019;./SIMUL/resultat.&#x2019;//INTCH4</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">ENDIF</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">IF</span>&#x00A0;<span 
class="ectt-1200">(loi</span>&#x00A0;<span 
class="ectt-1200">.EQ.</span>&#x00A0;<span 
class="ectt-1200">0)</span>&#x00A0;<span 
class="ectt-1200">THEN</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Quantiles</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">la</span>&#x00A0;<span 
class="ectt-1200">loi</span>&#x00A0;<span 
class="ectt-1200">du</span>&#x00A0;<span 
class="ectt-1200">Khi2</span>&#x00A0;<span 
class="ectt-1200">(K=10;alpha=0.1)</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">**</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">khi(1)=2.71</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">khi(2)=4.61</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">khi(3)=6.25</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">khi(4)=7.78</span>

&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">khi(5)=9.24</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">khi(6)=10.64</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">khi(7)=12.02</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">khi(8)=13.36</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">khi(9)=14.68</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">khi(10)=15.99</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Quantiles</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">la</span>&#x00A0;<span 
class="ectt-1200">loi</span>&#x00A0;<span 
class="ectt-1200">du</span>&#x00A0;<span 
class="ectt-1200">Khi2</span>&#x00A0;<span 
class="ectt-1200">(K=10;alpha=0.05)</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">**</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">khi2(1)=3.84</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">khi2(2)=5.99</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">khi2(3)=7.81</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">khi2(4)=9.49</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">khi2(5)=11.07</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">khi2(6)=12.59</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">khi2(7)=14.07</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">khi2(8)=15.51</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">khi2(9)=16.92</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">khi2(10)=18.31</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">ENDIF</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">IF</span>&#x00A0;<span 
class="ectt-1200">(loi</span>&#x00A0;<span 
class="ectt-1200">.NE.</span>&#x00A0;<span 
class="ectt-1200">0)</span>&#x00A0;<span 
class="ectt-1200">THEN</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Quantiles</span>&#x00A0;<span 
class="ectt-1200">utilises</span>&#x00A0;<span 
class="ectt-1200">pour</span>&#x00A0;<span 
class="ectt-1200">le</span>&#x00A0;<span 
class="ectt-1200">calcul</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">la</span>&#x00A0;<span 
class="ectt-1200">stat(vrais</span>&#x00A0;<span 
class="ectt-1200">quantiles</span>&#x00A0;<span 
class="ectt-1200">calcules</span>&#x00A0;<span 
class="ectt-1200">sous</span>&#x00A0;<span 
class="ectt-1200">H0)</span>&#x00A0;&#x00A0;<span 
class="ectt-1200">**</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">avec</span>&#x00A0;<span 
class="ectt-1200">alpha=0.1</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">khi(1)=2.71</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">khi(2)=4.61</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">khi(3)=6.25</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">khi(4)=7.78</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">khi(5)=9.24</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">khi(6)=10.64</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">khi(7)=12.02</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">khi(8)=13.36</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">khi(9)=14.68</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">khi(10)=15.99</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Quantiles</span>&#x00A0;<span 
class="ectt-1200">utilises</span>&#x00A0;<span 
class="ectt-1200">pour</span>&#x00A0;<span 
class="ectt-1200">le</span>&#x00A0;<span 
class="ectt-1200">calcul</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">la</span>&#x00A0;<span 
class="ectt-1200">stat(vrais</span>&#x00A0;<span 
class="ectt-1200">quantiles</span>&#x00A0;<span 
class="ectt-1200">calcules</span>&#x00A0;<span 
class="ectt-1200">sous</span>&#x00A0;<span 
class="ectt-1200">H0)</span>&#x00A0;&#x00A0;<span 
class="ectt-1200">**</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">avec</span>&#x00A0;<span 
class="ectt-1200">alpha=0.05</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">khi2(1)=3.84</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">khi2(2)=5.99</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">khi2(3)=7.81</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">khi2(4)=9.49</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">khi2(5)=11.07</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">khi2(6)=12.59</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">khi2(7)=14.07</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">khi2(8)=15.51</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">khi2(9)=16.92</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">khi2(10)=18.31</span>

&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">ENDIF</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">On</span>&#x00A0;<span 
class="ectt-1200">peut</span>&#x00A0;<span 
class="ectt-1200">aussi</span>&#x00A0;<span 
class="ectt-1200">changer</span>&#x00A0;<span 
class="ectt-1200">le</span>&#x00A0;<span 
class="ectt-1200">nom</span>&#x00A0;<span 
class="ectt-1200">du</span>&#x00A0;<span 
class="ectt-1200">fichier</span>&#x00A0;<span 
class="ectt-1200">en</span>&#x00A0;<span 
class="ectt-1200">entree</span>&#x00A0;<span 
class="ectt-1200">(data.txt)</span>&#x00A0;<span 
class="ectt-1200">et</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">**</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">le</span>&#x00A0;<span 
class="ectt-1200">nom</span>&#x00A0;<span 
class="ectt-1200">du</span>&#x00A0;<span 
class="ectt-1200">fichier</span>&#x00A0;<span 
class="ectt-1200">en</span>&#x00A0;<span 
class="ectt-1200">sortie</span>&#x00A0;<span 
class="ectt-1200">(resultat.txt)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">filer=&#x2019;data.txt&#x2019;</span>
&#x00A0;<br /><span 
class="ectt-1200">c-----------------------------------------------------------</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">------------------------------------------------------------------------</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DEBUT</span>&#x00A0;<span 
class="ectt-1200">DU</span>&#x00A0;<span 
class="ectt-1200">PROGRAMME</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">------------------------------------------------------------------------</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CALL</span>&#x00A0;<span 
class="ectt-1200">cdatAR(dataf,paramf,nbcle,marret,Mind,sigma,mu,df1,df2,</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">+lambda,loi5b,loi5k,loi6p,loi6q,loi7g,loi7d,loi8p,loi8q,loi9a,</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">+loi9b,loi10b,loi10l,loi11a,loi11k,loi13g,loi13d,loi14l,loi16p,</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">+loi16d,loi17p,loi17m,loi18g,loi18d,loi19a,loi19b,loi,p,q,rm,nT,</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">+phi,phich,donees,A,B,R,NPAR,ICM,IW,PAR,W,CGETOL,V,G,CM,WORK,MEAN,</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">+PARHLD,EXACT,Wtip,shocks,psi,phi2,YtpMn,Atn,EspSU,EspSB,EspS,</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">+E,NA,NB,NR,K,N2,IP,IQ,IK,MAXCAL,ISHOW,LWORK,LIW,QQ)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Il</span>&#x00A0;<span 
class="ectt-1200">faut</span>&#x00A0;<span 
class="ectt-1200">faire</span>&#x00A0;<span 
class="ectt-1200">modifier</span>&#x00A0;<span 
class="ectt-1200">par</span>&#x00A0;<span 
class="ectt-1200">cdARMA</span>&#x00A0;<span 
class="ectt-1200">la</span>&#x00A0;<span 
class="ectt-1200">valeur</span>&#x00A0;<span 
class="ectt-1200">nbcle</span>&#x00A0;<span 
class="ectt-1200">en</span>&#x00A0;<span 
class="ectt-1200">entree</span>&#x00A0;<span 
class="ectt-1200">pour</span>&#x00A0;<span 
class="ectt-1200">lui</span>&#x00A0;<span 
class="ectt-1200">faire</span>&#x00A0;<span 
class="ectt-1200">sortir</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">une</span>&#x00A0;<span 
class="ectt-1200">nouvelle</span>&#x00A0;<span 
class="ectt-1200">valeur</span>&#x00A0;<span 
class="ectt-1200">nbcle</span>&#x00A0;<span 
class="ectt-1200">qui</span>&#x00A0;<span 
class="ectt-1200">est</span>&#x00A0;<span 
class="ectt-1200">le</span>&#x00A0;<span 
class="ectt-1200">nombre</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">bons</span>&#x00A0;<span 
class="ectt-1200">echantillons</span>&#x00A0;<span 
class="ectt-1200">conserves</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Ensuite,</span>&#x00A0;<span 
class="ectt-1200">il</span>&#x00A0;<span 
class="ectt-1200">faut</span>&#x00A0;<span 
class="ectt-1200">utiliser</span>&#x00A0;<span 
class="ectt-1200">cette</span>&#x00A0;<span 
class="ectt-1200">valeur</span>&#x00A0;<span 
class="ectt-1200">dans</span>&#x00A0;<span 
class="ectt-1200">calcstat,</span>&#x00A0;<span 
class="ectt-1200">comme</span>&#x00A0;<span 
class="ectt-1200">etant</span>&#x00A0;<span 
class="ectt-1200">la</span>&#x00A0;<span 
class="ectt-1200">vraie</span>&#x00A0;<span 
class="ectt-1200">valeur</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">du</span>&#x00A0;<span 
class="ectt-1200">nombre</span>&#x00A0;<span 
class="ectt-1200">d&#x2019;echantillons</span>&#x00A0;<span 
class="ectt-1200">disponibles,</span>&#x00A0;<span 
class="ectt-1200">la</span>&#x00A0;<span 
class="ectt-1200">valeur</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">n</span>&#x00A0;<span 
class="ectt-1200">que</span>&#x00A0;<span 
class="ectt-1200">l&#x2019;on</span>&#x00A0;<span 
class="ectt-1200">a</span>&#x00A0;<span 
class="ectt-1200">mise</span>&#x00A0;<span 
class="ectt-1200">etant</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">la</span>&#x00A0;<span 
class="ectt-1200">valeur</span>&#x00A0;<span 
class="ectt-1200">maximale</span>&#x00A0;<span 
class="ectt-1200">possible</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">bons</span>&#x00A0;<span 
class="ectt-1200">echantillons,</span>&#x00A0;<span 
class="ectt-1200">donc</span>&#x00A0;<span 
class="ectt-1200">les</span>&#x00A0;<span 
class="ectt-1200">differentes</span>&#x00A0;<span 
class="ectt-1200">matrices</span>&#x00A0;<span 
class="ectt-1200">initialisees</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">a</span>&#x00A0;<span 
class="ectt-1200">l&#x2019;aide</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">la</span>&#x00A0;<span 
class="ectt-1200">valeur</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">n</span>&#x00A0;<span 
class="ectt-1200">sont</span>&#x00A0;<span 
class="ectt-1200">plus</span>&#x00A0;<span 
class="ectt-1200">grandes</span>&#x00A0;<span 
class="ectt-1200">que</span>&#x00A0;<span 
class="ectt-1200">necessaires</span>&#x00A0;<span 
class="ectt-1200">(elles</span>&#x00A0;<span 
class="ectt-1200">auraient</span>&#x00A0;<span 
class="ectt-1200">du</span>&#x00A0;<span 
class="ectt-1200">etre</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">initialisees</span>&#x00A0;<span 
class="ectt-1200">avec</span>&#x00A0;<span 
class="ectt-1200">la</span>&#x00A0;<span 
class="ectt-1200">valeur</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">nbcle</span>&#x00A0;<span 
class="ectt-1200">renvoyee</span>&#x00A0;<span 
class="ectt-1200">par</span>&#x00A0;<span 
class="ectt-1200">cd</span>&#x00A0;<span 
class="ectt-1200">ARMA</span>&#x00A0;<span 
class="ectt-1200">mais</span>&#x00A0;<span 
class="ectt-1200">ce</span>&#x00A0;<span 
class="ectt-1200">n&#x2019;est</span>&#x00A0;<span 
class="ectt-1200">pas</span>&#x00A0;<span 
class="ectt-1200">possible</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">avec</span>&#x00A0;<span 
class="ectt-1200">fortran77)</span>&#x00A0;<span 
class="ectt-1200">et</span>&#x00A0;<span 
class="ectt-1200">il</span>&#x00A0;<span 
class="ectt-1200">faut</span>&#x00A0;<span 
class="ectt-1200">en</span>&#x00A0;<span 
class="ectt-1200">tenir</span>&#x00A0;<span 
class="ectt-1200">compte;</span>&#x00A0;<span 
class="ectt-1200">donc</span>&#x00A0;<span 
class="ectt-1200">bien</span>&#x00A0;<span 
class="ectt-1200">regarder</span>&#x00A0;<span 
class="ectt-1200">partout</span>&#x00A0;<span 
class="ectt-1200">dans</span>&#x00A0;<span 
class="ectt-1200">le</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">programme</span>&#x00A0;<span 
class="ectt-1200">calcstat</span>&#x00A0;<span 
class="ectt-1200">la</span>&#x00A0;<span 
class="ectt-1200">ou</span>&#x00A0;<span 
class="ectt-1200">il</span>&#x00A0;<span 
class="ectt-1200">y</span>&#x00A0;<span 
class="ectt-1200">a</span>&#x00A0;<span 
class="ectt-1200">n:</span>&#x00A0;<span 
class="ectt-1200">OK</span>&#x00A0;<span 
class="ectt-1200">CA</span>&#x00A0;<span 
class="ectt-1200">C&#x2019;EST</span>&#x00A0;<span 
class="ectt-1200">FAIT!!!</span>&#x00A0;<span 
class="ectt-1200">A</span>&#x00A0;<span 
class="ectt-1200">METTRE</span>&#x00A0;<span 
class="ectt-1200">EN</span>&#x00A0;<span 
class="ectt-1200">COMMENTAIRES</span>&#x00A0;<span 
class="ectt-1200">QUELQUEPART</span>&#x00A0;<span 
class="ectt-1200">...</span>
&#x00A0;<br /><span 
class="ectt-1200">CALL</span>&#x00A0;<span 
class="ectt-1200">calcstat(isa,khi,khi2,QuLed1,QuLe12,QuLed2,QuLe22,QuBD,</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">+</span>&#x00A0;<span 
class="ectt-1200">QuBD2,QuAD,QuAD2,QuJB,QuJB2,alpha,alpha2,Kp,p,q,nT,phi,teta,n,</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">+</span>&#x00A0;<span 
class="ectt-1200">nbcle,m,filer,filew,valeur,sch2vc,epscha,compt,compt2,statn,</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">+</span>&#x00A0;<span 
class="ectt-1200">KoLed1,KoLed2,Ledwi1,Ledwi2,snLed1,snLed2,stanBD,stanAD,stanJB,Z,</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">+</span>&#x00A0;<span 
class="ectt-1200">D,Davant,E2,U,hUetoi,Uavant,hKetoi,hU,hK,vecteu,vectoi,stat,</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">+</span>&#x00A0;<span 
class="ectt-1200">Zavant,BDa,BDb,BDc,BDd,Davan2,ADa,ADb,Puiss,Puiss2,snsort,snsorv,</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">+</span>&#x00A0;<span 
class="ectt-1200">Qucalc,snLe1s,snLe2s,snBDso,snADso,snJBso,matric,paramf,loi,</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">+</span>&#x00A0;<span 
class="ectt-1200">dnT,QLed1u,QLe12u,QLed2u,QLe22u,QBDu,QBD2u,QADu,QAD2u,QJBu,QJB2u)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">nbcle=nbclea</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">FAIRE</span>&#x00A0;<span 
class="ectt-1200">ATTENTION:</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">voir</span>&#x00A0;<span 
class="ectt-1200">si</span>&#x00A0;<span 
class="ectt-1200">mes</span>&#x00A0;<span 
class="ectt-1200">programmes</span>&#x00A0;<span 
class="ectt-1200">ne</span>&#x00A0;<span 
class="ectt-1200">modifient</span>&#x00A0;<span 
class="ectt-1200">pas</span>&#x00A0;<span 
class="ectt-1200">certains</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">leurs</span>&#x00A0;<span 
class="ectt-1200">parametres</span>&#x00A0;<span 
class="ectt-1200">en</span>&#x00A0;<span 
class="ectt-1200">entree</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">ce</span>&#x00A0;<span 
class="ectt-1200">qui</span>&#x00A0;<span 
class="ectt-1200">pourrait</span>&#x00A0;<span 
class="ectt-1200">ammener</span>&#x00A0;<span 
class="ectt-1200">des</span>&#x00A0;<span 
class="ectt-1200">erreurs</span>&#x00A0;<span 
class="ectt-1200">au</span>&#x00A0;<span 
class="ectt-1200">cours</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">la</span>&#x00A0;<span 
class="ectt-1200">boucle</span>&#x00A0;<span 
class="ectt-1200">que</span>&#x00A0;<span 
class="ectt-1200">je</span>&#x00A0;<span 
class="ectt-1200">vais</span>&#x00A0;<span 
class="ectt-1200">faire</span>&#x00A0;<span 
class="ectt-1200">dans</span>&#x00A0;<span 
class="ectt-1200">le</span>&#x00A0;<span 
class="ectt-1200">programme</span>&#x00A0;<span 
class="ectt-1200">test.f</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">pour</span>&#x00A0;<span 
class="ectt-1200">les</span>&#x00A0;<span 
class="ectt-1200">differentes</span>&#x00A0;<span 
class="ectt-1200">etapes</span>&#x00A0;<span 
class="ectt-1200">1),</span>&#x00A0;<span 
class="ectt-1200">2)</span>&#x00A0;<span 
class="ectt-1200">et</span>&#x00A0;<span 
class="ectt-1200">3)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CALL</span>&#x00A0;<span 
class="ectt-1200">SYSTEM(efface)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Sauvegarde</span>&#x00A0;<span 
class="ectt-1200">du</span>&#x00A0;<span 
class="ectt-1200">seed</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">OPEN(UNIT=14,</span>&#x00A0;<span 
class="ectt-1200">FILE=paramf</span>&#x00A0;<span 
class="ectt-1200">,</span>&#x00A0;<span 
class="ectt-1200">STATUS=&#x2019;OLD&#x2019;,</span>&#x00A0;<span 
class="ectt-1200">ACCESS=&#x2019;append&#x2019;</span>&#x00A0;<span 
class="ectt-1200">)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(14,*)</span>&#x00A0;<span 
class="ectt-1200">&#x2019;Sauvegarde</span>&#x00A0;<span 
class="ectt-1200">du</span>&#x00A0;<span 
class="ectt-1200">seed:&#x2019;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(14,*)</span>&#x00A0;<span 
class="ectt-1200">&#x2019;XA:&#x2019;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(14,15)</span>&#x00A0;<span 
class="ectt-1200">&#x2019;XA(1)=&#x2019;,XA(1)</span>

&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(14,15)</span>&#x00A0;<span 
class="ectt-1200">&#x2019;XA(2)=&#x2019;,XA(2)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(14,15)</span>&#x00A0;<span 
class="ectt-1200">&#x2019;XA(3)=&#x2019;,XA(3)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(14,15)</span>&#x00A0;<span 
class="ectt-1200">&#x2019;XA(4)=&#x2019;,XA(4)</span>
&#x00A0;<br />&#x00A0;<span 
class="ectt-1200">15</span>&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">FORMAT(A6,1F20.15)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(14,*)</span>&#x00A0;<span 
class="ectt-1200">&#x2019;IA:&#x2019;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(14,30)</span>&#x00A0;<span 
class="ectt-1200">&#x2019;IA(1)=&#x2019;,IA(1)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(14,30)</span>&#x00A0;<span 
class="ectt-1200">&#x2019;IA(2)=&#x2019;,IA(2)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(14,30)</span>&#x00A0;<span 
class="ectt-1200">&#x2019;IA(3)=&#x2019;,IA(3)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(14,30)</span>&#x00A0;<span 
class="ectt-1200">&#x2019;IA(4)=&#x2019;,IA(4)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(14,30)</span>&#x00A0;<span 
class="ectt-1200">&#x2019;IA(5)=&#x2019;,IA(5)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(14,30)</span>&#x00A0;<span 
class="ectt-1200">&#x2019;IA(6)=&#x2019;,IA(6)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(14,30)</span>&#x00A0;<span 
class="ectt-1200">&#x2019;IA(7)=&#x2019;,IA(7)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(14,30)</span>&#x00A0;<span 
class="ectt-1200">&#x2019;IA(8)=&#x2019;,IA(8)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(14,30)</span>&#x00A0;<span 
class="ectt-1200">&#x2019;IA(9)=&#x2019;,IA(9)</span>
&#x00A0;<br />&#x00A0;<span 
class="ectt-1200">30</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">FORMAT(A6,1I10)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CLOSE(UNIT=14)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">END</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INCLUDE</span>&#x00A0;<span 
class="ectt-1200">&#x2019;mean.f&#x2019;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INCLUDE</span>&#x00A0;<span 
class="ectt-1200">&#x2019;simulAR.f&#x2019;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INCLUDE</span>&#x00A0;<span 
class="ectt-1200">&#x2019;ARpsi.f&#x2019;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INCLUDE</span>&#x00A0;<span 
class="ectt-1200">&#x2019;shock.f&#x2019;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INCLUDE</span>&#x00A0;<span 
class="ectt-1200">&#x2019;rskew.f&#x2019;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INCLUDE</span>&#x00A0;<span 
class="ectt-1200">&#x2019;rlap.f&#x2019;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INCLUDE</span>&#x00A0;<span 
class="ectt-1200">&#x2019;rpare.f&#x2019;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INCLUDE</span>&#x00A0;<span 
class="ectt-1200">&#x2019;rspare.f&#x2019;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INCLUDE</span>&#x00A0;<span 
class="ectt-1200">&#x2019;rSU.f&#x2019;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INCLUDE</span>&#x00A0;<span 
class="ectt-1200">&#x2019;rTU.f&#x2019;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INCLUDE</span>&#x00A0;<span 
class="ectt-1200">&#x2019;rSC.f&#x2019;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INCLUDE</span>&#x00A0;<span 
class="ectt-1200">&#x2019;rLC.f&#x2019;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INCLUDE</span>&#x00A0;<span 
class="ectt-1200">&#x2019;rSB.f&#x2019;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INCLUDE</span>&#x00A0;<span 
class="ectt-1200">&#x2019;rS.f&#x2019;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INCLUDE</span>&#x00A0;<span 
class="ectt-1200">&#x2019;H1etoile.f&#x2019;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INCLUDE</span>&#x00A0;<span 
class="ectt-1200">&#x2019;H2etoile.f&#x2019;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INCLUDE</span>&#x00A0;<span 
class="ectt-1200">&#x2019;H3etoile.f&#x2019;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INCLUDE</span>&#x00A0;<span 
class="ectt-1200">&#x2019;H4etoile.f&#x2019;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INCLUDE</span>&#x00A0;<span 
class="ectt-1200">&#x2019;H5etoile.f&#x2019;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INCLUDE</span>&#x00A0;<span 
class="ectt-1200">&#x2019;H6etoile.f&#x2019;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INCLUDE</span>&#x00A0;<span 
class="ectt-1200">&#x2019;H7etoile.f&#x2019;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INCLUDE</span>&#x00A0;<span 
class="ectt-1200">&#x2019;H8etoile.f&#x2019;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INCLUDE</span>&#x00A0;<span 
class="ectt-1200">&#x2019;H9etoile.f&#x2019;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INCLUDE</span>&#x00A0;<span 
class="ectt-1200">&#x2019;H10etoile.f&#x2019;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INCLUDE</span>&#x00A0;<span 
class="ectt-1200">&#x2019;H1isa.f&#x2019;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INCLUDE</span>&#x00A0;<span 
class="ectt-1200">&#x2019;H2isa.f&#x2019;</span>

&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INCLUDE</span>&#x00A0;<span 
class="ectt-1200">&#x2019;H3isa.f&#x2019;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INCLUDE</span>&#x00A0;<span 
class="ectt-1200">&#x2019;H4isa.f&#x2019;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INCLUDE</span>&#x00A0;<span 
class="ectt-1200">&#x2019;H5isa.f&#x2019;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INCLUDE</span>&#x00A0;<span 
class="ectt-1200">&#x2019;H6isa.f&#x2019;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INCLUDE</span>&#x00A0;<span 
class="ectt-1200">&#x2019;H7isa.f&#x2019;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INCLUDE</span>&#x00A0;<span 
class="ectt-1200">&#x2019;H8isa.f&#x2019;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INCLUDE</span>&#x00A0;<span 
class="ectt-1200">&#x2019;H9isa.f&#x2019;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INCLUDE</span>&#x00A0;<span 
class="ectt-1200">&#x2019;H10isa.f&#x2019;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INCLUDE</span>&#x00A0;<span 
class="ectt-1200">&#x2019;H1.f&#x2019;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INCLUDE</span>&#x00A0;<span 
class="ectt-1200">&#x2019;H2.f&#x2019;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INCLUDE</span>&#x00A0;<span 
class="ectt-1200">&#x2019;H3.f&#x2019;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INCLUDE</span>&#x00A0;<span 
class="ectt-1200">&#x2019;H4.f&#x2019;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INCLUDE</span>&#x00A0;<span 
class="ectt-1200">&#x2019;H5.f&#x2019;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INCLUDE</span>&#x00A0;<span 
class="ectt-1200">&#x2019;H6.f&#x2019;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INCLUDE</span>&#x00A0;<span 
class="ectt-1200">&#x2019;H7.f&#x2019;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INCLUDE</span>&#x00A0;<span 
class="ectt-1200">&#x2019;H8.f&#x2019;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INCLUDE</span>&#x00A0;<span 
class="ectt-1200">&#x2019;H9.f&#x2019;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INCLUDE</span>&#x00A0;<span 
class="ectt-1200">&#x2019;H10.f&#x2019;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INCLUDE</span>&#x00A0;<span 
class="ectt-1200">&#x2019;qnorm.f&#x2019;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INCLUDE</span>&#x00A0;<span 
class="ectt-1200">&#x2019;pnorm.f&#x2019;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INCLUDE</span>&#x00A0;<span 
class="ectt-1200">&#x2019;min.f&#x2019;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INCLUDE</span>&#x00A0;<span 
class="ectt-1200">&#x2019;max.f&#x2019;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INCLUDE</span>&#x00A0;<span 
class="ectt-1200">&#x2019;var.f&#x2019;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INCLUDE</span>&#x00A0;<span 
class="ectt-1200">&#x2019;creerdat_AR.f&#x2019;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INCLUDE</span>&#x00A0;<span 
class="ectt-1200">&#x2019;calcstat.f&#x2019;</span>
</div> <span 
class="ecbx-1200">Programme big_prog_AR2.f </span><div class="verbatiminput">
<span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Idee</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">ce</span>&#x00A0;&#x00A0;<span 
class="ectt-1200">programme:</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Etape1)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">On</span>&#x00A0;<span 
class="ectt-1200">cree</span>&#x00A0;<span 
class="ectt-1200">un</span>&#x00A0;<span 
class="ectt-1200">fichier</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">donnees</span>&#x00A0;<span 
class="ectt-1200">&#x2019;data.txt&#x2019;</span>&#x00A0;<span 
class="ectt-1200">en</span>&#x00A0;<span 
class="ectt-1200">utilisant</span>&#x00A0;<span 
class="ectt-1200">certaines</span>&#x00A0;<span 
class="ectt-1200">valeurs</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">parametres</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">a</span>&#x00A0;<span 
class="ectt-1200">lire</span>&#x00A0;<span 
class="ectt-1200">dans</span>&#x00A0;<span 
class="ectt-1200">un</span>&#x00A0;<span 
class="ectt-1200">fichier</span>&#x00A0;<span 
class="ectt-1200">d&#x2019;entree</span>&#x00A0;<span 
class="ectt-1200">&#x2019;ftemp&#x2019;</span>&#x00A0;<span 
class="ectt-1200">cree</span>&#x00A0;<span 
class="ectt-1200">par</span>&#x00A0;<span 
class="ectt-1200">le</span>&#x00A0;<span 
class="ectt-1200">programme</span>&#x00A0;<span 
class="ectt-1200">test.f</span>&#x00A0;<span 
class="ectt-1200">a</span>&#x00A0;<span 
class="ectt-1200">l&#x2019;aide</span>&#x00A0;<span 
class="ectt-1200">du</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">fichier</span>&#x00A0;<span 
class="ectt-1200">&#x2019;paramentree&#x2019;,</span>&#x00A0;<span 
class="ectt-1200">on</span>&#x00A0;<span 
class="ectt-1200">stocke</span>&#x00A0;<span 
class="ectt-1200">les</span>&#x00A0;<span 
class="ectt-1200">resultats</span>&#x00A0;<span 
class="ectt-1200">autres</span>&#x00A0;<span 
class="ectt-1200">que</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">les</span>&#x00A0;<span 
class="ectt-1200">donnees</span>&#x00A0;<span 
class="ectt-1200">dans</span>&#x00A0;<span 
class="ectt-1200">un</span>&#x00A0;<span 
class="ectt-1200">fichier</span>&#x00A0;<span 
class="ectt-1200">&#x2019;param.i&#x2019;</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Etape</span>&#x00A0;<span 
class="ectt-1200">2)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">ensuite</span>&#x00A0;<span 
class="ectt-1200">on</span>&#x00A0;<span 
class="ectt-1200">utilise</span>&#x00A0;<span 
class="ectt-1200">le</span>&#x00A0;<span 
class="ectt-1200">fichier</span>&#x00A0;<span 
class="ectt-1200">&#x2019;data.txt&#x2019;</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">avec</span>&#x00A0;<span 
class="ectt-1200">le</span>&#x00A0;<span 
class="ectt-1200">programme</span>&#x00A0;<span 
class="ectt-1200">calcstat</span>&#x00A0;<span 
class="ectt-1200">pour</span>&#x00A0;<span 
class="ectt-1200">creer</span>&#x00A0;<span 
class="ectt-1200">le</span>&#x00A0;<span 
class="ectt-1200">fichier</span>&#x00A0;<span 
class="ectt-1200">des</span>&#x00A0;<span 
class="ectt-1200">statistiques</span>&#x00A0;<span 
class="ectt-1200">&#x2019;resultat.i&#x2019;</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Etape</span>&#x00A0;<span 
class="ectt-1200">3)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Ensuite,</span>&#x00A0;<span 
class="ectt-1200">on</span>&#x00A0;<span 
class="ectt-1200">efface</span>&#x00A0;<span 
class="ectt-1200">le</span>&#x00A0;<span 
class="ectt-1200">fichier</span>&#x00A0;<span 
class="ectt-1200">&#x2019;data.txt&#x2019;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PROGRAM</span>&#x00A0;<span 
class="ectt-1200">main</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Les</span>&#x00A0;<span 
class="ectt-1200">**</span>&#x00A0;<span 
class="ectt-1200">indiquent</span>&#x00A0;<span 
class="ectt-1200">les</span>&#x00A0;<span 
class="ectt-1200">endroits</span>&#x00A0;<span 
class="ectt-1200">ou</span>&#x00A0;<span 
class="ectt-1200">des</span>&#x00A0;<span 
class="ectt-1200">changements</span>&#x00A0;<span 
class="ectt-1200">peuvent</span>&#x00A0;<span 
class="ectt-1200">etre</span>&#x00A0;<span 
class="ectt-1200">necessaires</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">--------------------------------------------------------------------------</span>

&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DEBUT</span>&#x00A0;<span 
class="ectt-1200">DE</span>&#x00A0;<span 
class="ectt-1200">DECLARATION</span>&#x00A0;<span 
class="ectt-1200">DES</span>&#x00A0;<span 
class="ectt-1200">VARIABLES</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">--------------------------------------------------------------------------</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Si</span>&#x00A0;<span 
class="ectt-1200">isa=.TRUE.</span>&#x00A0;<span 
class="ectt-1200">(ie</span>&#x00A0;<span 
class="ectt-1200">MEAN=.TRUE.)</span>&#x00A0;<span 
class="ectt-1200">on</span>&#x00A0;<span 
class="ectt-1200">prend</span>&#x00A0;<span 
class="ectt-1200">les</span>&#x00A0;<span 
class="ectt-1200">polynomes</span>&#x00A0;<span 
class="ectt-1200">modifies</span>&#x00A0;<span 
class="ectt-1200">avec</span>&#x00A0;<span 
class="ectt-1200">les</span>&#x00A0;<span 
class="ectt-1200">ak</span>&#x00A0;&#x00A0;<span 
class="ectt-1200">**</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Si</span>&#x00A0;<span 
class="ectt-1200">isa=.FALSE.</span>&#x00A0;<span 
class="ectt-1200">(ie</span>&#x00A0;<span 
class="ectt-1200">MEAN=.FALSE.)</span>&#x00A0;<span 
class="ectt-1200">on</span>&#x00A0;<span 
class="ectt-1200">prend</span>&#x00A0;<span 
class="ectt-1200">les</span>&#x00A0;<span 
class="ectt-1200">polynomes</span>&#x00A0;<span 
class="ectt-1200">modifies</span>&#x00A0;<span 
class="ectt-1200">sans</span>&#x00A0;<span 
class="ectt-1200">les</span>&#x00A0;<span 
class="ectt-1200">ak</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">LOGICAL</span>&#x00A0;<span 
class="ectt-1200">isa</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(isa=.FALSE.)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">------------------------------------</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">parametres</span>&#x00A0;<span 
class="ectt-1200">calcstat</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Niveau</span>&#x00A0;<span 
class="ectt-1200">1</span>&#x00A0;<span 
class="ectt-1200">du</span>&#x00A0;<span 
class="ectt-1200">test</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">**</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">alpha</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(alpha=0.1)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Niveau</span>&#x00A0;<span 
class="ectt-1200">2</span>&#x00A0;<span 
class="ectt-1200">du</span>&#x00A0;<span 
class="ectt-1200">test</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">**</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">alpha2</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(alpha2=0.05)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Quantiles</span>&#x00A0;<span 
class="ectt-1200">avec</span>&#x00A0;<span 
class="ectt-1200">alpha</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;&#x00A0;<span 
class="ectt-1200">khi(10)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Quantiles</span>&#x00A0;<span 
class="ectt-1200">avec</span>&#x00A0;<span 
class="ectt-1200">alpha2</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;&#x00A0;<span 
class="ectt-1200">khi2(10)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Quantiles</span>&#x00A0;<span 
class="ectt-1200">Ledwi1</span>&#x00A0;<span 
class="ectt-1200">et</span>&#x00A0;<span 
class="ectt-1200">Ledwi2</span>&#x00A0;<span 
class="ectt-1200">avec</span>&#x00A0;<span 
class="ectt-1200">alpha</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">**</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">QuLed1,</span>&#x00A0;<span 
class="ectt-1200">QuLed2</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">avec</span>&#x00A0;<span 
class="ectt-1200">T=50</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(QuLed1=3.69,QuLed2=5.466)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">avec</span>&#x00A0;<span 
class="ectt-1200">T=100</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(QuLed1=3.275,QuLed2=5.26)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">avec</span>&#x00A0;<span 
class="ectt-1200">T=200</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(QuLed1=3.057,QuLed2=5.043)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Quantiles</span>&#x00A0;<span 
class="ectt-1200">Ledwi1</span>&#x00A0;<span 
class="ectt-1200">et</span>&#x00A0;<span 
class="ectt-1200">Ledwi2</span>&#x00A0;<span 
class="ectt-1200">avec</span>&#x00A0;<span 
class="ectt-1200">alpha2</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">**</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">QuLe12,</span>&#x00A0;<span 
class="ectt-1200">QuLe22</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">avec</span>&#x00A0;<span 
class="ectt-1200">T=50</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(QuLe12=5.41,QuLe22=7.14)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">avec</span>&#x00A0;<span 
class="ectt-1200">T=100</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(QuLe12=5.20,QuLe22=6.97)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">avec</span>&#x00A0;<span 
class="ectt-1200">T=200</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(QuLe12=4.751,QuLe22=6.796)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Quantiles</span>&#x00A0;<span 
class="ectt-1200">Brockwell</span>&#x00A0;<span 
class="ectt-1200">et</span>&#x00A0;<span 
class="ectt-1200">Davis</span>&#x00A0;<span 
class="ectt-1200">et</span>&#x00A0;<span 
class="ectt-1200">Anderson</span>&#x00A0;<span 
class="ectt-1200">Darling</span>&#x00A0;<span 
class="ectt-1200">et</span>&#x00A0;<span 
class="ectt-1200">JB</span>&#x00A0;<span 
class="ectt-1200">avec</span>&#x00A0;<span 
class="ectt-1200">alpha</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">**</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">QuBD,</span>&#x00A0;<span 
class="ectt-1200">QuAD,</span>&#x00A0;<span 
class="ectt-1200">QuJB</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">avec</span>&#x00A0;<span 
class="ectt-1200">T=50</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(QuBD=0.920,QuAD=1.743,QuJB=4.61)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">avec</span>&#x00A0;<span 
class="ectt-1200">T=100</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(QuBD=0.958,QuAD=1.743,QuJB=4.61)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">avec</span>&#x00A0;<span 
class="ectt-1200">T=200</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(QuBD=0.978,QuAD=1.743,QuJB=4.61)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Quantiles</span>&#x00A0;<span 
class="ectt-1200">Brockwell</span>&#x00A0;<span 
class="ectt-1200">et</span>&#x00A0;<span 
class="ectt-1200">Davis</span>&#x00A0;<span 
class="ectt-1200">et</span>&#x00A0;<span 
class="ectt-1200">Anderson</span>&#x00A0;<span 
class="ectt-1200">Darling</span>&#x00A0;<span 
class="ectt-1200">et</span>&#x00A0;<span 
class="ectt-1200">JB</span>&#x00A0;<span 
class="ectt-1200">avec</span>&#x00A0;<span 
class="ectt-1200">alpha2</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">**</span>

&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">QuBD2,</span>&#x00A0;<span 
class="ectt-1200">QuAD2,</span>&#x00A0;<span 
class="ectt-1200">QuJB2</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">avec</span>&#x00A0;<span 
class="ectt-1200">T=50</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(QuBD2=0.899,QuAD2=2.308,QuJB2=5.99)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">avec</span>&#x00A0;<span 
class="ectt-1200">T=100</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(QuBD2=0.947,QuAD2=2.308,QuJB2=5.99)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">avec</span>&#x00A0;<span 
class="ectt-1200">T=200</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(QuBD2=0.973,QuAD2=2.308,QuJB2=5.99)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Nombre</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">polynomes</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">**</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">Kp</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(Kp=10)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">ordre</span>&#x00A0;<span 
class="ectt-1200">du</span>&#x00A0;<span 
class="ectt-1200">modele</span>&#x00A0;<span 
class="ectt-1200">AR</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">p</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(p=2)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">ordre</span>&#x00A0;<span 
class="ectt-1200">du</span>&#x00A0;<span 
class="ectt-1200">modele</span>&#x00A0;<span 
class="ectt-1200">MA</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">q</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(q=0)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">nombre</span>&#x00A0;<span 
class="ectt-1200">d&#x2019;observations</span>&#x00A0;<span 
class="ectt-1200">dans</span>&#x00A0;<span 
class="ectt-1200">mon</span>&#x00A0;<span 
class="ectt-1200">echantillon</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">**</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Si</span>&#x00A0;<span 
class="ectt-1200">on</span>&#x00A0;<span 
class="ectt-1200">change</span>&#x00A0;<span 
class="ectt-1200">la</span>&#x00A0;<span 
class="ectt-1200">valeur</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">nT,</span>&#x00A0;<span 
class="ectt-1200">il</span>&#x00A0;<span 
class="ectt-1200">faut</span>&#x00A0;<span 
class="ectt-1200">aller</span>&#x00A0;<span 
class="ectt-1200">modifier</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">la</span>&#x00A0;<span 
class="ectt-1200">valeur</span>&#x00A0;<span 
class="ectt-1200">dans</span>&#x00A0;<span 
class="ectt-1200">FORMAT</span>&#x00A0;<span 
class="ectt-1200">a</span>&#x00A0;<span 
class="ectt-1200">la</span>&#x00A0;<span 
class="ectt-1200">fin</span>&#x00A0;<span 
class="ectt-1200">du</span>&#x00A0;<span 
class="ectt-1200">programme</span>&#x00A0;<span 
class="ectt-1200">creerdat_AR.f</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">nT</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(nT=200)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">n,m</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(m=nT+1)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">n=nombre</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">lignes</span>&#x00A0;<span 
class="ectt-1200">au</span>&#x00A0;<span 
class="ectt-1200">maximum</span>&#x00A0;<span 
class="ectt-1200">dans</span>&#x00A0;<span 
class="ectt-1200">le</span>&#x00A0;<span 
class="ectt-1200">fichier</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">donnees</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">**</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">cela</span>&#x00A0;<span 
class="ectt-1200">correspond</span>&#x00A0;<span 
class="ectt-1200">a</span>&#x00A0;<span 
class="ectt-1200">nbcle</span>&#x00A0;<span 
class="ectt-1200">s&#x2019;il</span>&#x00A0;<span 
class="ectt-1200">n&#x2019;y</span>&#x00A0;<span 
class="ectt-1200">a</span>&#x00A0;<span 
class="ectt-1200">pas</span>&#x00A0;<span 
class="ectt-1200">eu</span>&#x00A0;<span 
class="ectt-1200">d&#x2019;erreurs</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">dans</span>&#x00A0;<span 
class="ectt-1200">tous</span>&#x00A0;<span 
class="ectt-1200">les</span>&#x00A0;<span 
class="ectt-1200">cas</span>&#x00A0;<span 
class="ectt-1200">mettre</span>&#x00A0;<span 
class="ectt-1200">ici</span>&#x00A0;<span 
class="ectt-1200">n=nbcle=nombre</span>&#x00A0;<span 
class="ectt-1200">d&#x2019;echantillons</span>&#x00A0;<span 
class="ectt-1200">souhaites</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(n=10000)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CHARACTER</span>&#x00A0;<span 
class="ectt-1200">filer*8,</span>&#x00A0;<span 
class="ectt-1200">filew*21</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">**</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">valeur(n,m)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">sch2vc(n)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">epscha(n,nT)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">compt(Kp)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">compt2(Kp)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">statn(n,Kp)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">KoLed1(n)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">KoLed2(n)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">Ledwi1(Kp)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">Ledwi2(Kp-1)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">snLed1(n)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">snLed2(n)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">stanBD(n)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">stanAD(n),</span>&#x00A0;<span 
class="ectt-1200">stanJB(n)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">Z(nT)</span>

&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">D(nT)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">Davant(nT),</span>&#x00A0;<span 
class="ectt-1200">E2(nT)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">U(nT)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">hUetoi(nT,Kp)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">Uavant(nT)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">hKetoi(Kp)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">hU(nT,Kp)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">hK(Kp)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">vecteu(Kp)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">vectoi(Kp)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">stat(Kp)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">Zavant(nT)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">BDa(nT)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">BDb(nT)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">BDc(nT)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">BDd(nT)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">Davan2(nT)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">ADa(nT)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">ADb(nT)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">Puiss(Kp)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">Puiss2(Kp)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">snsort(n,Kp)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">snsorv(n)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">Qucalc(Kp)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">snLe1s(n)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">snLe2s(n)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">snBDso(n)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">snADso(n),</span>&#x00A0;<span 
class="ectt-1200">snJBso(n)</span>
&#x00A0;<br /><span 
class="ectt-1200">c--------------------------------------------------------</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">parametres</span>&#x00A0;<span 
class="ectt-1200">creerdat</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Nom</span>&#x00A0;<span 
class="ectt-1200">du</span>&#x00A0;<span 
class="ectt-1200">fichier</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">donnees</span>&#x00A0;<span 
class="ectt-1200">en</span>&#x00A0;<span 
class="ectt-1200">sortie</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">**</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CHARACTER</span>&#x00A0;<span 
class="ectt-1200">dataf*8</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Nom</span>&#x00A0;<span 
class="ectt-1200">du</span>&#x00A0;<span 
class="ectt-1200">fichier</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">parametres</span>&#x00A0;<span 
class="ectt-1200">en</span>&#x00A0;<span 
class="ectt-1200">sortie</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">**</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CHARACTER</span>&#x00A0;<span 
class="ectt-1200">paramf*17</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Nombre</span>&#x00A0;<span 
class="ectt-1200">d&#x2019;echantillons</span>&#x00A0;<span 
class="ectt-1200">souhaites</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">nbcle,nbclea</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">rang</span>&#x00A0;<span 
class="ectt-1200">d&#x2019;arret</span>&#x00A0;<span 
class="ectt-1200">dans</span>&#x00A0;<span 
class="ectt-1200">la</span>&#x00A0;<span 
class="ectt-1200">random</span>&#x00A0;<span 
class="ectt-1200">shock</span>&#x00A0;<span 
class="ectt-1200">method</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">Burn</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">**</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">marret</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(marret=200)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Induction</span>&#x00A0;<span 
class="ectt-1200">period</span>&#x00A0;<span 
class="ectt-1200">dans</span>&#x00A0;<span 
class="ectt-1200">la</span>&#x00A0;<span 
class="ectt-1200">methode</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">Burn</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">**</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">Mind</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(Mind=200)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">ecart-type</span>&#x00A0;<span 
class="ectt-1200">des</span>&#x00A0;<span 
class="ectt-1200">erreurs</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">**</span>

&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">sigma</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(sigma=1)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">moyenne</span>&#x00A0;<span 
class="ectt-1200">dans</span>&#x00A0;<span 
class="ectt-1200">mon</span>&#x00A0;<span 
class="ectt-1200">modele</span>&#x00A0;<span 
class="ectt-1200">ARMA</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">**</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">mu</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(mu=0)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">parametre</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">la</span>&#x00A0;<span 
class="ectt-1200">khi-deux</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">**</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">df1</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(df1=2)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">parametre</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">la</span>&#x00A0;<span 
class="ectt-1200">student</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">**</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">df2</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(df2=5)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">parametre</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">la</span>&#x00A0;<span 
class="ectt-1200">skew-normale</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">**</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">lambda</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(lambda=2.0)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">loi5b,</span>&#x00A0;<span 
class="ectt-1200">loi5k,</span>&#x00A0;<span 
class="ectt-1200">loi6p,</span>&#x00A0;<span 
class="ectt-1200">loi6q</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">loi7g,</span>&#x00A0;<span 
class="ectt-1200">loi7d,</span>&#x00A0;<span 
class="ectt-1200">loi8p,</span>&#x00A0;<span 
class="ectt-1200">loi8q,</span>&#x00A0;<span 
class="ectt-1200">loi9a,</span>&#x00A0;<span 
class="ectt-1200">loi9b</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">loi10b,</span>&#x00A0;<span 
class="ectt-1200">loi10l,</span>&#x00A0;<span 
class="ectt-1200">loi11a,</span>&#x00A0;<span 
class="ectt-1200">loi11k,</span>&#x00A0;<span 
class="ectt-1200">loi13g,</span>&#x00A0;<span 
class="ectt-1200">loi13d</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">loi14l,</span>&#x00A0;<span 
class="ectt-1200">loi16p,</span>&#x00A0;<span 
class="ectt-1200">loi16d,</span>&#x00A0;<span 
class="ectt-1200">loi17p,</span>&#x00A0;<span 
class="ectt-1200">loi17m</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">loi18g,</span>&#x00A0;<span 
class="ectt-1200">loi18d,</span>&#x00A0;<span 
class="ectt-1200">loi19a,</span>&#x00A0;<span 
class="ectt-1200">loi19b</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(loi18g=1.0,loi18d=1.0,</span>&#x00A0;<span 
class="ectt-1200">loi19a=1.1,</span>&#x00A0;<span 
class="ectt-1200">loi19b=0.5)</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">**</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(loi16p=0.2,loi16d=5.0,</span>&#x00A0;<span 
class="ectt-1200">loi17p=0.2,loi17m=3.0)</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">**</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(loi10b=0.2,loi10l=1,</span>&#x00A0;<span 
class="ectt-1200">loi11a=2.0,loi11k=0.5)</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">**</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(loi13g=1.0,loi13d=1.0,</span>&#x00A0;<span 
class="ectt-1200">loi14l=0.7)</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">**</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(loi7g=0,loi7d=1,</span>&#x00A0;<span 
class="ectt-1200">loi8p=2,</span>&#x00A0;<span 
class="ectt-1200">loi8q=2,</span>&#x00A0;<span 
class="ectt-1200">loi9a=0,loi9b=2)</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">**</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(loi5b=1,</span>&#x00A0;<span 
class="ectt-1200">loi5k=1.8,</span>&#x00A0;<span 
class="ectt-1200">loi6p=4,</span>&#x00A0;<span 
class="ectt-1200">loi6q=1)</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">**</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">loi</span>&#x00A0;<span 
class="ectt-1200">des</span>&#x00A0;<span 
class="ectt-1200">erreurs</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">si</span>&#x00A0;<span 
class="ectt-1200">loi=0</span>&#x00A0;<span 
class="ectt-1200">:</span>&#x00A0;<span 
class="ectt-1200">Normale(0,sigma&#x0302;2)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">si</span>&#x00A0;<span 
class="ectt-1200">loi=1</span>&#x00A0;<span 
class="ectt-1200">:</span>&#x00A0;<span 
class="ectt-1200">Khi2</span>&#x00A0;<span 
class="ectt-1200">centree</span>&#x00A0;<span 
class="ectt-1200">(df1)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">si</span>&#x00A0;<span 
class="ectt-1200">loi=2</span>&#x00A0;<span 
class="ectt-1200">:</span>&#x00A0;<span 
class="ectt-1200">Student</span>&#x00A0;<span 
class="ectt-1200">(df2)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">si</span>&#x00A0;<span 
class="ectt-1200">loi=3</span>&#x00A0;<span 
class="ectt-1200">:</span>&#x00A0;<span 
class="ectt-1200">Skew-Normale(lambda)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">si</span>&#x00A0;<span 
class="ectt-1200">loi=4</span>&#x00A0;<span 
class="ectt-1200">:</span>&#x00A0;<span 
class="ectt-1200">Laplace</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">si</span>&#x00A0;<span 
class="ectt-1200">loi=5</span>&#x00A0;<span 
class="ectt-1200">:</span>&#x00A0;<span 
class="ectt-1200">Weibull(b,k)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">si</span>&#x00A0;<span 
class="ectt-1200">loi=6</span>&#x00A0;<span 
class="ectt-1200">:</span>&#x00A0;<span 
class="ectt-1200">Gamma(p,q)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">si</span>&#x00A0;<span 
class="ectt-1200">loi=7</span>&#x00A0;<span 
class="ectt-1200">:</span>&#x00A0;<span 
class="ectt-1200">Log-Normale(g,d)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">si</span>&#x00A0;<span 
class="ectt-1200">loi=8</span>&#x00A0;<span 
class="ectt-1200">:</span>&#x00A0;<span 
class="ectt-1200">Beta(p,q)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">si</span>&#x00A0;<span 
class="ectt-1200">loi=9</span>&#x00A0;<span 
class="ectt-1200">:</span>&#x00A0;<span 
class="ectt-1200">Uniform(a,b)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">si</span>&#x00A0;<span 
class="ectt-1200">loi=10</span>&#x00A0;<span 
class="ectt-1200">:</span>&#x00A0;<span 
class="ectt-1200">Shifted</span>&#x00A0;<span 
class="ectt-1200">exp</span>&#x00A0;<span 
class="ectt-1200">(l,b)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">si</span>&#x00A0;<span 
class="ectt-1200">loi=11</span>&#x00A0;<span 
class="ectt-1200">:</span>&#x00A0;<span 
class="ectt-1200">Pareto(a,k)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">si</span>&#x00A0;<span 
class="ectt-1200">loi=12</span>&#x00A0;<span 
class="ectt-1200">:</span>&#x00A0;<span 
class="ectt-1200">Shifted</span>&#x00A0;<span 
class="ectt-1200">Pareto</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">si</span>&#x00A0;<span 
class="ectt-1200">loi=13</span>&#x00A0;<span 
class="ectt-1200">:</span>&#x00A0;<span 
class="ectt-1200">SU(g,d)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">si</span>&#x00A0;<span 
class="ectt-1200">loi=14</span>&#x00A0;<span 
class="ectt-1200">:</span>&#x00A0;<span 
class="ectt-1200">TU(l)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">si</span>&#x00A0;<span 
class="ectt-1200">loi=15</span>&#x00A0;<span 
class="ectt-1200">:</span>&#x00A0;<span 
class="ectt-1200">Logistic</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">si</span>&#x00A0;<span 
class="ectt-1200">loi=16</span>&#x00A0;<span 
class="ectt-1200">:</span>&#x00A0;<span 
class="ectt-1200">SC(p,d)</span>

&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">si</span>&#x00A0;<span 
class="ectt-1200">loi=17</span>&#x00A0;<span 
class="ectt-1200">:</span>&#x00A0;<span 
class="ectt-1200">LC(p,m)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">si</span>&#x00A0;<span 
class="ectt-1200">loi=18</span>&#x00A0;<span 
class="ectt-1200">:</span>&#x00A0;<span 
class="ectt-1200">SB(g,d)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">si</span>&#x00A0;<span 
class="ectt-1200">loi=19</span>&#x00A0;<span 
class="ectt-1200">:</span>&#x00A0;<span 
class="ectt-1200">S(a,b)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">loi</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">rm=max(p,q)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">rm</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(rm=2)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">the</span>&#x00A0;<span 
class="ectt-1200">autoregressive</span>&#x00A0;<span 
class="ectt-1200">coefficients</span>&#x00A0;<span 
class="ectt-1200">of</span>&#x00A0;<span 
class="ectt-1200">the</span>&#x00A0;<span 
class="ectt-1200">model</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">phi(2)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">phich(p)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">the</span>&#x00A0;<span 
class="ectt-1200">moving-average</span>&#x00A0;<span 
class="ectt-1200">coefficients</span>&#x00A0;<span 
class="ectt-1200">of</span>&#x00A0;<span 
class="ectt-1200">the</span>&#x00A0;<span 
class="ectt-1200">model</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">teta(2)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">vecteur</span>&#x00A0;<span 
class="ectt-1200">des</span>&#x00A0;<span 
class="ectt-1200">donnees</span>&#x00A0;<span 
class="ectt-1200">cree</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">donees(nT)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Parametres</span>&#x00A0;<span 
class="ectt-1200">pour</span>&#x00A0;<span 
class="ectt-1200">G05EGF:</span>&#x00A0;<span 
class="ectt-1200">simulation</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">the</span>&#x00A0;<span 
class="ectt-1200">autoregressive</span>&#x00A0;<span 
class="ectt-1200">coefficients</span>&#x00A0;<span 
class="ectt-1200">of</span>&#x00A0;<span 
class="ectt-1200">the</span>&#x00A0;<span 
class="ectt-1200">model=phi</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Input</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">A(p)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">the</span>&#x00A0;<span 
class="ectt-1200">moving-average</span>&#x00A0;<span 
class="ectt-1200">coefficients</span>&#x00A0;<span 
class="ectt-1200">of</span>&#x00A0;<span 
class="ectt-1200">the</span>&#x00A0;<span 
class="ectt-1200">model=teta</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Input</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">B(q+1)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">le</span>&#x00A0;<span 
class="ectt-1200">vecteur</span>&#x00A0;<span 
class="ectt-1200">des</span>&#x00A0;<span 
class="ectt-1200">innovations</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Output</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">R(nT)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Parametres</span>&#x00A0;<span 
class="ectt-1200">pour</span>&#x00A0;<span 
class="ectt-1200">G13DCF:</span>&#x00A0;<span 
class="ectt-1200">estimation</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">the</span>&#x00A0;<span 
class="ectt-1200">number</span>&#x00A0;<span 
class="ectt-1200">of</span>&#x00A0;<span 
class="ectt-1200">initial</span>&#x00A0;<span 
class="ectt-1200">parameter</span>&#x00A0;<span 
class="ectt-1200">estimates</span>&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Input</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">**</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">mettre</span>&#x00A0;<span 
class="ectt-1200">p+q+1</span>&#x00A0;<span 
class="ectt-1200">si</span>&#x00A0;<span 
class="ectt-1200">MEAN=.TRUE.</span>&#x00A0;<span 
class="ectt-1200">,</span>&#x00A0;<span 
class="ectt-1200">p+q</span>&#x00A0;<span 
class="ectt-1200">si</span>&#x00A0;<span 
class="ectt-1200">MEAN=.FALSE.</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">NPAR</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(NPAR=p+q)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">first</span>&#x00A0;<span 
class="ectt-1200">dimension</span>&#x00A0;<span 
class="ectt-1200">of</span>&#x00A0;<span 
class="ectt-1200">the</span>&#x00A0;<span 
class="ectt-1200">array</span>&#x00A0;<span 
class="ectt-1200">CM</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Input</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">**</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">mettre</span>&#x00A0;<span 
class="ectt-1200">p+q+1</span>&#x00A0;<span 
class="ectt-1200">si</span>&#x00A0;<span 
class="ectt-1200">MEAN=.TRUE.</span>&#x00A0;<span 
class="ectt-1200">,</span>&#x00A0;<span 
class="ectt-1200">p+q</span>&#x00A0;<span 
class="ectt-1200">si</span>&#x00A0;<span 
class="ectt-1200">MEAN=.FALSE.</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">ICM</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(ICM=p+q)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Workspace</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">IW(NPAR+rm+3)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">initial</span>&#x00A0;<span 
class="ectt-1200">parameter</span>&#x00A0;<span 
class="ectt-1200">estimates</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Input/Output</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">PAR(NPAR)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">W(i,t)</span>&#x00A0;<span 
class="ectt-1200">must</span>&#x00A0;<span 
class="ectt-1200">be</span>&#x00A0;<span 
class="ectt-1200">set</span>&#x00A0;<span 
class="ectt-1200">equal</span>&#x00A0;<span 
class="ectt-1200">to</span>&#x00A0;<span 
class="ectt-1200">the</span>&#x00A0;<span 
class="ectt-1200">observation</span>&#x00A0;<span 
class="ectt-1200">at</span>&#x00A0;<span 
class="ectt-1200">time</span>&#x00A0;<span 
class="ectt-1200">t</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Input</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">of</span>&#x00A0;<span 
class="ectt-1200">the</span>&#x00A0;<span 
class="ectt-1200">ith</span>&#x00A0;<span 
class="ectt-1200">series</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">W(1,nT)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">the</span>&#x00A0;<span 
class="ectt-1200">accuracy</span>&#x00A0;<span 
class="ectt-1200">to</span>&#x00A0;<span 
class="ectt-1200">which</span>&#x00A0;<span 
class="ectt-1200">the</span>&#x00A0;<span 
class="ectt-1200">solution</span>&#x00A0;<span 
class="ectt-1200">in</span>&#x00A0;<span 
class="ectt-1200">PAR</span>&#x00A0;<span 
class="ectt-1200">and</span>&#x00A0;<span 
class="ectt-1200">QQ</span>&#x00A0;<span 
class="ectt-1200">is</span>&#x00A0;<span 
class="ectt-1200">required</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Input</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">**</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">CGETOL</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(CGETOL=0.0001)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">residual</span>&#x00A0;<span 
class="ectt-1200">at</span>&#x00A0;<span 
class="ectt-1200">time</span>&#x00A0;<span 
class="ectt-1200">t</span>&#x00A0;<span 
class="ectt-1200">for</span>&#x00A0;<span 
class="ectt-1200">series</span>&#x00A0;<span 
class="ectt-1200">i,</span>&#x00A0;<span 
class="ectt-1200">for</span>&#x00A0;<span 
class="ectt-1200">i</span>&#x00A0;<span 
class="ectt-1200">=</span>&#x00A0;<span 
class="ectt-1200">1,2,...,k</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Output</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">V(1,nT)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">estimated</span>&#x00A0;<span 
class="ectt-1200">first</span>&#x00A0;<span 
class="ectt-1200">derivative</span>&#x00A0;<span 
class="ectt-1200">of</span>&#x00A0;<span 
class="ectt-1200">the</span>&#x00A0;<span 
class="ectt-1200">log-likelihood</span>&#x00A0;<span 
class="ectt-1200">function</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Output</span>

&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">G(NPAR)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">estimate</span>&#x00A0;<span 
class="ectt-1200">of</span>&#x00A0;<span 
class="ectt-1200">the</span>&#x00A0;<span 
class="ectt-1200">correlation</span>&#x00A0;<span 
class="ectt-1200">coefficient</span>&#x00A0;<span 
class="ectt-1200">between</span>&#x00A0;<span 
class="ectt-1200">the</span>&#x00A0;<span 
class="ectt-1200">ith</span>&#x00A0;<span 
class="ectt-1200">and</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Output</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">jth</span>&#x00A0;<span 
class="ectt-1200">elements</span>&#x00A0;<span 
class="ectt-1200">in</span>&#x00A0;<span 
class="ectt-1200">the</span>&#x00A0;<span 
class="ectt-1200">PAR</span>&#x00A0;<span 
class="ectt-1200">array</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">CM(ICM,NPAR)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Workspace</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">WORK((5+3*nT+2*rm)+(2*p+q+2*rm*(rm+2)+9)+</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">+</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">(NPAR+1)*(5*(NPAR+1)+29)/2+(rm+1)**2)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">MEAN</span>&#x00A0;<span 
class="ectt-1200">must</span>&#x00A0;<span 
class="ectt-1200">be</span>&#x00A0;<span 
class="ectt-1200">set</span>&#x00A0;<span 
class="ectt-1200">to</span>&#x00A0;<span 
class="ectt-1200">.TRUE.</span>&#x00A0;<span 
class="ectt-1200">if</span>&#x00A0;<span 
class="ectt-1200">components</span>&#x00A0;<span 
class="ectt-1200">of</span>&#x00A0;<span 
class="ectt-1200">mu</span>&#x00A0;<span 
class="ectt-1200">are</span>&#x00A0;<span 
class="ectt-1200">to</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Input</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">**</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">be</span>&#x00A0;<span 
class="ectt-1200">estimated</span>&#x00A0;<span 
class="ectt-1200">and</span>&#x00A0;<span 
class="ectt-1200">.FALSE.</span>&#x00A0;<span 
class="ectt-1200">if</span>&#x00A0;<span 
class="ectt-1200">all</span>&#x00A0;<span 
class="ectt-1200">elements</span>&#x00A0;<span 
class="ectt-1200">of</span>&#x00A0;<span 
class="ectt-1200">mu</span>&#x00A0;<span 
class="ectt-1200">are</span>&#x00A0;<span 
class="ectt-1200">to</span>&#x00A0;<span 
class="ectt-1200">be</span>&#x00A0;<span 
class="ectt-1200">taken</span>&#x00A0;<span 
class="ectt-1200">as</span>&#x00A0;<span 
class="ectt-1200">zero</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">LOGICAL</span>&#x00A0;<span 
class="ectt-1200">MEAN</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(MEAN=.FALSE.)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARHLD(i)</span>&#x00A0;<span 
class="ectt-1200">must</span>&#x00A0;<span 
class="ectt-1200">be</span>&#x00A0;<span 
class="ectt-1200">set</span>&#x00A0;<span 
class="ectt-1200">to</span>&#x00A0;<span 
class="ectt-1200">.TRUE.,</span>&#x00A0;<span 
class="ectt-1200">if</span>&#x00A0;<span 
class="ectt-1200">PAR(i)</span>&#x00A0;<span 
class="ectt-1200">is</span>&#x00A0;<span 
class="ectt-1200">to</span>&#x00A0;<span 
class="ectt-1200">be</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Input</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">held</span>&#x00A0;<span 
class="ectt-1200">constant</span>&#x00A0;<span 
class="ectt-1200">at</span>&#x00A0;<span 
class="ectt-1200">its</span>&#x00A0;<span 
class="ectt-1200">input</span>&#x00A0;<span 
class="ectt-1200">value</span>&#x00A0;<span 
class="ectt-1200">and</span>&#x00A0;<span 
class="ectt-1200">.FALSE.,</span>&#x00A0;<span 
class="ectt-1200">if</span>&#x00A0;<span 
class="ectt-1200">PAR(i)</span>&#x00A0;<span 
class="ectt-1200">is</span>&#x00A0;<span 
class="ectt-1200">a</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">free</span>&#x00A0;<span 
class="ectt-1200">parameter,</span>&#x00A0;<span 
class="ectt-1200">for</span>&#x00A0;<span 
class="ectt-1200">i</span>&#x00A0;<span 
class="ectt-1200">=</span>&#x00A0;<span 
class="ectt-1200">1,2,...,NPAR.</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">LOGICAL</span>&#x00A0;<span 
class="ectt-1200">PARHLD(NPAR)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">EXACT</span>&#x00A0;<span 
class="ectt-1200">must</span>&#x00A0;<span 
class="ectt-1200">be</span>&#x00A0;<span 
class="ectt-1200">set</span>&#x00A0;<span 
class="ectt-1200">equal</span>&#x00A0;<span 
class="ectt-1200">to</span>&#x00A0;<span 
class="ectt-1200">.TRUE.</span>&#x00A0;<span 
class="ectt-1200">if</span>&#x00A0;<span 
class="ectt-1200">the</span>&#x00A0;<span 
class="ectt-1200">user</span>&#x00A0;<span 
class="ectt-1200">wishes</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Input</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">**</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">the</span>&#x00A0;<span 
class="ectt-1200">routine</span>&#x00A0;<span 
class="ectt-1200">to</span>&#x00A0;<span 
class="ectt-1200">compute</span>&#x00A0;<span 
class="ectt-1200">exact</span>&#x00A0;<span 
class="ectt-1200">maximum</span>&#x00A0;<span 
class="ectt-1200">likelihood</span>&#x00A0;<span 
class="ectt-1200">estimates.</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">EXACT</span>&#x00A0;<span 
class="ectt-1200">must</span>&#x00A0;<span 
class="ectt-1200">be</span>&#x00A0;<span 
class="ectt-1200">set</span>&#x00A0;<span 
class="ectt-1200">equal</span>&#x00A0;<span 
class="ectt-1200">to</span>&#x00A0;<span 
class="ectt-1200">.FALSE.</span>&#x00A0;<span 
class="ectt-1200">if</span>&#x00A0;<span 
class="ectt-1200">only</span>&#x00A0;<span 
class="ectt-1200">conditional</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">likelihood</span>&#x00A0;<span 
class="ectt-1200">estimates</span>&#x00A0;<span 
class="ectt-1200">are</span>&#x00A0;<span 
class="ectt-1200">required.</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">voir</span>&#x00A0;<span 
class="ectt-1200">EXACT</span>&#x00A0;<span 
class="ectt-1200">plus</span>&#x00A0;<span 
class="ectt-1200">bas</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">LOGICAL</span>&#x00A0;<span 
class="ectt-1200">EXACT</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Contient</span>&#x00A0;<span 
class="ectt-1200">les</span>&#x00A0;<span 
class="ectt-1200">p</span>&#x00A0;<span 
class="ectt-1200">donnees</span>&#x00A0;<span 
class="ectt-1200">initiales</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">la</span>&#x00A0;<span 
class="ectt-1200">serie</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">Wtip(p)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">marret+p</span>&#x00A0;<span 
class="ectt-1200">innovations</span>&#x00A0;<span 
class="ectt-1200">genere</span>&#x00A0;<span 
class="ectt-1200">par</span>&#x00A0;<span 
class="ectt-1200">shock.f</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">shocks(marret+p)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">defini</span>&#x00A0;<span 
class="ectt-1200">dans</span>&#x00A0;<span 
class="ectt-1200">Burn,</span>&#x00A0;<span 
class="ectt-1200">calcule</span>&#x00A0;<span 
class="ectt-1200">par</span>&#x00A0;<span 
class="ectt-1200">ARpsi.f</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">psi(marret+1)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">utile</span>&#x00A0;<span 
class="ectt-1200">dans</span>&#x00A0;<span 
class="ectt-1200">simAR.f</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">longueur</span>&#x00A0;<span 
class="ectt-1200">max(p,q+1)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">phi2(marret)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">utile</span>&#x00A0;<span 
class="ectt-1200">dans</span>&#x00A0;<span 
class="ectt-1200">simAR.f</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">YtpMn(p+Mind+nT)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">utile</span>&#x00A0;<span 
class="ectt-1200">dans</span>&#x00A0;<span 
class="ectt-1200">simAR.f</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">Atn(nT+Mind)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Esperances</span>&#x00A0;<span 
class="ectt-1200">des</span>&#x00A0;<span 
class="ectt-1200">lois</span>&#x00A0;<span 
class="ectt-1200">SU,</span>&#x00A0;<span 
class="ectt-1200">SB</span>&#x00A0;<span 
class="ectt-1200">et</span>&#x00A0;<span 
class="ectt-1200">S</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">**</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">EspSU,EspSB,EspS</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(EspSU=0,</span>&#x00A0;<span 
class="ectt-1200">EspSB=0,</span>&#x00A0;<span 
class="ectt-1200">EspS=0)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CHARACTER*13</span>&#x00A0;<span 
class="ectt-1200">efface</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">temp(4)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">j</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CHARACTER*5</span>&#x00A0;<span 
class="ectt-1200">ftemp</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CHARACTER*1</span>&#x00A0;<span 
class="ectt-1200">INTCH1</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CHARACTER*2</span>&#x00A0;<span 
class="ectt-1200">INTCH2</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CHARACTER*3</span>&#x00A0;<span 
class="ectt-1200">INTCH3</span>

&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CHARACTER*4</span>&#x00A0;<span 
class="ectt-1200">INTCH4</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">matric(n,18)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">dnT</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(dnT=Kp)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">QLed1u,QLe12u</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(QLed1u=QuLed1,QLe12u=QuLe12)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">QLed2u,QLe22u</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(QLed2u=QuLed2,QLe22u=QuLe22)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">QBDu,QBD2u</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(QBDu=QuBD,QBD2u=QuBD2)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">QADu,QAD2u</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(QADu=QuAD,QAD2u=QuAD2)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">QJBu,QJB2u</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(QJBu=QuJB,QJB2u=QuJB2)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">the</span>&#x00A0;<span 
class="ectt-1200">mean</span>&#x00A0;<span 
class="ectt-1200">of</span>&#x00A0;<span 
class="ectt-1200">the</span>&#x00A0;<span 
class="ectt-1200">time</span>&#x00A0;<span 
class="ectt-1200">series</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Input</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">E</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(E=mu)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">the</span>&#x00A0;<span 
class="ectt-1200">number</span>&#x00A0;<span 
class="ectt-1200">of</span>&#x00A0;<span 
class="ectt-1200">autoregressive</span>&#x00A0;<span 
class="ectt-1200">coefficients</span>&#x00A0;<span 
class="ectt-1200">supplied</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Input</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">NA</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(NA=p)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">the</span>&#x00A0;<span 
class="ectt-1200">number</span>&#x00A0;<span 
class="ectt-1200">of</span>&#x00A0;<span 
class="ectt-1200">moving-average</span>&#x00A0;<span 
class="ectt-1200">coefficients</span>&#x00A0;<span 
class="ectt-1200">supplied</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Input</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">NB</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(NB=q+1)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">the</span>&#x00A0;<span 
class="ectt-1200">dimension</span>&#x00A0;<span 
class="ectt-1200">of</span>&#x00A0;<span 
class="ectt-1200">the</span>&#x00A0;<span 
class="ectt-1200">array</span>&#x00A0;<span 
class="ectt-1200">R:</span>&#x00A0;<span 
class="ectt-1200">vecteur</span>&#x00A0;<span 
class="ectt-1200">des</span>&#x00A0;<span 
class="ectt-1200">innovations</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Input</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">NR</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(NR=9)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">the</span>&#x00A0;<span 
class="ectt-1200">number</span>&#x00A0;<span 
class="ectt-1200">of</span>&#x00A0;<span 
class="ectt-1200">observed</span>&#x00A0;<span 
class="ectt-1200">time</span>&#x00A0;<span 
class="ectt-1200">series,</span>&#x00A0;<span 
class="ectt-1200">k</span>&#x00A0;&#x00A0;<span 
class="ectt-1200">(chez</span>&#x00A0;<span 
class="ectt-1200">moi</span>&#x00A0;<span 
class="ectt-1200">k=1)</span>&#x00A0;&#x00A0;<span 
class="ectt-1200">Input</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">K</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(K=1)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">the</span>&#x00A0;<span 
class="ectt-1200">number</span>&#x00A0;<span 
class="ectt-1200">of</span>&#x00A0;<span 
class="ectt-1200">observations</span>&#x00A0;<span 
class="ectt-1200">in</span>&#x00A0;<span 
class="ectt-1200">each</span>&#x00A0;<span 
class="ectt-1200">time</span>&#x00A0;<span 
class="ectt-1200">series,</span>&#x00A0;<span 
class="ectt-1200">n</span>&#x00A0;<span 
class="ectt-1200">(chez</span>&#x00A0;<span 
class="ectt-1200">moi=nT)</span>&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Input</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">N2</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(N2=nT)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">the</span>&#x00A0;<span 
class="ectt-1200">number</span>&#x00A0;<span 
class="ectt-1200">of</span>&#x00A0;<span 
class="ectt-1200">AR</span>&#x00A0;<span 
class="ectt-1200">parameter</span>&#x00A0;<span 
class="ectt-1200">matrices,</span>&#x00A0;<span 
class="ectt-1200">p</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Input</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">IP</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(IP=p)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">the</span>&#x00A0;<span 
class="ectt-1200">number</span>&#x00A0;<span 
class="ectt-1200">of</span>&#x00A0;<span 
class="ectt-1200">MA</span>&#x00A0;<span 
class="ectt-1200">parameter</span>&#x00A0;<span 
class="ectt-1200">matrices,</span>&#x00A0;<span 
class="ectt-1200">q</span>&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Input</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">IQ</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(IQ=q)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">the</span>&#x00A0;<span 
class="ectt-1200">first</span>&#x00A0;<span 
class="ectt-1200">dimension</span>&#x00A0;<span 
class="ectt-1200">of</span>&#x00A0;<span 
class="ectt-1200">the</span>&#x00A0;<span 
class="ectt-1200">arrays</span>&#x00A0;<span 
class="ectt-1200">QQ,</span>&#x00A0;<span 
class="ectt-1200">W</span>&#x00A0;<span 
class="ectt-1200">and</span>&#x00A0;<span 
class="ectt-1200">V</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Input</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">IK</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(IK=1)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">the</span>&#x00A0;<span 
class="ectt-1200">maximum</span>&#x00A0;<span 
class="ectt-1200">number</span>&#x00A0;<span 
class="ectt-1200">of</span>&#x00A0;<span 
class="ectt-1200">likelihood</span>&#x00A0;<span 
class="ectt-1200">evaluations</span>&#x00A0;<span 
class="ectt-1200">to</span>&#x00A0;<span 
class="ectt-1200">be</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Input</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">permitted</span>&#x00A0;<span 
class="ectt-1200">by</span>&#x00A0;<span 
class="ectt-1200">the</span>&#x00A0;<span 
class="ectt-1200">search</span>&#x00A0;<span 
class="ectt-1200">procedure</span>

&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">MAXCAL</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(MAXCAL=40*NPAR*(NPAR+5))</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">which</span>&#x00A0;<span 
class="ectt-1200">quantities</span>&#x00A0;<span 
class="ectt-1200">are</span>&#x00A0;<span 
class="ectt-1200">to</span>&#x00A0;<span 
class="ectt-1200">be</span>&#x00A0;<span 
class="ectt-1200">printed</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Input</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">ISHOW</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(ISHOW=0)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">dimension</span>&#x00A0;<span 
class="ectt-1200">of</span>&#x00A0;<span 
class="ectt-1200">the</span>&#x00A0;<span 
class="ectt-1200">array</span>&#x00A0;<span 
class="ectt-1200">WORK</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Input</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">LWORK</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(LWORK=(5+3*(nT)+2*rm)+(2*p+q+2*rm*(rm+2)+9)+</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">+</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">(NPAR+1)*(5*(NPAR+1)+29)/2+(rm+1)**2)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">dimension</span>&#x00A0;<span 
class="ectt-1200">of</span>&#x00A0;<span 
class="ectt-1200">the</span>&#x00A0;<span 
class="ectt-1200">array</span>&#x00A0;<span 
class="ectt-1200">IW</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Input</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">LIW</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(LIW=NPAR+rm+3)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">QQ(i,j)</span>&#x00A0;<span 
class="ectt-1200">must</span>&#x00A0;<span 
class="ectt-1200">be</span>&#x00A0;<span 
class="ectt-1200">set</span>&#x00A0;<span 
class="ectt-1200">equal</span>&#x00A0;<span 
class="ectt-1200">to</span>&#x00A0;<span 
class="ectt-1200">an</span>&#x00A0;<span 
class="ectt-1200">initial</span>&#x00A0;<span 
class="ectt-1200">estimate</span>&#x00A0;<span 
class="ectt-1200">of</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Input/Output</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">the</span>&#x00A0;<span 
class="ectt-1200">(i,j)th</span>&#x00A0;<span 
class="ectt-1200">element</span>&#x00A0;<span 
class="ectt-1200">of</span>&#x00A0;<span 
class="ectt-1200">the</span>&#x00A0;<span 
class="ectt-1200">covariance</span>&#x00A0;<span 
class="ectt-1200">matrix</span>&#x00A0;<span 
class="ectt-1200">of</span>&#x00A0;<span 
class="ectt-1200">the</span>&#x00A0;<span 
class="ectt-1200">residual</span>&#x00A0;<span 
class="ectt-1200">series</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">QQ(IK,K)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">NI,</span>&#x00A0;<span 
class="ectt-1200">NX,</span>&#x00A0;<span 
class="ectt-1200">IFAIL</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(NX=4,NI=9)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">IA(NI)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">XA(NX)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">seed=1</span>&#x00A0;<span 
class="ectt-1200">(non-repeatable</span>&#x00A0;<span 
class="ectt-1200">sequence)</span>&#x00A0;<span 
class="ectt-1200">ou</span>&#x00A0;<span 
class="ectt-1200">seed=0</span>&#x00A0;<span 
class="ectt-1200">(repeatable</span>&#x00A0;<span 
class="ectt-1200">sequence)</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">**</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">seed</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(seed=0)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">-------------------------------------------------------</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Fin</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">declaration</span>&#x00A0;<span 
class="ectt-1200">des</span>&#x00A0;<span 
class="ectt-1200">variables</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">-------------------------------------------------------</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">G05CBF</span>&#x00A0;<span 
class="ectt-1200">Initialise</span>&#x00A0;<span 
class="ectt-1200">random</span>&#x00A0;<span 
class="ectt-1200">number</span>&#x00A0;<span 
class="ectt-1200">generating</span>&#x00A0;<span 
class="ectt-1200">routines</span>&#x00A0;<span 
class="ectt-1200">to</span>&#x00A0;<span 
class="ectt-1200">give</span>&#x00A0;<span 
class="ectt-1200">repeatable</span>&#x00A0;<span 
class="ectt-1200">sequence</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">G05CCF</span>&#x00A0;<span 
class="ectt-1200">Initialise</span>&#x00A0;<span 
class="ectt-1200">random</span>&#x00A0;<span 
class="ectt-1200">number</span>&#x00A0;<span 
class="ectt-1200">generating</span>&#x00A0;<span 
class="ectt-1200">routines</span>&#x00A0;<span 
class="ectt-1200">to</span>&#x00A0;<span 
class="ectt-1200">give</span>&#x00A0;<span 
class="ectt-1200">non-repeatable</span>&#x00A0;<span 
class="ectt-1200">sequence</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">G05CFF</span>&#x00A0;<span 
class="ectt-1200">Save</span>&#x00A0;<span 
class="ectt-1200">state</span>&#x00A0;<span 
class="ectt-1200">of</span>&#x00A0;<span 
class="ectt-1200">random</span>&#x00A0;<span 
class="ectt-1200">number</span>&#x00A0;<span 
class="ectt-1200">generating</span>&#x00A0;<span 
class="ectt-1200">routines</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">G05CGF</span>&#x00A0;<span 
class="ectt-1200">Restore</span>&#x00A0;<span 
class="ectt-1200">state</span>&#x00A0;<span 
class="ectt-1200">of</span>&#x00A0;<span 
class="ectt-1200">random</span>&#x00A0;<span 
class="ectt-1200">number</span>&#x00A0;<span 
class="ectt-1200">generating</span>&#x00A0;<span 
class="ectt-1200">routines</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">IF</span>&#x00A0;<span 
class="ectt-1200">(seed</span>&#x00A0;<span 
class="ectt-1200">.EQ.</span>&#x00A0;<span 
class="ectt-1200">1)</span>&#x00A0;<span 
class="ectt-1200">THEN</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CALL</span>&#x00A0;<span 
class="ectt-1200">G05CCF</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">ENDIF</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">IF</span>&#x00A0;<span 
class="ectt-1200">(seed</span>&#x00A0;<span 
class="ectt-1200">.EQ.</span>&#x00A0;<span 
class="ectt-1200">0)</span>&#x00A0;<span 
class="ectt-1200">THEN</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CALL</span>&#x00A0;<span 
class="ectt-1200">G05CBF(0)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">ENDIF</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">IFAIL=0</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Rajouter</span>&#x00A0;<span 
class="ectt-1200">ici,</span>&#x00A0;<span 
class="ectt-1200">si</span>&#x00A0;<span 
class="ectt-1200">voulu,</span>&#x00A0;<span 
class="ectt-1200">les</span>&#x00A0;<span 
class="ectt-1200">IA</span>&#x00A0;<span 
class="ectt-1200">et</span>&#x00A0;<span 
class="ectt-1200">les</span>&#x00A0;<span 
class="ectt-1200">XA</span>&#x00A0;<span 
class="ectt-1200">a</span>&#x00A0;<span 
class="ectt-1200">prendre</span>&#x00A0;<span 
class="ectt-1200">a</span>&#x00A0;<span 
class="ectt-1200">la</span>&#x00A0;<span 
class="ectt-1200">fin</span>&#x00A0;<span 
class="ectt-1200">du</span>&#x00A0;<span 
class="ectt-1200">fichier</span>&#x00A0;<span 
class="ectt-1200">para.ijkl:</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">**</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">A</span>&#x00A0;<span 
class="ectt-1200">(de)commenter</span>&#x00A0;<span 
class="ectt-1200">si</span>&#x00A0;<span 
class="ectt-1200">necessaire</span>&#x00A0;<span 
class="ectt-1200">(si</span>&#x00A0;<span 
class="ectt-1200">on</span>&#x00A0;<span 
class="ectt-1200">rajoute</span>&#x00A0;<span 
class="ectt-1200">les</span>&#x00A0;<span 
class="ectt-1200">IA</span>&#x00A0;<span 
class="ectt-1200">et</span>&#x00A0;<span 
class="ectt-1200">XA,</span>&#x00A0;<span 
class="ectt-1200">on</span>&#x00A0;<span 
class="ectt-1200">decommente)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CALL</span>&#x00A0;<span 
class="ectt-1200">G05CGF(IA,NI,XA,NX,IFAIL)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CALL</span>&#x00A0;<span 
class="ectt-1200">G05CFF(IA,NI,XA,NX,IFAIL)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">EXACT=.TRUE.</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">**</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">nbcle=n</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">efface=&#x2019;rm</span>&#x00A0;<span 
class="ectt-1200">./data.txt&#x2019;</span>

&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">ftemp=&#x2019;ftemp&#x2019;</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">On</span>&#x00A0;<span 
class="ectt-1200">va</span>&#x00A0;<span 
class="ectt-1200">lire</span>&#x00A0;<span 
class="ectt-1200">les</span>&#x00A0;<span 
class="ectt-1200">parametres</span>&#x00A0;<span 
class="ectt-1200">necessaires</span>&#x00A0;<span 
class="ectt-1200">dans</span>&#x00A0;<span 
class="ectt-1200">ftemp</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">temp</span>&#x00A0;<span 
class="ectt-1200">va</span>&#x00A0;<span 
class="ectt-1200">contenir</span>&#x00A0;<span 
class="ectt-1200">sur</span>&#x00A0;<span 
class="ectt-1200">chaque</span>&#x00A0;<span 
class="ectt-1200">ligne:</span>&#x00A0;<span 
class="ectt-1200">j,</span>&#x00A0;<span 
class="ectt-1200">loi,</span>&#x00A0;<span 
class="ectt-1200">phi(1),</span>&#x00A0;<span 
class="ectt-1200">phi(2)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">OPEN(UNIT=15,</span>&#x00A0;<span 
class="ectt-1200">FILE=ftemp</span>&#x00A0;<span 
class="ectt-1200">,</span>&#x00A0;<span 
class="ectt-1200">STATUS=&#x2019;OLD&#x2019;</span>&#x00A0;<span 
class="ectt-1200">)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">READ(15,*,END=10)</span>&#x00A0;<span 
class="ectt-1200">(temp(j),j=1,4)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CLOSE(15)</span>
&#x00A0;<br />&#x00A0;<span 
class="ectt-1200">10</span>&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">j=temp(1)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">loi=temp(2)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">phi(1)=temp(3)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">phi(2)=temp(4)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">teta(1)=0.0</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">teta(2)=0.0</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">On</span>&#x00A0;<span 
class="ectt-1200">sauvegarde</span>&#x00A0;<span 
class="ectt-1200">la</span>&#x00A0;<span 
class="ectt-1200">valeur</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">nbcle</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">nbclea=nbcle</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Nom</span>&#x00A0;<span 
class="ectt-1200">du</span>&#x00A0;<span 
class="ectt-1200">fichier</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">donnees</span>&#x00A0;<span 
class="ectt-1200">en</span>&#x00A0;<span 
class="ectt-1200">sortie</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">**</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">dataf=&#x2019;data.txt&#x2019;</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Permet</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">convertir</span>&#x00A0;<span 
class="ectt-1200">l&#x2019;entier</span>&#x00A0;<span 
class="ectt-1200">j</span>&#x00A0;<span 
class="ectt-1200">en</span>&#x00A0;<span 
class="ectt-1200">chaine</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">caracteres</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">IF</span>&#x00A0;<span 
class="ectt-1200">(j/10</span>&#x00A0;<span 
class="ectt-1200">.LT.</span>&#x00A0;<span 
class="ectt-1200">1)</span>&#x00A0;<span 
class="ectt-1200">THEN</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(INTCH1,</span>&#x00A0;<span 
class="ectt-1200">&#x2019;(I1)&#x2019;)</span>&#x00A0;<span 
class="ectt-1200">j</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Nom</span>&#x00A0;<span 
class="ectt-1200">du</span>&#x00A0;<span 
class="ectt-1200">fichier</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">parametres</span>&#x00A0;<span 
class="ectt-1200">en</span>&#x00A0;<span 
class="ectt-1200">sortie</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">**</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">paramf=&#x2019;./SIMUL/para.&#x2019;//&#x2019;000&#x2019;//INTCH1</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">filew=&#x2019;./SIMUL/resultat.&#x2019;//&#x2019;000&#x2019;//INTCH1</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">ENDIF</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">IF</span>&#x00A0;<span 
class="ectt-1200">((j/10</span>&#x00A0;<span 
class="ectt-1200">.EQ.</span>&#x00A0;<span 
class="ectt-1200">1)</span>&#x00A0;<span 
class="ectt-1200">.OR.</span>&#x00A0;<span 
class="ectt-1200">((j/10</span>&#x00A0;<span 
class="ectt-1200">.GT.</span>&#x00A0;<span 
class="ectt-1200">1)</span>&#x00A0;<span 
class="ectt-1200">.AND.</span>&#x00A0;<span 
class="ectt-1200">(j/10</span>&#x00A0;<span 
class="ectt-1200">.LT.</span>&#x00A0;<span 
class="ectt-1200">10)))</span>&#x00A0;<span 
class="ectt-1200">THEN</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(INTCH2,</span>&#x00A0;<span 
class="ectt-1200">&#x2019;(I2)&#x2019;)</span>&#x00A0;<span 
class="ectt-1200">j</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Nom</span>&#x00A0;<span 
class="ectt-1200">du</span>&#x00A0;<span 
class="ectt-1200">fichier</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">parametres</span>&#x00A0;<span 
class="ectt-1200">en</span>&#x00A0;<span 
class="ectt-1200">sortie</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">**</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">paramf=&#x2019;./SIMUL/para.&#x2019;//&#x2019;00&#x2019;//INTCH2</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">filew=&#x2019;./SIMUL/resultat.&#x2019;//&#x2019;00&#x2019;//INTCH2</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">ENDIF</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">IF</span>&#x00A0;<span 
class="ectt-1200">((j/10</span>&#x00A0;<span 
class="ectt-1200">.EQ.</span>&#x00A0;<span 
class="ectt-1200">10)</span>&#x00A0;<span 
class="ectt-1200">.OR.</span>&#x00A0;<span 
class="ectt-1200">((j/10</span>&#x00A0;<span 
class="ectt-1200">.GT.</span>&#x00A0;<span 
class="ectt-1200">10)</span>&#x00A0;<span 
class="ectt-1200">.AND.</span>&#x00A0;<span 
class="ectt-1200">(j/10</span>&#x00A0;<span 
class="ectt-1200">.LT.</span>&#x00A0;<span 
class="ectt-1200">100)))</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">+</span>&#x00A0;<span 
class="ectt-1200">THEN</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(INTCH3,</span>&#x00A0;<span 
class="ectt-1200">&#x2019;(I3)&#x2019;)</span>&#x00A0;<span 
class="ectt-1200">j</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Nom</span>&#x00A0;<span 
class="ectt-1200">du</span>&#x00A0;<span 
class="ectt-1200">fichier</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">parametres</span>&#x00A0;<span 
class="ectt-1200">en</span>&#x00A0;<span 
class="ectt-1200">sortie</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">**</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">paramf=&#x2019;./SIMUL/para.&#x2019;//&#x2019;0&#x2019;//INTCH3</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">filew=&#x2019;./SIMUL/resultat.&#x2019;//&#x2019;0&#x2019;//INTCH3</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">ENDIF</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">IF</span>&#x00A0;<span 
class="ectt-1200">((j/10</span>&#x00A0;<span 
class="ectt-1200">.EQ.</span>&#x00A0;<span 
class="ectt-1200">100)</span>&#x00A0;<span 
class="ectt-1200">.OR.</span>&#x00A0;<span 
class="ectt-1200">((j/10</span>&#x00A0;<span 
class="ectt-1200">.GT.</span>&#x00A0;<span 
class="ectt-1200">100)</span>&#x00A0;<span 
class="ectt-1200">.AND.</span>&#x00A0;<span 
class="ectt-1200">(j/10</span>&#x00A0;<span 
class="ectt-1200">.LT.</span>&#x00A0;<span 
class="ectt-1200">1000)))</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">+</span>&#x00A0;<span 
class="ectt-1200">THEN</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(INTCH4,</span>&#x00A0;<span 
class="ectt-1200">&#x2019;(I4)&#x2019;)</span>&#x00A0;<span 
class="ectt-1200">j</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Nom</span>&#x00A0;<span 
class="ectt-1200">du</span>&#x00A0;<span 
class="ectt-1200">fichier</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">parametres</span>&#x00A0;<span 
class="ectt-1200">en</span>&#x00A0;<span 
class="ectt-1200">sortie</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">**</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">paramf=&#x2019;./SIMUL/para.&#x2019;//INTCH4</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">filew=&#x2019;./SIMUL/resultat.&#x2019;//INTCH4</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">ENDIF</span>

&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">IF</span>&#x00A0;<span 
class="ectt-1200">(loi</span>&#x00A0;<span 
class="ectt-1200">.EQ.</span>&#x00A0;<span 
class="ectt-1200">0)</span>&#x00A0;<span 
class="ectt-1200">THEN</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Quantiles</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">la</span>&#x00A0;<span 
class="ectt-1200">loi</span>&#x00A0;<span 
class="ectt-1200">du</span>&#x00A0;<span 
class="ectt-1200">Khi2</span>&#x00A0;<span 
class="ectt-1200">(K=10;alpha=0.1)</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">**</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">khi(1)=2.71</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">khi(2)=4.61</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">khi(3)=6.25</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">khi(4)=7.78</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">khi(5)=9.24</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">khi(6)=10.64</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">khi(7)=12.02</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">khi(8)=13.36</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">khi(9)=14.68</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">khi(10)=15.99</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Quantiles</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">la</span>&#x00A0;<span 
class="ectt-1200">loi</span>&#x00A0;<span 
class="ectt-1200">du</span>&#x00A0;<span 
class="ectt-1200">Khi2</span>&#x00A0;<span 
class="ectt-1200">(K=10;alpha=0.05)</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">**</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">khi2(1)=3.84</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">khi2(2)=5.99</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">khi2(3)=7.81</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">khi2(4)=9.49</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">khi2(5)=11.07</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">khi2(6)=12.59</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">khi2(7)=14.07</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">khi2(8)=15.51</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">khi2(9)=16.92</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">khi2(10)=18.31</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">ENDIF</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">IF</span>&#x00A0;<span 
class="ectt-1200">(loi</span>&#x00A0;<span 
class="ectt-1200">.NE.</span>&#x00A0;<span 
class="ectt-1200">0)</span>&#x00A0;<span 
class="ectt-1200">THEN</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Quantiles</span>&#x00A0;<span 
class="ectt-1200">utilises</span>&#x00A0;<span 
class="ectt-1200">pour</span>&#x00A0;<span 
class="ectt-1200">le</span>&#x00A0;<span 
class="ectt-1200">calcul</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">la</span>&#x00A0;<span 
class="ectt-1200">stat(vrais</span>&#x00A0;<span 
class="ectt-1200">quantiles</span>&#x00A0;<span 
class="ectt-1200">calcules</span>&#x00A0;<span 
class="ectt-1200">sous</span>&#x00A0;<span 
class="ectt-1200">H0)</span>&#x00A0;&#x00A0;<span 
class="ectt-1200">**</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">avec</span>&#x00A0;<span 
class="ectt-1200">alpha=0.1</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">khi(1)=2.71</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">khi(2)=4.61</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">khi(3)=6.25</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">khi(4)=7.78</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">khi(5)=9.24</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">khi(6)=10.64</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">khi(7)=12.02</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">khi(8)=13.36</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">khi(9)=14.68</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">khi(10)=15.99</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Quantiles</span>&#x00A0;<span 
class="ectt-1200">utilises</span>&#x00A0;<span 
class="ectt-1200">pour</span>&#x00A0;<span 
class="ectt-1200">le</span>&#x00A0;<span 
class="ectt-1200">calcul</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">la</span>&#x00A0;<span 
class="ectt-1200">stat(vrais</span>&#x00A0;<span 
class="ectt-1200">quantiles</span>&#x00A0;<span 
class="ectt-1200">calcules</span>&#x00A0;<span 
class="ectt-1200">sous</span>&#x00A0;<span 
class="ectt-1200">H0)</span>&#x00A0;&#x00A0;<span 
class="ectt-1200">**</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">avec</span>&#x00A0;<span 
class="ectt-1200">alpha=0.05</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">khi2(1)=3.84</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">khi2(2)=5.99</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">khi2(3)=7.81</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">khi2(4)=9.49</span>

&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">khi2(5)=11.07</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">khi2(6)=12.59</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">khi2(7)=14.07</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">khi2(8)=15.51</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">khi2(9)=16.92</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">khi2(10)=18.31</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">ENDIF</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">On</span>&#x00A0;<span 
class="ectt-1200">peut</span>&#x00A0;<span 
class="ectt-1200">aussi</span>&#x00A0;<span 
class="ectt-1200">changer</span>&#x00A0;<span 
class="ectt-1200">le</span>&#x00A0;<span 
class="ectt-1200">nom</span>&#x00A0;<span 
class="ectt-1200">du</span>&#x00A0;<span 
class="ectt-1200">fichier</span>&#x00A0;<span 
class="ectt-1200">en</span>&#x00A0;<span 
class="ectt-1200">entree</span>&#x00A0;<span 
class="ectt-1200">(data.txt)</span>&#x00A0;<span 
class="ectt-1200">et</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">**</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">le</span>&#x00A0;<span 
class="ectt-1200">nom</span>&#x00A0;<span 
class="ectt-1200">du</span>&#x00A0;<span 
class="ectt-1200">fichier</span>&#x00A0;<span 
class="ectt-1200">en</span>&#x00A0;<span 
class="ectt-1200">sortie</span>&#x00A0;<span 
class="ectt-1200">(resultat.txt)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">filer=&#x2019;data.txt&#x2019;</span>
&#x00A0;<br /><span 
class="ectt-1200">c-----------------------------------------------------------</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">------------------------------------------------------------------------</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DEBUT</span>&#x00A0;<span 
class="ectt-1200">DU</span>&#x00A0;<span 
class="ectt-1200">PROGRAMME</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">------------------------------------------------------------------------</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CALL</span>&#x00A0;<span 
class="ectt-1200">cdatAR(dataf,paramf,nbcle,marret,Mind,sigma,mu,df1,df2,</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">+lambda,loi5b,loi5k,loi6p,loi6q,loi7g,loi7d,loi8p,loi8q,loi9a,</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">+loi9b,loi10b,loi10l,loi11a,loi11k,loi13g,loi13d,loi14l,loi16p,</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">+loi16d,loi17p,loi17m,loi18g,loi18d,loi19a,loi19b,loi,p,q,rm,nT,</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">+phi,phich,donees,A,B,R,NPAR,ICM,IW,PAR,W,CGETOL,V,G,CM,WORK,MEAN,</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">+PARHLD,EXACT,Wtip,shocks,psi,phi2,YtpMn,Atn,EspSU,EspSB,EspS,</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">+E,NA,NB,NR,K,N2,IP,IQ,IK,MAXCAL,ISHOW,LWORK,LIW,QQ)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Il</span>&#x00A0;<span 
class="ectt-1200">faut</span>&#x00A0;<span 
class="ectt-1200">faire</span>&#x00A0;<span 
class="ectt-1200">modifier</span>&#x00A0;<span 
class="ectt-1200">par</span>&#x00A0;<span 
class="ectt-1200">cdARMA</span>&#x00A0;<span 
class="ectt-1200">la</span>&#x00A0;<span 
class="ectt-1200">valeur</span>&#x00A0;<span 
class="ectt-1200">nbcle</span>&#x00A0;<span 
class="ectt-1200">en</span>&#x00A0;<span 
class="ectt-1200">entree</span>&#x00A0;<span 
class="ectt-1200">pour</span>&#x00A0;<span 
class="ectt-1200">lui</span>&#x00A0;<span 
class="ectt-1200">faire</span>&#x00A0;<span 
class="ectt-1200">sortir</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">une</span>&#x00A0;<span 
class="ectt-1200">nouvelle</span>&#x00A0;<span 
class="ectt-1200">valeur</span>&#x00A0;<span 
class="ectt-1200">nbcle</span>&#x00A0;<span 
class="ectt-1200">qui</span>&#x00A0;<span 
class="ectt-1200">est</span>&#x00A0;<span 
class="ectt-1200">le</span>&#x00A0;<span 
class="ectt-1200">nombre</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">bons</span>&#x00A0;<span 
class="ectt-1200">echantillons</span>&#x00A0;<span 
class="ectt-1200">conserves</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Ensuite,</span>&#x00A0;<span 
class="ectt-1200">il</span>&#x00A0;<span 
class="ectt-1200">faut</span>&#x00A0;<span 
class="ectt-1200">utiliser</span>&#x00A0;<span 
class="ectt-1200">cette</span>&#x00A0;<span 
class="ectt-1200">valeur</span>&#x00A0;<span 
class="ectt-1200">dans</span>&#x00A0;<span 
class="ectt-1200">calcstat,</span>&#x00A0;<span 
class="ectt-1200">comme</span>&#x00A0;<span 
class="ectt-1200">etant</span>&#x00A0;<span 
class="ectt-1200">la</span>&#x00A0;<span 
class="ectt-1200">vraie</span>&#x00A0;<span 
class="ectt-1200">valeur</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">du</span>&#x00A0;<span 
class="ectt-1200">nombre</span>&#x00A0;<span 
class="ectt-1200">d&#x2019;echantillons</span>&#x00A0;<span 
class="ectt-1200">disponibles,</span>&#x00A0;<span 
class="ectt-1200">la</span>&#x00A0;<span 
class="ectt-1200">valeur</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">n</span>&#x00A0;<span 
class="ectt-1200">que</span>&#x00A0;<span 
class="ectt-1200">l&#x2019;on</span>&#x00A0;<span 
class="ectt-1200">a</span>&#x00A0;<span 
class="ectt-1200">mise</span>&#x00A0;<span 
class="ectt-1200">etant</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">la</span>&#x00A0;<span 
class="ectt-1200">valeur</span>&#x00A0;<span 
class="ectt-1200">maximale</span>&#x00A0;<span 
class="ectt-1200">possible</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">bons</span>&#x00A0;<span 
class="ectt-1200">echantillons,</span>&#x00A0;<span 
class="ectt-1200">donc</span>&#x00A0;<span 
class="ectt-1200">les</span>&#x00A0;<span 
class="ectt-1200">differentes</span>&#x00A0;<span 
class="ectt-1200">matrices</span>&#x00A0;<span 
class="ectt-1200">initialisees</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">a</span>&#x00A0;<span 
class="ectt-1200">l&#x2019;aide</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">la</span>&#x00A0;<span 
class="ectt-1200">valeur</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">n</span>&#x00A0;<span 
class="ectt-1200">sont</span>&#x00A0;<span 
class="ectt-1200">plus</span>&#x00A0;<span 
class="ectt-1200">grandes</span>&#x00A0;<span 
class="ectt-1200">que</span>&#x00A0;<span 
class="ectt-1200">necessaires</span>&#x00A0;<span 
class="ectt-1200">(elles</span>&#x00A0;<span 
class="ectt-1200">auraient</span>&#x00A0;<span 
class="ectt-1200">du</span>&#x00A0;<span 
class="ectt-1200">etre</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">initialisees</span>&#x00A0;<span 
class="ectt-1200">avec</span>&#x00A0;<span 
class="ectt-1200">la</span>&#x00A0;<span 
class="ectt-1200">valeur</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">nbcle</span>&#x00A0;<span 
class="ectt-1200">renvoyee</span>&#x00A0;<span 
class="ectt-1200">par</span>&#x00A0;<span 
class="ectt-1200">cd</span>&#x00A0;<span 
class="ectt-1200">ARMA</span>&#x00A0;<span 
class="ectt-1200">mais</span>&#x00A0;<span 
class="ectt-1200">ce</span>&#x00A0;<span 
class="ectt-1200">n&#x2019;est</span>&#x00A0;<span 
class="ectt-1200">pas</span>&#x00A0;<span 
class="ectt-1200">possible</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">avec</span>&#x00A0;<span 
class="ectt-1200">fortran77)</span>&#x00A0;<span 
class="ectt-1200">et</span>&#x00A0;<span 
class="ectt-1200">il</span>&#x00A0;<span 
class="ectt-1200">faut</span>&#x00A0;<span 
class="ectt-1200">en</span>&#x00A0;<span 
class="ectt-1200">tenir</span>&#x00A0;<span 
class="ectt-1200">compte;</span>&#x00A0;<span 
class="ectt-1200">donc</span>&#x00A0;<span 
class="ectt-1200">bien</span>&#x00A0;<span 
class="ectt-1200">regarder</span>&#x00A0;<span 
class="ectt-1200">partout</span>&#x00A0;<span 
class="ectt-1200">dans</span>&#x00A0;<span 
class="ectt-1200">le</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">programme</span>&#x00A0;<span 
class="ectt-1200">calcstat</span>&#x00A0;<span 
class="ectt-1200">la</span>&#x00A0;<span 
class="ectt-1200">ou</span>&#x00A0;<span 
class="ectt-1200">il</span>&#x00A0;<span 
class="ectt-1200">y</span>&#x00A0;<span 
class="ectt-1200">a</span>&#x00A0;<span 
class="ectt-1200">n:</span>&#x00A0;<span 
class="ectt-1200">OK</span>&#x00A0;<span 
class="ectt-1200">CA</span>&#x00A0;<span 
class="ectt-1200">C&#x2019;EST</span>&#x00A0;<span 
class="ectt-1200">FAIT!!!</span>&#x00A0;<span 
class="ectt-1200">A</span>&#x00A0;<span 
class="ectt-1200">METTRE</span>&#x00A0;<span 
class="ectt-1200">EN</span>&#x00A0;<span 
class="ectt-1200">COMMENTAIRES</span>&#x00A0;<span 
class="ectt-1200">QUELQUEPART</span>&#x00A0;<span 
class="ectt-1200">...</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CALL</span>&#x00A0;<span 
class="ectt-1200">calcstat(isa,khi,khi2,QuLed1,QuLe12,QuLed2,QuLe22,QuBD,</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">+</span>&#x00A0;<span 
class="ectt-1200">QuBD2,QuAD,QuAD2,QuJB,QuJB2,alpha,alpha2,Kp,p,q,nT,phi,teta,n,</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">+</span>&#x00A0;<span 
class="ectt-1200">nbcle,m,filer,filew,valeur,sch2vc,epscha,compt,compt2,statn,</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">+</span>&#x00A0;<span 
class="ectt-1200">KoLed1,KoLed2,Ledwi1,Ledwi2,snLed1,snLed2,stanBD,stanAD,stanJB,Z,</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">+</span>&#x00A0;<span 
class="ectt-1200">D,Davant,E2,U,hUetoi,Uavant,hKetoi,hU,hK,vecteu,vectoi,stat,</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">+</span>&#x00A0;<span 
class="ectt-1200">Zavant,BDa,BDb,BDc,BDd,Davan2,ADa,ADb,Puiss,Puiss2,snsort,snsorv,</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">+</span>&#x00A0;<span 
class="ectt-1200">Qucalc,snLe1s,snLe2s,snBDso,snADso,snJBso,matric,paramf,loi,</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">+</span>&#x00A0;<span 
class="ectt-1200">dnT,QLed1u,QLe12u,QLed2u,QLe22u,QBDu,QBD2u,QADu,QAD2u,QJBu,QJB2u)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">nbcle=nbclea</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">FAIRE</span>&#x00A0;<span 
class="ectt-1200">ATTENTION:</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">voir</span>&#x00A0;<span 
class="ectt-1200">si</span>&#x00A0;<span 
class="ectt-1200">mes</span>&#x00A0;<span 
class="ectt-1200">programmes</span>&#x00A0;<span 
class="ectt-1200">ne</span>&#x00A0;<span 
class="ectt-1200">modifient</span>&#x00A0;<span 
class="ectt-1200">pas</span>&#x00A0;<span 
class="ectt-1200">certains</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">leurs</span>&#x00A0;<span 
class="ectt-1200">parametres</span>&#x00A0;<span 
class="ectt-1200">en</span>&#x00A0;<span 
class="ectt-1200">entree</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">ce</span>&#x00A0;<span 
class="ectt-1200">qui</span>&#x00A0;<span 
class="ectt-1200">pourrait</span>&#x00A0;<span 
class="ectt-1200">ammener</span>&#x00A0;<span 
class="ectt-1200">des</span>&#x00A0;<span 
class="ectt-1200">erreurs</span>&#x00A0;<span 
class="ectt-1200">au</span>&#x00A0;<span 
class="ectt-1200">cours</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">la</span>&#x00A0;<span 
class="ectt-1200">boucle</span>&#x00A0;<span 
class="ectt-1200">que</span>&#x00A0;<span 
class="ectt-1200">je</span>&#x00A0;<span 
class="ectt-1200">vais</span>&#x00A0;<span 
class="ectt-1200">faire</span>&#x00A0;<span 
class="ectt-1200">dans</span>&#x00A0;<span 
class="ectt-1200">le</span>&#x00A0;<span 
class="ectt-1200">programme</span>&#x00A0;<span 
class="ectt-1200">test.f</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">pour</span>&#x00A0;<span 
class="ectt-1200">les</span>&#x00A0;<span 
class="ectt-1200">differentes</span>&#x00A0;<span 
class="ectt-1200">etapes</span>&#x00A0;<span 
class="ectt-1200">1),</span>&#x00A0;<span 
class="ectt-1200">2)</span>&#x00A0;<span 
class="ectt-1200">et</span>&#x00A0;<span 
class="ectt-1200">3)</span>

&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CALL</span>&#x00A0;<span 
class="ectt-1200">SYSTEM(efface)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Sauvegarde</span>&#x00A0;<span 
class="ectt-1200">du</span>&#x00A0;<span 
class="ectt-1200">seed</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">OPEN(UNIT=14,</span>&#x00A0;<span 
class="ectt-1200">FILE=paramf</span>&#x00A0;<span 
class="ectt-1200">,</span>&#x00A0;<span 
class="ectt-1200">STATUS=&#x2019;OLD&#x2019;,</span>&#x00A0;<span 
class="ectt-1200">ACCESS=&#x2019;append&#x2019;</span>&#x00A0;<span 
class="ectt-1200">)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(14,*)</span>&#x00A0;<span 
class="ectt-1200">&#x2019;Sauvegarde</span>&#x00A0;<span 
class="ectt-1200">du</span>&#x00A0;<span 
class="ectt-1200">seed:&#x2019;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(14,*)</span>&#x00A0;<span 
class="ectt-1200">&#x2019;XA:&#x2019;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(14,15)</span>&#x00A0;<span 
class="ectt-1200">&#x2019;XA(1)=&#x2019;,XA(1)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(14,15)</span>&#x00A0;<span 
class="ectt-1200">&#x2019;XA(2)=&#x2019;,XA(2)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(14,15)</span>&#x00A0;<span 
class="ectt-1200">&#x2019;XA(3)=&#x2019;,XA(3)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(14,15)</span>&#x00A0;<span 
class="ectt-1200">&#x2019;XA(4)=&#x2019;,XA(4)</span>
&#x00A0;<br />&#x00A0;<span 
class="ectt-1200">15</span>&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">FORMAT(A6,1F20.15)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(14,*)</span>&#x00A0;<span 
class="ectt-1200">&#x2019;IA:&#x2019;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(14,30)</span>&#x00A0;<span 
class="ectt-1200">&#x2019;IA(1)=&#x2019;,IA(1)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(14,30)</span>&#x00A0;<span 
class="ectt-1200">&#x2019;IA(2)=&#x2019;,IA(2)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(14,30)</span>&#x00A0;<span 
class="ectt-1200">&#x2019;IA(3)=&#x2019;,IA(3)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(14,30)</span>&#x00A0;<span 
class="ectt-1200">&#x2019;IA(4)=&#x2019;,IA(4)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(14,30)</span>&#x00A0;<span 
class="ectt-1200">&#x2019;IA(5)=&#x2019;,IA(5)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(14,30)</span>&#x00A0;<span 
class="ectt-1200">&#x2019;IA(6)=&#x2019;,IA(6)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(14,30)</span>&#x00A0;<span 
class="ectt-1200">&#x2019;IA(7)=&#x2019;,IA(7)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(14,30)</span>&#x00A0;<span 
class="ectt-1200">&#x2019;IA(8)=&#x2019;,IA(8)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(14,30)</span>&#x00A0;<span 
class="ectt-1200">&#x2019;IA(9)=&#x2019;,IA(9)</span>
&#x00A0;<br />&#x00A0;<span 
class="ectt-1200">30</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">FORMAT(A6,1I10)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CLOSE(UNIT=14)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">END</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INCLUDE</span>&#x00A0;<span 
class="ectt-1200">&#x2019;mean.f&#x2019;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INCLUDE</span>&#x00A0;<span 
class="ectt-1200">&#x2019;simulAR.f&#x2019;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INCLUDE</span>&#x00A0;<span 
class="ectt-1200">&#x2019;ARpsi.f&#x2019;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INCLUDE</span>&#x00A0;<span 
class="ectt-1200">&#x2019;shock.f&#x2019;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INCLUDE</span>&#x00A0;<span 
class="ectt-1200">&#x2019;rskew.f&#x2019;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INCLUDE</span>&#x00A0;<span 
class="ectt-1200">&#x2019;rlap.f&#x2019;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INCLUDE</span>&#x00A0;<span 
class="ectt-1200">&#x2019;rpare.f&#x2019;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INCLUDE</span>&#x00A0;<span 
class="ectt-1200">&#x2019;rspare.f&#x2019;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INCLUDE</span>&#x00A0;<span 
class="ectt-1200">&#x2019;rSU.f&#x2019;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INCLUDE</span>&#x00A0;<span 
class="ectt-1200">&#x2019;rTU.f&#x2019;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INCLUDE</span>&#x00A0;<span 
class="ectt-1200">&#x2019;rSC.f&#x2019;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INCLUDE</span>&#x00A0;<span 
class="ectt-1200">&#x2019;rLC.f&#x2019;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INCLUDE</span>&#x00A0;<span 
class="ectt-1200">&#x2019;rSB.f&#x2019;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INCLUDE</span>&#x00A0;<span 
class="ectt-1200">&#x2019;rS.f&#x2019;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INCLUDE</span>&#x00A0;<span 
class="ectt-1200">&#x2019;H1etoile.f&#x2019;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INCLUDE</span>&#x00A0;<span 
class="ectt-1200">&#x2019;H2etoile.f&#x2019;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INCLUDE</span>&#x00A0;<span 
class="ectt-1200">&#x2019;H3etoile.f&#x2019;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INCLUDE</span>&#x00A0;<span 
class="ectt-1200">&#x2019;H4etoile.f&#x2019;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INCLUDE</span>&#x00A0;<span 
class="ectt-1200">&#x2019;H5etoile.f&#x2019;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INCLUDE</span>&#x00A0;<span 
class="ectt-1200">&#x2019;H6etoile.f&#x2019;</span>

&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INCLUDE</span>&#x00A0;<span 
class="ectt-1200">&#x2019;H7etoile.f&#x2019;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INCLUDE</span>&#x00A0;<span 
class="ectt-1200">&#x2019;H8etoile.f&#x2019;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INCLUDE</span>&#x00A0;<span 
class="ectt-1200">&#x2019;H9etoile.f&#x2019;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INCLUDE</span>&#x00A0;<span 
class="ectt-1200">&#x2019;H10etoile.f&#x2019;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INCLUDE</span>&#x00A0;<span 
class="ectt-1200">&#x2019;H1isa.f&#x2019;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INCLUDE</span>&#x00A0;<span 
class="ectt-1200">&#x2019;H2isa.f&#x2019;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INCLUDE</span>&#x00A0;<span 
class="ectt-1200">&#x2019;H3isa.f&#x2019;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INCLUDE</span>&#x00A0;<span 
class="ectt-1200">&#x2019;H4isa.f&#x2019;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INCLUDE</span>&#x00A0;<span 
class="ectt-1200">&#x2019;H5isa.f&#x2019;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INCLUDE</span>&#x00A0;<span 
class="ectt-1200">&#x2019;H6isa.f&#x2019;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INCLUDE</span>&#x00A0;<span 
class="ectt-1200">&#x2019;H7isa.f&#x2019;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INCLUDE</span>&#x00A0;<span 
class="ectt-1200">&#x2019;H8isa.f&#x2019;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INCLUDE</span>&#x00A0;<span 
class="ectt-1200">&#x2019;H9isa.f&#x2019;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INCLUDE</span>&#x00A0;<span 
class="ectt-1200">&#x2019;H10isa.f&#x2019;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INCLUDE</span>&#x00A0;<span 
class="ectt-1200">&#x2019;H1.f&#x2019;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INCLUDE</span>&#x00A0;<span 
class="ectt-1200">&#x2019;H2.f&#x2019;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INCLUDE</span>&#x00A0;<span 
class="ectt-1200">&#x2019;H3.f&#x2019;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INCLUDE</span>&#x00A0;<span 
class="ectt-1200">&#x2019;H4.f&#x2019;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INCLUDE</span>&#x00A0;<span 
class="ectt-1200">&#x2019;H5.f&#x2019;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INCLUDE</span>&#x00A0;<span 
class="ectt-1200">&#x2019;H6.f&#x2019;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INCLUDE</span>&#x00A0;<span 
class="ectt-1200">&#x2019;H7.f&#x2019;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INCLUDE</span>&#x00A0;<span 
class="ectt-1200">&#x2019;H8.f&#x2019;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INCLUDE</span>&#x00A0;<span 
class="ectt-1200">&#x2019;H9.f&#x2019;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INCLUDE</span>&#x00A0;<span 
class="ectt-1200">&#x2019;H10.f&#x2019;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INCLUDE</span>&#x00A0;<span 
class="ectt-1200">&#x2019;qnorm.f&#x2019;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INCLUDE</span>&#x00A0;<span 
class="ectt-1200">&#x2019;pnorm.f&#x2019;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INCLUDE</span>&#x00A0;<span 
class="ectt-1200">&#x2019;min.f&#x2019;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INCLUDE</span>&#x00A0;<span 
class="ectt-1200">&#x2019;max.f&#x2019;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INCLUDE</span>&#x00A0;<span 
class="ectt-1200">&#x2019;var.f&#x2019;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INCLUDE</span>&#x00A0;<span 
class="ectt-1200">&#x2019;creerdat_AR.f&#x2019;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INCLUDE</span>&#x00A0;<span 
class="ectt-1200">&#x2019;calcstat.f&#x2019;</span>
</div> <span 
class="ecbx-1200">Programme big_prog_MA1.f </span><div class="verbatiminput">
<span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Idee</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">ce</span>&#x00A0;&#x00A0;<span 
class="ectt-1200">programme:</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Etape1)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">On</span>&#x00A0;<span 
class="ectt-1200">cree</span>&#x00A0;<span 
class="ectt-1200">un</span>&#x00A0;<span 
class="ectt-1200">fichier</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">donnees</span>&#x00A0;<span 
class="ectt-1200">&#x2019;data.txt&#x2019;</span>&#x00A0;<span 
class="ectt-1200">en</span>&#x00A0;<span 
class="ectt-1200">utilisant</span>&#x00A0;<span 
class="ectt-1200">certaines</span>&#x00A0;<span 
class="ectt-1200">valeurs</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">parametres</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">a</span>&#x00A0;<span 
class="ectt-1200">lire</span>&#x00A0;<span 
class="ectt-1200">dans</span>&#x00A0;<span 
class="ectt-1200">un</span>&#x00A0;<span 
class="ectt-1200">fichier</span>&#x00A0;<span 
class="ectt-1200">d&#x2019;entree</span>&#x00A0;<span 
class="ectt-1200">&#x2019;ftemp&#x2019;</span>&#x00A0;<span 
class="ectt-1200">cree</span>&#x00A0;<span 
class="ectt-1200">par</span>&#x00A0;<span 
class="ectt-1200">le</span>&#x00A0;<span 
class="ectt-1200">programme</span>&#x00A0;<span 
class="ectt-1200">test.f</span>&#x00A0;<span 
class="ectt-1200">a</span>&#x00A0;<span 
class="ectt-1200">l&#x2019;aide</span>&#x00A0;<span 
class="ectt-1200">du</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">fichier</span>&#x00A0;<span 
class="ectt-1200">&#x2019;paramentree&#x2019;,</span>&#x00A0;<span 
class="ectt-1200">on</span>&#x00A0;<span 
class="ectt-1200">stocke</span>&#x00A0;<span 
class="ectt-1200">les</span>&#x00A0;<span 
class="ectt-1200">resultats</span>&#x00A0;<span 
class="ectt-1200">autres</span>&#x00A0;<span 
class="ectt-1200">que</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">les</span>&#x00A0;<span 
class="ectt-1200">donnees</span>&#x00A0;<span 
class="ectt-1200">dans</span>&#x00A0;<span 
class="ectt-1200">un</span>&#x00A0;<span 
class="ectt-1200">fichier</span>&#x00A0;<span 
class="ectt-1200">&#x2019;param.i&#x2019;</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Etape</span>&#x00A0;<span 
class="ectt-1200">2)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">ensuite</span>&#x00A0;<span 
class="ectt-1200">on</span>&#x00A0;<span 
class="ectt-1200">utilise</span>&#x00A0;<span 
class="ectt-1200">le</span>&#x00A0;<span 
class="ectt-1200">fichier</span>&#x00A0;<span 
class="ectt-1200">&#x2019;data.txt&#x2019;</span>

&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">avec</span>&#x00A0;<span 
class="ectt-1200">le</span>&#x00A0;<span 
class="ectt-1200">programme</span>&#x00A0;<span 
class="ectt-1200">calcstat</span>&#x00A0;<span 
class="ectt-1200">pour</span>&#x00A0;<span 
class="ectt-1200">creer</span>&#x00A0;<span 
class="ectt-1200">le</span>&#x00A0;<span 
class="ectt-1200">fichier</span>&#x00A0;<span 
class="ectt-1200">des</span>&#x00A0;<span 
class="ectt-1200">statistiques</span>&#x00A0;<span 
class="ectt-1200">&#x2019;resultat.i&#x2019;</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Etape</span>&#x00A0;<span 
class="ectt-1200">3)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Ensuite,</span>&#x00A0;<span 
class="ectt-1200">on</span>&#x00A0;<span 
class="ectt-1200">efface</span>&#x00A0;<span 
class="ectt-1200">le</span>&#x00A0;<span 
class="ectt-1200">fichier</span>&#x00A0;<span 
class="ectt-1200">&#x2019;data.txt&#x2019;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PROGRAM</span>&#x00A0;<span 
class="ectt-1200">main</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Les</span>&#x00A0;<span 
class="ectt-1200">**</span>&#x00A0;<span 
class="ectt-1200">indiquent</span>&#x00A0;<span 
class="ectt-1200">les</span>&#x00A0;<span 
class="ectt-1200">endroits</span>&#x00A0;<span 
class="ectt-1200">ou</span>&#x00A0;<span 
class="ectt-1200">des</span>&#x00A0;<span 
class="ectt-1200">changements</span>&#x00A0;<span 
class="ectt-1200">peuvent</span>&#x00A0;<span 
class="ectt-1200">etre</span>&#x00A0;<span 
class="ectt-1200">necessaires</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">--------------------------------------------------------------------------</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DEBUT</span>&#x00A0;<span 
class="ectt-1200">DE</span>&#x00A0;<span 
class="ectt-1200">DECLARATION</span>&#x00A0;<span 
class="ectt-1200">DES</span>&#x00A0;<span 
class="ectt-1200">VARIABLES</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">--------------------------------------------------------------------------</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Si</span>&#x00A0;<span 
class="ectt-1200">isa=.TRUE.</span>&#x00A0;<span 
class="ectt-1200">(ie</span>&#x00A0;<span 
class="ectt-1200">MEAN=.TRUE.)</span>&#x00A0;<span 
class="ectt-1200">on</span>&#x00A0;<span 
class="ectt-1200">prend</span>&#x00A0;<span 
class="ectt-1200">les</span>&#x00A0;<span 
class="ectt-1200">polynomes</span>&#x00A0;<span 
class="ectt-1200">modifies</span>&#x00A0;<span 
class="ectt-1200">avec</span>&#x00A0;<span 
class="ectt-1200">les</span>&#x00A0;<span 
class="ectt-1200">ak</span>&#x00A0;&#x00A0;<span 
class="ectt-1200">**</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Si</span>&#x00A0;<span 
class="ectt-1200">isa=.FALSE.</span>&#x00A0;<span 
class="ectt-1200">(ie</span>&#x00A0;<span 
class="ectt-1200">MEAN=.FALSE.)</span>&#x00A0;<span 
class="ectt-1200">on</span>&#x00A0;<span 
class="ectt-1200">prend</span>&#x00A0;<span 
class="ectt-1200">les</span>&#x00A0;<span 
class="ectt-1200">polynomes</span>&#x00A0;<span 
class="ectt-1200">modifies</span>&#x00A0;<span 
class="ectt-1200">sans</span>&#x00A0;<span 
class="ectt-1200">les</span>&#x00A0;<span 
class="ectt-1200">ak</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">LOGICAL</span>&#x00A0;<span 
class="ectt-1200">isa</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(isa=.FALSE.)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">------------------------------------</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">parametres</span>&#x00A0;<span 
class="ectt-1200">calcstat</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Niveau</span>&#x00A0;<span 
class="ectt-1200">1</span>&#x00A0;<span 
class="ectt-1200">du</span>&#x00A0;<span 
class="ectt-1200">test</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">**</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">alpha</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(alpha=0.1)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Niveau</span>&#x00A0;<span 
class="ectt-1200">2</span>&#x00A0;<span 
class="ectt-1200">du</span>&#x00A0;<span 
class="ectt-1200">test</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">**</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">alpha2</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(alpha2=0.05)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Quantiles</span>&#x00A0;<span 
class="ectt-1200">avec</span>&#x00A0;<span 
class="ectt-1200">alpha</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;&#x00A0;<span 
class="ectt-1200">khi(10)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Quantiles</span>&#x00A0;<span 
class="ectt-1200">avec</span>&#x00A0;<span 
class="ectt-1200">alpha2</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;&#x00A0;<span 
class="ectt-1200">khi2(10)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Quantiles</span>&#x00A0;<span 
class="ectt-1200">Ledwi1</span>&#x00A0;<span 
class="ectt-1200">et</span>&#x00A0;<span 
class="ectt-1200">Ledwi2</span>&#x00A0;<span 
class="ectt-1200">avec</span>&#x00A0;<span 
class="ectt-1200">alpha</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">**</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">QuLed1,</span>&#x00A0;<span 
class="ectt-1200">QuLed2</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">avec</span>&#x00A0;<span 
class="ectt-1200">T=50</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(QuLed1=3.69,QuLed2=5.466)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">avec</span>&#x00A0;<span 
class="ectt-1200">T=100</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(QuLed1=3.275,QuLed2=5.26)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">avec</span>&#x00A0;<span 
class="ectt-1200">T=200</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(QuLed1=3.057,QuLed2=5.043)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Quantiles</span>&#x00A0;<span 
class="ectt-1200">Ledwi1</span>&#x00A0;<span 
class="ectt-1200">et</span>&#x00A0;<span 
class="ectt-1200">Ledwi2</span>&#x00A0;<span 
class="ectt-1200">avec</span>&#x00A0;<span 
class="ectt-1200">alpha2</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">**</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">QuLe12,</span>&#x00A0;<span 
class="ectt-1200">QuLe22</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">avec</span>&#x00A0;<span 
class="ectt-1200">T=50</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(QuLe12=5.41,QuLe22=7.14)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">avec</span>&#x00A0;<span 
class="ectt-1200">T=100</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(QuLe12=5.20,QuLe22=6.97)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">avec</span>&#x00A0;<span 
class="ectt-1200">T=200</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(QuLe12=4.751,QuLe22=6.796)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Quantiles</span>&#x00A0;<span 
class="ectt-1200">Brockwell</span>&#x00A0;<span 
class="ectt-1200">et</span>&#x00A0;<span 
class="ectt-1200">Davis</span>&#x00A0;<span 
class="ectt-1200">et</span>&#x00A0;<span 
class="ectt-1200">Anderson</span>&#x00A0;<span 
class="ectt-1200">Darling</span>&#x00A0;<span 
class="ectt-1200">et</span>&#x00A0;<span 
class="ectt-1200">JB</span>&#x00A0;<span 
class="ectt-1200">avec</span>&#x00A0;<span 
class="ectt-1200">alpha</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">**</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">QuBD,</span>&#x00A0;<span 
class="ectt-1200">QuAD,</span>&#x00A0;<span 
class="ectt-1200">QuJB</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">avec</span>&#x00A0;<span 
class="ectt-1200">T=50</span>

&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(QuBD=0.920,QuAD=1.743,QuJB=4.61)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">avec</span>&#x00A0;<span 
class="ectt-1200">T=100</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(QuBD=0.958,QuAD=1.743,QuJB=4.61)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">avec</span>&#x00A0;<span 
class="ectt-1200">T=200</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(QuBD=0.978,QuAD=1.743,QuJB=4.61)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Quantiles</span>&#x00A0;<span 
class="ectt-1200">Brockwell</span>&#x00A0;<span 
class="ectt-1200">et</span>&#x00A0;<span 
class="ectt-1200">Davis</span>&#x00A0;<span 
class="ectt-1200">et</span>&#x00A0;<span 
class="ectt-1200">Anderson</span>&#x00A0;<span 
class="ectt-1200">Darling</span>&#x00A0;<span 
class="ectt-1200">et</span>&#x00A0;<span 
class="ectt-1200">JB</span>&#x00A0;<span 
class="ectt-1200">avec</span>&#x00A0;<span 
class="ectt-1200">alpha2</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">**</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">QuBD2,</span>&#x00A0;<span 
class="ectt-1200">QuAD2,</span>&#x00A0;<span 
class="ectt-1200">QuJB2</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">avec</span>&#x00A0;<span 
class="ectt-1200">T=50</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(QuBD2=0.899,QuAD2=2.308,QuJB2=5.99)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">avec</span>&#x00A0;<span 
class="ectt-1200">T=100</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(QuBD2=0.947,QuAD2=2.308,QuJB2=5.99)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">avec</span>&#x00A0;<span 
class="ectt-1200">T=200</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(QuBD2=0.973,QuAD2=2.308,QuJB2=5.99)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Nombre</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">polynomes</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">**</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">Kp</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(Kp=10)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">ordre</span>&#x00A0;<span 
class="ectt-1200">du</span>&#x00A0;<span 
class="ectt-1200">modele</span>&#x00A0;<span 
class="ectt-1200">AR</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">p</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(p=0)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">ordre</span>&#x00A0;<span 
class="ectt-1200">du</span>&#x00A0;<span 
class="ectt-1200">modele</span>&#x00A0;<span 
class="ectt-1200">MA</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">q</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(q=2)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">nombre</span>&#x00A0;<span 
class="ectt-1200">d&#x2019;observations</span>&#x00A0;<span 
class="ectt-1200">dans</span>&#x00A0;<span 
class="ectt-1200">mon</span>&#x00A0;<span 
class="ectt-1200">echantillon</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">**</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Si</span>&#x00A0;<span 
class="ectt-1200">on</span>&#x00A0;<span 
class="ectt-1200">change</span>&#x00A0;<span 
class="ectt-1200">la</span>&#x00A0;<span 
class="ectt-1200">valeur</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">nT,</span>&#x00A0;<span 
class="ectt-1200">il</span>&#x00A0;<span 
class="ectt-1200">faut</span>&#x00A0;<span 
class="ectt-1200">aller</span>&#x00A0;<span 
class="ectt-1200">modifier</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">la</span>&#x00A0;<span 
class="ectt-1200">valeur</span>&#x00A0;<span 
class="ectt-1200">dans</span>&#x00A0;<span 
class="ectt-1200">FORMAT</span>&#x00A0;<span 
class="ectt-1200">a</span>&#x00A0;<span 
class="ectt-1200">la</span>&#x00A0;<span 
class="ectt-1200">fin</span>&#x00A0;<span 
class="ectt-1200">du</span>&#x00A0;<span 
class="ectt-1200">programme</span>&#x00A0;<span 
class="ectt-1200">creerdat_ARMA.f</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">nT</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(nT=200)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">n,m</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(m=nT+1)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">n=nombre</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">lignes</span>&#x00A0;<span 
class="ectt-1200">au</span>&#x00A0;<span 
class="ectt-1200">maximum</span>&#x00A0;<span 
class="ectt-1200">dans</span>&#x00A0;<span 
class="ectt-1200">le</span>&#x00A0;<span 
class="ectt-1200">fichier</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">donnees</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">**</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">cela</span>&#x00A0;<span 
class="ectt-1200">correspond</span>&#x00A0;<span 
class="ectt-1200">a</span>&#x00A0;<span 
class="ectt-1200">nbcle</span>&#x00A0;<span 
class="ectt-1200">s&#x2019;il</span>&#x00A0;<span 
class="ectt-1200">n&#x2019;y</span>&#x00A0;<span 
class="ectt-1200">a</span>&#x00A0;<span 
class="ectt-1200">pas</span>&#x00A0;<span 
class="ectt-1200">eu</span>&#x00A0;<span 
class="ectt-1200">d&#x2019;erreurs</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">dans</span>&#x00A0;<span 
class="ectt-1200">tous</span>&#x00A0;<span 
class="ectt-1200">les</span>&#x00A0;<span 
class="ectt-1200">cas</span>&#x00A0;<span 
class="ectt-1200">mettre</span>&#x00A0;<span 
class="ectt-1200">ici</span>&#x00A0;<span 
class="ectt-1200">n=nbcle=nombre</span>&#x00A0;<span 
class="ectt-1200">d&#x2019;echantillons</span>&#x00A0;<span 
class="ectt-1200">souhaites</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(n=10000)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CHARACTER</span>&#x00A0;<span 
class="ectt-1200">filer*8,</span>&#x00A0;<span 
class="ectt-1200">filew*21</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">**</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">valeur(n,m)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">sch2vc(n)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">epscha(n,nT)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">compt(Kp)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">compt2(Kp)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">statn(n,Kp)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">KoLed1(n)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">KoLed2(n)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">Ledwi1(Kp)</span>

&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">Ledwi2(Kp-1)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">snLed1(n)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">snLed2(n)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">stanBD(n)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">stanAD(n),</span>&#x00A0;<span 
class="ectt-1200">stanJB(n)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">Z(nT)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">D(nT)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">Davant(nT),</span>&#x00A0;<span 
class="ectt-1200">E2(nT)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">U(nT)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">hUetoi(nT,Kp)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">Uavant(nT)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">hKetoi(Kp)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">hU(nT,Kp)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">hK(Kp)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">vecteu(Kp)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">vectoi(Kp)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">stat(Kp)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">Zavant(nT)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">BDa(nT)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">BDb(nT)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">BDc(nT)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">BDd(nT)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">Davan2(nT)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">ADa(nT)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">ADb(nT)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">Puiss(Kp)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">Puiss2(Kp)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">snsort(n,Kp)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">snsorv(n)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">Qucalc(Kp)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">snLe1s(n)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">snLe2s(n)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">snBDso(n)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">snADso(n),</span>&#x00A0;<span 
class="ectt-1200">snJBso(n)</span>
&#x00A0;<br /><span 
class="ectt-1200">c--------------------------------------------------------</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">parametres</span>&#x00A0;<span 
class="ectt-1200">creerdat</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Nom</span>&#x00A0;<span 
class="ectt-1200">du</span>&#x00A0;<span 
class="ectt-1200">fichier</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">donnees</span>&#x00A0;<span 
class="ectt-1200">en</span>&#x00A0;<span 
class="ectt-1200">sortie</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">**</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CHARACTER</span>&#x00A0;<span 
class="ectt-1200">dataf*8</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Nom</span>&#x00A0;<span 
class="ectt-1200">du</span>&#x00A0;<span 
class="ectt-1200">fichier</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">parametres</span>&#x00A0;<span 
class="ectt-1200">en</span>&#x00A0;<span 
class="ectt-1200">sortie</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">**</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CHARACTER</span>&#x00A0;<span 
class="ectt-1200">paramf*17</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Nombre</span>&#x00A0;<span 
class="ectt-1200">d&#x2019;echantillons</span>&#x00A0;<span 
class="ectt-1200">souhaites</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">nbcle,nbclea</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">rang</span>&#x00A0;<span 
class="ectt-1200">d&#x2019;arret</span>&#x00A0;<span 
class="ectt-1200">dans</span>&#x00A0;<span 
class="ectt-1200">la</span>&#x00A0;<span 
class="ectt-1200">random</span>&#x00A0;<span 
class="ectt-1200">shock</span>&#x00A0;<span 
class="ectt-1200">method</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">Burn</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">**</span>

&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">marret</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(marret=200)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Induction</span>&#x00A0;<span 
class="ectt-1200">period</span>&#x00A0;<span 
class="ectt-1200">dans</span>&#x00A0;<span 
class="ectt-1200">la</span>&#x00A0;<span 
class="ectt-1200">methode</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">Burn</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">**</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">Mind</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(Mind=200)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">ecart-type</span>&#x00A0;<span 
class="ectt-1200">des</span>&#x00A0;<span 
class="ectt-1200">erreurs</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">**</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">sigma</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(sigma=1)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">moyenne</span>&#x00A0;<span 
class="ectt-1200">dans</span>&#x00A0;<span 
class="ectt-1200">mon</span>&#x00A0;<span 
class="ectt-1200">modele</span>&#x00A0;<span 
class="ectt-1200">ARMA</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">**</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">mu</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(mu=0)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">parametre</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">la</span>&#x00A0;<span 
class="ectt-1200">khi-deux</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">**</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">df1</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(df1=2)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">parametre</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">la</span>&#x00A0;<span 
class="ectt-1200">student</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">**</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">df2</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(df2=5)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">parametre</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">la</span>&#x00A0;<span 
class="ectt-1200">skew-normale</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">**</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">lambda</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(lambda=2.0)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">loi5b,</span>&#x00A0;<span 
class="ectt-1200">loi5k,</span>&#x00A0;<span 
class="ectt-1200">loi6p,</span>&#x00A0;<span 
class="ectt-1200">loi6q</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">loi7g,</span>&#x00A0;<span 
class="ectt-1200">loi7d,</span>&#x00A0;<span 
class="ectt-1200">loi8p,</span>&#x00A0;<span 
class="ectt-1200">loi8q,</span>&#x00A0;<span 
class="ectt-1200">loi9a,</span>&#x00A0;<span 
class="ectt-1200">loi9b</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">loi10b,</span>&#x00A0;<span 
class="ectt-1200">loi10l,</span>&#x00A0;<span 
class="ectt-1200">loi11a,</span>&#x00A0;<span 
class="ectt-1200">loi11k,</span>&#x00A0;<span 
class="ectt-1200">loi13g,</span>&#x00A0;<span 
class="ectt-1200">loi13d</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">loi14l,</span>&#x00A0;<span 
class="ectt-1200">loi16p,</span>&#x00A0;<span 
class="ectt-1200">loi16d,</span>&#x00A0;<span 
class="ectt-1200">loi17p,</span>&#x00A0;<span 
class="ectt-1200">loi17m</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">loi18g,</span>&#x00A0;<span 
class="ectt-1200">loi18d,</span>&#x00A0;<span 
class="ectt-1200">loi19a,</span>&#x00A0;<span 
class="ectt-1200">loi19b</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(loi18g=1.0,loi18d=1.0,</span>&#x00A0;<span 
class="ectt-1200">loi19a=1.1,</span>&#x00A0;<span 
class="ectt-1200">loi19b=0.5)</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">**</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(loi16p=0.2,loi16d=5.0,</span>&#x00A0;<span 
class="ectt-1200">loi17p=0.2,loi17m=3.0)</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">**</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(loi10b=0.2,loi10l=1,</span>&#x00A0;<span 
class="ectt-1200">loi11a=2.0,loi11k=0.5)</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">**</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(loi13g=1.0,loi13d=1.0,</span>&#x00A0;<span 
class="ectt-1200">loi14l=0.7)</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">**</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(loi7g=0,loi7d=1,</span>&#x00A0;<span 
class="ectt-1200">loi8p=2,</span>&#x00A0;<span 
class="ectt-1200">loi8q=2,</span>&#x00A0;<span 
class="ectt-1200">loi9a=0,loi9b=2)</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">**</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(loi5b=1,</span>&#x00A0;<span 
class="ectt-1200">loi5k=1.8,</span>&#x00A0;<span 
class="ectt-1200">loi6p=4,</span>&#x00A0;<span 
class="ectt-1200">loi6q=1)</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">**</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">loi</span>&#x00A0;<span 
class="ectt-1200">des</span>&#x00A0;<span 
class="ectt-1200">erreurs</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">si</span>&#x00A0;<span 
class="ectt-1200">loi=0</span>&#x00A0;<span 
class="ectt-1200">:</span>&#x00A0;<span 
class="ectt-1200">Normale(0,sigma&#x0302;2)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">si</span>&#x00A0;<span 
class="ectt-1200">loi=1</span>&#x00A0;<span 
class="ectt-1200">:</span>&#x00A0;<span 
class="ectt-1200">Khi2</span>&#x00A0;<span 
class="ectt-1200">centree</span>&#x00A0;<span 
class="ectt-1200">(df1)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">si</span>&#x00A0;<span 
class="ectt-1200">loi=2</span>&#x00A0;<span 
class="ectt-1200">:</span>&#x00A0;<span 
class="ectt-1200">Student</span>&#x00A0;<span 
class="ectt-1200">(df2)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">si</span>&#x00A0;<span 
class="ectt-1200">loi=3</span>&#x00A0;<span 
class="ectt-1200">:</span>&#x00A0;<span 
class="ectt-1200">Skew-Normale(lambda)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">si</span>&#x00A0;<span 
class="ectt-1200">loi=4</span>&#x00A0;<span 
class="ectt-1200">:</span>&#x00A0;<span 
class="ectt-1200">Laplace</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">si</span>&#x00A0;<span 
class="ectt-1200">loi=5</span>&#x00A0;<span 
class="ectt-1200">:</span>&#x00A0;<span 
class="ectt-1200">Weibull(b,k)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">si</span>&#x00A0;<span 
class="ectt-1200">loi=6</span>&#x00A0;<span 
class="ectt-1200">:</span>&#x00A0;<span 
class="ectt-1200">Gamma(p,q)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">si</span>&#x00A0;<span 
class="ectt-1200">loi=7</span>&#x00A0;<span 
class="ectt-1200">:</span>&#x00A0;<span 
class="ectt-1200">Log-Normale(g,d)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">si</span>&#x00A0;<span 
class="ectt-1200">loi=8</span>&#x00A0;<span 
class="ectt-1200">:</span>&#x00A0;<span 
class="ectt-1200">Beta(p,q)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">si</span>&#x00A0;<span 
class="ectt-1200">loi=9</span>&#x00A0;<span 
class="ectt-1200">:</span>&#x00A0;<span 
class="ectt-1200">Uniform(a,b)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">si</span>&#x00A0;<span 
class="ectt-1200">loi=10</span>&#x00A0;<span 
class="ectt-1200">:</span>&#x00A0;<span 
class="ectt-1200">Shifted</span>&#x00A0;<span 
class="ectt-1200">exp</span>&#x00A0;<span 
class="ectt-1200">(l,b)</span>

&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">si</span>&#x00A0;<span 
class="ectt-1200">loi=11</span>&#x00A0;<span 
class="ectt-1200">:</span>&#x00A0;<span 
class="ectt-1200">Pareto(a,k)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">si</span>&#x00A0;<span 
class="ectt-1200">loi=12</span>&#x00A0;<span 
class="ectt-1200">:</span>&#x00A0;<span 
class="ectt-1200">Shifted</span>&#x00A0;<span 
class="ectt-1200">Pareto</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">si</span>&#x00A0;<span 
class="ectt-1200">loi=13</span>&#x00A0;<span 
class="ectt-1200">:</span>&#x00A0;<span 
class="ectt-1200">SU(g,d)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">si</span>&#x00A0;<span 
class="ectt-1200">loi=14</span>&#x00A0;<span 
class="ectt-1200">:</span>&#x00A0;<span 
class="ectt-1200">TU(l)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">si</span>&#x00A0;<span 
class="ectt-1200">loi=15</span>&#x00A0;<span 
class="ectt-1200">:</span>&#x00A0;<span 
class="ectt-1200">Logistic</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">si</span>&#x00A0;<span 
class="ectt-1200">loi=16</span>&#x00A0;<span 
class="ectt-1200">:</span>&#x00A0;<span 
class="ectt-1200">SC(p,d)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">si</span>&#x00A0;<span 
class="ectt-1200">loi=17</span>&#x00A0;<span 
class="ectt-1200">:</span>&#x00A0;<span 
class="ectt-1200">LC(p,m)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">si</span>&#x00A0;<span 
class="ectt-1200">loi=18</span>&#x00A0;<span 
class="ectt-1200">:</span>&#x00A0;<span 
class="ectt-1200">SB(g,d)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">si</span>&#x00A0;<span 
class="ectt-1200">loi=19</span>&#x00A0;<span 
class="ectt-1200">:</span>&#x00A0;<span 
class="ectt-1200">S(a,b)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">loi</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">rm=max(p,q)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">rm</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(rm=2)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">the</span>&#x00A0;<span 
class="ectt-1200">autoregressive</span>&#x00A0;<span 
class="ectt-1200">coefficients</span>&#x00A0;<span 
class="ectt-1200">of</span>&#x00A0;<span 
class="ectt-1200">the</span>&#x00A0;<span 
class="ectt-1200">model</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">phi(2)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">the</span>&#x00A0;<span 
class="ectt-1200">moving-average</span>&#x00A0;<span 
class="ectt-1200">coefficients</span>&#x00A0;<span 
class="ectt-1200">of</span>&#x00A0;<span 
class="ectt-1200">the</span>&#x00A0;<span 
class="ectt-1200">model</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">teta(2)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">tetach(q)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">vecteur</span>&#x00A0;<span 
class="ectt-1200">des</span>&#x00A0;<span 
class="ectt-1200">donnees</span>&#x00A0;<span 
class="ectt-1200">cree</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">donees(nT)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Parametres</span>&#x00A0;<span 
class="ectt-1200">pour</span>&#x00A0;<span 
class="ectt-1200">G05EGF:</span>&#x00A0;<span 
class="ectt-1200">simulation</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">the</span>&#x00A0;<span 
class="ectt-1200">autoregressive</span>&#x00A0;<span 
class="ectt-1200">coefficients</span>&#x00A0;<span 
class="ectt-1200">of</span>&#x00A0;<span 
class="ectt-1200">the</span>&#x00A0;<span 
class="ectt-1200">model=phi</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Input</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">A(1)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">the</span>&#x00A0;<span 
class="ectt-1200">moving-average</span>&#x00A0;<span 
class="ectt-1200">coefficients</span>&#x00A0;<span 
class="ectt-1200">of</span>&#x00A0;<span 
class="ectt-1200">the</span>&#x00A0;<span 
class="ectt-1200">model=teta</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Input</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">B(q+1)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">le</span>&#x00A0;<span 
class="ectt-1200">vecteur</span>&#x00A0;<span 
class="ectt-1200">des</span>&#x00A0;<span 
class="ectt-1200">innovations</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Output</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">R(nT)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Parametres</span>&#x00A0;<span 
class="ectt-1200">pour</span>&#x00A0;<span 
class="ectt-1200">G13DCF:</span>&#x00A0;<span 
class="ectt-1200">estimation</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">the</span>&#x00A0;<span 
class="ectt-1200">number</span>&#x00A0;<span 
class="ectt-1200">of</span>&#x00A0;<span 
class="ectt-1200">initial</span>&#x00A0;<span 
class="ectt-1200">parameter</span>&#x00A0;<span 
class="ectt-1200">estimates</span>&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Input</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">**</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">mettre</span>&#x00A0;<span 
class="ectt-1200">p+q+1</span>&#x00A0;<span 
class="ectt-1200">si</span>&#x00A0;<span 
class="ectt-1200">MEAN=.TRUE.</span>&#x00A0;<span 
class="ectt-1200">,</span>&#x00A0;<span 
class="ectt-1200">p+q</span>&#x00A0;<span 
class="ectt-1200">si</span>&#x00A0;<span 
class="ectt-1200">MEAN=.FALSE.</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">NPAR</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(NPAR=p+q)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">first</span>&#x00A0;<span 
class="ectt-1200">dimension</span>&#x00A0;<span 
class="ectt-1200">of</span>&#x00A0;<span 
class="ectt-1200">the</span>&#x00A0;<span 
class="ectt-1200">array</span>&#x00A0;<span 
class="ectt-1200">CM</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Input</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">**</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">mettre</span>&#x00A0;<span 
class="ectt-1200">p+q+1</span>&#x00A0;<span 
class="ectt-1200">si</span>&#x00A0;<span 
class="ectt-1200">MEAN=.TRUE.</span>&#x00A0;<span 
class="ectt-1200">,</span>&#x00A0;<span 
class="ectt-1200">p+q</span>&#x00A0;<span 
class="ectt-1200">si</span>&#x00A0;<span 
class="ectt-1200">MEAN=.FALSE.</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">ICM</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(ICM=p+q)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Workspace</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">IW(NPAR+rm+3)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">initial</span>&#x00A0;<span 
class="ectt-1200">parameter</span>&#x00A0;<span 
class="ectt-1200">estimates</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Input/Output</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">PAR(NPAR)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">W(i,t)</span>&#x00A0;<span 
class="ectt-1200">must</span>&#x00A0;<span 
class="ectt-1200">be</span>&#x00A0;<span 
class="ectt-1200">set</span>&#x00A0;<span 
class="ectt-1200">equal</span>&#x00A0;<span 
class="ectt-1200">to</span>&#x00A0;<span 
class="ectt-1200">the</span>&#x00A0;<span 
class="ectt-1200">observation</span>&#x00A0;<span 
class="ectt-1200">at</span>&#x00A0;<span 
class="ectt-1200">time</span>&#x00A0;<span 
class="ectt-1200">t</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Input</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">of</span>&#x00A0;<span 
class="ectt-1200">the</span>&#x00A0;<span 
class="ectt-1200">ith</span>&#x00A0;<span 
class="ectt-1200">series</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">W(1,nT)</span>

&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">the</span>&#x00A0;<span 
class="ectt-1200">accuracy</span>&#x00A0;<span 
class="ectt-1200">to</span>&#x00A0;<span 
class="ectt-1200">which</span>&#x00A0;<span 
class="ectt-1200">the</span>&#x00A0;<span 
class="ectt-1200">solution</span>&#x00A0;<span 
class="ectt-1200">in</span>&#x00A0;<span 
class="ectt-1200">PAR</span>&#x00A0;<span 
class="ectt-1200">and</span>&#x00A0;<span 
class="ectt-1200">QQ</span>&#x00A0;<span 
class="ectt-1200">is</span>&#x00A0;<span 
class="ectt-1200">required</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Input</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">**</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">CGETOL</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(CGETOL=0.0001)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">residual</span>&#x00A0;<span 
class="ectt-1200">at</span>&#x00A0;<span 
class="ectt-1200">time</span>&#x00A0;<span 
class="ectt-1200">t</span>&#x00A0;<span 
class="ectt-1200">for</span>&#x00A0;<span 
class="ectt-1200">series</span>&#x00A0;<span 
class="ectt-1200">i,</span>&#x00A0;<span 
class="ectt-1200">for</span>&#x00A0;<span 
class="ectt-1200">i</span>&#x00A0;<span 
class="ectt-1200">=</span>&#x00A0;<span 
class="ectt-1200">1,2,...,k</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Output</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">V(1,nT)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">estimated</span>&#x00A0;<span 
class="ectt-1200">first</span>&#x00A0;<span 
class="ectt-1200">derivative</span>&#x00A0;<span 
class="ectt-1200">of</span>&#x00A0;<span 
class="ectt-1200">the</span>&#x00A0;<span 
class="ectt-1200">log-likelihood</span>&#x00A0;<span 
class="ectt-1200">function</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Output</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">G(NPAR)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">estimate</span>&#x00A0;<span 
class="ectt-1200">of</span>&#x00A0;<span 
class="ectt-1200">the</span>&#x00A0;<span 
class="ectt-1200">correlation</span>&#x00A0;<span 
class="ectt-1200">coefficient</span>&#x00A0;<span 
class="ectt-1200">between</span>&#x00A0;<span 
class="ectt-1200">the</span>&#x00A0;<span 
class="ectt-1200">ith</span>&#x00A0;<span 
class="ectt-1200">and</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Output</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">jth</span>&#x00A0;<span 
class="ectt-1200">elements</span>&#x00A0;<span 
class="ectt-1200">in</span>&#x00A0;<span 
class="ectt-1200">the</span>&#x00A0;<span 
class="ectt-1200">PAR</span>&#x00A0;<span 
class="ectt-1200">array</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">CM(ICM,NPAR)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Workspace</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">WORK((5+3*nT+2*rm)+(2*p+q+2*rm*(rm+2)+9)+</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">+</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">(NPAR+1)*(5*(NPAR+1)+29)/2+(rm+1)**2)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">MEAN</span>&#x00A0;<span 
class="ectt-1200">must</span>&#x00A0;<span 
class="ectt-1200">be</span>&#x00A0;<span 
class="ectt-1200">set</span>&#x00A0;<span 
class="ectt-1200">to</span>&#x00A0;<span 
class="ectt-1200">.TRUE.</span>&#x00A0;<span 
class="ectt-1200">if</span>&#x00A0;<span 
class="ectt-1200">components</span>&#x00A0;<span 
class="ectt-1200">of</span>&#x00A0;<span 
class="ectt-1200">mu</span>&#x00A0;<span 
class="ectt-1200">are</span>&#x00A0;<span 
class="ectt-1200">to</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Input</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">**</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">be</span>&#x00A0;<span 
class="ectt-1200">estimated</span>&#x00A0;<span 
class="ectt-1200">and</span>&#x00A0;<span 
class="ectt-1200">.FALSE.</span>&#x00A0;<span 
class="ectt-1200">if</span>&#x00A0;<span 
class="ectt-1200">all</span>&#x00A0;<span 
class="ectt-1200">elements</span>&#x00A0;<span 
class="ectt-1200">of</span>&#x00A0;<span 
class="ectt-1200">mu</span>&#x00A0;<span 
class="ectt-1200">are</span>&#x00A0;<span 
class="ectt-1200">to</span>&#x00A0;<span 
class="ectt-1200">be</span>&#x00A0;<span 
class="ectt-1200">taken</span>&#x00A0;<span 
class="ectt-1200">as</span>&#x00A0;<span 
class="ectt-1200">zero</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">LOGICAL</span>&#x00A0;<span 
class="ectt-1200">MEAN</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(MEAN=.FALSE.)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARHLD(i)</span>&#x00A0;<span 
class="ectt-1200">must</span>&#x00A0;<span 
class="ectt-1200">be</span>&#x00A0;<span 
class="ectt-1200">set</span>&#x00A0;<span 
class="ectt-1200">to</span>&#x00A0;<span 
class="ectt-1200">.TRUE.,</span>&#x00A0;<span 
class="ectt-1200">if</span>&#x00A0;<span 
class="ectt-1200">PAR(i)</span>&#x00A0;<span 
class="ectt-1200">is</span>&#x00A0;<span 
class="ectt-1200">to</span>&#x00A0;<span 
class="ectt-1200">be</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Input</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">held</span>&#x00A0;<span 
class="ectt-1200">constant</span>&#x00A0;<span 
class="ectt-1200">at</span>&#x00A0;<span 
class="ectt-1200">its</span>&#x00A0;<span 
class="ectt-1200">input</span>&#x00A0;<span 
class="ectt-1200">value</span>&#x00A0;<span 
class="ectt-1200">and</span>&#x00A0;<span 
class="ectt-1200">.FALSE.,</span>&#x00A0;<span 
class="ectt-1200">if</span>&#x00A0;<span 
class="ectt-1200">PAR(i)</span>&#x00A0;<span 
class="ectt-1200">is</span>&#x00A0;<span 
class="ectt-1200">a</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">free</span>&#x00A0;<span 
class="ectt-1200">parameter,</span>&#x00A0;<span 
class="ectt-1200">for</span>&#x00A0;<span 
class="ectt-1200">i</span>&#x00A0;<span 
class="ectt-1200">=</span>&#x00A0;<span 
class="ectt-1200">1,2,...,NPAR.</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">LOGICAL</span>&#x00A0;<span 
class="ectt-1200">PARHLD(NPAR)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">EXACT</span>&#x00A0;<span 
class="ectt-1200">must</span>&#x00A0;<span 
class="ectt-1200">be</span>&#x00A0;<span 
class="ectt-1200">set</span>&#x00A0;<span 
class="ectt-1200">equal</span>&#x00A0;<span 
class="ectt-1200">to</span>&#x00A0;<span 
class="ectt-1200">.TRUE.</span>&#x00A0;<span 
class="ectt-1200">if</span>&#x00A0;<span 
class="ectt-1200">the</span>&#x00A0;<span 
class="ectt-1200">user</span>&#x00A0;<span 
class="ectt-1200">wishes</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Input</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">**</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">the</span>&#x00A0;<span 
class="ectt-1200">routine</span>&#x00A0;<span 
class="ectt-1200">to</span>&#x00A0;<span 
class="ectt-1200">compute</span>&#x00A0;<span 
class="ectt-1200">exact</span>&#x00A0;<span 
class="ectt-1200">maximum</span>&#x00A0;<span 
class="ectt-1200">likelihood</span>&#x00A0;<span 
class="ectt-1200">estimates.</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">EXACT</span>&#x00A0;<span 
class="ectt-1200">must</span>&#x00A0;<span 
class="ectt-1200">be</span>&#x00A0;<span 
class="ectt-1200">set</span>&#x00A0;<span 
class="ectt-1200">equal</span>&#x00A0;<span 
class="ectt-1200">to</span>&#x00A0;<span 
class="ectt-1200">.FALSE.</span>&#x00A0;<span 
class="ectt-1200">if</span>&#x00A0;<span 
class="ectt-1200">only</span>&#x00A0;<span 
class="ectt-1200">conditional</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">likelihood</span>&#x00A0;<span 
class="ectt-1200">estimates</span>&#x00A0;<span 
class="ectt-1200">are</span>&#x00A0;<span 
class="ectt-1200">required.</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">voir</span>&#x00A0;<span 
class="ectt-1200">EXACT</span>&#x00A0;<span 
class="ectt-1200">plus</span>&#x00A0;<span 
class="ectt-1200">bas</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">LOGICAL</span>&#x00A0;<span 
class="ectt-1200">EXACT</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">utile</span>&#x00A0;<span 
class="ectt-1200">dans</span>&#x00A0;<span 
class="ectt-1200">simMA.f</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">YtMn(Mind+nT)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">utile</span>&#x00A0;<span 
class="ectt-1200">dans</span>&#x00A0;<span 
class="ectt-1200">simMA.f</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">Atnq(nT+Mind+q)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Esperances</span>&#x00A0;<span 
class="ectt-1200">des</span>&#x00A0;<span 
class="ectt-1200">lois</span>&#x00A0;<span 
class="ectt-1200">SU,</span>&#x00A0;<span 
class="ectt-1200">SB</span>&#x00A0;<span 
class="ectt-1200">et</span>&#x00A0;<span 
class="ectt-1200">S</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">**</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">EspSU,EspSB,EspS</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(EspSU=0,</span>&#x00A0;<span 
class="ectt-1200">EspSB=0,</span>&#x00A0;<span 
class="ectt-1200">EspS=0)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CHARACTER*13</span>&#x00A0;<span 
class="ectt-1200">efface</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">temp(4)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">j</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CHARACTER*5</span>&#x00A0;<span 
class="ectt-1200">ftemp</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CHARACTER*1</span>&#x00A0;<span 
class="ectt-1200">INTCH1</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CHARACTER*2</span>&#x00A0;<span 
class="ectt-1200">INTCH2</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CHARACTER*3</span>&#x00A0;<span 
class="ectt-1200">INTCH3</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CHARACTER*4</span>&#x00A0;<span 
class="ectt-1200">INTCH4</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">matric(n,18)</span>

&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">dnT</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(dnT=Kp)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">QLed1u,QLe12u</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(QLed1u=QuLed1,QLe12u=QuLe12)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">QLed2u,QLe22u</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(QLed2u=QuLed2,QLe22u=QuLe22)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">QBDu,QBD2u</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(QBDu=QuBD,QBD2u=QuBD2)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">QADu,QAD2u</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(QADu=QuAD,QAD2u=QuAD2)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">QJBu,QJB2u</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(QJBu=QuJB,QJB2u=QuJB2)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">the</span>&#x00A0;<span 
class="ectt-1200">mean</span>&#x00A0;<span 
class="ectt-1200">of</span>&#x00A0;<span 
class="ectt-1200">the</span>&#x00A0;<span 
class="ectt-1200">time</span>&#x00A0;<span 
class="ectt-1200">series</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Input</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">E</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(E=mu)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">the</span>&#x00A0;<span 
class="ectt-1200">number</span>&#x00A0;<span 
class="ectt-1200">of</span>&#x00A0;<span 
class="ectt-1200">autoregressive</span>&#x00A0;<span 
class="ectt-1200">coefficients</span>&#x00A0;<span 
class="ectt-1200">supplied</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Input</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">NA</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(NA=p)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">the</span>&#x00A0;<span 
class="ectt-1200">number</span>&#x00A0;<span 
class="ectt-1200">of</span>&#x00A0;<span 
class="ectt-1200">moving-average</span>&#x00A0;<span 
class="ectt-1200">coefficients</span>&#x00A0;<span 
class="ectt-1200">supplied</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Input</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">NB</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(NB=q+1)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">the</span>&#x00A0;<span 
class="ectt-1200">dimension</span>&#x00A0;<span 
class="ectt-1200">of</span>&#x00A0;<span 
class="ectt-1200">the</span>&#x00A0;<span 
class="ectt-1200">array</span>&#x00A0;<span 
class="ectt-1200">R:</span>&#x00A0;<span 
class="ectt-1200">vecteur</span>&#x00A0;<span 
class="ectt-1200">des</span>&#x00A0;<span 
class="ectt-1200">innovations</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Input</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">NR</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(NR=10)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">the</span>&#x00A0;<span 
class="ectt-1200">number</span>&#x00A0;<span 
class="ectt-1200">of</span>&#x00A0;<span 
class="ectt-1200">observed</span>&#x00A0;<span 
class="ectt-1200">time</span>&#x00A0;<span 
class="ectt-1200">series,</span>&#x00A0;<span 
class="ectt-1200">k</span>&#x00A0;&#x00A0;<span 
class="ectt-1200">(chez</span>&#x00A0;<span 
class="ectt-1200">moi</span>&#x00A0;<span 
class="ectt-1200">k=1)</span>&#x00A0;&#x00A0;<span 
class="ectt-1200">Input</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">K</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(K=1)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">the</span>&#x00A0;<span 
class="ectt-1200">number</span>&#x00A0;<span 
class="ectt-1200">of</span>&#x00A0;<span 
class="ectt-1200">observations</span>&#x00A0;<span 
class="ectt-1200">in</span>&#x00A0;<span 
class="ectt-1200">each</span>&#x00A0;<span 
class="ectt-1200">time</span>&#x00A0;<span 
class="ectt-1200">series,</span>&#x00A0;<span 
class="ectt-1200">n</span>&#x00A0;<span 
class="ectt-1200">(chez</span>&#x00A0;<span 
class="ectt-1200">moi=nT)</span>&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Input</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">N2</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(N2=nT)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">the</span>&#x00A0;<span 
class="ectt-1200">number</span>&#x00A0;<span 
class="ectt-1200">of</span>&#x00A0;<span 
class="ectt-1200">AR</span>&#x00A0;<span 
class="ectt-1200">parameter</span>&#x00A0;<span 
class="ectt-1200">matrices,</span>&#x00A0;<span 
class="ectt-1200">p</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Input</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">IP</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(IP=p)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">the</span>&#x00A0;<span 
class="ectt-1200">number</span>&#x00A0;<span 
class="ectt-1200">of</span>&#x00A0;<span 
class="ectt-1200">MA</span>&#x00A0;<span 
class="ectt-1200">parameter</span>&#x00A0;<span 
class="ectt-1200">matrices,</span>&#x00A0;<span 
class="ectt-1200">q</span>&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Input</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">IQ</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(IQ=q)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">the</span>&#x00A0;<span 
class="ectt-1200">first</span>&#x00A0;<span 
class="ectt-1200">dimension</span>&#x00A0;<span 
class="ectt-1200">of</span>&#x00A0;<span 
class="ectt-1200">the</span>&#x00A0;<span 
class="ectt-1200">arrays</span>&#x00A0;<span 
class="ectt-1200">QQ,</span>&#x00A0;<span 
class="ectt-1200">W</span>&#x00A0;<span 
class="ectt-1200">and</span>&#x00A0;<span 
class="ectt-1200">V</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Input</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">IK</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(IK=1)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">the</span>&#x00A0;<span 
class="ectt-1200">maximum</span>&#x00A0;<span 
class="ectt-1200">number</span>&#x00A0;<span 
class="ectt-1200">of</span>&#x00A0;<span 
class="ectt-1200">likelihood</span>&#x00A0;<span 
class="ectt-1200">evaluations</span>&#x00A0;<span 
class="ectt-1200">to</span>&#x00A0;<span 
class="ectt-1200">be</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Input</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">permitted</span>&#x00A0;<span 
class="ectt-1200">by</span>&#x00A0;<span 
class="ectt-1200">the</span>&#x00A0;<span 
class="ectt-1200">search</span>&#x00A0;<span 
class="ectt-1200">procedure</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">MAXCAL</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(MAXCAL=40*NPAR*(NPAR+5))</span>

&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">which</span>&#x00A0;<span 
class="ectt-1200">quantities</span>&#x00A0;<span 
class="ectt-1200">are</span>&#x00A0;<span 
class="ectt-1200">to</span>&#x00A0;<span 
class="ectt-1200">be</span>&#x00A0;<span 
class="ectt-1200">printed</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Input</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">ISHOW</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(ISHOW=0)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">dimension</span>&#x00A0;<span 
class="ectt-1200">of</span>&#x00A0;<span 
class="ectt-1200">the</span>&#x00A0;<span 
class="ectt-1200">array</span>&#x00A0;<span 
class="ectt-1200">WORK</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Input</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">LWORK</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(LWORK=(5+3*(nT)+2*rm)+(2*p+q+2*rm*(rm+2)+9)+</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">+</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">(NPAR+1)*(5*(NPAR+1)+29)/2+(rm+1)**2)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">dimension</span>&#x00A0;<span 
class="ectt-1200">of</span>&#x00A0;<span 
class="ectt-1200">the</span>&#x00A0;<span 
class="ectt-1200">array</span>&#x00A0;<span 
class="ectt-1200">IW</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Input</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">LIW</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(LIW=NPAR+rm+3)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">QQ(i,j)</span>&#x00A0;<span 
class="ectt-1200">must</span>&#x00A0;<span 
class="ectt-1200">be</span>&#x00A0;<span 
class="ectt-1200">set</span>&#x00A0;<span 
class="ectt-1200">equal</span>&#x00A0;<span 
class="ectt-1200">to</span>&#x00A0;<span 
class="ectt-1200">an</span>&#x00A0;<span 
class="ectt-1200">initial</span>&#x00A0;<span 
class="ectt-1200">estimate</span>&#x00A0;<span 
class="ectt-1200">of</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Input/Output</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">the</span>&#x00A0;<span 
class="ectt-1200">(i,j)th</span>&#x00A0;<span 
class="ectt-1200">element</span>&#x00A0;<span 
class="ectt-1200">of</span>&#x00A0;<span 
class="ectt-1200">the</span>&#x00A0;<span 
class="ectt-1200">covariance</span>&#x00A0;<span 
class="ectt-1200">matrix</span>&#x00A0;<span 
class="ectt-1200">of</span>&#x00A0;<span 
class="ectt-1200">the</span>&#x00A0;<span 
class="ectt-1200">residual</span>&#x00A0;<span 
class="ectt-1200">series</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">QQ(IK,K)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">NI,</span>&#x00A0;<span 
class="ectt-1200">NX,</span>&#x00A0;<span 
class="ectt-1200">IFAIL</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(NX=4,NI=9)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">IA(NI)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">XA(NX)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">seed=1</span>&#x00A0;<span 
class="ectt-1200">(non-repeatable</span>&#x00A0;<span 
class="ectt-1200">sequence)</span>&#x00A0;<span 
class="ectt-1200">ou</span>&#x00A0;<span 
class="ectt-1200">seed=0</span>&#x00A0;<span 
class="ectt-1200">(repeatable</span>&#x00A0;<span 
class="ectt-1200">sequence)</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">**</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">seed</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(seed=0)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">-------------------------------------------------------</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Fin</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">declaration</span>&#x00A0;<span 
class="ectt-1200">des</span>&#x00A0;<span 
class="ectt-1200">variables</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">-------------------------------------------------------</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">G05CBF</span>&#x00A0;<span 
class="ectt-1200">Initialise</span>&#x00A0;<span 
class="ectt-1200">random</span>&#x00A0;<span 
class="ectt-1200">number</span>&#x00A0;<span 
class="ectt-1200">generating</span>&#x00A0;<span 
class="ectt-1200">routines</span>&#x00A0;<span 
class="ectt-1200">to</span>&#x00A0;<span 
class="ectt-1200">give</span>&#x00A0;<span 
class="ectt-1200">repeatable</span>&#x00A0;<span 
class="ectt-1200">sequence</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">G05CCF</span>&#x00A0;<span 
class="ectt-1200">Initialise</span>&#x00A0;<span 
class="ectt-1200">random</span>&#x00A0;<span 
class="ectt-1200">number</span>&#x00A0;<span 
class="ectt-1200">generating</span>&#x00A0;<span 
class="ectt-1200">routines</span>&#x00A0;<span 
class="ectt-1200">to</span>&#x00A0;<span 
class="ectt-1200">give</span>&#x00A0;<span 
class="ectt-1200">non-repeatable</span>&#x00A0;<span 
class="ectt-1200">sequence</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">G05CFF</span>&#x00A0;<span 
class="ectt-1200">Save</span>&#x00A0;<span 
class="ectt-1200">state</span>&#x00A0;<span 
class="ectt-1200">of</span>&#x00A0;<span 
class="ectt-1200">random</span>&#x00A0;<span 
class="ectt-1200">number</span>&#x00A0;<span 
class="ectt-1200">generating</span>&#x00A0;<span 
class="ectt-1200">routines</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">G05CGF</span>&#x00A0;<span 
class="ectt-1200">Restore</span>&#x00A0;<span 
class="ectt-1200">state</span>&#x00A0;<span 
class="ectt-1200">of</span>&#x00A0;<span 
class="ectt-1200">random</span>&#x00A0;<span 
class="ectt-1200">number</span>&#x00A0;<span 
class="ectt-1200">generating</span>&#x00A0;<span 
class="ectt-1200">routines</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">IF</span>&#x00A0;<span 
class="ectt-1200">(seed</span>&#x00A0;<span 
class="ectt-1200">.EQ.</span>&#x00A0;<span 
class="ectt-1200">1)</span>&#x00A0;<span 
class="ectt-1200">THEN</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CALL</span>&#x00A0;<span 
class="ectt-1200">G05CCF</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">ENDIF</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">IF</span>&#x00A0;<span 
class="ectt-1200">(seed</span>&#x00A0;<span 
class="ectt-1200">.EQ.</span>&#x00A0;<span 
class="ectt-1200">0)</span>&#x00A0;<span 
class="ectt-1200">THEN</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CALL</span>&#x00A0;<span 
class="ectt-1200">G05CBF(0)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">ENDIF</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">IFAIL=0</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Rajouter</span>&#x00A0;<span 
class="ectt-1200">ici,</span>&#x00A0;<span 
class="ectt-1200">si</span>&#x00A0;<span 
class="ectt-1200">voulu,</span>&#x00A0;<span 
class="ectt-1200">les</span>&#x00A0;<span 
class="ectt-1200">IA</span>&#x00A0;<span 
class="ectt-1200">et</span>&#x00A0;<span 
class="ectt-1200">les</span>&#x00A0;<span 
class="ectt-1200">XA</span>&#x00A0;<span 
class="ectt-1200">a</span>&#x00A0;<span 
class="ectt-1200">prendre</span>&#x00A0;<span 
class="ectt-1200">a</span>&#x00A0;<span 
class="ectt-1200">la</span>&#x00A0;<span 
class="ectt-1200">fin</span>&#x00A0;<span 
class="ectt-1200">du</span>&#x00A0;<span 
class="ectt-1200">fichier</span>&#x00A0;<span 
class="ectt-1200">para.ijkl:</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">**</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">A</span>&#x00A0;<span 
class="ectt-1200">(de)commenter</span>&#x00A0;<span 
class="ectt-1200">si</span>&#x00A0;<span 
class="ectt-1200">necessaire</span>&#x00A0;<span 
class="ectt-1200">(si</span>&#x00A0;<span 
class="ectt-1200">on</span>&#x00A0;<span 
class="ectt-1200">rajoute</span>&#x00A0;<span 
class="ectt-1200">les</span>&#x00A0;<span 
class="ectt-1200">IA</span>&#x00A0;<span 
class="ectt-1200">et</span>&#x00A0;<span 
class="ectt-1200">XA,</span>&#x00A0;<span 
class="ectt-1200">on</span>&#x00A0;<span 
class="ectt-1200">decommente)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CALL</span>&#x00A0;<span 
class="ectt-1200">G05CGF(IA,NI,XA,NX,IFAIL)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CALL</span>&#x00A0;<span 
class="ectt-1200">G05CFF(IA,NI,XA,NX,IFAIL)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">EXACT=.TRUE.</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">**</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">nbcle=n</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">efface=&#x2019;rm</span>&#x00A0;<span 
class="ectt-1200">./data.txt&#x2019;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">ftemp=&#x2019;ftemp&#x2019;</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">On</span>&#x00A0;<span 
class="ectt-1200">va</span>&#x00A0;<span 
class="ectt-1200">lire</span>&#x00A0;<span 
class="ectt-1200">les</span>&#x00A0;<span 
class="ectt-1200">parametres</span>&#x00A0;<span 
class="ectt-1200">necessaires</span>&#x00A0;<span 
class="ectt-1200">dans</span>&#x00A0;<span 
class="ectt-1200">ftemp</span>

&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">temp</span>&#x00A0;<span 
class="ectt-1200">va</span>&#x00A0;<span 
class="ectt-1200">contenir</span>&#x00A0;<span 
class="ectt-1200">sur</span>&#x00A0;<span 
class="ectt-1200">chaque</span>&#x00A0;<span 
class="ectt-1200">ligne:</span>&#x00A0;<span 
class="ectt-1200">j,</span>&#x00A0;<span 
class="ectt-1200">loi,</span>&#x00A0;<span 
class="ectt-1200">teta(1),</span>&#x00A0;<span 
class="ectt-1200">teta(2)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">OPEN(UNIT=15,</span>&#x00A0;<span 
class="ectt-1200">FILE=ftemp</span>&#x00A0;<span 
class="ectt-1200">,</span>&#x00A0;<span 
class="ectt-1200">STATUS=&#x2019;OLD&#x2019;</span>&#x00A0;<span 
class="ectt-1200">)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">READ(15,*,END=10)</span>&#x00A0;<span 
class="ectt-1200">(temp(j),j=1,4)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CLOSE(15)</span>
&#x00A0;<br />&#x00A0;<span 
class="ectt-1200">10</span>&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">j=temp(1)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">loi=temp(2)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">teta(1)=temp(3)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">teta(2)=temp(4)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">phi(1)=0.0</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">phi(2)=0.0</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">On</span>&#x00A0;<span 
class="ectt-1200">sauvegarde</span>&#x00A0;<span 
class="ectt-1200">la</span>&#x00A0;<span 
class="ectt-1200">valeur</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">nbcle</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">nbclea=nbcle</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Nom</span>&#x00A0;<span 
class="ectt-1200">du</span>&#x00A0;<span 
class="ectt-1200">fichier</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">donnees</span>&#x00A0;<span 
class="ectt-1200">en</span>&#x00A0;<span 
class="ectt-1200">sortie</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">**</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">dataf=&#x2019;data.txt&#x2019;</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Permet</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">convertir</span>&#x00A0;<span 
class="ectt-1200">l&#x2019;entier</span>&#x00A0;<span 
class="ectt-1200">j</span>&#x00A0;<span 
class="ectt-1200">en</span>&#x00A0;<span 
class="ectt-1200">chaine</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">caracteres</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">IF</span>&#x00A0;<span 
class="ectt-1200">(j/10</span>&#x00A0;<span 
class="ectt-1200">.LT.</span>&#x00A0;<span 
class="ectt-1200">1)</span>&#x00A0;<span 
class="ectt-1200">THEN</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(INTCH1,</span>&#x00A0;<span 
class="ectt-1200">&#x2019;(I1)&#x2019;)</span>&#x00A0;<span 
class="ectt-1200">j</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Nom</span>&#x00A0;<span 
class="ectt-1200">du</span>&#x00A0;<span 
class="ectt-1200">fichier</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">parametres</span>&#x00A0;<span 
class="ectt-1200">en</span>&#x00A0;<span 
class="ectt-1200">sortie</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">**</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">paramf=&#x2019;./SIMUL/para.&#x2019;//&#x2019;000&#x2019;//INTCH1</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">filew=&#x2019;./SIMUL/resultat.&#x2019;//&#x2019;000&#x2019;//INTCH1</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">ENDIF</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">IF</span>&#x00A0;<span 
class="ectt-1200">((j/10</span>&#x00A0;<span 
class="ectt-1200">.EQ.</span>&#x00A0;<span 
class="ectt-1200">1)</span>&#x00A0;<span 
class="ectt-1200">.OR.</span>&#x00A0;<span 
class="ectt-1200">((j/10</span>&#x00A0;<span 
class="ectt-1200">.GT.</span>&#x00A0;<span 
class="ectt-1200">1)</span>&#x00A0;<span 
class="ectt-1200">.AND.</span>&#x00A0;<span 
class="ectt-1200">(j/10</span>&#x00A0;<span 
class="ectt-1200">.LT.</span>&#x00A0;<span 
class="ectt-1200">10)))</span>&#x00A0;<span 
class="ectt-1200">THEN</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(INTCH2,</span>&#x00A0;<span 
class="ectt-1200">&#x2019;(I2)&#x2019;)</span>&#x00A0;<span 
class="ectt-1200">j</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Nom</span>&#x00A0;<span 
class="ectt-1200">du</span>&#x00A0;<span 
class="ectt-1200">fichier</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">parametres</span>&#x00A0;<span 
class="ectt-1200">en</span>&#x00A0;<span 
class="ectt-1200">sortie</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">**</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">paramf=&#x2019;./SIMUL/para.&#x2019;//&#x2019;00&#x2019;//INTCH2</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">filew=&#x2019;./SIMUL/resultat.&#x2019;//&#x2019;00&#x2019;//INTCH2</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">ENDIF</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">IF</span>&#x00A0;<span 
class="ectt-1200">((j/10</span>&#x00A0;<span 
class="ectt-1200">.EQ.</span>&#x00A0;<span 
class="ectt-1200">10)</span>&#x00A0;<span 
class="ectt-1200">.OR.</span>&#x00A0;<span 
class="ectt-1200">((j/10</span>&#x00A0;<span 
class="ectt-1200">.GT.</span>&#x00A0;<span 
class="ectt-1200">10)</span>&#x00A0;<span 
class="ectt-1200">.AND.</span>&#x00A0;<span 
class="ectt-1200">(j/10</span>&#x00A0;<span 
class="ectt-1200">.LT.</span>&#x00A0;<span 
class="ectt-1200">100)))</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">+</span>&#x00A0;<span 
class="ectt-1200">THEN</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(INTCH3,</span>&#x00A0;<span 
class="ectt-1200">&#x2019;(I3)&#x2019;)</span>&#x00A0;<span 
class="ectt-1200">j</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Nom</span>&#x00A0;<span 
class="ectt-1200">du</span>&#x00A0;<span 
class="ectt-1200">fichier</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">parametres</span>&#x00A0;<span 
class="ectt-1200">en</span>&#x00A0;<span 
class="ectt-1200">sortie</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">**</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">paramf=&#x2019;./SIMUL/para.&#x2019;//&#x2019;0&#x2019;//INTCH3</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">filew=&#x2019;./SIMUL/resultat.&#x2019;//&#x2019;0&#x2019;//INTCH3</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">ENDIF</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">IF</span>&#x00A0;<span 
class="ectt-1200">((j/10</span>&#x00A0;<span 
class="ectt-1200">.EQ.</span>&#x00A0;<span 
class="ectt-1200">100)</span>&#x00A0;<span 
class="ectt-1200">.OR.</span>&#x00A0;<span 
class="ectt-1200">((j/10</span>&#x00A0;<span 
class="ectt-1200">.GT.</span>&#x00A0;<span 
class="ectt-1200">100)</span>&#x00A0;<span 
class="ectt-1200">.AND.</span>&#x00A0;<span 
class="ectt-1200">(j/10</span>&#x00A0;<span 
class="ectt-1200">.LT.</span>&#x00A0;<span 
class="ectt-1200">1000)))</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">+</span>&#x00A0;<span 
class="ectt-1200">THEN</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(INTCH4,</span>&#x00A0;<span 
class="ectt-1200">&#x2019;(I4)&#x2019;)</span>&#x00A0;<span 
class="ectt-1200">j</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Nom</span>&#x00A0;<span 
class="ectt-1200">du</span>&#x00A0;<span 
class="ectt-1200">fichier</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">parametres</span>&#x00A0;<span 
class="ectt-1200">en</span>&#x00A0;<span 
class="ectt-1200">sortie</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">**</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">paramf=&#x2019;./SIMUL/para.&#x2019;//INTCH4</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">filew=&#x2019;./SIMUL/resultat.&#x2019;//INTCH4</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">ENDIF</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">IF</span>&#x00A0;<span 
class="ectt-1200">(loi</span>&#x00A0;<span 
class="ectt-1200">.EQ.</span>&#x00A0;<span 
class="ectt-1200">0)</span>&#x00A0;<span 
class="ectt-1200">THEN</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Quantiles</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">la</span>&#x00A0;<span 
class="ectt-1200">loi</span>&#x00A0;<span 
class="ectt-1200">du</span>&#x00A0;<span 
class="ectt-1200">Khi2</span>&#x00A0;<span 
class="ectt-1200">(K=10;alpha=0.1)</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">**</span>

&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">khi(1)=2.71</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">khi(2)=4.61</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">khi(3)=6.25</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">khi(4)=7.78</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">khi(5)=9.24</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">khi(6)=10.64</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">khi(7)=12.02</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">khi(8)=13.36</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">khi(9)=14.68</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">khi(10)=15.99</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Quantiles</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">la</span>&#x00A0;<span 
class="ectt-1200">loi</span>&#x00A0;<span 
class="ectt-1200">du</span>&#x00A0;<span 
class="ectt-1200">Khi2</span>&#x00A0;<span 
class="ectt-1200">(K=10;alpha=0.05)</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">**</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">khi2(1)=3.84</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">khi2(2)=5.99</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">khi2(3)=7.81</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">khi2(4)=9.49</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">khi2(5)=11.07</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">khi2(6)=12.59</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">khi2(7)=14.07</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">khi2(8)=15.51</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">khi2(9)=16.92</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">khi2(10)=18.31</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">ENDIF</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">IF</span>&#x00A0;<span 
class="ectt-1200">(loi</span>&#x00A0;<span 
class="ectt-1200">.NE.</span>&#x00A0;<span 
class="ectt-1200">0)</span>&#x00A0;<span 
class="ectt-1200">THEN</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Quantiles</span>&#x00A0;<span 
class="ectt-1200">utilises</span>&#x00A0;<span 
class="ectt-1200">pour</span>&#x00A0;<span 
class="ectt-1200">le</span>&#x00A0;<span 
class="ectt-1200">calcul</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">la</span>&#x00A0;<span 
class="ectt-1200">stat(vrais</span>&#x00A0;<span 
class="ectt-1200">quantiles</span>&#x00A0;<span 
class="ectt-1200">calcules</span>&#x00A0;<span 
class="ectt-1200">sous</span>&#x00A0;<span 
class="ectt-1200">H0)</span>&#x00A0;&#x00A0;<span 
class="ectt-1200">**</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">avec</span>&#x00A0;<span 
class="ectt-1200">alpha=0.1</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">khi(1)=2.71</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">khi(2)=4.61</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">khi(3)=6.25</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">khi(4)=7.78</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">khi(5)=9.24</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">khi(6)=10.64</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">khi(7)=12.02</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">khi(8)=13.36</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">khi(9)=14.68</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">khi(10)=15.99</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Quantiles</span>&#x00A0;<span 
class="ectt-1200">utilises</span>&#x00A0;<span 
class="ectt-1200">pour</span>&#x00A0;<span 
class="ectt-1200">le</span>&#x00A0;<span 
class="ectt-1200">calcul</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">la</span>&#x00A0;<span 
class="ectt-1200">stat(vrais</span>&#x00A0;<span 
class="ectt-1200">quantiles</span>&#x00A0;<span 
class="ectt-1200">calcules</span>&#x00A0;<span 
class="ectt-1200">sous</span>&#x00A0;<span 
class="ectt-1200">H0)</span>&#x00A0;&#x00A0;<span 
class="ectt-1200">**</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">avec</span>&#x00A0;<span 
class="ectt-1200">alpha=0.05</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">khi2(1)=3.84</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">khi2(2)=5.99</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">khi2(3)=7.81</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">khi2(4)=9.49</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">khi2(5)=11.07</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">khi2(6)=12.59</span>

&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">khi2(7)=14.07</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">khi2(8)=15.51</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">khi2(9)=16.92</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">khi2(10)=18.31</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">ENDIF</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">On</span>&#x00A0;<span 
class="ectt-1200">peut</span>&#x00A0;<span 
class="ectt-1200">aussi</span>&#x00A0;<span 
class="ectt-1200">changer</span>&#x00A0;<span 
class="ectt-1200">le</span>&#x00A0;<span 
class="ectt-1200">nom</span>&#x00A0;<span 
class="ectt-1200">du</span>&#x00A0;<span 
class="ectt-1200">fichier</span>&#x00A0;<span 
class="ectt-1200">en</span>&#x00A0;<span 
class="ectt-1200">entree</span>&#x00A0;<span 
class="ectt-1200">(data.txt)</span>&#x00A0;<span 
class="ectt-1200">et</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">**</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">le</span>&#x00A0;<span 
class="ectt-1200">nom</span>&#x00A0;<span 
class="ectt-1200">du</span>&#x00A0;<span 
class="ectt-1200">fichier</span>&#x00A0;<span 
class="ectt-1200">en</span>&#x00A0;<span 
class="ectt-1200">sortie</span>&#x00A0;<span 
class="ectt-1200">(resultat.txt)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">filer=&#x2019;data.txt&#x2019;</span>
&#x00A0;<br /><span 
class="ectt-1200">c-----------------------------------------------------------</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">------------------------------------------------------------------------</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DEBUT</span>&#x00A0;<span 
class="ectt-1200">DU</span>&#x00A0;<span 
class="ectt-1200">PROGRAMME</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">------------------------------------------------------------------------</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CALL</span>&#x00A0;<span 
class="ectt-1200">cdatMA(dataf,paramf,nbcle,marret,Mind,sigma,mu,df1,df2,</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">+</span>&#x00A0;<span 
class="ectt-1200">lambda,loi5b,loi5k,loi6p,loi6q,loi7g,loi7d,loi8p,loi8q,loi9a,</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">+loi9b,loi10b,loi10l,loi11a,loi11k,loi13g,loi13d,loi14l,loi16p,</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">+loi16d,loi17p,loi17m,loi18g,loi18d,loi19a,loi19b,loi,p,q,rm,nT,</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">+</span>&#x00A0;<span 
class="ectt-1200">teta,tetach,donees,A,</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">+</span>&#x00A0;<span 
class="ectt-1200">B,R,NPAR,ICM,IW,PAR,W,CGETOL,V,G,CM,WORK,MEAN,PARHLD,EXACT,</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">+</span>&#x00A0;<span 
class="ectt-1200">YtMn,Atnq,EspSU,EspSB,EspS,</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">+E,NA,NB,NR,K,N2,IP,IQ,IK,MAXCAL,ISHOW,LWORK,LIW,QQ)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Il</span>&#x00A0;<span 
class="ectt-1200">faut</span>&#x00A0;<span 
class="ectt-1200">faire</span>&#x00A0;<span 
class="ectt-1200">modifier</span>&#x00A0;<span 
class="ectt-1200">par</span>&#x00A0;<span 
class="ectt-1200">cdARMA</span>&#x00A0;<span 
class="ectt-1200">la</span>&#x00A0;<span 
class="ectt-1200">valeur</span>&#x00A0;<span 
class="ectt-1200">nbcle</span>&#x00A0;<span 
class="ectt-1200">en</span>&#x00A0;<span 
class="ectt-1200">entree</span>&#x00A0;<span 
class="ectt-1200">pour</span>&#x00A0;<span 
class="ectt-1200">lui</span>&#x00A0;<span 
class="ectt-1200">faire</span>&#x00A0;<span 
class="ectt-1200">sortir</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">une</span>&#x00A0;<span 
class="ectt-1200">nouvelle</span>&#x00A0;<span 
class="ectt-1200">valeur</span>&#x00A0;<span 
class="ectt-1200">nbcle</span>&#x00A0;<span 
class="ectt-1200">qui</span>&#x00A0;<span 
class="ectt-1200">est</span>&#x00A0;<span 
class="ectt-1200">le</span>&#x00A0;<span 
class="ectt-1200">nombre</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">bons</span>&#x00A0;<span 
class="ectt-1200">echantillons</span>&#x00A0;<span 
class="ectt-1200">conserves</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Ensuite,</span>&#x00A0;<span 
class="ectt-1200">il</span>&#x00A0;<span 
class="ectt-1200">faut</span>&#x00A0;<span 
class="ectt-1200">utiliser</span>&#x00A0;<span 
class="ectt-1200">cette</span>&#x00A0;<span 
class="ectt-1200">valeur</span>&#x00A0;<span 
class="ectt-1200">dans</span>&#x00A0;<span 
class="ectt-1200">calcstat,</span>&#x00A0;<span 
class="ectt-1200">comme</span>&#x00A0;<span 
class="ectt-1200">etant</span>&#x00A0;<span 
class="ectt-1200">la</span>&#x00A0;<span 
class="ectt-1200">vraie</span>&#x00A0;<span 
class="ectt-1200">valeur</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">du</span>&#x00A0;<span 
class="ectt-1200">nombre</span>&#x00A0;<span 
class="ectt-1200">d&#x2019;echantillons</span>&#x00A0;<span 
class="ectt-1200">disponibles,</span>&#x00A0;<span 
class="ectt-1200">la</span>&#x00A0;<span 
class="ectt-1200">valeur</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">n</span>&#x00A0;<span 
class="ectt-1200">que</span>&#x00A0;<span 
class="ectt-1200">l&#x2019;on</span>&#x00A0;<span 
class="ectt-1200">a</span>&#x00A0;<span 
class="ectt-1200">mise</span>&#x00A0;<span 
class="ectt-1200">etant</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">la</span>&#x00A0;<span 
class="ectt-1200">valeur</span>&#x00A0;<span 
class="ectt-1200">maximale</span>&#x00A0;<span 
class="ectt-1200">possible</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">bons</span>&#x00A0;<span 
class="ectt-1200">echantillons,</span>&#x00A0;<span 
class="ectt-1200">donc</span>&#x00A0;<span 
class="ectt-1200">les</span>&#x00A0;<span 
class="ectt-1200">differentes</span>&#x00A0;<span 
class="ectt-1200">matrices</span>&#x00A0;<span 
class="ectt-1200">initialisees</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">a</span>&#x00A0;<span 
class="ectt-1200">l&#x2019;aide</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">la</span>&#x00A0;<span 
class="ectt-1200">valeur</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">n</span>&#x00A0;<span 
class="ectt-1200">sont</span>&#x00A0;<span 
class="ectt-1200">plus</span>&#x00A0;<span 
class="ectt-1200">grandes</span>&#x00A0;<span 
class="ectt-1200">que</span>&#x00A0;<span 
class="ectt-1200">necessaires</span>&#x00A0;<span 
class="ectt-1200">(elles</span>&#x00A0;<span 
class="ectt-1200">auraient</span>&#x00A0;<span 
class="ectt-1200">du</span>&#x00A0;<span 
class="ectt-1200">etre</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">initialisees</span>&#x00A0;<span 
class="ectt-1200">avec</span>&#x00A0;<span 
class="ectt-1200">la</span>&#x00A0;<span 
class="ectt-1200">valeur</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">nbcle</span>&#x00A0;<span 
class="ectt-1200">renvoyee</span>&#x00A0;<span 
class="ectt-1200">par</span>&#x00A0;<span 
class="ectt-1200">cd</span>&#x00A0;<span 
class="ectt-1200">ARMA</span>&#x00A0;<span 
class="ectt-1200">mais</span>&#x00A0;<span 
class="ectt-1200">ce</span>&#x00A0;<span 
class="ectt-1200">n&#x2019;est</span>&#x00A0;<span 
class="ectt-1200">pas</span>&#x00A0;<span 
class="ectt-1200">possible</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">avec</span>&#x00A0;<span 
class="ectt-1200">fortran77)</span>&#x00A0;<span 
class="ectt-1200">et</span>&#x00A0;<span 
class="ectt-1200">il</span>&#x00A0;<span 
class="ectt-1200">faut</span>&#x00A0;<span 
class="ectt-1200">en</span>&#x00A0;<span 
class="ectt-1200">tenir</span>&#x00A0;<span 
class="ectt-1200">compte;</span>&#x00A0;<span 
class="ectt-1200">donc</span>&#x00A0;<span 
class="ectt-1200">bien</span>&#x00A0;<span 
class="ectt-1200">regarder</span>&#x00A0;<span 
class="ectt-1200">partout</span>&#x00A0;<span 
class="ectt-1200">dans</span>&#x00A0;<span 
class="ectt-1200">le</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">programme</span>&#x00A0;<span 
class="ectt-1200">calcstat</span>&#x00A0;<span 
class="ectt-1200">la</span>&#x00A0;<span 
class="ectt-1200">ou</span>&#x00A0;<span 
class="ectt-1200">il</span>&#x00A0;<span 
class="ectt-1200">y</span>&#x00A0;<span 
class="ectt-1200">a</span>&#x00A0;<span 
class="ectt-1200">n:</span>&#x00A0;<span 
class="ectt-1200">OK</span>&#x00A0;<span 
class="ectt-1200">CA</span>&#x00A0;<span 
class="ectt-1200">C&#x2019;EST</span>&#x00A0;<span 
class="ectt-1200">FAIT!!!</span>&#x00A0;<span 
class="ectt-1200">A</span>&#x00A0;<span 
class="ectt-1200">METTRE</span>&#x00A0;<span 
class="ectt-1200">EN</span>&#x00A0;<span 
class="ectt-1200">COMMENTAIRES</span>&#x00A0;<span 
class="ectt-1200">QUELQUEPART</span>&#x00A0;<span 
class="ectt-1200">...</span>
&#x00A0;<br /><span 
class="ectt-1200">CALL</span>&#x00A0;<span 
class="ectt-1200">calcstat(isa,khi,khi2,QuLed1,QuLe12,QuLed2,QuLe22,QuBD,</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">+</span>&#x00A0;<span 
class="ectt-1200">QuBD2,QuAD,QuAD2,QuJB,QuJB2,alpha,alpha2,Kp,p,q,nT,phi,teta,n,</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">+</span>&#x00A0;<span 
class="ectt-1200">nbcle,m,filer,filew,valeur,sch2vc,epscha,compt,compt2,statn,</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">+</span>&#x00A0;<span 
class="ectt-1200">KoLed1,KoLed2,Ledwi1,Ledwi2,snLed1,snLed2,stanBD,stanAD,stanJB,Z,</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">+</span>&#x00A0;<span 
class="ectt-1200">D,Davant,E2,U,hUetoi,Uavant,hKetoi,hU,hK,vecteu,vectoi,stat,</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">+</span>&#x00A0;<span 
class="ectt-1200">Zavant,BDa,BDb,BDc,BDd,Davan2,ADa,ADb,Puiss,Puiss2,snsort,snsorv,</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">+</span>&#x00A0;<span 
class="ectt-1200">Qucalc,snLe1s,snLe2s,snBDso,snADso,snJBso,matric,paramf,loi,</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">+</span>&#x00A0;<span 
class="ectt-1200">dnT,QLed1u,QLe12u,QLed2u,QLe22u,QBDu,QBD2u,QADu,QAD2u,QJBu,QJB2u)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">nbcle=nbclea</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">FAIRE</span>&#x00A0;<span 
class="ectt-1200">ATTENTION:</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">voir</span>&#x00A0;<span 
class="ectt-1200">si</span>&#x00A0;<span 
class="ectt-1200">mes</span>&#x00A0;<span 
class="ectt-1200">programmes</span>&#x00A0;<span 
class="ectt-1200">ne</span>&#x00A0;<span 
class="ectt-1200">modifient</span>&#x00A0;<span 
class="ectt-1200">pas</span>&#x00A0;<span 
class="ectt-1200">certains</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">leurs</span>&#x00A0;<span 
class="ectt-1200">parametres</span>&#x00A0;<span 
class="ectt-1200">en</span>&#x00A0;<span 
class="ectt-1200">entree</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">ce</span>&#x00A0;<span 
class="ectt-1200">qui</span>&#x00A0;<span 
class="ectt-1200">pourrait</span>&#x00A0;<span 
class="ectt-1200">ammener</span>&#x00A0;<span 
class="ectt-1200">des</span>&#x00A0;<span 
class="ectt-1200">erreurs</span>&#x00A0;<span 
class="ectt-1200">au</span>&#x00A0;<span 
class="ectt-1200">cours</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">la</span>&#x00A0;<span 
class="ectt-1200">boucle</span>&#x00A0;<span 
class="ectt-1200">que</span>&#x00A0;<span 
class="ectt-1200">je</span>&#x00A0;<span 
class="ectt-1200">vais</span>&#x00A0;<span 
class="ectt-1200">faire</span>&#x00A0;<span 
class="ectt-1200">dans</span>&#x00A0;<span 
class="ectt-1200">le</span>&#x00A0;<span 
class="ectt-1200">programme</span>&#x00A0;<span 
class="ectt-1200">test.f</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">pour</span>&#x00A0;<span 
class="ectt-1200">les</span>&#x00A0;<span 
class="ectt-1200">differentes</span>&#x00A0;<span 
class="ectt-1200">etapes</span>&#x00A0;<span 
class="ectt-1200">1),</span>&#x00A0;<span 
class="ectt-1200">2)</span>&#x00A0;<span 
class="ectt-1200">et</span>&#x00A0;<span 
class="ectt-1200">3)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CALL</span>&#x00A0;<span 
class="ectt-1200">SYSTEM(efface)</span>

&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Sauvegarde</span>&#x00A0;<span 
class="ectt-1200">du</span>&#x00A0;<span 
class="ectt-1200">seed</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">OPEN(UNIT=14,</span>&#x00A0;<span 
class="ectt-1200">FILE=paramf</span>&#x00A0;<span 
class="ectt-1200">,</span>&#x00A0;<span 
class="ectt-1200">STATUS=&#x2019;OLD&#x2019;,</span>&#x00A0;<span 
class="ectt-1200">ACCESS=&#x2019;append&#x2019;</span>&#x00A0;<span 
class="ectt-1200">)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(14,*)</span>&#x00A0;<span 
class="ectt-1200">&#x2019;Sauvegarde</span>&#x00A0;<span 
class="ectt-1200">du</span>&#x00A0;<span 
class="ectt-1200">seed:&#x2019;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(14,*)</span>&#x00A0;<span 
class="ectt-1200">&#x2019;XA:&#x2019;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(14,15)</span>&#x00A0;<span 
class="ectt-1200">&#x2019;XA(1)=&#x2019;,XA(1)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(14,15)</span>&#x00A0;<span 
class="ectt-1200">&#x2019;XA(2)=&#x2019;,XA(2)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(14,15)</span>&#x00A0;<span 
class="ectt-1200">&#x2019;XA(3)=&#x2019;,XA(3)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(14,15)</span>&#x00A0;<span 
class="ectt-1200">&#x2019;XA(4)=&#x2019;,XA(4)</span>
&#x00A0;<br />&#x00A0;<span 
class="ectt-1200">15</span>&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">FORMAT(A6,1F20.15)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(14,*)</span>&#x00A0;<span 
class="ectt-1200">&#x2019;IA:&#x2019;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(14,30)</span>&#x00A0;<span 
class="ectt-1200">&#x2019;IA(1)=&#x2019;,IA(1)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(14,30)</span>&#x00A0;<span 
class="ectt-1200">&#x2019;IA(2)=&#x2019;,IA(2)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(14,30)</span>&#x00A0;<span 
class="ectt-1200">&#x2019;IA(3)=&#x2019;,IA(3)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(14,30)</span>&#x00A0;<span 
class="ectt-1200">&#x2019;IA(4)=&#x2019;,IA(4)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(14,30)</span>&#x00A0;<span 
class="ectt-1200">&#x2019;IA(5)=&#x2019;,IA(5)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(14,30)</span>&#x00A0;<span 
class="ectt-1200">&#x2019;IA(6)=&#x2019;,IA(6)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(14,30)</span>&#x00A0;<span 
class="ectt-1200">&#x2019;IA(7)=&#x2019;,IA(7)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(14,30)</span>&#x00A0;<span 
class="ectt-1200">&#x2019;IA(8)=&#x2019;,IA(8)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(14,30)</span>&#x00A0;<span 
class="ectt-1200">&#x2019;IA(9)=&#x2019;,IA(9)</span>
&#x00A0;<br />&#x00A0;<span 
class="ectt-1200">30</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">FORMAT(A6,1I10)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CLOSE(UNIT=14)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">END</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INCLUDE</span>&#x00A0;<span 
class="ectt-1200">&#x2019;mean.f&#x2019;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INCLUDE</span>&#x00A0;<span 
class="ectt-1200">&#x2019;simulMA.f&#x2019;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INCLUDE</span>&#x00A0;<span 
class="ectt-1200">&#x2019;rskew.f&#x2019;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INCLUDE</span>&#x00A0;<span 
class="ectt-1200">&#x2019;rlap.f&#x2019;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INCLUDE</span>&#x00A0;<span 
class="ectt-1200">&#x2019;rpare.f&#x2019;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INCLUDE</span>&#x00A0;<span 
class="ectt-1200">&#x2019;rspare.f&#x2019;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INCLUDE</span>&#x00A0;<span 
class="ectt-1200">&#x2019;rSU.f&#x2019;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INCLUDE</span>&#x00A0;<span 
class="ectt-1200">&#x2019;rTU.f&#x2019;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INCLUDE</span>&#x00A0;<span 
class="ectt-1200">&#x2019;rSC.f&#x2019;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INCLUDE</span>&#x00A0;<span 
class="ectt-1200">&#x2019;rLC.f&#x2019;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INCLUDE</span>&#x00A0;<span 
class="ectt-1200">&#x2019;rSB.f&#x2019;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INCLUDE</span>&#x00A0;<span 
class="ectt-1200">&#x2019;rS.f&#x2019;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INCLUDE</span>&#x00A0;<span 
class="ectt-1200">&#x2019;H1etoile.f&#x2019;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INCLUDE</span>&#x00A0;<span 
class="ectt-1200">&#x2019;H2etoile.f&#x2019;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INCLUDE</span>&#x00A0;<span 
class="ectt-1200">&#x2019;H3etoile.f&#x2019;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INCLUDE</span>&#x00A0;<span 
class="ectt-1200">&#x2019;H4etoile.f&#x2019;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INCLUDE</span>&#x00A0;<span 
class="ectt-1200">&#x2019;H5etoile.f&#x2019;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INCLUDE</span>&#x00A0;<span 
class="ectt-1200">&#x2019;H6etoile.f&#x2019;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INCLUDE</span>&#x00A0;<span 
class="ectt-1200">&#x2019;H7etoile.f&#x2019;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INCLUDE</span>&#x00A0;<span 
class="ectt-1200">&#x2019;H8etoile.f&#x2019;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INCLUDE</span>&#x00A0;<span 
class="ectt-1200">&#x2019;H9etoile.f&#x2019;</span>

&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INCLUDE</span>&#x00A0;<span 
class="ectt-1200">&#x2019;H10etoile.f&#x2019;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INCLUDE</span>&#x00A0;<span 
class="ectt-1200">&#x2019;H1isa.f&#x2019;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INCLUDE</span>&#x00A0;<span 
class="ectt-1200">&#x2019;H2isa.f&#x2019;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INCLUDE</span>&#x00A0;<span 
class="ectt-1200">&#x2019;H3isa.f&#x2019;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INCLUDE</span>&#x00A0;<span 
class="ectt-1200">&#x2019;H4isa.f&#x2019;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INCLUDE</span>&#x00A0;<span 
class="ectt-1200">&#x2019;H5isa.f&#x2019;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INCLUDE</span>&#x00A0;<span 
class="ectt-1200">&#x2019;H6isa.f&#x2019;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INCLUDE</span>&#x00A0;<span 
class="ectt-1200">&#x2019;H7isa.f&#x2019;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INCLUDE</span>&#x00A0;<span 
class="ectt-1200">&#x2019;H8isa.f&#x2019;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INCLUDE</span>&#x00A0;<span 
class="ectt-1200">&#x2019;H9isa.f&#x2019;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INCLUDE</span>&#x00A0;<span 
class="ectt-1200">&#x2019;H10isa.f&#x2019;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INCLUDE</span>&#x00A0;<span 
class="ectt-1200">&#x2019;H1.f&#x2019;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INCLUDE</span>&#x00A0;<span 
class="ectt-1200">&#x2019;H2.f&#x2019;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INCLUDE</span>&#x00A0;<span 
class="ectt-1200">&#x2019;H3.f&#x2019;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INCLUDE</span>&#x00A0;<span 
class="ectt-1200">&#x2019;H4.f&#x2019;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INCLUDE</span>&#x00A0;<span 
class="ectt-1200">&#x2019;H5.f&#x2019;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INCLUDE</span>&#x00A0;<span 
class="ectt-1200">&#x2019;H6.f&#x2019;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INCLUDE</span>&#x00A0;<span 
class="ectt-1200">&#x2019;H7.f&#x2019;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INCLUDE</span>&#x00A0;<span 
class="ectt-1200">&#x2019;H8.f&#x2019;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INCLUDE</span>&#x00A0;<span 
class="ectt-1200">&#x2019;H9.f&#x2019;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INCLUDE</span>&#x00A0;<span 
class="ectt-1200">&#x2019;H10.f&#x2019;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INCLUDE</span>&#x00A0;<span 
class="ectt-1200">&#x2019;qnorm.f&#x2019;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INCLUDE</span>&#x00A0;<span 
class="ectt-1200">&#x2019;pnorm.f&#x2019;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INCLUDE</span>&#x00A0;<span 
class="ectt-1200">&#x2019;min.f&#x2019;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INCLUDE</span>&#x00A0;<span 
class="ectt-1200">&#x2019;max.f&#x2019;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INCLUDE</span>&#x00A0;<span 
class="ectt-1200">&#x2019;var.f&#x2019;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INCLUDE</span>&#x00A0;<span 
class="ectt-1200">&#x2019;creerdat_MA.f&#x2019;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INCLUDE</span>&#x00A0;<span 
class="ectt-1200">&#x2019;calcstat.f&#x2019;</span>
</div> <span 
class="ecbx-1200">Programme big_prog_ARMA11.f </span><div class="verbatiminput">
<span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Idee</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">ce</span>&#x00A0;&#x00A0;<span 
class="ectt-1200">programme:</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Etape1)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">On</span>&#x00A0;<span 
class="ectt-1200">cree</span>&#x00A0;<span 
class="ectt-1200">un</span>&#x00A0;<span 
class="ectt-1200">fichier</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">donnees</span>&#x00A0;<span 
class="ectt-1200">&#x2019;data.txt&#x2019;</span>&#x00A0;<span 
class="ectt-1200">en</span>&#x00A0;<span 
class="ectt-1200">utilisant</span>&#x00A0;<span 
class="ectt-1200">certaines</span>&#x00A0;<span 
class="ectt-1200">valeurs</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">parametres</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">a</span>&#x00A0;<span 
class="ectt-1200">lire</span>&#x00A0;<span 
class="ectt-1200">dans</span>&#x00A0;<span 
class="ectt-1200">un</span>&#x00A0;<span 
class="ectt-1200">fichier</span>&#x00A0;<span 
class="ectt-1200">d&#x2019;entree</span>&#x00A0;<span 
class="ectt-1200">&#x2019;ftemp&#x2019;</span>&#x00A0;<span 
class="ectt-1200">cree</span>&#x00A0;<span 
class="ectt-1200">par</span>&#x00A0;<span 
class="ectt-1200">le</span>&#x00A0;<span 
class="ectt-1200">programme</span>&#x00A0;<span 
class="ectt-1200">test.f</span>&#x00A0;<span 
class="ectt-1200">a</span>&#x00A0;<span 
class="ectt-1200">l&#x2019;aide</span>&#x00A0;<span 
class="ectt-1200">du</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">fichier</span>&#x00A0;<span 
class="ectt-1200">&#x2019;paramentree&#x2019;,</span>&#x00A0;<span 
class="ectt-1200">on</span>&#x00A0;<span 
class="ectt-1200">stocke</span>&#x00A0;<span 
class="ectt-1200">les</span>&#x00A0;<span 
class="ectt-1200">resultats</span>&#x00A0;<span 
class="ectt-1200">autres</span>&#x00A0;<span 
class="ectt-1200">que</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">les</span>&#x00A0;<span 
class="ectt-1200">donnees</span>&#x00A0;<span 
class="ectt-1200">dans</span>&#x00A0;<span 
class="ectt-1200">un</span>&#x00A0;<span 
class="ectt-1200">fichier</span>&#x00A0;<span 
class="ectt-1200">&#x2019;param.i&#x2019;</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Etape</span>&#x00A0;<span 
class="ectt-1200">2)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">ensuite</span>&#x00A0;<span 
class="ectt-1200">on</span>&#x00A0;<span 
class="ectt-1200">utilise</span>&#x00A0;<span 
class="ectt-1200">le</span>&#x00A0;<span 
class="ectt-1200">fichier</span>&#x00A0;<span 
class="ectt-1200">&#x2019;data.txt&#x2019;</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">avec</span>&#x00A0;<span 
class="ectt-1200">le</span>&#x00A0;<span 
class="ectt-1200">programme</span>&#x00A0;<span 
class="ectt-1200">calcstat</span>&#x00A0;<span 
class="ectt-1200">pour</span>&#x00A0;<span 
class="ectt-1200">creer</span>&#x00A0;<span 
class="ectt-1200">le</span>&#x00A0;<span 
class="ectt-1200">fichier</span>&#x00A0;<span 
class="ectt-1200">des</span>&#x00A0;<span 
class="ectt-1200">statistiques</span>&#x00A0;<span 
class="ectt-1200">&#x2019;resultat.i&#x2019;</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Etape</span>&#x00A0;<span 
class="ectt-1200">3)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Ensuite,</span>&#x00A0;<span 
class="ectt-1200">on</span>&#x00A0;<span 
class="ectt-1200">efface</span>&#x00A0;<span 
class="ectt-1200">le</span>&#x00A0;<span 
class="ectt-1200">fichier</span>&#x00A0;<span 
class="ectt-1200">&#x2019;data.txt&#x2019;</span>

&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PROGRAM</span>&#x00A0;<span 
class="ectt-1200">main</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Les</span>&#x00A0;<span 
class="ectt-1200">**</span>&#x00A0;<span 
class="ectt-1200">indiquent</span>&#x00A0;<span 
class="ectt-1200">les</span>&#x00A0;<span 
class="ectt-1200">endroits</span>&#x00A0;<span 
class="ectt-1200">ou</span>&#x00A0;<span 
class="ectt-1200">des</span>&#x00A0;<span 
class="ectt-1200">changements</span>&#x00A0;<span 
class="ectt-1200">peuvent</span>&#x00A0;<span 
class="ectt-1200">etre</span>&#x00A0;<span 
class="ectt-1200">necessaires</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">--------------------------------------------------------------------------</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DEBUT</span>&#x00A0;<span 
class="ectt-1200">DE</span>&#x00A0;<span 
class="ectt-1200">DECLARATION</span>&#x00A0;<span 
class="ectt-1200">DES</span>&#x00A0;<span 
class="ectt-1200">VARIABLES</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">--------------------------------------------------------------------------</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Si</span>&#x00A0;<span 
class="ectt-1200">isa=.TRUE.</span>&#x00A0;<span 
class="ectt-1200">(ie</span>&#x00A0;<span 
class="ectt-1200">MEAN=.TRUE.)</span>&#x00A0;<span 
class="ectt-1200">on</span>&#x00A0;<span 
class="ectt-1200">prend</span>&#x00A0;<span 
class="ectt-1200">les</span>&#x00A0;<span 
class="ectt-1200">polynomes</span>&#x00A0;<span 
class="ectt-1200">modifies</span>&#x00A0;<span 
class="ectt-1200">avec</span>&#x00A0;<span 
class="ectt-1200">les</span>&#x00A0;<span 
class="ectt-1200">ak</span>&#x00A0;&#x00A0;<span 
class="ectt-1200">**</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Si</span>&#x00A0;<span 
class="ectt-1200">isa=.FALSE.</span>&#x00A0;<span 
class="ectt-1200">(ie</span>&#x00A0;<span 
class="ectt-1200">MEAN=.FALSE.)</span>&#x00A0;<span 
class="ectt-1200">on</span>&#x00A0;<span 
class="ectt-1200">prend</span>&#x00A0;<span 
class="ectt-1200">les</span>&#x00A0;<span 
class="ectt-1200">polynomes</span>&#x00A0;<span 
class="ectt-1200">modifies</span>&#x00A0;<span 
class="ectt-1200">sans</span>&#x00A0;<span 
class="ectt-1200">les</span>&#x00A0;<span 
class="ectt-1200">ak</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">LOGICAL</span>&#x00A0;<span 
class="ectt-1200">isa</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(isa=.FALSE.)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">------------------------------------</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">parametres</span>&#x00A0;<span 
class="ectt-1200">calcstat</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Niveau</span>&#x00A0;<span 
class="ectt-1200">1</span>&#x00A0;<span 
class="ectt-1200">du</span>&#x00A0;<span 
class="ectt-1200">test</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">**</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">alpha</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(alpha=0.1)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Niveau</span>&#x00A0;<span 
class="ectt-1200">2</span>&#x00A0;<span 
class="ectt-1200">du</span>&#x00A0;<span 
class="ectt-1200">test</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">**</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">alpha2</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(alpha2=0.05)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Quantiles</span>&#x00A0;<span 
class="ectt-1200">avec</span>&#x00A0;<span 
class="ectt-1200">alpha</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;&#x00A0;<span 
class="ectt-1200">khi(10)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Quantiles</span>&#x00A0;<span 
class="ectt-1200">avec</span>&#x00A0;<span 
class="ectt-1200">alpha2</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;&#x00A0;<span 
class="ectt-1200">khi2(10)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Quantiles</span>&#x00A0;<span 
class="ectt-1200">Ledwi1</span>&#x00A0;<span 
class="ectt-1200">et</span>&#x00A0;<span 
class="ectt-1200">Ledwi2</span>&#x00A0;<span 
class="ectt-1200">avec</span>&#x00A0;<span 
class="ectt-1200">alpha</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">**</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">QuLed1,</span>&#x00A0;<span 
class="ectt-1200">QuLed2</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">avec</span>&#x00A0;<span 
class="ectt-1200">T=50</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(QuLed1=3.69,QuLed2=5.466)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">avec</span>&#x00A0;<span 
class="ectt-1200">T=100</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(QuLed1=3.275,QuLed2=5.26)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">avec</span>&#x00A0;<span 
class="ectt-1200">T=200</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(QuLed1=3.057,QuLed2=5.043)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Quantiles</span>&#x00A0;<span 
class="ectt-1200">Ledwi1</span>&#x00A0;<span 
class="ectt-1200">et</span>&#x00A0;<span 
class="ectt-1200">Ledwi2</span>&#x00A0;<span 
class="ectt-1200">avec</span>&#x00A0;<span 
class="ectt-1200">alpha2</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">**</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">QuLe12,</span>&#x00A0;<span 
class="ectt-1200">QuLe22</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">avec</span>&#x00A0;<span 
class="ectt-1200">T=50</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(QuLe12=5.41,QuLe22=7.14)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">avec</span>&#x00A0;<span 
class="ectt-1200">T=100</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(QuLe12=5.20,QuLe22=6.97)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">avec</span>&#x00A0;<span 
class="ectt-1200">T=200</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(QuLe12=4.751,QuLe22=6.796)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Quantiles</span>&#x00A0;<span 
class="ectt-1200">Brockwell</span>&#x00A0;<span 
class="ectt-1200">et</span>&#x00A0;<span 
class="ectt-1200">Davis</span>&#x00A0;<span 
class="ectt-1200">et</span>&#x00A0;<span 
class="ectt-1200">Anderson</span>&#x00A0;<span 
class="ectt-1200">Darling</span>&#x00A0;<span 
class="ectt-1200">et</span>&#x00A0;<span 
class="ectt-1200">JB</span>&#x00A0;<span 
class="ectt-1200">avec</span>&#x00A0;<span 
class="ectt-1200">alpha</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">**</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">QuBD,</span>&#x00A0;<span 
class="ectt-1200">QuAD,</span>&#x00A0;<span 
class="ectt-1200">QuJB</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">avec</span>&#x00A0;<span 
class="ectt-1200">T=50</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(QuBD=0.920,QuAD=1.743,QuJB=4.61)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">avec</span>&#x00A0;<span 
class="ectt-1200">T=100</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(QuBD=0.958,QuAD=1.743,QuJB=4.61)</span>

&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">avec</span>&#x00A0;<span 
class="ectt-1200">T=200</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(QuBD=0.978,QuAD=1.743,QuJB=4.61)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Quantiles</span>&#x00A0;<span 
class="ectt-1200">Brockwell</span>&#x00A0;<span 
class="ectt-1200">et</span>&#x00A0;<span 
class="ectt-1200">Davis</span>&#x00A0;<span 
class="ectt-1200">et</span>&#x00A0;<span 
class="ectt-1200">Anderson</span>&#x00A0;<span 
class="ectt-1200">Darling</span>&#x00A0;<span 
class="ectt-1200">et</span>&#x00A0;<span 
class="ectt-1200">JB</span>&#x00A0;<span 
class="ectt-1200">avec</span>&#x00A0;<span 
class="ectt-1200">alpha2</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">**</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">QuBD2,</span>&#x00A0;<span 
class="ectt-1200">QuAD2,</span>&#x00A0;<span 
class="ectt-1200">QuJB2</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">avec</span>&#x00A0;<span 
class="ectt-1200">T=50</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(QuBD2=0.899,QuAD2=2.308,QuJB2=5.99)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">avec</span>&#x00A0;<span 
class="ectt-1200">T=100</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(QuBD2=0.947,QuAD2=2.308,QuJB2=5.99)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">avec</span>&#x00A0;<span 
class="ectt-1200">T=200</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(QuBD2=0.973,QuAD2=2.308,QuJB2=5.99)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Nombre</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">polynomes</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">**</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">Kp</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(Kp=10)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">ordre</span>&#x00A0;<span 
class="ectt-1200">du</span>&#x00A0;<span 
class="ectt-1200">modele</span>&#x00A0;<span 
class="ectt-1200">AR</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">p</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(p=1)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">ordre</span>&#x00A0;<span 
class="ectt-1200">du</span>&#x00A0;<span 
class="ectt-1200">modele</span>&#x00A0;<span 
class="ectt-1200">MA</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">q</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(q=1)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">nombre</span>&#x00A0;<span 
class="ectt-1200">d&#x2019;observations</span>&#x00A0;<span 
class="ectt-1200">dans</span>&#x00A0;<span 
class="ectt-1200">mon</span>&#x00A0;<span 
class="ectt-1200">echantillon</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">**</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Si</span>&#x00A0;<span 
class="ectt-1200">on</span>&#x00A0;<span 
class="ectt-1200">change</span>&#x00A0;<span 
class="ectt-1200">la</span>&#x00A0;<span 
class="ectt-1200">valeur</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">nT,</span>&#x00A0;<span 
class="ectt-1200">il</span>&#x00A0;<span 
class="ectt-1200">faut</span>&#x00A0;<span 
class="ectt-1200">aller</span>&#x00A0;<span 
class="ectt-1200">modifier</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">la</span>&#x00A0;<span 
class="ectt-1200">valeur</span>&#x00A0;<span 
class="ectt-1200">dans</span>&#x00A0;<span 
class="ectt-1200">FORMAT</span>&#x00A0;<span 
class="ectt-1200">a</span>&#x00A0;<span 
class="ectt-1200">la</span>&#x00A0;<span 
class="ectt-1200">fin</span>&#x00A0;<span 
class="ectt-1200">du</span>&#x00A0;<span 
class="ectt-1200">programme</span>&#x00A0;<span 
class="ectt-1200">creerdat_ARMA.f</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">nT</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(nT=50)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">n,m</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(m=nT+1)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">n=nombre</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">lignes</span>&#x00A0;<span 
class="ectt-1200">au</span>&#x00A0;<span 
class="ectt-1200">maximum</span>&#x00A0;<span 
class="ectt-1200">dans</span>&#x00A0;<span 
class="ectt-1200">le</span>&#x00A0;<span 
class="ectt-1200">fichier</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">donnees</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">**</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">cela</span>&#x00A0;<span 
class="ectt-1200">correspond</span>&#x00A0;<span 
class="ectt-1200">a</span>&#x00A0;<span 
class="ectt-1200">nbcle</span>&#x00A0;<span 
class="ectt-1200">s&#x2019;il</span>&#x00A0;<span 
class="ectt-1200">n&#x2019;y</span>&#x00A0;<span 
class="ectt-1200">a</span>&#x00A0;<span 
class="ectt-1200">pas</span>&#x00A0;<span 
class="ectt-1200">eu</span>&#x00A0;<span 
class="ectt-1200">d&#x2019;erreurs</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">dans</span>&#x00A0;<span 
class="ectt-1200">tous</span>&#x00A0;<span 
class="ectt-1200">les</span>&#x00A0;<span 
class="ectt-1200">cas</span>&#x00A0;<span 
class="ectt-1200">mettre</span>&#x00A0;<span 
class="ectt-1200">ici</span>&#x00A0;<span 
class="ectt-1200">n=nbcle=nombre</span>&#x00A0;<span 
class="ectt-1200">d&#x2019;echantillons</span>&#x00A0;<span 
class="ectt-1200">souhaites</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(n=10000)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CHARACTER</span>&#x00A0;<span 
class="ectt-1200">filer*8,</span>&#x00A0;<span 
class="ectt-1200">filew*21</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">**</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">valeur(n,m)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">sch2vc(n)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">epscha(n,nT)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">compt(Kp)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">compt2(Kp)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">statn(n,Kp)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">KoLed1(n)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">KoLed2(n)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">Ledwi1(Kp)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">Ledwi2(Kp-1)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">snLed1(n)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">snLed2(n)</span>

&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">stanBD(n)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">stanAD(n),</span>&#x00A0;<span 
class="ectt-1200">stanJB(n)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">Z(nT)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">D(nT)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">Davant(nT),</span>&#x00A0;<span 
class="ectt-1200">E2(nT)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">U(nT)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">hUetoi(nT,Kp)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">Uavant(nT)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">hKetoi(Kp)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">hU(nT,Kp)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">hK(Kp)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">vecteu(Kp)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">vectoi(Kp)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">stat(Kp)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">Zavant(nT)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">BDa(nT)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">BDb(nT)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">BDc(nT)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">BDd(nT)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">Davan2(nT)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">ADa(nT)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">ADb(nT)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">Puiss(Kp)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">Puiss2(Kp)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">snsort(n,Kp)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">snsorv(n)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">Qucalc(Kp)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">snLe1s(n)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">snLe2s(n)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">snBDso(n)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">snADso(n),</span>&#x00A0;<span 
class="ectt-1200">snJBso(n)</span>
&#x00A0;<br /><span 
class="ectt-1200">c--------------------------------------------------------</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">parametres</span>&#x00A0;<span 
class="ectt-1200">creerdat</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Nom</span>&#x00A0;<span 
class="ectt-1200">du</span>&#x00A0;<span 
class="ectt-1200">fichier</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">donnees</span>&#x00A0;<span 
class="ectt-1200">en</span>&#x00A0;<span 
class="ectt-1200">sortie</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">**</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CHARACTER</span>&#x00A0;<span 
class="ectt-1200">dataf*8</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Nom</span>&#x00A0;<span 
class="ectt-1200">du</span>&#x00A0;<span 
class="ectt-1200">fichier</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">parametres</span>&#x00A0;<span 
class="ectt-1200">en</span>&#x00A0;<span 
class="ectt-1200">sortie</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">**</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CHARACTER</span>&#x00A0;<span 
class="ectt-1200">paramf*17</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Nombre</span>&#x00A0;<span 
class="ectt-1200">d&#x2019;echantillons</span>&#x00A0;<span 
class="ectt-1200">souhaites</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">nbcle,nbclea</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">rang</span>&#x00A0;<span 
class="ectt-1200">d&#x2019;arret</span>&#x00A0;<span 
class="ectt-1200">dans</span>&#x00A0;<span 
class="ectt-1200">la</span>&#x00A0;<span 
class="ectt-1200">random</span>&#x00A0;<span 
class="ectt-1200">shock</span>&#x00A0;<span 
class="ectt-1200">method</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">Burn</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">**</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">marret</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(marret=200)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Induction</span>&#x00A0;<span 
class="ectt-1200">period</span>&#x00A0;<span 
class="ectt-1200">dans</span>&#x00A0;<span 
class="ectt-1200">la</span>&#x00A0;<span 
class="ectt-1200">methode</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">Burn</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">**</span>

&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">Mind</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(Mind=200)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">ecart-type</span>&#x00A0;<span 
class="ectt-1200">des</span>&#x00A0;<span 
class="ectt-1200">erreurs</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">**</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">sigma</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(sigma=1)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">moyenne</span>&#x00A0;<span 
class="ectt-1200">dans</span>&#x00A0;<span 
class="ectt-1200">mon</span>&#x00A0;<span 
class="ectt-1200">modele</span>&#x00A0;<span 
class="ectt-1200">ARMA</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">**</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">mu</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(mu=0)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">parametre</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">la</span>&#x00A0;<span 
class="ectt-1200">khi-deux</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">**</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">df1</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(df1=2)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">parametre</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">la</span>&#x00A0;<span 
class="ectt-1200">student</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">**</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">df2</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(df2=5)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">parametre</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">la</span>&#x00A0;<span 
class="ectt-1200">skew-normale</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">**</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">lambda</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(lambda=2.0)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">loi5b,</span>&#x00A0;<span 
class="ectt-1200">loi5k,</span>&#x00A0;<span 
class="ectt-1200">loi6p,</span>&#x00A0;<span 
class="ectt-1200">loi6q</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">loi7g,</span>&#x00A0;<span 
class="ectt-1200">loi7d,</span>&#x00A0;<span 
class="ectt-1200">loi8p,</span>&#x00A0;<span 
class="ectt-1200">loi8q,</span>&#x00A0;<span 
class="ectt-1200">loi9a,</span>&#x00A0;<span 
class="ectt-1200">loi9b</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">loi10b,</span>&#x00A0;<span 
class="ectt-1200">loi10l,</span>&#x00A0;<span 
class="ectt-1200">loi11a,</span>&#x00A0;<span 
class="ectt-1200">loi11k,</span>&#x00A0;<span 
class="ectt-1200">loi13g,</span>&#x00A0;<span 
class="ectt-1200">loi13d</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">loi14l,</span>&#x00A0;<span 
class="ectt-1200">loi16p,</span>&#x00A0;<span 
class="ectt-1200">loi16d,</span>&#x00A0;<span 
class="ectt-1200">loi17p,</span>&#x00A0;<span 
class="ectt-1200">loi17m</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">loi18g,</span>&#x00A0;<span 
class="ectt-1200">loi18d,</span>&#x00A0;<span 
class="ectt-1200">loi19a,</span>&#x00A0;<span 
class="ectt-1200">loi19b</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(loi18g=1.0,loi18d=1.0,</span>&#x00A0;<span 
class="ectt-1200">loi19a=1.1,</span>&#x00A0;<span 
class="ectt-1200">loi19b=0.5)</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">**</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(loi16p=0.2,loi16d=5.0,</span>&#x00A0;<span 
class="ectt-1200">loi17p=0.2,loi17m=3.0)</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">**</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(loi10b=0.2,loi10l=1,</span>&#x00A0;<span 
class="ectt-1200">loi11a=2.0,loi11k=0.5)</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">**</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(loi13g=1.0,loi13d=1.0,</span>&#x00A0;<span 
class="ectt-1200">loi14l=0.7)</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">**</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(loi7g=0,loi7d=1,</span>&#x00A0;<span 
class="ectt-1200">loi8p=2,</span>&#x00A0;<span 
class="ectt-1200">loi8q=2,</span>&#x00A0;<span 
class="ectt-1200">loi9a=0,loi9b=2)</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">**</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(loi5b=1,</span>&#x00A0;<span 
class="ectt-1200">loi5k=1.8,</span>&#x00A0;<span 
class="ectt-1200">loi6p=4,</span>&#x00A0;<span 
class="ectt-1200">loi6q=1)</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">**</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">loi</span>&#x00A0;<span 
class="ectt-1200">des</span>&#x00A0;<span 
class="ectt-1200">erreurs</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">**</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">si</span>&#x00A0;<span 
class="ectt-1200">loi=0</span>&#x00A0;<span 
class="ectt-1200">:</span>&#x00A0;<span 
class="ectt-1200">Normale(0,sigma&#x0302;2)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">si</span>&#x00A0;<span 
class="ectt-1200">loi=1</span>&#x00A0;<span 
class="ectt-1200">:</span>&#x00A0;<span 
class="ectt-1200">Khi2</span>&#x00A0;<span 
class="ectt-1200">centree</span>&#x00A0;<span 
class="ectt-1200">(df1)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">si</span>&#x00A0;<span 
class="ectt-1200">loi=2</span>&#x00A0;<span 
class="ectt-1200">:</span>&#x00A0;<span 
class="ectt-1200">Student</span>&#x00A0;<span 
class="ectt-1200">(df2)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">si</span>&#x00A0;<span 
class="ectt-1200">loi=3</span>&#x00A0;<span 
class="ectt-1200">:</span>&#x00A0;<span 
class="ectt-1200">Skew-Normale(lambda)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">si</span>&#x00A0;<span 
class="ectt-1200">loi=4</span>&#x00A0;<span 
class="ectt-1200">:</span>&#x00A0;<span 
class="ectt-1200">Laplace</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">si</span>&#x00A0;<span 
class="ectt-1200">loi=5</span>&#x00A0;<span 
class="ectt-1200">:</span>&#x00A0;<span 
class="ectt-1200">Weibull(b,k)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">si</span>&#x00A0;<span 
class="ectt-1200">loi=6</span>&#x00A0;<span 
class="ectt-1200">:</span>&#x00A0;<span 
class="ectt-1200">Gamma(p,q)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">si</span>&#x00A0;<span 
class="ectt-1200">loi=7</span>&#x00A0;<span 
class="ectt-1200">:</span>&#x00A0;<span 
class="ectt-1200">Log-Normale(g,d)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">si</span>&#x00A0;<span 
class="ectt-1200">loi=8</span>&#x00A0;<span 
class="ectt-1200">:</span>&#x00A0;<span 
class="ectt-1200">Beta(p,q)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">si</span>&#x00A0;<span 
class="ectt-1200">loi=9</span>&#x00A0;<span 
class="ectt-1200">:</span>&#x00A0;<span 
class="ectt-1200">Uniform(a,b)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">si</span>&#x00A0;<span 
class="ectt-1200">loi=10</span>&#x00A0;<span 
class="ectt-1200">:</span>&#x00A0;<span 
class="ectt-1200">Shifted</span>&#x00A0;<span 
class="ectt-1200">exp</span>&#x00A0;<span 
class="ectt-1200">(l,b)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">si</span>&#x00A0;<span 
class="ectt-1200">loi=11</span>&#x00A0;<span 
class="ectt-1200">:</span>&#x00A0;<span 
class="ectt-1200">Pareto(a,k)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">si</span>&#x00A0;<span 
class="ectt-1200">loi=12</span>&#x00A0;<span 
class="ectt-1200">:</span>&#x00A0;<span 
class="ectt-1200">Shifted</span>&#x00A0;<span 
class="ectt-1200">Pareto</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">si</span>&#x00A0;<span 
class="ectt-1200">loi=13</span>&#x00A0;<span 
class="ectt-1200">:</span>&#x00A0;<span 
class="ectt-1200">SU(g,d)</span>

&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">si</span>&#x00A0;<span 
class="ectt-1200">loi=14</span>&#x00A0;<span 
class="ectt-1200">:</span>&#x00A0;<span 
class="ectt-1200">TU(l)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">si</span>&#x00A0;<span 
class="ectt-1200">loi=15</span>&#x00A0;<span 
class="ectt-1200">:</span>&#x00A0;<span 
class="ectt-1200">Logistic</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">si</span>&#x00A0;<span 
class="ectt-1200">loi=16</span>&#x00A0;<span 
class="ectt-1200">:</span>&#x00A0;<span 
class="ectt-1200">SC(p,d)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">si</span>&#x00A0;<span 
class="ectt-1200">loi=17</span>&#x00A0;<span 
class="ectt-1200">:</span>&#x00A0;<span 
class="ectt-1200">LC(p,m)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">si</span>&#x00A0;<span 
class="ectt-1200">loi=18</span>&#x00A0;<span 
class="ectt-1200">:</span>&#x00A0;<span 
class="ectt-1200">SB(g,d)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">si</span>&#x00A0;<span 
class="ectt-1200">loi=19</span>&#x00A0;<span 
class="ectt-1200">:</span>&#x00A0;<span 
class="ectt-1200">S(a,b)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">loi</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">rm=max(p,q)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">rm</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(rm=1)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">the</span>&#x00A0;<span 
class="ectt-1200">autoregressive</span>&#x00A0;<span 
class="ectt-1200">coefficients</span>&#x00A0;<span 
class="ectt-1200">of</span>&#x00A0;<span 
class="ectt-1200">the</span>&#x00A0;<span 
class="ectt-1200">model</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">phi(2)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">phich(p)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">the</span>&#x00A0;<span 
class="ectt-1200">moving-average</span>&#x00A0;<span 
class="ectt-1200">coefficients</span>&#x00A0;<span 
class="ectt-1200">of</span>&#x00A0;<span 
class="ectt-1200">the</span>&#x00A0;<span 
class="ectt-1200">model</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">teta(2)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">tetach(q)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">vecteur</span>&#x00A0;<span 
class="ectt-1200">des</span>&#x00A0;<span 
class="ectt-1200">donnees</span>&#x00A0;<span 
class="ectt-1200">cree</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">donees(nT)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Parametres</span>&#x00A0;<span 
class="ectt-1200">pour</span>&#x00A0;<span 
class="ectt-1200">G05EGF:</span>&#x00A0;<span 
class="ectt-1200">simulation</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">the</span>&#x00A0;<span 
class="ectt-1200">autoregressive</span>&#x00A0;<span 
class="ectt-1200">coefficients</span>&#x00A0;<span 
class="ectt-1200">of</span>&#x00A0;<span 
class="ectt-1200">the</span>&#x00A0;<span 
class="ectt-1200">model=phi</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Input</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">A(p)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">the</span>&#x00A0;<span 
class="ectt-1200">moving-average</span>&#x00A0;<span 
class="ectt-1200">coefficients</span>&#x00A0;<span 
class="ectt-1200">of</span>&#x00A0;<span 
class="ectt-1200">the</span>&#x00A0;<span 
class="ectt-1200">model=teta</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Input</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">B(q+1)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">le</span>&#x00A0;<span 
class="ectt-1200">vecteur</span>&#x00A0;<span 
class="ectt-1200">des</span>&#x00A0;<span 
class="ectt-1200">innovations</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Output</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">R(nT)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Parametres</span>&#x00A0;<span 
class="ectt-1200">pour</span>&#x00A0;<span 
class="ectt-1200">G13DCF:</span>&#x00A0;<span 
class="ectt-1200">estimation</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">the</span>&#x00A0;<span 
class="ectt-1200">number</span>&#x00A0;<span 
class="ectt-1200">of</span>&#x00A0;<span 
class="ectt-1200">initial</span>&#x00A0;<span 
class="ectt-1200">parameter</span>&#x00A0;<span 
class="ectt-1200">estimates</span>&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Input</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">**</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">mettre</span>&#x00A0;<span 
class="ectt-1200">p+q+1</span>&#x00A0;<span 
class="ectt-1200">si</span>&#x00A0;<span 
class="ectt-1200">MEAN=.TRUE.</span>&#x00A0;<span 
class="ectt-1200">,</span>&#x00A0;<span 
class="ectt-1200">p+q</span>&#x00A0;<span 
class="ectt-1200">si</span>&#x00A0;<span 
class="ectt-1200">MEAN=.FALSE.</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">NPAR</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(NPAR=p+q)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">first</span>&#x00A0;<span 
class="ectt-1200">dimension</span>&#x00A0;<span 
class="ectt-1200">of</span>&#x00A0;<span 
class="ectt-1200">the</span>&#x00A0;<span 
class="ectt-1200">array</span>&#x00A0;<span 
class="ectt-1200">CM</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Input</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">**</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">mettre</span>&#x00A0;<span 
class="ectt-1200">p+q+1</span>&#x00A0;<span 
class="ectt-1200">si</span>&#x00A0;<span 
class="ectt-1200">MEAN=.TRUE.</span>&#x00A0;<span 
class="ectt-1200">,</span>&#x00A0;<span 
class="ectt-1200">p+q</span>&#x00A0;<span 
class="ectt-1200">si</span>&#x00A0;<span 
class="ectt-1200">MEAN=.FALSE.</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">ICM</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(ICM=p+q)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Workspace</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">IW(NPAR+rm+3)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">initial</span>&#x00A0;<span 
class="ectt-1200">parameter</span>&#x00A0;<span 
class="ectt-1200">estimates</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Input/Output</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">PAR(NPAR)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">W(i,t)</span>&#x00A0;<span 
class="ectt-1200">must</span>&#x00A0;<span 
class="ectt-1200">be</span>&#x00A0;<span 
class="ectt-1200">set</span>&#x00A0;<span 
class="ectt-1200">equal</span>&#x00A0;<span 
class="ectt-1200">to</span>&#x00A0;<span 
class="ectt-1200">the</span>&#x00A0;<span 
class="ectt-1200">observation</span>&#x00A0;<span 
class="ectt-1200">at</span>&#x00A0;<span 
class="ectt-1200">time</span>&#x00A0;<span 
class="ectt-1200">t</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Input</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">of</span>&#x00A0;<span 
class="ectt-1200">the</span>&#x00A0;<span 
class="ectt-1200">ith</span>&#x00A0;<span 
class="ectt-1200">series</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">W(1,nT)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">the</span>&#x00A0;<span 
class="ectt-1200">accuracy</span>&#x00A0;<span 
class="ectt-1200">to</span>&#x00A0;<span 
class="ectt-1200">which</span>&#x00A0;<span 
class="ectt-1200">the</span>&#x00A0;<span 
class="ectt-1200">solution</span>&#x00A0;<span 
class="ectt-1200">in</span>&#x00A0;<span 
class="ectt-1200">PAR</span>&#x00A0;<span 
class="ectt-1200">and</span>&#x00A0;<span 
class="ectt-1200">QQ</span>&#x00A0;<span 
class="ectt-1200">is</span>&#x00A0;<span 
class="ectt-1200">required</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Input</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">**</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">CGETOL</span>

&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(CGETOL=0.0001)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">residual</span>&#x00A0;<span 
class="ectt-1200">at</span>&#x00A0;<span 
class="ectt-1200">time</span>&#x00A0;<span 
class="ectt-1200">t</span>&#x00A0;<span 
class="ectt-1200">for</span>&#x00A0;<span 
class="ectt-1200">series</span>&#x00A0;<span 
class="ectt-1200">i,</span>&#x00A0;<span 
class="ectt-1200">for</span>&#x00A0;<span 
class="ectt-1200">i</span>&#x00A0;<span 
class="ectt-1200">=</span>&#x00A0;<span 
class="ectt-1200">1,2,...,k</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Output</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">V(1,nT)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">estimated</span>&#x00A0;<span 
class="ectt-1200">first</span>&#x00A0;<span 
class="ectt-1200">derivative</span>&#x00A0;<span 
class="ectt-1200">of</span>&#x00A0;<span 
class="ectt-1200">the</span>&#x00A0;<span 
class="ectt-1200">log-likelihood</span>&#x00A0;<span 
class="ectt-1200">function</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Output</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">G(NPAR)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">estimate</span>&#x00A0;<span 
class="ectt-1200">of</span>&#x00A0;<span 
class="ectt-1200">the</span>&#x00A0;<span 
class="ectt-1200">correlation</span>&#x00A0;<span 
class="ectt-1200">coefficient</span>&#x00A0;<span 
class="ectt-1200">between</span>&#x00A0;<span 
class="ectt-1200">the</span>&#x00A0;<span 
class="ectt-1200">ith</span>&#x00A0;<span 
class="ectt-1200">and</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Output</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">jth</span>&#x00A0;<span 
class="ectt-1200">elements</span>&#x00A0;<span 
class="ectt-1200">in</span>&#x00A0;<span 
class="ectt-1200">the</span>&#x00A0;<span 
class="ectt-1200">PAR</span>&#x00A0;<span 
class="ectt-1200">array</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">CM(ICM,NPAR)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Workspace</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">WORK((5+3*nT+2*rm)+(2*p+q+2*rm*(rm+2)+9)+</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">+</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">(NPAR+1)*(5*(NPAR+1)+29)/2+(rm+1)**2)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">MEAN</span>&#x00A0;<span 
class="ectt-1200">must</span>&#x00A0;<span 
class="ectt-1200">be</span>&#x00A0;<span 
class="ectt-1200">set</span>&#x00A0;<span 
class="ectt-1200">to</span>&#x00A0;<span 
class="ectt-1200">.TRUE.</span>&#x00A0;<span 
class="ectt-1200">if</span>&#x00A0;<span 
class="ectt-1200">components</span>&#x00A0;<span 
class="ectt-1200">of</span>&#x00A0;<span 
class="ectt-1200">mu</span>&#x00A0;<span 
class="ectt-1200">are</span>&#x00A0;<span 
class="ectt-1200">to</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Input</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">**</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">be</span>&#x00A0;<span 
class="ectt-1200">estimated</span>&#x00A0;<span 
class="ectt-1200">and</span>&#x00A0;<span 
class="ectt-1200">.FALSE.</span>&#x00A0;<span 
class="ectt-1200">if</span>&#x00A0;<span 
class="ectt-1200">all</span>&#x00A0;<span 
class="ectt-1200">elements</span>&#x00A0;<span 
class="ectt-1200">of</span>&#x00A0;<span 
class="ectt-1200">mu</span>&#x00A0;<span 
class="ectt-1200">are</span>&#x00A0;<span 
class="ectt-1200">to</span>&#x00A0;<span 
class="ectt-1200">be</span>&#x00A0;<span 
class="ectt-1200">taken</span>&#x00A0;<span 
class="ectt-1200">as</span>&#x00A0;<span 
class="ectt-1200">zero</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">LOGICAL</span>&#x00A0;<span 
class="ectt-1200">MEAN</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(MEAN=.FALSE.)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARHLD(i)</span>&#x00A0;<span 
class="ectt-1200">must</span>&#x00A0;<span 
class="ectt-1200">be</span>&#x00A0;<span 
class="ectt-1200">set</span>&#x00A0;<span 
class="ectt-1200">to</span>&#x00A0;<span 
class="ectt-1200">.TRUE.,</span>&#x00A0;<span 
class="ectt-1200">if</span>&#x00A0;<span 
class="ectt-1200">PAR(i)</span>&#x00A0;<span 
class="ectt-1200">is</span>&#x00A0;<span 
class="ectt-1200">to</span>&#x00A0;<span 
class="ectt-1200">be</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Input</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">held</span>&#x00A0;<span 
class="ectt-1200">constant</span>&#x00A0;<span 
class="ectt-1200">at</span>&#x00A0;<span 
class="ectt-1200">its</span>&#x00A0;<span 
class="ectt-1200">input</span>&#x00A0;<span 
class="ectt-1200">value</span>&#x00A0;<span 
class="ectt-1200">and</span>&#x00A0;<span 
class="ectt-1200">.FALSE.,</span>&#x00A0;<span 
class="ectt-1200">if</span>&#x00A0;<span 
class="ectt-1200">PAR(i)</span>&#x00A0;<span 
class="ectt-1200">is</span>&#x00A0;<span 
class="ectt-1200">a</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">free</span>&#x00A0;<span 
class="ectt-1200">parameter,</span>&#x00A0;<span 
class="ectt-1200">for</span>&#x00A0;<span 
class="ectt-1200">i</span>&#x00A0;<span 
class="ectt-1200">=</span>&#x00A0;<span 
class="ectt-1200">1,2,...,NPAR.</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">LOGICAL</span>&#x00A0;<span 
class="ectt-1200">PARHLD(NPAR)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">EXACT</span>&#x00A0;<span 
class="ectt-1200">must</span>&#x00A0;<span 
class="ectt-1200">be</span>&#x00A0;<span 
class="ectt-1200">set</span>&#x00A0;<span 
class="ectt-1200">equal</span>&#x00A0;<span 
class="ectt-1200">to</span>&#x00A0;<span 
class="ectt-1200">.TRUE.</span>&#x00A0;<span 
class="ectt-1200">if</span>&#x00A0;<span 
class="ectt-1200">the</span>&#x00A0;<span 
class="ectt-1200">user</span>&#x00A0;<span 
class="ectt-1200">wishes</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Input</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">**</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">the</span>&#x00A0;<span 
class="ectt-1200">routine</span>&#x00A0;<span 
class="ectt-1200">to</span>&#x00A0;<span 
class="ectt-1200">compute</span>&#x00A0;<span 
class="ectt-1200">exact</span>&#x00A0;<span 
class="ectt-1200">maximum</span>&#x00A0;<span 
class="ectt-1200">likelihood</span>&#x00A0;<span 
class="ectt-1200">estimates.</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">EXACT</span>&#x00A0;<span 
class="ectt-1200">must</span>&#x00A0;<span 
class="ectt-1200">be</span>&#x00A0;<span 
class="ectt-1200">set</span>&#x00A0;<span 
class="ectt-1200">equal</span>&#x00A0;<span 
class="ectt-1200">to</span>&#x00A0;<span 
class="ectt-1200">.FALSE.</span>&#x00A0;<span 
class="ectt-1200">if</span>&#x00A0;<span 
class="ectt-1200">only</span>&#x00A0;<span 
class="ectt-1200">conditional</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">likelihood</span>&#x00A0;<span 
class="ectt-1200">estimates</span>&#x00A0;<span 
class="ectt-1200">are</span>&#x00A0;<span 
class="ectt-1200">required.</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">voir</span>&#x00A0;<span 
class="ectt-1200">EXACT</span>&#x00A0;<span 
class="ectt-1200">plus</span>&#x00A0;<span 
class="ectt-1200">bas</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">LOGICAL</span>&#x00A0;<span 
class="ectt-1200">EXACT</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Contient</span>&#x00A0;<span 
class="ectt-1200">les</span>&#x00A0;<span 
class="ectt-1200">p</span>&#x00A0;<span 
class="ectt-1200">donnees</span>&#x00A0;<span 
class="ectt-1200">initiales</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">la</span>&#x00A0;<span 
class="ectt-1200">serie</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">Wtip(p)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">marret+p</span>&#x00A0;<span 
class="ectt-1200">innovations</span>&#x00A0;<span 
class="ectt-1200">genere</span>&#x00A0;<span 
class="ectt-1200">par</span>&#x00A0;<span 
class="ectt-1200">shock.f</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">shocks(marret+p)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">defini</span>&#x00A0;<span 
class="ectt-1200">dans</span>&#x00A0;<span 
class="ectt-1200">Burn,</span>&#x00A0;<span 
class="ectt-1200">calcule</span>&#x00A0;<span 
class="ectt-1200">par</span>&#x00A0;<span 
class="ectt-1200">ARMpsi.f</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">psi(marret+1)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">utile</span>&#x00A0;<span 
class="ectt-1200">dans</span>&#x00A0;<span 
class="ectt-1200">simARM.f</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">longueur</span>&#x00A0;<span 
class="ectt-1200">marret</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">phi2(marret)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">utile</span>&#x00A0;<span 
class="ectt-1200">dans</span>&#x00A0;<span 
class="ectt-1200">simARM.f</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">longueur</span>&#x00A0;<span 
class="ectt-1200">marret</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">teta2(marret)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">utile</span>&#x00A0;<span 
class="ectt-1200">dans</span>&#x00A0;<span 
class="ectt-1200">simARM.f</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">YtpMn(p+Mind+nT)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">utile</span>&#x00A0;<span 
class="ectt-1200">dans</span>&#x00A0;<span 
class="ectt-1200">simARM.f</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">Atnq(nT+Mind+q)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Esperances</span>&#x00A0;<span 
class="ectt-1200">des</span>&#x00A0;<span 
class="ectt-1200">lois</span>&#x00A0;<span 
class="ectt-1200">SU,</span>&#x00A0;<span 
class="ectt-1200">SB</span>&#x00A0;<span 
class="ectt-1200">et</span>&#x00A0;<span 
class="ectt-1200">S</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">**</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">EspSU,EspSB,EspS</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(EspSU=0,</span>&#x00A0;<span 
class="ectt-1200">EspSB=0,</span>&#x00A0;<span 
class="ectt-1200">EspS=0)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CHARACTER*13</span>&#x00A0;<span 
class="ectt-1200">efface</span>

&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">temp(4)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">j</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CHARACTER*5</span>&#x00A0;<span 
class="ectt-1200">ftemp</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CHARACTER*1</span>&#x00A0;<span 
class="ectt-1200">INTCH1</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CHARACTER*2</span>&#x00A0;<span 
class="ectt-1200">INTCH2</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CHARACTER*3</span>&#x00A0;<span 
class="ectt-1200">INTCH3</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CHARACTER*4</span>&#x00A0;<span 
class="ectt-1200">INTCH4</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">matric(n,18)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">dnT</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(dnT=Kp)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">QLed1u,QLe12u</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(QLed1u=QuLed1,QLe12u=QuLe12)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">QLed2u,QLe22u</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(QLed2u=QuLed2,QLe22u=QuLe22)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">QBDu,QBD2u</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(QBDu=QuBD,QBD2u=QuBD2)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">QADu,QAD2u</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(QADu=QuAD,QAD2u=QuAD2)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">QJBu,QJB2u</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(QJBu=QuJB,QJB2u=QuJB2)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">the</span>&#x00A0;<span 
class="ectt-1200">mean</span>&#x00A0;<span 
class="ectt-1200">of</span>&#x00A0;<span 
class="ectt-1200">the</span>&#x00A0;<span 
class="ectt-1200">time</span>&#x00A0;<span 
class="ectt-1200">series</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Input</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">E</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(E=mu)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">the</span>&#x00A0;<span 
class="ectt-1200">number</span>&#x00A0;<span 
class="ectt-1200">of</span>&#x00A0;<span 
class="ectt-1200">autoregressive</span>&#x00A0;<span 
class="ectt-1200">coefficients</span>&#x00A0;<span 
class="ectt-1200">supplied</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Input</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">NA</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(NA=p)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">the</span>&#x00A0;<span 
class="ectt-1200">number</span>&#x00A0;<span 
class="ectt-1200">of</span>&#x00A0;<span 
class="ectt-1200">moving-average</span>&#x00A0;<span 
class="ectt-1200">coefficients</span>&#x00A0;<span 
class="ectt-1200">supplied</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Input</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">NB</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(NB=q+1)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">the</span>&#x00A0;<span 
class="ectt-1200">dimension</span>&#x00A0;<span 
class="ectt-1200">of</span>&#x00A0;<span 
class="ectt-1200">the</span>&#x00A0;<span 
class="ectt-1200">array</span>&#x00A0;<span 
class="ectt-1200">R:</span>&#x00A0;<span 
class="ectt-1200">vecteur</span>&#x00A0;<span 
class="ectt-1200">des</span>&#x00A0;<span 
class="ectt-1200">innovations</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Input</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">NR</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(NR=9)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">the</span>&#x00A0;<span 
class="ectt-1200">number</span>&#x00A0;<span 
class="ectt-1200">of</span>&#x00A0;<span 
class="ectt-1200">observed</span>&#x00A0;<span 
class="ectt-1200">time</span>&#x00A0;<span 
class="ectt-1200">series,</span>&#x00A0;<span 
class="ectt-1200">k</span>&#x00A0;&#x00A0;<span 
class="ectt-1200">(chez</span>&#x00A0;<span 
class="ectt-1200">moi</span>&#x00A0;<span 
class="ectt-1200">k=1)</span>&#x00A0;&#x00A0;<span 
class="ectt-1200">Input</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">K</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(K=1)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">the</span>&#x00A0;<span 
class="ectt-1200">number</span>&#x00A0;<span 
class="ectt-1200">of</span>&#x00A0;<span 
class="ectt-1200">observations</span>&#x00A0;<span 
class="ectt-1200">in</span>&#x00A0;<span 
class="ectt-1200">each</span>&#x00A0;<span 
class="ectt-1200">time</span>&#x00A0;<span 
class="ectt-1200">series,</span>&#x00A0;<span 
class="ectt-1200">n</span>&#x00A0;<span 
class="ectt-1200">(chez</span>&#x00A0;<span 
class="ectt-1200">moi=nT)</span>&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Input</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">N2</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(N2=nT)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">the</span>&#x00A0;<span 
class="ectt-1200">number</span>&#x00A0;<span 
class="ectt-1200">of</span>&#x00A0;<span 
class="ectt-1200">AR</span>&#x00A0;<span 
class="ectt-1200">parameter</span>&#x00A0;<span 
class="ectt-1200">matrices,</span>&#x00A0;<span 
class="ectt-1200">p</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Input</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">IP</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(IP=p)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">the</span>&#x00A0;<span 
class="ectt-1200">number</span>&#x00A0;<span 
class="ectt-1200">of</span>&#x00A0;<span 
class="ectt-1200">MA</span>&#x00A0;<span 
class="ectt-1200">parameter</span>&#x00A0;<span 
class="ectt-1200">matrices,</span>&#x00A0;<span 
class="ectt-1200">q</span>&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Input</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">IQ</span>

&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(IQ=q)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">the</span>&#x00A0;<span 
class="ectt-1200">first</span>&#x00A0;<span 
class="ectt-1200">dimension</span>&#x00A0;<span 
class="ectt-1200">of</span>&#x00A0;<span 
class="ectt-1200">the</span>&#x00A0;<span 
class="ectt-1200">arrays</span>&#x00A0;<span 
class="ectt-1200">QQ,</span>&#x00A0;<span 
class="ectt-1200">W</span>&#x00A0;<span 
class="ectt-1200">and</span>&#x00A0;<span 
class="ectt-1200">V</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Input</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">IK</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(IK=1)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">the</span>&#x00A0;<span 
class="ectt-1200">maximum</span>&#x00A0;<span 
class="ectt-1200">number</span>&#x00A0;<span 
class="ectt-1200">of</span>&#x00A0;<span 
class="ectt-1200">likelihood</span>&#x00A0;<span 
class="ectt-1200">evaluations</span>&#x00A0;<span 
class="ectt-1200">to</span>&#x00A0;<span 
class="ectt-1200">be</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Input</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">permitted</span>&#x00A0;<span 
class="ectt-1200">by</span>&#x00A0;<span 
class="ectt-1200">the</span>&#x00A0;<span 
class="ectt-1200">search</span>&#x00A0;<span 
class="ectt-1200">procedure</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">MAXCAL</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(MAXCAL=40*NPAR*(NPAR+5))</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">which</span>&#x00A0;<span 
class="ectt-1200">quantities</span>&#x00A0;<span 
class="ectt-1200">are</span>&#x00A0;<span 
class="ectt-1200">to</span>&#x00A0;<span 
class="ectt-1200">be</span>&#x00A0;<span 
class="ectt-1200">printed</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Input</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">ISHOW</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(ISHOW=0)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">dimension</span>&#x00A0;<span 
class="ectt-1200">of</span>&#x00A0;<span 
class="ectt-1200">the</span>&#x00A0;<span 
class="ectt-1200">array</span>&#x00A0;<span 
class="ectt-1200">WORK</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Input</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">LWORK</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(LWORK=(5+3*(nT)+2*rm)+(2*p+q+2*rm*(rm+2)+9)+</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">+</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">(NPAR+1)*(5*(NPAR+1)+29)/2+(rm+1)**2)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">dimension</span>&#x00A0;<span 
class="ectt-1200">of</span>&#x00A0;<span 
class="ectt-1200">the</span>&#x00A0;<span 
class="ectt-1200">array</span>&#x00A0;<span 
class="ectt-1200">IW</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Input</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">LIW</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(LIW=NPAR+rm+3)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">QQ(i,j)</span>&#x00A0;<span 
class="ectt-1200">must</span>&#x00A0;<span 
class="ectt-1200">be</span>&#x00A0;<span 
class="ectt-1200">set</span>&#x00A0;<span 
class="ectt-1200">equal</span>&#x00A0;<span 
class="ectt-1200">to</span>&#x00A0;<span 
class="ectt-1200">an</span>&#x00A0;<span 
class="ectt-1200">initial</span>&#x00A0;<span 
class="ectt-1200">estimate</span>&#x00A0;<span 
class="ectt-1200">of</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Input/Output</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">the</span>&#x00A0;<span 
class="ectt-1200">(i,j)th</span>&#x00A0;<span 
class="ectt-1200">element</span>&#x00A0;<span 
class="ectt-1200">of</span>&#x00A0;<span 
class="ectt-1200">the</span>&#x00A0;<span 
class="ectt-1200">covariance</span>&#x00A0;<span 
class="ectt-1200">matrix</span>&#x00A0;<span 
class="ectt-1200">of</span>&#x00A0;<span 
class="ectt-1200">the</span>&#x00A0;<span 
class="ectt-1200">residual</span>&#x00A0;<span 
class="ectt-1200">series</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">QQ(IK,K)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">NI,</span>&#x00A0;<span 
class="ectt-1200">NX,</span>&#x00A0;<span 
class="ectt-1200">IFAIL</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(NX=4,NI=9)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">IA(NI)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">XA(NX)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">seed=1</span>&#x00A0;<span 
class="ectt-1200">(non-repeatable</span>&#x00A0;<span 
class="ectt-1200">sequence)</span>&#x00A0;<span 
class="ectt-1200">ou</span>&#x00A0;<span 
class="ectt-1200">seed=0</span>&#x00A0;<span 
class="ectt-1200">(repeatable</span>&#x00A0;<span 
class="ectt-1200">sequence)</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">**</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">seed</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(seed=0)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">-------------------------------------------------------</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Fin</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">declaration</span>&#x00A0;<span 
class="ectt-1200">des</span>&#x00A0;<span 
class="ectt-1200">variables</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">-------------------------------------------------------</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">G05CBF</span>&#x00A0;<span 
class="ectt-1200">Initialise</span>&#x00A0;<span 
class="ectt-1200">random</span>&#x00A0;<span 
class="ectt-1200">number</span>&#x00A0;<span 
class="ectt-1200">generating</span>&#x00A0;<span 
class="ectt-1200">routines</span>&#x00A0;<span 
class="ectt-1200">to</span>&#x00A0;<span 
class="ectt-1200">give</span>&#x00A0;<span 
class="ectt-1200">repeatable</span>&#x00A0;<span 
class="ectt-1200">sequence</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">G05CCF</span>&#x00A0;<span 
class="ectt-1200">Initialise</span>&#x00A0;<span 
class="ectt-1200">random</span>&#x00A0;<span 
class="ectt-1200">number</span>&#x00A0;<span 
class="ectt-1200">generating</span>&#x00A0;<span 
class="ectt-1200">routines</span>&#x00A0;<span 
class="ectt-1200">to</span>&#x00A0;<span 
class="ectt-1200">give</span>&#x00A0;<span 
class="ectt-1200">non-repeatable</span>&#x00A0;<span 
class="ectt-1200">sequence</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">G05CFF</span>&#x00A0;<span 
class="ectt-1200">Save</span>&#x00A0;<span 
class="ectt-1200">state</span>&#x00A0;<span 
class="ectt-1200">of</span>&#x00A0;<span 
class="ectt-1200">random</span>&#x00A0;<span 
class="ectt-1200">number</span>&#x00A0;<span 
class="ectt-1200">generating</span>&#x00A0;<span 
class="ectt-1200">routines</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">G05CGF</span>&#x00A0;<span 
class="ectt-1200">Restore</span>&#x00A0;<span 
class="ectt-1200">state</span>&#x00A0;<span 
class="ectt-1200">of</span>&#x00A0;<span 
class="ectt-1200">random</span>&#x00A0;<span 
class="ectt-1200">number</span>&#x00A0;<span 
class="ectt-1200">generating</span>&#x00A0;<span 
class="ectt-1200">routines</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">IF</span>&#x00A0;<span 
class="ectt-1200">(seed</span>&#x00A0;<span 
class="ectt-1200">.EQ.</span>&#x00A0;<span 
class="ectt-1200">1)</span>&#x00A0;<span 
class="ectt-1200">THEN</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CALL</span>&#x00A0;<span 
class="ectt-1200">G05CCF</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">ENDIF</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">IF</span>&#x00A0;<span 
class="ectt-1200">(seed</span>&#x00A0;<span 
class="ectt-1200">.EQ.</span>&#x00A0;<span 
class="ectt-1200">0)</span>&#x00A0;<span 
class="ectt-1200">THEN</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CALL</span>&#x00A0;<span 
class="ectt-1200">G05CBF(0)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">ENDIF</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">IFAIL=0</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Rajouter</span>&#x00A0;<span 
class="ectt-1200">ici,</span>&#x00A0;<span 
class="ectt-1200">si</span>&#x00A0;<span 
class="ectt-1200">voulu,</span>&#x00A0;<span 
class="ectt-1200">les</span>&#x00A0;<span 
class="ectt-1200">IA</span>&#x00A0;<span 
class="ectt-1200">et</span>&#x00A0;<span 
class="ectt-1200">les</span>&#x00A0;<span 
class="ectt-1200">XA</span>&#x00A0;<span 
class="ectt-1200">a</span>&#x00A0;<span 
class="ectt-1200">prendre</span>&#x00A0;<span 
class="ectt-1200">a</span>&#x00A0;<span 
class="ectt-1200">la</span>&#x00A0;<span 
class="ectt-1200">fin</span>&#x00A0;<span 
class="ectt-1200">du</span>&#x00A0;<span 
class="ectt-1200">fichier</span>&#x00A0;<span 
class="ectt-1200">para.ijkl:</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">**</span>

&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">A</span>&#x00A0;<span 
class="ectt-1200">(de)commenter</span>&#x00A0;<span 
class="ectt-1200">si</span>&#x00A0;<span 
class="ectt-1200">necessaire</span>&#x00A0;<span 
class="ectt-1200">(si</span>&#x00A0;<span 
class="ectt-1200">on</span>&#x00A0;<span 
class="ectt-1200">rajoute</span>&#x00A0;<span 
class="ectt-1200">les</span>&#x00A0;<span 
class="ectt-1200">IA</span>&#x00A0;<span 
class="ectt-1200">et</span>&#x00A0;<span 
class="ectt-1200">XA,</span>&#x00A0;<span 
class="ectt-1200">on</span>&#x00A0;<span 
class="ectt-1200">decommente)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CALL</span>&#x00A0;<span 
class="ectt-1200">G05CGF(IA,NI,XA,NX,IFAIL)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CALL</span>&#x00A0;<span 
class="ectt-1200">G05CFF(IA,NI,XA,NX,IFAIL)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">EXACT=.TRUE.</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">**</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">nbcle=n</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">efface=&#x2019;rm</span>&#x00A0;<span 
class="ectt-1200">./data.txt&#x2019;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">ftemp=&#x2019;ftemp&#x2019;</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">On</span>&#x00A0;<span 
class="ectt-1200">va</span>&#x00A0;<span 
class="ectt-1200">lire</span>&#x00A0;<span 
class="ectt-1200">les</span>&#x00A0;<span 
class="ectt-1200">parametres</span>&#x00A0;<span 
class="ectt-1200">necessaires</span>&#x00A0;<span 
class="ectt-1200">dans</span>&#x00A0;<span 
class="ectt-1200">ftemp</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">temp</span>&#x00A0;<span 
class="ectt-1200">va</span>&#x00A0;<span 
class="ectt-1200">contenir</span>&#x00A0;<span 
class="ectt-1200">sur</span>&#x00A0;<span 
class="ectt-1200">chaque</span>&#x00A0;<span 
class="ectt-1200">ligne:</span>&#x00A0;<span 
class="ectt-1200">j,</span>&#x00A0;<span 
class="ectt-1200">loi,</span>&#x00A0;<span 
class="ectt-1200">phi(1),</span>&#x00A0;<span 
class="ectt-1200">teta(1)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">OPEN(UNIT=15,</span>&#x00A0;<span 
class="ectt-1200">FILE=ftemp</span>&#x00A0;<span 
class="ectt-1200">,</span>&#x00A0;<span 
class="ectt-1200">STATUS=&#x2019;OLD&#x2019;</span>&#x00A0;<span 
class="ectt-1200">)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">READ(15,*,END=10)</span>&#x00A0;<span 
class="ectt-1200">(temp(j),j=1,4)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CLOSE(15)</span>
&#x00A0;<br />&#x00A0;<span 
class="ectt-1200">10</span>&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">j=temp(1)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">loi=temp(2)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">phi(1)=temp(3)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">teta(1)=temp(4)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">phi(2)=0.0</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">teta(2)=0.0</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">On</span>&#x00A0;<span 
class="ectt-1200">sauvegarde</span>&#x00A0;<span 
class="ectt-1200">la</span>&#x00A0;<span 
class="ectt-1200">valeur</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">nbcle</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">nbclea=nbcle</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Nom</span>&#x00A0;<span 
class="ectt-1200">du</span>&#x00A0;<span 
class="ectt-1200">fichier</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">donnees</span>&#x00A0;<span 
class="ectt-1200">en</span>&#x00A0;<span 
class="ectt-1200">sortie</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">**</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">dataf=&#x2019;data.txt&#x2019;</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Permet</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">convertir</span>&#x00A0;<span 
class="ectt-1200">l&#x2019;entier</span>&#x00A0;<span 
class="ectt-1200">j</span>&#x00A0;<span 
class="ectt-1200">en</span>&#x00A0;<span 
class="ectt-1200">chaine</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">caracteres</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">IF</span>&#x00A0;<span 
class="ectt-1200">(j/10</span>&#x00A0;<span 
class="ectt-1200">.LT.</span>&#x00A0;<span 
class="ectt-1200">1)</span>&#x00A0;<span 
class="ectt-1200">THEN</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(INTCH1,</span>&#x00A0;<span 
class="ectt-1200">&#x2019;(I1)&#x2019;)</span>&#x00A0;<span 
class="ectt-1200">j</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Nom</span>&#x00A0;<span 
class="ectt-1200">du</span>&#x00A0;<span 
class="ectt-1200">fichier</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">parametres</span>&#x00A0;<span 
class="ectt-1200">en</span>&#x00A0;<span 
class="ectt-1200">sortie</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">**</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">paramf=&#x2019;./SIMUL/para.&#x2019;//&#x2019;000&#x2019;//INTCH1</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">filew=&#x2019;./SIMUL/resultat.&#x2019;//&#x2019;000&#x2019;//INTCH1</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">ENDIF</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">IF</span>&#x00A0;<span 
class="ectt-1200">((j/10</span>&#x00A0;<span 
class="ectt-1200">.EQ.</span>&#x00A0;<span 
class="ectt-1200">1)</span>&#x00A0;<span 
class="ectt-1200">.OR.</span>&#x00A0;<span 
class="ectt-1200">((j/10</span>&#x00A0;<span 
class="ectt-1200">.GT.</span>&#x00A0;<span 
class="ectt-1200">1)</span>&#x00A0;<span 
class="ectt-1200">.AND.</span>&#x00A0;<span 
class="ectt-1200">(j/10</span>&#x00A0;<span 
class="ectt-1200">.LT.</span>&#x00A0;<span 
class="ectt-1200">10)))</span>&#x00A0;<span 
class="ectt-1200">THEN</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(INTCH2,</span>&#x00A0;<span 
class="ectt-1200">&#x2019;(I2)&#x2019;)</span>&#x00A0;<span 
class="ectt-1200">j</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Nom</span>&#x00A0;<span 
class="ectt-1200">du</span>&#x00A0;<span 
class="ectt-1200">fichier</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">parametres</span>&#x00A0;<span 
class="ectt-1200">en</span>&#x00A0;<span 
class="ectt-1200">sortie</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">**</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">paramf=&#x2019;./SIMUL/para.&#x2019;//&#x2019;00&#x2019;//INTCH2</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">filew=&#x2019;./SIMUL/resultat.&#x2019;//&#x2019;00&#x2019;//INTCH2</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">ENDIF</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">IF</span>&#x00A0;<span 
class="ectt-1200">((j/10</span>&#x00A0;<span 
class="ectt-1200">.EQ.</span>&#x00A0;<span 
class="ectt-1200">10)</span>&#x00A0;<span 
class="ectt-1200">.OR.</span>&#x00A0;<span 
class="ectt-1200">((j/10</span>&#x00A0;<span 
class="ectt-1200">.GT.</span>&#x00A0;<span 
class="ectt-1200">10)</span>&#x00A0;<span 
class="ectt-1200">.AND.</span>&#x00A0;<span 
class="ectt-1200">(j/10</span>&#x00A0;<span 
class="ectt-1200">.LT.</span>&#x00A0;<span 
class="ectt-1200">100)))</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">+</span>&#x00A0;<span 
class="ectt-1200">THEN</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(INTCH3,</span>&#x00A0;<span 
class="ectt-1200">&#x2019;(I3)&#x2019;)</span>&#x00A0;<span 
class="ectt-1200">j</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Nom</span>&#x00A0;<span 
class="ectt-1200">du</span>&#x00A0;<span 
class="ectt-1200">fichier</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">parametres</span>&#x00A0;<span 
class="ectt-1200">en</span>&#x00A0;<span 
class="ectt-1200">sortie</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">**</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">paramf=&#x2019;./SIMUL/para.&#x2019;//&#x2019;0&#x2019;//INTCH3</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">filew=&#x2019;./SIMUL/resultat.&#x2019;//&#x2019;0&#x2019;//INTCH3</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">ENDIF</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">IF</span>&#x00A0;<span 
class="ectt-1200">((j/10</span>&#x00A0;<span 
class="ectt-1200">.EQ.</span>&#x00A0;<span 
class="ectt-1200">100)</span>&#x00A0;<span 
class="ectt-1200">.OR.</span>&#x00A0;<span 
class="ectt-1200">((j/10</span>&#x00A0;<span 
class="ectt-1200">.GT.</span>&#x00A0;<span 
class="ectt-1200">100)</span>&#x00A0;<span 
class="ectt-1200">.AND.</span>&#x00A0;<span 
class="ectt-1200">(j/10</span>&#x00A0;<span 
class="ectt-1200">.LT.</span>&#x00A0;<span 
class="ectt-1200">1000)))</span>

&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">+</span>&#x00A0;<span 
class="ectt-1200">THEN</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(INTCH4,</span>&#x00A0;<span 
class="ectt-1200">&#x2019;(I4)&#x2019;)</span>&#x00A0;<span 
class="ectt-1200">j</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Nom</span>&#x00A0;<span 
class="ectt-1200">du</span>&#x00A0;<span 
class="ectt-1200">fichier</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">parametres</span>&#x00A0;<span 
class="ectt-1200">en</span>&#x00A0;<span 
class="ectt-1200">sortie</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">**</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">paramf=&#x2019;./SIMUL/para.&#x2019;//INTCH4</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">filew=&#x2019;./SIMUL/resultat.&#x2019;//INTCH4</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">ENDIF</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">IF</span>&#x00A0;<span 
class="ectt-1200">(loi</span>&#x00A0;<span 
class="ectt-1200">.EQ.</span>&#x00A0;<span 
class="ectt-1200">0)</span>&#x00A0;<span 
class="ectt-1200">THEN</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Quantiles</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">la</span>&#x00A0;<span 
class="ectt-1200">loi</span>&#x00A0;<span 
class="ectt-1200">du</span>&#x00A0;<span 
class="ectt-1200">Khi2</span>&#x00A0;<span 
class="ectt-1200">(K=10;alpha=0.1)</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">**</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">khi(1)=2.71</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">khi(2)=4.61</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">khi(3)=6.25</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">khi(4)=7.78</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">khi(5)=9.24</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">khi(6)=10.64</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">khi(7)=12.02</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">khi(8)=13.36</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">khi(9)=14.68</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">khi(10)=15.99</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Quantiles</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">la</span>&#x00A0;<span 
class="ectt-1200">loi</span>&#x00A0;<span 
class="ectt-1200">du</span>&#x00A0;<span 
class="ectt-1200">Khi2</span>&#x00A0;<span 
class="ectt-1200">(K=10;alpha=0.05)</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">**</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">khi2(1)=3.84</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">khi2(2)=5.99</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">khi2(3)=7.81</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">khi2(4)=9.49</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">khi2(5)=11.07</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">khi2(6)=12.59</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">khi2(7)=14.07</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">khi2(8)=15.51</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">khi2(9)=16.92</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">khi2(10)=18.31</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">ENDIF</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">IF</span>&#x00A0;<span 
class="ectt-1200">(loi</span>&#x00A0;<span 
class="ectt-1200">.NE.</span>&#x00A0;<span 
class="ectt-1200">0)</span>&#x00A0;<span 
class="ectt-1200">THEN</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Quantiles</span>&#x00A0;<span 
class="ectt-1200">utilises</span>&#x00A0;<span 
class="ectt-1200">pour</span>&#x00A0;<span 
class="ectt-1200">le</span>&#x00A0;<span 
class="ectt-1200">calcul</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">la</span>&#x00A0;<span 
class="ectt-1200">stat(vrais</span>&#x00A0;<span 
class="ectt-1200">quantiles</span>&#x00A0;<span 
class="ectt-1200">calcules</span>&#x00A0;<span 
class="ectt-1200">sous</span>&#x00A0;<span 
class="ectt-1200">H0)</span>&#x00A0;&#x00A0;<span 
class="ectt-1200">**</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">avec</span>&#x00A0;<span 
class="ectt-1200">alpha=0.1</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">khi(1)=2.71</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">khi(2)=4.61</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">khi(3)=6.25</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">khi(4)=7.78</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">khi(5)=9.24</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">khi(6)=10.64</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">khi(7)=12.02</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">khi(8)=13.36</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">khi(9)=14.68</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">khi(10)=15.99</span>

&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Quantiles</span>&#x00A0;<span 
class="ectt-1200">utilises</span>&#x00A0;<span 
class="ectt-1200">pour</span>&#x00A0;<span 
class="ectt-1200">le</span>&#x00A0;<span 
class="ectt-1200">calcul</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">la</span>&#x00A0;<span 
class="ectt-1200">stat(vrais</span>&#x00A0;<span 
class="ectt-1200">quantiles</span>&#x00A0;<span 
class="ectt-1200">calcules</span>&#x00A0;<span 
class="ectt-1200">sous</span>&#x00A0;<span 
class="ectt-1200">H0)</span>&#x00A0;&#x00A0;<span 
class="ectt-1200">**</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">avec</span>&#x00A0;<span 
class="ectt-1200">alpha=0.05</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">khi2(1)=3.84</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">khi2(2)=5.99</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">khi2(3)=7.81</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">khi2(4)=9.49</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">khi2(5)=11.07</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">khi2(6)=12.59</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">khi2(7)=14.07</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">khi2(8)=15.51</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">khi2(9)=16.92</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">khi2(10)=18.31</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">ENDIF</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">On</span>&#x00A0;<span 
class="ectt-1200">peut</span>&#x00A0;<span 
class="ectt-1200">aussi</span>&#x00A0;<span 
class="ectt-1200">changer</span>&#x00A0;<span 
class="ectt-1200">le</span>&#x00A0;<span 
class="ectt-1200">nom</span>&#x00A0;<span 
class="ectt-1200">du</span>&#x00A0;<span 
class="ectt-1200">fichier</span>&#x00A0;<span 
class="ectt-1200">en</span>&#x00A0;<span 
class="ectt-1200">entree</span>&#x00A0;<span 
class="ectt-1200">(data.txt)</span>&#x00A0;<span 
class="ectt-1200">et</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">**</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">le</span>&#x00A0;<span 
class="ectt-1200">nom</span>&#x00A0;<span 
class="ectt-1200">du</span>&#x00A0;<span 
class="ectt-1200">fichier</span>&#x00A0;<span 
class="ectt-1200">en</span>&#x00A0;<span 
class="ectt-1200">sortie</span>&#x00A0;<span 
class="ectt-1200">(resultat.txt)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">filer=&#x2019;data.txt&#x2019;</span>
&#x00A0;<br /><span 
class="ectt-1200">c-----------------------------------------------------------</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">------------------------------------------------------------------------</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DEBUT</span>&#x00A0;<span 
class="ectt-1200">DU</span>&#x00A0;<span 
class="ectt-1200">PROGRAMME</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">------------------------------------------------------------------------</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CALL</span>&#x00A0;<span 
class="ectt-1200">cdARMA(dataf,paramf,nbcle,marret,Mind,sigma,mu,df1,df2,</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">+</span>&#x00A0;<span 
class="ectt-1200">lambda,loi5b,loi5k,loi6p,loi6q,loi7g,loi7d,loi8p,loi8q,loi9a,</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">+loi9b,loi10b,loi10l,loi11a,loi11k,loi13g,loi13d,loi14l,loi16p,</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">+loi16d,loi17p,loi17m,loi18g,loi18d,loi19a,loi19b,loi,p,q,rm,nT,</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">+</span>&#x00A0;<span 
class="ectt-1200">phi,phich,teta,tetach,donees,A,</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">+</span>&#x00A0;<span 
class="ectt-1200">B,R,NPAR,ICM,IW,PAR,W,CGETOL,V,G,CM,WORK,MEAN,PARHLD,EXACT,Wtip,</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">+</span>&#x00A0;<span 
class="ectt-1200">shocks,psi,phi2,teta2,YtpMn,Atnq,EspSU,EspSB,EspS,</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">+E,NA,NB,NR,K,N2,IP,IQ,IK,MAXCAL,ISHOW,LWORK,LIW,QQ)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Il</span>&#x00A0;<span 
class="ectt-1200">faut</span>&#x00A0;<span 
class="ectt-1200">faire</span>&#x00A0;<span 
class="ectt-1200">modifier</span>&#x00A0;<span 
class="ectt-1200">par</span>&#x00A0;<span 
class="ectt-1200">cdARMA</span>&#x00A0;<span 
class="ectt-1200">la</span>&#x00A0;<span 
class="ectt-1200">valeur</span>&#x00A0;<span 
class="ectt-1200">nbcle</span>&#x00A0;<span 
class="ectt-1200">en</span>&#x00A0;<span 
class="ectt-1200">entree</span>&#x00A0;<span 
class="ectt-1200">pour</span>&#x00A0;<span 
class="ectt-1200">lui</span>&#x00A0;<span 
class="ectt-1200">faire</span>&#x00A0;<span 
class="ectt-1200">sortir</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">une</span>&#x00A0;<span 
class="ectt-1200">nouvelle</span>&#x00A0;<span 
class="ectt-1200">valeur</span>&#x00A0;<span 
class="ectt-1200">nbcle</span>&#x00A0;<span 
class="ectt-1200">qui</span>&#x00A0;<span 
class="ectt-1200">est</span>&#x00A0;<span 
class="ectt-1200">le</span>&#x00A0;<span 
class="ectt-1200">nombre</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">bons</span>&#x00A0;<span 
class="ectt-1200">echantillons</span>&#x00A0;<span 
class="ectt-1200">conserves</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Ensuite,</span>&#x00A0;<span 
class="ectt-1200">il</span>&#x00A0;<span 
class="ectt-1200">faut</span>&#x00A0;<span 
class="ectt-1200">utiliser</span>&#x00A0;<span 
class="ectt-1200">cette</span>&#x00A0;<span 
class="ectt-1200">valeur</span>&#x00A0;<span 
class="ectt-1200">dans</span>&#x00A0;<span 
class="ectt-1200">calcstat,</span>&#x00A0;<span 
class="ectt-1200">comme</span>&#x00A0;<span 
class="ectt-1200">etant</span>&#x00A0;<span 
class="ectt-1200">la</span>&#x00A0;<span 
class="ectt-1200">vraie</span>&#x00A0;<span 
class="ectt-1200">valeur</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">du</span>&#x00A0;<span 
class="ectt-1200">nombre</span>&#x00A0;<span 
class="ectt-1200">d&#x2019;echantillons</span>&#x00A0;<span 
class="ectt-1200">disponibles,</span>&#x00A0;<span 
class="ectt-1200">la</span>&#x00A0;<span 
class="ectt-1200">valeur</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">n</span>&#x00A0;<span 
class="ectt-1200">que</span>&#x00A0;<span 
class="ectt-1200">l&#x2019;on</span>&#x00A0;<span 
class="ectt-1200">a</span>&#x00A0;<span 
class="ectt-1200">mise</span>&#x00A0;<span 
class="ectt-1200">etant</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">la</span>&#x00A0;<span 
class="ectt-1200">valeur</span>&#x00A0;<span 
class="ectt-1200">maximale</span>&#x00A0;<span 
class="ectt-1200">possible</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">bons</span>&#x00A0;<span 
class="ectt-1200">echantillons,</span>&#x00A0;<span 
class="ectt-1200">donc</span>&#x00A0;<span 
class="ectt-1200">les</span>&#x00A0;<span 
class="ectt-1200">differentes</span>&#x00A0;<span 
class="ectt-1200">matrices</span>&#x00A0;<span 
class="ectt-1200">initialisees</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">a</span>&#x00A0;<span 
class="ectt-1200">l&#x2019;aide</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">la</span>&#x00A0;<span 
class="ectt-1200">valeur</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">n</span>&#x00A0;<span 
class="ectt-1200">sont</span>&#x00A0;<span 
class="ectt-1200">plus</span>&#x00A0;<span 
class="ectt-1200">grandes</span>&#x00A0;<span 
class="ectt-1200">que</span>&#x00A0;<span 
class="ectt-1200">necessaires</span>&#x00A0;<span 
class="ectt-1200">(elles</span>&#x00A0;<span 
class="ectt-1200">auraient</span>&#x00A0;<span 
class="ectt-1200">du</span>&#x00A0;<span 
class="ectt-1200">etre</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">initialisees</span>&#x00A0;<span 
class="ectt-1200">avec</span>&#x00A0;<span 
class="ectt-1200">la</span>&#x00A0;<span 
class="ectt-1200">valeur</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">nbcle</span>&#x00A0;<span 
class="ectt-1200">renvoyee</span>&#x00A0;<span 
class="ectt-1200">par</span>&#x00A0;<span 
class="ectt-1200">cd</span>&#x00A0;<span 
class="ectt-1200">ARMA</span>&#x00A0;<span 
class="ectt-1200">mais</span>&#x00A0;<span 
class="ectt-1200">ce</span>&#x00A0;<span 
class="ectt-1200">n&#x2019;est</span>&#x00A0;<span 
class="ectt-1200">pas</span>&#x00A0;<span 
class="ectt-1200">possible</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">avec</span>&#x00A0;<span 
class="ectt-1200">fortran77)</span>&#x00A0;<span 
class="ectt-1200">et</span>&#x00A0;<span 
class="ectt-1200">il</span>&#x00A0;<span 
class="ectt-1200">faut</span>&#x00A0;<span 
class="ectt-1200">en</span>&#x00A0;<span 
class="ectt-1200">tenir</span>&#x00A0;<span 
class="ectt-1200">compte;</span>&#x00A0;<span 
class="ectt-1200">donc</span>&#x00A0;<span 
class="ectt-1200">bien</span>&#x00A0;<span 
class="ectt-1200">regarder</span>&#x00A0;<span 
class="ectt-1200">partout</span>&#x00A0;<span 
class="ectt-1200">dans</span>&#x00A0;<span 
class="ectt-1200">le</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">programme</span>&#x00A0;<span 
class="ectt-1200">calcstat</span>&#x00A0;<span 
class="ectt-1200">la</span>&#x00A0;<span 
class="ectt-1200">ou</span>&#x00A0;<span 
class="ectt-1200">il</span>&#x00A0;<span 
class="ectt-1200">y</span>&#x00A0;<span 
class="ectt-1200">a</span>&#x00A0;<span 
class="ectt-1200">n:</span>&#x00A0;<span 
class="ectt-1200">OK</span>&#x00A0;<span 
class="ectt-1200">CA</span>&#x00A0;<span 
class="ectt-1200">C&#x2019;EST</span>&#x00A0;<span 
class="ectt-1200">FAIT!!!</span>&#x00A0;<span 
class="ectt-1200">A</span>&#x00A0;<span 
class="ectt-1200">METTRE</span>&#x00A0;<span 
class="ectt-1200">EN</span>&#x00A0;<span 
class="ectt-1200">COMMENTAIRES</span>&#x00A0;<span 
class="ectt-1200">QUELQUEPART</span>&#x00A0;<span 
class="ectt-1200">...</span>
&#x00A0;<br /><span 
class="ectt-1200">CALL</span>&#x00A0;<span 
class="ectt-1200">calcstat(isa,khi,khi2,QuLed1,QuLe12,QuLed2,QuLe22,QuBD,</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">+</span>&#x00A0;<span 
class="ectt-1200">QuBD2,QuAD,QuAD2,QuJB,QuJB2,alpha,alpha2,Kp,p,q,nT,phi,teta,n,</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">+</span>&#x00A0;<span 
class="ectt-1200">nbcle,m,filer,filew,valeur,sch2vc,epscha,compt,compt2,statn,</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">+</span>&#x00A0;<span 
class="ectt-1200">KoLed1,KoLed2,Ledwi1,Ledwi2,snLed1,snLed2,stanBD,stanAD,stanJB,Z,</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">+</span>&#x00A0;<span 
class="ectt-1200">D,Davant,E2,U,hUetoi,Uavant,hKetoi,hU,hK,vecteu,vectoi,stat,</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">+</span>&#x00A0;<span 
class="ectt-1200">Zavant,BDa,BDb,BDc,BDd,Davan2,ADa,ADb,Puiss,Puiss2,snsort,snsorv,</span>

&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">+</span>&#x00A0;<span 
class="ectt-1200">Qucalc,snLe1s,snLe2s,snBDso,snADso,snJBso,matric,paramf,loi,</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">+</span>&#x00A0;<span 
class="ectt-1200">dnT,QLed1u,QLe12u,QLed2u,QLe22u,QBDu,QBD2u,QADu,QAD2u,QJBu,QJB2u)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">nbcle=nbclea</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">FAIRE</span>&#x00A0;<span 
class="ectt-1200">ATTENTION:</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">voir</span>&#x00A0;<span 
class="ectt-1200">si</span>&#x00A0;<span 
class="ectt-1200">mes</span>&#x00A0;<span 
class="ectt-1200">programmes</span>&#x00A0;<span 
class="ectt-1200">ne</span>&#x00A0;<span 
class="ectt-1200">modifient</span>&#x00A0;<span 
class="ectt-1200">pas</span>&#x00A0;<span 
class="ectt-1200">certains</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">leurs</span>&#x00A0;<span 
class="ectt-1200">parametres</span>&#x00A0;<span 
class="ectt-1200">en</span>&#x00A0;<span 
class="ectt-1200">entree</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">ce</span>&#x00A0;<span 
class="ectt-1200">qui</span>&#x00A0;<span 
class="ectt-1200">pourrait</span>&#x00A0;<span 
class="ectt-1200">ammener</span>&#x00A0;<span 
class="ectt-1200">des</span>&#x00A0;<span 
class="ectt-1200">erreurs</span>&#x00A0;<span 
class="ectt-1200">au</span>&#x00A0;<span 
class="ectt-1200">cours</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">la</span>&#x00A0;<span 
class="ectt-1200">boucle</span>&#x00A0;<span 
class="ectt-1200">que</span>&#x00A0;<span 
class="ectt-1200">je</span>&#x00A0;<span 
class="ectt-1200">vais</span>&#x00A0;<span 
class="ectt-1200">faire</span>&#x00A0;<span 
class="ectt-1200">dans</span>&#x00A0;<span 
class="ectt-1200">le</span>&#x00A0;<span 
class="ectt-1200">programme</span>&#x00A0;<span 
class="ectt-1200">test.f</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">pour</span>&#x00A0;<span 
class="ectt-1200">les</span>&#x00A0;<span 
class="ectt-1200">differentes</span>&#x00A0;<span 
class="ectt-1200">etapes</span>&#x00A0;<span 
class="ectt-1200">1),</span>&#x00A0;<span 
class="ectt-1200">2)</span>&#x00A0;<span 
class="ectt-1200">et</span>&#x00A0;<span 
class="ectt-1200">3)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CALL</span>&#x00A0;<span 
class="ectt-1200">SYSTEM(efface)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Sauvegarde</span>&#x00A0;<span 
class="ectt-1200">du</span>&#x00A0;<span 
class="ectt-1200">seed</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">OPEN(UNIT=14,</span>&#x00A0;<span 
class="ectt-1200">FILE=paramf</span>&#x00A0;<span 
class="ectt-1200">,</span>&#x00A0;<span 
class="ectt-1200">STATUS=&#x2019;OLD&#x2019;,</span>&#x00A0;<span 
class="ectt-1200">ACCESS=&#x2019;append&#x2019;</span>&#x00A0;<span 
class="ectt-1200">)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(14,*)</span>&#x00A0;<span 
class="ectt-1200">&#x2019;Sauvegarde</span>&#x00A0;<span 
class="ectt-1200">du</span>&#x00A0;<span 
class="ectt-1200">seed:&#x2019;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(14,*)</span>&#x00A0;<span 
class="ectt-1200">&#x2019;XA:&#x2019;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(14,15)</span>&#x00A0;<span 
class="ectt-1200">&#x2019;XA(1)=&#x2019;,XA(1)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(14,15)</span>&#x00A0;<span 
class="ectt-1200">&#x2019;XA(2)=&#x2019;,XA(2)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(14,15)</span>&#x00A0;<span 
class="ectt-1200">&#x2019;XA(3)=&#x2019;,XA(3)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(14,15)</span>&#x00A0;<span 
class="ectt-1200">&#x2019;XA(4)=&#x2019;,XA(4)</span>
&#x00A0;<br />&#x00A0;<span 
class="ectt-1200">15</span>&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">FORMAT(A6,1F20.15)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(14,*)</span>&#x00A0;<span 
class="ectt-1200">&#x2019;IA:&#x2019;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(14,30)</span>&#x00A0;<span 
class="ectt-1200">&#x2019;IA(1)=&#x2019;,IA(1)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(14,30)</span>&#x00A0;<span 
class="ectt-1200">&#x2019;IA(2)=&#x2019;,IA(2)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(14,30)</span>&#x00A0;<span 
class="ectt-1200">&#x2019;IA(3)=&#x2019;,IA(3)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(14,30)</span>&#x00A0;<span 
class="ectt-1200">&#x2019;IA(4)=&#x2019;,IA(4)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(14,30)</span>&#x00A0;<span 
class="ectt-1200">&#x2019;IA(5)=&#x2019;,IA(5)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(14,30)</span>&#x00A0;<span 
class="ectt-1200">&#x2019;IA(6)=&#x2019;,IA(6)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(14,30)</span>&#x00A0;<span 
class="ectt-1200">&#x2019;IA(7)=&#x2019;,IA(7)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(14,30)</span>&#x00A0;<span 
class="ectt-1200">&#x2019;IA(8)=&#x2019;,IA(8)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(14,30)</span>&#x00A0;<span 
class="ectt-1200">&#x2019;IA(9)=&#x2019;,IA(9)</span>
&#x00A0;<br />&#x00A0;<span 
class="ectt-1200">30</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">FORMAT(A6,1I10)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CLOSE(UNIT=14)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">END</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INCLUDE</span>&#x00A0;<span 
class="ectt-1200">&#x2019;mean.f&#x2019;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INCLUDE</span>&#x00A0;<span 
class="ectt-1200">&#x2019;simulARMA.f&#x2019;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INCLUDE</span>&#x00A0;<span 
class="ectt-1200">&#x2019;ARMpsi.f&#x2019;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INCLUDE</span>&#x00A0;<span 
class="ectt-1200">&#x2019;shock.f&#x2019;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INCLUDE</span>&#x00A0;<span 
class="ectt-1200">&#x2019;rskew.f&#x2019;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INCLUDE</span>&#x00A0;<span 
class="ectt-1200">&#x2019;rlap.f&#x2019;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INCLUDE</span>&#x00A0;<span 
class="ectt-1200">&#x2019;rpare.f&#x2019;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INCLUDE</span>&#x00A0;<span 
class="ectt-1200">&#x2019;rspare.f&#x2019;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INCLUDE</span>&#x00A0;<span 
class="ectt-1200">&#x2019;rSU.f&#x2019;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INCLUDE</span>&#x00A0;<span 
class="ectt-1200">&#x2019;rTU.f&#x2019;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INCLUDE</span>&#x00A0;<span 
class="ectt-1200">&#x2019;rSC.f&#x2019;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INCLUDE</span>&#x00A0;<span 
class="ectt-1200">&#x2019;rLC.f&#x2019;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INCLUDE</span>&#x00A0;<span 
class="ectt-1200">&#x2019;rSB.f&#x2019;</span>

&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INCLUDE</span>&#x00A0;<span 
class="ectt-1200">&#x2019;rS.f&#x2019;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INCLUDE</span>&#x00A0;<span 
class="ectt-1200">&#x2019;H1etoile.f&#x2019;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INCLUDE</span>&#x00A0;<span 
class="ectt-1200">&#x2019;H2etoile.f&#x2019;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INCLUDE</span>&#x00A0;<span 
class="ectt-1200">&#x2019;H3etoile.f&#x2019;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INCLUDE</span>&#x00A0;<span 
class="ectt-1200">&#x2019;H4etoile.f&#x2019;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INCLUDE</span>&#x00A0;<span 
class="ectt-1200">&#x2019;H5etoile.f&#x2019;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INCLUDE</span>&#x00A0;<span 
class="ectt-1200">&#x2019;H6etoile.f&#x2019;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INCLUDE</span>&#x00A0;<span 
class="ectt-1200">&#x2019;H7etoile.f&#x2019;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INCLUDE</span>&#x00A0;<span 
class="ectt-1200">&#x2019;H8etoile.f&#x2019;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INCLUDE</span>&#x00A0;<span 
class="ectt-1200">&#x2019;H9etoile.f&#x2019;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INCLUDE</span>&#x00A0;<span 
class="ectt-1200">&#x2019;H10etoile.f&#x2019;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INCLUDE</span>&#x00A0;<span 
class="ectt-1200">&#x2019;H1isa.f&#x2019;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INCLUDE</span>&#x00A0;<span 
class="ectt-1200">&#x2019;H2isa.f&#x2019;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INCLUDE</span>&#x00A0;<span 
class="ectt-1200">&#x2019;H3isa.f&#x2019;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INCLUDE</span>&#x00A0;<span 
class="ectt-1200">&#x2019;H4isa.f&#x2019;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INCLUDE</span>&#x00A0;<span 
class="ectt-1200">&#x2019;H5isa.f&#x2019;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INCLUDE</span>&#x00A0;<span 
class="ectt-1200">&#x2019;H6isa.f&#x2019;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INCLUDE</span>&#x00A0;<span 
class="ectt-1200">&#x2019;H7isa.f&#x2019;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INCLUDE</span>&#x00A0;<span 
class="ectt-1200">&#x2019;H8isa.f&#x2019;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INCLUDE</span>&#x00A0;<span 
class="ectt-1200">&#x2019;H9isa.f&#x2019;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INCLUDE</span>&#x00A0;<span 
class="ectt-1200">&#x2019;H10isa.f&#x2019;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INCLUDE</span>&#x00A0;<span 
class="ectt-1200">&#x2019;H1.f&#x2019;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INCLUDE</span>&#x00A0;<span 
class="ectt-1200">&#x2019;H2.f&#x2019;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INCLUDE</span>&#x00A0;<span 
class="ectt-1200">&#x2019;H3.f&#x2019;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INCLUDE</span>&#x00A0;<span 
class="ectt-1200">&#x2019;H4.f&#x2019;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INCLUDE</span>&#x00A0;<span 
class="ectt-1200">&#x2019;H5.f&#x2019;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INCLUDE</span>&#x00A0;<span 
class="ectt-1200">&#x2019;H6.f&#x2019;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INCLUDE</span>&#x00A0;<span 
class="ectt-1200">&#x2019;H7.f&#x2019;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INCLUDE</span>&#x00A0;<span 
class="ectt-1200">&#x2019;H8.f&#x2019;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INCLUDE</span>&#x00A0;<span 
class="ectt-1200">&#x2019;H9.f&#x2019;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INCLUDE</span>&#x00A0;<span 
class="ectt-1200">&#x2019;H10.f&#x2019;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INCLUDE</span>&#x00A0;<span 
class="ectt-1200">&#x2019;qnorm.f&#x2019;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INCLUDE</span>&#x00A0;<span 
class="ectt-1200">&#x2019;pnorm.f&#x2019;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INCLUDE</span>&#x00A0;<span 
class="ectt-1200">&#x2019;min.f&#x2019;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INCLUDE</span>&#x00A0;<span 
class="ectt-1200">&#x2019;max.f&#x2019;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INCLUDE</span>&#x00A0;<span 
class="ectt-1200">&#x2019;var.f&#x2019;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INCLUDE</span>&#x00A0;<span 
class="ectt-1200">&#x2019;creerdat_ARMA.f&#x2019;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INCLUDE</span>&#x00A0;<span 
class="ectt-1200">&#x2019;calcstat.f&#x2019;</span>
</div> <span 
class="ecbx-1200">Programme big_prog_ARMA12.f </span><div class="verbatiminput">
<span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Idee</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">ce</span>&#x00A0;&#x00A0;<span 
class="ectt-1200">programme:</span>

&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Etape1)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">On</span>&#x00A0;<span 
class="ectt-1200">cree</span>&#x00A0;<span 
class="ectt-1200">un</span>&#x00A0;<span 
class="ectt-1200">fichier</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">donnees</span>&#x00A0;<span 
class="ectt-1200">&#x2019;data.txt&#x2019;</span>&#x00A0;<span 
class="ectt-1200">en</span>&#x00A0;<span 
class="ectt-1200">utilisant</span>&#x00A0;<span 
class="ectt-1200">certaines</span>&#x00A0;<span 
class="ectt-1200">valeurs</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">parametres</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">a</span>&#x00A0;<span 
class="ectt-1200">lire</span>&#x00A0;<span 
class="ectt-1200">dans</span>&#x00A0;<span 
class="ectt-1200">un</span>&#x00A0;<span 
class="ectt-1200">fichier</span>&#x00A0;<span 
class="ectt-1200">d&#x2019;entree</span>&#x00A0;<span 
class="ectt-1200">&#x2019;ftemp&#x2019;</span>&#x00A0;<span 
class="ectt-1200">cree</span>&#x00A0;<span 
class="ectt-1200">par</span>&#x00A0;<span 
class="ectt-1200">le</span>&#x00A0;<span 
class="ectt-1200">programme</span>&#x00A0;<span 
class="ectt-1200">test.f</span>&#x00A0;<span 
class="ectt-1200">a</span>&#x00A0;<span 
class="ectt-1200">l&#x2019;aide</span>&#x00A0;<span 
class="ectt-1200">du</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">fichier</span>&#x00A0;<span 
class="ectt-1200">&#x2019;paramentree&#x2019;,</span>&#x00A0;<span 
class="ectt-1200">on</span>&#x00A0;<span 
class="ectt-1200">stocke</span>&#x00A0;<span 
class="ectt-1200">les</span>&#x00A0;<span 
class="ectt-1200">resultats</span>&#x00A0;<span 
class="ectt-1200">autres</span>&#x00A0;<span 
class="ectt-1200">que</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">les</span>&#x00A0;<span 
class="ectt-1200">donnees</span>&#x00A0;<span 
class="ectt-1200">dans</span>&#x00A0;<span 
class="ectt-1200">un</span>&#x00A0;<span 
class="ectt-1200">fichier</span>&#x00A0;<span 
class="ectt-1200">&#x2019;param.i&#x2019;</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Etape</span>&#x00A0;<span 
class="ectt-1200">2)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">ensuite</span>&#x00A0;<span 
class="ectt-1200">on</span>&#x00A0;<span 
class="ectt-1200">utilise</span>&#x00A0;<span 
class="ectt-1200">le</span>&#x00A0;<span 
class="ectt-1200">fichier</span>&#x00A0;<span 
class="ectt-1200">&#x2019;data.txt&#x2019;</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">avec</span>&#x00A0;<span 
class="ectt-1200">le</span>&#x00A0;<span 
class="ectt-1200">programme</span>&#x00A0;<span 
class="ectt-1200">calcstat</span>&#x00A0;<span 
class="ectt-1200">pour</span>&#x00A0;<span 
class="ectt-1200">creer</span>&#x00A0;<span 
class="ectt-1200">le</span>&#x00A0;<span 
class="ectt-1200">fichier</span>&#x00A0;<span 
class="ectt-1200">des</span>&#x00A0;<span 
class="ectt-1200">statistiques</span>&#x00A0;<span 
class="ectt-1200">&#x2019;resultat.i&#x2019;</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Etape</span>&#x00A0;<span 
class="ectt-1200">3)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Ensuite,</span>&#x00A0;<span 
class="ectt-1200">on</span>&#x00A0;<span 
class="ectt-1200">efface</span>&#x00A0;<span 
class="ectt-1200">le</span>&#x00A0;<span 
class="ectt-1200">fichier</span>&#x00A0;<span 
class="ectt-1200">&#x2019;data.txt&#x2019;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PROGRAM</span>&#x00A0;<span 
class="ectt-1200">main</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Les</span>&#x00A0;<span 
class="ectt-1200">**</span>&#x00A0;<span 
class="ectt-1200">indiquent</span>&#x00A0;<span 
class="ectt-1200">les</span>&#x00A0;<span 
class="ectt-1200">endroits</span>&#x00A0;<span 
class="ectt-1200">ou</span>&#x00A0;<span 
class="ectt-1200">des</span>&#x00A0;<span 
class="ectt-1200">changements</span>&#x00A0;<span 
class="ectt-1200">peuvent</span>&#x00A0;<span 
class="ectt-1200">etre</span>&#x00A0;<span 
class="ectt-1200">necessaires</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">--------------------------------------------------------------------------</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DEBUT</span>&#x00A0;<span 
class="ectt-1200">DE</span>&#x00A0;<span 
class="ectt-1200">DECLARATION</span>&#x00A0;<span 
class="ectt-1200">DES</span>&#x00A0;<span 
class="ectt-1200">VARIABLES</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">--------------------------------------------------------------------------</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Si</span>&#x00A0;<span 
class="ectt-1200">isa=.TRUE.</span>&#x00A0;<span 
class="ectt-1200">(ie</span>&#x00A0;<span 
class="ectt-1200">MEAN=.TRUE.)</span>&#x00A0;<span 
class="ectt-1200">on</span>&#x00A0;<span 
class="ectt-1200">prend</span>&#x00A0;<span 
class="ectt-1200">les</span>&#x00A0;<span 
class="ectt-1200">polynomes</span>&#x00A0;<span 
class="ectt-1200">modifies</span>&#x00A0;<span 
class="ectt-1200">avec</span>&#x00A0;<span 
class="ectt-1200">les</span>&#x00A0;<span 
class="ectt-1200">ak</span>&#x00A0;&#x00A0;<span 
class="ectt-1200">**</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Si</span>&#x00A0;<span 
class="ectt-1200">isa=.FALSE.</span>&#x00A0;<span 
class="ectt-1200">(ie</span>&#x00A0;<span 
class="ectt-1200">MEAN=.FALSE.)</span>&#x00A0;<span 
class="ectt-1200">on</span>&#x00A0;<span 
class="ectt-1200">prend</span>&#x00A0;<span 
class="ectt-1200">les</span>&#x00A0;<span 
class="ectt-1200">polynomes</span>&#x00A0;<span 
class="ectt-1200">modifies</span>&#x00A0;<span 
class="ectt-1200">sans</span>&#x00A0;<span 
class="ectt-1200">les</span>&#x00A0;<span 
class="ectt-1200">ak</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">LOGICAL</span>&#x00A0;<span 
class="ectt-1200">isa</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(isa=.FALSE.)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">------------------------------------</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">parametres</span>&#x00A0;<span 
class="ectt-1200">calcstat</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Niveau</span>&#x00A0;<span 
class="ectt-1200">1</span>&#x00A0;<span 
class="ectt-1200">du</span>&#x00A0;<span 
class="ectt-1200">test</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">**</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">alpha</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(alpha=0.1)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Niveau</span>&#x00A0;<span 
class="ectt-1200">2</span>&#x00A0;<span 
class="ectt-1200">du</span>&#x00A0;<span 
class="ectt-1200">test</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">**</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">alpha2</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(alpha2=0.05)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Quantiles</span>&#x00A0;<span 
class="ectt-1200">avec</span>&#x00A0;<span 
class="ectt-1200">alpha</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;&#x00A0;<span 
class="ectt-1200">khi(10)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Quantiles</span>&#x00A0;<span 
class="ectt-1200">avec</span>&#x00A0;<span 
class="ectt-1200">alpha2</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;&#x00A0;<span 
class="ectt-1200">khi2(10)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Quantiles</span>&#x00A0;<span 
class="ectt-1200">Ledwi1</span>&#x00A0;<span 
class="ectt-1200">et</span>&#x00A0;<span 
class="ectt-1200">Ledwi2</span>&#x00A0;<span 
class="ectt-1200">avec</span>&#x00A0;<span 
class="ectt-1200">alpha</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">**</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">QuLed1,</span>&#x00A0;<span 
class="ectt-1200">QuLed2</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">avec</span>&#x00A0;<span 
class="ectt-1200">T=50</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(QuLed1=3.69,QuLed2=5.466)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">avec</span>&#x00A0;<span 
class="ectt-1200">T=100</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(QuLed1=3.275,QuLed2=5.26)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">avec</span>&#x00A0;<span 
class="ectt-1200">T=200</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(QuLed1=3.057,QuLed2=5.043)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Quantiles</span>&#x00A0;<span 
class="ectt-1200">Ledwi1</span>&#x00A0;<span 
class="ectt-1200">et</span>&#x00A0;<span 
class="ectt-1200">Ledwi2</span>&#x00A0;<span 
class="ectt-1200">avec</span>&#x00A0;<span 
class="ectt-1200">alpha2</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">**</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">QuLe12,</span>&#x00A0;<span 
class="ectt-1200">QuLe22</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">avec</span>&#x00A0;<span 
class="ectt-1200">T=50</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(QuLe12=5.41,QuLe22=7.14)</span>

&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">avec</span>&#x00A0;<span 
class="ectt-1200">T=100</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(QuLe12=5.20,QuLe22=6.97)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">avec</span>&#x00A0;<span 
class="ectt-1200">T=200</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(QuLe12=4.751,QuLe22=6.796)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Quantiles</span>&#x00A0;<span 
class="ectt-1200">Brockwell</span>&#x00A0;<span 
class="ectt-1200">et</span>&#x00A0;<span 
class="ectt-1200">Davis</span>&#x00A0;<span 
class="ectt-1200">et</span>&#x00A0;<span 
class="ectt-1200">Anderson</span>&#x00A0;<span 
class="ectt-1200">Darling</span>&#x00A0;<span 
class="ectt-1200">et</span>&#x00A0;<span 
class="ectt-1200">JB</span>&#x00A0;<span 
class="ectt-1200">avec</span>&#x00A0;<span 
class="ectt-1200">alpha</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">**</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">QuBD,</span>&#x00A0;<span 
class="ectt-1200">QuAD,</span>&#x00A0;<span 
class="ectt-1200">QuJB</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">avec</span>&#x00A0;<span 
class="ectt-1200">T=50</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(QuBD=0.920,QuAD=1.743,QuJB=4.61)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">avec</span>&#x00A0;<span 
class="ectt-1200">T=100</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(QuBD=0.958,QuAD=1.743,QuJB=4.61)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">avec</span>&#x00A0;<span 
class="ectt-1200">T=200</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(QuBD=0.978,QuAD=1.743,QuJB=4.61)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Quantiles</span>&#x00A0;<span 
class="ectt-1200">Brockwell</span>&#x00A0;<span 
class="ectt-1200">et</span>&#x00A0;<span 
class="ectt-1200">Davis</span>&#x00A0;<span 
class="ectt-1200">et</span>&#x00A0;<span 
class="ectt-1200">Anderson</span>&#x00A0;<span 
class="ectt-1200">Darling</span>&#x00A0;<span 
class="ectt-1200">et</span>&#x00A0;<span 
class="ectt-1200">JB</span>&#x00A0;<span 
class="ectt-1200">avec</span>&#x00A0;<span 
class="ectt-1200">alpha2</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">**</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">QuBD2,</span>&#x00A0;<span 
class="ectt-1200">QuAD2,</span>&#x00A0;<span 
class="ectt-1200">QuJB2</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">avec</span>&#x00A0;<span 
class="ectt-1200">T=50</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(QuBD2=0.899,QuAD2=2.308,QuJB2=5.99)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">avec</span>&#x00A0;<span 
class="ectt-1200">T=100</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(QuBD2=0.947,QuAD2=2.308,QuJB2=5.99)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">avec</span>&#x00A0;<span 
class="ectt-1200">T=200</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(QuBD2=0.973,QuAD2=2.308,QuJB2=5.99)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Nombre</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">polynomes</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">**</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">Kp</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(Kp=10)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">ordre</span>&#x00A0;<span 
class="ectt-1200">du</span>&#x00A0;<span 
class="ectt-1200">modele</span>&#x00A0;<span 
class="ectt-1200">AR</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">p</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(p=1)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">ordre</span>&#x00A0;<span 
class="ectt-1200">du</span>&#x00A0;<span 
class="ectt-1200">modele</span>&#x00A0;<span 
class="ectt-1200">MA</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">q</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(q=2)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">nombre</span>&#x00A0;<span 
class="ectt-1200">d&#x2019;observations</span>&#x00A0;<span 
class="ectt-1200">dans</span>&#x00A0;<span 
class="ectt-1200">mon</span>&#x00A0;<span 
class="ectt-1200">echantillon</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">**</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Si</span>&#x00A0;<span 
class="ectt-1200">on</span>&#x00A0;<span 
class="ectt-1200">change</span>&#x00A0;<span 
class="ectt-1200">la</span>&#x00A0;<span 
class="ectt-1200">valeur</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">nT,</span>&#x00A0;<span 
class="ectt-1200">il</span>&#x00A0;<span 
class="ectt-1200">faut</span>&#x00A0;<span 
class="ectt-1200">aller</span>&#x00A0;<span 
class="ectt-1200">modifier</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">la</span>&#x00A0;<span 
class="ectt-1200">valeur</span>&#x00A0;<span 
class="ectt-1200">dans</span>&#x00A0;<span 
class="ectt-1200">FORMAT</span>&#x00A0;<span 
class="ectt-1200">a</span>&#x00A0;<span 
class="ectt-1200">la</span>&#x00A0;<span 
class="ectt-1200">fin</span>&#x00A0;<span 
class="ectt-1200">du</span>&#x00A0;<span 
class="ectt-1200">programme</span>&#x00A0;<span 
class="ectt-1200">creerdat_ARMA.f</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">nT</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(nT=100)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">n,m</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(m=nT+1)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">n=nombre</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">lignes</span>&#x00A0;<span 
class="ectt-1200">au</span>&#x00A0;<span 
class="ectt-1200">maximum</span>&#x00A0;<span 
class="ectt-1200">dans</span>&#x00A0;<span 
class="ectt-1200">le</span>&#x00A0;<span 
class="ectt-1200">fichier</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">donnees</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">**</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">cela</span>&#x00A0;<span 
class="ectt-1200">correspond</span>&#x00A0;<span 
class="ectt-1200">a</span>&#x00A0;<span 
class="ectt-1200">nbcle</span>&#x00A0;<span 
class="ectt-1200">s&#x2019;il</span>&#x00A0;<span 
class="ectt-1200">n&#x2019;y</span>&#x00A0;<span 
class="ectt-1200">a</span>&#x00A0;<span 
class="ectt-1200">pas</span>&#x00A0;<span 
class="ectt-1200">eu</span>&#x00A0;<span 
class="ectt-1200">d&#x2019;erreurs</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">dans</span>&#x00A0;<span 
class="ectt-1200">tous</span>&#x00A0;<span 
class="ectt-1200">les</span>&#x00A0;<span 
class="ectt-1200">cas</span>&#x00A0;<span 
class="ectt-1200">mettre</span>&#x00A0;<span 
class="ectt-1200">ici</span>&#x00A0;<span 
class="ectt-1200">n=nbcle=nombre</span>&#x00A0;<span 
class="ectt-1200">d&#x2019;echantillons</span>&#x00A0;<span 
class="ectt-1200">souhaites</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(n=10000)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CHARACTER</span>&#x00A0;<span 
class="ectt-1200">filer*8,</span>&#x00A0;<span 
class="ectt-1200">filew*21</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">**</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">valeur(n,m)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">sch2vc(n)</span>

&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">epscha(n,nT)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">compt(Kp)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">compt2(Kp)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">statn(n,Kp)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">KoLed1(n)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">KoLed2(n)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">Ledwi1(Kp)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">Ledwi2(Kp-1)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">snLed1(n)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">snLed2(n)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">stanBD(n)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">stanAD(n),</span>&#x00A0;<span 
class="ectt-1200">stanJB(n)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">Z(nT)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">D(nT)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">Davant(nT),</span>&#x00A0;<span 
class="ectt-1200">E2(nT)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">U(nT)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">hUetoi(nT,Kp)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">Uavant(nT)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">hKetoi(Kp)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">hU(nT,Kp)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">hK(Kp)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">vecteu(Kp)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">vectoi(Kp)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">stat(Kp)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">Zavant(nT)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">BDa(nT)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">BDb(nT)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">BDc(nT)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">BDd(nT)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">Davan2(nT)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">ADa(nT)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">ADb(nT)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">Puiss(Kp)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">Puiss2(Kp)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">snsort(n,Kp)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">snsorv(n)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">Qucalc(Kp)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">snLe1s(n)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">snLe2s(n)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">snBDso(n)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">snADso(n),</span>&#x00A0;<span 
class="ectt-1200">snJBso(n)</span>
&#x00A0;<br /><span 
class="ectt-1200">c--------------------------------------------------------</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">parametres</span>&#x00A0;<span 
class="ectt-1200">creerdat</span>

&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Nom</span>&#x00A0;<span 
class="ectt-1200">du</span>&#x00A0;<span 
class="ectt-1200">fichier</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">donnees</span>&#x00A0;<span 
class="ectt-1200">en</span>&#x00A0;<span 
class="ectt-1200">sortie</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">**</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CHARACTER</span>&#x00A0;<span 
class="ectt-1200">dataf*8</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Nom</span>&#x00A0;<span 
class="ectt-1200">du</span>&#x00A0;<span 
class="ectt-1200">fichier</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">parametres</span>&#x00A0;<span 
class="ectt-1200">en</span>&#x00A0;<span 
class="ectt-1200">sortie</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">**</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CHARACTER</span>&#x00A0;<span 
class="ectt-1200">paramf*17</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Nombre</span>&#x00A0;<span 
class="ectt-1200">d&#x2019;echantillons</span>&#x00A0;<span 
class="ectt-1200">souhaites</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">nbcle,nbclea</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">rang</span>&#x00A0;<span 
class="ectt-1200">d&#x2019;arret</span>&#x00A0;<span 
class="ectt-1200">dans</span>&#x00A0;<span 
class="ectt-1200">la</span>&#x00A0;<span 
class="ectt-1200">random</span>&#x00A0;<span 
class="ectt-1200">shock</span>&#x00A0;<span 
class="ectt-1200">method</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">Burn</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">**</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">marret</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(marret=200)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Induction</span>&#x00A0;<span 
class="ectt-1200">period</span>&#x00A0;<span 
class="ectt-1200">dans</span>&#x00A0;<span 
class="ectt-1200">la</span>&#x00A0;<span 
class="ectt-1200">methode</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">Burn</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">**</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">Mind</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(Mind=200)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">ecart-type</span>&#x00A0;<span 
class="ectt-1200">des</span>&#x00A0;<span 
class="ectt-1200">erreurs</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">**</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">sigma</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(sigma=1)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">moyenne</span>&#x00A0;<span 
class="ectt-1200">dans</span>&#x00A0;<span 
class="ectt-1200">mon</span>&#x00A0;<span 
class="ectt-1200">modele</span>&#x00A0;<span 
class="ectt-1200">ARMA</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">**</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">mu</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(mu=0)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">parametre</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">la</span>&#x00A0;<span 
class="ectt-1200">khi-deux</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">**</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">df1</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(df1=4)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">parametre</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">la</span>&#x00A0;<span 
class="ectt-1200">student</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">**</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">df2</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(df2=5)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">parametre</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">la</span>&#x00A0;<span 
class="ectt-1200">skew-normale</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">**</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">lambda</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(lambda=2.0)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">loi5b,</span>&#x00A0;<span 
class="ectt-1200">loi5k,</span>&#x00A0;<span 
class="ectt-1200">loi6p,</span>&#x00A0;<span 
class="ectt-1200">loi6q</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">loi7g,</span>&#x00A0;<span 
class="ectt-1200">loi7d,</span>&#x00A0;<span 
class="ectt-1200">loi8p,</span>&#x00A0;<span 
class="ectt-1200">loi8q,</span>&#x00A0;<span 
class="ectt-1200">loi9a,</span>&#x00A0;<span 
class="ectt-1200">loi9b</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">loi10b,</span>&#x00A0;<span 
class="ectt-1200">loi10l,</span>&#x00A0;<span 
class="ectt-1200">loi11a,</span>&#x00A0;<span 
class="ectt-1200">loi11k,</span>&#x00A0;<span 
class="ectt-1200">loi13g,</span>&#x00A0;<span 
class="ectt-1200">loi13d</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">loi14l,</span>&#x00A0;<span 
class="ectt-1200">loi16p,</span>&#x00A0;<span 
class="ectt-1200">loi16d,</span>&#x00A0;<span 
class="ectt-1200">loi17p,</span>&#x00A0;<span 
class="ectt-1200">loi17m</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">loi18g,</span>&#x00A0;<span 
class="ectt-1200">loi18d,</span>&#x00A0;<span 
class="ectt-1200">loi19a,</span>&#x00A0;<span 
class="ectt-1200">loi19b</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(loi5b=1.0,</span>&#x00A0;<span 
class="ectt-1200">loi5k=2.0,</span>&#x00A0;<span 
class="ectt-1200">loi6p=4,</span>&#x00A0;<span 
class="ectt-1200">loi6q=1)</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">**</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(loi7g=0.0,loi7d=1.0,</span>&#x00A0;<span 
class="ectt-1200">loi8p=2,</span>&#x00A0;<span 
class="ectt-1200">loi8q=2,</span>&#x00A0;<span 
class="ectt-1200">loi9a=0,loi9b=2)</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">**</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(loi10b=0.2,loi10l=1,</span>&#x00A0;<span 
class="ectt-1200">loi11a=2.0,loi11k=0.5)</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">**</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(loi13g=1.0,loi13d=1.0,</span>&#x00A0;<span 
class="ectt-1200">loi14l=10)</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">**</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(loi16p=0.05,loi16d=5.0,</span>&#x00A0;<span 
class="ectt-1200">loi17p=0.05,loi17m=3.0)</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">**</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(loi18g=1.0,loi18d=1.0,</span>&#x00A0;<span 
class="ectt-1200">loi19a=1.1,</span>&#x00A0;<span 
class="ectt-1200">loi19b=0.5)</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">**</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">loi</span>&#x00A0;<span 
class="ectt-1200">des</span>&#x00A0;<span 
class="ectt-1200">erreurs</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">si</span>&#x00A0;<span 
class="ectt-1200">loi=0</span>&#x00A0;<span 
class="ectt-1200">:</span>&#x00A0;<span 
class="ectt-1200">Normale(0,sigma&#x0302;2)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">si</span>&#x00A0;<span 
class="ectt-1200">loi=1</span>&#x00A0;<span 
class="ectt-1200">:</span>&#x00A0;<span 
class="ectt-1200">Khi2</span>&#x00A0;<span 
class="ectt-1200">centree</span>&#x00A0;<span 
class="ectt-1200">(df1)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">si</span>&#x00A0;<span 
class="ectt-1200">loi=2</span>&#x00A0;<span 
class="ectt-1200">:</span>&#x00A0;<span 
class="ectt-1200">Student</span>&#x00A0;<span 
class="ectt-1200">(df2)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">si</span>&#x00A0;<span 
class="ectt-1200">loi=3</span>&#x00A0;<span 
class="ectt-1200">:</span>&#x00A0;<span 
class="ectt-1200">Skew-Normale(lambda)</span>

&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">si</span>&#x00A0;<span 
class="ectt-1200">loi=4</span>&#x00A0;<span 
class="ectt-1200">:</span>&#x00A0;<span 
class="ectt-1200">Laplace</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">si</span>&#x00A0;<span 
class="ectt-1200">loi=5</span>&#x00A0;<span 
class="ectt-1200">:</span>&#x00A0;<span 
class="ectt-1200">Weibull(b,k)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">si</span>&#x00A0;<span 
class="ectt-1200">loi=6</span>&#x00A0;<span 
class="ectt-1200">:</span>&#x00A0;<span 
class="ectt-1200">Gamma(p,q)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">si</span>&#x00A0;<span 
class="ectt-1200">loi=7</span>&#x00A0;<span 
class="ectt-1200">:</span>&#x00A0;<span 
class="ectt-1200">Log-Normale(g,d)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">si</span>&#x00A0;<span 
class="ectt-1200">loi=8</span>&#x00A0;<span 
class="ectt-1200">:</span>&#x00A0;<span 
class="ectt-1200">Beta(p,q)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">si</span>&#x00A0;<span 
class="ectt-1200">loi=9</span>&#x00A0;<span 
class="ectt-1200">:</span>&#x00A0;<span 
class="ectt-1200">Uniform(a,b)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">si</span>&#x00A0;<span 
class="ectt-1200">loi=10</span>&#x00A0;<span 
class="ectt-1200">:</span>&#x00A0;<span 
class="ectt-1200">Shifted</span>&#x00A0;<span 
class="ectt-1200">exp</span>&#x00A0;<span 
class="ectt-1200">(l,b)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">si</span>&#x00A0;<span 
class="ectt-1200">loi=11</span>&#x00A0;<span 
class="ectt-1200">:</span>&#x00A0;<span 
class="ectt-1200">Pareto(a,k)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">si</span>&#x00A0;<span 
class="ectt-1200">loi=12</span>&#x00A0;<span 
class="ectt-1200">:</span>&#x00A0;<span 
class="ectt-1200">Shifted</span>&#x00A0;<span 
class="ectt-1200">Pareto</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">si</span>&#x00A0;<span 
class="ectt-1200">loi=13</span>&#x00A0;<span 
class="ectt-1200">:</span>&#x00A0;<span 
class="ectt-1200">SU(g,d)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">si</span>&#x00A0;<span 
class="ectt-1200">loi=14</span>&#x00A0;<span 
class="ectt-1200">:</span>&#x00A0;<span 
class="ectt-1200">TU(l)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">si</span>&#x00A0;<span 
class="ectt-1200">loi=15</span>&#x00A0;<span 
class="ectt-1200">:</span>&#x00A0;<span 
class="ectt-1200">Logistic</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">si</span>&#x00A0;<span 
class="ectt-1200">loi=16</span>&#x00A0;<span 
class="ectt-1200">:</span>&#x00A0;<span 
class="ectt-1200">SC(p,d)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">si</span>&#x00A0;<span 
class="ectt-1200">loi=17</span>&#x00A0;<span 
class="ectt-1200">:</span>&#x00A0;<span 
class="ectt-1200">LC(p,m)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">si</span>&#x00A0;<span 
class="ectt-1200">loi=18</span>&#x00A0;<span 
class="ectt-1200">:</span>&#x00A0;<span 
class="ectt-1200">SB(g,d)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">si</span>&#x00A0;<span 
class="ectt-1200">loi=19</span>&#x00A0;<span 
class="ectt-1200">:</span>&#x00A0;<span 
class="ectt-1200">S(a,b)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">loi</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">rm=max(p,q)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">rm</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(rm=2)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">the</span>&#x00A0;<span 
class="ectt-1200">autoregressive</span>&#x00A0;<span 
class="ectt-1200">coefficients</span>&#x00A0;<span 
class="ectt-1200">of</span>&#x00A0;<span 
class="ectt-1200">the</span>&#x00A0;<span 
class="ectt-1200">model</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">phi(2)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">phich(p)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">the</span>&#x00A0;<span 
class="ectt-1200">moving-average</span>&#x00A0;<span 
class="ectt-1200">coefficients</span>&#x00A0;<span 
class="ectt-1200">of</span>&#x00A0;<span 
class="ectt-1200">the</span>&#x00A0;<span 
class="ectt-1200">model</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">teta(2)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">tetach(q)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">vecteur</span>&#x00A0;<span 
class="ectt-1200">des</span>&#x00A0;<span 
class="ectt-1200">donnees</span>&#x00A0;<span 
class="ectt-1200">cree</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">donees(nT)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Parametres</span>&#x00A0;<span 
class="ectt-1200">pour</span>&#x00A0;<span 
class="ectt-1200">G05EGF:</span>&#x00A0;<span 
class="ectt-1200">simulation</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">the</span>&#x00A0;<span 
class="ectt-1200">autoregressive</span>&#x00A0;<span 
class="ectt-1200">coefficients</span>&#x00A0;<span 
class="ectt-1200">of</span>&#x00A0;<span 
class="ectt-1200">the</span>&#x00A0;<span 
class="ectt-1200">model=phi</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Input</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">A(p)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">the</span>&#x00A0;<span 
class="ectt-1200">moving-average</span>&#x00A0;<span 
class="ectt-1200">coefficients</span>&#x00A0;<span 
class="ectt-1200">of</span>&#x00A0;<span 
class="ectt-1200">the</span>&#x00A0;<span 
class="ectt-1200">model=teta</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Input</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">B(q+1)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">le</span>&#x00A0;<span 
class="ectt-1200">vecteur</span>&#x00A0;<span 
class="ectt-1200">des</span>&#x00A0;<span 
class="ectt-1200">innovations</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Output</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">R(nT)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Parametres</span>&#x00A0;<span 
class="ectt-1200">pour</span>&#x00A0;<span 
class="ectt-1200">G13DCF:</span>&#x00A0;<span 
class="ectt-1200">estimation</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">the</span>&#x00A0;<span 
class="ectt-1200">number</span>&#x00A0;<span 
class="ectt-1200">of</span>&#x00A0;<span 
class="ectt-1200">initial</span>&#x00A0;<span 
class="ectt-1200">parameter</span>&#x00A0;<span 
class="ectt-1200">estimates</span>&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Input</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">**</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">mettre</span>&#x00A0;<span 
class="ectt-1200">p+q+1</span>&#x00A0;<span 
class="ectt-1200">si</span>&#x00A0;<span 
class="ectt-1200">MEAN=.TRUE.</span>&#x00A0;<span 
class="ectt-1200">,</span>&#x00A0;<span 
class="ectt-1200">p+q</span>&#x00A0;<span 
class="ectt-1200">si</span>&#x00A0;<span 
class="ectt-1200">MEAN=.FALSE.</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">NPAR</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(NPAR=p+q)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">first</span>&#x00A0;<span 
class="ectt-1200">dimension</span>&#x00A0;<span 
class="ectt-1200">of</span>&#x00A0;<span 
class="ectt-1200">the</span>&#x00A0;<span 
class="ectt-1200">array</span>&#x00A0;<span 
class="ectt-1200">CM</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Input</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">**</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">mettre</span>&#x00A0;<span 
class="ectt-1200">p+q+1</span>&#x00A0;<span 
class="ectt-1200">si</span>&#x00A0;<span 
class="ectt-1200">MEAN=.TRUE.</span>&#x00A0;<span 
class="ectt-1200">,</span>&#x00A0;<span 
class="ectt-1200">p+q</span>&#x00A0;<span 
class="ectt-1200">si</span>&#x00A0;<span 
class="ectt-1200">MEAN=.FALSE.</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">ICM</span>

&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(ICM=p+q)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Workspace</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">IW(NPAR+rm+3)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">initial</span>&#x00A0;<span 
class="ectt-1200">parameter</span>&#x00A0;<span 
class="ectt-1200">estimates</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Input/Output</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">PAR(NPAR)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">W(i,t)</span>&#x00A0;<span 
class="ectt-1200">must</span>&#x00A0;<span 
class="ectt-1200">be</span>&#x00A0;<span 
class="ectt-1200">set</span>&#x00A0;<span 
class="ectt-1200">equal</span>&#x00A0;<span 
class="ectt-1200">to</span>&#x00A0;<span 
class="ectt-1200">the</span>&#x00A0;<span 
class="ectt-1200">observation</span>&#x00A0;<span 
class="ectt-1200">at</span>&#x00A0;<span 
class="ectt-1200">time</span>&#x00A0;<span 
class="ectt-1200">t</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Input</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">of</span>&#x00A0;<span 
class="ectt-1200">the</span>&#x00A0;<span 
class="ectt-1200">ith</span>&#x00A0;<span 
class="ectt-1200">series</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">W(1,nT)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">the</span>&#x00A0;<span 
class="ectt-1200">accuracy</span>&#x00A0;<span 
class="ectt-1200">to</span>&#x00A0;<span 
class="ectt-1200">which</span>&#x00A0;<span 
class="ectt-1200">the</span>&#x00A0;<span 
class="ectt-1200">solution</span>&#x00A0;<span 
class="ectt-1200">in</span>&#x00A0;<span 
class="ectt-1200">PAR</span>&#x00A0;<span 
class="ectt-1200">and</span>&#x00A0;<span 
class="ectt-1200">QQ</span>&#x00A0;<span 
class="ectt-1200">is</span>&#x00A0;<span 
class="ectt-1200">required</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Input</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">**</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">CGETOL</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(CGETOL=0.0001)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">residual</span>&#x00A0;<span 
class="ectt-1200">at</span>&#x00A0;<span 
class="ectt-1200">time</span>&#x00A0;<span 
class="ectt-1200">t</span>&#x00A0;<span 
class="ectt-1200">for</span>&#x00A0;<span 
class="ectt-1200">series</span>&#x00A0;<span 
class="ectt-1200">i,</span>&#x00A0;<span 
class="ectt-1200">for</span>&#x00A0;<span 
class="ectt-1200">i</span>&#x00A0;<span 
class="ectt-1200">=</span>&#x00A0;<span 
class="ectt-1200">1,2,...,k</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Output</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">V(1,nT)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">estimated</span>&#x00A0;<span 
class="ectt-1200">first</span>&#x00A0;<span 
class="ectt-1200">derivative</span>&#x00A0;<span 
class="ectt-1200">of</span>&#x00A0;<span 
class="ectt-1200">the</span>&#x00A0;<span 
class="ectt-1200">log-likelihood</span>&#x00A0;<span 
class="ectt-1200">function</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Output</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">G(NPAR)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">estimate</span>&#x00A0;<span 
class="ectt-1200">of</span>&#x00A0;<span 
class="ectt-1200">the</span>&#x00A0;<span 
class="ectt-1200">correlation</span>&#x00A0;<span 
class="ectt-1200">coefficient</span>&#x00A0;<span 
class="ectt-1200">between</span>&#x00A0;<span 
class="ectt-1200">the</span>&#x00A0;<span 
class="ectt-1200">ith</span>&#x00A0;<span 
class="ectt-1200">and</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Output</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">jth</span>&#x00A0;<span 
class="ectt-1200">elements</span>&#x00A0;<span 
class="ectt-1200">in</span>&#x00A0;<span 
class="ectt-1200">the</span>&#x00A0;<span 
class="ectt-1200">PAR</span>&#x00A0;<span 
class="ectt-1200">array</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">CM(ICM,NPAR)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Workspace</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">WORK((5+3*nT+2*rm)+(2*p+q+2*rm*(rm+2)+9)+</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">+</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">(NPAR+1)*(5*(NPAR+1)+29)/2+(rm+1)**2)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">MEAN</span>&#x00A0;<span 
class="ectt-1200">must</span>&#x00A0;<span 
class="ectt-1200">be</span>&#x00A0;<span 
class="ectt-1200">set</span>&#x00A0;<span 
class="ectt-1200">to</span>&#x00A0;<span 
class="ectt-1200">.TRUE.</span>&#x00A0;<span 
class="ectt-1200">if</span>&#x00A0;<span 
class="ectt-1200">components</span>&#x00A0;<span 
class="ectt-1200">of</span>&#x00A0;<span 
class="ectt-1200">mu</span>&#x00A0;<span 
class="ectt-1200">are</span>&#x00A0;<span 
class="ectt-1200">to</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Input</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">**</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">be</span>&#x00A0;<span 
class="ectt-1200">estimated</span>&#x00A0;<span 
class="ectt-1200">and</span>&#x00A0;<span 
class="ectt-1200">.FALSE.</span>&#x00A0;<span 
class="ectt-1200">if</span>&#x00A0;<span 
class="ectt-1200">all</span>&#x00A0;<span 
class="ectt-1200">elements</span>&#x00A0;<span 
class="ectt-1200">of</span>&#x00A0;<span 
class="ectt-1200">mu</span>&#x00A0;<span 
class="ectt-1200">are</span>&#x00A0;<span 
class="ectt-1200">to</span>&#x00A0;<span 
class="ectt-1200">be</span>&#x00A0;<span 
class="ectt-1200">taken</span>&#x00A0;<span 
class="ectt-1200">as</span>&#x00A0;<span 
class="ectt-1200">zero</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">LOGICAL</span>&#x00A0;<span 
class="ectt-1200">MEAN</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(MEAN=.FALSE.)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARHLD(i)</span>&#x00A0;<span 
class="ectt-1200">must</span>&#x00A0;<span 
class="ectt-1200">be</span>&#x00A0;<span 
class="ectt-1200">set</span>&#x00A0;<span 
class="ectt-1200">to</span>&#x00A0;<span 
class="ectt-1200">.TRUE.,</span>&#x00A0;<span 
class="ectt-1200">if</span>&#x00A0;<span 
class="ectt-1200">PAR(i)</span>&#x00A0;<span 
class="ectt-1200">is</span>&#x00A0;<span 
class="ectt-1200">to</span>&#x00A0;<span 
class="ectt-1200">be</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Input</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">held</span>&#x00A0;<span 
class="ectt-1200">constant</span>&#x00A0;<span 
class="ectt-1200">at</span>&#x00A0;<span 
class="ectt-1200">its</span>&#x00A0;<span 
class="ectt-1200">input</span>&#x00A0;<span 
class="ectt-1200">value</span>&#x00A0;<span 
class="ectt-1200">and</span>&#x00A0;<span 
class="ectt-1200">.FALSE.,</span>&#x00A0;<span 
class="ectt-1200">if</span>&#x00A0;<span 
class="ectt-1200">PAR(i)</span>&#x00A0;<span 
class="ectt-1200">is</span>&#x00A0;<span 
class="ectt-1200">a</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">free</span>&#x00A0;<span 
class="ectt-1200">parameter,</span>&#x00A0;<span 
class="ectt-1200">for</span>&#x00A0;<span 
class="ectt-1200">i</span>&#x00A0;<span 
class="ectt-1200">=</span>&#x00A0;<span 
class="ectt-1200">1,2,...,NPAR.</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">LOGICAL</span>&#x00A0;<span 
class="ectt-1200">PARHLD(NPAR)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">EXACT</span>&#x00A0;<span 
class="ectt-1200">must</span>&#x00A0;<span 
class="ectt-1200">be</span>&#x00A0;<span 
class="ectt-1200">set</span>&#x00A0;<span 
class="ectt-1200">equal</span>&#x00A0;<span 
class="ectt-1200">to</span>&#x00A0;<span 
class="ectt-1200">.TRUE.</span>&#x00A0;<span 
class="ectt-1200">if</span>&#x00A0;<span 
class="ectt-1200">the</span>&#x00A0;<span 
class="ectt-1200">user</span>&#x00A0;<span 
class="ectt-1200">wishes</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Input</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">**</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">the</span>&#x00A0;<span 
class="ectt-1200">routine</span>&#x00A0;<span 
class="ectt-1200">to</span>&#x00A0;<span 
class="ectt-1200">compute</span>&#x00A0;<span 
class="ectt-1200">exact</span>&#x00A0;<span 
class="ectt-1200">maximum</span>&#x00A0;<span 
class="ectt-1200">likelihood</span>&#x00A0;<span 
class="ectt-1200">estimates.</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">EXACT</span>&#x00A0;<span 
class="ectt-1200">must</span>&#x00A0;<span 
class="ectt-1200">be</span>&#x00A0;<span 
class="ectt-1200">set</span>&#x00A0;<span 
class="ectt-1200">equal</span>&#x00A0;<span 
class="ectt-1200">to</span>&#x00A0;<span 
class="ectt-1200">.FALSE.</span>&#x00A0;<span 
class="ectt-1200">if</span>&#x00A0;<span 
class="ectt-1200">only</span>&#x00A0;<span 
class="ectt-1200">conditional</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">likelihood</span>&#x00A0;<span 
class="ectt-1200">estimates</span>&#x00A0;<span 
class="ectt-1200">are</span>&#x00A0;<span 
class="ectt-1200">required.</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">voir</span>&#x00A0;<span 
class="ectt-1200">EXACT</span>&#x00A0;<span 
class="ectt-1200">plus</span>&#x00A0;<span 
class="ectt-1200">bas</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">LOGICAL</span>&#x00A0;<span 
class="ectt-1200">EXACT</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Contient</span>&#x00A0;<span 
class="ectt-1200">les</span>&#x00A0;<span 
class="ectt-1200">p</span>&#x00A0;<span 
class="ectt-1200">donnees</span>&#x00A0;<span 
class="ectt-1200">initiales</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">la</span>&#x00A0;<span 
class="ectt-1200">serie</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">Wtip(p)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">marret+p</span>&#x00A0;<span 
class="ectt-1200">innovations</span>&#x00A0;<span 
class="ectt-1200">genere</span>&#x00A0;<span 
class="ectt-1200">par</span>&#x00A0;<span 
class="ectt-1200">shock.f</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">shocks(marret+p)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">defini</span>&#x00A0;<span 
class="ectt-1200">dans</span>&#x00A0;<span 
class="ectt-1200">Burn,</span>&#x00A0;<span 
class="ectt-1200">calcule</span>&#x00A0;<span 
class="ectt-1200">par</span>&#x00A0;<span 
class="ectt-1200">ARMpsi.f</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">psi(marret+1)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">utile</span>&#x00A0;<span 
class="ectt-1200">dans</span>&#x00A0;<span 
class="ectt-1200">simARM.f</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">longueur</span>&#x00A0;<span 
class="ectt-1200">marret</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">phi2(marret)</span>

&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">utile</span>&#x00A0;<span 
class="ectt-1200">dans</span>&#x00A0;<span 
class="ectt-1200">simARM.f</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">longueur</span>&#x00A0;<span 
class="ectt-1200">marret</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">teta2(marret)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">utile</span>&#x00A0;<span 
class="ectt-1200">dans</span>&#x00A0;<span 
class="ectt-1200">simARM.f</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">YtpMn(p+Mind+nT)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">utile</span>&#x00A0;<span 
class="ectt-1200">dans</span>&#x00A0;<span 
class="ectt-1200">simARM.f</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">Atnq(nT+Mind+q)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Esperances</span>&#x00A0;<span 
class="ectt-1200">des</span>&#x00A0;<span 
class="ectt-1200">lois</span>&#x00A0;<span 
class="ectt-1200">SU,</span>&#x00A0;<span 
class="ectt-1200">SB</span>&#x00A0;<span 
class="ectt-1200">et</span>&#x00A0;<span 
class="ectt-1200">S</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">**</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">EspSU,EspSB,EspS</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(EspSU=-1.93758,</span>&#x00A0;<span 
class="ectt-1200">EspSB=0.696735,</span>&#x00A0;<span 
class="ectt-1200">EspS=0)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CHARACTER*13</span>&#x00A0;<span 
class="ectt-1200">efface</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">temp(5)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">j</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CHARACTER*5</span>&#x00A0;<span 
class="ectt-1200">ftemp</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CHARACTER*1</span>&#x00A0;<span 
class="ectt-1200">INTCH1</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CHARACTER*2</span>&#x00A0;<span 
class="ectt-1200">INTCH2</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CHARACTER*3</span>&#x00A0;<span 
class="ectt-1200">INTCH3</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CHARACTER*4</span>&#x00A0;<span 
class="ectt-1200">INTCH4</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">matric(n,18)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">dnT</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(dnT=Kp)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">QLed1u,QLe12u</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(QLed1u=QuLed1,QLe12u=QuLe12)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">QLed2u,QLe22u</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(QLed2u=QuLed2,QLe22u=QuLe22)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">QBDu,QBD2u</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(QBDu=QuBD,QBD2u=QuBD2)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">QADu,QAD2u</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(QADu=QuAD,QAD2u=QuAD2)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">QJBu,QJB2u</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(QJBu=QuJB,QJB2u=QuJB2)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">the</span>&#x00A0;<span 
class="ectt-1200">mean</span>&#x00A0;<span 
class="ectt-1200">of</span>&#x00A0;<span 
class="ectt-1200">the</span>&#x00A0;<span 
class="ectt-1200">time</span>&#x00A0;<span 
class="ectt-1200">series</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Input</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">E</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(E=mu)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">the</span>&#x00A0;<span 
class="ectt-1200">number</span>&#x00A0;<span 
class="ectt-1200">of</span>&#x00A0;<span 
class="ectt-1200">autoregressive</span>&#x00A0;<span 
class="ectt-1200">coefficients</span>&#x00A0;<span 
class="ectt-1200">supplied</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Input</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">NA</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(NA=p)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">the</span>&#x00A0;<span 
class="ectt-1200">number</span>&#x00A0;<span 
class="ectt-1200">of</span>&#x00A0;<span 
class="ectt-1200">moving-average</span>&#x00A0;<span 
class="ectt-1200">coefficients</span>&#x00A0;<span 
class="ectt-1200">supplied</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Input</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">NB</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(NB=q+1)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">the</span>&#x00A0;<span 
class="ectt-1200">dimension</span>&#x00A0;<span 
class="ectt-1200">of</span>&#x00A0;<span 
class="ectt-1200">the</span>&#x00A0;<span 
class="ectt-1200">array</span>&#x00A0;<span 
class="ectt-1200">R:</span>&#x00A0;<span 
class="ectt-1200">vecteur</span>&#x00A0;<span 
class="ectt-1200">des</span>&#x00A0;<span 
class="ectt-1200">innovations</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Input</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">NR</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(NR=11)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">the</span>&#x00A0;<span 
class="ectt-1200">number</span>&#x00A0;<span 
class="ectt-1200">of</span>&#x00A0;<span 
class="ectt-1200">observed</span>&#x00A0;<span 
class="ectt-1200">time</span>&#x00A0;<span 
class="ectt-1200">series,</span>&#x00A0;<span 
class="ectt-1200">k</span>&#x00A0;&#x00A0;<span 
class="ectt-1200">(chez</span>&#x00A0;<span 
class="ectt-1200">moi</span>&#x00A0;<span 
class="ectt-1200">k=1)</span>&#x00A0;&#x00A0;<span 
class="ectt-1200">Input</span>

&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">K</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(K=1)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">the</span>&#x00A0;<span 
class="ectt-1200">number</span>&#x00A0;<span 
class="ectt-1200">of</span>&#x00A0;<span 
class="ectt-1200">observations</span>&#x00A0;<span 
class="ectt-1200">in</span>&#x00A0;<span 
class="ectt-1200">each</span>&#x00A0;<span 
class="ectt-1200">time</span>&#x00A0;<span 
class="ectt-1200">series,</span>&#x00A0;<span 
class="ectt-1200">n</span>&#x00A0;<span 
class="ectt-1200">(chez</span>&#x00A0;<span 
class="ectt-1200">moi=nT)</span>&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Input</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">N2</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(N2=nT)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">the</span>&#x00A0;<span 
class="ectt-1200">number</span>&#x00A0;<span 
class="ectt-1200">of</span>&#x00A0;<span 
class="ectt-1200">AR</span>&#x00A0;<span 
class="ectt-1200">parameter</span>&#x00A0;<span 
class="ectt-1200">matrices,</span>&#x00A0;<span 
class="ectt-1200">p</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Input</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">IP</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(IP=p)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">the</span>&#x00A0;<span 
class="ectt-1200">number</span>&#x00A0;<span 
class="ectt-1200">of</span>&#x00A0;<span 
class="ectt-1200">MA</span>&#x00A0;<span 
class="ectt-1200">parameter</span>&#x00A0;<span 
class="ectt-1200">matrices,</span>&#x00A0;<span 
class="ectt-1200">q</span>&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Input</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">IQ</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(IQ=q)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">the</span>&#x00A0;<span 
class="ectt-1200">first</span>&#x00A0;<span 
class="ectt-1200">dimension</span>&#x00A0;<span 
class="ectt-1200">of</span>&#x00A0;<span 
class="ectt-1200">the</span>&#x00A0;<span 
class="ectt-1200">arrays</span>&#x00A0;<span 
class="ectt-1200">QQ,</span>&#x00A0;<span 
class="ectt-1200">W</span>&#x00A0;<span 
class="ectt-1200">and</span>&#x00A0;<span 
class="ectt-1200">V</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Input</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">IK</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(IK=1)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">the</span>&#x00A0;<span 
class="ectt-1200">maximum</span>&#x00A0;<span 
class="ectt-1200">number</span>&#x00A0;<span 
class="ectt-1200">of</span>&#x00A0;<span 
class="ectt-1200">likelihood</span>&#x00A0;<span 
class="ectt-1200">evaluations</span>&#x00A0;<span 
class="ectt-1200">to</span>&#x00A0;<span 
class="ectt-1200">be</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Input</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">permitted</span>&#x00A0;<span 
class="ectt-1200">by</span>&#x00A0;<span 
class="ectt-1200">the</span>&#x00A0;<span 
class="ectt-1200">search</span>&#x00A0;<span 
class="ectt-1200">procedure</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">MAXCAL</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(MAXCAL=40*NPAR*(NPAR+5))</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">which</span>&#x00A0;<span 
class="ectt-1200">quantities</span>&#x00A0;<span 
class="ectt-1200">are</span>&#x00A0;<span 
class="ectt-1200">to</span>&#x00A0;<span 
class="ectt-1200">be</span>&#x00A0;<span 
class="ectt-1200">printed</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Input</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">ISHOW</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(ISHOW=0)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">dimension</span>&#x00A0;<span 
class="ectt-1200">of</span>&#x00A0;<span 
class="ectt-1200">the</span>&#x00A0;<span 
class="ectt-1200">array</span>&#x00A0;<span 
class="ectt-1200">WORK</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Input</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">LWORK</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(LWORK=(5+3*(nT)+2*rm)+(2*p+q+2*rm*(rm+2)+9)+</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">+</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">(NPAR+1)*(5*(NPAR+1)+29)/2+(rm+1)**2)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">dimension</span>&#x00A0;<span 
class="ectt-1200">of</span>&#x00A0;<span 
class="ectt-1200">the</span>&#x00A0;<span 
class="ectt-1200">array</span>&#x00A0;<span 
class="ectt-1200">IW</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Input</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">LIW</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(LIW=NPAR+rm+3)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">QQ(i,j)</span>&#x00A0;<span 
class="ectt-1200">must</span>&#x00A0;<span 
class="ectt-1200">be</span>&#x00A0;<span 
class="ectt-1200">set</span>&#x00A0;<span 
class="ectt-1200">equal</span>&#x00A0;<span 
class="ectt-1200">to</span>&#x00A0;<span 
class="ectt-1200">an</span>&#x00A0;<span 
class="ectt-1200">initial</span>&#x00A0;<span 
class="ectt-1200">estimate</span>&#x00A0;<span 
class="ectt-1200">of</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Input/Output</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">the</span>&#x00A0;<span 
class="ectt-1200">(i,j)th</span>&#x00A0;<span 
class="ectt-1200">element</span>&#x00A0;<span 
class="ectt-1200">of</span>&#x00A0;<span 
class="ectt-1200">the</span>&#x00A0;<span 
class="ectt-1200">covariance</span>&#x00A0;<span 
class="ectt-1200">matrix</span>&#x00A0;<span 
class="ectt-1200">of</span>&#x00A0;<span 
class="ectt-1200">the</span>&#x00A0;<span 
class="ectt-1200">residual</span>&#x00A0;<span 
class="ectt-1200">series</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">QQ(IK,K)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">NI,</span>&#x00A0;<span 
class="ectt-1200">NX,</span>&#x00A0;<span 
class="ectt-1200">IFAIL</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(NX=4,NI=9)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">IA(NI)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">XA(NX)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">seed=1</span>&#x00A0;<span 
class="ectt-1200">(non-repeatable</span>&#x00A0;<span 
class="ectt-1200">sequence)</span>&#x00A0;<span 
class="ectt-1200">ou</span>&#x00A0;<span 
class="ectt-1200">seed=0</span>&#x00A0;<span 
class="ectt-1200">(repeatable</span>&#x00A0;<span 
class="ectt-1200">sequence)</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">**</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">seed</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(seed=0)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">-------------------------------------------------------</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Fin</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">declaration</span>&#x00A0;<span 
class="ectt-1200">des</span>&#x00A0;<span 
class="ectt-1200">variables</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">-------------------------------------------------------</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">G05CBF</span>&#x00A0;<span 
class="ectt-1200">Initialise</span>&#x00A0;<span 
class="ectt-1200">random</span>&#x00A0;<span 
class="ectt-1200">number</span>&#x00A0;<span 
class="ectt-1200">generating</span>&#x00A0;<span 
class="ectt-1200">routines</span>&#x00A0;<span 
class="ectt-1200">to</span>&#x00A0;<span 
class="ectt-1200">give</span>&#x00A0;<span 
class="ectt-1200">repeatable</span>&#x00A0;<span 
class="ectt-1200">sequence</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">G05CCF</span>&#x00A0;<span 
class="ectt-1200">Initialise</span>&#x00A0;<span 
class="ectt-1200">random</span>&#x00A0;<span 
class="ectt-1200">number</span>&#x00A0;<span 
class="ectt-1200">generating</span>&#x00A0;<span 
class="ectt-1200">routines</span>&#x00A0;<span 
class="ectt-1200">to</span>&#x00A0;<span 
class="ectt-1200">give</span>&#x00A0;<span 
class="ectt-1200">non-repeatable</span>&#x00A0;<span 
class="ectt-1200">sequence</span>

&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">G05CFF</span>&#x00A0;<span 
class="ectt-1200">Save</span>&#x00A0;<span 
class="ectt-1200">state</span>&#x00A0;<span 
class="ectt-1200">of</span>&#x00A0;<span 
class="ectt-1200">random</span>&#x00A0;<span 
class="ectt-1200">number</span>&#x00A0;<span 
class="ectt-1200">generating</span>&#x00A0;<span 
class="ectt-1200">routines</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">G05CGF</span>&#x00A0;<span 
class="ectt-1200">Restore</span>&#x00A0;<span 
class="ectt-1200">state</span>&#x00A0;<span 
class="ectt-1200">of</span>&#x00A0;<span 
class="ectt-1200">random</span>&#x00A0;<span 
class="ectt-1200">number</span>&#x00A0;<span 
class="ectt-1200">generating</span>&#x00A0;<span 
class="ectt-1200">routines</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">IF</span>&#x00A0;<span 
class="ectt-1200">(seed</span>&#x00A0;<span 
class="ectt-1200">.EQ.</span>&#x00A0;<span 
class="ectt-1200">1)</span>&#x00A0;<span 
class="ectt-1200">THEN</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CALL</span>&#x00A0;<span 
class="ectt-1200">G05CCF</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">ENDIF</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">IF</span>&#x00A0;<span 
class="ectt-1200">(seed</span>&#x00A0;<span 
class="ectt-1200">.EQ.</span>&#x00A0;<span 
class="ectt-1200">0)</span>&#x00A0;<span 
class="ectt-1200">THEN</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CALL</span>&#x00A0;<span 
class="ectt-1200">G05CBF(0)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">ENDIF</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">IFAIL=0</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Rajouter</span>&#x00A0;<span 
class="ectt-1200">ici,</span>&#x00A0;<span 
class="ectt-1200">si</span>&#x00A0;<span 
class="ectt-1200">voulu,</span>&#x00A0;<span 
class="ectt-1200">les</span>&#x00A0;<span 
class="ectt-1200">IA</span>&#x00A0;<span 
class="ectt-1200">et</span>&#x00A0;<span 
class="ectt-1200">les</span>&#x00A0;<span 
class="ectt-1200">XA</span>&#x00A0;<span 
class="ectt-1200">a</span>&#x00A0;<span 
class="ectt-1200">prendre</span>&#x00A0;<span 
class="ectt-1200">a</span>&#x00A0;<span 
class="ectt-1200">la</span>&#x00A0;<span 
class="ectt-1200">fin</span>&#x00A0;<span 
class="ectt-1200">du</span>&#x00A0;<span 
class="ectt-1200">fichier</span>&#x00A0;<span 
class="ectt-1200">para.ijkl:</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">**</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">A</span>&#x00A0;<span 
class="ectt-1200">(de)commenter</span>&#x00A0;<span 
class="ectt-1200">si</span>&#x00A0;<span 
class="ectt-1200">necessaire</span>&#x00A0;<span 
class="ectt-1200">(si</span>&#x00A0;<span 
class="ectt-1200">on</span>&#x00A0;<span 
class="ectt-1200">rajoute</span>&#x00A0;<span 
class="ectt-1200">les</span>&#x00A0;<span 
class="ectt-1200">IA</span>&#x00A0;<span 
class="ectt-1200">et</span>&#x00A0;<span 
class="ectt-1200">XA,</span>&#x00A0;<span 
class="ectt-1200">on</span>&#x00A0;<span 
class="ectt-1200">decommente)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CALL</span>&#x00A0;<span 
class="ectt-1200">G05CGF(IA,NI,XA,NX,IFAIL)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CALL</span>&#x00A0;<span 
class="ectt-1200">G05CFF(IA,NI,XA,NX,IFAIL)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">EXACT=.TRUE.</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">**</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">nbcle=n</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">efface=&#x2019;rm</span>&#x00A0;<span 
class="ectt-1200">./data.txt&#x2019;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">ftemp=&#x2019;ftemp&#x2019;</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">On</span>&#x00A0;<span 
class="ectt-1200">va</span>&#x00A0;<span 
class="ectt-1200">lire</span>&#x00A0;<span 
class="ectt-1200">les</span>&#x00A0;<span 
class="ectt-1200">parametres</span>&#x00A0;<span 
class="ectt-1200">necessaires</span>&#x00A0;<span 
class="ectt-1200">dans</span>&#x00A0;<span 
class="ectt-1200">ftemp</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">temp</span>&#x00A0;<span 
class="ectt-1200">va</span>&#x00A0;<span 
class="ectt-1200">contenir</span>&#x00A0;<span 
class="ectt-1200">sur</span>&#x00A0;<span 
class="ectt-1200">chaque</span>&#x00A0;<span 
class="ectt-1200">ligne:</span>&#x00A0;<span 
class="ectt-1200">j,</span>&#x00A0;<span 
class="ectt-1200">loi,</span>&#x00A0;<span 
class="ectt-1200">phi(1),</span>&#x00A0;<span 
class="ectt-1200">teta(1),</span>&#x00A0;<span 
class="ectt-1200">teta(2)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">OPEN(UNIT=15,</span>&#x00A0;<span 
class="ectt-1200">FILE=ftemp</span>&#x00A0;<span 
class="ectt-1200">,</span>&#x00A0;<span 
class="ectt-1200">STATUS=&#x2019;OLD&#x2019;</span>&#x00A0;<span 
class="ectt-1200">)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">READ(15,*,END=10)</span>&#x00A0;<span 
class="ectt-1200">(temp(j),j=1,5)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CLOSE(15)</span>
&#x00A0;<br />&#x00A0;<span 
class="ectt-1200">10</span>&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">j=temp(1)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">loi=temp(2)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">phi(1)=temp(3)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">teta(1)=temp(4)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">teta(2)=temp(5)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">phi(2)=0.0</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">On</span>&#x00A0;<span 
class="ectt-1200">sauvegarde</span>&#x00A0;<span 
class="ectt-1200">la</span>&#x00A0;<span 
class="ectt-1200">valeur</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">nbcle</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">nbclea=nbcle</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Nom</span>&#x00A0;<span 
class="ectt-1200">du</span>&#x00A0;<span 
class="ectt-1200">fichier</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">donnees</span>&#x00A0;<span 
class="ectt-1200">en</span>&#x00A0;<span 
class="ectt-1200">sortie</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">**</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">dataf=&#x2019;data.txt&#x2019;</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Permet</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">convertir</span>&#x00A0;<span 
class="ectt-1200">l&#x2019;entier</span>&#x00A0;<span 
class="ectt-1200">j</span>&#x00A0;<span 
class="ectt-1200">en</span>&#x00A0;<span 
class="ectt-1200">chaine</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">caracteres</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">IF</span>&#x00A0;<span 
class="ectt-1200">(j/10</span>&#x00A0;<span 
class="ectt-1200">.LT.</span>&#x00A0;<span 
class="ectt-1200">1)</span>&#x00A0;<span 
class="ectt-1200">THEN</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(INTCH1,</span>&#x00A0;<span 
class="ectt-1200">&#x2019;(I1)&#x2019;)</span>&#x00A0;<span 
class="ectt-1200">j</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Nom</span>&#x00A0;<span 
class="ectt-1200">du</span>&#x00A0;<span 
class="ectt-1200">fichier</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">parametres</span>&#x00A0;<span 
class="ectt-1200">en</span>&#x00A0;<span 
class="ectt-1200">sortie</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">**</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">paramf=&#x2019;./SIMUL/para.&#x2019;//&#x2019;000&#x2019;//INTCH1</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">filew=&#x2019;./SIMUL/resultat.&#x2019;//&#x2019;000&#x2019;//INTCH1</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">ENDIF</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">IF</span>&#x00A0;<span 
class="ectt-1200">((j/10</span>&#x00A0;<span 
class="ectt-1200">.EQ.</span>&#x00A0;<span 
class="ectt-1200">1)</span>&#x00A0;<span 
class="ectt-1200">.OR.</span>&#x00A0;<span 
class="ectt-1200">((j/10</span>&#x00A0;<span 
class="ectt-1200">.GT.</span>&#x00A0;<span 
class="ectt-1200">1)</span>&#x00A0;<span 
class="ectt-1200">.AND.</span>&#x00A0;<span 
class="ectt-1200">(j/10</span>&#x00A0;<span 
class="ectt-1200">.LT.</span>&#x00A0;<span 
class="ectt-1200">10)))</span>&#x00A0;<span 
class="ectt-1200">THEN</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(INTCH2,</span>&#x00A0;<span 
class="ectt-1200">&#x2019;(I2)&#x2019;)</span>&#x00A0;<span 
class="ectt-1200">j</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Nom</span>&#x00A0;<span 
class="ectt-1200">du</span>&#x00A0;<span 
class="ectt-1200">fichier</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">parametres</span>&#x00A0;<span 
class="ectt-1200">en</span>&#x00A0;<span 
class="ectt-1200">sortie</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">**</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">paramf=&#x2019;./SIMUL/para.&#x2019;//&#x2019;00&#x2019;//INTCH2</span>

&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">filew=&#x2019;./SIMUL/resultat.&#x2019;//&#x2019;00&#x2019;//INTCH2</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">ENDIF</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">IF</span>&#x00A0;<span 
class="ectt-1200">((j/10</span>&#x00A0;<span 
class="ectt-1200">.EQ.</span>&#x00A0;<span 
class="ectt-1200">10)</span>&#x00A0;<span 
class="ectt-1200">.OR.</span>&#x00A0;<span 
class="ectt-1200">((j/10</span>&#x00A0;<span 
class="ectt-1200">.GT.</span>&#x00A0;<span 
class="ectt-1200">10)</span>&#x00A0;<span 
class="ectt-1200">.AND.</span>&#x00A0;<span 
class="ectt-1200">(j/10</span>&#x00A0;<span 
class="ectt-1200">.LT.</span>&#x00A0;<span 
class="ectt-1200">100)))</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">+</span>&#x00A0;<span 
class="ectt-1200">THEN</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(INTCH3,</span>&#x00A0;<span 
class="ectt-1200">&#x2019;(I3)&#x2019;)</span>&#x00A0;<span 
class="ectt-1200">j</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Nom</span>&#x00A0;<span 
class="ectt-1200">du</span>&#x00A0;<span 
class="ectt-1200">fichier</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">parametres</span>&#x00A0;<span 
class="ectt-1200">en</span>&#x00A0;<span 
class="ectt-1200">sortie</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">**</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">paramf=&#x2019;./SIMUL/para.&#x2019;//&#x2019;0&#x2019;//INTCH3</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">filew=&#x2019;./SIMUL/resultat.&#x2019;//&#x2019;0&#x2019;//INTCH3</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">ENDIF</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">IF</span>&#x00A0;<span 
class="ectt-1200">((j/10</span>&#x00A0;<span 
class="ectt-1200">.EQ.</span>&#x00A0;<span 
class="ectt-1200">100)</span>&#x00A0;<span 
class="ectt-1200">.OR.</span>&#x00A0;<span 
class="ectt-1200">((j/10</span>&#x00A0;<span 
class="ectt-1200">.GT.</span>&#x00A0;<span 
class="ectt-1200">100)</span>&#x00A0;<span 
class="ectt-1200">.AND.</span>&#x00A0;<span 
class="ectt-1200">(j/10</span>&#x00A0;<span 
class="ectt-1200">.LT.</span>&#x00A0;<span 
class="ectt-1200">1000)))</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">+</span>&#x00A0;<span 
class="ectt-1200">THEN</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(INTCH4,</span>&#x00A0;<span 
class="ectt-1200">&#x2019;(I4)&#x2019;)</span>&#x00A0;<span 
class="ectt-1200">j</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Nom</span>&#x00A0;<span 
class="ectt-1200">du</span>&#x00A0;<span 
class="ectt-1200">fichier</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">parametres</span>&#x00A0;<span 
class="ectt-1200">en</span>&#x00A0;<span 
class="ectt-1200">sortie</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">**</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">paramf=&#x2019;./SIMUL/para.&#x2019;//INTCH4</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">filew=&#x2019;./SIMUL/resultat.&#x2019;//INTCH4</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">ENDIF</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">IF</span>&#x00A0;<span 
class="ectt-1200">(loi</span>&#x00A0;<span 
class="ectt-1200">.EQ.</span>&#x00A0;<span 
class="ectt-1200">0)</span>&#x00A0;<span 
class="ectt-1200">THEN</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Quantiles</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">la</span>&#x00A0;<span 
class="ectt-1200">loi</span>&#x00A0;<span 
class="ectt-1200">du</span>&#x00A0;<span 
class="ectt-1200">Khi2</span>&#x00A0;<span 
class="ectt-1200">(K=10;alpha=0.1)</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">**</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">khi(1)=2.71</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">khi(2)=4.61</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">khi(3)=6.25</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">khi(4)=7.78</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">khi(5)=9.24</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">khi(6)=10.64</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">khi(7)=12.02</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">khi(8)=13.36</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">khi(9)=14.68</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">khi(10)=15.99</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Quantiles</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">la</span>&#x00A0;<span 
class="ectt-1200">loi</span>&#x00A0;<span 
class="ectt-1200">du</span>&#x00A0;<span 
class="ectt-1200">Khi2</span>&#x00A0;<span 
class="ectt-1200">(K=10;alpha=0.05)</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">**</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">khi2(1)=3.84</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">khi2(2)=5.99</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">khi2(3)=7.81</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">khi2(4)=9.49</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">khi2(5)=11.07</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">khi2(6)=12.59</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">khi2(7)=14.07</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">khi2(8)=15.51</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">khi2(9)=16.92</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">khi2(10)=18.31</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">ENDIF</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">IF</span>&#x00A0;<span 
class="ectt-1200">(loi</span>&#x00A0;<span 
class="ectt-1200">.NE.</span>&#x00A0;<span 
class="ectt-1200">0)</span>&#x00A0;<span 
class="ectt-1200">THEN</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Quantiles</span>&#x00A0;<span 
class="ectt-1200">utilises</span>&#x00A0;<span 
class="ectt-1200">pour</span>&#x00A0;<span 
class="ectt-1200">le</span>&#x00A0;<span 
class="ectt-1200">calcul</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">la</span>&#x00A0;<span 
class="ectt-1200">stat(vrais</span>&#x00A0;<span 
class="ectt-1200">quantiles</span>&#x00A0;<span 
class="ectt-1200">calcules</span>&#x00A0;<span 
class="ectt-1200">sous</span>&#x00A0;<span 
class="ectt-1200">H0)</span>&#x00A0;&#x00A0;<span 
class="ectt-1200">**</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">avec</span>&#x00A0;<span 
class="ectt-1200">alpha=0.1</span>

&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">khi(1)=2.71</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">khi(2)=4.61</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">khi(3)=6.25</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">khi(4)=7.78</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">khi(5)=9.24</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">khi(6)=10.64</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">khi(7)=12.02</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">khi(8)=13.36</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">khi(9)=14.68</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">khi(10)=15.99</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Quantiles</span>&#x00A0;<span 
class="ectt-1200">utilises</span>&#x00A0;<span 
class="ectt-1200">pour</span>&#x00A0;<span 
class="ectt-1200">le</span>&#x00A0;<span 
class="ectt-1200">calcul</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">la</span>&#x00A0;<span 
class="ectt-1200">stat(vrais</span>&#x00A0;<span 
class="ectt-1200">quantiles</span>&#x00A0;<span 
class="ectt-1200">calcules</span>&#x00A0;<span 
class="ectt-1200">sous</span>&#x00A0;<span 
class="ectt-1200">H0)</span>&#x00A0;&#x00A0;<span 
class="ectt-1200">**</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">avec</span>&#x00A0;<span 
class="ectt-1200">alpha=0.05</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">khi2(1)=3.84</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">khi2(2)=5.99</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">khi2(3)=7.81</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">khi2(4)=9.49</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">khi2(5)=11.07</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">khi2(6)=12.59</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">khi2(7)=14.07</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">khi2(8)=15.51</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">khi2(9)=16.92</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">khi2(10)=18.31</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">ENDIF</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">On</span>&#x00A0;<span 
class="ectt-1200">peut</span>&#x00A0;<span 
class="ectt-1200">aussi</span>&#x00A0;<span 
class="ectt-1200">changer</span>&#x00A0;<span 
class="ectt-1200">le</span>&#x00A0;<span 
class="ectt-1200">nom</span>&#x00A0;<span 
class="ectt-1200">du</span>&#x00A0;<span 
class="ectt-1200">fichier</span>&#x00A0;<span 
class="ectt-1200">en</span>&#x00A0;<span 
class="ectt-1200">entree</span>&#x00A0;<span 
class="ectt-1200">(data.txt)</span>&#x00A0;<span 
class="ectt-1200">et</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">**</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">le</span>&#x00A0;<span 
class="ectt-1200">nom</span>&#x00A0;<span 
class="ectt-1200">du</span>&#x00A0;<span 
class="ectt-1200">fichier</span>&#x00A0;<span 
class="ectt-1200">en</span>&#x00A0;<span 
class="ectt-1200">sortie</span>&#x00A0;<span 
class="ectt-1200">(resultat.txt)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">filer=&#x2019;data.txt&#x2019;</span>
&#x00A0;<br /><span 
class="ectt-1200">c-----------------------------------------------------------</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">------------------------------------------------------------------------</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DEBUT</span>&#x00A0;<span 
class="ectt-1200">DU</span>&#x00A0;<span 
class="ectt-1200">PROGRAMME</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">------------------------------------------------------------------------</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CALL</span>&#x00A0;<span 
class="ectt-1200">cdARMA(dataf,paramf,nbcle,marret,Mind,sigma,mu,df1,df2,</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">+</span>&#x00A0;<span 
class="ectt-1200">lambda,loi5b,loi5k,loi6p,loi6q,loi7g,loi7d,loi8p,loi8q,loi9a,</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">+loi9b,loi10b,loi10l,loi11a,loi11k,loi13g,loi13d,loi14l,loi16p,</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">+loi16d,loi17p,loi17m,loi18g,loi18d,loi19a,loi19b,loi,p,q,rm,nT,</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">+</span>&#x00A0;<span 
class="ectt-1200">phi,phich,teta,tetach,donees,A,</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">+</span>&#x00A0;<span 
class="ectt-1200">B,R,NPAR,ICM,IW,PAR,W,CGETOL,V,G,CM,WORK,MEAN,PARHLD,EXACT,Wtip,</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">+</span>&#x00A0;<span 
class="ectt-1200">shocks,psi,phi2,teta2,YtpMn,Atnq,EspSU,EspSB,EspS,</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">+E,NA,NB,NR,K,N2,IP,IQ,IK,MAXCAL,ISHOW,LWORK,LIW,QQ)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Il</span>&#x00A0;<span 
class="ectt-1200">faut</span>&#x00A0;<span 
class="ectt-1200">faire</span>&#x00A0;<span 
class="ectt-1200">modifier</span>&#x00A0;<span 
class="ectt-1200">par</span>&#x00A0;<span 
class="ectt-1200">cdARMA</span>&#x00A0;<span 
class="ectt-1200">la</span>&#x00A0;<span 
class="ectt-1200">valeur</span>&#x00A0;<span 
class="ectt-1200">nbcle</span>&#x00A0;<span 
class="ectt-1200">en</span>&#x00A0;<span 
class="ectt-1200">entree</span>&#x00A0;<span 
class="ectt-1200">pour</span>&#x00A0;<span 
class="ectt-1200">lui</span>&#x00A0;<span 
class="ectt-1200">faire</span>&#x00A0;<span 
class="ectt-1200">sortir</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">une</span>&#x00A0;<span 
class="ectt-1200">nouvelle</span>&#x00A0;<span 
class="ectt-1200">valeur</span>&#x00A0;<span 
class="ectt-1200">nbcle</span>&#x00A0;<span 
class="ectt-1200">qui</span>&#x00A0;<span 
class="ectt-1200">est</span>&#x00A0;<span 
class="ectt-1200">le</span>&#x00A0;<span 
class="ectt-1200">nombre</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">bons</span>&#x00A0;<span 
class="ectt-1200">echantillons</span>&#x00A0;<span 
class="ectt-1200">conserves</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Ensuite,</span>&#x00A0;<span 
class="ectt-1200">il</span>&#x00A0;<span 
class="ectt-1200">faut</span>&#x00A0;<span 
class="ectt-1200">utiliser</span>&#x00A0;<span 
class="ectt-1200">cette</span>&#x00A0;<span 
class="ectt-1200">valeur</span>&#x00A0;<span 
class="ectt-1200">dans</span>&#x00A0;<span 
class="ectt-1200">calcstat,</span>&#x00A0;<span 
class="ectt-1200">comme</span>&#x00A0;<span 
class="ectt-1200">etant</span>&#x00A0;<span 
class="ectt-1200">la</span>&#x00A0;<span 
class="ectt-1200">vraie</span>&#x00A0;<span 
class="ectt-1200">valeur</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">du</span>&#x00A0;<span 
class="ectt-1200">nombre</span>&#x00A0;<span 
class="ectt-1200">d&#x2019;echantillons</span>&#x00A0;<span 
class="ectt-1200">disponibles,</span>&#x00A0;<span 
class="ectt-1200">la</span>&#x00A0;<span 
class="ectt-1200">valeur</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">n</span>&#x00A0;<span 
class="ectt-1200">que</span>&#x00A0;<span 
class="ectt-1200">l&#x2019;on</span>&#x00A0;<span 
class="ectt-1200">a</span>&#x00A0;<span 
class="ectt-1200">mise</span>&#x00A0;<span 
class="ectt-1200">etant</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">la</span>&#x00A0;<span 
class="ectt-1200">valeur</span>&#x00A0;<span 
class="ectt-1200">maximale</span>&#x00A0;<span 
class="ectt-1200">possible</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">bons</span>&#x00A0;<span 
class="ectt-1200">echantillons,</span>&#x00A0;<span 
class="ectt-1200">donc</span>&#x00A0;<span 
class="ectt-1200">les</span>&#x00A0;<span 
class="ectt-1200">differentes</span>&#x00A0;<span 
class="ectt-1200">matrices</span>&#x00A0;<span 
class="ectt-1200">initialisees</span>

&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">a</span>&#x00A0;<span 
class="ectt-1200">l&#x2019;aide</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">la</span>&#x00A0;<span 
class="ectt-1200">valeur</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">n</span>&#x00A0;<span 
class="ectt-1200">sont</span>&#x00A0;<span 
class="ectt-1200">plus</span>&#x00A0;<span 
class="ectt-1200">grandes</span>&#x00A0;<span 
class="ectt-1200">que</span>&#x00A0;<span 
class="ectt-1200">necessaires</span>&#x00A0;<span 
class="ectt-1200">(elles</span>&#x00A0;<span 
class="ectt-1200">auraient</span>&#x00A0;<span 
class="ectt-1200">du</span>&#x00A0;<span 
class="ectt-1200">etre</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">initialisees</span>&#x00A0;<span 
class="ectt-1200">avec</span>&#x00A0;<span 
class="ectt-1200">la</span>&#x00A0;<span 
class="ectt-1200">valeur</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">nbcle</span>&#x00A0;<span 
class="ectt-1200">renvoyee</span>&#x00A0;<span 
class="ectt-1200">par</span>&#x00A0;<span 
class="ectt-1200">cd</span>&#x00A0;<span 
class="ectt-1200">ARMA</span>&#x00A0;<span 
class="ectt-1200">mais</span>&#x00A0;<span 
class="ectt-1200">ce</span>&#x00A0;<span 
class="ectt-1200">n&#x2019;est</span>&#x00A0;<span 
class="ectt-1200">pas</span>&#x00A0;<span 
class="ectt-1200">possible</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">avec</span>&#x00A0;<span 
class="ectt-1200">fortran77)</span>&#x00A0;<span 
class="ectt-1200">et</span>&#x00A0;<span 
class="ectt-1200">il</span>&#x00A0;<span 
class="ectt-1200">faut</span>&#x00A0;<span 
class="ectt-1200">en</span>&#x00A0;<span 
class="ectt-1200">tenir</span>&#x00A0;<span 
class="ectt-1200">compte;</span>&#x00A0;<span 
class="ectt-1200">donc</span>&#x00A0;<span 
class="ectt-1200">bien</span>&#x00A0;<span 
class="ectt-1200">regarder</span>&#x00A0;<span 
class="ectt-1200">partout</span>&#x00A0;<span 
class="ectt-1200">dans</span>&#x00A0;<span 
class="ectt-1200">le</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">programme</span>&#x00A0;<span 
class="ectt-1200">calcstat</span>&#x00A0;<span 
class="ectt-1200">la</span>&#x00A0;<span 
class="ectt-1200">ou</span>&#x00A0;<span 
class="ectt-1200">il</span>&#x00A0;<span 
class="ectt-1200">y</span>&#x00A0;<span 
class="ectt-1200">a</span>&#x00A0;<span 
class="ectt-1200">n:</span>&#x00A0;<span 
class="ectt-1200">OK</span>&#x00A0;<span 
class="ectt-1200">CA</span>&#x00A0;<span 
class="ectt-1200">C&#x2019;EST</span>&#x00A0;<span 
class="ectt-1200">FAIT!!!</span>&#x00A0;<span 
class="ectt-1200">A</span>&#x00A0;<span 
class="ectt-1200">METTRE</span>&#x00A0;<span 
class="ectt-1200">EN</span>&#x00A0;<span 
class="ectt-1200">COMMENTAIRES</span>&#x00A0;<span 
class="ectt-1200">QUELQUEPART</span>&#x00A0;<span 
class="ectt-1200">...</span>
&#x00A0;<br /><span 
class="ectt-1200">CALL</span>&#x00A0;<span 
class="ectt-1200">calcstat(isa,khi,khi2,QuLed1,QuLe12,QuLed2,QuLe22,QuBD,</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">+</span>&#x00A0;<span 
class="ectt-1200">QuBD2,QuAD,QuAD2,QuJB,QuJB2,alpha,alpha2,Kp,p,q,nT,phi,teta,n,</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">+</span>&#x00A0;<span 
class="ectt-1200">nbcle,m,filer,filew,valeur,sch2vc,epscha,compt,compt2,statn,</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">+</span>&#x00A0;<span 
class="ectt-1200">KoLed1,KoLed2,Ledwi1,Ledwi2,snLed1,snLed2,stanBD,stanAD,stanJB,Z,</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">+</span>&#x00A0;<span 
class="ectt-1200">D,Davant,E2,U,hUetoi,Uavant,hKetoi,hU,hK,vecteu,vectoi,stat,</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">+</span>&#x00A0;<span 
class="ectt-1200">Zavant,BDa,BDb,BDc,BDd,Davan2,ADa,ADb,Puiss,Puiss2,snsort,snsorv,</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">+</span>&#x00A0;<span 
class="ectt-1200">Qucalc,snLe1s,snLe2s,snBDso,snADso,snJBso,matric,paramf,loi,</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">+</span>&#x00A0;<span 
class="ectt-1200">dnT,QLed1u,QLe12u,QLed2u,QLe22u,QBDu,QBD2u,QADu,QAD2u,QJBu,QJB2u)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">nbcle=nbclea</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">FAIRE</span>&#x00A0;<span 
class="ectt-1200">ATTENTION:</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">voir</span>&#x00A0;<span 
class="ectt-1200">si</span>&#x00A0;<span 
class="ectt-1200">mes</span>&#x00A0;<span 
class="ectt-1200">programmes</span>&#x00A0;<span 
class="ectt-1200">ne</span>&#x00A0;<span 
class="ectt-1200">modifient</span>&#x00A0;<span 
class="ectt-1200">pas</span>&#x00A0;<span 
class="ectt-1200">certains</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">leurs</span>&#x00A0;<span 
class="ectt-1200">parametres</span>&#x00A0;<span 
class="ectt-1200">en</span>&#x00A0;<span 
class="ectt-1200">entree</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">ce</span>&#x00A0;<span 
class="ectt-1200">qui</span>&#x00A0;<span 
class="ectt-1200">pourrait</span>&#x00A0;<span 
class="ectt-1200">ammener</span>&#x00A0;<span 
class="ectt-1200">des</span>&#x00A0;<span 
class="ectt-1200">erreurs</span>&#x00A0;<span 
class="ectt-1200">au</span>&#x00A0;<span 
class="ectt-1200">cours</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">la</span>&#x00A0;<span 
class="ectt-1200">boucle</span>&#x00A0;<span 
class="ectt-1200">que</span>&#x00A0;<span 
class="ectt-1200">je</span>&#x00A0;<span 
class="ectt-1200">vais</span>&#x00A0;<span 
class="ectt-1200">faire</span>&#x00A0;<span 
class="ectt-1200">dans</span>&#x00A0;<span 
class="ectt-1200">le</span>&#x00A0;<span 
class="ectt-1200">programme</span>&#x00A0;<span 
class="ectt-1200">test.f</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">pour</span>&#x00A0;<span 
class="ectt-1200">les</span>&#x00A0;<span 
class="ectt-1200">differentes</span>&#x00A0;<span 
class="ectt-1200">etapes</span>&#x00A0;<span 
class="ectt-1200">1),</span>&#x00A0;<span 
class="ectt-1200">2)</span>&#x00A0;<span 
class="ectt-1200">et</span>&#x00A0;<span 
class="ectt-1200">3)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CALL</span>&#x00A0;<span 
class="ectt-1200">SYSTEM(efface)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Sauvegarde</span>&#x00A0;<span 
class="ectt-1200">du</span>&#x00A0;<span 
class="ectt-1200">seed</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">OPEN(UNIT=14,</span>&#x00A0;<span 
class="ectt-1200">FILE=paramf</span>&#x00A0;<span 
class="ectt-1200">,</span>&#x00A0;<span 
class="ectt-1200">STATUS=&#x2019;OLD&#x2019;,</span>&#x00A0;<span 
class="ectt-1200">ACCESS=&#x2019;append&#x2019;</span>&#x00A0;<span 
class="ectt-1200">)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(14,*)</span>&#x00A0;<span 
class="ectt-1200">&#x2019;Sauvegarde</span>&#x00A0;<span 
class="ectt-1200">du</span>&#x00A0;<span 
class="ectt-1200">seed:&#x2019;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(14,*)</span>&#x00A0;<span 
class="ectt-1200">&#x2019;XA:&#x2019;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(14,15)</span>&#x00A0;<span 
class="ectt-1200">&#x2019;XA(1)=&#x2019;,XA(1)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(14,15)</span>&#x00A0;<span 
class="ectt-1200">&#x2019;XA(2)=&#x2019;,XA(2)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(14,15)</span>&#x00A0;<span 
class="ectt-1200">&#x2019;XA(3)=&#x2019;,XA(3)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(14,15)</span>&#x00A0;<span 
class="ectt-1200">&#x2019;XA(4)=&#x2019;,XA(4)</span>
&#x00A0;<br />&#x00A0;<span 
class="ectt-1200">15</span>&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">FORMAT(A6,1F20.15)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(14,*)</span>&#x00A0;<span 
class="ectt-1200">&#x2019;IA:&#x2019;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(14,30)</span>&#x00A0;<span 
class="ectt-1200">&#x2019;IA(1)=&#x2019;,IA(1)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(14,30)</span>&#x00A0;<span 
class="ectt-1200">&#x2019;IA(2)=&#x2019;,IA(2)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(14,30)</span>&#x00A0;<span 
class="ectt-1200">&#x2019;IA(3)=&#x2019;,IA(3)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(14,30)</span>&#x00A0;<span 
class="ectt-1200">&#x2019;IA(4)=&#x2019;,IA(4)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(14,30)</span>&#x00A0;<span 
class="ectt-1200">&#x2019;IA(5)=&#x2019;,IA(5)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(14,30)</span>&#x00A0;<span 
class="ectt-1200">&#x2019;IA(6)=&#x2019;,IA(6)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(14,30)</span>&#x00A0;<span 
class="ectt-1200">&#x2019;IA(7)=&#x2019;,IA(7)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(14,30)</span>&#x00A0;<span 
class="ectt-1200">&#x2019;IA(8)=&#x2019;,IA(8)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(14,30)</span>&#x00A0;<span 
class="ectt-1200">&#x2019;IA(9)=&#x2019;,IA(9)</span>
&#x00A0;<br />&#x00A0;<span 
class="ectt-1200">30</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">FORMAT(A6,1I10)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CLOSE(UNIT=14)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">END</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INCLUDE</span>&#x00A0;<span 
class="ectt-1200">&#x2019;mean.f&#x2019;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INCLUDE</span>&#x00A0;<span 
class="ectt-1200">&#x2019;simulARMA.f&#x2019;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INCLUDE</span>&#x00A0;<span 
class="ectt-1200">&#x2019;ARMpsi.f&#x2019;</span>

&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INCLUDE</span>&#x00A0;<span 
class="ectt-1200">&#x2019;shock.f&#x2019;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INCLUDE</span>&#x00A0;<span 
class="ectt-1200">&#x2019;rskew.f&#x2019;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INCLUDE</span>&#x00A0;<span 
class="ectt-1200">&#x2019;rlap.f&#x2019;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INCLUDE</span>&#x00A0;<span 
class="ectt-1200">&#x2019;rpare.f&#x2019;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INCLUDE</span>&#x00A0;<span 
class="ectt-1200">&#x2019;rspare.f&#x2019;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INCLUDE</span>&#x00A0;<span 
class="ectt-1200">&#x2019;rSU.f&#x2019;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INCLUDE</span>&#x00A0;<span 
class="ectt-1200">&#x2019;rTU.f&#x2019;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INCLUDE</span>&#x00A0;<span 
class="ectt-1200">&#x2019;rSC.f&#x2019;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INCLUDE</span>&#x00A0;<span 
class="ectt-1200">&#x2019;rLC.f&#x2019;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INCLUDE</span>&#x00A0;<span 
class="ectt-1200">&#x2019;rSB.f&#x2019;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INCLUDE</span>&#x00A0;<span 
class="ectt-1200">&#x2019;rS.f&#x2019;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INCLUDE</span>&#x00A0;<span 
class="ectt-1200">&#x2019;H1etoile.f&#x2019;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INCLUDE</span>&#x00A0;<span 
class="ectt-1200">&#x2019;H2etoile.f&#x2019;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INCLUDE</span>&#x00A0;<span 
class="ectt-1200">&#x2019;H3etoile.f&#x2019;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INCLUDE</span>&#x00A0;<span 
class="ectt-1200">&#x2019;H4etoile.f&#x2019;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INCLUDE</span>&#x00A0;<span 
class="ectt-1200">&#x2019;H5etoile.f&#x2019;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INCLUDE</span>&#x00A0;<span 
class="ectt-1200">&#x2019;H6etoile.f&#x2019;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INCLUDE</span>&#x00A0;<span 
class="ectt-1200">&#x2019;H7etoile.f&#x2019;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INCLUDE</span>&#x00A0;<span 
class="ectt-1200">&#x2019;H8etoile.f&#x2019;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INCLUDE</span>&#x00A0;<span 
class="ectt-1200">&#x2019;H9etoile.f&#x2019;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INCLUDE</span>&#x00A0;<span 
class="ectt-1200">&#x2019;H10etoile.f&#x2019;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INCLUDE</span>&#x00A0;<span 
class="ectt-1200">&#x2019;H1isa.f&#x2019;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INCLUDE</span>&#x00A0;<span 
class="ectt-1200">&#x2019;H2isa.f&#x2019;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INCLUDE</span>&#x00A0;<span 
class="ectt-1200">&#x2019;H3isa.f&#x2019;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INCLUDE</span>&#x00A0;<span 
class="ectt-1200">&#x2019;H4isa.f&#x2019;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INCLUDE</span>&#x00A0;<span 
class="ectt-1200">&#x2019;H5isa.f&#x2019;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INCLUDE</span>&#x00A0;<span 
class="ectt-1200">&#x2019;H6isa.f&#x2019;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INCLUDE</span>&#x00A0;<span 
class="ectt-1200">&#x2019;H7isa.f&#x2019;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INCLUDE</span>&#x00A0;<span 
class="ectt-1200">&#x2019;H8isa.f&#x2019;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INCLUDE</span>&#x00A0;<span 
class="ectt-1200">&#x2019;H9isa.f&#x2019;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INCLUDE</span>&#x00A0;<span 
class="ectt-1200">&#x2019;H10isa.f&#x2019;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INCLUDE</span>&#x00A0;<span 
class="ectt-1200">&#x2019;H1.f&#x2019;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INCLUDE</span>&#x00A0;<span 
class="ectt-1200">&#x2019;H2.f&#x2019;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INCLUDE</span>&#x00A0;<span 
class="ectt-1200">&#x2019;H3.f&#x2019;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INCLUDE</span>&#x00A0;<span 
class="ectt-1200">&#x2019;H4.f&#x2019;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INCLUDE</span>&#x00A0;<span 
class="ectt-1200">&#x2019;H5.f&#x2019;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INCLUDE</span>&#x00A0;<span 
class="ectt-1200">&#x2019;H6.f&#x2019;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INCLUDE</span>&#x00A0;<span 
class="ectt-1200">&#x2019;H7.f&#x2019;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INCLUDE</span>&#x00A0;<span 
class="ectt-1200">&#x2019;H8.f&#x2019;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INCLUDE</span>&#x00A0;<span 
class="ectt-1200">&#x2019;H9.f&#x2019;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INCLUDE</span>&#x00A0;<span 
class="ectt-1200">&#x2019;H10.f&#x2019;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INCLUDE</span>&#x00A0;<span 
class="ectt-1200">&#x2019;qnorm.f&#x2019;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INCLUDE</span>&#x00A0;<span 
class="ectt-1200">&#x2019;pnorm.f&#x2019;</span>

&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INCLUDE</span>&#x00A0;<span 
class="ectt-1200">&#x2019;min.f&#x2019;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INCLUDE</span>&#x00A0;<span 
class="ectt-1200">&#x2019;max.f&#x2019;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INCLUDE</span>&#x00A0;<span 
class="ectt-1200">&#x2019;var.f&#x2019;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INCLUDE</span>&#x00A0;<span 
class="ectt-1200">&#x2019;creerdat_ARMA.f&#x2019;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INCLUDE</span>&#x00A0;<span 
class="ectt-1200">&#x2019;calcstat.f&#x2019;</span>
</div> <span 
class="ecbx-1200">Programme big_prog_ARMA21.f </span><div class="verbatiminput">
<span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Idee</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">ce</span>&#x00A0;&#x00A0;<span 
class="ectt-1200">programme:</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Etape1)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">On</span>&#x00A0;<span 
class="ectt-1200">cree</span>&#x00A0;<span 
class="ectt-1200">un</span>&#x00A0;<span 
class="ectt-1200">fichier</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">donnees</span>&#x00A0;<span 
class="ectt-1200">&#x2019;data.txt&#x2019;</span>&#x00A0;<span 
class="ectt-1200">en</span>&#x00A0;<span 
class="ectt-1200">utilisant</span>&#x00A0;<span 
class="ectt-1200">certaines</span>&#x00A0;<span 
class="ectt-1200">valeurs</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">parametres</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">a</span>&#x00A0;<span 
class="ectt-1200">lire</span>&#x00A0;<span 
class="ectt-1200">dans</span>&#x00A0;<span 
class="ectt-1200">un</span>&#x00A0;<span 
class="ectt-1200">fichier</span>&#x00A0;<span 
class="ectt-1200">d&#x2019;entree</span>&#x00A0;<span 
class="ectt-1200">&#x2019;ftemp&#x2019;</span>&#x00A0;<span 
class="ectt-1200">cree</span>&#x00A0;<span 
class="ectt-1200">par</span>&#x00A0;<span 
class="ectt-1200">le</span>&#x00A0;<span 
class="ectt-1200">programme</span>&#x00A0;<span 
class="ectt-1200">test.f</span>&#x00A0;<span 
class="ectt-1200">a</span>&#x00A0;<span 
class="ectt-1200">l&#x2019;aide</span>&#x00A0;<span 
class="ectt-1200">du</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">fichier</span>&#x00A0;<span 
class="ectt-1200">&#x2019;paramentree&#x2019;,</span>&#x00A0;<span 
class="ectt-1200">on</span>&#x00A0;<span 
class="ectt-1200">stocke</span>&#x00A0;<span 
class="ectt-1200">les</span>&#x00A0;<span 
class="ectt-1200">resultats</span>&#x00A0;<span 
class="ectt-1200">autres</span>&#x00A0;<span 
class="ectt-1200">que</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">les</span>&#x00A0;<span 
class="ectt-1200">donnees</span>&#x00A0;<span 
class="ectt-1200">dans</span>&#x00A0;<span 
class="ectt-1200">un</span>&#x00A0;<span 
class="ectt-1200">fichier</span>&#x00A0;<span 
class="ectt-1200">&#x2019;param.i&#x2019;</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Etape</span>&#x00A0;<span 
class="ectt-1200">2)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">ensuite</span>&#x00A0;<span 
class="ectt-1200">on</span>&#x00A0;<span 
class="ectt-1200">utilise</span>&#x00A0;<span 
class="ectt-1200">le</span>&#x00A0;<span 
class="ectt-1200">fichier</span>&#x00A0;<span 
class="ectt-1200">&#x2019;data.txt&#x2019;</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">avec</span>&#x00A0;<span 
class="ectt-1200">le</span>&#x00A0;<span 
class="ectt-1200">programme</span>&#x00A0;<span 
class="ectt-1200">calcstat</span>&#x00A0;<span 
class="ectt-1200">pour</span>&#x00A0;<span 
class="ectt-1200">creer</span>&#x00A0;<span 
class="ectt-1200">le</span>&#x00A0;<span 
class="ectt-1200">fichier</span>&#x00A0;<span 
class="ectt-1200">des</span>&#x00A0;<span 
class="ectt-1200">statistiques</span>&#x00A0;<span 
class="ectt-1200">&#x2019;resultat.i&#x2019;</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Etape</span>&#x00A0;<span 
class="ectt-1200">3)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Ensuite,</span>&#x00A0;<span 
class="ectt-1200">on</span>&#x00A0;<span 
class="ectt-1200">efface</span>&#x00A0;<span 
class="ectt-1200">le</span>&#x00A0;<span 
class="ectt-1200">fichier</span>&#x00A0;<span 
class="ectt-1200">&#x2019;data.txt&#x2019;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PROGRAM</span>&#x00A0;<span 
class="ectt-1200">main</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Les</span>&#x00A0;<span 
class="ectt-1200">**</span>&#x00A0;<span 
class="ectt-1200">indiquent</span>&#x00A0;<span 
class="ectt-1200">les</span>&#x00A0;<span 
class="ectt-1200">endroits</span>&#x00A0;<span 
class="ectt-1200">ou</span>&#x00A0;<span 
class="ectt-1200">des</span>&#x00A0;<span 
class="ectt-1200">changements</span>&#x00A0;<span 
class="ectt-1200">peuvent</span>&#x00A0;<span 
class="ectt-1200">etre</span>&#x00A0;<span 
class="ectt-1200">necessaires</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">--------------------------------------------------------------------------</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DEBUT</span>&#x00A0;<span 
class="ectt-1200">DE</span>&#x00A0;<span 
class="ectt-1200">DECLARATION</span>&#x00A0;<span 
class="ectt-1200">DES</span>&#x00A0;<span 
class="ectt-1200">VARIABLES</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">--------------------------------------------------------------------------</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Si</span>&#x00A0;<span 
class="ectt-1200">isa=.TRUE.</span>&#x00A0;<span 
class="ectt-1200">(ie</span>&#x00A0;<span 
class="ectt-1200">MEAN=.TRUE.)</span>&#x00A0;<span 
class="ectt-1200">on</span>&#x00A0;<span 
class="ectt-1200">prend</span>&#x00A0;<span 
class="ectt-1200">les</span>&#x00A0;<span 
class="ectt-1200">polynomes</span>&#x00A0;<span 
class="ectt-1200">modifies</span>&#x00A0;<span 
class="ectt-1200">avec</span>&#x00A0;<span 
class="ectt-1200">les</span>&#x00A0;<span 
class="ectt-1200">ak</span>&#x00A0;&#x00A0;<span 
class="ectt-1200">**</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Si</span>&#x00A0;<span 
class="ectt-1200">isa=.FALSE.</span>&#x00A0;<span 
class="ectt-1200">(ie</span>&#x00A0;<span 
class="ectt-1200">MEAN=.FALSE.)</span>&#x00A0;<span 
class="ectt-1200">on</span>&#x00A0;<span 
class="ectt-1200">prend</span>&#x00A0;<span 
class="ectt-1200">les</span>&#x00A0;<span 
class="ectt-1200">polynomes</span>&#x00A0;<span 
class="ectt-1200">modifies</span>&#x00A0;<span 
class="ectt-1200">sans</span>&#x00A0;<span 
class="ectt-1200">les</span>&#x00A0;<span 
class="ectt-1200">ak</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">LOGICAL</span>&#x00A0;<span 
class="ectt-1200">isa</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(isa=.FALSE.)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">------------------------------------</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">parametres</span>&#x00A0;<span 
class="ectt-1200">calcstat</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Niveau</span>&#x00A0;<span 
class="ectt-1200">1</span>&#x00A0;<span 
class="ectt-1200">du</span>&#x00A0;<span 
class="ectt-1200">test</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">**</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">alpha</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(alpha=0.1)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Niveau</span>&#x00A0;<span 
class="ectt-1200">2</span>&#x00A0;<span 
class="ectt-1200">du</span>&#x00A0;<span 
class="ectt-1200">test</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">**</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">alpha2</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(alpha2=0.05)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Quantiles</span>&#x00A0;<span 
class="ectt-1200">avec</span>&#x00A0;<span 
class="ectt-1200">alpha</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;&#x00A0;<span 
class="ectt-1200">khi(10)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Quantiles</span>&#x00A0;<span 
class="ectt-1200">avec</span>&#x00A0;<span 
class="ectt-1200">alpha2</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;&#x00A0;<span 
class="ectt-1200">khi2(10)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Quantiles</span>&#x00A0;<span 
class="ectt-1200">Ledwi1</span>&#x00A0;<span 
class="ectt-1200">et</span>&#x00A0;<span 
class="ectt-1200">Ledwi2</span>&#x00A0;<span 
class="ectt-1200">avec</span>&#x00A0;<span 
class="ectt-1200">alpha</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">**</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">QuLed1,</span>&#x00A0;<span 
class="ectt-1200">QuLed2</span>

&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">avec</span>&#x00A0;<span 
class="ectt-1200">T=50</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(QuLed1=3.69,QuLed2=5.466)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">avec</span>&#x00A0;<span 
class="ectt-1200">T=100</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(QuLed1=3.275,QuLed2=5.26)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">avec</span>&#x00A0;<span 
class="ectt-1200">T=200</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(QuLed1=3.057,QuLed2=5.043)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Quantiles</span>&#x00A0;<span 
class="ectt-1200">Ledwi1</span>&#x00A0;<span 
class="ectt-1200">et</span>&#x00A0;<span 
class="ectt-1200">Ledwi2</span>&#x00A0;<span 
class="ectt-1200">avec</span>&#x00A0;<span 
class="ectt-1200">alpha2</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">**</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">QuLe12,</span>&#x00A0;<span 
class="ectt-1200">QuLe22</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">avec</span>&#x00A0;<span 
class="ectt-1200">T=50</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(QuLe12=5.41,QuLe22=7.14)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">avec</span>&#x00A0;<span 
class="ectt-1200">T=100</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(QuLe12=5.20,QuLe22=6.97)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">avec</span>&#x00A0;<span 
class="ectt-1200">T=200</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(QuLe12=4.751,QuLe22=6.796)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Quantiles</span>&#x00A0;<span 
class="ectt-1200">Brockwell</span>&#x00A0;<span 
class="ectt-1200">et</span>&#x00A0;<span 
class="ectt-1200">Davis</span>&#x00A0;<span 
class="ectt-1200">et</span>&#x00A0;<span 
class="ectt-1200">Anderson</span>&#x00A0;<span 
class="ectt-1200">Darling</span>&#x00A0;<span 
class="ectt-1200">et</span>&#x00A0;<span 
class="ectt-1200">JB</span>&#x00A0;<span 
class="ectt-1200">avec</span>&#x00A0;<span 
class="ectt-1200">alpha</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">**</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">QuBD,</span>&#x00A0;<span 
class="ectt-1200">QuAD,</span>&#x00A0;<span 
class="ectt-1200">QuJB</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">avec</span>&#x00A0;<span 
class="ectt-1200">T=50</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(QuBD=0.920,QuAD=1.743,QuJB=4.61)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">avec</span>&#x00A0;<span 
class="ectt-1200">T=100</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(QuBD=0.958,QuAD=1.743,QuJB=4.61)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">avec</span>&#x00A0;<span 
class="ectt-1200">T=200</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(QuBD=0.978,QuAD=1.743,QuJB=4.61)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Quantiles</span>&#x00A0;<span 
class="ectt-1200">Brockwell</span>&#x00A0;<span 
class="ectt-1200">et</span>&#x00A0;<span 
class="ectt-1200">Davis</span>&#x00A0;<span 
class="ectt-1200">et</span>&#x00A0;<span 
class="ectt-1200">Anderson</span>&#x00A0;<span 
class="ectt-1200">Darling</span>&#x00A0;<span 
class="ectt-1200">et</span>&#x00A0;<span 
class="ectt-1200">JB</span>&#x00A0;<span 
class="ectt-1200">avec</span>&#x00A0;<span 
class="ectt-1200">alpha2</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">**</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">QuBD2,</span>&#x00A0;<span 
class="ectt-1200">QuAD2,</span>&#x00A0;<span 
class="ectt-1200">QuJB2</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">avec</span>&#x00A0;<span 
class="ectt-1200">T=50</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(QuBD2=0.899,QuAD2=2.308,QuJB2=5.99)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">avec</span>&#x00A0;<span 
class="ectt-1200">T=100</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(QuBD2=0.947,QuAD2=2.308,QuJB2=5.99)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">avec</span>&#x00A0;<span 
class="ectt-1200">T=200</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(QuBD2=0.973,QuAD2=2.308,QuJB2=5.99)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Nombre</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">polynomes</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">**</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">Kp</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(Kp=10)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">ordre</span>&#x00A0;<span 
class="ectt-1200">du</span>&#x00A0;<span 
class="ectt-1200">modele</span>&#x00A0;<span 
class="ectt-1200">AR</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">p</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(p=2)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">ordre</span>&#x00A0;<span 
class="ectt-1200">du</span>&#x00A0;<span 
class="ectt-1200">modele</span>&#x00A0;<span 
class="ectt-1200">MA</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">q</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(q=1)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">nombre</span>&#x00A0;<span 
class="ectt-1200">d&#x2019;observations</span>&#x00A0;<span 
class="ectt-1200">dans</span>&#x00A0;<span 
class="ectt-1200">mon</span>&#x00A0;<span 
class="ectt-1200">echantillon</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">**</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Si</span>&#x00A0;<span 
class="ectt-1200">on</span>&#x00A0;<span 
class="ectt-1200">change</span>&#x00A0;<span 
class="ectt-1200">la</span>&#x00A0;<span 
class="ectt-1200">valeur</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">nT,</span>&#x00A0;<span 
class="ectt-1200">il</span>&#x00A0;<span 
class="ectt-1200">faut</span>&#x00A0;<span 
class="ectt-1200">aller</span>&#x00A0;<span 
class="ectt-1200">modifier</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">la</span>&#x00A0;<span 
class="ectt-1200">valeur</span>&#x00A0;<span 
class="ectt-1200">dans</span>&#x00A0;<span 
class="ectt-1200">FORMAT</span>&#x00A0;<span 
class="ectt-1200">a</span>&#x00A0;<span 
class="ectt-1200">la</span>&#x00A0;<span 
class="ectt-1200">fin</span>&#x00A0;<span 
class="ectt-1200">du</span>&#x00A0;<span 
class="ectt-1200">programme</span>&#x00A0;<span 
class="ectt-1200">creerdat_ARMA.f</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">nT</span>

&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(nT=50)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">n,m</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(m=nT+1)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">n=nombre</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">lignes</span>&#x00A0;<span 
class="ectt-1200">au</span>&#x00A0;<span 
class="ectt-1200">maximum</span>&#x00A0;<span 
class="ectt-1200">dans</span>&#x00A0;<span 
class="ectt-1200">le</span>&#x00A0;<span 
class="ectt-1200">fichier</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">donnees</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">**</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">cela</span>&#x00A0;<span 
class="ectt-1200">correspond</span>&#x00A0;<span 
class="ectt-1200">a</span>&#x00A0;<span 
class="ectt-1200">nbcle</span>&#x00A0;<span 
class="ectt-1200">s&#x2019;il</span>&#x00A0;<span 
class="ectt-1200">n&#x2019;y</span>&#x00A0;<span 
class="ectt-1200">a</span>&#x00A0;<span 
class="ectt-1200">pas</span>&#x00A0;<span 
class="ectt-1200">eu</span>&#x00A0;<span 
class="ectt-1200">d&#x2019;erreurs</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">dans</span>&#x00A0;<span 
class="ectt-1200">tous</span>&#x00A0;<span 
class="ectt-1200">les</span>&#x00A0;<span 
class="ectt-1200">cas</span>&#x00A0;<span 
class="ectt-1200">mettre</span>&#x00A0;<span 
class="ectt-1200">ici</span>&#x00A0;<span 
class="ectt-1200">n=nbcle=nombre</span>&#x00A0;<span 
class="ectt-1200">d&#x2019;echantillons</span>&#x00A0;<span 
class="ectt-1200">souhaites</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(n=10000)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CHARACTER</span>&#x00A0;<span 
class="ectt-1200">filer*8,</span>&#x00A0;<span 
class="ectt-1200">filew*21</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">**</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">valeur(n,m)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">sch2vc(n)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">epscha(n,nT)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">compt(Kp)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">compt2(Kp)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">statn(n,Kp)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">KoLed1(n)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">KoLed2(n)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">Ledwi1(Kp)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">Ledwi2(Kp-1)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">snLed1(n)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">snLed2(n)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">stanBD(n)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">stanAD(n),</span>&#x00A0;<span 
class="ectt-1200">stanJB(n)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">Z(nT)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">D(nT)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">Davant(nT),</span>&#x00A0;<span 
class="ectt-1200">E2(nT)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">U(nT)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">hUetoi(nT,Kp)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">Uavant(nT)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">hKetoi(Kp)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">hU(nT,Kp)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">hK(Kp)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">vecteu(Kp)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">vectoi(Kp)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">stat(Kp)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">Zavant(nT)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">BDa(nT)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">BDb(nT)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">BDc(nT)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">BDd(nT)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">Davan2(nT)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">ADa(nT)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">ADb(nT)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">Puiss(Kp)</span>

&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">Puiss2(Kp)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">snsort(n,Kp)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">snsorv(n)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">Qucalc(Kp)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">snLe1s(n)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">snLe2s(n)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">snBDso(n)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">snADso(n),</span>&#x00A0;<span 
class="ectt-1200">snJBso(n)</span>
&#x00A0;<br /><span 
class="ectt-1200">c--------------------------------------------------------</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">parametres</span>&#x00A0;<span 
class="ectt-1200">creerdat</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Nom</span>&#x00A0;<span 
class="ectt-1200">du</span>&#x00A0;<span 
class="ectt-1200">fichier</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">donnees</span>&#x00A0;<span 
class="ectt-1200">en</span>&#x00A0;<span 
class="ectt-1200">sortie</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">**</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CHARACTER</span>&#x00A0;<span 
class="ectt-1200">dataf*8</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Nom</span>&#x00A0;<span 
class="ectt-1200">du</span>&#x00A0;<span 
class="ectt-1200">fichier</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">parametres</span>&#x00A0;<span 
class="ectt-1200">en</span>&#x00A0;<span 
class="ectt-1200">sortie</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">**</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CHARACTER</span>&#x00A0;<span 
class="ectt-1200">paramf*17</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Nombre</span>&#x00A0;<span 
class="ectt-1200">d&#x2019;echantillons</span>&#x00A0;<span 
class="ectt-1200">souhaites</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">nbcle,nbclea</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">rang</span>&#x00A0;<span 
class="ectt-1200">d&#x2019;arret</span>&#x00A0;<span 
class="ectt-1200">dans</span>&#x00A0;<span 
class="ectt-1200">la</span>&#x00A0;<span 
class="ectt-1200">random</span>&#x00A0;<span 
class="ectt-1200">shock</span>&#x00A0;<span 
class="ectt-1200">method</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">Burn</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">**</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">marret</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(marret=200)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Induction</span>&#x00A0;<span 
class="ectt-1200">period</span>&#x00A0;<span 
class="ectt-1200">dans</span>&#x00A0;<span 
class="ectt-1200">la</span>&#x00A0;<span 
class="ectt-1200">methode</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">Burn</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">**</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">Mind</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(Mind=200)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">ecart-type</span>&#x00A0;<span 
class="ectt-1200">des</span>&#x00A0;<span 
class="ectt-1200">erreurs</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">**</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">sigma</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(sigma=1)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">moyenne</span>&#x00A0;<span 
class="ectt-1200">dans</span>&#x00A0;<span 
class="ectt-1200">mon</span>&#x00A0;<span 
class="ectt-1200">modele</span>&#x00A0;<span 
class="ectt-1200">ARMA</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">**</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">mu</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(mu=0)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">parametre</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">la</span>&#x00A0;<span 
class="ectt-1200">khi-deux</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">**</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">df1</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(df1=4)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">parametre</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">la</span>&#x00A0;<span 
class="ectt-1200">student</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">**</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">df2</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(df2=5)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">parametre</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">la</span>&#x00A0;<span 
class="ectt-1200">skew-normale</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">**</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">lambda</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(lambda=2.0)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">loi5b,</span>&#x00A0;<span 
class="ectt-1200">loi5k,</span>&#x00A0;<span 
class="ectt-1200">loi6p,</span>&#x00A0;<span 
class="ectt-1200">loi6q</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">loi7g,</span>&#x00A0;<span 
class="ectt-1200">loi7d,</span>&#x00A0;<span 
class="ectt-1200">loi8p,</span>&#x00A0;<span 
class="ectt-1200">loi8q,</span>&#x00A0;<span 
class="ectt-1200">loi9a,</span>&#x00A0;<span 
class="ectt-1200">loi9b</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">loi10b,</span>&#x00A0;<span 
class="ectt-1200">loi10l,</span>&#x00A0;<span 
class="ectt-1200">loi11a,</span>&#x00A0;<span 
class="ectt-1200">loi11k,</span>&#x00A0;<span 
class="ectt-1200">loi13g,</span>&#x00A0;<span 
class="ectt-1200">loi13d</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">loi14l,</span>&#x00A0;<span 
class="ectt-1200">loi16p,</span>&#x00A0;<span 
class="ectt-1200">loi16d,</span>&#x00A0;<span 
class="ectt-1200">loi17p,</span>&#x00A0;<span 
class="ectt-1200">loi17m</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">loi18g,</span>&#x00A0;<span 
class="ectt-1200">loi18d,</span>&#x00A0;<span 
class="ectt-1200">loi19a,</span>&#x00A0;<span 
class="ectt-1200">loi19b</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(loi5b=1.0,</span>&#x00A0;<span 
class="ectt-1200">loi5k=2.0,</span>&#x00A0;<span 
class="ectt-1200">loi6p=4,</span>&#x00A0;<span 
class="ectt-1200">loi6q=1)</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">**</span>

&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(loi7g=0.0,loi7d=1.0,</span>&#x00A0;<span 
class="ectt-1200">loi8p=2,</span>&#x00A0;<span 
class="ectt-1200">loi8q=2,</span>&#x00A0;<span 
class="ectt-1200">loi9a=0,loi9b=2)</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">**</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(loi10b=0.2,loi10l=1,</span>&#x00A0;<span 
class="ectt-1200">loi11a=2.0,loi11k=0.5)</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">**</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(loi13g=1.0,loi13d=1.0,</span>&#x00A0;<span 
class="ectt-1200">loi14l=10)</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">**</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(loi16p=0.05,loi16d=5.0,</span>&#x00A0;<span 
class="ectt-1200">loi17p=0.05,loi17m=3.0)</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">**</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(loi18g=1.0,loi18d=1.0,</span>&#x00A0;<span 
class="ectt-1200">loi19a=1.1,</span>&#x00A0;<span 
class="ectt-1200">loi19b=0.5)</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">**</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">loi</span>&#x00A0;<span 
class="ectt-1200">des</span>&#x00A0;<span 
class="ectt-1200">erreurs</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">si</span>&#x00A0;<span 
class="ectt-1200">loi=0</span>&#x00A0;<span 
class="ectt-1200">:</span>&#x00A0;<span 
class="ectt-1200">Normale(0,sigma&#x0302;2)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">si</span>&#x00A0;<span 
class="ectt-1200">loi=1</span>&#x00A0;<span 
class="ectt-1200">:</span>&#x00A0;<span 
class="ectt-1200">Khi2</span>&#x00A0;<span 
class="ectt-1200">centree</span>&#x00A0;<span 
class="ectt-1200">(df1)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">si</span>&#x00A0;<span 
class="ectt-1200">loi=2</span>&#x00A0;<span 
class="ectt-1200">:</span>&#x00A0;<span 
class="ectt-1200">Student</span>&#x00A0;<span 
class="ectt-1200">(df2)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">si</span>&#x00A0;<span 
class="ectt-1200">loi=3</span>&#x00A0;<span 
class="ectt-1200">:</span>&#x00A0;<span 
class="ectt-1200">Skew-Normale(lambda)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">si</span>&#x00A0;<span 
class="ectt-1200">loi=4</span>&#x00A0;<span 
class="ectt-1200">:</span>&#x00A0;<span 
class="ectt-1200">Laplace</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">si</span>&#x00A0;<span 
class="ectt-1200">loi=5</span>&#x00A0;<span 
class="ectt-1200">:</span>&#x00A0;<span 
class="ectt-1200">Weibull(b,k)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">si</span>&#x00A0;<span 
class="ectt-1200">loi=6</span>&#x00A0;<span 
class="ectt-1200">:</span>&#x00A0;<span 
class="ectt-1200">Gamma(p,q)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">si</span>&#x00A0;<span 
class="ectt-1200">loi=7</span>&#x00A0;<span 
class="ectt-1200">:</span>&#x00A0;<span 
class="ectt-1200">Log-Normale(g,d)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">si</span>&#x00A0;<span 
class="ectt-1200">loi=8</span>&#x00A0;<span 
class="ectt-1200">:</span>&#x00A0;<span 
class="ectt-1200">Beta(p,q)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">si</span>&#x00A0;<span 
class="ectt-1200">loi=9</span>&#x00A0;<span 
class="ectt-1200">:</span>&#x00A0;<span 
class="ectt-1200">Uniform(a,b)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">si</span>&#x00A0;<span 
class="ectt-1200">loi=10</span>&#x00A0;<span 
class="ectt-1200">:</span>&#x00A0;<span 
class="ectt-1200">Shifted</span>&#x00A0;<span 
class="ectt-1200">exp</span>&#x00A0;<span 
class="ectt-1200">(l,b)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">si</span>&#x00A0;<span 
class="ectt-1200">loi=11</span>&#x00A0;<span 
class="ectt-1200">:</span>&#x00A0;<span 
class="ectt-1200">Pareto(a,k)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">si</span>&#x00A0;<span 
class="ectt-1200">loi=12</span>&#x00A0;<span 
class="ectt-1200">:</span>&#x00A0;<span 
class="ectt-1200">Shifted</span>&#x00A0;<span 
class="ectt-1200">Pareto</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">si</span>&#x00A0;<span 
class="ectt-1200">loi=13</span>&#x00A0;<span 
class="ectt-1200">:</span>&#x00A0;<span 
class="ectt-1200">SU(g,d)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">si</span>&#x00A0;<span 
class="ectt-1200">loi=14</span>&#x00A0;<span 
class="ectt-1200">:</span>&#x00A0;<span 
class="ectt-1200">TU(l)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">si</span>&#x00A0;<span 
class="ectt-1200">loi=15</span>&#x00A0;<span 
class="ectt-1200">:</span>&#x00A0;<span 
class="ectt-1200">Logistic</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">si</span>&#x00A0;<span 
class="ectt-1200">loi=16</span>&#x00A0;<span 
class="ectt-1200">:</span>&#x00A0;<span 
class="ectt-1200">SC(p,d)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">si</span>&#x00A0;<span 
class="ectt-1200">loi=17</span>&#x00A0;<span 
class="ectt-1200">:</span>&#x00A0;<span 
class="ectt-1200">LC(p,m)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">si</span>&#x00A0;<span 
class="ectt-1200">loi=18</span>&#x00A0;<span 
class="ectt-1200">:</span>&#x00A0;<span 
class="ectt-1200">SB(g,d)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">si</span>&#x00A0;<span 
class="ectt-1200">loi=19</span>&#x00A0;<span 
class="ectt-1200">:</span>&#x00A0;<span 
class="ectt-1200">S(a,b)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">loi</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">rm=max(p,q)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">rm</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(rm=2)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">the</span>&#x00A0;<span 
class="ectt-1200">autoregressive</span>&#x00A0;<span 
class="ectt-1200">coefficients</span>&#x00A0;<span 
class="ectt-1200">of</span>&#x00A0;<span 
class="ectt-1200">the</span>&#x00A0;<span 
class="ectt-1200">model</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">phi(2)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">phich(p)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">the</span>&#x00A0;<span 
class="ectt-1200">moving-average</span>&#x00A0;<span 
class="ectt-1200">coefficients</span>&#x00A0;<span 
class="ectt-1200">of</span>&#x00A0;<span 
class="ectt-1200">the</span>&#x00A0;<span 
class="ectt-1200">model</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">teta(2)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">tetach(q)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">vecteur</span>&#x00A0;<span 
class="ectt-1200">des</span>&#x00A0;<span 
class="ectt-1200">donnees</span>&#x00A0;<span 
class="ectt-1200">cree</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">donees(nT)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Parametres</span>&#x00A0;<span 
class="ectt-1200">pour</span>&#x00A0;<span 
class="ectt-1200">G05EGF:</span>&#x00A0;<span 
class="ectt-1200">simulation</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">the</span>&#x00A0;<span 
class="ectt-1200">autoregressive</span>&#x00A0;<span 
class="ectt-1200">coefficients</span>&#x00A0;<span 
class="ectt-1200">of</span>&#x00A0;<span 
class="ectt-1200">the</span>&#x00A0;<span 
class="ectt-1200">model=phi</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Input</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">A(p)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">the</span>&#x00A0;<span 
class="ectt-1200">moving-average</span>&#x00A0;<span 
class="ectt-1200">coefficients</span>&#x00A0;<span 
class="ectt-1200">of</span>&#x00A0;<span 
class="ectt-1200">the</span>&#x00A0;<span 
class="ectt-1200">model=teta</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Input</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">B(q+1)</span>

&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">le</span>&#x00A0;<span 
class="ectt-1200">vecteur</span>&#x00A0;<span 
class="ectt-1200">des</span>&#x00A0;<span 
class="ectt-1200">innovations</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Output</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">R(nT)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Parametres</span>&#x00A0;<span 
class="ectt-1200">pour</span>&#x00A0;<span 
class="ectt-1200">G13DCF:</span>&#x00A0;<span 
class="ectt-1200">estimation</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">the</span>&#x00A0;<span 
class="ectt-1200">number</span>&#x00A0;<span 
class="ectt-1200">of</span>&#x00A0;<span 
class="ectt-1200">initial</span>&#x00A0;<span 
class="ectt-1200">parameter</span>&#x00A0;<span 
class="ectt-1200">estimates</span>&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Input</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">**</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">mettre</span>&#x00A0;<span 
class="ectt-1200">p+q+1</span>&#x00A0;<span 
class="ectt-1200">si</span>&#x00A0;<span 
class="ectt-1200">MEAN=.TRUE.</span>&#x00A0;<span 
class="ectt-1200">,</span>&#x00A0;<span 
class="ectt-1200">p+q</span>&#x00A0;<span 
class="ectt-1200">si</span>&#x00A0;<span 
class="ectt-1200">MEAN=.FALSE.</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">NPAR</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(NPAR=p+q)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">first</span>&#x00A0;<span 
class="ectt-1200">dimension</span>&#x00A0;<span 
class="ectt-1200">of</span>&#x00A0;<span 
class="ectt-1200">the</span>&#x00A0;<span 
class="ectt-1200">array</span>&#x00A0;<span 
class="ectt-1200">CM</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Input</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">**</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">mettre</span>&#x00A0;<span 
class="ectt-1200">p+q+1</span>&#x00A0;<span 
class="ectt-1200">si</span>&#x00A0;<span 
class="ectt-1200">MEAN=.TRUE.</span>&#x00A0;<span 
class="ectt-1200">,</span>&#x00A0;<span 
class="ectt-1200">p+q</span>&#x00A0;<span 
class="ectt-1200">si</span>&#x00A0;<span 
class="ectt-1200">MEAN=.FALSE.</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">ICM</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(ICM=p+q)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Workspace</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">IW(NPAR+rm+3)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">initial</span>&#x00A0;<span 
class="ectt-1200">parameter</span>&#x00A0;<span 
class="ectt-1200">estimates</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Input/Output</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">PAR(NPAR)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">W(i,t)</span>&#x00A0;<span 
class="ectt-1200">must</span>&#x00A0;<span 
class="ectt-1200">be</span>&#x00A0;<span 
class="ectt-1200">set</span>&#x00A0;<span 
class="ectt-1200">equal</span>&#x00A0;<span 
class="ectt-1200">to</span>&#x00A0;<span 
class="ectt-1200">the</span>&#x00A0;<span 
class="ectt-1200">observation</span>&#x00A0;<span 
class="ectt-1200">at</span>&#x00A0;<span 
class="ectt-1200">time</span>&#x00A0;<span 
class="ectt-1200">t</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Input</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">of</span>&#x00A0;<span 
class="ectt-1200">the</span>&#x00A0;<span 
class="ectt-1200">ith</span>&#x00A0;<span 
class="ectt-1200">series</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">W(1,nT)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">the</span>&#x00A0;<span 
class="ectt-1200">accuracy</span>&#x00A0;<span 
class="ectt-1200">to</span>&#x00A0;<span 
class="ectt-1200">which</span>&#x00A0;<span 
class="ectt-1200">the</span>&#x00A0;<span 
class="ectt-1200">solution</span>&#x00A0;<span 
class="ectt-1200">in</span>&#x00A0;<span 
class="ectt-1200">PAR</span>&#x00A0;<span 
class="ectt-1200">and</span>&#x00A0;<span 
class="ectt-1200">QQ</span>&#x00A0;<span 
class="ectt-1200">is</span>&#x00A0;<span 
class="ectt-1200">required</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Input</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">**</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">CGETOL</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(CGETOL=0.0001)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">residual</span>&#x00A0;<span 
class="ectt-1200">at</span>&#x00A0;<span 
class="ectt-1200">time</span>&#x00A0;<span 
class="ectt-1200">t</span>&#x00A0;<span 
class="ectt-1200">for</span>&#x00A0;<span 
class="ectt-1200">series</span>&#x00A0;<span 
class="ectt-1200">i,</span>&#x00A0;<span 
class="ectt-1200">for</span>&#x00A0;<span 
class="ectt-1200">i</span>&#x00A0;<span 
class="ectt-1200">=</span>&#x00A0;<span 
class="ectt-1200">1,2,...,k</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Output</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">V(1,nT)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">estimated</span>&#x00A0;<span 
class="ectt-1200">first</span>&#x00A0;<span 
class="ectt-1200">derivative</span>&#x00A0;<span 
class="ectt-1200">of</span>&#x00A0;<span 
class="ectt-1200">the</span>&#x00A0;<span 
class="ectt-1200">log-likelihood</span>&#x00A0;<span 
class="ectt-1200">function</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Output</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">G(NPAR)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">estimate</span>&#x00A0;<span 
class="ectt-1200">of</span>&#x00A0;<span 
class="ectt-1200">the</span>&#x00A0;<span 
class="ectt-1200">correlation</span>&#x00A0;<span 
class="ectt-1200">coefficient</span>&#x00A0;<span 
class="ectt-1200">between</span>&#x00A0;<span 
class="ectt-1200">the</span>&#x00A0;<span 
class="ectt-1200">ith</span>&#x00A0;<span 
class="ectt-1200">and</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Output</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">jth</span>&#x00A0;<span 
class="ectt-1200">elements</span>&#x00A0;<span 
class="ectt-1200">in</span>&#x00A0;<span 
class="ectt-1200">the</span>&#x00A0;<span 
class="ectt-1200">PAR</span>&#x00A0;<span 
class="ectt-1200">array</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">CM(ICM,NPAR)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Workspace</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">WORK((5+3*nT+2*rm)+(2*p+q+2*rm*(rm+2)+9)+</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">+</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">(NPAR+1)*(5*(NPAR+1)+29)/2+(rm+1)**2)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">MEAN</span>&#x00A0;<span 
class="ectt-1200">must</span>&#x00A0;<span 
class="ectt-1200">be</span>&#x00A0;<span 
class="ectt-1200">set</span>&#x00A0;<span 
class="ectt-1200">to</span>&#x00A0;<span 
class="ectt-1200">.TRUE.</span>&#x00A0;<span 
class="ectt-1200">if</span>&#x00A0;<span 
class="ectt-1200">components</span>&#x00A0;<span 
class="ectt-1200">of</span>&#x00A0;<span 
class="ectt-1200">mu</span>&#x00A0;<span 
class="ectt-1200">are</span>&#x00A0;<span 
class="ectt-1200">to</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Input</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">**</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">be</span>&#x00A0;<span 
class="ectt-1200">estimated</span>&#x00A0;<span 
class="ectt-1200">and</span>&#x00A0;<span 
class="ectt-1200">.FALSE.</span>&#x00A0;<span 
class="ectt-1200">if</span>&#x00A0;<span 
class="ectt-1200">all</span>&#x00A0;<span 
class="ectt-1200">elements</span>&#x00A0;<span 
class="ectt-1200">of</span>&#x00A0;<span 
class="ectt-1200">mu</span>&#x00A0;<span 
class="ectt-1200">are</span>&#x00A0;<span 
class="ectt-1200">to</span>&#x00A0;<span 
class="ectt-1200">be</span>&#x00A0;<span 
class="ectt-1200">taken</span>&#x00A0;<span 
class="ectt-1200">as</span>&#x00A0;<span 
class="ectt-1200">zero</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">LOGICAL</span>&#x00A0;<span 
class="ectt-1200">MEAN</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(MEAN=.FALSE.)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARHLD(i)</span>&#x00A0;<span 
class="ectt-1200">must</span>&#x00A0;<span 
class="ectt-1200">be</span>&#x00A0;<span 
class="ectt-1200">set</span>&#x00A0;<span 
class="ectt-1200">to</span>&#x00A0;<span 
class="ectt-1200">.TRUE.,</span>&#x00A0;<span 
class="ectt-1200">if</span>&#x00A0;<span 
class="ectt-1200">PAR(i)</span>&#x00A0;<span 
class="ectt-1200">is</span>&#x00A0;<span 
class="ectt-1200">to</span>&#x00A0;<span 
class="ectt-1200">be</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Input</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">held</span>&#x00A0;<span 
class="ectt-1200">constant</span>&#x00A0;<span 
class="ectt-1200">at</span>&#x00A0;<span 
class="ectt-1200">its</span>&#x00A0;<span 
class="ectt-1200">input</span>&#x00A0;<span 
class="ectt-1200">value</span>&#x00A0;<span 
class="ectt-1200">and</span>&#x00A0;<span 
class="ectt-1200">.FALSE.,</span>&#x00A0;<span 
class="ectt-1200">if</span>&#x00A0;<span 
class="ectt-1200">PAR(i)</span>&#x00A0;<span 
class="ectt-1200">is</span>&#x00A0;<span 
class="ectt-1200">a</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">free</span>&#x00A0;<span 
class="ectt-1200">parameter,</span>&#x00A0;<span 
class="ectt-1200">for</span>&#x00A0;<span 
class="ectt-1200">i</span>&#x00A0;<span 
class="ectt-1200">=</span>&#x00A0;<span 
class="ectt-1200">1,2,...,NPAR.</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">LOGICAL</span>&#x00A0;<span 
class="ectt-1200">PARHLD(NPAR)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">EXACT</span>&#x00A0;<span 
class="ectt-1200">must</span>&#x00A0;<span 
class="ectt-1200">be</span>&#x00A0;<span 
class="ectt-1200">set</span>&#x00A0;<span 
class="ectt-1200">equal</span>&#x00A0;<span 
class="ectt-1200">to</span>&#x00A0;<span 
class="ectt-1200">.TRUE.</span>&#x00A0;<span 
class="ectt-1200">if</span>&#x00A0;<span 
class="ectt-1200">the</span>&#x00A0;<span 
class="ectt-1200">user</span>&#x00A0;<span 
class="ectt-1200">wishes</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Input</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">**</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">the</span>&#x00A0;<span 
class="ectt-1200">routine</span>&#x00A0;<span 
class="ectt-1200">to</span>&#x00A0;<span 
class="ectt-1200">compute</span>&#x00A0;<span 
class="ectt-1200">exact</span>&#x00A0;<span 
class="ectt-1200">maximum</span>&#x00A0;<span 
class="ectt-1200">likelihood</span>&#x00A0;<span 
class="ectt-1200">estimates.</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">EXACT</span>&#x00A0;<span 
class="ectt-1200">must</span>&#x00A0;<span 
class="ectt-1200">be</span>&#x00A0;<span 
class="ectt-1200">set</span>&#x00A0;<span 
class="ectt-1200">equal</span>&#x00A0;<span 
class="ectt-1200">to</span>&#x00A0;<span 
class="ectt-1200">.FALSE.</span>&#x00A0;<span 
class="ectt-1200">if</span>&#x00A0;<span 
class="ectt-1200">only</span>&#x00A0;<span 
class="ectt-1200">conditional</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">likelihood</span>&#x00A0;<span 
class="ectt-1200">estimates</span>&#x00A0;<span 
class="ectt-1200">are</span>&#x00A0;<span 
class="ectt-1200">required.</span>

&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">voir</span>&#x00A0;<span 
class="ectt-1200">EXACT</span>&#x00A0;<span 
class="ectt-1200">plus</span>&#x00A0;<span 
class="ectt-1200">bas</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">LOGICAL</span>&#x00A0;<span 
class="ectt-1200">EXACT</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Contient</span>&#x00A0;<span 
class="ectt-1200">les</span>&#x00A0;<span 
class="ectt-1200">p</span>&#x00A0;<span 
class="ectt-1200">donnees</span>&#x00A0;<span 
class="ectt-1200">initiales</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">la</span>&#x00A0;<span 
class="ectt-1200">serie</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">Wtip(p)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">marret+p</span>&#x00A0;<span 
class="ectt-1200">innovations</span>&#x00A0;<span 
class="ectt-1200">genere</span>&#x00A0;<span 
class="ectt-1200">par</span>&#x00A0;<span 
class="ectt-1200">shock.f</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">shocks(marret+p)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">defini</span>&#x00A0;<span 
class="ectt-1200">dans</span>&#x00A0;<span 
class="ectt-1200">Burn,</span>&#x00A0;<span 
class="ectt-1200">calcule</span>&#x00A0;<span 
class="ectt-1200">par</span>&#x00A0;<span 
class="ectt-1200">ARMpsi.f</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">psi(marret+1)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">utile</span>&#x00A0;<span 
class="ectt-1200">dans</span>&#x00A0;<span 
class="ectt-1200">simARM.f</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">longueur</span>&#x00A0;<span 
class="ectt-1200">marret</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">phi2(marret)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">utile</span>&#x00A0;<span 
class="ectt-1200">dans</span>&#x00A0;<span 
class="ectt-1200">simARM.f</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">longueur</span>&#x00A0;<span 
class="ectt-1200">marret</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">teta2(marret)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">utile</span>&#x00A0;<span 
class="ectt-1200">dans</span>&#x00A0;<span 
class="ectt-1200">simARM.f</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">YtpMn(p+Mind+nT)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">utile</span>&#x00A0;<span 
class="ectt-1200">dans</span>&#x00A0;<span 
class="ectt-1200">simARM.f</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">Atnq(nT+Mind+q)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Esperances</span>&#x00A0;<span 
class="ectt-1200">des</span>&#x00A0;<span 
class="ectt-1200">lois</span>&#x00A0;<span 
class="ectt-1200">SU,</span>&#x00A0;<span 
class="ectt-1200">SB</span>&#x00A0;<span 
class="ectt-1200">et</span>&#x00A0;<span 
class="ectt-1200">S</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">**</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">EspSU,EspSB,EspS</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(EspSU=-1.93758,</span>&#x00A0;<span 
class="ectt-1200">EspSB=0.696735,</span>&#x00A0;<span 
class="ectt-1200">EspS=0)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CHARACTER*13</span>&#x00A0;<span 
class="ectt-1200">efface</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">temp(5)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">j</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CHARACTER*5</span>&#x00A0;<span 
class="ectt-1200">ftemp</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CHARACTER*1</span>&#x00A0;<span 
class="ectt-1200">INTCH1</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CHARACTER*2</span>&#x00A0;<span 
class="ectt-1200">INTCH2</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CHARACTER*3</span>&#x00A0;<span 
class="ectt-1200">INTCH3</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CHARACTER*4</span>&#x00A0;<span 
class="ectt-1200">INTCH4</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">matric(n,18)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">dnT</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(dnT=Kp)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">QLed1u,QLe12u</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(QLed1u=QuLed1,QLe12u=QuLe12)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">QLed2u,QLe22u</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(QLed2u=QuLed2,QLe22u=QuLe22)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">QBDu,QBD2u</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(QBDu=QuBD,QBD2u=QuBD2)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">QADu,QAD2u</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(QADu=QuAD,QAD2u=QuAD2)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">QJBu,QJB2u</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(QJBu=QuJB,QJB2u=QuJB2)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">the</span>&#x00A0;<span 
class="ectt-1200">mean</span>&#x00A0;<span 
class="ectt-1200">of</span>&#x00A0;<span 
class="ectt-1200">the</span>&#x00A0;<span 
class="ectt-1200">time</span>&#x00A0;<span 
class="ectt-1200">series</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Input</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">E</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(E=mu)</span>

&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">the</span>&#x00A0;<span 
class="ectt-1200">number</span>&#x00A0;<span 
class="ectt-1200">of</span>&#x00A0;<span 
class="ectt-1200">autoregressive</span>&#x00A0;<span 
class="ectt-1200">coefficients</span>&#x00A0;<span 
class="ectt-1200">supplied</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Input</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">NA</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(NA=p)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">the</span>&#x00A0;<span 
class="ectt-1200">number</span>&#x00A0;<span 
class="ectt-1200">of</span>&#x00A0;<span 
class="ectt-1200">moving-average</span>&#x00A0;<span 
class="ectt-1200">coefficients</span>&#x00A0;<span 
class="ectt-1200">supplied</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Input</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">NB</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(NB=q+1)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">the</span>&#x00A0;<span 
class="ectt-1200">dimension</span>&#x00A0;<span 
class="ectt-1200">of</span>&#x00A0;<span 
class="ectt-1200">the</span>&#x00A0;<span 
class="ectt-1200">array</span>&#x00A0;<span 
class="ectt-1200">R:</span>&#x00A0;<span 
class="ectt-1200">vecteur</span>&#x00A0;<span 
class="ectt-1200">des</span>&#x00A0;<span 
class="ectt-1200">innovations</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Input</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">NR</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(NR=10)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">the</span>&#x00A0;<span 
class="ectt-1200">number</span>&#x00A0;<span 
class="ectt-1200">of</span>&#x00A0;<span 
class="ectt-1200">observed</span>&#x00A0;<span 
class="ectt-1200">time</span>&#x00A0;<span 
class="ectt-1200">series,</span>&#x00A0;<span 
class="ectt-1200">k</span>&#x00A0;&#x00A0;<span 
class="ectt-1200">(chez</span>&#x00A0;<span 
class="ectt-1200">moi</span>&#x00A0;<span 
class="ectt-1200">k=1)</span>&#x00A0;&#x00A0;<span 
class="ectt-1200">Input</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">K</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(K=1)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">the</span>&#x00A0;<span 
class="ectt-1200">number</span>&#x00A0;<span 
class="ectt-1200">of</span>&#x00A0;<span 
class="ectt-1200">observations</span>&#x00A0;<span 
class="ectt-1200">in</span>&#x00A0;<span 
class="ectt-1200">each</span>&#x00A0;<span 
class="ectt-1200">time</span>&#x00A0;<span 
class="ectt-1200">series,</span>&#x00A0;<span 
class="ectt-1200">n</span>&#x00A0;<span 
class="ectt-1200">(chez</span>&#x00A0;<span 
class="ectt-1200">moi=nT)</span>&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Input</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">N2</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(N2=nT)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">the</span>&#x00A0;<span 
class="ectt-1200">number</span>&#x00A0;<span 
class="ectt-1200">of</span>&#x00A0;<span 
class="ectt-1200">AR</span>&#x00A0;<span 
class="ectt-1200">parameter</span>&#x00A0;<span 
class="ectt-1200">matrices,</span>&#x00A0;<span 
class="ectt-1200">p</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Input</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">IP</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(IP=p)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">the</span>&#x00A0;<span 
class="ectt-1200">number</span>&#x00A0;<span 
class="ectt-1200">of</span>&#x00A0;<span 
class="ectt-1200">MA</span>&#x00A0;<span 
class="ectt-1200">parameter</span>&#x00A0;<span 
class="ectt-1200">matrices,</span>&#x00A0;<span 
class="ectt-1200">q</span>&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Input</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">IQ</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(IQ=q)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">the</span>&#x00A0;<span 
class="ectt-1200">first</span>&#x00A0;<span 
class="ectt-1200">dimension</span>&#x00A0;<span 
class="ectt-1200">of</span>&#x00A0;<span 
class="ectt-1200">the</span>&#x00A0;<span 
class="ectt-1200">arrays</span>&#x00A0;<span 
class="ectt-1200">QQ,</span>&#x00A0;<span 
class="ectt-1200">W</span>&#x00A0;<span 
class="ectt-1200">and</span>&#x00A0;<span 
class="ectt-1200">V</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Input</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">IK</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(IK=1)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">the</span>&#x00A0;<span 
class="ectt-1200">maximum</span>&#x00A0;<span 
class="ectt-1200">number</span>&#x00A0;<span 
class="ectt-1200">of</span>&#x00A0;<span 
class="ectt-1200">likelihood</span>&#x00A0;<span 
class="ectt-1200">evaluations</span>&#x00A0;<span 
class="ectt-1200">to</span>&#x00A0;<span 
class="ectt-1200">be</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Input</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">permitted</span>&#x00A0;<span 
class="ectt-1200">by</span>&#x00A0;<span 
class="ectt-1200">the</span>&#x00A0;<span 
class="ectt-1200">search</span>&#x00A0;<span 
class="ectt-1200">procedure</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">MAXCAL</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(MAXCAL=40*NPAR*(NPAR+5))</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">which</span>&#x00A0;<span 
class="ectt-1200">quantities</span>&#x00A0;<span 
class="ectt-1200">are</span>&#x00A0;<span 
class="ectt-1200">to</span>&#x00A0;<span 
class="ectt-1200">be</span>&#x00A0;<span 
class="ectt-1200">printed</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Input</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">ISHOW</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(ISHOW=0)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">dimension</span>&#x00A0;<span 
class="ectt-1200">of</span>&#x00A0;<span 
class="ectt-1200">the</span>&#x00A0;<span 
class="ectt-1200">array</span>&#x00A0;<span 
class="ectt-1200">WORK</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Input</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">LWORK</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(LWORK=(5+3*(nT)+2*rm)+(2*p+q+2*rm*(rm+2)+9)+</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">+</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">(NPAR+1)*(5*(NPAR+1)+29)/2+(rm+1)**2)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">dimension</span>&#x00A0;<span 
class="ectt-1200">of</span>&#x00A0;<span 
class="ectt-1200">the</span>&#x00A0;<span 
class="ectt-1200">array</span>&#x00A0;<span 
class="ectt-1200">IW</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Input</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">LIW</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(LIW=NPAR+rm+3)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">QQ(i,j)</span>&#x00A0;<span 
class="ectt-1200">must</span>&#x00A0;<span 
class="ectt-1200">be</span>&#x00A0;<span 
class="ectt-1200">set</span>&#x00A0;<span 
class="ectt-1200">equal</span>&#x00A0;<span 
class="ectt-1200">to</span>&#x00A0;<span 
class="ectt-1200">an</span>&#x00A0;<span 
class="ectt-1200">initial</span>&#x00A0;<span 
class="ectt-1200">estimate</span>&#x00A0;<span 
class="ectt-1200">of</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Input/Output</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">the</span>&#x00A0;<span 
class="ectt-1200">(i,j)th</span>&#x00A0;<span 
class="ectt-1200">element</span>&#x00A0;<span 
class="ectt-1200">of</span>&#x00A0;<span 
class="ectt-1200">the</span>&#x00A0;<span 
class="ectt-1200">covariance</span>&#x00A0;<span 
class="ectt-1200">matrix</span>&#x00A0;<span 
class="ectt-1200">of</span>&#x00A0;<span 
class="ectt-1200">the</span>&#x00A0;<span 
class="ectt-1200">residual</span>&#x00A0;<span 
class="ectt-1200">series</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">QQ(IK,K)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">NI,</span>&#x00A0;<span 
class="ectt-1200">NX,</span>&#x00A0;<span 
class="ectt-1200">IFAIL</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(NX=4,NI=9)</span>

&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">IA(NI)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">XA(NX)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">seed=1</span>&#x00A0;<span 
class="ectt-1200">(non-repeatable</span>&#x00A0;<span 
class="ectt-1200">sequence)</span>&#x00A0;<span 
class="ectt-1200">ou</span>&#x00A0;<span 
class="ectt-1200">seed=0</span>&#x00A0;<span 
class="ectt-1200">(repeatable</span>&#x00A0;<span 
class="ectt-1200">sequence)</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">**</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">seed</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(seed=0)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">-------------------------------------------------------</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Fin</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">declaration</span>&#x00A0;<span 
class="ectt-1200">des</span>&#x00A0;<span 
class="ectt-1200">variables</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">-------------------------------------------------------</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">G05CBF</span>&#x00A0;<span 
class="ectt-1200">Initialise</span>&#x00A0;<span 
class="ectt-1200">random</span>&#x00A0;<span 
class="ectt-1200">number</span>&#x00A0;<span 
class="ectt-1200">generating</span>&#x00A0;<span 
class="ectt-1200">routines</span>&#x00A0;<span 
class="ectt-1200">to</span>&#x00A0;<span 
class="ectt-1200">give</span>&#x00A0;<span 
class="ectt-1200">repeatable</span>&#x00A0;<span 
class="ectt-1200">sequence</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">G05CCF</span>&#x00A0;<span 
class="ectt-1200">Initialise</span>&#x00A0;<span 
class="ectt-1200">random</span>&#x00A0;<span 
class="ectt-1200">number</span>&#x00A0;<span 
class="ectt-1200">generating</span>&#x00A0;<span 
class="ectt-1200">routines</span>&#x00A0;<span 
class="ectt-1200">to</span>&#x00A0;<span 
class="ectt-1200">give</span>&#x00A0;<span 
class="ectt-1200">non-repeatable</span>&#x00A0;<span 
class="ectt-1200">sequence</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">G05CFF</span>&#x00A0;<span 
class="ectt-1200">Save</span>&#x00A0;<span 
class="ectt-1200">state</span>&#x00A0;<span 
class="ectt-1200">of</span>&#x00A0;<span 
class="ectt-1200">random</span>&#x00A0;<span 
class="ectt-1200">number</span>&#x00A0;<span 
class="ectt-1200">generating</span>&#x00A0;<span 
class="ectt-1200">routines</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">G05CGF</span>&#x00A0;<span 
class="ectt-1200">Restore</span>&#x00A0;<span 
class="ectt-1200">state</span>&#x00A0;<span 
class="ectt-1200">of</span>&#x00A0;<span 
class="ectt-1200">random</span>&#x00A0;<span 
class="ectt-1200">number</span>&#x00A0;<span 
class="ectt-1200">generating</span>&#x00A0;<span 
class="ectt-1200">routines</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">IF</span>&#x00A0;<span 
class="ectt-1200">(seed</span>&#x00A0;<span 
class="ectt-1200">.EQ.</span>&#x00A0;<span 
class="ectt-1200">1)</span>&#x00A0;<span 
class="ectt-1200">THEN</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CALL</span>&#x00A0;<span 
class="ectt-1200">G05CCF</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">ENDIF</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">IF</span>&#x00A0;<span 
class="ectt-1200">(seed</span>&#x00A0;<span 
class="ectt-1200">.EQ.</span>&#x00A0;<span 
class="ectt-1200">0)</span>&#x00A0;<span 
class="ectt-1200">THEN</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CALL</span>&#x00A0;<span 
class="ectt-1200">G05CBF(0)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">ENDIF</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">IFAIL=0</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Rajouter</span>&#x00A0;<span 
class="ectt-1200">ici,</span>&#x00A0;<span 
class="ectt-1200">si</span>&#x00A0;<span 
class="ectt-1200">voulu,</span>&#x00A0;<span 
class="ectt-1200">les</span>&#x00A0;<span 
class="ectt-1200">IA</span>&#x00A0;<span 
class="ectt-1200">et</span>&#x00A0;<span 
class="ectt-1200">les</span>&#x00A0;<span 
class="ectt-1200">XA</span>&#x00A0;<span 
class="ectt-1200">a</span>&#x00A0;<span 
class="ectt-1200">prendre</span>&#x00A0;<span 
class="ectt-1200">a</span>&#x00A0;<span 
class="ectt-1200">la</span>&#x00A0;<span 
class="ectt-1200">fin</span>&#x00A0;<span 
class="ectt-1200">du</span>&#x00A0;<span 
class="ectt-1200">fichier</span>&#x00A0;<span 
class="ectt-1200">para.ijkl:</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">**</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">A</span>&#x00A0;<span 
class="ectt-1200">(de)commenter</span>&#x00A0;<span 
class="ectt-1200">si</span>&#x00A0;<span 
class="ectt-1200">necessaire</span>&#x00A0;<span 
class="ectt-1200">(si</span>&#x00A0;<span 
class="ectt-1200">on</span>&#x00A0;<span 
class="ectt-1200">rajoute</span>&#x00A0;<span 
class="ectt-1200">les</span>&#x00A0;<span 
class="ectt-1200">IA</span>&#x00A0;<span 
class="ectt-1200">et</span>&#x00A0;<span 
class="ectt-1200">XA,</span>&#x00A0;<span 
class="ectt-1200">on</span>&#x00A0;<span 
class="ectt-1200">decommente)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CALL</span>&#x00A0;<span 
class="ectt-1200">G05CGF(IA,NI,XA,NX,IFAIL)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CALL</span>&#x00A0;<span 
class="ectt-1200">G05CFF(IA,NI,XA,NX,IFAIL)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">EXACT=.TRUE.</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">**</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">nbcle=n</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">efface=&#x2019;rm</span>&#x00A0;<span 
class="ectt-1200">./data.txt&#x2019;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">ftemp=&#x2019;ftemp&#x2019;</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">On</span>&#x00A0;<span 
class="ectt-1200">va</span>&#x00A0;<span 
class="ectt-1200">lire</span>&#x00A0;<span 
class="ectt-1200">les</span>&#x00A0;<span 
class="ectt-1200">parametres</span>&#x00A0;<span 
class="ectt-1200">necessaires</span>&#x00A0;<span 
class="ectt-1200">dans</span>&#x00A0;<span 
class="ectt-1200">ftemp</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">temp</span>&#x00A0;<span 
class="ectt-1200">va</span>&#x00A0;<span 
class="ectt-1200">contenir</span>&#x00A0;<span 
class="ectt-1200">sur</span>&#x00A0;<span 
class="ectt-1200">chaque</span>&#x00A0;<span 
class="ectt-1200">ligne:</span>&#x00A0;<span 
class="ectt-1200">j,</span>&#x00A0;<span 
class="ectt-1200">loi,</span>&#x00A0;<span 
class="ectt-1200">phi(1),</span>&#x00A0;<span 
class="ectt-1200">phi(2),</span>&#x00A0;<span 
class="ectt-1200">teta(1),</span>&#x00A0;<span 
class="ectt-1200">teta(2)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">OPEN(UNIT=15,</span>&#x00A0;<span 
class="ectt-1200">FILE=ftemp</span>&#x00A0;<span 
class="ectt-1200">,</span>&#x00A0;<span 
class="ectt-1200">STATUS=&#x2019;OLD&#x2019;</span>&#x00A0;<span 
class="ectt-1200">)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">READ(15,*,END=10)</span>&#x00A0;<span 
class="ectt-1200">(temp(j),j=1,5)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CLOSE(15)</span>
&#x00A0;<br />&#x00A0;<span 
class="ectt-1200">10</span>&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">j=temp(1)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">loi=temp(2)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">phi(1)=temp(3)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">phi(2)=temp(4)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">teta(1)=temp(5)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">teta(2)=0.0</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">On</span>&#x00A0;<span 
class="ectt-1200">sauvegarde</span>&#x00A0;<span 
class="ectt-1200">la</span>&#x00A0;<span 
class="ectt-1200">valeur</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">nbcle</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">nbclea=nbcle</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Nom</span>&#x00A0;<span 
class="ectt-1200">du</span>&#x00A0;<span 
class="ectt-1200">fichier</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">donnees</span>&#x00A0;<span 
class="ectt-1200">en</span>&#x00A0;<span 
class="ectt-1200">sortie</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">**</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">dataf=&#x2019;data.txt&#x2019;</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Permet</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">convertir</span>&#x00A0;<span 
class="ectt-1200">l&#x2019;entier</span>&#x00A0;<span 
class="ectt-1200">j</span>&#x00A0;<span 
class="ectt-1200">en</span>&#x00A0;<span 
class="ectt-1200">chaine</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">caracteres</span>

&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">IF</span>&#x00A0;<span 
class="ectt-1200">(j/10</span>&#x00A0;<span 
class="ectt-1200">.LT.</span>&#x00A0;<span 
class="ectt-1200">1)</span>&#x00A0;<span 
class="ectt-1200">THEN</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(INTCH1,</span>&#x00A0;<span 
class="ectt-1200">&#x2019;(I1)&#x2019;)</span>&#x00A0;<span 
class="ectt-1200">j</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Nom</span>&#x00A0;<span 
class="ectt-1200">du</span>&#x00A0;<span 
class="ectt-1200">fichier</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">parametres</span>&#x00A0;<span 
class="ectt-1200">en</span>&#x00A0;<span 
class="ectt-1200">sortie</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">**</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">paramf=&#x2019;./SIMUL/para.&#x2019;//&#x2019;000&#x2019;//INTCH1</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">filew=&#x2019;./SIMUL/resultat.&#x2019;//&#x2019;000&#x2019;//INTCH1</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">ENDIF</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">IF</span>&#x00A0;<span 
class="ectt-1200">((j/10</span>&#x00A0;<span 
class="ectt-1200">.EQ.</span>&#x00A0;<span 
class="ectt-1200">1)</span>&#x00A0;<span 
class="ectt-1200">.OR.</span>&#x00A0;<span 
class="ectt-1200">((j/10</span>&#x00A0;<span 
class="ectt-1200">.GT.</span>&#x00A0;<span 
class="ectt-1200">1)</span>&#x00A0;<span 
class="ectt-1200">.AND.</span>&#x00A0;<span 
class="ectt-1200">(j/10</span>&#x00A0;<span 
class="ectt-1200">.LT.</span>&#x00A0;<span 
class="ectt-1200">10)))</span>&#x00A0;<span 
class="ectt-1200">THEN</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(INTCH2,</span>&#x00A0;<span 
class="ectt-1200">&#x2019;(I2)&#x2019;)</span>&#x00A0;<span 
class="ectt-1200">j</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Nom</span>&#x00A0;<span 
class="ectt-1200">du</span>&#x00A0;<span 
class="ectt-1200">fichier</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">parametres</span>&#x00A0;<span 
class="ectt-1200">en</span>&#x00A0;<span 
class="ectt-1200">sortie</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">**</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">paramf=&#x2019;./SIMUL/para.&#x2019;//&#x2019;00&#x2019;//INTCH2</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">filew=&#x2019;./SIMUL/resultat.&#x2019;//&#x2019;00&#x2019;//INTCH2</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">ENDIF</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">IF</span>&#x00A0;<span 
class="ectt-1200">((j/10</span>&#x00A0;<span 
class="ectt-1200">.EQ.</span>&#x00A0;<span 
class="ectt-1200">10)</span>&#x00A0;<span 
class="ectt-1200">.OR.</span>&#x00A0;<span 
class="ectt-1200">((j/10</span>&#x00A0;<span 
class="ectt-1200">.GT.</span>&#x00A0;<span 
class="ectt-1200">10)</span>&#x00A0;<span 
class="ectt-1200">.AND.</span>&#x00A0;<span 
class="ectt-1200">(j/10</span>&#x00A0;<span 
class="ectt-1200">.LT.</span>&#x00A0;<span 
class="ectt-1200">100)))</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">+</span>&#x00A0;<span 
class="ectt-1200">THEN</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(INTCH3,</span>&#x00A0;<span 
class="ectt-1200">&#x2019;(I3)&#x2019;)</span>&#x00A0;<span 
class="ectt-1200">j</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Nom</span>&#x00A0;<span 
class="ectt-1200">du</span>&#x00A0;<span 
class="ectt-1200">fichier</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">parametres</span>&#x00A0;<span 
class="ectt-1200">en</span>&#x00A0;<span 
class="ectt-1200">sortie</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">**</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">paramf=&#x2019;./SIMUL/para.&#x2019;//&#x2019;0&#x2019;//INTCH3</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">filew=&#x2019;./SIMUL/resultat.&#x2019;//&#x2019;0&#x2019;//INTCH3</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">ENDIF</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">IF</span>&#x00A0;<span 
class="ectt-1200">((j/10</span>&#x00A0;<span 
class="ectt-1200">.EQ.</span>&#x00A0;<span 
class="ectt-1200">100)</span>&#x00A0;<span 
class="ectt-1200">.OR.</span>&#x00A0;<span 
class="ectt-1200">((j/10</span>&#x00A0;<span 
class="ectt-1200">.GT.</span>&#x00A0;<span 
class="ectt-1200">100)</span>&#x00A0;<span 
class="ectt-1200">.AND.</span>&#x00A0;<span 
class="ectt-1200">(j/10</span>&#x00A0;<span 
class="ectt-1200">.LT.</span>&#x00A0;<span 
class="ectt-1200">1000)))</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">+</span>&#x00A0;<span 
class="ectt-1200">THEN</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(INTCH4,</span>&#x00A0;<span 
class="ectt-1200">&#x2019;(I4)&#x2019;)</span>&#x00A0;<span 
class="ectt-1200">j</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Nom</span>&#x00A0;<span 
class="ectt-1200">du</span>&#x00A0;<span 
class="ectt-1200">fichier</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">parametres</span>&#x00A0;<span 
class="ectt-1200">en</span>&#x00A0;<span 
class="ectt-1200">sortie</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">**</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">paramf=&#x2019;./SIMUL/para.&#x2019;//INTCH4</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">filew=&#x2019;./SIMUL/resultat.&#x2019;//INTCH4</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">ENDIF</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">IF</span>&#x00A0;<span 
class="ectt-1200">(loi</span>&#x00A0;<span 
class="ectt-1200">.EQ.</span>&#x00A0;<span 
class="ectt-1200">0)</span>&#x00A0;<span 
class="ectt-1200">THEN</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Quantiles</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">la</span>&#x00A0;<span 
class="ectt-1200">loi</span>&#x00A0;<span 
class="ectt-1200">du</span>&#x00A0;<span 
class="ectt-1200">Khi2</span>&#x00A0;<span 
class="ectt-1200">(K=10;alpha=0.1)</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">**</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">khi(1)=2.71</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">khi(2)=4.61</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">khi(3)=6.25</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">khi(4)=7.78</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">khi(5)=9.24</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">khi(6)=10.64</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">khi(7)=12.02</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">khi(8)=13.36</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">khi(9)=14.68</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">khi(10)=15.99</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Quantiles</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">la</span>&#x00A0;<span 
class="ectt-1200">loi</span>&#x00A0;<span 
class="ectt-1200">du</span>&#x00A0;<span 
class="ectt-1200">Khi2</span>&#x00A0;<span 
class="ectt-1200">(K=10;alpha=0.05)</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">**</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">khi2(1)=3.84</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">khi2(2)=5.99</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">khi2(3)=7.81</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">khi2(4)=9.49</span>

&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">khi2(5)=11.07</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">khi2(6)=12.59</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">khi2(7)=14.07</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">khi2(8)=15.51</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">khi2(9)=16.92</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">khi2(10)=18.31</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">ENDIF</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">IF</span>&#x00A0;<span 
class="ectt-1200">(loi</span>&#x00A0;<span 
class="ectt-1200">.NE.</span>&#x00A0;<span 
class="ectt-1200">0)</span>&#x00A0;<span 
class="ectt-1200">THEN</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Quantiles</span>&#x00A0;<span 
class="ectt-1200">utilises</span>&#x00A0;<span 
class="ectt-1200">pour</span>&#x00A0;<span 
class="ectt-1200">le</span>&#x00A0;<span 
class="ectt-1200">calcul</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">la</span>&#x00A0;<span 
class="ectt-1200">stat(vrais</span>&#x00A0;<span 
class="ectt-1200">quantiles</span>&#x00A0;<span 
class="ectt-1200">calcules</span>&#x00A0;<span 
class="ectt-1200">sous</span>&#x00A0;<span 
class="ectt-1200">H0)</span>&#x00A0;&#x00A0;<span 
class="ectt-1200">**</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">avec</span>&#x00A0;<span 
class="ectt-1200">alpha=0.1</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">khi(1)=2.71</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">khi(2)=4.61</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">khi(3)=6.25</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">khi(4)=7.78</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">khi(5)=9.24</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">khi(6)=10.64</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">khi(7)=12.02</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">khi(8)=13.36</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">khi(9)=14.68</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">khi(10)=15.99</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Quantiles</span>&#x00A0;<span 
class="ectt-1200">utilises</span>&#x00A0;<span 
class="ectt-1200">pour</span>&#x00A0;<span 
class="ectt-1200">le</span>&#x00A0;<span 
class="ectt-1200">calcul</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">la</span>&#x00A0;<span 
class="ectt-1200">stat(vrais</span>&#x00A0;<span 
class="ectt-1200">quantiles</span>&#x00A0;<span 
class="ectt-1200">calcules</span>&#x00A0;<span 
class="ectt-1200">sous</span>&#x00A0;<span 
class="ectt-1200">H0)</span>&#x00A0;&#x00A0;<span 
class="ectt-1200">**</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">avec</span>&#x00A0;<span 
class="ectt-1200">alpha=0.05</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">khi2(1)=3.84</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">khi2(2)=5.99</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">khi2(3)=7.81</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">khi2(4)=9.49</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">khi2(5)=11.07</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">khi2(6)=12.59</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">khi2(7)=14.07</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">khi2(8)=15.51</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">khi2(9)=16.92</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">khi2(10)=18.31</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">ENDIF</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">On</span>&#x00A0;<span 
class="ectt-1200">peut</span>&#x00A0;<span 
class="ectt-1200">aussi</span>&#x00A0;<span 
class="ectt-1200">changer</span>&#x00A0;<span 
class="ectt-1200">le</span>&#x00A0;<span 
class="ectt-1200">nom</span>&#x00A0;<span 
class="ectt-1200">du</span>&#x00A0;<span 
class="ectt-1200">fichier</span>&#x00A0;<span 
class="ectt-1200">en</span>&#x00A0;<span 
class="ectt-1200">entree</span>&#x00A0;<span 
class="ectt-1200">(data.txt)</span>&#x00A0;<span 
class="ectt-1200">et</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">**</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">le</span>&#x00A0;<span 
class="ectt-1200">nom</span>&#x00A0;<span 
class="ectt-1200">du</span>&#x00A0;<span 
class="ectt-1200">fichier</span>&#x00A0;<span 
class="ectt-1200">en</span>&#x00A0;<span 
class="ectt-1200">sortie</span>&#x00A0;<span 
class="ectt-1200">(resultat.txt)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">filer=&#x2019;data.txt&#x2019;</span>
&#x00A0;<br /><span 
class="ectt-1200">c-----------------------------------------------------------</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">------------------------------------------------------------------------</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DEBUT</span>&#x00A0;<span 
class="ectt-1200">DU</span>&#x00A0;<span 
class="ectt-1200">PROGRAMME</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">------------------------------------------------------------------------</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CALL</span>&#x00A0;<span 
class="ectt-1200">cdARMA(dataf,paramf,nbcle,marret,Mind,sigma,mu,df1,df2,</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">+</span>&#x00A0;<span 
class="ectt-1200">lambda,loi5b,loi5k,loi6p,loi6q,loi7g,loi7d,loi8p,loi8q,loi9a,</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">+loi9b,loi10b,loi10l,loi11a,loi11k,loi13g,loi13d,loi14l,loi16p,</span>

&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">+loi16d,loi17p,loi17m,loi18g,loi18d,loi19a,loi19b,loi,p,q,rm,nT,</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">+</span>&#x00A0;<span 
class="ectt-1200">phi,phich,teta,tetach,donees,A,</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">+</span>&#x00A0;<span 
class="ectt-1200">B,R,NPAR,ICM,IW,PAR,W,CGETOL,V,G,CM,WORK,MEAN,PARHLD,EXACT,Wtip,</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">+</span>&#x00A0;<span 
class="ectt-1200">shocks,psi,phi2,teta2,YtpMn,Atnq,EspSU,EspSB,EspS,</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">+E,NA,NB,NR,K,N2,IP,IQ,IK,MAXCAL,ISHOW,LWORK,LIW,QQ)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Il</span>&#x00A0;<span 
class="ectt-1200">faut</span>&#x00A0;<span 
class="ectt-1200">faire</span>&#x00A0;<span 
class="ectt-1200">modifier</span>&#x00A0;<span 
class="ectt-1200">par</span>&#x00A0;<span 
class="ectt-1200">cdARMA</span>&#x00A0;<span 
class="ectt-1200">la</span>&#x00A0;<span 
class="ectt-1200">valeur</span>&#x00A0;<span 
class="ectt-1200">nbcle</span>&#x00A0;<span 
class="ectt-1200">en</span>&#x00A0;<span 
class="ectt-1200">entree</span>&#x00A0;<span 
class="ectt-1200">pour</span>&#x00A0;<span 
class="ectt-1200">lui</span>&#x00A0;<span 
class="ectt-1200">faire</span>&#x00A0;<span 
class="ectt-1200">sortir</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">une</span>&#x00A0;<span 
class="ectt-1200">nouvelle</span>&#x00A0;<span 
class="ectt-1200">valeur</span>&#x00A0;<span 
class="ectt-1200">nbcle</span>&#x00A0;<span 
class="ectt-1200">qui</span>&#x00A0;<span 
class="ectt-1200">est</span>&#x00A0;<span 
class="ectt-1200">le</span>&#x00A0;<span 
class="ectt-1200">nombre</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">bons</span>&#x00A0;<span 
class="ectt-1200">echantillons</span>&#x00A0;<span 
class="ectt-1200">conserves</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Ensuite,</span>&#x00A0;<span 
class="ectt-1200">il</span>&#x00A0;<span 
class="ectt-1200">faut</span>&#x00A0;<span 
class="ectt-1200">utiliser</span>&#x00A0;<span 
class="ectt-1200">cette</span>&#x00A0;<span 
class="ectt-1200">valeur</span>&#x00A0;<span 
class="ectt-1200">dans</span>&#x00A0;<span 
class="ectt-1200">calcstat,</span>&#x00A0;<span 
class="ectt-1200">comme</span>&#x00A0;<span 
class="ectt-1200">etant</span>&#x00A0;<span 
class="ectt-1200">la</span>&#x00A0;<span 
class="ectt-1200">vraie</span>&#x00A0;<span 
class="ectt-1200">valeur</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">du</span>&#x00A0;<span 
class="ectt-1200">nombre</span>&#x00A0;<span 
class="ectt-1200">d&#x2019;echantillons</span>&#x00A0;<span 
class="ectt-1200">disponibles,</span>&#x00A0;<span 
class="ectt-1200">la</span>&#x00A0;<span 
class="ectt-1200">valeur</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">n</span>&#x00A0;<span 
class="ectt-1200">que</span>&#x00A0;<span 
class="ectt-1200">l&#x2019;on</span>&#x00A0;<span 
class="ectt-1200">a</span>&#x00A0;<span 
class="ectt-1200">mise</span>&#x00A0;<span 
class="ectt-1200">etant</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">la</span>&#x00A0;<span 
class="ectt-1200">valeur</span>&#x00A0;<span 
class="ectt-1200">maximale</span>&#x00A0;<span 
class="ectt-1200">possible</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">bons</span>&#x00A0;<span 
class="ectt-1200">echantillons,</span>&#x00A0;<span 
class="ectt-1200">donc</span>&#x00A0;<span 
class="ectt-1200">les</span>&#x00A0;<span 
class="ectt-1200">differentes</span>&#x00A0;<span 
class="ectt-1200">matrices</span>&#x00A0;<span 
class="ectt-1200">initialisees</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">a</span>&#x00A0;<span 
class="ectt-1200">l&#x2019;aide</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">la</span>&#x00A0;<span 
class="ectt-1200">valeur</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">n</span>&#x00A0;<span 
class="ectt-1200">sont</span>&#x00A0;<span 
class="ectt-1200">plus</span>&#x00A0;<span 
class="ectt-1200">grandes</span>&#x00A0;<span 
class="ectt-1200">que</span>&#x00A0;<span 
class="ectt-1200">necessaires</span>&#x00A0;<span 
class="ectt-1200">(elles</span>&#x00A0;<span 
class="ectt-1200">auraient</span>&#x00A0;<span 
class="ectt-1200">du</span>&#x00A0;<span 
class="ectt-1200">etre</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">initialisees</span>&#x00A0;<span 
class="ectt-1200">avec</span>&#x00A0;<span 
class="ectt-1200">la</span>&#x00A0;<span 
class="ectt-1200">valeur</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">nbcle</span>&#x00A0;<span 
class="ectt-1200">renvoyee</span>&#x00A0;<span 
class="ectt-1200">par</span>&#x00A0;<span 
class="ectt-1200">cd</span>&#x00A0;<span 
class="ectt-1200">ARMA</span>&#x00A0;<span 
class="ectt-1200">mais</span>&#x00A0;<span 
class="ectt-1200">ce</span>&#x00A0;<span 
class="ectt-1200">n&#x2019;est</span>&#x00A0;<span 
class="ectt-1200">pas</span>&#x00A0;<span 
class="ectt-1200">possible</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">avec</span>&#x00A0;<span 
class="ectt-1200">fortran77)</span>&#x00A0;<span 
class="ectt-1200">et</span>&#x00A0;<span 
class="ectt-1200">il</span>&#x00A0;<span 
class="ectt-1200">faut</span>&#x00A0;<span 
class="ectt-1200">en</span>&#x00A0;<span 
class="ectt-1200">tenir</span>&#x00A0;<span 
class="ectt-1200">compte;</span>&#x00A0;<span 
class="ectt-1200">donc</span>&#x00A0;<span 
class="ectt-1200">bien</span>&#x00A0;<span 
class="ectt-1200">regarder</span>&#x00A0;<span 
class="ectt-1200">partout</span>&#x00A0;<span 
class="ectt-1200">dans</span>&#x00A0;<span 
class="ectt-1200">le</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">programme</span>&#x00A0;<span 
class="ectt-1200">calcstat</span>&#x00A0;<span 
class="ectt-1200">la</span>&#x00A0;<span 
class="ectt-1200">ou</span>&#x00A0;<span 
class="ectt-1200">il</span>&#x00A0;<span 
class="ectt-1200">y</span>&#x00A0;<span 
class="ectt-1200">a</span>&#x00A0;<span 
class="ectt-1200">n:</span>&#x00A0;<span 
class="ectt-1200">OK</span>&#x00A0;<span 
class="ectt-1200">CA</span>&#x00A0;<span 
class="ectt-1200">C&#x2019;EST</span>&#x00A0;<span 
class="ectt-1200">FAIT!!!</span>&#x00A0;<span 
class="ectt-1200">A</span>&#x00A0;<span 
class="ectt-1200">METTRE</span>&#x00A0;<span 
class="ectt-1200">EN</span>&#x00A0;<span 
class="ectt-1200">COMMENTAIRES</span>&#x00A0;<span 
class="ectt-1200">QUELQUEPART</span>&#x00A0;<span 
class="ectt-1200">...</span>
&#x00A0;<br /><span 
class="ectt-1200">CALL</span>&#x00A0;<span 
class="ectt-1200">calcstat(isa,khi,khi2,QuLed1,QuLe12,QuLed2,QuLe22,QuBD,</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">+</span>&#x00A0;<span 
class="ectt-1200">QuBD2,QuAD,QuAD2,QuJB,QuJB2,alpha,alpha2,Kp,p,q,nT,phi,teta,n,</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">+</span>&#x00A0;<span 
class="ectt-1200">nbcle,m,filer,filew,valeur,sch2vc,epscha,compt,compt2,statn,</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">+</span>&#x00A0;<span 
class="ectt-1200">KoLed1,KoLed2,Ledwi1,Ledwi2,snLed1,snLed2,stanBD,stanAD,stanJB,Z,</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">+</span>&#x00A0;<span 
class="ectt-1200">D,Davant,E2,U,hUetoi,Uavant,hKetoi,hU,hK,vecteu,vectoi,stat,</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">+</span>&#x00A0;<span 
class="ectt-1200">Zavant,BDa,BDb,BDc,BDd,Davan2,ADa,ADb,Puiss,Puiss2,snsort,snsorv,</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">+</span>&#x00A0;<span 
class="ectt-1200">Qucalc,snLe1s,snLe2s,snBDso,snADso,snJBso,matric,paramf,loi,</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">+</span>&#x00A0;<span 
class="ectt-1200">dnT,QLed1u,QLe12u,QLed2u,QLe22u,QBDu,QBD2u,QADu,QAD2u,QJBu,QJB2u)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">nbcle=nbclea</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">FAIRE</span>&#x00A0;<span 
class="ectt-1200">ATTENTION:</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">voir</span>&#x00A0;<span 
class="ectt-1200">si</span>&#x00A0;<span 
class="ectt-1200">mes</span>&#x00A0;<span 
class="ectt-1200">programmes</span>&#x00A0;<span 
class="ectt-1200">ne</span>&#x00A0;<span 
class="ectt-1200">modifient</span>&#x00A0;<span 
class="ectt-1200">pas</span>&#x00A0;<span 
class="ectt-1200">certains</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">leurs</span>&#x00A0;<span 
class="ectt-1200">parametres</span>&#x00A0;<span 
class="ectt-1200">en</span>&#x00A0;<span 
class="ectt-1200">entree</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">ce</span>&#x00A0;<span 
class="ectt-1200">qui</span>&#x00A0;<span 
class="ectt-1200">pourrait</span>&#x00A0;<span 
class="ectt-1200">ammener</span>&#x00A0;<span 
class="ectt-1200">des</span>&#x00A0;<span 
class="ectt-1200">erreurs</span>&#x00A0;<span 
class="ectt-1200">au</span>&#x00A0;<span 
class="ectt-1200">cours</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">la</span>&#x00A0;<span 
class="ectt-1200">boucle</span>&#x00A0;<span 
class="ectt-1200">que</span>&#x00A0;<span 
class="ectt-1200">je</span>&#x00A0;<span 
class="ectt-1200">vais</span>&#x00A0;<span 
class="ectt-1200">faire</span>&#x00A0;<span 
class="ectt-1200">dans</span>&#x00A0;<span 
class="ectt-1200">le</span>&#x00A0;<span 
class="ectt-1200">programme</span>&#x00A0;<span 
class="ectt-1200">test.f</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">pour</span>&#x00A0;<span 
class="ectt-1200">les</span>&#x00A0;<span 
class="ectt-1200">differentes</span>&#x00A0;<span 
class="ectt-1200">etapes</span>&#x00A0;<span 
class="ectt-1200">1),</span>&#x00A0;<span 
class="ectt-1200">2)</span>&#x00A0;<span 
class="ectt-1200">et</span>&#x00A0;<span 
class="ectt-1200">3)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CALL</span>&#x00A0;<span 
class="ectt-1200">SYSTEM(efface)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Sauvegarde</span>&#x00A0;<span 
class="ectt-1200">du</span>&#x00A0;<span 
class="ectt-1200">seed</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">OPEN(UNIT=14,</span>&#x00A0;<span 
class="ectt-1200">FILE=paramf</span>&#x00A0;<span 
class="ectt-1200">,</span>&#x00A0;<span 
class="ectt-1200">STATUS=&#x2019;OLD&#x2019;,</span>&#x00A0;<span 
class="ectt-1200">ACCESS=&#x2019;append&#x2019;</span>&#x00A0;<span 
class="ectt-1200">)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(14,*)</span>&#x00A0;<span 
class="ectt-1200">&#x2019;Sauvegarde</span>&#x00A0;<span 
class="ectt-1200">du</span>&#x00A0;<span 
class="ectt-1200">seed:&#x2019;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(14,*)</span>&#x00A0;<span 
class="ectt-1200">&#x2019;XA:&#x2019;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(14,15)</span>&#x00A0;<span 
class="ectt-1200">&#x2019;XA(1)=&#x2019;,XA(1)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(14,15)</span>&#x00A0;<span 
class="ectt-1200">&#x2019;XA(2)=&#x2019;,XA(2)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(14,15)</span>&#x00A0;<span 
class="ectt-1200">&#x2019;XA(3)=&#x2019;,XA(3)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(14,15)</span>&#x00A0;<span 
class="ectt-1200">&#x2019;XA(4)=&#x2019;,XA(4)</span>
&#x00A0;<br />&#x00A0;<span 
class="ectt-1200">15</span>&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">FORMAT(A6,1F20.15)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(14,*)</span>&#x00A0;<span 
class="ectt-1200">&#x2019;IA:&#x2019;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(14,30)</span>&#x00A0;<span 
class="ectt-1200">&#x2019;IA(1)=&#x2019;,IA(1)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(14,30)</span>&#x00A0;<span 
class="ectt-1200">&#x2019;IA(2)=&#x2019;,IA(2)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(14,30)</span>&#x00A0;<span 
class="ectt-1200">&#x2019;IA(3)=&#x2019;,IA(3)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(14,30)</span>&#x00A0;<span 
class="ectt-1200">&#x2019;IA(4)=&#x2019;,IA(4)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(14,30)</span>&#x00A0;<span 
class="ectt-1200">&#x2019;IA(5)=&#x2019;,IA(5)</span>

&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(14,30)</span>&#x00A0;<span 
class="ectt-1200">&#x2019;IA(6)=&#x2019;,IA(6)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(14,30)</span>&#x00A0;<span 
class="ectt-1200">&#x2019;IA(7)=&#x2019;,IA(7)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(14,30)</span>&#x00A0;<span 
class="ectt-1200">&#x2019;IA(8)=&#x2019;,IA(8)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(14,30)</span>&#x00A0;<span 
class="ectt-1200">&#x2019;IA(9)=&#x2019;,IA(9)</span>
&#x00A0;<br />&#x00A0;<span 
class="ectt-1200">30</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">FORMAT(A6,1I10)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CLOSE(UNIT=14)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">END</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INCLUDE</span>&#x00A0;<span 
class="ectt-1200">&#x2019;mean.f&#x2019;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INCLUDE</span>&#x00A0;<span 
class="ectt-1200">&#x2019;simulARMA.f&#x2019;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INCLUDE</span>&#x00A0;<span 
class="ectt-1200">&#x2019;ARMpsi.f&#x2019;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INCLUDE</span>&#x00A0;<span 
class="ectt-1200">&#x2019;shock.f&#x2019;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INCLUDE</span>&#x00A0;<span 
class="ectt-1200">&#x2019;rskew.f&#x2019;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INCLUDE</span>&#x00A0;<span 
class="ectt-1200">&#x2019;rlap.f&#x2019;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INCLUDE</span>&#x00A0;<span 
class="ectt-1200">&#x2019;rpare.f&#x2019;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INCLUDE</span>&#x00A0;<span 
class="ectt-1200">&#x2019;rspare.f&#x2019;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INCLUDE</span>&#x00A0;<span 
class="ectt-1200">&#x2019;rSU.f&#x2019;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INCLUDE</span>&#x00A0;<span 
class="ectt-1200">&#x2019;rTU.f&#x2019;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INCLUDE</span>&#x00A0;<span 
class="ectt-1200">&#x2019;rSC.f&#x2019;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INCLUDE</span>&#x00A0;<span 
class="ectt-1200">&#x2019;rLC.f&#x2019;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INCLUDE</span>&#x00A0;<span 
class="ectt-1200">&#x2019;rSB.f&#x2019;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INCLUDE</span>&#x00A0;<span 
class="ectt-1200">&#x2019;rS.f&#x2019;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INCLUDE</span>&#x00A0;<span 
class="ectt-1200">&#x2019;H1etoile.f&#x2019;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INCLUDE</span>&#x00A0;<span 
class="ectt-1200">&#x2019;H2etoile.f&#x2019;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INCLUDE</span>&#x00A0;<span 
class="ectt-1200">&#x2019;H3etoile.f&#x2019;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INCLUDE</span>&#x00A0;<span 
class="ectt-1200">&#x2019;H4etoile.f&#x2019;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INCLUDE</span>&#x00A0;<span 
class="ectt-1200">&#x2019;H5etoile.f&#x2019;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INCLUDE</span>&#x00A0;<span 
class="ectt-1200">&#x2019;H6etoile.f&#x2019;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INCLUDE</span>&#x00A0;<span 
class="ectt-1200">&#x2019;H7etoile.f&#x2019;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INCLUDE</span>&#x00A0;<span 
class="ectt-1200">&#x2019;H8etoile.f&#x2019;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INCLUDE</span>&#x00A0;<span 
class="ectt-1200">&#x2019;H9etoile.f&#x2019;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INCLUDE</span>&#x00A0;<span 
class="ectt-1200">&#x2019;H10etoile.f&#x2019;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INCLUDE</span>&#x00A0;<span 
class="ectt-1200">&#x2019;H1isa.f&#x2019;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INCLUDE</span>&#x00A0;<span 
class="ectt-1200">&#x2019;H2isa.f&#x2019;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INCLUDE</span>&#x00A0;<span 
class="ectt-1200">&#x2019;H3isa.f&#x2019;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INCLUDE</span>&#x00A0;<span 
class="ectt-1200">&#x2019;H4isa.f&#x2019;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INCLUDE</span>&#x00A0;<span 
class="ectt-1200">&#x2019;H5isa.f&#x2019;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INCLUDE</span>&#x00A0;<span 
class="ectt-1200">&#x2019;H6isa.f&#x2019;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INCLUDE</span>&#x00A0;<span 
class="ectt-1200">&#x2019;H7isa.f&#x2019;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INCLUDE</span>&#x00A0;<span 
class="ectt-1200">&#x2019;H8isa.f&#x2019;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INCLUDE</span>&#x00A0;<span 
class="ectt-1200">&#x2019;H9isa.f&#x2019;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INCLUDE</span>&#x00A0;<span 
class="ectt-1200">&#x2019;H10isa.f&#x2019;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INCLUDE</span>&#x00A0;<span 
class="ectt-1200">&#x2019;H1.f&#x2019;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INCLUDE</span>&#x00A0;<span 
class="ectt-1200">&#x2019;H2.f&#x2019;</span>

&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INCLUDE</span>&#x00A0;<span 
class="ectt-1200">&#x2019;H3.f&#x2019;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INCLUDE</span>&#x00A0;<span 
class="ectt-1200">&#x2019;H4.f&#x2019;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INCLUDE</span>&#x00A0;<span 
class="ectt-1200">&#x2019;H5.f&#x2019;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INCLUDE</span>&#x00A0;<span 
class="ectt-1200">&#x2019;H6.f&#x2019;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INCLUDE</span>&#x00A0;<span 
class="ectt-1200">&#x2019;H7.f&#x2019;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INCLUDE</span>&#x00A0;<span 
class="ectt-1200">&#x2019;H8.f&#x2019;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INCLUDE</span>&#x00A0;<span 
class="ectt-1200">&#x2019;H9.f&#x2019;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INCLUDE</span>&#x00A0;<span 
class="ectt-1200">&#x2019;H10.f&#x2019;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INCLUDE</span>&#x00A0;<span 
class="ectt-1200">&#x2019;qnorm.f&#x2019;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INCLUDE</span>&#x00A0;<span 
class="ectt-1200">&#x2019;pnorm.f&#x2019;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INCLUDE</span>&#x00A0;<span 
class="ectt-1200">&#x2019;min.f&#x2019;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INCLUDE</span>&#x00A0;<span 
class="ectt-1200">&#x2019;max.f&#x2019;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INCLUDE</span>&#x00A0;<span 
class="ectt-1200">&#x2019;var.f&#x2019;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INCLUDE</span>&#x00A0;<span 
class="ectt-1200">&#x2019;creerdat_ARMA.f&#x2019;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INCLUDE</span>&#x00A0;<span 
class="ectt-1200">&#x2019;calcstat.f&#x2019;</span>
</div> <span 
class="ecbx-1200">Programme big_prog_ARMA22.f </span><div class="verbatiminput">
<span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Idee</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">ce</span>&#x00A0;&#x00A0;<span 
class="ectt-1200">programme:</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Etape1)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">On</span>&#x00A0;<span 
class="ectt-1200">cree</span>&#x00A0;<span 
class="ectt-1200">un</span>&#x00A0;<span 
class="ectt-1200">fichier</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">donnees</span>&#x00A0;<span 
class="ectt-1200">&#x2019;data.txt&#x2019;</span>&#x00A0;<span 
class="ectt-1200">en</span>&#x00A0;<span 
class="ectt-1200">utilisant</span>&#x00A0;<span 
class="ectt-1200">certaines</span>&#x00A0;<span 
class="ectt-1200">valeurs</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">parametres</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">a</span>&#x00A0;<span 
class="ectt-1200">lire</span>&#x00A0;<span 
class="ectt-1200">dans</span>&#x00A0;<span 
class="ectt-1200">un</span>&#x00A0;<span 
class="ectt-1200">fichier</span>&#x00A0;<span 
class="ectt-1200">d&#x2019;entree</span>&#x00A0;<span 
class="ectt-1200">&#x2019;ftemp&#x2019;</span>&#x00A0;<span 
class="ectt-1200">cree</span>&#x00A0;<span 
class="ectt-1200">par</span>&#x00A0;<span 
class="ectt-1200">le</span>&#x00A0;<span 
class="ectt-1200">programme</span>&#x00A0;<span 
class="ectt-1200">test.f</span>&#x00A0;<span 
class="ectt-1200">a</span>&#x00A0;<span 
class="ectt-1200">l&#x2019;aide</span>&#x00A0;<span 
class="ectt-1200">du</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">fichier</span>&#x00A0;<span 
class="ectt-1200">&#x2019;paramentree&#x2019;,</span>&#x00A0;<span 
class="ectt-1200">on</span>&#x00A0;<span 
class="ectt-1200">stocke</span>&#x00A0;<span 
class="ectt-1200">les</span>&#x00A0;<span 
class="ectt-1200">resultats</span>&#x00A0;<span 
class="ectt-1200">autres</span>&#x00A0;<span 
class="ectt-1200">que</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">les</span>&#x00A0;<span 
class="ectt-1200">donnees</span>&#x00A0;<span 
class="ectt-1200">dans</span>&#x00A0;<span 
class="ectt-1200">un</span>&#x00A0;<span 
class="ectt-1200">fichier</span>&#x00A0;<span 
class="ectt-1200">&#x2019;param.i&#x2019;</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Etape</span>&#x00A0;<span 
class="ectt-1200">2)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">ensuite</span>&#x00A0;<span 
class="ectt-1200">on</span>&#x00A0;<span 
class="ectt-1200">utilise</span>&#x00A0;<span 
class="ectt-1200">le</span>&#x00A0;<span 
class="ectt-1200">fichier</span>&#x00A0;<span 
class="ectt-1200">&#x2019;data.txt&#x2019;</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">avec</span>&#x00A0;<span 
class="ectt-1200">le</span>&#x00A0;<span 
class="ectt-1200">programme</span>&#x00A0;<span 
class="ectt-1200">calcstat</span>&#x00A0;<span 
class="ectt-1200">pour</span>&#x00A0;<span 
class="ectt-1200">creer</span>&#x00A0;<span 
class="ectt-1200">le</span>&#x00A0;<span 
class="ectt-1200">fichier</span>&#x00A0;<span 
class="ectt-1200">des</span>&#x00A0;<span 
class="ectt-1200">statistiques</span>&#x00A0;<span 
class="ectt-1200">&#x2019;resultat.i&#x2019;</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Etape</span>&#x00A0;<span 
class="ectt-1200">3)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Ensuite,</span>&#x00A0;<span 
class="ectt-1200">on</span>&#x00A0;<span 
class="ectt-1200">efface</span>&#x00A0;<span 
class="ectt-1200">le</span>&#x00A0;<span 
class="ectt-1200">fichier</span>&#x00A0;<span 
class="ectt-1200">&#x2019;data.txt&#x2019;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PROGRAM</span>&#x00A0;<span 
class="ectt-1200">main</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Les</span>&#x00A0;<span 
class="ectt-1200">**</span>&#x00A0;<span 
class="ectt-1200">indiquent</span>&#x00A0;<span 
class="ectt-1200">les</span>&#x00A0;<span 
class="ectt-1200">endroits</span>&#x00A0;<span 
class="ectt-1200">ou</span>&#x00A0;<span 
class="ectt-1200">des</span>&#x00A0;<span 
class="ectt-1200">changements</span>&#x00A0;<span 
class="ectt-1200">peuvent</span>&#x00A0;<span 
class="ectt-1200">etre</span>&#x00A0;<span 
class="ectt-1200">necessaires</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">--------------------------------------------------------------------------</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DEBUT</span>&#x00A0;<span 
class="ectt-1200">DE</span>&#x00A0;<span 
class="ectt-1200">DECLARATION</span>&#x00A0;<span 
class="ectt-1200">DES</span>&#x00A0;<span 
class="ectt-1200">VARIABLES</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">--------------------------------------------------------------------------</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Si</span>&#x00A0;<span 
class="ectt-1200">isa=.TRUE.</span>&#x00A0;<span 
class="ectt-1200">(ie</span>&#x00A0;<span 
class="ectt-1200">MEAN=.TRUE.)</span>&#x00A0;<span 
class="ectt-1200">on</span>&#x00A0;<span 
class="ectt-1200">prend</span>&#x00A0;<span 
class="ectt-1200">les</span>&#x00A0;<span 
class="ectt-1200">polynomes</span>&#x00A0;<span 
class="ectt-1200">modifies</span>&#x00A0;<span 
class="ectt-1200">avec</span>&#x00A0;<span 
class="ectt-1200">les</span>&#x00A0;<span 
class="ectt-1200">ak</span>&#x00A0;&#x00A0;<span 
class="ectt-1200">**</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Si</span>&#x00A0;<span 
class="ectt-1200">isa=.FALSE.</span>&#x00A0;<span 
class="ectt-1200">(ie</span>&#x00A0;<span 
class="ectt-1200">MEAN=.FALSE.)</span>&#x00A0;<span 
class="ectt-1200">on</span>&#x00A0;<span 
class="ectt-1200">prend</span>&#x00A0;<span 
class="ectt-1200">les</span>&#x00A0;<span 
class="ectt-1200">polynomes</span>&#x00A0;<span 
class="ectt-1200">modifies</span>&#x00A0;<span 
class="ectt-1200">sans</span>&#x00A0;<span 
class="ectt-1200">les</span>&#x00A0;<span 
class="ectt-1200">ak</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">LOGICAL</span>&#x00A0;<span 
class="ectt-1200">isa</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(isa=.FALSE.)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">------------------------------------</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">parametres</span>&#x00A0;<span 
class="ectt-1200">calcstat</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Niveau</span>&#x00A0;<span 
class="ectt-1200">1</span>&#x00A0;<span 
class="ectt-1200">du</span>&#x00A0;<span 
class="ectt-1200">test</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">**</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">alpha</span>

&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(alpha=0.1)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Niveau</span>&#x00A0;<span 
class="ectt-1200">2</span>&#x00A0;<span 
class="ectt-1200">du</span>&#x00A0;<span 
class="ectt-1200">test</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">**</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">alpha2</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(alpha2=0.05)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Quantiles</span>&#x00A0;<span 
class="ectt-1200">avec</span>&#x00A0;<span 
class="ectt-1200">alpha</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;&#x00A0;<span 
class="ectt-1200">khi(10)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Quantiles</span>&#x00A0;<span 
class="ectt-1200">avec</span>&#x00A0;<span 
class="ectt-1200">alpha2</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;&#x00A0;<span 
class="ectt-1200">khi2(10)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Quantiles</span>&#x00A0;<span 
class="ectt-1200">Ledwi1</span>&#x00A0;<span 
class="ectt-1200">et</span>&#x00A0;<span 
class="ectt-1200">Ledwi2</span>&#x00A0;<span 
class="ectt-1200">avec</span>&#x00A0;<span 
class="ectt-1200">alpha</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">**</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">QuLed1,</span>&#x00A0;<span 
class="ectt-1200">QuLed2</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">avec</span>&#x00A0;<span 
class="ectt-1200">T=50</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(QuLed1=3.69,QuLed2=5.466)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">avec</span>&#x00A0;<span 
class="ectt-1200">T=100</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(QuLed1=3.275,QuLed2=5.26)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">avec</span>&#x00A0;<span 
class="ectt-1200">T=200</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(QuLed1=3.057,QuLed2=5.043)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Quantiles</span>&#x00A0;<span 
class="ectt-1200">Ledwi1</span>&#x00A0;<span 
class="ectt-1200">et</span>&#x00A0;<span 
class="ectt-1200">Ledwi2</span>&#x00A0;<span 
class="ectt-1200">avec</span>&#x00A0;<span 
class="ectt-1200">alpha2</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">**</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">QuLe12,</span>&#x00A0;<span 
class="ectt-1200">QuLe22</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">avec</span>&#x00A0;<span 
class="ectt-1200">T=50</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(QuLe12=5.41,QuLe22=7.14)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">avec</span>&#x00A0;<span 
class="ectt-1200">T=100</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(QuLe12=5.20,QuLe22=6.97)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">avec</span>&#x00A0;<span 
class="ectt-1200">T=200</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(QuLe12=4.751,QuLe22=6.796)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Quantiles</span>&#x00A0;<span 
class="ectt-1200">Brockwell</span>&#x00A0;<span 
class="ectt-1200">et</span>&#x00A0;<span 
class="ectt-1200">Davis</span>&#x00A0;<span 
class="ectt-1200">et</span>&#x00A0;<span 
class="ectt-1200">Anderson</span>&#x00A0;<span 
class="ectt-1200">Darling</span>&#x00A0;<span 
class="ectt-1200">et</span>&#x00A0;<span 
class="ectt-1200">JB</span>&#x00A0;<span 
class="ectt-1200">avec</span>&#x00A0;<span 
class="ectt-1200">alpha</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">**</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">QuBD,</span>&#x00A0;<span 
class="ectt-1200">QuAD,</span>&#x00A0;<span 
class="ectt-1200">QuJB</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">avec</span>&#x00A0;<span 
class="ectt-1200">T=50</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(QuBD=0.920,QuAD=1.743,QuJB=4.61)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">avec</span>&#x00A0;<span 
class="ectt-1200">T=100</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(QuBD=0.958,QuAD=1.743,QuJB=4.61)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">avec</span>&#x00A0;<span 
class="ectt-1200">T=200</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(QuBD=0.978,QuAD=1.743,QuJB=4.61)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Quantiles</span>&#x00A0;<span 
class="ectt-1200">Brockwell</span>&#x00A0;<span 
class="ectt-1200">et</span>&#x00A0;<span 
class="ectt-1200">Davis</span>&#x00A0;<span 
class="ectt-1200">et</span>&#x00A0;<span 
class="ectt-1200">Anderson</span>&#x00A0;<span 
class="ectt-1200">Darling</span>&#x00A0;<span 
class="ectt-1200">et</span>&#x00A0;<span 
class="ectt-1200">JB</span>&#x00A0;<span 
class="ectt-1200">avec</span>&#x00A0;<span 
class="ectt-1200">alpha2</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">**</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">QuBD2,</span>&#x00A0;<span 
class="ectt-1200">QuAD2,</span>&#x00A0;<span 
class="ectt-1200">QuJB2</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">avec</span>&#x00A0;<span 
class="ectt-1200">T=50</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(QuBD2=0.899,QuAD2=2.308,QuJB2=5.99)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">avec</span>&#x00A0;<span 
class="ectt-1200">T=100</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(QuBD2=0.947,QuAD2=2.308,QuJB2=5.99)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">avec</span>&#x00A0;<span 
class="ectt-1200">T=200</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(QuBD2=0.973,QuAD2=2.308,QuJB2=5.99)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Nombre</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">polynomes</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">**</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">Kp</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(Kp=10)</span>

&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">ordre</span>&#x00A0;<span 
class="ectt-1200">du</span>&#x00A0;<span 
class="ectt-1200">modele</span>&#x00A0;<span 
class="ectt-1200">AR</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">p</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(p=2)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">ordre</span>&#x00A0;<span 
class="ectt-1200">du</span>&#x00A0;<span 
class="ectt-1200">modele</span>&#x00A0;<span 
class="ectt-1200">MA</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">q</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(q=2)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">nombre</span>&#x00A0;<span 
class="ectt-1200">d&#x2019;observations</span>&#x00A0;<span 
class="ectt-1200">dans</span>&#x00A0;<span 
class="ectt-1200">mon</span>&#x00A0;<span 
class="ectt-1200">echantillon</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">**</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Si</span>&#x00A0;<span 
class="ectt-1200">on</span>&#x00A0;<span 
class="ectt-1200">change</span>&#x00A0;<span 
class="ectt-1200">la</span>&#x00A0;<span 
class="ectt-1200">valeur</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">nT,</span>&#x00A0;<span 
class="ectt-1200">il</span>&#x00A0;<span 
class="ectt-1200">faut</span>&#x00A0;<span 
class="ectt-1200">aller</span>&#x00A0;<span 
class="ectt-1200">modifier</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">la</span>&#x00A0;<span 
class="ectt-1200">valeur</span>&#x00A0;<span 
class="ectt-1200">dans</span>&#x00A0;<span 
class="ectt-1200">FORMAT</span>&#x00A0;<span 
class="ectt-1200">a</span>&#x00A0;<span 
class="ectt-1200">la</span>&#x00A0;<span 
class="ectt-1200">fin</span>&#x00A0;<span 
class="ectt-1200">du</span>&#x00A0;<span 
class="ectt-1200">programme</span>&#x00A0;<span 
class="ectt-1200">creerdat_ARMA.f</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">et</span>&#x00A0;<span 
class="ectt-1200">dans</span>&#x00A0;<span 
class="ectt-1200">le</span>&#x00A0;<span 
class="ectt-1200">programme</span>&#x00A0;<span 
class="ectt-1200">calcstat.f</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">nT</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(nT=100)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">n,m</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(m=nT+1)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">n=nombre</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">lignes</span>&#x00A0;<span 
class="ectt-1200">au</span>&#x00A0;<span 
class="ectt-1200">maximum</span>&#x00A0;<span 
class="ectt-1200">dans</span>&#x00A0;<span 
class="ectt-1200">le</span>&#x00A0;<span 
class="ectt-1200">fichier</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">donnees</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">**</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">cela</span>&#x00A0;<span 
class="ectt-1200">correspond</span>&#x00A0;<span 
class="ectt-1200">a</span>&#x00A0;<span 
class="ectt-1200">nbcle</span>&#x00A0;<span 
class="ectt-1200">s&#x2019;il</span>&#x00A0;<span 
class="ectt-1200">n&#x2019;y</span>&#x00A0;<span 
class="ectt-1200">a</span>&#x00A0;<span 
class="ectt-1200">pas</span>&#x00A0;<span 
class="ectt-1200">eu</span>&#x00A0;<span 
class="ectt-1200">d&#x2019;erreurs</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">dans</span>&#x00A0;<span 
class="ectt-1200">tous</span>&#x00A0;<span 
class="ectt-1200">les</span>&#x00A0;<span 
class="ectt-1200">cas</span>&#x00A0;<span 
class="ectt-1200">mettre</span>&#x00A0;<span 
class="ectt-1200">ici</span>&#x00A0;<span 
class="ectt-1200">n=nbcle=nombre</span>&#x00A0;<span 
class="ectt-1200">d&#x2019;echantillons</span>&#x00A0;<span 
class="ectt-1200">souhaites</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(n=10000)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CHARACTER</span>&#x00A0;<span 
class="ectt-1200">filer*8,</span>&#x00A0;<span 
class="ectt-1200">filew*21</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">**</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">valeur(n,m)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">sch2vc(n)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">epscha(n,nT)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">compt(Kp)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">compt2(Kp)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">statn(n,Kp)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">KoLed1(n)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">KoLed2(n)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">Ledwi1(Kp)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">Ledwi2(Kp-1)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">snLed1(n)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">snLed2(n)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">stanBD(n)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">stanAD(n),</span>&#x00A0;<span 
class="ectt-1200">stanJB(n)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">Z(nT)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">D(nT)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">Davant(nT),</span>&#x00A0;<span 
class="ectt-1200">E2(nT)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">U(nT)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">hUetoi(nT,Kp)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">Uavant(nT)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">hKetoi(Kp)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">hU(nT,Kp)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">hK(Kp)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">vecteu(Kp)</span>

&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">vectoi(Kp)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">stat(Kp)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">Zavant(nT)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">BDa(nT)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">BDb(nT)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">BDc(nT)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">BDd(nT)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">Davan2(nT)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">ADa(nT)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">ADb(nT)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">Puiss(Kp)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">Puiss2(Kp)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">snsort(n,Kp)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">snsorv(n)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">Qucalc(Kp)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">snLe1s(n)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">snLe2s(n)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">snBDso(n)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">snADso(n),</span>&#x00A0;<span 
class="ectt-1200">snJBso(n)</span>
&#x00A0;<br /><span 
class="ectt-1200">c--------------------------------------------------------</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">parametres</span>&#x00A0;<span 
class="ectt-1200">creerdat</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Nom</span>&#x00A0;<span 
class="ectt-1200">du</span>&#x00A0;<span 
class="ectt-1200">fichier</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">donnees</span>&#x00A0;<span 
class="ectt-1200">en</span>&#x00A0;<span 
class="ectt-1200">sortie</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">**</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CHARACTER</span>&#x00A0;<span 
class="ectt-1200">dataf*8</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Nom</span>&#x00A0;<span 
class="ectt-1200">du</span>&#x00A0;<span 
class="ectt-1200">fichier</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">parametres</span>&#x00A0;<span 
class="ectt-1200">en</span>&#x00A0;<span 
class="ectt-1200">sortie</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">**</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CHARACTER</span>&#x00A0;<span 
class="ectt-1200">paramf*17</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Nombre</span>&#x00A0;<span 
class="ectt-1200">d&#x2019;echantillons</span>&#x00A0;<span 
class="ectt-1200">souhaites</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">nbcle,nbclea</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">rang</span>&#x00A0;<span 
class="ectt-1200">d&#x2019;arret</span>&#x00A0;<span 
class="ectt-1200">dans</span>&#x00A0;<span 
class="ectt-1200">la</span>&#x00A0;<span 
class="ectt-1200">random</span>&#x00A0;<span 
class="ectt-1200">shock</span>&#x00A0;<span 
class="ectt-1200">method</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">Burn</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">**</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">marret</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(marret=200)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Induction</span>&#x00A0;<span 
class="ectt-1200">period</span>&#x00A0;<span 
class="ectt-1200">dans</span>&#x00A0;<span 
class="ectt-1200">la</span>&#x00A0;<span 
class="ectt-1200">methode</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">Burn</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">**</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">Mind</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(Mind=200)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">ecart-type</span>&#x00A0;<span 
class="ectt-1200">des</span>&#x00A0;<span 
class="ectt-1200">erreurs</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">**</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">sigma</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(sigma=1)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">moyenne</span>&#x00A0;<span 
class="ectt-1200">dans</span>&#x00A0;<span 
class="ectt-1200">mon</span>&#x00A0;<span 
class="ectt-1200">modele</span>&#x00A0;<span 
class="ectt-1200">ARMA</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">**</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">mu</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(mu=0)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">parametre</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">la</span>&#x00A0;<span 
class="ectt-1200">khi-deux</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">**</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">df1</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(df1=4)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">parametre</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">la</span>&#x00A0;<span 
class="ectt-1200">student</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">**</span>

&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">df2</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(df2=5)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">parametre</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">la</span>&#x00A0;<span 
class="ectt-1200">skew-normale</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">**</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">lambda</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(lambda=2.0)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">loi5b,</span>&#x00A0;<span 
class="ectt-1200">loi5k,</span>&#x00A0;<span 
class="ectt-1200">loi6p,</span>&#x00A0;<span 
class="ectt-1200">loi6q</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">loi7g,</span>&#x00A0;<span 
class="ectt-1200">loi7d,</span>&#x00A0;<span 
class="ectt-1200">loi8p,</span>&#x00A0;<span 
class="ectt-1200">loi8q,</span>&#x00A0;<span 
class="ectt-1200">loi9a,</span>&#x00A0;<span 
class="ectt-1200">loi9b</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">loi10b,</span>&#x00A0;<span 
class="ectt-1200">loi10l,</span>&#x00A0;<span 
class="ectt-1200">loi11a,</span>&#x00A0;<span 
class="ectt-1200">loi11k,</span>&#x00A0;<span 
class="ectt-1200">loi13g,</span>&#x00A0;<span 
class="ectt-1200">loi13d</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">loi14l,</span>&#x00A0;<span 
class="ectt-1200">loi16p,</span>&#x00A0;<span 
class="ectt-1200">loi16d,</span>&#x00A0;<span 
class="ectt-1200">loi17p,</span>&#x00A0;<span 
class="ectt-1200">loi17m</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">loi18g,</span>&#x00A0;<span 
class="ectt-1200">loi18d,</span>&#x00A0;<span 
class="ectt-1200">loi19a,</span>&#x00A0;<span 
class="ectt-1200">loi19b</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(loi5b=1.0,</span>&#x00A0;<span 
class="ectt-1200">loi5k=2.0,</span>&#x00A0;<span 
class="ectt-1200">loi6p=4,</span>&#x00A0;<span 
class="ectt-1200">loi6q=1)</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">**</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(loi7g=0.0,loi7d=1.0,</span>&#x00A0;<span 
class="ectt-1200">loi8p=2,</span>&#x00A0;<span 
class="ectt-1200">loi8q=2,</span>&#x00A0;<span 
class="ectt-1200">loi9a=0,loi9b=2)</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">**</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(loi10b=0.2,loi10l=1,</span>&#x00A0;<span 
class="ectt-1200">loi11a=2.0,loi11k=0.5)</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">**</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(loi13g=1.0,loi13d=1.0,</span>&#x00A0;<span 
class="ectt-1200">loi14l=10)</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">**</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(loi16p=0.05,loi16d=5.0,</span>&#x00A0;<span 
class="ectt-1200">loi17p=0.05,loi17m=3.0)</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">**</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(loi18g=1.0,loi18d=1.0,</span>&#x00A0;<span 
class="ectt-1200">loi19a=1.1,</span>&#x00A0;<span 
class="ectt-1200">loi19b=0.5)</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">**</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">loi</span>&#x00A0;<span 
class="ectt-1200">des</span>&#x00A0;<span 
class="ectt-1200">erreurs</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">si</span>&#x00A0;<span 
class="ectt-1200">loi=0</span>&#x00A0;<span 
class="ectt-1200">:</span>&#x00A0;<span 
class="ectt-1200">Normale(0,sigma&#x0302;2)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">si</span>&#x00A0;<span 
class="ectt-1200">loi=1</span>&#x00A0;<span 
class="ectt-1200">:</span>&#x00A0;<span 
class="ectt-1200">Khi2</span>&#x00A0;<span 
class="ectt-1200">centree</span>&#x00A0;<span 
class="ectt-1200">(df1)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">si</span>&#x00A0;<span 
class="ectt-1200">loi=2</span>&#x00A0;<span 
class="ectt-1200">:</span>&#x00A0;<span 
class="ectt-1200">Student</span>&#x00A0;<span 
class="ectt-1200">(df2)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">si</span>&#x00A0;<span 
class="ectt-1200">loi=3</span>&#x00A0;<span 
class="ectt-1200">:</span>&#x00A0;<span 
class="ectt-1200">Skew-Normale(lambda)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">si</span>&#x00A0;<span 
class="ectt-1200">loi=4</span>&#x00A0;<span 
class="ectt-1200">:</span>&#x00A0;<span 
class="ectt-1200">Laplace</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">si</span>&#x00A0;<span 
class="ectt-1200">loi=5</span>&#x00A0;<span 
class="ectt-1200">:</span>&#x00A0;<span 
class="ectt-1200">Weibull(b,k)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">si</span>&#x00A0;<span 
class="ectt-1200">loi=6</span>&#x00A0;<span 
class="ectt-1200">:</span>&#x00A0;<span 
class="ectt-1200">Gamma(p,q)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">si</span>&#x00A0;<span 
class="ectt-1200">loi=7</span>&#x00A0;<span 
class="ectt-1200">:</span>&#x00A0;<span 
class="ectt-1200">Log-Normale(g,d)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">si</span>&#x00A0;<span 
class="ectt-1200">loi=8</span>&#x00A0;<span 
class="ectt-1200">:</span>&#x00A0;<span 
class="ectt-1200">Beta(p,q)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">si</span>&#x00A0;<span 
class="ectt-1200">loi=9</span>&#x00A0;<span 
class="ectt-1200">:</span>&#x00A0;<span 
class="ectt-1200">Uniform(a,b)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">si</span>&#x00A0;<span 
class="ectt-1200">loi=10</span>&#x00A0;<span 
class="ectt-1200">:</span>&#x00A0;<span 
class="ectt-1200">Shifted</span>&#x00A0;<span 
class="ectt-1200">exp</span>&#x00A0;<span 
class="ectt-1200">(l,b)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">si</span>&#x00A0;<span 
class="ectt-1200">loi=11</span>&#x00A0;<span 
class="ectt-1200">:</span>&#x00A0;<span 
class="ectt-1200">Pareto(a,k)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">si</span>&#x00A0;<span 
class="ectt-1200">loi=12</span>&#x00A0;<span 
class="ectt-1200">:</span>&#x00A0;<span 
class="ectt-1200">Shifted</span>&#x00A0;<span 
class="ectt-1200">Pareto</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">si</span>&#x00A0;<span 
class="ectt-1200">loi=13</span>&#x00A0;<span 
class="ectt-1200">:</span>&#x00A0;<span 
class="ectt-1200">SU(g,d)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">si</span>&#x00A0;<span 
class="ectt-1200">loi=14</span>&#x00A0;<span 
class="ectt-1200">:</span>&#x00A0;<span 
class="ectt-1200">TU(l)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">si</span>&#x00A0;<span 
class="ectt-1200">loi=15</span>&#x00A0;<span 
class="ectt-1200">:</span>&#x00A0;<span 
class="ectt-1200">Logistic</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">si</span>&#x00A0;<span 
class="ectt-1200">loi=16</span>&#x00A0;<span 
class="ectt-1200">:</span>&#x00A0;<span 
class="ectt-1200">SC(p,d)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">si</span>&#x00A0;<span 
class="ectt-1200">loi=17</span>&#x00A0;<span 
class="ectt-1200">:</span>&#x00A0;<span 
class="ectt-1200">LC(p,m)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">si</span>&#x00A0;<span 
class="ectt-1200">loi=18</span>&#x00A0;<span 
class="ectt-1200">:</span>&#x00A0;<span 
class="ectt-1200">SB(g,d)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">si</span>&#x00A0;<span 
class="ectt-1200">loi=19</span>&#x00A0;<span 
class="ectt-1200">:</span>&#x00A0;<span 
class="ectt-1200">S(a,b)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">loi</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">rm=max(p,q)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">rm</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(rm=2)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">the</span>&#x00A0;<span 
class="ectt-1200">autoregressive</span>&#x00A0;<span 
class="ectt-1200">coefficients</span>&#x00A0;<span 
class="ectt-1200">of</span>&#x00A0;<span 
class="ectt-1200">the</span>&#x00A0;<span 
class="ectt-1200">model</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">phi(2)</span>

&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">phich(p)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">the</span>&#x00A0;<span 
class="ectt-1200">moving-average</span>&#x00A0;<span 
class="ectt-1200">coefficients</span>&#x00A0;<span 
class="ectt-1200">of</span>&#x00A0;<span 
class="ectt-1200">the</span>&#x00A0;<span 
class="ectt-1200">model</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">teta(2)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">tetach(q)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">vecteur</span>&#x00A0;<span 
class="ectt-1200">des</span>&#x00A0;<span 
class="ectt-1200">donnees</span>&#x00A0;<span 
class="ectt-1200">cree</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">donees(nT)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Parametres</span>&#x00A0;<span 
class="ectt-1200">pour</span>&#x00A0;<span 
class="ectt-1200">G05EGF:</span>&#x00A0;<span 
class="ectt-1200">simulation</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">the</span>&#x00A0;<span 
class="ectt-1200">autoregressive</span>&#x00A0;<span 
class="ectt-1200">coefficients</span>&#x00A0;<span 
class="ectt-1200">of</span>&#x00A0;<span 
class="ectt-1200">the</span>&#x00A0;<span 
class="ectt-1200">model=phi</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Input</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">A(p)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">the</span>&#x00A0;<span 
class="ectt-1200">moving-average</span>&#x00A0;<span 
class="ectt-1200">coefficients</span>&#x00A0;<span 
class="ectt-1200">of</span>&#x00A0;<span 
class="ectt-1200">the</span>&#x00A0;<span 
class="ectt-1200">model=teta</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Input</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">B(q+1)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">le</span>&#x00A0;<span 
class="ectt-1200">vecteur</span>&#x00A0;<span 
class="ectt-1200">des</span>&#x00A0;<span 
class="ectt-1200">innovations</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Output</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">R(nT)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Parametres</span>&#x00A0;<span 
class="ectt-1200">pour</span>&#x00A0;<span 
class="ectt-1200">G13DCF:</span>&#x00A0;<span 
class="ectt-1200">estimation</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">the</span>&#x00A0;<span 
class="ectt-1200">number</span>&#x00A0;<span 
class="ectt-1200">of</span>&#x00A0;<span 
class="ectt-1200">initial</span>&#x00A0;<span 
class="ectt-1200">parameter</span>&#x00A0;<span 
class="ectt-1200">estimates</span>&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Input</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">**</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">mettre</span>&#x00A0;<span 
class="ectt-1200">p+q+1</span>&#x00A0;<span 
class="ectt-1200">si</span>&#x00A0;<span 
class="ectt-1200">MEAN=.TRUE.</span>&#x00A0;<span 
class="ectt-1200">,</span>&#x00A0;<span 
class="ectt-1200">p+q</span>&#x00A0;<span 
class="ectt-1200">si</span>&#x00A0;<span 
class="ectt-1200">MEAN=.FALSE.</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">NPAR</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(NPAR=p+q)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">first</span>&#x00A0;<span 
class="ectt-1200">dimension</span>&#x00A0;<span 
class="ectt-1200">of</span>&#x00A0;<span 
class="ectt-1200">the</span>&#x00A0;<span 
class="ectt-1200">array</span>&#x00A0;<span 
class="ectt-1200">CM</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Input</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">**</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">mettre</span>&#x00A0;<span 
class="ectt-1200">p+q+1</span>&#x00A0;<span 
class="ectt-1200">si</span>&#x00A0;<span 
class="ectt-1200">MEAN=.TRUE.</span>&#x00A0;<span 
class="ectt-1200">,</span>&#x00A0;<span 
class="ectt-1200">p+q</span>&#x00A0;<span 
class="ectt-1200">si</span>&#x00A0;<span 
class="ectt-1200">MEAN=.FALSE.</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">ICM</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(ICM=p+q)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Workspace</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">IW(NPAR+rm+3)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">initial</span>&#x00A0;<span 
class="ectt-1200">parameter</span>&#x00A0;<span 
class="ectt-1200">estimates</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Input/Output</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">PAR(NPAR)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">W(i,t)</span>&#x00A0;<span 
class="ectt-1200">must</span>&#x00A0;<span 
class="ectt-1200">be</span>&#x00A0;<span 
class="ectt-1200">set</span>&#x00A0;<span 
class="ectt-1200">equal</span>&#x00A0;<span 
class="ectt-1200">to</span>&#x00A0;<span 
class="ectt-1200">the</span>&#x00A0;<span 
class="ectt-1200">observation</span>&#x00A0;<span 
class="ectt-1200">at</span>&#x00A0;<span 
class="ectt-1200">time</span>&#x00A0;<span 
class="ectt-1200">t</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Input</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">of</span>&#x00A0;<span 
class="ectt-1200">the</span>&#x00A0;<span 
class="ectt-1200">ith</span>&#x00A0;<span 
class="ectt-1200">series</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">W(1,nT)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">the</span>&#x00A0;<span 
class="ectt-1200">accuracy</span>&#x00A0;<span 
class="ectt-1200">to</span>&#x00A0;<span 
class="ectt-1200">which</span>&#x00A0;<span 
class="ectt-1200">the</span>&#x00A0;<span 
class="ectt-1200">solution</span>&#x00A0;<span 
class="ectt-1200">in</span>&#x00A0;<span 
class="ectt-1200">PAR</span>&#x00A0;<span 
class="ectt-1200">and</span>&#x00A0;<span 
class="ectt-1200">QQ</span>&#x00A0;<span 
class="ectt-1200">is</span>&#x00A0;<span 
class="ectt-1200">required</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Input</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">**</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">CGETOL</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(CGETOL=0.0001)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">residual</span>&#x00A0;<span 
class="ectt-1200">at</span>&#x00A0;<span 
class="ectt-1200">time</span>&#x00A0;<span 
class="ectt-1200">t</span>&#x00A0;<span 
class="ectt-1200">for</span>&#x00A0;<span 
class="ectt-1200">series</span>&#x00A0;<span 
class="ectt-1200">i,</span>&#x00A0;<span 
class="ectt-1200">for</span>&#x00A0;<span 
class="ectt-1200">i</span>&#x00A0;<span 
class="ectt-1200">=</span>&#x00A0;<span 
class="ectt-1200">1,2,...,k</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Output</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">V(1,nT)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">estimated</span>&#x00A0;<span 
class="ectt-1200">first</span>&#x00A0;<span 
class="ectt-1200">derivative</span>&#x00A0;<span 
class="ectt-1200">of</span>&#x00A0;<span 
class="ectt-1200">the</span>&#x00A0;<span 
class="ectt-1200">log-likelihood</span>&#x00A0;<span 
class="ectt-1200">function</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Output</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">G(NPAR)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">estimate</span>&#x00A0;<span 
class="ectt-1200">of</span>&#x00A0;<span 
class="ectt-1200">the</span>&#x00A0;<span 
class="ectt-1200">correlation</span>&#x00A0;<span 
class="ectt-1200">coefficient</span>&#x00A0;<span 
class="ectt-1200">between</span>&#x00A0;<span 
class="ectt-1200">the</span>&#x00A0;<span 
class="ectt-1200">ith</span>&#x00A0;<span 
class="ectt-1200">and</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Output</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">jth</span>&#x00A0;<span 
class="ectt-1200">elements</span>&#x00A0;<span 
class="ectt-1200">in</span>&#x00A0;<span 
class="ectt-1200">the</span>&#x00A0;<span 
class="ectt-1200">PAR</span>&#x00A0;<span 
class="ectt-1200">array</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">CM(ICM,NPAR)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Workspace</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">WORK((5+3*nT+2*rm)+(2*p+q+2*rm*(rm+2)+9)+</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">+</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">(NPAR+1)*(5*(NPAR+1)+29)/2+(rm+1)**2)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">MEAN</span>&#x00A0;<span 
class="ectt-1200">must</span>&#x00A0;<span 
class="ectt-1200">be</span>&#x00A0;<span 
class="ectt-1200">set</span>&#x00A0;<span 
class="ectt-1200">to</span>&#x00A0;<span 
class="ectt-1200">.TRUE.</span>&#x00A0;<span 
class="ectt-1200">if</span>&#x00A0;<span 
class="ectt-1200">components</span>&#x00A0;<span 
class="ectt-1200">of</span>&#x00A0;<span 
class="ectt-1200">mu</span>&#x00A0;<span 
class="ectt-1200">are</span>&#x00A0;<span 
class="ectt-1200">to</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Input</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">**</span>

&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">be</span>&#x00A0;<span 
class="ectt-1200">estimated</span>&#x00A0;<span 
class="ectt-1200">and</span>&#x00A0;<span 
class="ectt-1200">.FALSE.</span>&#x00A0;<span 
class="ectt-1200">if</span>&#x00A0;<span 
class="ectt-1200">all</span>&#x00A0;<span 
class="ectt-1200">elements</span>&#x00A0;<span 
class="ectt-1200">of</span>&#x00A0;<span 
class="ectt-1200">mu</span>&#x00A0;<span 
class="ectt-1200">are</span>&#x00A0;<span 
class="ectt-1200">to</span>&#x00A0;<span 
class="ectt-1200">be</span>&#x00A0;<span 
class="ectt-1200">taken</span>&#x00A0;<span 
class="ectt-1200">as</span>&#x00A0;<span 
class="ectt-1200">zero</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">LOGICAL</span>&#x00A0;<span 
class="ectt-1200">MEAN</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(MEAN=.FALSE.)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARHLD(i)</span>&#x00A0;<span 
class="ectt-1200">must</span>&#x00A0;<span 
class="ectt-1200">be</span>&#x00A0;<span 
class="ectt-1200">set</span>&#x00A0;<span 
class="ectt-1200">to</span>&#x00A0;<span 
class="ectt-1200">.TRUE.,</span>&#x00A0;<span 
class="ectt-1200">if</span>&#x00A0;<span 
class="ectt-1200">PAR(i)</span>&#x00A0;<span 
class="ectt-1200">is</span>&#x00A0;<span 
class="ectt-1200">to</span>&#x00A0;<span 
class="ectt-1200">be</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Input</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">held</span>&#x00A0;<span 
class="ectt-1200">constant</span>&#x00A0;<span 
class="ectt-1200">at</span>&#x00A0;<span 
class="ectt-1200">its</span>&#x00A0;<span 
class="ectt-1200">input</span>&#x00A0;<span 
class="ectt-1200">value</span>&#x00A0;<span 
class="ectt-1200">and</span>&#x00A0;<span 
class="ectt-1200">.FALSE.,</span>&#x00A0;<span 
class="ectt-1200">if</span>&#x00A0;<span 
class="ectt-1200">PAR(i)</span>&#x00A0;<span 
class="ectt-1200">is</span>&#x00A0;<span 
class="ectt-1200">a</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">free</span>&#x00A0;<span 
class="ectt-1200">parameter,</span>&#x00A0;<span 
class="ectt-1200">for</span>&#x00A0;<span 
class="ectt-1200">i</span>&#x00A0;<span 
class="ectt-1200">=</span>&#x00A0;<span 
class="ectt-1200">1,2,...,NPAR.</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">LOGICAL</span>&#x00A0;<span 
class="ectt-1200">PARHLD(NPAR)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">EXACT</span>&#x00A0;<span 
class="ectt-1200">must</span>&#x00A0;<span 
class="ectt-1200">be</span>&#x00A0;<span 
class="ectt-1200">set</span>&#x00A0;<span 
class="ectt-1200">equal</span>&#x00A0;<span 
class="ectt-1200">to</span>&#x00A0;<span 
class="ectt-1200">.TRUE.</span>&#x00A0;<span 
class="ectt-1200">if</span>&#x00A0;<span 
class="ectt-1200">the</span>&#x00A0;<span 
class="ectt-1200">user</span>&#x00A0;<span 
class="ectt-1200">wishes</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Input</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">**</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">the</span>&#x00A0;<span 
class="ectt-1200">routine</span>&#x00A0;<span 
class="ectt-1200">to</span>&#x00A0;<span 
class="ectt-1200">compute</span>&#x00A0;<span 
class="ectt-1200">exact</span>&#x00A0;<span 
class="ectt-1200">maximum</span>&#x00A0;<span 
class="ectt-1200">likelihood</span>&#x00A0;<span 
class="ectt-1200">estimates.</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">EXACT</span>&#x00A0;<span 
class="ectt-1200">must</span>&#x00A0;<span 
class="ectt-1200">be</span>&#x00A0;<span 
class="ectt-1200">set</span>&#x00A0;<span 
class="ectt-1200">equal</span>&#x00A0;<span 
class="ectt-1200">to</span>&#x00A0;<span 
class="ectt-1200">.FALSE.</span>&#x00A0;<span 
class="ectt-1200">if</span>&#x00A0;<span 
class="ectt-1200">only</span>&#x00A0;<span 
class="ectt-1200">conditional</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">likelihood</span>&#x00A0;<span 
class="ectt-1200">estimates</span>&#x00A0;<span 
class="ectt-1200">are</span>&#x00A0;<span 
class="ectt-1200">required.</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">voir</span>&#x00A0;<span 
class="ectt-1200">EXACT</span>&#x00A0;<span 
class="ectt-1200">plus</span>&#x00A0;<span 
class="ectt-1200">bas</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">LOGICAL</span>&#x00A0;<span 
class="ectt-1200">EXACT</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Contient</span>&#x00A0;<span 
class="ectt-1200">les</span>&#x00A0;<span 
class="ectt-1200">p</span>&#x00A0;<span 
class="ectt-1200">donnees</span>&#x00A0;<span 
class="ectt-1200">initiales</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">la</span>&#x00A0;<span 
class="ectt-1200">serie</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">Wtip(p)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">marret+p</span>&#x00A0;<span 
class="ectt-1200">innovations</span>&#x00A0;<span 
class="ectt-1200">genere</span>&#x00A0;<span 
class="ectt-1200">par</span>&#x00A0;<span 
class="ectt-1200">shock.f</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">shocks(marret+p)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">defini</span>&#x00A0;<span 
class="ectt-1200">dans</span>&#x00A0;<span 
class="ectt-1200">Burn,</span>&#x00A0;<span 
class="ectt-1200">calcule</span>&#x00A0;<span 
class="ectt-1200">par</span>&#x00A0;<span 
class="ectt-1200">ARMpsi.f</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">psi(marret+1)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">utile</span>&#x00A0;<span 
class="ectt-1200">dans</span>&#x00A0;<span 
class="ectt-1200">simARM.f</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">longueur</span>&#x00A0;<span 
class="ectt-1200">marret</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">phi2(marret)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">utile</span>&#x00A0;<span 
class="ectt-1200">dans</span>&#x00A0;<span 
class="ectt-1200">simARM.f</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">longueur</span>&#x00A0;<span 
class="ectt-1200">marret</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">teta2(marret)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">utile</span>&#x00A0;<span 
class="ectt-1200">dans</span>&#x00A0;<span 
class="ectt-1200">simARM.f</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">YtpMn(p+Mind+nT)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">utile</span>&#x00A0;<span 
class="ectt-1200">dans</span>&#x00A0;<span 
class="ectt-1200">simARM.f</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">Atnq(nT+Mind+q)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Esperances</span>&#x00A0;<span 
class="ectt-1200">des</span>&#x00A0;<span 
class="ectt-1200">lois</span>&#x00A0;<span 
class="ectt-1200">SU,</span>&#x00A0;<span 
class="ectt-1200">SB</span>&#x00A0;<span 
class="ectt-1200">et</span>&#x00A0;<span 
class="ectt-1200">S</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">**</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">EspSU,EspSB,EspS</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(EspSU=-1.93758,</span>&#x00A0;<span 
class="ectt-1200">EspSB=0.696735,</span>&#x00A0;<span 
class="ectt-1200">EspS=0)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CHARACTER*13</span>&#x00A0;<span 
class="ectt-1200">efface</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">temp(6)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">j</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CHARACTER*5</span>&#x00A0;<span 
class="ectt-1200">ftemp</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CHARACTER*1</span>&#x00A0;<span 
class="ectt-1200">INTCH1</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CHARACTER*2</span>&#x00A0;<span 
class="ectt-1200">INTCH2</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CHARACTER*3</span>&#x00A0;<span 
class="ectt-1200">INTCH3</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CHARACTER*4</span>&#x00A0;<span 
class="ectt-1200">INTCH4</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">matric(n,18)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">dnT</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(dnT=Kp)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">QLed1u,QLe12u</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(QLed1u=QuLed1,QLe12u=QuLe12)</span>

&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">QLed2u,QLe22u</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(QLed2u=QuLed2,QLe22u=QuLe22)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">QBDu,QBD2u</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(QBDu=QuBD,QBD2u=QuBD2)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">QADu,QAD2u</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(QADu=QuAD,QAD2u=QuAD2)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">QJBu,QJB2u</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(QJBu=QuJB,QJB2u=QuJB2)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">the</span>&#x00A0;<span 
class="ectt-1200">mean</span>&#x00A0;<span 
class="ectt-1200">of</span>&#x00A0;<span 
class="ectt-1200">the</span>&#x00A0;<span 
class="ectt-1200">time</span>&#x00A0;<span 
class="ectt-1200">series</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Input</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">E</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(E=mu)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">the</span>&#x00A0;<span 
class="ectt-1200">number</span>&#x00A0;<span 
class="ectt-1200">of</span>&#x00A0;<span 
class="ectt-1200">autoregressive</span>&#x00A0;<span 
class="ectt-1200">coefficients</span>&#x00A0;<span 
class="ectt-1200">supplied</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Input</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">NA</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(NA=p)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">the</span>&#x00A0;<span 
class="ectt-1200">number</span>&#x00A0;<span 
class="ectt-1200">of</span>&#x00A0;<span 
class="ectt-1200">moving-average</span>&#x00A0;<span 
class="ectt-1200">coefficients</span>&#x00A0;<span 
class="ectt-1200">supplied</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Input</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">NB</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(NB=q+1)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">the</span>&#x00A0;<span 
class="ectt-1200">dimension</span>&#x00A0;<span 
class="ectt-1200">of</span>&#x00A0;<span 
class="ectt-1200">the</span>&#x00A0;<span 
class="ectt-1200">array</span>&#x00A0;<span 
class="ectt-1200">R:</span>&#x00A0;<span 
class="ectt-1200">vecteur</span>&#x00A0;<span 
class="ectt-1200">des</span>&#x00A0;<span 
class="ectt-1200">innovations</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Input</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">NR</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(NR=12)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">the</span>&#x00A0;<span 
class="ectt-1200">number</span>&#x00A0;<span 
class="ectt-1200">of</span>&#x00A0;<span 
class="ectt-1200">observed</span>&#x00A0;<span 
class="ectt-1200">time</span>&#x00A0;<span 
class="ectt-1200">series,</span>&#x00A0;<span 
class="ectt-1200">k</span>&#x00A0;&#x00A0;<span 
class="ectt-1200">(chez</span>&#x00A0;<span 
class="ectt-1200">moi</span>&#x00A0;<span 
class="ectt-1200">k=1)</span>&#x00A0;&#x00A0;<span 
class="ectt-1200">Input</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">K</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(K=1)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">the</span>&#x00A0;<span 
class="ectt-1200">number</span>&#x00A0;<span 
class="ectt-1200">of</span>&#x00A0;<span 
class="ectt-1200">observations</span>&#x00A0;<span 
class="ectt-1200">in</span>&#x00A0;<span 
class="ectt-1200">each</span>&#x00A0;<span 
class="ectt-1200">time</span>&#x00A0;<span 
class="ectt-1200">series,</span>&#x00A0;<span 
class="ectt-1200">n</span>&#x00A0;<span 
class="ectt-1200">(chez</span>&#x00A0;<span 
class="ectt-1200">moi=nT)</span>&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Input</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">N2</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(N2=nT)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">the</span>&#x00A0;<span 
class="ectt-1200">number</span>&#x00A0;<span 
class="ectt-1200">of</span>&#x00A0;<span 
class="ectt-1200">AR</span>&#x00A0;<span 
class="ectt-1200">parameter</span>&#x00A0;<span 
class="ectt-1200">matrices,</span>&#x00A0;<span 
class="ectt-1200">p</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Input</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">IP</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(IP=p)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">the</span>&#x00A0;<span 
class="ectt-1200">number</span>&#x00A0;<span 
class="ectt-1200">of</span>&#x00A0;<span 
class="ectt-1200">MA</span>&#x00A0;<span 
class="ectt-1200">parameter</span>&#x00A0;<span 
class="ectt-1200">matrices,</span>&#x00A0;<span 
class="ectt-1200">q</span>&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Input</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">IQ</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(IQ=q)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">the</span>&#x00A0;<span 
class="ectt-1200">first</span>&#x00A0;<span 
class="ectt-1200">dimension</span>&#x00A0;<span 
class="ectt-1200">of</span>&#x00A0;<span 
class="ectt-1200">the</span>&#x00A0;<span 
class="ectt-1200">arrays</span>&#x00A0;<span 
class="ectt-1200">QQ,</span>&#x00A0;<span 
class="ectt-1200">W</span>&#x00A0;<span 
class="ectt-1200">and</span>&#x00A0;<span 
class="ectt-1200">V</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Input</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">IK</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(IK=1)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">the</span>&#x00A0;<span 
class="ectt-1200">maximum</span>&#x00A0;<span 
class="ectt-1200">number</span>&#x00A0;<span 
class="ectt-1200">of</span>&#x00A0;<span 
class="ectt-1200">likelihood</span>&#x00A0;<span 
class="ectt-1200">evaluations</span>&#x00A0;<span 
class="ectt-1200">to</span>&#x00A0;<span 
class="ectt-1200">be</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Input</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">permitted</span>&#x00A0;<span 
class="ectt-1200">by</span>&#x00A0;<span 
class="ectt-1200">the</span>&#x00A0;<span 
class="ectt-1200">search</span>&#x00A0;<span 
class="ectt-1200">procedure</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">MAXCAL</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(MAXCAL=40*NPAR*(NPAR+5))</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">which</span>&#x00A0;<span 
class="ectt-1200">quantities</span>&#x00A0;<span 
class="ectt-1200">are</span>&#x00A0;<span 
class="ectt-1200">to</span>&#x00A0;<span 
class="ectt-1200">be</span>&#x00A0;<span 
class="ectt-1200">printed</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Input</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">ISHOW</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(ISHOW=0)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">dimension</span>&#x00A0;<span 
class="ectt-1200">of</span>&#x00A0;<span 
class="ectt-1200">the</span>&#x00A0;<span 
class="ectt-1200">array</span>&#x00A0;<span 
class="ectt-1200">WORK</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Input</span>

&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">LWORK</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(LWORK=(5+3*(nT)+2*rm)+(2*p+q+2*rm*(rm+2)+9)+</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">+</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">(NPAR+1)*(5*(NPAR+1)+29)/2+(rm+1)**2)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">dimension</span>&#x00A0;<span 
class="ectt-1200">of</span>&#x00A0;<span 
class="ectt-1200">the</span>&#x00A0;<span 
class="ectt-1200">array</span>&#x00A0;<span 
class="ectt-1200">IW</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Input</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">LIW</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(LIW=NPAR+rm+3)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">QQ(i,j)</span>&#x00A0;<span 
class="ectt-1200">must</span>&#x00A0;<span 
class="ectt-1200">be</span>&#x00A0;<span 
class="ectt-1200">set</span>&#x00A0;<span 
class="ectt-1200">equal</span>&#x00A0;<span 
class="ectt-1200">to</span>&#x00A0;<span 
class="ectt-1200">an</span>&#x00A0;<span 
class="ectt-1200">initial</span>&#x00A0;<span 
class="ectt-1200">estimate</span>&#x00A0;<span 
class="ectt-1200">of</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Input/Output</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">the</span>&#x00A0;<span 
class="ectt-1200">(i,j)th</span>&#x00A0;<span 
class="ectt-1200">element</span>&#x00A0;<span 
class="ectt-1200">of</span>&#x00A0;<span 
class="ectt-1200">the</span>&#x00A0;<span 
class="ectt-1200">covariance</span>&#x00A0;<span 
class="ectt-1200">matrix</span>&#x00A0;<span 
class="ectt-1200">of</span>&#x00A0;<span 
class="ectt-1200">the</span>&#x00A0;<span 
class="ectt-1200">residual</span>&#x00A0;<span 
class="ectt-1200">series</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">QQ(IK,K)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">NI,</span>&#x00A0;<span 
class="ectt-1200">NX,</span>&#x00A0;<span 
class="ectt-1200">IFAIL</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(NX=4,NI=9)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">IA(NI)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">XA(NX)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">seed=1</span>&#x00A0;<span 
class="ectt-1200">(non-repeatable</span>&#x00A0;<span 
class="ectt-1200">sequence)</span>&#x00A0;<span 
class="ectt-1200">ou</span>&#x00A0;<span 
class="ectt-1200">seed=0</span>&#x00A0;<span 
class="ectt-1200">(repeatable</span>&#x00A0;<span 
class="ectt-1200">sequence)</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">**</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">seed</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(seed=0)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">-------------------------------------------------------</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Fin</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">declaration</span>&#x00A0;<span 
class="ectt-1200">des</span>&#x00A0;<span 
class="ectt-1200">variables</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">-------------------------------------------------------</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">G05CBF</span>&#x00A0;<span 
class="ectt-1200">Initialise</span>&#x00A0;<span 
class="ectt-1200">random</span>&#x00A0;<span 
class="ectt-1200">number</span>&#x00A0;<span 
class="ectt-1200">generating</span>&#x00A0;<span 
class="ectt-1200">routines</span>&#x00A0;<span 
class="ectt-1200">to</span>&#x00A0;<span 
class="ectt-1200">give</span>&#x00A0;<span 
class="ectt-1200">repeatable</span>&#x00A0;<span 
class="ectt-1200">sequence</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">G05CCF</span>&#x00A0;<span 
class="ectt-1200">Initialise</span>&#x00A0;<span 
class="ectt-1200">random</span>&#x00A0;<span 
class="ectt-1200">number</span>&#x00A0;<span 
class="ectt-1200">generating</span>&#x00A0;<span 
class="ectt-1200">routines</span>&#x00A0;<span 
class="ectt-1200">to</span>&#x00A0;<span 
class="ectt-1200">give</span>&#x00A0;<span 
class="ectt-1200">non-repeatable</span>&#x00A0;<span 
class="ectt-1200">sequence</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">G05CFF</span>&#x00A0;<span 
class="ectt-1200">Save</span>&#x00A0;<span 
class="ectt-1200">state</span>&#x00A0;<span 
class="ectt-1200">of</span>&#x00A0;<span 
class="ectt-1200">random</span>&#x00A0;<span 
class="ectt-1200">number</span>&#x00A0;<span 
class="ectt-1200">generating</span>&#x00A0;<span 
class="ectt-1200">routines</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">G05CGF</span>&#x00A0;<span 
class="ectt-1200">Restore</span>&#x00A0;<span 
class="ectt-1200">state</span>&#x00A0;<span 
class="ectt-1200">of</span>&#x00A0;<span 
class="ectt-1200">random</span>&#x00A0;<span 
class="ectt-1200">number</span>&#x00A0;<span 
class="ectt-1200">generating</span>&#x00A0;<span 
class="ectt-1200">routines</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">IF</span>&#x00A0;<span 
class="ectt-1200">(seed</span>&#x00A0;<span 
class="ectt-1200">.EQ.</span>&#x00A0;<span 
class="ectt-1200">1)</span>&#x00A0;<span 
class="ectt-1200">THEN</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CALL</span>&#x00A0;<span 
class="ectt-1200">G05CCF</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">ENDIF</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">IF</span>&#x00A0;<span 
class="ectt-1200">(seed</span>&#x00A0;<span 
class="ectt-1200">.EQ.</span>&#x00A0;<span 
class="ectt-1200">0)</span>&#x00A0;<span 
class="ectt-1200">THEN</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CALL</span>&#x00A0;<span 
class="ectt-1200">G05CBF(0)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">ENDIF</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">IFAIL=0</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Rajouter</span>&#x00A0;<span 
class="ectt-1200">ici,</span>&#x00A0;<span 
class="ectt-1200">si</span>&#x00A0;<span 
class="ectt-1200">voulu,</span>&#x00A0;<span 
class="ectt-1200">les</span>&#x00A0;<span 
class="ectt-1200">IA</span>&#x00A0;<span 
class="ectt-1200">et</span>&#x00A0;<span 
class="ectt-1200">les</span>&#x00A0;<span 
class="ectt-1200">XA</span>&#x00A0;<span 
class="ectt-1200">a</span>&#x00A0;<span 
class="ectt-1200">prendre</span>&#x00A0;<span 
class="ectt-1200">a</span>&#x00A0;<span 
class="ectt-1200">la</span>&#x00A0;<span 
class="ectt-1200">fin</span>&#x00A0;<span 
class="ectt-1200">du</span>&#x00A0;<span 
class="ectt-1200">fichier</span>&#x00A0;<span 
class="ectt-1200">para.ijkl:</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">**</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">A</span>&#x00A0;<span 
class="ectt-1200">(de)commenter</span>&#x00A0;<span 
class="ectt-1200">si</span>&#x00A0;<span 
class="ectt-1200">necessaire</span>&#x00A0;<span 
class="ectt-1200">(si</span>&#x00A0;<span 
class="ectt-1200">on</span>&#x00A0;<span 
class="ectt-1200">rajoute</span>&#x00A0;<span 
class="ectt-1200">les</span>&#x00A0;<span 
class="ectt-1200">IA</span>&#x00A0;<span 
class="ectt-1200">et</span>&#x00A0;<span 
class="ectt-1200">XA,</span>&#x00A0;<span 
class="ectt-1200">on</span>&#x00A0;<span 
class="ectt-1200">decommente)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CALL</span>&#x00A0;<span 
class="ectt-1200">G05CGF(IA,NI,XA,NX,IFAIL)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CALL</span>&#x00A0;<span 
class="ectt-1200">G05CFF(IA,NI,XA,NX,IFAIL)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">EXACT=.TRUE.</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">**</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">nbcle=n</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">efface=&#x2019;rm</span>&#x00A0;<span 
class="ectt-1200">./data.txt&#x2019;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">ftemp=&#x2019;ftemp&#x2019;</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">On</span>&#x00A0;<span 
class="ectt-1200">va</span>&#x00A0;<span 
class="ectt-1200">lire</span>&#x00A0;<span 
class="ectt-1200">les</span>&#x00A0;<span 
class="ectt-1200">parametres</span>&#x00A0;<span 
class="ectt-1200">necessaires</span>&#x00A0;<span 
class="ectt-1200">dans</span>&#x00A0;<span 
class="ectt-1200">ftemp</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">temp</span>&#x00A0;<span 
class="ectt-1200">va</span>&#x00A0;<span 
class="ectt-1200">contenir</span>&#x00A0;<span 
class="ectt-1200">sur</span>&#x00A0;<span 
class="ectt-1200">chaque</span>&#x00A0;<span 
class="ectt-1200">ligne:</span>&#x00A0;<span 
class="ectt-1200">j,</span>&#x00A0;<span 
class="ectt-1200">loi,</span>&#x00A0;<span 
class="ectt-1200">phi(1),</span>&#x00A0;<span 
class="ectt-1200">phi(2),</span>&#x00A0;<span 
class="ectt-1200">teta(1),</span>&#x00A0;<span 
class="ectt-1200">teta(2)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">OPEN(UNIT=15,</span>&#x00A0;<span 
class="ectt-1200">FILE=ftemp</span>&#x00A0;<span 
class="ectt-1200">,</span>&#x00A0;<span 
class="ectt-1200">STATUS=&#x2019;OLD&#x2019;</span>&#x00A0;<span 
class="ectt-1200">)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">READ(15,*,END=10)</span>&#x00A0;<span 
class="ectt-1200">(temp(j),j=1,6)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CLOSE(15)</span>

&#x00A0;<br />&#x00A0;<span 
class="ectt-1200">10</span>&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">j=temp(1)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">loi=temp(2)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">phi(1)=temp(3)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">phi(2)=temp(4)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">teta(1)=temp(5)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">teta(2)=temp(6)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">On</span>&#x00A0;<span 
class="ectt-1200">sauvegarde</span>&#x00A0;<span 
class="ectt-1200">la</span>&#x00A0;<span 
class="ectt-1200">valeur</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">nbcle</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">nbclea=nbcle</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Nom</span>&#x00A0;<span 
class="ectt-1200">du</span>&#x00A0;<span 
class="ectt-1200">fichier</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">donnees</span>&#x00A0;<span 
class="ectt-1200">en</span>&#x00A0;<span 
class="ectt-1200">sortie</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">**</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">dataf=&#x2019;data.txt&#x2019;</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Permet</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">convertir</span>&#x00A0;<span 
class="ectt-1200">l&#x2019;entier</span>&#x00A0;<span 
class="ectt-1200">j</span>&#x00A0;<span 
class="ectt-1200">en</span>&#x00A0;<span 
class="ectt-1200">chaine</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">caracteres</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">IF</span>&#x00A0;<span 
class="ectt-1200">(j/10</span>&#x00A0;<span 
class="ectt-1200">.LT.</span>&#x00A0;<span 
class="ectt-1200">1)</span>&#x00A0;<span 
class="ectt-1200">THEN</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(INTCH1,</span>&#x00A0;<span 
class="ectt-1200">&#x2019;(I1)&#x2019;)</span>&#x00A0;<span 
class="ectt-1200">j</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Nom</span>&#x00A0;<span 
class="ectt-1200">du</span>&#x00A0;<span 
class="ectt-1200">fichier</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">parametres</span>&#x00A0;<span 
class="ectt-1200">en</span>&#x00A0;<span 
class="ectt-1200">sortie</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">**</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">paramf=&#x2019;./SIMUL/para.&#x2019;//&#x2019;000&#x2019;//INTCH1</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">filew=&#x2019;./SIMUL/resultat.&#x2019;//&#x2019;000&#x2019;//INTCH1</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">ENDIF</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">IF</span>&#x00A0;<span 
class="ectt-1200">((j/10</span>&#x00A0;<span 
class="ectt-1200">.EQ.</span>&#x00A0;<span 
class="ectt-1200">1)</span>&#x00A0;<span 
class="ectt-1200">.OR.</span>&#x00A0;<span 
class="ectt-1200">((j/10</span>&#x00A0;<span 
class="ectt-1200">.GT.</span>&#x00A0;<span 
class="ectt-1200">1)</span>&#x00A0;<span 
class="ectt-1200">.AND.</span>&#x00A0;<span 
class="ectt-1200">(j/10</span>&#x00A0;<span 
class="ectt-1200">.LT.</span>&#x00A0;<span 
class="ectt-1200">10)))</span>&#x00A0;<span 
class="ectt-1200">THEN</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(INTCH2,</span>&#x00A0;<span 
class="ectt-1200">&#x2019;(I2)&#x2019;)</span>&#x00A0;<span 
class="ectt-1200">j</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Nom</span>&#x00A0;<span 
class="ectt-1200">du</span>&#x00A0;<span 
class="ectt-1200">fichier</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">parametres</span>&#x00A0;<span 
class="ectt-1200">en</span>&#x00A0;<span 
class="ectt-1200">sortie</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">**</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">paramf=&#x2019;./SIMUL/para.&#x2019;//&#x2019;00&#x2019;//INTCH2</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">filew=&#x2019;./SIMUL/resultat.&#x2019;//&#x2019;00&#x2019;//INTCH2</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">ENDIF</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">IF</span>&#x00A0;<span 
class="ectt-1200">((j/10</span>&#x00A0;<span 
class="ectt-1200">.EQ.</span>&#x00A0;<span 
class="ectt-1200">10)</span>&#x00A0;<span 
class="ectt-1200">.OR.</span>&#x00A0;<span 
class="ectt-1200">((j/10</span>&#x00A0;<span 
class="ectt-1200">.GT.</span>&#x00A0;<span 
class="ectt-1200">10)</span>&#x00A0;<span 
class="ectt-1200">.AND.</span>&#x00A0;<span 
class="ectt-1200">(j/10</span>&#x00A0;<span 
class="ectt-1200">.LT.</span>&#x00A0;<span 
class="ectt-1200">100)))</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">+</span>&#x00A0;<span 
class="ectt-1200">THEN</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(INTCH3,</span>&#x00A0;<span 
class="ectt-1200">&#x2019;(I3)&#x2019;)</span>&#x00A0;<span 
class="ectt-1200">j</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Nom</span>&#x00A0;<span 
class="ectt-1200">du</span>&#x00A0;<span 
class="ectt-1200">fichier</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">parametres</span>&#x00A0;<span 
class="ectt-1200">en</span>&#x00A0;<span 
class="ectt-1200">sortie</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">**</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">paramf=&#x2019;./SIMUL/para.&#x2019;//&#x2019;0&#x2019;//INTCH3</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">filew=&#x2019;./SIMUL/resultat.&#x2019;//&#x2019;0&#x2019;//INTCH3</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">ENDIF</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">IF</span>&#x00A0;<span 
class="ectt-1200">((j/10</span>&#x00A0;<span 
class="ectt-1200">.EQ.</span>&#x00A0;<span 
class="ectt-1200">100)</span>&#x00A0;<span 
class="ectt-1200">.OR.</span>&#x00A0;<span 
class="ectt-1200">((j/10</span>&#x00A0;<span 
class="ectt-1200">.GT.</span>&#x00A0;<span 
class="ectt-1200">100)</span>&#x00A0;<span 
class="ectt-1200">.AND.</span>&#x00A0;<span 
class="ectt-1200">(j/10</span>&#x00A0;<span 
class="ectt-1200">.LT.</span>&#x00A0;<span 
class="ectt-1200">1000)))</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">+</span>&#x00A0;<span 
class="ectt-1200">THEN</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(INTCH4,</span>&#x00A0;<span 
class="ectt-1200">&#x2019;(I4)&#x2019;)</span>&#x00A0;<span 
class="ectt-1200">j</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Nom</span>&#x00A0;<span 
class="ectt-1200">du</span>&#x00A0;<span 
class="ectt-1200">fichier</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">parametres</span>&#x00A0;<span 
class="ectt-1200">en</span>&#x00A0;<span 
class="ectt-1200">sortie</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">**</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">paramf=&#x2019;./SIMUL/para.&#x2019;//INTCH4</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">filew=&#x2019;./SIMUL/resultat.&#x2019;//INTCH4</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">ENDIF</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">IF</span>&#x00A0;<span 
class="ectt-1200">(loi</span>&#x00A0;<span 
class="ectt-1200">.EQ.</span>&#x00A0;<span 
class="ectt-1200">0)</span>&#x00A0;<span 
class="ectt-1200">THEN</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Quantiles</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">la</span>&#x00A0;<span 
class="ectt-1200">loi</span>&#x00A0;<span 
class="ectt-1200">du</span>&#x00A0;<span 
class="ectt-1200">Khi2</span>&#x00A0;<span 
class="ectt-1200">(K=10;alpha=0.1)</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">**</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">khi(1)=2.71</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">khi(2)=4.61</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">khi(3)=6.25</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">khi(4)=7.78</span>

&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">khi(5)=9.24</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">khi(6)=10.64</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">khi(7)=12.02</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">khi(8)=13.36</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">khi(9)=14.68</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">khi(10)=15.99</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Quantiles</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">la</span>&#x00A0;<span 
class="ectt-1200">loi</span>&#x00A0;<span 
class="ectt-1200">du</span>&#x00A0;<span 
class="ectt-1200">Khi2</span>&#x00A0;<span 
class="ectt-1200">(K=10;alpha=0.05)</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">**</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">khi2(1)=3.84</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">khi2(2)=5.99</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">khi2(3)=7.81</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">khi2(4)=9.49</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">khi2(5)=11.07</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">khi2(6)=12.59</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">khi2(7)=14.07</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">khi2(8)=15.51</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">khi2(9)=16.92</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">khi2(10)=18.31</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">ENDIF</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">IF</span>&#x00A0;<span 
class="ectt-1200">(loi</span>&#x00A0;<span 
class="ectt-1200">.NE.</span>&#x00A0;<span 
class="ectt-1200">0)</span>&#x00A0;<span 
class="ectt-1200">THEN</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Quantiles</span>&#x00A0;<span 
class="ectt-1200">utilises</span>&#x00A0;<span 
class="ectt-1200">pour</span>&#x00A0;<span 
class="ectt-1200">le</span>&#x00A0;<span 
class="ectt-1200">calcul</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">la</span>&#x00A0;<span 
class="ectt-1200">stat(vrais</span>&#x00A0;<span 
class="ectt-1200">quantiles</span>&#x00A0;<span 
class="ectt-1200">calcules</span>&#x00A0;<span 
class="ectt-1200">sous</span>&#x00A0;<span 
class="ectt-1200">H0)</span>&#x00A0;&#x00A0;<span 
class="ectt-1200">**</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">avec</span>&#x00A0;<span 
class="ectt-1200">alpha=0.1</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">khi(1)=2.71</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">khi(2)=4.61</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">khi(3)=6.25</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">khi(4)=7.78</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">khi(5)=9.24</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">khi(6)=10.64</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">khi(7)=12.02</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">khi(8)=13.36</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">khi(9)=14.68</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">khi(10)=15.99</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Quantiles</span>&#x00A0;<span 
class="ectt-1200">utilises</span>&#x00A0;<span 
class="ectt-1200">pour</span>&#x00A0;<span 
class="ectt-1200">le</span>&#x00A0;<span 
class="ectt-1200">calcul</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">la</span>&#x00A0;<span 
class="ectt-1200">stat(vrais</span>&#x00A0;<span 
class="ectt-1200">quantiles</span>&#x00A0;<span 
class="ectt-1200">calcules</span>&#x00A0;<span 
class="ectt-1200">sous</span>&#x00A0;<span 
class="ectt-1200">H0)</span>&#x00A0;&#x00A0;<span 
class="ectt-1200">**</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">avec</span>&#x00A0;<span 
class="ectt-1200">alpha=0.05</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">khi2(1)=3.84</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">khi2(2)=5.99</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">khi2(3)=7.81</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">khi2(4)=9.49</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">khi2(5)=11.07</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">khi2(6)=12.59</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">khi2(7)=14.07</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">khi2(8)=15.51</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">khi2(9)=16.92</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">khi2(10)=18.31</span>

&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">ENDIF</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">On</span>&#x00A0;<span 
class="ectt-1200">peut</span>&#x00A0;<span 
class="ectt-1200">aussi</span>&#x00A0;<span 
class="ectt-1200">changer</span>&#x00A0;<span 
class="ectt-1200">le</span>&#x00A0;<span 
class="ectt-1200">nom</span>&#x00A0;<span 
class="ectt-1200">du</span>&#x00A0;<span 
class="ectt-1200">fichier</span>&#x00A0;<span 
class="ectt-1200">en</span>&#x00A0;<span 
class="ectt-1200">entree</span>&#x00A0;<span 
class="ectt-1200">(data.txt)</span>&#x00A0;<span 
class="ectt-1200">et</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">**</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">le</span>&#x00A0;<span 
class="ectt-1200">nom</span>&#x00A0;<span 
class="ectt-1200">du</span>&#x00A0;<span 
class="ectt-1200">fichier</span>&#x00A0;<span 
class="ectt-1200">en</span>&#x00A0;<span 
class="ectt-1200">sortie</span>&#x00A0;<span 
class="ectt-1200">(resultat.txt)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">filer=&#x2019;data.txt&#x2019;</span>
&#x00A0;<br /><span 
class="ectt-1200">c-----------------------------------------------------------</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">------------------------------------------------------------------------</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DEBUT</span>&#x00A0;<span 
class="ectt-1200">DU</span>&#x00A0;<span 
class="ectt-1200">PROGRAMME</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">------------------------------------------------------------------------</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CALL</span>&#x00A0;<span 
class="ectt-1200">cdARMA(dataf,paramf,nbcle,marret,Mind,sigma,mu,df1,df2,</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">+</span>&#x00A0;<span 
class="ectt-1200">lambda,loi5b,loi5k,loi6p,loi6q,loi7g,loi7d,loi8p,loi8q,loi9a,</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">+loi9b,loi10b,loi10l,loi11a,loi11k,loi13g,loi13d,loi14l,loi16p,</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">+loi16d,loi17p,loi17m,loi18g,loi18d,loi19a,loi19b,loi,p,q,rm,nT,</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">+</span>&#x00A0;<span 
class="ectt-1200">phi,phich,teta,tetach,donees,A,</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">+</span>&#x00A0;<span 
class="ectt-1200">B,R,NPAR,ICM,IW,PAR,W,CGETOL,V,G,CM,WORK,MEAN,PARHLD,EXACT,Wtip,</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">+</span>&#x00A0;<span 
class="ectt-1200">shocks,psi,phi2,teta2,YtpMn,Atnq,EspSU,EspSB,EspS,</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">+E,NA,NB,NR,K,N2,IP,IQ,IK,MAXCAL,ISHOW,LWORK,LIW,QQ)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Il</span>&#x00A0;<span 
class="ectt-1200">faut</span>&#x00A0;<span 
class="ectt-1200">faire</span>&#x00A0;<span 
class="ectt-1200">modifier</span>&#x00A0;<span 
class="ectt-1200">par</span>&#x00A0;<span 
class="ectt-1200">cdARMA</span>&#x00A0;<span 
class="ectt-1200">la</span>&#x00A0;<span 
class="ectt-1200">valeur</span>&#x00A0;<span 
class="ectt-1200">nbcle</span>&#x00A0;<span 
class="ectt-1200">en</span>&#x00A0;<span 
class="ectt-1200">entree</span>&#x00A0;<span 
class="ectt-1200">pour</span>&#x00A0;<span 
class="ectt-1200">lui</span>&#x00A0;<span 
class="ectt-1200">faire</span>&#x00A0;<span 
class="ectt-1200">sortir</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">une</span>&#x00A0;<span 
class="ectt-1200">nouvelle</span>&#x00A0;<span 
class="ectt-1200">valeur</span>&#x00A0;<span 
class="ectt-1200">nbcle</span>&#x00A0;<span 
class="ectt-1200">qui</span>&#x00A0;<span 
class="ectt-1200">est</span>&#x00A0;<span 
class="ectt-1200">le</span>&#x00A0;<span 
class="ectt-1200">nombre</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">bons</span>&#x00A0;<span 
class="ectt-1200">echantillons</span>&#x00A0;<span 
class="ectt-1200">conserves</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Ensuite,</span>&#x00A0;<span 
class="ectt-1200">il</span>&#x00A0;<span 
class="ectt-1200">faut</span>&#x00A0;<span 
class="ectt-1200">utiliser</span>&#x00A0;<span 
class="ectt-1200">cette</span>&#x00A0;<span 
class="ectt-1200">valeur</span>&#x00A0;<span 
class="ectt-1200">dans</span>&#x00A0;<span 
class="ectt-1200">calcstat,</span>&#x00A0;<span 
class="ectt-1200">comme</span>&#x00A0;<span 
class="ectt-1200">etant</span>&#x00A0;<span 
class="ectt-1200">la</span>&#x00A0;<span 
class="ectt-1200">vraie</span>&#x00A0;<span 
class="ectt-1200">valeur</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">du</span>&#x00A0;<span 
class="ectt-1200">nombre</span>&#x00A0;<span 
class="ectt-1200">d&#x2019;echantillons</span>&#x00A0;<span 
class="ectt-1200">disponibles,</span>&#x00A0;<span 
class="ectt-1200">la</span>&#x00A0;<span 
class="ectt-1200">valeur</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">n</span>&#x00A0;<span 
class="ectt-1200">que</span>&#x00A0;<span 
class="ectt-1200">l&#x2019;on</span>&#x00A0;<span 
class="ectt-1200">a</span>&#x00A0;<span 
class="ectt-1200">mise</span>&#x00A0;<span 
class="ectt-1200">etant</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">la</span>&#x00A0;<span 
class="ectt-1200">valeur</span>&#x00A0;<span 
class="ectt-1200">maximale</span>&#x00A0;<span 
class="ectt-1200">possible</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">bons</span>&#x00A0;<span 
class="ectt-1200">echantillons,</span>&#x00A0;<span 
class="ectt-1200">donc</span>&#x00A0;<span 
class="ectt-1200">les</span>&#x00A0;<span 
class="ectt-1200">differentes</span>&#x00A0;<span 
class="ectt-1200">matrices</span>&#x00A0;<span 
class="ectt-1200">initialisees</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">a</span>&#x00A0;<span 
class="ectt-1200">l&#x2019;aide</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">la</span>&#x00A0;<span 
class="ectt-1200">valeur</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">n</span>&#x00A0;<span 
class="ectt-1200">sont</span>&#x00A0;<span 
class="ectt-1200">plus</span>&#x00A0;<span 
class="ectt-1200">grandes</span>&#x00A0;<span 
class="ectt-1200">que</span>&#x00A0;<span 
class="ectt-1200">necessaires</span>&#x00A0;<span 
class="ectt-1200">(elles</span>&#x00A0;<span 
class="ectt-1200">auraient</span>&#x00A0;<span 
class="ectt-1200">du</span>&#x00A0;<span 
class="ectt-1200">etre</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">initialisees</span>&#x00A0;<span 
class="ectt-1200">avec</span>&#x00A0;<span 
class="ectt-1200">la</span>&#x00A0;<span 
class="ectt-1200">valeur</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">nbcle</span>&#x00A0;<span 
class="ectt-1200">renvoyee</span>&#x00A0;<span 
class="ectt-1200">par</span>&#x00A0;<span 
class="ectt-1200">cd</span>&#x00A0;<span 
class="ectt-1200">ARMA</span>&#x00A0;<span 
class="ectt-1200">mais</span>&#x00A0;<span 
class="ectt-1200">ce</span>&#x00A0;<span 
class="ectt-1200">n&#x2019;est</span>&#x00A0;<span 
class="ectt-1200">pas</span>&#x00A0;<span 
class="ectt-1200">possible</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">avec</span>&#x00A0;<span 
class="ectt-1200">fortran77)</span>&#x00A0;<span 
class="ectt-1200">et</span>&#x00A0;<span 
class="ectt-1200">il</span>&#x00A0;<span 
class="ectt-1200">faut</span>&#x00A0;<span 
class="ectt-1200">en</span>&#x00A0;<span 
class="ectt-1200">tenir</span>&#x00A0;<span 
class="ectt-1200">compte;</span>&#x00A0;<span 
class="ectt-1200">donc</span>&#x00A0;<span 
class="ectt-1200">bien</span>&#x00A0;<span 
class="ectt-1200">regarder</span>&#x00A0;<span 
class="ectt-1200">partout</span>&#x00A0;<span 
class="ectt-1200">dans</span>&#x00A0;<span 
class="ectt-1200">le</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">programme</span>&#x00A0;<span 
class="ectt-1200">calcstat</span>&#x00A0;<span 
class="ectt-1200">la</span>&#x00A0;<span 
class="ectt-1200">ou</span>&#x00A0;<span 
class="ectt-1200">il</span>&#x00A0;<span 
class="ectt-1200">y</span>&#x00A0;<span 
class="ectt-1200">a</span>&#x00A0;<span 
class="ectt-1200">n:</span>&#x00A0;<span 
class="ectt-1200">OK</span>&#x00A0;<span 
class="ectt-1200">CA</span>&#x00A0;<span 
class="ectt-1200">C&#x2019;EST</span>&#x00A0;<span 
class="ectt-1200">FAIT!!!</span>&#x00A0;<span 
class="ectt-1200">A</span>&#x00A0;<span 
class="ectt-1200">METTRE</span>&#x00A0;<span 
class="ectt-1200">EN</span>&#x00A0;<span 
class="ectt-1200">COMMENTAIRES</span>&#x00A0;<span 
class="ectt-1200">QUELQUEPART</span>&#x00A0;<span 
class="ectt-1200">...</span>
&#x00A0;<br /><span 
class="ectt-1200">CALL</span>&#x00A0;<span 
class="ectt-1200">calcstat(isa,khi,khi2,QuLed1,QuLe12,QuLed2,QuLe22,QuBD,</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">+</span>&#x00A0;<span 
class="ectt-1200">QuBD2,QuAD,QuAD2,QuJB,QuJB2,alpha,alpha2,Kp,p,q,nT,phi,teta,n,</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">+</span>&#x00A0;<span 
class="ectt-1200">nbcle,m,filer,filew,valeur,sch2vc,epscha,compt,compt2,statn,</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">+</span>&#x00A0;<span 
class="ectt-1200">KoLed1,KoLed2,Ledwi1,Ledwi2,snLed1,snLed2,stanBD,stanAD,stanJB,Z,</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">+</span>&#x00A0;<span 
class="ectt-1200">D,Davant,E2,U,hUetoi,Uavant,hKetoi,hU,hK,vecteu,vectoi,stat,</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">+</span>&#x00A0;<span 
class="ectt-1200">Zavant,BDa,BDb,BDc,BDd,Davan2,ADa,ADb,Puiss,Puiss2,snsort,snsorv,</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">+</span>&#x00A0;<span 
class="ectt-1200">Qucalc,snLe1s,snLe2s,snBDso,snADso,snJBso,matric,paramf,loi,</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">+</span>&#x00A0;<span 
class="ectt-1200">dnT,QLed1u,QLe12u,QLed2u,QLe22u,QBDu,QBD2u,QADu,QAD2u,QJBu,QJB2u)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">nbcle=nbclea</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">FAIRE</span>&#x00A0;<span 
class="ectt-1200">ATTENTION:</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">voir</span>&#x00A0;<span 
class="ectt-1200">si</span>&#x00A0;<span 
class="ectt-1200">mes</span>&#x00A0;<span 
class="ectt-1200">programmes</span>&#x00A0;<span 
class="ectt-1200">ne</span>&#x00A0;<span 
class="ectt-1200">modifient</span>&#x00A0;<span 
class="ectt-1200">pas</span>&#x00A0;<span 
class="ectt-1200">certains</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">leurs</span>&#x00A0;<span 
class="ectt-1200">parametres</span>&#x00A0;<span 
class="ectt-1200">en</span>&#x00A0;<span 
class="ectt-1200">entree</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">ce</span>&#x00A0;<span 
class="ectt-1200">qui</span>&#x00A0;<span 
class="ectt-1200">pourrait</span>&#x00A0;<span 
class="ectt-1200">ammener</span>&#x00A0;<span 
class="ectt-1200">des</span>&#x00A0;<span 
class="ectt-1200">erreurs</span>&#x00A0;<span 
class="ectt-1200">au</span>&#x00A0;<span 
class="ectt-1200">cours</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">la</span>&#x00A0;<span 
class="ectt-1200">boucle</span>&#x00A0;<span 
class="ectt-1200">que</span>&#x00A0;<span 
class="ectt-1200">je</span>&#x00A0;<span 
class="ectt-1200">vais</span>&#x00A0;<span 
class="ectt-1200">faire</span>&#x00A0;<span 
class="ectt-1200">dans</span>&#x00A0;<span 
class="ectt-1200">le</span>&#x00A0;<span 
class="ectt-1200">programme</span>&#x00A0;<span 
class="ectt-1200">test.f</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">pour</span>&#x00A0;<span 
class="ectt-1200">les</span>&#x00A0;<span 
class="ectt-1200">differentes</span>&#x00A0;<span 
class="ectt-1200">etapes</span>&#x00A0;<span 
class="ectt-1200">1),</span>&#x00A0;<span 
class="ectt-1200">2)</span>&#x00A0;<span 
class="ectt-1200">et</span>&#x00A0;<span 
class="ectt-1200">3)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CALL</span>&#x00A0;<span 
class="ectt-1200">SYSTEM(efface)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Sauvegarde</span>&#x00A0;<span 
class="ectt-1200">du</span>&#x00A0;<span 
class="ectt-1200">seed</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">OPEN(UNIT=14,</span>&#x00A0;<span 
class="ectt-1200">FILE=paramf</span>&#x00A0;<span 
class="ectt-1200">,</span>&#x00A0;<span 
class="ectt-1200">STATUS=&#x2019;OLD&#x2019;,</span>&#x00A0;<span 
class="ectt-1200">ACCESS=&#x2019;append&#x2019;</span>&#x00A0;<span 
class="ectt-1200">)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(14,*)</span>&#x00A0;<span 
class="ectt-1200">&#x2019;Sauvegarde</span>&#x00A0;<span 
class="ectt-1200">du</span>&#x00A0;<span 
class="ectt-1200">seed:&#x2019;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(14,*)</span>&#x00A0;<span 
class="ectt-1200">&#x2019;XA:&#x2019;</span>

&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(14,15)</span>&#x00A0;<span 
class="ectt-1200">&#x2019;XA(1)=&#x2019;,XA(1)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(14,15)</span>&#x00A0;<span 
class="ectt-1200">&#x2019;XA(2)=&#x2019;,XA(2)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(14,15)</span>&#x00A0;<span 
class="ectt-1200">&#x2019;XA(3)=&#x2019;,XA(3)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(14,15)</span>&#x00A0;<span 
class="ectt-1200">&#x2019;XA(4)=&#x2019;,XA(4)</span>
&#x00A0;<br />&#x00A0;<span 
class="ectt-1200">15</span>&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">FORMAT(A6,1F20.15)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(14,*)</span>&#x00A0;<span 
class="ectt-1200">&#x2019;IA:&#x2019;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(14,30)</span>&#x00A0;<span 
class="ectt-1200">&#x2019;IA(1)=&#x2019;,IA(1)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(14,30)</span>&#x00A0;<span 
class="ectt-1200">&#x2019;IA(2)=&#x2019;,IA(2)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(14,30)</span>&#x00A0;<span 
class="ectt-1200">&#x2019;IA(3)=&#x2019;,IA(3)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(14,30)</span>&#x00A0;<span 
class="ectt-1200">&#x2019;IA(4)=&#x2019;,IA(4)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(14,30)</span>&#x00A0;<span 
class="ectt-1200">&#x2019;IA(5)=&#x2019;,IA(5)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(14,30)</span>&#x00A0;<span 
class="ectt-1200">&#x2019;IA(6)=&#x2019;,IA(6)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(14,30)</span>&#x00A0;<span 
class="ectt-1200">&#x2019;IA(7)=&#x2019;,IA(7)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(14,30)</span>&#x00A0;<span 
class="ectt-1200">&#x2019;IA(8)=&#x2019;,IA(8)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(14,30)</span>&#x00A0;<span 
class="ectt-1200">&#x2019;IA(9)=&#x2019;,IA(9)</span>
&#x00A0;<br />&#x00A0;<span 
class="ectt-1200">30</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">FORMAT(A6,1I10)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CLOSE(UNIT=14)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">STOP</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">END</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INCLUDE</span>&#x00A0;<span 
class="ectt-1200">&#x2019;mean.f&#x2019;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INCLUDE</span>&#x00A0;<span 
class="ectt-1200">&#x2019;simulARMA.f&#x2019;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INCLUDE</span>&#x00A0;<span 
class="ectt-1200">&#x2019;ARMpsi.f&#x2019;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INCLUDE</span>&#x00A0;<span 
class="ectt-1200">&#x2019;shock.f&#x2019;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INCLUDE</span>&#x00A0;<span 
class="ectt-1200">&#x2019;rskew.f&#x2019;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INCLUDE</span>&#x00A0;<span 
class="ectt-1200">&#x2019;rlap.f&#x2019;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INCLUDE</span>&#x00A0;<span 
class="ectt-1200">&#x2019;rpare.f&#x2019;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INCLUDE</span>&#x00A0;<span 
class="ectt-1200">&#x2019;rspare.f&#x2019;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INCLUDE</span>&#x00A0;<span 
class="ectt-1200">&#x2019;rSU.f&#x2019;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INCLUDE</span>&#x00A0;<span 
class="ectt-1200">&#x2019;rTU.f&#x2019;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INCLUDE</span>&#x00A0;<span 
class="ectt-1200">&#x2019;rSC.f&#x2019;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INCLUDE</span>&#x00A0;<span 
class="ectt-1200">&#x2019;rLC.f&#x2019;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INCLUDE</span>&#x00A0;<span 
class="ectt-1200">&#x2019;rSB.f&#x2019;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INCLUDE</span>&#x00A0;<span 
class="ectt-1200">&#x2019;rS.f&#x2019;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INCLUDE</span>&#x00A0;<span 
class="ectt-1200">&#x2019;H1etoile.f&#x2019;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INCLUDE</span>&#x00A0;<span 
class="ectt-1200">&#x2019;H2etoile.f&#x2019;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INCLUDE</span>&#x00A0;<span 
class="ectt-1200">&#x2019;H3etoile.f&#x2019;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INCLUDE</span>&#x00A0;<span 
class="ectt-1200">&#x2019;H4etoile.f&#x2019;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INCLUDE</span>&#x00A0;<span 
class="ectt-1200">&#x2019;H5etoile.f&#x2019;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INCLUDE</span>&#x00A0;<span 
class="ectt-1200">&#x2019;H6etoile.f&#x2019;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INCLUDE</span>&#x00A0;<span 
class="ectt-1200">&#x2019;H7etoile.f&#x2019;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INCLUDE</span>&#x00A0;<span 
class="ectt-1200">&#x2019;H8etoile.f&#x2019;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INCLUDE</span>&#x00A0;<span 
class="ectt-1200">&#x2019;H9etoile.f&#x2019;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INCLUDE</span>&#x00A0;<span 
class="ectt-1200">&#x2019;H10etoile.f&#x2019;</span>

&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INCLUDE</span>&#x00A0;<span 
class="ectt-1200">&#x2019;H1isa.f&#x2019;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INCLUDE</span>&#x00A0;<span 
class="ectt-1200">&#x2019;H2isa.f&#x2019;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INCLUDE</span>&#x00A0;<span 
class="ectt-1200">&#x2019;H3isa.f&#x2019;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INCLUDE</span>&#x00A0;<span 
class="ectt-1200">&#x2019;H4isa.f&#x2019;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INCLUDE</span>&#x00A0;<span 
class="ectt-1200">&#x2019;H5isa.f&#x2019;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INCLUDE</span>&#x00A0;<span 
class="ectt-1200">&#x2019;H6isa.f&#x2019;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INCLUDE</span>&#x00A0;<span 
class="ectt-1200">&#x2019;H7isa.f&#x2019;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INCLUDE</span>&#x00A0;<span 
class="ectt-1200">&#x2019;H8isa.f&#x2019;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INCLUDE</span>&#x00A0;<span 
class="ectt-1200">&#x2019;H9isa.f&#x2019;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INCLUDE</span>&#x00A0;<span 
class="ectt-1200">&#x2019;H10isa.f&#x2019;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INCLUDE</span>&#x00A0;<span 
class="ectt-1200">&#x2019;H1.f&#x2019;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INCLUDE</span>&#x00A0;<span 
class="ectt-1200">&#x2019;H2.f&#x2019;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INCLUDE</span>&#x00A0;<span 
class="ectt-1200">&#x2019;H3.f&#x2019;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INCLUDE</span>&#x00A0;<span 
class="ectt-1200">&#x2019;H4.f&#x2019;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INCLUDE</span>&#x00A0;<span 
class="ectt-1200">&#x2019;H5.f&#x2019;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INCLUDE</span>&#x00A0;<span 
class="ectt-1200">&#x2019;H6.f&#x2019;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INCLUDE</span>&#x00A0;<span 
class="ectt-1200">&#x2019;H7.f&#x2019;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INCLUDE</span>&#x00A0;<span 
class="ectt-1200">&#x2019;H8.f&#x2019;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INCLUDE</span>&#x00A0;<span 
class="ectt-1200">&#x2019;H9.f&#x2019;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INCLUDE</span>&#x00A0;<span 
class="ectt-1200">&#x2019;H10.f&#x2019;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INCLUDE</span>&#x00A0;<span 
class="ectt-1200">&#x2019;qnorm.f&#x2019;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INCLUDE</span>&#x00A0;<span 
class="ectt-1200">&#x2019;pnorm.f&#x2019;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INCLUDE</span>&#x00A0;<span 
class="ectt-1200">&#x2019;min.f&#x2019;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INCLUDE</span>&#x00A0;<span 
class="ectt-1200">&#x2019;max.f&#x2019;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INCLUDE</span>&#x00A0;<span 
class="ectt-1200">&#x2019;var.f&#x2019;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INCLUDE</span>&#x00A0;<span 
class="ectt-1200">&#x2019;creerdat_ARMA.f&#x2019;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INCLUDE</span>&#x00A0;<span 
class="ectt-1200">&#x2019;calcstat.f&#x2019;</span>
</div>
   <h3 class="sectionHead"><span class="titlemark">A.6. </span> <a 
  name="x1-49000A.6"></a>Les programmes creerdat_ARMApq</h3>
<!--l. 303--><p class="noindent"><span 
class="ecbx-1200">Programmes creerdat_ARMA00.f</span> </p><div class="verbatiminput">
<span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Debut-Commentaires</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Nom</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">la</span>&#x00A0;<span 
class="ectt-1200">sous-routine:</span>&#x00A0;<span 
class="ectt-1200">cdzero</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Entrees:</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">-------</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">voir</span>&#x00A0;<span 
class="ectt-1200">plus</span>&#x00A0;<span 
class="ectt-1200">bas</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Sorties:</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">-------</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Le</span>&#x00A0;<span 
class="ectt-1200">fichier</span>&#x00A0;<span 
class="ectt-1200">data.txt</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Description:</span>

&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">-----------</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Modele</span>&#x00A0;<span 
class="ectt-1200">ARMA(0,0)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Ce</span>&#x00A0;<span 
class="ectt-1200">programme</span>&#x00A0;<span 
class="ectt-1200">cree</span>&#x00A0;<span 
class="ectt-1200">le</span>&#x00A0;<span 
class="ectt-1200">fichier</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">donnees</span>&#x00A0;<span 
class="ectt-1200">data.txt</span>&#x00A0;<span 
class="ectt-1200">qui</span>&#x00A0;<span 
class="ectt-1200">contient,</span>&#x00A0;<span 
class="ectt-1200">en</span>&#x00A0;<span 
class="ectt-1200">ligne:</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">sigch2</span>&#x00A0;<span 
class="ectt-1200">et</span>&#x00A0;<span 
class="ectt-1200">epschap</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Utilisation</span>&#x00A0;<span 
class="ectt-1200">dans</span>&#x00A0;<span 
class="ectt-1200">une</span>&#x00A0;<span 
class="ectt-1200">fonction</span>&#x00A0;<span 
class="ectt-1200">main:</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">-------------------------------------</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PROGRAM</span>&#x00A0;<span 
class="ectt-1200">main</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Les</span>&#x00A0;<span 
class="ectt-1200">**</span>&#x00A0;<span 
class="ectt-1200">indiquent</span>&#x00A0;<span 
class="ectt-1200">les</span>&#x00A0;<span 
class="ectt-1200">endroits</span>&#x00A0;<span 
class="ectt-1200">ou</span>&#x00A0;<span 
class="ectt-1200">des</span>&#x00A0;<span 
class="ectt-1200">changements</span>&#x00A0;<span 
class="ectt-1200">peuvent</span>&#x00A0;<span 
class="ectt-1200">etre</span>&#x00A0;<span 
class="ectt-1200">necessaires</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Nom</span>&#x00A0;<span 
class="ectt-1200">du</span>&#x00A0;<span 
class="ectt-1200">fichier</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">donnees</span>&#x00A0;<span 
class="ectt-1200">en</span>&#x00A0;<span 
class="ectt-1200">sortie</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">**</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CHARACTER</span>&#x00A0;<span 
class="ectt-1200">dataf*8</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Nom</span>&#x00A0;<span 
class="ectt-1200">du</span>&#x00A0;<span 
class="ectt-1200">fichier</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">parametres</span>&#x00A0;<span 
class="ectt-1200">en</span>&#x00A0;<span 
class="ectt-1200">sortie</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">**</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CHARACTER</span>&#x00A0;<span 
class="ectt-1200">paramf*17</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Nombre</span>&#x00A0;<span 
class="ectt-1200">d&#x2019;echantillons</span>&#x00A0;<span 
class="ectt-1200">souhaites</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">**</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">nbcle</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(nbcle=10)</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">ecart-type</span>&#x00A0;<span 
class="ectt-1200">des</span>&#x00A0;<span 
class="ectt-1200">erreurs</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">**</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">sigma</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(sigma=1)</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">moyenne</span>&#x00A0;<span 
class="ectt-1200">dans</span>&#x00A0;<span 
class="ectt-1200">mon</span>&#x00A0;<span 
class="ectt-1200">modele</span>&#x00A0;<span 
class="ectt-1200">ARMA</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">**</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">mu</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(mu=0)</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">parametre</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">la</span>&#x00A0;<span 
class="ectt-1200">khi-deux</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">**</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">df1</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(df1=2)</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">parametre</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">la</span>&#x00A0;<span 
class="ectt-1200">student</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">**</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">df2</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(df2=5)</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">parametre</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">la</span>&#x00A0;<span 
class="ectt-1200">skew-normale</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">**</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">lambda</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(lambda=2.0)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">loi5b,</span>&#x00A0;<span 
class="ectt-1200">loi5k,</span>&#x00A0;<span 
class="ectt-1200">loi6p,</span>&#x00A0;<span 
class="ectt-1200">loi6q</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">loi7g,</span>&#x00A0;<span 
class="ectt-1200">loi7d,</span>&#x00A0;<span 
class="ectt-1200">loi8p,</span>&#x00A0;<span 
class="ectt-1200">loi8q,</span>&#x00A0;<span 
class="ectt-1200">loi9a,</span>&#x00A0;<span 
class="ectt-1200">loi9b</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">loi10b,</span>&#x00A0;<span 
class="ectt-1200">loi10l,</span>&#x00A0;<span 
class="ectt-1200">loi11a,</span>&#x00A0;<span 
class="ectt-1200">loi11k,</span>&#x00A0;<span 
class="ectt-1200">loi13g,</span>&#x00A0;<span 
class="ectt-1200">loi13d</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">loi14l,</span>&#x00A0;<span 
class="ectt-1200">loi16p,</span>&#x00A0;<span 
class="ectt-1200">loi16d,</span>&#x00A0;<span 
class="ectt-1200">loi17p,</span>&#x00A0;<span 
class="ectt-1200">loi17m</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">loi18g,</span>&#x00A0;<span 
class="ectt-1200">loi18d,</span>&#x00A0;<span 
class="ectt-1200">loi19a,</span>&#x00A0;<span 
class="ectt-1200">loi19b</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(loi18g=1.0,loi18d=1.0,</span>&#x00A0;<span 
class="ectt-1200">loi19a=1.1,</span>&#x00A0;<span 
class="ectt-1200">loi19b=0.5)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(loi16p=0.2,loi16d=5.0,</span>&#x00A0;<span 
class="ectt-1200">loi17p=0.2,loi17m=3.0)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(loi10b=0.2,loi10l=1,</span>&#x00A0;<span 
class="ectt-1200">loi11a=2.0,loi11k=0.5)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(loi13g=1.0,loi13d=1.0,</span>&#x00A0;<span 
class="ectt-1200">loi14l=0.7)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(loi7g=0,loi7d=1,</span>&#x00A0;<span 
class="ectt-1200">loi8p=2,</span>&#x00A0;<span 
class="ectt-1200">loi8q=2,</span>&#x00A0;<span 
class="ectt-1200">loi9a=0,loi9b=2)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(loi5b=1,</span>&#x00A0;<span 
class="ectt-1200">loi5k=1.8,</span>&#x00A0;<span 
class="ectt-1200">loi6p=4,</span>&#x00A0;<span 
class="ectt-1200">loi6q=1)</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">loi</span>&#x00A0;<span 
class="ectt-1200">des</span>&#x00A0;<span 
class="ectt-1200">erreurs</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">**</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">si</span>&#x00A0;<span 
class="ectt-1200">loi=0</span>&#x00A0;<span 
class="ectt-1200">:</span>&#x00A0;<span 
class="ectt-1200">Normale(0,sigma&#x0302;2)</span>

&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">si</span>&#x00A0;<span 
class="ectt-1200">loi=1</span>&#x00A0;<span 
class="ectt-1200">:</span>&#x00A0;<span 
class="ectt-1200">Khi2</span>&#x00A0;<span 
class="ectt-1200">centree</span>&#x00A0;<span 
class="ectt-1200">(df1)</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">si</span>&#x00A0;<span 
class="ectt-1200">loi=2</span>&#x00A0;<span 
class="ectt-1200">:</span>&#x00A0;<span 
class="ectt-1200">Student</span>&#x00A0;<span 
class="ectt-1200">(df2)</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">si</span>&#x00A0;<span 
class="ectt-1200">loi=3</span>&#x00A0;<span 
class="ectt-1200">:</span>&#x00A0;<span 
class="ectt-1200">Skew-Normale(lambda)</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">si</span>&#x00A0;<span 
class="ectt-1200">loi=4</span>&#x00A0;<span 
class="ectt-1200">:</span>&#x00A0;<span 
class="ectt-1200">Laplace</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">si</span>&#x00A0;<span 
class="ectt-1200">loi=5</span>&#x00A0;<span 
class="ectt-1200">:</span>&#x00A0;<span 
class="ectt-1200">Weibull(b,k)</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">si</span>&#x00A0;<span 
class="ectt-1200">loi=6</span>&#x00A0;<span 
class="ectt-1200">:</span>&#x00A0;<span 
class="ectt-1200">Gamma(p,q)</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">si</span>&#x00A0;<span 
class="ectt-1200">loi=7</span>&#x00A0;<span 
class="ectt-1200">:</span>&#x00A0;<span 
class="ectt-1200">Log-Normale(g,d)</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">si</span>&#x00A0;<span 
class="ectt-1200">loi=8</span>&#x00A0;<span 
class="ectt-1200">:</span>&#x00A0;<span 
class="ectt-1200">Beta(p,q)</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">si</span>&#x00A0;<span 
class="ectt-1200">loi=9</span>&#x00A0;<span 
class="ectt-1200">:</span>&#x00A0;<span 
class="ectt-1200">Uniform(a,b)</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">si</span>&#x00A0;<span 
class="ectt-1200">loi=10</span>&#x00A0;<span 
class="ectt-1200">:</span>&#x00A0;<span 
class="ectt-1200">Shifted</span>&#x00A0;<span 
class="ectt-1200">exp</span>&#x00A0;<span 
class="ectt-1200">(l,b)</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">si</span>&#x00A0;<span 
class="ectt-1200">loi=11</span>&#x00A0;<span 
class="ectt-1200">:</span>&#x00A0;<span 
class="ectt-1200">Pareto(a,k)</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">si</span>&#x00A0;<span 
class="ectt-1200">loi=12</span>&#x00A0;<span 
class="ectt-1200">:</span>&#x00A0;<span 
class="ectt-1200">Shifted</span>&#x00A0;<span 
class="ectt-1200">Pareto</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">si</span>&#x00A0;<span 
class="ectt-1200">loi=13</span>&#x00A0;<span 
class="ectt-1200">:</span>&#x00A0;<span 
class="ectt-1200">SU(g,d)</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">si</span>&#x00A0;<span 
class="ectt-1200">loi=14</span>&#x00A0;<span 
class="ectt-1200">:</span>&#x00A0;<span 
class="ectt-1200">TU(l)</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">si</span>&#x00A0;<span 
class="ectt-1200">loi=15</span>&#x00A0;<span 
class="ectt-1200">:</span>&#x00A0;<span 
class="ectt-1200">Logistic</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">si</span>&#x00A0;<span 
class="ectt-1200">loi=16</span>&#x00A0;<span 
class="ectt-1200">:</span>&#x00A0;<span 
class="ectt-1200">SC(p,d)</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">si</span>&#x00A0;<span 
class="ectt-1200">loi=17</span>&#x00A0;<span 
class="ectt-1200">:</span>&#x00A0;<span 
class="ectt-1200">LC(p,m)</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">si</span>&#x00A0;<span 
class="ectt-1200">loi=18</span>&#x00A0;<span 
class="ectt-1200">:</span>&#x00A0;<span 
class="ectt-1200">SB(g,d)</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">si</span>&#x00A0;<span 
class="ectt-1200">loi=19</span>&#x00A0;<span 
class="ectt-1200">:</span>&#x00A0;<span 
class="ectt-1200">S(a,b)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">loi</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(loi=2)</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">the</span>&#x00A0;<span 
class="ectt-1200">number</span>&#x00A0;<span 
class="ectt-1200">of</span>&#x00A0;<span 
class="ectt-1200">autoregressive</span>&#x00A0;<span 
class="ectt-1200">coefficients</span>&#x00A0;<span 
class="ectt-1200">supplied</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">**</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">p</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(p=0)</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">the</span>&#x00A0;<span 
class="ectt-1200">number</span>&#x00A0;<span 
class="ectt-1200">of</span>&#x00A0;<span 
class="ectt-1200">moving-average</span>&#x00A0;<span 
class="ectt-1200">coefficients</span>&#x00A0;<span 
class="ectt-1200">supplied</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">**</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">q</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(q=0)</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">nombre</span>&#x00A0;<span 
class="ectt-1200">d&#x2019;observations</span>&#x00A0;<span 
class="ectt-1200">dans</span>&#x00A0;<span 
class="ectt-1200">mon</span>&#x00A0;<span 
class="ectt-1200">echantillon</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">**</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Si</span>&#x00A0;<span 
class="ectt-1200">on</span>&#x00A0;<span 
class="ectt-1200">change</span>&#x00A0;<span 
class="ectt-1200">la</span>&#x00A0;<span 
class="ectt-1200">valeur</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">nT,</span>&#x00A0;<span 
class="ectt-1200">il</span>&#x00A0;<span 
class="ectt-1200">faut</span>&#x00A0;<span 
class="ectt-1200">aller</span>&#x00A0;<span 
class="ectt-1200">modifier</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">la</span>&#x00A0;<span 
class="ectt-1200">valeur</span>&#x00A0;<span 
class="ectt-1200">dans</span>&#x00A0;<span 
class="ectt-1200">FORMAT</span>&#x00A0;<span 
class="ectt-1200">a</span>&#x00A0;<span 
class="ectt-1200">la</span>&#x00A0;<span 
class="ectt-1200">fin</span>&#x00A0;<span 
class="ectt-1200">du</span>&#x00A0;<span 
class="ectt-1200">programme</span>&#x00A0;<span 
class="ectt-1200">creerdat_ARMA.f</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">nT</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(nT=100)</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">vecteur</span>&#x00A0;<span 
class="ectt-1200">des</span>&#x00A0;<span 
class="ectt-1200">donnees</span>&#x00A0;<span 
class="ectt-1200">cree</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">donees(nT)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">EspSU,EspSB,EspS</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;<span 
class="ectt-1200">--------------------------------------------------------------</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;<span 
class="ectt-1200">Fin</span>&#x00A0;<span 
class="ectt-1200">des</span>&#x00A0;<span 
class="ectt-1200">declarations</span>&#x00A0;<span 
class="ectt-1200">des</span>&#x00A0;<span 
class="ectt-1200">variables</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;<span 
class="ectt-1200">--------------------------------------------------------------</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Nom</span>&#x00A0;<span 
class="ectt-1200">du</span>&#x00A0;<span 
class="ectt-1200">fichier</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">donnees</span>&#x00A0;<span 
class="ectt-1200">en</span>&#x00A0;<span 
class="ectt-1200">sortie</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">**</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">dataf=&#x2019;data.txt&#x2019;</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Nom</span>&#x00A0;<span 
class="ectt-1200">du</span>&#x00A0;<span 
class="ectt-1200">fichier</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">parametres</span>&#x00A0;<span 
class="ectt-1200">en</span>&#x00A0;<span 
class="ectt-1200">sortie</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">**</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">paramf=&#x2019;para.txt&#x2019;</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CALL</span>&#x00A0;<span 
class="ectt-1200">cdzero(dataf,paramf,nbcle,sigma,mu,df1,df2,</span>

&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">+</span>&#x00A0;<span 
class="ectt-1200">lambda,loi5b,loi5k,loi6p,loi6q,loi7g,loi7d,loi8p,loi8q,loi9a,</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">+loi9b,loi10b,loi10l,loi11a,loi11k,loi13g,loi13d,loi14l,loi16p,</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">+loi16d,loi17p,loi17m,loi18g,loi18d,loi19a,loi19b,loi,p,q,nT,</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">+</span>&#x00A0;<span 
class="ectt-1200">donees,EspSU,EspSB,EspS)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">END</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INCLUDE</span>&#x00A0;<span 
class="ectt-1200">&#x2019;mean.f&#x2019;</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INCLUDE</span>&#x00A0;<span 
class="ectt-1200">&#x2019;simulARMA.f&#x2019;</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INCLUDE</span>&#x00A0;<span 
class="ectt-1200">&#x2019;ARMpsi.f&#x2019;</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INCLUDE</span>&#x00A0;<span 
class="ectt-1200">&#x2019;shock.f&#x2019;</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INCLUDE</span>&#x00A0;<span 
class="ectt-1200">&#x2019;rskew.f&#x2019;</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INCLUDE</span>&#x00A0;<span 
class="ectt-1200">&#x2019;rlap.f&#x2019;</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INCLUDE</span>&#x00A0;<span 
class="ectt-1200">&#x2019;rpare.f&#x2019;</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INCLUDE</span>&#x00A0;<span 
class="ectt-1200">&#x2019;rspare.f&#x2019;</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INCLUDE</span>&#x00A0;<span 
class="ectt-1200">&#x2019;rSU.f&#x2019;</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INCLUDE</span>&#x00A0;<span 
class="ectt-1200">&#x2019;rTU.f&#x2019;</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INCLUDE</span>&#x00A0;<span 
class="ectt-1200">&#x2019;rSC.f&#x2019;</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INCLUDE</span>&#x00A0;<span 
class="ectt-1200">&#x2019;rLC.f&#x2019;</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INCLUDE</span>&#x00A0;<span 
class="ectt-1200">&#x2019;rSB.f&#x2019;</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INCLUDE</span>&#x00A0;<span 
class="ectt-1200">&#x2019;rS.f&#x2019;</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INCLUDE</span>&#x00A0;<span 
class="ectt-1200">&#x2019;creerdat_ARMA00.f&#x2019;</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">-------------------------------------</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Instructions</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">compilation:</span>&#x00A0;<span 
class="ectt-1200">alias</span>&#x00A0;<span 
class="ectt-1200">f77=&#x2019;fort77&#x2019;</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">f77</span>&#x00A0;<span 
class="ectt-1200">-c</span>&#x00A0;<span 
class="ectt-1200">nom_du_fichier_contenant_la_fonction_main.f</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">f77</span>&#x00A0;<span 
class="ectt-1200">-c</span>&#x00A0;<span 
class="ectt-1200">creerdat_ARMA.f</span>&#x00A0;<span 
class="ectt-1200">-lnag</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">f77</span>&#x00A0;<span 
class="ectt-1200">nom_du_fichier_contenant_la_fonction_main.o</span>&#x00A0;<span 
class="ectt-1200">creerdat_ARMA.o</span>&#x00A0;<span 
class="ectt-1200">-lnag</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Fonctions</span>&#x00A0;<span 
class="ectt-1200">exterieures</span>&#x00A0;<span 
class="ectt-1200">appelees:</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">G05EGF,</span>&#x00A0;<span 
class="ectt-1200">G05EWF</span>&#x00A0;<span 
class="ectt-1200">et</span>&#x00A0;&#x00A0;<span 
class="ectt-1200">G13DCF</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">la</span>&#x00A0;<span 
class="ectt-1200">librairie</span>&#x00A0;<span 
class="ectt-1200">NAG</span>&#x00A0;<span 
class="ectt-1200">Mark16</span>&#x00A0;<span 
class="ectt-1200">et</span>&#x00A0;<span 
class="ectt-1200">simARMA.f</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Auteur:</span>&#x00A0;<span 
class="ectt-1200">Pierre</span>&#x00A0;<span 
class="ectt-1200">Lafaye</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">Micheaux</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Date:</span>&#x00A0;<span 
class="ectt-1200">15/02/2001</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Fin-Commentaires</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">SUBROUTINE</span>&#x00A0;<span 
class="ectt-1200">cdzero(dataf,paramf,nbcle,sigma,mu,df1,df2,</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">+</span>&#x00A0;<span 
class="ectt-1200">lambda,loi5b,loi5k,loi6p,loi6q,loi7g,loi7d,loi8p,loi8q,loi9a,</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">+loi9b,loi10b,loi10l,loi11a,loi11k,loi13g,loi13d,loi14l,loi16p,</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">+loi16d,loi17p,loi17m,loi18g,loi18d,loi19a,loi19b,loi,p,q,nT,</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">+</span>&#x00A0;<span 
class="ectt-1200">donees,EspSU,EspSB,EspS)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">-----------------------------------------------------</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Debut</span>&#x00A0;<span 
class="ectt-1200">des</span>&#x00A0;<span 
class="ectt-1200">Declarations</span>&#x00A0;<span 
class="ectt-1200">des</span>&#x00A0;<span 
class="ectt-1200">variables</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">-----------------------------------------------------</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">ybarre,meanp</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Nom</span>&#x00A0;<span 
class="ectt-1200">du</span>&#x00A0;<span 
class="ectt-1200">fichier</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">donnees</span>&#x00A0;<span 
class="ectt-1200">en</span>&#x00A0;<span 
class="ectt-1200">sortie</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CHARACTER</span>&#x00A0;<span 
class="ectt-1200">dataf*8</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Nom</span>&#x00A0;<span 
class="ectt-1200">du</span>&#x00A0;<span 
class="ectt-1200">fichier</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">parametres</span>&#x00A0;<span 
class="ectt-1200">en</span>&#x00A0;<span 
class="ectt-1200">sortie</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CHARACTER</span>&#x00A0;<span 
class="ectt-1200">paramf*17</span>

&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">i,j</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Precision</span>&#x00A0;<span 
class="ectt-1200">machine</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">preci,</span>&#x00A0;<span 
class="ectt-1200">X02AJF</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">EXTERNAL</span>&#x00A0;<span 
class="ectt-1200">X02AJF</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Temps</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">calcul</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">CPTIME,</span>&#x00A0;<span 
class="ectt-1200">S1,</span>&#x00A0;<span 
class="ectt-1200">S2,</span>&#x00A0;<span 
class="ectt-1200">X05BAF</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">EXTERNAL</span>&#x00A0;<span 
class="ectt-1200">X05BAF</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Nombre</span>&#x00A0;<span 
class="ectt-1200">d&#x2019;echantillons</span>&#x00A0;<span 
class="ectt-1200">souhaites</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">nbcle</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">ecart-type</span>&#x00A0;<span 
class="ectt-1200">des</span>&#x00A0;<span 
class="ectt-1200">erreurs</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">sigma</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">sigch2</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">moyenne</span>&#x00A0;<span 
class="ectt-1200">dans</span>&#x00A0;<span 
class="ectt-1200">mon</span>&#x00A0;<span 
class="ectt-1200">modele</span>&#x00A0;<span 
class="ectt-1200">ARMA</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">mu</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">much</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">parametre</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">la</span>&#x00A0;<span 
class="ectt-1200">khi-deux</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">df1</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">parametre</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">la</span>&#x00A0;<span 
class="ectt-1200">student</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">df2</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">parametre</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">la</span>&#x00A0;<span 
class="ectt-1200">skew-normale</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">lambda</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">loi5b,</span>&#x00A0;<span 
class="ectt-1200">loi5k,</span>&#x00A0;<span 
class="ectt-1200">loi6p,</span>&#x00A0;<span 
class="ectt-1200">loi6q</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">loi7g,</span>&#x00A0;<span 
class="ectt-1200">loi7d,</span>&#x00A0;<span 
class="ectt-1200">loi8p,</span>&#x00A0;<span 
class="ectt-1200">loi8q,</span>&#x00A0;<span 
class="ectt-1200">loi9a,</span>&#x00A0;<span 
class="ectt-1200">loi9b</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">loi10b,</span>&#x00A0;<span 
class="ectt-1200">loi10l,</span>&#x00A0;<span 
class="ectt-1200">loi11a,</span>&#x00A0;<span 
class="ectt-1200">loi11k,</span>&#x00A0;<span 
class="ectt-1200">loi13g,</span>&#x00A0;<span 
class="ectt-1200">loi13d</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">loi14l,</span>&#x00A0;<span 
class="ectt-1200">loi16p,</span>&#x00A0;<span 
class="ectt-1200">loi16d,</span>&#x00A0;<span 
class="ectt-1200">loi17p,</span>&#x00A0;<span 
class="ectt-1200">loi17m</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">loi18g,</span>&#x00A0;<span 
class="ectt-1200">loi18d,</span>&#x00A0;<span 
class="ectt-1200">loi19a,</span>&#x00A0;<span 
class="ectt-1200">loi19b</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">loi</span>&#x00A0;<span 
class="ectt-1200">des</span>&#x00A0;<span 
class="ectt-1200">erreurs</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">si</span>&#x00A0;<span 
class="ectt-1200">loi=0</span>&#x00A0;<span 
class="ectt-1200">:</span>&#x00A0;<span 
class="ectt-1200">Normale(0,sigma&#x0302;2)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">si</span>&#x00A0;<span 
class="ectt-1200">loi=1</span>&#x00A0;<span 
class="ectt-1200">:</span>&#x00A0;<span 
class="ectt-1200">Khi2</span>&#x00A0;<span 
class="ectt-1200">centree</span>&#x00A0;<span 
class="ectt-1200">(df1)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">si</span>&#x00A0;<span 
class="ectt-1200">loi=2</span>&#x00A0;<span 
class="ectt-1200">:</span>&#x00A0;<span 
class="ectt-1200">Student</span>&#x00A0;<span 
class="ectt-1200">(df2)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">si</span>&#x00A0;<span 
class="ectt-1200">loi=3</span>&#x00A0;<span 
class="ectt-1200">:</span>&#x00A0;<span 
class="ectt-1200">Skew-Normale(lambda)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">si</span>&#x00A0;<span 
class="ectt-1200">loi=4</span>&#x00A0;<span 
class="ectt-1200">:</span>&#x00A0;<span 
class="ectt-1200">Laplace</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">si</span>&#x00A0;<span 
class="ectt-1200">loi=5</span>&#x00A0;<span 
class="ectt-1200">:</span>&#x00A0;<span 
class="ectt-1200">Weibull(b,k)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">si</span>&#x00A0;<span 
class="ectt-1200">loi=6</span>&#x00A0;<span 
class="ectt-1200">:</span>&#x00A0;<span 
class="ectt-1200">Gamma(p,q)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">si</span>&#x00A0;<span 
class="ectt-1200">loi=7</span>&#x00A0;<span 
class="ectt-1200">:</span>&#x00A0;<span 
class="ectt-1200">Log-Normale(g,d)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">si</span>&#x00A0;<span 
class="ectt-1200">loi=8</span>&#x00A0;<span 
class="ectt-1200">:</span>&#x00A0;<span 
class="ectt-1200">Beta(p,q)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">si</span>&#x00A0;<span 
class="ectt-1200">loi=9</span>&#x00A0;<span 
class="ectt-1200">:</span>&#x00A0;<span 
class="ectt-1200">Uniform(a,b)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">si</span>&#x00A0;<span 
class="ectt-1200">loi=10</span>&#x00A0;<span 
class="ectt-1200">:</span>&#x00A0;<span 
class="ectt-1200">Shifted</span>&#x00A0;<span 
class="ectt-1200">exp</span>&#x00A0;<span 
class="ectt-1200">(l,b)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">si</span>&#x00A0;<span 
class="ectt-1200">loi=11</span>&#x00A0;<span 
class="ectt-1200">:</span>&#x00A0;<span 
class="ectt-1200">Pareto(a,k)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">si</span>&#x00A0;<span 
class="ectt-1200">loi=12</span>&#x00A0;<span 
class="ectt-1200">:</span>&#x00A0;<span 
class="ectt-1200">Shifted</span>&#x00A0;<span 
class="ectt-1200">Pareto</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">si</span>&#x00A0;<span 
class="ectt-1200">loi=13</span>&#x00A0;<span 
class="ectt-1200">:</span>&#x00A0;<span 
class="ectt-1200">SU(g,d)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">si</span>&#x00A0;<span 
class="ectt-1200">loi=14</span>&#x00A0;<span 
class="ectt-1200">:</span>&#x00A0;<span 
class="ectt-1200">TU(l)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">si</span>&#x00A0;<span 
class="ectt-1200">loi=15</span>&#x00A0;<span 
class="ectt-1200">:</span>&#x00A0;<span 
class="ectt-1200">Logistic</span>

&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">si</span>&#x00A0;<span 
class="ectt-1200">loi=16</span>&#x00A0;<span 
class="ectt-1200">:</span>&#x00A0;<span 
class="ectt-1200">SC(p,d)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">si</span>&#x00A0;<span 
class="ectt-1200">loi=17</span>&#x00A0;<span 
class="ectt-1200">:</span>&#x00A0;<span 
class="ectt-1200">LC(p,m)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">si</span>&#x00A0;<span 
class="ectt-1200">loi=18</span>&#x00A0;<span 
class="ectt-1200">:</span>&#x00A0;<span 
class="ectt-1200">SB(g,d)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">si</span>&#x00A0;<span 
class="ectt-1200">loi=19</span>&#x00A0;<span 
class="ectt-1200">:</span>&#x00A0;<span 
class="ectt-1200">S(a,b)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">loi</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">the</span>&#x00A0;<span 
class="ectt-1200">number</span>&#x00A0;<span 
class="ectt-1200">of</span>&#x00A0;<span 
class="ectt-1200">autoregressive</span>&#x00A0;<span 
class="ectt-1200">coefficients</span>&#x00A0;<span 
class="ectt-1200">supplied</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">p</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">the</span>&#x00A0;<span 
class="ectt-1200">number</span>&#x00A0;<span 
class="ectt-1200">of</span>&#x00A0;<span 
class="ectt-1200">moving-average</span>&#x00A0;<span 
class="ectt-1200">coefficients</span>&#x00A0;<span 
class="ectt-1200">supplied</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">q</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">nombre</span>&#x00A0;<span 
class="ectt-1200">d&#x2019;observations</span>&#x00A0;<span 
class="ectt-1200">dans</span>&#x00A0;<span 
class="ectt-1200">mon</span>&#x00A0;<span 
class="ectt-1200">echantillon</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Si</span>&#x00A0;<span 
class="ectt-1200">on</span>&#x00A0;<span 
class="ectt-1200">change</span>&#x00A0;<span 
class="ectt-1200">la</span>&#x00A0;<span 
class="ectt-1200">valeur</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">nT,</span>&#x00A0;<span 
class="ectt-1200">il</span>&#x00A0;<span 
class="ectt-1200">faut</span>&#x00A0;<span 
class="ectt-1200">aller</span>&#x00A0;<span 
class="ectt-1200">modifier</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">la</span>&#x00A0;<span 
class="ectt-1200">valeur</span>&#x00A0;<span 
class="ectt-1200">dans</span>&#x00A0;<span 
class="ectt-1200">FORMAT</span>&#x00A0;<span 
class="ectt-1200">a</span>&#x00A0;<span 
class="ectt-1200">la</span>&#x00A0;<span 
class="ectt-1200">fin</span>&#x00A0;<span 
class="ectt-1200">du</span>&#x00A0;<span 
class="ectt-1200">programme</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">nT</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">vecteur</span>&#x00A0;<span 
class="ectt-1200">des</span>&#x00A0;<span 
class="ectt-1200">donnees</span>&#x00A0;<span 
class="ectt-1200">cree</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">donees(nT)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">pi,</span>&#x00A0;<span 
class="ectt-1200">a,</span>&#x00A0;<span 
class="ectt-1200">b,</span>&#x00A0;<span 
class="ectt-1200">Eweibu</span>&#x00A0;<span 
class="ectt-1200">,EspSU,</span>&#x00A0;<span 
class="ectt-1200">EspSB,</span>&#x00A0;<span 
class="ectt-1200">EspS</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">G05DEF,</span>&#x00A0;<span 
class="ectt-1200">G05DHF</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">G05DJF,</span>&#x00A0;<span 
class="ectt-1200">G05DPF,</span>&#x00A0;<span 
class="ectt-1200">G05DCF,</span>&#x00A0;<span 
class="ectt-1200">S14AAF</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">G05DAF,</span>&#x00A0;<span 
class="ectt-1200">G05DBF,</span>&#x00A0;<span 
class="ectt-1200">rS</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">-----------------------------------------------------</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Fin</span>&#x00A0;<span 
class="ectt-1200">des</span>&#x00A0;<span 
class="ectt-1200">Declarations</span>&#x00A0;<span 
class="ectt-1200">des</span>&#x00A0;<span 
class="ectt-1200">variables</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">-----------------------------------------------------</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">---------------------------------------------------------------------</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Debut</span>&#x00A0;<span 
class="ectt-1200">du</span>&#x00A0;<span 
class="ectt-1200">programme</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">---------------------------------------------------------------------</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">S1=X05BAF()</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">OPEN(UNIT=12,</span>&#x00A0;<span 
class="ectt-1200">FILE=dataf</span>&#x00A0;<span 
class="ectt-1200">,</span>&#x00A0;<span 
class="ectt-1200">STATUS=&#x2019;NEW&#x2019;</span>&#x00A0;<span 
class="ectt-1200">)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">------------------------------------------------------------------------------------------------</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0; <span 
class="ectt-1200">q&#x003E;0</span>&#x00A0;<span 
class="ectt-1200">et</span>&#x00A0;<span 
class="ectt-1200">p&#x003E;0:</span>&#x00A0;<span 
class="ectt-1200">modele</span>&#x00A0;<span 
class="ectt-1200">ARMA(p,q)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">------------------------------------------------------------------------------------------------</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">preci=X02AJF()</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DO</span>&#x00A0;<span 
class="ectt-1200">1000,</span>&#x00A0;<span 
class="ectt-1200">j=1,nbcle</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(6,*)</span>&#x00A0;<span 
class="ectt-1200">nbcle-j</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">-----------------------------------------------------------------------------------------------</span>
&#x00A0;<br /><span 
class="ectt-1200">c </span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">On</span>&#x00A0;<span 
class="ectt-1200">simule</span>&#x00A0;<span 
class="ectt-1200">les</span>&#x00A0;<span 
class="ectt-1200">donnees:</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">-----------------------------------------------------------------------------------------------</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">donees=[Y1,...,YT]</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">pi=DBLE(3.14159265358979)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">a=DBLE(0.0)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">b=DBLE(1.0)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">IF</span>&#x00A0;<span 
class="ectt-1200">(loi</span>&#x00A0;<span 
class="ectt-1200">.EQ.</span>&#x00A0;<span 
class="ectt-1200">0)</span>&#x00A0;<span 
class="ectt-1200">THEN</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CALL</span>&#x00A0;<span 
class="ectt-1200">G05FDF(mu,sigma,nT,donees)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DO</span>&#x00A0;<span 
class="ectt-1200">10,</span>&#x00A0;<span 
class="ectt-1200">i=1,nT</span>

&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">donees(i)=donees(i)-mu</span>
&#x00A0;<br />&#x00A0;<span 
class="ectt-1200">10</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CONTINUE</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">ENDIF</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">IF</span>&#x00A0;<span 
class="ectt-1200">(loi</span>&#x00A0;<span 
class="ectt-1200">.EQ.</span>&#x00A0;<span 
class="ectt-1200">1)</span>&#x00A0;<span 
class="ectt-1200">THEN</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">IFAIL=0</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DO</span>&#x00A0;<span 
class="ectt-1200">20,</span>&#x00A0;<span 
class="ectt-1200">i=1,nT</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">donees(i)=G05DHF(df1,IFAIL)-DBLE(df1)</span>
&#x00A0;<br />&#x00A0;<span 
class="ectt-1200">20</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CONTINUE</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">ENDIF</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">IF</span>&#x00A0;<span 
class="ectt-1200">(loi</span>&#x00A0;<span 
class="ectt-1200">.EQ.</span>&#x00A0;<span 
class="ectt-1200">2)</span>&#x00A0;<span 
class="ectt-1200">THEN</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">IFAIL=0</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">l&#x2019;esperance</span>&#x00A0;<span 
class="ectt-1200">d&#x2019;une</span>&#x00A0;<span 
class="ectt-1200">student</span>&#x00A0;<span 
class="ectt-1200">est</span>&#x00A0;<span 
class="ectt-1200">nulle</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DO</span>&#x00A0;<span 
class="ectt-1200">30,</span>&#x00A0;<span 
class="ectt-1200">i=1,nT</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">donees(i)=G05DJF(df2,IFAIL)</span>
&#x00A0;<br />&#x00A0;<span 
class="ectt-1200">30</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CONTINUE</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">ENDIF</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">IF</span>&#x00A0;<span 
class="ectt-1200">(loi</span>&#x00A0;<span 
class="ectt-1200">.EQ.</span>&#x00A0;<span 
class="ectt-1200">3)</span>&#x00A0;<span 
class="ectt-1200">THEN</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CALL</span>&#x00A0;<span 
class="ectt-1200">rskew(nT,donees,lambda)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DO</span>&#x00A0;<span 
class="ectt-1200">40,</span>&#x00A0;<span 
class="ectt-1200">i=1,nT</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">donees(i)=donees(i)</span>&#x00A0;<span 
class="ectt-1200">-</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">+</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">dsqrt(DBLE(2.0)/pi)*(lambda/</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">+</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">(dsqrt(DBLE(1.0)+lambda*lambda)))</span>
&#x00A0;<br />&#x00A0;<span 
class="ectt-1200">40</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CONTINUE</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">ENDIF</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">IF</span>&#x00A0;<span 
class="ectt-1200">(loi</span>&#x00A0;<span 
class="ectt-1200">.EQ.</span>&#x00A0;<span 
class="ectt-1200">4)</span>&#x00A0;<span 
class="ectt-1200">THEN</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">l&#x2019;esperance</span>&#x00A0;<span 
class="ectt-1200">d&#x2019;une</span>&#x00A0;<span 
class="ectt-1200">loi</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">Laplace</span>&#x00A0;<span 
class="ectt-1200">est</span>&#x00A0;<span 
class="ectt-1200">nulle</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CALL</span>&#x00A0;<span 
class="ectt-1200">rlap(nT,donees)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">ENDIF</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">IF</span>&#x00A0;<span 
class="ectt-1200">(loi</span>&#x00A0;<span 
class="ectt-1200">.EQ.</span>&#x00A0;<span 
class="ectt-1200">5)</span>&#x00A0;<span 
class="ectt-1200">THEN</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">IFAIL=0</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Eweibu=S14AAF(DBLE(1+1/loi5k),IFAIL)/loi5b</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">IFAIL=0</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DO</span>&#x00A0;<span 
class="ectt-1200">50,</span>&#x00A0;<span 
class="ectt-1200">i=1,nT</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">donees(i)=G05DPF(loi5k,(loi5b)**(-loi5k),IFAIL)-Eweibu</span>
&#x00A0;<br />&#x00A0;<span 
class="ectt-1200">50</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CONTINUE</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">ENDIF</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">IF</span>&#x00A0;<span 
class="ectt-1200">(loi</span>&#x00A0;<span 
class="ectt-1200">.EQ.</span>&#x00A0;<span 
class="ectt-1200">6)</span>&#x00A0;<span 
class="ectt-1200">THEN</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">IFAIL=0</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CALL</span>&#x00A0;<span 
class="ectt-1200">G05FFF(loi6p,loi6q,nT,donees,IFAIL)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DO</span>&#x00A0;<span 
class="ectt-1200">60,</span>&#x00A0;<span 
class="ectt-1200">i=1,nT</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">donees(i)=donees(i)</span>&#x00A0;<span 
class="ectt-1200">-loi6p*loi6q</span>
&#x00A0;<br />&#x00A0;<span 
class="ectt-1200">60</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CONTINUE</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">ENDIF</span>

&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">IF</span>&#x00A0;<span 
class="ectt-1200">(loi</span>&#x00A0;<span 
class="ectt-1200">.EQ.</span>&#x00A0;<span 
class="ectt-1200">7)</span>&#x00A0;<span 
class="ectt-1200">THEN</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DO</span>&#x00A0;<span 
class="ectt-1200">70,</span>&#x00A0;<span 
class="ectt-1200">i=1,nT</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">donees(i)=G05DEF(-loi7g/loi7d,1/loi7d)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">+</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">-dexp(-loi7g/loi7d+DBLE(0.5)/(loi7d**2))</span>
&#x00A0;<br />&#x00A0;<span 
class="ectt-1200">70</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CONTINUE</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">ENDIF</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">IF</span>&#x00A0;<span 
class="ectt-1200">(loi</span>&#x00A0;<span 
class="ectt-1200">.EQ.</span>&#x00A0;<span 
class="ectt-1200">8)</span>&#x00A0;<span 
class="ectt-1200">THEN</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">IFAIL=0</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CALL</span>&#x00A0;<span 
class="ectt-1200">G05FEF(loi8p,loi8q,nT,donees,IFAIL)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DO</span>&#x00A0;<span 
class="ectt-1200">80,</span>&#x00A0;<span 
class="ectt-1200">i=1,nT</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">donees(i)=donees(i)-loi8p/(loi8p+loi8q)</span>
&#x00A0;<br />&#x00A0;<span 
class="ectt-1200">80</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CONTINUE</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">ENDIF</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">IF</span>&#x00A0;<span 
class="ectt-1200">(loi</span>&#x00A0;<span 
class="ectt-1200">.EQ.</span>&#x00A0;<span 
class="ectt-1200">9)</span>&#x00A0;<span 
class="ectt-1200">THEN</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DO</span>&#x00A0;<span 
class="ectt-1200">90,</span>&#x00A0;<span 
class="ectt-1200">i=1,nT</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">donees(i)=G05DAF(loi9a,loi9b)-(loi9a+loi9b)/DBLE(2.0)</span>
&#x00A0;<br />&#x00A0;<span 
class="ectt-1200">90</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CONTINUE</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">ENDIF</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">IF</span>&#x00A0;<span 
class="ectt-1200">(loi</span>&#x00A0;<span 
class="ectt-1200">.EQ.</span>&#x00A0;<span 
class="ectt-1200">10)</span>&#x00A0;<span 
class="ectt-1200">THEN</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DO</span>&#x00A0;<span 
class="ectt-1200">100,</span>&#x00A0;<span 
class="ectt-1200">i=1,nT</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">donees(i)=G05DBF(1/loi10b)-DBLE(1.0)/loi10b</span>
&#x00A0;<br />&#x00A0;<span 
class="ectt-1200">100</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CONTINUE</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">ENDIF</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">IF</span>&#x00A0;<span 
class="ectt-1200">(loi</span>&#x00A0;<span 
class="ectt-1200">.EQ.</span>&#x00A0;<span 
class="ectt-1200">11)</span>&#x00A0;<span 
class="ectt-1200">THEN</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CALL</span>&#x00A0;<span 
class="ectt-1200">rpare(loi11a,loi11k,nT,donees)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DO</span>&#x00A0;<span 
class="ectt-1200">110,</span>&#x00A0;<span 
class="ectt-1200">i=1,nT</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">donees(i)=donees(i)-loi11k*loi11a/(loi11a-DBLE(1.0))</span>
&#x00A0;<br />&#x00A0;<span 
class="ectt-1200">110</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CONTINUE</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">ENDIF</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">IF</span>&#x00A0;<span 
class="ectt-1200">(loi</span>&#x00A0;<span 
class="ectt-1200">.EQ.</span>&#x00A0;<span 
class="ectt-1200">12)</span>&#x00A0;<span 
class="ectt-1200">THEN</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CALL</span>&#x00A0;<span 
class="ectt-1200">rspare(nT,donees)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DO</span>&#x00A0;<span 
class="ectt-1200">120,</span>&#x00A0;<span 
class="ectt-1200">i=1,nT</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">donees(i)=donees(i)-DBLE(1)</span>
&#x00A0;<br />&#x00A0;<span 
class="ectt-1200">120</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CONTINUE</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">ENDIF</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">IF</span>&#x00A0;<span 
class="ectt-1200">(loi</span>&#x00A0;<span 
class="ectt-1200">.EQ.</span>&#x00A0;<span 
class="ectt-1200">13)</span>&#x00A0;<span 
class="ectt-1200">THEN</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CALL</span>&#x00A0;<span 
class="ectt-1200">rSU(loi13g,loi13d,nT,donees)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DO</span>&#x00A0;<span 
class="ectt-1200">130,</span>&#x00A0;<span 
class="ectt-1200">i=1,nT</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">donees(i)=donees(i)-EspSU</span>
&#x00A0;<br />&#x00A0;<span 
class="ectt-1200">130</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CONTINUE</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">ENDIF</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">IF</span>&#x00A0;<span 
class="ectt-1200">(loi</span>&#x00A0;<span 
class="ectt-1200">.EQ.</span>&#x00A0;<span 
class="ectt-1200">14)</span>&#x00A0;<span 
class="ectt-1200">THEN</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">l&#x2019;esperance</span>&#x00A0;<span 
class="ectt-1200">d&#x2019;une</span>&#x00A0;<span 
class="ectt-1200">loi</span>&#x00A0;<span 
class="ectt-1200">TU(l)</span>&#x00A0;<span 
class="ectt-1200">=</span>&#x00A0;<span 
class="ectt-1200">0</span>

&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CALL</span>&#x00A0;<span 
class="ectt-1200">rTU(loi14l,nT,donees)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">ENDIF</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">IF</span>&#x00A0;<span 
class="ectt-1200">(loi</span>&#x00A0;<span 
class="ectt-1200">.EQ.</span>&#x00A0;<span 
class="ectt-1200">15)</span>&#x00A0;<span 
class="ectt-1200">THEN</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DO</span>&#x00A0;<span 
class="ectt-1200">140,</span>&#x00A0;<span 
class="ectt-1200">i=1,nT</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">l&#x2019;esperance</span>&#x00A0;<span 
class="ectt-1200">d&#x2019;une</span>&#x00A0;<span 
class="ectt-1200">loi</span>&#x00A0;<span 
class="ectt-1200">Logistic</span>&#x00A0;<span 
class="ectt-1200">=</span>&#x00A0;<span 
class="ectt-1200">0</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">donees(i)=G05DCF(a,b)</span>
&#x00A0;<br />&#x00A0;<span 
class="ectt-1200">140</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CONTINUE</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">ENDIF</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">IF</span>&#x00A0;<span 
class="ectt-1200">(loi</span>&#x00A0;<span 
class="ectt-1200">.EQ.</span>&#x00A0;<span 
class="ectt-1200">16)</span>&#x00A0;<span 
class="ectt-1200">THEN</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">l&#x2019;esperance</span>&#x00A0;<span 
class="ectt-1200">d&#x2019;une</span>&#x00A0;<span 
class="ectt-1200">loi</span>&#x00A0;<span 
class="ectt-1200">SC(p,d)</span>&#x00A0;<span 
class="ectt-1200">=</span>&#x00A0;<span 
class="ectt-1200">0</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CALL</span>&#x00A0;<span 
class="ectt-1200">rSC(loi16p,loi16d,nT,donees)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">ENDIF</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">IF</span>&#x00A0;<span 
class="ectt-1200">(loi</span>&#x00A0;<span 
class="ectt-1200">.EQ.</span>&#x00A0;<span 
class="ectt-1200">17)</span>&#x00A0;<span 
class="ectt-1200">THEN</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CALL</span>&#x00A0;<span 
class="ectt-1200">rLC(loi17p,loi17m,nT,donees)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DO</span>&#x00A0;<span 
class="ectt-1200">150,</span>&#x00A0;<span 
class="ectt-1200">i=1,nT</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">donees(i)=donees(i)</span>&#x00A0;<span 
class="ectt-1200">-loi17p*loi17m</span>
&#x00A0;<br />&#x00A0;<span 
class="ectt-1200">150</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CONTINUE</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">ENDIF</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">IF</span>&#x00A0;<span 
class="ectt-1200">(loi</span>&#x00A0;<span 
class="ectt-1200">.EQ.</span>&#x00A0;<span 
class="ectt-1200">18)</span>&#x00A0;<span 
class="ectt-1200">THEN</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CALL</span>&#x00A0;<span 
class="ectt-1200">rSB(loi18g,loi18d,nT,donees)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DO</span>&#x00A0;<span 
class="ectt-1200">160,</span>&#x00A0;<span 
class="ectt-1200">i=1,nT</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">donees(i)=donees(i)-EspSB</span>
&#x00A0;<br />&#x00A0;<span 
class="ectt-1200">160</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CONTINUE</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">ENDIF</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">IF</span>&#x00A0;<span 
class="ectt-1200">(loi</span>&#x00A0;<span 
class="ectt-1200">.EQ.</span>&#x00A0;<span 
class="ectt-1200">19)</span>&#x00A0;<span 
class="ectt-1200">THEN</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DO</span>&#x00A0;<span 
class="ectt-1200">170,</span>&#x00A0;<span 
class="ectt-1200">i=1,nT</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">donees(i)=rS(loi19a,loi19b)-EspS</span>
&#x00A0;<br />&#x00A0;<span 
class="ectt-1200">170</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CONTINUE</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">ENDIF</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">ybarre=meanp(nT,donees)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">sigch2=DBLE(0.0)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DO</span>&#x00A0;<span 
class="ectt-1200">180,</span>&#x00A0;<span 
class="ectt-1200">i=1,nT</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">sigch2=sigch2+(donees(i))**2</span>
&#x00A0;<br />&#x00A0;<span 
class="ectt-1200">180</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CONTINUE</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">sigch2=sigch2/(DBLE(nT))</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">much=ybarre</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">-----------------------------------------------------------------------------------------------</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0; <span 
class="ectt-1200">On</span>&#x00A0;<span 
class="ectt-1200">estime</span>&#x00A0;<span 
class="ectt-1200">les</span>&#x00A0;<span 
class="ectt-1200">parametres:</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">-----------------------------------------------------------------------------------------------</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">On</span>&#x00A0;<span 
class="ectt-1200">ecrit</span>&#x00A0;<span 
class="ectt-1200">toutes</span>&#x00A0;<span 
class="ectt-1200">les</span>&#x00A0;<span 
class="ectt-1200">donnees</span>&#x00A0;<span 
class="ectt-1200">dans</span>&#x00A0;<span 
class="ectt-1200">le</span>&#x00A0;<span 
class="ectt-1200">fichier</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(12,200)</span>&#x00A0;<span 
class="ectt-1200">sigch2,</span>&#x00A0;<span 
class="ectt-1200">donees</span>
&#x00A0;<br />&#x00A0;<span 
class="ectt-1200">200</span>&#x00A0;&#x00A0;<span 
class="ectt-1200">FORMAT(SP,51D20.12)</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">**</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">FIN</span>&#x00A0;<span 
class="ectt-1200">DE</span>&#x00A0;<span 
class="ectt-1200">LA</span>&#x00A0;<span 
class="ectt-1200">BOUCLE</span>

&#x00A0;<br />&#x00A0;<span 
class="ectt-1200">1000</span>&#x00A0;&#x00A0;<span 
class="ectt-1200">CONTINUE</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CLOSE(UNIT=12)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">S2=X05BAF()</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CPTIME=S2-S1</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">OPEN(UNIT=14,</span>&#x00A0;<span 
class="ectt-1200">FILE=paramf</span>&#x00A0;<span 
class="ectt-1200">,</span>&#x00A0;<span 
class="ectt-1200">STATUS=&#x2019;NEW&#x2019;</span>&#x00A0;<span 
class="ectt-1200">)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(14,*)</span>&#x00A0;<span 
class="ectt-1200">&#x2019;Fichier</span>&#x00A0;<span 
class="ectt-1200">&#x2019;//</span>&#x00A0;<span 
class="ectt-1200">paramf</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(14,*)</span>&#x00A0;<span 
class="ectt-1200">&#x2019;p=&#x2019;,p</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(14,*)</span>&#x00A0;<span 
class="ectt-1200">&#x2019;q=&#x2019;,q</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(14,*)</span>&#x00A0;<span 
class="ectt-1200">&#x2019;nT=&#x2019;,nT</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(14,*)</span>&#x00A0;<span 
class="ectt-1200">&#x2019;loi=&#x2019;,loi</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(14,*)</span>&#x00A0;<span 
class="ectt-1200">&#x2019;nbcle=&#x2019;,nbcle</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(14,*)</span>&#x00A0;<span 
class="ectt-1200">&#x2019;sigma=&#x2019;,sigma</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(14,*)</span>&#x00A0;<span 
class="ectt-1200">&#x2019;mu=&#x2019;,</span>&#x00A0;<span 
class="ectt-1200">mu</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(14,*)</span>&#x00A0;<span 
class="ectt-1200">&#x2019;df1=&#x2019;,df1</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(14,*)</span>&#x00A0;<span 
class="ectt-1200">&#x2019;df2=&#x2019;,df2</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(14,*)</span>&#x00A0;<span 
class="ectt-1200">&#x2019;lambda=&#x2019;,lambda</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(14,*)</span>&#x00A0;<span 
class="ectt-1200">&#x2019;loi5b=&#x2019;,loi5b</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(14,*)</span>&#x00A0;<span 
class="ectt-1200">&#x2019;loi5k=&#x2019;,loi5k</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(14,*)</span>&#x00A0;<span 
class="ectt-1200">&#x2019;loi6p=&#x2019;,loi6p</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(14,*)</span>&#x00A0;<span 
class="ectt-1200">&#x2019;loi6q=&#x2019;,loi6q</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(14,*)</span>&#x00A0;<span 
class="ectt-1200">&#x2019;loi7g=&#x2019;,loi7g</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(14,*)</span>&#x00A0;<span 
class="ectt-1200">&#x2019;loi7d=&#x2019;,loi7d</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(14,*)</span>&#x00A0;<span 
class="ectt-1200">&#x2019;loi8p=&#x2019;,loi8p</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(14,*)</span>&#x00A0;<span 
class="ectt-1200">&#x2019;loi8q=&#x2019;,loi8q</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(14,*)</span>&#x00A0;<span 
class="ectt-1200">&#x2019;loi9a=&#x2019;,loi9a</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(14,*)</span>&#x00A0;<span 
class="ectt-1200">&#x2019;loi9b=&#x2019;,loi9b</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(14,*)</span>&#x00A0;<span 
class="ectt-1200">&#x2019;loi10l=&#x2019;,loi10l</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(14,*)</span>&#x00A0;<span 
class="ectt-1200">&#x2019;loi10b=&#x2019;,loi10b</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(14,*)</span>&#x00A0;<span 
class="ectt-1200">&#x2019;loi11a=&#x2019;,loi11a</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(14,*)</span>&#x00A0;<span 
class="ectt-1200">&#x2019;loi11k=&#x2019;,loi11k</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(14,*)</span>&#x00A0;<span 
class="ectt-1200">&#x2019;loi13g=&#x2019;,loi13g</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(14,*)</span>&#x00A0;<span 
class="ectt-1200">&#x2019;loi13d=&#x2019;,loi13d</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(14,*)</span>&#x00A0;<span 
class="ectt-1200">&#x2019;loi14l=&#x2019;,loi14l</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(14,*)</span>&#x00A0;<span 
class="ectt-1200">&#x2019;loi16p=&#x2019;,loi16p</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(14,*)</span>&#x00A0;<span 
class="ectt-1200">&#x2019;loi16d=&#x2019;,loi16d</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(14,*)</span>&#x00A0;<span 
class="ectt-1200">&#x2019;loi17p=&#x2019;,loi17p</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(14,*)</span>&#x00A0;<span 
class="ectt-1200">&#x2019;loi17m=&#x2019;,loi17m</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(14,*)</span>&#x00A0;<span 
class="ectt-1200">&#x2019;loi18g=&#x2019;,loi18g</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(14,*)</span>&#x00A0;<span 
class="ectt-1200">&#x2019;loi18d=&#x2019;,loi18d</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(14,*)</span>&#x00A0;<span 
class="ectt-1200">&#x2019;loi19a=&#x2019;,loi19a</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(14,*)</span>&#x00A0;<span 
class="ectt-1200">&#x2019;loi19b=&#x2019;,loi19b</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(14,*)</span>&#x00A0;<span 
class="ectt-1200">&#x2019;Precision</span>&#x00A0;<span 
class="ectt-1200">machine=&#x2019;,</span>&#x00A0;<span 
class="ectt-1200">preci</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(14,*)</span>&#x00A0;<span 
class="ectt-1200">&#x2019;QUELQUES</span>&#x00A0;<span 
class="ectt-1200">RESULTATS:&#x2019;</span>

&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(14,*)</span>&#x00A0;<span 
class="ectt-1200">&#x2019;Temps</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">calcul</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">creation</span>&#x00A0;<span 
class="ectt-1200">des</span>&#x00A0;<span 
class="ectt-1200">donnees:&#x2019;,</span>&#x00A0;<span 
class="ectt-1200">CPTIME</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CLOSE(UNIT=14)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">END</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">---------------------------------------------------------------------</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Fin</span>&#x00A0;<span 
class="ectt-1200">du</span>&#x00A0;<span 
class="ectt-1200">programme</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">---------------------------------------------------------------------</span>
   </div> <span 
class="ecbx-1200">Programmes creerdat_AR.f </span><div class="verbatiminput">
<span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Debut-Commentaires</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Nom</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">la</span>&#x00A0;<span 
class="ectt-1200">sous-routine:</span>&#x00A0;<span 
class="ectt-1200">cdatAR</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Entrees:</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">-------</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">voir</span>&#x00A0;<span 
class="ectt-1200">plus</span>&#x00A0;<span 
class="ectt-1200">bas</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Sorties:</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">-------</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Le</span>&#x00A0;<span 
class="ectt-1200">fichier</span>&#x00A0;<span 
class="ectt-1200">data.txt</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Description:</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">-----------</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Modele</span>&#x00A0;<span 
class="ectt-1200">AR(p)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Ce</span>&#x00A0;<span 
class="ectt-1200">programme</span>&#x00A0;<span 
class="ectt-1200">cree</span>&#x00A0;<span 
class="ectt-1200">le</span>&#x00A0;<span 
class="ectt-1200">fichier</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">donnees</span>&#x00A0;<span 
class="ectt-1200">data.txt</span>&#x00A0;<span 
class="ectt-1200">qui</span>&#x00A0;<span 
class="ectt-1200">contient,</span>&#x00A0;<span 
class="ectt-1200">en</span>&#x00A0;<span 
class="ectt-1200">ligne:</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">sigch2</span>&#x00A0;<span 
class="ectt-1200">et</span>&#x00A0;<span 
class="ectt-1200">epschap</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Utilisation</span>&#x00A0;<span 
class="ectt-1200">dans</span>&#x00A0;<span 
class="ectt-1200">une</span>&#x00A0;<span 
class="ectt-1200">fonction</span>&#x00A0;<span 
class="ectt-1200">main:</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">-------------------------------------</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PROGRAM</span>&#x00A0;<span 
class="ectt-1200">main</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Les</span>&#x00A0;<span 
class="ectt-1200">**</span>&#x00A0;<span 
class="ectt-1200">indiquent</span>&#x00A0;<span 
class="ectt-1200">les</span>&#x00A0;<span 
class="ectt-1200">endroits</span>&#x00A0;<span 
class="ectt-1200">ou</span>&#x00A0;<span 
class="ectt-1200">des</span>&#x00A0;<span 
class="ectt-1200">changements</span>&#x00A0;<span 
class="ectt-1200">peuvent</span>&#x00A0;<span 
class="ectt-1200">etre</span>&#x00A0;<span 
class="ectt-1200">necessaires</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Nom</span>&#x00A0;<span 
class="ectt-1200">du</span>&#x00A0;<span 
class="ectt-1200">fichier</span>&#x00A0;<span 
class="ectt-1200">en</span>&#x00A0;<span 
class="ectt-1200">sortie</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">**</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CHARACTER</span>&#x00A0;<span 
class="ectt-1200">dataf*8</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Nom</span>&#x00A0;<span 
class="ectt-1200">du</span>&#x00A0;<span 
class="ectt-1200">fichier</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">parametres</span>&#x00A0;<span 
class="ectt-1200">en</span>&#x00A0;<span 
class="ectt-1200">sortie</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">**</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CHARACTER</span>&#x00A0;<span 
class="ectt-1200">paramf*17</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Nombre</span>&#x00A0;<span 
class="ectt-1200">d&#x2019;echantillons</span>&#x00A0;<span 
class="ectt-1200">souhaites</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">**</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">nbcle</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(nbcle=10)</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">rang</span>&#x00A0;<span 
class="ectt-1200">d&#x2019;arret</span>&#x00A0;<span 
class="ectt-1200">dans</span>&#x00A0;<span 
class="ectt-1200">la</span>&#x00A0;<span 
class="ectt-1200">random</span>&#x00A0;<span 
class="ectt-1200">shock</span>&#x00A0;<span 
class="ectt-1200">method</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">Burn</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">**</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">marret</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(marret=200)</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Induction</span>&#x00A0;<span 
class="ectt-1200">period</span>&#x00A0;<span 
class="ectt-1200">dans</span>&#x00A0;<span 
class="ectt-1200">la</span>&#x00A0;<span 
class="ectt-1200">methode</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">Burn</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">**</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">Mind</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(Mind=200)</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">ecart-type</span>&#x00A0;<span 
class="ectt-1200">des</span>&#x00A0;<span 
class="ectt-1200">erreurs</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">**</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">sigma</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(sigma=1)</span>

&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">moyenne</span>&#x00A0;<span 
class="ectt-1200">dans</span>&#x00A0;<span 
class="ectt-1200">mon</span>&#x00A0;<span 
class="ectt-1200">modele</span>&#x00A0;<span 
class="ectt-1200">AR</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">**</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">mu</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(mu=0)</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">parametre</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">la</span>&#x00A0;<span 
class="ectt-1200">khi-deux</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">**</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">df1</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(df1=2)</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">parametre</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">la</span>&#x00A0;<span 
class="ectt-1200">student</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">**</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">df2</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(df2=5)</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">parametre</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">la</span>&#x00A0;<span 
class="ectt-1200">skew-normale</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">**</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">lambda</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(lambda=2.0)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">loi5b,</span>&#x00A0;<span 
class="ectt-1200">loi5k,</span>&#x00A0;<span 
class="ectt-1200">loi6p,</span>&#x00A0;<span 
class="ectt-1200">loi6q</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">loi7g,</span>&#x00A0;<span 
class="ectt-1200">loi7d,</span>&#x00A0;<span 
class="ectt-1200">loi8p,</span>&#x00A0;<span 
class="ectt-1200">loi8q,</span>&#x00A0;<span 
class="ectt-1200">loi9a,</span>&#x00A0;<span 
class="ectt-1200">loi9b</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">loi10b,</span>&#x00A0;<span 
class="ectt-1200">loi10l,</span>&#x00A0;<span 
class="ectt-1200">loi11a,</span>&#x00A0;<span 
class="ectt-1200">loi11k,</span>&#x00A0;<span 
class="ectt-1200">loi13g,</span>&#x00A0;<span 
class="ectt-1200">loi13d</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">loi14l,</span>&#x00A0;<span 
class="ectt-1200">loi16p,</span>&#x00A0;<span 
class="ectt-1200">loi16d,</span>&#x00A0;<span 
class="ectt-1200">loi17p,</span>&#x00A0;<span 
class="ectt-1200">loi17m</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">loi18g,</span>&#x00A0;<span 
class="ectt-1200">loi18d,</span>&#x00A0;<span 
class="ectt-1200">loi19a,</span>&#x00A0;<span 
class="ectt-1200">loi19b</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(loi18g=1.0,loi18d=1.0,</span>&#x00A0;<span 
class="ectt-1200">loi19a=1.1,</span>&#x00A0;<span 
class="ectt-1200">loi19b=0.5)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(loi16p=0.2,loi16d=5.0,</span>&#x00A0;<span 
class="ectt-1200">loi17p=0.2,loi17m=3.0)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(loi10b=0.2,loi10l=1,</span>&#x00A0;<span 
class="ectt-1200">loi11a=2.0,loi11k=0.5)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(loi13g=1.0,loi13d=1.0,</span>&#x00A0;<span 
class="ectt-1200">loi14l=0.7)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(loi7g=0,loi7d=1,</span>&#x00A0;<span 
class="ectt-1200">loi8p=2,</span>&#x00A0;<span 
class="ectt-1200">loi8q=2,</span>&#x00A0;<span 
class="ectt-1200">loi9a=0,loi9b=2)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(loi5b=1,</span>&#x00A0;<span 
class="ectt-1200">loi5k=1.8,</span>&#x00A0;<span 
class="ectt-1200">loi6p=4,</span>&#x00A0;<span 
class="ectt-1200">loi6q=1)</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">loi</span>&#x00A0;<span 
class="ectt-1200">des</span>&#x00A0;<span 
class="ectt-1200">erreurs</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">**</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">si</span>&#x00A0;<span 
class="ectt-1200">loi=0</span>&#x00A0;<span 
class="ectt-1200">:</span>&#x00A0;<span 
class="ectt-1200">Normale(0,sigma&#x0302;2)</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">si</span>&#x00A0;<span 
class="ectt-1200">loi=1</span>&#x00A0;<span 
class="ectt-1200">:</span>&#x00A0;<span 
class="ectt-1200">Khi2</span>&#x00A0;<span 
class="ectt-1200">centree</span>&#x00A0;<span 
class="ectt-1200">(df1)</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">si</span>&#x00A0;<span 
class="ectt-1200">loi=2</span>&#x00A0;<span 
class="ectt-1200">:</span>&#x00A0;<span 
class="ectt-1200">Student</span>&#x00A0;<span 
class="ectt-1200">(df2)</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">si</span>&#x00A0;<span 
class="ectt-1200">loi=3</span>&#x00A0;<span 
class="ectt-1200">:</span>&#x00A0;<span 
class="ectt-1200">Skew-Normale(lambda)</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">si</span>&#x00A0;<span 
class="ectt-1200">loi=4</span>&#x00A0;<span 
class="ectt-1200">:</span>&#x00A0;<span 
class="ectt-1200">Laplace</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">si</span>&#x00A0;<span 
class="ectt-1200">loi=5</span>&#x00A0;<span 
class="ectt-1200">:</span>&#x00A0;<span 
class="ectt-1200">Weibull(b,k)</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">si</span>&#x00A0;<span 
class="ectt-1200">loi=6</span>&#x00A0;<span 
class="ectt-1200">:</span>&#x00A0;<span 
class="ectt-1200">Gamma(p,q)</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">si</span>&#x00A0;<span 
class="ectt-1200">loi=7</span>&#x00A0;<span 
class="ectt-1200">:</span>&#x00A0;<span 
class="ectt-1200">Log-Normale(g,d)</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">si</span>&#x00A0;<span 
class="ectt-1200">loi=8</span>&#x00A0;<span 
class="ectt-1200">:</span>&#x00A0;<span 
class="ectt-1200">Beta(p,q)</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">si</span>&#x00A0;<span 
class="ectt-1200">loi=9</span>&#x00A0;<span 
class="ectt-1200">:</span>&#x00A0;<span 
class="ectt-1200">Uniform(a,b)</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">si</span>&#x00A0;<span 
class="ectt-1200">loi=10</span>&#x00A0;<span 
class="ectt-1200">:</span>&#x00A0;<span 
class="ectt-1200">Shifted</span>&#x00A0;<span 
class="ectt-1200">exp</span>&#x00A0;<span 
class="ectt-1200">(l,b)</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">si</span>&#x00A0;<span 
class="ectt-1200">loi=11</span>&#x00A0;<span 
class="ectt-1200">:</span>&#x00A0;<span 
class="ectt-1200">Pareto(a,k)</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">si</span>&#x00A0;<span 
class="ectt-1200">loi=12</span>&#x00A0;<span 
class="ectt-1200">:</span>&#x00A0;<span 
class="ectt-1200">Shifted</span>&#x00A0;<span 
class="ectt-1200">Pareto</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">si</span>&#x00A0;<span 
class="ectt-1200">loi=13</span>&#x00A0;<span 
class="ectt-1200">:</span>&#x00A0;<span 
class="ectt-1200">SU(g,d)</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">si</span>&#x00A0;<span 
class="ectt-1200">loi=14</span>&#x00A0;<span 
class="ectt-1200">:</span>&#x00A0;<span 
class="ectt-1200">TU(l)</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">si</span>&#x00A0;<span 
class="ectt-1200">loi=15</span>&#x00A0;<span 
class="ectt-1200">:</span>&#x00A0;<span 
class="ectt-1200">Logistic</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">si</span>&#x00A0;<span 
class="ectt-1200">loi=16</span>&#x00A0;<span 
class="ectt-1200">:</span>&#x00A0;<span 
class="ectt-1200">SC(p,d)</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">si</span>&#x00A0;<span 
class="ectt-1200">loi=17</span>&#x00A0;<span 
class="ectt-1200">:</span>&#x00A0;<span 
class="ectt-1200">LC(p,m)</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">si</span>&#x00A0;<span 
class="ectt-1200">loi=18</span>&#x00A0;<span 
class="ectt-1200">:</span>&#x00A0;<span 
class="ectt-1200">SB(g,d)</span>

&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">si</span>&#x00A0;<span 
class="ectt-1200">loi=19</span>&#x00A0;<span 
class="ectt-1200">:</span>&#x00A0;<span 
class="ectt-1200">S(a,b)</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">**</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">loi</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(loi=0)</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">the</span>&#x00A0;<span 
class="ectt-1200">number</span>&#x00A0;<span 
class="ectt-1200">of</span>&#x00A0;<span 
class="ectt-1200">autoregressive</span>&#x00A0;<span 
class="ectt-1200">coefficients</span>&#x00A0;<span 
class="ectt-1200">supplied</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">**</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">p</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(p=2)</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">the</span>&#x00A0;<span 
class="ectt-1200">number</span>&#x00A0;<span 
class="ectt-1200">of</span>&#x00A0;<span 
class="ectt-1200">moving-average</span>&#x00A0;<span 
class="ectt-1200">coefficients</span>&#x00A0;<span 
class="ectt-1200">supplied:</span>&#x00A0;<span 
class="ectt-1200">q=0</span>&#x00A0;<span 
class="ectt-1200">puisque</span>&#x00A0;<span 
class="ectt-1200">modele</span>&#x00A0;<span 
class="ectt-1200">AR(p)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">q</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(q=0)</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">rm=max(p,q)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">rm</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(rm=p)</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">nombre</span>&#x00A0;<span 
class="ectt-1200">d&#x2019;observations</span>&#x00A0;<span 
class="ectt-1200">dans</span>&#x00A0;<span 
class="ectt-1200">mon</span>&#x00A0;<span 
class="ectt-1200">echantillon</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">**</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Si</span>&#x00A0;<span 
class="ectt-1200">on</span>&#x00A0;<span 
class="ectt-1200">change</span>&#x00A0;<span 
class="ectt-1200">la</span>&#x00A0;<span 
class="ectt-1200">valeur</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">nT,</span>&#x00A0;<span 
class="ectt-1200">il</span>&#x00A0;<span 
class="ectt-1200">faut</span>&#x00A0;<span 
class="ectt-1200">aller</span>&#x00A0;<span 
class="ectt-1200">modifier</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">la</span>&#x00A0;<span 
class="ectt-1200">valeur</span>&#x00A0;<span 
class="ectt-1200">dans</span>&#x00A0;<span 
class="ectt-1200">FORMAT</span>&#x00A0;<span 
class="ectt-1200">a</span>&#x00A0;<span 
class="ectt-1200">la</span>&#x00A0;<span 
class="ectt-1200">fin</span>&#x00A0;<span 
class="ectt-1200">du</span>&#x00A0;<span 
class="ectt-1200">programme</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">nT</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(nT=100)</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">the</span>&#x00A0;<span 
class="ectt-1200">autoregressive</span>&#x00A0;<span 
class="ectt-1200">coefficients</span>&#x00A0;<span 
class="ectt-1200">of</span>&#x00A0;<span 
class="ectt-1200">the</span>&#x00A0;<span 
class="ectt-1200">model</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">phi(2)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">phich(p)</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">vecteur</span>&#x00A0;<span 
class="ectt-1200">des</span>&#x00A0;<span 
class="ectt-1200">donnees</span>&#x00A0;<span 
class="ectt-1200">cree</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">donees(nT)</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Parametres</span>&#x00A0;<span 
class="ectt-1200">pour</span>&#x00A0;<span 
class="ectt-1200">G05EGF:</span>&#x00A0;<span 
class="ectt-1200">simulation</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">the</span>&#x00A0;<span 
class="ectt-1200">autoregressive</span>&#x00A0;<span 
class="ectt-1200">coefficients</span>&#x00A0;<span 
class="ectt-1200">of</span>&#x00A0;<span 
class="ectt-1200">the</span>&#x00A0;<span 
class="ectt-1200">model=phi</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Input</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">A(p)</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">the</span>&#x00A0;<span 
class="ectt-1200">moving-average</span>&#x00A0;<span 
class="ectt-1200">coefficients</span>&#x00A0;<span 
class="ectt-1200">of</span>&#x00A0;<span 
class="ectt-1200">the</span>&#x00A0;<span 
class="ectt-1200">model=teta</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Input</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">B(q+1)</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">le</span>&#x00A0;<span 
class="ectt-1200">vecteur</span>&#x00A0;<span 
class="ectt-1200">des</span>&#x00A0;<span 
class="ectt-1200">innovations</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Output</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">R(nT)</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Parametres</span>&#x00A0;<span 
class="ectt-1200">pour</span>&#x00A0;<span 
class="ectt-1200">G13DCF:</span>&#x00A0;<span 
class="ectt-1200">estimation</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">the</span>&#x00A0;<span 
class="ectt-1200">number</span>&#x00A0;<span 
class="ectt-1200">of</span>&#x00A0;<span 
class="ectt-1200">initial</span>&#x00A0;<span 
class="ectt-1200">parameter</span>&#x00A0;<span 
class="ectt-1200">estimates</span>&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Input</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">**</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">mettre</span>&#x00A0;<span 
class="ectt-1200">p+q+1</span>&#x00A0;<span 
class="ectt-1200">si</span>&#x00A0;<span 
class="ectt-1200">MEAN=.TRUE.</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">NPAR</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(NPAR=p+q)</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">first</span>&#x00A0;<span 
class="ectt-1200">dimension</span>&#x00A0;<span 
class="ectt-1200">of</span>&#x00A0;<span 
class="ectt-1200">the</span>&#x00A0;<span 
class="ectt-1200">array</span>&#x00A0;<span 
class="ectt-1200">CM</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Input</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">**</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">mettre</span>&#x00A0;<span 
class="ectt-1200">p+q+1</span>&#x00A0;<span 
class="ectt-1200">si</span>&#x00A0;<span 
class="ectt-1200">MEAN=.TRUE.</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">ICM</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(ICM=p+q)</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Workspace</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">IW(NPAR+rm+3)</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">initial</span>&#x00A0;<span 
class="ectt-1200">parameter</span>&#x00A0;<span 
class="ectt-1200">estimates</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Input/Output</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">PAR(NPAR)</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">W(i,t)</span>&#x00A0;<span 
class="ectt-1200">must</span>&#x00A0;<span 
class="ectt-1200">be</span>&#x00A0;<span 
class="ectt-1200">set</span>&#x00A0;<span 
class="ectt-1200">equal</span>&#x00A0;<span 
class="ectt-1200">to</span>&#x00A0;<span 
class="ectt-1200">the</span>&#x00A0;<span 
class="ectt-1200">observation</span>&#x00A0;<span 
class="ectt-1200">at</span>&#x00A0;<span 
class="ectt-1200">time</span>&#x00A0;<span 
class="ectt-1200">t</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Input</span>

&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">of</span>&#x00A0;<span 
class="ectt-1200">the</span>&#x00A0;<span 
class="ectt-1200">ith</span>&#x00A0;<span 
class="ectt-1200">series</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">W(1,nT)</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">the</span>&#x00A0;<span 
class="ectt-1200">accuracy</span>&#x00A0;<span 
class="ectt-1200">to</span>&#x00A0;<span 
class="ectt-1200">which</span>&#x00A0;<span 
class="ectt-1200">the</span>&#x00A0;<span 
class="ectt-1200">solution</span>&#x00A0;<span 
class="ectt-1200">in</span>&#x00A0;<span 
class="ectt-1200">PAR</span>&#x00A0;<span 
class="ectt-1200">and</span>&#x00A0;<span 
class="ectt-1200">QQ</span>&#x00A0;<span 
class="ectt-1200">is</span>&#x00A0;<span 
class="ectt-1200">required</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Input</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">**</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">CGETOL</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(CGETOL=0.0001)</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">residual</span>&#x00A0;<span 
class="ectt-1200">at</span>&#x00A0;<span 
class="ectt-1200">time</span>&#x00A0;<span 
class="ectt-1200">t</span>&#x00A0;<span 
class="ectt-1200">for</span>&#x00A0;<span 
class="ectt-1200">series</span>&#x00A0;<span 
class="ectt-1200">i,</span>&#x00A0;<span 
class="ectt-1200">for</span>&#x00A0;<span 
class="ectt-1200">i</span>&#x00A0;<span 
class="ectt-1200">=</span>&#x00A0;<span 
class="ectt-1200">1,2,...,k</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Output</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">V(1,nT)</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">estimated</span>&#x00A0;<span 
class="ectt-1200">first</span>&#x00A0;<span 
class="ectt-1200">derivative</span>&#x00A0;<span 
class="ectt-1200">of</span>&#x00A0;<span 
class="ectt-1200">the</span>&#x00A0;<span 
class="ectt-1200">log-likelihood</span>&#x00A0;<span 
class="ectt-1200">function</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Output</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">G(NPAR)</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">estimate</span>&#x00A0;<span 
class="ectt-1200">of</span>&#x00A0;<span 
class="ectt-1200">the</span>&#x00A0;<span 
class="ectt-1200">correlation</span>&#x00A0;<span 
class="ectt-1200">coefficient</span>&#x00A0;<span 
class="ectt-1200">between</span>&#x00A0;<span 
class="ectt-1200">the</span>&#x00A0;<span 
class="ectt-1200">ith</span>&#x00A0;<span 
class="ectt-1200">and</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Output</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">jth</span>&#x00A0;<span 
class="ectt-1200">elements</span>&#x00A0;<span 
class="ectt-1200">in</span>&#x00A0;<span 
class="ectt-1200">the</span>&#x00A0;<span 
class="ectt-1200">PAR</span>&#x00A0;<span 
class="ectt-1200">array</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">CM(ICM,NPAR)</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Workspace</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">WORK((5+3*nT+2*rm)+(2*p+q+2*rm*(rm+2)+9)+</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">+</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">(NPAR+1)*(5*(NPAR+1)+29)/2+(rm+1)**2)</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">MEAN</span>&#x00A0;<span 
class="ectt-1200">must</span>&#x00A0;<span 
class="ectt-1200">be</span>&#x00A0;<span 
class="ectt-1200">set</span>&#x00A0;<span 
class="ectt-1200">to</span>&#x00A0;<span 
class="ectt-1200">.TRUE.</span>&#x00A0;<span 
class="ectt-1200">if</span>&#x00A0;<span 
class="ectt-1200">components</span>&#x00A0;<span 
class="ectt-1200">of</span>&#x00A0;<span 
class="ectt-1200">mu</span>&#x00A0;<span 
class="ectt-1200">are</span>&#x00A0;<span 
class="ectt-1200">to</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Input</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">**</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">be</span>&#x00A0;<span 
class="ectt-1200">estimated</span>&#x00A0;<span 
class="ectt-1200">and</span>&#x00A0;<span 
class="ectt-1200">.FALSE.</span>&#x00A0;<span 
class="ectt-1200">if</span>&#x00A0;<span 
class="ectt-1200">all</span>&#x00A0;<span 
class="ectt-1200">elements</span>&#x00A0;<span 
class="ectt-1200">of</span>&#x00A0;<span 
class="ectt-1200">mu</span>&#x00A0;<span 
class="ectt-1200">are</span>&#x00A0;<span 
class="ectt-1200">to</span>&#x00A0;<span 
class="ectt-1200">be</span>&#x00A0;<span 
class="ectt-1200">taken</span>&#x00A0;<span 
class="ectt-1200">as</span>&#x00A0;<span 
class="ectt-1200">zero</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">LOGICAL</span>&#x00A0;<span 
class="ectt-1200">MEAN</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(MEAN=.FALSE.)</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARHLD(i)</span>&#x00A0;<span 
class="ectt-1200">must</span>&#x00A0;<span 
class="ectt-1200">be</span>&#x00A0;<span 
class="ectt-1200">set</span>&#x00A0;<span 
class="ectt-1200">to</span>&#x00A0;<span 
class="ectt-1200">.TRUE.,</span>&#x00A0;<span 
class="ectt-1200">if</span>&#x00A0;<span 
class="ectt-1200">PAR(i)</span>&#x00A0;<span 
class="ectt-1200">is</span>&#x00A0;<span 
class="ectt-1200">to</span>&#x00A0;<span 
class="ectt-1200">be</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Input</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">held</span>&#x00A0;<span 
class="ectt-1200">constant</span>&#x00A0;<span 
class="ectt-1200">at</span>&#x00A0;<span 
class="ectt-1200">its</span>&#x00A0;<span 
class="ectt-1200">input</span>&#x00A0;<span 
class="ectt-1200">value</span>&#x00A0;<span 
class="ectt-1200">and</span>&#x00A0;<span 
class="ectt-1200">.FALSE.,</span>&#x00A0;<span 
class="ectt-1200">if</span>&#x00A0;<span 
class="ectt-1200">PAR(i)</span>&#x00A0;<span 
class="ectt-1200">is</span>&#x00A0;<span 
class="ectt-1200">a</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">free</span>&#x00A0;<span 
class="ectt-1200">parameter,</span>&#x00A0;<span 
class="ectt-1200">for</span>&#x00A0;<span 
class="ectt-1200">i</span>&#x00A0;<span 
class="ectt-1200">=</span>&#x00A0;<span 
class="ectt-1200">1,2,...,NPAR.</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">LOGICAL</span>&#x00A0;<span 
class="ectt-1200">PARHLD(NPAR)</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">EXACT</span>&#x00A0;<span 
class="ectt-1200">must</span>&#x00A0;<span 
class="ectt-1200">be</span>&#x00A0;<span 
class="ectt-1200">set</span>&#x00A0;<span 
class="ectt-1200">equal</span>&#x00A0;<span 
class="ectt-1200">to</span>&#x00A0;<span 
class="ectt-1200">.TRUE.</span>&#x00A0;<span 
class="ectt-1200">if</span>&#x00A0;<span 
class="ectt-1200">the</span>&#x00A0;<span 
class="ectt-1200">user</span>&#x00A0;<span 
class="ectt-1200">wishes</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Input</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">**</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">the</span>&#x00A0;<span 
class="ectt-1200">routine</span>&#x00A0;<span 
class="ectt-1200">to</span>&#x00A0;<span 
class="ectt-1200">compute</span>&#x00A0;<span 
class="ectt-1200">exact</span>&#x00A0;<span 
class="ectt-1200">maximum</span>&#x00A0;<span 
class="ectt-1200">likelihood</span>&#x00A0;<span 
class="ectt-1200">estimates.</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">EXACT</span>&#x00A0;<span 
class="ectt-1200">must</span>&#x00A0;<span 
class="ectt-1200">be</span>&#x00A0;<span 
class="ectt-1200">set</span>&#x00A0;<span 
class="ectt-1200">equal</span>&#x00A0;<span 
class="ectt-1200">to</span>&#x00A0;<span 
class="ectt-1200">.FALSE.</span>&#x00A0;<span 
class="ectt-1200">if</span>&#x00A0;<span 
class="ectt-1200">only</span>&#x00A0;<span 
class="ectt-1200">conditional</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">likelihood</span>&#x00A0;<span 
class="ectt-1200">estimates</span>&#x00A0;<span 
class="ectt-1200">are</span>&#x00A0;<span 
class="ectt-1200">required.</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">LOGICAL</span>&#x00A0;<span 
class="ectt-1200">EXACT</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Contient</span>&#x00A0;<span 
class="ectt-1200">les</span>&#x00A0;<span 
class="ectt-1200">p</span>&#x00A0;<span 
class="ectt-1200">donnees</span>&#x00A0;<span 
class="ectt-1200">initiales</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">la</span>&#x00A0;<span 
class="ectt-1200">serie</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">Wtip(p)</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">marret+p</span>&#x00A0;<span 
class="ectt-1200">innovations</span>&#x00A0;<span 
class="ectt-1200">genere</span>&#x00A0;<span 
class="ectt-1200">par</span>&#x00A0;<span 
class="ectt-1200">shock.f</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">shocks(marret+p)</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">defini</span>&#x00A0;<span 
class="ectt-1200">dans</span>&#x00A0;<span 
class="ectt-1200">Burn,</span>&#x00A0;<span 
class="ectt-1200">calcule</span>&#x00A0;<span 
class="ectt-1200">par</span>&#x00A0;<span 
class="ectt-1200">ARpsi.f</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">psi(marret+1)</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">utile</span>&#x00A0;<span 
class="ectt-1200">dans</span>&#x00A0;<span 
class="ectt-1200">simAR.f</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">phi2(marret)</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">utile</span>&#x00A0;<span 
class="ectt-1200">dans</span>&#x00A0;<span 
class="ectt-1200">simAR.f</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">YtpMn(p+Mind+nT)</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">utile</span>&#x00A0;<span 
class="ectt-1200">dans</span>&#x00A0;<span 
class="ectt-1200">simAR.f</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">Atn(nT+Mind),EspSU,EspSB,EspS</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">the</span>&#x00A0;<span 
class="ectt-1200">mean</span>&#x00A0;<span 
class="ectt-1200">of</span>&#x00A0;<span 
class="ectt-1200">the</span>&#x00A0;<span 
class="ectt-1200">time</span>&#x00A0;<span 
class="ectt-1200">series</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Input</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">E</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(E=mu)</span>

&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">the</span>&#x00A0;<span 
class="ectt-1200">number</span>&#x00A0;<span 
class="ectt-1200">of</span>&#x00A0;<span 
class="ectt-1200">autoregressive</span>&#x00A0;<span 
class="ectt-1200">coefficients</span>&#x00A0;<span 
class="ectt-1200">supplied</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Input</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">NA</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(NA=p)</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">the</span>&#x00A0;<span 
class="ectt-1200">number</span>&#x00A0;<span 
class="ectt-1200">of</span>&#x00A0;<span 
class="ectt-1200">moving-average</span>&#x00A0;<span 
class="ectt-1200">coefficients</span>&#x00A0;<span 
class="ectt-1200">supplied</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Input</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">NB</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(NB=q+1)</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">the</span>&#x00A0;<span 
class="ectt-1200">dimension</span>&#x00A0;<span 
class="ectt-1200">of</span>&#x00A0;<span 
class="ectt-1200">the</span>&#x00A0;<span 
class="ectt-1200">array</span>&#x00A0;<span 
class="ectt-1200">R:</span>&#x00A0;<span 
class="ectt-1200">vecteur</span>&#x00A0;<span 
class="ectt-1200">des</span>&#x00A0;<span 
class="ectt-1200">innovations</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Input</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">NR</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(NR=nT)</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">the</span>&#x00A0;<span 
class="ectt-1200">number</span>&#x00A0;<span 
class="ectt-1200">of</span>&#x00A0;<span 
class="ectt-1200">observed</span>&#x00A0;<span 
class="ectt-1200">time</span>&#x00A0;<span 
class="ectt-1200">series,</span>&#x00A0;<span 
class="ectt-1200">k</span>&#x00A0;&#x00A0;<span 
class="ectt-1200">(chez</span>&#x00A0;<span 
class="ectt-1200">moi</span>&#x00A0;<span 
class="ectt-1200">k=1)</span>&#x00A0;&#x00A0;<span 
class="ectt-1200">Input</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">K</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(K=1)</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">the</span>&#x00A0;<span 
class="ectt-1200">number</span>&#x00A0;<span 
class="ectt-1200">of</span>&#x00A0;<span 
class="ectt-1200">observations</span>&#x00A0;<span 
class="ectt-1200">in</span>&#x00A0;<span 
class="ectt-1200">each</span>&#x00A0;<span 
class="ectt-1200">time</span>&#x00A0;<span 
class="ectt-1200">series,</span>&#x00A0;<span 
class="ectt-1200">n</span>&#x00A0;<span 
class="ectt-1200">(chez</span>&#x00A0;<span 
class="ectt-1200">moi=nT)</span>&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Input</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">N2</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(N2=nT)</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">the</span>&#x00A0;<span 
class="ectt-1200">number</span>&#x00A0;<span 
class="ectt-1200">of</span>&#x00A0;<span 
class="ectt-1200">AR</span>&#x00A0;<span 
class="ectt-1200">parameter</span>&#x00A0;<span 
class="ectt-1200">matrices,</span>&#x00A0;<span 
class="ectt-1200">p</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Input</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">IP</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(IP=p)</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">the</span>&#x00A0;<span 
class="ectt-1200">number</span>&#x00A0;<span 
class="ectt-1200">of</span>&#x00A0;<span 
class="ectt-1200">MA</span>&#x00A0;<span 
class="ectt-1200">parameter</span>&#x00A0;<span 
class="ectt-1200">matrices,</span>&#x00A0;<span 
class="ectt-1200">q</span>&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Input</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">IQ</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(IQ=q)</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">the</span>&#x00A0;<span 
class="ectt-1200">first</span>&#x00A0;<span 
class="ectt-1200">dimension</span>&#x00A0;<span 
class="ectt-1200">of</span>&#x00A0;<span 
class="ectt-1200">the</span>&#x00A0;<span 
class="ectt-1200">arrays</span>&#x00A0;<span 
class="ectt-1200">QQ,</span>&#x00A0;<span 
class="ectt-1200">W</span>&#x00A0;<span 
class="ectt-1200">and</span>&#x00A0;<span 
class="ectt-1200">V</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Input</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">IK</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(IK=1)</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">the</span>&#x00A0;<span 
class="ectt-1200">maximum</span>&#x00A0;<span 
class="ectt-1200">number</span>&#x00A0;<span 
class="ectt-1200">of</span>&#x00A0;<span 
class="ectt-1200">likelihood</span>&#x00A0;<span 
class="ectt-1200">evaluations</span>&#x00A0;<span 
class="ectt-1200">to</span>&#x00A0;<span 
class="ectt-1200">be</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Input</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">permitted</span>&#x00A0;<span 
class="ectt-1200">by</span>&#x00A0;<span 
class="ectt-1200">the</span>&#x00A0;<span 
class="ectt-1200">search</span>&#x00A0;<span 
class="ectt-1200">procedure</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">MAXCAL</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">MAXCA2</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(MAXCAL=40*NPAR*(NPAR+5))</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">which</span>&#x00A0;<span 
class="ectt-1200">quantities</span>&#x00A0;<span 
class="ectt-1200">are</span>&#x00A0;<span 
class="ectt-1200">to</span>&#x00A0;<span 
class="ectt-1200">be</span>&#x00A0;<span 
class="ectt-1200">printed</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Input</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">ISHOW</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(ISHOW=0)</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">dimension</span>&#x00A0;<span 
class="ectt-1200">of</span>&#x00A0;<span 
class="ectt-1200">the</span>&#x00A0;<span 
class="ectt-1200">array</span>&#x00A0;<span 
class="ectt-1200">WORK</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Input</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">LWORK</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(LWORK=(5+3*(nT)+2*rm)+(2*p+q+2*rm*(rm+2)+9)+</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">+</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">(NPAR+1)*(5*(NPAR+1)+29)/2+(rm+1)**2)</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">dimension</span>&#x00A0;<span 
class="ectt-1200">of</span>&#x00A0;<span 
class="ectt-1200">the</span>&#x00A0;<span 
class="ectt-1200">array</span>&#x00A0;<span 
class="ectt-1200">IW</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Input</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">LIW</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(LIW=NPAR+rm+3)</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">QQ(i,j)</span>&#x00A0;<span 
class="ectt-1200">must</span>&#x00A0;<span 
class="ectt-1200">be</span>&#x00A0;<span 
class="ectt-1200">set</span>&#x00A0;<span 
class="ectt-1200">equal</span>&#x00A0;<span 
class="ectt-1200">to</span>&#x00A0;<span 
class="ectt-1200">an</span>&#x00A0;<span 
class="ectt-1200">initial</span>&#x00A0;<span 
class="ectt-1200">estimate</span>&#x00A0;<span 
class="ectt-1200">of</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Input/Output</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">the</span>&#x00A0;<span 
class="ectt-1200">(i,j)th</span>&#x00A0;<span 
class="ectt-1200">element</span>&#x00A0;<span 
class="ectt-1200">of</span>&#x00A0;<span 
class="ectt-1200">the</span>&#x00A0;<span 
class="ectt-1200">covariance</span>&#x00A0;<span 
class="ectt-1200">matrix</span>&#x00A0;<span 
class="ectt-1200">of</span>&#x00A0;<span 
class="ectt-1200">the</span>&#x00A0;<span 
class="ectt-1200">residual</span>&#x00A0;<span 
class="ectt-1200">series</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">QQ(IK,K)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">--------------------------------------------------------------</span>

&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Fin</span>&#x00A0;<span 
class="ectt-1200">des</span>&#x00A0;<span 
class="ectt-1200">declarations</span>&#x00A0;<span 
class="ectt-1200">des</span>&#x00A0;<span 
class="ectt-1200">variables</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">--------------------------------------------------------------</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Nom</span>&#x00A0;<span 
class="ectt-1200">du</span>&#x00A0;<span 
class="ectt-1200">fichier</span>&#x00A0;<span 
class="ectt-1200">en</span>&#x00A0;<span 
class="ectt-1200">sortie</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">**</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">dataf=&#x2019;data.txt&#x2019;</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Nom</span>&#x00A0;<span 
class="ectt-1200">du</span>&#x00A0;<span 
class="ectt-1200">fichier</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">parametres</span>&#x00A0;<span 
class="ectt-1200">en</span>&#x00A0;<span 
class="ectt-1200">sortie</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">**</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">paramf=&#x2019;para.txt&#x2019;</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Il</span>&#x00A0;<span 
class="ectt-1200">faut</span>&#x00A0;<span 
class="ectt-1200">rentrer</span>&#x00A0;<span 
class="ectt-1200">les</span>&#x00A0;<span 
class="ectt-1200">valeurs</span>&#x00A0;<span 
class="ectt-1200">des</span>&#x00A0;<span 
class="ectt-1200">coefficients</span>&#x00A0;<span 
class="ectt-1200">phi(i)</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">**</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">phi(1)=0.1</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">phi(2)=0.5</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CALL</span>&#x00A0;<span 
class="ectt-1200">cdatAR(dataf,paramf,nbcle,marret,Mind,sigma,mu,df1,df2,</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">+</span>&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">lambda,</span>&#x00A0;<span 
class="ectt-1200">loi5b,</span>&#x00A0;<span 
class="ectt-1200">loi5k,</span>&#x00A0;<span 
class="ectt-1200">loi6p,</span>&#x00A0;<span 
class="ectt-1200">loi6q,</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">+</span>&#x00A0;&#x00A0;<span 
class="ectt-1200">loi7g,</span>&#x00A0;<span 
class="ectt-1200">loi7d,</span>&#x00A0;<span 
class="ectt-1200">loi8p,</span>&#x00A0;<span 
class="ectt-1200">loi8q,</span>&#x00A0;<span 
class="ectt-1200">loi9a,</span>&#x00A0;<span 
class="ectt-1200">loi9b,</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">+</span>&#x00A0;&#x00A0;<span 
class="ectt-1200">loi10b,</span>&#x00A0;<span 
class="ectt-1200">loi10l,</span>&#x00A0;<span 
class="ectt-1200">loi11a,</span>&#x00A0;<span 
class="ectt-1200">loi11k,</span>&#x00A0;<span 
class="ectt-1200">loi13g,</span>&#x00A0;<span 
class="ectt-1200">loi13d,</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">+</span>&#x00A0;&#x00A0;<span 
class="ectt-1200">loi14l,</span>&#x00A0;<span 
class="ectt-1200">loi16p,</span>&#x00A0;<span 
class="ectt-1200">loi16d,</span>&#x00A0;<span 
class="ectt-1200">loi17p,</span>&#x00A0;<span 
class="ectt-1200">loi17m,</span>&#x00A0;<span 
class="ectt-1200">loi18g,</span>&#x00A0;<span 
class="ectt-1200">loi18d,</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">+</span>&#x00A0;&#x00A0;<span 
class="ectt-1200">loi19a,</span>&#x00A0;<span 
class="ectt-1200">loi19b,</span>&#x00A0;<span 
class="ectt-1200">loi,p,q,rm,nT,phi,phich,donees,A,B,R,NPAR,</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">+</span>&#x00A0;<span 
class="ectt-1200">ICM,IW,PAR,W,CGETOL,V,G,CM,WORK,MEAN,PARHLD,EXACT,Wtip,</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">+</span>&#x00A0;<span 
class="ectt-1200">shocks,psi,phi2,YtpMn,Atn,EspSU,EspSB,EspS,</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">+E,NA,NB,NR,K,N2,IP,IQ,IK,MAXCAL,ISHOW,LWORK,LIW)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">END</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INCLUDE</span>&#x00A0;<span 
class="ectt-1200">&#x2019;mean.f&#x2019;</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INCLUDE</span>&#x00A0;<span 
class="ectt-1200">&#x2019;simulAR.f&#x2019;</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INCLUDE</span>&#x00A0;<span 
class="ectt-1200">&#x2019;ARpsi.f&#x2019;</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INCLUDE</span>&#x00A0;<span 
class="ectt-1200">&#x2019;shock.f&#x2019;</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INCLUDE</span>&#x00A0;<span 
class="ectt-1200">&#x2019;rskew.f&#x2019;</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INCLUDE</span>&#x00A0;<span 
class="ectt-1200">&#x2019;rlap.f&#x2019;</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INCLUDE</span>&#x00A0;<span 
class="ectt-1200">&#x2019;rpare.f&#x2019;</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INCLUDE</span>&#x00A0;<span 
class="ectt-1200">&#x2019;rspare.f&#x2019;</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INCLUDE</span>&#x00A0;<span 
class="ectt-1200">&#x2019;rSU.f&#x2019;</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INCLUDE</span>&#x00A0;<span 
class="ectt-1200">&#x2019;rTU.f&#x2019;</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INCLUDE</span>&#x00A0;<span 
class="ectt-1200">&#x2019;rSC.f&#x2019;</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INCLUDE</span>&#x00A0;<span 
class="ectt-1200">&#x2019;rLC.f&#x2019;</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INCLUDE</span>&#x00A0;<span 
class="ectt-1200">&#x2019;rSB.f&#x2019;</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INCLUDE</span>&#x00A0;<span 
class="ectt-1200">&#x2019;rS.f&#x2019;</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INCLUDE</span>&#x00A0;<span 
class="ectt-1200">&#x2019;creerdat_AR.f&#x2019;</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">------------------------------------------------------------------</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Instructions</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">compilation:</span>&#x00A0;<span 
class="ectt-1200">alias</span>&#x00A0;<span 
class="ectt-1200">f77=&#x2019;fort77&#x2019;</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">f77</span>&#x00A0;<span 
class="ectt-1200">-c</span>&#x00A0;<span 
class="ectt-1200">nom_du_fichier_contenant_la_fonction_main.f</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">f77</span>&#x00A0;<span 
class="ectt-1200">-c</span>&#x00A0;<span 
class="ectt-1200">creerdat_AR.f</span>&#x00A0;<span 
class="ectt-1200">-lnag</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">f77</span>&#x00A0;<span 
class="ectt-1200">nom_du_fichier_contenant_la_fonction_main.o</span>&#x00A0;<span 
class="ectt-1200">creerdat_AR.o</span>&#x00A0;<span 
class="ectt-1200">-lnag</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Fonctions</span>&#x00A0;<span 
class="ectt-1200">exterieures</span>&#x00A0;<span 
class="ectt-1200">appellees:</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">G05EGF,</span>&#x00A0;<span 
class="ectt-1200">G05EWF</span>&#x00A0;<span 
class="ectt-1200">et</span>&#x00A0;&#x00A0;<span 
class="ectt-1200">G13DCF</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">la</span>&#x00A0;<span 
class="ectt-1200">librairie</span>&#x00A0;<span 
class="ectt-1200">NAG</span>&#x00A0;<span 
class="ectt-1200">MARK16</span>&#x00A0;<span 
class="ectt-1200">et</span>&#x00A0;<span 
class="ectt-1200">simAR.f</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Auteur:</span>&#x00A0;<span 
class="ectt-1200">Pierre</span>&#x00A0;<span 
class="ectt-1200">Lafaye</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">Micheaux</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Date:</span>&#x00A0;<span 
class="ectt-1200">15/02/2001</span>

&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Fin-Commentaires</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">SUBROUTINE</span>&#x00A0;<span 
class="ectt-1200">cdatAR(dataf,paramf,nbcle,marret,Mind,sigma,mu,df1,df2,</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">+lambda,loi5b,loi5k,loi6p,loi6q,loi7g,loi7d,loi8p,loi8q,loi9a,</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">+loi9b,loi10b,loi10l,loi11a,loi11k,loi13g,loi13d,loi14l,loi16p,</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">+loi16d,loi17p,loi17m,loi18g,loi18d,loi19a,loi19b,loi,p,q,rm,nT,</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">+phi,phich,donees,A,B,R,NPAR,ICM,IW,PAR,W,CGETOL,V,G,CM,WORK,MEAN,</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">+PARHLD,EXACT,Wtip,shocks,psi,phi2,YtpMn,Atn,EspSU,EspSB,EspS,</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">+E,NA,NB,NR,K,N2,IP,IQ,IK,MAXCAL,ISHOW,LWORK,LIW,QQ)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">-----------------------------------------------------</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Debut</span>&#x00A0;<span 
class="ectt-1200">des</span>&#x00A0;<span 
class="ectt-1200">Declarations</span>&#x00A0;<span 
class="ectt-1200">des</span>&#x00A0;<span 
class="ectt-1200">variables</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">-----------------------------------------------------</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">ybarre,meanp</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Nom</span>&#x00A0;<span 
class="ectt-1200">du</span>&#x00A0;<span 
class="ectt-1200">fichier</span>&#x00A0;<span 
class="ectt-1200">en</span>&#x00A0;<span 
class="ectt-1200">sortie</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CHARACTER</span>&#x00A0;<span 
class="ectt-1200">dataf*8</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Nom</span>&#x00A0;<span 
class="ectt-1200">du</span>&#x00A0;<span 
class="ectt-1200">fichier</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">parametres</span>&#x00A0;<span 
class="ectt-1200">en</span>&#x00A0;<span 
class="ectt-1200">sortie</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CHARACTER</span>&#x00A0;<span 
class="ectt-1200">paramf*17</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">i,j,l</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Compteur</span>&#x00A0;<span 
class="ectt-1200">des</span>&#x00A0;<span 
class="ectt-1200">nombres</span>&#x00A0;<span 
class="ectt-1200">d&#x2019;erreurs</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">err1</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">err2</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">err3</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">err4</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">err5</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">err6</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">err7</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">err8</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Precision</span>&#x00A0;<span 
class="ectt-1200">machine</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">preci,</span>&#x00A0;<span 
class="ectt-1200">X02AJF</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">EXTERNAL</span>&#x00A0;<span 
class="ectt-1200">X02AJF</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Temps</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">calcul</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">CPTIME,</span>&#x00A0;<span 
class="ectt-1200">S1,</span>&#x00A0;<span 
class="ectt-1200">S2,</span>&#x00A0;<span 
class="ectt-1200">X05BAF</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">EXTERNAL</span>&#x00A0;<span 
class="ectt-1200">X05BAF</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Nombre</span>&#x00A0;<span 
class="ectt-1200">d&#x2019;echantillons</span>&#x00A0;<span 
class="ectt-1200">souhaites</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">nbcle</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">rang</span>&#x00A0;<span 
class="ectt-1200">d&#x2019;arret</span>&#x00A0;<span 
class="ectt-1200">dans</span>&#x00A0;<span 
class="ectt-1200">la</span>&#x00A0;<span 
class="ectt-1200">random</span>&#x00A0;<span 
class="ectt-1200">shock</span>&#x00A0;<span 
class="ectt-1200">method</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">Burn</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">marret</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Induction</span>&#x00A0;<span 
class="ectt-1200">period</span>&#x00A0;<span 
class="ectt-1200">dans</span>&#x00A0;<span 
class="ectt-1200">la</span>&#x00A0;<span 
class="ectt-1200">methode</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">Burn</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">Mind</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">ecart-type</span>&#x00A0;<span 
class="ectt-1200">des</span>&#x00A0;<span 
class="ectt-1200">erreurs</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">sigma</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">sigch2</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">moyenne</span>&#x00A0;<span 
class="ectt-1200">dans</span>&#x00A0;<span 
class="ectt-1200">mon</span>&#x00A0;<span 
class="ectt-1200">modele</span>&#x00A0;<span 
class="ectt-1200">AR</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">mu</span>

&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">much</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">parametre</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">la</span>&#x00A0;<span 
class="ectt-1200">khi-deux</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">df1</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">parametre</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">la</span>&#x00A0;<span 
class="ectt-1200">student</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">df2</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">parametre</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">la</span>&#x00A0;<span 
class="ectt-1200">skew-normale</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">lambda</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">loi5b,</span>&#x00A0;<span 
class="ectt-1200">loi5k,</span>&#x00A0;<span 
class="ectt-1200">loi6p,</span>&#x00A0;<span 
class="ectt-1200">loi6q</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">loi7g,</span>&#x00A0;<span 
class="ectt-1200">loi7d,</span>&#x00A0;<span 
class="ectt-1200">loi8p,</span>&#x00A0;<span 
class="ectt-1200">loi8q,</span>&#x00A0;<span 
class="ectt-1200">loi9a,</span>&#x00A0;<span 
class="ectt-1200">loi9b</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">loi10b,</span>&#x00A0;<span 
class="ectt-1200">loi10l,</span>&#x00A0;<span 
class="ectt-1200">loi11a,</span>&#x00A0;<span 
class="ectt-1200">loi11k,</span>&#x00A0;<span 
class="ectt-1200">loi13g,</span>&#x00A0;<span 
class="ectt-1200">loi13d</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">loi14l,</span>&#x00A0;<span 
class="ectt-1200">loi16p,</span>&#x00A0;<span 
class="ectt-1200">loi16d,</span>&#x00A0;<span 
class="ectt-1200">loi17p,</span>&#x00A0;<span 
class="ectt-1200">loi17m</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">loi18g,</span>&#x00A0;<span 
class="ectt-1200">loi18d,</span>&#x00A0;<span 
class="ectt-1200">loi19a,</span>&#x00A0;<span 
class="ectt-1200">loi19b</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">loi</span>&#x00A0;<span 
class="ectt-1200">des</span>&#x00A0;<span 
class="ectt-1200">erreurs</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">si</span>&#x00A0;<span 
class="ectt-1200">loi=0</span>&#x00A0;<span 
class="ectt-1200">:</span>&#x00A0;<span 
class="ectt-1200">Normale(0,sigma&#x0302;2)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">si</span>&#x00A0;<span 
class="ectt-1200">loi=1</span>&#x00A0;<span 
class="ectt-1200">:</span>&#x00A0;<span 
class="ectt-1200">Khi2</span>&#x00A0;<span 
class="ectt-1200">centree</span>&#x00A0;<span 
class="ectt-1200">(df1)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">si</span>&#x00A0;<span 
class="ectt-1200">loi=2</span>&#x00A0;<span 
class="ectt-1200">:</span>&#x00A0;<span 
class="ectt-1200">Student</span>&#x00A0;<span 
class="ectt-1200">(df2)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">si</span>&#x00A0;<span 
class="ectt-1200">loi=3</span>&#x00A0;<span 
class="ectt-1200">:</span>&#x00A0;<span 
class="ectt-1200">Skew-Normale(lambda)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">si</span>&#x00A0;<span 
class="ectt-1200">loi=4</span>&#x00A0;<span 
class="ectt-1200">:</span>&#x00A0;<span 
class="ectt-1200">Laplace</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">si</span>&#x00A0;<span 
class="ectt-1200">loi=5</span>&#x00A0;<span 
class="ectt-1200">:</span>&#x00A0;<span 
class="ectt-1200">Weibull(b,k)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">si</span>&#x00A0;<span 
class="ectt-1200">loi=6</span>&#x00A0;<span 
class="ectt-1200">:</span>&#x00A0;<span 
class="ectt-1200">Gamma(p,q)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">si</span>&#x00A0;<span 
class="ectt-1200">loi=7</span>&#x00A0;<span 
class="ectt-1200">:</span>&#x00A0;<span 
class="ectt-1200">Log-Normale(g,d)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">si</span>&#x00A0;<span 
class="ectt-1200">loi=8</span>&#x00A0;<span 
class="ectt-1200">:</span>&#x00A0;<span 
class="ectt-1200">Beta(p,q)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">si</span>&#x00A0;<span 
class="ectt-1200">loi=9</span>&#x00A0;<span 
class="ectt-1200">:</span>&#x00A0;<span 
class="ectt-1200">Uniform(a,b)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">si</span>&#x00A0;<span 
class="ectt-1200">loi=10</span>&#x00A0;<span 
class="ectt-1200">:</span>&#x00A0;<span 
class="ectt-1200">Shifted</span>&#x00A0;<span 
class="ectt-1200">exp</span>&#x00A0;<span 
class="ectt-1200">(l,b)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">si</span>&#x00A0;<span 
class="ectt-1200">loi=11</span>&#x00A0;<span 
class="ectt-1200">:</span>&#x00A0;<span 
class="ectt-1200">Pareto(a,k)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">si</span>&#x00A0;<span 
class="ectt-1200">loi=12</span>&#x00A0;<span 
class="ectt-1200">:</span>&#x00A0;<span 
class="ectt-1200">Shifted</span>&#x00A0;<span 
class="ectt-1200">Pareto</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">si</span>&#x00A0;<span 
class="ectt-1200">loi=13</span>&#x00A0;<span 
class="ectt-1200">:</span>&#x00A0;<span 
class="ectt-1200">SU(g,d)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">si</span>&#x00A0;<span 
class="ectt-1200">loi=14</span>&#x00A0;<span 
class="ectt-1200">:</span>&#x00A0;<span 
class="ectt-1200">TU(l)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">si</span>&#x00A0;<span 
class="ectt-1200">loi=15</span>&#x00A0;<span 
class="ectt-1200">:</span>&#x00A0;<span 
class="ectt-1200">Logistic</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">si</span>&#x00A0;<span 
class="ectt-1200">loi=16</span>&#x00A0;<span 
class="ectt-1200">:</span>&#x00A0;<span 
class="ectt-1200">SC(p,d)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">si</span>&#x00A0;<span 
class="ectt-1200">loi=17</span>&#x00A0;<span 
class="ectt-1200">:</span>&#x00A0;<span 
class="ectt-1200">LC(p,m)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">si</span>&#x00A0;<span 
class="ectt-1200">loi=18</span>&#x00A0;<span 
class="ectt-1200">:</span>&#x00A0;<span 
class="ectt-1200">SB(g,d)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">si</span>&#x00A0;<span 
class="ectt-1200">loi=19</span>&#x00A0;<span 
class="ectt-1200">:</span>&#x00A0;<span 
class="ectt-1200">S(a,b)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">loi</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">the</span>&#x00A0;<span 
class="ectt-1200">number</span>&#x00A0;<span 
class="ectt-1200">of</span>&#x00A0;<span 
class="ectt-1200">autoregressive</span>&#x00A0;<span 
class="ectt-1200">coefficients</span>&#x00A0;<span 
class="ectt-1200">supplied</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">p</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">the</span>&#x00A0;<span 
class="ectt-1200">number</span>&#x00A0;<span 
class="ectt-1200">of</span>&#x00A0;<span 
class="ectt-1200">moving-average</span>&#x00A0;<span 
class="ectt-1200">coefficients</span>&#x00A0;<span 
class="ectt-1200">supplied:</span>&#x00A0;<span 
class="ectt-1200">q=0</span>&#x00A0;<span 
class="ectt-1200">puisque</span>&#x00A0;<span 
class="ectt-1200">modele</span>&#x00A0;<span 
class="ectt-1200">AR(p)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">q</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">rm=max(p,q)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">rm</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">nombre</span>&#x00A0;<span 
class="ectt-1200">d&#x2019;observations</span>&#x00A0;<span 
class="ectt-1200">dans</span>&#x00A0;<span 
class="ectt-1200">mon</span>&#x00A0;<span 
class="ectt-1200">echantillon</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Si</span>&#x00A0;<span 
class="ectt-1200">on</span>&#x00A0;<span 
class="ectt-1200">change</span>&#x00A0;<span 
class="ectt-1200">la</span>&#x00A0;<span 
class="ectt-1200">valeur</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">nT,</span>&#x00A0;<span 
class="ectt-1200">il</span>&#x00A0;<span 
class="ectt-1200">faut</span>&#x00A0;<span 
class="ectt-1200">aller</span>&#x00A0;<span 
class="ectt-1200">modifier</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">la</span>&#x00A0;<span 
class="ectt-1200">valeur</span>&#x00A0;<span 
class="ectt-1200">dans</span>&#x00A0;<span 
class="ectt-1200">FORMAT</span>&#x00A0;<span 
class="ectt-1200">a</span>&#x00A0;<span 
class="ectt-1200">la</span>&#x00A0;<span 
class="ectt-1200">fin</span>&#x00A0;<span 
class="ectt-1200">du</span>&#x00A0;<span 
class="ectt-1200">programme</span>

&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">nT</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">the</span>&#x00A0;<span 
class="ectt-1200">autoregressive</span>&#x00A0;<span 
class="ectt-1200">coefficients</span>&#x00A0;<span 
class="ectt-1200">of</span>&#x00A0;<span 
class="ectt-1200">the</span>&#x00A0;<span 
class="ectt-1200">model</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">phi(2)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">phich(p)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">vecteur</span>&#x00A0;<span 
class="ectt-1200">des</span>&#x00A0;<span 
class="ectt-1200">donnees</span>&#x00A0;<span 
class="ectt-1200">cree</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">donees(nT)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Parametres</span>&#x00A0;<span 
class="ectt-1200">pour</span>&#x00A0;<span 
class="ectt-1200">G05EGF:</span>&#x00A0;<span 
class="ectt-1200">simulation</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">EXTERNAL</span>&#x00A0;<span 
class="ectt-1200">G05EGF,</span>&#x00A0;<span 
class="ectt-1200">G05EWF</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">G05EWF</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">the</span>&#x00A0;<span 
class="ectt-1200">mean</span>&#x00A0;<span 
class="ectt-1200">of</span>&#x00A0;<span 
class="ectt-1200">the</span>&#x00A0;<span 
class="ectt-1200">time</span>&#x00A0;<span 
class="ectt-1200">series</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Input</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">E</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">the</span>&#x00A0;<span 
class="ectt-1200">number</span>&#x00A0;<span 
class="ectt-1200">of</span>&#x00A0;<span 
class="ectt-1200">autoregressive</span>&#x00A0;<span 
class="ectt-1200">coefficients</span>&#x00A0;<span 
class="ectt-1200">supplied</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Input</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">NA</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">the</span>&#x00A0;<span 
class="ectt-1200">autoregressive</span>&#x00A0;<span 
class="ectt-1200">coefficients</span>&#x00A0;<span 
class="ectt-1200">of</span>&#x00A0;<span 
class="ectt-1200">the</span>&#x00A0;<span 
class="ectt-1200">model=phi</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Input</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">A(NA)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">the</span>&#x00A0;<span 
class="ectt-1200">number</span>&#x00A0;<span 
class="ectt-1200">of</span>&#x00A0;<span 
class="ectt-1200">moving-average</span>&#x00A0;<span 
class="ectt-1200">coefficients</span>&#x00A0;<span 
class="ectt-1200">supplied</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Input</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">NB</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">the</span>&#x00A0;<span 
class="ectt-1200">moving-average</span>&#x00A0;<span 
class="ectt-1200">coefficients</span>&#x00A0;<span 
class="ectt-1200">of</span>&#x00A0;<span 
class="ectt-1200">the</span>&#x00A0;<span 
class="ectt-1200">model=teta</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Input</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">B(NB)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">the</span>&#x00A0;<span 
class="ectt-1200">dimension</span>&#x00A0;<span 
class="ectt-1200">of</span>&#x00A0;<span 
class="ectt-1200">the</span>&#x00A0;<span 
class="ectt-1200">array</span>&#x00A0;<span 
class="ectt-1200">R:</span>&#x00A0;<span 
class="ectt-1200">vecteur</span>&#x00A0;<span 
class="ectt-1200">des</span>&#x00A0;<span 
class="ectt-1200">innovations</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Input</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">NR</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">le</span>&#x00A0;<span 
class="ectt-1200">vecteur</span>&#x00A0;<span 
class="ectt-1200">des</span>&#x00A0;<span 
class="ectt-1200">innovations</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Output</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">R(NR)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">the</span>&#x00A0;<span 
class="ectt-1200">proportion</span>&#x00A0;<span 
class="ectt-1200">of</span>&#x00A0;<span 
class="ectt-1200">the</span>&#x00A0;<span 
class="ectt-1200">variance</span>&#x00A0;<span 
class="ectt-1200">of</span>&#x00A0;<span 
class="ectt-1200">a</span>&#x00A0;<span 
class="ectt-1200">term</span>&#x00A0;<span 
class="ectt-1200">in</span>&#x00A0;<span 
class="ectt-1200">the</span>&#x00A0;<span 
class="ectt-1200">series</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Output</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">that</span>&#x00A0;<span 
class="ectt-1200">is</span>&#x00A0;<span 
class="ectt-1200">due</span>&#x00A0;<span 
class="ectt-1200">to</span>&#x00A0;<span 
class="ectt-1200">the</span>&#x00A0;<span 
class="ectt-1200">moving-average</span>&#x00A0;<span 
class="ectt-1200">(error)</span>&#x00A0;<span 
class="ectt-1200">terms</span>&#x00A0;<span 
class="ectt-1200">in</span>&#x00A0;<span 
class="ectt-1200">the</span>&#x00A0;<span 
class="ectt-1200">model.</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">The</span>&#x00A0;<span 
class="ectt-1200">smaller</span>&#x00A0;<span 
class="ectt-1200">this</span>&#x00A0;<span 
class="ectt-1200">is,</span>&#x00A0;<span 
class="ectt-1200">the</span>&#x00A0;<span 
class="ectt-1200">nearer</span>&#x00A0;<span 
class="ectt-1200">is</span>&#x00A0;<span 
class="ectt-1200">the</span>&#x00A0;<span 
class="ectt-1200">model</span>&#x00A0;<span 
class="ectt-1200">to</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">non-stationarity</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">VAR</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Traitement</span>&#x00A0;<span 
class="ectt-1200">des</span>&#x00A0;<span 
class="ectt-1200">erreurs</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">IFAIL1</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Parametres</span>&#x00A0;<span 
class="ectt-1200">pour</span>&#x00A0;<span 
class="ectt-1200">G13DCF:</span>&#x00A0;<span 
class="ectt-1200">estimation</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">EXTERNAL</span>&#x00A0;<span 
class="ectt-1200">G13DCF</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">the</span>&#x00A0;<span 
class="ectt-1200">number</span>&#x00A0;<span 
class="ectt-1200">of</span>&#x00A0;<span 
class="ectt-1200">observed</span>&#x00A0;<span 
class="ectt-1200">time</span>&#x00A0;<span 
class="ectt-1200">series,</span>&#x00A0;<span 
class="ectt-1200">k</span>&#x00A0;&#x00A0;<span 
class="ectt-1200">(chez</span>&#x00A0;<span 
class="ectt-1200">moi</span>&#x00A0;<span 
class="ectt-1200">k=1)</span>&#x00A0;&#x00A0;<span 
class="ectt-1200">Input</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">K</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">the</span>&#x00A0;<span 
class="ectt-1200">number</span>&#x00A0;<span 
class="ectt-1200">of</span>&#x00A0;<span 
class="ectt-1200">observations</span>&#x00A0;<span 
class="ectt-1200">in</span>&#x00A0;<span 
class="ectt-1200">each</span>&#x00A0;<span 
class="ectt-1200">time</span>&#x00A0;<span 
class="ectt-1200">series,</span>&#x00A0;<span 
class="ectt-1200">n</span>&#x00A0;<span 
class="ectt-1200">(chez</span>&#x00A0;<span 
class="ectt-1200">moi=nT)</span>&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Input</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">N2</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">the</span>&#x00A0;<span 
class="ectt-1200">number</span>&#x00A0;<span 
class="ectt-1200">of</span>&#x00A0;<span 
class="ectt-1200">AR</span>&#x00A0;<span 
class="ectt-1200">parameter</span>&#x00A0;<span 
class="ectt-1200">matrices,</span>&#x00A0;<span 
class="ectt-1200">p</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Input</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">IP</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">the</span>&#x00A0;<span 
class="ectt-1200">number</span>&#x00A0;<span 
class="ectt-1200">of</span>&#x00A0;<span 
class="ectt-1200">MA</span>&#x00A0;<span 
class="ectt-1200">parameter</span>&#x00A0;<span 
class="ectt-1200">matrices,</span>&#x00A0;<span 
class="ectt-1200">q</span>&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Input</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">IQ</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">the</span>&#x00A0;<span 
class="ectt-1200">number</span>&#x00A0;<span 
class="ectt-1200">of</span>&#x00A0;<span 
class="ectt-1200">initial</span>&#x00A0;<span 
class="ectt-1200">parameter</span>&#x00A0;<span 
class="ectt-1200">estimates</span>&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Input</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">mettre</span>&#x00A0;<span 
class="ectt-1200">p+q+1</span>&#x00A0;<span 
class="ectt-1200">si</span>&#x00A0;<span 
class="ectt-1200">MEAN=.TRUE.</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">NPAR</span>

&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">the</span>&#x00A0;<span 
class="ectt-1200">first</span>&#x00A0;<span 
class="ectt-1200">dimension</span>&#x00A0;<span 
class="ectt-1200">of</span>&#x00A0;<span 
class="ectt-1200">the</span>&#x00A0;<span 
class="ectt-1200">arrays</span>&#x00A0;<span 
class="ectt-1200">QQ,</span>&#x00A0;<span 
class="ectt-1200">W</span>&#x00A0;<span 
class="ectt-1200">and</span>&#x00A0;<span 
class="ectt-1200">V</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Input</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">IK</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">the</span>&#x00A0;<span 
class="ectt-1200">frequency</span>&#x00A0;<span 
class="ectt-1200">with</span>&#x00A0;<span 
class="ectt-1200">which</span>&#x00A0;<span 
class="ectt-1200">the</span>&#x00A0;<span 
class="ectt-1200">automatic</span>&#x00A0;<span 
class="ectt-1200">monitoring</span>&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Input</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">routine</span>&#x00A0;<span 
class="ectt-1200">is</span>&#x00A0;<span 
class="ectt-1200">to</span>&#x00A0;<span 
class="ectt-1200">be</span>&#x00A0;<span 
class="ectt-1200">called</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">IPRINT</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">the</span>&#x00A0;<span 
class="ectt-1200">maximum</span>&#x00A0;<span 
class="ectt-1200">number</span>&#x00A0;<span 
class="ectt-1200">of</span>&#x00A0;<span 
class="ectt-1200">likelihood</span>&#x00A0;<span 
class="ectt-1200">evaluations</span>&#x00A0;<span 
class="ectt-1200">to</span>&#x00A0;<span 
class="ectt-1200">be</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Input</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">permitted</span>&#x00A0;<span 
class="ectt-1200">by</span>&#x00A0;<span 
class="ectt-1200">the</span>&#x00A0;<span 
class="ectt-1200">search</span>&#x00A0;<span 
class="ectt-1200">procedure</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">MAXCAL</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">MAXCA2</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">which</span>&#x00A0;<span 
class="ectt-1200">quantities</span>&#x00A0;<span 
class="ectt-1200">are</span>&#x00A0;<span 
class="ectt-1200">to</span>&#x00A0;<span 
class="ectt-1200">be</span>&#x00A0;<span 
class="ectt-1200">printed</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Input</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">ISHOW</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">number</span>&#x00A0;<span 
class="ectt-1200">of</span>&#x00A0;<span 
class="ectt-1200">iterations</span>&#x00A0;<span 
class="ectt-1200">performed</span>&#x00A0;<span 
class="ectt-1200">by</span>&#x00A0;<span 
class="ectt-1200">the</span>&#x00A0;<span 
class="ectt-1200">search</span>&#x00A0;<span 
class="ectt-1200">routine</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Output</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">NITER</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">first</span>&#x00A0;<span 
class="ectt-1200">dimension</span>&#x00A0;<span 
class="ectt-1200">of</span>&#x00A0;<span 
class="ectt-1200">the</span>&#x00A0;<span 
class="ectt-1200">array</span>&#x00A0;<span 
class="ectt-1200">CM</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Input</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">mettre</span>&#x00A0;<span 
class="ectt-1200">p+q+1</span>&#x00A0;<span 
class="ectt-1200">si</span>&#x00A0;<span 
class="ectt-1200">MEAN=.TRUE.</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">ICM</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">dimension</span>&#x00A0;<span 
class="ectt-1200">of</span>&#x00A0;<span 
class="ectt-1200">the</span>&#x00A0;<span 
class="ectt-1200">array</span>&#x00A0;<span 
class="ectt-1200">WORK</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Input</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">LWORK</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">dimension</span>&#x00A0;<span 
class="ectt-1200">of</span>&#x00A0;<span 
class="ectt-1200">the</span>&#x00A0;<span 
class="ectt-1200">array</span>&#x00A0;<span 
class="ectt-1200">IW</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Input</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">LIW</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Workspace</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">IW(LIW)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Traitement</span>&#x00A0;<span 
class="ectt-1200">des</span>&#x00A0;<span 
class="ectt-1200">erreurs</span>&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Input/Output</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">IFAIL2</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">initial</span>&#x00A0;<span 
class="ectt-1200">parameter</span>&#x00A0;<span 
class="ectt-1200">estimates</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Input/Output</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">PAR(NPAR)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">QQ(i,j)</span>&#x00A0;<span 
class="ectt-1200">must</span>&#x00A0;<span 
class="ectt-1200">be</span>&#x00A0;<span 
class="ectt-1200">set</span>&#x00A0;<span 
class="ectt-1200">equal</span>&#x00A0;<span 
class="ectt-1200">to</span>&#x00A0;<span 
class="ectt-1200">an</span>&#x00A0;<span 
class="ectt-1200">initial</span>&#x00A0;<span 
class="ectt-1200">estimate</span>&#x00A0;<span 
class="ectt-1200">of</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Input/Output</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">the</span>&#x00A0;<span 
class="ectt-1200">(i,j)th</span>&#x00A0;<span 
class="ectt-1200">element</span>&#x00A0;<span 
class="ectt-1200">of</span>&#x00A0;<span 
class="ectt-1200">the</span>&#x00A0;<span 
class="ectt-1200">covariance</span>&#x00A0;<span 
class="ectt-1200">matrix</span>&#x00A0;<span 
class="ectt-1200">of</span>&#x00A0;<span 
class="ectt-1200">the</span>&#x00A0;<span 
class="ectt-1200">residual</span>&#x00A0;<span 
class="ectt-1200">series</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">QQ(IK,K)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">W(i,t)</span>&#x00A0;<span 
class="ectt-1200">must</span>&#x00A0;<span 
class="ectt-1200">be</span>&#x00A0;<span 
class="ectt-1200">set</span>&#x00A0;<span 
class="ectt-1200">equal</span>&#x00A0;<span 
class="ectt-1200">to</span>&#x00A0;<span 
class="ectt-1200">the</span>&#x00A0;<span 
class="ectt-1200">observation</span>&#x00A0;<span 
class="ectt-1200">at</span>&#x00A0;<span 
class="ectt-1200">time</span>&#x00A0;<span 
class="ectt-1200">t</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Input</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">of</span>&#x00A0;<span 
class="ectt-1200">the</span>&#x00A0;<span 
class="ectt-1200">ith</span>&#x00A0;<span 
class="ectt-1200">series</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">W(IK,N2)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">the</span>&#x00A0;<span 
class="ectt-1200">accuracy</span>&#x00A0;<span 
class="ectt-1200">to</span>&#x00A0;<span 
class="ectt-1200">which</span>&#x00A0;<span 
class="ectt-1200">the</span>&#x00A0;<span 
class="ectt-1200">solution</span>&#x00A0;<span 
class="ectt-1200">in</span>&#x00A0;<span 
class="ectt-1200">PAR</span>&#x00A0;<span 
class="ectt-1200">and</span>&#x00A0;<span 
class="ectt-1200">QQ</span>&#x00A0;<span 
class="ectt-1200">is</span>&#x00A0;<span 
class="ectt-1200">required</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Input</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">CGETOL</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">value</span>&#x00A0;<span 
class="ectt-1200">of</span>&#x00A0;<span 
class="ectt-1200">the</span>&#x00A0;<span 
class="ectt-1200">log-likelihood</span>&#x00A0;<span 
class="ectt-1200">function</span>&#x00A0;<span 
class="ectt-1200">corresponding</span>&#x00A0;<span 
class="ectt-1200">to</span>&#x00A0;<span 
class="ectt-1200">the</span>&#x00A0;<span 
class="ectt-1200">final</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Output</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">point</span>&#x00A0;<span 
class="ectt-1200">held</span>&#x00A0;<span 
class="ectt-1200">in</span>&#x00A0;<span 
class="ectt-1200">PAR</span>&#x00A0;<span 
class="ectt-1200">and</span>&#x00A0;<span 
class="ectt-1200">QQ</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">RLOGL</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">residual</span>&#x00A0;<span 
class="ectt-1200">at</span>&#x00A0;<span 
class="ectt-1200">time</span>&#x00A0;<span 
class="ectt-1200">t</span>&#x00A0;<span 
class="ectt-1200">for</span>&#x00A0;<span 
class="ectt-1200">series</span>&#x00A0;<span 
class="ectt-1200">i,</span>&#x00A0;<span 
class="ectt-1200">for</span>&#x00A0;<span 
class="ectt-1200">i</span>&#x00A0;<span 
class="ectt-1200">=</span>&#x00A0;<span 
class="ectt-1200">1,2,...,k</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Output</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">V(IK,N2)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">estimated</span>&#x00A0;<span 
class="ectt-1200">first</span>&#x00A0;<span 
class="ectt-1200">derivative</span>&#x00A0;<span 
class="ectt-1200">of</span>&#x00A0;<span 
class="ectt-1200">the</span>&#x00A0;<span 
class="ectt-1200">log-likelihood</span>&#x00A0;<span 
class="ectt-1200">function</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Output</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">G(NPAR)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">estimate</span>&#x00A0;<span 
class="ectt-1200">of</span>&#x00A0;<span 
class="ectt-1200">the</span>&#x00A0;<span 
class="ectt-1200">correlation</span>&#x00A0;<span 
class="ectt-1200">coefficient</span>&#x00A0;<span 
class="ectt-1200">between</span>&#x00A0;<span 
class="ectt-1200">the</span>&#x00A0;<span 
class="ectt-1200">ith</span>&#x00A0;<span 
class="ectt-1200">and</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Output</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">jth</span>&#x00A0;<span 
class="ectt-1200">elements</span>&#x00A0;<span 
class="ectt-1200">in</span>&#x00A0;<span 
class="ectt-1200">the</span>&#x00A0;<span 
class="ectt-1200">PAR</span>&#x00A0;<span 
class="ectt-1200">array</span>

&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">CM(ICM,NPAR)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Workspace</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">WORK(LWORK)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">MEAN</span>&#x00A0;<span 
class="ectt-1200">must</span>&#x00A0;<span 
class="ectt-1200">be</span>&#x00A0;<span 
class="ectt-1200">set</span>&#x00A0;<span 
class="ectt-1200">to</span>&#x00A0;<span 
class="ectt-1200">.TRUE.</span>&#x00A0;<span 
class="ectt-1200">if</span>&#x00A0;<span 
class="ectt-1200">components</span>&#x00A0;<span 
class="ectt-1200">of</span>&#x00A0;<span 
class="ectt-1200">mu</span>&#x00A0;<span 
class="ectt-1200">are</span>&#x00A0;<span 
class="ectt-1200">to</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Input</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">be</span>&#x00A0;<span 
class="ectt-1200">estimated</span>&#x00A0;<span 
class="ectt-1200">and</span>&#x00A0;<span 
class="ectt-1200">.FALSE.</span>&#x00A0;<span 
class="ectt-1200">if</span>&#x00A0;<span 
class="ectt-1200">all</span>&#x00A0;<span 
class="ectt-1200">elements</span>&#x00A0;<span 
class="ectt-1200">of</span>&#x00A0;<span 
class="ectt-1200">mu</span>&#x00A0;<span 
class="ectt-1200">are</span>&#x00A0;<span 
class="ectt-1200">to</span>&#x00A0;<span 
class="ectt-1200">be</span>&#x00A0;<span 
class="ectt-1200">taken</span>&#x00A0;<span 
class="ectt-1200">as</span>&#x00A0;<span 
class="ectt-1200">zero</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">LOGICAL</span>&#x00A0;<span 
class="ectt-1200">MEAN</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARHLD(i)</span>&#x00A0;<span 
class="ectt-1200">must</span>&#x00A0;<span 
class="ectt-1200">be</span>&#x00A0;<span 
class="ectt-1200">set</span>&#x00A0;<span 
class="ectt-1200">to</span>&#x00A0;<span 
class="ectt-1200">.TRUE.,</span>&#x00A0;<span 
class="ectt-1200">if</span>&#x00A0;<span 
class="ectt-1200">PAR(i)</span>&#x00A0;<span 
class="ectt-1200">is</span>&#x00A0;<span 
class="ectt-1200">to</span>&#x00A0;<span 
class="ectt-1200">be</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Input</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">held</span>&#x00A0;<span 
class="ectt-1200">constant</span>&#x00A0;<span 
class="ectt-1200">at</span>&#x00A0;<span 
class="ectt-1200">its</span>&#x00A0;<span 
class="ectt-1200">input</span>&#x00A0;<span 
class="ectt-1200">value</span>&#x00A0;<span 
class="ectt-1200">and</span>&#x00A0;<span 
class="ectt-1200">.FALSE.,</span>&#x00A0;<span 
class="ectt-1200">if</span>&#x00A0;<span 
class="ectt-1200">PAR(i)</span>&#x00A0;<span 
class="ectt-1200">is</span>&#x00A0;<span 
class="ectt-1200">a</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">free</span>&#x00A0;<span 
class="ectt-1200">parameter,</span>&#x00A0;<span 
class="ectt-1200">for</span>&#x00A0;<span 
class="ectt-1200">i</span>&#x00A0;<span 
class="ectt-1200">=</span>&#x00A0;<span 
class="ectt-1200">1,2,...,NPAR.</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">LOGICAL</span>&#x00A0;<span 
class="ectt-1200">PARHLD(NPAR)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">EXACT</span>&#x00A0;<span 
class="ectt-1200">must</span>&#x00A0;<span 
class="ectt-1200">be</span>&#x00A0;<span 
class="ectt-1200">set</span>&#x00A0;<span 
class="ectt-1200">equal</span>&#x00A0;<span 
class="ectt-1200">to</span>&#x00A0;<span 
class="ectt-1200">.TRUE.</span>&#x00A0;<span 
class="ectt-1200">if</span>&#x00A0;<span 
class="ectt-1200">the</span>&#x00A0;<span 
class="ectt-1200">user</span>&#x00A0;<span 
class="ectt-1200">wishes</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Input</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">the</span>&#x00A0;<span 
class="ectt-1200">routine</span>&#x00A0;<span 
class="ectt-1200">to</span>&#x00A0;<span 
class="ectt-1200">compute</span>&#x00A0;<span 
class="ectt-1200">exact</span>&#x00A0;<span 
class="ectt-1200">maximum</span>&#x00A0;<span 
class="ectt-1200">likelihood</span>&#x00A0;<span 
class="ectt-1200">estimates.</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">EXACT</span>&#x00A0;<span 
class="ectt-1200">must</span>&#x00A0;<span 
class="ectt-1200">be</span>&#x00A0;<span 
class="ectt-1200">set</span>&#x00A0;<span 
class="ectt-1200">equal</span>&#x00A0;<span 
class="ectt-1200">to</span>&#x00A0;<span 
class="ectt-1200">.FALSE.</span>&#x00A0;<span 
class="ectt-1200">if</span>&#x00A0;<span 
class="ectt-1200">only</span>&#x00A0;<span 
class="ectt-1200">conditional</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">likelihood</span>&#x00A0;<span 
class="ectt-1200">estimates</span>&#x00A0;<span 
class="ectt-1200">are</span>&#x00A0;<span 
class="ectt-1200">required.</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">LOGICAL</span>&#x00A0;<span 
class="ectt-1200">EXACT</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Contient</span>&#x00A0;<span 
class="ectt-1200">les</span>&#x00A0;<span 
class="ectt-1200">p</span>&#x00A0;<span 
class="ectt-1200">donnees</span>&#x00A0;<span 
class="ectt-1200">initiales</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">la</span>&#x00A0;<span 
class="ectt-1200">serie</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">Wtip(p)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">marret+p</span>&#x00A0;<span 
class="ectt-1200">innovations</span>&#x00A0;<span 
class="ectt-1200">genere</span>&#x00A0;<span 
class="ectt-1200">par</span>&#x00A0;<span 
class="ectt-1200">shock.f</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">shocks(marret+p)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">defini</span>&#x00A0;<span 
class="ectt-1200">dans</span>&#x00A0;<span 
class="ectt-1200">Burn,</span>&#x00A0;<span 
class="ectt-1200">calcule</span>&#x00A0;<span 
class="ectt-1200">par</span>&#x00A0;<span 
class="ectt-1200">ARpsi.f</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">psi(marret+1)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">utile</span>&#x00A0;<span 
class="ectt-1200">dans</span>&#x00A0;<span 
class="ectt-1200">simAR.f</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">phi2(marret)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">utile</span>&#x00A0;<span 
class="ectt-1200">dans</span>&#x00A0;<span 
class="ectt-1200">simAR.f</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">YtpMn(p+Mind+nT)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">utile</span>&#x00A0;<span 
class="ectt-1200">dans</span>&#x00A0;<span 
class="ectt-1200">simAR.f</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">Atn(nT+Mind),EspSU,EspSB,EspS</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">-----------------------------------------------------</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Fin</span>&#x00A0;<span 
class="ectt-1200">des</span>&#x00A0;<span 
class="ectt-1200">Declarations</span>&#x00A0;<span 
class="ectt-1200">des</span>&#x00A0;<span 
class="ectt-1200">variables</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">-----------------------------------------------------</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">err1=0</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">err2=0</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">err3=0</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">err4=0</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">err5=0</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">err6=0</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">err7=0</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">err8=0</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">---------------------------------------------------------------------</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Debut</span>&#x00A0;<span 
class="ectt-1200">du</span>&#x00A0;<span 
class="ectt-1200">programme</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">---------------------------------------------------------------------</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DO</span>&#x00A0;<span 
class="ectt-1200">10,</span>&#x00A0;<span 
class="ectt-1200">j=1,p</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">A(j)=phi(j)</span>

&#x00A0;<br />&#x00A0;<span 
class="ectt-1200">10</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CONTINUE</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">B(1)=sigma</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">S1=X05BAF()</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">OPEN(UNIT=12,</span>&#x00A0;<span 
class="ectt-1200">FILE=dataf</span>&#x00A0;<span 
class="ectt-1200">,</span>&#x00A0;<span 
class="ectt-1200">STATUS=&#x2019;NEW&#x2019;</span>&#x00A0;<span 
class="ectt-1200">)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">------------------------------------------------------------------------------------------------</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0; <span 
class="ectt-1200">q=0</span>&#x00A0;<span 
class="ectt-1200">et</span>&#x00A0;<span 
class="ectt-1200">p&#x003E;0:</span>&#x00A0;<span 
class="ectt-1200">modele</span>&#x00A0;<span 
class="ectt-1200">AR(p)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">------------------------------------------------------------------------------------------------</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">preci=X02AJF()</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DO</span>&#x00A0;<span 
class="ectt-1200">70,</span>&#x00A0;<span 
class="ectt-1200">i=1,nbcle</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(6,*)</span>&#x00A0;<span 
class="ectt-1200">nbcle-i</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">IPRINT=-1</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">EXACT=.TRUE.</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">-----------------------------------------------------------------------------------------------</span>
&#x00A0;<br /><span 
class="ectt-1200">c </span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">On</span>&#x00A0;<span 
class="ectt-1200">simule</span>&#x00A0;<span 
class="ectt-1200">les</span>&#x00A0;<span 
class="ectt-1200">donnees:</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">-----------------------------------------------------------------------------------------------</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">donees=[Y1,...,YT]</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">IF</span>&#x00A0;<span 
class="ectt-1200">(loi</span>&#x00A0;<span 
class="ectt-1200">.EQ.</span>&#x00A0;<span 
class="ectt-1200">0)</span>&#x00A0;<span 
class="ectt-1200">THEN</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">IFAIL1=0</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">ATTENTION!!!</span>&#x00A0;<span 
class="ectt-1200">ICI</span>&#x00A0;<span 
class="ectt-1200">JE</span>&#x00A0;<span 
class="ectt-1200">N&#x2019;AI</span>&#x00A0;<span 
class="ectt-1200">PAS</span>&#x00A0;<span 
class="ectt-1200">PU</span>&#x00A0;<span 
class="ectt-1200">ENLEVER</span>&#x00A0;<span 
class="ectt-1200">la</span>&#x00A0;<span 
class="ectt-1200">moyenne</span>&#x00A0;<span 
class="ectt-1200">aux</span>&#x00A0;<span 
class="ectt-1200">epsilon</span>&#x00A0;<span 
class="ectt-1200">comme</span>&#x00A0;<span 
class="ectt-1200">dans</span>&#x00A0;<span 
class="ectt-1200">simulARMA</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">C&#x2019;est</span>&#x00A0;<span 
class="ectt-1200">un</span>&#x00A0;<span 
class="ectt-1200">probleme</span>&#x00A0;<span 
class="ectt-1200">qu&#x2019;il</span>&#x00A0;<span 
class="ectt-1200">faudra</span>&#x00A0;<span 
class="ectt-1200">resoudre</span>&#x00A0;<span 
class="ectt-1200">quand</span>&#x00A0;<span 
class="ectt-1200">mu</span>&#x00A0;<span 
class="ectt-1200">sera</span>&#x00A0;<span 
class="ectt-1200">different</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">0</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CALL</span>&#x00A0;<span 
class="ectt-1200">G05EGF(E,</span>&#x00A0;<span 
class="ectt-1200">A,</span>&#x00A0;<span 
class="ectt-1200">NA,</span>&#x00A0;<span 
class="ectt-1200">B,</span>&#x00A0;<span 
class="ectt-1200">NB,</span>&#x00A0;<span 
class="ectt-1200">R,</span>&#x00A0;<span 
class="ectt-1200">NR,</span>&#x00A0;<span 
class="ectt-1200">VAR,</span>&#x00A0;<span 
class="ectt-1200">IFAIL1)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">A</span>&#x00A0;<span 
class="ectt-1200">la</span>&#x00A0;<span 
class="ectt-1200">sortie</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">G05EGF,</span>&#x00A0;<span 
class="ectt-1200">R</span>&#x00A0;<span 
class="ectt-1200">contient:</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">NA+0.5,</span>&#x00A0;<span 
class="ectt-1200">NB+0.5,</span>&#x00A0;<span 
class="ectt-1200">NA+NB+4+MAX(NA,NB)+0.5,</span>&#x00A0;<span 
class="ectt-1200">mu,</span>&#x00A0;<span 
class="ectt-1200">phi,</span>&#x00A0;<span 
class="ectt-1200">sigma,</span>&#x00A0;<span 
class="ectt-1200">teta,</span>&#x00A0;<span 
class="ectt-1200">les</span>&#x00A0;<span 
class="ectt-1200">NB</span>&#x00A0;<span 
class="ectt-1200">valeurs</span>&#x00A0;<span 
class="ectt-1200">passees</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">epsilon</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DO</span>&#x00A0;<span 
class="ectt-1200">20,</span>&#x00A0;<span 
class="ectt-1200">j=1,</span>&#x00A0;<span 
class="ectt-1200">nT</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">G05EWF</span>&#x00A0;<span 
class="ectt-1200">va</span>&#x00A0;<span 
class="ectt-1200">aussi</span>&#x00A0;<span 
class="ectt-1200">modifier(mettre</span>&#x00A0;<span 
class="ectt-1200">a</span>&#x00A0;<span 
class="ectt-1200">jour)</span>&#x00A0;<span 
class="ectt-1200">R</span>&#x00A0;<span 
class="ectt-1200">en</span>&#x00A0;<span 
class="ectt-1200">sortie</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">donees(j)=G05EWF(R,</span>&#x00A0;<span 
class="ectt-1200">NR,</span>&#x00A0;<span 
class="ectt-1200">IFAIL1)</span>
&#x00A0;<br />&#x00A0;<span 
class="ectt-1200">20</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CONTINUE</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">ENDIF</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">IF</span>&#x00A0;<span 
class="ectt-1200">(loi</span>&#x00A0;<span 
class="ectt-1200">.NE.</span>&#x00A0;<span 
class="ectt-1200">0)</span>&#x00A0;<span 
class="ectt-1200">THEN</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CALL</span>&#x00A0;<span 
class="ectt-1200">simAR(p,n,marret,Mind,loi,df1,df2,lambda,loi5b,</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">+</span>&#x00A0;&#x00A0;<span 
class="ectt-1200">loi5k,</span>&#x00A0;<span 
class="ectt-1200">loi6p,</span>&#x00A0;<span 
class="ectt-1200">loi6q,</span>&#x00A0;<span 
class="ectt-1200">loi7g,</span>&#x00A0;<span 
class="ectt-1200">loi7d,</span>&#x00A0;<span 
class="ectt-1200">loi8p,</span>&#x00A0;<span 
class="ectt-1200">loi8q,</span>&#x00A0;<span 
class="ectt-1200">loi9a,</span>&#x00A0;<span 
class="ectt-1200">loi9b,</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">+</span>&#x00A0;&#x00A0;<span 
class="ectt-1200">loi10b,</span>&#x00A0;<span 
class="ectt-1200">loi10l,</span>&#x00A0;<span 
class="ectt-1200">loi11a,</span>&#x00A0;<span 
class="ectt-1200">loi11k,</span>&#x00A0;<span 
class="ectt-1200">loi13g,</span>&#x00A0;<span 
class="ectt-1200">loi13d,</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">+</span>&#x00A0;&#x00A0;<span 
class="ectt-1200">loi14l,</span>&#x00A0;<span 
class="ectt-1200">loi16p,</span>&#x00A0;<span 
class="ectt-1200">loi16d,</span>&#x00A0;<span 
class="ectt-1200">loi17p,</span>&#x00A0;<span 
class="ectt-1200">loi17m,</span>&#x00A0;<span 
class="ectt-1200">loi18g,</span>&#x00A0;<span 
class="ectt-1200">loi18d,</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">+loi19a,loi19b,Wtip,shocks,psi,phi,phi2,YtpMn,Atn,EspSU,EspSB,EspS)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DO</span>&#x00A0;<span 
class="ectt-1200">25,</span>&#x00A0;<span 
class="ectt-1200">j=1,nT</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">donees(j)=YtpMn(j+Mind+p)</span>
&#x00A0;<br />&#x00A0;<span 
class="ectt-1200">25</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CONTINUE</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">ENDIF</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">ybarre=meanp(nT,donees)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">-----------------------------------------------------------------------------------------------</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0; <span 
class="ectt-1200">On</span>&#x00A0;<span 
class="ectt-1200">estime</span>&#x00A0;<span 
class="ectt-1200">les</span>&#x00A0;<span 
class="ectt-1200">parametres:</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">-----------------------------------------------------------------------------------------------</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Je</span>&#x00A0;<span 
class="ectt-1200">mets</span>&#x00A0;<span 
class="ectt-1200">les</span>&#x00A0;<span 
class="ectt-1200">nT</span>&#x00A0;<span 
class="ectt-1200">donnees</span>&#x00A0;<span 
class="ectt-1200">dans</span>&#x00A0;<span 
class="ectt-1200">W</span>

&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DO</span>&#x00A0;<span 
class="ectt-1200">30,</span>&#x00A0;<span 
class="ectt-1200">j=1,</span>&#x00A0;<span 
class="ectt-1200">nT</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">W(1,j)=donees(j)</span>
&#x00A0;<br />&#x00A0;<span 
class="ectt-1200">30</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CONTINUE</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DO</span>&#x00A0;<span 
class="ectt-1200">40,</span>&#x00A0;<span 
class="ectt-1200">j=1,(p+q)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PAR(j)=phi(j)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARHLD(j)=.FALSE.</span>
&#x00A0;<br />&#x00A0;<span 
class="ectt-1200">40</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CONTINUE</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">IF</span>&#x00A0;<span 
class="ectt-1200">(MEAN</span>&#x00A0;<span 
class="ectt-1200">.EQV.</span>&#x00A0;<span 
class="ectt-1200">.TRUE.)</span>&#x00A0;<span 
class="ectt-1200">PAR(p+q+1)=mu</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">IF</span>&#x00A0;<span 
class="ectt-1200">(MEAN</span>&#x00A0;<span 
class="ectt-1200">.EQV.</span>&#x00A0;<span 
class="ectt-1200">.TRUE.)</span>&#x00A0;<span 
class="ectt-1200">PARHLD(p+q+1)=.FALSE.</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">estimation</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">la</span>&#x00A0;<span 
class="ectt-1200">variance</span>&#x00A0;<span 
class="ectt-1200">des</span>&#x00A0;<span 
class="ectt-1200">residus</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">QQ(1,1)=sigma*sigma</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">MAXCA2=MAXCAL</span>
&#x00A0;<br />&#x00A0;<span 
class="ectt-1200">45</span>&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">IFAIL2=-1</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(6,*)</span>&#x00A0;<span 
class="ectt-1200">donees</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">READ(5,*)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Calcul</span>&#x00A0;<span 
class="ectt-1200">des</span>&#x00A0;<span 
class="ectt-1200">estimateurs</span>&#x00A0;<span 
class="ectt-1200">du</span>&#x00A0;<span 
class="ectt-1200">maximum</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">vraisemblance</span>&#x00A0;<span 
class="ectt-1200">exact</span>&#x00A0;<span 
class="ectt-1200">et</span>&#x00A0;<span 
class="ectt-1200">des</span>&#x00A0;<span 
class="ectt-1200">residus</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CALL</span>&#x00A0;<span 
class="ectt-1200">G13DCF(K,</span>&#x00A0;<span 
class="ectt-1200">N2,</span>&#x00A0;<span 
class="ectt-1200">IP,</span>&#x00A0;<span 
class="ectt-1200">IQ,</span>&#x00A0;<span 
class="ectt-1200">MEAN,</span>&#x00A0;<span 
class="ectt-1200">PAR,</span>&#x00A0;<span 
class="ectt-1200">NPAR,</span>&#x00A0;<span 
class="ectt-1200">QQ,</span>&#x00A0;<span 
class="ectt-1200">IK,</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">+</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">W,</span>&#x00A0;<span 
class="ectt-1200">PARHLD,</span>&#x00A0;<span 
class="ectt-1200">EXACT,</span>&#x00A0;<span 
class="ectt-1200">IPRINT,</span>&#x00A0;<span 
class="ectt-1200">CGETOL,</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">+</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">MAXCA2,</span>&#x00A0;<span 
class="ectt-1200">ISHOW,</span>&#x00A0;<span 
class="ectt-1200">NITER,</span>&#x00A0;<span 
class="ectt-1200">RLOGL,</span>&#x00A0;<span 
class="ectt-1200">V,</span>&#x00A0;<span 
class="ectt-1200">G,</span>&#x00A0;<span 
class="ectt-1200">CM,</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">+</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">ICM,</span>&#x00A0;<span 
class="ectt-1200">WORK,</span>&#x00A0;<span 
class="ectt-1200">LWORK,</span>&#x00A0;<span 
class="ectt-1200">IW,</span>&#x00A0;<span 
class="ectt-1200">LIW,</span>&#x00A0;<span 
class="ectt-1200">IFAIL2)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">IF</span>&#x00A0;<span 
class="ectt-1200">(IFAIL2</span>&#x00A0;<span 
class="ectt-1200">.EQ.</span>&#x00A0;<span 
class="ectt-1200">1)</span>&#x00A0;<span 
class="ectt-1200">err1=err1+1</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">IF</span>&#x00A0;<span 
class="ectt-1200">(IFAIL2</span>&#x00A0;<span 
class="ectt-1200">.EQ.</span>&#x00A0;<span 
class="ectt-1200">2)</span>&#x00A0;<span 
class="ectt-1200">err2=err2+1</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">IF</span>&#x00A0;<span 
class="ectt-1200">(IFAIL2</span>&#x00A0;<span 
class="ectt-1200">.EQ.</span>&#x00A0;<span 
class="ectt-1200">3)</span>&#x00A0;<span 
class="ectt-1200">err3=err3+1</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">IF</span>&#x00A0;<span 
class="ectt-1200">(IFAIL2</span>&#x00A0;<span 
class="ectt-1200">.EQ.</span>&#x00A0;<span 
class="ectt-1200">4)</span>&#x00A0;<span 
class="ectt-1200">err4=err4+1</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">IF</span>&#x00A0;<span 
class="ectt-1200">(IFAIL2</span>&#x00A0;<span 
class="ectt-1200">.EQ.</span>&#x00A0;<span 
class="ectt-1200">5)</span>&#x00A0;<span 
class="ectt-1200">err5=err5+1</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">IF</span>&#x00A0;<span 
class="ectt-1200">(IFAIL2</span>&#x00A0;<span 
class="ectt-1200">.EQ.</span>&#x00A0;<span 
class="ectt-1200">6)</span>&#x00A0;<span 
class="ectt-1200">err6=err6+1</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">IF</span>&#x00A0;<span 
class="ectt-1200">(IFAIL2</span>&#x00A0;<span 
class="ectt-1200">.EQ.</span>&#x00A0;<span 
class="ectt-1200">7)</span>&#x00A0;<span 
class="ectt-1200">err7=err7+1</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">IF</span>&#x00A0;<span 
class="ectt-1200">(IFAIL2</span>&#x00A0;<span 
class="ectt-1200">.EQ.</span>&#x00A0;<span 
class="ectt-1200">8)</span>&#x00A0;<span 
class="ectt-1200">err8=err8+1</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Permet</span>&#x00A0;<span 
class="ectt-1200">d&#x2019;eliminer</span>&#x00A0;<span 
class="ectt-1200">le</span>&#x00A0;<span 
class="ectt-1200">cas</span>&#x00A0;<span 
class="ectt-1200">d&#x2019;erreur</span>&#x00A0;<span 
class="ectt-1200">IFAIL=4</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">IF</span>&#x00A0;<span 
class="ectt-1200">(IFAIL2</span>&#x00A0;<span 
class="ectt-1200">.EQ.</span>&#x00A0;<span 
class="ectt-1200">4)</span>&#x00A0;<span 
class="ectt-1200">MAXCA2=MAXCA2+100</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">IF</span>&#x00A0;<span 
class="ectt-1200">(IFAIL2</span>&#x00A0;<span 
class="ectt-1200">.EQ.</span>&#x00A0;<span 
class="ectt-1200">4)</span>&#x00A0;<span 
class="ectt-1200">GOTO</span>&#x00A0;<span 
class="ectt-1200">45</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DO</span>&#x00A0;<span 
class="ectt-1200">50,</span>&#x00A0;<span 
class="ectt-1200">j=1,p</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">phich(j)=PAR(j)</span>
&#x00A0;<br />&#x00A0;<span 
class="ectt-1200">50</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CONTINUE</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">IF</span>&#x00A0;<span 
class="ectt-1200">(MEAN</span>&#x00A0;<span 
class="ectt-1200">.EQV.</span>&#x00A0;<span 
class="ectt-1200">.TRUE.)</span>&#x00A0;<span 
class="ectt-1200">much=PAR(p+1)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">sigch2=QQ(1,1)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Mon</span>&#x00A0;<span 
class="ectt-1200">vecteur</span>&#x00A0;<span 
class="ectt-1200">des</span>&#x00A0;<span 
class="ectt-1200">phichapeau</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(6,*)</span>&#x00A0;<span 
class="ectt-1200">&#x2019;phichap=&#x2019;,phich</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Ma</span>&#x00A0;<span 
class="ectt-1200">variance</span>&#x00A0;<span 
class="ectt-1200">estimee</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(6,*)</span>&#x00A0;<span 
class="ectt-1200">&#x2019;sigchap2=&#x2019;,sigch2</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Mon</span>&#x00A0;<span 
class="ectt-1200">vecteur</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">residus</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(6,*)</span>&#x00A0;<span 
class="ectt-1200">&#x2019;Residus:&#x2019;,V</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Ma</span>&#x00A0;<span 
class="ectt-1200">moyenne</span>&#x00A0;<span 
class="ectt-1200">estimee</span>

&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(6,*)</span>&#x00A0;<span 
class="ectt-1200">&#x2019;Moyennechap=&#x2019;,much</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">On</span>&#x00A0;<span 
class="ectt-1200">ecrit</span>&#x00A0;<span 
class="ectt-1200">les</span>&#x00A0;<span 
class="ectt-1200">donnees</span>&#x00A0;<span 
class="ectt-1200">dans</span>&#x00A0;<span 
class="ectt-1200">le</span>&#x00A0;<span 
class="ectt-1200">fichier</span>&#x00A0;<span 
class="ectt-1200">s&#x2019;il</span>&#x00A0;<span 
class="ectt-1200">n&#x2019;y</span>&#x00A0;<span 
class="ectt-1200">a</span>&#x00A0;<span 
class="ectt-1200">pas</span>&#x00A0;<span 
class="ectt-1200">eu</span>&#x00A0;<span 
class="ectt-1200">d&#x2019;erreur</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">c&#x2019;est</span>&#x00A0;<span 
class="ectt-1200">a</span>&#x00A0;<span 
class="ectt-1200">dire</span>&#x00A0;<span 
class="ectt-1200">qu&#x2019;on</span>&#x00A0;<span 
class="ectt-1200">ne</span>&#x00A0;<span 
class="ectt-1200">garde</span>&#x00A0;<span 
class="ectt-1200">que</span>&#x00A0;<span 
class="ectt-1200">les</span>&#x00A0;<span 
class="ectt-1200">bons</span>&#x00A0;<span 
class="ectt-1200">echantillons</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">IF</span>&#x00A0;<span 
class="ectt-1200">(IFAIL2</span>&#x00A0;<span 
class="ectt-1200">.EQ.</span>&#x00A0;<span 
class="ectt-1200">0)</span>&#x00A0;<span 
class="ectt-1200">WRITE(12,60)</span>&#x00A0;<span 
class="ectt-1200">sigch2,</span>&#x00A0;<span 
class="ectt-1200">((V(l,j),j=1,nT),l=1,1)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">On</span>&#x00A0;<span 
class="ectt-1200">ecrit</span>&#x00A0;<span 
class="ectt-1200">toutes</span>&#x00A0;<span 
class="ectt-1200">donnees</span>&#x00A0;<span 
class="ectt-1200">dans</span>&#x00A0;<span 
class="ectt-1200">le</span>&#x00A0;<span 
class="ectt-1200">fichier</span>&#x00A0;<span 
class="ectt-1200">sauf</span>&#x00A0;<span 
class="ectt-1200">s&#x2019;il</span>&#x00A0;<span 
class="ectt-1200">y</span>&#x00A0;<span 
class="ectt-1200">a</span>&#x00A0;<span 
class="ectt-1200">eu</span>&#x00A0;<span 
class="ectt-1200">des</span>&#x00A0;<span 
class="ectt-1200">IFAIL1,2,3</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">IF</span>&#x00A0;<span 
class="ectt-1200">((IFAIL2</span>&#x00A0;<span 
class="ectt-1200">.EQ.</span>&#x00A0;<span 
class="ectt-1200">0)</span>&#x00A0;<span 
class="ectt-1200">.OR.</span>&#x00A0;<span 
class="ectt-1200">(IFAIL2</span>&#x00A0;<span 
class="ectt-1200">.GT.</span>&#x00A0;<span 
class="ectt-1200">4))</span>&#x00A0;<span 
class="ectt-1200">WRITE(12,60)</span>&#x00A0;<span 
class="ectt-1200">sigch2,</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">+</span>&#x00A0;<span 
class="ectt-1200">((V(l,j),j=1,nT),l=1,1)</span>
&#x00A0;<br />&#x00A0;<span 
class="ectt-1200">60</span>&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">FORMAT(SP,201D20.12)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">FIN</span>&#x00A0;<span 
class="ectt-1200">DE</span>&#x00A0;<span 
class="ectt-1200">LA</span>&#x00A0;<span 
class="ectt-1200">BOUCLE</span>
&#x00A0;<br />&#x00A0;<span 
class="ectt-1200">70</span>&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CONTINUE</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CLOSE(UNIT=12)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">On</span>&#x00A0;<span 
class="ectt-1200">compte</span>&#x00A0;<span 
class="ectt-1200">le</span>&#x00A0;<span 
class="ectt-1200">nombre</span>&#x00A0;<span 
class="ectt-1200">d&#x2019;echantillons</span>&#x00A0;<span 
class="ectt-1200">reellement</span>&#x00A0;<span 
class="ectt-1200">fabriques</span>&#x00A0;<span 
class="ectt-1200">dans</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">le</span>&#x00A0;<span 
class="ectt-1200">cas</span>&#x00A0;<span 
class="ectt-1200">ou</span>&#x00A0;<span 
class="ectt-1200">on</span>&#x00A0;<span 
class="ectt-1200">elimine</span>&#x00A0;<span 
class="ectt-1200">les</span>&#x00A0;<span 
class="ectt-1200">mauvais</span>&#x00A0;<span 
class="ectt-1200">echantillons</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">nbcle=nbcle-(err1+err2+err3+err5+err6+err7+err8)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">On</span>&#x00A0;<span 
class="ectt-1200">compte</span>&#x00A0;<span 
class="ectt-1200">le</span>&#x00A0;<span 
class="ectt-1200">nombre</span>&#x00A0;<span 
class="ectt-1200">d&#x2019;echantillons</span>&#x00A0;<span 
class="ectt-1200">reellement</span>&#x00A0;<span 
class="ectt-1200">fabriques</span>&#x00A0;<span 
class="ectt-1200">dans</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">le</span>&#x00A0;<span 
class="ectt-1200">cas</span>&#x00A0;<span 
class="ectt-1200">ou</span>&#x00A0;<span 
class="ectt-1200">on</span>&#x00A0;<span 
class="ectt-1200">garde</span>&#x00A0;<span 
class="ectt-1200">tous</span>&#x00A0;<span 
class="ectt-1200">les</span>&#x00A0;<span 
class="ectt-1200">echantillons</span>&#x00A0;<span 
class="ectt-1200">(sauf</span>&#x00A0;<span 
class="ectt-1200">IFAIL1,2,3)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">nbcle=nbcle-(err1+err2+err3)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">S2=X05BAF()</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CPTIME=S2-S1</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">OPEN(UNIT=14,</span>&#x00A0;<span 
class="ectt-1200">FILE=paramf</span>&#x00A0;<span 
class="ectt-1200">,</span>&#x00A0;<span 
class="ectt-1200">STATUS=&#x2019;NEW&#x2019;</span>&#x00A0;<span 
class="ectt-1200">)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(14,*)</span>&#x00A0;<span 
class="ectt-1200">&#x2019;Fichier</span>&#x00A0;<span 
class="ectt-1200">&#x2019;//</span>&#x00A0;<span 
class="ectt-1200">paramf</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(14,*)</span>&#x00A0;<span 
class="ectt-1200">&#x2019;p=&#x2019;,p</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(14,*)</span>&#x00A0;<span 
class="ectt-1200">&#x2019;q=&#x2019;,q</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(14,*)</span>&#x00A0;<span 
class="ectt-1200">&#x2019;Phi=&#x2019;,phi</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(14,*)</span>&#x00A0;<span 
class="ectt-1200">&#x2019;nT=&#x2019;,nT</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(14,*)</span>&#x00A0;<span 
class="ectt-1200">&#x2019;loi=&#x2019;,loi</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(14,*)</span>&#x00A0;<span 
class="ectt-1200">&#x2019;nbcle=&#x2019;,nbcle</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(14,*)</span>&#x00A0;<span 
class="ectt-1200">&#x2019;marret=&#x2019;,</span>&#x00A0;<span 
class="ectt-1200">marret</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(14,*)</span>&#x00A0;<span 
class="ectt-1200">&#x2019;Mind=&#x2019;,</span>&#x00A0;<span 
class="ectt-1200">Mind</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(14,*)</span>&#x00A0;<span 
class="ectt-1200">&#x2019;sigma=&#x2019;,sigma</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(14,*)</span>&#x00A0;<span 
class="ectt-1200">&#x2019;mu=&#x2019;,</span>&#x00A0;<span 
class="ectt-1200">mu</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(14,*)</span>&#x00A0;<span 
class="ectt-1200">&#x2019;df1=&#x2019;,df1</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(14,*)</span>&#x00A0;<span 
class="ectt-1200">&#x2019;df2=&#x2019;,df2</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(14,*)</span>&#x00A0;<span 
class="ectt-1200">&#x2019;lambda=&#x2019;,lambda</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(14,*)</span>&#x00A0;<span 
class="ectt-1200">&#x2019;loi5b=&#x2019;,loi5b</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(14,*)</span>&#x00A0;<span 
class="ectt-1200">&#x2019;loi5k=&#x2019;,loi5k</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(14,*)</span>&#x00A0;<span 
class="ectt-1200">&#x2019;loi6p=&#x2019;,loi6p</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(14,*)</span>&#x00A0;<span 
class="ectt-1200">&#x2019;loi6q=&#x2019;,loi6q</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(14,*)</span>&#x00A0;<span 
class="ectt-1200">&#x2019;loi7g=&#x2019;,loi7g</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(14,*)</span>&#x00A0;<span 
class="ectt-1200">&#x2019;loi7d=&#x2019;,loi7d</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(14,*)</span>&#x00A0;<span 
class="ectt-1200">&#x2019;loi8p=&#x2019;,loi8p</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(14,*)</span>&#x00A0;<span 
class="ectt-1200">&#x2019;loi8q=&#x2019;,loi8q</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(14,*)</span>&#x00A0;<span 
class="ectt-1200">&#x2019;loi9a=&#x2019;,loi9a</span>

&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(14,*)</span>&#x00A0;<span 
class="ectt-1200">&#x2019;loi9b=&#x2019;,loi9b</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(14,*)</span>&#x00A0;<span 
class="ectt-1200">&#x2019;loi10l=&#x2019;,loi10l</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(14,*)</span>&#x00A0;<span 
class="ectt-1200">&#x2019;loi10b=&#x2019;,loi10b</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(14,*)</span>&#x00A0;<span 
class="ectt-1200">&#x2019;loi11a=&#x2019;,loi11a</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(14,*)</span>&#x00A0;<span 
class="ectt-1200">&#x2019;loi11k=&#x2019;,loi11k</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(14,*)</span>&#x00A0;<span 
class="ectt-1200">&#x2019;loi13g=&#x2019;,loi13g</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(14,*)</span>&#x00A0;<span 
class="ectt-1200">&#x2019;loi13d=&#x2019;,loi13d</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(14,*)</span>&#x00A0;<span 
class="ectt-1200">&#x2019;loi14l=&#x2019;,loi14l</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(14,*)</span>&#x00A0;<span 
class="ectt-1200">&#x2019;loi16p=&#x2019;,loi16p</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(14,*)</span>&#x00A0;<span 
class="ectt-1200">&#x2019;loi16d=&#x2019;,loi16d</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(14,*)</span>&#x00A0;<span 
class="ectt-1200">&#x2019;loi17p=&#x2019;,loi17p</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(14,*)</span>&#x00A0;<span 
class="ectt-1200">&#x2019;loi17m=&#x2019;,loi17m</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(14,*)</span>&#x00A0;<span 
class="ectt-1200">&#x2019;loi18g=&#x2019;,loi18g</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(14,*)</span>&#x00A0;<span 
class="ectt-1200">&#x2019;loi18d=&#x2019;,loi18d</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(14,*)</span>&#x00A0;<span 
class="ectt-1200">&#x2019;loi19a=&#x2019;,loi19a</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(14,*)</span>&#x00A0;<span 
class="ectt-1200">&#x2019;loi19b=&#x2019;,loi19b</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(14,*)</span>&#x00A0;<span 
class="ectt-1200">&#x2019;CGETOL=&#x2019;,CGETOL</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(14,*)</span>&#x00A0;<span 
class="ectt-1200">&#x2019;LOGICAL</span>&#x00A0;<span 
class="ectt-1200">MEAN=&#x2019;,</span>&#x00A0;<span 
class="ectt-1200">MEAN</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(14,*)</span>&#x00A0;<span 
class="ectt-1200">&#x2019;LOGICAL</span>&#x00A0;<span 
class="ectt-1200">EXACT&#x2019;,</span>&#x00A0;<span 
class="ectt-1200">EXACT</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(14,*)</span>&#x00A0;<span 
class="ectt-1200">&#x2019;Precision</span>&#x00A0;<span 
class="ectt-1200">machine=&#x2019;,</span>&#x00A0;<span 
class="ectt-1200">preci</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(14,*)</span>&#x00A0;<span 
class="ectt-1200">&#x2019;QUELQUES</span>&#x00A0;<span 
class="ectt-1200">RESULTATS:&#x2019;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(14,*)</span>&#x00A0;<span 
class="ectt-1200">&#x2019;Nombre</span>&#x00A0;<span 
class="ectt-1200">d\&#x2019;erreurs</span>&#x00A0;<span 
class="ectt-1200">IFAIL2=1:&#x2019;,err1</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(14,*)</span>&#x00A0;<span 
class="ectt-1200">&#x2019;Nombre</span>&#x00A0;<span 
class="ectt-1200">d\&#x2019;erreurs</span>&#x00A0;<span 
class="ectt-1200">IFAIL2=2:&#x2019;,err2</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(14,*)</span>&#x00A0;<span 
class="ectt-1200">&#x2019;Nombre</span>&#x00A0;<span 
class="ectt-1200">d\&#x2019;erreurs</span>&#x00A0;<span 
class="ectt-1200">IFAIL2=3:&#x2019;,err3</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(14,*)</span>&#x00A0;<span 
class="ectt-1200">&#x2019;Nombre</span>&#x00A0;<span 
class="ectt-1200">d\&#x2019;erreurs</span>&#x00A0;<span 
class="ectt-1200">IFAIL2=4:&#x2019;,err4</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(14,*)</span>&#x00A0;<span 
class="ectt-1200">&#x2019;Nombre</span>&#x00A0;<span 
class="ectt-1200">d\&#x2019;erreurs</span>&#x00A0;<span 
class="ectt-1200">IFAIL2=5:&#x2019;,err5</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(14,*)</span>&#x00A0;<span 
class="ectt-1200">&#x2019;Nombre</span>&#x00A0;<span 
class="ectt-1200">d\&#x2019;erreurs</span>&#x00A0;<span 
class="ectt-1200">IFAIL2=6:&#x2019;,err6</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(14,*)</span>&#x00A0;<span 
class="ectt-1200">&#x2019;Nombre</span>&#x00A0;<span 
class="ectt-1200">d\&#x2019;erreurs</span>&#x00A0;<span 
class="ectt-1200">IFAIL2=7:&#x2019;,err7</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(14,*)</span>&#x00A0;<span 
class="ectt-1200">&#x2019;Nombre</span>&#x00A0;<span 
class="ectt-1200">d\&#x2019;erreurs</span>&#x00A0;<span 
class="ectt-1200">IFAIL2=8:&#x2019;,err8</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(14,*)</span>&#x00A0;<span 
class="ectt-1200">&#x2019;Temps</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">calcul</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">creation</span>&#x00A0;<span 
class="ectt-1200">des</span>&#x00A0;<span 
class="ectt-1200">donnees:&#x2019;,</span>&#x00A0;<span 
class="ectt-1200">CPTIME</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CLOSE(UNIT=14)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">END</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">---------------------------------------------------------------------</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Fin</span>&#x00A0;<span 
class="ectt-1200">du</span>&#x00A0;<span 
class="ectt-1200">programme</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">---------------------------------------------------------------------</span>
</div> <span 
class="ecbx-1200">Programmes creerdat_MA.f </span><div class="verbatiminput">
<span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Debut-Commentaires</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Nom</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">la</span>&#x00A0;<span 
class="ectt-1200">sous-routine:</span>&#x00A0;<span 
class="ectt-1200">cdatMA</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Entrees:</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">-------</span>

&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">voir</span>&#x00A0;<span 
class="ectt-1200">plus</span>&#x00A0;<span 
class="ectt-1200">bas</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Sorties:</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">-------</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Le</span>&#x00A0;<span 
class="ectt-1200">fichier</span>&#x00A0;<span 
class="ectt-1200">data.txt</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Description:</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">-----------</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Modele</span>&#x00A0;<span 
class="ectt-1200">MA(q)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Ce</span>&#x00A0;<span 
class="ectt-1200">programme</span>&#x00A0;<span 
class="ectt-1200">cree</span>&#x00A0;<span 
class="ectt-1200">le</span>&#x00A0;<span 
class="ectt-1200">fichier</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">donnees</span>&#x00A0;<span 
class="ectt-1200">data.txt</span>&#x00A0;<span 
class="ectt-1200">qui</span>&#x00A0;<span 
class="ectt-1200">contient,</span>&#x00A0;<span 
class="ectt-1200">en</span>&#x00A0;<span 
class="ectt-1200">ligne:</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">sigch2</span>&#x00A0;<span 
class="ectt-1200">et</span>&#x00A0;<span 
class="ectt-1200">epschap</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Utilisation</span>&#x00A0;<span 
class="ectt-1200">dans</span>&#x00A0;<span 
class="ectt-1200">une</span>&#x00A0;<span 
class="ectt-1200">fonction</span>&#x00A0;<span 
class="ectt-1200">main:</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">-----------------------------------</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PROGRAM</span>&#x00A0;<span 
class="ectt-1200">main</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Les</span>&#x00A0;<span 
class="ectt-1200">**</span>&#x00A0;<span 
class="ectt-1200">indiquent</span>&#x00A0;<span 
class="ectt-1200">les</span>&#x00A0;<span 
class="ectt-1200">endroits</span>&#x00A0;<span 
class="ectt-1200">ou</span>&#x00A0;<span 
class="ectt-1200">des</span>&#x00A0;<span 
class="ectt-1200">changements</span>&#x00A0;<span 
class="ectt-1200">peuvent</span>&#x00A0;<span 
class="ectt-1200">etre</span>&#x00A0;<span 
class="ectt-1200">necessaires</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Nom</span>&#x00A0;<span 
class="ectt-1200">du</span>&#x00A0;<span 
class="ectt-1200">fichier</span>&#x00A0;<span 
class="ectt-1200">en</span>&#x00A0;<span 
class="ectt-1200">sortie</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">**</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CHARACTER</span>&#x00A0;<span 
class="ectt-1200">dataf*8</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Nom</span>&#x00A0;<span 
class="ectt-1200">du</span>&#x00A0;<span 
class="ectt-1200">fichier</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">parametres</span>&#x00A0;<span 
class="ectt-1200">en</span>&#x00A0;<span 
class="ectt-1200">sortie</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">**</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CHARACTER</span>&#x00A0;<span 
class="ectt-1200">paramf*17</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Nombre</span>&#x00A0;<span 
class="ectt-1200">d&#x2019;echantillons</span>&#x00A0;<span 
class="ectt-1200">souhaites</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">**</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">nbcle</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(nbcle=10)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">rang</span>&#x00A0;<span 
class="ectt-1200">d&#x2019;arret</span>&#x00A0;<span 
class="ectt-1200">dans</span>&#x00A0;<span 
class="ectt-1200">la</span>&#x00A0;<span 
class="ectt-1200">random</span>&#x00A0;<span 
class="ectt-1200">shock</span>&#x00A0;<span 
class="ectt-1200">method</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">Burn</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">**</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">marret</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(marret=200)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Induction</span>&#x00A0;<span 
class="ectt-1200">period</span>&#x00A0;<span 
class="ectt-1200">dans</span>&#x00A0;<span 
class="ectt-1200">la</span>&#x00A0;<span 
class="ectt-1200">methode</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">Burn</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">**</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">Mind</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(Mind=200)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">ecart-type</span>&#x00A0;<span 
class="ectt-1200">des</span>&#x00A0;<span 
class="ectt-1200">erreurs</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">**</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">sigma</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(sigma=1)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">moyenne</span>&#x00A0;<span 
class="ectt-1200">dans</span>&#x00A0;<span 
class="ectt-1200">mon</span>&#x00A0;<span 
class="ectt-1200">modele</span>&#x00A0;<span 
class="ectt-1200">MA</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">**</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">mu</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(mu=0)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">parametre</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">la</span>&#x00A0;<span 
class="ectt-1200">khi-deux</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">**</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">df1</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(df1=2)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">parametre</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">la</span>&#x00A0;<span 
class="ectt-1200">student</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">**</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">df2</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(df2=5)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">parametre</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">la</span>&#x00A0;<span 
class="ectt-1200">skew-normale</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">**</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">lambda</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(lambda=2.0)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">loi5b,</span>&#x00A0;<span 
class="ectt-1200">loi5k,</span>&#x00A0;<span 
class="ectt-1200">loi6p,</span>&#x00A0;<span 
class="ectt-1200">loi6q</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">loi7g,</span>&#x00A0;<span 
class="ectt-1200">loi7d,</span>&#x00A0;<span 
class="ectt-1200">loi8p,</span>&#x00A0;<span 
class="ectt-1200">loi8q,</span>&#x00A0;<span 
class="ectt-1200">loi9a,</span>&#x00A0;<span 
class="ectt-1200">loi9b</span>

&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">loi10b,</span>&#x00A0;<span 
class="ectt-1200">loi10l,</span>&#x00A0;<span 
class="ectt-1200">loi11a,</span>&#x00A0;<span 
class="ectt-1200">loi11k,</span>&#x00A0;<span 
class="ectt-1200">loi13g,</span>&#x00A0;<span 
class="ectt-1200">loi13d</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">loi14l,</span>&#x00A0;<span 
class="ectt-1200">loi16p,</span>&#x00A0;<span 
class="ectt-1200">loi16d,</span>&#x00A0;<span 
class="ectt-1200">loi17p,</span>&#x00A0;<span 
class="ectt-1200">loi17m</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">loi18g,</span>&#x00A0;<span 
class="ectt-1200">loi18d,</span>&#x00A0;<span 
class="ectt-1200">loi19a,</span>&#x00A0;<span 
class="ectt-1200">loi19b</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(loi18g=1.0,loi18d=1.0,</span>&#x00A0;<span 
class="ectt-1200">loi19a=1.1,</span>&#x00A0;<span 
class="ectt-1200">loi19b=0.5)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(loi16p=0.2,loi16d=5.0,</span>&#x00A0;<span 
class="ectt-1200">loi17p=0.2,loi17m=3.0)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(loi10b=0.2,loi10l=1,</span>&#x00A0;<span 
class="ectt-1200">loi11a=2.0,loi11k=0.5)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(loi13g=1.0,loi13d=1.0,</span>&#x00A0;<span 
class="ectt-1200">loi14l=0.7)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(loi7g=0,loi7d=1,</span>&#x00A0;<span 
class="ectt-1200">loi8p=2,</span>&#x00A0;<span 
class="ectt-1200">loi8q=2,</span>&#x00A0;<span 
class="ectt-1200">loi9a=0,loi9b=2)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(loi5b=1,</span>&#x00A0;<span 
class="ectt-1200">loi5k=1.8,</span>&#x00A0;<span 
class="ectt-1200">loi6p=4,</span>&#x00A0;<span 
class="ectt-1200">loi6q=1)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">loi</span>&#x00A0;<span 
class="ectt-1200">des</span>&#x00A0;<span 
class="ectt-1200">erreurs</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">**</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">si</span>&#x00A0;<span 
class="ectt-1200">loi=0</span>&#x00A0;<span 
class="ectt-1200">:</span>&#x00A0;<span 
class="ectt-1200">Normale(0,sigma&#x0302;2)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">si</span>&#x00A0;<span 
class="ectt-1200">loi=1</span>&#x00A0;<span 
class="ectt-1200">:</span>&#x00A0;<span 
class="ectt-1200">Khi2</span>&#x00A0;<span 
class="ectt-1200">centree</span>&#x00A0;<span 
class="ectt-1200">(df1)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">si</span>&#x00A0;<span 
class="ectt-1200">loi=2</span>&#x00A0;<span 
class="ectt-1200">:</span>&#x00A0;<span 
class="ectt-1200">Student</span>&#x00A0;<span 
class="ectt-1200">(df2)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">si</span>&#x00A0;<span 
class="ectt-1200">loi=3</span>&#x00A0;<span 
class="ectt-1200">:</span>&#x00A0;<span 
class="ectt-1200">Skew-Normale(lambda)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">si</span>&#x00A0;<span 
class="ectt-1200">loi=4</span>&#x00A0;<span 
class="ectt-1200">:</span>&#x00A0;<span 
class="ectt-1200">Laplace</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">si</span>&#x00A0;<span 
class="ectt-1200">loi=5</span>&#x00A0;<span 
class="ectt-1200">:</span>&#x00A0;<span 
class="ectt-1200">Weibull(b,k)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">si</span>&#x00A0;<span 
class="ectt-1200">loi=6</span>&#x00A0;<span 
class="ectt-1200">:</span>&#x00A0;<span 
class="ectt-1200">Gamma(p,q)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">si</span>&#x00A0;<span 
class="ectt-1200">loi=7</span>&#x00A0;<span 
class="ectt-1200">:</span>&#x00A0;<span 
class="ectt-1200">Log-Normale(g,d)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">si</span>&#x00A0;<span 
class="ectt-1200">loi=8</span>&#x00A0;<span 
class="ectt-1200">:</span>&#x00A0;<span 
class="ectt-1200">Beta(p,q)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">si</span>&#x00A0;<span 
class="ectt-1200">loi=9</span>&#x00A0;<span 
class="ectt-1200">:</span>&#x00A0;<span 
class="ectt-1200">Uniform(a,b)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">si</span>&#x00A0;<span 
class="ectt-1200">loi=10</span>&#x00A0;<span 
class="ectt-1200">:</span>&#x00A0;<span 
class="ectt-1200">Shifted</span>&#x00A0;<span 
class="ectt-1200">exp</span>&#x00A0;<span 
class="ectt-1200">(l,b)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">si</span>&#x00A0;<span 
class="ectt-1200">loi=11</span>&#x00A0;<span 
class="ectt-1200">:</span>&#x00A0;<span 
class="ectt-1200">Pareto(a,k)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">si</span>&#x00A0;<span 
class="ectt-1200">loi=12</span>&#x00A0;<span 
class="ectt-1200">:</span>&#x00A0;<span 
class="ectt-1200">Shifted</span>&#x00A0;<span 
class="ectt-1200">Pareto</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">si</span>&#x00A0;<span 
class="ectt-1200">loi=13</span>&#x00A0;<span 
class="ectt-1200">:</span>&#x00A0;<span 
class="ectt-1200">SU(g,d)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">si</span>&#x00A0;<span 
class="ectt-1200">loi=14</span>&#x00A0;<span 
class="ectt-1200">:</span>&#x00A0;<span 
class="ectt-1200">TU(l)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">si</span>&#x00A0;<span 
class="ectt-1200">loi=15</span>&#x00A0;<span 
class="ectt-1200">:</span>&#x00A0;<span 
class="ectt-1200">Logistic</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">si</span>&#x00A0;<span 
class="ectt-1200">loi=16</span>&#x00A0;<span 
class="ectt-1200">:</span>&#x00A0;<span 
class="ectt-1200">SC(p,d)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">si</span>&#x00A0;<span 
class="ectt-1200">loi=17</span>&#x00A0;<span 
class="ectt-1200">:</span>&#x00A0;<span 
class="ectt-1200">LC(p,m)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">si</span>&#x00A0;<span 
class="ectt-1200">loi=18</span>&#x00A0;<span 
class="ectt-1200">:</span>&#x00A0;<span 
class="ectt-1200">SB(g,d)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">si</span>&#x00A0;<span 
class="ectt-1200">loi=19</span>&#x00A0;<span 
class="ectt-1200">:</span>&#x00A0;<span 
class="ectt-1200">S(a,b)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">loi</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(loi=0)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">the</span>&#x00A0;<span 
class="ectt-1200">number</span>&#x00A0;<span 
class="ectt-1200">of</span>&#x00A0;<span 
class="ectt-1200">autoregressive</span>&#x00A0;<span 
class="ectt-1200">coefficients</span>&#x00A0;<span 
class="ectt-1200">supplied:</span>&#x00A0;<span 
class="ectt-1200">p=0</span>&#x00A0;<span 
class="ectt-1200">puisque</span>&#x00A0;<span 
class="ectt-1200">modele</span>&#x00A0;<span 
class="ectt-1200">MA(q)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">p</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(p=0)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">the</span>&#x00A0;<span 
class="ectt-1200">number</span>&#x00A0;<span 
class="ectt-1200">of</span>&#x00A0;<span 
class="ectt-1200">moving-average</span>&#x00A0;<span 
class="ectt-1200">coefficients</span>&#x00A0;<span 
class="ectt-1200">supplied</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">**</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">q</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(q=2)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">rm=max(p,q)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">rm</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(rm=q)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">nombre</span>&#x00A0;<span 
class="ectt-1200">d&#x2019;observations</span>&#x00A0;<span 
class="ectt-1200">dans</span>&#x00A0;<span 
class="ectt-1200">mon</span>&#x00A0;<span 
class="ectt-1200">echantillon</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">**</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Si</span>&#x00A0;<span 
class="ectt-1200">on</span>&#x00A0;<span 
class="ectt-1200">change</span>&#x00A0;<span 
class="ectt-1200">la</span>&#x00A0;<span 
class="ectt-1200">valeur</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">nT,</span>&#x00A0;<span 
class="ectt-1200">il</span>&#x00A0;<span 
class="ectt-1200">faut</span>&#x00A0;<span 
class="ectt-1200">aller</span>&#x00A0;<span 
class="ectt-1200">modifier</span>

&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">la</span>&#x00A0;<span 
class="ectt-1200">valeur</span>&#x00A0;<span 
class="ectt-1200">dans</span>&#x00A0;<span 
class="ectt-1200">FORMAT</span>&#x00A0;<span 
class="ectt-1200">a</span>&#x00A0;<span 
class="ectt-1200">la</span>&#x00A0;<span 
class="ectt-1200">fin</span>&#x00A0;<span 
class="ectt-1200">du</span>&#x00A0;<span 
class="ectt-1200">programme</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">nT</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(nT=100)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">the</span>&#x00A0;<span 
class="ectt-1200">moving-average</span>&#x00A0;<span 
class="ectt-1200">coefficients</span>&#x00A0;<span 
class="ectt-1200">of</span>&#x00A0;<span 
class="ectt-1200">the</span>&#x00A0;<span 
class="ectt-1200">model</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">teta(2)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">tetach(q)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">vecteur</span>&#x00A0;<span 
class="ectt-1200">des</span>&#x00A0;<span 
class="ectt-1200">donnees</span>&#x00A0;<span 
class="ectt-1200">cree</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">donees(nT)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Parametres</span>&#x00A0;<span 
class="ectt-1200">pour</span>&#x00A0;<span 
class="ectt-1200">G05EGF:</span>&#x00A0;<span 
class="ectt-1200">simulation</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">the</span>&#x00A0;<span 
class="ectt-1200">autoregressive</span>&#x00A0;<span 
class="ectt-1200">coefficients</span>&#x00A0;<span 
class="ectt-1200">of</span>&#x00A0;<span 
class="ectt-1200">the</span>&#x00A0;<span 
class="ectt-1200">model=phi</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Input</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Ici</span>&#x00A0;<span 
class="ectt-1200">on</span>&#x00A0;<span 
class="ectt-1200">met</span>&#x00A0;<span 
class="ectt-1200">A(1)</span>&#x00A0;<span 
class="ectt-1200">pour</span>&#x00A0;<span 
class="ectt-1200">que</span>&#x00A0;<span 
class="ectt-1200">la</span>&#x00A0;<span 
class="ectt-1200">routine</span>&#x00A0;<span 
class="ectt-1200">NAG</span>&#x00A0;<span 
class="ectt-1200">G05EGF</span>&#x00A0;<span 
class="ectt-1200">fonctionne</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">A(1)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">the</span>&#x00A0;<span 
class="ectt-1200">moving-average</span>&#x00A0;<span 
class="ectt-1200">coefficients</span>&#x00A0;<span 
class="ectt-1200">of</span>&#x00A0;<span 
class="ectt-1200">the</span>&#x00A0;<span 
class="ectt-1200">model=teta</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Input</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">B(q+1)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">le</span>&#x00A0;<span 
class="ectt-1200">vecteur</span>&#x00A0;<span 
class="ectt-1200">des</span>&#x00A0;<span 
class="ectt-1200">innovations</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Output</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">R(nT)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Parametres</span>&#x00A0;<span 
class="ectt-1200">pour</span>&#x00A0;<span 
class="ectt-1200">G13DCF:</span>&#x00A0;<span 
class="ectt-1200">estimation</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">the</span>&#x00A0;<span 
class="ectt-1200">number</span>&#x00A0;<span 
class="ectt-1200">of</span>&#x00A0;<span 
class="ectt-1200">initial</span>&#x00A0;<span 
class="ectt-1200">parameter</span>&#x00A0;<span 
class="ectt-1200">estimates</span>&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Input</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">**</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">mettre</span>&#x00A0;<span 
class="ectt-1200">p+q+1</span>&#x00A0;<span 
class="ectt-1200">si</span>&#x00A0;<span 
class="ectt-1200">MEAN=.TRUE.</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">NPAR</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(NPAR=p+q)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">first</span>&#x00A0;<span 
class="ectt-1200">dimension</span>&#x00A0;<span 
class="ectt-1200">of</span>&#x00A0;<span 
class="ectt-1200">the</span>&#x00A0;<span 
class="ectt-1200">array</span>&#x00A0;<span 
class="ectt-1200">CM</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Input</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">**</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">mettre</span>&#x00A0;<span 
class="ectt-1200">p+q+1</span>&#x00A0;<span 
class="ectt-1200">si</span>&#x00A0;<span 
class="ectt-1200">MEAN=.TRUE.</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">ICM</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(ICM=p+q)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Workspace</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">IW(NPAR+rm+3)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">initial</span>&#x00A0;<span 
class="ectt-1200">parameter</span>&#x00A0;<span 
class="ectt-1200">estimates</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Input/Output</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">PAR(NPAR)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">W(i,t)</span>&#x00A0;<span 
class="ectt-1200">must</span>&#x00A0;<span 
class="ectt-1200">be</span>&#x00A0;<span 
class="ectt-1200">set</span>&#x00A0;<span 
class="ectt-1200">equal</span>&#x00A0;<span 
class="ectt-1200">to</span>&#x00A0;<span 
class="ectt-1200">the</span>&#x00A0;<span 
class="ectt-1200">observation</span>&#x00A0;<span 
class="ectt-1200">at</span>&#x00A0;<span 
class="ectt-1200">time</span>&#x00A0;<span 
class="ectt-1200">t</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Input</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">of</span>&#x00A0;<span 
class="ectt-1200">the</span>&#x00A0;<span 
class="ectt-1200">ith</span>&#x00A0;<span 
class="ectt-1200">series</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">W(1,nT)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">the</span>&#x00A0;<span 
class="ectt-1200">accuracy</span>&#x00A0;<span 
class="ectt-1200">to</span>&#x00A0;<span 
class="ectt-1200">which</span>&#x00A0;<span 
class="ectt-1200">the</span>&#x00A0;<span 
class="ectt-1200">solution</span>&#x00A0;<span 
class="ectt-1200">in</span>&#x00A0;<span 
class="ectt-1200">PAR</span>&#x00A0;<span 
class="ectt-1200">and</span>&#x00A0;<span 
class="ectt-1200">QQ</span>&#x00A0;<span 
class="ectt-1200">is</span>&#x00A0;<span 
class="ectt-1200">required</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Input</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">**</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">CGETOL</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(CGETOL=0.0001)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">residual</span>&#x00A0;<span 
class="ectt-1200">at</span>&#x00A0;<span 
class="ectt-1200">time</span>&#x00A0;<span 
class="ectt-1200">t</span>&#x00A0;<span 
class="ectt-1200">for</span>&#x00A0;<span 
class="ectt-1200">series</span>&#x00A0;<span 
class="ectt-1200">i,</span>&#x00A0;<span 
class="ectt-1200">for</span>&#x00A0;<span 
class="ectt-1200">i</span>&#x00A0;<span 
class="ectt-1200">=</span>&#x00A0;<span 
class="ectt-1200">1,2,...,k</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Output</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">V(1,nT)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">estimated</span>&#x00A0;<span 
class="ectt-1200">first</span>&#x00A0;<span 
class="ectt-1200">derivative</span>&#x00A0;<span 
class="ectt-1200">of</span>&#x00A0;<span 
class="ectt-1200">the</span>&#x00A0;<span 
class="ectt-1200">log-likelihood</span>&#x00A0;<span 
class="ectt-1200">function</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Output</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">G(NPAR)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">estimate</span>&#x00A0;<span 
class="ectt-1200">of</span>&#x00A0;<span 
class="ectt-1200">the</span>&#x00A0;<span 
class="ectt-1200">correlation</span>&#x00A0;<span 
class="ectt-1200">coefficient</span>&#x00A0;<span 
class="ectt-1200">between</span>&#x00A0;<span 
class="ectt-1200">the</span>&#x00A0;<span 
class="ectt-1200">ith</span>&#x00A0;<span 
class="ectt-1200">and</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Output</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">jth</span>&#x00A0;<span 
class="ectt-1200">elements</span>&#x00A0;<span 
class="ectt-1200">in</span>&#x00A0;<span 
class="ectt-1200">the</span>&#x00A0;<span 
class="ectt-1200">PAR</span>&#x00A0;<span 
class="ectt-1200">array</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">CM(ICM,NPAR)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Workspace</span>

&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">WORK((5+3*nT+2*rm)+(2*p+q+2*rm*(rm+2)+9)+</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">+</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">(NPAR+1)*(5*(NPAR+1)+29)/2+(rm+1)**2)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">MEAN</span>&#x00A0;<span 
class="ectt-1200">must</span>&#x00A0;<span 
class="ectt-1200">be</span>&#x00A0;<span 
class="ectt-1200">set</span>&#x00A0;<span 
class="ectt-1200">to</span>&#x00A0;<span 
class="ectt-1200">.TRUE.</span>&#x00A0;<span 
class="ectt-1200">if</span>&#x00A0;<span 
class="ectt-1200">components</span>&#x00A0;<span 
class="ectt-1200">of</span>&#x00A0;<span 
class="ectt-1200">mu</span>&#x00A0;<span 
class="ectt-1200">are</span>&#x00A0;<span 
class="ectt-1200">to</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Input</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">**</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">be</span>&#x00A0;<span 
class="ectt-1200">estimated</span>&#x00A0;<span 
class="ectt-1200">and</span>&#x00A0;<span 
class="ectt-1200">.FALSE.</span>&#x00A0;<span 
class="ectt-1200">if</span>&#x00A0;<span 
class="ectt-1200">all</span>&#x00A0;<span 
class="ectt-1200">elements</span>&#x00A0;<span 
class="ectt-1200">of</span>&#x00A0;<span 
class="ectt-1200">mu</span>&#x00A0;<span 
class="ectt-1200">are</span>&#x00A0;<span 
class="ectt-1200">to</span>&#x00A0;<span 
class="ectt-1200">be</span>&#x00A0;<span 
class="ectt-1200">taken</span>&#x00A0;<span 
class="ectt-1200">as</span>&#x00A0;<span 
class="ectt-1200">zero</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">LOGICAL</span>&#x00A0;<span 
class="ectt-1200">MEAN</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(MEAN=.FALSE.)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARHLD(i)</span>&#x00A0;<span 
class="ectt-1200">must</span>&#x00A0;<span 
class="ectt-1200">be</span>&#x00A0;<span 
class="ectt-1200">set</span>&#x00A0;<span 
class="ectt-1200">to</span>&#x00A0;<span 
class="ectt-1200">.TRUE.,</span>&#x00A0;<span 
class="ectt-1200">if</span>&#x00A0;<span 
class="ectt-1200">PAR(i)</span>&#x00A0;<span 
class="ectt-1200">is</span>&#x00A0;<span 
class="ectt-1200">to</span>&#x00A0;<span 
class="ectt-1200">be</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Input</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">held</span>&#x00A0;<span 
class="ectt-1200">constant</span>&#x00A0;<span 
class="ectt-1200">at</span>&#x00A0;<span 
class="ectt-1200">its</span>&#x00A0;<span 
class="ectt-1200">input</span>&#x00A0;<span 
class="ectt-1200">value</span>&#x00A0;<span 
class="ectt-1200">and</span>&#x00A0;<span 
class="ectt-1200">.FALSE.,</span>&#x00A0;<span 
class="ectt-1200">if</span>&#x00A0;<span 
class="ectt-1200">PAR(i)</span>&#x00A0;<span 
class="ectt-1200">is</span>&#x00A0;<span 
class="ectt-1200">a</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">free</span>&#x00A0;<span 
class="ectt-1200">parameter,</span>&#x00A0;<span 
class="ectt-1200">for</span>&#x00A0;<span 
class="ectt-1200">i</span>&#x00A0;<span 
class="ectt-1200">=</span>&#x00A0;<span 
class="ectt-1200">1,2,...,NPAR.</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">LOGICAL</span>&#x00A0;<span 
class="ectt-1200">PARHLD(NPAR)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">EXACT</span>&#x00A0;<span 
class="ectt-1200">must</span>&#x00A0;<span 
class="ectt-1200">be</span>&#x00A0;<span 
class="ectt-1200">set</span>&#x00A0;<span 
class="ectt-1200">equal</span>&#x00A0;<span 
class="ectt-1200">to</span>&#x00A0;<span 
class="ectt-1200">.TRUE.</span>&#x00A0;<span 
class="ectt-1200">if</span>&#x00A0;<span 
class="ectt-1200">the</span>&#x00A0;<span 
class="ectt-1200">user</span>&#x00A0;<span 
class="ectt-1200">wishes</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Input</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">**</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">the</span>&#x00A0;<span 
class="ectt-1200">routine</span>&#x00A0;<span 
class="ectt-1200">to</span>&#x00A0;<span 
class="ectt-1200">compute</span>&#x00A0;<span 
class="ectt-1200">exact</span>&#x00A0;<span 
class="ectt-1200">maximum</span>&#x00A0;<span 
class="ectt-1200">likelihood</span>&#x00A0;<span 
class="ectt-1200">estimates.</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">EXACT</span>&#x00A0;<span 
class="ectt-1200">must</span>&#x00A0;<span 
class="ectt-1200">be</span>&#x00A0;<span 
class="ectt-1200">set</span>&#x00A0;<span 
class="ectt-1200">equal</span>&#x00A0;<span 
class="ectt-1200">to</span>&#x00A0;<span 
class="ectt-1200">.FALSE.</span>&#x00A0;<span 
class="ectt-1200">if</span>&#x00A0;<span 
class="ectt-1200">only</span>&#x00A0;<span 
class="ectt-1200">conditional</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">likelihood</span>&#x00A0;<span 
class="ectt-1200">estimates</span>&#x00A0;<span 
class="ectt-1200">are</span>&#x00A0;<span 
class="ectt-1200">required.</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">LOGICAL</span>&#x00A0;<span 
class="ectt-1200">EXACT</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">utile</span>&#x00A0;<span 
class="ectt-1200">dans</span>&#x00A0;<span 
class="ectt-1200">simARM.f</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">YtMn(Mind+nT)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">utile</span>&#x00A0;<span 
class="ectt-1200">dans</span>&#x00A0;<span 
class="ectt-1200">simARM.f</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">Atnq(nT+Mind+q),EspSU,EspSB,EspS</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">the</span>&#x00A0;<span 
class="ectt-1200">mean</span>&#x00A0;<span 
class="ectt-1200">of</span>&#x00A0;<span 
class="ectt-1200">the</span>&#x00A0;<span 
class="ectt-1200">time</span>&#x00A0;<span 
class="ectt-1200">series</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Input</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">E</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(E=mu)</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">the</span>&#x00A0;<span 
class="ectt-1200">number</span>&#x00A0;<span 
class="ectt-1200">of</span>&#x00A0;<span 
class="ectt-1200">autoregressive</span>&#x00A0;<span 
class="ectt-1200">coefficients</span>&#x00A0;<span 
class="ectt-1200">supplied</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Input</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">NA</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(NA=p)</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">the</span>&#x00A0;<span 
class="ectt-1200">number</span>&#x00A0;<span 
class="ectt-1200">of</span>&#x00A0;<span 
class="ectt-1200">moving-average</span>&#x00A0;<span 
class="ectt-1200">coefficients</span>&#x00A0;<span 
class="ectt-1200">supplied</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Input</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">NB</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(NB=q+1)</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">the</span>&#x00A0;<span 
class="ectt-1200">dimension</span>&#x00A0;<span 
class="ectt-1200">of</span>&#x00A0;<span 
class="ectt-1200">the</span>&#x00A0;<span 
class="ectt-1200">array</span>&#x00A0;<span 
class="ectt-1200">R:</span>&#x00A0;<span 
class="ectt-1200">vecteur</span>&#x00A0;<span 
class="ectt-1200">des</span>&#x00A0;<span 
class="ectt-1200">innovations</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Input</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">NR</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(NR=nT)</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">the</span>&#x00A0;<span 
class="ectt-1200">number</span>&#x00A0;<span 
class="ectt-1200">of</span>&#x00A0;<span 
class="ectt-1200">observed</span>&#x00A0;<span 
class="ectt-1200">time</span>&#x00A0;<span 
class="ectt-1200">series,</span>&#x00A0;<span 
class="ectt-1200">k</span>&#x00A0;&#x00A0;<span 
class="ectt-1200">(chez</span>&#x00A0;<span 
class="ectt-1200">moi</span>&#x00A0;<span 
class="ectt-1200">k=1)</span>&#x00A0;&#x00A0;<span 
class="ectt-1200">Input</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">K</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(K=1)</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">the</span>&#x00A0;<span 
class="ectt-1200">number</span>&#x00A0;<span 
class="ectt-1200">of</span>&#x00A0;<span 
class="ectt-1200">observations</span>&#x00A0;<span 
class="ectt-1200">in</span>&#x00A0;<span 
class="ectt-1200">each</span>&#x00A0;<span 
class="ectt-1200">time</span>&#x00A0;<span 
class="ectt-1200">series,</span>&#x00A0;<span 
class="ectt-1200">n</span>&#x00A0;<span 
class="ectt-1200">(chez</span>&#x00A0;<span 
class="ectt-1200">moi=nT)</span>&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Input</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">N2</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(N=nT)</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">the</span>&#x00A0;<span 
class="ectt-1200">number</span>&#x00A0;<span 
class="ectt-1200">of</span>&#x00A0;<span 
class="ectt-1200">AR</span>&#x00A0;<span 
class="ectt-1200">parameter</span>&#x00A0;<span 
class="ectt-1200">matrices,</span>&#x00A0;<span 
class="ectt-1200">p</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Input</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">IP</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(IP=p)</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">the</span>&#x00A0;<span 
class="ectt-1200">number</span>&#x00A0;<span 
class="ectt-1200">of</span>&#x00A0;<span 
class="ectt-1200">MA</span>&#x00A0;<span 
class="ectt-1200">parameter</span>&#x00A0;<span 
class="ectt-1200">matrices,</span>&#x00A0;<span 
class="ectt-1200">q</span>&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Input</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">IQ</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(IQ=q)</span>

&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">the</span>&#x00A0;<span 
class="ectt-1200">first</span>&#x00A0;<span 
class="ectt-1200">dimension</span>&#x00A0;<span 
class="ectt-1200">of</span>&#x00A0;<span 
class="ectt-1200">the</span>&#x00A0;<span 
class="ectt-1200">arrays</span>&#x00A0;<span 
class="ectt-1200">QQ,</span>&#x00A0;<span 
class="ectt-1200">W</span>&#x00A0;<span 
class="ectt-1200">and</span>&#x00A0;<span 
class="ectt-1200">V</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Input</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">IK</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(IK=1)</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">the</span>&#x00A0;<span 
class="ectt-1200">maximum</span>&#x00A0;<span 
class="ectt-1200">number</span>&#x00A0;<span 
class="ectt-1200">of</span>&#x00A0;<span 
class="ectt-1200">likelihood</span>&#x00A0;<span 
class="ectt-1200">evaluations</span>&#x00A0;<span 
class="ectt-1200">to</span>&#x00A0;<span 
class="ectt-1200">be</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Input</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">permitted</span>&#x00A0;<span 
class="ectt-1200">by</span>&#x00A0;<span 
class="ectt-1200">the</span>&#x00A0;<span 
class="ectt-1200">search</span>&#x00A0;<span 
class="ectt-1200">procedure</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">MAXCAL</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">MAXCA2</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(MAXCAL=40*NPAR*(NPAR+5))</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">which</span>&#x00A0;<span 
class="ectt-1200">quantities</span>&#x00A0;<span 
class="ectt-1200">are</span>&#x00A0;<span 
class="ectt-1200">to</span>&#x00A0;<span 
class="ectt-1200">be</span>&#x00A0;<span 
class="ectt-1200">printed</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Input</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">ISHOW</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(ISHOW=0)</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">dimension</span>&#x00A0;<span 
class="ectt-1200">of</span>&#x00A0;<span 
class="ectt-1200">the</span>&#x00A0;<span 
class="ectt-1200">array</span>&#x00A0;<span 
class="ectt-1200">WORK</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Input</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">LWORK</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(LWORK=(5+3*(nT)+2*rm)+(2*p+q+2*rm*(rm+2)+9)+</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">+</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">(NPAR+1)*(5*(NPAR+1)+29)/2+(rm+1)**2)</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">dimension</span>&#x00A0;<span 
class="ectt-1200">of</span>&#x00A0;<span 
class="ectt-1200">the</span>&#x00A0;<span 
class="ectt-1200">array</span>&#x00A0;<span 
class="ectt-1200">IW</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Input</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">LIW</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(LIW=NPAR+rm+3)</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">QQ(i,j)</span>&#x00A0;<span 
class="ectt-1200">must</span>&#x00A0;<span 
class="ectt-1200">be</span>&#x00A0;<span 
class="ectt-1200">set</span>&#x00A0;<span 
class="ectt-1200">equal</span>&#x00A0;<span 
class="ectt-1200">to</span>&#x00A0;<span 
class="ectt-1200">an</span>&#x00A0;<span 
class="ectt-1200">initial</span>&#x00A0;<span 
class="ectt-1200">estimate</span>&#x00A0;<span 
class="ectt-1200">of</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Input/Output</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">the</span>&#x00A0;<span 
class="ectt-1200">(i,j)th</span>&#x00A0;<span 
class="ectt-1200">element</span>&#x00A0;<span 
class="ectt-1200">of</span>&#x00A0;<span 
class="ectt-1200">the</span>&#x00A0;<span 
class="ectt-1200">covariance</span>&#x00A0;<span 
class="ectt-1200">matrix</span>&#x00A0;<span 
class="ectt-1200">of</span>&#x00A0;<span 
class="ectt-1200">the</span>&#x00A0;<span 
class="ectt-1200">residual</span>&#x00A0;<span 
class="ectt-1200">series</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">QQ(IK,K)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">--------------------------------------------------------------</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Fin</span>&#x00A0;<span 
class="ectt-1200">des</span>&#x00A0;<span 
class="ectt-1200">declarations</span>&#x00A0;<span 
class="ectt-1200">des</span>&#x00A0;<span 
class="ectt-1200">variables</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">--------------------------------------------------------------</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Nom</span>&#x00A0;<span 
class="ectt-1200">du</span>&#x00A0;<span 
class="ectt-1200">fichier</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">donnees</span>&#x00A0;<span 
class="ectt-1200">en</span>&#x00A0;<span 
class="ectt-1200">sortie</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">**</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">dataf=&#x2019;data.txt&#x2019;</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Nom</span>&#x00A0;<span 
class="ectt-1200">du</span>&#x00A0;<span 
class="ectt-1200">fichier</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">parametres</span>&#x00A0;<span 
class="ectt-1200">en</span>&#x00A0;<span 
class="ectt-1200">sortie</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">**</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">paramf=&#x2019;para.txt&#x2019;</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Il</span>&#x00A0;<span 
class="ectt-1200">faut</span>&#x00A0;<span 
class="ectt-1200">rentrer</span>&#x00A0;<span 
class="ectt-1200">les</span>&#x00A0;<span 
class="ectt-1200">valeurs</span>&#x00A0;<span 
class="ectt-1200">des</span>&#x00A0;<span 
class="ectt-1200">coefficients</span>&#x00A0;<span 
class="ectt-1200">teta(i)</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">**</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">teta(1)=0.1</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">teta(2)=0.2</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CALL</span>&#x00A0;<span 
class="ectt-1200">cdatMA(dataf,paramf,nbcle,marret,Mind,sigma,mu,df1,df2,</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">+</span>&#x00A0;<span 
class="ectt-1200">lambda,loi5b,</span>&#x00A0;<span 
class="ectt-1200">loi5k,</span>&#x00A0;<span 
class="ectt-1200">loi6p,</span>&#x00A0;<span 
class="ectt-1200">loi6q,</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">+</span>&#x00A0;&#x00A0;<span 
class="ectt-1200">loi7g,</span>&#x00A0;<span 
class="ectt-1200">loi7d,</span>&#x00A0;<span 
class="ectt-1200">loi8p,</span>&#x00A0;<span 
class="ectt-1200">loi8q,</span>&#x00A0;<span 
class="ectt-1200">loi9a,</span>&#x00A0;<span 
class="ectt-1200">loi9b,</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">+</span>&#x00A0;&#x00A0;<span 
class="ectt-1200">loi10b,</span>&#x00A0;<span 
class="ectt-1200">loi10l,</span>&#x00A0;<span 
class="ectt-1200">loi11a,</span>&#x00A0;<span 
class="ectt-1200">loi11k,</span>&#x00A0;<span 
class="ectt-1200">loi13g,</span>&#x00A0;<span 
class="ectt-1200">loi13d,</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">+</span>&#x00A0;&#x00A0;<span 
class="ectt-1200">loi14l,</span>&#x00A0;<span 
class="ectt-1200">loi16p,</span>&#x00A0;<span 
class="ectt-1200">loi16d,</span>&#x00A0;<span 
class="ectt-1200">loi17p,</span>&#x00A0;<span 
class="ectt-1200">loi17m,</span>&#x00A0;<span 
class="ectt-1200">loi18g,</span>&#x00A0;<span 
class="ectt-1200">loi18d,</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">+</span>&#x00A0;&#x00A0;<span 
class="ectt-1200">loi19a,</span>&#x00A0;<span 
class="ectt-1200">loi19b,</span>&#x00A0;<span 
class="ectt-1200">loi,p,q,rm,nT,teta,tetach,donees,A,B,R,NPAR,</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">+</span>&#x00A0;<span 
class="ectt-1200">ICM,IW,PAR,W,CGETOL,V,G,CM,WORK,MEAN,PARHLD,EXACT,</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">+</span>&#x00A0;<span 
class="ectt-1200">YtMn,Atnq,EspSU,EspSB,EspS,</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">+E,NA,NB,NR,K,N2,IP,IQ,IK,MAXCAL,ISHOW,LWORK,LIW,QQ)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">END</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INCLUDE</span>&#x00A0;<span 
class="ectt-1200">&#x2019;mean.f&#x2019;</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INCLUDE</span>&#x00A0;<span 
class="ectt-1200">&#x2019;simulMA.f&#x2019;</span>

&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INCLUDE</span>&#x00A0;<span 
class="ectt-1200">&#x2019;rskew.f&#x2019;</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INCLUDE</span>&#x00A0;<span 
class="ectt-1200">&#x2019;rlap.f&#x2019;</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INCLUDE</span>&#x00A0;<span 
class="ectt-1200">&#x2019;rpare.f&#x2019;</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INCLUDE</span>&#x00A0;<span 
class="ectt-1200">&#x2019;rspare.f&#x2019;</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INCLUDE</span>&#x00A0;<span 
class="ectt-1200">&#x2019;rSU.f&#x2019;</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INCLUDE</span>&#x00A0;<span 
class="ectt-1200">&#x2019;rTU.f&#x2019;</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INCLUDE</span>&#x00A0;<span 
class="ectt-1200">&#x2019;rSC.f&#x2019;</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INCLUDE</span>&#x00A0;<span 
class="ectt-1200">&#x2019;rLC.f&#x2019;</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INCLUDE</span>&#x00A0;<span 
class="ectt-1200">&#x2019;rSB.f&#x2019;</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INCLUDE</span>&#x00A0;<span 
class="ectt-1200">&#x2019;rS.f&#x2019;</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INCLUDE</span>&#x00A0;<span 
class="ectt-1200">&#x2019;creerdat_MA.f&#x2019;</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">------------------------------------------------------------------</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Instructions</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">compilation:</span>&#x00A0;<span 
class="ectt-1200">alias</span>&#x00A0;<span 
class="ectt-1200">f77=&#x2019;fort77&#x2019;</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">f77</span>&#x00A0;<span 
class="ectt-1200">-c</span>&#x00A0;<span 
class="ectt-1200">nom_du_fichier_contenant_la_fonction_main.f</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">f77</span>&#x00A0;<span 
class="ectt-1200">-c</span>&#x00A0;<span 
class="ectt-1200">creerdat_MA.f</span>&#x00A0;<span 
class="ectt-1200">-lnag</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">f77</span>&#x00A0;<span 
class="ectt-1200">nom_du_fichier_contenant_la_fonction_main.o</span>&#x00A0;<span 
class="ectt-1200">creerdat_MA.o</span>&#x00A0;<span 
class="ectt-1200">-lnag</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Fonctions</span>&#x00A0;<span 
class="ectt-1200">exterieures</span>&#x00A0;<span 
class="ectt-1200">appellees:</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">G05EGF,</span>&#x00A0;<span 
class="ectt-1200">G05EWF</span>&#x00A0;<span 
class="ectt-1200">et</span>&#x00A0;&#x00A0;<span 
class="ectt-1200">G13DCF</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">la</span>&#x00A0;<span 
class="ectt-1200">librairie</span>&#x00A0;<span 
class="ectt-1200">NAG</span>&#x00A0;<span 
class="ectt-1200">Mark16</span>&#x00A0;<span 
class="ectt-1200">et</span>&#x00A0;<span 
class="ectt-1200">simMA.f</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Auteur:</span>&#x00A0;<span 
class="ectt-1200">Pierre</span>&#x00A0;<span 
class="ectt-1200">Lafaye</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">Micheaux</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Date:</span>&#x00A0;<span 
class="ectt-1200">15/02/2001</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Fin-Commentaires</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">SUBROUTINE</span>&#x00A0;<span 
class="ectt-1200">cdatMA(dataf,paramf,nbcle,marret,Mind,sigma,mu,df1,df2,</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">+</span>&#x00A0;<span 
class="ectt-1200">lambda,loi5b,loi5k,loi6p,loi6q,loi7g,loi7d,loi8p,loi8q,loi9a,</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">+loi9b,loi10b,loi10l,loi11a,loi11k,loi13g,loi13d,loi14l,loi16p,</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">+loi16d,loi17p,loi17m,loi18g,loi18d,loi19a,loi19b,loi,p,q,rm,nT,</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">+</span>&#x00A0;<span 
class="ectt-1200">teta,tetach,donees,A,B,R,NPAR,</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">+</span>&#x00A0;<span 
class="ectt-1200">ICM,IW,PAR,W,CGETOL,V,G,CM,WORK,MEAN,PARHLD,EXACT,</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">+</span>&#x00A0;<span 
class="ectt-1200">YtMn,Atnq,EspSU,EspSB,EspS,</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">+E,NA,NB,NR,K,N2,IP,IQ,IK,MAXCAL,ISHOW,LWORK,LIW,QQ)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">-----------------------------------------------------</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Debut</span>&#x00A0;<span 
class="ectt-1200">des</span>&#x00A0;<span 
class="ectt-1200">Declarations</span>&#x00A0;<span 
class="ectt-1200">des</span>&#x00A0;<span 
class="ectt-1200">variables</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">-----------------------------------------------------</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">-------------------------------------------------------------------------------</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Debut</span>&#x00A0;<span 
class="ectt-1200">des</span>&#x00A0;<span 
class="ectt-1200">parametres</span>&#x00A0;<span 
class="ectt-1200">a</span>&#x00A0;<span 
class="ectt-1200">changer</span>&#x00A0;<span 
class="ectt-1200">avant</span>&#x00A0;<span 
class="ectt-1200">compilation</span>&#x00A0;<span 
class="ectt-1200">et</span>&#x00A0;<span 
class="ectt-1200">execution</span>&#x00A0;<span 
class="ectt-1200">du</span>&#x00A0;<span 
class="ectt-1200">programme</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">-------------------------------------------------------------------------------</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">ybarre,meanp</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Nom</span>&#x00A0;<span 
class="ectt-1200">du</span>&#x00A0;<span 
class="ectt-1200">fichier</span>&#x00A0;<span 
class="ectt-1200">en</span>&#x00A0;<span 
class="ectt-1200">sortie</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CHARACTER</span>&#x00A0;<span 
class="ectt-1200">dataf*8</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Nom</span>&#x00A0;<span 
class="ectt-1200">du</span>&#x00A0;<span 
class="ectt-1200">fichier</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">parametres</span>&#x00A0;<span 
class="ectt-1200">en</span>&#x00A0;<span 
class="ectt-1200">sortie</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CHARACTER</span>&#x00A0;<span 
class="ectt-1200">paramf*17</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">i,j,l</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Compteur</span>&#x00A0;<span 
class="ectt-1200">des</span>&#x00A0;<span 
class="ectt-1200">nombres</span>&#x00A0;<span 
class="ectt-1200">d&#x2019;erreurs</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">err1</span>

&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">err2</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">err3</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">err4</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">err5</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">err6</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">err7</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">err8</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Precision</span>&#x00A0;<span 
class="ectt-1200">machine</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">preci,</span>&#x00A0;<span 
class="ectt-1200">X02AJF</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">EXTERNAL</span>&#x00A0;<span 
class="ectt-1200">X02AJF</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Temps</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">calcul</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">CPTIME,</span>&#x00A0;<span 
class="ectt-1200">S1,</span>&#x00A0;<span 
class="ectt-1200">S2,</span>&#x00A0;<span 
class="ectt-1200">X05BAF</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">EXTERNAL</span>&#x00A0;<span 
class="ectt-1200">X05BAF</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Nombre</span>&#x00A0;<span 
class="ectt-1200">d&#x2019;echantillons</span>&#x00A0;<span 
class="ectt-1200">souhaites</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">nbcle</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">rang</span>&#x00A0;<span 
class="ectt-1200">d&#x2019;arret</span>&#x00A0;<span 
class="ectt-1200">dans</span>&#x00A0;<span 
class="ectt-1200">la</span>&#x00A0;<span 
class="ectt-1200">random</span>&#x00A0;<span 
class="ectt-1200">shock</span>&#x00A0;<span 
class="ectt-1200">method</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">Burn</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">marret</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Induction</span>&#x00A0;<span 
class="ectt-1200">period</span>&#x00A0;<span 
class="ectt-1200">dans</span>&#x00A0;<span 
class="ectt-1200">la</span>&#x00A0;<span 
class="ectt-1200">methode</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">Burn</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">Mind</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">ecart-type</span>&#x00A0;<span 
class="ectt-1200">des</span>&#x00A0;<span 
class="ectt-1200">erreurs</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">sigma</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">sigch2</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">moyenne</span>&#x00A0;<span 
class="ectt-1200">dans</span>&#x00A0;<span 
class="ectt-1200">mon</span>&#x00A0;<span 
class="ectt-1200">modele</span>&#x00A0;<span 
class="ectt-1200">MA</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">mu</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">much</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">parametre</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">la</span>&#x00A0;<span 
class="ectt-1200">khi-deux</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">df1</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">parametre</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">la</span>&#x00A0;<span 
class="ectt-1200">student</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">df2</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">parametre</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">la</span>&#x00A0;<span 
class="ectt-1200">skew-normale</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">lambda</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">loi5b,</span>&#x00A0;<span 
class="ectt-1200">loi5k,</span>&#x00A0;<span 
class="ectt-1200">loi6p,</span>&#x00A0;<span 
class="ectt-1200">loi6q</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">loi7g,</span>&#x00A0;<span 
class="ectt-1200">loi7d,</span>&#x00A0;<span 
class="ectt-1200">loi8p,</span>&#x00A0;<span 
class="ectt-1200">loi8q,</span>&#x00A0;<span 
class="ectt-1200">loi9a,</span>&#x00A0;<span 
class="ectt-1200">loi9b</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">loi10b,</span>&#x00A0;<span 
class="ectt-1200">loi10l,</span>&#x00A0;<span 
class="ectt-1200">loi11a,</span>&#x00A0;<span 
class="ectt-1200">loi11k,</span>&#x00A0;<span 
class="ectt-1200">loi13g,</span>&#x00A0;<span 
class="ectt-1200">loi13d</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">loi14l,</span>&#x00A0;<span 
class="ectt-1200">loi16p,</span>&#x00A0;<span 
class="ectt-1200">loi16d,</span>&#x00A0;<span 
class="ectt-1200">loi17p,</span>&#x00A0;<span 
class="ectt-1200">loi17m</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">loi18g,</span>&#x00A0;<span 
class="ectt-1200">loi18d,</span>&#x00A0;<span 
class="ectt-1200">loi19a,</span>&#x00A0;<span 
class="ectt-1200">loi19b</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">loi</span>&#x00A0;<span 
class="ectt-1200">des</span>&#x00A0;<span 
class="ectt-1200">erreurs</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">si</span>&#x00A0;<span 
class="ectt-1200">loi=0</span>&#x00A0;<span 
class="ectt-1200">:</span>&#x00A0;<span 
class="ectt-1200">Normale(0,sigma&#x0302;2)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">si</span>&#x00A0;<span 
class="ectt-1200">loi=1</span>&#x00A0;<span 
class="ectt-1200">:</span>&#x00A0;<span 
class="ectt-1200">Khi2</span>&#x00A0;<span 
class="ectt-1200">centree</span>&#x00A0;<span 
class="ectt-1200">(df1)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">si</span>&#x00A0;<span 
class="ectt-1200">loi=2</span>&#x00A0;<span 
class="ectt-1200">:</span>&#x00A0;<span 
class="ectt-1200">Student</span>&#x00A0;<span 
class="ectt-1200">(df2)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">si</span>&#x00A0;<span 
class="ectt-1200">loi=3</span>&#x00A0;<span 
class="ectt-1200">:</span>&#x00A0;<span 
class="ectt-1200">Skew-Normale(lambda)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">si</span>&#x00A0;<span 
class="ectt-1200">loi=4</span>&#x00A0;<span 
class="ectt-1200">:</span>&#x00A0;<span 
class="ectt-1200">Laplace</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">si</span>&#x00A0;<span 
class="ectt-1200">loi=5</span>&#x00A0;<span 
class="ectt-1200">:</span>&#x00A0;<span 
class="ectt-1200">Weibull(b,k)</span>

&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">si</span>&#x00A0;<span 
class="ectt-1200">loi=6</span>&#x00A0;<span 
class="ectt-1200">:</span>&#x00A0;<span 
class="ectt-1200">Gamma(p,q)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">si</span>&#x00A0;<span 
class="ectt-1200">loi=7</span>&#x00A0;<span 
class="ectt-1200">:</span>&#x00A0;<span 
class="ectt-1200">Log-Normale(g,d)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">si</span>&#x00A0;<span 
class="ectt-1200">loi=8</span>&#x00A0;<span 
class="ectt-1200">:</span>&#x00A0;<span 
class="ectt-1200">Beta(p,q)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">si</span>&#x00A0;<span 
class="ectt-1200">loi=9</span>&#x00A0;<span 
class="ectt-1200">:</span>&#x00A0;<span 
class="ectt-1200">Uniform(a,b)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">si</span>&#x00A0;<span 
class="ectt-1200">loi=10</span>&#x00A0;<span 
class="ectt-1200">:</span>&#x00A0;<span 
class="ectt-1200">Shifted</span>&#x00A0;<span 
class="ectt-1200">exp</span>&#x00A0;<span 
class="ectt-1200">(l,b)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">si</span>&#x00A0;<span 
class="ectt-1200">loi=11</span>&#x00A0;<span 
class="ectt-1200">:</span>&#x00A0;<span 
class="ectt-1200">Pareto(a,k)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">si</span>&#x00A0;<span 
class="ectt-1200">loi=12</span>&#x00A0;<span 
class="ectt-1200">:</span>&#x00A0;<span 
class="ectt-1200">Shifted</span>&#x00A0;<span 
class="ectt-1200">Pareto</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">si</span>&#x00A0;<span 
class="ectt-1200">loi=13</span>&#x00A0;<span 
class="ectt-1200">:</span>&#x00A0;<span 
class="ectt-1200">SU(g,d)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">si</span>&#x00A0;<span 
class="ectt-1200">loi=14</span>&#x00A0;<span 
class="ectt-1200">:</span>&#x00A0;<span 
class="ectt-1200">TU(l)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">si</span>&#x00A0;<span 
class="ectt-1200">loi=15</span>&#x00A0;<span 
class="ectt-1200">:</span>&#x00A0;<span 
class="ectt-1200">Logistic</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">si</span>&#x00A0;<span 
class="ectt-1200">loi=16</span>&#x00A0;<span 
class="ectt-1200">:</span>&#x00A0;<span 
class="ectt-1200">SC(p,d)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">si</span>&#x00A0;<span 
class="ectt-1200">loi=17</span>&#x00A0;<span 
class="ectt-1200">:</span>&#x00A0;<span 
class="ectt-1200">LC(p,m)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">si</span>&#x00A0;<span 
class="ectt-1200">loi=18</span>&#x00A0;<span 
class="ectt-1200">:</span>&#x00A0;<span 
class="ectt-1200">SB(g,d)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">si</span>&#x00A0;<span 
class="ectt-1200">loi=19</span>&#x00A0;<span 
class="ectt-1200">:</span>&#x00A0;<span 
class="ectt-1200">S(a,b)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">loi</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">the</span>&#x00A0;<span 
class="ectt-1200">number</span>&#x00A0;<span 
class="ectt-1200">of</span>&#x00A0;<span 
class="ectt-1200">autoregressive</span>&#x00A0;<span 
class="ectt-1200">coefficients</span>&#x00A0;<span 
class="ectt-1200">supplied:</span>&#x00A0;<span 
class="ectt-1200">p=0</span>&#x00A0;<span 
class="ectt-1200">puisque</span>&#x00A0;<span 
class="ectt-1200">modele</span>&#x00A0;<span 
class="ectt-1200">MA(q)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">p</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">the</span>&#x00A0;<span 
class="ectt-1200">number</span>&#x00A0;<span 
class="ectt-1200">of</span>&#x00A0;<span 
class="ectt-1200">moving-average</span>&#x00A0;<span 
class="ectt-1200">coefficients</span>&#x00A0;<span 
class="ectt-1200">supplied</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">q</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">rm=max(p,q)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">rm</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">nombre</span>&#x00A0;<span 
class="ectt-1200">d&#x2019;observations</span>&#x00A0;<span 
class="ectt-1200">dans</span>&#x00A0;<span 
class="ectt-1200">mon</span>&#x00A0;<span 
class="ectt-1200">echantillon</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Si</span>&#x00A0;<span 
class="ectt-1200">on</span>&#x00A0;<span 
class="ectt-1200">change</span>&#x00A0;<span 
class="ectt-1200">la</span>&#x00A0;<span 
class="ectt-1200">valeur</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">nT,</span>&#x00A0;<span 
class="ectt-1200">il</span>&#x00A0;<span 
class="ectt-1200">faut</span>&#x00A0;<span 
class="ectt-1200">aller</span>&#x00A0;<span 
class="ectt-1200">modifier</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">la</span>&#x00A0;<span 
class="ectt-1200">valeur</span>&#x00A0;<span 
class="ectt-1200">dans</span>&#x00A0;<span 
class="ectt-1200">FORMAT</span>&#x00A0;<span 
class="ectt-1200">a</span>&#x00A0;<span 
class="ectt-1200">la</span>&#x00A0;<span 
class="ectt-1200">fin</span>&#x00A0;<span 
class="ectt-1200">du</span>&#x00A0;<span 
class="ectt-1200">programme</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">nT</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">the</span>&#x00A0;<span 
class="ectt-1200">moving-average</span>&#x00A0;<span 
class="ectt-1200">coefficients</span>&#x00A0;<span 
class="ectt-1200">of</span>&#x00A0;<span 
class="ectt-1200">the</span>&#x00A0;<span 
class="ectt-1200">model</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">teta(2)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">tetach(q)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">vecteur</span>&#x00A0;<span 
class="ectt-1200">des</span>&#x00A0;<span 
class="ectt-1200">donnees</span>&#x00A0;<span 
class="ectt-1200">cree</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">donees(nT)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Parametres</span>&#x00A0;<span 
class="ectt-1200">pour</span>&#x00A0;<span 
class="ectt-1200">G05EGF:</span>&#x00A0;<span 
class="ectt-1200">simulation</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">EXTERNAL</span>&#x00A0;<span 
class="ectt-1200">G05EGF,</span>&#x00A0;<span 
class="ectt-1200">G05EWF</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">G05EWF</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">the</span>&#x00A0;<span 
class="ectt-1200">mean</span>&#x00A0;<span 
class="ectt-1200">of</span>&#x00A0;<span 
class="ectt-1200">the</span>&#x00A0;<span 
class="ectt-1200">time</span>&#x00A0;<span 
class="ectt-1200">series</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Input</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">E</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">the</span>&#x00A0;<span 
class="ectt-1200">number</span>&#x00A0;<span 
class="ectt-1200">of</span>&#x00A0;<span 
class="ectt-1200">autoregressive</span>&#x00A0;<span 
class="ectt-1200">coefficients</span>&#x00A0;<span 
class="ectt-1200">supplied</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Input</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">NA</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">the</span>&#x00A0;<span 
class="ectt-1200">autoregressive</span>&#x00A0;<span 
class="ectt-1200">coefficients</span>&#x00A0;<span 
class="ectt-1200">of</span>&#x00A0;<span 
class="ectt-1200">the</span>&#x00A0;<span 
class="ectt-1200">model=phi</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Input</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Ici</span>&#x00A0;<span 
class="ectt-1200">on</span>&#x00A0;<span 
class="ectt-1200">met</span>&#x00A0;<span 
class="ectt-1200">A(1)</span>&#x00A0;<span 
class="ectt-1200">pour</span>&#x00A0;<span 
class="ectt-1200">que</span>&#x00A0;<span 
class="ectt-1200">la</span>&#x00A0;<span 
class="ectt-1200">routine</span>&#x00A0;<span 
class="ectt-1200">NAG</span>&#x00A0;<span 
class="ectt-1200">G05EGF</span>&#x00A0;<span 
class="ectt-1200">fonctionne</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">A(1)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">the</span>&#x00A0;<span 
class="ectt-1200">number</span>&#x00A0;<span 
class="ectt-1200">of</span>&#x00A0;<span 
class="ectt-1200">moving-average</span>&#x00A0;<span 
class="ectt-1200">coefficients</span>&#x00A0;<span 
class="ectt-1200">supplied</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Input</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">NB</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">the</span>&#x00A0;<span 
class="ectt-1200">moving-average</span>&#x00A0;<span 
class="ectt-1200">coefficients</span>&#x00A0;<span 
class="ectt-1200">of</span>&#x00A0;<span 
class="ectt-1200">the</span>&#x00A0;<span 
class="ectt-1200">model=teta</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Input</span>

&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">B(NB)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">the</span>&#x00A0;<span 
class="ectt-1200">dimension</span>&#x00A0;<span 
class="ectt-1200">of</span>&#x00A0;<span 
class="ectt-1200">the</span>&#x00A0;<span 
class="ectt-1200">array</span>&#x00A0;<span 
class="ectt-1200">R:</span>&#x00A0;<span 
class="ectt-1200">vecteur</span>&#x00A0;<span 
class="ectt-1200">des</span>&#x00A0;<span 
class="ectt-1200">innovations</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Input</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">NR</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">le</span>&#x00A0;<span 
class="ectt-1200">vecteur</span>&#x00A0;<span 
class="ectt-1200">des</span>&#x00A0;<span 
class="ectt-1200">innovations</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Output</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">R(NR)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">the</span>&#x00A0;<span 
class="ectt-1200">proportion</span>&#x00A0;<span 
class="ectt-1200">of</span>&#x00A0;<span 
class="ectt-1200">the</span>&#x00A0;<span 
class="ectt-1200">variance</span>&#x00A0;<span 
class="ectt-1200">of</span>&#x00A0;<span 
class="ectt-1200">a</span>&#x00A0;<span 
class="ectt-1200">term</span>&#x00A0;<span 
class="ectt-1200">in</span>&#x00A0;<span 
class="ectt-1200">the</span>&#x00A0;<span 
class="ectt-1200">series</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Output</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">that</span>&#x00A0;<span 
class="ectt-1200">is</span>&#x00A0;<span 
class="ectt-1200">due</span>&#x00A0;<span 
class="ectt-1200">to</span>&#x00A0;<span 
class="ectt-1200">the</span>&#x00A0;<span 
class="ectt-1200">moving-average</span>&#x00A0;<span 
class="ectt-1200">(error)</span>&#x00A0;<span 
class="ectt-1200">terms</span>&#x00A0;<span 
class="ectt-1200">in</span>&#x00A0;<span 
class="ectt-1200">the</span>&#x00A0;<span 
class="ectt-1200">model.</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">The</span>&#x00A0;<span 
class="ectt-1200">smaller</span>&#x00A0;<span 
class="ectt-1200">this</span>&#x00A0;<span 
class="ectt-1200">is,</span>&#x00A0;<span 
class="ectt-1200">the</span>&#x00A0;<span 
class="ectt-1200">nearer</span>&#x00A0;<span 
class="ectt-1200">is</span>&#x00A0;<span 
class="ectt-1200">the</span>&#x00A0;<span 
class="ectt-1200">model</span>&#x00A0;<span 
class="ectt-1200">to</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">non-stationarity</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">VAR</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Traitement</span>&#x00A0;<span 
class="ectt-1200">des</span>&#x00A0;<span 
class="ectt-1200">erreurs</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">IFAIL1</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Parametres</span>&#x00A0;<span 
class="ectt-1200">pour</span>&#x00A0;<span 
class="ectt-1200">G13DCF:</span>&#x00A0;<span 
class="ectt-1200">estimation</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">EXTERNAL</span>&#x00A0;<span 
class="ectt-1200">G13DCF</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">the</span>&#x00A0;<span 
class="ectt-1200">number</span>&#x00A0;<span 
class="ectt-1200">of</span>&#x00A0;<span 
class="ectt-1200">observed</span>&#x00A0;<span 
class="ectt-1200">time</span>&#x00A0;<span 
class="ectt-1200">series,</span>&#x00A0;<span 
class="ectt-1200">k</span>&#x00A0;&#x00A0;<span 
class="ectt-1200">(chez</span>&#x00A0;<span 
class="ectt-1200">moi</span>&#x00A0;<span 
class="ectt-1200">k=1)</span>&#x00A0;&#x00A0;<span 
class="ectt-1200">Input</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">K</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">the</span>&#x00A0;<span 
class="ectt-1200">number</span>&#x00A0;<span 
class="ectt-1200">of</span>&#x00A0;<span 
class="ectt-1200">observations</span>&#x00A0;<span 
class="ectt-1200">in</span>&#x00A0;<span 
class="ectt-1200">each</span>&#x00A0;<span 
class="ectt-1200">time</span>&#x00A0;<span 
class="ectt-1200">series,</span>&#x00A0;<span 
class="ectt-1200">n</span>&#x00A0;<span 
class="ectt-1200">(chez</span>&#x00A0;<span 
class="ectt-1200">moi=nT)</span>&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Input</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">N2</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">the</span>&#x00A0;<span 
class="ectt-1200">number</span>&#x00A0;<span 
class="ectt-1200">of</span>&#x00A0;<span 
class="ectt-1200">AR</span>&#x00A0;<span 
class="ectt-1200">parameter</span>&#x00A0;<span 
class="ectt-1200">matrices,</span>&#x00A0;<span 
class="ectt-1200">p</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Input</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">IP</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">the</span>&#x00A0;<span 
class="ectt-1200">number</span>&#x00A0;<span 
class="ectt-1200">of</span>&#x00A0;<span 
class="ectt-1200">MA</span>&#x00A0;<span 
class="ectt-1200">parameter</span>&#x00A0;<span 
class="ectt-1200">matrices,</span>&#x00A0;<span 
class="ectt-1200">q</span>&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Input</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">IQ</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">the</span>&#x00A0;<span 
class="ectt-1200">number</span>&#x00A0;<span 
class="ectt-1200">of</span>&#x00A0;<span 
class="ectt-1200">initial</span>&#x00A0;<span 
class="ectt-1200">parameter</span>&#x00A0;<span 
class="ectt-1200">estimates</span>&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Input</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">mettre</span>&#x00A0;<span 
class="ectt-1200">p+q+1</span>&#x00A0;<span 
class="ectt-1200">si</span>&#x00A0;<span 
class="ectt-1200">MEAN=.TRUE.</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">NPAR</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">the</span>&#x00A0;<span 
class="ectt-1200">first</span>&#x00A0;<span 
class="ectt-1200">dimension</span>&#x00A0;<span 
class="ectt-1200">of</span>&#x00A0;<span 
class="ectt-1200">the</span>&#x00A0;<span 
class="ectt-1200">arrays</span>&#x00A0;<span 
class="ectt-1200">QQ,</span>&#x00A0;<span 
class="ectt-1200">W</span>&#x00A0;<span 
class="ectt-1200">and</span>&#x00A0;<span 
class="ectt-1200">V</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Input</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">IK</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">the</span>&#x00A0;<span 
class="ectt-1200">frequency</span>&#x00A0;<span 
class="ectt-1200">with</span>&#x00A0;<span 
class="ectt-1200">which</span>&#x00A0;<span 
class="ectt-1200">the</span>&#x00A0;<span 
class="ectt-1200">automatic</span>&#x00A0;<span 
class="ectt-1200">monitoring</span>&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Input</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">routine</span>&#x00A0;<span 
class="ectt-1200">is</span>&#x00A0;<span 
class="ectt-1200">to</span>&#x00A0;<span 
class="ectt-1200">be</span>&#x00A0;<span 
class="ectt-1200">called</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">IPRINT</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">the</span>&#x00A0;<span 
class="ectt-1200">maximum</span>&#x00A0;<span 
class="ectt-1200">number</span>&#x00A0;<span 
class="ectt-1200">of</span>&#x00A0;<span 
class="ectt-1200">likelihood</span>&#x00A0;<span 
class="ectt-1200">evaluations</span>&#x00A0;<span 
class="ectt-1200">to</span>&#x00A0;<span 
class="ectt-1200">be</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Input</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">permitted</span>&#x00A0;<span 
class="ectt-1200">by</span>&#x00A0;<span 
class="ectt-1200">the</span>&#x00A0;<span 
class="ectt-1200">search</span>&#x00A0;<span 
class="ectt-1200">procedure</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">MAXCAL</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">MAXCA2</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">which</span>&#x00A0;<span 
class="ectt-1200">quantities</span>&#x00A0;<span 
class="ectt-1200">are</span>&#x00A0;<span 
class="ectt-1200">to</span>&#x00A0;<span 
class="ectt-1200">be</span>&#x00A0;<span 
class="ectt-1200">printed</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Input</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">ISHOW</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">number</span>&#x00A0;<span 
class="ectt-1200">of</span>&#x00A0;<span 
class="ectt-1200">iterations</span>&#x00A0;<span 
class="ectt-1200">performed</span>&#x00A0;<span 
class="ectt-1200">by</span>&#x00A0;<span 
class="ectt-1200">the</span>&#x00A0;<span 
class="ectt-1200">search</span>&#x00A0;<span 
class="ectt-1200">routine</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Output</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">NITER</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">first</span>&#x00A0;<span 
class="ectt-1200">dimension</span>&#x00A0;<span 
class="ectt-1200">of</span>&#x00A0;<span 
class="ectt-1200">the</span>&#x00A0;<span 
class="ectt-1200">array</span>&#x00A0;<span 
class="ectt-1200">CM</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Input</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">mettre</span>&#x00A0;<span 
class="ectt-1200">p+q+1</span>&#x00A0;<span 
class="ectt-1200">si</span>&#x00A0;<span 
class="ectt-1200">MEAN=.TRUE.</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">ICM</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">dimension</span>&#x00A0;<span 
class="ectt-1200">of</span>&#x00A0;<span 
class="ectt-1200">the</span>&#x00A0;<span 
class="ectt-1200">array</span>&#x00A0;<span 
class="ectt-1200">WORK</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Input</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">LWORK</span>

&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">dimension</span>&#x00A0;<span 
class="ectt-1200">of</span>&#x00A0;<span 
class="ectt-1200">the</span>&#x00A0;<span 
class="ectt-1200">array</span>&#x00A0;<span 
class="ectt-1200">IW</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Input</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">LIW</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Workspace</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">IW(LIW)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Traitement</span>&#x00A0;<span 
class="ectt-1200">des</span>&#x00A0;<span 
class="ectt-1200">erreurs</span>&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Input/Output</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">IFAIL2</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">initial</span>&#x00A0;<span 
class="ectt-1200">parameter</span>&#x00A0;<span 
class="ectt-1200">estimates</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Input/Output</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">PAR(NPAR)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">QQ(i,j)</span>&#x00A0;<span 
class="ectt-1200">must</span>&#x00A0;<span 
class="ectt-1200">be</span>&#x00A0;<span 
class="ectt-1200">set</span>&#x00A0;<span 
class="ectt-1200">equal</span>&#x00A0;<span 
class="ectt-1200">to</span>&#x00A0;<span 
class="ectt-1200">an</span>&#x00A0;<span 
class="ectt-1200">initial</span>&#x00A0;<span 
class="ectt-1200">estimate</span>&#x00A0;<span 
class="ectt-1200">of</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Input/Output</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">the</span>&#x00A0;<span 
class="ectt-1200">(i,j)th</span>&#x00A0;<span 
class="ectt-1200">element</span>&#x00A0;<span 
class="ectt-1200">of</span>&#x00A0;<span 
class="ectt-1200">the</span>&#x00A0;<span 
class="ectt-1200">covariance</span>&#x00A0;<span 
class="ectt-1200">matrix</span>&#x00A0;<span 
class="ectt-1200">of</span>&#x00A0;<span 
class="ectt-1200">the</span>&#x00A0;<span 
class="ectt-1200">residual</span>&#x00A0;<span 
class="ectt-1200">series</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">QQ(IK,K)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">W(i,t)</span>&#x00A0;<span 
class="ectt-1200">must</span>&#x00A0;<span 
class="ectt-1200">be</span>&#x00A0;<span 
class="ectt-1200">set</span>&#x00A0;<span 
class="ectt-1200">equal</span>&#x00A0;<span 
class="ectt-1200">to</span>&#x00A0;<span 
class="ectt-1200">the</span>&#x00A0;<span 
class="ectt-1200">observation</span>&#x00A0;<span 
class="ectt-1200">at</span>&#x00A0;<span 
class="ectt-1200">time</span>&#x00A0;<span 
class="ectt-1200">t</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Input</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">of</span>&#x00A0;<span 
class="ectt-1200">the</span>&#x00A0;<span 
class="ectt-1200">ith</span>&#x00A0;<span 
class="ectt-1200">series</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">W(IK,N2)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">the</span>&#x00A0;<span 
class="ectt-1200">accuracy</span>&#x00A0;<span 
class="ectt-1200">to</span>&#x00A0;<span 
class="ectt-1200">which</span>&#x00A0;<span 
class="ectt-1200">the</span>&#x00A0;<span 
class="ectt-1200">solution</span>&#x00A0;<span 
class="ectt-1200">in</span>&#x00A0;<span 
class="ectt-1200">PAR</span>&#x00A0;<span 
class="ectt-1200">and</span>&#x00A0;<span 
class="ectt-1200">QQ</span>&#x00A0;<span 
class="ectt-1200">is</span>&#x00A0;<span 
class="ectt-1200">required</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Input</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">CGETOL</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">value</span>&#x00A0;<span 
class="ectt-1200">of</span>&#x00A0;<span 
class="ectt-1200">the</span>&#x00A0;<span 
class="ectt-1200">log-likelihood</span>&#x00A0;<span 
class="ectt-1200">function</span>&#x00A0;<span 
class="ectt-1200">corresponding</span>&#x00A0;<span 
class="ectt-1200">to</span>&#x00A0;<span 
class="ectt-1200">the</span>&#x00A0;<span 
class="ectt-1200">final</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Output</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">point</span>&#x00A0;<span 
class="ectt-1200">held</span>&#x00A0;<span 
class="ectt-1200">in</span>&#x00A0;<span 
class="ectt-1200">PAR</span>&#x00A0;<span 
class="ectt-1200">and</span>&#x00A0;<span 
class="ectt-1200">QQ</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">RLOGL</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">residual</span>&#x00A0;<span 
class="ectt-1200">at</span>&#x00A0;<span 
class="ectt-1200">time</span>&#x00A0;<span 
class="ectt-1200">t</span>&#x00A0;<span 
class="ectt-1200">for</span>&#x00A0;<span 
class="ectt-1200">series</span>&#x00A0;<span 
class="ectt-1200">i,</span>&#x00A0;<span 
class="ectt-1200">for</span>&#x00A0;<span 
class="ectt-1200">i</span>&#x00A0;<span 
class="ectt-1200">=</span>&#x00A0;<span 
class="ectt-1200">1,2,...,k</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Output</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">V(IK,N2)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">estimated</span>&#x00A0;<span 
class="ectt-1200">first</span>&#x00A0;<span 
class="ectt-1200">derivative</span>&#x00A0;<span 
class="ectt-1200">of</span>&#x00A0;<span 
class="ectt-1200">the</span>&#x00A0;<span 
class="ectt-1200">log-likelihood</span>&#x00A0;<span 
class="ectt-1200">function</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Output</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">G(NPAR)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">estimate</span>&#x00A0;<span 
class="ectt-1200">of</span>&#x00A0;<span 
class="ectt-1200">the</span>&#x00A0;<span 
class="ectt-1200">correlation</span>&#x00A0;<span 
class="ectt-1200">coefficient</span>&#x00A0;<span 
class="ectt-1200">between</span>&#x00A0;<span 
class="ectt-1200">the</span>&#x00A0;<span 
class="ectt-1200">ith</span>&#x00A0;<span 
class="ectt-1200">and</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Output</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">jth</span>&#x00A0;<span 
class="ectt-1200">elements</span>&#x00A0;<span 
class="ectt-1200">in</span>&#x00A0;<span 
class="ectt-1200">the</span>&#x00A0;<span 
class="ectt-1200">PAR</span>&#x00A0;<span 
class="ectt-1200">array</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">CM(ICM,NPAR)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Workspace</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">WORK(LWORK)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">MEAN</span>&#x00A0;<span 
class="ectt-1200">must</span>&#x00A0;<span 
class="ectt-1200">be</span>&#x00A0;<span 
class="ectt-1200">set</span>&#x00A0;<span 
class="ectt-1200">to</span>&#x00A0;<span 
class="ectt-1200">.TRUE.</span>&#x00A0;<span 
class="ectt-1200">if</span>&#x00A0;<span 
class="ectt-1200">components</span>&#x00A0;<span 
class="ectt-1200">of</span>&#x00A0;<span 
class="ectt-1200">mu</span>&#x00A0;<span 
class="ectt-1200">are</span>&#x00A0;<span 
class="ectt-1200">to</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Input</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">be</span>&#x00A0;<span 
class="ectt-1200">estimated</span>&#x00A0;<span 
class="ectt-1200">and</span>&#x00A0;<span 
class="ectt-1200">.FALSE.</span>&#x00A0;<span 
class="ectt-1200">if</span>&#x00A0;<span 
class="ectt-1200">all</span>&#x00A0;<span 
class="ectt-1200">elements</span>&#x00A0;<span 
class="ectt-1200">of</span>&#x00A0;<span 
class="ectt-1200">mu</span>&#x00A0;<span 
class="ectt-1200">are</span>&#x00A0;<span 
class="ectt-1200">to</span>&#x00A0;<span 
class="ectt-1200">be</span>&#x00A0;<span 
class="ectt-1200">taken</span>&#x00A0;<span 
class="ectt-1200">as</span>&#x00A0;<span 
class="ectt-1200">zero</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">LOGICAL</span>&#x00A0;<span 
class="ectt-1200">MEAN</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARHLD(i)</span>&#x00A0;<span 
class="ectt-1200">must</span>&#x00A0;<span 
class="ectt-1200">be</span>&#x00A0;<span 
class="ectt-1200">set</span>&#x00A0;<span 
class="ectt-1200">to</span>&#x00A0;<span 
class="ectt-1200">.TRUE.,</span>&#x00A0;<span 
class="ectt-1200">if</span>&#x00A0;<span 
class="ectt-1200">PAR(i)</span>&#x00A0;<span 
class="ectt-1200">is</span>&#x00A0;<span 
class="ectt-1200">to</span>&#x00A0;<span 
class="ectt-1200">be</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Input</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">held</span>&#x00A0;<span 
class="ectt-1200">constant</span>&#x00A0;<span 
class="ectt-1200">at</span>&#x00A0;<span 
class="ectt-1200">its</span>&#x00A0;<span 
class="ectt-1200">input</span>&#x00A0;<span 
class="ectt-1200">value</span>&#x00A0;<span 
class="ectt-1200">and</span>&#x00A0;<span 
class="ectt-1200">.FALSE.,</span>&#x00A0;<span 
class="ectt-1200">if</span>&#x00A0;<span 
class="ectt-1200">PAR(i)</span>&#x00A0;<span 
class="ectt-1200">is</span>&#x00A0;<span 
class="ectt-1200">a</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">free</span>&#x00A0;<span 
class="ectt-1200">parameter,</span>&#x00A0;<span 
class="ectt-1200">for</span>&#x00A0;<span 
class="ectt-1200">i</span>&#x00A0;<span 
class="ectt-1200">=</span>&#x00A0;<span 
class="ectt-1200">1,2,...,NPAR.</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">LOGICAL</span>&#x00A0;<span 
class="ectt-1200">PARHLD(NPAR)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">EXACT</span>&#x00A0;<span 
class="ectt-1200">must</span>&#x00A0;<span 
class="ectt-1200">be</span>&#x00A0;<span 
class="ectt-1200">set</span>&#x00A0;<span 
class="ectt-1200">equal</span>&#x00A0;<span 
class="ectt-1200">to</span>&#x00A0;<span 
class="ectt-1200">.TRUE.</span>&#x00A0;<span 
class="ectt-1200">if</span>&#x00A0;<span 
class="ectt-1200">the</span>&#x00A0;<span 
class="ectt-1200">user</span>&#x00A0;<span 
class="ectt-1200">wishes</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Input</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">the</span>&#x00A0;<span 
class="ectt-1200">routine</span>&#x00A0;<span 
class="ectt-1200">to</span>&#x00A0;<span 
class="ectt-1200">compute</span>&#x00A0;<span 
class="ectt-1200">exact</span>&#x00A0;<span 
class="ectt-1200">maximum</span>&#x00A0;<span 
class="ectt-1200">likelihood</span>&#x00A0;<span 
class="ectt-1200">estimates.</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">EXACT</span>&#x00A0;<span 
class="ectt-1200">must</span>&#x00A0;<span 
class="ectt-1200">be</span>&#x00A0;<span 
class="ectt-1200">set</span>&#x00A0;<span 
class="ectt-1200">equal</span>&#x00A0;<span 
class="ectt-1200">to</span>&#x00A0;<span 
class="ectt-1200">.FALSE.</span>&#x00A0;<span 
class="ectt-1200">if</span>&#x00A0;<span 
class="ectt-1200">only</span>&#x00A0;<span 
class="ectt-1200">conditional</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">likelihood</span>&#x00A0;<span 
class="ectt-1200">estimates</span>&#x00A0;<span 
class="ectt-1200">are</span>&#x00A0;<span 
class="ectt-1200">required.</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">LOGICAL</span>&#x00A0;<span 
class="ectt-1200">EXACT</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">utile</span>&#x00A0;<span 
class="ectt-1200">dans</span>&#x00A0;<span 
class="ectt-1200">simARM.f</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">YtMn(Mind+nT)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">utile</span>&#x00A0;<span 
class="ectt-1200">dans</span>&#x00A0;<span 
class="ectt-1200">simARM.f</span>

&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">Atnq(nT+Mind+q),EspSU,EspSB,EspS</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">-----------------------------------------------------</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Fin</span>&#x00A0;<span 
class="ectt-1200">des</span>&#x00A0;<span 
class="ectt-1200">Declarations</span>&#x00A0;<span 
class="ectt-1200">des</span>&#x00A0;<span 
class="ectt-1200">variables</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">-----------------------------------------------------</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">err1=0</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">err2=0</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">err3=0</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">err4=0</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">err5=0</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">err6=0</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">err7=0</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">err8=0</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">---------------------------------------------------------------------</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Debut</span>&#x00A0;<span 
class="ectt-1200">du</span>&#x00A0;<span 
class="ectt-1200">programme</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">---------------------------------------------------------------------</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">B(1)=sigma</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DO</span>&#x00A0;<span 
class="ectt-1200">10,</span>&#x00A0;<span 
class="ectt-1200">j=1,q</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">B(j+1)=teta(j)*B(1)</span>
&#x00A0;<br />&#x00A0;<span 
class="ectt-1200">10</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CONTINUE</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">S1=X05BAF()</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">OPEN(UNIT=12,</span>&#x00A0;<span 
class="ectt-1200">FILE=dataf</span>&#x00A0;<span 
class="ectt-1200">,</span>&#x00A0;<span 
class="ectt-1200">STATUS=&#x2019;NEW&#x2019;</span>&#x00A0;<span 
class="ectt-1200">)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">------------------------------------------------------------------------------------------------</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0; <span 
class="ectt-1200">q&#x003E;0</span>&#x00A0;<span 
class="ectt-1200">et</span>&#x00A0;<span 
class="ectt-1200">p=0:</span>&#x00A0;<span 
class="ectt-1200">modele</span>&#x00A0;<span 
class="ectt-1200">MA(q)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">------------------------------------------------------------------------------------------------</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">preci=X02AJF()</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DO</span>&#x00A0;<span 
class="ectt-1200">70,</span>&#x00A0;<span 
class="ectt-1200">i=1,nbcle</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(6,*)</span>&#x00A0;<span 
class="ectt-1200">nbcle-i</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">IPRINT=-1</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">EXACT=.TRUE.</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">-----------------------------------------------------------------------------------------------</span>
&#x00A0;<br /><span 
class="ectt-1200">c </span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">On</span>&#x00A0;<span 
class="ectt-1200">simule</span>&#x00A0;<span 
class="ectt-1200">les</span>&#x00A0;<span 
class="ectt-1200">donnees:</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">-----------------------------------------------------------------------------------------------</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">donees=[Y1,...,YT]</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">IF</span>&#x00A0;<span 
class="ectt-1200">(loi</span>&#x00A0;<span 
class="ectt-1200">.EQ.</span>&#x00A0;<span 
class="ectt-1200">0)</span>&#x00A0;<span 
class="ectt-1200">THEN</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">IFAIL1=0</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">ATTENTION!!!</span>&#x00A0;<span 
class="ectt-1200">ICI</span>&#x00A0;<span 
class="ectt-1200">JE</span>&#x00A0;<span 
class="ectt-1200">N&#x2019;AI</span>&#x00A0;<span 
class="ectt-1200">PAS</span>&#x00A0;<span 
class="ectt-1200">PU</span>&#x00A0;<span 
class="ectt-1200">ENLEVER</span>&#x00A0;<span 
class="ectt-1200">la</span>&#x00A0;<span 
class="ectt-1200">moyenne</span>&#x00A0;<span 
class="ectt-1200">aux</span>&#x00A0;<span 
class="ectt-1200">epsilon</span>&#x00A0;<span 
class="ectt-1200">comme</span>&#x00A0;<span 
class="ectt-1200">dans</span>&#x00A0;<span 
class="ectt-1200">simulARMA</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">C&#x2019;est</span>&#x00A0;<span 
class="ectt-1200">un</span>&#x00A0;<span 
class="ectt-1200">probleme</span>&#x00A0;<span 
class="ectt-1200">qu&#x2019;il</span>&#x00A0;<span 
class="ectt-1200">faudra</span>&#x00A0;<span 
class="ectt-1200">resoudre</span>&#x00A0;<span 
class="ectt-1200">quand</span>&#x00A0;<span 
class="ectt-1200">mu</span>&#x00A0;<span 
class="ectt-1200">sera</span>&#x00A0;<span 
class="ectt-1200">different</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">0</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CALL</span>&#x00A0;<span 
class="ectt-1200">G05EGF(E,</span>&#x00A0;<span 
class="ectt-1200">A,</span>&#x00A0;<span 
class="ectt-1200">NA,</span>&#x00A0;<span 
class="ectt-1200">B,</span>&#x00A0;<span 
class="ectt-1200">NB,</span>&#x00A0;<span 
class="ectt-1200">R,</span>&#x00A0;<span 
class="ectt-1200">NR,</span>&#x00A0;<span 
class="ectt-1200">VAR,</span>&#x00A0;<span 
class="ectt-1200">IFAIL1)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">A</span>&#x00A0;<span 
class="ectt-1200">la</span>&#x00A0;<span 
class="ectt-1200">sortie</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">G05EGF,</span>&#x00A0;<span 
class="ectt-1200">R</span>&#x00A0;<span 
class="ectt-1200">contient:</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">NA+0.5,</span>&#x00A0;<span 
class="ectt-1200">NB+0.5,</span>&#x00A0;<span 
class="ectt-1200">NA+NB+4+MAX(NA,NB)+0.5,</span>&#x00A0;<span 
class="ectt-1200">mu,</span>&#x00A0;<span 
class="ectt-1200">phi,</span>&#x00A0;<span 
class="ectt-1200">sigma,</span>&#x00A0;<span 
class="ectt-1200">teta,</span>&#x00A0;<span 
class="ectt-1200">les</span>&#x00A0;<span 
class="ectt-1200">NB</span>&#x00A0;<span 
class="ectt-1200">valeurs</span>&#x00A0;<span 
class="ectt-1200">passees</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">epsilon</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DO</span>&#x00A0;<span 
class="ectt-1200">20,</span>&#x00A0;<span 
class="ectt-1200">j=1,</span>&#x00A0;<span 
class="ectt-1200">nT</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">G05EWF</span>&#x00A0;<span 
class="ectt-1200">va</span>&#x00A0;<span 
class="ectt-1200">aussi</span>&#x00A0;<span 
class="ectt-1200">modifier(mettre</span>&#x00A0;<span 
class="ectt-1200">a</span>&#x00A0;<span 
class="ectt-1200">jour)</span>&#x00A0;<span 
class="ectt-1200">R</span>&#x00A0;<span 
class="ectt-1200">en</span>&#x00A0;<span 
class="ectt-1200">sortie</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">donees(j)=G05EWF(R,</span>&#x00A0;<span 
class="ectt-1200">NR,</span>&#x00A0;<span 
class="ectt-1200">IFAIL1)</span>

&#x00A0;<br />&#x00A0;<span 
class="ectt-1200">20</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CONTINUE</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">ENDIF</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">IF</span>&#x00A0;<span 
class="ectt-1200">(loi</span>&#x00A0;<span 
class="ectt-1200">.NE.</span>&#x00A0;<span 
class="ectt-1200">0)</span>&#x00A0;<span 
class="ectt-1200">THEN</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CALL</span>&#x00A0;<span 
class="ectt-1200">simMA</span>&#x00A0;<span 
class="ectt-1200">(q,nT,marret,Mind,loi,df1,df2,lambda,loi5b,</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">+</span>&#x00A0;&#x00A0;<span 
class="ectt-1200">loi5k,</span>&#x00A0;<span 
class="ectt-1200">loi6p,</span>&#x00A0;<span 
class="ectt-1200">loi6q,</span>&#x00A0;<span 
class="ectt-1200">loi7g,</span>&#x00A0;<span 
class="ectt-1200">loi7d,</span>&#x00A0;<span 
class="ectt-1200">loi8p,</span>&#x00A0;<span 
class="ectt-1200">loi8q,</span>&#x00A0;<span 
class="ectt-1200">loi9a,</span>&#x00A0;<span 
class="ectt-1200">loi9b,</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">+</span>&#x00A0;&#x00A0;<span 
class="ectt-1200">loi10b,</span>&#x00A0;<span 
class="ectt-1200">loi10l,</span>&#x00A0;<span 
class="ectt-1200">loi11a,</span>&#x00A0;<span 
class="ectt-1200">loi11k,</span>&#x00A0;<span 
class="ectt-1200">loi13g,</span>&#x00A0;<span 
class="ectt-1200">loi13d,</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">+</span>&#x00A0;&#x00A0;<span 
class="ectt-1200">loi14l,</span>&#x00A0;<span 
class="ectt-1200">loi16p,</span>&#x00A0;<span 
class="ectt-1200">loi16d,</span>&#x00A0;<span 
class="ectt-1200">loi17p,</span>&#x00A0;<span 
class="ectt-1200">loi17m,</span>&#x00A0;<span 
class="ectt-1200">loi18g,</span>&#x00A0;<span 
class="ectt-1200">loi18d,</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">+</span>&#x00A0;&#x00A0;<span 
class="ectt-1200">loi19a,</span>&#x00A0;<span 
class="ectt-1200">loi19b,</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">+</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">teta,YtMn,Atnq,EspSU,EspSB,EspS)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DO</span>&#x00A0;<span 
class="ectt-1200">25,</span>&#x00A0;<span 
class="ectt-1200">j=1,nT</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">donees(j)=YtMn(j+Mind)</span>
&#x00A0;<br />&#x00A0;<span 
class="ectt-1200">25</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CONTINUE</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">ENDIF</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">ybarre=meanp(nT,donees)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">-----------------------------------------------------------------------------------------------</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0; <span 
class="ectt-1200">On</span>&#x00A0;<span 
class="ectt-1200">estime</span>&#x00A0;<span 
class="ectt-1200">les</span>&#x00A0;<span 
class="ectt-1200">parametres:</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">-----------------------------------------------------------------------------------------------</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Je</span>&#x00A0;<span 
class="ectt-1200">mets</span>&#x00A0;<span 
class="ectt-1200">les</span>&#x00A0;<span 
class="ectt-1200">nT</span>&#x00A0;<span 
class="ectt-1200">donnees</span>&#x00A0;<span 
class="ectt-1200">dans</span>&#x00A0;<span 
class="ectt-1200">W</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DO</span>&#x00A0;<span 
class="ectt-1200">30,</span>&#x00A0;<span 
class="ectt-1200">j=1,</span>&#x00A0;<span 
class="ectt-1200">nT</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">W(1,j)=donees(j)</span>
&#x00A0;<br />&#x00A0;<span 
class="ectt-1200">30</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CONTINUE</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DO</span>&#x00A0;<span 
class="ectt-1200">40,</span>&#x00A0;<span 
class="ectt-1200">j=1,q</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PAR(j)=-teta(j)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARHLD(j)=.FALSE.</span>
&#x00A0;<br />&#x00A0;<span 
class="ectt-1200">40</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CONTINUE</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">IF</span>&#x00A0;<span 
class="ectt-1200">(MEAN</span>&#x00A0;<span 
class="ectt-1200">.EQV.</span>&#x00A0;<span 
class="ectt-1200">.TRUE.)</span>&#x00A0;<span 
class="ectt-1200">PAR(q+1)=mu</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">IF</span>&#x00A0;<span 
class="ectt-1200">(MEAN</span>&#x00A0;<span 
class="ectt-1200">.EQV.</span>&#x00A0;<span 
class="ectt-1200">.TRUE.)</span>&#x00A0;<span 
class="ectt-1200">PARHLD(q+1)=.FALSE.</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">estimation</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">la</span>&#x00A0;<span 
class="ectt-1200">variance</span>&#x00A0;<span 
class="ectt-1200">des</span>&#x00A0;<span 
class="ectt-1200">residus</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">QQ(1,1)=sigma*sigma</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">MAXCA2=MAXCAL</span>
&#x00A0;<br />&#x00A0;<span 
class="ectt-1200">45</span>&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">IFAIL2=-1</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Calcul</span>&#x00A0;<span 
class="ectt-1200">des</span>&#x00A0;<span 
class="ectt-1200">estimateurs</span>&#x00A0;<span 
class="ectt-1200">du</span>&#x00A0;<span 
class="ectt-1200">maximum</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">vraisemblance</span>&#x00A0;<span 
class="ectt-1200">exact</span>&#x00A0;<span 
class="ectt-1200">et</span>&#x00A0;<span 
class="ectt-1200">des</span>&#x00A0;<span 
class="ectt-1200">residus</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CALL</span>&#x00A0;<span 
class="ectt-1200">G13DCF(K,</span>&#x00A0;<span 
class="ectt-1200">N2,</span>&#x00A0;<span 
class="ectt-1200">IP,</span>&#x00A0;<span 
class="ectt-1200">IQ,</span>&#x00A0;<span 
class="ectt-1200">MEAN,</span>&#x00A0;<span 
class="ectt-1200">PAR,</span>&#x00A0;<span 
class="ectt-1200">NPAR,</span>&#x00A0;<span 
class="ectt-1200">QQ,</span>&#x00A0;<span 
class="ectt-1200">IK,</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">+</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">W,</span>&#x00A0;<span 
class="ectt-1200">PARHLD,</span>&#x00A0;<span 
class="ectt-1200">EXACT,</span>&#x00A0;<span 
class="ectt-1200">IPRINT,</span>&#x00A0;<span 
class="ectt-1200">CGETOL,</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">+</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">MAXCA2,</span>&#x00A0;<span 
class="ectt-1200">ISHOW,</span>&#x00A0;<span 
class="ectt-1200">NITER,</span>&#x00A0;<span 
class="ectt-1200">RLOGL,</span>&#x00A0;<span 
class="ectt-1200">V,</span>&#x00A0;<span 
class="ectt-1200">G,</span>&#x00A0;<span 
class="ectt-1200">CM,</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">+</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">ICM,</span>&#x00A0;<span 
class="ectt-1200">WORK,</span>&#x00A0;<span 
class="ectt-1200">LWORK,</span>&#x00A0;<span 
class="ectt-1200">IW,</span>&#x00A0;<span 
class="ectt-1200">LIW,</span>&#x00A0;<span 
class="ectt-1200">IFAIL2)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">IF</span>&#x00A0;<span 
class="ectt-1200">(IFAIL2</span>&#x00A0;<span 
class="ectt-1200">.EQ.</span>&#x00A0;<span 
class="ectt-1200">1)</span>&#x00A0;<span 
class="ectt-1200">err1=err1+1</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">IF</span>&#x00A0;<span 
class="ectt-1200">(IFAIL2</span>&#x00A0;<span 
class="ectt-1200">.EQ.</span>&#x00A0;<span 
class="ectt-1200">2)</span>&#x00A0;<span 
class="ectt-1200">err2=err2+1</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">IF</span>&#x00A0;<span 
class="ectt-1200">(IFAIL2</span>&#x00A0;<span 
class="ectt-1200">.EQ.</span>&#x00A0;<span 
class="ectt-1200">3)</span>&#x00A0;<span 
class="ectt-1200">err3=err3+1</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">IF</span>&#x00A0;<span 
class="ectt-1200">(IFAIL2</span>&#x00A0;<span 
class="ectt-1200">.EQ.</span>&#x00A0;<span 
class="ectt-1200">4)</span>&#x00A0;<span 
class="ectt-1200">err4=err4+1</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">IF</span>&#x00A0;<span 
class="ectt-1200">(IFAIL2</span>&#x00A0;<span 
class="ectt-1200">.EQ.</span>&#x00A0;<span 
class="ectt-1200">5)</span>&#x00A0;<span 
class="ectt-1200">err5=err5+1</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">IF</span>&#x00A0;<span 
class="ectt-1200">(IFAIL2</span>&#x00A0;<span 
class="ectt-1200">.EQ.</span>&#x00A0;<span 
class="ectt-1200">6)</span>&#x00A0;<span 
class="ectt-1200">err6=err6+1</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">IF</span>&#x00A0;<span 
class="ectt-1200">(IFAIL2</span>&#x00A0;<span 
class="ectt-1200">.EQ.</span>&#x00A0;<span 
class="ectt-1200">7)</span>&#x00A0;<span 
class="ectt-1200">err7=err7+1</span>

&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">IF</span>&#x00A0;<span 
class="ectt-1200">(IFAIL2</span>&#x00A0;<span 
class="ectt-1200">.EQ.</span>&#x00A0;<span 
class="ectt-1200">8)</span>&#x00A0;<span 
class="ectt-1200">err8=err8+1</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Permet</span>&#x00A0;<span 
class="ectt-1200">d&#x2019;eliminer</span>&#x00A0;<span 
class="ectt-1200">le</span>&#x00A0;<span 
class="ectt-1200">cas</span>&#x00A0;<span 
class="ectt-1200">d&#x2019;erreur</span>&#x00A0;<span 
class="ectt-1200">IFAIL=4</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">IF</span>&#x00A0;<span 
class="ectt-1200">(IFAIL2</span>&#x00A0;<span 
class="ectt-1200">.EQ.</span>&#x00A0;<span 
class="ectt-1200">4)</span>&#x00A0;<span 
class="ectt-1200">MAXCA2=MAXCA2+100</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">IF</span>&#x00A0;<span 
class="ectt-1200">(IFAIL2</span>&#x00A0;<span 
class="ectt-1200">.EQ.</span>&#x00A0;<span 
class="ectt-1200">4)</span>&#x00A0;<span 
class="ectt-1200">GOTO</span>&#x00A0;<span 
class="ectt-1200">45</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DO</span>&#x00A0;<span 
class="ectt-1200">50,</span>&#x00A0;<span 
class="ectt-1200">j=1,q</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">tetach(j)=-PAR(j)</span>
&#x00A0;<br />&#x00A0;<span 
class="ectt-1200">50</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CONTINUE</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">IF</span>&#x00A0;<span 
class="ectt-1200">(MEAN</span>&#x00A0;<span 
class="ectt-1200">.EQV.</span>&#x00A0;<span 
class="ectt-1200">.TRUE.)</span>&#x00A0;<span 
class="ectt-1200">much=PAR(q+1)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">sigch2=QQ(1,1)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Mon</span>&#x00A0;<span 
class="ectt-1200">vecteur</span>&#x00A0;<span 
class="ectt-1200">des</span>&#x00A0;<span 
class="ectt-1200">tetachapeau</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(6,*)</span>&#x00A0;<span 
class="ectt-1200">&#x2019;tetachap=&#x2019;,tetach</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Ma</span>&#x00A0;<span 
class="ectt-1200">variance</span>&#x00A0;<span 
class="ectt-1200">estimee</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(6,*)</span>&#x00A0;<span 
class="ectt-1200">&#x2019;sigchap2=&#x2019;,sigch2</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Mon</span>&#x00A0;<span 
class="ectt-1200">vecteur</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">residus</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(6,*)</span>&#x00A0;<span 
class="ectt-1200">&#x2019;Residus:&#x2019;,V</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Ma</span>&#x00A0;<span 
class="ectt-1200">moyenne</span>&#x00A0;<span 
class="ectt-1200">estimee</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(6,*)</span>&#x00A0;<span 
class="ectt-1200">&#x2019;Moyennechap=&#x2019;,much</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">On</span>&#x00A0;<span 
class="ectt-1200">ecrit</span>&#x00A0;<span 
class="ectt-1200">les</span>&#x00A0;<span 
class="ectt-1200">donnees</span>&#x00A0;<span 
class="ectt-1200">dans</span>&#x00A0;<span 
class="ectt-1200">le</span>&#x00A0;<span 
class="ectt-1200">fichier</span>&#x00A0;<span 
class="ectt-1200">s&#x2019;il</span>&#x00A0;<span 
class="ectt-1200">n&#x2019;y</span>&#x00A0;<span 
class="ectt-1200">a</span>&#x00A0;<span 
class="ectt-1200">pas</span>&#x00A0;<span 
class="ectt-1200">eu</span>&#x00A0;<span 
class="ectt-1200">d&#x2019;erreur</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">c&#x2019;est</span>&#x00A0;<span 
class="ectt-1200">a</span>&#x00A0;<span 
class="ectt-1200">dire</span>&#x00A0;<span 
class="ectt-1200">qu&#x2019;on</span>&#x00A0;<span 
class="ectt-1200">ne</span>&#x00A0;<span 
class="ectt-1200">garde</span>&#x00A0;<span 
class="ectt-1200">que</span>&#x00A0;<span 
class="ectt-1200">les</span>&#x00A0;<span 
class="ectt-1200">bons</span>&#x00A0;<span 
class="ectt-1200">echantillons</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">IF</span>&#x00A0;<span 
class="ectt-1200">(IFAIL2</span>&#x00A0;<span 
class="ectt-1200">.EQ.</span>&#x00A0;<span 
class="ectt-1200">0)</span>&#x00A0;<span 
class="ectt-1200">WRITE(12,60)</span>&#x00A0;<span 
class="ectt-1200">sigch2,</span>&#x00A0;<span 
class="ectt-1200">((V(l,j),j=1,nT),l=1,1)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">On</span>&#x00A0;<span 
class="ectt-1200">ecrit</span>&#x00A0;<span 
class="ectt-1200">toutes</span>&#x00A0;<span 
class="ectt-1200">donnees</span>&#x00A0;<span 
class="ectt-1200">dans</span>&#x00A0;<span 
class="ectt-1200">le</span>&#x00A0;<span 
class="ectt-1200">fichier</span>&#x00A0;<span 
class="ectt-1200">sauf</span>&#x00A0;<span 
class="ectt-1200">s&#x2019;il</span>&#x00A0;<span 
class="ectt-1200">y</span>&#x00A0;<span 
class="ectt-1200">a</span>&#x00A0;<span 
class="ectt-1200">eu</span>&#x00A0;<span 
class="ectt-1200">des</span>&#x00A0;<span 
class="ectt-1200">IFAIL1,2,3</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">IF</span>&#x00A0;<span 
class="ectt-1200">((IFAIL2</span>&#x00A0;<span 
class="ectt-1200">.EQ.</span>&#x00A0;<span 
class="ectt-1200">0)</span>&#x00A0;<span 
class="ectt-1200">.OR.</span>&#x00A0;<span 
class="ectt-1200">(IFAIL2</span>&#x00A0;<span 
class="ectt-1200">.GT.</span>&#x00A0;<span 
class="ectt-1200">4))</span>&#x00A0;<span 
class="ectt-1200">WRITE(12,60)</span>&#x00A0;<span 
class="ectt-1200">sigch2,</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">+</span>&#x00A0;<span 
class="ectt-1200">((V(l,j),j=1,nT),l=1,1)</span>
&#x00A0;<br />&#x00A0;<span 
class="ectt-1200">60</span>&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">FORMAT(SP,201D20.12)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">FIN</span>&#x00A0;<span 
class="ectt-1200">DE</span>&#x00A0;<span 
class="ectt-1200">LA</span>&#x00A0;<span 
class="ectt-1200">BOUCLE</span>
&#x00A0;<br />&#x00A0;<span 
class="ectt-1200">70</span>&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CONTINUE</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CLOSE(UNIT=12)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">On</span>&#x00A0;<span 
class="ectt-1200">compte</span>&#x00A0;<span 
class="ectt-1200">le</span>&#x00A0;<span 
class="ectt-1200">nombre</span>&#x00A0;<span 
class="ectt-1200">d&#x2019;echantillons</span>&#x00A0;<span 
class="ectt-1200">reellement</span>&#x00A0;<span 
class="ectt-1200">fabriques</span>&#x00A0;<span 
class="ectt-1200">dans</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">le</span>&#x00A0;<span 
class="ectt-1200">cas</span>&#x00A0;<span 
class="ectt-1200">ou</span>&#x00A0;<span 
class="ectt-1200">on</span>&#x00A0;<span 
class="ectt-1200">elimine</span>&#x00A0;<span 
class="ectt-1200">les</span>&#x00A0;<span 
class="ectt-1200">mauvais</span>&#x00A0;<span 
class="ectt-1200">echantillons</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">nbcle=nbcle-(err1+err2+err3+err5+err6+err7+err8)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">On</span>&#x00A0;<span 
class="ectt-1200">compte</span>&#x00A0;<span 
class="ectt-1200">le</span>&#x00A0;<span 
class="ectt-1200">nombre</span>&#x00A0;<span 
class="ectt-1200">d&#x2019;echantillons</span>&#x00A0;<span 
class="ectt-1200">reellement</span>&#x00A0;<span 
class="ectt-1200">fabriques</span>&#x00A0;<span 
class="ectt-1200">dans</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">le</span>&#x00A0;<span 
class="ectt-1200">cas</span>&#x00A0;<span 
class="ectt-1200">ou</span>&#x00A0;<span 
class="ectt-1200">on</span>&#x00A0;<span 
class="ectt-1200">garde</span>&#x00A0;<span 
class="ectt-1200">tous</span>&#x00A0;<span 
class="ectt-1200">les</span>&#x00A0;<span 
class="ectt-1200">echantillons</span>&#x00A0;<span 
class="ectt-1200">(sauf</span>&#x00A0;<span 
class="ectt-1200">IFAIL1,2,3)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">nbcle=nbcle-(err1+err2+err3)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">S2=X05BAF()</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CPTIME=S2-S1</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">OPEN(UNIT=14,</span>&#x00A0;<span 
class="ectt-1200">FILE=paramf</span>&#x00A0;<span 
class="ectt-1200">,</span>&#x00A0;<span 
class="ectt-1200">STATUS=&#x2019;NEW&#x2019;</span>&#x00A0;<span 
class="ectt-1200">)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(14,*)</span>&#x00A0;<span 
class="ectt-1200">&#x2019;Fichier</span>&#x00A0;<span 
class="ectt-1200">&#x2019;//</span>&#x00A0;<span 
class="ectt-1200">paramf</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(14,*)</span>&#x00A0;<span 
class="ectt-1200">&#x2019;p=&#x2019;,p</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(14,*)</span>&#x00A0;<span 
class="ectt-1200">&#x2019;q=&#x2019;,q</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(14,*)</span>&#x00A0;<span 
class="ectt-1200">&#x2019;Teta=&#x2019;,teta</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(14,*)</span>&#x00A0;<span 
class="ectt-1200">&#x2019;nT=&#x2019;,nT</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(14,*)</span>&#x00A0;<span 
class="ectt-1200">&#x2019;loi=&#x2019;,loi</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(14,*)</span>&#x00A0;<span 
class="ectt-1200">&#x2019;nbcle=&#x2019;,nbcle</span>

&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(14,*)</span>&#x00A0;<span 
class="ectt-1200">&#x2019;marret=&#x2019;,</span>&#x00A0;<span 
class="ectt-1200">marret</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(14,*)</span>&#x00A0;<span 
class="ectt-1200">&#x2019;Mind=&#x2019;,</span>&#x00A0;<span 
class="ectt-1200">Mind</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(14,*)</span>&#x00A0;<span 
class="ectt-1200">&#x2019;sigma=&#x2019;,sigma</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(14,*)</span>&#x00A0;<span 
class="ectt-1200">&#x2019;mu=&#x2019;,</span>&#x00A0;<span 
class="ectt-1200">mu</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(14,*)</span>&#x00A0;<span 
class="ectt-1200">&#x2019;df1=&#x2019;,df1</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(14,*)</span>&#x00A0;<span 
class="ectt-1200">&#x2019;df2=&#x2019;,df2</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(14,*)</span>&#x00A0;<span 
class="ectt-1200">&#x2019;lambda=&#x2019;,lambda</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(14,*)</span>&#x00A0;<span 
class="ectt-1200">&#x2019;loi5b=&#x2019;,loi5b</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(14,*)</span>&#x00A0;<span 
class="ectt-1200">&#x2019;loi5k=&#x2019;,loi5k</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(14,*)</span>&#x00A0;<span 
class="ectt-1200">&#x2019;loi6p=&#x2019;,loi6p</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(14,*)</span>&#x00A0;<span 
class="ectt-1200">&#x2019;loi6q=&#x2019;,loi6q</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(14,*)</span>&#x00A0;<span 
class="ectt-1200">&#x2019;loi7g=&#x2019;,loi7g</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(14,*)</span>&#x00A0;<span 
class="ectt-1200">&#x2019;loi7d=&#x2019;,loi7d</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(14,*)</span>&#x00A0;<span 
class="ectt-1200">&#x2019;loi8p=&#x2019;,loi8p</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(14,*)</span>&#x00A0;<span 
class="ectt-1200">&#x2019;loi8q=&#x2019;,loi8q</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(14,*)</span>&#x00A0;<span 
class="ectt-1200">&#x2019;loi9a=&#x2019;,loi9a</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(14,*)</span>&#x00A0;<span 
class="ectt-1200">&#x2019;loi9b=&#x2019;,loi9b</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(14,*)</span>&#x00A0;<span 
class="ectt-1200">&#x2019;loi10l=&#x2019;,loi10l</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(14,*)</span>&#x00A0;<span 
class="ectt-1200">&#x2019;loi10b=&#x2019;,loi10b</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(14,*)</span>&#x00A0;<span 
class="ectt-1200">&#x2019;loi11a=&#x2019;,loi11a</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(14,*)</span>&#x00A0;<span 
class="ectt-1200">&#x2019;loi11k=&#x2019;,loi11k</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(14,*)</span>&#x00A0;<span 
class="ectt-1200">&#x2019;loi13g=&#x2019;,loi13g</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(14,*)</span>&#x00A0;<span 
class="ectt-1200">&#x2019;loi13d=&#x2019;,loi13d</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(14,*)</span>&#x00A0;<span 
class="ectt-1200">&#x2019;loi14l=&#x2019;,loi14l</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(14,*)</span>&#x00A0;<span 
class="ectt-1200">&#x2019;loi16p=&#x2019;,loi16p</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(14,*)</span>&#x00A0;<span 
class="ectt-1200">&#x2019;loi16d=&#x2019;,loi16d</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(14,*)</span>&#x00A0;<span 
class="ectt-1200">&#x2019;loi17p=&#x2019;,loi17p</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(14,*)</span>&#x00A0;<span 
class="ectt-1200">&#x2019;loi17m=&#x2019;,loi17m</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(14,*)</span>&#x00A0;<span 
class="ectt-1200">&#x2019;loi18g=&#x2019;,loi18g</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(14,*)</span>&#x00A0;<span 
class="ectt-1200">&#x2019;loi18d=&#x2019;,loi18d</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(14,*)</span>&#x00A0;<span 
class="ectt-1200">&#x2019;loi19a=&#x2019;,loi19a</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(14,*)</span>&#x00A0;<span 
class="ectt-1200">&#x2019;loi19b=&#x2019;,loi19b</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(14,*)</span>&#x00A0;<span 
class="ectt-1200">&#x2019;CGETOL=&#x2019;,CGETOL</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(14,*)</span>&#x00A0;<span 
class="ectt-1200">&#x2019;LOGICAL</span>&#x00A0;<span 
class="ectt-1200">MEAN=&#x2019;,</span>&#x00A0;<span 
class="ectt-1200">MEAN</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(14,*)</span>&#x00A0;<span 
class="ectt-1200">&#x2019;LOGICAL</span>&#x00A0;<span 
class="ectt-1200">EXACT&#x2019;,</span>&#x00A0;<span 
class="ectt-1200">EXACT</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(14,*)</span>&#x00A0;<span 
class="ectt-1200">&#x2019;Precision</span>&#x00A0;<span 
class="ectt-1200">machine=&#x2019;,</span>&#x00A0;<span 
class="ectt-1200">preci</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(14,*)</span>&#x00A0;<span 
class="ectt-1200">&#x2019;QUELQUES</span>&#x00A0;<span 
class="ectt-1200">RESULTATS:&#x2019;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(14,*)</span>&#x00A0;<span 
class="ectt-1200">&#x2019;Nombre</span>&#x00A0;<span 
class="ectt-1200">d\&#x2019;erreurs</span>&#x00A0;<span 
class="ectt-1200">IFAIL2=1:&#x2019;,err1</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(14,*)</span>&#x00A0;<span 
class="ectt-1200">&#x2019;Nombre</span>&#x00A0;<span 
class="ectt-1200">d\&#x2019;erreurs</span>&#x00A0;<span 
class="ectt-1200">IFAIL2=2:&#x2019;,err2</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(14,*)</span>&#x00A0;<span 
class="ectt-1200">&#x2019;Nombre</span>&#x00A0;<span 
class="ectt-1200">d\&#x2019;erreurs</span>&#x00A0;<span 
class="ectt-1200">IFAIL2=3:&#x2019;,err3</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(14,*)</span>&#x00A0;<span 
class="ectt-1200">&#x2019;Nombre</span>&#x00A0;<span 
class="ectt-1200">d\&#x2019;erreurs</span>&#x00A0;<span 
class="ectt-1200">IFAIL2=4:&#x2019;,err4</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(14,*)</span>&#x00A0;<span 
class="ectt-1200">&#x2019;Nombre</span>&#x00A0;<span 
class="ectt-1200">d\&#x2019;erreurs</span>&#x00A0;<span 
class="ectt-1200">IFAIL2=5:&#x2019;,err5</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(14,*)</span>&#x00A0;<span 
class="ectt-1200">&#x2019;Nombre</span>&#x00A0;<span 
class="ectt-1200">d\&#x2019;erreurs</span>&#x00A0;<span 
class="ectt-1200">IFAIL2=6:&#x2019;,err6</span>

&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(14,*)</span>&#x00A0;<span 
class="ectt-1200">&#x2019;Nombre</span>&#x00A0;<span 
class="ectt-1200">d\&#x2019;erreurs</span>&#x00A0;<span 
class="ectt-1200">IFAIL2=7:&#x2019;,err7</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(14,*)</span>&#x00A0;<span 
class="ectt-1200">&#x2019;Nombre</span>&#x00A0;<span 
class="ectt-1200">d\&#x2019;erreurs</span>&#x00A0;<span 
class="ectt-1200">IFAIL2=8:&#x2019;,err8</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(14,*)</span>&#x00A0;<span 
class="ectt-1200">&#x2019;Temps</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">calcul</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">creation</span>&#x00A0;<span 
class="ectt-1200">des</span>&#x00A0;<span 
class="ectt-1200">donnees:&#x2019;,</span>&#x00A0;<span 
class="ectt-1200">CPTIME</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CLOSE(UNIT=14)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">END</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">---------------------------------------------------------------------</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Fin</span>&#x00A0;<span 
class="ectt-1200">du</span>&#x00A0;<span 
class="ectt-1200">programme</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">---------------------------------------------------------------------</span>
</div> <span 
class="ecbx-1200">Programmes creerdat_ARMA.f </span><div class="verbatiminput">
<span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Debut-Commentaires</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Nom</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">la</span>&#x00A0;<span 
class="ectt-1200">sous-routine:</span>&#x00A0;<span 
class="ectt-1200">cdARMA</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Entrees:</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">-------</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">voir</span>&#x00A0;<span 
class="ectt-1200">plus</span>&#x00A0;<span 
class="ectt-1200">bas</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Sorties:</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">-------</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Le</span>&#x00A0;<span 
class="ectt-1200">fichier</span>&#x00A0;<span 
class="ectt-1200">data.txt</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Description:</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">-----------</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Modele</span>&#x00A0;<span 
class="ectt-1200">ARMA(p,q)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Ce</span>&#x00A0;<span 
class="ectt-1200">programme</span>&#x00A0;<span 
class="ectt-1200">cree</span>&#x00A0;<span 
class="ectt-1200">le</span>&#x00A0;<span 
class="ectt-1200">fichier</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">donnees</span>&#x00A0;<span 
class="ectt-1200">data.txt</span>&#x00A0;<span 
class="ectt-1200">qui</span>&#x00A0;<span 
class="ectt-1200">contient,</span>&#x00A0;<span 
class="ectt-1200">en</span>&#x00A0;<span 
class="ectt-1200">ligne:</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">sigch2</span>&#x00A0;<span 
class="ectt-1200">et</span>&#x00A0;<span 
class="ectt-1200">epschap</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Utilisation</span>&#x00A0;<span 
class="ectt-1200">dans</span>&#x00A0;<span 
class="ectt-1200">une</span>&#x00A0;<span 
class="ectt-1200">fonction</span>&#x00A0;<span 
class="ectt-1200">main:</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">-------------------------------------</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PROGRAM</span>&#x00A0;<span 
class="ectt-1200">main</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Les</span>&#x00A0;<span 
class="ectt-1200">**</span>&#x00A0;<span 
class="ectt-1200">indiquent</span>&#x00A0;<span 
class="ectt-1200">les</span>&#x00A0;<span 
class="ectt-1200">endroits</span>&#x00A0;<span 
class="ectt-1200">ou</span>&#x00A0;<span 
class="ectt-1200">des</span>&#x00A0;<span 
class="ectt-1200">changements</span>&#x00A0;<span 
class="ectt-1200">peuvent</span>&#x00A0;<span 
class="ectt-1200">etre</span>&#x00A0;<span 
class="ectt-1200">necessaires</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Nom</span>&#x00A0;<span 
class="ectt-1200">du</span>&#x00A0;<span 
class="ectt-1200">fichier</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">donnees</span>&#x00A0;<span 
class="ectt-1200">en</span>&#x00A0;<span 
class="ectt-1200">sortie</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">**</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CHARACTER</span>&#x00A0;<span 
class="ectt-1200">dataf*8</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Nom</span>&#x00A0;<span 
class="ectt-1200">du</span>&#x00A0;<span 
class="ectt-1200">fichier</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">parametres</span>&#x00A0;<span 
class="ectt-1200">en</span>&#x00A0;<span 
class="ectt-1200">sortie</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">**</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CHARACTER</span>&#x00A0;<span 
class="ectt-1200">paramf*17</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Nombre</span>&#x00A0;<span 
class="ectt-1200">d&#x2019;echantillons</span>&#x00A0;<span 
class="ectt-1200">souhaites</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">**</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">nbcle</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(nbcle=10)</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">rang</span>&#x00A0;<span 
class="ectt-1200">d&#x2019;arret</span>&#x00A0;<span 
class="ectt-1200">dans</span>&#x00A0;<span 
class="ectt-1200">la</span>&#x00A0;<span 
class="ectt-1200">random</span>&#x00A0;<span 
class="ectt-1200">shock</span>&#x00A0;<span 
class="ectt-1200">method</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">Burn</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">**</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">marret</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(marret=200)</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Induction</span>&#x00A0;<span 
class="ectt-1200">period</span>&#x00A0;<span 
class="ectt-1200">dans</span>&#x00A0;<span 
class="ectt-1200">la</span>&#x00A0;<span 
class="ectt-1200">methode</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">Burn</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">**</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">Mind</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(Mind=200)</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">ecart-type</span>&#x00A0;<span 
class="ectt-1200">des</span>&#x00A0;<span 
class="ectt-1200">erreurs</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">**</span>

&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">sigma</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(sigma=1)</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">moyenne</span>&#x00A0;<span 
class="ectt-1200">dans</span>&#x00A0;<span 
class="ectt-1200">mon</span>&#x00A0;<span 
class="ectt-1200">modele</span>&#x00A0;<span 
class="ectt-1200">ARMA</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">**</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">mu</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(mu=0)</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">parametre</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">la</span>&#x00A0;<span 
class="ectt-1200">khi-deux</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">**</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">df1</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(df1=2)</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">parametre</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">la</span>&#x00A0;<span 
class="ectt-1200">student</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">**</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">df2</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(df2=5)</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">parametre</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">la</span>&#x00A0;<span 
class="ectt-1200">skew-normale</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">**</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">lambda</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(lambda=2.0)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">loi5b,</span>&#x00A0;<span 
class="ectt-1200">loi5k,</span>&#x00A0;<span 
class="ectt-1200">loi6p,</span>&#x00A0;<span 
class="ectt-1200">loi6q</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">loi7g,</span>&#x00A0;<span 
class="ectt-1200">loi7d,</span>&#x00A0;<span 
class="ectt-1200">loi8p,</span>&#x00A0;<span 
class="ectt-1200">loi8q,</span>&#x00A0;<span 
class="ectt-1200">loi9a,</span>&#x00A0;<span 
class="ectt-1200">loi9b</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">loi10b,</span>&#x00A0;<span 
class="ectt-1200">loi10l,</span>&#x00A0;<span 
class="ectt-1200">loi11a,</span>&#x00A0;<span 
class="ectt-1200">loi11k,</span>&#x00A0;<span 
class="ectt-1200">loi13g,</span>&#x00A0;<span 
class="ectt-1200">loi13d</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">loi14l,</span>&#x00A0;<span 
class="ectt-1200">loi16p,</span>&#x00A0;<span 
class="ectt-1200">loi16d,</span>&#x00A0;<span 
class="ectt-1200">loi17p,</span>&#x00A0;<span 
class="ectt-1200">loi17m</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">loi18g,</span>&#x00A0;<span 
class="ectt-1200">loi18d,</span>&#x00A0;<span 
class="ectt-1200">loi19a,</span>&#x00A0;<span 
class="ectt-1200">loi19b</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(loi18g=1.0,loi18d=1.0,</span>&#x00A0;<span 
class="ectt-1200">loi19a=1.1,</span>&#x00A0;<span 
class="ectt-1200">loi19b=0.5)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(loi16p=0.2,loi16d=5.0,</span>&#x00A0;<span 
class="ectt-1200">loi17p=0.2,loi17m=3.0)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(loi10b=0.2,loi10l=1,</span>&#x00A0;<span 
class="ectt-1200">loi11a=2.0,loi11k=0.5)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(loi13g=1.0,loi13d=1.0,</span>&#x00A0;<span 
class="ectt-1200">loi14l=0.7)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(loi7g=0,loi7d=1,</span>&#x00A0;<span 
class="ectt-1200">loi8p=2,</span>&#x00A0;<span 
class="ectt-1200">loi8q=2,</span>&#x00A0;<span 
class="ectt-1200">loi9a=0,loi9b=2)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(loi5b=1,</span>&#x00A0;<span 
class="ectt-1200">loi5k=1.8,</span>&#x00A0;<span 
class="ectt-1200">loi6p=4,</span>&#x00A0;<span 
class="ectt-1200">loi6q=1)</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">loi</span>&#x00A0;<span 
class="ectt-1200">des</span>&#x00A0;<span 
class="ectt-1200">erreurs</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">**</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">si</span>&#x00A0;<span 
class="ectt-1200">loi=0</span>&#x00A0;<span 
class="ectt-1200">:</span>&#x00A0;<span 
class="ectt-1200">Normale(0,sigma&#x0302;2)</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">si</span>&#x00A0;<span 
class="ectt-1200">loi=1</span>&#x00A0;<span 
class="ectt-1200">:</span>&#x00A0;<span 
class="ectt-1200">Khi2</span>&#x00A0;<span 
class="ectt-1200">centree</span>&#x00A0;<span 
class="ectt-1200">(df1)</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">si</span>&#x00A0;<span 
class="ectt-1200">loi=2</span>&#x00A0;<span 
class="ectt-1200">:</span>&#x00A0;<span 
class="ectt-1200">Student</span>&#x00A0;<span 
class="ectt-1200">(df2)</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">si</span>&#x00A0;<span 
class="ectt-1200">loi=3</span>&#x00A0;<span 
class="ectt-1200">:</span>&#x00A0;<span 
class="ectt-1200">Skew-Normale(lambda)</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">si</span>&#x00A0;<span 
class="ectt-1200">loi=4</span>&#x00A0;<span 
class="ectt-1200">:</span>&#x00A0;<span 
class="ectt-1200">Laplace</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">si</span>&#x00A0;<span 
class="ectt-1200">loi=5</span>&#x00A0;<span 
class="ectt-1200">:</span>&#x00A0;<span 
class="ectt-1200">Weibull(b,k)</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">si</span>&#x00A0;<span 
class="ectt-1200">loi=6</span>&#x00A0;<span 
class="ectt-1200">:</span>&#x00A0;<span 
class="ectt-1200">Gamma(p,q)</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">si</span>&#x00A0;<span 
class="ectt-1200">loi=7</span>&#x00A0;<span 
class="ectt-1200">:</span>&#x00A0;<span 
class="ectt-1200">Log-Normale(g,d)</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">si</span>&#x00A0;<span 
class="ectt-1200">loi=8</span>&#x00A0;<span 
class="ectt-1200">:</span>&#x00A0;<span 
class="ectt-1200">Beta(p,q)</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">si</span>&#x00A0;<span 
class="ectt-1200">loi=9</span>&#x00A0;<span 
class="ectt-1200">:</span>&#x00A0;<span 
class="ectt-1200">Uniform(a,b)</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">si</span>&#x00A0;<span 
class="ectt-1200">loi=10</span>&#x00A0;<span 
class="ectt-1200">:</span>&#x00A0;<span 
class="ectt-1200">Shifted</span>&#x00A0;<span 
class="ectt-1200">exp</span>&#x00A0;<span 
class="ectt-1200">(l,b)</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">si</span>&#x00A0;<span 
class="ectt-1200">loi=11</span>&#x00A0;<span 
class="ectt-1200">:</span>&#x00A0;<span 
class="ectt-1200">Pareto(a,k)</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">si</span>&#x00A0;<span 
class="ectt-1200">loi=12</span>&#x00A0;<span 
class="ectt-1200">:</span>&#x00A0;<span 
class="ectt-1200">Shifted</span>&#x00A0;<span 
class="ectt-1200">Pareto</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">si</span>&#x00A0;<span 
class="ectt-1200">loi=13</span>&#x00A0;<span 
class="ectt-1200">:</span>&#x00A0;<span 
class="ectt-1200">SU(g,d)</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">si</span>&#x00A0;<span 
class="ectt-1200">loi=14</span>&#x00A0;<span 
class="ectt-1200">:</span>&#x00A0;<span 
class="ectt-1200">TU(l)</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">si</span>&#x00A0;<span 
class="ectt-1200">loi=15</span>&#x00A0;<span 
class="ectt-1200">:</span>&#x00A0;<span 
class="ectt-1200">Logistic</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">si</span>&#x00A0;<span 
class="ectt-1200">loi=16</span>&#x00A0;<span 
class="ectt-1200">:</span>&#x00A0;<span 
class="ectt-1200">SC(p,d)</span>

&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">si</span>&#x00A0;<span 
class="ectt-1200">loi=17</span>&#x00A0;<span 
class="ectt-1200">:</span>&#x00A0;<span 
class="ectt-1200">LC(p,m)</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">si</span>&#x00A0;<span 
class="ectt-1200">loi=18</span>&#x00A0;<span 
class="ectt-1200">:</span>&#x00A0;<span 
class="ectt-1200">SB(g,d)</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">si</span>&#x00A0;<span 
class="ectt-1200">loi=19</span>&#x00A0;<span 
class="ectt-1200">:</span>&#x00A0;<span 
class="ectt-1200">S(a,b)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">loi</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(loi=2)</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">the</span>&#x00A0;<span 
class="ectt-1200">number</span>&#x00A0;<span 
class="ectt-1200">of</span>&#x00A0;<span 
class="ectt-1200">autoregressive</span>&#x00A0;<span 
class="ectt-1200">coefficients</span>&#x00A0;<span 
class="ectt-1200">supplied</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">**</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">p</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(p=2)</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">the</span>&#x00A0;<span 
class="ectt-1200">number</span>&#x00A0;<span 
class="ectt-1200">of</span>&#x00A0;<span 
class="ectt-1200">moving-average</span>&#x00A0;<span 
class="ectt-1200">coefficients</span>&#x00A0;<span 
class="ectt-1200">supplied</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">**</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">q</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(q=2)</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">rm=max(p,q)</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">**</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">rm</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(rm=2)</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">nombre</span>&#x00A0;<span 
class="ectt-1200">d&#x2019;observations</span>&#x00A0;<span 
class="ectt-1200">dans</span>&#x00A0;<span 
class="ectt-1200">mon</span>&#x00A0;<span 
class="ectt-1200">echantillon</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">**</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Si</span>&#x00A0;<span 
class="ectt-1200">on</span>&#x00A0;<span 
class="ectt-1200">change</span>&#x00A0;<span 
class="ectt-1200">la</span>&#x00A0;<span 
class="ectt-1200">valeur</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">nT,</span>&#x00A0;<span 
class="ectt-1200">il</span>&#x00A0;<span 
class="ectt-1200">faut</span>&#x00A0;<span 
class="ectt-1200">aller</span>&#x00A0;<span 
class="ectt-1200">modifier</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">la</span>&#x00A0;<span 
class="ectt-1200">valeur</span>&#x00A0;<span 
class="ectt-1200">dans</span>&#x00A0;<span 
class="ectt-1200">FORMAT</span>&#x00A0;<span 
class="ectt-1200">a</span>&#x00A0;<span 
class="ectt-1200">la</span>&#x00A0;<span 
class="ectt-1200">fin</span>&#x00A0;<span 
class="ectt-1200">du</span>&#x00A0;<span 
class="ectt-1200">programme</span>&#x00A0;<span 
class="ectt-1200">creerdat_ARMA.f</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">nT</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(nT=100)</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">the</span>&#x00A0;<span 
class="ectt-1200">autoregressive</span>&#x00A0;<span 
class="ectt-1200">coefficients</span>&#x00A0;<span 
class="ectt-1200">of</span>&#x00A0;<span 
class="ectt-1200">the</span>&#x00A0;<span 
class="ectt-1200">model</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">phi(2)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">phich(p)</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">the</span>&#x00A0;<span 
class="ectt-1200">moving-average</span>&#x00A0;<span 
class="ectt-1200">coefficients</span>&#x00A0;<span 
class="ectt-1200">of</span>&#x00A0;<span 
class="ectt-1200">the</span>&#x00A0;<span 
class="ectt-1200">model</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">teta(2)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">tetach(q)</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">vecteur</span>&#x00A0;<span 
class="ectt-1200">des</span>&#x00A0;<span 
class="ectt-1200">donnees</span>&#x00A0;<span 
class="ectt-1200">cree</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">donees(nT)</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Parametres</span>&#x00A0;<span 
class="ectt-1200">pour</span>&#x00A0;<span 
class="ectt-1200">G05EGF:</span>&#x00A0;<span 
class="ectt-1200">simulation</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">the</span>&#x00A0;<span 
class="ectt-1200">autoregressive</span>&#x00A0;<span 
class="ectt-1200">coefficients</span>&#x00A0;<span 
class="ectt-1200">of</span>&#x00A0;<span 
class="ectt-1200">the</span>&#x00A0;<span 
class="ectt-1200">model=phi</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Input</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">A(p)</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">the</span>&#x00A0;<span 
class="ectt-1200">moving-average</span>&#x00A0;<span 
class="ectt-1200">coefficients</span>&#x00A0;<span 
class="ectt-1200">of</span>&#x00A0;<span 
class="ectt-1200">the</span>&#x00A0;<span 
class="ectt-1200">model=teta</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Input</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">B(q+1)</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">le</span>&#x00A0;<span 
class="ectt-1200">vecteur</span>&#x00A0;<span 
class="ectt-1200">des</span>&#x00A0;<span 
class="ectt-1200">innovations</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Output</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">R(nT)</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Parametres</span>&#x00A0;<span 
class="ectt-1200">pour</span>&#x00A0;<span 
class="ectt-1200">G13DCF:</span>&#x00A0;<span 
class="ectt-1200">estimation</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">the</span>&#x00A0;<span 
class="ectt-1200">number</span>&#x00A0;<span 
class="ectt-1200">of</span>&#x00A0;<span 
class="ectt-1200">initial</span>&#x00A0;<span 
class="ectt-1200">parameter</span>&#x00A0;<span 
class="ectt-1200">estimates</span>&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Input</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">**</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">mettre</span>&#x00A0;<span 
class="ectt-1200">p+q+1</span>&#x00A0;<span 
class="ectt-1200">si</span>&#x00A0;<span 
class="ectt-1200">MEAN=.TRUE.</span>&#x00A0;<span 
class="ectt-1200">,</span>&#x00A0;<span 
class="ectt-1200">p+q</span>&#x00A0;<span 
class="ectt-1200">si</span>&#x00A0;<span 
class="ectt-1200">MEAN=.FALSE.</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">NPAR</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(NPAR=p+q)</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">first</span>&#x00A0;<span 
class="ectt-1200">dimension</span>&#x00A0;<span 
class="ectt-1200">of</span>&#x00A0;<span 
class="ectt-1200">the</span>&#x00A0;<span 
class="ectt-1200">array</span>&#x00A0;<span 
class="ectt-1200">CM</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Input</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">**</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">mettre</span>&#x00A0;<span 
class="ectt-1200">p+q+1</span>&#x00A0;<span 
class="ectt-1200">si</span>&#x00A0;<span 
class="ectt-1200">MEAN=.TRUE.</span>&#x00A0;<span 
class="ectt-1200">,</span>&#x00A0;<span 
class="ectt-1200">p+q</span>&#x00A0;<span 
class="ectt-1200">si</span>&#x00A0;<span 
class="ectt-1200">MEAN=.FALSE.</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">ICM</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(ICM=p+q)</span>

&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Workspace</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">IW(NPAR+rm+3)</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">initial</span>&#x00A0;<span 
class="ectt-1200">parameter</span>&#x00A0;<span 
class="ectt-1200">estimates</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Input/Output</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">PAR(NPAR)</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">W(i,t)</span>&#x00A0;<span 
class="ectt-1200">must</span>&#x00A0;<span 
class="ectt-1200">be</span>&#x00A0;<span 
class="ectt-1200">set</span>&#x00A0;<span 
class="ectt-1200">equal</span>&#x00A0;<span 
class="ectt-1200">to</span>&#x00A0;<span 
class="ectt-1200">the</span>&#x00A0;<span 
class="ectt-1200">observation</span>&#x00A0;<span 
class="ectt-1200">at</span>&#x00A0;<span 
class="ectt-1200">time</span>&#x00A0;<span 
class="ectt-1200">t</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Input</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">of</span>&#x00A0;<span 
class="ectt-1200">the</span>&#x00A0;<span 
class="ectt-1200">ith</span>&#x00A0;<span 
class="ectt-1200">series</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">W(1,nT)</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">the</span>&#x00A0;<span 
class="ectt-1200">accuracy</span>&#x00A0;<span 
class="ectt-1200">to</span>&#x00A0;<span 
class="ectt-1200">which</span>&#x00A0;<span 
class="ectt-1200">the</span>&#x00A0;<span 
class="ectt-1200">solution</span>&#x00A0;<span 
class="ectt-1200">in</span>&#x00A0;<span 
class="ectt-1200">PAR</span>&#x00A0;<span 
class="ectt-1200">and</span>&#x00A0;<span 
class="ectt-1200">QQ</span>&#x00A0;<span 
class="ectt-1200">is</span>&#x00A0;<span 
class="ectt-1200">required</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Input</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">**</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">CGETOL</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(CGETOL=0.0001)</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">residual</span>&#x00A0;<span 
class="ectt-1200">at</span>&#x00A0;<span 
class="ectt-1200">time</span>&#x00A0;<span 
class="ectt-1200">t</span>&#x00A0;<span 
class="ectt-1200">for</span>&#x00A0;<span 
class="ectt-1200">series</span>&#x00A0;<span 
class="ectt-1200">i,</span>&#x00A0;<span 
class="ectt-1200">for</span>&#x00A0;<span 
class="ectt-1200">i</span>&#x00A0;<span 
class="ectt-1200">=</span>&#x00A0;<span 
class="ectt-1200">1,2,...,k</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Output</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">V(1,nT)</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">estimated</span>&#x00A0;<span 
class="ectt-1200">first</span>&#x00A0;<span 
class="ectt-1200">derivative</span>&#x00A0;<span 
class="ectt-1200">of</span>&#x00A0;<span 
class="ectt-1200">the</span>&#x00A0;<span 
class="ectt-1200">log-likelihood</span>&#x00A0;<span 
class="ectt-1200">function</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Output</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">G(NPAR)</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">estimate</span>&#x00A0;<span 
class="ectt-1200">of</span>&#x00A0;<span 
class="ectt-1200">the</span>&#x00A0;<span 
class="ectt-1200">correlation</span>&#x00A0;<span 
class="ectt-1200">coefficient</span>&#x00A0;<span 
class="ectt-1200">between</span>&#x00A0;<span 
class="ectt-1200">the</span>&#x00A0;<span 
class="ectt-1200">ith</span>&#x00A0;<span 
class="ectt-1200">and</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Output</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">jth</span>&#x00A0;<span 
class="ectt-1200">elements</span>&#x00A0;<span 
class="ectt-1200">in</span>&#x00A0;<span 
class="ectt-1200">the</span>&#x00A0;<span 
class="ectt-1200">PAR</span>&#x00A0;<span 
class="ectt-1200">array</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">CM(ICM,NPAR)</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Workspace</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">WORK((5+3*nT+2*rm)+(2*p+q+2*rm*(rm+2)+9)+</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">+</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">(NPAR+1)*(5*(NPAR+1)+29)/2+(rm+1)**2)</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">MEAN</span>&#x00A0;<span 
class="ectt-1200">must</span>&#x00A0;<span 
class="ectt-1200">be</span>&#x00A0;<span 
class="ectt-1200">set</span>&#x00A0;<span 
class="ectt-1200">to</span>&#x00A0;<span 
class="ectt-1200">.TRUE.</span>&#x00A0;<span 
class="ectt-1200">if</span>&#x00A0;<span 
class="ectt-1200">components</span>&#x00A0;<span 
class="ectt-1200">of</span>&#x00A0;<span 
class="ectt-1200">mu</span>&#x00A0;<span 
class="ectt-1200">are</span>&#x00A0;<span 
class="ectt-1200">to</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Input</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">**</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">be</span>&#x00A0;<span 
class="ectt-1200">estimated</span>&#x00A0;<span 
class="ectt-1200">and</span>&#x00A0;<span 
class="ectt-1200">.FALSE.</span>&#x00A0;<span 
class="ectt-1200">if</span>&#x00A0;<span 
class="ectt-1200">all</span>&#x00A0;<span 
class="ectt-1200">elements</span>&#x00A0;<span 
class="ectt-1200">of</span>&#x00A0;<span 
class="ectt-1200">mu</span>&#x00A0;<span 
class="ectt-1200">are</span>&#x00A0;<span 
class="ectt-1200">to</span>&#x00A0;<span 
class="ectt-1200">be</span>&#x00A0;<span 
class="ectt-1200">taken</span>&#x00A0;<span 
class="ectt-1200">as</span>&#x00A0;<span 
class="ectt-1200">zero</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">LOGICAL</span>&#x00A0;<span 
class="ectt-1200">MEAN</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(MEAN=.FALSE.)</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARHLD(i)</span>&#x00A0;<span 
class="ectt-1200">must</span>&#x00A0;<span 
class="ectt-1200">be</span>&#x00A0;<span 
class="ectt-1200">set</span>&#x00A0;<span 
class="ectt-1200">to</span>&#x00A0;<span 
class="ectt-1200">.TRUE.,</span>&#x00A0;<span 
class="ectt-1200">if</span>&#x00A0;<span 
class="ectt-1200">PAR(i)</span>&#x00A0;<span 
class="ectt-1200">is</span>&#x00A0;<span 
class="ectt-1200">to</span>&#x00A0;<span 
class="ectt-1200">be</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Input</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">held</span>&#x00A0;<span 
class="ectt-1200">constant</span>&#x00A0;<span 
class="ectt-1200">at</span>&#x00A0;<span 
class="ectt-1200">its</span>&#x00A0;<span 
class="ectt-1200">input</span>&#x00A0;<span 
class="ectt-1200">value</span>&#x00A0;<span 
class="ectt-1200">and</span>&#x00A0;<span 
class="ectt-1200">.FALSE.,</span>&#x00A0;<span 
class="ectt-1200">if</span>&#x00A0;<span 
class="ectt-1200">PAR(i)</span>&#x00A0;<span 
class="ectt-1200">is</span>&#x00A0;<span 
class="ectt-1200">a</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">free</span>&#x00A0;<span 
class="ectt-1200">parameter,</span>&#x00A0;<span 
class="ectt-1200">for</span>&#x00A0;<span 
class="ectt-1200">i</span>&#x00A0;<span 
class="ectt-1200">=</span>&#x00A0;<span 
class="ectt-1200">1,2,...,NPAR.</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">LOGICAL</span>&#x00A0;<span 
class="ectt-1200">PARHLD(NPAR)</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">EXACT</span>&#x00A0;<span 
class="ectt-1200">must</span>&#x00A0;<span 
class="ectt-1200">be</span>&#x00A0;<span 
class="ectt-1200">set</span>&#x00A0;<span 
class="ectt-1200">equal</span>&#x00A0;<span 
class="ectt-1200">to</span>&#x00A0;<span 
class="ectt-1200">.TRUE.</span>&#x00A0;<span 
class="ectt-1200">if</span>&#x00A0;<span 
class="ectt-1200">the</span>&#x00A0;<span 
class="ectt-1200">user</span>&#x00A0;<span 
class="ectt-1200">wishes</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Input</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">**</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">the</span>&#x00A0;<span 
class="ectt-1200">routine</span>&#x00A0;<span 
class="ectt-1200">to</span>&#x00A0;<span 
class="ectt-1200">compute</span>&#x00A0;<span 
class="ectt-1200">exact</span>&#x00A0;<span 
class="ectt-1200">maximum</span>&#x00A0;<span 
class="ectt-1200">likelihood</span>&#x00A0;<span 
class="ectt-1200">estimates.</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">EXACT</span>&#x00A0;<span 
class="ectt-1200">must</span>&#x00A0;<span 
class="ectt-1200">be</span>&#x00A0;<span 
class="ectt-1200">set</span>&#x00A0;<span 
class="ectt-1200">equal</span>&#x00A0;<span 
class="ectt-1200">to</span>&#x00A0;<span 
class="ectt-1200">.FALSE.</span>&#x00A0;<span 
class="ectt-1200">if</span>&#x00A0;<span 
class="ectt-1200">only</span>&#x00A0;<span 
class="ectt-1200">conditional</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">likelihood</span>&#x00A0;<span 
class="ectt-1200">estimates</span>&#x00A0;<span 
class="ectt-1200">are</span>&#x00A0;<span 
class="ectt-1200">required.</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">LOGICAL</span>&#x00A0;<span 
class="ectt-1200">EXACT</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Contient</span>&#x00A0;<span 
class="ectt-1200">les</span>&#x00A0;<span 
class="ectt-1200">p</span>&#x00A0;<span 
class="ectt-1200">donnees</span>&#x00A0;<span 
class="ectt-1200">initiales</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">la</span>&#x00A0;<span 
class="ectt-1200">serie</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">Wtip(p)</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">marret+p</span>&#x00A0;<span 
class="ectt-1200">innovations</span>&#x00A0;<span 
class="ectt-1200">genere</span>&#x00A0;<span 
class="ectt-1200">par</span>&#x00A0;<span 
class="ectt-1200">shock.f</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">shocks(marret+p)</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">defini</span>&#x00A0;<span 
class="ectt-1200">dans</span>&#x00A0;<span 
class="ectt-1200">Burn,</span>&#x00A0;<span 
class="ectt-1200">calcule</span>&#x00A0;<span 
class="ectt-1200">par</span>&#x00A0;<span 
class="ectt-1200">ARMpsi.f</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">psi(marret+1)</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">utile</span>&#x00A0;<span 
class="ectt-1200">dans</span>&#x00A0;<span 
class="ectt-1200">simARM.f</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">longueur</span>&#x00A0;<span 
class="ectt-1200">marret</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">**</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">phi2(marret)</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">utile</span>&#x00A0;<span 
class="ectt-1200">dans</span>&#x00A0;<span 
class="ectt-1200">simARM.f</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">longueur</span>&#x00A0;<span 
class="ectt-1200">marret</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">**</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">teta2(marret)</span>

&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">utile</span>&#x00A0;<span 
class="ectt-1200">dans</span>&#x00A0;<span 
class="ectt-1200">simARM.f</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">YtpMn(p+Mind+nT)</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">utile</span>&#x00A0;<span 
class="ectt-1200">dans</span>&#x00A0;<span 
class="ectt-1200">simARM.f</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">Atnq(nT+Mind+q),EspSU,EspSB,EspS</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">the</span>&#x00A0;<span 
class="ectt-1200">mean</span>&#x00A0;<span 
class="ectt-1200">of</span>&#x00A0;<span 
class="ectt-1200">the</span>&#x00A0;<span 
class="ectt-1200">time</span>&#x00A0;<span 
class="ectt-1200">series</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Input</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">E</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(E=mu)</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">the</span>&#x00A0;<span 
class="ectt-1200">number</span>&#x00A0;<span 
class="ectt-1200">of</span>&#x00A0;<span 
class="ectt-1200">autoregressive</span>&#x00A0;<span 
class="ectt-1200">coefficients</span>&#x00A0;<span 
class="ectt-1200">supplied</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Input</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">NA</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(NA=p)</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">the</span>&#x00A0;<span 
class="ectt-1200">number</span>&#x00A0;<span 
class="ectt-1200">of</span>&#x00A0;<span 
class="ectt-1200">moving-average</span>&#x00A0;<span 
class="ectt-1200">coefficients</span>&#x00A0;<span 
class="ectt-1200">supplied</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Input</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">NB</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(NB=q+1)</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">the</span>&#x00A0;<span 
class="ectt-1200">dimension</span>&#x00A0;<span 
class="ectt-1200">of</span>&#x00A0;<span 
class="ectt-1200">the</span>&#x00A0;<span 
class="ectt-1200">array</span>&#x00A0;<span 
class="ectt-1200">R:</span>&#x00A0;<span 
class="ectt-1200">vecteur</span>&#x00A0;<span 
class="ectt-1200">des</span>&#x00A0;<span 
class="ectt-1200">innovations</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Input</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">NR</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(NR=nT)</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">the</span>&#x00A0;<span 
class="ectt-1200">number</span>&#x00A0;<span 
class="ectt-1200">of</span>&#x00A0;<span 
class="ectt-1200">observed</span>&#x00A0;<span 
class="ectt-1200">time</span>&#x00A0;<span 
class="ectt-1200">series,</span>&#x00A0;<span 
class="ectt-1200">k</span>&#x00A0;&#x00A0;<span 
class="ectt-1200">(chez</span>&#x00A0;<span 
class="ectt-1200">moi</span>&#x00A0;<span 
class="ectt-1200">k=1)</span>&#x00A0;&#x00A0;<span 
class="ectt-1200">Input</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">K</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(K=1)</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">the</span>&#x00A0;<span 
class="ectt-1200">number</span>&#x00A0;<span 
class="ectt-1200">of</span>&#x00A0;<span 
class="ectt-1200">observations</span>&#x00A0;<span 
class="ectt-1200">in</span>&#x00A0;<span 
class="ectt-1200">each</span>&#x00A0;<span 
class="ectt-1200">time</span>&#x00A0;<span 
class="ectt-1200">series,</span>&#x00A0;<span 
class="ectt-1200">n</span>&#x00A0;<span 
class="ectt-1200">(chez</span>&#x00A0;<span 
class="ectt-1200">moi=nT)</span>&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Input</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">N2</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(N=nT)</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">the</span>&#x00A0;<span 
class="ectt-1200">number</span>&#x00A0;<span 
class="ectt-1200">of</span>&#x00A0;<span 
class="ectt-1200">AR</span>&#x00A0;<span 
class="ectt-1200">parameter</span>&#x00A0;<span 
class="ectt-1200">matrices,</span>&#x00A0;<span 
class="ectt-1200">p</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Input</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">IP</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(IP=p)</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">the</span>&#x00A0;<span 
class="ectt-1200">number</span>&#x00A0;<span 
class="ectt-1200">of</span>&#x00A0;<span 
class="ectt-1200">MA</span>&#x00A0;<span 
class="ectt-1200">parameter</span>&#x00A0;<span 
class="ectt-1200">matrices,</span>&#x00A0;<span 
class="ectt-1200">q</span>&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Input</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">IQ</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(IQ=q)</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">the</span>&#x00A0;<span 
class="ectt-1200">first</span>&#x00A0;<span 
class="ectt-1200">dimension</span>&#x00A0;<span 
class="ectt-1200">of</span>&#x00A0;<span 
class="ectt-1200">the</span>&#x00A0;<span 
class="ectt-1200">arrays</span>&#x00A0;<span 
class="ectt-1200">QQ,</span>&#x00A0;<span 
class="ectt-1200">W</span>&#x00A0;<span 
class="ectt-1200">and</span>&#x00A0;<span 
class="ectt-1200">V</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Input</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">IK</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(IK=1)</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">the</span>&#x00A0;<span 
class="ectt-1200">maximum</span>&#x00A0;<span 
class="ectt-1200">number</span>&#x00A0;<span 
class="ectt-1200">of</span>&#x00A0;<span 
class="ectt-1200">likelihood</span>&#x00A0;<span 
class="ectt-1200">evaluations</span>&#x00A0;<span 
class="ectt-1200">to</span>&#x00A0;<span 
class="ectt-1200">be</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Input</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">permitted</span>&#x00A0;<span 
class="ectt-1200">by</span>&#x00A0;<span 
class="ectt-1200">the</span>&#x00A0;<span 
class="ectt-1200">search</span>&#x00A0;<span 
class="ectt-1200">procedure</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">MAXCAL</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">MAXCA2</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(MAXCAL=40*NPAR*(NPAR+5))</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">which</span>&#x00A0;<span 
class="ectt-1200">quantities</span>&#x00A0;<span 
class="ectt-1200">are</span>&#x00A0;<span 
class="ectt-1200">to</span>&#x00A0;<span 
class="ectt-1200">be</span>&#x00A0;<span 
class="ectt-1200">printed</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Input</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">ISHOW</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(ISHOW=0)</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">dimension</span>&#x00A0;<span 
class="ectt-1200">of</span>&#x00A0;<span 
class="ectt-1200">the</span>&#x00A0;<span 
class="ectt-1200">array</span>&#x00A0;<span 
class="ectt-1200">WORK</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Input</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">LWORK</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(LWORK=(5+3*(nT)+2*rm)+(2*p+q+2*rm*(rm+2)+9)+</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">+</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">(NPAR+1)*(5*(NPAR+1)+29)/2+(rm+1)**2)</span>

&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">dimension</span>&#x00A0;<span 
class="ectt-1200">of</span>&#x00A0;<span 
class="ectt-1200">the</span>&#x00A0;<span 
class="ectt-1200">array</span>&#x00A0;<span 
class="ectt-1200">IW</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Input</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">LIW</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(LIW=NPAR+rm+3)</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">QQ(i,j)</span>&#x00A0;<span 
class="ectt-1200">must</span>&#x00A0;<span 
class="ectt-1200">be</span>&#x00A0;<span 
class="ectt-1200">set</span>&#x00A0;<span 
class="ectt-1200">equal</span>&#x00A0;<span 
class="ectt-1200">to</span>&#x00A0;<span 
class="ectt-1200">an</span>&#x00A0;<span 
class="ectt-1200">initial</span>&#x00A0;<span 
class="ectt-1200">estimate</span>&#x00A0;<span 
class="ectt-1200">of</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Input/Output</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">the</span>&#x00A0;<span 
class="ectt-1200">(i,j)th</span>&#x00A0;<span 
class="ectt-1200">element</span>&#x00A0;<span 
class="ectt-1200">of</span>&#x00A0;<span 
class="ectt-1200">the</span>&#x00A0;<span 
class="ectt-1200">covariance</span>&#x00A0;<span 
class="ectt-1200">matrix</span>&#x00A0;<span 
class="ectt-1200">of</span>&#x00A0;<span 
class="ectt-1200">the</span>&#x00A0;<span 
class="ectt-1200">residual</span>&#x00A0;<span 
class="ectt-1200">series</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">QQ(IK,K)</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;<span 
class="ectt-1200">--------------------------------------------------------------</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;<span 
class="ectt-1200">Fin</span>&#x00A0;<span 
class="ectt-1200">des</span>&#x00A0;<span 
class="ectt-1200">declarations</span>&#x00A0;<span 
class="ectt-1200">des</span>&#x00A0;<span 
class="ectt-1200">variables</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;<span 
class="ectt-1200">--------------------------------------------------------------</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Nom</span>&#x00A0;<span 
class="ectt-1200">du</span>&#x00A0;<span 
class="ectt-1200">fichier</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">donnees</span>&#x00A0;<span 
class="ectt-1200">en</span>&#x00A0;<span 
class="ectt-1200">sortie</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">**</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">dataf=&#x2019;data.txt&#x2019;</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Nom</span>&#x00A0;<span 
class="ectt-1200">du</span>&#x00A0;<span 
class="ectt-1200">fichier</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">parametres</span>&#x00A0;<span 
class="ectt-1200">en</span>&#x00A0;<span 
class="ectt-1200">sortie</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">**</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">paramf=&#x2019;para.txt&#x2019;</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Il</span>&#x00A0;<span 
class="ectt-1200">faut</span>&#x00A0;<span 
class="ectt-1200">rentrer</span>&#x00A0;<span 
class="ectt-1200">les</span>&#x00A0;<span 
class="ectt-1200">valeurs</span>&#x00A0;<span 
class="ectt-1200">des</span>&#x00A0;<span 
class="ectt-1200">coefficients</span>&#x00A0;<span 
class="ectt-1200">phi(i)</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">**</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">phi(1)=0.1</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">phi(2)=0.5</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Il</span>&#x00A0;<span 
class="ectt-1200">faut</span>&#x00A0;<span 
class="ectt-1200">rentrer</span>&#x00A0;<span 
class="ectt-1200">les</span>&#x00A0;<span 
class="ectt-1200">valeurs</span>&#x00A0;<span 
class="ectt-1200">des</span>&#x00A0;<span 
class="ectt-1200">coefficients</span>&#x00A0;<span 
class="ectt-1200">teta(i)</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">**</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">teta(1)=0.1</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">teta(2)=0.2</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CALL</span>&#x00A0;<span 
class="ectt-1200">cdARMA(dataf,paramf,nbcle,marret,Mind,sigma,mu,df1,df2,</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">+</span>&#x00A0;<span 
class="ectt-1200">lambda,</span>&#x00A0;<span 
class="ectt-1200">loi5b,</span>&#x00A0;<span 
class="ectt-1200">loi5k,</span>&#x00A0;<span 
class="ectt-1200">loi6p,</span>&#x00A0;<span 
class="ectt-1200">loi6q,</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">+</span>&#x00A0;&#x00A0;<span 
class="ectt-1200">loi7g,</span>&#x00A0;<span 
class="ectt-1200">loi7d,</span>&#x00A0;<span 
class="ectt-1200">loi8p,</span>&#x00A0;<span 
class="ectt-1200">loi8q,</span>&#x00A0;<span 
class="ectt-1200">loi9a,</span>&#x00A0;<span 
class="ectt-1200">loi9b,</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">+</span>&#x00A0;&#x00A0;<span 
class="ectt-1200">loi10b,</span>&#x00A0;<span 
class="ectt-1200">loi10l,</span>&#x00A0;<span 
class="ectt-1200">loi11a,</span>&#x00A0;<span 
class="ectt-1200">loi11k,</span>&#x00A0;<span 
class="ectt-1200">loi13g,</span>&#x00A0;<span 
class="ectt-1200">loi13d,</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">+</span>&#x00A0;&#x00A0;<span 
class="ectt-1200">loi14l,</span>&#x00A0;<span 
class="ectt-1200">loi16p,</span>&#x00A0;<span 
class="ectt-1200">loi16d,</span>&#x00A0;<span 
class="ectt-1200">loi17p,</span>&#x00A0;<span 
class="ectt-1200">loi17m,</span>&#x00A0;<span 
class="ectt-1200">loi18g,</span>&#x00A0;<span 
class="ectt-1200">loi18d,</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">+</span>&#x00A0;&#x00A0;<span 
class="ectt-1200">loi19a,</span>&#x00A0;<span 
class="ectt-1200">loi19b,loi,p,q,rm,nT,phi,phich,teta,tetach,donees,A,B,</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">+</span>&#x00A0;<span 
class="ectt-1200">R,NPAR,ICM,IW,PAR,W,CGETOL,V,G,CM,WORK,MEAN,PARHLD,EXACT,Wtip,</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">+</span>&#x00A0;<span 
class="ectt-1200">shocks,psi,phi2,teta2,YtpMn,Atnq,EspSU,EspSB,EspS,</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">+E,NA,NB,NR,K,N2,IP,IQ,IK,MAXCAL,ISHOW,LWORK,LIW)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">END</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INCLUDE</span>&#x00A0;<span 
class="ectt-1200">&#x2019;mean.f&#x2019;</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INCLUDE</span>&#x00A0;<span 
class="ectt-1200">&#x2019;simulARMA.f&#x2019;</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INCLUDE</span>&#x00A0;<span 
class="ectt-1200">&#x2019;ARMpsi.f&#x2019;</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INCLUDE</span>&#x00A0;<span 
class="ectt-1200">&#x2019;shock.f&#x2019;</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INCLUDE</span>&#x00A0;<span 
class="ectt-1200">&#x2019;rskew.f&#x2019;</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INCLUDE</span>&#x00A0;<span 
class="ectt-1200">&#x2019;rlap.f&#x2019;</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INCLUDE</span>&#x00A0;<span 
class="ectt-1200">&#x2019;rpare.f&#x2019;</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INCLUDE</span>&#x00A0;<span 
class="ectt-1200">&#x2019;rspare.f&#x2019;</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INCLUDE</span>&#x00A0;<span 
class="ectt-1200">&#x2019;rSU.f&#x2019;</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INCLUDE</span>&#x00A0;<span 
class="ectt-1200">&#x2019;rTU.f&#x2019;</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INCLUDE</span>&#x00A0;<span 
class="ectt-1200">&#x2019;rSC.f&#x2019;</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INCLUDE</span>&#x00A0;<span 
class="ectt-1200">&#x2019;rLC.f&#x2019;</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INCLUDE</span>&#x00A0;<span 
class="ectt-1200">&#x2019;rSB.f&#x2019;</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INCLUDE</span>&#x00A0;<span 
class="ectt-1200">&#x2019;rS.f&#x2019;</span>

&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INCLUDE</span>&#x00A0;<span 
class="ectt-1200">&#x2019;creerdat_ARMA.f&#x2019;</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">-------------------------------------</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Instructions</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">compilation:</span>&#x00A0;<span 
class="ectt-1200">alias</span>&#x00A0;<span 
class="ectt-1200">f77=&#x2019;fort77&#x2019;</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">f77</span>&#x00A0;<span 
class="ectt-1200">-c</span>&#x00A0;<span 
class="ectt-1200">nom_du_fichier_contenant_la_fonction_main.f</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">f77</span>&#x00A0;<span 
class="ectt-1200">-c</span>&#x00A0;<span 
class="ectt-1200">creerdat_ARMA.f</span>&#x00A0;<span 
class="ectt-1200">-lnag</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">f77</span>&#x00A0;<span 
class="ectt-1200">nom_du_fichier_contenant_la_fonction_main.o</span>&#x00A0;<span 
class="ectt-1200">creerdat_ARMA.o</span>&#x00A0;<span 
class="ectt-1200">-lnag</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Fonctions</span>&#x00A0;<span 
class="ectt-1200">exterieures</span>&#x00A0;<span 
class="ectt-1200">appelees:</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">G05EGF,</span>&#x00A0;<span 
class="ectt-1200">G05EWF</span>&#x00A0;<span 
class="ectt-1200">et</span>&#x00A0;&#x00A0;<span 
class="ectt-1200">G13DCF</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">la</span>&#x00A0;<span 
class="ectt-1200">librairie</span>&#x00A0;<span 
class="ectt-1200">NAG</span>&#x00A0;<span 
class="ectt-1200">Mark16</span>&#x00A0;<span 
class="ectt-1200">et</span>&#x00A0;<span 
class="ectt-1200">simARMA.f</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Auteur:</span>&#x00A0;<span 
class="ectt-1200">Pierre</span>&#x00A0;<span 
class="ectt-1200">Lafaye</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">Micheaux</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Date:</span>&#x00A0;<span 
class="ectt-1200">15/02/2001</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Fin-Commentaires</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">SUBROUTINE</span>&#x00A0;<span 
class="ectt-1200">cdARMA(dataf,paramf,nbcle,marret,Mind,sigma,mu,df1,df2,</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">+</span>&#x00A0;<span 
class="ectt-1200">lambda,loi5b,loi5k,loi6p,loi6q,loi7g,loi7d,loi8p,loi8q,loi9a,</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">+loi9b,loi10b,loi10l,loi11a,loi11k,loi13g,loi13d,loi14l,loi16p,</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">+loi16d,loi17p,loi17m,loi18g,loi18d,loi19a,loi19b,loi,p,q,rm,nT,</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">+</span>&#x00A0;<span 
class="ectt-1200">phi,phich,teta,tetach,donees,A,</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">+</span>&#x00A0;<span 
class="ectt-1200">B,R,NPAR,ICM,IW,PAR,W,CGETOL,V,G,CM,WORK,MEAN,PARHLD,EXACT,</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">+</span>&#x00A0;<span 
class="ectt-1200">Wtip,shocks,psi,phi2,teta2,YtpMn,Atnq,EspSU,EspSB,EspS,</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">+E,NA,NB,NR,K,N2,IP,IQ,IK,MAXCAL,ISHOW,LWORK,LIW,QQ)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">-----------------------------------------------------</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Debut</span>&#x00A0;<span 
class="ectt-1200">des</span>&#x00A0;<span 
class="ectt-1200">Declarations</span>&#x00A0;<span 
class="ectt-1200">des</span>&#x00A0;<span 
class="ectt-1200">variables</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">-----------------------------------------------------</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">ybarre,meanp</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Nom</span>&#x00A0;<span 
class="ectt-1200">du</span>&#x00A0;<span 
class="ectt-1200">fichier</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">donnees</span>&#x00A0;<span 
class="ectt-1200">en</span>&#x00A0;<span 
class="ectt-1200">sortie</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CHARACTER</span>&#x00A0;<span 
class="ectt-1200">dataf*8</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Nom</span>&#x00A0;<span 
class="ectt-1200">du</span>&#x00A0;<span 
class="ectt-1200">fichier</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">parametres</span>&#x00A0;<span 
class="ectt-1200">en</span>&#x00A0;<span 
class="ectt-1200">sortie</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CHARACTER</span>&#x00A0;<span 
class="ectt-1200">paramf*17</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">i,j,l</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Compteurs</span>&#x00A0;<span 
class="ectt-1200">des</span>&#x00A0;<span 
class="ectt-1200">nombres</span>&#x00A0;<span 
class="ectt-1200">d&#x2019;erreurs</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">err1</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">err2</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">err3</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">err4</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">err5</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">err6</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">err7</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">err8</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Precision</span>&#x00A0;<span 
class="ectt-1200">machine</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">preci,</span>&#x00A0;<span 
class="ectt-1200">X02AJF</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">EXTERNAL</span>&#x00A0;<span 
class="ectt-1200">X02AJF</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Temps</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">calcul</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">CPTIME,</span>&#x00A0;<span 
class="ectt-1200">S1,</span>&#x00A0;<span 
class="ectt-1200">S2,</span>&#x00A0;<span 
class="ectt-1200">X05BAF</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">EXTERNAL</span>&#x00A0;<span 
class="ectt-1200">X05BAF</span>

&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Nombre</span>&#x00A0;<span 
class="ectt-1200">d&#x2019;echantillons</span>&#x00A0;<span 
class="ectt-1200">souhaites</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">nbcle</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">rang</span>&#x00A0;<span 
class="ectt-1200">d&#x2019;arret</span>&#x00A0;<span 
class="ectt-1200">dans</span>&#x00A0;<span 
class="ectt-1200">la</span>&#x00A0;<span 
class="ectt-1200">random</span>&#x00A0;<span 
class="ectt-1200">shock</span>&#x00A0;<span 
class="ectt-1200">method</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">Burn</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">marret</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Induction</span>&#x00A0;<span 
class="ectt-1200">period</span>&#x00A0;<span 
class="ectt-1200">dans</span>&#x00A0;<span 
class="ectt-1200">la</span>&#x00A0;<span 
class="ectt-1200">methode</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">Burn</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">Mind</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">ecart-type</span>&#x00A0;<span 
class="ectt-1200">des</span>&#x00A0;<span 
class="ectt-1200">erreurs</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">sigma</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">sigch2</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">moyenne</span>&#x00A0;<span 
class="ectt-1200">dans</span>&#x00A0;<span 
class="ectt-1200">mon</span>&#x00A0;<span 
class="ectt-1200">modele</span>&#x00A0;<span 
class="ectt-1200">ARMA</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">mu</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">much</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">parametre</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">la</span>&#x00A0;<span 
class="ectt-1200">khi-deux</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">df1</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">parametre</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">la</span>&#x00A0;<span 
class="ectt-1200">student</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">df2</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">parametre</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">la</span>&#x00A0;<span 
class="ectt-1200">skew-normale</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">lambda</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">loi5b,</span>&#x00A0;<span 
class="ectt-1200">loi5k,</span>&#x00A0;<span 
class="ectt-1200">loi6p,</span>&#x00A0;<span 
class="ectt-1200">loi6q</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">loi7g,</span>&#x00A0;<span 
class="ectt-1200">loi7d,</span>&#x00A0;<span 
class="ectt-1200">loi8p,</span>&#x00A0;<span 
class="ectt-1200">loi8q,</span>&#x00A0;<span 
class="ectt-1200">loi9a,</span>&#x00A0;<span 
class="ectt-1200">loi9b</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">loi10b,</span>&#x00A0;<span 
class="ectt-1200">loi10l,</span>&#x00A0;<span 
class="ectt-1200">loi11a,</span>&#x00A0;<span 
class="ectt-1200">loi11k,</span>&#x00A0;<span 
class="ectt-1200">loi13g,</span>&#x00A0;<span 
class="ectt-1200">loi13d</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">loi14l,</span>&#x00A0;<span 
class="ectt-1200">loi16p,</span>&#x00A0;<span 
class="ectt-1200">loi16d,</span>&#x00A0;<span 
class="ectt-1200">loi17p,</span>&#x00A0;<span 
class="ectt-1200">loi17m</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">loi18g,</span>&#x00A0;<span 
class="ectt-1200">loi18d,</span>&#x00A0;<span 
class="ectt-1200">loi19a,</span>&#x00A0;<span 
class="ectt-1200">loi19b</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">loi</span>&#x00A0;<span 
class="ectt-1200">des</span>&#x00A0;<span 
class="ectt-1200">erreurs</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">si</span>&#x00A0;<span 
class="ectt-1200">loi=0</span>&#x00A0;<span 
class="ectt-1200">:</span>&#x00A0;<span 
class="ectt-1200">Normale(0,sigma&#x0302;2)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">si</span>&#x00A0;<span 
class="ectt-1200">loi=1</span>&#x00A0;<span 
class="ectt-1200">:</span>&#x00A0;<span 
class="ectt-1200">Khi2</span>&#x00A0;<span 
class="ectt-1200">centree</span>&#x00A0;<span 
class="ectt-1200">(df1)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">si</span>&#x00A0;<span 
class="ectt-1200">loi=2</span>&#x00A0;<span 
class="ectt-1200">:</span>&#x00A0;<span 
class="ectt-1200">Student</span>&#x00A0;<span 
class="ectt-1200">(df2)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">si</span>&#x00A0;<span 
class="ectt-1200">loi=3</span>&#x00A0;<span 
class="ectt-1200">:</span>&#x00A0;<span 
class="ectt-1200">Skew-Normale(lambda)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">si</span>&#x00A0;<span 
class="ectt-1200">loi=4</span>&#x00A0;<span 
class="ectt-1200">:</span>&#x00A0;<span 
class="ectt-1200">Laplace</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">si</span>&#x00A0;<span 
class="ectt-1200">loi=5</span>&#x00A0;<span 
class="ectt-1200">:</span>&#x00A0;<span 
class="ectt-1200">Weibull(b,k)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">si</span>&#x00A0;<span 
class="ectt-1200">loi=6</span>&#x00A0;<span 
class="ectt-1200">:</span>&#x00A0;<span 
class="ectt-1200">Gamma(p,q)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">si</span>&#x00A0;<span 
class="ectt-1200">loi=7</span>&#x00A0;<span 
class="ectt-1200">:</span>&#x00A0;<span 
class="ectt-1200">Log-Normale(g,d)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">si</span>&#x00A0;<span 
class="ectt-1200">loi=8</span>&#x00A0;<span 
class="ectt-1200">:</span>&#x00A0;<span 
class="ectt-1200">Beta(p,q)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">si</span>&#x00A0;<span 
class="ectt-1200">loi=9</span>&#x00A0;<span 
class="ectt-1200">:</span>&#x00A0;<span 
class="ectt-1200">Uniform(a,b)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">si</span>&#x00A0;<span 
class="ectt-1200">loi=10</span>&#x00A0;<span 
class="ectt-1200">:</span>&#x00A0;<span 
class="ectt-1200">Shifted</span>&#x00A0;<span 
class="ectt-1200">exp</span>&#x00A0;<span 
class="ectt-1200">(l,b)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">si</span>&#x00A0;<span 
class="ectt-1200">loi=11</span>&#x00A0;<span 
class="ectt-1200">:</span>&#x00A0;<span 
class="ectt-1200">Pareto(a,k)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">si</span>&#x00A0;<span 
class="ectt-1200">loi=12</span>&#x00A0;<span 
class="ectt-1200">:</span>&#x00A0;<span 
class="ectt-1200">Shifted</span>&#x00A0;<span 
class="ectt-1200">Pareto</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">si</span>&#x00A0;<span 
class="ectt-1200">loi=13</span>&#x00A0;<span 
class="ectt-1200">:</span>&#x00A0;<span 
class="ectt-1200">SU(g,d)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">si</span>&#x00A0;<span 
class="ectt-1200">loi=14</span>&#x00A0;<span 
class="ectt-1200">:</span>&#x00A0;<span 
class="ectt-1200">TU(l)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">si</span>&#x00A0;<span 
class="ectt-1200">loi=15</span>&#x00A0;<span 
class="ectt-1200">:</span>&#x00A0;<span 
class="ectt-1200">Logistic</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">si</span>&#x00A0;<span 
class="ectt-1200">loi=16</span>&#x00A0;<span 
class="ectt-1200">:</span>&#x00A0;<span 
class="ectt-1200">SC(p,d)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">si</span>&#x00A0;<span 
class="ectt-1200">loi=17</span>&#x00A0;<span 
class="ectt-1200">:</span>&#x00A0;<span 
class="ectt-1200">LC(p,m)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">si</span>&#x00A0;<span 
class="ectt-1200">loi=18</span>&#x00A0;<span 
class="ectt-1200">:</span>&#x00A0;<span 
class="ectt-1200">SB(g,d)</span>

&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">si</span>&#x00A0;<span 
class="ectt-1200">loi=19</span>&#x00A0;<span 
class="ectt-1200">:</span>&#x00A0;<span 
class="ectt-1200">S(a,b)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">loi</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">the</span>&#x00A0;<span 
class="ectt-1200">number</span>&#x00A0;<span 
class="ectt-1200">of</span>&#x00A0;<span 
class="ectt-1200">autoregressive</span>&#x00A0;<span 
class="ectt-1200">coefficients</span>&#x00A0;<span 
class="ectt-1200">supplied</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">p</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">the</span>&#x00A0;<span 
class="ectt-1200">number</span>&#x00A0;<span 
class="ectt-1200">of</span>&#x00A0;<span 
class="ectt-1200">moving-average</span>&#x00A0;<span 
class="ectt-1200">coefficients</span>&#x00A0;<span 
class="ectt-1200">supplied</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">q</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">rm=max(p,q)</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">**</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">rm</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">nombre</span>&#x00A0;<span 
class="ectt-1200">d&#x2019;observations</span>&#x00A0;<span 
class="ectt-1200">dans</span>&#x00A0;<span 
class="ectt-1200">mon</span>&#x00A0;<span 
class="ectt-1200">echantillon</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Si</span>&#x00A0;<span 
class="ectt-1200">on</span>&#x00A0;<span 
class="ectt-1200">change</span>&#x00A0;<span 
class="ectt-1200">la</span>&#x00A0;<span 
class="ectt-1200">valeur</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">nT,</span>&#x00A0;<span 
class="ectt-1200">il</span>&#x00A0;<span 
class="ectt-1200">faut</span>&#x00A0;<span 
class="ectt-1200">aller</span>&#x00A0;<span 
class="ectt-1200">modifier</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">la</span>&#x00A0;<span 
class="ectt-1200">valeur</span>&#x00A0;<span 
class="ectt-1200">dans</span>&#x00A0;<span 
class="ectt-1200">FORMAT</span>&#x00A0;<span 
class="ectt-1200">a</span>&#x00A0;<span 
class="ectt-1200">la</span>&#x00A0;<span 
class="ectt-1200">fin</span>&#x00A0;<span 
class="ectt-1200">du</span>&#x00A0;<span 
class="ectt-1200">programme</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">nT</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">the</span>&#x00A0;<span 
class="ectt-1200">autoregressive</span>&#x00A0;<span 
class="ectt-1200">coefficients</span>&#x00A0;<span 
class="ectt-1200">of</span>&#x00A0;<span 
class="ectt-1200">the</span>&#x00A0;<span 
class="ectt-1200">model</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">phi(2)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">phich(p)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">the</span>&#x00A0;<span 
class="ectt-1200">moving-average</span>&#x00A0;<span 
class="ectt-1200">coefficients</span>&#x00A0;<span 
class="ectt-1200">of</span>&#x00A0;<span 
class="ectt-1200">the</span>&#x00A0;<span 
class="ectt-1200">model</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">teta(2)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">tetach(q)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">vecteur</span>&#x00A0;<span 
class="ectt-1200">des</span>&#x00A0;<span 
class="ectt-1200">donnees</span>&#x00A0;<span 
class="ectt-1200">cree</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">donees(nT)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Parametres</span>&#x00A0;<span 
class="ectt-1200">pour</span>&#x00A0;<span 
class="ectt-1200">G05EGF:</span>&#x00A0;<span 
class="ectt-1200">simulation</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">EXTERNAL</span>&#x00A0;<span 
class="ectt-1200">G05EGF,</span>&#x00A0;<span 
class="ectt-1200">G05EWF</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">G05EWF</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">the</span>&#x00A0;<span 
class="ectt-1200">mean</span>&#x00A0;<span 
class="ectt-1200">of</span>&#x00A0;<span 
class="ectt-1200">the</span>&#x00A0;<span 
class="ectt-1200">time</span>&#x00A0;<span 
class="ectt-1200">series</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Input</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">E</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">the</span>&#x00A0;<span 
class="ectt-1200">number</span>&#x00A0;<span 
class="ectt-1200">of</span>&#x00A0;<span 
class="ectt-1200">autoregressive</span>&#x00A0;<span 
class="ectt-1200">coefficients</span>&#x00A0;<span 
class="ectt-1200">supplied</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Input</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">NA</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">the</span>&#x00A0;<span 
class="ectt-1200">autoregressive</span>&#x00A0;<span 
class="ectt-1200">coefficients</span>&#x00A0;<span 
class="ectt-1200">of</span>&#x00A0;<span 
class="ectt-1200">the</span>&#x00A0;<span 
class="ectt-1200">model=phi</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Input</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">A(NA)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">the</span>&#x00A0;<span 
class="ectt-1200">number</span>&#x00A0;<span 
class="ectt-1200">of</span>&#x00A0;<span 
class="ectt-1200">moving-average</span>&#x00A0;<span 
class="ectt-1200">coefficients</span>&#x00A0;<span 
class="ectt-1200">supplied</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Input</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">NB</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">the</span>&#x00A0;<span 
class="ectt-1200">moving-average</span>&#x00A0;<span 
class="ectt-1200">coefficients</span>&#x00A0;<span 
class="ectt-1200">of</span>&#x00A0;<span 
class="ectt-1200">the</span>&#x00A0;<span 
class="ectt-1200">model=teta</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Input</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">B(NB)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">the</span>&#x00A0;<span 
class="ectt-1200">dimension</span>&#x00A0;<span 
class="ectt-1200">of</span>&#x00A0;<span 
class="ectt-1200">the</span>&#x00A0;<span 
class="ectt-1200">array</span>&#x00A0;<span 
class="ectt-1200">R:</span>&#x00A0;<span 
class="ectt-1200">vecteur</span>&#x00A0;<span 
class="ectt-1200">des</span>&#x00A0;<span 
class="ectt-1200">innovations</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Input</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">NR</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">le</span>&#x00A0;<span 
class="ectt-1200">vecteur</span>&#x00A0;<span 
class="ectt-1200">des</span>&#x00A0;<span 
class="ectt-1200">innovations</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Output</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">R(NR)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">the</span>&#x00A0;<span 
class="ectt-1200">proportion</span>&#x00A0;<span 
class="ectt-1200">of</span>&#x00A0;<span 
class="ectt-1200">the</span>&#x00A0;<span 
class="ectt-1200">variance</span>&#x00A0;<span 
class="ectt-1200">of</span>&#x00A0;<span 
class="ectt-1200">a</span>&#x00A0;<span 
class="ectt-1200">term</span>&#x00A0;<span 
class="ectt-1200">in</span>&#x00A0;<span 
class="ectt-1200">the</span>&#x00A0;<span 
class="ectt-1200">series</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Output</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">that</span>&#x00A0;<span 
class="ectt-1200">is</span>&#x00A0;<span 
class="ectt-1200">due</span>&#x00A0;<span 
class="ectt-1200">to</span>&#x00A0;<span 
class="ectt-1200">the</span>&#x00A0;<span 
class="ectt-1200">moving-average</span>&#x00A0;<span 
class="ectt-1200">(error)</span>&#x00A0;<span 
class="ectt-1200">terms</span>&#x00A0;<span 
class="ectt-1200">in</span>&#x00A0;<span 
class="ectt-1200">the</span>&#x00A0;<span 
class="ectt-1200">model.</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">The</span>&#x00A0;<span 
class="ectt-1200">smaller</span>&#x00A0;<span 
class="ectt-1200">this</span>&#x00A0;<span 
class="ectt-1200">is,</span>&#x00A0;<span 
class="ectt-1200">the</span>&#x00A0;<span 
class="ectt-1200">nearer</span>&#x00A0;<span 
class="ectt-1200">is</span>&#x00A0;<span 
class="ectt-1200">the</span>&#x00A0;<span 
class="ectt-1200">model</span>&#x00A0;<span 
class="ectt-1200">to</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">non-stationarity</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">VAR</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Traitement</span>&#x00A0;<span 
class="ectt-1200">des</span>&#x00A0;<span 
class="ectt-1200">erreurs</span>

&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">IFAIL1</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Parametres</span>&#x00A0;<span 
class="ectt-1200">pour</span>&#x00A0;<span 
class="ectt-1200">G13DCF:</span>&#x00A0;<span 
class="ectt-1200">estimation</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">EXTERNAL</span>&#x00A0;<span 
class="ectt-1200">G13DCF</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">the</span>&#x00A0;<span 
class="ectt-1200">number</span>&#x00A0;<span 
class="ectt-1200">of</span>&#x00A0;<span 
class="ectt-1200">observed</span>&#x00A0;<span 
class="ectt-1200">time</span>&#x00A0;<span 
class="ectt-1200">series,</span>&#x00A0;<span 
class="ectt-1200">k</span>&#x00A0;&#x00A0;<span 
class="ectt-1200">(chez</span>&#x00A0;<span 
class="ectt-1200">moi</span>&#x00A0;<span 
class="ectt-1200">k=1)</span>&#x00A0;&#x00A0;<span 
class="ectt-1200">Input</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">K</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">the</span>&#x00A0;<span 
class="ectt-1200">number</span>&#x00A0;<span 
class="ectt-1200">of</span>&#x00A0;<span 
class="ectt-1200">observations</span>&#x00A0;<span 
class="ectt-1200">in</span>&#x00A0;<span 
class="ectt-1200">each</span>&#x00A0;<span 
class="ectt-1200">time</span>&#x00A0;<span 
class="ectt-1200">series,</span>&#x00A0;<span 
class="ectt-1200">n</span>&#x00A0;<span 
class="ectt-1200">(chez</span>&#x00A0;<span 
class="ectt-1200">moi=nT)</span>&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Input</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">N2</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">the</span>&#x00A0;<span 
class="ectt-1200">number</span>&#x00A0;<span 
class="ectt-1200">of</span>&#x00A0;<span 
class="ectt-1200">AR</span>&#x00A0;<span 
class="ectt-1200">parameter</span>&#x00A0;<span 
class="ectt-1200">matrices,</span>&#x00A0;<span 
class="ectt-1200">p</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Input</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">IP</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">the</span>&#x00A0;<span 
class="ectt-1200">number</span>&#x00A0;<span 
class="ectt-1200">of</span>&#x00A0;<span 
class="ectt-1200">MA</span>&#x00A0;<span 
class="ectt-1200">parameter</span>&#x00A0;<span 
class="ectt-1200">matrices,</span>&#x00A0;<span 
class="ectt-1200">q</span>&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Input</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">IQ</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">the</span>&#x00A0;<span 
class="ectt-1200">number</span>&#x00A0;<span 
class="ectt-1200">of</span>&#x00A0;<span 
class="ectt-1200">initial</span>&#x00A0;<span 
class="ectt-1200">parameter</span>&#x00A0;<span 
class="ectt-1200">estimates</span>&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Input</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">mettre</span>&#x00A0;<span 
class="ectt-1200">p+q+1</span>&#x00A0;<span 
class="ectt-1200">si</span>&#x00A0;<span 
class="ectt-1200">MEAN=.TRUE.</span>&#x00A0;<span 
class="ectt-1200">,</span>&#x00A0;<span 
class="ectt-1200">p+q</span>&#x00A0;<span 
class="ectt-1200">si</span>&#x00A0;<span 
class="ectt-1200">MEAN=.FALSE.</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">NPAR</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">the</span>&#x00A0;<span 
class="ectt-1200">first</span>&#x00A0;<span 
class="ectt-1200">dimension</span>&#x00A0;<span 
class="ectt-1200">of</span>&#x00A0;<span 
class="ectt-1200">the</span>&#x00A0;<span 
class="ectt-1200">arrays</span>&#x00A0;<span 
class="ectt-1200">QQ,</span>&#x00A0;<span 
class="ectt-1200">W</span>&#x00A0;<span 
class="ectt-1200">and</span>&#x00A0;<span 
class="ectt-1200">V</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Input</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">IK</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">the</span>&#x00A0;<span 
class="ectt-1200">frequency</span>&#x00A0;<span 
class="ectt-1200">with</span>&#x00A0;<span 
class="ectt-1200">which</span>&#x00A0;<span 
class="ectt-1200">the</span>&#x00A0;<span 
class="ectt-1200">automatic</span>&#x00A0;<span 
class="ectt-1200">monitoring</span>&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Input</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">routine</span>&#x00A0;<span 
class="ectt-1200">is</span>&#x00A0;<span 
class="ectt-1200">to</span>&#x00A0;<span 
class="ectt-1200">be</span>&#x00A0;<span 
class="ectt-1200">called</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">IPRINT</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">the</span>&#x00A0;<span 
class="ectt-1200">maximum</span>&#x00A0;<span 
class="ectt-1200">number</span>&#x00A0;<span 
class="ectt-1200">of</span>&#x00A0;<span 
class="ectt-1200">likelihood</span>&#x00A0;<span 
class="ectt-1200">evaluations</span>&#x00A0;<span 
class="ectt-1200">to</span>&#x00A0;<span 
class="ectt-1200">be</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Input</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">permitted</span>&#x00A0;<span 
class="ectt-1200">by</span>&#x00A0;<span 
class="ectt-1200">the</span>&#x00A0;<span 
class="ectt-1200">search</span>&#x00A0;<span 
class="ectt-1200">procedure</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">MAXCAL</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">MAXCA2</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">which</span>&#x00A0;<span 
class="ectt-1200">quantities</span>&#x00A0;<span 
class="ectt-1200">are</span>&#x00A0;<span 
class="ectt-1200">to</span>&#x00A0;<span 
class="ectt-1200">be</span>&#x00A0;<span 
class="ectt-1200">printed</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Input</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">ISHOW</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">number</span>&#x00A0;<span 
class="ectt-1200">of</span>&#x00A0;<span 
class="ectt-1200">iterations</span>&#x00A0;<span 
class="ectt-1200">performed</span>&#x00A0;<span 
class="ectt-1200">by</span>&#x00A0;<span 
class="ectt-1200">the</span>&#x00A0;<span 
class="ectt-1200">search</span>&#x00A0;<span 
class="ectt-1200">routine</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Output</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">NITER</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">first</span>&#x00A0;<span 
class="ectt-1200">dimension</span>&#x00A0;<span 
class="ectt-1200">of</span>&#x00A0;<span 
class="ectt-1200">the</span>&#x00A0;<span 
class="ectt-1200">array</span>&#x00A0;<span 
class="ectt-1200">CM</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Input</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">mettre</span>&#x00A0;<span 
class="ectt-1200">p+q+1</span>&#x00A0;<span 
class="ectt-1200">si</span>&#x00A0;<span 
class="ectt-1200">MEAN=.TRUE.</span>&#x00A0;<span 
class="ectt-1200">,</span>&#x00A0;<span 
class="ectt-1200">p+q</span>&#x00A0;<span 
class="ectt-1200">si</span>&#x00A0;<span 
class="ectt-1200">MEAN=.FALSE.</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">ICM</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">dimension</span>&#x00A0;<span 
class="ectt-1200">of</span>&#x00A0;<span 
class="ectt-1200">the</span>&#x00A0;<span 
class="ectt-1200">array</span>&#x00A0;<span 
class="ectt-1200">WORK</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Input</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">LWORK</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">dimension</span>&#x00A0;<span 
class="ectt-1200">of</span>&#x00A0;<span 
class="ectt-1200">the</span>&#x00A0;<span 
class="ectt-1200">array</span>&#x00A0;<span 
class="ectt-1200">IW</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Input</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">LIW</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Workspace</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">IW(LIW)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Traitement</span>&#x00A0;<span 
class="ectt-1200">des</span>&#x00A0;<span 
class="ectt-1200">erreurs</span>&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Input/Output</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">IFAIL2</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">initial</span>&#x00A0;<span 
class="ectt-1200">parameter</span>&#x00A0;<span 
class="ectt-1200">estimates</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Input/Output</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">PAR(NPAR)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">QQ(i,j)</span>&#x00A0;<span 
class="ectt-1200">must</span>&#x00A0;<span 
class="ectt-1200">be</span>&#x00A0;<span 
class="ectt-1200">set</span>&#x00A0;<span 
class="ectt-1200">equal</span>&#x00A0;<span 
class="ectt-1200">to</span>&#x00A0;<span 
class="ectt-1200">an</span>&#x00A0;<span 
class="ectt-1200">initial</span>&#x00A0;<span 
class="ectt-1200">estimate</span>&#x00A0;<span 
class="ectt-1200">of</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Input/Output</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">the</span>&#x00A0;<span 
class="ectt-1200">(i,j)th</span>&#x00A0;<span 
class="ectt-1200">element</span>&#x00A0;<span 
class="ectt-1200">of</span>&#x00A0;<span 
class="ectt-1200">the</span>&#x00A0;<span 
class="ectt-1200">covariance</span>&#x00A0;<span 
class="ectt-1200">matrix</span>&#x00A0;<span 
class="ectt-1200">of</span>&#x00A0;<span 
class="ectt-1200">the</span>&#x00A0;<span 
class="ectt-1200">residual</span>&#x00A0;<span 
class="ectt-1200">series</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">QQ(IK,K)</span>

&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">W(i,t)</span>&#x00A0;<span 
class="ectt-1200">must</span>&#x00A0;<span 
class="ectt-1200">be</span>&#x00A0;<span 
class="ectt-1200">set</span>&#x00A0;<span 
class="ectt-1200">equal</span>&#x00A0;<span 
class="ectt-1200">to</span>&#x00A0;<span 
class="ectt-1200">the</span>&#x00A0;<span 
class="ectt-1200">observation</span>&#x00A0;<span 
class="ectt-1200">at</span>&#x00A0;<span 
class="ectt-1200">time</span>&#x00A0;<span 
class="ectt-1200">t</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Input</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">of</span>&#x00A0;<span 
class="ectt-1200">the</span>&#x00A0;<span 
class="ectt-1200">ith</span>&#x00A0;<span 
class="ectt-1200">series</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">W(IK,N2)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">the</span>&#x00A0;<span 
class="ectt-1200">accuracy</span>&#x00A0;<span 
class="ectt-1200">to</span>&#x00A0;<span 
class="ectt-1200">which</span>&#x00A0;<span 
class="ectt-1200">the</span>&#x00A0;<span 
class="ectt-1200">solution</span>&#x00A0;<span 
class="ectt-1200">in</span>&#x00A0;<span 
class="ectt-1200">PAR</span>&#x00A0;<span 
class="ectt-1200">and</span>&#x00A0;<span 
class="ectt-1200">QQ</span>&#x00A0;<span 
class="ectt-1200">is</span>&#x00A0;<span 
class="ectt-1200">required</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Input</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">CGETOL</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">value</span>&#x00A0;<span 
class="ectt-1200">of</span>&#x00A0;<span 
class="ectt-1200">the</span>&#x00A0;<span 
class="ectt-1200">log-likelihood</span>&#x00A0;<span 
class="ectt-1200">function</span>&#x00A0;<span 
class="ectt-1200">corresponding</span>&#x00A0;<span 
class="ectt-1200">to</span>&#x00A0;<span 
class="ectt-1200">the</span>&#x00A0;<span 
class="ectt-1200">final</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Output</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">point</span>&#x00A0;<span 
class="ectt-1200">held</span>&#x00A0;<span 
class="ectt-1200">in</span>&#x00A0;<span 
class="ectt-1200">PAR</span>&#x00A0;<span 
class="ectt-1200">and</span>&#x00A0;<span 
class="ectt-1200">QQ</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">RLOGL</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">residual</span>&#x00A0;<span 
class="ectt-1200">at</span>&#x00A0;<span 
class="ectt-1200">time</span>&#x00A0;<span 
class="ectt-1200">t</span>&#x00A0;<span 
class="ectt-1200">for</span>&#x00A0;<span 
class="ectt-1200">series</span>&#x00A0;<span 
class="ectt-1200">i,</span>&#x00A0;<span 
class="ectt-1200">for</span>&#x00A0;<span 
class="ectt-1200">i</span>&#x00A0;<span 
class="ectt-1200">=</span>&#x00A0;<span 
class="ectt-1200">1,2,...,k</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Output</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">V(IK,N2)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">estimated</span>&#x00A0;<span 
class="ectt-1200">first</span>&#x00A0;<span 
class="ectt-1200">derivative</span>&#x00A0;<span 
class="ectt-1200">of</span>&#x00A0;<span 
class="ectt-1200">the</span>&#x00A0;<span 
class="ectt-1200">log-likelihood</span>&#x00A0;<span 
class="ectt-1200">function</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Output</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">G(NPAR)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">estimate</span>&#x00A0;<span 
class="ectt-1200">of</span>&#x00A0;<span 
class="ectt-1200">the</span>&#x00A0;<span 
class="ectt-1200">correlation</span>&#x00A0;<span 
class="ectt-1200">coefficient</span>&#x00A0;<span 
class="ectt-1200">between</span>&#x00A0;<span 
class="ectt-1200">the</span>&#x00A0;<span 
class="ectt-1200">ith</span>&#x00A0;<span 
class="ectt-1200">and</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Output</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">jth</span>&#x00A0;<span 
class="ectt-1200">elements</span>&#x00A0;<span 
class="ectt-1200">in</span>&#x00A0;<span 
class="ectt-1200">the</span>&#x00A0;<span 
class="ectt-1200">PAR</span>&#x00A0;<span 
class="ectt-1200">array</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">CM(ICM,NPAR)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Workspace</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">WORK(LWORK)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">MEAN</span>&#x00A0;<span 
class="ectt-1200">must</span>&#x00A0;<span 
class="ectt-1200">be</span>&#x00A0;<span 
class="ectt-1200">set</span>&#x00A0;<span 
class="ectt-1200">to</span>&#x00A0;<span 
class="ectt-1200">.TRUE.</span>&#x00A0;<span 
class="ectt-1200">if</span>&#x00A0;<span 
class="ectt-1200">components</span>&#x00A0;<span 
class="ectt-1200">of</span>&#x00A0;<span 
class="ectt-1200">mu</span>&#x00A0;<span 
class="ectt-1200">are</span>&#x00A0;<span 
class="ectt-1200">to</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Input</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">be</span>&#x00A0;<span 
class="ectt-1200">estimated</span>&#x00A0;<span 
class="ectt-1200">and</span>&#x00A0;<span 
class="ectt-1200">.FALSE.</span>&#x00A0;<span 
class="ectt-1200">if</span>&#x00A0;<span 
class="ectt-1200">all</span>&#x00A0;<span 
class="ectt-1200">elements</span>&#x00A0;<span 
class="ectt-1200">of</span>&#x00A0;<span 
class="ectt-1200">mu</span>&#x00A0;<span 
class="ectt-1200">are</span>&#x00A0;<span 
class="ectt-1200">to</span>&#x00A0;<span 
class="ectt-1200">be</span>&#x00A0;<span 
class="ectt-1200">taken</span>&#x00A0;<span 
class="ectt-1200">as</span>&#x00A0;<span 
class="ectt-1200">zero</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">LOGICAL</span>&#x00A0;<span 
class="ectt-1200">MEAN</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARHLD(i)</span>&#x00A0;<span 
class="ectt-1200">must</span>&#x00A0;<span 
class="ectt-1200">be</span>&#x00A0;<span 
class="ectt-1200">set</span>&#x00A0;<span 
class="ectt-1200">to</span>&#x00A0;<span 
class="ectt-1200">.TRUE.,</span>&#x00A0;<span 
class="ectt-1200">if</span>&#x00A0;<span 
class="ectt-1200">PAR(i)</span>&#x00A0;<span 
class="ectt-1200">is</span>&#x00A0;<span 
class="ectt-1200">to</span>&#x00A0;<span 
class="ectt-1200">be</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Input</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">held</span>&#x00A0;<span 
class="ectt-1200">constant</span>&#x00A0;<span 
class="ectt-1200">at</span>&#x00A0;<span 
class="ectt-1200">its</span>&#x00A0;<span 
class="ectt-1200">input</span>&#x00A0;<span 
class="ectt-1200">value</span>&#x00A0;<span 
class="ectt-1200">and</span>&#x00A0;<span 
class="ectt-1200">.FALSE.,</span>&#x00A0;<span 
class="ectt-1200">if</span>&#x00A0;<span 
class="ectt-1200">PAR(i)</span>&#x00A0;<span 
class="ectt-1200">is</span>&#x00A0;<span 
class="ectt-1200">a</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">free</span>&#x00A0;<span 
class="ectt-1200">parameter,</span>&#x00A0;<span 
class="ectt-1200">for</span>&#x00A0;<span 
class="ectt-1200">i</span>&#x00A0;<span 
class="ectt-1200">=</span>&#x00A0;<span 
class="ectt-1200">1,2,...,NPAR.</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">LOGICAL</span>&#x00A0;<span 
class="ectt-1200">PARHLD(NPAR)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">EXACT</span>&#x00A0;<span 
class="ectt-1200">must</span>&#x00A0;<span 
class="ectt-1200">be</span>&#x00A0;<span 
class="ectt-1200">set</span>&#x00A0;<span 
class="ectt-1200">equal</span>&#x00A0;<span 
class="ectt-1200">to</span>&#x00A0;<span 
class="ectt-1200">.TRUE.</span>&#x00A0;<span 
class="ectt-1200">if</span>&#x00A0;<span 
class="ectt-1200">the</span>&#x00A0;<span 
class="ectt-1200">user</span>&#x00A0;<span 
class="ectt-1200">wishes</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Input</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">the</span>&#x00A0;<span 
class="ectt-1200">routine</span>&#x00A0;<span 
class="ectt-1200">to</span>&#x00A0;<span 
class="ectt-1200">compute</span>&#x00A0;<span 
class="ectt-1200">exact</span>&#x00A0;<span 
class="ectt-1200">maximum</span>&#x00A0;<span 
class="ectt-1200">likelihood</span>&#x00A0;<span 
class="ectt-1200">estimates.</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">EXACT</span>&#x00A0;<span 
class="ectt-1200">must</span>&#x00A0;<span 
class="ectt-1200">be</span>&#x00A0;<span 
class="ectt-1200">set</span>&#x00A0;<span 
class="ectt-1200">equal</span>&#x00A0;<span 
class="ectt-1200">to</span>&#x00A0;<span 
class="ectt-1200">.FALSE.</span>&#x00A0;<span 
class="ectt-1200">if</span>&#x00A0;<span 
class="ectt-1200">only</span>&#x00A0;<span 
class="ectt-1200">conditional</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">likelihood</span>&#x00A0;<span 
class="ectt-1200">estimates</span>&#x00A0;<span 
class="ectt-1200">are</span>&#x00A0;<span 
class="ectt-1200">required.</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">LOGICAL</span>&#x00A0;<span 
class="ectt-1200">EXACT</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Contient</span>&#x00A0;<span 
class="ectt-1200">les</span>&#x00A0;<span 
class="ectt-1200">p</span>&#x00A0;<span 
class="ectt-1200">donnees</span>&#x00A0;<span 
class="ectt-1200">initiales</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">la</span>&#x00A0;<span 
class="ectt-1200">serie</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">Wtip(p)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">marret+p</span>&#x00A0;<span 
class="ectt-1200">innovations</span>&#x00A0;<span 
class="ectt-1200">genere</span>&#x00A0;<span 
class="ectt-1200">par</span>&#x00A0;<span 
class="ectt-1200">shock.f</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">shocks(marret+p)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">defini</span>&#x00A0;<span 
class="ectt-1200">dans</span>&#x00A0;<span 
class="ectt-1200">Burn,</span>&#x00A0;<span 
class="ectt-1200">calcule</span>&#x00A0;<span 
class="ectt-1200">par</span>&#x00A0;<span 
class="ectt-1200">ARMpsi.f</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">psi(marret+1)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">utile</span>&#x00A0;<span 
class="ectt-1200">dans</span>&#x00A0;<span 
class="ectt-1200">simARM.f</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">longueur</span>&#x00A0;<span 
class="ectt-1200">marret</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">phi2(marret)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">utile</span>&#x00A0;<span 
class="ectt-1200">dans</span>&#x00A0;<span 
class="ectt-1200">simARM.f</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">longueur</span>&#x00A0;<span 
class="ectt-1200">marret</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">teta2(marret)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">utile</span>&#x00A0;<span 
class="ectt-1200">dans</span>&#x00A0;<span 
class="ectt-1200">simARM.f</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">YtpMn(p+Mind+nT)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">utile</span>&#x00A0;<span 
class="ectt-1200">dans</span>&#x00A0;<span 
class="ectt-1200">simARM.f</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">Atnq(nT+Mind+q),EspSU,EspSB,EspS</span>

&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">-----------------------------------------------------</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Fin</span>&#x00A0;<span 
class="ectt-1200">des</span>&#x00A0;<span 
class="ectt-1200">Declarations</span>&#x00A0;<span 
class="ectt-1200">des</span>&#x00A0;<span 
class="ectt-1200">variables</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">-----------------------------------------------------</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">err1=0</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">err2=0</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">err3=0</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">err4=0</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">err5=0</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">err6=0</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">err7=0</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">err8=0</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">---------------------------------------------------------------------</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Debut</span>&#x00A0;<span 
class="ectt-1200">du</span>&#x00A0;<span 
class="ectt-1200">programme</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">---------------------------------------------------------------------</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DO</span>&#x00A0;<span 
class="ectt-1200">10,</span>&#x00A0;<span 
class="ectt-1200">j=1,p</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">A(j)=phi(j)</span>
&#x00A0;<br />&#x00A0;<span 
class="ectt-1200">10</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CONTINUE</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">B(1)=sigma</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DO</span>&#x00A0;<span 
class="ectt-1200">20,</span>&#x00A0;<span 
class="ectt-1200">j=1,q</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">B(j+1)=teta(j)*B(1)</span>
&#x00A0;<br />&#x00A0;<span 
class="ectt-1200">20</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CONTINUE</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">S1=X05BAF()</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">OPEN(UNIT=12,</span>&#x00A0;<span 
class="ectt-1200">FILE=dataf</span>&#x00A0;<span 
class="ectt-1200">,</span>&#x00A0;<span 
class="ectt-1200">STATUS=&#x2019;NEW&#x2019;</span>&#x00A0;<span 
class="ectt-1200">)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">------------------------------------------------------------------------------------------------</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0; <span 
class="ectt-1200">q&#x003E;0</span>&#x00A0;<span 
class="ectt-1200">et</span>&#x00A0;<span 
class="ectt-1200">p&#x003E;0:</span>&#x00A0;<span 
class="ectt-1200">modele</span>&#x00A0;<span 
class="ectt-1200">ARMA(p,q)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">------------------------------------------------------------------------------------------------</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">preci=X02AJF()</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DO</span>&#x00A0;<span 
class="ectt-1200">100,</span>&#x00A0;<span 
class="ectt-1200">i=1,nbcle</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(6,*)</span>&#x00A0;<span 
class="ectt-1200">nbcle-i</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">IPRINT=-1</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">EXACT=.TRUE.</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">-----------------------------------------------------------------------------------------------</span>
&#x00A0;<br /><span 
class="ectt-1200">c </span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">On</span>&#x00A0;<span 
class="ectt-1200">simule</span>&#x00A0;<span 
class="ectt-1200">les</span>&#x00A0;<span 
class="ectt-1200">donnees:</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">-----------------------------------------------------------------------------------------------</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">donees=[Y1,...,YT]</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">IF</span>&#x00A0;<span 
class="ectt-1200">(loi</span>&#x00A0;<span 
class="ectt-1200">.EQ.</span>&#x00A0;<span 
class="ectt-1200">0)</span>&#x00A0;<span 
class="ectt-1200">THEN</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">IFAIL1=0</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">ATTENTION!!!</span>&#x00A0;<span 
class="ectt-1200">ICI</span>&#x00A0;<span 
class="ectt-1200">JE</span>&#x00A0;<span 
class="ectt-1200">N&#x2019;AI</span>&#x00A0;<span 
class="ectt-1200">PAS</span>&#x00A0;<span 
class="ectt-1200">PU</span>&#x00A0;<span 
class="ectt-1200">ENLEVER</span>&#x00A0;<span 
class="ectt-1200">la</span>&#x00A0;<span 
class="ectt-1200">moyenne</span>&#x00A0;<span 
class="ectt-1200">aux</span>&#x00A0;<span 
class="ectt-1200">epsilon</span>&#x00A0;<span 
class="ectt-1200">comme</span>&#x00A0;<span 
class="ectt-1200">dans</span>&#x00A0;<span 
class="ectt-1200">simulARMA</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">C&#x2019;est</span>&#x00A0;<span 
class="ectt-1200">un</span>&#x00A0;<span 
class="ectt-1200">probleme</span>&#x00A0;<span 
class="ectt-1200">qu&#x2019;il</span>&#x00A0;<span 
class="ectt-1200">faudra</span>&#x00A0;<span 
class="ectt-1200">resoudre</span>&#x00A0;<span 
class="ectt-1200">quand</span>&#x00A0;<span 
class="ectt-1200">mu</span>&#x00A0;<span 
class="ectt-1200">sera</span>&#x00A0;<span 
class="ectt-1200">different</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">0</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CALL</span>&#x00A0;<span 
class="ectt-1200">G05EGF(E,</span>&#x00A0;<span 
class="ectt-1200">A,</span>&#x00A0;<span 
class="ectt-1200">NA,</span>&#x00A0;<span 
class="ectt-1200">B,</span>&#x00A0;<span 
class="ectt-1200">NB,</span>&#x00A0;<span 
class="ectt-1200">R,</span>&#x00A0;<span 
class="ectt-1200">NR,</span>&#x00A0;<span 
class="ectt-1200">VAR,</span>&#x00A0;<span 
class="ectt-1200">IFAIL1)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">A</span>&#x00A0;<span 
class="ectt-1200">la</span>&#x00A0;<span 
class="ectt-1200">sortie</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">G05EGF,</span>&#x00A0;<span 
class="ectt-1200">R</span>&#x00A0;<span 
class="ectt-1200">contient:</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">NA+0.5,</span>&#x00A0;<span 
class="ectt-1200">NB+0.5,</span>&#x00A0;<span 
class="ectt-1200">NA+NB+4+MAX(NA,NB)+0.5,</span>&#x00A0;<span 
class="ectt-1200">mu,</span>&#x00A0;<span 
class="ectt-1200">phi,</span>&#x00A0;<span 
class="ectt-1200">sigma,</span>&#x00A0;<span 
class="ectt-1200">teta,</span>&#x00A0;<span 
class="ectt-1200">les</span>&#x00A0;<span 
class="ectt-1200">NB</span>&#x00A0;<span 
class="ectt-1200">valeurs</span>&#x00A0;<span 
class="ectt-1200">passees</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">epsilon</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DO</span>&#x00A0;<span 
class="ectt-1200">30,</span>&#x00A0;<span 
class="ectt-1200">j=1,</span>&#x00A0;<span 
class="ectt-1200">nT</span>

&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">G05EWF</span>&#x00A0;<span 
class="ectt-1200">va</span>&#x00A0;<span 
class="ectt-1200">aussi</span>&#x00A0;<span 
class="ectt-1200">modifier(mettre</span>&#x00A0;<span 
class="ectt-1200">a</span>&#x00A0;<span 
class="ectt-1200">jour)</span>&#x00A0;<span 
class="ectt-1200">R</span>&#x00A0;<span 
class="ectt-1200">en</span>&#x00A0;<span 
class="ectt-1200">sortie</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">donees(j)=G05EWF(R,</span>&#x00A0;<span 
class="ectt-1200">NR,</span>&#x00A0;<span 
class="ectt-1200">IFAIL1)</span>
&#x00A0;<br />&#x00A0;<span 
class="ectt-1200">30</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CONTINUE</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">ENDIF</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">IF</span>&#x00A0;<span 
class="ectt-1200">(loi</span>&#x00A0;<span 
class="ectt-1200">.NE.</span>&#x00A0;<span 
class="ectt-1200">0)</span>&#x00A0;<span 
class="ectt-1200">THEN</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CALL</span>&#x00A0;<span 
class="ectt-1200">simARM</span>&#x00A0;<span 
class="ectt-1200">(p,q,nT,marret,Mind,loi,df1,df2,lambda,loi5b,</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">+</span>&#x00A0;&#x00A0;<span 
class="ectt-1200">loi5k,</span>&#x00A0;<span 
class="ectt-1200">loi6p,</span>&#x00A0;<span 
class="ectt-1200">loi6q,</span>&#x00A0;<span 
class="ectt-1200">loi7g,</span>&#x00A0;<span 
class="ectt-1200">loi7d,</span>&#x00A0;<span 
class="ectt-1200">loi8p,</span>&#x00A0;<span 
class="ectt-1200">loi8q,</span>&#x00A0;<span 
class="ectt-1200">loi9a,</span>&#x00A0;<span 
class="ectt-1200">loi9b,</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">+</span>&#x00A0;&#x00A0;<span 
class="ectt-1200">loi10b,</span>&#x00A0;<span 
class="ectt-1200">loi10l,</span>&#x00A0;<span 
class="ectt-1200">loi11a,</span>&#x00A0;<span 
class="ectt-1200">loi11k,</span>&#x00A0;<span 
class="ectt-1200">loi13g,</span>&#x00A0;<span 
class="ectt-1200">loi13d,</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">+</span>&#x00A0;&#x00A0;<span 
class="ectt-1200">loi14l,</span>&#x00A0;<span 
class="ectt-1200">loi16p,</span>&#x00A0;<span 
class="ectt-1200">loi16d,</span>&#x00A0;<span 
class="ectt-1200">loi17p,</span>&#x00A0;<span 
class="ectt-1200">loi17m,</span>&#x00A0;<span 
class="ectt-1200">loi18g,</span>&#x00A0;<span 
class="ectt-1200">loi18d,</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">+</span>&#x00A0;&#x00A0;<span 
class="ectt-1200">loi19a,</span>&#x00A0;<span 
class="ectt-1200">loi19b,Wtip,shocks,psi,phi,</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">+</span>&#x00A0;&#x00A0;<span 
class="ectt-1200">teta,phi2,teta2,YtpMn,Atnq,EspSU,EspSB,EspS)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DO</span>&#x00A0;<span 
class="ectt-1200">35,</span>&#x00A0;<span 
class="ectt-1200">j=1,nT</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">donees(j)=YtpMn(j+Mind+p)</span>
&#x00A0;<br />&#x00A0;<span 
class="ectt-1200">35</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CONTINUE</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">ENDIF</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">ybarre=meanp(nT,donees)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">-----------------------------------------------------------------------------------------------</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0; <span 
class="ectt-1200">On</span>&#x00A0;<span 
class="ectt-1200">estime</span>&#x00A0;<span 
class="ectt-1200">les</span>&#x00A0;<span 
class="ectt-1200">parametres:</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">-----------------------------------------------------------------------------------------------</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Je</span>&#x00A0;<span 
class="ectt-1200">mets</span>&#x00A0;<span 
class="ectt-1200">les</span>&#x00A0;<span 
class="ectt-1200">nT</span>&#x00A0;<span 
class="ectt-1200">donnees</span>&#x00A0;<span 
class="ectt-1200">dans</span>&#x00A0;<span 
class="ectt-1200">W</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DO</span>&#x00A0;<span 
class="ectt-1200">40,</span>&#x00A0;<span 
class="ectt-1200">j=1,</span>&#x00A0;<span 
class="ectt-1200">nT</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">W(1,j)=donees(j)</span>
&#x00A0;<br />&#x00A0;<span 
class="ectt-1200">40</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CONTINUE</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DO</span>&#x00A0;<span 
class="ectt-1200">50,</span>&#x00A0;<span 
class="ectt-1200">j=1,</span>&#x00A0;<span 
class="ectt-1200">p</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PAR(j)=phi(j)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARHLD(j)=.FALSE.</span>
&#x00A0;<br />&#x00A0;<span 
class="ectt-1200">50</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CONTINUE</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DO</span>&#x00A0;<span 
class="ectt-1200">60,</span>&#x00A0;<span 
class="ectt-1200">j=1</span>&#x00A0;<span 
class="ectt-1200">,q</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PAR(j+p)=-teta(j)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARHLD(j+p)=.FALSE.</span>
&#x00A0;<br />&#x00A0;<span 
class="ectt-1200">60</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CONTINUE</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">IF</span>&#x00A0;<span 
class="ectt-1200">(MEAN)</span>&#x00A0;<span 
class="ectt-1200">PAR(p+q+1)=mu</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">IF</span>&#x00A0;<span 
class="ectt-1200">(MEAN)</span>&#x00A0;<span 
class="ectt-1200">PARHLD(p+q+1)=.FALSE.</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">estimation</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">la</span>&#x00A0;<span 
class="ectt-1200">variance</span>&#x00A0;<span 
class="ectt-1200">des</span>&#x00A0;<span 
class="ectt-1200">residus</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">QQ(1,1)=sigma*sigma</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">MAXCA2=MAXCAL</span>
&#x00A0;<br />&#x00A0;<span 
class="ectt-1200">65</span>&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">IFAIL2=-1</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Calcul</span>&#x00A0;<span 
class="ectt-1200">des</span>&#x00A0;<span 
class="ectt-1200">estimateurs</span>&#x00A0;<span 
class="ectt-1200">du</span>&#x00A0;<span 
class="ectt-1200">maximum</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">vraisemblance</span>&#x00A0;<span 
class="ectt-1200">exact</span>&#x00A0;<span 
class="ectt-1200">et</span>&#x00A0;<span 
class="ectt-1200">des</span>&#x00A0;<span 
class="ectt-1200">residus</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CALL</span>&#x00A0;<span 
class="ectt-1200">G13DCF(K,</span>&#x00A0;<span 
class="ectt-1200">N2,</span>&#x00A0;<span 
class="ectt-1200">IP,</span>&#x00A0;<span 
class="ectt-1200">IQ,</span>&#x00A0;<span 
class="ectt-1200">MEAN,</span>&#x00A0;<span 
class="ectt-1200">PAR,</span>&#x00A0;<span 
class="ectt-1200">NPAR,</span>&#x00A0;<span 
class="ectt-1200">QQ,</span>&#x00A0;<span 
class="ectt-1200">IK,</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">+</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">W,</span>&#x00A0;<span 
class="ectt-1200">PARHLD,</span>&#x00A0;<span 
class="ectt-1200">EXACT,</span>&#x00A0;<span 
class="ectt-1200">IPRINT,</span>&#x00A0;<span 
class="ectt-1200">CGETOL,</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">+</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">MAXCA2,</span>&#x00A0;<span 
class="ectt-1200">ISHOW,</span>&#x00A0;<span 
class="ectt-1200">NITER,</span>&#x00A0;<span 
class="ectt-1200">RLOGL,</span>&#x00A0;<span 
class="ectt-1200">V,</span>&#x00A0;<span 
class="ectt-1200">G,</span>&#x00A0;<span 
class="ectt-1200">CM,</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">+</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">ICM,</span>&#x00A0;<span 
class="ectt-1200">WORK,</span>&#x00A0;<span 
class="ectt-1200">LWORK,</span>&#x00A0;<span 
class="ectt-1200">IW,</span>&#x00A0;<span 
class="ectt-1200">LIW,</span>&#x00A0;<span 
class="ectt-1200">IFAIL2)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">IF</span>&#x00A0;<span 
class="ectt-1200">(IFAIL2</span>&#x00A0;<span 
class="ectt-1200">.EQ.</span>&#x00A0;<span 
class="ectt-1200">1)</span>&#x00A0;<span 
class="ectt-1200">err1=err1+1</span>

&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">IF</span>&#x00A0;<span 
class="ectt-1200">(IFAIL2</span>&#x00A0;<span 
class="ectt-1200">.EQ.</span>&#x00A0;<span 
class="ectt-1200">2)</span>&#x00A0;<span 
class="ectt-1200">err2=err2+1</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">IF</span>&#x00A0;<span 
class="ectt-1200">(IFAIL2</span>&#x00A0;<span 
class="ectt-1200">.EQ.</span>&#x00A0;<span 
class="ectt-1200">3)</span>&#x00A0;<span 
class="ectt-1200">err3=err3+1</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">IF</span>&#x00A0;<span 
class="ectt-1200">(IFAIL2</span>&#x00A0;<span 
class="ectt-1200">.EQ.</span>&#x00A0;<span 
class="ectt-1200">4)</span>&#x00A0;<span 
class="ectt-1200">err4=err4+1</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">IF</span>&#x00A0;<span 
class="ectt-1200">(IFAIL2</span>&#x00A0;<span 
class="ectt-1200">.EQ.</span>&#x00A0;<span 
class="ectt-1200">5)</span>&#x00A0;<span 
class="ectt-1200">err5=err5+1</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">IF</span>&#x00A0;<span 
class="ectt-1200">(IFAIL2</span>&#x00A0;<span 
class="ectt-1200">.EQ.</span>&#x00A0;<span 
class="ectt-1200">6)</span>&#x00A0;<span 
class="ectt-1200">err6=err6+1</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">IF</span>&#x00A0;<span 
class="ectt-1200">(IFAIL2</span>&#x00A0;<span 
class="ectt-1200">.EQ.</span>&#x00A0;<span 
class="ectt-1200">7)</span>&#x00A0;<span 
class="ectt-1200">err7=err7+1</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">IF</span>&#x00A0;<span 
class="ectt-1200">(IFAIL2</span>&#x00A0;<span 
class="ectt-1200">.EQ.</span>&#x00A0;<span 
class="ectt-1200">8)</span>&#x00A0;<span 
class="ectt-1200">err8=err8+1</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Permet</span>&#x00A0;<span 
class="ectt-1200">d&#x2019;eliminer</span>&#x00A0;<span 
class="ectt-1200">le</span>&#x00A0;<span 
class="ectt-1200">cas</span>&#x00A0;<span 
class="ectt-1200">d&#x2019;erreur</span>&#x00A0;<span 
class="ectt-1200">IFAIL=4</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">IF</span>&#x00A0;<span 
class="ectt-1200">(IFAIL2</span>&#x00A0;<span 
class="ectt-1200">.EQ.</span>&#x00A0;<span 
class="ectt-1200">4)</span>&#x00A0;<span 
class="ectt-1200">MAXCA2=MAXCA2+100</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">IF</span>&#x00A0;<span 
class="ectt-1200">(IFAIL2</span>&#x00A0;<span 
class="ectt-1200">.EQ.</span>&#x00A0;<span 
class="ectt-1200">4)</span>&#x00A0;<span 
class="ectt-1200">GOTO</span>&#x00A0;<span 
class="ectt-1200">65</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DO</span>&#x00A0;<span 
class="ectt-1200">70,</span>&#x00A0;<span 
class="ectt-1200">j=1,p</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">phich(j)=PAR(j)</span>
&#x00A0;<br />&#x00A0;<span 
class="ectt-1200">70</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CONTINUE</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DO</span>&#x00A0;<span 
class="ectt-1200">80,</span>&#x00A0;<span 
class="ectt-1200">j=1,q</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">tetach(j)=-PAR(j+p)</span>
&#x00A0;<br />&#x00A0;<span 
class="ectt-1200">80</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CONTINUE</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">IF</span>&#x00A0;<span 
class="ectt-1200">(MEAN)</span>&#x00A0;<span 
class="ectt-1200">much=PAR(p+q+1)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">sigch2=QQ(1,1)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Mon</span>&#x00A0;<span 
class="ectt-1200">vecteur</span>&#x00A0;<span 
class="ectt-1200">des</span>&#x00A0;<span 
class="ectt-1200">phichapeau</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(6,*)</span>&#x00A0;<span 
class="ectt-1200">&#x2019;phichap=&#x2019;,phich</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Mon</span>&#x00A0;<span 
class="ectt-1200">vecteur</span>&#x00A0;<span 
class="ectt-1200">des</span>&#x00A0;<span 
class="ectt-1200">tetachapeau</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(6,*)</span>&#x00A0;<span 
class="ectt-1200">&#x2019;tetachap=&#x2019;,tetach</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Ma</span>&#x00A0;<span 
class="ectt-1200">variance</span>&#x00A0;<span 
class="ectt-1200">estimee</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(6,*)</span>&#x00A0;<span 
class="ectt-1200">&#x2019;sigchap2=&#x2019;,sigch2</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Mon</span>&#x00A0;<span 
class="ectt-1200">vecteur</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">residus</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(6,*)</span>&#x00A0;<span 
class="ectt-1200">&#x2019;Residus:&#x2019;,V</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Ma</span>&#x00A0;<span 
class="ectt-1200">moyenne</span>&#x00A0;<span 
class="ectt-1200">estimee</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(6,*)</span>&#x00A0;<span 
class="ectt-1200">&#x2019;Moyennechap=&#x2019;,much</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">On</span>&#x00A0;<span 
class="ectt-1200">ecrit</span>&#x00A0;<span 
class="ectt-1200">les</span>&#x00A0;<span 
class="ectt-1200">donnees</span>&#x00A0;<span 
class="ectt-1200">dans</span>&#x00A0;<span 
class="ectt-1200">le</span>&#x00A0;<span 
class="ectt-1200">fichier</span>&#x00A0;<span 
class="ectt-1200">s&#x2019;il</span>&#x00A0;<span 
class="ectt-1200">n&#x2019;y</span>&#x00A0;<span 
class="ectt-1200">a</span>&#x00A0;<span 
class="ectt-1200">pas</span>&#x00A0;<span 
class="ectt-1200">eu</span>&#x00A0;<span 
class="ectt-1200">d&#x2019;erreur</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">c&#x2019;est</span>&#x00A0;<span 
class="ectt-1200">a</span>&#x00A0;<span 
class="ectt-1200">dire</span>&#x00A0;<span 
class="ectt-1200">qu&#x2019;on</span>&#x00A0;<span 
class="ectt-1200">ne</span>&#x00A0;<span 
class="ectt-1200">garde</span>&#x00A0;<span 
class="ectt-1200">que</span>&#x00A0;<span 
class="ectt-1200">les</span>&#x00A0;<span 
class="ectt-1200">bons</span>&#x00A0;<span 
class="ectt-1200">echantillons</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">IF</span>&#x00A0;<span 
class="ectt-1200">(IFAIL2</span>&#x00A0;<span 
class="ectt-1200">.EQ.</span>&#x00A0;<span 
class="ectt-1200">0)</span>&#x00A0;<span 
class="ectt-1200">WRITE(12,60)</span>&#x00A0;<span 
class="ectt-1200">sigch2,</span>&#x00A0;<span 
class="ectt-1200">((V(l,j),j=1,nT),l=1,1)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">On</span>&#x00A0;<span 
class="ectt-1200">ecrit</span>&#x00A0;<span 
class="ectt-1200">toutes</span>&#x00A0;<span 
class="ectt-1200">donnees</span>&#x00A0;<span 
class="ectt-1200">dans</span>&#x00A0;<span 
class="ectt-1200">le</span>&#x00A0;<span 
class="ectt-1200">fichier</span>&#x00A0;<span 
class="ectt-1200">sauf</span>&#x00A0;<span 
class="ectt-1200">s&#x2019;il</span>&#x00A0;<span 
class="ectt-1200">y</span>&#x00A0;<span 
class="ectt-1200">a</span>&#x00A0;<span 
class="ectt-1200">eu</span>&#x00A0;<span 
class="ectt-1200">des</span>&#x00A0;<span 
class="ectt-1200">IFAIL1,2,3</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">IF</span>&#x00A0;<span 
class="ectt-1200">((IFAIL2</span>&#x00A0;<span 
class="ectt-1200">.EQ.</span>&#x00A0;<span 
class="ectt-1200">0)</span>&#x00A0;<span 
class="ectt-1200">.OR.</span>&#x00A0;<span 
class="ectt-1200">(IFAIL2</span>&#x00A0;<span 
class="ectt-1200">.GT.</span>&#x00A0;<span 
class="ectt-1200">4))</span>&#x00A0;<span 
class="ectt-1200">WRITE(12,90)</span>&#x00A0;<span 
class="ectt-1200">sigch2,</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">+</span>&#x00A0;<span 
class="ectt-1200">((V(l,j),j=1,nT),l=1,1)</span>
&#x00A0;<br />&#x00A0;<span 
class="ectt-1200">90</span>&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">FORMAT(SP,51D20.12)</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">**</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">FIN</span>&#x00A0;<span 
class="ectt-1200">DE</span>&#x00A0;<span 
class="ectt-1200">LA</span>&#x00A0;<span 
class="ectt-1200">BOUCLE</span>
&#x00A0;<br />&#x00A0;<span 
class="ectt-1200">100</span>&#x00A0;&#x00A0;<span 
class="ectt-1200">CONTINUE</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CLOSE(UNIT=12)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">On</span>&#x00A0;<span 
class="ectt-1200">compte</span>&#x00A0;<span 
class="ectt-1200">le</span>&#x00A0;<span 
class="ectt-1200">nombre</span>&#x00A0;<span 
class="ectt-1200">d&#x2019;echantillons</span>&#x00A0;<span 
class="ectt-1200">reellement</span>&#x00A0;<span 
class="ectt-1200">fabriques</span>&#x00A0;<span 
class="ectt-1200">dans</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">le</span>&#x00A0;<span 
class="ectt-1200">cas</span>&#x00A0;<span 
class="ectt-1200">ou</span>&#x00A0;<span 
class="ectt-1200">on</span>&#x00A0;<span 
class="ectt-1200">elimine</span>&#x00A0;<span 
class="ectt-1200">les</span>&#x00A0;<span 
class="ectt-1200">mauvais</span>&#x00A0;<span 
class="ectt-1200">echantillons</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">nbcle=nbcle-(err1+err2+err3+err5+err6+err7+err8)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">On</span>&#x00A0;<span 
class="ectt-1200">compte</span>&#x00A0;<span 
class="ectt-1200">le</span>&#x00A0;<span 
class="ectt-1200">nombre</span>&#x00A0;<span 
class="ectt-1200">d&#x2019;echantillons</span>&#x00A0;<span 
class="ectt-1200">reellement</span>&#x00A0;<span 
class="ectt-1200">fabriques</span>&#x00A0;<span 
class="ectt-1200">dans</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">le</span>&#x00A0;<span 
class="ectt-1200">cas</span>&#x00A0;<span 
class="ectt-1200">ou</span>&#x00A0;<span 
class="ectt-1200">on</span>&#x00A0;<span 
class="ectt-1200">garde</span>&#x00A0;<span 
class="ectt-1200">tous</span>&#x00A0;<span 
class="ectt-1200">les</span>&#x00A0;<span 
class="ectt-1200">echantillons</span>&#x00A0;<span 
class="ectt-1200">(sauf</span>&#x00A0;<span 
class="ectt-1200">IFAIL1,2,3)</span>

&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">nbcle=nbcle-(err1+err2+err3)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">S2=X05BAF()</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CPTIME=S2-S1</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">OPEN(UNIT=14,</span>&#x00A0;<span 
class="ectt-1200">FILE=paramf</span>&#x00A0;<span 
class="ectt-1200">,</span>&#x00A0;<span 
class="ectt-1200">STATUS=&#x2019;NEW&#x2019;</span>&#x00A0;<span 
class="ectt-1200">)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(14,*)</span>&#x00A0;<span 
class="ectt-1200">&#x2019;Fichier</span>&#x00A0;<span 
class="ectt-1200">&#x2019;//</span>&#x00A0;<span 
class="ectt-1200">paramf</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(14,*)</span>&#x00A0;<span 
class="ectt-1200">&#x2019;p=&#x2019;,p</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(14,*)</span>&#x00A0;<span 
class="ectt-1200">&#x2019;q=&#x2019;,q</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(14,*)</span>&#x00A0;<span 
class="ectt-1200">&#x2019;Phi=&#x2019;,phi</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(14,*)</span>&#x00A0;<span 
class="ectt-1200">&#x2019;Teta=&#x2019;,teta</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(14,*)</span>&#x00A0;<span 
class="ectt-1200">&#x2019;nT=&#x2019;,nT</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(14,*)</span>&#x00A0;<span 
class="ectt-1200">&#x2019;loi=&#x2019;,loi</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(14,*)</span>&#x00A0;<span 
class="ectt-1200">&#x2019;nbcle=&#x2019;,nbcle</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(14,*)</span>&#x00A0;<span 
class="ectt-1200">&#x2019;marret=&#x2019;,</span>&#x00A0;<span 
class="ectt-1200">marret</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(14,*)</span>&#x00A0;<span 
class="ectt-1200">&#x2019;Mind=&#x2019;,</span>&#x00A0;<span 
class="ectt-1200">Mind</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(14,*)</span>&#x00A0;<span 
class="ectt-1200">&#x2019;sigma=&#x2019;,sigma</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(14,*)</span>&#x00A0;<span 
class="ectt-1200">&#x2019;mu=&#x2019;,</span>&#x00A0;<span 
class="ectt-1200">mu</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(14,*)</span>&#x00A0;<span 
class="ectt-1200">&#x2019;df1=&#x2019;,df1</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(14,*)</span>&#x00A0;<span 
class="ectt-1200">&#x2019;df2=&#x2019;,df2</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(14,*)</span>&#x00A0;<span 
class="ectt-1200">&#x2019;lambda=&#x2019;,lambda</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(14,*)</span>&#x00A0;<span 
class="ectt-1200">&#x2019;loi5b=&#x2019;,loi5b</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(14,*)</span>&#x00A0;<span 
class="ectt-1200">&#x2019;loi5k=&#x2019;,loi5k</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(14,*)</span>&#x00A0;<span 
class="ectt-1200">&#x2019;loi6p=&#x2019;,loi6p</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(14,*)</span>&#x00A0;<span 
class="ectt-1200">&#x2019;loi6q=&#x2019;,loi6q</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(14,*)</span>&#x00A0;<span 
class="ectt-1200">&#x2019;loi7g=&#x2019;,loi7g</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(14,*)</span>&#x00A0;<span 
class="ectt-1200">&#x2019;loi7d=&#x2019;,loi7d</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(14,*)</span>&#x00A0;<span 
class="ectt-1200">&#x2019;loi8p=&#x2019;,loi8p</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(14,*)</span>&#x00A0;<span 
class="ectt-1200">&#x2019;loi8q=&#x2019;,loi8q</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(14,*)</span>&#x00A0;<span 
class="ectt-1200">&#x2019;loi9a=&#x2019;,loi9a</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(14,*)</span>&#x00A0;<span 
class="ectt-1200">&#x2019;loi9b=&#x2019;,loi9b</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(14,*)</span>&#x00A0;<span 
class="ectt-1200">&#x2019;loi10l=&#x2019;,loi10l</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(14,*)</span>&#x00A0;<span 
class="ectt-1200">&#x2019;loi10b=&#x2019;,loi10b</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(14,*)</span>&#x00A0;<span 
class="ectt-1200">&#x2019;loi11a=&#x2019;,loi11a</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(14,*)</span>&#x00A0;<span 
class="ectt-1200">&#x2019;loi11k=&#x2019;,loi11k</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(14,*)</span>&#x00A0;<span 
class="ectt-1200">&#x2019;loi13g=&#x2019;,loi13g</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(14,*)</span>&#x00A0;<span 
class="ectt-1200">&#x2019;loi13d=&#x2019;,loi13d</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(14,*)</span>&#x00A0;<span 
class="ectt-1200">&#x2019;loi14l=&#x2019;,loi14l</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(14,*)</span>&#x00A0;<span 
class="ectt-1200">&#x2019;loi16p=&#x2019;,loi16p</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(14,*)</span>&#x00A0;<span 
class="ectt-1200">&#x2019;loi16d=&#x2019;,loi16d</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(14,*)</span>&#x00A0;<span 
class="ectt-1200">&#x2019;loi17p=&#x2019;,loi17p</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(14,*)</span>&#x00A0;<span 
class="ectt-1200">&#x2019;loi17m=&#x2019;,loi17m</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(14,*)</span>&#x00A0;<span 
class="ectt-1200">&#x2019;loi18g=&#x2019;,loi18g</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(14,*)</span>&#x00A0;<span 
class="ectt-1200">&#x2019;loi18d=&#x2019;,loi18d</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(14,*)</span>&#x00A0;<span 
class="ectt-1200">&#x2019;loi19a=&#x2019;,loi19a</span>

&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(14,*)</span>&#x00A0;<span 
class="ectt-1200">&#x2019;loi19b=&#x2019;,loi19b</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(14,*)</span>&#x00A0;<span 
class="ectt-1200">&#x2019;CGETOL=&#x2019;,CGETOL</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(14,*)</span>&#x00A0;<span 
class="ectt-1200">&#x2019;LOGICAL</span>&#x00A0;<span 
class="ectt-1200">MEAN=&#x2019;,</span>&#x00A0;<span 
class="ectt-1200">MEAN</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(14,*)</span>&#x00A0;<span 
class="ectt-1200">&#x2019;LOGICAL</span>&#x00A0;<span 
class="ectt-1200">EXACT&#x2019;,</span>&#x00A0;<span 
class="ectt-1200">EXACT</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(14,*)</span>&#x00A0;<span 
class="ectt-1200">&#x2019;Precision</span>&#x00A0;<span 
class="ectt-1200">machine=&#x2019;,</span>&#x00A0;<span 
class="ectt-1200">preci</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(14,*)</span>&#x00A0;<span 
class="ectt-1200">&#x2019;QUELQUES</span>&#x00A0;<span 
class="ectt-1200">RESULTATS:&#x2019;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(14,*)</span>&#x00A0;<span 
class="ectt-1200">&#x2019;Nombre</span>&#x00A0;<span 
class="ectt-1200">d\&#x2019;erreurs</span>&#x00A0;<span 
class="ectt-1200">IFAIL2=1:&#x2019;,err1</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(14,*)</span>&#x00A0;<span 
class="ectt-1200">&#x2019;Nombre</span>&#x00A0;<span 
class="ectt-1200">d\&#x2019;erreurs</span>&#x00A0;<span 
class="ectt-1200">IFAIL2=2:&#x2019;,err2</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(14,*)</span>&#x00A0;<span 
class="ectt-1200">&#x2019;Nombre</span>&#x00A0;<span 
class="ectt-1200">d\&#x2019;erreurs</span>&#x00A0;<span 
class="ectt-1200">IFAIL2=3:&#x2019;,err3</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(14,*)</span>&#x00A0;<span 
class="ectt-1200">&#x2019;Nombre</span>&#x00A0;<span 
class="ectt-1200">d\&#x2019;erreurs</span>&#x00A0;<span 
class="ectt-1200">IFAIL2=4:&#x2019;,err4</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(14,*)</span>&#x00A0;<span 
class="ectt-1200">&#x2019;Nombre</span>&#x00A0;<span 
class="ectt-1200">d\&#x2019;erreurs</span>&#x00A0;<span 
class="ectt-1200">IFAIL2=5:&#x2019;,err5</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(14,*)</span>&#x00A0;<span 
class="ectt-1200">&#x2019;Nombre</span>&#x00A0;<span 
class="ectt-1200">d\&#x2019;erreurs</span>&#x00A0;<span 
class="ectt-1200">IFAIL2=6:&#x2019;,err6</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(14,*)</span>&#x00A0;<span 
class="ectt-1200">&#x2019;Nombre</span>&#x00A0;<span 
class="ectt-1200">d\&#x2019;erreurs</span>&#x00A0;<span 
class="ectt-1200">IFAIL2=7:&#x2019;,err7</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(14,*)</span>&#x00A0;<span 
class="ectt-1200">&#x2019;Nombre</span>&#x00A0;<span 
class="ectt-1200">d\&#x2019;erreurs</span>&#x00A0;<span 
class="ectt-1200">IFAIL2=8:&#x2019;,err8</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(14,*)</span>&#x00A0;<span 
class="ectt-1200">&#x2019;Temps</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">calcul</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">creation</span>&#x00A0;<span 
class="ectt-1200">des</span>&#x00A0;<span 
class="ectt-1200">donnees:&#x2019;,</span>&#x00A0;<span 
class="ectt-1200">CPTIME</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CLOSE(UNIT=14)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">END</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">---------------------------------------------------------------------</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Fin</span>&#x00A0;<span 
class="ectt-1200">du</span>&#x00A0;<span 
class="ectt-1200">programme</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">---------------------------------------------------------------------</span>
</div>
   <h3 class="sectionHead"><span class="titlemark">A.7. </span> <a 
  name="x1-50000A.7"></a>Le programme calcstat.f</h3>
<!--l. 317--><p class="noindent"><span 
class="ecbx-1200">Programme calcstat.f</span> </p><div class="verbatiminput">
<span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Debut-Commentaires</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Nom</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">la</span>&#x00A0;<span 
class="ectt-1200">sous-routine:</span>&#x00A0;<span 
class="ectt-1200">calcstat</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Entrees:</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">-------</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">voir</span>&#x00A0;<span 
class="ectt-1200">plus</span>&#x00A0;<span 
class="ectt-1200">bas</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Sorties:</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">-------</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Le</span>&#x00A0;<span 
class="ectt-1200">fichier</span>&#x00A0;<span 
class="ectt-1200">resultat.txt</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Description:</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">-----------</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Cette</span>&#x00A0;<span 
class="ectt-1200">sous-routine</span>&#x00A0;<span 
class="ectt-1200">calcule</span>&#x00A0;<span 
class="ectt-1200">les</span>&#x00A0;<span 
class="ectt-1200">statistiques</span>&#x00A0;<span 
class="ectt-1200">du</span>&#x00A0;<span 
class="ectt-1200">test</span>&#x00A0;<span 
class="ectt-1200">lisse</span>&#x00A0;<span 
class="ectt-1200">sur</span>&#x00A0;<span 
class="ectt-1200">les</span>&#x00A0;<span 
class="ectt-1200">ARMA,</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">d&#x2019;Anderson</span>&#x00A0;<span 
class="ectt-1200">Darling</span>&#x00A0;<span 
class="ectt-1200">et</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">Brockwell</span>&#x00A0;<span 
class="ectt-1200">et</span>&#x00A0;<span 
class="ectt-1200">Davis</span>&#x00A0;<span 
class="ectt-1200">a</span>&#x00A0;<span 
class="ectt-1200">partir</span>&#x00A0;<span 
class="ectt-1200">d&#x2019;un</span>&#x00A0;<span 
class="ectt-1200">fichier</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">donnees</span>&#x00A0;<span 
class="ectt-1200">data.txt</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">contenant</span>&#x00A0;<span 
class="ectt-1200">les</span>&#x00A0;<span 
class="ectt-1200">donnees</span>&#x00A0;<span 
class="ectt-1200">simulees</span>&#x00A0;<span 
class="ectt-1200">d&#x2019;un</span>&#x00A0;<span 
class="ectt-1200">modele</span>&#x00A0;<span 
class="ectt-1200">ARMA</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Ces</span>&#x00A0;<span 
class="ectt-1200">donnees</span>&#x00A0;<span 
class="ectt-1200">sont</span>&#x00A0;<span 
class="ectt-1200">fabriquees</span>&#x00A0;<span 
class="ectt-1200">par</span>&#x00A0;<span 
class="ectt-1200">l&#x2019;une</span>&#x00A0;<span 
class="ectt-1200">des</span>&#x00A0;<span 
class="ectt-1200">sous-routines</span>&#x00A0;<span 
class="ectt-1200">creerdat_AR.f,</span>&#x00A0;<span 
class="ectt-1200">creerdat_MA.f</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">ou</span>&#x00A0;<span 
class="ectt-1200">creerdat_ARMA.f,</span>&#x00A0;<span 
class="ectt-1200">il</span>&#x00A0;<span 
class="ectt-1200">s&#x2019;agit</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">sigchap2</span>&#x00A0;<span 
class="ectt-1200">et</span>&#x00A0;<span 
class="ectt-1200">epschap</span>&#x00A0;<span 
class="ectt-1200">sur</span>&#x00A0;<span 
class="ectt-1200">chaque</span>&#x00A0;<span 
class="ectt-1200">ligne</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Les</span>&#x00A0;<span 
class="ectt-1200">resultats</span>&#x00A0;<span 
class="ectt-1200">sont</span>&#x00A0;<span 
class="ectt-1200">stockes</span>&#x00A0;<span 
class="ectt-1200">dans</span>&#x00A0;<span 
class="ectt-1200">le</span>&#x00A0;<span 
class="ectt-1200">fichier</span>&#x00A0;<span 
class="ectt-1200">resultat.txt</span>

&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Utilisation</span>&#x00A0;<span 
class="ectt-1200">dans</span>&#x00A0;<span 
class="ectt-1200">une</span>&#x00A0;<span 
class="ectt-1200">fonction</span>&#x00A0;<span 
class="ectt-1200">main:</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">-------------------------------------</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PROGRAM</span>&#x00A0;<span 
class="ectt-1200">main</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Les</span>&#x00A0;<span 
class="ectt-1200">**</span>&#x00A0;<span 
class="ectt-1200">indiquent</span>&#x00A0;<span 
class="ectt-1200">les</span>&#x00A0;<span 
class="ectt-1200">endroits</span>&#x00A0;<span 
class="ectt-1200">ou</span>&#x00A0;<span 
class="ectt-1200">des</span>&#x00A0;<span 
class="ectt-1200">changements</span>&#x00A0;<span 
class="ectt-1200">peuvent</span>&#x00A0;<span 
class="ectt-1200">etre</span>&#x00A0;<span 
class="ectt-1200">necessaires</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;&#x00A0;<span 
class="ectt-1200">khi(10),</span>&#x00A0;<span 
class="ectt-1200">khi2(10)</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Si</span>&#x00A0;<span 
class="ectt-1200">isa=.TRUE.</span>&#x00A0;<span 
class="ectt-1200">on</span>&#x00A0;<span 
class="ectt-1200">prend</span>&#x00A0;<span 
class="ectt-1200">les</span>&#x00A0;<span 
class="ectt-1200">polynomes</span>&#x00A0;<span 
class="ectt-1200">modifies</span>&#x00A0;<span 
class="ectt-1200">avec</span>&#x00A0;<span 
class="ectt-1200">les</span>&#x00A0;<span 
class="ectt-1200">ak</span>&#x00A0;&#x00A0;<span 
class="ectt-1200">**</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Si</span>&#x00A0;<span 
class="ectt-1200">isa=.FALSE.</span>&#x00A0;<span 
class="ectt-1200">on</span>&#x00A0;<span 
class="ectt-1200">prend</span>&#x00A0;<span 
class="ectt-1200">les</span>&#x00A0;<span 
class="ectt-1200">polynomes</span>&#x00A0;<span 
class="ectt-1200">modifies</span>&#x00A0;<span 
class="ectt-1200">sans</span>&#x00A0;<span 
class="ectt-1200">les</span>&#x00A0;<span 
class="ectt-1200">ak</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">LOGICAL</span>&#x00A0;<span 
class="ectt-1200">isa</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Quantiles</span>&#x00A0;<span 
class="ectt-1200">Ledwi1</span>&#x00A0;<span 
class="ectt-1200">et</span>&#x00A0;<span 
class="ectt-1200">Ledwi2</span>&#x00A0;<span 
class="ectt-1200">pour</span>&#x00A0;<span 
class="ectt-1200">alpha</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">**</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">QuLed1,</span>&#x00A0;<span 
class="ectt-1200">QuLed2</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(QuLed1=3.692,QuLed2=4.932)</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Quantiles</span>&#x00A0;<span 
class="ectt-1200">Ledwi1</span>&#x00A0;<span 
class="ectt-1200">et</span>&#x00A0;<span 
class="ectt-1200">Ledwi2</span>&#x00A0;<span 
class="ectt-1200">pour</span>&#x00A0;<span 
class="ectt-1200">alpha2</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">**</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">QuLe12,</span>&#x00A0;<span 
class="ectt-1200">QuLe22</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(QuLe12=3.692,QuLe22=4.932)</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Quantiles</span>&#x00A0;<span 
class="ectt-1200">Brockwell</span>&#x00A0;<span 
class="ectt-1200">et</span>&#x00A0;<span 
class="ectt-1200">Davis,</span>&#x00A0;<span 
class="ectt-1200">et</span>&#x00A0;<span 
class="ectt-1200">Anderson</span>&#x00A0;<span 
class="ectt-1200">Darling,</span>&#x00A0;<span 
class="ectt-1200">et</span>&#x00A0;<span 
class="ectt-1200">JB</span>&#x00A0;<span 
class="ectt-1200">pour</span>&#x00A0;<span 
class="ectt-1200">alpha</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">**</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">QuBD,</span>&#x00A0;<span 
class="ectt-1200">QuAD,</span>&#x00A0;<span 
class="ectt-1200">QuJB</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(QuBD=0.9786,QuAD=1.743,QuJB=4.61)</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Quantiles</span>&#x00A0;<span 
class="ectt-1200">Brockwell</span>&#x00A0;<span 
class="ectt-1200">et</span>&#x00A0;<span 
class="ectt-1200">Davis,</span>&#x00A0;<span 
class="ectt-1200">et</span>&#x00A0;<span 
class="ectt-1200">Anderson</span>&#x00A0;<span 
class="ectt-1200">Darling,</span>&#x00A0;<span 
class="ectt-1200">et</span>&#x00A0;<span 
class="ectt-1200">JB</span>&#x00A0;<span 
class="ectt-1200">pour</span>&#x00A0;<span 
class="ectt-1200">alpha2</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">**</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">QuBD2,</span>&#x00A0;<span 
class="ectt-1200">QuAD2,</span>&#x00A0;<span 
class="ectt-1200">QuJB2</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(QuBD2=0.9786,QuAD2=1.743,</span>&#x00A0;<span 
class="ectt-1200">QuJB2=5.99)</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Niveau</span>&#x00A0;<span 
class="ectt-1200">du</span>&#x00A0;<span 
class="ectt-1200">test</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">**</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">alpha,</span>&#x00A0;<span 
class="ectt-1200">alpha2</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(alpha=0.1,alpha2=0.05)</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Nombre</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">polynomes</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">**</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">Kp</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(Kp=10)</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">ordre</span>&#x00A0;<span 
class="ectt-1200">du</span>&#x00A0;<span 
class="ectt-1200">modele</span>&#x00A0;<span 
class="ectt-1200">AR</span>&#x00A0;<span 
class="ectt-1200">(1</span>&#x00A0;<span 
class="ectt-1200">ou</span>&#x00A0;<span 
class="ectt-1200">2)</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">**</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">p</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(p=2)</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">ordre</span>&#x00A0;<span 
class="ectt-1200">du</span>&#x00A0;<span 
class="ectt-1200">modele</span>&#x00A0;<span 
class="ectt-1200">MA</span>&#x00A0;<span 
class="ectt-1200">(1</span>&#x00A0;<span 
class="ectt-1200">ou</span>&#x00A0;<span 
class="ectt-1200">2)</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">**</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">q</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(q=2)</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Taille</span>&#x00A0;<span 
class="ectt-1200">des</span>&#x00A0;<span 
class="ectt-1200">echantillons</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">**</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">nT</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(nT=100)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">phi(2),</span>&#x00A0;<span 
class="ectt-1200">teta(2)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">n,m,nbcle</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(m=nT+1)</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">n=nbcle=nombre</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">lignes</span>&#x00A0;<span 
class="ectt-1200">dans</span>&#x00A0;<span 
class="ectt-1200">le</span>&#x00A0;<span 
class="ectt-1200">fichier</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">donnees</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">**</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">on</span>&#x00A0;<span 
class="ectt-1200">peu</span>&#x00A0;<span 
class="ectt-1200">faire</span>&#x00A0;<span 
class="ectt-1200">wc</span>&#x00A0;<span 
class="ectt-1200">-l</span>&#x00A0;<span 
class="ectt-1200">data.txt</span>&#x00A0;<span 
class="ectt-1200">pour</span>&#x00A0;<span 
class="ectt-1200">le</span>&#x00A0;<span 
class="ectt-1200">connaitre</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(n=990,nbcle=990)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CHARACTER</span>&#x00A0;<span 
class="ectt-1200">filer*8,</span>&#x00A0;<span 
class="ectt-1200">filew*12</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">**</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">valeur(n,m)</span>

&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">sch2vc(n)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">epscha(n,nT)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">compt(Kp)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">compt2(Kp)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">statn(n,Kp)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">KoLed1(n)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">KoLed2(n)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">Ledwi1(Kp)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">Ledwi2(Kp-1)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">snLed1(n)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">snLed2(n)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">stanBD(n)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">stanAD(n)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">stanJB(n)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">Z(nT)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">D(nT)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">Davant(nT),</span>&#x00A0;<span 
class="ectt-1200">E2(nT)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">U(nT)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">hUetoi(nT,Kp)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">Uavant(nT)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">hKetoi(Kp)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">hU(nT,Kp)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">hK(Kp)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">vecteu(Kp)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">vectoi(Kp)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">stat(Kp)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">Zavant(nT)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">BDa(nT)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">BDb(nT)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">BDc(nT)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">BDd(nT)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">Davan2(nT)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">ADa(nT)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">ADb(nT)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">Puiss(Kp)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">Puiss2(Kp)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">snsort(n,Kp)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">snsorv(n)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">Qucalc(Kp)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">snLe1s(n)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">snLe2s(n)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">snBDso(n)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">snADso(n)</span>

&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">snJBso(n)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">matric(nbcle,18)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CHARACTER</span>&#x00A0;<span 
class="ectt-1200">paramf*9</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">loi</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">dnT</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(dnT=Kp)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">QLed1u,QLe12u</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(QLed1u=QuLed1,QLe12u=QuLe12)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">QLed2u,QLe22u</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(QLed2u=QuLed2,QLe22u=QuLe22)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">QBDu,QBD2u</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(QBDu=QuBD,QBD2u=QuBD2)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">QADu,QAD2u</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(QADu=QuAD,QAD2u=QuAD2)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">QJBu,QJB2u</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(QJBu=QuJB,QJB2u=QuJB2)</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Quantiles</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">la</span>&#x00A0;<span 
class="ectt-1200">loi</span>&#x00A0;<span 
class="ectt-1200">du</span>&#x00A0;<span 
class="ectt-1200">Khi2</span>&#x00A0;<span 
class="ectt-1200">(K=10;alpha=0.1)</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">**</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">a</span>&#x00A0;<span 
class="ectt-1200">(de)commenter</span>&#x00A0;<span 
class="ectt-1200">si</span>&#x00A0;<span 
class="ectt-1200">necessaire</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">khi(1)=2.71</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">khi(2)=4.61</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">khi(3)=6.25</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">khi(4)=7.78</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">khi(5)=9.24</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">khi(6)=10.64</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">khi(7)=12.02</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">khi(8)=13.36</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">khi(9)=14.68</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">khi(10)=15.99</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Quantiles</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">la</span>&#x00A0;<span 
class="ectt-1200">loi</span>&#x00A0;<span 
class="ectt-1200">du</span>&#x00A0;<span 
class="ectt-1200">Khi2</span>&#x00A0;<span 
class="ectt-1200">(K=10;alpha=0.05)</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">**</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">a</span>&#x00A0;<span 
class="ectt-1200">(de)commenter</span>&#x00A0;<span 
class="ectt-1200">si</span>&#x00A0;<span 
class="ectt-1200">necessaire</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">khi2(1)=3.84</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">khi2(2)=5.99</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">khi2(3)=7.81</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">khi2(4)=9.49</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">khi2(5)=11.07</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">khi2(6)=12.59</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">khi2(7)=14.07</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">khi2(8)=15.51</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">khi2(9)=16.92</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">khi2(10)=18.31</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Quantiles</span>&#x00A0;<span 
class="ectt-1200">utilises</span>&#x00A0;<span 
class="ectt-1200">pour</span>&#x00A0;<span 
class="ectt-1200">le</span>&#x00A0;<span 
class="ectt-1200">calcul</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">la</span>&#x00A0;<span 
class="ectt-1200">stat(vrais</span>&#x00A0;<span 
class="ectt-1200">quantiles</span>&#x00A0;<span 
class="ectt-1200">calcules</span>&#x00A0;<span 
class="ectt-1200">sous</span>&#x00A0;<span 
class="ectt-1200">H0),</span>&#x00A0;<span 
class="ectt-1200">pour</span>&#x00A0;<span 
class="ectt-1200">alpha</span>&#x00A0;&#x00A0;<span 
class="ectt-1200">**</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">a</span>&#x00A0;<span 
class="ectt-1200">(de)commenter</span>&#x00A0;<span 
class="ectt-1200">si</span>&#x00A0;<span 
class="ectt-1200">necessaire</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">khi(1)=2.394426</span>

&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">khi(2)=4.392086</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">khi(3)=5.954882</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">khi(4)=7.577112</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">khi(5)=9.020887</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">khi(6)=10.523610</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">khi(7)=11.927158</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">khi(8)=13.508102</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">khi(9)=14.852025</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">khi(10)=16.271442</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Quantiles</span>&#x00A0;<span 
class="ectt-1200">utilises</span>&#x00A0;<span 
class="ectt-1200">pour</span>&#x00A0;<span 
class="ectt-1200">le</span>&#x00A0;<span 
class="ectt-1200">calcul</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">la</span>&#x00A0;<span 
class="ectt-1200">stat(vrais</span>&#x00A0;<span 
class="ectt-1200">quantiles</span>&#x00A0;<span 
class="ectt-1200">calcules</span>&#x00A0;<span 
class="ectt-1200">sous</span>&#x00A0;<span 
class="ectt-1200">H0),</span>&#x00A0;<span 
class="ectt-1200">pour</span>&#x00A0;<span 
class="ectt-1200">alpha2</span>&#x00A0;&#x00A0;<span 
class="ectt-1200">**</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">a</span>&#x00A0;<span 
class="ectt-1200">(de)commenter</span>&#x00A0;<span 
class="ectt-1200">si</span>&#x00A0;<span 
class="ectt-1200">necessaire</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">khi2(1)=2.394426</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">khi2(2)=4.392086</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">khi2(3)=5.954882</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">khi2(4)=7.577112</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">khi2(5)=9.020887</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">khi2(6)=10.523610</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">khi2(7)=11.927158</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">khi2(8)=13.508102</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">khi2(9)=14.852025</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">khi2(10)=16.271442</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Valeurs</span>&#x00A0;<span 
class="ectt-1200">des</span>&#x00A0;<span 
class="ectt-1200">parametres</span>&#x00A0;<span 
class="ectt-1200">phi</span>&#x00A0;<span 
class="ectt-1200">et</span>&#x00A0;<span 
class="ectt-1200">teta</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">**</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">phi(1)=0.1</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">phi(2)=0.5</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">teta(1)=0.1</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">teta(2)=0.2</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">On</span>&#x00A0;<span 
class="ectt-1200">peut</span>&#x00A0;<span 
class="ectt-1200">aussi</span>&#x00A0;<span 
class="ectt-1200">changer</span>&#x00A0;<span 
class="ectt-1200">le</span>&#x00A0;<span 
class="ectt-1200">nom</span>&#x00A0;<span 
class="ectt-1200">du</span>&#x00A0;<span 
class="ectt-1200">fichier</span>&#x00A0;<span 
class="ectt-1200">en</span>&#x00A0;<span 
class="ectt-1200">entree</span>&#x00A0;<span 
class="ectt-1200">(data.txt)</span>&#x00A0;<span 
class="ectt-1200">et</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">**</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">le</span>&#x00A0;<span 
class="ectt-1200">nom</span>&#x00A0;<span 
class="ectt-1200">du</span>&#x00A0;<span 
class="ectt-1200">fichier</span>&#x00A0;<span 
class="ectt-1200">en</span>&#x00A0;<span 
class="ectt-1200">sortie</span>&#x00A0;<span 
class="ectt-1200">(resultat.txt)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">filer=&#x2019;data.txt&#x2019;</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">filew=&#x2019;resultat.txt&#x2019;</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">paramf=&#x2019;param.txt&#x2019;</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">loi=0</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0; <span 
class="ectt-1200">CALL</span>&#x00A0;<span 
class="ectt-1200">calcstat(isa,khi,khi2,QuLed1,QuLe12,QuLed2,QuLe22,QuBD,</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">+</span>&#x00A0;<span 
class="ectt-1200">QuBD2,QuAD,QuAD2,alpha,Kp,p,q,nT</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">+</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">,phi,teta,n,nbcle,m,filer,filew,valeur,sch2vc,epscha,compt,</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">+</span>&#x00A0;<span 
class="ectt-1200">compt2,statn,KoLed1,KoLed2,Ledwi1,Ledwi2,snLed1,snLed2,stanBD,</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">+stanAD,stanJB</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">+</span>&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Z,D,Davant,E2,U,hUetoi,Uavant,hKetoi,hU,hK,vecteu,vectoi,stat,</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">+</span>&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Zavant,BDa,BDb,BDc,BDd,Davan2,ADa,ADb,Puiss,Puiss2,</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">+snsort,snsorv,</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">+</span>&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Qucalc,snLe1s,snLe2s,snBDso,snADso,snJBso,matric,paramf,loi,</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">+</span>&#x00A0;<span 
class="ectt-1200">dnT,QLed1u,QLe12u,QLed2u,QLe22u,QBDu,QBD2u,QADu,QAD2u,QJBu,QJB2u)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">END</span>

&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INCLUDE</span>&#x00A0;<span 
class="ectt-1200">&#x2019;H1isa.f&#x2019;</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INCLUDE</span>&#x00A0;<span 
class="ectt-1200">&#x2019;H2isa.f&#x2019;</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INCLUDE</span>&#x00A0;<span 
class="ectt-1200">&#x2019;H3isa.f&#x2019;</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INCLUDE</span>&#x00A0;<span 
class="ectt-1200">&#x2019;H4isa.f&#x2019;</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INCLUDE</span>&#x00A0;<span 
class="ectt-1200">&#x2019;H5isa.f&#x2019;</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INCLUDE</span>&#x00A0;<span 
class="ectt-1200">&#x2019;H6isa.f&#x2019;</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INCLUDE</span>&#x00A0;<span 
class="ectt-1200">&#x2019;H7isa.f&#x2019;</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INCLUDE</span>&#x00A0;<span 
class="ectt-1200">&#x2019;H8isa.f&#x2019;</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INCLUDE</span>&#x00A0;<span 
class="ectt-1200">&#x2019;H9isa.f&#x2019;</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INCLUDE</span>&#x00A0;<span 
class="ectt-1200">&#x2019;H10isa.f&#x2019;</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INCLUDE</span>&#x00A0;<span 
class="ectt-1200">&#x2019;H1etoile.f&#x2019;</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INCLUDE</span>&#x00A0;<span 
class="ectt-1200">&#x2019;H2etoile.f&#x2019;</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INCLUDE</span>&#x00A0;<span 
class="ectt-1200">&#x2019;H3etoile.f&#x2019;</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INCLUDE</span>&#x00A0;<span 
class="ectt-1200">&#x2019;H4etoile.f&#x2019;</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INCLUDE</span>&#x00A0;<span 
class="ectt-1200">&#x2019;H5etoile.f&#x2019;</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INCLUDE</span>&#x00A0;<span 
class="ectt-1200">&#x2019;H6etoile.f&#x2019;</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INCLUDE</span>&#x00A0;<span 
class="ectt-1200">&#x2019;H7etoile.f&#x2019;</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INCLUDE</span>&#x00A0;<span 
class="ectt-1200">&#x2019;H8etoile.f&#x2019;</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INCLUDE</span>&#x00A0;<span 
class="ectt-1200">&#x2019;H9etoile.f&#x2019;</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INCLUDE</span>&#x00A0;<span 
class="ectt-1200">&#x2019;H10etoile.f&#x2019;</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INCLUDE</span>&#x00A0;<span 
class="ectt-1200">&#x2019;H1.f&#x2019;</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INCLUDE</span>&#x00A0;<span 
class="ectt-1200">&#x2019;H2.f&#x2019;</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INCLUDE</span>&#x00A0;<span 
class="ectt-1200">&#x2019;H3.f&#x2019;</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INCLUDE</span>&#x00A0;<span 
class="ectt-1200">&#x2019;H4.f&#x2019;</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INCLUDE</span>&#x00A0;<span 
class="ectt-1200">&#x2019;H5.f&#x2019;</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INCLUDE</span>&#x00A0;<span 
class="ectt-1200">&#x2019;H6.f&#x2019;</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INCLUDE</span>&#x00A0;<span 
class="ectt-1200">&#x2019;H7.f&#x2019;</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INCLUDE</span>&#x00A0;<span 
class="ectt-1200">&#x2019;H8.f&#x2019;</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INCLUDE</span>&#x00A0;<span 
class="ectt-1200">&#x2019;H9.f&#x2019;</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INCLUDE</span>&#x00A0;<span 
class="ectt-1200">&#x2019;H10.f&#x2019;</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INCLUDE</span>&#x00A0;<span 
class="ectt-1200">&#x2019;qnorm.f&#x2019;</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INCLUDE</span>&#x00A0;<span 
class="ectt-1200">&#x2019;pnorm.f&#x2019;</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INCLUDE</span>&#x00A0;<span 
class="ectt-1200">&#x2019;min.f&#x2019;</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INCLUDE</span>&#x00A0;<span 
class="ectt-1200">&#x2019;max.f&#x2019;</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INCLUDE</span>&#x00A0;<span 
class="ectt-1200">&#x2019;mean.f&#x2019;</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INCLUDE</span>&#x00A0;<span 
class="ectt-1200">&#x2019;var.f&#x2019;</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">-------------------------------------</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Instructions</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">compilation:</span>&#x00A0;<span 
class="ectt-1200">alias</span>&#x00A0;<span 
class="ectt-1200">f77=&#x2019;fort77&#x2019;</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">f77</span>&#x00A0;<span 
class="ectt-1200">-c</span>&#x00A0;<span 
class="ectt-1200">nom_du_fichier_contenant_la_fonction_main.f</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">f77</span>&#x00A0;<span 
class="ectt-1200">-c</span>&#x00A0;<span 
class="ectt-1200">calcstat.f</span>&#x00A0;<span 
class="ectt-1200">-lnag</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">f77</span>&#x00A0;<span 
class="ectt-1200">nom_du_fichier_contenant_la_fonction_main.o</span>&#x00A0;<span 
class="ectt-1200">calcsat.o</span>&#x00A0;<span 
class="ectt-1200">-lnag</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Fonctions</span>&#x00A0;<span 
class="ectt-1200">exterieures</span>&#x00A0;<span 
class="ectt-1200">appelees:</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">M01CAF</span>&#x00A0;<span 
class="ectt-1200">NAG</span>&#x00A0;<span 
class="ectt-1200">Mark16</span>&#x00A0;<span 
class="ectt-1200">routine</span>

&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Auteur:</span>&#x00A0;<span 
class="ectt-1200">Pierre</span>&#x00A0;<span 
class="ectt-1200">Lafaye</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">Micheaux</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Date:</span>&#x00A0;<span 
class="ectt-1200">15/02/2001</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Fin-Commentaires</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">SUBROUTINE</span>&#x00A0;<span 
class="ectt-1200">calcstat(isa,khi,khi2,QuLed1,QuLe12,QuLed2,QuLe22,QuBD,</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">+</span>&#x00A0;<span 
class="ectt-1200">QuBD2,QuAD,QuAD2,QuJB,QuJB2,alpha,alpha2,Kp,p,q,nT,phi,teta,n,</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">+</span>&#x00A0;<span 
class="ectt-1200">nbcle,m,filer,filew,valeur,sch2vc,epscha,compt,compt2,statn,</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">+</span>&#x00A0;<span 
class="ectt-1200">KoLed1,KoLed2,Ledwi1,Ledwi2,snLed1,snLed2,stanBD,stanAD,stanJB,</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">+</span>&#x00A0;<span 
class="ectt-1200">Z,D,Davant,E2,U,hUetoi,Uavant,hKetoi,hU,hK,vecteu,vectoi,stat,</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">+</span>&#x00A0;<span 
class="ectt-1200">Zavant,BDa,BDb,BDc,BDd,Davan2,ADa,ADb,Puiss,Puiss2,snsort,snsorv,</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">+</span>&#x00A0;<span 
class="ectt-1200">Qucalc,snLe1s,snLe2s,snBDso,snADso,snJBso,matric,paramf,loi,</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">+</span>&#x00A0;<span 
class="ectt-1200">dnT,QLed1u,QLe12u,QLed2u,QLe22u,QBDu,QBD2u,QADu,QAD2u,QJBu,QJB2u)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">-----------------------------------------------------</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Debut</span>&#x00A0;<span 
class="ectt-1200">des</span>&#x00A0;<span 
class="ectt-1200">Declarations</span>&#x00A0;<span 
class="ectt-1200">des</span>&#x00A0;<span 
class="ectt-1200">variables</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">-----------------------------------------------------</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CHARACTER</span>&#x00A0;<span 
class="ectt-1200">paramf*17</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">LOGICAL</span>&#x00A0;<span 
class="ectt-1200">isa</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">precision</span>&#x00A0;<span 
class="ectt-1200">meanp,mini,</span>&#x00A0;<span 
class="ectt-1200">maxi,</span>&#x00A0;<span 
class="ectt-1200">var</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;&#x00A0;<span 
class="ectt-1200">khi(10),</span>&#x00A0;<span 
class="ectt-1200">khi2(10)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Quantiles</span>&#x00A0;<span 
class="ectt-1200">Ledwi1</span>&#x00A0;<span 
class="ectt-1200">et</span>&#x00A0;<span 
class="ectt-1200">Ledwi2</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">QuLed1,</span>&#x00A0;<span 
class="ectt-1200">QuLed2,QuLe12,QuLe22</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Quantiles</span>&#x00A0;<span 
class="ectt-1200">Brockwell</span>&#x00A0;<span 
class="ectt-1200">et</span>&#x00A0;<span 
class="ectt-1200">Davis,</span>&#x00A0;<span 
class="ectt-1200">et</span>&#x00A0;<span 
class="ectt-1200">Anderson</span>&#x00A0;<span 
class="ectt-1200">Darling,</span>&#x00A0;<span 
class="ectt-1200">et</span>&#x00A0;<span 
class="ectt-1200">Jarque</span>&#x00A0;<span 
class="ectt-1200">et</span>&#x00A0;<span 
class="ectt-1200">Bera</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">QuBD,</span>&#x00A0;<span 
class="ectt-1200">QuAD,QuBD2,QuAD2,QuJB,QuJB2</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Niveau</span>&#x00A0;<span 
class="ectt-1200">du</span>&#x00A0;<span 
class="ectt-1200">test</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">alpha,alpha2</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Nombre</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">polynomes</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">Kp</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">ordre</span>&#x00A0;<span 
class="ectt-1200">du</span>&#x00A0;<span 
class="ectt-1200">modele</span>&#x00A0;<span 
class="ectt-1200">AR</span>&#x00A0;<span 
class="ectt-1200">(1</span>&#x00A0;<span 
class="ectt-1200">ou</span>&#x00A0;<span 
class="ectt-1200">2)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">p</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">ordre</span>&#x00A0;<span 
class="ectt-1200">du</span>&#x00A0;<span 
class="ectt-1200">modele</span>&#x00A0;<span 
class="ectt-1200">MA</span>&#x00A0;<span 
class="ectt-1200">(1</span>&#x00A0;<span 
class="ectt-1200">ou</span>&#x00A0;<span 
class="ectt-1200">2)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">q</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Taille</span>&#x00A0;<span 
class="ectt-1200">des</span>&#x00A0;<span 
class="ectt-1200">echantillons</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">nT</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">phi(2),</span>&#x00A0;<span 
class="ectt-1200">teta(2)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">i,j,k</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">n=nombre</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">lignes</span>&#x00A0;<span 
class="ectt-1200">dans</span>&#x00A0;<span 
class="ectt-1200">le</span>&#x00A0;<span 
class="ectt-1200">fichier</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">donnees</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">on</span>&#x00A0;<span 
class="ectt-1200">peu</span>&#x00A0;<span 
class="ectt-1200">faire</span>&#x00A0;<span 
class="ectt-1200">wc</span>&#x00A0;<span 
class="ectt-1200">-l</span>&#x00A0;<span 
class="ectt-1200">data.txt</span>&#x00A0;<span 
class="ectt-1200">pour</span>&#x00A0;<span 
class="ectt-1200">le</span>&#x00A0;<span 
class="ectt-1200">connaitre</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">n,m,nbcle</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">valeur(n,m)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">sch2vc(n)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">epscha(n,nT)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">compt(Kp),compt2(Kp)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">coLed1,</span>&#x00A0;<span 
class="ectt-1200">coLed2,coLe12,coLe22</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">contBD,</span>&#x00A0;<span 
class="ectt-1200">contAD,conBD2,conAD2,</span>&#x00A0;<span 
class="ectt-1200">contJB,</span>&#x00A0;<span 
class="ectt-1200">conJB2</span>

&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">statn(n,Kp)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">KoLed1(n)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">KoLed2(n)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">dnT</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">Ledwi1(dnT)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">Ledwi2(dnT-1)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">penal</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">snLed1(n)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">snLed2(n)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">stanBD(n)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">stanAD(n),</span>&#x00A0;<span 
class="ectt-1200">stanJB(n)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">Qtutil(10),Qtuti2(10)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">QLed1u,QLe12u</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">QLed2u,QLe22u</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">QBDu,QBD2u</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">QADu,QAD2u</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">QJBu,QJB2u</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">sigch2</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">Z(nT)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">D(nT)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">Davant(nT),</span>&#x00A0;<span 
class="ectt-1200">E2(nT)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">mu,</span>&#x00A0;<span 
class="ectt-1200">sigma</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">U(nT)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">hUetoi(nT,Kp)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">Uavant(nT)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">hKetoi(Kp)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">hKtemp</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">hU(nT,Kp)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">hK(Kp)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">vecteu(Kp)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">inter</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">mxLed1</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">ordre</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">vKoLe1</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">mxLed2</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">ordre2</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">vKoLe2</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">vectoi(Kp)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">stat(Kp)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">stLed1</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">stLed2</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">Zavant(nT)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">nTul</span>

&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">BDa(nT)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">BDb(nT)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">BDc(nT)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">BDd(nT)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">statBD</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">sumbd,</span>&#x00A0;<span 
class="ectt-1200">sumc,</span>&#x00A0;<span 
class="ectt-1200">sumd2</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">Davan2(nT)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">ADa(nT)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">ADb(nT)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">statAD</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">sumAD</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">Puiss(Kp),Puiss2(Kp)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">PsLed1,</span>&#x00A0;<span 
class="ectt-1200">PsLed2,</span>&#x00A0;<span 
class="ectt-1200">PuisAD,</span>&#x00A0;<span 
class="ectt-1200">PuisBD,</span>&#x00A0;<span 
class="ectt-1200">PuisJB</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">PsLe12,</span>&#x00A0;<span 
class="ectt-1200">PsLe22,</span>&#x00A0;<span 
class="ectt-1200">PuiAD2,</span>&#x00A0;<span 
class="ectt-1200">PuiBD2,</span>&#x00A0;<span 
class="ectt-1200">PuiJB2</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">val,</span>&#x00A0;<span 
class="ectt-1200">val2</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">snsort(n,Kp)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">nul</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">snsorv(n)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">Qucalc(Kp),Qucal2(10)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">snLe1s(n)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">QLed1c,</span>&#x00A0;<span 
class="ectt-1200">QLed12</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">snLe2s(n)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">QLed2c,</span>&#x00A0;<span 
class="ectt-1200">QLed22</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">snBDso(n)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">QBDcal,</span>&#x00A0;<span 
class="ectt-1200">QBDca2</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">snADso(n),</span>&#x00A0;<span 
class="ectt-1200">snJBso(n)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">QADcal,</span>&#x00A0;<span 
class="ectt-1200">QADca2,</span>&#x00A0;<span 
class="ectt-1200">QJBcal,</span>&#x00A0;<span 
class="ectt-1200">QJBca2</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">rgLed1(2)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">rgLed2(2)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">rgBD(2)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">rgAD(2),</span>&#x00A0;<span 
class="ectt-1200">rgJB(2)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">mecLe1(2)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">mecLe2(2)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">mecBD(2)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">mecAD(2),</span>&#x00A0;<span 
class="ectt-1200">mecJB(2)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">matric(nbcle,18)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">frKLe1(10)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">frKLe2(10)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CHARACTER</span>&#x00A0;<span 
class="ectt-1200">filer*8,</span>&#x00A0;<span 
class="ectt-1200">filew*21,</span>&#x00A0;<span 
class="ectt-1200">filtab*19,</span>&#x00A0;<span 
class="ectt-1200">filexc*24</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">moy</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">m2,</span>&#x00A0;<span 
class="ectt-1200">m3,m4,</span>&#x00A0;<span 
class="ectt-1200">g1,</span>&#x00A0;<span 
class="ectt-1200">g2,</span>&#x00A0;<span 
class="ectt-1200">g1a,</span>&#x00A0;<span 
class="ectt-1200">g1b</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">statJB</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">IFAIL</span>

&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">filexc=filew//&#x2019;.xc&#x2019;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">filtab=&#x2019;./SIMUL/tableau.txt&#x2019;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">penal=DLOG(DBLE(nT))</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">coLed1=INT(0)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">coLed2=INT(0)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">contBD=INT(0)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">contAD=INT(0)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">coLe12=INT(0)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">coLe22=INT(0)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">conBD2=INT(0)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">conAD2=INT(0)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">IF</span>&#x00A0;<span 
class="ectt-1200">(p</span>&#x00A0;<span 
class="ectt-1200">.EQ.</span>&#x00A0;<span 
class="ectt-1200">0)</span>&#x00A0;<span 
class="ectt-1200">THEN</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">phi(1)=DBLE(0.0)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">phi(2)=DBLE(0.0)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">ENDIF</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">IF</span>&#x00A0;<span 
class="ectt-1200">(p</span>&#x00A0;<span 
class="ectt-1200">.EQ.</span>&#x00A0;<span 
class="ectt-1200">1)</span>&#x00A0;<span 
class="ectt-1200">THEN</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">phi(2)=DBLE(0.0)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">ENDIF</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">IF</span>&#x00A0;<span 
class="ectt-1200">(q</span>&#x00A0;<span 
class="ectt-1200">.EQ.</span>&#x00A0;<span 
class="ectt-1200">0)</span>&#x00A0;<span 
class="ectt-1200">THEN</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">teta(1)=DBLE(0.0)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">teta(2)=DBLE(0.0)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">ENDIF</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">IF</span>&#x00A0;<span 
class="ectt-1200">(q</span>&#x00A0;<span 
class="ectt-1200">.EQ.</span>&#x00A0;<span 
class="ectt-1200">1)</span>&#x00A0;<span 
class="ectt-1200">THEN</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">teta(2)=DBLE(0.0)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">ENDIF</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">-----------------------------------------------------</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Fin</span>&#x00A0;<span 
class="ectt-1200">des</span>&#x00A0;<span 
class="ectt-1200">Declarations</span>&#x00A0;<span 
class="ectt-1200">des</span>&#x00A0;<span 
class="ectt-1200">variables</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">-----------------------------------------------------</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">---------------------------------------------------------------------</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Debut</span>&#x00A0;<span 
class="ectt-1200">du</span>&#x00A0;<span 
class="ectt-1200">programme</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">---------------------------------------------------------------------</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">On</span>&#x00A0;<span 
class="ectt-1200">met</span>&#x00A0;<span 
class="ectt-1200">les</span>&#x00A0;<span 
class="ectt-1200">donnees</span>&#x00A0;<span 
class="ectt-1200">du</span>&#x00A0;<span 
class="ectt-1200">fichier</span>&#x00A0;<span 
class="ectt-1200">dans</span>&#x00A0;<span 
class="ectt-1200">la</span>&#x00A0;<span 
class="ectt-1200">matrice</span>&#x00A0;<span 
class="ectt-1200">valeurs</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">OPEN(UNIT=10,</span>&#x00A0;<span 
class="ectt-1200">FILE=filer</span>&#x00A0;<span 
class="ectt-1200">,</span>&#x00A0;<span 
class="ectt-1200">STATUS=&#x2019;OLD&#x2019;</span>&#x00A0;<span 
class="ectt-1200">)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">i=INT(1)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DO</span>&#x00A0;&#x00A0;<span 
class="ectt-1200">WHILE</span>&#x00A0;<span 
class="ectt-1200">(2</span>&#x00A0;<span 
class="ectt-1200">.GT.</span>&#x00A0;<span 
class="ectt-1200">1)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">READ(10,7,END=10)</span>&#x00A0;<span 
class="ectt-1200">(valeur(i,j),j=1,m)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">i=INT(i+1)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">END</span>&#x00A0;<span 
class="ectt-1200">DO</span>
&#x00A0;<br />&#x00A0;<span 
class="ectt-1200">7</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">FORMAT(BN,51D20.12)</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">**</span>
&#x00A0;<br />&#x00A0;<span 
class="ectt-1200">10</span>&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(6,*)</span>&#x00A0;<span 
class="ectt-1200">&#x2019;Votre</span>&#x00A0;<span 
class="ectt-1200">fichier</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">donnees</span>&#x00A0;<span 
class="ectt-1200">contient&#x2019;,i-1,&#x2019;</span>&#x00A0;<span 
class="ectt-1200">echantillons&#x2019;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">IF</span>&#x00A0;<span 
class="ectt-1200">((i-1)</span>&#x00A0;<span 
class="ectt-1200">.NE.</span>&#x00A0;<span 
class="ectt-1200">nbcle)</span>&#x00A0;<span 
class="ectt-1200">THEN</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(6,*)</span>&#x00A0;<span 
class="ectt-1200">&#x2019;Rectifiez</span>&#x00A0;<span 
class="ectt-1200">la</span>&#x00A0;<span 
class="ectt-1200">valeur</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">n</span>&#x00A0;<span 
class="ectt-1200">et</span>&#x00A0;<span 
class="ectt-1200">nbcle</span>&#x00A0;<span 
class="ectt-1200">a&#x2019;,i-1,&#x2019;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">+</span>&#x00A0;<span 
class="ectt-1200">au</span>&#x00A0;<span 
class="ectt-1200">debut</span>&#x00A0;<span 
class="ectt-1200">du</span>&#x00A0;<span 
class="ectt-1200">prog.&#x2019;</span>

&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">STOP</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">ENDIF</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CLOSE(10)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">creation</span>&#x00A0;<span 
class="ectt-1200">du</span>&#x00A0;<span 
class="ectt-1200">vecteur</span>&#x00A0;<span 
class="ectt-1200">des</span>&#x00A0;<span 
class="ectt-1200">sigchap2</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DO</span>&#x00A0;<span 
class="ectt-1200">20,</span>&#x00A0;<span 
class="ectt-1200">i=1,nbcle</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">sch2vc(i)=valeur(i,1)</span>
&#x00A0;<br />&#x00A0;<span 
class="ectt-1200">20</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CONTINUE</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">creation</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">la</span>&#x00A0;<span 
class="ectt-1200">matrice</span>&#x00A0;<span 
class="ectt-1200">des</span>&#x00A0;<span 
class="ectt-1200">epschap</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DO</span>&#x00A0;<span 
class="ectt-1200">40,</span>&#x00A0;<span 
class="ectt-1200">i=1,nbcle</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DO</span>&#x00A0;<span 
class="ectt-1200">30,</span>&#x00A0;<span 
class="ectt-1200">j=1,nT</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">epscha(i,j)=valeur(i,j+1)</span>
&#x00A0;<br />&#x00A0;<span 
class="ectt-1200">30</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CONTINUE</span>
&#x00A0;<br />&#x00A0;<span 
class="ectt-1200">40</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CONTINUE</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">On</span>&#x00A0;<span 
class="ectt-1200">remplit</span>&#x00A0;<span 
class="ectt-1200">Qtutil,</span>&#x00A0;<span 
class="ectt-1200">vecteur</span>&#x00A0;<span 
class="ectt-1200">des</span>&#x00A0;<span 
class="ectt-1200">quantiles</span>&#x00A0;<span 
class="ectt-1200">utilises</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DO</span>&#x00A0;<span 
class="ectt-1200">50,i=1,10</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Qtutil(i)=khi(i)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Qtuti2(i)=khi2(i)</span>
&#x00A0;<br />&#x00A0;<span 
class="ectt-1200">50</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CONTINUE</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">On</span>&#x00A0;<span 
class="ectt-1200">commence</span>&#x00A0;<span 
class="ectt-1200">la</span>&#x00A0;<span 
class="ectt-1200">grande</span>&#x00A0;<span 
class="ectt-1200">boucle-------------------------------------------</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DO</span>&#x00A0;<span 
class="ectt-1200">9000,</span>&#x00A0;<span 
class="ectt-1200">j=1,nbcle</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">on</span>&#x00A0;<span 
class="ectt-1200">affiche</span>&#x00A0;<span 
class="ectt-1200">un</span>&#x00A0;<span 
class="ectt-1200">compteur</span>&#x00A0;<span 
class="ectt-1200">a</span>&#x00A0;<span 
class="ectt-1200">l&#x2019;ecran</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(6,*)</span>&#x00A0;<span 
class="ectt-1200">nbcle-j</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">sigch2=sch2vc(j)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DO</span>&#x00A0;<span 
class="ectt-1200">60,</span>&#x00A0;<span 
class="ectt-1200">i=1,nT</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Z(i)=epscha(j,i)</span>
&#x00A0;<br />&#x00A0;<span 
class="ectt-1200">60</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CONTINUE</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DO</span>&#x00A0;<span 
class="ectt-1200">70,</span>&#x00A0;<span 
class="ectt-1200">i=1,nT</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">D(i)=Z(i)/DSQRT(sigch2)</span>
&#x00A0;<br />&#x00A0;<span 
class="ectt-1200">70</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CONTINUE</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">mu=DBLE(0.0)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">sigma=DBLE(1.0)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">On</span>&#x00A0;<span 
class="ectt-1200">sauvegarde</span>&#x00A0;<span 
class="ectt-1200">les</span>&#x00A0;<span 
class="ectt-1200">valeurs</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">D</span>&#x00A0;<span 
class="ectt-1200">dans</span>&#x00A0;<span 
class="ectt-1200">Davant</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DO</span>&#x00A0;<span 
class="ectt-1200">80,</span>&#x00A0;<span 
class="ectt-1200">i=1,nT</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Davant(i)=D(i)</span>
&#x00A0;<br />&#x00A0;<span 
class="ectt-1200">80</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CONTINUE</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">remplace</span>&#x00A0;<span 
class="ectt-1200">D</span>&#x00A0;<span 
class="ectt-1200">par</span>&#x00A0;<span 
class="ectt-1200">pnorm(D)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CALL</span>&#x00A0;<span 
class="ectt-1200">pnorm(nT,D,mu,sigma)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">affecte</span>&#x00A0;<span 
class="ectt-1200">a</span>&#x00A0;<span 
class="ectt-1200">E</span>&#x00A0;<span 
class="ectt-1200">le</span>&#x00A0;<span 
class="ectt-1200">resultat</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DO</span>&#x00A0;<span 
class="ectt-1200">90,</span>&#x00A0;<span 
class="ectt-1200">i=1,nT</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">E2(i)=D(i)</span>
&#x00A0;<br />&#x00A0;<span 
class="ectt-1200">90</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CONTINUE</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">remet</span>&#x00A0;<span 
class="ectt-1200">les</span>&#x00A0;<span 
class="ectt-1200">bonnes</span>&#x00A0;<span 
class="ectt-1200">valeurs</span>&#x00A0;<span 
class="ectt-1200">dans</span>&#x00A0;<span 
class="ectt-1200">D</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DO</span>&#x00A0;<span 
class="ectt-1200">100,</span>&#x00A0;<span 
class="ectt-1200">i=1,nT</span>

&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">D(i)=Davant(i)</span>
&#x00A0;<br />&#x00A0;<span 
class="ectt-1200">100</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CONTINUE</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">U=[U1,...,UT]</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DO</span>&#x00A0;<span 
class="ectt-1200">110,</span>&#x00A0;<span 
class="ectt-1200">i=1,nT</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">U(i)=DBLE(2.0)*E2(i)-DBLE(1.0)</span>
&#x00A0;<br />&#x00A0;<span 
class="ectt-1200">110</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CONTINUE</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">hKetoile&#x2019;[,k]</span>&#x00A0;<span 
class="ectt-1200">est</span>&#x00A0;<span 
class="ectt-1200">le</span>&#x00A0;<span 
class="ectt-1200">vecteur</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">longueur</span>&#x00A0;<span 
class="ectt-1200">nT</span>&#x00A0;<span 
class="ectt-1200">(hketoile(U1),...,hketoile(UT))</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">On</span>&#x00A0;<span 
class="ectt-1200">remplit</span>&#x00A0;<span 
class="ectt-1200">la</span>&#x00A0;<span 
class="ectt-1200">matrice</span>&#x00A0;<span 
class="ectt-1200">hUetoile</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">i=1...................</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">On</span>&#x00A0;<span 
class="ectt-1200">sauvegarde</span>&#x00A0;<span 
class="ectt-1200">les</span>&#x00A0;<span 
class="ectt-1200">valeurs</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">U</span>&#x00A0;<span 
class="ectt-1200">dans</span>&#x00A0;<span 
class="ectt-1200">Uavant</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DO</span>&#x00A0;<span 
class="ectt-1200">120,</span>&#x00A0;<span 
class="ectt-1200">i=1,nT</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Uavant(i)=U(i)</span>
&#x00A0;<br />&#x00A0;<span 
class="ectt-1200">120</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CONTINUE</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">IF</span>&#x00A0;<span 
class="ectt-1200">(isa</span>&#x00A0;<span 
class="ectt-1200">.EQV.</span>&#x00A0;<span 
class="ectt-1200">.TRUE.)</span>&#x00A0;<span 
class="ectt-1200">THEN</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">calcul</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">H1isa(U),</span>&#x00A0;<span 
class="ectt-1200">remplace</span>&#x00A0;<span 
class="ectt-1200">U</span>&#x00A0;<span 
class="ectt-1200">par</span>&#x00A0;<span 
class="ectt-1200">H1isa(U)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CALL</span>&#x00A0;<span 
class="ectt-1200">H1isa(nT,U)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">ENDIF</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">IF</span>&#x00A0;<span 
class="ectt-1200">(isa</span>&#x00A0;<span 
class="ectt-1200">.EQV.</span>&#x00A0;<span 
class="ectt-1200">.FALSE.)</span>&#x00A0;<span 
class="ectt-1200">THEN</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">calcul</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">H1etoi(U),</span>&#x00A0;<span 
class="ectt-1200">remplace</span>&#x00A0;<span 
class="ectt-1200">U</span>&#x00A0;<span 
class="ectt-1200">par</span>&#x00A0;<span 
class="ectt-1200">H1etoi(U)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CALL</span>&#x00A0;<span 
class="ectt-1200">H1etoi(nT,U)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">ENDIF</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">affecte</span>&#x00A0;<span 
class="ectt-1200">a</span>&#x00A0;<span 
class="ectt-1200">hUetoile[,1]</span>&#x00A0;<span 
class="ectt-1200">le</span>&#x00A0;<span 
class="ectt-1200">resultat</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DO</span>&#x00A0;<span 
class="ectt-1200">130,</span>&#x00A0;<span 
class="ectt-1200">i=1,nT</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">hUetoi(i,1)=U(i)</span>
&#x00A0;<br />&#x00A0;<span 
class="ectt-1200">130</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CONTINUE</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">remet</span>&#x00A0;<span 
class="ectt-1200">les</span>&#x00A0;<span 
class="ectt-1200">bonnes</span>&#x00A0;<span 
class="ectt-1200">valeurs</span>&#x00A0;<span 
class="ectt-1200">dans</span>&#x00A0;<span 
class="ectt-1200">U</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DO</span>&#x00A0;<span 
class="ectt-1200">140,</span>&#x00A0;<span 
class="ectt-1200">i=1,nT</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">U(i)=Uavant(i)</span>
&#x00A0;<br />&#x00A0;<span 
class="ectt-1200">140</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CONTINUE</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">i=2...................</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">On</span>&#x00A0;<span 
class="ectt-1200">sauvegarde</span>&#x00A0;<span 
class="ectt-1200">les</span>&#x00A0;<span 
class="ectt-1200">valeurs</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">U</span>&#x00A0;<span 
class="ectt-1200">dans</span>&#x00A0;<span 
class="ectt-1200">Uavant</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DO</span>&#x00A0;<span 
class="ectt-1200">150,</span>&#x00A0;<span 
class="ectt-1200">i=1,nT</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Uavant(i)=U(i)</span>
&#x00A0;<br />&#x00A0;<span 
class="ectt-1200">150</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CONTINUE</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">IF</span>&#x00A0;<span 
class="ectt-1200">(isa</span>&#x00A0;<span 
class="ectt-1200">.EQV.</span>&#x00A0;<span 
class="ectt-1200">.TRUE.)</span>&#x00A0;<span 
class="ectt-1200">THEN</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">calcul</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">H2isa(U),</span>&#x00A0;<span 
class="ectt-1200">remplace</span>&#x00A0;<span 
class="ectt-1200">U</span>&#x00A0;<span 
class="ectt-1200">par</span>&#x00A0;<span 
class="ectt-1200">H2isa(U)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CALL</span>&#x00A0;<span 
class="ectt-1200">H2isa(nT,U)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">ENDIF</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">IF</span>&#x00A0;<span 
class="ectt-1200">(isa</span>&#x00A0;<span 
class="ectt-1200">.EQV.</span>&#x00A0;<span 
class="ectt-1200">.FALSE.)</span>&#x00A0;<span 
class="ectt-1200">THEN</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">calcul</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">H2etoi(U),</span>&#x00A0;<span 
class="ectt-1200">remplace</span>&#x00A0;<span 
class="ectt-1200">U</span>&#x00A0;<span 
class="ectt-1200">par</span>&#x00A0;<span 
class="ectt-1200">H2etoi(U)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CALL</span>&#x00A0;<span 
class="ectt-1200">H2etoi(nT,U)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">ENDIF</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">affecte</span>&#x00A0;<span 
class="ectt-1200">a</span>&#x00A0;<span 
class="ectt-1200">hUetoile[,2]</span>&#x00A0;<span 
class="ectt-1200">le</span>&#x00A0;<span 
class="ectt-1200">resultat</span>

&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DO</span>&#x00A0;<span 
class="ectt-1200">160,</span>&#x00A0;<span 
class="ectt-1200">i=1,nT</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">hUetoi(i,2)=U(i)</span>
&#x00A0;<br />&#x00A0;<span 
class="ectt-1200">160</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CONTINUE</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">remet</span>&#x00A0;<span 
class="ectt-1200">les</span>&#x00A0;<span 
class="ectt-1200">bonnes</span>&#x00A0;<span 
class="ectt-1200">valeurs</span>&#x00A0;<span 
class="ectt-1200">dans</span>&#x00A0;<span 
class="ectt-1200">U</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DO</span>&#x00A0;<span 
class="ectt-1200">170,</span>&#x00A0;<span 
class="ectt-1200">i=1,nT</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">U(i)=Uavant(i)</span>
&#x00A0;<br />&#x00A0;<span 
class="ectt-1200">170</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CONTINUE</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">i=3...................</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">On</span>&#x00A0;<span 
class="ectt-1200">sauvegarde</span>&#x00A0;<span 
class="ectt-1200">les</span>&#x00A0;<span 
class="ectt-1200">valeurs</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">U</span>&#x00A0;<span 
class="ectt-1200">dans</span>&#x00A0;<span 
class="ectt-1200">Uavant</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DO</span>&#x00A0;<span 
class="ectt-1200">180,</span>&#x00A0;<span 
class="ectt-1200">i=1,nT</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Uavant(i)=U(i)</span>
&#x00A0;<br />&#x00A0;<span 
class="ectt-1200">180</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CONTINUE</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">IF</span>&#x00A0;<span 
class="ectt-1200">(isa</span>&#x00A0;<span 
class="ectt-1200">.EQV.</span>&#x00A0;<span 
class="ectt-1200">.TRUE.)</span>&#x00A0;<span 
class="ectt-1200">THEN</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">calcul</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">H3isa(U),</span>&#x00A0;<span 
class="ectt-1200">remplace</span>&#x00A0;<span 
class="ectt-1200">U</span>&#x00A0;<span 
class="ectt-1200">par</span>&#x00A0;<span 
class="ectt-1200">H3isa(U)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CALL</span>&#x00A0;<span 
class="ectt-1200">H3isa(nT,U)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">ENDIF</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">IF</span>&#x00A0;<span 
class="ectt-1200">(isa</span>&#x00A0;<span 
class="ectt-1200">.EQV.</span>&#x00A0;<span 
class="ectt-1200">.FALSE.)</span>&#x00A0;<span 
class="ectt-1200">THEN</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">calcul</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">H3etoi(U),</span>&#x00A0;<span 
class="ectt-1200">remplace</span>&#x00A0;<span 
class="ectt-1200">U</span>&#x00A0;<span 
class="ectt-1200">par</span>&#x00A0;<span 
class="ectt-1200">H3etoi(U)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CALL</span>&#x00A0;<span 
class="ectt-1200">H3etoi(nT,U)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">ENDIF</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">affecte</span>&#x00A0;<span 
class="ectt-1200">a</span>&#x00A0;<span 
class="ectt-1200">hUetoile[,3]</span>&#x00A0;<span 
class="ectt-1200">le</span>&#x00A0;<span 
class="ectt-1200">resultat</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DO</span>&#x00A0;<span 
class="ectt-1200">190,</span>&#x00A0;<span 
class="ectt-1200">i=1,nT</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">hUetoi(i,3)=U(i)</span>
&#x00A0;<br />&#x00A0;<span 
class="ectt-1200">190</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CONTINUE</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">remet</span>&#x00A0;<span 
class="ectt-1200">les</span>&#x00A0;<span 
class="ectt-1200">bonnes</span>&#x00A0;<span 
class="ectt-1200">valeurs</span>&#x00A0;<span 
class="ectt-1200">dans</span>&#x00A0;<span 
class="ectt-1200">U</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DO</span>&#x00A0;<span 
class="ectt-1200">200,</span>&#x00A0;<span 
class="ectt-1200">i=1,nT</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">U(i)=Uavant(i)</span>
&#x00A0;<br />&#x00A0;<span 
class="ectt-1200">200</span>&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CONTINUE</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">i=4...................</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">On</span>&#x00A0;<span 
class="ectt-1200">sauvegarde</span>&#x00A0;<span 
class="ectt-1200">les</span>&#x00A0;<span 
class="ectt-1200">valeurs</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">U</span>&#x00A0;<span 
class="ectt-1200">dans</span>&#x00A0;<span 
class="ectt-1200">Uavant</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DO</span>&#x00A0;<span 
class="ectt-1200">210,</span>&#x00A0;<span 
class="ectt-1200">i=1,nT</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Uavant(i)=U(i)</span>
&#x00A0;<br />&#x00A0;<span 
class="ectt-1200">210</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CONTINUE</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">IF</span>&#x00A0;<span 
class="ectt-1200">(isa</span>&#x00A0;<span 
class="ectt-1200">.EQV.</span>&#x00A0;<span 
class="ectt-1200">.TRUE.)</span>&#x00A0;<span 
class="ectt-1200">THEN</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">calcul</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">H4isa(U),</span>&#x00A0;<span 
class="ectt-1200">remplace</span>&#x00A0;<span 
class="ectt-1200">U</span>&#x00A0;<span 
class="ectt-1200">par</span>&#x00A0;<span 
class="ectt-1200">H4isa(U)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CALL</span>&#x00A0;<span 
class="ectt-1200">H4isa(nT,U)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">ENDIF</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">IF</span>&#x00A0;<span 
class="ectt-1200">(isa</span>&#x00A0;<span 
class="ectt-1200">.EQV.</span>&#x00A0;<span 
class="ectt-1200">.FALSE.)</span>&#x00A0;<span 
class="ectt-1200">THEN</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">calcul</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">H4etoi(U),</span>&#x00A0;<span 
class="ectt-1200">remplace</span>&#x00A0;<span 
class="ectt-1200">U</span>&#x00A0;<span 
class="ectt-1200">par</span>&#x00A0;<span 
class="ectt-1200">H4etoi(U)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CALL</span>&#x00A0;<span 
class="ectt-1200">H4etoi(nT,U)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">ENDIF</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">affecte</span>&#x00A0;<span 
class="ectt-1200">a</span>&#x00A0;<span 
class="ectt-1200">hUetoile[,4]</span>&#x00A0;<span 
class="ectt-1200">le</span>&#x00A0;<span 
class="ectt-1200">resultat</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DO</span>&#x00A0;<span 
class="ectt-1200">220,</span>&#x00A0;<span 
class="ectt-1200">i=1,nT</span>

&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">hUetoi(i,4)=U(i)</span>
&#x00A0;<br />&#x00A0;<span 
class="ectt-1200">220</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CONTINUE</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">remet</span>&#x00A0;<span 
class="ectt-1200">les</span>&#x00A0;<span 
class="ectt-1200">bonnes</span>&#x00A0;<span 
class="ectt-1200">valeurs</span>&#x00A0;<span 
class="ectt-1200">dans</span>&#x00A0;<span 
class="ectt-1200">U</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DO</span>&#x00A0;<span 
class="ectt-1200">230,</span>&#x00A0;<span 
class="ectt-1200">i=1,nT</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">U(i)=Uavant(i)</span>
&#x00A0;<br />&#x00A0;<span 
class="ectt-1200">230</span>&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CONTINUE</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">i=5...................</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">On</span>&#x00A0;<span 
class="ectt-1200">sauvegarde</span>&#x00A0;<span 
class="ectt-1200">les</span>&#x00A0;<span 
class="ectt-1200">valeurs</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">U</span>&#x00A0;<span 
class="ectt-1200">dans</span>&#x00A0;<span 
class="ectt-1200">Uavant</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DO</span>&#x00A0;<span 
class="ectt-1200">240,</span>&#x00A0;<span 
class="ectt-1200">i=1,nT</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Uavant(i)=U(i)</span>
&#x00A0;<br />&#x00A0;<span 
class="ectt-1200">240</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CONTINUE</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">IF</span>&#x00A0;<span 
class="ectt-1200">(isa</span>&#x00A0;<span 
class="ectt-1200">.EQV.</span>&#x00A0;<span 
class="ectt-1200">.TRUE.)</span>&#x00A0;<span 
class="ectt-1200">THEN</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">calcul</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">H5isa(U),</span>&#x00A0;<span 
class="ectt-1200">remplace</span>&#x00A0;<span 
class="ectt-1200">U</span>&#x00A0;<span 
class="ectt-1200">par</span>&#x00A0;<span 
class="ectt-1200">H5isa(U)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CALL</span>&#x00A0;<span 
class="ectt-1200">H5isa(nT,U)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">ENDIF</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">IF</span>&#x00A0;<span 
class="ectt-1200">(isa</span>&#x00A0;<span 
class="ectt-1200">.EQV.</span>&#x00A0;<span 
class="ectt-1200">.FALSE.)</span>&#x00A0;<span 
class="ectt-1200">THEN</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">calcul</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">H5etoi(U),</span>&#x00A0;<span 
class="ectt-1200">remplace</span>&#x00A0;<span 
class="ectt-1200">U</span>&#x00A0;<span 
class="ectt-1200">par</span>&#x00A0;<span 
class="ectt-1200">H5etoi(U)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CALL</span>&#x00A0;<span 
class="ectt-1200">H5etoi(nT,U)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">ENDIF</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">affecte</span>&#x00A0;<span 
class="ectt-1200">a</span>&#x00A0;<span 
class="ectt-1200">hUetoile[,5]</span>&#x00A0;<span 
class="ectt-1200">le</span>&#x00A0;<span 
class="ectt-1200">resultat</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DO</span>&#x00A0;<span 
class="ectt-1200">250,</span>&#x00A0;<span 
class="ectt-1200">i=1,nT</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">hUetoi(i,5)=U(i)</span>
&#x00A0;<br />&#x00A0;<span 
class="ectt-1200">250</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CONTINUE</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">remet</span>&#x00A0;<span 
class="ectt-1200">les</span>&#x00A0;<span 
class="ectt-1200">bonnes</span>&#x00A0;<span 
class="ectt-1200">valeurs</span>&#x00A0;<span 
class="ectt-1200">dans</span>&#x00A0;<span 
class="ectt-1200">U</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DO</span>&#x00A0;<span 
class="ectt-1200">260,</span>&#x00A0;<span 
class="ectt-1200">i=1,nT</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">U(i)=Uavant(i)</span>
&#x00A0;<br />&#x00A0;<span 
class="ectt-1200">260</span>&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CONTINUE</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">i=6...................</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">On</span>&#x00A0;<span 
class="ectt-1200">sauvegarde</span>&#x00A0;<span 
class="ectt-1200">les</span>&#x00A0;<span 
class="ectt-1200">valeurs</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">U</span>&#x00A0;<span 
class="ectt-1200">dans</span>&#x00A0;<span 
class="ectt-1200">Uavant</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DO</span>&#x00A0;<span 
class="ectt-1200">270,</span>&#x00A0;<span 
class="ectt-1200">i=1,nT</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Uavant(i)=U(i)</span>
&#x00A0;<br />&#x00A0;<span 
class="ectt-1200">270</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CONTINUE</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">IF</span>&#x00A0;<span 
class="ectt-1200">(isa</span>&#x00A0;<span 
class="ectt-1200">.EQV.</span>&#x00A0;<span 
class="ectt-1200">.TRUE.)</span>&#x00A0;<span 
class="ectt-1200">THEN</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">calcul</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">H6isa(U),</span>&#x00A0;<span 
class="ectt-1200">remplace</span>&#x00A0;<span 
class="ectt-1200">U</span>&#x00A0;<span 
class="ectt-1200">par</span>&#x00A0;<span 
class="ectt-1200">H6isa(U)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CALL</span>&#x00A0;<span 
class="ectt-1200">H6isa(nT,U)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">ENDIF</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">IF</span>&#x00A0;<span 
class="ectt-1200">(isa</span>&#x00A0;<span 
class="ectt-1200">.EQV.</span>&#x00A0;<span 
class="ectt-1200">.FALSE.)</span>&#x00A0;<span 
class="ectt-1200">THEN</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">calcul</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">H6etoi(U),</span>&#x00A0;<span 
class="ectt-1200">remplace</span>&#x00A0;<span 
class="ectt-1200">U</span>&#x00A0;<span 
class="ectt-1200">par</span>&#x00A0;<span 
class="ectt-1200">H6etoi(U)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CALL</span>&#x00A0;<span 
class="ectt-1200">H6etoi(nT,U)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">ENDIF</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">affecte</span>&#x00A0;<span 
class="ectt-1200">a</span>&#x00A0;<span 
class="ectt-1200">hUetoile[,6]</span>&#x00A0;<span 
class="ectt-1200">le</span>&#x00A0;<span 
class="ectt-1200">resultat</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DO</span>&#x00A0;<span 
class="ectt-1200">280,</span>&#x00A0;<span 
class="ectt-1200">i=1,nT</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">hUetoi(i,6)=U(i)</span>

&#x00A0;<br />&#x00A0;<span 
class="ectt-1200">280</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CONTINUE</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">remet</span>&#x00A0;<span 
class="ectt-1200">les</span>&#x00A0;<span 
class="ectt-1200">bonnes</span>&#x00A0;<span 
class="ectt-1200">valeurs</span>&#x00A0;<span 
class="ectt-1200">dans</span>&#x00A0;<span 
class="ectt-1200">U</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DO</span>&#x00A0;<span 
class="ectt-1200">290,</span>&#x00A0;<span 
class="ectt-1200">i=1,nT</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">U(i)=Uavant(i)</span>
&#x00A0;<br />&#x00A0;<span 
class="ectt-1200">290</span>&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CONTINUE</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">i=7...................</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">On</span>&#x00A0;<span 
class="ectt-1200">sauvegarde</span>&#x00A0;<span 
class="ectt-1200">les</span>&#x00A0;<span 
class="ectt-1200">valeurs</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">U</span>&#x00A0;<span 
class="ectt-1200">dans</span>&#x00A0;<span 
class="ectt-1200">Uavant</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DO</span>&#x00A0;<span 
class="ectt-1200">300,</span>&#x00A0;<span 
class="ectt-1200">i=1,nT</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Uavant(i)=U(i)</span>
&#x00A0;<br />&#x00A0;<span 
class="ectt-1200">300</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CONTINUE</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">IF</span>&#x00A0;<span 
class="ectt-1200">(isa</span>&#x00A0;<span 
class="ectt-1200">.EQV.</span>&#x00A0;<span 
class="ectt-1200">.TRUE.)</span>&#x00A0;<span 
class="ectt-1200">THEN</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">calcul</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">H7isa(U),</span>&#x00A0;<span 
class="ectt-1200">remplace</span>&#x00A0;<span 
class="ectt-1200">U</span>&#x00A0;<span 
class="ectt-1200">par</span>&#x00A0;<span 
class="ectt-1200">H7isa(U)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CALL</span>&#x00A0;<span 
class="ectt-1200">H7isa(nT,U)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">ENDIF</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">IF</span>&#x00A0;<span 
class="ectt-1200">(isa</span>&#x00A0;<span 
class="ectt-1200">.EQV.</span>&#x00A0;<span 
class="ectt-1200">.FALSE.)</span>&#x00A0;<span 
class="ectt-1200">THEN</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">calcul</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">H7etoi(U),</span>&#x00A0;<span 
class="ectt-1200">remplace</span>&#x00A0;<span 
class="ectt-1200">U</span>&#x00A0;<span 
class="ectt-1200">par</span>&#x00A0;<span 
class="ectt-1200">H7etoi(U)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CALL</span>&#x00A0;<span 
class="ectt-1200">H7etoi(nT,U)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">ENDIF</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">affecte</span>&#x00A0;<span 
class="ectt-1200">a</span>&#x00A0;<span 
class="ectt-1200">hUetoile[,7]</span>&#x00A0;<span 
class="ectt-1200">le</span>&#x00A0;<span 
class="ectt-1200">resultat</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DO</span>&#x00A0;<span 
class="ectt-1200">310,</span>&#x00A0;<span 
class="ectt-1200">i=1,nT</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">hUetoi(i,7)=U(i)</span>
&#x00A0;<br />&#x00A0;<span 
class="ectt-1200">310</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CONTINUE</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">remet</span>&#x00A0;<span 
class="ectt-1200">les</span>&#x00A0;<span 
class="ectt-1200">bonnes</span>&#x00A0;<span 
class="ectt-1200">valeurs</span>&#x00A0;<span 
class="ectt-1200">dans</span>&#x00A0;<span 
class="ectt-1200">U</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DO</span>&#x00A0;<span 
class="ectt-1200">320,</span>&#x00A0;<span 
class="ectt-1200">i=1,nT</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">U(i)=Uavant(i)</span>
&#x00A0;<br />&#x00A0;<span 
class="ectt-1200">320</span>&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CONTINUE</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">i=8...................</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">On</span>&#x00A0;<span 
class="ectt-1200">sauvegarde</span>&#x00A0;<span 
class="ectt-1200">les</span>&#x00A0;<span 
class="ectt-1200">valeurs</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">U</span>&#x00A0;<span 
class="ectt-1200">dans</span>&#x00A0;<span 
class="ectt-1200">Uavant</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DO</span>&#x00A0;<span 
class="ectt-1200">330,</span>&#x00A0;<span 
class="ectt-1200">i=1,nT</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Uavant(i)=U(i)</span>
&#x00A0;<br />&#x00A0;<span 
class="ectt-1200">330</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CONTINUE</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">IF</span>&#x00A0;<span 
class="ectt-1200">(isa</span>&#x00A0;<span 
class="ectt-1200">.EQV.</span>&#x00A0;<span 
class="ectt-1200">.TRUE.)</span>&#x00A0;<span 
class="ectt-1200">THEN</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">calcul</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">H8isa(U),</span>&#x00A0;<span 
class="ectt-1200">remplace</span>&#x00A0;<span 
class="ectt-1200">U</span>&#x00A0;<span 
class="ectt-1200">par</span>&#x00A0;<span 
class="ectt-1200">H8isa(U)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CALL</span>&#x00A0;<span 
class="ectt-1200">H8isa(nT,U)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">ENDIF</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">IF</span>&#x00A0;<span 
class="ectt-1200">(isa</span>&#x00A0;<span 
class="ectt-1200">.EQV.</span>&#x00A0;<span 
class="ectt-1200">.FALSE.)</span>&#x00A0;<span 
class="ectt-1200">THEN</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">calcul</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">H8etoi(U),</span>&#x00A0;<span 
class="ectt-1200">remplace</span>&#x00A0;<span 
class="ectt-1200">U</span>&#x00A0;<span 
class="ectt-1200">par</span>&#x00A0;<span 
class="ectt-1200">H8etoi(U)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CALL</span>&#x00A0;<span 
class="ectt-1200">H8etoi(nT,U)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">ENDIF</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">affecte</span>&#x00A0;<span 
class="ectt-1200">a</span>&#x00A0;<span 
class="ectt-1200">hUetoile[,8]</span>&#x00A0;<span 
class="ectt-1200">le</span>&#x00A0;<span 
class="ectt-1200">resultat</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DO</span>&#x00A0;<span 
class="ectt-1200">340,</span>&#x00A0;<span 
class="ectt-1200">i=1,nT</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">hUetoi(i,8)=U(i)</span>
&#x00A0;<br />&#x00A0;<span 
class="ectt-1200">340</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CONTINUE</span>

&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">remet</span>&#x00A0;<span 
class="ectt-1200">les</span>&#x00A0;<span 
class="ectt-1200">bonnes</span>&#x00A0;<span 
class="ectt-1200">valeurs</span>&#x00A0;<span 
class="ectt-1200">dans</span>&#x00A0;<span 
class="ectt-1200">U</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DO</span>&#x00A0;<span 
class="ectt-1200">350,</span>&#x00A0;<span 
class="ectt-1200">i=1,nT</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">U(i)=Uavant(i)</span>
&#x00A0;<br />&#x00A0;<span 
class="ectt-1200">350</span>&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CONTINUE</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">i=9...................</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">On</span>&#x00A0;<span 
class="ectt-1200">sauvegarde</span>&#x00A0;<span 
class="ectt-1200">les</span>&#x00A0;<span 
class="ectt-1200">valeurs</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">U</span>&#x00A0;<span 
class="ectt-1200">dans</span>&#x00A0;<span 
class="ectt-1200">Uavant</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DO</span>&#x00A0;<span 
class="ectt-1200">360,</span>&#x00A0;<span 
class="ectt-1200">i=1,nT</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Uavant(i)=U(i)</span>
&#x00A0;<br />&#x00A0;<span 
class="ectt-1200">360</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CONTINUE</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">IF</span>&#x00A0;<span 
class="ectt-1200">(isa</span>&#x00A0;<span 
class="ectt-1200">.EQV.</span>&#x00A0;<span 
class="ectt-1200">.TRUE.)</span>&#x00A0;<span 
class="ectt-1200">THEN</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">calcul</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">H9isa(U),</span>&#x00A0;<span 
class="ectt-1200">remplace</span>&#x00A0;<span 
class="ectt-1200">U</span>&#x00A0;<span 
class="ectt-1200">par</span>&#x00A0;<span 
class="ectt-1200">H9isa(U)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CALL</span>&#x00A0;<span 
class="ectt-1200">H9isa(nT,U)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">ENDIF</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">IF</span>&#x00A0;<span 
class="ectt-1200">(isa</span>&#x00A0;<span 
class="ectt-1200">.EQV.</span>&#x00A0;<span 
class="ectt-1200">.FALSE.)</span>&#x00A0;<span 
class="ectt-1200">THEN</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">calcul</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">H9etoi(U),</span>&#x00A0;<span 
class="ectt-1200">remplace</span>&#x00A0;<span 
class="ectt-1200">U</span>&#x00A0;<span 
class="ectt-1200">par</span>&#x00A0;<span 
class="ectt-1200">H9etoi(U)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CALL</span>&#x00A0;<span 
class="ectt-1200">H9etoi(nT,U)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">ENDIF</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">affecte</span>&#x00A0;<span 
class="ectt-1200">a</span>&#x00A0;<span 
class="ectt-1200">hUetoile[,9]</span>&#x00A0;<span 
class="ectt-1200">le</span>&#x00A0;<span 
class="ectt-1200">resultat</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DO</span>&#x00A0;<span 
class="ectt-1200">370,</span>&#x00A0;<span 
class="ectt-1200">i=1,nT</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">hUetoi(i,9)=U(i)</span>
&#x00A0;<br />&#x00A0;<span 
class="ectt-1200">370</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CONTINUE</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">remet</span>&#x00A0;<span 
class="ectt-1200">les</span>&#x00A0;<span 
class="ectt-1200">bonnes</span>&#x00A0;<span 
class="ectt-1200">valeurs</span>&#x00A0;<span 
class="ectt-1200">dans</span>&#x00A0;<span 
class="ectt-1200">U</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DO</span>&#x00A0;<span 
class="ectt-1200">380,</span>&#x00A0;<span 
class="ectt-1200">i=1,nT</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">U(i)=Uavant(i)</span>
&#x00A0;<br />&#x00A0;<span 
class="ectt-1200">380</span>&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CONTINUE</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">i=10...................</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">On</span>&#x00A0;<span 
class="ectt-1200">sauvegarde</span>&#x00A0;<span 
class="ectt-1200">les</span>&#x00A0;<span 
class="ectt-1200">valeurs</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">U</span>&#x00A0;<span 
class="ectt-1200">dans</span>&#x00A0;<span 
class="ectt-1200">Uavant</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DO</span>&#x00A0;<span 
class="ectt-1200">390,</span>&#x00A0;<span 
class="ectt-1200">i=1,nT</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Uavant(i)=U(i)</span>
&#x00A0;<br />&#x00A0;<span 
class="ectt-1200">390</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CONTINUE</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">IF</span>&#x00A0;<span 
class="ectt-1200">(isa</span>&#x00A0;<span 
class="ectt-1200">.EQV.</span>&#x00A0;<span 
class="ectt-1200">.TRUE.)</span>&#x00A0;<span 
class="ectt-1200">THEN</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">calcul</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">H10isa(U),</span>&#x00A0;<span 
class="ectt-1200">remplace</span>&#x00A0;<span 
class="ectt-1200">U</span>&#x00A0;<span 
class="ectt-1200">par</span>&#x00A0;<span 
class="ectt-1200">H10isa(U)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CALL</span>&#x00A0;<span 
class="ectt-1200">H10isa(nT,U)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">ENDIF</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">IF</span>&#x00A0;<span 
class="ectt-1200">(isa</span>&#x00A0;<span 
class="ectt-1200">.EQV.</span>&#x00A0;<span 
class="ectt-1200">.FALSE.)</span>&#x00A0;<span 
class="ectt-1200">THEN</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">calcul</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">H10eto(U),</span>&#x00A0;<span 
class="ectt-1200">remplace</span>&#x00A0;<span 
class="ectt-1200">U</span>&#x00A0;<span 
class="ectt-1200">par</span>&#x00A0;<span 
class="ectt-1200">H10eto(U)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CALL</span>&#x00A0;<span 
class="ectt-1200">H10eto(nT,U)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">ENDIF</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">affecte</span>&#x00A0;<span 
class="ectt-1200">a</span>&#x00A0;<span 
class="ectt-1200">hUetoile[,10]</span>&#x00A0;<span 
class="ectt-1200">le</span>&#x00A0;<span 
class="ectt-1200">resultat</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DO</span>&#x00A0;<span 
class="ectt-1200">400,</span>&#x00A0;<span 
class="ectt-1200">i=1,nT</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">hUetoi(i,10)=U(i)</span>
&#x00A0;<br />&#x00A0;<span 
class="ectt-1200">400</span>&#x00A0;&#x00A0;<span 
class="ectt-1200">CONTINUE</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">remet</span>&#x00A0;<span 
class="ectt-1200">les</span>&#x00A0;<span 
class="ectt-1200">bonnes</span>&#x00A0;<span 
class="ectt-1200">valeurs</span>&#x00A0;<span 
class="ectt-1200">dans</span>&#x00A0;<span 
class="ectt-1200">U</span>

&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DO</span>&#x00A0;<span 
class="ectt-1200">410,</span>&#x00A0;<span 
class="ectt-1200">i=1,nT</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">U(i)=Uavant(i)</span>
&#x00A0;<br />&#x00A0;<span 
class="ectt-1200">410</span>&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CONTINUE</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">On</span>&#x00A0;<span 
class="ectt-1200">cree</span>&#x00A0;<span 
class="ectt-1200">la</span>&#x00A0;<span 
class="ectt-1200">matrice</span>&#x00A0;<span 
class="ectt-1200">hKetoile</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DO</span>&#x00A0;<span 
class="ectt-1200">430,</span>&#x00A0;<span 
class="ectt-1200">i=1,Kp</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">hKtemp=DBLE(0.0)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DO</span>&#x00A0;<span 
class="ectt-1200">420,</span>&#x00A0;<span 
class="ectt-1200">k=1,nT</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">hKtemp=hKtemp+hUetoi(k,i)</span>
&#x00A0;<br />&#x00A0;<span 
class="ectt-1200">420</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CONTINUE</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">hKetoi(i)=hKtemp/(DSQRT(DBLE(nT)))</span>
&#x00A0;<br />&#x00A0;<span 
class="ectt-1200">430</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CONTINUE</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">hK&#x2019;</span>&#x00A0;<span 
class="ectt-1200">c&#x2019;est</span>&#x00A0;<span 
class="ectt-1200">le</span>&#x00A0;<span 
class="ectt-1200">h~Kchap</span>&#x00A0;<span 
class="ectt-1200">du</span>&#x00A0;<span 
class="ectt-1200">memoire:hK[k]=(1/sqrt(nT))*\sum_{t=1}&#x0302;{nT}</span>&#x00A0;<span 
class="ectt-1200">h_k</span>&#x00A0;<span 
class="ectt-1200">(U_t)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">On</span>&#x00A0;<span 
class="ectt-1200">remplit</span>&#x00A0;<span 
class="ectt-1200">la</span>&#x00A0;<span 
class="ectt-1200">matrice</span>&#x00A0;<span 
class="ectt-1200">hU</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">i=1.....................</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">On</span>&#x00A0;<span 
class="ectt-1200">sauvegarde</span>&#x00A0;<span 
class="ectt-1200">les</span>&#x00A0;<span 
class="ectt-1200">valeurs</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">U</span>&#x00A0;<span 
class="ectt-1200">dans</span>&#x00A0;<span 
class="ectt-1200">Uavant</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DO</span>&#x00A0;<span 
class="ectt-1200">440,</span>&#x00A0;<span 
class="ectt-1200">i=1,nT</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Uavant(i)=U(i)</span>
&#x00A0;<br />&#x00A0;<span 
class="ectt-1200">440</span>&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CONTINUE</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">calcul</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">H1(U),</span>&#x00A0;<span 
class="ectt-1200">remplace</span>&#x00A0;<span 
class="ectt-1200">U</span>&#x00A0;<span 
class="ectt-1200">par</span>&#x00A0;<span 
class="ectt-1200">H1(U)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CALL</span>&#x00A0;<span 
class="ectt-1200">H1(nT,U)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">affecte</span>&#x00A0;<span 
class="ectt-1200">a</span>&#x00A0;<span 
class="ectt-1200">hU[,1]</span>&#x00A0;<span 
class="ectt-1200">le</span>&#x00A0;<span 
class="ectt-1200">resultat</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DO</span>&#x00A0;<span 
class="ectt-1200">450,</span>&#x00A0;<span 
class="ectt-1200">i=1,nT</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">hU(i,1)=U(i)</span>
&#x00A0;<br />&#x00A0;<span 
class="ectt-1200">450</span>&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CONTINUE</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">remet</span>&#x00A0;<span 
class="ectt-1200">les</span>&#x00A0;<span 
class="ectt-1200">bonnes</span>&#x00A0;<span 
class="ectt-1200">valeurs</span>&#x00A0;<span 
class="ectt-1200">dans</span>&#x00A0;<span 
class="ectt-1200">U</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DO</span>&#x00A0;<span 
class="ectt-1200">460,</span>&#x00A0;<span 
class="ectt-1200">i=1,nT</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">U(i)=Uavant(i)</span>
&#x00A0;<br />&#x00A0;<span 
class="ectt-1200">460</span>&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CONTINUE</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">i=2.....................</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">On</span>&#x00A0;<span 
class="ectt-1200">sauvegarde</span>&#x00A0;<span 
class="ectt-1200">les</span>&#x00A0;<span 
class="ectt-1200">valeurs</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">U</span>&#x00A0;<span 
class="ectt-1200">dans</span>&#x00A0;<span 
class="ectt-1200">Uavant</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DO</span>&#x00A0;<span 
class="ectt-1200">470,</span>&#x00A0;<span 
class="ectt-1200">i=1,nT</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Uavant(i)=U(i)</span>
&#x00A0;<br />&#x00A0;<span 
class="ectt-1200">470</span>&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CONTINUE</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">calcul</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">H2(U),</span>&#x00A0;<span 
class="ectt-1200">remplace</span>&#x00A0;<span 
class="ectt-1200">U</span>&#x00A0;<span 
class="ectt-1200">par</span>&#x00A0;<span 
class="ectt-1200">H2(U)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CALL</span>&#x00A0;<span 
class="ectt-1200">H2(nT,U)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">affecte</span>&#x00A0;<span 
class="ectt-1200">a</span>&#x00A0;<span 
class="ectt-1200">hU[,2]</span>&#x00A0;<span 
class="ectt-1200">le</span>&#x00A0;<span 
class="ectt-1200">resultat</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DO</span>&#x00A0;<span 
class="ectt-1200">480,</span>&#x00A0;<span 
class="ectt-1200">i=1,nT</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">hU(i,2)=U(i)</span>
&#x00A0;<br />&#x00A0;<span 
class="ectt-1200">480</span>&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CONTINUE</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">remet</span>&#x00A0;<span 
class="ectt-1200">les</span>&#x00A0;<span 
class="ectt-1200">bonnes</span>&#x00A0;<span 
class="ectt-1200">valeurs</span>&#x00A0;<span 
class="ectt-1200">dans</span>&#x00A0;<span 
class="ectt-1200">U</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DO</span>&#x00A0;<span 
class="ectt-1200">490,</span>&#x00A0;<span 
class="ectt-1200">i=1,nT</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">U(i)=Uavant(i)</span>
&#x00A0;<br />&#x00A0;<span 
class="ectt-1200">490</span>&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CONTINUE</span>

&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">i=3.....................</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">On</span>&#x00A0;<span 
class="ectt-1200">sauvegarde</span>&#x00A0;<span 
class="ectt-1200">les</span>&#x00A0;<span 
class="ectt-1200">valeurs</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">U</span>&#x00A0;<span 
class="ectt-1200">dans</span>&#x00A0;<span 
class="ectt-1200">Uavant</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DO</span>&#x00A0;<span 
class="ectt-1200">500,</span>&#x00A0;<span 
class="ectt-1200">i=1,nT</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Uavant(i)=U(i)</span>
&#x00A0;<br />&#x00A0;<span 
class="ectt-1200">500</span>&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CONTINUE</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">calcul</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">H3(U),</span>&#x00A0;<span 
class="ectt-1200">remplace</span>&#x00A0;<span 
class="ectt-1200">U</span>&#x00A0;<span 
class="ectt-1200">par</span>&#x00A0;<span 
class="ectt-1200">H3(U)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CALL</span>&#x00A0;<span 
class="ectt-1200">H3(nT,U)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">affecte</span>&#x00A0;<span 
class="ectt-1200">a</span>&#x00A0;<span 
class="ectt-1200">hU[,3]</span>&#x00A0;<span 
class="ectt-1200">le</span>&#x00A0;<span 
class="ectt-1200">resultat</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DO</span>&#x00A0;<span 
class="ectt-1200">510,</span>&#x00A0;<span 
class="ectt-1200">i=1,nT</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">hU(i,3)=U(i)</span>
&#x00A0;<br />&#x00A0;<span 
class="ectt-1200">510</span>&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CONTINUE</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">remet</span>&#x00A0;<span 
class="ectt-1200">les</span>&#x00A0;<span 
class="ectt-1200">bonnes</span>&#x00A0;<span 
class="ectt-1200">valeurs</span>&#x00A0;<span 
class="ectt-1200">dans</span>&#x00A0;<span 
class="ectt-1200">U</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DO</span>&#x00A0;<span 
class="ectt-1200">520,</span>&#x00A0;<span 
class="ectt-1200">i=1,nT</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">U(i)=Uavant(i)</span>
&#x00A0;<br />&#x00A0;<span 
class="ectt-1200">520</span>&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CONTINUE</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">i=4.....................</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">On</span>&#x00A0;<span 
class="ectt-1200">sauvegarde</span>&#x00A0;<span 
class="ectt-1200">les</span>&#x00A0;<span 
class="ectt-1200">valeurs</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">U</span>&#x00A0;<span 
class="ectt-1200">dans</span>&#x00A0;<span 
class="ectt-1200">Uavant</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DO</span>&#x00A0;<span 
class="ectt-1200">530,</span>&#x00A0;<span 
class="ectt-1200">i=1,nT</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Uavant(i)=U(i)</span>
&#x00A0;<br />&#x00A0;<span 
class="ectt-1200">530</span>&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CONTINUE</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">calcul</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">H4(U),</span>&#x00A0;<span 
class="ectt-1200">remplace</span>&#x00A0;<span 
class="ectt-1200">U</span>&#x00A0;<span 
class="ectt-1200">par</span>&#x00A0;<span 
class="ectt-1200">H4(U)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CALL</span>&#x00A0;<span 
class="ectt-1200">H4(nT,U)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">affecte</span>&#x00A0;<span 
class="ectt-1200">a</span>&#x00A0;<span 
class="ectt-1200">hU[,4]</span>&#x00A0;<span 
class="ectt-1200">le</span>&#x00A0;<span 
class="ectt-1200">resultat</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DO</span>&#x00A0;<span 
class="ectt-1200">540,</span>&#x00A0;<span 
class="ectt-1200">i=1,nT</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">hU(i,4)=U(i)</span>
&#x00A0;<br />&#x00A0;<span 
class="ectt-1200">540</span>&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CONTINUE</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">remet</span>&#x00A0;<span 
class="ectt-1200">les</span>&#x00A0;<span 
class="ectt-1200">bonnes</span>&#x00A0;<span 
class="ectt-1200">valeurs</span>&#x00A0;<span 
class="ectt-1200">dans</span>&#x00A0;<span 
class="ectt-1200">U</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DO</span>&#x00A0;<span 
class="ectt-1200">550,</span>&#x00A0;<span 
class="ectt-1200">i=1,nT</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">U(i)=Uavant(i)</span>
&#x00A0;<br />&#x00A0;<span 
class="ectt-1200">550</span>&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CONTINUE</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">i=5.....................</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">On</span>&#x00A0;<span 
class="ectt-1200">sauvegarde</span>&#x00A0;<span 
class="ectt-1200">les</span>&#x00A0;<span 
class="ectt-1200">valeurs</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">U</span>&#x00A0;<span 
class="ectt-1200">dans</span>&#x00A0;<span 
class="ectt-1200">Uavant</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DO</span>&#x00A0;<span 
class="ectt-1200">560,</span>&#x00A0;<span 
class="ectt-1200">i=1,nT</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Uavant(i)=U(i)</span>
&#x00A0;<br />&#x00A0;<span 
class="ectt-1200">560</span>&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CONTINUE</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">calcul</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">H5(U),</span>&#x00A0;<span 
class="ectt-1200">remplace</span>&#x00A0;<span 
class="ectt-1200">U</span>&#x00A0;<span 
class="ectt-1200">par</span>&#x00A0;<span 
class="ectt-1200">H5(U)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CALL</span>&#x00A0;<span 
class="ectt-1200">H5(nT,U)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">affecte</span>&#x00A0;<span 
class="ectt-1200">a</span>&#x00A0;<span 
class="ectt-1200">hU[,5]</span>&#x00A0;<span 
class="ectt-1200">le</span>&#x00A0;<span 
class="ectt-1200">resultat</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DO</span>&#x00A0;<span 
class="ectt-1200">570,</span>&#x00A0;<span 
class="ectt-1200">i=1,nT</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">hU(i,5)=U(i)</span>
&#x00A0;<br />&#x00A0;<span 
class="ectt-1200">570</span>&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CONTINUE</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">remet</span>&#x00A0;<span 
class="ectt-1200">les</span>&#x00A0;<span 
class="ectt-1200">bonnes</span>&#x00A0;<span 
class="ectt-1200">valeurs</span>&#x00A0;<span 
class="ectt-1200">dans</span>&#x00A0;<span 
class="ectt-1200">U</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DO</span>&#x00A0;<span 
class="ectt-1200">580,</span>&#x00A0;<span 
class="ectt-1200">i=1,nT</span>

&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">U(i)=Uavant(i)</span>
&#x00A0;<br />&#x00A0;<span 
class="ectt-1200">580</span>&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CONTINUE</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">i=6.....................</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">On</span>&#x00A0;<span 
class="ectt-1200">sauvegarde</span>&#x00A0;<span 
class="ectt-1200">les</span>&#x00A0;<span 
class="ectt-1200">valeurs</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">U</span>&#x00A0;<span 
class="ectt-1200">dans</span>&#x00A0;<span 
class="ectt-1200">Uavant</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DO</span>&#x00A0;<span 
class="ectt-1200">590,</span>&#x00A0;<span 
class="ectt-1200">i=1,nT</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Uavant(i)=U(i)</span>
&#x00A0;<br />&#x00A0;<span 
class="ectt-1200">590</span>&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CONTINUE</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">calcul</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">H6(U),</span>&#x00A0;<span 
class="ectt-1200">remplace</span>&#x00A0;<span 
class="ectt-1200">U</span>&#x00A0;<span 
class="ectt-1200">par</span>&#x00A0;<span 
class="ectt-1200">H6(U)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CALL</span>&#x00A0;<span 
class="ectt-1200">H6(nT,U)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">affecte</span>&#x00A0;<span 
class="ectt-1200">a</span>&#x00A0;<span 
class="ectt-1200">hU[,6]</span>&#x00A0;<span 
class="ectt-1200">le</span>&#x00A0;<span 
class="ectt-1200">resultat</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DO</span>&#x00A0;<span 
class="ectt-1200">600,</span>&#x00A0;<span 
class="ectt-1200">i=1,nT</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">hU(i,6)=U(i)</span>
&#x00A0;<br />&#x00A0;<span 
class="ectt-1200">600</span>&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CONTINUE</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">remet</span>&#x00A0;<span 
class="ectt-1200">les</span>&#x00A0;<span 
class="ectt-1200">bonnes</span>&#x00A0;<span 
class="ectt-1200">valeurs</span>&#x00A0;<span 
class="ectt-1200">dans</span>&#x00A0;<span 
class="ectt-1200">U</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DO</span>&#x00A0;<span 
class="ectt-1200">610,</span>&#x00A0;<span 
class="ectt-1200">i=1,nT</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">U(i)=Uavant(i)</span>
&#x00A0;<br />&#x00A0;<span 
class="ectt-1200">610</span>&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CONTINUE</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">i=7.....................</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">On</span>&#x00A0;<span 
class="ectt-1200">sauvegarde</span>&#x00A0;<span 
class="ectt-1200">les</span>&#x00A0;<span 
class="ectt-1200">valeurs</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">U</span>&#x00A0;<span 
class="ectt-1200">dans</span>&#x00A0;<span 
class="ectt-1200">Uavant</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DO</span>&#x00A0;<span 
class="ectt-1200">620,</span>&#x00A0;<span 
class="ectt-1200">i=1,nT</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Uavant(i)=U(i)</span>
&#x00A0;<br />&#x00A0;<span 
class="ectt-1200">620</span>&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CONTINUE</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">calcul</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">H7(U),</span>&#x00A0;<span 
class="ectt-1200">remplace</span>&#x00A0;<span 
class="ectt-1200">U</span>&#x00A0;<span 
class="ectt-1200">par</span>&#x00A0;<span 
class="ectt-1200">H7(U)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CALL</span>&#x00A0;<span 
class="ectt-1200">H7(nT,U)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">affecte</span>&#x00A0;<span 
class="ectt-1200">a</span>&#x00A0;<span 
class="ectt-1200">hU[,7]</span>&#x00A0;<span 
class="ectt-1200">le</span>&#x00A0;<span 
class="ectt-1200">resultat</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DO</span>&#x00A0;<span 
class="ectt-1200">630,</span>&#x00A0;<span 
class="ectt-1200">i=1,nT</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">hU(i,7)=U(i)</span>
&#x00A0;<br />&#x00A0;<span 
class="ectt-1200">630</span>&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CONTINUE</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">remet</span>&#x00A0;<span 
class="ectt-1200">les</span>&#x00A0;<span 
class="ectt-1200">bonnes</span>&#x00A0;<span 
class="ectt-1200">valeurs</span>&#x00A0;<span 
class="ectt-1200">dans</span>&#x00A0;<span 
class="ectt-1200">U</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DO</span>&#x00A0;<span 
class="ectt-1200">640,</span>&#x00A0;<span 
class="ectt-1200">i=1,nT</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">U(i)=Uavant(i)</span>
&#x00A0;<br />&#x00A0;<span 
class="ectt-1200">640</span>&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CONTINUE</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">i=8.....................</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">On</span>&#x00A0;<span 
class="ectt-1200">sauvegarde</span>&#x00A0;<span 
class="ectt-1200">les</span>&#x00A0;<span 
class="ectt-1200">valeurs</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">U</span>&#x00A0;<span 
class="ectt-1200">dans</span>&#x00A0;<span 
class="ectt-1200">Uavant</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DO</span>&#x00A0;<span 
class="ectt-1200">650,</span>&#x00A0;<span 
class="ectt-1200">i=1,nT</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Uavant(i)=U(i)</span>
&#x00A0;<br />&#x00A0;<span 
class="ectt-1200">650</span>&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CONTINUE</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">calcul</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">H8(U),</span>&#x00A0;<span 
class="ectt-1200">remplace</span>&#x00A0;<span 
class="ectt-1200">U</span>&#x00A0;<span 
class="ectt-1200">par</span>&#x00A0;<span 
class="ectt-1200">H8(U)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CALL</span>&#x00A0;<span 
class="ectt-1200">H8(nT,U)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">affecte</span>&#x00A0;<span 
class="ectt-1200">a</span>&#x00A0;<span 
class="ectt-1200">hU[,8]</span>&#x00A0;<span 
class="ectt-1200">le</span>&#x00A0;<span 
class="ectt-1200">resultat</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DO</span>&#x00A0;<span 
class="ectt-1200">660,</span>&#x00A0;<span 
class="ectt-1200">i=1,nT</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">hU(i,8)=U(i)</span>
&#x00A0;<br />&#x00A0;<span 
class="ectt-1200">660</span>&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CONTINUE</span>

&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">remet</span>&#x00A0;<span 
class="ectt-1200">les</span>&#x00A0;<span 
class="ectt-1200">bonnes</span>&#x00A0;<span 
class="ectt-1200">valeurs</span>&#x00A0;<span 
class="ectt-1200">dans</span>&#x00A0;<span 
class="ectt-1200">U</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DO</span>&#x00A0;<span 
class="ectt-1200">670,</span>&#x00A0;<span 
class="ectt-1200">i=1,nT</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">U(i)=Uavant(i)</span>
&#x00A0;<br />&#x00A0;<span 
class="ectt-1200">670</span>&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CONTINUE</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">i=9.....................</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">On</span>&#x00A0;<span 
class="ectt-1200">sauvegarde</span>&#x00A0;<span 
class="ectt-1200">les</span>&#x00A0;<span 
class="ectt-1200">valeurs</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">U</span>&#x00A0;<span 
class="ectt-1200">dans</span>&#x00A0;<span 
class="ectt-1200">Uavant</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DO</span>&#x00A0;<span 
class="ectt-1200">680,</span>&#x00A0;<span 
class="ectt-1200">i=1,nT</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Uavant(i)=U(i)</span>
&#x00A0;<br />&#x00A0;<span 
class="ectt-1200">680</span>&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CONTINUE</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">calcul</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">H9(U),</span>&#x00A0;<span 
class="ectt-1200">remplace</span>&#x00A0;<span 
class="ectt-1200">U</span>&#x00A0;<span 
class="ectt-1200">par</span>&#x00A0;<span 
class="ectt-1200">H9(U)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CALL</span>&#x00A0;<span 
class="ectt-1200">H9(nT,U)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">affecte</span>&#x00A0;<span 
class="ectt-1200">a</span>&#x00A0;<span 
class="ectt-1200">hU[,9]</span>&#x00A0;<span 
class="ectt-1200">le</span>&#x00A0;<span 
class="ectt-1200">resultat</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DO</span>&#x00A0;<span 
class="ectt-1200">690,</span>&#x00A0;<span 
class="ectt-1200">i=1,nT</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">hU(i,9)=U(i)</span>
&#x00A0;<br />&#x00A0;<span 
class="ectt-1200">690</span>&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CONTINUE</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">remet</span>&#x00A0;<span 
class="ectt-1200">les</span>&#x00A0;<span 
class="ectt-1200">bonnes</span>&#x00A0;<span 
class="ectt-1200">valeurs</span>&#x00A0;<span 
class="ectt-1200">dans</span>&#x00A0;<span 
class="ectt-1200">U</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DO</span>&#x00A0;<span 
class="ectt-1200">700,</span>&#x00A0;<span 
class="ectt-1200">i=1,nT</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">U(i)=Uavant(i)</span>
&#x00A0;<br />&#x00A0;<span 
class="ectt-1200">700</span>&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CONTINUE</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">i=10.....................</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">On</span>&#x00A0;<span 
class="ectt-1200">sauvegarde</span>&#x00A0;<span 
class="ectt-1200">les</span>&#x00A0;<span 
class="ectt-1200">valeurs</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">U</span>&#x00A0;<span 
class="ectt-1200">dans</span>&#x00A0;<span 
class="ectt-1200">Uavant</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DO</span>&#x00A0;<span 
class="ectt-1200">710,</span>&#x00A0;<span 
class="ectt-1200">i=1,nT</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Uavant(i)=U(i)</span>
&#x00A0;<br />&#x00A0;<span 
class="ectt-1200">710</span>&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CONTINUE</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">calcul</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">H10(U),</span>&#x00A0;<span 
class="ectt-1200">remplace</span>&#x00A0;<span 
class="ectt-1200">U</span>&#x00A0;<span 
class="ectt-1200">par</span>&#x00A0;<span 
class="ectt-1200">H10(U)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CALL</span>&#x00A0;<span 
class="ectt-1200">H10(nT,U)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">affecte</span>&#x00A0;<span 
class="ectt-1200">a</span>&#x00A0;<span 
class="ectt-1200">hU[,10]</span>&#x00A0;<span 
class="ectt-1200">le</span>&#x00A0;<span 
class="ectt-1200">resultat</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DO</span>&#x00A0;<span 
class="ectt-1200">720,</span>&#x00A0;<span 
class="ectt-1200">i=1,nT</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">hU(i,10)=U(i)</span>
&#x00A0;<br />&#x00A0;<span 
class="ectt-1200">720</span>&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CONTINUE</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">remet</span>&#x00A0;<span 
class="ectt-1200">les</span>&#x00A0;<span 
class="ectt-1200">bonnes</span>&#x00A0;<span 
class="ectt-1200">valeurs</span>&#x00A0;<span 
class="ectt-1200">dans</span>&#x00A0;<span 
class="ectt-1200">U</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DO</span>&#x00A0;<span 
class="ectt-1200">730,</span>&#x00A0;<span 
class="ectt-1200">i=1,nT</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">U(i)=Uavant(i)</span>
&#x00A0;<br />&#x00A0;<span 
class="ectt-1200">730</span>&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CONTINUE</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">On</span>&#x00A0;<span 
class="ectt-1200">cree</span>&#x00A0;<span 
class="ectt-1200">la</span>&#x00A0;<span 
class="ectt-1200">matrice</span>&#x00A0;<span 
class="ectt-1200">hK</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">hKtemp=DBLE(0.0)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DO</span>&#x00A0;<span 
class="ectt-1200">750,</span>&#x00A0;<span 
class="ectt-1200">i=1,Kp</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">hKtemp=DBLE(0.0)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DO</span>&#x00A0;<span 
class="ectt-1200">740,</span>&#x00A0;<span 
class="ectt-1200">k=1,nT</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">hKtemp=hKtemp+hU(k,i)</span>
&#x00A0;<br />&#x00A0;<span 
class="ectt-1200">740</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CONTINUE</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">hK(i)=hKtemp/DSQRT(DBLE(nT))</span>
&#x00A0;<br />&#x00A0;<span 
class="ectt-1200">750</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CONTINUE</span>

&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">On</span>&#x00A0;<span 
class="ectt-1200">calcule</span>&#x00A0;<span 
class="ectt-1200">le</span>&#x00A0;<span 
class="ectt-1200">K</span>&#x00A0;<span 
class="ectt-1200">optimal</span>&#x00A0;<span 
class="ectt-1200">par</span>&#x00A0;<span 
class="ectt-1200">la</span>&#x00A0;<span 
class="ectt-1200">methode</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">Ledwina:</span>&#x00A0;<span 
class="ectt-1200">(critere</span>&#x00A0;<span 
class="ectt-1200">S2):</span>&#x00A0;<span 
class="ectt-1200">(KL1)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">inter=DBLE(0.0)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DO</span>&#x00A0;<span 
class="ectt-1200">760,</span>&#x00A0;<span 
class="ectt-1200">i=1,Kp</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">mettre</span>&#x00A0;<span 
class="ectt-1200">vecteu(i)=(hK(i))**2</span>&#x00A0;<span 
class="ectt-1200">si</span>&#x00A0;<span 
class="ectt-1200">on</span>&#x00A0;<span 
class="ectt-1200">veut</span>&#x00A0;<span 
class="ectt-1200">calculer</span>&#x00A0;<span 
class="ectt-1200">hKchapeau</span>&#x00A0;<span 
class="ectt-1200">avec</span>&#x00A0;<span 
class="ectt-1200">les</span>&#x00A0;<span 
class="ectt-1200">polynomes</span>&#x00A0;<span 
class="ectt-1200">non</span>&#x00A0;<span 
class="ectt-1200">modifies</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">mettre</span>&#x00A0;<span 
class="ectt-1200">vecteu(i)=(hKetoi(i))**2</span>&#x00A0;<span 
class="ectt-1200">si</span>&#x00A0;<span 
class="ectt-1200">on</span>&#x00A0;<span 
class="ectt-1200">veut</span>&#x00A0;<span 
class="ectt-1200">calculer</span>&#x00A0;<span 
class="ectt-1200">hKchapeau</span>&#x00A0;<span 
class="ectt-1200">avec</span>&#x00A0;<span 
class="ectt-1200">les</span>&#x00A0;<span 
class="ectt-1200">polynomes</span>&#x00A0;<span 
class="ectt-1200">modifies</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">vecteu(i)=(hKetoi(i))**2</span>
&#x00A0;<br />&#x00A0;<span 
class="ectt-1200">760</span>&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CONTINUE</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DO</span>&#x00A0;<span 
class="ectt-1200">770,</span>&#x00A0;<span 
class="ectt-1200">k=1,dnT</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">inter=inter+vecteu(k)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Ledwi1(k)=inter-DBLE(k)*penal</span>
&#x00A0;<br />&#x00A0;<span 
class="ectt-1200">770</span>&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CONTINUE</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">mxLed1=Ledwi1(1)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DO</span>&#x00A0;<span 
class="ectt-1200">780,</span>&#x00A0;<span 
class="ectt-1200">i=1,(dnT-1)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">IF</span>&#x00A0;<span 
class="ectt-1200">(Ledwi1(i+1)</span>&#x00A0;<span 
class="ectt-1200">.GT.</span>&#x00A0;<span 
class="ectt-1200">mxLed1)</span>&#x00A0;<span 
class="ectt-1200">mxLed1=Ledwi1(i+1)</span>
&#x00A0;<br />&#x00A0;<span 
class="ectt-1200">780</span>&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CONTINUE</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DO</span>&#x00A0;<span 
class="ectt-1200">790,</span>&#x00A0;<span 
class="ectt-1200">i=1,dnT</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Ledwi1(i)=Ledwi1(i)-mxLed1</span>
&#x00A0;<br />&#x00A0;<span 
class="ectt-1200">790</span>&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CONTINUE</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DO</span>&#x00A0;<span 
class="ectt-1200">810,</span>&#x00A0;<span 
class="ectt-1200">i=1,dnT</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">IF</span>&#x00A0;<span 
class="ectt-1200">(Ledwi1(i)</span>&#x00A0;<span 
class="ectt-1200">.EQ.</span>&#x00A0;<span 
class="ectt-1200">DBLE(0.0))</span>&#x00A0;<span 
class="ectt-1200">THEN</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">ordre=i</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">GO</span>&#x00A0;<span 
class="ectt-1200">TO</span>&#x00A0;<span 
class="ectt-1200">815</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">ENDIF</span>
&#x00A0;<br />&#x00A0;<span 
class="ectt-1200">810</span>&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CONTINUE</span>
&#x00A0;<br />&#x00A0;<span 
class="ectt-1200">815</span>&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">vKoLe1=ordre</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">KoLed1(j)=vKoLe1</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">On</span>&#x00A0;<span 
class="ectt-1200">calcule</span>&#x00A0;<span 
class="ectt-1200">le</span>&#x00A0;<span 
class="ectt-1200">K</span>&#x00A0;<span 
class="ectt-1200">optimal</span>&#x00A0;<span 
class="ectt-1200">par</span>&#x00A0;<span 
class="ectt-1200">la</span>&#x00A0;<span 
class="ectt-1200">methode</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">Ledwina:</span>&#x00A0;<span 
class="ectt-1200">(critere</span>&#x00A0;<span 
class="ectt-1200">S2):</span>&#x00A0;<span 
class="ectt-1200">(KL2)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">inter=DBLE(0.0)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DO</span>&#x00A0;<span 
class="ectt-1200">820,</span>&#x00A0;<span 
class="ectt-1200">k=2,dnT</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">inter=inter+vecteu(k)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Ledwi2(k-1)=inter-DBLE(k)*penal</span>
&#x00A0;<br />&#x00A0;<span 
class="ectt-1200">820</span>&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CONTINUE</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">mxLed2=Ledwi2(1)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DO</span>&#x00A0;<span 
class="ectt-1200">830,</span>&#x00A0;<span 
class="ectt-1200">i=1,(dnT-2)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">IF</span>&#x00A0;<span 
class="ectt-1200">(Ledwi2(i+1)</span>&#x00A0;<span 
class="ectt-1200">.GT.</span>&#x00A0;<span 
class="ectt-1200">mxLed2)</span>&#x00A0;<span 
class="ectt-1200">mxLed2=Ledwi2(i+1)</span>
&#x00A0;<br />&#x00A0;<span 
class="ectt-1200">830</span>&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CONTINUE</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DO</span>&#x00A0;<span 
class="ectt-1200">840,</span>&#x00A0;<span 
class="ectt-1200">i=1,(dnT-1)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Ledwi2(i)=Ledwi2(i)-mxLed2</span>
&#x00A0;<br />&#x00A0;<span 
class="ectt-1200">840</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CONTINUE</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DO</span>&#x00A0;<span 
class="ectt-1200">860,</span>&#x00A0;<span 
class="ectt-1200">i=1,(dnT-1)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">IF</span>&#x00A0;<span 
class="ectt-1200">(Ledwi2(i)</span>&#x00A0;<span 
class="ectt-1200">.EQ.</span>&#x00A0;<span 
class="ectt-1200">DBLE(0.0))</span>&#x00A0;<span 
class="ectt-1200">THEN</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">ordre2=i</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">GO</span>&#x00A0;<span 
class="ectt-1200">TO</span>&#x00A0;<span 
class="ectt-1200">865</span>

&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">ENDIF</span>
&#x00A0;<br />&#x00A0;<span 
class="ectt-1200">860</span>&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CONTINUE</span>
&#x00A0;<br />&#x00A0;<span 
class="ectt-1200">865</span>&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">vKoLe2=ordre2+1</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">KoLed2(j)=vKoLe2</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">stat[k]:c&#x2019;est</span>&#x00A0;<span 
class="ectt-1200">la</span>&#x00A0;<span 
class="ectt-1200">statistique</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">mon</span>&#x00A0;<span 
class="ectt-1200">test</span>&#x00A0;<span 
class="ectt-1200">calculee</span>&#x00A0;<span 
class="ectt-1200">avec</span>&#x00A0;<span 
class="ectt-1200">les</span>&#x00A0;<span 
class="ectt-1200">hketoile</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DO</span>&#x00A0;<span 
class="ectt-1200">870,</span>&#x00A0;<span 
class="ectt-1200">i=1,Kp</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">vectoi(i)=(hKetoi(i))**2</span>
&#x00A0;<br />&#x00A0;<span 
class="ectt-1200">870</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CONTINUE</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">inter=DBLE(0.0)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DO</span>&#x00A0;<span 
class="ectt-1200">880,</span>&#x00A0;<span 
class="ectt-1200">k=1,Kp</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">inter=inter+vectoi(k)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">stat(k)=inter</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">IF</span>&#x00A0;<span 
class="ectt-1200">(stat(k)</span>&#x00A0;<span 
class="ectt-1200">.GT.</span>&#x00A0;<span 
class="ectt-1200">khi(k))</span>&#x00A0;<span 
class="ectt-1200">compt(k)=compt(k)+1</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">IF</span>&#x00A0;<span 
class="ectt-1200">(stat(k)</span>&#x00A0;<span 
class="ectt-1200">.GT.</span>&#x00A0;<span 
class="ectt-1200">khi2(k))</span>&#x00A0;<span 
class="ectt-1200">compt2(k)=compt2(k)+1</span>
&#x00A0;<br />&#x00A0;<span 
class="ectt-1200">880</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CONTINUE</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Calcul</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">statLedwi1</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">stLed1=stat(vKoLe1)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">IF</span>&#x00A0;<span 
class="ectt-1200">(stLed1</span>&#x00A0;<span 
class="ectt-1200">.GT.</span>&#x00A0;<span 
class="ectt-1200">QuLed1)</span>&#x00A0;<span 
class="ectt-1200">coLed1=coLed1+1</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">IF</span>&#x00A0;<span 
class="ectt-1200">(stLed1</span>&#x00A0;<span 
class="ectt-1200">.GT.</span>&#x00A0;<span 
class="ectt-1200">QuLe12)</span>&#x00A0;<span 
class="ectt-1200">coLe12=coLe12+1</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">snLed1(j)=stLed1</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Calcul</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">statLedwi2</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">stLed2=stat(vKoLe2)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">IF</span>&#x00A0;<span 
class="ectt-1200">(stLed2</span>&#x00A0;<span 
class="ectt-1200">.GT.</span>&#x00A0;<span 
class="ectt-1200">QuLed2)</span>&#x00A0;<span 
class="ectt-1200">coLed2=coLed2+1</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">IF</span>&#x00A0;<span 
class="ectt-1200">(stLed2</span>&#x00A0;<span 
class="ectt-1200">.GT.</span>&#x00A0;<span 
class="ectt-1200">QuLe22)</span>&#x00A0;<span 
class="ectt-1200">coLe22=coLe22+1</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">snLed2(j)=stLed2</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DO</span>&#x00A0;<span 
class="ectt-1200">890,</span>&#x00A0;<span 
class="ectt-1200">i=1,Kp</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">statn(j,i)=stat(i)</span>
&#x00A0;<br />&#x00A0;<span 
class="ectt-1200">890</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CONTINUE</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">On</span>&#x00A0;<span 
class="ectt-1200">calcule</span>&#x00A0;<span 
class="ectt-1200">la</span>&#x00A0;<span 
class="ectt-1200">stat</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">BD</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DO</span>&#x00A0;<span 
class="ectt-1200">900,</span>&#x00A0;<span 
class="ectt-1200">i=1,nT</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Zavant(i)=Z(i)</span>
&#x00A0;<br />&#x00A0;<span 
class="ectt-1200">900</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CONTINUE</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">nTul=nT</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">IFAIL=0</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CALL</span>&#x00A0;<span 
class="ectt-1200">M01CAF(Z,</span>&#x00A0;<span 
class="ectt-1200">1,</span>&#x00A0;<span 
class="ectt-1200">nTul,</span>&#x00A0;<span 
class="ectt-1200">&#x2019;A&#x2019;,</span>&#x00A0;<span 
class="ectt-1200">IFAIL)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DO</span>&#x00A0;<span 
class="ectt-1200">910,</span>&#x00A0;<span 
class="ectt-1200">i=1,nT</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">BDa(i)=Z(i)</span>
&#x00A0;<br />&#x00A0;<span 
class="ectt-1200">910</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CONTINUE</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">moy=DBLE(0.0)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DO</span>&#x00A0;<span 
class="ectt-1200">920,</span>&#x00A0;<span 
class="ectt-1200">i=1,nT</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Z(i)=Zavant(i)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">moy=moy+Z(i)</span>
&#x00A0;<br />&#x00A0;<span 
class="ectt-1200">920</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CONTINUE</span>

&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">moy=moy/DBLE(nT)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DO</span>&#x00A0;<span 
class="ectt-1200">930,</span>&#x00A0;<span 
class="ectt-1200">i=1,nT</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">BDb(i)=BDa(i)</span>
&#x00A0;<br />&#x00A0;<span 
class="ectt-1200">930</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CONTINUE</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DO</span>&#x00A0;<span 
class="ectt-1200">940,</span>&#x00A0;<span 
class="ectt-1200">i=1,nT</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">BDc(i)=(BDb(i)-moy)**2</span>
&#x00A0;<br />&#x00A0;<span 
class="ectt-1200">940</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CONTINUE</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DO</span>&#x00A0;<span 
class="ectt-1200">950,</span>&#x00A0;<span 
class="ectt-1200">i=1,nT</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">BDd(i)=(DBLE(i)-DBLE(0.375))/(DBLE(nT)+DBLE(0.250))</span>
&#x00A0;<br />&#x00A0;<span 
class="ectt-1200">950</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CONTINUE</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CALL</span>&#x00A0;<span 
class="ectt-1200">qnorm(nT,BDd,DBLE(0),DBLE(1))</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">sumbd=DBLE(0.0)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">sumc=DBLE(0.0)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">sumd2=DBLE(0.0)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DO</span>&#x00A0;<span 
class="ectt-1200">960,</span>&#x00A0;<span 
class="ectt-1200">i=1,nT</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">sumbd=sumbd+(BDb(i)*BDd(i))</span>
&#x00A0;<br />&#x00A0;<span 
class="ectt-1200">960</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CONTINUE</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DO</span>&#x00A0;<span 
class="ectt-1200">970,</span>&#x00A0;<span 
class="ectt-1200">i=1,nT</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">sumc=sumc+BDc(i)</span>
&#x00A0;<br />&#x00A0;<span 
class="ectt-1200">970</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CONTINUE</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DO</span>&#x00A0;<span 
class="ectt-1200">980,</span>&#x00A0;<span 
class="ectt-1200">i=1,nT</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">sumd2=sumd2+(BDd(i))**2</span>
&#x00A0;<br />&#x00A0;<span 
class="ectt-1200">980</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CONTINUE</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">J&#x2019;ai</span>&#x00A0;<span 
class="ectt-1200">rajoute</span>&#x00A0;<span 
class="ectt-1200">ca</span>&#x00A0;<span 
class="ectt-1200">sur</span>&#x00A0;<span 
class="ectt-1200">la</span>&#x00A0;<span 
class="ectt-1200">demande</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">Ducharme</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">sumc=DBLE(nT)*sigch2</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">statBD=(sumbd**2)/(sumc*sumd2)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">IF</span>&#x00A0;<span 
class="ectt-1200">(statBD</span>&#x00A0;<span 
class="ectt-1200">.LT.</span>&#x00A0;<span 
class="ectt-1200">QuBD)</span>&#x00A0;<span 
class="ectt-1200">contBD=contBD+1</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">IF</span>&#x00A0;<span 
class="ectt-1200">(statBD</span>&#x00A0;<span 
class="ectt-1200">.LT.</span>&#x00A0;<span 
class="ectt-1200">QuBD2)</span>&#x00A0;<span 
class="ectt-1200">conBD2=conBD2+1</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">stanBD(j)=statBD</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">On</span>&#x00A0;<span 
class="ectt-1200">calcule</span>&#x00A0;<span 
class="ectt-1200">la</span>&#x00A0;<span 
class="ectt-1200">stat</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">AD</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DO</span>&#x00A0;<span 
class="ectt-1200">990,</span>&#x00A0;<span 
class="ectt-1200">i=1,nT</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Davan2(i)=D(i)</span>
&#x00A0;<br />&#x00A0;<span 
class="ectt-1200">990</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CONTINUE</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CALL</span>&#x00A0;<span 
class="ectt-1200">pnorm(nT,D,DBLE(0),DBLE(1))</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DO</span>&#x00A0;<span 
class="ectt-1200">1000,</span>&#x00A0;<span 
class="ectt-1200">i=1,nT</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">ADa(i)=D(i)</span>
&#x00A0;<br />&#x00A0;<span 
class="ectt-1200">1000</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CONTINUE</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DO</span>&#x00A0;<span 
class="ectt-1200">1010,</span>&#x00A0;<span 
class="ectt-1200">i=1,nT</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">D(i)=Davan2(i)</span>
&#x00A0;<br />&#x00A0;<span 
class="ectt-1200">1010</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CONTINUE</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">IFAIL=0</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CALL</span>&#x00A0;<span 
class="ectt-1200">M01CAF(ADa,</span>&#x00A0;<span 
class="ectt-1200">1,</span>&#x00A0;<span 
class="ectt-1200">nTul,</span>&#x00A0;<span 
class="ectt-1200">&#x2019;A&#x2019;,</span>&#x00A0;<span 
class="ectt-1200">IFAIL)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DO</span>&#x00A0;<span 
class="ectt-1200">1020,</span>&#x00A0;<span 
class="ectt-1200">i=1,nT</span>

&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">ADb(i)=ADa(i)</span>
&#x00A0;<br />&#x00A0;<span 
class="ectt-1200">1020</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CONTINUE</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">sumAD=DBLE(0.0)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DO</span>&#x00A0;<span 
class="ectt-1200">1030,</span>&#x00A0;<span 
class="ectt-1200">i=1,nT</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">sumAD=sumAD+(DBLE(2.0)*DBLE(i)-DBLE(1.0))*DLOG(ADb(i))+(DBLE(2)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">+</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">*DBLE(nT)+DBLE(1.0)-DBLE(2.0)*DBLE(i))*DLOG(DBLE(1.0)-ADb(i))</span>
&#x00A0;<br />&#x00A0;<span 
class="ectt-1200">1030</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CONTINUE</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">statAD=-(DBLE(nT)+sumAD/DBLE(nT))</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">statAD=statAD*(DBLE(1.0)+DBLE(0.75)/DBLE(nT)+DBLE(2.25)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">+</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">/(DBLE(nT*nT)))</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">IF</span>&#x00A0;<span 
class="ectt-1200">(statAD</span>&#x00A0;<span 
class="ectt-1200">.GT.</span>&#x00A0;<span 
class="ectt-1200">QuAD)</span>&#x00A0;<span 
class="ectt-1200">contAD=contAD+1</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">IF</span>&#x00A0;<span 
class="ectt-1200">(statAD</span>&#x00A0;<span 
class="ectt-1200">.GT.</span>&#x00A0;<span 
class="ectt-1200">QuAD2)</span>&#x00A0;<span 
class="ectt-1200">conAD2=conAD2+1</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">stanAD(j)=statAD</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">On</span>&#x00A0;<span 
class="ectt-1200">calcule</span>&#x00A0;<span 
class="ectt-1200">la</span>&#x00A0;<span 
class="ectt-1200">stat</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">Jarque</span>&#x00A0;<span 
class="ectt-1200">et</span>&#x00A0;<span 
class="ectt-1200">Bera</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">m2=DBLE(0.0)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">m3=DBLE(0.0)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">m4=DBLE(0.0)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DO</span>&#x00A0;<span 
class="ectt-1200">1035,</span>&#x00A0;<span 
class="ectt-1200">i=1,nT</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">m2=m2+(Z(i))**2</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">m3=m3+(Z(i))**3</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">m4=m4+(Z(i))**4</span>
&#x00A0;<br />&#x00A0;<span 
class="ectt-1200">1035</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CONTINUE</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">m2=m2/DBLE(nT)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">m3=m3/DBLE(nT)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">m4=m4/DBLE(nT)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">g1a=m3**2</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">g1b=m2**3</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">g1=g1a/g1b</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">g2=m4/(m2**2)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">statJB=DBLE(nT)*(g1/DBLE(6)+((g2-DBLE(3))**2)/DBLE(24))</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">$</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">+</span>&#x00A0;<span 
class="ectt-1200">nT*((DBLE(3.0)*(moy**2))/(DBLE(2.0)*m2)-(m3*moy)/(m2**2))</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">IF</span>&#x00A0;<span 
class="ectt-1200">(statJB</span>&#x00A0;<span 
class="ectt-1200">.GT.</span>&#x00A0;<span 
class="ectt-1200">QuJB)</span>&#x00A0;<span 
class="ectt-1200">contJB=contJB+1</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">IF</span>&#x00A0;<span 
class="ectt-1200">(statJB</span>&#x00A0;<span 
class="ectt-1200">.GT.</span>&#x00A0;<span 
class="ectt-1200">QuJB2)</span>&#x00A0;<span 
class="ectt-1200">conJB2=conJB2+1</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">stanJB(j)=statJB</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Fin</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">la</span>&#x00A0;<span 
class="ectt-1200">grande</span>&#x00A0;<span 
class="ectt-1200">boucle</span>
&#x00A0;<br />&#x00A0;<span 
class="ectt-1200">9000</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CONTINUE</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">--------------------------------------------------------------------</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">ON</span>&#x00A0;<span 
class="ectt-1200">TERMINE</span>&#x00A0;<span 
class="ectt-1200">PAR</span>&#x00A0;<span 
class="ectt-1200">LA</span>&#x00A0;<span 
class="ectt-1200">PUISSANCE,</span>&#x00A0;<span 
class="ectt-1200">LES</span>&#x00A0;<span 
class="ectt-1200">QUANTILES</span>&#x00A0;<span 
class="ectt-1200">ET</span>&#x00A0;<span 
class="ectt-1200">ON</span>&#x00A0;<span 
class="ectt-1200">SORT</span>&#x00A0;<span 
class="ectt-1200">LES</span>&#x00A0;<span 
class="ectt-1200">VALEURS</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">--------------------------------------------------------------------</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">On</span>&#x00A0;<span 
class="ectt-1200">calcule</span>&#x00A0;<span 
class="ectt-1200">la</span>&#x00A0;<span 
class="ectt-1200">puissance</span>&#x00A0;<span 
class="ectt-1200">des</span>&#x00A0;<span 
class="ectt-1200">tests</span>&#x00A0;<span 
class="ectt-1200">en</span>&#x00A0;<span 
class="ectt-1200">%</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DO</span>&#x00A0;<span 
class="ectt-1200">1040,</span>&#x00A0;<span 
class="ectt-1200">k=1,Kp</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Puiss(k)=(DBLE(compt(k))*DBLE(100))/DBLE(nbcle)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Puiss2(k)=(DBLE(compt2(k))*DBLE(100))/DBLE(nbcle)</span>

&#x00A0;<br />&#x00A0;<span 
class="ectt-1200">1040</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CONTINUE</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PsLed1=(DBLE(coLed1)*DBLE(100))/DBLE(nbcle)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PsLe12=(DBLE(coLe12)*DBLE(100))/DBLE(nbcle)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PsLed2=(DBLE(coLed2)*DBLE(100))/DBLE(nbcle)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PsLe22=(DBLE(coLe22)*DBLE(100))/DBLE(nbcle)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PuisBD=(DBLE(contBD)*DBLE(100))/DBLE(nbcle)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PuiBD2=(DBLE(conBD2)*DBLE(100))/DBLE(nbcle)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PuisAD=(DBLE(contAD)*DBLE(100))/DBLE(nbcle)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PuiAD2=(DBLE(conAD2)*DBLE(100))/DBLE(nbcle)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PuisJB=(DBLE(contJB)*DBLE(100))/DBLE(nbcle)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PuiJB2=(DBLE(conJB2)*DBLE(100))/DBLE(nbcle)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">On</span>&#x00A0;<span 
class="ectt-1200">calcule</span>&#x00A0;<span 
class="ectt-1200">les</span>&#x00A0;<span 
class="ectt-1200">Quantiles</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">val=IDInt(DBLE(nbcle)*alpha)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">val2=IDInt(DBLE(nbcle)*alpha2)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DO</span>&#x00A0;<span 
class="ectt-1200">1060,</span>&#x00A0;<span 
class="ectt-1200">i=1,nbcle</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DO</span>&#x00A0;<span 
class="ectt-1200">1050,</span>&#x00A0;<span 
class="ectt-1200">k=1,Kp</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">snsort(i,k)=DBLE(0.0)</span>
&#x00A0;<br />&#x00A0;<span 
class="ectt-1200">1050</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CONTINUE</span>
&#x00A0;<br />&#x00A0;<span 
class="ectt-1200">1060</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CONTINUE</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">nul=nbcle</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DO</span>&#x00A0;<span 
class="ectt-1200">1070,</span>&#x00A0;<span 
class="ectt-1200">i=1,nbcle</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">snsorv(i)=DBLE(0.0)</span>
&#x00A0;<br />&#x00A0;<span 
class="ectt-1200">1070</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CONTINUE</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DO</span>&#x00A0;<span 
class="ectt-1200">1100,</span>&#x00A0;<span 
class="ectt-1200">k=1,Kp</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DO</span>&#x00A0;<span 
class="ectt-1200">1080,</span>&#x00A0;<span 
class="ectt-1200">i=1,nbcle</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">snsorv(i)=statn(i,k)</span>
&#x00A0;<br />&#x00A0;<span 
class="ectt-1200">1080</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CONTINUE</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">IFAIL=0</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CALL</span>&#x00A0;<span 
class="ectt-1200">M01CAF(snsorv,</span>&#x00A0;<span 
class="ectt-1200">1,</span>&#x00A0;<span 
class="ectt-1200">nul,</span>&#x00A0;<span 
class="ectt-1200">&#x2019;A&#x2019;,</span>&#x00A0;<span 
class="ectt-1200">IFAIL)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DO</span>&#x00A0;<span 
class="ectt-1200">1090,</span>&#x00A0;<span 
class="ectt-1200">i=1,nbcle</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">snsort(i,k)=snsorv(i)</span>
&#x00A0;<br />&#x00A0;<span 
class="ectt-1200">1090</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CONTINUE</span>
&#x00A0;<br />&#x00A0;<span 
class="ectt-1200">1100</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CONTINUE</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DO</span>&#x00A0;<span 
class="ectt-1200">1110,</span>&#x00A0;<span 
class="ectt-1200">i=1,Kp</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Qucalc(i)=snsort(nbcle-val,i)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Qucal2(i)=snsort(nbcle-val2,i)</span>
&#x00A0;<br />&#x00A0;<span 
class="ectt-1200">1110</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CONTINUE</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DO</span>&#x00A0;<span 
class="ectt-1200">1120,</span>&#x00A0;<span 
class="ectt-1200">i=1,nbcle</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">snLe1s(i)=snLed1(i)</span>
&#x00A0;<br />&#x00A0;<span 
class="ectt-1200">1120</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CONTINUE</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">IFAIL=0</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CALL</span>&#x00A0;<span 
class="ectt-1200">M01CAF(snLe1s,</span>&#x00A0;<span 
class="ectt-1200">1,</span>&#x00A0;<span 
class="ectt-1200">nul,</span>&#x00A0;<span 
class="ectt-1200">&#x2019;A&#x2019;,</span>&#x00A0;<span 
class="ectt-1200">IFAIL)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">QLed1c=snLe1s(nbcle-val)</span>

&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">QLed12=snLe1s(nbcle-val2)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DO</span>&#x00A0;<span 
class="ectt-1200">1130,</span>&#x00A0;<span 
class="ectt-1200">i=1,nbcle</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">snLe2s(i)=snLed2(i)</span>
&#x00A0;<br />&#x00A0;<span 
class="ectt-1200">1130</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CONTINUE</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">IFAIL=0</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CALL</span>&#x00A0;<span 
class="ectt-1200">M01CAF(snLe2s,</span>&#x00A0;<span 
class="ectt-1200">1,</span>&#x00A0;<span 
class="ectt-1200">nul,</span>&#x00A0;<span 
class="ectt-1200">&#x2019;A&#x2019;,</span>&#x00A0;<span 
class="ectt-1200">IFAIL)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">QLed2c=snLe2s(nbcle-val)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">QLed22=snLe2s(nbcle-val2)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DO</span>&#x00A0;<span 
class="ectt-1200">1140,</span>&#x00A0;<span 
class="ectt-1200">i=1,nbcle</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">snBDso(i)=stanBD(i)</span>
&#x00A0;<br />&#x00A0;<span 
class="ectt-1200">1140</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CONTINUE</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">IFAIL=0</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CALL</span>&#x00A0;<span 
class="ectt-1200">M01CAF(snBDso,</span>&#x00A0;<span 
class="ectt-1200">1,</span>&#x00A0;<span 
class="ectt-1200">nul,</span>&#x00A0;<span 
class="ectt-1200">&#x2019;A&#x2019;,</span>&#x00A0;<span 
class="ectt-1200">IFAIL)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">QBDcal=snBDso(val)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">QBDca2=snBDso(val2)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DO</span>&#x00A0;<span 
class="ectt-1200">1150,</span>&#x00A0;<span 
class="ectt-1200">i=1,nbcle</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">snADso(i)=stanAD(i)</span>
&#x00A0;<br />&#x00A0;<span 
class="ectt-1200">1150</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CONTINUE</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">IFAIL=0</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CALL</span>&#x00A0;<span 
class="ectt-1200">M01CAF(snADso,</span>&#x00A0;<span 
class="ectt-1200">1,</span>&#x00A0;<span 
class="ectt-1200">nul,</span>&#x00A0;<span 
class="ectt-1200">&#x2019;A&#x2019;,</span>&#x00A0;<span 
class="ectt-1200">IFAIL)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">QADcal=snADso(nbcle-val)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">QADca2=snADso(nbcle-val2)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DO</span>&#x00A0;<span 
class="ectt-1200">1155,</span>&#x00A0;<span 
class="ectt-1200">i=1,nbcle</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">snJBso(i)=stanJB(i)</span>
&#x00A0;<br />&#x00A0;<span 
class="ectt-1200">1155</span>&#x00A0;&#x00A0;<span 
class="ectt-1200">CONTINUE</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">IFAIL=0</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CALL</span>&#x00A0;<span 
class="ectt-1200">M01CAF(snJBso,</span>&#x00A0;<span 
class="ectt-1200">1,</span>&#x00A0;<span 
class="ectt-1200">nul,</span>&#x00A0;<span 
class="ectt-1200">&#x2019;A&#x2019;,</span>&#x00A0;<span 
class="ectt-1200">IFAIL)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">QJBcal=snJBso(nbcle-val)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">QJBca2=snJBso(nbcle-val2)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">On</span>&#x00A0;<span 
class="ectt-1200">calcule</span>&#x00A0;<span 
class="ectt-1200">les</span>&#x00A0;<span 
class="ectt-1200">rangs</span>&#x00A0;<span 
class="ectt-1200">des</span>&#x00A0;<span 
class="ectt-1200">valeurs</span>&#x00A0;<span 
class="ectt-1200">des</span>&#x00A0;<span 
class="ectt-1200">statistiques</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">rgLed1(1)=mini(nbcle,snLed1)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">rgLed1(2)=maxi(nbcle,snLed1)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">rgLed2(1)=mini(nbcle,snLed2)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">rgLed2(2)=maxi(nbcle,snLed2)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">rgBD(1)=mini(nbcle,stanBD)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">rgBD(2)=maxi(nbcle,stanBD)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">rgAD(1)=mini(nbcle,stanAD)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">rgAD(2)=maxi(nbcle,stanAD)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">rgJB(1)=mini(nbcle,stanJB)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">rgJB(2)=maxi(nbcle,stanJB)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">On</span>&#x00A0;<span 
class="ectt-1200">calcule</span>&#x00A0;<span 
class="ectt-1200">les</span>&#x00A0;<span 
class="ectt-1200">moyennes</span>&#x00A0;<span 
class="ectt-1200">et</span>&#x00A0;<span 
class="ectt-1200">ecart-types</span>&#x00A0;<span 
class="ectt-1200">des</span>&#x00A0;<span 
class="ectt-1200">valeurs</span>&#x00A0;<span 
class="ectt-1200">des</span>&#x00A0;<span 
class="ectt-1200">statistiques</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">mecLe1(1)=meanp(nbcle,snLed1)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">mecLe1(2)=DSQRT(var(nbcle,snLed1))</span>

&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">mecLe2(1)=meanp(nbcle,snLed2)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">mecLe2(2)=DSQRT(var(nbcle,snLed2))</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">mecBD(1)=meanp(nbcle,stanBD)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">mecBD(2)=DSQRT(var(nbcle,stanBD))</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">mecAD(1)=meanp(nbcle,stanAD)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">mecAD(2)=DSQRT(var(nbcle,stanAD))</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">mecJB(1)=meanp(nbcle,stanJB)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">mecJB(2)=DSQRT(var(nbcle,stanJB))</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">On</span>&#x00A0;<span 
class="ectt-1200">calcule</span>&#x00A0;<span 
class="ectt-1200">le</span>&#x00A0;<span 
class="ectt-1200">nombre</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">fois</span>&#x00A0;<span 
class="ectt-1200">ou</span>&#x00A0;<span 
class="ectt-1200">chaque</span>&#x00A0;<span 
class="ectt-1200">polynome</span>&#x00A0;<span 
class="ectt-1200">a</span>&#x00A0;<span 
class="ectt-1200">ete</span>&#x00A0;<span 
class="ectt-1200">choisi</span>&#x00A0;<span 
class="ectt-1200">par</span>&#x00A0;<span 
class="ectt-1200">les</span>&#x00A0;<span 
class="ectt-1200">procedures</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">Ledwina</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DO</span>&#x00A0;<span 
class="ectt-1200">1160,</span>&#x00A0;<span 
class="ectt-1200">i=1,10</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">frKLe1(i)=0</span>
&#x00A0;<br />&#x00A0;<span 
class="ectt-1200">1160</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CONTINUE</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DO</span>&#x00A0;<span 
class="ectt-1200">1180,</span>&#x00A0;<span 
class="ectt-1200">i=1,10</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DO</span>&#x00A0;<span 
class="ectt-1200">1170,</span>&#x00A0;<span 
class="ectt-1200">k=1,nbcle</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">IF</span>&#x00A0;<span 
class="ectt-1200">(KoLed1(k)</span>&#x00A0;<span 
class="ectt-1200">.EQ.</span>&#x00A0;<span 
class="ectt-1200">i)</span>&#x00A0;<span 
class="ectt-1200">frKLe1(i)=frKLe1(i)+1</span>
&#x00A0;<br />&#x00A0;<span 
class="ectt-1200">1170</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CONTINUE</span>
&#x00A0;<br />&#x00A0;<span 
class="ectt-1200">1180</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CONTINUE</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DO</span>&#x00A0;<span 
class="ectt-1200">1190,</span>&#x00A0;<span 
class="ectt-1200">i=1,10</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">frKLe2(i)=0</span>
&#x00A0;<br />&#x00A0;<span 
class="ectt-1200">1190</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CONTINUE</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DO</span>&#x00A0;<span 
class="ectt-1200">1210,</span>&#x00A0;<span 
class="ectt-1200">i=1,10</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DO</span>&#x00A0;<span 
class="ectt-1200">1200,</span>&#x00A0;<span 
class="ectt-1200">k=1,nbcle</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">IF</span>&#x00A0;<span 
class="ectt-1200">(KoLed2(k)</span>&#x00A0;<span 
class="ectt-1200">.EQ.</span>&#x00A0;<span 
class="ectt-1200">i)</span>&#x00A0;<span 
class="ectt-1200">frKLe2(i)=frKLe2(i)+1</span>
&#x00A0;<br />&#x00A0;<span 
class="ectt-1200">1200</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CONTINUE</span>
&#x00A0;<br />&#x00A0;<span 
class="ectt-1200">1210</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CONTINUE</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DO</span>&#x00A0;<span 
class="ectt-1200">1220,</span>&#x00A0;<span 
class="ectt-1200">i=1,nbcle</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">matric(i,1)=i</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">matric(i,2)=statn(i,1)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">matric(i,3)=statn(i,2)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">matric(i,4)=statn(i,3)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">matric(i,5)=statn(i,4)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">matric(i,6)=statn(i,5)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">matric(i,7)=statn(i,6)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">matric(i,8)=statn(i,7)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">matric(i,9)=statn(i,8)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">matric(i,10)=statn(i,9)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">matric(i,11)=statn(i,10)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">matric(i,12)=KoLed1(i)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">matric(i,13)=snLed1(i)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">matric(i,14)=KoLed2(i)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">matric(i,15)=snLed2(i)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">matric(i,16)=stanBD(i)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">matric(i,17)=stanAD(i)</span>

&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">matric(i,18)=stanJB(i)</span>
&#x00A0;<br />&#x00A0;<span 
class="ectt-1200">1220</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CONTINUE</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">On</span>&#x00A0;<span 
class="ectt-1200">ecrit</span>&#x00A0;<span 
class="ectt-1200">les</span>&#x00A0;<span 
class="ectt-1200">resultats</span>&#x00A0;<span 
class="ectt-1200">dans</span>&#x00A0;<span 
class="ectt-1200">resultat.ijkl.xc</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">OPEN(UNIT=17,</span>&#x00A0;<span 
class="ectt-1200">FILE=filexc,</span>&#x00A0;<span 
class="ectt-1200">STATUS=&#x2019;NEW&#x2019;)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(17,*)</span>&#x00A0;<span 
class="ectt-1200">&#x2019;numero-simul</span>&#x00A0;<span 
class="ectt-1200">R1</span>&#x00A0;<span 
class="ectt-1200">R2</span>&#x00A0;<span 
class="ectt-1200">R3</span>&#x00A0;<span 
class="ectt-1200">R4</span>&#x00A0;<span 
class="ectt-1200">R5</span>&#x00A0;<span 
class="ectt-1200">R6</span>&#x00A0;<span 
class="ectt-1200">R7</span>&#x00A0;<span 
class="ectt-1200">R8</span>&#x00A0;<span 
class="ectt-1200">R9</span>&#x00A0;<span 
class="ectt-1200">R10</span>&#x00A0;<span 
class="ectt-1200">Kchap1</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">+</span>&#x00A0;<span 
class="ectt-1200">Ledwi1</span>&#x00A0;<span 
class="ectt-1200">Kchap2</span>&#x00A0;<span 
class="ectt-1200">Ledwi2</span>&#x00A0;<span 
class="ectt-1200">BD</span>&#x00A0;<span 
class="ectt-1200">AD</span>&#x00A0;<span 
class="ectt-1200">JB&#x2019;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DO</span>&#x00A0;<span 
class="ectt-1200">1230,</span>&#x00A0;<span 
class="ectt-1200">i=1,nbcle</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(17,1235)</span>&#x00A0;<span 
class="ectt-1200">(matric(i,k),k=1,18)</span>
&#x00A0;<br /><span 
class="ectt-1200">1230</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CONTINUE</span>
&#x00A0;<br /><span 
class="ectt-1200">1235</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">FORMAT(F6.0,10F14.8,F6.0,F14.8,F6.0,4F14.8)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CLOSE(UNIT=17)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">On</span>&#x00A0;<span 
class="ectt-1200">ecrit</span>&#x00A0;<span 
class="ectt-1200">quelques</span>&#x00A0;<span 
class="ectt-1200">resultats</span>&#x00A0;<span 
class="ectt-1200">dans</span>&#x00A0;<span 
class="ectt-1200">para.ijkl</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">OPEN(UNIT=14,</span>&#x00A0;<span 
class="ectt-1200">FILE=paramf</span>&#x00A0;<span 
class="ectt-1200">,</span>&#x00A0;<span 
class="ectt-1200">STATUS=&#x2019;OLD&#x2019;,</span>&#x00A0;<span 
class="ectt-1200">ACCESS=&#x2019;append&#x2019;</span>&#x00A0;<span 
class="ectt-1200">)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(14,*)</span>&#x00A0;<span 
class="ectt-1200">&#x2019;Puiss</span>&#x00A0;<span 
class="ectt-1200">avec</span>&#x00A0;<span 
class="ectt-1200">alpha=&#x2019;,alpha,&#x2019;:&#x2019;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(14,*)</span>&#x00A0;<span 
class="ectt-1200">Puiss</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(14,*)</span>&#x00A0;<span 
class="ectt-1200">&#x2019;Puiss</span>&#x00A0;<span 
class="ectt-1200">avec</span>&#x00A0;<span 
class="ectt-1200">alpha2=&#x2019;,alpha2,&#x2019;:&#x2019;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(14,*)</span>&#x00A0;<span 
class="ectt-1200">Puiss2</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(14,*)</span>&#x00A0;<span 
class="ectt-1200">&#x2019;Quantutilises</span>&#x00A0;<span 
class="ectt-1200">avec</span>&#x00A0;<span 
class="ectt-1200">alpha=&#x2019;,alpha,&#x2019;:&#x2019;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(14,*)</span>&#x00A0;<span 
class="ectt-1200">Qtutil</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(14,*)</span>&#x00A0;<span 
class="ectt-1200">&#x2019;Quantutilises</span>&#x00A0;<span 
class="ectt-1200">avec</span>&#x00A0;<span 
class="ectt-1200">alpha2=&#x2019;,alpha2,&#x2019;:&#x2019;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(14,*)</span>&#x00A0;<span 
class="ectt-1200">Qtuti2</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(14,*)</span>&#x00A0;<span 
class="ectt-1200">&#x2019;Quantcalcules</span>&#x00A0;<span 
class="ectt-1200">avec</span>&#x00A0;<span 
class="ectt-1200">alpha=&#x2019;,</span>&#x00A0;<span 
class="ectt-1200">alpha,</span>&#x00A0;<span 
class="ectt-1200">&#x2019;:&#x2019;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(14,*)</span>&#x00A0;<span 
class="ectt-1200">Qucalc</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(14,*)</span>&#x00A0;<span 
class="ectt-1200">&#x2019;Quantcalcules</span>&#x00A0;<span 
class="ectt-1200">avec</span>&#x00A0;<span 
class="ectt-1200">alpha2=&#x2019;,alpha2,</span>&#x00A0;<span 
class="ectt-1200">&#x2019;:&#x2019;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(14,*)</span>&#x00A0;<span 
class="ectt-1200">Qucal2</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(14,*)</span>&#x00A0;<span 
class="ectt-1200">&#x2019;QuantLedwi1utilise</span>&#x00A0;<span 
class="ectt-1200">avec</span>&#x00A0;<span 
class="ectt-1200">alpha=&#x2019;,</span>&#x00A0;<span 
class="ectt-1200">alpha,</span>&#x00A0;<span 
class="ectt-1200">&#x2019;:&#x2019;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(14,*)</span>&#x00A0;<span 
class="ectt-1200">QLed1u</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(14,*)</span>&#x00A0;<span 
class="ectt-1200">&#x2019;QuantLedwi1utilise</span>&#x00A0;<span 
class="ectt-1200">avec</span>&#x00A0;<span 
class="ectt-1200">alpha2=&#x2019;,</span>&#x00A0;<span 
class="ectt-1200">alpha2,</span>&#x00A0;<span 
class="ectt-1200">&#x2019;:&#x2019;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(14,*)</span>&#x00A0;<span 
class="ectt-1200">QLe12u</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(14,*)</span>&#x00A0;<span 
class="ectt-1200">&#x2019;QuantLedwi1calcule</span>&#x00A0;<span 
class="ectt-1200">avec</span>&#x00A0;<span 
class="ectt-1200">alpha=&#x2019;,</span>&#x00A0;<span 
class="ectt-1200">alpha,</span>&#x00A0;<span 
class="ectt-1200">&#x2019;:&#x2019;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(14,*)</span>&#x00A0;<span 
class="ectt-1200">QLed1c</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(14,*)</span>&#x00A0;<span 
class="ectt-1200">&#x2019;QuantLedwi1calcule</span>&#x00A0;<span 
class="ectt-1200">avec</span>&#x00A0;<span 
class="ectt-1200">alpha2=&#x2019;,</span>&#x00A0;<span 
class="ectt-1200">alpha2,</span>&#x00A0;<span 
class="ectt-1200">&#x2019;:&#x2019;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(14,*)</span>&#x00A0;<span 
class="ectt-1200">QLed12</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(14,*)</span>&#x00A0;<span 
class="ectt-1200">&#x2019;PuissLedwi1</span>&#x00A0;<span 
class="ectt-1200">avec</span>&#x00A0;<span 
class="ectt-1200">alpha=&#x2019;,</span>&#x00A0;<span 
class="ectt-1200">alpha,</span>&#x00A0;<span 
class="ectt-1200">&#x2019;:&#x2019;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(14,*)</span>&#x00A0;<span 
class="ectt-1200">PsLed1</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(14,*)</span>&#x00A0;<span 
class="ectt-1200">&#x2019;PuissLedwi1</span>&#x00A0;<span 
class="ectt-1200">avec</span>&#x00A0;<span 
class="ectt-1200">alpha2=&#x2019;,</span>&#x00A0;<span 
class="ectt-1200">alpha2,</span>&#x00A0;<span 
class="ectt-1200">&#x2019;:&#x2019;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(14,*)</span>&#x00A0;<span 
class="ectt-1200">PsLe12</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(14,*)</span>&#x00A0;<span 
class="ectt-1200">&#x2019;freqKLedwi1:&#x2019;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(14,*)</span>&#x00A0;<span 
class="ectt-1200">frKLe1</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(14,*)</span>&#x00A0;<span 
class="ectt-1200">&#x2019;QuantLedwi2utilise</span>&#x00A0;<span 
class="ectt-1200">avec</span>&#x00A0;<span 
class="ectt-1200">alpha=&#x2019;,</span>&#x00A0;<span 
class="ectt-1200">alpha,</span>&#x00A0;<span 
class="ectt-1200">&#x2019;:&#x2019;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(14,*)</span>&#x00A0;<span 
class="ectt-1200">QLed2u</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(14,*)</span>&#x00A0;<span 
class="ectt-1200">&#x2019;QuantLedwi2utilise</span>&#x00A0;<span 
class="ectt-1200">avec</span>&#x00A0;<span 
class="ectt-1200">alpha2=&#x2019;,</span>&#x00A0;<span 
class="ectt-1200">alpha2,</span>&#x00A0;<span 
class="ectt-1200">&#x2019;:&#x2019;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(14,*)</span>&#x00A0;<span 
class="ectt-1200">QLe22u</span>

&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(14,*)</span>&#x00A0;<span 
class="ectt-1200">&#x2019;QuantLedwi2calcule</span>&#x00A0;<span 
class="ectt-1200">avec</span>&#x00A0;<span 
class="ectt-1200">alpha=&#x2019;,</span>&#x00A0;<span 
class="ectt-1200">alpha,</span>&#x00A0;<span 
class="ectt-1200">&#x2019;:&#x2019;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(14,*)</span>&#x00A0;<span 
class="ectt-1200">QLed2c</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(14,*)</span>&#x00A0;<span 
class="ectt-1200">&#x2019;QuantLedwi2calcule</span>&#x00A0;<span 
class="ectt-1200">avec</span>&#x00A0;<span 
class="ectt-1200">alpha2=&#x2019;,</span>&#x00A0;<span 
class="ectt-1200">alpha2,</span>&#x00A0;<span 
class="ectt-1200">&#x2019;:&#x2019;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(14,*)</span>&#x00A0;<span 
class="ectt-1200">QLed22</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(14,*)</span>&#x00A0;<span 
class="ectt-1200">&#x2019;PuissLedwi2</span>&#x00A0;<span 
class="ectt-1200">avec</span>&#x00A0;<span 
class="ectt-1200">alpha=&#x2019;,</span>&#x00A0;<span 
class="ectt-1200">alpha,</span>&#x00A0;<span 
class="ectt-1200">&#x2019;:&#x2019;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(14,*)</span>&#x00A0;<span 
class="ectt-1200">PsLed2</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(14,*)</span>&#x00A0;<span 
class="ectt-1200">&#x2019;PuissLedwi2</span>&#x00A0;<span 
class="ectt-1200">avec</span>&#x00A0;<span 
class="ectt-1200">alpha2=&#x2019;,</span>&#x00A0;<span 
class="ectt-1200">alpha2,</span>&#x00A0;<span 
class="ectt-1200">&#x2019;:&#x2019;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(14,*)</span>&#x00A0;<span 
class="ectt-1200">PsLe22</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(14,*)</span>&#x00A0;<span 
class="ectt-1200">&#x2019;freqKLedwi2:&#x2019;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(14,*)</span>&#x00A0;<span 
class="ectt-1200">frKLe2</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(14,*)</span>&#x00A0;<span 
class="ectt-1200">&#x2019;QuantBDutilise</span>&#x00A0;<span 
class="ectt-1200">avec</span>&#x00A0;<span 
class="ectt-1200">alpha=&#x2019;,</span>&#x00A0;<span 
class="ectt-1200">alpha,</span>&#x00A0;<span 
class="ectt-1200">&#x2019;:&#x2019;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(14,*)</span>&#x00A0;<span 
class="ectt-1200">QBDu</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(14,*)</span>&#x00A0;<span 
class="ectt-1200">&#x2019;QuantBDutilise</span>&#x00A0;<span 
class="ectt-1200">avec</span>&#x00A0;<span 
class="ectt-1200">alpha2=&#x2019;,</span>&#x00A0;<span 
class="ectt-1200">alpha2,</span>&#x00A0;<span 
class="ectt-1200">&#x2019;:&#x2019;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(14,*)</span>&#x00A0;<span 
class="ectt-1200">QBD2u</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(14,*)</span>&#x00A0;<span 
class="ectt-1200">&#x2019;QuantBDcalcule</span>&#x00A0;<span 
class="ectt-1200">avec</span>&#x00A0;<span 
class="ectt-1200">alpha=&#x2019;,</span>&#x00A0;<span 
class="ectt-1200">alpha,</span>&#x00A0;<span 
class="ectt-1200">&#x2019;:&#x2019;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(14,*)</span>&#x00A0;<span 
class="ectt-1200">QBDcal</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(14,*)</span>&#x00A0;<span 
class="ectt-1200">&#x2019;QuantBDcalcule</span>&#x00A0;<span 
class="ectt-1200">avec</span>&#x00A0;<span 
class="ectt-1200">alpha2=&#x2019;,</span>&#x00A0;<span 
class="ectt-1200">alpha2,</span>&#x00A0;<span 
class="ectt-1200">&#x2019;:&#x2019;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(14,*)</span>&#x00A0;<span 
class="ectt-1200">QBDca2</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(14,*)</span>&#x00A0;<span 
class="ectt-1200">&#x2019;PuissBD</span>&#x00A0;<span 
class="ectt-1200">avec</span>&#x00A0;<span 
class="ectt-1200">alpha=&#x2019;,</span>&#x00A0;<span 
class="ectt-1200">alpha,</span>&#x00A0;<span 
class="ectt-1200">&#x2019;:&#x2019;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(14,*)</span>&#x00A0;<span 
class="ectt-1200">PuisBD</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(14,*)</span>&#x00A0;<span 
class="ectt-1200">&#x2019;PuissBD</span>&#x00A0;<span 
class="ectt-1200">avec</span>&#x00A0;<span 
class="ectt-1200">alpha2=&#x2019;,</span>&#x00A0;<span 
class="ectt-1200">alpha2,</span>&#x00A0;<span 
class="ectt-1200">&#x2019;:&#x2019;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(14,*)</span>&#x00A0;<span 
class="ectt-1200">PuiBD2</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(14,*)</span>&#x00A0;<span 
class="ectt-1200">&#x2019;QuantADutilise</span>&#x00A0;<span 
class="ectt-1200">avec</span>&#x00A0;<span 
class="ectt-1200">alpha=&#x2019;,</span>&#x00A0;<span 
class="ectt-1200">alpha,</span>&#x00A0;<span 
class="ectt-1200">&#x2019;:&#x2019;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(14,*)</span>&#x00A0;<span 
class="ectt-1200">QADu</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(14,*)</span>&#x00A0;<span 
class="ectt-1200">&#x2019;QuantADutilise</span>&#x00A0;<span 
class="ectt-1200">avec</span>&#x00A0;<span 
class="ectt-1200">alpha2=&#x2019;,</span>&#x00A0;<span 
class="ectt-1200">alpha2,</span>&#x00A0;<span 
class="ectt-1200">&#x2019;:&#x2019;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(14,*)</span>&#x00A0;<span 
class="ectt-1200">QAD2u</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(14,*)</span>&#x00A0;<span 
class="ectt-1200">&#x2019;QuantADcalcule</span>&#x00A0;<span 
class="ectt-1200">avec</span>&#x00A0;<span 
class="ectt-1200">alpha=&#x2019;,</span>&#x00A0;<span 
class="ectt-1200">alpha,</span>&#x00A0;<span 
class="ectt-1200">&#x2019;:&#x2019;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(14,*)</span>&#x00A0;<span 
class="ectt-1200">QADcal</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(14,*)</span>&#x00A0;<span 
class="ectt-1200">&#x2019;QuantADcalcule</span>&#x00A0;<span 
class="ectt-1200">avec</span>&#x00A0;<span 
class="ectt-1200">alpha2=&#x2019;,</span>&#x00A0;<span 
class="ectt-1200">alpha2,</span>&#x00A0;<span 
class="ectt-1200">&#x2019;:&#x2019;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(14,*)</span>&#x00A0;<span 
class="ectt-1200">QADca2</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(14,*)</span>&#x00A0;<span 
class="ectt-1200">&#x2019;PuissAD</span>&#x00A0;<span 
class="ectt-1200">avec</span>&#x00A0;<span 
class="ectt-1200">alpha=&#x2019;,</span>&#x00A0;<span 
class="ectt-1200">alpha,</span>&#x00A0;<span 
class="ectt-1200">&#x2019;:&#x2019;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(14,*)</span>&#x00A0;<span 
class="ectt-1200">PuisAD</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(14,*)</span>&#x00A0;<span 
class="ectt-1200">&#x2019;PuissAD</span>&#x00A0;<span 
class="ectt-1200">avec</span>&#x00A0;<span 
class="ectt-1200">alpha2=&#x2019;,</span>&#x00A0;<span 
class="ectt-1200">alpha2,</span>&#x00A0;<span 
class="ectt-1200">&#x2019;:&#x2019;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(14,*)</span>&#x00A0;<span 
class="ectt-1200">PuiAD2</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(14,*)</span>&#x00A0;<span 
class="ectt-1200">&#x2019;QuantJButilise</span>&#x00A0;<span 
class="ectt-1200">avec</span>&#x00A0;<span 
class="ectt-1200">alpha=&#x2019;,</span>&#x00A0;<span 
class="ectt-1200">alpha,</span>&#x00A0;<span 
class="ectt-1200">&#x2019;:&#x2019;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(14,*)</span>&#x00A0;<span 
class="ectt-1200">QJBu</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(14,*)</span>&#x00A0;<span 
class="ectt-1200">&#x2019;QuantJButilise</span>&#x00A0;<span 
class="ectt-1200">avec</span>&#x00A0;<span 
class="ectt-1200">alpha2=&#x2019;,</span>&#x00A0;<span 
class="ectt-1200">alpha2,</span>&#x00A0;<span 
class="ectt-1200">&#x2019;:&#x2019;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(14,*)</span>&#x00A0;<span 
class="ectt-1200">QJB2u</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(14,*)</span>&#x00A0;<span 
class="ectt-1200">&#x2019;QuantJBcalcule</span>&#x00A0;<span 
class="ectt-1200">avec</span>&#x00A0;<span 
class="ectt-1200">alpha=&#x2019;,</span>&#x00A0;<span 
class="ectt-1200">alpha,</span>&#x00A0;<span 
class="ectt-1200">&#x2019;:&#x2019;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(14,*)</span>&#x00A0;<span 
class="ectt-1200">QJBcal</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(14,*)</span>&#x00A0;<span 
class="ectt-1200">&#x2019;QuantJBcalcule</span>&#x00A0;<span 
class="ectt-1200">avec</span>&#x00A0;<span 
class="ectt-1200">alpha2=&#x2019;,</span>&#x00A0;<span 
class="ectt-1200">alpha2,</span>&#x00A0;<span 
class="ectt-1200">&#x2019;:&#x2019;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(14,*)</span>&#x00A0;<span 
class="ectt-1200">QJBca2</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(14,*)</span>&#x00A0;<span 
class="ectt-1200">&#x2019;PuissJB</span>&#x00A0;<span 
class="ectt-1200">avec</span>&#x00A0;<span 
class="ectt-1200">alpha=&#x2019;,</span>&#x00A0;<span 
class="ectt-1200">alpha,</span>&#x00A0;<span 
class="ectt-1200">&#x2019;:&#x2019;</span>

&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(14,*)</span>&#x00A0;<span 
class="ectt-1200">PuisJB</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(14,*)</span>&#x00A0;<span 
class="ectt-1200">&#x2019;PuissJB</span>&#x00A0;<span 
class="ectt-1200">avec</span>&#x00A0;<span 
class="ectt-1200">alpha2=&#x2019;,</span>&#x00A0;<span 
class="ectt-1200">alpha2,</span>&#x00A0;<span 
class="ectt-1200">&#x2019;:&#x2019;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(14,*)</span>&#x00A0;<span 
class="ectt-1200">PuiJB2</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CLOSE(UNIT=14)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">On</span>&#x00A0;<span 
class="ectt-1200">ecrit</span>&#x00A0;<span 
class="ectt-1200">les</span>&#x00A0;<span 
class="ectt-1200">resultats</span>&#x00A0;<span 
class="ectt-1200">dans</span>&#x00A0;<span 
class="ectt-1200">tableau.txt</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">OPEN(UNIT=13,</span>&#x00A0;<span 
class="ectt-1200">FILE=filtab</span>&#x00A0;<span 
class="ectt-1200">,</span>&#x00A0;<span 
class="ectt-1200">STATUS=&#x2019;OLD&#x2019;</span>&#x00A0;<span 
class="ectt-1200">,</span>&#x00A0;<span 
class="ectt-1200">ACCESS=&#x2019;append&#x2019;)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(13,1500)</span>&#x00A0;<span 
class="ectt-1200">nbcle,</span>&#x00A0;<span 
class="ectt-1200">nT,</span>&#x00A0;<span 
class="ectt-1200">p,</span>&#x00A0;<span 
class="ectt-1200">q,loi,alpha,</span>&#x00A0;<span 
class="ectt-1200">phi(1),</span>&#x00A0;<span 
class="ectt-1200">phi(2),</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">+</span>&#x00A0;<span 
class="ectt-1200">teta(1),</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">+</span>&#x00A0;<span 
class="ectt-1200">teta(2),</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">+</span>&#x00A0;<span 
class="ectt-1200">Puiss(1),</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">+</span>&#x00A0;<span 
class="ectt-1200">Puiss(2),</span>&#x00A0;<span 
class="ectt-1200">Puiss(3),</span>&#x00A0;<span 
class="ectt-1200">Puiss(4),</span>&#x00A0;<span 
class="ectt-1200">Puiss(5),</span>&#x00A0;<span 
class="ectt-1200">PsLed1,</span>&#x00A0;<span 
class="ectt-1200">PsLed2,</span>&#x00A0;<span 
class="ectt-1200">PuisBD,</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">+</span>&#x00A0;<span 
class="ectt-1200">PuisAD,</span>&#x00A0;<span 
class="ectt-1200">PuisJB,</span>&#x00A0;<span 
class="ectt-1200">QLed1c,</span>&#x00A0;<span 
class="ectt-1200">QLed2c</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(13,1500)</span>&#x00A0;<span 
class="ectt-1200">nbcle,</span>&#x00A0;<span 
class="ectt-1200">nT,</span>&#x00A0;<span 
class="ectt-1200">p,</span>&#x00A0;<span 
class="ectt-1200">q,loi,alpha2,</span>&#x00A0;<span 
class="ectt-1200">phi(1),</span>&#x00A0;<span 
class="ectt-1200">phi(2),</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">+</span>&#x00A0;<span 
class="ectt-1200">teta(1)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">+</span>&#x00A0;<span 
class="ectt-1200">,</span>&#x00A0;<span 
class="ectt-1200">teta(2),</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">+</span>&#x00A0;<span 
class="ectt-1200">Puiss2(1),</span>&#x00A0;<span 
class="ectt-1200">Puiss2(2),</span>&#x00A0;<span 
class="ectt-1200">Puiss2(3),</span>&#x00A0;<span 
class="ectt-1200">Puiss2(4),</span>&#x00A0;<span 
class="ectt-1200">Puiss2(5),</span>&#x00A0;<span 
class="ectt-1200">PsLe12,</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">+</span>&#x00A0;<span 
class="ectt-1200">PsLe22,</span>&#x00A0;<span 
class="ectt-1200">PuiBD2,</span>&#x00A0;<span 
class="ectt-1200">PuiAD2,</span>&#x00A0;<span 
class="ectt-1200">PuiJB2,</span>&#x00A0;<span 
class="ectt-1200">QLed12,</span>&#x00A0;<span 
class="ectt-1200">QLed22</span>
&#x00A0;<br />&#x00A0;<span 
class="ectt-1200">1500</span>&#x00A0;<span 
class="ectt-1200">FORMAT(I6,I4,2I2,I3,F7.3,16F7.2)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CLOSE(UNIT=13)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">END</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">---------------------------------------------------------------------</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Fin</span>&#x00A0;<span 
class="ectt-1200">du</span>&#x00A0;<span 
class="ectt-1200">programme</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">---------------------------------------------------------------------</span>
   </div>
   <h3 class="sectionHead"><span class="titlemark">A.8. </span> <a 
  name="x1-51000A.8"></a>Les programmes simulARMApq.f</h3>
<!--l. 323--><p class="noindent"><span 
class="ecbx-1200">Programme simulaAR.f</span> </p><div class="verbatiminput">
<span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Debut-Commentaires</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Nom</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">la</span>&#x00A0;<span 
class="ectt-1200">sous-routine:</span>&#x00A0;<span 
class="ectt-1200">simAR</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Entrees:</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">p</span>&#x00A0;<span 
class="ectt-1200">(entier)</span>&#x00A0;<span 
class="ectt-1200">ordre</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">la</span>&#x00A0;<span 
class="ectt-1200">partie</span>&#x00A0;<span 
class="ectt-1200">AR</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">n</span>&#x00A0;<span 
class="ectt-1200">(entier)</span>&#x00A0;<span 
class="ectt-1200">longueur</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">la</span>&#x00A0;<span 
class="ectt-1200">serie</span>&#x00A0;<span 
class="ectt-1200">souhaitee</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">marret</span>&#x00A0;<span 
class="ectt-1200">(entier)</span>&#x00A0;<span 
class="ectt-1200">rang</span>&#x00A0;<span 
class="ectt-1200">d&#x2019;arret</span>&#x00A0;<span 
class="ectt-1200">dans</span>&#x00A0;<span 
class="ectt-1200">la</span>&#x00A0;<span 
class="ectt-1200">random</span>&#x00A0;<span 
class="ectt-1200">shock</span>&#x00A0;<span 
class="ectt-1200">method</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Mind</span>&#x00A0;<span 
class="ectt-1200">(entier)</span>&#x00A0;<span 
class="ectt-1200">induction</span>&#x00A0;<span 
class="ectt-1200">period</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">loi</span>&#x00A0;<span 
class="ectt-1200">(entier)</span>&#x00A0;<span 
class="ectt-1200">specifie</span>&#x00A0;<span 
class="ectt-1200">la</span>&#x00A0;<span 
class="ectt-1200">loi</span>&#x00A0;<span 
class="ectt-1200">des</span>&#x00A0;<span 
class="ectt-1200">erreurs</span>&#x00A0;<span 
class="ectt-1200">ou</span>&#x00A0;<span 
class="ectt-1200">innovations</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">df1</span>&#x00A0;<span 
class="ectt-1200">(entier)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">df2</span>&#x00A0;<span 
class="ectt-1200">(entier)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">lambda</span>&#x00A0;<span 
class="ectt-1200">(double)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">loi5b,</span>&#x00A0;<span 
class="ectt-1200">loi5k,</span>&#x00A0;<span 
class="ectt-1200">loi6p,</span>&#x00A0;<span 
class="ectt-1200">loi6q</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">loi7g,</span>&#x00A0;<span 
class="ectt-1200">loi7d,</span>&#x00A0;<span 
class="ectt-1200">loi8p,</span>&#x00A0;<span 
class="ectt-1200">loi8q,</span>&#x00A0;<span 
class="ectt-1200">loi9a,</span>&#x00A0;<span 
class="ectt-1200">loi9b</span>

&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">loi10b,</span>&#x00A0;<span 
class="ectt-1200">loi10l,</span>&#x00A0;<span 
class="ectt-1200">loi11a,</span>&#x00A0;<span 
class="ectt-1200">loi11k,</span>&#x00A0;<span 
class="ectt-1200">loi13g,</span>&#x00A0;<span 
class="ectt-1200">loi13d</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">loi14l,</span>&#x00A0;<span 
class="ectt-1200">loi16p,</span>&#x00A0;<span 
class="ectt-1200">loi16d,</span>&#x00A0;<span 
class="ectt-1200">loi17p,</span>&#x00A0;<span 
class="ectt-1200">loi17m</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">loi18g,</span>&#x00A0;<span 
class="ectt-1200">loi18d,</span>&#x00A0;<span 
class="ectt-1200">loi19a,</span>&#x00A0;<span 
class="ectt-1200">loi19b</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Wtip</span>&#x00A0;<span 
class="ectt-1200">(vecteur,</span>&#x00A0;<span 
class="ectt-1200">double)</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">longeur</span>&#x00A0;<span 
class="ectt-1200">p</span>&#x00A0;<span 
class="ectt-1200">qui</span>&#x00A0;<span 
class="ectt-1200">contiendra</span>&#x00A0;<span 
class="ectt-1200">les</span>&#x00A0;<span 
class="ectt-1200">p</span>&#x00A0;<span 
class="ectt-1200">donnees</span>&#x00A0;<span 
class="ectt-1200">initiales</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">la</span>&#x00A0;<span 
class="ectt-1200">serie</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">shocks</span>&#x00A0;<span 
class="ectt-1200">(vecteur,</span>&#x00A0;<span 
class="ectt-1200">double)</span>&#x00A0;<span 
class="ectt-1200">des</span>&#x00A0;<span 
class="ectt-1200">marret+p</span>&#x00A0;<span 
class="ectt-1200">innovations</span>&#x00A0;<span 
class="ectt-1200">genere</span>&#x00A0;<span 
class="ectt-1200">par</span>&#x00A0;<span 
class="ectt-1200">shock.f</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">psi</span>&#x00A0;<span 
class="ectt-1200">(vecteur,</span>&#x00A0;<span 
class="ectt-1200">double)</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">longeur</span>&#x00A0;<span 
class="ectt-1200">marret+1</span>&#x00A0;<span 
class="ectt-1200">tel</span>&#x00A0;<span 
class="ectt-1200">que</span>&#x00A0;<span 
class="ectt-1200">defini</span>&#x00A0;<span 
class="ectt-1200">dans</span>&#x00A0;<span 
class="ectt-1200">Burn,</span>&#x00A0;<span 
class="ectt-1200">calcule</span>&#x00A0;<span 
class="ectt-1200">par</span>&#x00A0;<span 
class="ectt-1200">ARpsi.f</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">phi</span>&#x00A0;<span 
class="ectt-1200">(vecteur,</span>&#x00A0;<span 
class="ectt-1200">double)</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">longueur</span>&#x00A0;<span 
class="ectt-1200">p</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">phi2</span>&#x00A0;<span 
class="ectt-1200">(vecteur,</span>&#x00A0;<span 
class="ectt-1200">double)</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">longueur</span>&#x00A0;<span 
class="ectt-1200">marret</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">YtpMn</span>&#x00A0;<span 
class="ectt-1200">(vecteur,</span>&#x00A0;<span 
class="ectt-1200">double)</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">longueur</span>&#x00A0;<span 
class="ectt-1200">p+Mind+n</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Atn</span>&#x00A0;<span 
class="ectt-1200">(vecteur,</span>&#x00A0;<span 
class="ectt-1200">double)</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">longueur</span>&#x00A0;<span 
class="ectt-1200">n+Mind</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">EspSU</span>&#x00A0;<span 
class="ectt-1200">(double)</span>&#x00A0;<span 
class="ectt-1200">:</span>&#x00A0;<span 
class="ectt-1200">esperance</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">la</span>&#x00A0;<span 
class="ectt-1200">loi</span>&#x00A0;<span 
class="ectt-1200">SU</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">EspSB</span>&#x00A0;<span 
class="ectt-1200">(double)</span>&#x00A0;<span 
class="ectt-1200">:</span>&#x00A0;<span 
class="ectt-1200">esperance</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">la</span>&#x00A0;<span 
class="ectt-1200">loi</span>&#x00A0;<span 
class="ectt-1200">S</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">EspS</span>&#x00A0;<span 
class="ectt-1200">(double)</span>&#x00A0;<span 
class="ectt-1200">:</span>&#x00A0;<span 
class="ectt-1200">esperance</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">la</span>&#x00A0;<span 
class="ectt-1200">loi</span>&#x00A0;<span 
class="ectt-1200">S</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Sorties:</span>&#x00A0;<span 
class="ectt-1200">void</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Description:</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Ce</span>&#x00A0;<span 
class="ectt-1200">programme</span>&#x00A0;<span 
class="ectt-1200">realise</span>&#x00A0;<span 
class="ectt-1200">les</span>&#x00A0;<span 
class="ectt-1200">etapes</span>&#x00A0;<span 
class="ectt-1200">2</span>&#x00A0;<span 
class="ectt-1200">et</span>&#x00A0;<span 
class="ectt-1200">3</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">Simulation</span>&#x00A0;<span 
class="ectt-1200">Algorithm</span>&#x00A0;<span 
class="ectt-1200">1,</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">l&#x2019;article</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">Burn</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Cette</span>&#x00A0;<span 
class="ectt-1200">sous-routine</span>&#x00A0;<span 
class="ectt-1200">remplace</span>&#x00A0;<span 
class="ectt-1200">le</span>&#x00A0;<span 
class="ectt-1200">vecteur</span>&#x00A0;<span 
class="ectt-1200">YtpMn</span>&#x00A0;<span 
class="ectt-1200">en</span>&#x00A0;<span 
class="ectt-1200">entree</span>&#x00A0;<span 
class="ectt-1200">par</span>&#x00A0;<span 
class="ectt-1200">p+M+n</span>&#x00A0;<span 
class="ectt-1200">donnees</span>&#x00A0;<span 
class="ectt-1200">simulees</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">d&#x2019;un</span>&#x00A0;<span 
class="ectt-1200">modele</span>&#x00A0;<span 
class="ectt-1200">AR(p)</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">vecteur</span>&#x00A0;<span 
class="ectt-1200">d&#x2019;innovations</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">loi</span>&#x00A0;<span 
class="ectt-1200">donnee</span>&#x00A0;<span 
class="ectt-1200">par</span>&#x00A0;<span 
class="ectt-1200">l&#x2019;entier</span>&#x00A0;<span 
class="ectt-1200">loi</span>&#x00A0;<span 
class="ectt-1200">,</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">les</span>&#x00A0;<span 
class="ectt-1200">p</span>&#x00A0;<span 
class="ectt-1200">premieres</span>&#x00A0;<span 
class="ectt-1200">valeurs</span>&#x00A0;<span 
class="ectt-1200">sont</span>&#x00A0;<span 
class="ectt-1200">les</span>&#x00A0;<span 
class="ectt-1200">p</span>&#x00A0;<span 
class="ectt-1200">valeurs</span>&#x00A0;<span 
class="ectt-1200">initiales</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">l&#x2019;etape</span>&#x00A0;<span 
class="ectt-1200">1</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">Burn,</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">les</span>&#x00A0;<span 
class="ectt-1200">M</span>&#x00A0;<span 
class="ectt-1200">valeurs</span>&#x00A0;<span 
class="ectt-1200">suivantes</span>&#x00A0;<span 
class="ectt-1200">sont</span>&#x00A0;<span 
class="ectt-1200">les</span>&#x00A0;<span 
class="ectt-1200">valeurs</span>&#x00A0;<span 
class="ectt-1200">a</span>&#x00A0;<span 
class="ectt-1200">ecarter</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">la</span>&#x00A0;<span 
class="ectt-1200">warm-up</span>&#x00A0;<span 
class="ectt-1200">period</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">longueur</span>&#x00A0;<span 
class="ectt-1200">Mind</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">donc</span>&#x00A0;<span 
class="ectt-1200">seules</span>&#x00A0;<span 
class="ectt-1200">les</span>&#x00A0;<span 
class="ectt-1200">n</span>&#x00A0;<span 
class="ectt-1200">dernieres</span>&#x00A0;<span 
class="ectt-1200">valeurs</span>&#x00A0;<span 
class="ectt-1200">devront</span>&#x00A0;<span 
class="ectt-1200">etre</span>&#x00A0;<span 
class="ectt-1200">conservees</span>&#x00A0;<span 
class="ectt-1200">pour</span>&#x00A0;<span 
class="ectt-1200">la</span>&#x00A0;<span 
class="ectt-1200">suite</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">la</span>&#x00A0;<span 
class="ectt-1200">simulation</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">elle</span>&#x00A0;<span 
class="ectt-1200">renvoie</span>&#x00A0;<span 
class="ectt-1200">aussi</span>&#x00A0;<span 
class="ectt-1200">le</span>&#x00A0;<span 
class="ectt-1200">vecteur</span>&#x00A0;<span 
class="ectt-1200">shocks</span>&#x00A0;<span 
class="ectt-1200">des</span>&#x00A0;<span 
class="ectt-1200">marret+p</span>&#x00A0;<span 
class="ectt-1200">innovations</span>&#x00A0;<span 
class="ectt-1200">utilisees</span>&#x00A0;<span 
class="ectt-1200">dans</span>&#x00A0;<span 
class="ectt-1200">l&#x2019;algorithme</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Initialisation</span>&#x00A0;<span 
class="ectt-1200">1</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">Burn,</span>&#x00A0;<span 
class="ectt-1200">ainsi</span>&#x00A0;<span 
class="ectt-1200">que</span>&#x00A0;<span 
class="ectt-1200">le</span>&#x00A0;<span 
class="ectt-1200">vecteur</span>&#x00A0;<span 
class="ectt-1200">Atn</span>&#x00A0;<span 
class="ectt-1200">des</span>&#x00A0;<span 
class="ectt-1200">n+Mind</span>&#x00A0;<span 
class="ectt-1200">random</span>&#x00A0;<span 
class="ectt-1200">shocks</span>&#x00A0;<span 
class="ectt-1200">At</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">l&#x2019;etape</span>&#x00A0;<span 
class="ectt-1200">2</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">Burn.</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Utilisation</span>&#x00A0;<span 
class="ectt-1200">dans</span>&#x00A0;<span 
class="ectt-1200">une</span>&#x00A0;<span 
class="ectt-1200">fonction</span>&#x00A0;<span 
class="ectt-1200">main:</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">-------------------------------------</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PROGRAM</span>&#x00A0;<span 
class="ectt-1200">main</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">p,</span>&#x00A0;<span 
class="ectt-1200">n,</span>&#x00A0;<span 
class="ectt-1200">marret,</span>&#x00A0;<span 
class="ectt-1200">Mind,</span>&#x00A0;<span 
class="ectt-1200">loi,</span>&#x00A0;<span 
class="ectt-1200">df1,</span>&#x00A0;<span 
class="ectt-1200">df2</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">lambda,</span>&#x00A0;<span 
class="ectt-1200">EspSU,</span>&#x00A0;<span 
class="ectt-1200">EspSB,</span>&#x00A0;<span 
class="ectt-1200">EspS</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(p=2,n=100,marret=200,Mind=200,loi=1,</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">+</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">df1=2,df2=5,lambda=2.0,</span>&#x00A0;<span 
class="ectt-1200">EspSU=0,</span>&#x00A0;<span 
class="ectt-1200">EspSB=0,</span>&#x00A0;<span 
class="ectt-1200">EspS=0)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">loi5b,</span>&#x00A0;<span 
class="ectt-1200">loi5k,</span>&#x00A0;<span 
class="ectt-1200">loi6p,</span>&#x00A0;<span 
class="ectt-1200">loi6q</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">loi7g,</span>&#x00A0;<span 
class="ectt-1200">loi7d,</span>&#x00A0;<span 
class="ectt-1200">loi8p,</span>&#x00A0;<span 
class="ectt-1200">loi8q,</span>&#x00A0;<span 
class="ectt-1200">loi9a,</span>&#x00A0;<span 
class="ectt-1200">loi9b</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">loi10b,</span>&#x00A0;<span 
class="ectt-1200">loi10l,</span>&#x00A0;<span 
class="ectt-1200">loi11a,</span>&#x00A0;<span 
class="ectt-1200">loi11k,</span>&#x00A0;<span 
class="ectt-1200">loi13g,</span>&#x00A0;<span 
class="ectt-1200">loi13d</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">loi14l,</span>&#x00A0;<span 
class="ectt-1200">loi16p,</span>&#x00A0;<span 
class="ectt-1200">loi16d,</span>&#x00A0;<span 
class="ectt-1200">loi17p,</span>&#x00A0;<span 
class="ectt-1200">loi17m</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">loi18g,</span>&#x00A0;<span 
class="ectt-1200">loi18d,</span>&#x00A0;<span 
class="ectt-1200">loi19a,</span>&#x00A0;<span 
class="ectt-1200">loi19b</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(loi18g=1.0,loi18d=1.0,</span>&#x00A0;<span 
class="ectt-1200">loi19a=1.1,</span>&#x00A0;<span 
class="ectt-1200">loi19b=0.5)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(loi16p=0.2,loi16d=5.0,</span>&#x00A0;<span 
class="ectt-1200">loi17p=0.2,loi17m=3.0)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(loi10b=0.2,loi10l=1,</span>&#x00A0;<span 
class="ectt-1200">loi11a=2.0,loi11k=0.5)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(loi13g=1.0,loi13d=1.0,</span>&#x00A0;<span 
class="ectt-1200">loi14l=0.7)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(loi7g=0,loi7d=1,</span>&#x00A0;<span 
class="ectt-1200">loi8p=2,</span>&#x00A0;<span 
class="ectt-1200">loi8q=2,</span>&#x00A0;<span 
class="ectt-1200">loi9a=0,loi9b=2)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(loi5b=1,</span>&#x00A0;<span 
class="ectt-1200">loi5k=1.8,</span>&#x00A0;<span 
class="ectt-1200">loi6p=4,</span>&#x00A0;<span 
class="ectt-1200">loi6q=1)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">Wtip(p),</span>&#x00A0;<span 
class="ectt-1200">shocks(marret+p),</span>&#x00A0;<span 
class="ectt-1200">psi(marret+1)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">phi(2),</span>&#x00A0;<span 
class="ectt-1200">YtpMn(p+Mind+n),</span>&#x00A0;<span 
class="ectt-1200">Atn(n+Mind)</span>

&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">phi2(marret)</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Initialisation</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">phi</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">phi(1)=0.1</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">phi(2)=0.2</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CALL</span>&#x00A0;<span 
class="ectt-1200">G05CBF(0)</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Calcul</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">YtpMn,</span>&#x00A0;<span 
class="ectt-1200">shocks,</span>&#x00A0;<span 
class="ectt-1200">Atn</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CALL</span>&#x00A0;<span 
class="ectt-1200">simAR(p,n,marret,Mind,loi,df1,df2,lambda,loi5b,</span>&#x00A0;<span 
class="ectt-1200">loi5k,</span>&#x00A0;<span 
class="ectt-1200">loi6p,</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">+</span>&#x00A0;&#x00A0;<span 
class="ectt-1200">loi6q,</span>&#x00A0;<span 
class="ectt-1200">loi7g,</span>&#x00A0;<span 
class="ectt-1200">loi7d,</span>&#x00A0;<span 
class="ectt-1200">loi8p,</span>&#x00A0;<span 
class="ectt-1200">loi8q,</span>&#x00A0;<span 
class="ectt-1200">loi9a,</span>&#x00A0;<span 
class="ectt-1200">loi9b,</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">+</span>&#x00A0;&#x00A0;<span 
class="ectt-1200">loi10b,</span>&#x00A0;<span 
class="ectt-1200">loi10l,</span>&#x00A0;<span 
class="ectt-1200">loi11a,</span>&#x00A0;<span 
class="ectt-1200">loi11k,</span>&#x00A0;<span 
class="ectt-1200">loi13g,</span>&#x00A0;<span 
class="ectt-1200">loi13d,</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">+</span>&#x00A0;&#x00A0;<span 
class="ectt-1200">loi14l,</span>&#x00A0;<span 
class="ectt-1200">loi16p,</span>&#x00A0;<span 
class="ectt-1200">loi16d,</span>&#x00A0;<span 
class="ectt-1200">loi17p,</span>&#x00A0;<span 
class="ectt-1200">loi17m,</span>&#x00A0;<span 
class="ectt-1200">loi18g,</span>&#x00A0;<span 
class="ectt-1200">loi18d,</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">+</span>&#x00A0;&#x00A0;<span 
class="ectt-1200">loi19a,</span>&#x00A0;<span 
class="ectt-1200">loi19b,</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">+</span>&#x00A0;&#x00A0;<span 
class="ectt-1200">Wtip,shocks,psi,phi,phi2,YtpMn,Atn,EspSU,EspSB,EspS)</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Affichage</span>&#x00A0;<span 
class="ectt-1200">des</span>&#x00A0;<span 
class="ectt-1200">valeurs</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">YtpMn</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(UNIT=6,FMT=*)</span>&#x00A0;<span 
class="ectt-1200">&#x2019;Affichage</span>&#x00A0;<span 
class="ectt-1200">des</span>&#x00A0;<span 
class="ectt-1200">valeurs</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">YtpMn&#x2019;</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(UNIT=6,FMT=*)</span>&#x00A0;<span 
class="ectt-1200">YtpMn</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Affichage</span>&#x00A0;<span 
class="ectt-1200">des</span>&#x00A0;<span 
class="ectt-1200">valeurs</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">shocks</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(UNIT=6,FMT=*)</span>&#x00A0;<span 
class="ectt-1200">&#x2019;Affichage</span>&#x00A0;<span 
class="ectt-1200">des</span>&#x00A0;<span 
class="ectt-1200">valeurs</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">shocks&#x2019;</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(UNIT=6,FMT=*)</span>&#x00A0;<span 
class="ectt-1200">shocks</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Affichage</span>&#x00A0;<span 
class="ectt-1200">des</span>&#x00A0;<span 
class="ectt-1200">valeurs</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">Atn</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(UNIT=6,FMT=*)</span>&#x00A0;<span 
class="ectt-1200">&#x2019;Affichage</span>&#x00A0;<span 
class="ectt-1200">des</span>&#x00A0;<span 
class="ectt-1200">valeurs</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">Atn&#x2019;</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(UNIT=6,FMT=*)</span>&#x00A0;<span 
class="ectt-1200">Atn</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">END</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INCLUDE</span>&#x00A0;<span 
class="ectt-1200">&#x2019;rskew.f&#x2019;</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INCLUDE</span>&#x00A0;<span 
class="ectt-1200">&#x2019;rlap.f&#x2019;</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INCLUDE</span>&#x00A0;<span 
class="ectt-1200">&#x2019;ARpsi.f&#x2019;</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INCLUDE</span>&#x00A0;<span 
class="ectt-1200">&#x2019;shock.f&#x2019;</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INCLUDE</span>&#x00A0;<span 
class="ectt-1200">&#x2019;rpare.f&#x2019;</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INCLUDE</span>&#x00A0;<span 
class="ectt-1200">&#x2019;rspare.f&#x2019;</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INCLUDE</span>&#x00A0;<span 
class="ectt-1200">&#x2019;rSU.f&#x2019;</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INCLUDE</span>&#x00A0;<span 
class="ectt-1200">&#x2019;rTU.f&#x2019;</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INCLUDE</span>&#x00A0;<span 
class="ectt-1200">&#x2019;rSC.f&#x2019;</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INCLUDE</span>&#x00A0;<span 
class="ectt-1200">&#x2019;rLC.f&#x2019;</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INCLUDE</span>&#x00A0;<span 
class="ectt-1200">&#x2019;rSB.f&#x2019;</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INCLUDE</span>&#x00A0;<span 
class="ectt-1200">&#x2019;rS.f&#x2019;</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">-------------------------------------</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Instructions</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">compilation:</span>&#x00A0;<span 
class="ectt-1200">alias</span>&#x00A0;<span 
class="ectt-1200">f77=&#x2019;fort77&#x2019;</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">f77</span>&#x00A0;<span 
class="ectt-1200">-c</span>&#x00A0;<span 
class="ectt-1200">nom_du_fichier_contenant_la_fonction_main.f</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">f77</span>&#x00A0;<span 
class="ectt-1200">-c</span>&#x00A0;<span 
class="ectt-1200">simAR.f</span>&#x00A0;<span 
class="ectt-1200">-lnag</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">f77</span>&#x00A0;<span 
class="ectt-1200">nom_du_fichier_contenant_la_fonction_main.o</span>&#x00A0;<span 
class="ectt-1200">simAR.o</span>&#x00A0;<span 
class="ectt-1200">-lnag</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Fonctions</span>&#x00A0;<span 
class="ectt-1200">exterieures</span>&#x00A0;<span 
class="ectt-1200">appelees:</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">ARpsi.f,</span>&#x00A0;<span 
class="ectt-1200">shock.f,</span>&#x00A0;<span 
class="ectt-1200">rskew.f,</span>&#x00A0;<span 
class="ectt-1200">rlap.f</span>&#x00A0;&#x00A0;<span 
class="ectt-1200">et</span>&#x00A0;<span 
class="ectt-1200">G05DEF,</span>&#x00A0;<span 
class="ectt-1200">G05DHF,</span>&#x00A0;<span 
class="ectt-1200">G05DJF</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">NAG</span>&#x00A0;<span 
class="ectt-1200">Mark16</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Auteur:</span>&#x00A0;<span 
class="ectt-1200">Pierre</span>&#x00A0;<span 
class="ectt-1200">Lafaye</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">Micheaux</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Date:</span>&#x00A0;<span 
class="ectt-1200">15/02/2001</span>

&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Fin-Commentaires</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">SUBROUTINE</span>&#x00A0;<span 
class="ectt-1200">simAR(p,n,marret,Mind,loi,df1,df2,lambda,loi5b,</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">+</span>&#x00A0;&#x00A0;<span 
class="ectt-1200">loi5k,</span>&#x00A0;<span 
class="ectt-1200">loi6p,</span>&#x00A0;<span 
class="ectt-1200">loi6q,</span>&#x00A0;<span 
class="ectt-1200">loi7g,</span>&#x00A0;<span 
class="ectt-1200">loi7d,</span>&#x00A0;<span 
class="ectt-1200">loi8p,</span>&#x00A0;<span 
class="ectt-1200">loi8q,</span>&#x00A0;<span 
class="ectt-1200">loi9a,</span>&#x00A0;<span 
class="ectt-1200">loi9b,</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">+</span>&#x00A0;&#x00A0;<span 
class="ectt-1200">loi10b,</span>&#x00A0;<span 
class="ectt-1200">loi10l,</span>&#x00A0;<span 
class="ectt-1200">loi11a,</span>&#x00A0;<span 
class="ectt-1200">loi11k,</span>&#x00A0;<span 
class="ectt-1200">loi13g,</span>&#x00A0;<span 
class="ectt-1200">loi13d,</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">+</span>&#x00A0;&#x00A0;<span 
class="ectt-1200">loi14l,</span>&#x00A0;<span 
class="ectt-1200">loi16p,</span>&#x00A0;<span 
class="ectt-1200">loi16d,</span>&#x00A0;<span 
class="ectt-1200">loi17p,</span>&#x00A0;<span 
class="ectt-1200">loi17m,</span>&#x00A0;<span 
class="ectt-1200">loi18g,</span>&#x00A0;<span 
class="ectt-1200">loi18d,</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">+</span>&#x00A0;&#x00A0;<span 
class="ectt-1200">loi19a,</span>&#x00A0;<span 
class="ectt-1200">loi19b,</span>&#x00A0;<span 
class="ectt-1200">Wtip,shocks,psi,phi,phi2,YtpMn,Atn,</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">+</span>&#x00A0;&#x00A0;<span 
class="ectt-1200">EspSU,EspSB,EspS)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">l,</span>&#x00A0;<span 
class="ectt-1200">p,n,marret,Mind,loi,df1,df2</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">Wtip(p),</span>&#x00A0;<span 
class="ectt-1200">shocks(marret+p),psi(marret+1)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">phi(2),phi2(marret)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">YtpMn(p+Mind+n)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">Atn(n+Mind)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">pi,</span>&#x00A0;<span 
class="ectt-1200">a,</span>&#x00A0;<span 
class="ectt-1200">b,</span>&#x00A0;<span 
class="ectt-1200">lambda,</span>&#x00A0;<span 
class="ectt-1200">Eweibu,</span>&#x00A0;<span 
class="ectt-1200">EspSU,</span>&#x00A0;<span 
class="ectt-1200">EspSB,</span>&#x00A0;<span 
class="ectt-1200">EspS</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">G05DEF,</span>&#x00A0;<span 
class="ectt-1200">G05DHF,</span>&#x00A0;<span 
class="ectt-1200">S14AAF</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">G05DJF,</span>&#x00A0;<span 
class="ectt-1200">G05DPF,</span>&#x00A0;<span 
class="ectt-1200">G05DCF</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">G05DAF,</span>&#x00A0;<span 
class="ectt-1200">G05DBF,</span>&#x00A0;<span 
class="ectt-1200">rS</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">loi5b,</span>&#x00A0;<span 
class="ectt-1200">loi5k,</span>&#x00A0;<span 
class="ectt-1200">loi6p,</span>&#x00A0;<span 
class="ectt-1200">loi6q</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">loi7g,</span>&#x00A0;<span 
class="ectt-1200">loi7d,</span>&#x00A0;<span 
class="ectt-1200">loi8p,</span>&#x00A0;<span 
class="ectt-1200">loi8q,</span>&#x00A0;<span 
class="ectt-1200">loi9a,</span>&#x00A0;<span 
class="ectt-1200">loi9b</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">loi10b,</span>&#x00A0;<span 
class="ectt-1200">loi10l,</span>&#x00A0;<span 
class="ectt-1200">loi11a,</span>&#x00A0;<span 
class="ectt-1200">loi11k,</span>&#x00A0;<span 
class="ectt-1200">loi13g,</span>&#x00A0;<span 
class="ectt-1200">loi13d</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">loi14l,</span>&#x00A0;<span 
class="ectt-1200">loi16p,</span>&#x00A0;<span 
class="ectt-1200">loi16d,</span>&#x00A0;<span 
class="ectt-1200">loi17p,</span>&#x00A0;<span 
class="ectt-1200">loi17m</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">loi18g,</span>&#x00A0;<span 
class="ectt-1200">loi18d,</span>&#x00A0;<span 
class="ectt-1200">loi19a,</span>&#x00A0;<span 
class="ectt-1200">loi19b</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Calcul</span>&#x00A0;<span 
class="ectt-1200">des</span>&#x00A0;<span 
class="ectt-1200">valeurs</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">psi</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CALL</span>&#x00A0;<span 
class="ectt-1200">ARpsi(marret,p,psi,phi,phi2)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Calcul</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">shocks</span>&#x00A0;<span 
class="ectt-1200">et</span>&#x00A0;<span 
class="ectt-1200">Wtip</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CALL</span>&#x00A0;<span 
class="ectt-1200">shock(p,</span>&#x00A0;<span 
class="ectt-1200">marret,</span>&#x00A0;<span 
class="ectt-1200">loi,</span>&#x00A0;<span 
class="ectt-1200">Wtip,</span>&#x00A0;<span 
class="ectt-1200">shocks,</span>&#x00A0;<span 
class="ectt-1200">psi,</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">+</span>&#x00A0;&#x00A0;<span 
class="ectt-1200">df1,</span>&#x00A0;<span 
class="ectt-1200">df2,</span>&#x00A0;<span 
class="ectt-1200">lambda,</span>&#x00A0;<span 
class="ectt-1200">loi5b,</span>&#x00A0;<span 
class="ectt-1200">loi5k,</span>&#x00A0;<span 
class="ectt-1200">loi6p,</span>&#x00A0;<span 
class="ectt-1200">loi6q,</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">+</span>&#x00A0;&#x00A0;<span 
class="ectt-1200">loi7g,</span>&#x00A0;<span 
class="ectt-1200">loi7d,</span>&#x00A0;<span 
class="ectt-1200">loi8p,</span>&#x00A0;<span 
class="ectt-1200">loi8q,</span>&#x00A0;<span 
class="ectt-1200">loi9a,</span>&#x00A0;<span 
class="ectt-1200">loi9b,</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">+</span>&#x00A0;&#x00A0;<span 
class="ectt-1200">loi10b,</span>&#x00A0;<span 
class="ectt-1200">loi10l,</span>&#x00A0;<span 
class="ectt-1200">loi11a,</span>&#x00A0;<span 
class="ectt-1200">loi11k,</span>&#x00A0;<span 
class="ectt-1200">loi13g,</span>&#x00A0;<span 
class="ectt-1200">loi13d,</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">+</span>&#x00A0;&#x00A0;<span 
class="ectt-1200">loi14l,</span>&#x00A0;<span 
class="ectt-1200">loi16p,</span>&#x00A0;<span 
class="ectt-1200">loi16d,</span>&#x00A0;<span 
class="ectt-1200">loi17p,</span>&#x00A0;<span 
class="ectt-1200">loi17m,</span>&#x00A0;<span 
class="ectt-1200">loi18g,</span>&#x00A0;<span 
class="ectt-1200">loi18d,</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">+</span>&#x00A0;&#x00A0;<span 
class="ectt-1200">loi19a,</span>&#x00A0;<span 
class="ectt-1200">loi19b)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Etape</span>&#x00A0;<span 
class="ectt-1200">2</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">l&#x2019;algorithme:</span>&#x00A0;<span 
class="ectt-1200">on</span>&#x00A0;<span 
class="ectt-1200">genere</span>&#x00A0;<span 
class="ectt-1200">n+Mind</span>&#x00A0;<span 
class="ectt-1200">random</span>&#x00A0;<span 
class="ectt-1200">shocks</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">l=n+Mind</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">pi=DBLE(3.14159265358979)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">a=DBLE(0.0)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">b=DBLE(1.0)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Ca</span>&#x00A0;<span 
class="ectt-1200">c&#x2019;est</span>&#x00A0;<span 
class="ectt-1200">inutile</span>&#x00A0;<span 
class="ectt-1200">puisqu&#x2019;on</span>&#x00A0;<span 
class="ectt-1200">n&#x2019;appelle</span>&#x00A0;<span 
class="ectt-1200">jamais</span>&#x00A0;<span 
class="ectt-1200">simulAR.f</span>&#x00A0;<span 
class="ectt-1200">avec</span>&#x00A0;<span 
class="ectt-1200">loi=0</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">IF</span>&#x00A0;<span 
class="ectt-1200">(loi</span>&#x00A0;<span 
class="ectt-1200">.EQ.</span>&#x00A0;<span 
class="ectt-1200">0)</span>&#x00A0;<span 
class="ectt-1200">THEN</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CALL</span>&#x00A0;<span 
class="ectt-1200">G05FDF(a,b,l,Atn)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DO</span>&#x00A0;<span 
class="ectt-1200">10,</span>&#x00A0;<span 
class="ectt-1200">i=1,l</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Atn(i)=Atn(i)</span>&#x00A0;<span 
class="ectt-1200">-a</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">10</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CONTINUE</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">ENDIF</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">IF</span>&#x00A0;<span 
class="ectt-1200">(loi</span>&#x00A0;<span 
class="ectt-1200">.EQ.</span>&#x00A0;<span 
class="ectt-1200">1)</span>&#x00A0;<span 
class="ectt-1200">THEN</span>

&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DO</span>&#x00A0;<span 
class="ectt-1200">20,</span>&#x00A0;<span 
class="ectt-1200">i=1,l</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">IFAIL=0</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Atn(i)=G05DHF(df1,IFAIL)-DBLE(df1)</span>
&#x00A0;<br />&#x00A0;<span 
class="ectt-1200">20</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CONTINUE</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">ENDIF</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">IF</span>&#x00A0;<span 
class="ectt-1200">(loi</span>&#x00A0;<span 
class="ectt-1200">.EQ.</span>&#x00A0;<span 
class="ectt-1200">2)</span>&#x00A0;<span 
class="ectt-1200">THEN</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DO</span>&#x00A0;<span 
class="ectt-1200">30,</span>&#x00A0;<span 
class="ectt-1200">i=1,l</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">IFAIL=0</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">l&#x2019;esperance</span>&#x00A0;<span 
class="ectt-1200">d&#x2019;une</span>&#x00A0;<span 
class="ectt-1200">student</span>&#x00A0;<span 
class="ectt-1200">est</span>&#x00A0;<span 
class="ectt-1200">nulle</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Atn(i)=G05DJF(df2,IFAIL)</span>
&#x00A0;<br />&#x00A0;<span 
class="ectt-1200">30</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CONTINUE</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">ENDIF</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">IF</span>&#x00A0;<span 
class="ectt-1200">(loi</span>&#x00A0;<span 
class="ectt-1200">.EQ.</span>&#x00A0;<span 
class="ectt-1200">3)</span>&#x00A0;<span 
class="ectt-1200">THEN</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CALL</span>&#x00A0;<span 
class="ectt-1200">rskew(l,Atn,lambda)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DO</span>&#x00A0;<span 
class="ectt-1200">40,</span>&#x00A0;<span 
class="ectt-1200">i=1,l</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Atn(i)=Atn(i)</span>&#x00A0;<span 
class="ectt-1200">-</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">+</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">dsqrt(DBLE(2.0)/pi)*(lambda/(sqrt(1+lambda*lambda)))</span>
&#x00A0;<br />&#x00A0;<span 
class="ectt-1200">40</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CONTINUE</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">ENDIF</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">IF</span>&#x00A0;<span 
class="ectt-1200">(loi</span>&#x00A0;<span 
class="ectt-1200">.EQ.</span>&#x00A0;<span 
class="ectt-1200">4)</span>&#x00A0;<span 
class="ectt-1200">THEN</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">l&#x2019;esperance</span>&#x00A0;<span 
class="ectt-1200">d&#x2019;une</span>&#x00A0;<span 
class="ectt-1200">loi</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">Laplace</span>&#x00A0;<span 
class="ectt-1200">est</span>&#x00A0;<span 
class="ectt-1200">nulle</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CALL</span>&#x00A0;<span 
class="ectt-1200">rlap(l,Atn)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">ENDIF</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">IF</span>&#x00A0;<span 
class="ectt-1200">(loi</span>&#x00A0;<span 
class="ectt-1200">.EQ.</span>&#x00A0;<span 
class="ectt-1200">5)</span>&#x00A0;<span 
class="ectt-1200">THEN</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">IFAIL=0</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Eweibu=S14AAF(DBLE(1+1/loi5k),IFAIL)/loi5b</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DO</span>&#x00A0;<span 
class="ectt-1200">50,</span>&#x00A0;<span 
class="ectt-1200">i=1,l</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">IFAIL=0</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Atn(i)=G05DPF(loi5k,(loi5b)**(-loi5k),IFAIL)-Eweibu</span>
&#x00A0;<br />&#x00A0;<span 
class="ectt-1200">50</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CONTINUE</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">ENDIF</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">IF</span>&#x00A0;<span 
class="ectt-1200">(loi</span>&#x00A0;<span 
class="ectt-1200">.EQ.</span>&#x00A0;<span 
class="ectt-1200">6)</span>&#x00A0;<span 
class="ectt-1200">THEN</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">IFAIL=0</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CALL</span>&#x00A0;<span 
class="ectt-1200">G05FFF(loi6p,loi6q,l,Atn,IFAIL)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DO</span>&#x00A0;<span 
class="ectt-1200">60,</span>&#x00A0;<span 
class="ectt-1200">i=1,l</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Atn(i)=Atn(i)</span>&#x00A0;<span 
class="ectt-1200">-loi6p*loi6q</span>
&#x00A0;<br />&#x00A0;<span 
class="ectt-1200">60</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CONTINUE</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">ENDIF</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">IF</span>&#x00A0;<span 
class="ectt-1200">(loi</span>&#x00A0;<span 
class="ectt-1200">.EQ.</span>&#x00A0;<span 
class="ectt-1200">7)</span>&#x00A0;<span 
class="ectt-1200">THEN</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DO</span>&#x00A0;<span 
class="ectt-1200">70,</span>&#x00A0;<span 
class="ectt-1200">i=1,l</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Atn(i)=G05DEF(-loi7g/loi7d,1/loi7d)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">+</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">-dexp(-loi7g/loi7d+0.5/(loi7d**2))</span>
&#x00A0;<br />&#x00A0;<span 
class="ectt-1200">70</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CONTINUE</span>

&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">ENDIF</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">IF</span>&#x00A0;<span 
class="ectt-1200">(loi</span>&#x00A0;<span 
class="ectt-1200">.EQ.</span>&#x00A0;<span 
class="ectt-1200">8)</span>&#x00A0;<span 
class="ectt-1200">THEN</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">IFAIL=0</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CALL</span>&#x00A0;<span 
class="ectt-1200">G05FEF(loi8p,loi8q,l,Atn,IFAIL)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DO</span>&#x00A0;<span 
class="ectt-1200">80,</span>&#x00A0;<span 
class="ectt-1200">i=1,l</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Atn(i)=Atn(i)-loi8p/(loi8p+loi8q)</span>
&#x00A0;<br />&#x00A0;<span 
class="ectt-1200">80</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CONTINUE</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">ENDIF</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">IF</span>&#x00A0;<span 
class="ectt-1200">(loi</span>&#x00A0;<span 
class="ectt-1200">.EQ.</span>&#x00A0;<span 
class="ectt-1200">9)</span>&#x00A0;<span 
class="ectt-1200">THEN</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DO</span>&#x00A0;<span 
class="ectt-1200">90,</span>&#x00A0;<span 
class="ectt-1200">i=1,l</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Atn(i)=G05DAF(loi9a,loi9b)-(loi9a+loi9b)/2</span>
&#x00A0;<br />&#x00A0;<span 
class="ectt-1200">90</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CONTINUE</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">ENDIF</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">IF</span>&#x00A0;<span 
class="ectt-1200">(loi</span>&#x00A0;<span 
class="ectt-1200">.EQ.</span>&#x00A0;<span 
class="ectt-1200">10)</span>&#x00A0;<span 
class="ectt-1200">THEN</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DO</span>&#x00A0;<span 
class="ectt-1200">100,</span>&#x00A0;<span 
class="ectt-1200">i=1,l</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Atn(i)=G05DBF(1/loi10b)-1/loi10b</span>
&#x00A0;<br />&#x00A0;<span 
class="ectt-1200">100</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CONTINUE</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">ENDIF</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">IF</span>&#x00A0;<span 
class="ectt-1200">(loi</span>&#x00A0;<span 
class="ectt-1200">.EQ.</span>&#x00A0;<span 
class="ectt-1200">11)</span>&#x00A0;<span 
class="ectt-1200">THEN</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CALL</span>&#x00A0;<span 
class="ectt-1200">rpare(loi11a,loi11k,l,Atn)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DO</span>&#x00A0;<span 
class="ectt-1200">110,</span>&#x00A0;<span 
class="ectt-1200">i=1,l</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Atn(i)=Atn(i)-loi11k*loi11a/(loi11a-1)</span>
&#x00A0;<br />&#x00A0;<span 
class="ectt-1200">110</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CONTINUE</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">ENDIF</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">IF</span>&#x00A0;<span 
class="ectt-1200">(loi</span>&#x00A0;<span 
class="ectt-1200">.EQ.</span>&#x00A0;<span 
class="ectt-1200">12)</span>&#x00A0;<span 
class="ectt-1200">THEN</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CALL</span>&#x00A0;<span 
class="ectt-1200">rspare(l,Atn)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DO</span>&#x00A0;<span 
class="ectt-1200">120,</span>&#x00A0;<span 
class="ectt-1200">i=1,l</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Atn(i)=Atn(i)-1</span>
&#x00A0;<br />&#x00A0;<span 
class="ectt-1200">120</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CONTINUE</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">ENDIF</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">IF</span>&#x00A0;<span 
class="ectt-1200">(loi</span>&#x00A0;<span 
class="ectt-1200">.EQ.</span>&#x00A0;<span 
class="ectt-1200">13)</span>&#x00A0;<span 
class="ectt-1200">THEN</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CALL</span>&#x00A0;<span 
class="ectt-1200">rSU(loi13g,loi13d,l,Atn)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DO</span>&#x00A0;<span 
class="ectt-1200">130,</span>&#x00A0;<span 
class="ectt-1200">i=1,l</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Atn(i)=Atn(i)-EspSU</span>
&#x00A0;<br />&#x00A0;<span 
class="ectt-1200">130</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CONTINUE</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">ENDIF</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">IF</span>&#x00A0;<span 
class="ectt-1200">(loi</span>&#x00A0;<span 
class="ectt-1200">.EQ.</span>&#x00A0;<span 
class="ectt-1200">14)</span>&#x00A0;<span 
class="ectt-1200">THEN</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">l&#x2019;esperance</span>&#x00A0;<span 
class="ectt-1200">d&#x2019;une</span>&#x00A0;<span 
class="ectt-1200">loi</span>&#x00A0;<span 
class="ectt-1200">TU(l)</span>&#x00A0;<span 
class="ectt-1200">=</span>&#x00A0;<span 
class="ectt-1200">0</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CALL</span>&#x00A0;<span 
class="ectt-1200">rTU(loi14l,l,Atn)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">ENDIF</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">IF</span>&#x00A0;<span 
class="ectt-1200">(loi</span>&#x00A0;<span 
class="ectt-1200">.EQ.</span>&#x00A0;<span 
class="ectt-1200">15)</span>&#x00A0;<span 
class="ectt-1200">THEN</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DO</span>&#x00A0;<span 
class="ectt-1200">140,</span>&#x00A0;<span 
class="ectt-1200">i=1,l</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">l&#x2019;esperance</span>&#x00A0;<span 
class="ectt-1200">d&#x2019;une</span>&#x00A0;<span 
class="ectt-1200">loi</span>&#x00A0;<span 
class="ectt-1200">Logistic</span>&#x00A0;<span 
class="ectt-1200">=</span>&#x00A0;<span 
class="ectt-1200">0</span>

&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Atn(i)=G05DCF(a,b)</span>
&#x00A0;<br />&#x00A0;<span 
class="ectt-1200">140</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CONTINUE</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">ENDIF</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">IF</span>&#x00A0;<span 
class="ectt-1200">(loi</span>&#x00A0;<span 
class="ectt-1200">.EQ.</span>&#x00A0;<span 
class="ectt-1200">16)</span>&#x00A0;<span 
class="ectt-1200">THEN</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">l&#x2019;esperance</span>&#x00A0;<span 
class="ectt-1200">d&#x2019;une</span>&#x00A0;<span 
class="ectt-1200">loi</span>&#x00A0;<span 
class="ectt-1200">SC(p,d)</span>&#x00A0;<span 
class="ectt-1200">=</span>&#x00A0;<span 
class="ectt-1200">0</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CALL</span>&#x00A0;<span 
class="ectt-1200">rSC(loi16p,loi16d,l,Atn)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">ENDIF</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">IF</span>&#x00A0;<span 
class="ectt-1200">(loi</span>&#x00A0;<span 
class="ectt-1200">.EQ.</span>&#x00A0;<span 
class="ectt-1200">17)</span>&#x00A0;<span 
class="ectt-1200">THEN</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CALL</span>&#x00A0;<span 
class="ectt-1200">rLC(loi17p,loi17m,l,Atn)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DO</span>&#x00A0;<span 
class="ectt-1200">150,</span>&#x00A0;<span 
class="ectt-1200">i=1,l</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Atn(i)=Atn(i)</span>&#x00A0;<span 
class="ectt-1200">-loi17p*loi17m</span>
&#x00A0;<br />&#x00A0;<span 
class="ectt-1200">150</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CONTINUE</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">ENDIF</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">IF</span>&#x00A0;<span 
class="ectt-1200">(loi</span>&#x00A0;<span 
class="ectt-1200">.EQ.</span>&#x00A0;<span 
class="ectt-1200">18)</span>&#x00A0;<span 
class="ectt-1200">THEN</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CALL</span>&#x00A0;<span 
class="ectt-1200">rSB(loi18g,loi18d,l,Atn)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DO</span>&#x00A0;<span 
class="ectt-1200">160,</span>&#x00A0;<span 
class="ectt-1200">i=1,l</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Atn(i)=Atn(i)-EspSB</span>
&#x00A0;<br />&#x00A0;<span 
class="ectt-1200">160</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CONTINUE</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">ENDIF</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">IF</span>&#x00A0;<span 
class="ectt-1200">(loi</span>&#x00A0;<span 
class="ectt-1200">.EQ.</span>&#x00A0;<span 
class="ectt-1200">19)</span>&#x00A0;<span 
class="ectt-1200">THEN</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DO</span>&#x00A0;<span 
class="ectt-1200">170,</span>&#x00A0;<span 
class="ectt-1200">i=1,l</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Atn(i)=rS(loi19a,loi19b)-EspS</span>
&#x00A0;<br />&#x00A0;<span 
class="ectt-1200">170</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CONTINUE</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">ENDIF</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Etape</span>&#x00A0;<span 
class="ectt-1200">3</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">l&#x2019;algorithme</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">YtpMn:</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Y(1-p),</span>&#x00A0;<span 
class="ectt-1200">Y(2-p),</span>&#x00A0;<span 
class="ectt-1200">...,</span>&#x00A0;<span 
class="ectt-1200">Y(0),</span>&#x00A0;<span 
class="ectt-1200">Y(1)</span>&#x00A0;<span 
class="ectt-1200">,</span>&#x00A0;<span 
class="ectt-1200">...,</span>&#x00A0;<span 
class="ectt-1200">Y(Mind+n)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">YtpMn(i),</span>&#x00A0;<span 
class="ectt-1200">i=:</span>&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">1</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">2</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">p</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">p+1</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">p+Mind+n</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DO</span>&#x00A0;<span 
class="ectt-1200">180,</span>&#x00A0;<span 
class="ectt-1200">i=1,(p+Mind+n)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">YtpMn(i)=DBLE(0.0)</span>
&#x00A0;<br />&#x00A0;<span 
class="ectt-1200">180</span>&#x00A0;&#x00A0;<span 
class="ectt-1200">CONTINUE</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Wtp:</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Y(1-p),</span>&#x00A0;<span 
class="ectt-1200">Y(2-p),</span>&#x00A0;<span 
class="ectt-1200">...,</span>&#x00A0;<span 
class="ectt-1200">Y(0)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">YtpMn(i),</span>&#x00A0;<span 
class="ectt-1200">i=:</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">1</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">2</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">p</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DO</span>&#x00A0;<span 
class="ectt-1200">190,</span>&#x00A0;<span 
class="ectt-1200">i=1,p</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">YtpMn(i)=Wtip(i)</span>
&#x00A0;<br />&#x00A0;<span 
class="ectt-1200">190</span>&#x00A0;&#x00A0;<span 
class="ectt-1200">CONTINUE</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DO</span>&#x00A0;<span 
class="ectt-1200">210,i=(p+1),(p+Mind+n)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DO</span>&#x00A0;<span 
class="ectt-1200">200,</span>&#x00A0;<span 
class="ectt-1200">k=1,p</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">YtpMn(i)=YtpMn(i)+phi(k)*YtpMn(i-k)</span>
&#x00A0;<br />&#x00A0;<span 
class="ectt-1200">200</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CONTINUE</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Atn:</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">eps(1),</span>&#x00A0;<span 
class="ectt-1200">...,</span>&#x00A0;<span 
class="ectt-1200">eps(n+Mind)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Atn(k),</span>&#x00A0;<span 
class="ectt-1200">k=:</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">1</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">n+Mind</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">YtpMn(i)=YtpMn(i)+Atn(-p+i)</span>
&#x00A0;<br />&#x00A0;<span 
class="ectt-1200">210</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CONTINUE</span>

&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">RETURN</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">END</span>
   </div>
<!--l. 327--><p class="indent">   <span 
class="ecbx-1200">Programme simulaMA.f</span> </p><div class="verbatiminput">
<span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Debut-Commentaires</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Nom</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">la</span>&#x00A0;<span 
class="ectt-1200">sous-routine:</span>&#x00A0;<span 
class="ectt-1200">simMA</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Entrees:</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">q</span>&#x00A0;<span 
class="ectt-1200">(entier)</span>&#x00A0;<span 
class="ectt-1200">ordre</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">la</span>&#x00A0;<span 
class="ectt-1200">partie</span>&#x00A0;<span 
class="ectt-1200">MA</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">n</span>&#x00A0;<span 
class="ectt-1200">(entier)</span>&#x00A0;<span 
class="ectt-1200">longueur</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">la</span>&#x00A0;<span 
class="ectt-1200">serie</span>&#x00A0;<span 
class="ectt-1200">souhaitee</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">marret</span>&#x00A0;<span 
class="ectt-1200">(entier)</span>&#x00A0;<span 
class="ectt-1200">rang</span>&#x00A0;<span 
class="ectt-1200">d&#x2019;arret</span>&#x00A0;<span 
class="ectt-1200">dans</span>&#x00A0;<span 
class="ectt-1200">la</span>&#x00A0;<span 
class="ectt-1200">random</span>&#x00A0;<span 
class="ectt-1200">shock</span>&#x00A0;<span 
class="ectt-1200">method</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Mind</span>&#x00A0;<span 
class="ectt-1200">(entier)</span>&#x00A0;<span 
class="ectt-1200">induction</span>&#x00A0;<span 
class="ectt-1200">period</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">loi</span>&#x00A0;<span 
class="ectt-1200">(entier)</span>&#x00A0;<span 
class="ectt-1200">specifie</span>&#x00A0;<span 
class="ectt-1200">la</span>&#x00A0;<span 
class="ectt-1200">loi</span>&#x00A0;<span 
class="ectt-1200">des</span>&#x00A0;<span 
class="ectt-1200">erreurs</span>&#x00A0;<span 
class="ectt-1200">ou</span>&#x00A0;<span 
class="ectt-1200">innovations</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">df1</span>&#x00A0;<span 
class="ectt-1200">(entier)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">df2</span>&#x00A0;<span 
class="ectt-1200">(entier)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">lambda</span>&#x00A0;<span 
class="ectt-1200">(double)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">loi5b,</span>&#x00A0;<span 
class="ectt-1200">loi5k,</span>&#x00A0;<span 
class="ectt-1200">loi6p,</span>&#x00A0;<span 
class="ectt-1200">loi6q</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">loi7g,</span>&#x00A0;<span 
class="ectt-1200">loi7d,</span>&#x00A0;<span 
class="ectt-1200">loi8p,</span>&#x00A0;<span 
class="ectt-1200">loi8q,</span>&#x00A0;<span 
class="ectt-1200">loi9a,</span>&#x00A0;<span 
class="ectt-1200">loi9b</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">loi10b,</span>&#x00A0;<span 
class="ectt-1200">loi10l,</span>&#x00A0;<span 
class="ectt-1200">loi11a,</span>&#x00A0;<span 
class="ectt-1200">loi11k,</span>&#x00A0;<span 
class="ectt-1200">loi13g,</span>&#x00A0;<span 
class="ectt-1200">loi13d</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">loi14l,</span>&#x00A0;<span 
class="ectt-1200">loi16p,</span>&#x00A0;<span 
class="ectt-1200">loi16d,</span>&#x00A0;<span 
class="ectt-1200">loi17p,</span>&#x00A0;<span 
class="ectt-1200">loi17m</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">loi18g,</span>&#x00A0;<span 
class="ectt-1200">loi18d,</span>&#x00A0;<span 
class="ectt-1200">loi19a,</span>&#x00A0;<span 
class="ectt-1200">loi19b</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">teta</span>&#x00A0;<span 
class="ectt-1200">(vecteur,</span>&#x00A0;<span 
class="ectt-1200">double)</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">longueur</span>&#x00A0;<span 
class="ectt-1200">q</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">YtMn</span>&#x00A0;<span 
class="ectt-1200">(vecteur,</span>&#x00A0;<span 
class="ectt-1200">double)</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">longueur</span>&#x00A0;<span 
class="ectt-1200">Mind+n</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Atnq</span>&#x00A0;<span 
class="ectt-1200">(vecteur,</span>&#x00A0;<span 
class="ectt-1200">double)</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">longueur</span>&#x00A0;<span 
class="ectt-1200">n+Mind+q</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">EspSU</span>&#x00A0;<span 
class="ectt-1200">(double)</span>&#x00A0;<span 
class="ectt-1200">:</span>&#x00A0;<span 
class="ectt-1200">esperance</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">la</span>&#x00A0;<span 
class="ectt-1200">loi</span>&#x00A0;<span 
class="ectt-1200">SU</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">EspSB</span>&#x00A0;<span 
class="ectt-1200">(double)</span>&#x00A0;<span 
class="ectt-1200">:</span>&#x00A0;<span 
class="ectt-1200">esperance</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">la</span>&#x00A0;<span 
class="ectt-1200">loi</span>&#x00A0;<span 
class="ectt-1200">S</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">EspS</span>&#x00A0;<span 
class="ectt-1200">(double)</span>&#x00A0;<span 
class="ectt-1200">:</span>&#x00A0;<span 
class="ectt-1200">esperance</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">la</span>&#x00A0;<span 
class="ectt-1200">loi</span>&#x00A0;<span 
class="ectt-1200">S</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Sorties:</span>&#x00A0;<span 
class="ectt-1200">void</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Description:</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Ce</span>&#x00A0;<span 
class="ectt-1200">programme</span>&#x00A0;<span 
class="ectt-1200">realise</span>&#x00A0;<span 
class="ectt-1200">les</span>&#x00A0;<span 
class="ectt-1200">etapes</span>&#x00A0;<span 
class="ectt-1200">2</span>&#x00A0;<span 
class="ectt-1200">et</span>&#x00A0;<span 
class="ectt-1200">3</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">Simulation</span>&#x00A0;<span 
class="ectt-1200">Algorithm</span>&#x00A0;<span 
class="ectt-1200">1,</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">l&#x2019;article</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">Burn</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Cette</span>&#x00A0;<span 
class="ectt-1200">sous-routine</span>&#x00A0;<span 
class="ectt-1200">remplace</span>&#x00A0;<span 
class="ectt-1200">le</span>&#x00A0;<span 
class="ectt-1200">vecteur</span>&#x00A0;<span 
class="ectt-1200">YtMn</span>&#x00A0;<span 
class="ectt-1200">en</span>&#x00A0;<span 
class="ectt-1200">entree</span>&#x00A0;<span 
class="ectt-1200">par</span>&#x00A0;<span 
class="ectt-1200">M+n</span>&#x00A0;<span 
class="ectt-1200">donnees</span>&#x00A0;<span 
class="ectt-1200">simulees</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">d&#x2019;un</span>&#x00A0;<span 
class="ectt-1200">modele</span>&#x00A0;<span 
class="ectt-1200">MA(q)</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">vecteur</span>&#x00A0;<span 
class="ectt-1200">d&#x2019;innovations</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">loi</span>&#x00A0;<span 
class="ectt-1200">donnee</span>&#x00A0;<span 
class="ectt-1200">par</span>&#x00A0;<span 
class="ectt-1200">l&#x2019;entier</span>&#x00A0;<span 
class="ectt-1200">loi</span>&#x00A0;<span 
class="ectt-1200">,</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">les</span>&#x00A0;<span 
class="ectt-1200">M</span>&#x00A0;<span 
class="ectt-1200">valeurs</span>&#x00A0;<span 
class="ectt-1200">suivantes</span>&#x00A0;<span 
class="ectt-1200">sont</span>&#x00A0;<span 
class="ectt-1200">les</span>&#x00A0;<span 
class="ectt-1200">valeurs</span>&#x00A0;<span 
class="ectt-1200">a</span>&#x00A0;<span 
class="ectt-1200">ecarter</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">la</span>&#x00A0;<span 
class="ectt-1200">warm-up</span>&#x00A0;<span 
class="ectt-1200">period</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">longueur</span>&#x00A0;<span 
class="ectt-1200">Mind</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">donc</span>&#x00A0;<span 
class="ectt-1200">seules</span>&#x00A0;<span 
class="ectt-1200">les</span>&#x00A0;<span 
class="ectt-1200">n</span>&#x00A0;<span 
class="ectt-1200">dernieres</span>&#x00A0;<span 
class="ectt-1200">valeurs</span>&#x00A0;<span 
class="ectt-1200">devront</span>&#x00A0;<span 
class="ectt-1200">etre</span>&#x00A0;<span 
class="ectt-1200">conservees</span>&#x00A0;<span 
class="ectt-1200">pour</span>&#x00A0;<span 
class="ectt-1200">la</span>&#x00A0;<span 
class="ectt-1200">suite</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">la</span>&#x00A0;<span 
class="ectt-1200">simulation</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">elle</span>&#x00A0;<span 
class="ectt-1200">renvoie</span>&#x00A0;<span 
class="ectt-1200">aussi</span>&#x00A0;<span 
class="ectt-1200">le</span>&#x00A0;<span 
class="ectt-1200">vecteur</span>&#x00A0;<span 
class="ectt-1200">Atnq</span>&#x00A0;<span 
class="ectt-1200">des</span>&#x00A0;<span 
class="ectt-1200">n+Mind+q</span>&#x00A0;<span 
class="ectt-1200">random</span>&#x00A0;<span 
class="ectt-1200">shocks</span>&#x00A0;<span 
class="ectt-1200">At</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">l&#x2019;etape</span>&#x00A0;<span 
class="ectt-1200">2</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">Burn.</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Utilisation</span>&#x00A0;<span 
class="ectt-1200">dans</span>&#x00A0;<span 
class="ectt-1200">une</span>&#x00A0;<span 
class="ectt-1200">fonction</span>&#x00A0;<span 
class="ectt-1200">main:</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">-------------------------------------</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PROGRAM</span>&#x00A0;<span 
class="ectt-1200">main</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">q,</span>&#x00A0;<span 
class="ectt-1200">n,</span>&#x00A0;<span 
class="ectt-1200">marret,</span>&#x00A0;<span 
class="ectt-1200">Mind,</span>&#x00A0;<span 
class="ectt-1200">loi,</span>&#x00A0;<span 
class="ectt-1200">df1,</span>&#x00A0;<span 
class="ectt-1200">df2</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">lambda,</span>&#x00A0;<span 
class="ectt-1200">EspSU,</span>&#x00A0;<span 
class="ectt-1200">EspSB,</span>&#x00A0;<span 
class="ectt-1200">EspS</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(q=2,n=100,marret=200,Mind=200,loi=1,</span>

&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">+</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">df1=2,df2=5,lambda=2.0,</span>&#x00A0;<span 
class="ectt-1200">EspSU=0,</span>&#x00A0;<span 
class="ectt-1200">EspSB=0,</span>&#x00A0;<span 
class="ectt-1200">EspS=0)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">loi5b,</span>&#x00A0;<span 
class="ectt-1200">loi5k,</span>&#x00A0;<span 
class="ectt-1200">loi6p,</span>&#x00A0;<span 
class="ectt-1200">loi6q</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">loi7g,</span>&#x00A0;<span 
class="ectt-1200">loi7d,</span>&#x00A0;<span 
class="ectt-1200">loi8p,</span>&#x00A0;<span 
class="ectt-1200">loi8q,</span>&#x00A0;<span 
class="ectt-1200">loi9a,</span>&#x00A0;<span 
class="ectt-1200">loi9b</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">loi10b,</span>&#x00A0;<span 
class="ectt-1200">loi10l,</span>&#x00A0;<span 
class="ectt-1200">loi11a,</span>&#x00A0;<span 
class="ectt-1200">loi11k,</span>&#x00A0;<span 
class="ectt-1200">loi13g,</span>&#x00A0;<span 
class="ectt-1200">loi13d</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">loi14l,</span>&#x00A0;<span 
class="ectt-1200">loi16p,</span>&#x00A0;<span 
class="ectt-1200">loi16d,</span>&#x00A0;<span 
class="ectt-1200">loi17p,</span>&#x00A0;<span 
class="ectt-1200">loi17m</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">loi18g,</span>&#x00A0;<span 
class="ectt-1200">loi18d,</span>&#x00A0;<span 
class="ectt-1200">loi19a,</span>&#x00A0;<span 
class="ectt-1200">loi19b</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(loi18g=1.0,loi18d=1.0,</span>&#x00A0;<span 
class="ectt-1200">loi19a=1.1,</span>&#x00A0;<span 
class="ectt-1200">loi19b=0.5)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(loi16p=0.2,loi16d=5.0,</span>&#x00A0;<span 
class="ectt-1200">loi17p=0.2,loi17m=3.0)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(loi10b=0.2,loi10l=1,</span>&#x00A0;<span 
class="ectt-1200">loi11a=2.0,loi11k=0.5)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(loi13g=1.0,loi13d=1.0,</span>&#x00A0;<span 
class="ectt-1200">loi14l=0.7)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(loi7g=0,loi7d=1,</span>&#x00A0;<span 
class="ectt-1200">loi8p=2,</span>&#x00A0;<span 
class="ectt-1200">loi8q=2,</span>&#x00A0;<span 
class="ectt-1200">loi9a=0,loi9b=2)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(loi5b=1,</span>&#x00A0;<span 
class="ectt-1200">loi5k=1.8,</span>&#x00A0;<span 
class="ectt-1200">loi6p=4,</span>&#x00A0;<span 
class="ectt-1200">loi6q=1)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">teta(2),</span>&#x00A0;<span 
class="ectt-1200">YtMn(Mind+n),</span>&#x00A0;<span 
class="ectt-1200">Atnq(n+Mind+q)</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Initialisation</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">teta</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">teta(1)=0.1</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">teta(2)=0.5</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CALL</span>&#x00A0;<span 
class="ectt-1200">G05CBF(0)</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Calcul</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">YtMn,</span>&#x00A0;<span 
class="ectt-1200">Atnq</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CALL</span>&#x00A0;<span 
class="ectt-1200">simMA(q,n,marret,Mind,loi,df1,df2,lambda,loi5b,</span>&#x00A0;<span 
class="ectt-1200">loi5k,</span>&#x00A0;<span 
class="ectt-1200">loi6p,</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">+</span>&#x00A0;&#x00A0;<span 
class="ectt-1200">loi6q,</span>&#x00A0;<span 
class="ectt-1200">loi7g,</span>&#x00A0;<span 
class="ectt-1200">loi7d,</span>&#x00A0;<span 
class="ectt-1200">loi8p,</span>&#x00A0;<span 
class="ectt-1200">loi8q,</span>&#x00A0;<span 
class="ectt-1200">loi9a,</span>&#x00A0;<span 
class="ectt-1200">loi9b,</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">+</span>&#x00A0;&#x00A0;<span 
class="ectt-1200">loi10b,</span>&#x00A0;<span 
class="ectt-1200">loi10l,</span>&#x00A0;<span 
class="ectt-1200">loi11a,</span>&#x00A0;<span 
class="ectt-1200">loi11k,</span>&#x00A0;<span 
class="ectt-1200">loi13g,</span>&#x00A0;<span 
class="ectt-1200">loi13d,</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">+</span>&#x00A0;&#x00A0;<span 
class="ectt-1200">loi14l,</span>&#x00A0;<span 
class="ectt-1200">loi16p,</span>&#x00A0;<span 
class="ectt-1200">loi16d,</span>&#x00A0;<span 
class="ectt-1200">loi17p,</span>&#x00A0;<span 
class="ectt-1200">loi17m,</span>&#x00A0;<span 
class="ectt-1200">loi18g,</span>&#x00A0;<span 
class="ectt-1200">loi18d,</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">+</span>&#x00A0;&#x00A0;<span 
class="ectt-1200">loi19a,</span>&#x00A0;<span 
class="ectt-1200">loi19b,</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">+</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">teta,YtMn,Atnq,</span>&#x00A0;<span 
class="ectt-1200">EspSU,EspSB,</span>&#x00A0;<span 
class="ectt-1200">EspS)</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Affichage</span>&#x00A0;<span 
class="ectt-1200">des</span>&#x00A0;<span 
class="ectt-1200">valeurs</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">YtMn</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(UNIT=6,FMT=*)</span>&#x00A0;<span 
class="ectt-1200">&#x2019;Affichage</span>&#x00A0;<span 
class="ectt-1200">des</span>&#x00A0;<span 
class="ectt-1200">valeurs</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">YtMn&#x2019;</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(UNIT=6,FMT=*)</span>&#x00A0;<span 
class="ectt-1200">YtMn</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Affichage</span>&#x00A0;<span 
class="ectt-1200">des</span>&#x00A0;<span 
class="ectt-1200">valeurs</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">Atnq</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(UNIT=6,FMT=*)</span>&#x00A0;<span 
class="ectt-1200">&#x2019;Affichage</span>&#x00A0;<span 
class="ectt-1200">des</span>&#x00A0;<span 
class="ectt-1200">valeurs</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">Atnq&#x2019;</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(UNIT=6,FMT=*)</span>&#x00A0;<span 
class="ectt-1200">Atnq</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">END</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INCLUDE</span>&#x00A0;<span 
class="ectt-1200">&#x2019;rskew.f&#x2019;</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INCLUDE</span>&#x00A0;<span 
class="ectt-1200">&#x2019;rlap.f&#x2019;</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INCLUDE</span>&#x00A0;<span 
class="ectt-1200">&#x2019;rpare.f&#x2019;</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INCLUDE</span>&#x00A0;<span 
class="ectt-1200">&#x2019;rspare.f&#x2019;</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INCLUDE</span>&#x00A0;<span 
class="ectt-1200">&#x2019;rSU.f&#x2019;</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INCLUDE</span>&#x00A0;<span 
class="ectt-1200">&#x2019;rTU.f&#x2019;</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INCLUDE</span>&#x00A0;<span 
class="ectt-1200">&#x2019;rSC.f&#x2019;</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INCLUDE</span>&#x00A0;<span 
class="ectt-1200">&#x2019;rLC.f&#x2019;</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INCLUDE</span>&#x00A0;<span 
class="ectt-1200">&#x2019;rSB.f&#x2019;</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INCLUDE</span>&#x00A0;<span 
class="ectt-1200">&#x2019;rS.f&#x2019;</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">-------------------------------------</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Instructions</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">compilation:</span>&#x00A0;<span 
class="ectt-1200">alias</span>&#x00A0;<span 
class="ectt-1200">f77=&#x2019;fort77&#x2019;</span>

&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">f77</span>&#x00A0;<span 
class="ectt-1200">-c</span>&#x00A0;<span 
class="ectt-1200">nom_du_fichier_contenant_la_fonction_main.f</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">f77</span>&#x00A0;<span 
class="ectt-1200">-c</span>&#x00A0;<span 
class="ectt-1200">simMA.f</span>&#x00A0;<span 
class="ectt-1200">-lnag</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">f77</span>&#x00A0;<span 
class="ectt-1200">nom_du_fichier_contenant_la_fonction_main.o</span>&#x00A0;<span 
class="ectt-1200">simMA.o</span>&#x00A0;<span 
class="ectt-1200">-lnag</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Fonctions</span>&#x00A0;<span 
class="ectt-1200">exterieures</span>&#x00A0;<span 
class="ectt-1200">appelees:</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">rskew.f,</span>&#x00A0;<span 
class="ectt-1200">rlap.f</span>&#x00A0;<span 
class="ectt-1200">et</span>&#x00A0;<span 
class="ectt-1200">G05DEF,</span>&#x00A0;<span 
class="ectt-1200">G05DHF,</span>&#x00A0;<span 
class="ectt-1200">G05DJF</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">NAG</span>&#x00A0;<span 
class="ectt-1200">Mark16</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Auteur:</span>&#x00A0;<span 
class="ectt-1200">Pierre</span>&#x00A0;<span 
class="ectt-1200">Lafaye</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">Micheaux</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Date:</span>&#x00A0;<span 
class="ectt-1200">15/02/2001</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Fin-Commentaires</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">SUBROUTINE</span>&#x00A0;<span 
class="ectt-1200">simMA</span>&#x00A0;<span 
class="ectt-1200">(q,n,marret,Mind,loi,df1,df2,lambda,loi5b,</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">+</span>&#x00A0;&#x00A0;<span 
class="ectt-1200">loi5k,</span>&#x00A0;<span 
class="ectt-1200">loi6p,</span>&#x00A0;<span 
class="ectt-1200">loi6q,</span>&#x00A0;<span 
class="ectt-1200">loi7g,</span>&#x00A0;<span 
class="ectt-1200">loi7d,</span>&#x00A0;<span 
class="ectt-1200">loi8p,</span>&#x00A0;<span 
class="ectt-1200">loi8q,</span>&#x00A0;<span 
class="ectt-1200">loi9a,</span>&#x00A0;<span 
class="ectt-1200">loi9b,</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">+</span>&#x00A0;&#x00A0;<span 
class="ectt-1200">loi10b,</span>&#x00A0;<span 
class="ectt-1200">loi10l,</span>&#x00A0;<span 
class="ectt-1200">loi11a,</span>&#x00A0;<span 
class="ectt-1200">loi11k,</span>&#x00A0;<span 
class="ectt-1200">loi13g,</span>&#x00A0;<span 
class="ectt-1200">loi13d,</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">+</span>&#x00A0;&#x00A0;<span 
class="ectt-1200">loi14l,</span>&#x00A0;<span 
class="ectt-1200">loi16p,</span>&#x00A0;<span 
class="ectt-1200">loi16d,</span>&#x00A0;<span 
class="ectt-1200">loi17p,</span>&#x00A0;<span 
class="ectt-1200">loi17m,</span>&#x00A0;<span 
class="ectt-1200">loi18g,</span>&#x00A0;<span 
class="ectt-1200">loi18d,</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">+</span>&#x00A0;&#x00A0;<span 
class="ectt-1200">loi19a,</span>&#x00A0;<span 
class="ectt-1200">loi19b,</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">+</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">teta,YtMn,Atnq,EspSU,EspSB,EspS)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">l,q,n,marret,Mind,loi,df1,df2</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">teta(2)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">YtMn(Mind+n)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">Atnq(n+Mind+q)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">pi,</span>&#x00A0;<span 
class="ectt-1200">a,</span>&#x00A0;<span 
class="ectt-1200">b,</span>&#x00A0;<span 
class="ectt-1200">lambda,</span>&#x00A0;<span 
class="ectt-1200">Eweibu,EspSU,</span>&#x00A0;<span 
class="ectt-1200">EspSB,</span>&#x00A0;<span 
class="ectt-1200">EspS</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">G05DEF,</span>&#x00A0;<span 
class="ectt-1200">G05DHF,</span>&#x00A0;<span 
class="ectt-1200">S14AAF</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">G05DJF,</span>&#x00A0;<span 
class="ectt-1200">G05DPF,</span>&#x00A0;<span 
class="ectt-1200">G05DCF</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">G05DAF,</span>&#x00A0;<span 
class="ectt-1200">G05DBF,</span>&#x00A0;<span 
class="ectt-1200">rS</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">loi5b,</span>&#x00A0;<span 
class="ectt-1200">loi5k,</span>&#x00A0;<span 
class="ectt-1200">loi6p,</span>&#x00A0;<span 
class="ectt-1200">loi6q</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">loi7g,</span>&#x00A0;<span 
class="ectt-1200">loi7d,</span>&#x00A0;<span 
class="ectt-1200">loi8p,</span>&#x00A0;<span 
class="ectt-1200">loi8q,</span>&#x00A0;<span 
class="ectt-1200">loi9a,</span>&#x00A0;<span 
class="ectt-1200">loi9b</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">loi10b,</span>&#x00A0;<span 
class="ectt-1200">loi10l,</span>&#x00A0;<span 
class="ectt-1200">loi11a,</span>&#x00A0;<span 
class="ectt-1200">loi11k,</span>&#x00A0;<span 
class="ectt-1200">loi13g,</span>&#x00A0;<span 
class="ectt-1200">loi13d</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">loi14l,</span>&#x00A0;<span 
class="ectt-1200">loi16p,</span>&#x00A0;<span 
class="ectt-1200">loi16d,</span>&#x00A0;<span 
class="ectt-1200">loi17p,</span>&#x00A0;<span 
class="ectt-1200">loi17m</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">loi18g,</span>&#x00A0;<span 
class="ectt-1200">loi18d,</span>&#x00A0;<span 
class="ectt-1200">loi19a,</span>&#x00A0;<span 
class="ectt-1200">loi19b</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Etape</span>&#x00A0;<span 
class="ectt-1200">2</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">l&#x2019;algorithme:</span>&#x00A0;<span 
class="ectt-1200">on</span>&#x00A0;<span 
class="ectt-1200">genere</span>&#x00A0;<span 
class="ectt-1200">n+Mind+q</span>&#x00A0;<span 
class="ectt-1200">random</span>&#x00A0;<span 
class="ectt-1200">shocks</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">l=n+Mind+q</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">pi=DBLE(3.14159265358979)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">a=DBLE(0.0)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">b=DBLE(1.0)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Ca</span>&#x00A0;<span 
class="ectt-1200">c&#x2019;est</span>&#x00A0;<span 
class="ectt-1200">inutile</span>&#x00A0;<span 
class="ectt-1200">puisqu&#x2019;on</span>&#x00A0;<span 
class="ectt-1200">n&#x2019;appelle</span>&#x00A0;<span 
class="ectt-1200">jamais</span>&#x00A0;<span 
class="ectt-1200">simulMA.f</span>&#x00A0;<span 
class="ectt-1200">avec</span>&#x00A0;<span 
class="ectt-1200">loi=0</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">IF</span>&#x00A0;<span 
class="ectt-1200">(loi</span>&#x00A0;<span 
class="ectt-1200">.EQ.</span>&#x00A0;<span 
class="ectt-1200">0)</span>&#x00A0;<span 
class="ectt-1200">THEN</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CALL</span>&#x00A0;<span 
class="ectt-1200">G05FDF(a,b,l,Atnq)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DO</span>&#x00A0;<span 
class="ectt-1200">10,</span>&#x00A0;<span 
class="ectt-1200">i=1,l</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Atnq(i)=Atnq(i)</span>&#x00A0;<span 
class="ectt-1200">-a</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">10</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CONTINUE</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">ENDIF</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">IF</span>&#x00A0;<span 
class="ectt-1200">(loi</span>&#x00A0;<span 
class="ectt-1200">.EQ.</span>&#x00A0;<span 
class="ectt-1200">1)</span>&#x00A0;<span 
class="ectt-1200">THEN</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DO</span>&#x00A0;<span 
class="ectt-1200">20,</span>&#x00A0;<span 
class="ectt-1200">i=1,l</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">IFAIL=0</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Atnq(i)=G05DHF(df1,IFAIL)-DBLE(df1)</span>

&#x00A0;<br />&#x00A0;<span 
class="ectt-1200">20</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CONTINUE</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">ENDIF</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">IF</span>&#x00A0;<span 
class="ectt-1200">(loi</span>&#x00A0;<span 
class="ectt-1200">.EQ.</span>&#x00A0;<span 
class="ectt-1200">2)</span>&#x00A0;<span 
class="ectt-1200">THEN</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">l&#x2019;esperance</span>&#x00A0;<span 
class="ectt-1200">d&#x2019;une</span>&#x00A0;<span 
class="ectt-1200">student</span>&#x00A0;<span 
class="ectt-1200">est</span>&#x00A0;<span 
class="ectt-1200">nulle</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DO</span>&#x00A0;<span 
class="ectt-1200">30,</span>&#x00A0;<span 
class="ectt-1200">i=1,l</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">IFAIL=0</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Atnq(i)=G05DJF(df2,IFAIL)</span>
&#x00A0;<br />&#x00A0;<span 
class="ectt-1200">30</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CONTINUE</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">ENDIF</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">IF</span>&#x00A0;<span 
class="ectt-1200">(loi</span>&#x00A0;<span 
class="ectt-1200">.EQ.</span>&#x00A0;<span 
class="ectt-1200">3)</span>&#x00A0;<span 
class="ectt-1200">THEN</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CALL</span>&#x00A0;<span 
class="ectt-1200">rskew(l,Atnq,lambda)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DO</span>&#x00A0;<span 
class="ectt-1200">40,</span>&#x00A0;<span 
class="ectt-1200">i=1,l</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Atnq(i)=Atnq(i)</span>&#x00A0;<span 
class="ectt-1200">-</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">+</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">dsqrt(dble(2.0)/pi)*(lambda/(sqrt(1+lambda*lambda)))</span>
&#x00A0;<br />&#x00A0;<span 
class="ectt-1200">40</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CONTINUE</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">ENDIF</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">IF</span>&#x00A0;<span 
class="ectt-1200">(loi</span>&#x00A0;<span 
class="ectt-1200">.EQ.</span>&#x00A0;<span 
class="ectt-1200">4)</span>&#x00A0;<span 
class="ectt-1200">THEN</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">l&#x2019;esperance</span>&#x00A0;<span 
class="ectt-1200">d&#x2019;une</span>&#x00A0;<span 
class="ectt-1200">loi</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">Laplace</span>&#x00A0;<span 
class="ectt-1200">est</span>&#x00A0;<span 
class="ectt-1200">nulle</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CALL</span>&#x00A0;<span 
class="ectt-1200">rlap(l,Atnq)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">ENDIF</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">IF</span>&#x00A0;<span 
class="ectt-1200">(loi</span>&#x00A0;<span 
class="ectt-1200">.EQ.</span>&#x00A0;<span 
class="ectt-1200">5)</span>&#x00A0;<span 
class="ectt-1200">THEN</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">IFAIL=0</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Eweibu=S14AAF(DBLE(1+1/loi5k),IFAIL)/loi5b</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DO</span>&#x00A0;<span 
class="ectt-1200">50,</span>&#x00A0;<span 
class="ectt-1200">i=1,l</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">IFAIL=0</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Atnq(i)=G05DPF(loi5k,(loi5b)**(-loi5k),IFAIL)-Eweibu</span>
&#x00A0;<br />&#x00A0;<span 
class="ectt-1200">50</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CONTINUE</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">ENDIF</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">IF</span>&#x00A0;<span 
class="ectt-1200">(loi</span>&#x00A0;<span 
class="ectt-1200">.EQ.</span>&#x00A0;<span 
class="ectt-1200">6)</span>&#x00A0;<span 
class="ectt-1200">THEN</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">IFAIL=0</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CALL</span>&#x00A0;<span 
class="ectt-1200">G05FFF(loi6p,loi6q,l,Atnq,IFAIL)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DO</span>&#x00A0;<span 
class="ectt-1200">60,</span>&#x00A0;<span 
class="ectt-1200">i=1,l</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Atnq(i)=Atnq(i)</span>&#x00A0;<span 
class="ectt-1200">-loi6p*loi6q</span>
&#x00A0;<br />&#x00A0;<span 
class="ectt-1200">60</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CONTINUE</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">ENDIF</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">IF</span>&#x00A0;<span 
class="ectt-1200">(loi</span>&#x00A0;<span 
class="ectt-1200">.EQ.</span>&#x00A0;<span 
class="ectt-1200">7)</span>&#x00A0;<span 
class="ectt-1200">THEN</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DO</span>&#x00A0;<span 
class="ectt-1200">70,</span>&#x00A0;<span 
class="ectt-1200">i=1,l</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Atnq(i)=G05DEF(-loi7g/loi7d,1/loi7d)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">+</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">-dexp(-loi7g/loi7d+0.5/(loi7d**2))</span>
&#x00A0;<br />&#x00A0;<span 
class="ectt-1200">70</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CONTINUE</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">ENDIF</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">IF</span>&#x00A0;<span 
class="ectt-1200">(loi</span>&#x00A0;<span 
class="ectt-1200">.EQ.</span>&#x00A0;<span 
class="ectt-1200">8)</span>&#x00A0;<span 
class="ectt-1200">THEN</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">IFAIL=0</span>

&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CALL</span>&#x00A0;<span 
class="ectt-1200">G05FEF(loi8p,loi8q,l,Atnq,IFAIL)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DO</span>&#x00A0;<span 
class="ectt-1200">80,</span>&#x00A0;<span 
class="ectt-1200">i=1,l</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Atnq(i)=Atnq(i)-loi8p/(loi8p+loi8q)</span>
&#x00A0;<br />&#x00A0;<span 
class="ectt-1200">80</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CONTINUE</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">ENDIF</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">IF</span>&#x00A0;<span 
class="ectt-1200">(loi</span>&#x00A0;<span 
class="ectt-1200">.EQ.</span>&#x00A0;<span 
class="ectt-1200">9)</span>&#x00A0;<span 
class="ectt-1200">THEN</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DO</span>&#x00A0;<span 
class="ectt-1200">90,</span>&#x00A0;<span 
class="ectt-1200">i=1,l</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Atnq(i)=G05DAF(loi9a,loi9b)-(loi9a+loi9b)/2</span>
&#x00A0;<br />&#x00A0;<span 
class="ectt-1200">90</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CONTINUE</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">ENDIF</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">IF</span>&#x00A0;<span 
class="ectt-1200">(loi</span>&#x00A0;<span 
class="ectt-1200">.EQ.</span>&#x00A0;<span 
class="ectt-1200">10)</span>&#x00A0;<span 
class="ectt-1200">THEN</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DO</span>&#x00A0;<span 
class="ectt-1200">100,</span>&#x00A0;<span 
class="ectt-1200">i=1,l</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Atnq(i)=G05DBF(1/loi10b)-1/loi10b</span>
&#x00A0;<br />&#x00A0;<span 
class="ectt-1200">100</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CONTINUE</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">ENDIF</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">IF</span>&#x00A0;<span 
class="ectt-1200">(loi</span>&#x00A0;<span 
class="ectt-1200">.EQ.</span>&#x00A0;<span 
class="ectt-1200">11)</span>&#x00A0;<span 
class="ectt-1200">THEN</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CALL</span>&#x00A0;<span 
class="ectt-1200">rpare(loi11a,loi11k,l,Atnq)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DO</span>&#x00A0;<span 
class="ectt-1200">110,</span>&#x00A0;<span 
class="ectt-1200">i=1,l</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Atnq(i)=Atnq(i)-loi11k*loi11a/(loi11a-1)</span>
&#x00A0;<br />&#x00A0;<span 
class="ectt-1200">110</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CONTINUE</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">ENDIF</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">IF</span>&#x00A0;<span 
class="ectt-1200">(loi</span>&#x00A0;<span 
class="ectt-1200">.EQ.</span>&#x00A0;<span 
class="ectt-1200">12)</span>&#x00A0;<span 
class="ectt-1200">THEN</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CALL</span>&#x00A0;<span 
class="ectt-1200">rspare(l,Atnq)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DO</span>&#x00A0;<span 
class="ectt-1200">120,</span>&#x00A0;<span 
class="ectt-1200">i=1,l</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Atnq(i)=Atnq(i)-dble(1.0)</span>
&#x00A0;<br />&#x00A0;<span 
class="ectt-1200">120</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CONTINUE</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">ENDIF</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">IF</span>&#x00A0;<span 
class="ectt-1200">(loi</span>&#x00A0;<span 
class="ectt-1200">.EQ.</span>&#x00A0;<span 
class="ectt-1200">13)</span>&#x00A0;<span 
class="ectt-1200">THEN</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CALL</span>&#x00A0;<span 
class="ectt-1200">rSU(loi13g,loi13d,l,Atnq)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DO</span>&#x00A0;<span 
class="ectt-1200">130,</span>&#x00A0;<span 
class="ectt-1200">i=1,l</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Atnq(i)=Atnq(i)-EspSU</span>
&#x00A0;<br />&#x00A0;<span 
class="ectt-1200">130</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CONTINUE</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">ENDIF</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">IF</span>&#x00A0;<span 
class="ectt-1200">(loi</span>&#x00A0;<span 
class="ectt-1200">.EQ.</span>&#x00A0;<span 
class="ectt-1200">14)</span>&#x00A0;<span 
class="ectt-1200">THEN</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">l&#x2019;esperance</span>&#x00A0;<span 
class="ectt-1200">d&#x2019;une</span>&#x00A0;<span 
class="ectt-1200">loi</span>&#x00A0;<span 
class="ectt-1200">TU(l)</span>&#x00A0;<span 
class="ectt-1200">=</span>&#x00A0;<span 
class="ectt-1200">0</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CALL</span>&#x00A0;<span 
class="ectt-1200">rTU(loi14l,l,Atnq)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">ENDIF</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">IF</span>&#x00A0;<span 
class="ectt-1200">(loi</span>&#x00A0;<span 
class="ectt-1200">.EQ.</span>&#x00A0;<span 
class="ectt-1200">15)</span>&#x00A0;<span 
class="ectt-1200">THEN</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DO</span>&#x00A0;<span 
class="ectt-1200">140,</span>&#x00A0;<span 
class="ectt-1200">i=1,l</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">l&#x2019;esperance</span>&#x00A0;<span 
class="ectt-1200">d&#x2019;une</span>&#x00A0;<span 
class="ectt-1200">loi</span>&#x00A0;<span 
class="ectt-1200">Logistic</span>&#x00A0;<span 
class="ectt-1200">=</span>&#x00A0;<span 
class="ectt-1200">0</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Atnq(i)=G05DCF(a,b)</span>
&#x00A0;<br />&#x00A0;<span 
class="ectt-1200">140</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CONTINUE</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">ENDIF</span>

&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">IF</span>&#x00A0;<span 
class="ectt-1200">(loi</span>&#x00A0;<span 
class="ectt-1200">.EQ.</span>&#x00A0;<span 
class="ectt-1200">16)</span>&#x00A0;<span 
class="ectt-1200">THEN</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">l&#x2019;esperance</span>&#x00A0;<span 
class="ectt-1200">d&#x2019;une</span>&#x00A0;<span 
class="ectt-1200">loi</span>&#x00A0;<span 
class="ectt-1200">SC(p,d)</span>&#x00A0;<span 
class="ectt-1200">=</span>&#x00A0;<span 
class="ectt-1200">0</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CALL</span>&#x00A0;<span 
class="ectt-1200">rSC(loi16p,loi16d,l,Atnq)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">ENDIF</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">IF</span>&#x00A0;<span 
class="ectt-1200">(loi</span>&#x00A0;<span 
class="ectt-1200">.EQ.</span>&#x00A0;<span 
class="ectt-1200">17)</span>&#x00A0;<span 
class="ectt-1200">THEN</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CALL</span>&#x00A0;<span 
class="ectt-1200">rLC(loi17p,loi17m,l,Atnq)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DO</span>&#x00A0;<span 
class="ectt-1200">150,</span>&#x00A0;<span 
class="ectt-1200">i=1,l</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Atnq(i)=Atnq(i)</span>&#x00A0;<span 
class="ectt-1200">-loi17p*loi17m</span>
&#x00A0;<br />&#x00A0;<span 
class="ectt-1200">150</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CONTINUE</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">ENDIF</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">IF</span>&#x00A0;<span 
class="ectt-1200">(loi</span>&#x00A0;<span 
class="ectt-1200">.EQ.</span>&#x00A0;<span 
class="ectt-1200">18)</span>&#x00A0;<span 
class="ectt-1200">THEN</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CALL</span>&#x00A0;<span 
class="ectt-1200">rSB(loi18g,loi18d,l,Atnq)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DO</span>&#x00A0;<span 
class="ectt-1200">160,</span>&#x00A0;<span 
class="ectt-1200">i=1,l</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Atnq(i)=Atnq(i)-EspSB</span>
&#x00A0;<br />&#x00A0;<span 
class="ectt-1200">160</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CONTINUE</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">ENDIF</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">IF</span>&#x00A0;<span 
class="ectt-1200">(loi</span>&#x00A0;<span 
class="ectt-1200">.EQ.</span>&#x00A0;<span 
class="ectt-1200">19)</span>&#x00A0;<span 
class="ectt-1200">THEN</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DO</span>&#x00A0;<span 
class="ectt-1200">170,</span>&#x00A0;<span 
class="ectt-1200">i=1,l</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Atnq(i)=rS(loi19a,loi19b)-EspS</span>
&#x00A0;<br />&#x00A0;<span 
class="ectt-1200">170</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CONTINUE</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">ENDIF</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Etape</span>&#x00A0;<span 
class="ectt-1200">3</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">l&#x2019;algorithme</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">YtMn:</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Y(1)</span>&#x00A0;<span 
class="ectt-1200">,</span>&#x00A0;<span 
class="ectt-1200">...,</span>&#x00A0;<span 
class="ectt-1200">Y(Mind+n)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">YtMn(i),</span>&#x00A0;<span 
class="ectt-1200">i=:</span>&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">1</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Mind+n</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DO</span>&#x00A0;<span 
class="ectt-1200">180,</span>&#x00A0;<span 
class="ectt-1200">i=1,(Mind+n)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">YtMn(i)=DBLE(0.0)</span>
&#x00A0;<br />&#x00A0;<span 
class="ectt-1200">180</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CONTINUE</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DO</span>&#x00A0;<span 
class="ectt-1200">200,i=1,(Mind+n)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Atnq:</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">eps(1-q),</span>&#x00A0;<span 
class="ectt-1200">eps(2-q),</span>&#x00A0;<span 
class="ectt-1200">...,</span>&#x00A0;<span 
class="ectt-1200">eps(0),</span>&#x00A0;<span 
class="ectt-1200">eps(1),</span>&#x00A0;<span 
class="ectt-1200">...,</span>&#x00A0;<span 
class="ectt-1200">eps(n+Mind)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Atnq(k),</span>&#x00A0;<span 
class="ectt-1200">k=:</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">1</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">2</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">q</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">q+1</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">n+Mind+q</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DO</span>&#x00A0;<span 
class="ectt-1200">190,</span>&#x00A0;<span 
class="ectt-1200">k=1,q</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">YtMn(i)=YtMn(i)+teta(k)*Atnq(q+i-k)</span>
&#x00A0;<br />&#x00A0;<span 
class="ectt-1200">190</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CONTINUE</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">YtMn(i)=YtMn(i)+Atnq(q+i)</span>
&#x00A0;<br />&#x00A0;<span 
class="ectt-1200">200</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CONTINUE</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">RETURN</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">END</span>
   </div>
<!--l. 331--><p class="indent">   <span 
class="ecbx-1200">Programme simulaARMA.f</span> </p><div class="verbatiminput">
<span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Debut-Commentaires</span>

&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Nom</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">la</span>&#x00A0;<span 
class="ectt-1200">sous-routine:</span>&#x00A0;<span 
class="ectt-1200">simARM</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Entrees:</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">p</span>&#x00A0;<span 
class="ectt-1200">(entier)</span>&#x00A0;<span 
class="ectt-1200">ordre</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">la</span>&#x00A0;<span 
class="ectt-1200">partie</span>&#x00A0;<span 
class="ectt-1200">AR</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">q</span>&#x00A0;<span 
class="ectt-1200">(entier)</span>&#x00A0;<span 
class="ectt-1200">ordre</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">la</span>&#x00A0;<span 
class="ectt-1200">partie</span>&#x00A0;<span 
class="ectt-1200">MA</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">n</span>&#x00A0;<span 
class="ectt-1200">(entier)</span>&#x00A0;<span 
class="ectt-1200">longueur</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">la</span>&#x00A0;<span 
class="ectt-1200">serie</span>&#x00A0;<span 
class="ectt-1200">souhaitee</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">marret</span>&#x00A0;<span 
class="ectt-1200">(entier)</span>&#x00A0;<span 
class="ectt-1200">rang</span>&#x00A0;<span 
class="ectt-1200">d&#x2019;arret</span>&#x00A0;<span 
class="ectt-1200">dans</span>&#x00A0;<span 
class="ectt-1200">la</span>&#x00A0;<span 
class="ectt-1200">random</span>&#x00A0;<span 
class="ectt-1200">shock</span>&#x00A0;<span 
class="ectt-1200">method</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Mind</span>&#x00A0;<span 
class="ectt-1200">(entier)</span>&#x00A0;<span 
class="ectt-1200">induction</span>&#x00A0;<span 
class="ectt-1200">period</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">loi</span>&#x00A0;<span 
class="ectt-1200">(entier)</span>&#x00A0;<span 
class="ectt-1200">specifie</span>&#x00A0;<span 
class="ectt-1200">la</span>&#x00A0;<span 
class="ectt-1200">loi</span>&#x00A0;<span 
class="ectt-1200">des</span>&#x00A0;<span 
class="ectt-1200">erreurs</span>&#x00A0;<span 
class="ectt-1200">ou</span>&#x00A0;<span 
class="ectt-1200">innovations</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">df1</span>&#x00A0;<span 
class="ectt-1200">(entier)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">df2</span>&#x00A0;<span 
class="ectt-1200">(entier)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">lambda</span>&#x00A0;<span 
class="ectt-1200">(double)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">loi5b,</span>&#x00A0;<span 
class="ectt-1200">loi5k,</span>&#x00A0;<span 
class="ectt-1200">loi6p,</span>&#x00A0;<span 
class="ectt-1200">loi6q</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">loi7g,</span>&#x00A0;<span 
class="ectt-1200">loi7d,</span>&#x00A0;<span 
class="ectt-1200">loi8p,</span>&#x00A0;<span 
class="ectt-1200">loi8q,</span>&#x00A0;<span 
class="ectt-1200">loi9a,</span>&#x00A0;<span 
class="ectt-1200">loi9b</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">loi10b,</span>&#x00A0;<span 
class="ectt-1200">loi10l,</span>&#x00A0;<span 
class="ectt-1200">loi11a,</span>&#x00A0;<span 
class="ectt-1200">loi11k,</span>&#x00A0;<span 
class="ectt-1200">loi13g,</span>&#x00A0;<span 
class="ectt-1200">loi13d</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">loi14l,</span>&#x00A0;<span 
class="ectt-1200">loi16p,</span>&#x00A0;<span 
class="ectt-1200">loi16d,</span>&#x00A0;<span 
class="ectt-1200">loi17p,</span>&#x00A0;<span 
class="ectt-1200">loi17m</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">loi18g,</span>&#x00A0;<span 
class="ectt-1200">loi18d,</span>&#x00A0;<span 
class="ectt-1200">loi19a,</span>&#x00A0;<span 
class="ectt-1200">loi19b</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Wtip</span>&#x00A0;<span 
class="ectt-1200">(vecteur,</span>&#x00A0;<span 
class="ectt-1200">double)</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">longueur</span>&#x00A0;<span 
class="ectt-1200">p</span>&#x00A0;<span 
class="ectt-1200">qui</span>&#x00A0;<span 
class="ectt-1200">contiendra</span>&#x00A0;<span 
class="ectt-1200">les</span>&#x00A0;<span 
class="ectt-1200">p</span>&#x00A0;<span 
class="ectt-1200">donnees</span>&#x00A0;<span 
class="ectt-1200">initiales</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">la</span>&#x00A0;<span 
class="ectt-1200">serie</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">shocks</span>&#x00A0;<span 
class="ectt-1200">(vecteur,</span>&#x00A0;<span 
class="ectt-1200">double)</span>&#x00A0;<span 
class="ectt-1200">des</span>&#x00A0;<span 
class="ectt-1200">marret+p</span>&#x00A0;<span 
class="ectt-1200">innovations</span>&#x00A0;<span 
class="ectt-1200">genere</span>&#x00A0;<span 
class="ectt-1200">par</span>&#x00A0;<span 
class="ectt-1200">shock.f</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">psi</span>&#x00A0;<span 
class="ectt-1200">(vecteur,</span>&#x00A0;<span 
class="ectt-1200">double)</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">longueur</span>&#x00A0;<span 
class="ectt-1200">marret+1</span>&#x00A0;<span 
class="ectt-1200">tel</span>&#x00A0;<span 
class="ectt-1200">que</span>&#x00A0;<span 
class="ectt-1200">defini</span>&#x00A0;<span 
class="ectt-1200">dans</span>&#x00A0;<span 
class="ectt-1200">Burn,</span>&#x00A0;<span 
class="ectt-1200">calcule</span>&#x00A0;<span 
class="ectt-1200">par</span>&#x00A0;<span 
class="ectt-1200">ARMpsi.f</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">phi</span>&#x00A0;<span 
class="ectt-1200">(vecteur,</span>&#x00A0;<span 
class="ectt-1200">double)</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">longueur</span>&#x00A0;<span 
class="ectt-1200">p</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">teta</span>&#x00A0;<span 
class="ectt-1200">(vecteur,</span>&#x00A0;<span 
class="ectt-1200">double)</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">longueur</span>&#x00A0;<span 
class="ectt-1200">q</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">phi2</span>&#x00A0;<span 
class="ectt-1200">(vecteur,</span>&#x00A0;<span 
class="ectt-1200">double)</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">longueur</span>&#x00A0;<span 
class="ectt-1200">marret</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">teta2</span>&#x00A0;<span 
class="ectt-1200">(vecteur,</span>&#x00A0;<span 
class="ectt-1200">double)</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">longueur</span>&#x00A0;<span 
class="ectt-1200">marret</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">YtpMn</span>&#x00A0;<span 
class="ectt-1200">(vecteur,</span>&#x00A0;<span 
class="ectt-1200">double)</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">longueur</span>&#x00A0;<span 
class="ectt-1200">p+Mind+n</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Atnq</span>&#x00A0;<span 
class="ectt-1200">(vecteur,</span>&#x00A0;<span 
class="ectt-1200">double)</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">longueur</span>&#x00A0;<span 
class="ectt-1200">n+Mind+q</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">EspSU</span>&#x00A0;<span 
class="ectt-1200">(double)</span>&#x00A0;<span 
class="ectt-1200">:</span>&#x00A0;<span 
class="ectt-1200">esperance</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">la</span>&#x00A0;<span 
class="ectt-1200">loi</span>&#x00A0;<span 
class="ectt-1200">SU</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">EspSB</span>&#x00A0;<span 
class="ectt-1200">(double)</span>&#x00A0;<span 
class="ectt-1200">:</span>&#x00A0;<span 
class="ectt-1200">esperance</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">la</span>&#x00A0;<span 
class="ectt-1200">loi</span>&#x00A0;<span 
class="ectt-1200">S</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">EspS</span>&#x00A0;<span 
class="ectt-1200">(double)</span>&#x00A0;<span 
class="ectt-1200">:</span>&#x00A0;<span 
class="ectt-1200">esperance</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">la</span>&#x00A0;<span 
class="ectt-1200">loi</span>&#x00A0;<span 
class="ectt-1200">S</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Sorties:</span>&#x00A0;<span 
class="ectt-1200">void</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Description:</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Ce</span>&#x00A0;<span 
class="ectt-1200">programme</span>&#x00A0;<span 
class="ectt-1200">realise</span>&#x00A0;<span 
class="ectt-1200">les</span>&#x00A0;<span 
class="ectt-1200">etapes</span>&#x00A0;<span 
class="ectt-1200">2</span>&#x00A0;<span 
class="ectt-1200">et</span>&#x00A0;<span 
class="ectt-1200">3</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">Simulation</span>&#x00A0;<span 
class="ectt-1200">Algorithm</span>&#x00A0;<span 
class="ectt-1200">1,</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">l&#x2019;article</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">Burn</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Cette</span>&#x00A0;<span 
class="ectt-1200">sous-routine</span>&#x00A0;<span 
class="ectt-1200">remplace</span>&#x00A0;<span 
class="ectt-1200">le</span>&#x00A0;<span 
class="ectt-1200">vecteur</span>&#x00A0;<span 
class="ectt-1200">YtpMn</span>&#x00A0;<span 
class="ectt-1200">en</span>&#x00A0;<span 
class="ectt-1200">entree</span>&#x00A0;<span 
class="ectt-1200">par</span>&#x00A0;<span 
class="ectt-1200">p+Mind+n</span>&#x00A0;<span 
class="ectt-1200">donnees</span>&#x00A0;<span 
class="ectt-1200">simulees</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">d&#x2019;un</span>&#x00A0;<span 
class="ectt-1200">modele</span>&#x00A0;<span 
class="ectt-1200">ARMA(p,q)</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">vecteur</span>&#x00A0;<span 
class="ectt-1200">d&#x2019;innovations</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">loi</span>&#x00A0;<span 
class="ectt-1200">donnee</span>&#x00A0;<span 
class="ectt-1200">par</span>&#x00A0;<span 
class="ectt-1200">l&#x2019;entier</span>&#x00A0;<span 
class="ectt-1200">loi</span>&#x00A0;<span 
class="ectt-1200">,</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">les</span>&#x00A0;<span 
class="ectt-1200">p</span>&#x00A0;<span 
class="ectt-1200">premieres</span>&#x00A0;<span 
class="ectt-1200">valeurs</span>&#x00A0;<span 
class="ectt-1200">sont</span>&#x00A0;<span 
class="ectt-1200">les</span>&#x00A0;<span 
class="ectt-1200">p</span>&#x00A0;<span 
class="ectt-1200">valeurs</span>&#x00A0;<span 
class="ectt-1200">initiales</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">l&#x2019;etape</span>&#x00A0;<span 
class="ectt-1200">1</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">Burn,</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">les</span>&#x00A0;<span 
class="ectt-1200">Mind</span>&#x00A0;<span 
class="ectt-1200">valeurs</span>&#x00A0;<span 
class="ectt-1200">suivantes</span>&#x00A0;<span 
class="ectt-1200">sont</span>&#x00A0;<span 
class="ectt-1200">les</span>&#x00A0;<span 
class="ectt-1200">valeurs</span>&#x00A0;<span 
class="ectt-1200">a</span>&#x00A0;<span 
class="ectt-1200">ecarter</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">la</span>&#x00A0;<span 
class="ectt-1200">warm-up</span>&#x00A0;<span 
class="ectt-1200">period</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">longueur</span>&#x00A0;<span 
class="ectt-1200">Mind</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">donc</span>&#x00A0;<span 
class="ectt-1200">seules</span>&#x00A0;<span 
class="ectt-1200">les</span>&#x00A0;<span 
class="ectt-1200">n</span>&#x00A0;<span 
class="ectt-1200">dernieres</span>&#x00A0;<span 
class="ectt-1200">valeurs</span>&#x00A0;<span 
class="ectt-1200">devront</span>&#x00A0;<span 
class="ectt-1200">etre</span>&#x00A0;<span 
class="ectt-1200">conservees</span>&#x00A0;<span 
class="ectt-1200">pour</span>&#x00A0;<span 
class="ectt-1200">la</span>&#x00A0;<span 
class="ectt-1200">suite</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">la</span>&#x00A0;<span 
class="ectt-1200">simulation</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">elle</span>&#x00A0;<span 
class="ectt-1200">renvoie</span>&#x00A0;<span 
class="ectt-1200">aussi</span>&#x00A0;<span 
class="ectt-1200">le</span>&#x00A0;<span 
class="ectt-1200">vecteur</span>&#x00A0;<span 
class="ectt-1200">shocks</span>&#x00A0;<span 
class="ectt-1200">des</span>&#x00A0;<span 
class="ectt-1200">marret+p</span>&#x00A0;<span 
class="ectt-1200">innovations</span>&#x00A0;<span 
class="ectt-1200">utilisees</span>&#x00A0;<span 
class="ectt-1200">dans</span>&#x00A0;<span 
class="ectt-1200">l&#x2019;algorithme</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Initialisation</span>&#x00A0;<span 
class="ectt-1200">1</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">Burn,</span>&#x00A0;<span 
class="ectt-1200">ainsi</span>&#x00A0;<span 
class="ectt-1200">que</span>&#x00A0;<span 
class="ectt-1200">le</span>&#x00A0;<span 
class="ectt-1200">vecteur</span>&#x00A0;<span 
class="ectt-1200">Atnq</span>&#x00A0;<span 
class="ectt-1200">des</span>&#x00A0;<span 
class="ectt-1200">n+Mind+q</span>&#x00A0;<span 
class="ectt-1200">random</span>&#x00A0;<span 
class="ectt-1200">shocks</span>&#x00A0;<span 
class="ectt-1200">At</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">l&#x2019;etape</span>&#x00A0;<span 
class="ectt-1200">2</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">Burn.</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Utilisation</span>&#x00A0;<span 
class="ectt-1200">dans</span>&#x00A0;<span 
class="ectt-1200">une</span>&#x00A0;<span 
class="ectt-1200">fonction</span>&#x00A0;<span 
class="ectt-1200">main:</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">-------------------------------------</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PROGRAM</span>&#x00A0;<span 
class="ectt-1200">main</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">p,</span>&#x00A0;<span 
class="ectt-1200">q,</span>&#x00A0;<span 
class="ectt-1200">n,</span>&#x00A0;<span 
class="ectt-1200">marret,</span>&#x00A0;<span 
class="ectt-1200">Mind,</span>&#x00A0;<span 
class="ectt-1200">loi,</span>&#x00A0;<span 
class="ectt-1200">df1,</span>&#x00A0;<span 
class="ectt-1200">df2</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">lambda,</span>&#x00A0;<span 
class="ectt-1200">EspSU,</span>&#x00A0;<span 
class="ectt-1200">EspSB,</span>&#x00A0;<span 
class="ectt-1200">EspS</span>

&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(p=2,q=2,n=100,marret=200,Mind=200,loi=1,</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">+</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">df1=2,df2=5,lambda=2.0,</span>&#x00A0;<span 
class="ectt-1200">EspSU=0,</span>&#x00A0;<span 
class="ectt-1200">EspSB=0,</span>&#x00A0;<span 
class="ectt-1200">EspS=0)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">loi5b,</span>&#x00A0;<span 
class="ectt-1200">loi5k,</span>&#x00A0;<span 
class="ectt-1200">loi6p,</span>&#x00A0;<span 
class="ectt-1200">loi6q</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">loi7g,</span>&#x00A0;<span 
class="ectt-1200">loi7d,</span>&#x00A0;<span 
class="ectt-1200">loi8p,</span>&#x00A0;<span 
class="ectt-1200">loi8q,</span>&#x00A0;<span 
class="ectt-1200">loi9a,</span>&#x00A0;<span 
class="ectt-1200">loi9b</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">loi10b,</span>&#x00A0;<span 
class="ectt-1200">loi10l,</span>&#x00A0;<span 
class="ectt-1200">loi11a,</span>&#x00A0;<span 
class="ectt-1200">loi11k,</span>&#x00A0;<span 
class="ectt-1200">loi13g,</span>&#x00A0;<span 
class="ectt-1200">loi13d</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">loi14l,</span>&#x00A0;<span 
class="ectt-1200">loi16p,</span>&#x00A0;<span 
class="ectt-1200">loi16d,</span>&#x00A0;<span 
class="ectt-1200">loi17p,</span>&#x00A0;<span 
class="ectt-1200">loi17m</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">loi18g,</span>&#x00A0;<span 
class="ectt-1200">loi18d,</span>&#x00A0;<span 
class="ectt-1200">loi19a,</span>&#x00A0;<span 
class="ectt-1200">loi19b</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(loi18g=1.0,loi18d=1.0,</span>&#x00A0;<span 
class="ectt-1200">loi19a=1.1,</span>&#x00A0;<span 
class="ectt-1200">loi19b=0.5)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(loi16p=0.2,loi16d=5.0,</span>&#x00A0;<span 
class="ectt-1200">loi17p=0.2,loi17m=3.0)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(loi10b=0.2,loi10l=1,</span>&#x00A0;<span 
class="ectt-1200">loi11a=2.0,loi11k=0.5)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(loi13g=1.0,loi13d=1.0,</span>&#x00A0;<span 
class="ectt-1200">loi14l=0.7)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(loi7g=0,loi7d=1,</span>&#x00A0;<span 
class="ectt-1200">loi8p=2,</span>&#x00A0;<span 
class="ectt-1200">loi8q=2,</span>&#x00A0;<span 
class="ectt-1200">loi9a=0,loi9b=2)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(loi5b=1,</span>&#x00A0;<span 
class="ectt-1200">loi5k=1.8,</span>&#x00A0;<span 
class="ectt-1200">loi6p=4,</span>&#x00A0;<span 
class="ectt-1200">loi6q=1)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">Wtip(p),</span>&#x00A0;<span 
class="ectt-1200">shocks(marret+p),</span>&#x00A0;<span 
class="ectt-1200">psi(marret+1)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">phi(2),</span>&#x00A0;<span 
class="ectt-1200">teta(2),</span>&#x00A0;<span 
class="ectt-1200">YtpMn(p+Mind+n),</span>&#x00A0;<span 
class="ectt-1200">Atnq(n+Mind+q)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">phi2(marret),</span>&#x00A0;<span 
class="ectt-1200">teta2(marret)</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Initialisation</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">phi</span>&#x00A0;<span 
class="ectt-1200">et</span>&#x00A0;<span 
class="ectt-1200">teta</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">phi(1)=0.1</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">phi(2)=0.2</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">teta(1)=0.1</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">teta(2)=0.5</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CALL</span>&#x00A0;<span 
class="ectt-1200">G05CBF(0)</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Calcul</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">YtpMn,</span>&#x00A0;<span 
class="ectt-1200">shocks,</span>&#x00A0;<span 
class="ectt-1200">Atnq</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CALL</span>&#x00A0;<span 
class="ectt-1200">simARM</span>&#x00A0;<span 
class="ectt-1200">(p,q,n,marret,Mind,loi,df1,df2,lambda,loi5b,</span>&#x00A0;<span 
class="ectt-1200">loi5k,</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">+</span>&#x00A0;&#x00A0;<span 
class="ectt-1200">loi6p,</span>&#x00A0;<span 
class="ectt-1200">loi6q,</span>&#x00A0;<span 
class="ectt-1200">loi7g,</span>&#x00A0;<span 
class="ectt-1200">loi7d,</span>&#x00A0;<span 
class="ectt-1200">loi8p,</span>&#x00A0;<span 
class="ectt-1200">loi8q,</span>&#x00A0;<span 
class="ectt-1200">loi9a,</span>&#x00A0;<span 
class="ectt-1200">loi9b,</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">+</span>&#x00A0;&#x00A0;<span 
class="ectt-1200">loi10b,</span>&#x00A0;<span 
class="ectt-1200">loi10l,</span>&#x00A0;<span 
class="ectt-1200">loi11a,</span>&#x00A0;<span 
class="ectt-1200">loi11k,</span>&#x00A0;<span 
class="ectt-1200">loi13g,</span>&#x00A0;<span 
class="ectt-1200">loi13d,</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">+</span>&#x00A0;&#x00A0;<span 
class="ectt-1200">loi14l,</span>&#x00A0;<span 
class="ectt-1200">loi16p,</span>&#x00A0;<span 
class="ectt-1200">loi16d,</span>&#x00A0;<span 
class="ectt-1200">loi17p,</span>&#x00A0;<span 
class="ectt-1200">loi17m,</span>&#x00A0;<span 
class="ectt-1200">loi18g,</span>&#x00A0;<span 
class="ectt-1200">loi18d,</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">+</span>&#x00A0;&#x00A0;<span 
class="ectt-1200">loi19a,</span>&#x00A0;<span 
class="ectt-1200">loi19b,</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">+</span>&#x00A0;&#x00A0;<span 
class="ectt-1200">Wtip,shocks,psi,phi,teta,phi2,teta2,YtpMn,Atnq,</span>&#x00A0;<span 
class="ectt-1200">EspSU,</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">+</span>&#x00A0;&#x00A0;<span 
class="ectt-1200">EspSB,</span>&#x00A0;<span 
class="ectt-1200">EspS</span>&#x00A0;<span 
class="ectt-1200">)</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Affichage</span>&#x00A0;<span 
class="ectt-1200">des</span>&#x00A0;<span 
class="ectt-1200">valeurs</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">YtpMn</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(UNIT=6,FMT=*)</span>&#x00A0;<span 
class="ectt-1200">&#x2019;Affichage</span>&#x00A0;<span 
class="ectt-1200">des</span>&#x00A0;<span 
class="ectt-1200">valeurs</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">YtpMn&#x2019;</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(UNIT=6,FMT=*)</span>&#x00A0;<span 
class="ectt-1200">YtpMn</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Affichage</span>&#x00A0;<span 
class="ectt-1200">des</span>&#x00A0;<span 
class="ectt-1200">valeurs</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">shocks</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(UNIT=6,FMT=*)</span>&#x00A0;<span 
class="ectt-1200">&#x2019;Affichage</span>&#x00A0;<span 
class="ectt-1200">des</span>&#x00A0;<span 
class="ectt-1200">valeurs</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">shocks&#x2019;</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(UNIT=6,FMT=*)</span>&#x00A0;<span 
class="ectt-1200">shocks</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Affichage</span>&#x00A0;<span 
class="ectt-1200">des</span>&#x00A0;<span 
class="ectt-1200">valeurs</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">Atnq</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(UNIT=6,FMT=*)</span>&#x00A0;<span 
class="ectt-1200">&#x2019;Affichage</span>&#x00A0;<span 
class="ectt-1200">des</span>&#x00A0;<span 
class="ectt-1200">valeurs</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">Atnq&#x2019;</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(UNIT=6,FMT=*)</span>&#x00A0;<span 
class="ectt-1200">Atnq</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">END</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INCLUDE</span>&#x00A0;<span 
class="ectt-1200">&#x2019;rskew.f&#x2019;</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INCLUDE</span>&#x00A0;<span 
class="ectt-1200">&#x2019;rlap.f&#x2019;</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INCLUDE</span>&#x00A0;<span 
class="ectt-1200">&#x2019;ARMpsi.f&#x2019;</span>

&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INCLUDE</span>&#x00A0;<span 
class="ectt-1200">&#x2019;shock.f&#x2019;</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INCLUDE</span>&#x00A0;<span 
class="ectt-1200">&#x2019;rpare.f&#x2019;</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INCLUDE</span>&#x00A0;<span 
class="ectt-1200">&#x2019;rspare.f&#x2019;</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INCLUDE</span>&#x00A0;<span 
class="ectt-1200">&#x2019;rSU.f&#x2019;</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INCLUDE</span>&#x00A0;<span 
class="ectt-1200">&#x2019;rTU.f&#x2019;</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INCLUDE</span>&#x00A0;<span 
class="ectt-1200">&#x2019;rSC.f&#x2019;</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INCLUDE</span>&#x00A0;<span 
class="ectt-1200">&#x2019;rLC.f&#x2019;</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INCLUDE</span>&#x00A0;<span 
class="ectt-1200">&#x2019;rSB.f&#x2019;</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INCLUDE</span>&#x00A0;<span 
class="ectt-1200">&#x2019;rS.f&#x2019;</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">-------------------------------------</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Instructions</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">compilation:</span>&#x00A0;<span 
class="ectt-1200">alias</span>&#x00A0;<span 
class="ectt-1200">f77=&#x2019;fort77&#x2019;</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">f77</span>&#x00A0;<span 
class="ectt-1200">-c</span>&#x00A0;<span 
class="ectt-1200">nom_du_fichier_contenant_la_fonction_main.f</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">f77</span>&#x00A0;<span 
class="ectt-1200">-c</span>&#x00A0;<span 
class="ectt-1200">simARM.f</span>&#x00A0;<span 
class="ectt-1200">-lnag</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">f77</span>&#x00A0;<span 
class="ectt-1200">nom_du_fichier_contenant_la_fonction_main.o</span>&#x00A0;<span 
class="ectt-1200">simARM.o</span>&#x00A0;<span 
class="ectt-1200">-lnag</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Fonctions</span>&#x00A0;<span 
class="ectt-1200">exterieures</span>&#x00A0;<span 
class="ectt-1200">appelees:</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">ARMpsi.f,</span>&#x00A0;<span 
class="ectt-1200">shock.f,</span>&#x00A0;<span 
class="ectt-1200">rskew.f,</span>&#x00A0;<span 
class="ectt-1200">rlap.f</span>&#x00A0;<span 
class="ectt-1200">et</span>&#x00A0;<span 
class="ectt-1200">G05DEF,</span>&#x00A0;<span 
class="ectt-1200">G05DHF,</span>&#x00A0;<span 
class="ectt-1200">G05DJF</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">NAG</span>&#x00A0;<span 
class="ectt-1200">Mark16</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Auteur:</span>&#x00A0;<span 
class="ectt-1200">Pierre</span>&#x00A0;<span 
class="ectt-1200">Lafaye</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">Micheaux</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Date:</span>&#x00A0;<span 
class="ectt-1200">15/02/2001</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Fin-Commentaires</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">SUBROUTINE</span>&#x00A0;<span 
class="ectt-1200">simARM</span>&#x00A0;<span 
class="ectt-1200">(p,q,n,marret,Mind,loi,df1,df2,lambda,loi5b,</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">+</span>&#x00A0;&#x00A0;<span 
class="ectt-1200">loi5k,</span>&#x00A0;<span 
class="ectt-1200">loi6p,</span>&#x00A0;<span 
class="ectt-1200">loi6q,</span>&#x00A0;<span 
class="ectt-1200">loi7g,</span>&#x00A0;<span 
class="ectt-1200">loi7d,</span>&#x00A0;<span 
class="ectt-1200">loi8p,</span>&#x00A0;<span 
class="ectt-1200">loi8q,</span>&#x00A0;<span 
class="ectt-1200">loi9a,</span>&#x00A0;<span 
class="ectt-1200">loi9b,</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">+</span>&#x00A0;&#x00A0;<span 
class="ectt-1200">loi10b,</span>&#x00A0;<span 
class="ectt-1200">loi10l,</span>&#x00A0;<span 
class="ectt-1200">loi11a,</span>&#x00A0;<span 
class="ectt-1200">loi11k,</span>&#x00A0;<span 
class="ectt-1200">loi13g,</span>&#x00A0;<span 
class="ectt-1200">loi13d,</span>&#x00A0;<span 
class="ectt-1200">loi14l,</span>&#x00A0;<span 
class="ectt-1200">loi16p,</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">+</span>&#x00A0;&#x00A0;<span 
class="ectt-1200">loi16d,</span>&#x00A0;<span 
class="ectt-1200">loi17p,</span>&#x00A0;<span 
class="ectt-1200">loi17m,</span>&#x00A0;<span 
class="ectt-1200">loi18g,</span>&#x00A0;<span 
class="ectt-1200">loi18d,</span>&#x00A0;<span 
class="ectt-1200">loi19a,</span>&#x00A0;<span 
class="ectt-1200">loi19b,</span>&#x00A0;<span 
class="ectt-1200">Wtip,</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">+</span>&#x00A0;<span 
class="ectt-1200">shocks,psi,phi,teta,phi2,teta2,YtpMn,Atnq,EspSU,EspSB,EspS)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">l,</span>&#x00A0;<span 
class="ectt-1200">p,q,n,marret,Mind,loi,df1,df2</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">Wtip(p),</span>&#x00A0;<span 
class="ectt-1200">shocks(marret+p),psi(marret+1)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">phi(2),teta(2),phi2(marret)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">teta2(marret),YtpMn(p+Mind+n)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">Atnq(n+Mind+q)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">pi,</span>&#x00A0;<span 
class="ectt-1200">a,</span>&#x00A0;<span 
class="ectt-1200">b,</span>&#x00A0;<span 
class="ectt-1200">lambda,</span>&#x00A0;<span 
class="ectt-1200">Eweibu</span>&#x00A0;<span 
class="ectt-1200">,EspSU,</span>&#x00A0;<span 
class="ectt-1200">EspSB,</span>&#x00A0;<span 
class="ectt-1200">EspS</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">G05DEF,</span>&#x00A0;<span 
class="ectt-1200">G05DHF</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">G05DJF,</span>&#x00A0;<span 
class="ectt-1200">G05DPF,</span>&#x00A0;<span 
class="ectt-1200">G05DCF,</span>&#x00A0;<span 
class="ectt-1200">S14AAF</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">G05DAF,</span>&#x00A0;<span 
class="ectt-1200">G05DBF,</span>&#x00A0;<span 
class="ectt-1200">rS</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">loi5b,</span>&#x00A0;<span 
class="ectt-1200">loi5k,</span>&#x00A0;<span 
class="ectt-1200">loi6p,</span>&#x00A0;<span 
class="ectt-1200">loi6q</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">loi7g,</span>&#x00A0;<span 
class="ectt-1200">loi7d,</span>&#x00A0;<span 
class="ectt-1200">loi8p,</span>&#x00A0;<span 
class="ectt-1200">loi8q,</span>&#x00A0;<span 
class="ectt-1200">loi9a,</span>&#x00A0;<span 
class="ectt-1200">loi9b</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">loi10b,</span>&#x00A0;<span 
class="ectt-1200">loi10l,</span>&#x00A0;<span 
class="ectt-1200">loi11a,</span>&#x00A0;<span 
class="ectt-1200">loi11k,</span>&#x00A0;<span 
class="ectt-1200">loi13g,</span>&#x00A0;<span 
class="ectt-1200">loi13d</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">loi14l,</span>&#x00A0;<span 
class="ectt-1200">loi16p,</span>&#x00A0;<span 
class="ectt-1200">loi16d,</span>&#x00A0;<span 
class="ectt-1200">loi17p,</span>&#x00A0;<span 
class="ectt-1200">loi17m</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">loi18g,</span>&#x00A0;<span 
class="ectt-1200">loi18d,</span>&#x00A0;<span 
class="ectt-1200">loi19a,</span>&#x00A0;<span 
class="ectt-1200">loi19b</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Calcul</span>&#x00A0;<span 
class="ectt-1200">des</span>&#x00A0;<span 
class="ectt-1200">valeurs</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">psi</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CALL</span>&#x00A0;<span 
class="ectt-1200">ARMpsi(marret,p,q,psi,phi,teta,</span>&#x00A0;<span 
class="ectt-1200">phi2,</span>&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">teta2)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Calcul</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">shocks</span>&#x00A0;<span 
class="ectt-1200">et</span>&#x00A0;<span 
class="ectt-1200">Wtip</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CALL</span>&#x00A0;<span 
class="ectt-1200">shock(p,</span>&#x00A0;<span 
class="ectt-1200">marret,</span>&#x00A0;<span 
class="ectt-1200">loi,</span>&#x00A0;<span 
class="ectt-1200">Wtip,</span>&#x00A0;<span 
class="ectt-1200">shocks,</span>&#x00A0;<span 
class="ectt-1200">psi,</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">+</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">df1,</span>&#x00A0;<span 
class="ectt-1200">df2,</span>&#x00A0;<span 
class="ectt-1200">lambda,</span>&#x00A0;<span 
class="ectt-1200">loi5b,</span>&#x00A0;<span 
class="ectt-1200">loi5k,</span>&#x00A0;<span 
class="ectt-1200">loi6p,</span>&#x00A0;<span 
class="ectt-1200">loi6q,</span>

&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">+</span>&#x00A0;&#x00A0;<span 
class="ectt-1200">loi7g,</span>&#x00A0;<span 
class="ectt-1200">loi7d,</span>&#x00A0;<span 
class="ectt-1200">loi8p,</span>&#x00A0;<span 
class="ectt-1200">loi8q,</span>&#x00A0;<span 
class="ectt-1200">loi9a,</span>&#x00A0;<span 
class="ectt-1200">loi9b,</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">+</span>&#x00A0;&#x00A0;<span 
class="ectt-1200">loi10b,</span>&#x00A0;<span 
class="ectt-1200">loi10l,</span>&#x00A0;<span 
class="ectt-1200">loi11a,</span>&#x00A0;<span 
class="ectt-1200">loi11k,</span>&#x00A0;<span 
class="ectt-1200">loi13g,</span>&#x00A0;<span 
class="ectt-1200">loi13d,</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">+</span>&#x00A0;&#x00A0;<span 
class="ectt-1200">loi14l,</span>&#x00A0;<span 
class="ectt-1200">loi16p,</span>&#x00A0;<span 
class="ectt-1200">loi16d,</span>&#x00A0;<span 
class="ectt-1200">loi17p,</span>&#x00A0;<span 
class="ectt-1200">loi17m,</span>&#x00A0;<span 
class="ectt-1200">loi18g,</span>&#x00A0;<span 
class="ectt-1200">loi18d,</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">+</span>&#x00A0;&#x00A0;<span 
class="ectt-1200">loi19a,</span>&#x00A0;<span 
class="ectt-1200">loi19b)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Etape</span>&#x00A0;<span 
class="ectt-1200">2</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">l&#x2019;algorithme:</span>&#x00A0;<span 
class="ectt-1200">on</span>&#x00A0;<span 
class="ectt-1200">genere</span>&#x00A0;<span 
class="ectt-1200">n+Mind+q</span>&#x00A0;<span 
class="ectt-1200">random</span>&#x00A0;<span 
class="ectt-1200">shocks</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">l=n+Mind+q</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">pi=DBLE(3.14159265358979)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">a=DBLE(0.0)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">b=DBLE(1.0)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Ca</span>&#x00A0;<span 
class="ectt-1200">c&#x2019;est</span>&#x00A0;<span 
class="ectt-1200">inutile</span>&#x00A0;<span 
class="ectt-1200">puisqu&#x2019;on</span>&#x00A0;<span 
class="ectt-1200">appelle</span>&#x00A0;<span 
class="ectt-1200">jamais</span>&#x00A0;<span 
class="ectt-1200">simulARMA</span>&#x00A0;<span 
class="ectt-1200">avec</span>&#x00A0;<span 
class="ectt-1200">loi=0</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">IF</span>&#x00A0;<span 
class="ectt-1200">(loi</span>&#x00A0;<span 
class="ectt-1200">.EQ.</span>&#x00A0;<span 
class="ectt-1200">0)</span>&#x00A0;<span 
class="ectt-1200">THEN</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CALL</span>&#x00A0;<span 
class="ectt-1200">G05FDF(a,b,l,Atnq)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DO</span>&#x00A0;<span 
class="ectt-1200">10,</span>&#x00A0;<span 
class="ectt-1200">i=1,l</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Atnq(i)=Atnq(i)</span>&#x00A0;<span 
class="ectt-1200">-a</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">10</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CONTINUE</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">ENDIF</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">IF</span>&#x00A0;<span 
class="ectt-1200">(loi</span>&#x00A0;<span 
class="ectt-1200">.EQ.</span>&#x00A0;<span 
class="ectt-1200">1)</span>&#x00A0;<span 
class="ectt-1200">THEN</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DO</span>&#x00A0;<span 
class="ectt-1200">20,</span>&#x00A0;<span 
class="ectt-1200">i=1,l</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">IFAIL=0</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Atnq(i)=G05DHF(df1,IFAIL)-DBLE(df1)</span>
&#x00A0;<br />&#x00A0;<span 
class="ectt-1200">20</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CONTINUE</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">ENDIF</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">IF</span>&#x00A0;<span 
class="ectt-1200">(loi</span>&#x00A0;<span 
class="ectt-1200">.EQ.</span>&#x00A0;<span 
class="ectt-1200">2)</span>&#x00A0;<span 
class="ectt-1200">THEN</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DO</span>&#x00A0;<span 
class="ectt-1200">30,</span>&#x00A0;<span 
class="ectt-1200">i=1,l</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">l&#x2019;esperance</span>&#x00A0;<span 
class="ectt-1200">d&#x2019;une</span>&#x00A0;<span 
class="ectt-1200">student</span>&#x00A0;<span 
class="ectt-1200">est</span>&#x00A0;<span 
class="ectt-1200">nulle</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">IFAIL=0</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Atnq(i)=G05DJF(df2,IFAIL)</span>
&#x00A0;<br />&#x00A0;<span 
class="ectt-1200">30</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CONTINUE</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">ENDIF</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">IF</span>&#x00A0;<span 
class="ectt-1200">(loi</span>&#x00A0;<span 
class="ectt-1200">.EQ.</span>&#x00A0;<span 
class="ectt-1200">3)</span>&#x00A0;<span 
class="ectt-1200">THEN</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CALL</span>&#x00A0;<span 
class="ectt-1200">rskew(l,Atnq,lambda)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DO</span>&#x00A0;<span 
class="ectt-1200">40,</span>&#x00A0;<span 
class="ectt-1200">i=1,l</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Atnq(i)=Atnq(i)</span>&#x00A0;<span 
class="ectt-1200">-</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">+</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">dsqrt(dble(2.0)/pi)*(lambda/(sqrt(1+lambda*lambda)))</span>
&#x00A0;<br />&#x00A0;<span 
class="ectt-1200">40</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CONTINUE</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">ENDIF</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">IF</span>&#x00A0;<span 
class="ectt-1200">(loi</span>&#x00A0;<span 
class="ectt-1200">.EQ.</span>&#x00A0;<span 
class="ectt-1200">4)</span>&#x00A0;<span 
class="ectt-1200">THEN</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">l&#x2019;esperance</span>&#x00A0;<span 
class="ectt-1200">d&#x2019;une</span>&#x00A0;<span 
class="ectt-1200">loi</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">Laplace</span>&#x00A0;<span 
class="ectt-1200">est</span>&#x00A0;<span 
class="ectt-1200">nulle</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CALL</span>&#x00A0;<span 
class="ectt-1200">rlap(l,Atnq)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">ENDIF</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">IF</span>&#x00A0;<span 
class="ectt-1200">(loi</span>&#x00A0;<span 
class="ectt-1200">.EQ.</span>&#x00A0;<span 
class="ectt-1200">5)</span>&#x00A0;<span 
class="ectt-1200">THEN</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">IFAIL=0</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Eweibu=S14AAF(DBLE(1+1/loi5k),IFAIL)/loi5b</span>

&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DO</span>&#x00A0;<span 
class="ectt-1200">50,</span>&#x00A0;<span 
class="ectt-1200">i=1,l</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">IFAIL=0</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Atnq(i)=G05DPF(loi5k,(loi5b)**(-loi5k),IFAIL)-Eweibu</span>
&#x00A0;<br />&#x00A0;<span 
class="ectt-1200">50</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CONTINUE</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">ENDIF</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">IF</span>&#x00A0;<span 
class="ectt-1200">(loi</span>&#x00A0;<span 
class="ectt-1200">.EQ.</span>&#x00A0;<span 
class="ectt-1200">6)</span>&#x00A0;<span 
class="ectt-1200">THEN</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">IFAIL=0</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CALL</span>&#x00A0;<span 
class="ectt-1200">G05FFF(loi6p,loi6q,l,Atnq,IFAIL)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DO</span>&#x00A0;<span 
class="ectt-1200">60,</span>&#x00A0;<span 
class="ectt-1200">i=1,l</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Atnq(i)=Atnq(i)</span>&#x00A0;<span 
class="ectt-1200">-loi6p*loi6q</span>
&#x00A0;<br />&#x00A0;<span 
class="ectt-1200">60</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CONTINUE</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">ENDIF</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">IF</span>&#x00A0;<span 
class="ectt-1200">(loi</span>&#x00A0;<span 
class="ectt-1200">.EQ.</span>&#x00A0;<span 
class="ectt-1200">7)</span>&#x00A0;<span 
class="ectt-1200">THEN</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DO</span>&#x00A0;<span 
class="ectt-1200">70,</span>&#x00A0;<span 
class="ectt-1200">i=1,l</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Atnq(i)=G05DEF(-loi7g/loi7d,1/loi7d)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">+</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">-dexp(-loi7g/loi7d+0.5/(loi7d**2))</span>
&#x00A0;<br />&#x00A0;<span 
class="ectt-1200">70</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CONTINUE</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">ENDIF</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">IF</span>&#x00A0;<span 
class="ectt-1200">(loi</span>&#x00A0;<span 
class="ectt-1200">.EQ.</span>&#x00A0;<span 
class="ectt-1200">8)</span>&#x00A0;<span 
class="ectt-1200">THEN</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">IFAIL=0</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CALL</span>&#x00A0;<span 
class="ectt-1200">G05FEF(loi8p,loi8q,l,Atnq,IFAIL)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DO</span>&#x00A0;<span 
class="ectt-1200">80,</span>&#x00A0;<span 
class="ectt-1200">i=1,l</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Atnq(i)=Atnq(i)-loi8p/(loi8p+loi8q)</span>
&#x00A0;<br />&#x00A0;<span 
class="ectt-1200">80</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CONTINUE</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">ENDIF</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">IF</span>&#x00A0;<span 
class="ectt-1200">(loi</span>&#x00A0;<span 
class="ectt-1200">.EQ.</span>&#x00A0;<span 
class="ectt-1200">9)</span>&#x00A0;<span 
class="ectt-1200">THEN</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DO</span>&#x00A0;<span 
class="ectt-1200">90,</span>&#x00A0;<span 
class="ectt-1200">i=1,l</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Atnq(i)=G05DAF(loi9a,loi9b)-(loi9a+loi9b)/2</span>
&#x00A0;<br />&#x00A0;<span 
class="ectt-1200">90</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CONTINUE</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">ENDIF</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">IF</span>&#x00A0;<span 
class="ectt-1200">(loi</span>&#x00A0;<span 
class="ectt-1200">.EQ.</span>&#x00A0;<span 
class="ectt-1200">10)</span>&#x00A0;<span 
class="ectt-1200">THEN</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DO</span>&#x00A0;<span 
class="ectt-1200">100,</span>&#x00A0;<span 
class="ectt-1200">i=1,l</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Atnq(i)=G05DBF(1/loi10b)-1/loi10b</span>
&#x00A0;<br />&#x00A0;<span 
class="ectt-1200">100</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CONTINUE</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">ENDIF</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">IF</span>&#x00A0;<span 
class="ectt-1200">(loi</span>&#x00A0;<span 
class="ectt-1200">.EQ.</span>&#x00A0;<span 
class="ectt-1200">11)</span>&#x00A0;<span 
class="ectt-1200">THEN</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CALL</span>&#x00A0;<span 
class="ectt-1200">rpare(loi11a,loi11k,l,Atnq)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DO</span>&#x00A0;<span 
class="ectt-1200">110,</span>&#x00A0;<span 
class="ectt-1200">i=1,l</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Atnq(i)=Atnq(i)-loi11k*loi11a/(loi11a-1)</span>
&#x00A0;<br />&#x00A0;<span 
class="ectt-1200">110</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CONTINUE</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">ENDIF</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">IF</span>&#x00A0;<span 
class="ectt-1200">(loi</span>&#x00A0;<span 
class="ectt-1200">.EQ.</span>&#x00A0;<span 
class="ectt-1200">12)</span>&#x00A0;<span 
class="ectt-1200">THEN</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CALL</span>&#x00A0;<span 
class="ectt-1200">rspare(l,Atnq)</span>

&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DO</span>&#x00A0;<span 
class="ectt-1200">120,</span>&#x00A0;<span 
class="ectt-1200">i=1,l</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Atnq(i)=Atnq(i)-dble(1.0)</span>
&#x00A0;<br />&#x00A0;<span 
class="ectt-1200">120</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CONTINUE</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">ENDIF</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">IF</span>&#x00A0;<span 
class="ectt-1200">(loi</span>&#x00A0;<span 
class="ectt-1200">.EQ.</span>&#x00A0;<span 
class="ectt-1200">13)</span>&#x00A0;<span 
class="ectt-1200">THEN</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CALL</span>&#x00A0;<span 
class="ectt-1200">rSU(loi13g,loi13d,l,Atnq)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DO</span>&#x00A0;<span 
class="ectt-1200">130,</span>&#x00A0;<span 
class="ectt-1200">i=1,l</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Atnq(i)=Atnq(i)-EspSU</span>
&#x00A0;<br />&#x00A0;<span 
class="ectt-1200">130</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CONTINUE</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">ENDIF</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">IF</span>&#x00A0;<span 
class="ectt-1200">(loi</span>&#x00A0;<span 
class="ectt-1200">.EQ.</span>&#x00A0;<span 
class="ectt-1200">14)</span>&#x00A0;<span 
class="ectt-1200">THEN</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">l&#x2019;esperance</span>&#x00A0;<span 
class="ectt-1200">d&#x2019;une</span>&#x00A0;<span 
class="ectt-1200">loi</span>&#x00A0;<span 
class="ectt-1200">TU(l)</span>&#x00A0;<span 
class="ectt-1200">=</span>&#x00A0;<span 
class="ectt-1200">0</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CALL</span>&#x00A0;<span 
class="ectt-1200">rTU(loi14l,l,Atnq)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">ENDIF</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">IF</span>&#x00A0;<span 
class="ectt-1200">(loi</span>&#x00A0;<span 
class="ectt-1200">.EQ.</span>&#x00A0;<span 
class="ectt-1200">15)</span>&#x00A0;<span 
class="ectt-1200">THEN</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DO</span>&#x00A0;<span 
class="ectt-1200">140,</span>&#x00A0;<span 
class="ectt-1200">i=1,l</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">l&#x2019;esperance</span>&#x00A0;<span 
class="ectt-1200">d&#x2019;une</span>&#x00A0;<span 
class="ectt-1200">loi</span>&#x00A0;<span 
class="ectt-1200">Logistic</span>&#x00A0;<span 
class="ectt-1200">=</span>&#x00A0;<span 
class="ectt-1200">0</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Atnq(i)=G05DCF(a,b)</span>
&#x00A0;<br />&#x00A0;<span 
class="ectt-1200">140</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CONTINUE</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">ENDIF</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">IF</span>&#x00A0;<span 
class="ectt-1200">(loi</span>&#x00A0;<span 
class="ectt-1200">.EQ.</span>&#x00A0;<span 
class="ectt-1200">16)</span>&#x00A0;<span 
class="ectt-1200">THEN</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">l&#x2019;esperance</span>&#x00A0;<span 
class="ectt-1200">d&#x2019;une</span>&#x00A0;<span 
class="ectt-1200">loi</span>&#x00A0;<span 
class="ectt-1200">SC(p,d)</span>&#x00A0;<span 
class="ectt-1200">=</span>&#x00A0;<span 
class="ectt-1200">0</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CALL</span>&#x00A0;<span 
class="ectt-1200">rSC(loi16p,loi16d,l,Atnq)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">ENDIF</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">IF</span>&#x00A0;<span 
class="ectt-1200">(loi</span>&#x00A0;<span 
class="ectt-1200">.EQ.</span>&#x00A0;<span 
class="ectt-1200">17)</span>&#x00A0;<span 
class="ectt-1200">THEN</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CALL</span>&#x00A0;<span 
class="ectt-1200">rLC(loi17p,loi17m,l,Atnq)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DO</span>&#x00A0;<span 
class="ectt-1200">150,</span>&#x00A0;<span 
class="ectt-1200">i=1,l</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Atnq(i)=Atnq(i)</span>&#x00A0;<span 
class="ectt-1200">-loi17p*loi17m</span>
&#x00A0;<br />&#x00A0;<span 
class="ectt-1200">150</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CONTINUE</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">ENDIF</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">IF</span>&#x00A0;<span 
class="ectt-1200">(loi</span>&#x00A0;<span 
class="ectt-1200">.EQ.</span>&#x00A0;<span 
class="ectt-1200">18)</span>&#x00A0;<span 
class="ectt-1200">THEN</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CALL</span>&#x00A0;<span 
class="ectt-1200">rSB(loi18g,loi18d,l,Atnq)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DO</span>&#x00A0;<span 
class="ectt-1200">160,</span>&#x00A0;<span 
class="ectt-1200">i=1,l</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Atnq(i)=Atnq(i)-EspSB</span>
&#x00A0;<br />&#x00A0;<span 
class="ectt-1200">160</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CONTINUE</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">ENDIF</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">IF</span>&#x00A0;<span 
class="ectt-1200">(loi</span>&#x00A0;<span 
class="ectt-1200">.EQ.</span>&#x00A0;<span 
class="ectt-1200">19)</span>&#x00A0;<span 
class="ectt-1200">THEN</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DO</span>&#x00A0;<span 
class="ectt-1200">170,</span>&#x00A0;<span 
class="ectt-1200">i=1,l</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Atnq(i)=rS(loi19a,loi19b)-EspS</span>
&#x00A0;<br />&#x00A0;<span 
class="ectt-1200">170</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CONTINUE</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">ENDIF</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Etape</span>&#x00A0;<span 
class="ectt-1200">3</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">l&#x2019;algorithme</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">YtpMn:</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Y(1-p),</span>&#x00A0;<span 
class="ectt-1200">Y(2-p),</span>&#x00A0;<span 
class="ectt-1200">...,</span>&#x00A0;<span 
class="ectt-1200">Y(0),</span>&#x00A0;<span 
class="ectt-1200">Y(1)</span>&#x00A0;<span 
class="ectt-1200">,</span>&#x00A0;<span 
class="ectt-1200">...,</span>&#x00A0;<span 
class="ectt-1200">Y(Mind+n)</span>

&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">YtpMn(i),</span>&#x00A0;<span 
class="ectt-1200">i=:</span>&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">1</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">2</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">p</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">p+1</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">p+Mind+n</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DO</span>&#x00A0;<span 
class="ectt-1200">180,</span>&#x00A0;<span 
class="ectt-1200">i=1,(p+Mind+n)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">YtpMn(i)=DBLE(0.0)</span>
&#x00A0;<br />&#x00A0;<span 
class="ectt-1200">180</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CONTINUE</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Wtp:</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Y(1-p),</span>&#x00A0;<span 
class="ectt-1200">Y(2-p),</span>&#x00A0;<span 
class="ectt-1200">...,</span>&#x00A0;<span 
class="ectt-1200">Y(0)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">YtpMn(i),</span>&#x00A0;<span 
class="ectt-1200">i=:</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">1</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">2</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">p</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DO</span>&#x00A0;<span 
class="ectt-1200">190,</span>&#x00A0;<span 
class="ectt-1200">i=1,p</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">YtpMn(i)=Wtip(i)</span>
&#x00A0;<br />&#x00A0;<span 
class="ectt-1200">190</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CONTINUE</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DO</span>&#x00A0;<span 
class="ectt-1200">220,i=(p+1),(p+Mind+n)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DO</span>&#x00A0;<span 
class="ectt-1200">200,</span>&#x00A0;<span 
class="ectt-1200">k=1,p</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">YtpMn(i)=YtpMn(i)+phi(k)*YtpMn(i-k)</span>
&#x00A0;<br />&#x00A0;<span 
class="ectt-1200">200</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CONTINUE</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Atnq:</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">eps(1-q),</span>&#x00A0;<span 
class="ectt-1200">eps(2-q),</span>&#x00A0;<span 
class="ectt-1200">...,</span>&#x00A0;<span 
class="ectt-1200">eps(0),</span>&#x00A0;<span 
class="ectt-1200">eps(1),</span>&#x00A0;<span 
class="ectt-1200">...,</span>&#x00A0;<span 
class="ectt-1200">eps(n+Mind)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Atnq(k),</span>&#x00A0;<span 
class="ectt-1200">k=:</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">1</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">2</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">q</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">q+1</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">n+Mind+q</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DO</span>&#x00A0;<span 
class="ectt-1200">210,</span>&#x00A0;<span 
class="ectt-1200">k=1,q</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">YtpMn(i)=YtpMn(i)+teta(k)*Atnq(q-p+i-k)</span>
&#x00A0;<br />&#x00A0;<span 
class="ectt-1200">210</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CONTINUE</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">YtpMn(i)=YtpMn(i)+Atnq(q-p+i)</span>
&#x00A0;<br />&#x00A0;<span 
class="ectt-1200">220</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CONTINUE</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">RETURN</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">END</span>
   </div>
   <h3 class="sectionHead"><span class="titlemark">A.9. </span> <a 
  name="x1-52000A.9"></a>Les programmes pour la &#x201C;random shock method&#x201D; de Burn</h3>
<!--l. 336--><p class="noindent"><span 
class="ecbx-1200">Programme ARpsi.f</span> </p><div class="verbatiminput">
<span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Debut-Commentaires</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Nom</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">la</span>&#x00A0;<span 
class="ectt-1200">sous-routine:</span>&#x00A0;<span 
class="ectt-1200">ARpsi</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Entrees:</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">marret</span>&#x00A0;<span 
class="ectt-1200">(entier),</span>&#x00A0;<span 
class="ectt-1200">longueur</span>&#x00A0;<span 
class="ectt-1200">du</span>&#x00A0;<span 
class="ectt-1200">vecteur</span>&#x00A0;<span 
class="ectt-1200">psi</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">psi</span>&#x00A0;<span 
class="ectt-1200">(double),</span>&#x00A0;<span 
class="ectt-1200">un</span>&#x00A0;<span 
class="ectt-1200">vecteur</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">marret</span>&#x00A0;<span 
class="ectt-1200">nombres</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">p</span>&#x00A0;<span 
class="ectt-1200">(entier)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">phi</span>&#x00A0;<span 
class="ectt-1200">(double),</span>&#x00A0;<span 
class="ectt-1200">vecteur</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">longueur</span>&#x00A0;<span 
class="ectt-1200">p</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">phi2(marret)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Sorties:</span>&#x00A0;<span 
class="ectt-1200">void</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Description:</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Cette</span>&#x00A0;<span 
class="ectt-1200">fonction</span>&#x00A0;<span 
class="ectt-1200">ne</span>&#x00A0;<span 
class="ectt-1200">renvoie</span>&#x00A0;<span 
class="ectt-1200">rien</span>&#x00A0;<span 
class="ectt-1200">mais</span>&#x00A0;<span 
class="ectt-1200">modifie</span>&#x00A0;<span 
class="ectt-1200">le</span>&#x00A0;<span 
class="ectt-1200">vecteur</span>&#x00A0;<span 
class="ectt-1200">psi,</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">en</span>&#x00A0;<span 
class="ectt-1200">le</span>&#x00A0;<span 
class="ectt-1200">remplacant</span>&#x00A0;<span 
class="ectt-1200">par</span>&#x00A0;<span 
class="ectt-1200">les</span>&#x00A0;<span 
class="ectt-1200">valeurs</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">psi(i)</span>&#x00A0;<span 
class="ectt-1200">telles</span>&#x00A0;<span 
class="ectt-1200">que</span>&#x00A0;<span 
class="ectt-1200">definies</span>&#x00A0;<span 
class="ectt-1200">dans</span>&#x00A0;<span 
class="ectt-1200">Burn</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">pour</span>&#x00A0;<span 
class="ectt-1200">i=1,</span>&#x00A0;<span 
class="ectt-1200">...,</span>&#x00A0;<span 
class="ectt-1200">marret+1</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Utilisation</span>&#x00A0;<span 
class="ectt-1200">dans</span>&#x00A0;<span 
class="ectt-1200">une</span>&#x00A0;<span 
class="ectt-1200">fonction</span>&#x00A0;<span 
class="ectt-1200">main:</span>

&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">-------------------------------------</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PROGRAM</span>&#x00A0;<span 
class="ectt-1200">main</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">marret,</span>&#x00A0;<span 
class="ectt-1200">p</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(p=2)</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">longueur</span>&#x00A0;<span 
class="ectt-1200">du</span>&#x00A0;<span 
class="ectt-1200">vecteur</span>&#x00A0;<span 
class="ectt-1200">psi,</span>&#x00A0;<span 
class="ectt-1200">a</span>&#x00A0;<span 
class="ectt-1200">modifier</span>&#x00A0;<span 
class="ectt-1200">dans</span>&#x00A0;<span 
class="ectt-1200">le</span>&#x00A0;<span 
class="ectt-1200">programme</span>&#x00A0;<span 
class="ectt-1200">principal</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(marret=50)</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">initialisation</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">psi</span>&#x00A0;<span 
class="ectt-1200">et</span>&#x00A0;<span 
class="ectt-1200">phi</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">psi(marret+1),</span>&#x00A0;<span 
class="ectt-1200">phi(2)</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">initialisation</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">phi2</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">longueur</span>&#x00A0;<span 
class="ectt-1200">p</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">phi2(marret)</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">affectation</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">valeurs</span>&#x00A0;<span 
class="ectt-1200">a</span>&#x00A0;<span 
class="ectt-1200">phi</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">phi(1)=0.1</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">phi(2)=0.2</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">calcul</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">psi,</span>&#x00A0;<span 
class="ectt-1200">remplace</span>&#x00A0;<span 
class="ectt-1200">psi</span>&#x00A0;<span 
class="ectt-1200">par</span>&#x00A0;<span 
class="ectt-1200">ARpsi(m,p,psi,phi)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CALL</span>&#x00A0;<span 
class="ectt-1200">ARpsi(marret,p,psi,phi,phi2)</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Affichage</span>&#x00A0;<span 
class="ectt-1200">des</span>&#x00A0;<span 
class="ectt-1200">valeurs</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">psi</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(UNIT=6,FMT=*)</span>&#x00A0;<span 
class="ectt-1200">&#x2019;Affichage</span>&#x00A0;<span 
class="ectt-1200">des</span>&#x00A0;<span 
class="ectt-1200">valeurs</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">psi&#x2019;</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(UNIT=6,FMT=*)</span>&#x00A0;<span 
class="ectt-1200">psi</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">END</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">-------------------------------------</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Instructions</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">compilation:</span>&#x00A0;<span 
class="ectt-1200">alias</span>&#x00A0;<span 
class="ectt-1200">f77=&#x2019;fort77&#x2019;</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">f77</span>&#x00A0;<span 
class="ectt-1200">-c</span>&#x00A0;<span 
class="ectt-1200">nom_du_fichier_contenant_la_fonction_main.f</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">f77</span>&#x00A0;<span 
class="ectt-1200">-c</span>&#x00A0;<span 
class="ectt-1200">ARpsi.f</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">f77</span>&#x00A0;<span 
class="ectt-1200">nom_du_fichier_contenant_la_fonction_main.o</span>&#x00A0;<span 
class="ectt-1200">ARpsi.o</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Fonctions</span>&#x00A0;<span 
class="ectt-1200">exterieures</span>&#x00A0;<span 
class="ectt-1200">appelees:</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Auteur:</span>&#x00A0;<span 
class="ectt-1200">Pierre</span>&#x00A0;<span 
class="ectt-1200">Lafaye</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">Micheaux</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Date:</span>&#x00A0;<span 
class="ectt-1200">15/02/2001</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Fin-Commentaires</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">SUBROUTINE</span>&#x00A0;<span 
class="ectt-1200">ARpsi(marret,p,psi,phi,phi2)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">marret,</span>&#x00A0;<span 
class="ectt-1200">p,</span>&#x00A0;<span 
class="ectt-1200">j,</span>&#x00A0;<span 
class="ectt-1200">k</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">psi(marret+1),</span>&#x00A0;<span 
class="ectt-1200">phi(2)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">phi2(marret)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DO</span>&#x00A0;<span 
class="ectt-1200">2,</span>&#x00A0;<span 
class="ectt-1200">j=1,marret</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">phi2(j)=DBLE(0.0)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">psi(j)=DBLE(0.0)</span>
&#x00A0;<br />&#x00A0;<span 
class="ectt-1200">2</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CONTINUE</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">psi(1)=DBLE(1.0)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">psi(marret+1)=DBLE(0.0)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DO</span>&#x00A0;<span 
class="ectt-1200">3,</span>&#x00A0;<span 
class="ectt-1200">j=1,p</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">phi2(j)=phi(j)</span>
&#x00A0;<br />&#x00A0;<span 
class="ectt-1200">3</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CONTINUE</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DO</span>&#x00A0;<span 
class="ectt-1200">20,</span>&#x00A0;<span 
class="ectt-1200">j=1,marret</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DO</span>&#x00A0;<span 
class="ectt-1200">10,</span>&#x00A0;<span 
class="ectt-1200">k=1,j</span>

&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">psi(j+1)=psi(j+1)+phi2(k)*psi(j-k+1)</span>
&#x00A0;<br />&#x00A0;<span 
class="ectt-1200">10</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CONTINUE</span>
&#x00A0;<br />&#x00A0;<span 
class="ectt-1200">20</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CONTINUE</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">RETURN</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">END</span>
   </div>
<!--l. 340--><p class="indent">   <span 
class="ecbx-1200">Programme MApsi.f</span> </p><div class="verbatiminput">
<span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Debut-Commentaires</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Nom</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">la</span>&#x00A0;<span 
class="ectt-1200">sous-routine:</span>&#x00A0;<span 
class="ectt-1200">MApsi</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Entrees:</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">marret</span>&#x00A0;<span 
class="ectt-1200">(entier),</span>&#x00A0;<span 
class="ectt-1200">longueur</span>&#x00A0;<span 
class="ectt-1200">du</span>&#x00A0;<span 
class="ectt-1200">vecteur</span>&#x00A0;<span 
class="ectt-1200">psi</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">psi</span>&#x00A0;<span 
class="ectt-1200">(double),</span>&#x00A0;<span 
class="ectt-1200">un</span>&#x00A0;<span 
class="ectt-1200">vecteur</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">marret</span>&#x00A0;<span 
class="ectt-1200">nombres</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">q</span>&#x00A0;<span 
class="ectt-1200">(entier)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">teta</span>&#x00A0;<span 
class="ectt-1200">(double),</span>&#x00A0;<span 
class="ectt-1200">vecteur</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">longueur</span>&#x00A0;<span 
class="ectt-1200">q</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Sorties:</span>&#x00A0;<span 
class="ectt-1200">void</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Description:</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Cette</span>&#x00A0;<span 
class="ectt-1200">fonction</span>&#x00A0;<span 
class="ectt-1200">ne</span>&#x00A0;<span 
class="ectt-1200">renvoie</span>&#x00A0;<span 
class="ectt-1200">rien</span>&#x00A0;<span 
class="ectt-1200">mais</span>&#x00A0;<span 
class="ectt-1200">modifie</span>&#x00A0;<span 
class="ectt-1200">le</span>&#x00A0;<span 
class="ectt-1200">vecteur</span>&#x00A0;<span 
class="ectt-1200">psi,</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">en</span>&#x00A0;<span 
class="ectt-1200">le</span>&#x00A0;<span 
class="ectt-1200">remplacant</span>&#x00A0;<span 
class="ectt-1200">par</span>&#x00A0;<span 
class="ectt-1200">les</span>&#x00A0;<span 
class="ectt-1200">valeurs</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">psi(i)</span>&#x00A0;<span 
class="ectt-1200">telles</span>&#x00A0;<span 
class="ectt-1200">que</span>&#x00A0;<span 
class="ectt-1200">definies</span>&#x00A0;<span 
class="ectt-1200">dans</span>&#x00A0;<span 
class="ectt-1200">Burn</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">pour</span>&#x00A0;<span 
class="ectt-1200">i=1,</span>&#x00A0;<span 
class="ectt-1200">...,</span>&#x00A0;<span 
class="ectt-1200">marret+1</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Utilisation</span>&#x00A0;<span 
class="ectt-1200">dans</span>&#x00A0;<span 
class="ectt-1200">une</span>&#x00A0;<span 
class="ectt-1200">fonction</span>&#x00A0;<span 
class="ectt-1200">main:</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">-------------------------------------</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PROGRAM</span>&#x00A0;<span 
class="ectt-1200">main</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">marret,</span>&#x00A0;<span 
class="ectt-1200">q</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(q=2)</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">longueur</span>&#x00A0;<span 
class="ectt-1200">du</span>&#x00A0;<span 
class="ectt-1200">vecteur</span>&#x00A0;<span 
class="ectt-1200">psi,</span>&#x00A0;<span 
class="ectt-1200">a</span>&#x00A0;<span 
class="ectt-1200">modifier</span>&#x00A0;<span 
class="ectt-1200">dans</span>&#x00A0;<span 
class="ectt-1200">le</span>&#x00A0;<span 
class="ectt-1200">programme</span>&#x00A0;<span 
class="ectt-1200">principal</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(marret=50)</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">initialisation</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">psi</span>&#x00A0;<span 
class="ectt-1200">et</span>&#x00A0;<span 
class="ectt-1200">teta</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">psi(marret+1),</span>&#x00A0;<span 
class="ectt-1200">teta(q)</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">affectation</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">valeurs</span>&#x00A0;<span 
class="ectt-1200">a</span>&#x00A0;<span 
class="ectt-1200">teta</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">teta(1)=0.1</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">teta(2)=0.5</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">calcul</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">psi,</span>&#x00A0;<span 
class="ectt-1200">remplace</span>&#x00A0;<span 
class="ectt-1200">psi</span>&#x00A0;<span 
class="ectt-1200">par</span>&#x00A0;<span 
class="ectt-1200">psi(m,q,psi,teta)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CALL</span>&#x00A0;<span 
class="ectt-1200">MApsi(marret,q,psi,teta)</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Affichage</span>&#x00A0;<span 
class="ectt-1200">des</span>&#x00A0;<span 
class="ectt-1200">valeurs</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">psi</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(UNIT=6,FMT=*)</span>&#x00A0;<span 
class="ectt-1200">&#x2019;Affichage</span>&#x00A0;<span 
class="ectt-1200">des</span>&#x00A0;<span 
class="ectt-1200">valeurs</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">psi&#x2019;</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(UNIT=6,FMT=*)</span>&#x00A0;<span 
class="ectt-1200">psi</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">END</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">-------------------------------------</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Instructions</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">compilation:</span>&#x00A0;<span 
class="ectt-1200">alias</span>&#x00A0;<span 
class="ectt-1200">f77=&#x2019;fort77&#x2019;</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">f77</span>&#x00A0;<span 
class="ectt-1200">-c</span>&#x00A0;<span 
class="ectt-1200">nom_du_fichier_contenant_la_fonction_main.f</span>

&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">f77</span>&#x00A0;<span 
class="ectt-1200">-c</span>&#x00A0;<span 
class="ectt-1200">MApsi.f</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">f77</span>&#x00A0;<span 
class="ectt-1200">nom_du_fichier_contenant_la_fonction_main.o</span>&#x00A0;<span 
class="ectt-1200">MApsi.o</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Fonctions</span>&#x00A0;<span 
class="ectt-1200">exterieures</span>&#x00A0;<span 
class="ectt-1200">appelees:</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Auteur:</span>&#x00A0;<span 
class="ectt-1200">Pierre</span>&#x00A0;<span 
class="ectt-1200">Lafaye</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">Micheaux</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Date:</span>&#x00A0;<span 
class="ectt-1200">15/02/2001</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Fin-Commentaires</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">SUBROUTINE</span>&#x00A0;<span 
class="ectt-1200">MApsi(marret,q,psi,teta)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">marret,</span>&#x00A0;<span 
class="ectt-1200">q,</span>&#x00A0;<span 
class="ectt-1200">j</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">psi(marret+1),</span>&#x00A0;<span 
class="ectt-1200">teta(q)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">psi(1)=DBLE(1.0)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DO</span>&#x00A0;<span 
class="ectt-1200">10,</span>&#x00A0;<span 
class="ectt-1200">j=1,q</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">psi(j+1)=teta(j)</span>
&#x00A0;<br />&#x00A0;<span 
class="ectt-1200">10</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CONTINUE</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DO</span>&#x00A0;<span 
class="ectt-1200">20,</span>&#x00A0;<span 
class="ectt-1200">j=(q+1),marret</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">psi(j+1)=DBLE(0.0)</span>
&#x00A0;<br />&#x00A0;<span 
class="ectt-1200">20</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CONTINUE</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">RETURN</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">END</span>
   </div>
<!--l. 344--><p class="indent">   <span 
class="ecbx-1200">Programme ARMpsi.f</span> </p><div class="verbatiminput">
<span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Debut-Commentaires</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Nom</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">la</span>&#x00A0;<span 
class="ectt-1200">sous-routine:</span>&#x00A0;<span 
class="ectt-1200">ARMpsi</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Entrees:</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">marret</span>&#x00A0;<span 
class="ectt-1200">(entier),</span>&#x00A0;<span 
class="ectt-1200">longueur</span>&#x00A0;<span 
class="ectt-1200">du</span>&#x00A0;<span 
class="ectt-1200">vecteur</span>&#x00A0;<span 
class="ectt-1200">psi</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">psi</span>&#x00A0;<span 
class="ectt-1200">(double),</span>&#x00A0;<span 
class="ectt-1200">un</span>&#x00A0;<span 
class="ectt-1200">vecteur</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">marret</span>&#x00A0;<span 
class="ectt-1200">nombres</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">p</span>&#x00A0;<span 
class="ectt-1200">(entier)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">phi</span>&#x00A0;<span 
class="ectt-1200">(double),</span>&#x00A0;<span 
class="ectt-1200">vecteur</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">longueur</span>&#x00A0;<span 
class="ectt-1200">p</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">q</span>&#x00A0;<span 
class="ectt-1200">(entier)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">teta</span>&#x00A0;<span 
class="ectt-1200">(double)</span>&#x00A0;<span 
class="ectt-1200">vecteur</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">longueur</span>&#x00A0;<span 
class="ectt-1200">q</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">phi2</span>&#x00A0;<span 
class="ectt-1200">(double),</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">longueur</span>&#x00A0;<span 
class="ectt-1200">marret</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">teta2</span>&#x00A0;<span 
class="ectt-1200">(double),</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">longueur</span>&#x00A0;<span 
class="ectt-1200">marret</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Sorties:</span>&#x00A0;<span 
class="ectt-1200">void</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Description:</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Cette</span>&#x00A0;<span 
class="ectt-1200">fonction</span>&#x00A0;<span 
class="ectt-1200">ne</span>&#x00A0;<span 
class="ectt-1200">renvoie</span>&#x00A0;<span 
class="ectt-1200">rien</span>&#x00A0;<span 
class="ectt-1200">mais</span>&#x00A0;<span 
class="ectt-1200">modifie</span>&#x00A0;<span 
class="ectt-1200">le</span>&#x00A0;<span 
class="ectt-1200">vecteur</span>&#x00A0;<span 
class="ectt-1200">psi,</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">en</span>&#x00A0;<span 
class="ectt-1200">le</span>&#x00A0;<span 
class="ectt-1200">remplacant</span>&#x00A0;<span 
class="ectt-1200">par</span>&#x00A0;<span 
class="ectt-1200">les</span>&#x00A0;<span 
class="ectt-1200">valeurs</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">psi(i)</span>&#x00A0;<span 
class="ectt-1200">telles</span>&#x00A0;<span 
class="ectt-1200">que</span>&#x00A0;<span 
class="ectt-1200">definies</span>&#x00A0;<span 
class="ectt-1200">dans</span>&#x00A0;<span 
class="ectt-1200">Burn</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">pour</span>&#x00A0;<span 
class="ectt-1200">i=1,</span>&#x00A0;<span 
class="ectt-1200">...,</span>&#x00A0;<span 
class="ectt-1200">marret+1</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Utilisation</span>&#x00A0;<span 
class="ectt-1200">dans</span>&#x00A0;<span 
class="ectt-1200">une</span>&#x00A0;<span 
class="ectt-1200">fonction</span>&#x00A0;<span 
class="ectt-1200">main:</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">-------------------------------------</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PROGRAM</span>&#x00A0;<span 
class="ectt-1200">main</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">marret,</span>&#x00A0;<span 
class="ectt-1200">p,</span>&#x00A0;<span 
class="ectt-1200">q</span>

&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(p=2,</span>&#x00A0;<span 
class="ectt-1200">q=2)</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">longueur</span>&#x00A0;<span 
class="ectt-1200">du</span>&#x00A0;<span 
class="ectt-1200">vecteur</span>&#x00A0;<span 
class="ectt-1200">psi,</span>&#x00A0;<span 
class="ectt-1200">a</span>&#x00A0;<span 
class="ectt-1200">modifier</span>&#x00A0;<span 
class="ectt-1200">dans</span>&#x00A0;<span 
class="ectt-1200">le</span>&#x00A0;<span 
class="ectt-1200">programme</span>&#x00A0;<span 
class="ectt-1200">principal</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(marret=50)</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">initialisation</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">psi,</span>&#x00A0;<span 
class="ectt-1200">phi</span>&#x00A0;<span 
class="ectt-1200">et</span>&#x00A0;<span 
class="ectt-1200">teta</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">psi(marret+1),</span>&#x00A0;<span 
class="ectt-1200">phi(2),</span>&#x00A0;<span 
class="ectt-1200">teta(2)</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">initialisation</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">phi2</span>&#x00A0;<span 
class="ectt-1200">et</span>&#x00A0;<span 
class="ectt-1200">teta2</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">phi2(marret),</span>&#x00A0;<span 
class="ectt-1200">teta2(marret)</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">affectation</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">valeurs</span>&#x00A0;<span 
class="ectt-1200">a</span>&#x00A0;<span 
class="ectt-1200">phi</span>&#x00A0;<span 
class="ectt-1200">et</span>&#x00A0;<span 
class="ectt-1200">teta</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">phi(1)=0.1</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">phi(2)=0.2</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">teta(1)=0.1</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">teta(2)=0.5</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">calcul</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">psi(marret,p,q,psi,phi,teta),</span>&#x00A0;<span 
class="ectt-1200">remplace</span>&#x00A0;<span 
class="ectt-1200">psi</span>&#x00A0;<span 
class="ectt-1200">par</span>&#x00A0;<span 
class="ectt-1200">psi(m,p,q,psi,phi,teta)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CALL</span>&#x00A0;<span 
class="ectt-1200">ARMpsi(marret,p,q,psi,phi,teta,phi2,teta2)</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Affichage</span>&#x00A0;<span 
class="ectt-1200">des</span>&#x00A0;<span 
class="ectt-1200">valeurs</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">psi</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(UNIT=6,FMT=*)</span>&#x00A0;<span 
class="ectt-1200">&#x2019;Affichage</span>&#x00A0;<span 
class="ectt-1200">des</span>&#x00A0;<span 
class="ectt-1200">valeurs</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">psi&#x2019;</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(UNIT=6,FMT=*)</span>&#x00A0;<span 
class="ectt-1200">psi</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">END</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">-------------------------------------</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Instructions</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">compilation:</span>&#x00A0;<span 
class="ectt-1200">alias</span>&#x00A0;<span 
class="ectt-1200">f77=&#x2019;fort77&#x2019;</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">f77</span>&#x00A0;<span 
class="ectt-1200">-c</span>&#x00A0;<span 
class="ectt-1200">nom_du_fichier_contenant_la_fonction_main.f</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">f77</span>&#x00A0;<span 
class="ectt-1200">-c</span>&#x00A0;<span 
class="ectt-1200">ARMpsi.f</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">f77</span>&#x00A0;<span 
class="ectt-1200">nom_du_fichier_contenant_la_fonction_main.o</span>&#x00A0;<span 
class="ectt-1200">ARMpsi.o</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Fonctions</span>&#x00A0;<span 
class="ectt-1200">exterieures</span>&#x00A0;<span 
class="ectt-1200">appelees:</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Auteur:</span>&#x00A0;<span 
class="ectt-1200">Pierre</span>&#x00A0;<span 
class="ectt-1200">Lafaye</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">Micheaux</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Date:</span>&#x00A0;<span 
class="ectt-1200">15/02/2001</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Fin-Commentaires</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">SUBROUTINE</span>&#x00A0;<span 
class="ectt-1200">ARMpsi(marret,p,q,psi,phi,teta,phi2,teta2)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">marret,</span>&#x00A0;<span 
class="ectt-1200">p,</span>&#x00A0;<span 
class="ectt-1200">q,</span>&#x00A0;<span 
class="ectt-1200">j,</span>&#x00A0;<span 
class="ectt-1200">k</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">psi(marret+1),</span>&#x00A0;<span 
class="ectt-1200">phi(2),</span>&#x00A0;<span 
class="ectt-1200">teta(2)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">phi2(marret),</span>&#x00A0;<span 
class="ectt-1200">teta2(marret)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DO</span>&#x00A0;<span 
class="ectt-1200">2,</span>&#x00A0;<span 
class="ectt-1200">j=1,marret</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">phi2(j)=DBLE(0.0)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">teta2(j)=DBLE(0.0)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">psi(j)=DBLE(0.0)</span>
&#x00A0;<br />&#x00A0;<span 
class="ectt-1200">2</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CONTINUE</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">psi(1)=DBLE(1.0)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">psi(marret+1)=DBLE(0.0)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DO</span>&#x00A0;<span 
class="ectt-1200">3,</span>&#x00A0;<span 
class="ectt-1200">j=1,p</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">phi2(j)=phi(j)</span>
&#x00A0;<br />&#x00A0;<span 
class="ectt-1200">3</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CONTINUE</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DO</span>&#x00A0;<span 
class="ectt-1200">4,</span>&#x00A0;<span 
class="ectt-1200">j=1,q</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">teta2(j)=teta(j)</span>

&#x00A0;<br />&#x00A0;<span 
class="ectt-1200">4</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CONTINUE</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DO</span>&#x00A0;<span 
class="ectt-1200">20,</span>&#x00A0;<span 
class="ectt-1200">j=1,marret</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DO</span>&#x00A0;<span 
class="ectt-1200">10,</span>&#x00A0;<span 
class="ectt-1200">k=1,j</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">psi(j+1)=psi(j+1)+phi2(k)*psi(j-k+1)</span>
&#x00A0;<br />&#x00A0;<span 
class="ectt-1200">10</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CONTINUE</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">psi(j+1)=psi(j+1)+teta2(j)</span>
&#x00A0;<br />&#x00A0;<span 
class="ectt-1200">20</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CONTINUE</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">RETURN</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">END</span>
   </div>
<!--l. 348--><p class="indent">   <span 
class="ecbx-1200">Programme shock.f</span> </p><div class="verbatiminput">
<span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Debut-Commentaires</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Nom</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">la</span>&#x00A0;<span 
class="ectt-1200">sous-routine:</span>&#x00A0;<span 
class="ectt-1200">shock</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Entrees:</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">p</span>&#x00A0;<span 
class="ectt-1200">(entier),</span>&#x00A0;<span 
class="ectt-1200">ordre</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">la</span>&#x00A0;<span 
class="ectt-1200">partie</span>&#x00A0;<span 
class="ectt-1200">AR</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">marret</span>&#x00A0;<span 
class="ectt-1200">(entier),</span>&#x00A0;<span 
class="ectt-1200">rang</span>&#x00A0;<span 
class="ectt-1200">d&#x2019;arret</span>&#x00A0;<span 
class="ectt-1200">dans</span>&#x00A0;<span 
class="ectt-1200">la</span>&#x00A0;<span 
class="ectt-1200">random</span>&#x00A0;<span 
class="ectt-1200">shock</span>&#x00A0;<span 
class="ectt-1200">method</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">loi</span>&#x00A0;<span 
class="ectt-1200">(entier),</span>&#x00A0;<span 
class="ectt-1200">specifie</span>&#x00A0;<span 
class="ectt-1200">la</span>&#x00A0;<span 
class="ectt-1200">loi</span>&#x00A0;<span 
class="ectt-1200">des</span>&#x00A0;<span 
class="ectt-1200">innovations</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Wtip</span>&#x00A0;<span 
class="ectt-1200">(double),</span>&#x00A0;<span 
class="ectt-1200">vecteur</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">longueur</span>&#x00A0;<span 
class="ectt-1200">p</span>&#x00A0;<span 
class="ectt-1200">qui</span>&#x00A0;<span 
class="ectt-1200">va</span>&#x00A0;<span 
class="ectt-1200">contenir</span>&#x00A0;<span 
class="ectt-1200">les</span>&#x00A0;<span 
class="ectt-1200">p</span>&#x00A0;<span 
class="ectt-1200">donnees</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">initiales</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">la</span>&#x00A0;<span 
class="ectt-1200">serie</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">shocks</span>&#x00A0;<span 
class="ectt-1200">(double),</span>&#x00A0;<span 
class="ectt-1200">vecteur</span>&#x00A0;<span 
class="ectt-1200">des</span>&#x00A0;<span 
class="ectt-1200">marret+p</span>&#x00A0;<span 
class="ectt-1200">innovations</span>&#x00A0;<span 
class="ectt-1200">genere</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">psi</span>&#x00A0;<span 
class="ectt-1200">(double),</span>&#x00A0;<span 
class="ectt-1200">vecteur</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">longueur</span>&#x00A0;<span 
class="ectt-1200">marret+1</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">tel</span>&#x00A0;<span 
class="ectt-1200">que</span>&#x00A0;<span 
class="ectt-1200">defini</span>&#x00A0;<span 
class="ectt-1200">dans</span>&#x00A0;<span 
class="ectt-1200">Burn</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">df1</span>&#x00A0;<span 
class="ectt-1200">(entier)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">df2</span>&#x00A0;<span 
class="ectt-1200">(entier)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">lambda</span>&#x00A0;<span 
class="ectt-1200">(double)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">loi5b,</span>&#x00A0;<span 
class="ectt-1200">loi5k,</span>&#x00A0;<span 
class="ectt-1200">loi6p,</span>&#x00A0;<span 
class="ectt-1200">loi6q</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">loi7g,</span>&#x00A0;<span 
class="ectt-1200">loi7d,</span>&#x00A0;<span 
class="ectt-1200">loi8p,</span>&#x00A0;<span 
class="ectt-1200">loi8q,</span>&#x00A0;<span 
class="ectt-1200">loi9a,</span>&#x00A0;<span 
class="ectt-1200">loi9b</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">loi10b,</span>&#x00A0;<span 
class="ectt-1200">loi10l,</span>&#x00A0;<span 
class="ectt-1200">loi11a,</span>&#x00A0;<span 
class="ectt-1200">loi11k,</span>&#x00A0;<span 
class="ectt-1200">loi13g,</span>&#x00A0;<span 
class="ectt-1200">loi13d</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">loi14l,</span>&#x00A0;<span 
class="ectt-1200">loi16p,</span>&#x00A0;<span 
class="ectt-1200">loi16d,</span>&#x00A0;<span 
class="ectt-1200">loi17p,</span>&#x00A0;<span 
class="ectt-1200">loi17m</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">loi18g,</span>&#x00A0;<span 
class="ectt-1200">loi18d,</span>&#x00A0;<span 
class="ectt-1200">loi19a,</span>&#x00A0;<span 
class="ectt-1200">loi19b</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Sorties:</span>&#x00A0;<span 
class="ectt-1200">void</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Description:</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Ce</span>&#x00A0;<span 
class="ectt-1200">programme</span>&#x00A0;<span 
class="ectt-1200">realise</span>&#x00A0;<span 
class="ectt-1200">la</span>&#x00A0;<span 
class="ectt-1200">partie</span>&#x00A0;<span 
class="ectt-1200">Initialisation</span>&#x00A0;<span 
class="ectt-1200">Algoritm</span>&#x00A0;<span 
class="ectt-1200">1,</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">l&#x2019;article</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">Burn</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Cette</span>&#x00A0;<span 
class="ectt-1200">sous-routine</span>&#x00A0;<span 
class="ectt-1200">remplace</span>&#x00A0;<span 
class="ectt-1200">le</span>&#x00A0;<span 
class="ectt-1200">vecteur</span>&#x00A0;<span 
class="ectt-1200">Wtip</span>&#x00A0;<span 
class="ectt-1200">en</span>&#x00A0;<span 
class="ectt-1200">entree</span>&#x00A0;<span 
class="ectt-1200">par</span>&#x00A0;<span 
class="ectt-1200">p</span>&#x00A0;<span 
class="ectt-1200">donnees</span>&#x00A0;<span 
class="ectt-1200">simulees</span>&#x00A0;<span 
class="ectt-1200">d&#x2019;un</span>&#x00A0;<span 
class="ectt-1200">modele</span>&#x00A0;<span 
class="ectt-1200">ARMA(p,q)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">vecteur</span>&#x00A0;<span 
class="ectt-1200">d&#x2019;innovations</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">loi</span>&#x00A0;<span 
class="ectt-1200">donnee</span>&#x00A0;<span 
class="ectt-1200">par</span>&#x00A0;<span 
class="ectt-1200">l&#x2019;entier</span>&#x00A0;<span 
class="ectt-1200">loi</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">elle</span>&#x00A0;<span 
class="ectt-1200">renvoie</span>&#x00A0;<span 
class="ectt-1200">aussi</span>&#x00A0;<span 
class="ectt-1200">le</span>&#x00A0;<span 
class="ectt-1200">vecteur</span>&#x00A0;<span 
class="ectt-1200">shocks</span>&#x00A0;<span 
class="ectt-1200">des</span>&#x00A0;<span 
class="ectt-1200">marret+p</span>&#x00A0;<span 
class="ectt-1200">innovations</span>&#x00A0;<span 
class="ectt-1200">utilisees</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Utilisation</span>&#x00A0;<span 
class="ectt-1200">dans</span>&#x00A0;<span 
class="ectt-1200">une</span>&#x00A0;<span 
class="ectt-1200">fonction</span>&#x00A0;<span 
class="ectt-1200">main:</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">-------------------------------------</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PROGRAM</span>&#x00A0;<span 
class="ectt-1200">main</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">p,</span>&#x00A0;<span 
class="ectt-1200">marret,</span>&#x00A0;<span 
class="ectt-1200">loi,</span>&#x00A0;<span 
class="ectt-1200">df1,</span>&#x00A0;<span 
class="ectt-1200">df2,</span>&#x00A0;<span 
class="ectt-1200">i</span>

&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">lambda,</span>&#x00A0;<span 
class="ectt-1200">loi5b,</span>&#x00A0;<span 
class="ectt-1200">loi5k,</span>&#x00A0;<span 
class="ectt-1200">loi6p,</span>&#x00A0;<span 
class="ectt-1200">loi6q</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">loi7g,</span>&#x00A0;<span 
class="ectt-1200">loi7d,</span>&#x00A0;<span 
class="ectt-1200">loi8p,</span>&#x00A0;<span 
class="ectt-1200">loi8q,</span>&#x00A0;<span 
class="ectt-1200">loi9a,</span>&#x00A0;<span 
class="ectt-1200">loi9b</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">loi10b,</span>&#x00A0;<span 
class="ectt-1200">loi10l,</span>&#x00A0;<span 
class="ectt-1200">loi11a,</span>&#x00A0;<span 
class="ectt-1200">loi11k,</span>&#x00A0;<span 
class="ectt-1200">loi13g,</span>&#x00A0;<span 
class="ectt-1200">loi13d</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">loi14l,</span>&#x00A0;<span 
class="ectt-1200">loi16p,</span>&#x00A0;<span 
class="ectt-1200">loi16d,</span>&#x00A0;<span 
class="ectt-1200">loi17p,</span>&#x00A0;<span 
class="ectt-1200">loi17m</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">loi18g,</span>&#x00A0;<span 
class="ectt-1200">loi18d,</span>&#x00A0;<span 
class="ectt-1200">loi19a,</span>&#x00A0;<span 
class="ectt-1200">loi19b</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(loi18g=1.0,loi18d=1.0,</span>&#x00A0;<span 
class="ectt-1200">loi19a=1.1,</span>&#x00A0;<span 
class="ectt-1200">loi19b=0.5)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(loi16p=0.2,loi16d=5.0,</span>&#x00A0;<span 
class="ectt-1200">loi17p=0.2,loi17m=3.0)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(loi10b=0.2,loi10l=1,</span>&#x00A0;<span 
class="ectt-1200">loi11a=2.0,loi11k=0.5)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(loi13g=1.0,loi13d=1.0,</span>&#x00A0;<span 
class="ectt-1200">loi14l=0.7)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(loi7g=0,loi7d=1,</span>&#x00A0;<span 
class="ectt-1200">loi8p=2,</span>&#x00A0;<span 
class="ectt-1200">loi8q=2,</span>&#x00A0;<span 
class="ectt-1200">loi9a=0,loi9b=2)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(loi5b=1,</span>&#x00A0;<span 
class="ectt-1200">loi5k=1.8,</span>&#x00A0;<span 
class="ectt-1200">loi6p=4,</span>&#x00A0;<span 
class="ectt-1200">loi6q=1)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(p=2,marret=200,loi=1,df1=2,df2=5,lambda=2.0)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">Wtip(p),</span>&#x00A0;<span 
class="ectt-1200">shocks(marret+p),</span>&#x00A0;<span 
class="ectt-1200">psi(marret+1)</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Les</span>&#x00A0;<span 
class="ectt-1200">valeurs</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">psi</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DO</span>&#x00A0;<span 
class="ectt-1200">10,</span>&#x00A0;<span 
class="ectt-1200">i=1,marret</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">psi(i)=0.1</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">10</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CONTINUE</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CALL</span>&#x00A0;<span 
class="ectt-1200">G05CBF(0)</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Calcul</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">shocks</span>&#x00A0;<span 
class="ectt-1200">et</span>&#x00A0;<span 
class="ectt-1200">Wtip</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CALL</span>&#x00A0;<span 
class="ectt-1200">shock</span>&#x00A0;<span 
class="ectt-1200">(p,</span>&#x00A0;<span 
class="ectt-1200">marret,</span>&#x00A0;<span 
class="ectt-1200">loi,</span>&#x00A0;<span 
class="ectt-1200">Wtip,</span>&#x00A0;<span 
class="ectt-1200">shocks,</span>&#x00A0;<span 
class="ectt-1200">psi,</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">+</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">df1,</span>&#x00A0;<span 
class="ectt-1200">df2,</span>&#x00A0;<span 
class="ectt-1200">loi5b,</span>&#x00A0;<span 
class="ectt-1200">loi5k,</span>&#x00A0;<span 
class="ectt-1200">loi6p,</span>&#x00A0;<span 
class="ectt-1200">loi6q,</span>&#x00A0;<span 
class="ectt-1200">lambda,</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">+</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">loi7g,</span>&#x00A0;<span 
class="ectt-1200">loi7d,</span>&#x00A0;<span 
class="ectt-1200">loi8p,</span>&#x00A0;<span 
class="ectt-1200">loi8q,</span>&#x00A0;<span 
class="ectt-1200">loi9a,</span>&#x00A0;<span 
class="ectt-1200">loi9b,</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">+</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">loi10b,</span>&#x00A0;<span 
class="ectt-1200">loi10l,</span>&#x00A0;<span 
class="ectt-1200">loi11a,</span>&#x00A0;<span 
class="ectt-1200">loi11k,</span>&#x00A0;<span 
class="ectt-1200">loi13g,</span>&#x00A0;<span 
class="ectt-1200">loi13d,</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">+</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">loi14l,</span>&#x00A0;<span 
class="ectt-1200">loi16p,</span>&#x00A0;<span 
class="ectt-1200">loi16d,</span>&#x00A0;<span 
class="ectt-1200">loi17p,</span>&#x00A0;<span 
class="ectt-1200">loi17m,</span>&#x00A0;<span 
class="ectt-1200">loi18g,</span>&#x00A0;<span 
class="ectt-1200">loi18d,</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">+</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">loi19a,</span>&#x00A0;<span 
class="ectt-1200">loi19b)</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Affichage</span>&#x00A0;<span 
class="ectt-1200">des</span>&#x00A0;<span 
class="ectt-1200">valeurs</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">Wtip</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(UNIT=6,FMT=*)</span>&#x00A0;<span 
class="ectt-1200">&#x2019;Affichage</span>&#x00A0;<span 
class="ectt-1200">des</span>&#x00A0;<span 
class="ectt-1200">valeurs</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">Wtip&#x2019;</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(UNIT=6,FMT=*)</span>&#x00A0;<span 
class="ectt-1200">Wtip</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Affichage</span>&#x00A0;<span 
class="ectt-1200">des</span>&#x00A0;<span 
class="ectt-1200">valeurs</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">shocks</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(UNIT=6,FMT=*)</span>&#x00A0;<span 
class="ectt-1200">&#x2019;Affichage</span>&#x00A0;<span 
class="ectt-1200">des</span>&#x00A0;<span 
class="ectt-1200">valeurs</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">shocks&#x2019;</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(UNIT=6,FMT=*)</span>&#x00A0;<span 
class="ectt-1200">shocks</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">END</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INCLUDE</span>&#x00A0;<span 
class="ectt-1200">&#x2019;rskew.f&#x2019;</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INCLUDE</span>&#x00A0;<span 
class="ectt-1200">&#x2019;rlap.f&#x2019;</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INCLUDE</span>&#x00A0;<span 
class="ectt-1200">&#x2019;rpare.f&#x2019;</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INCLUDE</span>&#x00A0;<span 
class="ectt-1200">&#x2019;rspare.f&#x2019;</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INCLUDE</span>&#x00A0;<span 
class="ectt-1200">&#x2019;rSU.f&#x2019;</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INCLUDE</span>&#x00A0;<span 
class="ectt-1200">&#x2019;rTU.f&#x2019;</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INCLUDE</span>&#x00A0;<span 
class="ectt-1200">&#x2019;rSC.f&#x2019;</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INCLUDE</span>&#x00A0;<span 
class="ectt-1200">&#x2019;rLC.f&#x2019;</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INCLUDE</span>&#x00A0;<span 
class="ectt-1200">&#x2019;rSB.f&#x2019;</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INCLUDE</span>&#x00A0;<span 
class="ectt-1200">&#x2019;rS.f&#x2019;</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">-------------------------------------</span>

&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Instructions</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">compilation:</span>&#x00A0;<span 
class="ectt-1200">alias</span>&#x00A0;<span 
class="ectt-1200">f77=&#x2019;fort77&#x2019;</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">f77</span>&#x00A0;<span 
class="ectt-1200">-c</span>&#x00A0;<span 
class="ectt-1200">nom_du_fichier_contenant_la_fonction_main.f</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">f77</span>&#x00A0;<span 
class="ectt-1200">-c</span>&#x00A0;<span 
class="ectt-1200">shock.f</span>&#x00A0;<span 
class="ectt-1200">-lnag</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">f77</span>&#x00A0;<span 
class="ectt-1200">nom_du_fichier_contenant_la_fonction_main.o</span>&#x00A0;<span 
class="ectt-1200">shock.o</span>&#x00A0;<span 
class="ectt-1200">-lnag</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Fonctions</span>&#x00A0;<span 
class="ectt-1200">exterieures</span>&#x00A0;<span 
class="ectt-1200">appelees:</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">rskew.f,</span>&#x00A0;<span 
class="ectt-1200">rlap.f,</span>&#x00A0;<span 
class="ectt-1200">rpare.f,</span>&#x00A0;<span 
class="ectt-1200">rspare.f,</span>&#x00A0;<span 
class="ectt-1200">rSU.f,</span>&#x00A0;<span 
class="ectt-1200">rTU.f,</span>&#x00A0;<span 
class="ectt-1200">rSC.f,</span>&#x00A0;<span 
class="ectt-1200">rLC.f,</span>&#x00A0;<span 
class="ectt-1200">rSB.f</span>&#x00A0;<span 
class="ectt-1200">rS.f</span>&#x00A0;<span 
class="ectt-1200">et</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">G05DHF,</span>&#x00A0;<span 
class="ectt-1200">G05DJF,</span>&#x00A0;<span 
class="ectt-1200">G05DEF,</span>&#x00A0;<span 
class="ectt-1200">G05DPF,</span>&#x00A0;<span 
class="ectt-1200">G05FFF,</span>&#x00A0;<span 
class="ectt-1200">G05FEF,</span>&#x00A0;<span 
class="ectt-1200">G05DAF,</span>&#x00A0;<span 
class="ectt-1200">G05DBF,</span>&#x00A0;<span 
class="ectt-1200">G05DCF</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">NAG</span>&#x00A0;<span 
class="ectt-1200">Mark16</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Auteur:</span>&#x00A0;<span 
class="ectt-1200">Pierre</span>&#x00A0;<span 
class="ectt-1200">Lafaye</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">Micheaux</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Date:</span>&#x00A0;<span 
class="ectt-1200">15/02/2001</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Fin-Commentaires</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">SUBROUTINE</span>&#x00A0;<span 
class="ectt-1200">shock</span>&#x00A0;<span 
class="ectt-1200">(p,</span>&#x00A0;<span 
class="ectt-1200">marret,</span>&#x00A0;<span 
class="ectt-1200">loi,</span>&#x00A0;<span 
class="ectt-1200">Wtip,</span>&#x00A0;<span 
class="ectt-1200">shocks,</span>&#x00A0;<span 
class="ectt-1200">psi,</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">+</span>&#x00A0;&#x00A0;<span 
class="ectt-1200">df1,</span>&#x00A0;<span 
class="ectt-1200">df2,</span>&#x00A0;<span 
class="ectt-1200">lambda,</span>&#x00A0;<span 
class="ectt-1200">loi5b,</span>&#x00A0;<span 
class="ectt-1200">loi5k,</span>&#x00A0;<span 
class="ectt-1200">loi6p,</span>&#x00A0;<span 
class="ectt-1200">loi6q,</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">+</span>&#x00A0;&#x00A0;<span 
class="ectt-1200">loi7g,</span>&#x00A0;<span 
class="ectt-1200">loi7d,</span>&#x00A0;<span 
class="ectt-1200">loi8p,</span>&#x00A0;<span 
class="ectt-1200">loi8q,</span>&#x00A0;<span 
class="ectt-1200">loi9a,</span>&#x00A0;<span 
class="ectt-1200">loi9b,</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">+</span>&#x00A0;&#x00A0;<span 
class="ectt-1200">loi10b,</span>&#x00A0;<span 
class="ectt-1200">loi10l,</span>&#x00A0;<span 
class="ectt-1200">loi11a,</span>&#x00A0;<span 
class="ectt-1200">loi11k,</span>&#x00A0;<span 
class="ectt-1200">loi13g,</span>&#x00A0;<span 
class="ectt-1200">loi13d,</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">+</span>&#x00A0;&#x00A0;<span 
class="ectt-1200">loi14l,</span>&#x00A0;<span 
class="ectt-1200">loi16p,</span>&#x00A0;<span 
class="ectt-1200">loi16d,</span>&#x00A0;<span 
class="ectt-1200">loi17p,</span>&#x00A0;<span 
class="ectt-1200">loi17m,</span>&#x00A0;<span 
class="ectt-1200">loi18g,</span>&#x00A0;<span 
class="ectt-1200">loi18d,</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">+</span>&#x00A0;&#x00A0;<span 
class="ectt-1200">loi19a,</span>&#x00A0;<span 
class="ectt-1200">loi19b)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">p,</span>&#x00A0;<span 
class="ectt-1200">marret,</span>&#x00A0;<span 
class="ectt-1200">loi,</span>&#x00A0;<span 
class="ectt-1200">i,</span>&#x00A0;<span 
class="ectt-1200">k,</span>&#x00A0;<span 
class="ectt-1200">IFAIL,</span>&#x00A0;<span 
class="ectt-1200">df1,</span>&#x00A0;<span 
class="ectt-1200">df2,</span>&#x00A0;<span 
class="ectt-1200">l</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">Wtip(p),</span>&#x00A0;<span 
class="ectt-1200">shocks(marret+p),</span>&#x00A0;<span 
class="ectt-1200">psi(marret+1)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">pi,</span>&#x00A0;<span 
class="ectt-1200">a,</span>&#x00A0;<span 
class="ectt-1200">b,</span>&#x00A0;<span 
class="ectt-1200">lambda,</span>&#x00A0;<span 
class="ectt-1200">loi5b,</span>&#x00A0;<span 
class="ectt-1200">loi5k,</span>&#x00A0;<span 
class="ectt-1200">loi6p,</span>&#x00A0;<span 
class="ectt-1200">loi6q</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">loi7g,</span>&#x00A0;<span 
class="ectt-1200">loi7d,</span>&#x00A0;<span 
class="ectt-1200">loi8p,</span>&#x00A0;<span 
class="ectt-1200">loi8q,</span>&#x00A0;<span 
class="ectt-1200">loi9a,</span>&#x00A0;<span 
class="ectt-1200">loi9b</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">loi10b,</span>&#x00A0;<span 
class="ectt-1200">loi10l,</span>&#x00A0;<span 
class="ectt-1200">loi11a,</span>&#x00A0;<span 
class="ectt-1200">loi11k,</span>&#x00A0;<span 
class="ectt-1200">loi13g,</span>&#x00A0;<span 
class="ectt-1200">loi13d</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">loi14l,</span>&#x00A0;<span 
class="ectt-1200">loi16p,</span>&#x00A0;<span 
class="ectt-1200">loi16d,</span>&#x00A0;<span 
class="ectt-1200">loi17p,</span>&#x00A0;<span 
class="ectt-1200">loi17m</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">loi18g,</span>&#x00A0;<span 
class="ectt-1200">loi18d,</span>&#x00A0;<span 
class="ectt-1200">loi19a,</span>&#x00A0;<span 
class="ectt-1200">loi19b</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">G05DHF,</span>&#x00A0;<span 
class="ectt-1200">G05DJF,</span>&#x00A0;<span 
class="ectt-1200">G05DEF,</span>&#x00A0;<span 
class="ectt-1200">G05DPF,</span>&#x00A0;<span 
class="ectt-1200">G05DCF</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">G05DAF,</span>&#x00A0;<span 
class="ectt-1200">G05DBF,</span>&#x00A0;<span 
class="ectt-1200">rS</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">1.</span>&#x00A0;<span 
class="ectt-1200">Generate</span>&#x00A0;<span 
class="ectt-1200">marret+p</span>&#x00A0;<span 
class="ectt-1200">random</span>&#x00A0;<span 
class="ectt-1200">shocks</span>&#x00A0;<span 
class="ectt-1200">At</span>&#x00A0;<span 
class="ectt-1200">for</span>&#x00A0;<span 
class="ectt-1200">t=1-marret,</span>&#x00A0;<span 
class="ectt-1200">2-marret,</span>&#x00A0;<span 
class="ectt-1200">...,</span>&#x00A0;<span 
class="ectt-1200">p</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">suivant</span>&#x00A0;<span 
class="ectt-1200">la</span>&#x00A0;<span 
class="ectt-1200">valeur</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">l&#x2019;entier</span>&#x00A0;<span 
class="ectt-1200">loi</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">si</span>&#x00A0;<span 
class="ectt-1200">loi=0</span>&#x00A0;<span 
class="ectt-1200">:</span>&#x00A0;<span 
class="ectt-1200">Normale(0,sigma&#x0302;2)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">si</span>&#x00A0;<span 
class="ectt-1200">loi=1</span>&#x00A0;<span 
class="ectt-1200">:</span>&#x00A0;<span 
class="ectt-1200">Khi2</span>&#x00A0;<span 
class="ectt-1200">centree</span>&#x00A0;<span 
class="ectt-1200">(df1)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">si</span>&#x00A0;<span 
class="ectt-1200">loi=2</span>&#x00A0;<span 
class="ectt-1200">:</span>&#x00A0;<span 
class="ectt-1200">Student</span>&#x00A0;<span 
class="ectt-1200">(df2)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">si</span>&#x00A0;<span 
class="ectt-1200">loi=3</span>&#x00A0;<span 
class="ectt-1200">:</span>&#x00A0;<span 
class="ectt-1200">Skew-Normale(lambda)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">si</span>&#x00A0;<span 
class="ectt-1200">loi=4</span>&#x00A0;<span 
class="ectt-1200">:</span>&#x00A0;<span 
class="ectt-1200">Laplace</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">si</span>&#x00A0;<span 
class="ectt-1200">loi=5</span>&#x00A0;<span 
class="ectt-1200">:</span>&#x00A0;<span 
class="ectt-1200">Weibull(b,k)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">si</span>&#x00A0;<span 
class="ectt-1200">loi=6</span>&#x00A0;<span 
class="ectt-1200">:</span>&#x00A0;<span 
class="ectt-1200">Gamma(p,q)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">si</span>&#x00A0;<span 
class="ectt-1200">loi=7</span>&#x00A0;<span 
class="ectt-1200">:</span>&#x00A0;<span 
class="ectt-1200">Log-Normale(g,d)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">si</span>&#x00A0;<span 
class="ectt-1200">loi=8</span>&#x00A0;<span 
class="ectt-1200">:</span>&#x00A0;<span 
class="ectt-1200">Beta(p,q)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">si</span>&#x00A0;<span 
class="ectt-1200">loi=9</span>&#x00A0;<span 
class="ectt-1200">:</span>&#x00A0;<span 
class="ectt-1200">Uniform(a,b)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">si</span>&#x00A0;<span 
class="ectt-1200">loi=10</span>&#x00A0;<span 
class="ectt-1200">:</span>&#x00A0;<span 
class="ectt-1200">Shifted</span>&#x00A0;<span 
class="ectt-1200">exp</span>&#x00A0;<span 
class="ectt-1200">(l,b)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">si</span>&#x00A0;<span 
class="ectt-1200">loi=11</span>&#x00A0;<span 
class="ectt-1200">:</span>&#x00A0;<span 
class="ectt-1200">Pareto(a,k)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">si</span>&#x00A0;<span 
class="ectt-1200">loi=12</span>&#x00A0;<span 
class="ectt-1200">:</span>&#x00A0;<span 
class="ectt-1200">Shifted</span>&#x00A0;<span 
class="ectt-1200">Pareto</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">si</span>&#x00A0;<span 
class="ectt-1200">loi=13</span>&#x00A0;<span 
class="ectt-1200">:</span>&#x00A0;<span 
class="ectt-1200">SU(g,d)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">si</span>&#x00A0;<span 
class="ectt-1200">loi=14</span>&#x00A0;<span 
class="ectt-1200">:</span>&#x00A0;<span 
class="ectt-1200">TU(l)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">si</span>&#x00A0;<span 
class="ectt-1200">loi=15</span>&#x00A0;<span 
class="ectt-1200">:</span>&#x00A0;<span 
class="ectt-1200">Logistic</span>

&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">si</span>&#x00A0;<span 
class="ectt-1200">loi=16</span>&#x00A0;<span 
class="ectt-1200">:</span>&#x00A0;<span 
class="ectt-1200">SC(p,d)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">si</span>&#x00A0;<span 
class="ectt-1200">loi=17</span>&#x00A0;<span 
class="ectt-1200">:</span>&#x00A0;<span 
class="ectt-1200">LC(p,m)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">si</span>&#x00A0;<span 
class="ectt-1200">loi=18</span>&#x00A0;<span 
class="ectt-1200">:</span>&#x00A0;<span 
class="ectt-1200">SB(g,d)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">si</span>&#x00A0;<span 
class="ectt-1200">loi=19</span>&#x00A0;<span 
class="ectt-1200">:</span>&#x00A0;<span 
class="ectt-1200">S(a,b)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">l=marret+p</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">pi=DBLE(3.14159265358979)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">a=DBLE(0.0)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">b=DBLE(1.0)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Ca</span>&#x00A0;<span 
class="ectt-1200">c&#x2019;est</span>&#x00A0;<span 
class="ectt-1200">inutile</span>&#x00A0;<span 
class="ectt-1200">puisqu&#x2019;on</span>&#x00A0;<span 
class="ectt-1200">n&#x2019;appelle</span>&#x00A0;<span 
class="ectt-1200">jamais</span>&#x00A0;<span 
class="ectt-1200">shock.f</span>&#x00A0;<span 
class="ectt-1200">avec</span>&#x00A0;<span 
class="ectt-1200">loi=0</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Si</span>&#x00A0;<span 
class="ectt-1200">jamais</span>&#x00A0;<span 
class="ectt-1200">on</span>&#x00A0;<span 
class="ectt-1200">decide</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">le</span>&#x00A0;<span 
class="ectt-1200">faire</span>&#x00A0;<span 
class="ectt-1200">il</span>&#x00A0;<span 
class="ectt-1200">faudra</span>&#x00A0;<span 
class="ectt-1200">introduire</span>&#x00A0;<span 
class="ectt-1200">sigma</span>&#x00A0;<span 
class="ectt-1200">a</span>&#x00A0;<span 
class="ectt-1200">la</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">place</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">b</span>&#x00A0;<span 
class="ectt-1200">juste</span>&#x00A0;<span 
class="ectt-1200">(et</span>&#x00A0;<span 
class="ectt-1200">uniquement)</span>&#x00A0;<span 
class="ectt-1200">en</span>&#x00A0;<span 
class="ectt-1200">dessous</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">IF</span>&#x00A0;<span 
class="ectt-1200">(loi</span>&#x00A0;<span 
class="ectt-1200">.EQ.</span>&#x00A0;<span 
class="ectt-1200">0)</span>&#x00A0;<span 
class="ectt-1200">THEN</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CALL</span>&#x00A0;<span 
class="ectt-1200">G05FDF(a,b,l,shocks)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">ENDIF</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">IF</span>&#x00A0;<span 
class="ectt-1200">(loi</span>&#x00A0;<span 
class="ectt-1200">.EQ.</span>&#x00A0;<span 
class="ectt-1200">1)</span>&#x00A0;<span 
class="ectt-1200">THEN</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DO</span>&#x00A0;<span 
class="ectt-1200">10,</span>&#x00A0;<span 
class="ectt-1200">i=1,l</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">IFAIL=0</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">shocks(i)=G05DHF(df1,IFAIL)-DBLE(df1)</span>
&#x00A0;<br />&#x00A0;<span 
class="ectt-1200">10</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CONTINUE</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">ENDIF</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">IF</span>&#x00A0;<span 
class="ectt-1200">(loi</span>&#x00A0;<span 
class="ectt-1200">.EQ.</span>&#x00A0;<span 
class="ectt-1200">2)</span>&#x00A0;<span 
class="ectt-1200">THEN</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DO</span>&#x00A0;<span 
class="ectt-1200">20,</span>&#x00A0;<span 
class="ectt-1200">i=1,l</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">IFAIL=0</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">shocks(i)=G05DJF(df2,IFAIL)</span>
&#x00A0;<br />&#x00A0;<span 
class="ectt-1200">20</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CONTINUE</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">ENDIF</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">IF</span>&#x00A0;<span 
class="ectt-1200">(loi</span>&#x00A0;<span 
class="ectt-1200">.EQ.</span>&#x00A0;<span 
class="ectt-1200">3)</span>&#x00A0;<span 
class="ectt-1200">THEN</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CALL</span>&#x00A0;<span 
class="ectt-1200">rskew(l,shocks,lambda)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DO</span>&#x00A0;<span 
class="ectt-1200">30,</span>&#x00A0;<span 
class="ectt-1200">i=1,l</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">shocks(i)=shocks(i)</span>&#x00A0;<span 
class="ectt-1200">-</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">+</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">dsqrt(dble(2.0)/pi)*(lambda/(dsqrt(1+lambda*lambda)))</span>
&#x00A0;<br />&#x00A0;<span 
class="ectt-1200">30</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CONTINUE</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">ENDIF</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">IF</span>&#x00A0;<span 
class="ectt-1200">(loi</span>&#x00A0;<span 
class="ectt-1200">.EQ.</span>&#x00A0;<span 
class="ectt-1200">4)</span>&#x00A0;<span 
class="ectt-1200">THEN</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CALL</span>&#x00A0;<span 
class="ectt-1200">rlap(l,shocks)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">ENDIF</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">IF</span>&#x00A0;<span 
class="ectt-1200">(loi</span>&#x00A0;<span 
class="ectt-1200">.EQ.</span>&#x00A0;<span 
class="ectt-1200">5)</span>&#x00A0;<span 
class="ectt-1200">THEN</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DO</span>&#x00A0;<span 
class="ectt-1200">50,</span>&#x00A0;<span 
class="ectt-1200">i=1,l</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">IFAIL=0</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">shocks(i)=G05DPF(loi5k,(loi5b)**(-loi5k),IFAIL)</span>
&#x00A0;<br />&#x00A0;<span 
class="ectt-1200">50</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CONTINUE</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">ENDIF</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">IF</span>&#x00A0;<span 
class="ectt-1200">(loi</span>&#x00A0;<span 
class="ectt-1200">.EQ.</span>&#x00A0;<span 
class="ectt-1200">6)</span>&#x00A0;<span 
class="ectt-1200">THEN</span>

&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">IFAIL=0</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CALL</span>&#x00A0;<span 
class="ectt-1200">G05FFF(loi6p,loi6q,l,shocks,IFAIL)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">ENDIF</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">IF</span>&#x00A0;<span 
class="ectt-1200">(loi</span>&#x00A0;<span 
class="ectt-1200">.EQ.</span>&#x00A0;<span 
class="ectt-1200">7)</span>&#x00A0;<span 
class="ectt-1200">THEN</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DO</span>&#x00A0;<span 
class="ectt-1200">60,</span>&#x00A0;<span 
class="ectt-1200">i=1,l</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">shocks(i)=G05DEF(-loi7g/loi7d,1/loi7d)</span>
&#x00A0;<br />&#x00A0;<span 
class="ectt-1200">60</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CONTINUE</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">ENDIF</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">IF</span>&#x00A0;<span 
class="ectt-1200">(loi</span>&#x00A0;<span 
class="ectt-1200">.EQ.</span>&#x00A0;<span 
class="ectt-1200">8)</span>&#x00A0;<span 
class="ectt-1200">THEN</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">IFAIL=0</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CALL</span>&#x00A0;<span 
class="ectt-1200">G05FEF(loi8p,loi8q,l,shocks,IFAIL)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">ENDIF</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">IF</span>&#x00A0;<span 
class="ectt-1200">(loi</span>&#x00A0;<span 
class="ectt-1200">.EQ.</span>&#x00A0;<span 
class="ectt-1200">9)</span>&#x00A0;<span 
class="ectt-1200">THEN</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DO</span>&#x00A0;<span 
class="ectt-1200">70,</span>&#x00A0;<span 
class="ectt-1200">i=1,l</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">shocks(i)=G05DAF(loi9a,loi9b)</span>
&#x00A0;<br />&#x00A0;<span 
class="ectt-1200">70</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CONTINUE</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">ENDIF</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">IF</span>&#x00A0;<span 
class="ectt-1200">(loi</span>&#x00A0;<span 
class="ectt-1200">.EQ.</span>&#x00A0;<span 
class="ectt-1200">10)</span>&#x00A0;<span 
class="ectt-1200">THEN</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DO</span>&#x00A0;<span 
class="ectt-1200">80,</span>&#x00A0;<span 
class="ectt-1200">i=1,l</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">shocks(i)=G05DBF(1/loi10b)+loi10l</span>
&#x00A0;<br />&#x00A0;<span 
class="ectt-1200">80</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CONTINUE</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">ENDIF</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">IF</span>&#x00A0;<span 
class="ectt-1200">(loi</span>&#x00A0;<span 
class="ectt-1200">.EQ.</span>&#x00A0;<span 
class="ectt-1200">11)</span>&#x00A0;<span 
class="ectt-1200">THEN</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CALL</span>&#x00A0;<span 
class="ectt-1200">rpare(loi11a,loi11k,l,shocks)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">ENDIF</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">IF</span>&#x00A0;<span 
class="ectt-1200">(loi</span>&#x00A0;<span 
class="ectt-1200">.EQ.</span>&#x00A0;<span 
class="ectt-1200">12)</span>&#x00A0;<span 
class="ectt-1200">THEN</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CALL</span>&#x00A0;<span 
class="ectt-1200">rspare(l,shocks)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">ENDIF</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">IF</span>&#x00A0;<span 
class="ectt-1200">(loi</span>&#x00A0;<span 
class="ectt-1200">.EQ.</span>&#x00A0;<span 
class="ectt-1200">13)</span>&#x00A0;<span 
class="ectt-1200">THEN</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CALL</span>&#x00A0;<span 
class="ectt-1200">rSU(loi13g,loi13d,l,shocks)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">ENDIF</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">IF</span>&#x00A0;<span 
class="ectt-1200">(loi</span>&#x00A0;<span 
class="ectt-1200">.EQ.</span>&#x00A0;<span 
class="ectt-1200">14)</span>&#x00A0;<span 
class="ectt-1200">THEN</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CALL</span>&#x00A0;<span 
class="ectt-1200">rTU(loi14l,l,shocks)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">ENDIF</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">IF</span>&#x00A0;<span 
class="ectt-1200">(loi</span>&#x00A0;<span 
class="ectt-1200">.EQ.</span>&#x00A0;<span 
class="ectt-1200">15)</span>&#x00A0;<span 
class="ectt-1200">THEN</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DO</span>&#x00A0;<span 
class="ectt-1200">90,</span>&#x00A0;<span 
class="ectt-1200">i=1,l</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">shocks(i)=G05DCF(a,b)</span>
&#x00A0;<br />&#x00A0;<span 
class="ectt-1200">90</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CONTINUE</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">ENDIF</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">IF</span>&#x00A0;<span 
class="ectt-1200">(loi</span>&#x00A0;<span 
class="ectt-1200">.EQ.</span>&#x00A0;<span 
class="ectt-1200">16)</span>&#x00A0;<span 
class="ectt-1200">THEN</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CALL</span>&#x00A0;<span 
class="ectt-1200">rSC(loi16p,loi16d,l,shocks)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">ENDIF</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">IF</span>&#x00A0;<span 
class="ectt-1200">(loi</span>&#x00A0;<span 
class="ectt-1200">.EQ.</span>&#x00A0;<span 
class="ectt-1200">17)</span>&#x00A0;<span 
class="ectt-1200">THEN</span>

&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CALL</span>&#x00A0;<span 
class="ectt-1200">rLC(loi17p,loi17m,l,shocks)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">ENDIF</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">IF</span>&#x00A0;<span 
class="ectt-1200">(loi</span>&#x00A0;<span 
class="ectt-1200">.EQ.</span>&#x00A0;<span 
class="ectt-1200">18)</span>&#x00A0;<span 
class="ectt-1200">THEN</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CALL</span>&#x00A0;<span 
class="ectt-1200">rSB(loi18g,loi18d,l,shocks)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">ENDIF</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">IF</span>&#x00A0;<span 
class="ectt-1200">(loi</span>&#x00A0;<span 
class="ectt-1200">.EQ.</span>&#x00A0;<span 
class="ectt-1200">19)</span>&#x00A0;<span 
class="ectt-1200">THEN</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DO</span>&#x00A0;<span 
class="ectt-1200">100,</span>&#x00A0;<span 
class="ectt-1200">i=1,l</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">shocks(i)=rS(loi19a,loi19b)</span>
&#x00A0;<br />&#x00A0;<span 
class="ectt-1200">100</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CONTINUE</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">ENDIF</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">2.</span>&#x00A0;<span 
class="ectt-1200">Generate</span>&#x00A0;<span 
class="ectt-1200">p</span>&#x00A0;<span 
class="ectt-1200">series</span>&#x00A0;<span 
class="ectt-1200">values</span>&#x00A0;<span 
class="ectt-1200">Wtip</span>&#x00A0;<span 
class="ectt-1200">pour</span>&#x00A0;<span 
class="ectt-1200">t=1,2,</span>&#x00A0;<span 
class="ectt-1200">...,</span>&#x00A0;<span 
class="ectt-1200">p</span>&#x00A0;<span 
class="ectt-1200">en</span>&#x00A0;<span 
class="ectt-1200">utilisant</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">le</span>&#x00A0;<span 
class="ectt-1200">MA(marret)</span>&#x00A0;<span 
class="ectt-1200">model</span>&#x00A0;<span 
class="ectt-1200">et</span>&#x00A0;<span 
class="ectt-1200">les</span>&#x00A0;<span 
class="ectt-1200">shocks</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">l&#x2019;etape</span>&#x00A0;<span 
class="ectt-1200">1</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">A(t)</span>&#x00A0;<span 
class="ectt-1200">&#x003C;--&#x003E;</span>&#x00A0;<span 
class="ectt-1200">shocks(t+marret)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">psi(k)</span>&#x00A0;<span 
class="ectt-1200">&#x003C;--&#x003E;</span>&#x00A0;<span 
class="ectt-1200">psi(k+1)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DO</span>&#x00A0;<span 
class="ectt-1200">570,</span>&#x00A0;<span 
class="ectt-1200">i=1,p</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Wtip(i)=DBLE(0.0)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DO</span>&#x00A0;<span 
class="ectt-1200">560,</span>&#x00A0;<span 
class="ectt-1200">k=1,(marret+1)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Wtip(i)=Wtip(i)+psi(k)*shocks(marret+i-k+1)</span>
&#x00A0;<br />&#x00A0;<span 
class="ectt-1200">560</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CONTINUE</span>
&#x00A0;<br />&#x00A0;<span 
class="ectt-1200">570</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CONTINUE</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">RETURN</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">END</span>
   </div>
   <h3 class="sectionHead"><span class="titlemark">A.10. </span> <a 
  name="x1-53000A.10"></a>Les programmes pour la simulation de diff&#x00E9;rentes lois</h3>
<!--l. 353--><p class="noindent"><span 
class="ecbx-1200">Programme dlap.f</span> </p><div class="verbatiminput">
<span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Debut-Commentaires</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Nom</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">la</span>&#x00A0;<span 
class="ectt-1200">sous-routine:</span>&#x00A0;<span 
class="ectt-1200">dlap</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Entrees:</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">n</span>&#x00A0;<span 
class="ectt-1200">(entier),</span>&#x00A0;<span 
class="ectt-1200">longueur</span>&#x00A0;<span 
class="ectt-1200">du</span>&#x00A0;<span 
class="ectt-1200">vecteur</span>&#x00A0;<span 
class="ectt-1200">x</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">x</span>&#x00A0;<span 
class="ectt-1200">(double),</span>&#x00A0;<span 
class="ectt-1200">un</span>&#x00A0;<span 
class="ectt-1200">vecteur</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">n</span>&#x00A0;<span 
class="ectt-1200">nombres</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">(x</span>&#x00A0;<span 
class="ectt-1200">est</span>&#x00A0;<span 
class="ectt-1200">le</span>&#x00A0;<span 
class="ectt-1200">vecteur</span>&#x00A0;<span 
class="ectt-1200">des</span>&#x00A0;<span 
class="ectt-1200">points</span>&#x00A0;<span 
class="ectt-1200">auxquels</span>&#x00A0;<span 
class="ectt-1200">on</span>&#x00A0;<span 
class="ectt-1200">veut</span>&#x00A0;<span 
class="ectt-1200">calculer</span>&#x00A0;<span 
class="ectt-1200">la</span>&#x00A0;<span 
class="ectt-1200">densite).</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Sorties:</span>&#x00A0;<span 
class="ectt-1200">void</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Description:</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Cette</span>&#x00A0;<span 
class="ectt-1200">fonction</span>&#x00A0;<span 
class="ectt-1200">ne</span>&#x00A0;<span 
class="ectt-1200">renvoie</span>&#x00A0;<span 
class="ectt-1200">rien</span>&#x00A0;<span 
class="ectt-1200">mais</span>&#x00A0;<span 
class="ectt-1200">modifie</span>&#x00A0;<span 
class="ectt-1200">le</span>&#x00A0;<span 
class="ectt-1200">vecteur</span>&#x00A0;<span 
class="ectt-1200">x,</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">en</span>&#x00A0;<span 
class="ectt-1200">le</span>&#x00A0;<span 
class="ectt-1200">remplacant</span>&#x00A0;<span 
class="ectt-1200">par</span>&#x00A0;<span 
class="ectt-1200">le</span>&#x00A0;<span 
class="ectt-1200">vecteur</span>&#x00A0;<span 
class="ectt-1200">dlap(x),</span>&#x00A0;&#x00A0;<span 
class="ectt-1200">densite</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">d&#x2019;une</span>&#x00A0;<span 
class="ectt-1200">loi</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">Laplace</span>&#x00A0;<span 
class="ectt-1200">aux</span>&#x00A0;<span 
class="ectt-1200">points</span>&#x00A0;<span 
class="ectt-1200">du</span>&#x00A0;<span 
class="ectt-1200">vecteur</span>&#x00A0;<span 
class="ectt-1200">x.</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Utilisation</span>&#x00A0;<span 
class="ectt-1200">dans</span>&#x00A0;<span 
class="ectt-1200">une</span>&#x00A0;<span 
class="ectt-1200">fonction</span>&#x00A0;<span 
class="ectt-1200">main:</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">-------------------------------------</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PROGRAM</span>&#x00A0;<span 
class="ectt-1200">main</span>

&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">n,</span>&#x00A0;<span 
class="ectt-1200">i</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">longueur</span>&#x00A0;<span 
class="ectt-1200">du</span>&#x00A0;<span 
class="ectt-1200">vecteur</span>&#x00A0;<span 
class="ectt-1200">x,</span>&#x00A0;<span 
class="ectt-1200">a</span>&#x00A0;<span 
class="ectt-1200">modifier</span>&#x00A0;<span 
class="ectt-1200">dans</span>&#x00A0;<span 
class="ectt-1200">le</span>&#x00A0;<span 
class="ectt-1200">programme</span>&#x00A0;<span 
class="ectt-1200">principal</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(n=3)</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">initialisation</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">x,</span>&#x00A0;<span 
class="ectt-1200">y</span>&#x00A0;<span 
class="ectt-1200">et</span>&#x00A0;<span 
class="ectt-1200">xavant</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">x(n),</span>&#x00A0;<span 
class="ectt-1200">y(n),</span>&#x00A0;<span 
class="ectt-1200">xavant(n)</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">affectation</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">valeurs</span>&#x00A0;<span 
class="ectt-1200">a</span>&#x00A0;<span 
class="ectt-1200">x</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">x(1)=1</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">x(2)=2</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">x(3)=3</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">On</span>&#x00A0;<span 
class="ectt-1200">sauvegarde</span>&#x00A0;<span 
class="ectt-1200">les</span>&#x00A0;<span 
class="ectt-1200">valeurs</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">x</span>&#x00A0;<span 
class="ectt-1200">dans</span>&#x00A0;<span 
class="ectt-1200">xavant</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DO</span>&#x00A0;<span 
class="ectt-1200">10,</span>&#x00A0;<span 
class="ectt-1200">i=1,n</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">xavant(i)=x(i)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">10</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CONTINUE</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">calcul</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">dlap(x),</span>&#x00A0;<span 
class="ectt-1200">remplace</span>&#x00A0;<span 
class="ectt-1200">x</span>&#x00A0;<span 
class="ectt-1200">par</span>&#x00A0;<span 
class="ectt-1200">dlap(x)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CALL</span>&#x00A0;<span 
class="ectt-1200">dlap(n,x)</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">affecte</span>&#x00A0;<span 
class="ectt-1200">a</span>&#x00A0;<span 
class="ectt-1200">y</span>&#x00A0;<span 
class="ectt-1200">le</span>&#x00A0;<span 
class="ectt-1200">resultat</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DO</span>&#x00A0;<span 
class="ectt-1200">20,</span>&#x00A0;<span 
class="ectt-1200">i=1,n</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">y(i)=x(i)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">20</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CONTINUE</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">remet</span>&#x00A0;<span 
class="ectt-1200">les</span>&#x00A0;<span 
class="ectt-1200">bonnes</span>&#x00A0;<span 
class="ectt-1200">valeurs</span>&#x00A0;<span 
class="ectt-1200">dans</span>&#x00A0;<span 
class="ectt-1200">x</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">affecte</span>&#x00A0;<span 
class="ectt-1200">a</span>&#x00A0;<span 
class="ectt-1200">y</span>&#x00A0;<span 
class="ectt-1200">le</span>&#x00A0;<span 
class="ectt-1200">resultat</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DO</span>&#x00A0;<span 
class="ectt-1200">30,</span>&#x00A0;<span 
class="ectt-1200">i=1,n</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">x(i)=xavant(i)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">30</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CONTINUE</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Affichage</span>&#x00A0;<span 
class="ectt-1200">des</span>&#x00A0;<span 
class="ectt-1200">valeurs</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">y=dlap(x)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(UNIT=6,FMT=*)</span>&#x00A0;<span 
class="ectt-1200">&#x2019;Affichage</span>&#x00A0;<span 
class="ectt-1200">des</span>&#x00A0;<span 
class="ectt-1200">valeurs</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">y&#x2019;</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(UNIT=6,FMT=*)</span>&#x00A0;<span 
class="ectt-1200">y</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Affichage</span>&#x00A0;<span 
class="ectt-1200">des</span>&#x00A0;<span 
class="ectt-1200">valeurs</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">x</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(UNIT=6,FMT=*)</span>&#x00A0;<span 
class="ectt-1200">&#x2019;Affichage</span>&#x00A0;<span 
class="ectt-1200">des</span>&#x00A0;<span 
class="ectt-1200">valeurs</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">x&#x2019;</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(UNIT=6,FMT=*)</span>&#x00A0;<span 
class="ectt-1200">x</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">END</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">-------------------------------------</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Instructions</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">compilation:</span>&#x00A0;<span 
class="ectt-1200">alias</span>&#x00A0;<span 
class="ectt-1200">f77=&#x2019;fort77&#x2019;</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">f77</span>&#x00A0;<span 
class="ectt-1200">-c</span>&#x00A0;<span 
class="ectt-1200">nom_du_fichier_contenant_la_fonction_main.f</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">f77</span>&#x00A0;<span 
class="ectt-1200">-c</span>&#x00A0;<span 
class="ectt-1200">dlap.f</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">f77</span>&#x00A0;<span 
class="ectt-1200">nom_du_fichier_contenant_la_fonction_main.o</span>&#x00A0;<span 
class="ectt-1200">dlap.o</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Fonctions</span>&#x00A0;<span 
class="ectt-1200">exterieures</span>&#x00A0;<span 
class="ectt-1200">appelees:</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Auteur:</span>&#x00A0;<span 
class="ectt-1200">Pierre</span>&#x00A0;<span 
class="ectt-1200">Lafaye</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">Micheaux</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Date:</span>&#x00A0;<span 
class="ectt-1200">15/02/2001</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Fin-Commentaires</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">SUBROUTINE</span>&#x00A0;<span 
class="ectt-1200">dlap</span>&#x00A0;<span 
class="ectt-1200">(n,x)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">n,i</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">x(n)</span>

&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DO</span>&#x00A0;<span 
class="ectt-1200">10,</span>&#x00A0;<span 
class="ectt-1200">i=1,n</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">x(i)=DEXP(-ABS(x(i)))/(DBLE(2.0))</span>
&#x00A0;<br />&#x00A0;<span 
class="ectt-1200">10</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CONTINUE</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">RETURN</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">END</span>
   </div>
<!--l. 357--><p class="indent">   <span 
class="ecbx-1200">Programme dnorm.f</span> </p><div class="verbatiminput">
<span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Debut-Commentaires</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Nom</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">la</span>&#x00A0;<span 
class="ectt-1200">sous-routine:</span>&#x00A0;<span 
class="ectt-1200">dnorm</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Entrees:</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">n</span>&#x00A0;<span 
class="ectt-1200">(entier),</span>&#x00A0;<span 
class="ectt-1200">longueur</span>&#x00A0;<span 
class="ectt-1200">du</span>&#x00A0;<span 
class="ectt-1200">vecteur</span>&#x00A0;<span 
class="ectt-1200">x</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">x</span>&#x00A0;<span 
class="ectt-1200">(double),</span>&#x00A0;<span 
class="ectt-1200">un</span>&#x00A0;<span 
class="ectt-1200">vecteur</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">n</span>&#x00A0;<span 
class="ectt-1200">nombres</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">(x</span>&#x00A0;<span 
class="ectt-1200">est</span>&#x00A0;<span 
class="ectt-1200">le</span>&#x00A0;<span 
class="ectt-1200">vecteur</span>&#x00A0;<span 
class="ectt-1200">des</span>&#x00A0;<span 
class="ectt-1200">points</span>&#x00A0;<span 
class="ectt-1200">auxquels</span>&#x00A0;<span 
class="ectt-1200">on</span>&#x00A0;<span 
class="ectt-1200">veut</span>&#x00A0;<span 
class="ectt-1200">calculer</span>&#x00A0;<span 
class="ectt-1200">la</span>&#x00A0;<span 
class="ectt-1200">densite).</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Sorties:</span>&#x00A0;<span 
class="ectt-1200">void</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Description:</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Cette</span>&#x00A0;<span 
class="ectt-1200">fonction</span>&#x00A0;<span 
class="ectt-1200">ne</span>&#x00A0;<span 
class="ectt-1200">renvoie</span>&#x00A0;<span 
class="ectt-1200">rien</span>&#x00A0;<span 
class="ectt-1200">mais</span>&#x00A0;<span 
class="ectt-1200">modifie</span>&#x00A0;<span 
class="ectt-1200">le</span>&#x00A0;<span 
class="ectt-1200">vecteur</span>&#x00A0;<span 
class="ectt-1200">x,</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">en</span>&#x00A0;<span 
class="ectt-1200">le</span>&#x00A0;<span 
class="ectt-1200">remplacant</span>&#x00A0;<span 
class="ectt-1200">par</span>&#x00A0;<span 
class="ectt-1200">le</span>&#x00A0;<span 
class="ectt-1200">vecteur</span>&#x00A0;<span 
class="ectt-1200">dnorm(x),</span>&#x00A0;&#x00A0;<span 
class="ectt-1200">densite</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">d&#x2019;une</span>&#x00A0;<span 
class="ectt-1200">loi</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">Normale</span>&#x00A0;<span 
class="ectt-1200">aux</span>&#x00A0;<span 
class="ectt-1200">points</span>&#x00A0;<span 
class="ectt-1200">du</span>&#x00A0;<span 
class="ectt-1200">vecteur</span>&#x00A0;<span 
class="ectt-1200">x.</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Utilisation</span>&#x00A0;<span 
class="ectt-1200">dans</span>&#x00A0;<span 
class="ectt-1200">une</span>&#x00A0;<span 
class="ectt-1200">fonction</span>&#x00A0;<span 
class="ectt-1200">main:</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">-------------------------------------</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PROGRAM</span>&#x00A0;<span 
class="ectt-1200">main</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">n,</span>&#x00A0;<span 
class="ectt-1200">i</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">longueur</span>&#x00A0;<span 
class="ectt-1200">du</span>&#x00A0;<span 
class="ectt-1200">vecteur</span>&#x00A0;<span 
class="ectt-1200">x,</span>&#x00A0;<span 
class="ectt-1200">a</span>&#x00A0;<span 
class="ectt-1200">modifier</span>&#x00A0;<span 
class="ectt-1200">dans</span>&#x00A0;<span 
class="ectt-1200">le</span>&#x00A0;<span 
class="ectt-1200">programme</span>&#x00A0;<span 
class="ectt-1200">principal</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(n=3)</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">initialisation</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">x,</span>&#x00A0;<span 
class="ectt-1200">y</span>&#x00A0;<span 
class="ectt-1200">et</span>&#x00A0;<span 
class="ectt-1200">xavant</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">x(n),</span>&#x00A0;<span 
class="ectt-1200">y(n),</span>&#x00A0;<span 
class="ectt-1200">xavant(n)</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">affectation</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">valeurs</span>&#x00A0;<span 
class="ectt-1200">a</span>&#x00A0;<span 
class="ectt-1200">x</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">x(1)=1</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">x(2)=2</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">x(3)=3</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">On</span>&#x00A0;<span 
class="ectt-1200">sauvegarde</span>&#x00A0;<span 
class="ectt-1200">les</span>&#x00A0;<span 
class="ectt-1200">valeurs</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">x</span>&#x00A0;<span 
class="ectt-1200">dans</span>&#x00A0;<span 
class="ectt-1200">xavant</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DO</span>&#x00A0;<span 
class="ectt-1200">10,</span>&#x00A0;<span 
class="ectt-1200">i=1,n</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">xavant(i)=x(i)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">10</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CONTINUE</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">calcul</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">dnorm(x),</span>&#x00A0;<span 
class="ectt-1200">remplace</span>&#x00A0;<span 
class="ectt-1200">x</span>&#x00A0;<span 
class="ectt-1200">par</span>&#x00A0;<span 
class="ectt-1200">dnorm(x)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CALL</span>&#x00A0;<span 
class="ectt-1200">dnorm(n,x)</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">affecte</span>&#x00A0;<span 
class="ectt-1200">a</span>&#x00A0;<span 
class="ectt-1200">y</span>&#x00A0;<span 
class="ectt-1200">le</span>&#x00A0;<span 
class="ectt-1200">resultat</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DO</span>&#x00A0;<span 
class="ectt-1200">20,</span>&#x00A0;<span 
class="ectt-1200">i=1,n</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">y(i)=x(i)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">20</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CONTINUE</span>

&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">remet</span>&#x00A0;<span 
class="ectt-1200">les</span>&#x00A0;<span 
class="ectt-1200">bonnes</span>&#x00A0;<span 
class="ectt-1200">valeurs</span>&#x00A0;<span 
class="ectt-1200">dans</span>&#x00A0;<span 
class="ectt-1200">x</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">affecte</span>&#x00A0;<span 
class="ectt-1200">a</span>&#x00A0;<span 
class="ectt-1200">y</span>&#x00A0;<span 
class="ectt-1200">le</span>&#x00A0;<span 
class="ectt-1200">resultat</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DO</span>&#x00A0;<span 
class="ectt-1200">30,</span>&#x00A0;<span 
class="ectt-1200">i=1,n</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">x(i)=xavant(i)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">30</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CONTINUE</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Affichage</span>&#x00A0;<span 
class="ectt-1200">des</span>&#x00A0;<span 
class="ectt-1200">valeurs</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">y=dlap(x)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(UNIT=6,FMT=*)</span>&#x00A0;<span 
class="ectt-1200">&#x2019;Affichage</span>&#x00A0;<span 
class="ectt-1200">des</span>&#x00A0;<span 
class="ectt-1200">valeurs</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">y&#x2019;</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(UNIT=6,FMT=*)</span>&#x00A0;<span 
class="ectt-1200">y</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Affichage</span>&#x00A0;<span 
class="ectt-1200">des</span>&#x00A0;<span 
class="ectt-1200">valeurs</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">x</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(UNIT=6,FMT=*)</span>&#x00A0;<span 
class="ectt-1200">&#x2019;Affichage</span>&#x00A0;<span 
class="ectt-1200">des</span>&#x00A0;<span 
class="ectt-1200">valeurs</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">x&#x2019;</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(UNIT=6,FMT=*)</span>&#x00A0;<span 
class="ectt-1200">x</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">END</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">-------------------------------------</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Instructions</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">compilation:</span>&#x00A0;<span 
class="ectt-1200">alias</span>&#x00A0;<span 
class="ectt-1200">f77=&#x2019;fort77&#x2019;</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">f77</span>&#x00A0;<span 
class="ectt-1200">-c</span>&#x00A0;<span 
class="ectt-1200">nom_du_fichier_contenant_la_fonction_main.f</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">f77</span>&#x00A0;<span 
class="ectt-1200">-c</span>&#x00A0;<span 
class="ectt-1200">dnorm.f</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">f77</span>&#x00A0;<span 
class="ectt-1200">nom_du_fichier_contenant_la_fonction_main.o</span>&#x00A0;<span 
class="ectt-1200">dnorm.o</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Fonctions</span>&#x00A0;<span 
class="ectt-1200">exterieures</span>&#x00A0;<span 
class="ectt-1200">appelees:</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Auteur:</span>&#x00A0;<span 
class="ectt-1200">Pierre</span>&#x00A0;<span 
class="ectt-1200">Lafaye</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">Micheaux</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Date:</span>&#x00A0;<span 
class="ectt-1200">15/02/2001</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Fin-Commentaires</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">SUBROUTINE</span>&#x00A0;<span 
class="ectt-1200">dnorm</span>&#x00A0;<span 
class="ectt-1200">(n,x)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">n,i</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">PI</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER</span>&#x00A0;<span 
class="ectt-1200">(PI</span>&#x00A0;<span 
class="ectt-1200">=</span>&#x00A0;<span 
class="ectt-1200">3.14159265358979)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">x(n)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DO</span>&#x00A0;<span 
class="ectt-1200">10,</span>&#x00A0;<span 
class="ectt-1200">i=1,n</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">x(i)=(DEXP((-(x(i)**2))/DBLE(2.0)))/DSQRT(PI)</span>
&#x00A0;<br />&#x00A0;<span 
class="ectt-1200">10</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CONTINUE</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">RETURN</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">END</span>
   </div>
<!--l. 361--><p class="indent">   <span 
class="ecbx-1200">Programme dskew.f</span> </p><div class="verbatiminput">
<span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Debut-Commentaires</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Nom</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">la</span>&#x00A0;<span 
class="ectt-1200">sous-routine:</span>&#x00A0;<span 
class="ectt-1200">dskew</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Entrees:</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">n</span>&#x00A0;<span 
class="ectt-1200">(entier),</span>&#x00A0;<span 
class="ectt-1200">longueur</span>&#x00A0;<span 
class="ectt-1200">du</span>&#x00A0;<span 
class="ectt-1200">vecteur</span>&#x00A0;<span 
class="ectt-1200">x</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">lambda</span>&#x00A0;<span 
class="ectt-1200">(lambda)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">x</span>&#x00A0;<span 
class="ectt-1200">(double),</span>&#x00A0;<span 
class="ectt-1200">un</span>&#x00A0;<span 
class="ectt-1200">vecteur</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">n</span>&#x00A0;<span 
class="ectt-1200">nombres</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">(x</span>&#x00A0;<span 
class="ectt-1200">est</span>&#x00A0;<span 
class="ectt-1200">le</span>&#x00A0;<span 
class="ectt-1200">vecteur</span>&#x00A0;<span 
class="ectt-1200">des</span>&#x00A0;<span 
class="ectt-1200">points</span>&#x00A0;<span 
class="ectt-1200">auxquels</span>&#x00A0;<span 
class="ectt-1200">on</span>&#x00A0;<span 
class="ectt-1200">veut</span>&#x00A0;<span 
class="ectt-1200">calculer</span>&#x00A0;<span 
class="ectt-1200">la</span>&#x00A0;<span 
class="ectt-1200">densite).</span>

&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Sorties:</span>&#x00A0;<span 
class="ectt-1200">void</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Description:</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Cette</span>&#x00A0;<span 
class="ectt-1200">fonction</span>&#x00A0;<span 
class="ectt-1200">ne</span>&#x00A0;<span 
class="ectt-1200">renvoie</span>&#x00A0;<span 
class="ectt-1200">rien</span>&#x00A0;<span 
class="ectt-1200">mais</span>&#x00A0;<span 
class="ectt-1200">modifie</span>&#x00A0;<span 
class="ectt-1200">le</span>&#x00A0;<span 
class="ectt-1200">vecteur</span>&#x00A0;<span 
class="ectt-1200">x,</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">en</span>&#x00A0;<span 
class="ectt-1200">le</span>&#x00A0;<span 
class="ectt-1200">remplacant</span>&#x00A0;<span 
class="ectt-1200">par</span>&#x00A0;<span 
class="ectt-1200">le</span>&#x00A0;<span 
class="ectt-1200">vecteur</span>&#x00A0;<span 
class="ectt-1200">dskew(x),</span>&#x00A0;&#x00A0;<span 
class="ectt-1200">densite</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">d&#x2019;une</span>&#x00A0;<span 
class="ectt-1200">loi</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">Skew-Normale(lambda)</span>&#x00A0;<span 
class="ectt-1200">aux</span>&#x00A0;<span 
class="ectt-1200">points</span>&#x00A0;<span 
class="ectt-1200">du</span>&#x00A0;<span 
class="ectt-1200">vecteur</span>&#x00A0;<span 
class="ectt-1200">x.</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Utilisation</span>&#x00A0;<span 
class="ectt-1200">dans</span>&#x00A0;<span 
class="ectt-1200">une</span>&#x00A0;<span 
class="ectt-1200">fonction</span>&#x00A0;<span 
class="ectt-1200">main:</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">-------------------------------------</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PROGRAM</span>&#x00A0;<span 
class="ectt-1200">main</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">n,</span>&#x00A0;<span 
class="ectt-1200">i</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">lambda</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">longueur</span>&#x00A0;<span 
class="ectt-1200">du</span>&#x00A0;<span 
class="ectt-1200">vecteur</span>&#x00A0;<span 
class="ectt-1200">x,</span>&#x00A0;<span 
class="ectt-1200">a</span>&#x00A0;<span 
class="ectt-1200">modifier</span>&#x00A0;<span 
class="ectt-1200">dans</span>&#x00A0;<span 
class="ectt-1200">le</span>&#x00A0;<span 
class="ectt-1200">programme</span>&#x00A0;<span 
class="ectt-1200">principal</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(n=3)</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">parametre</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">la</span>&#x00A0;<span 
class="ectt-1200">loi</span>&#x00A0;<span 
class="ectt-1200">Skew-Normale</span>&#x00A0;<span 
class="ectt-1200">a</span>&#x00A0;<span 
class="ectt-1200">modifier</span>&#x00A0;<span 
class="ectt-1200">dans</span>&#x00A0;<span 
class="ectt-1200">le</span>&#x00A0;<span 
class="ectt-1200">programme</span>&#x00A0;<span 
class="ectt-1200">principal</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER</span>&#x00A0;<span 
class="ectt-1200">(lambda=5.0)</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">initialisation</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">x,</span>&#x00A0;<span 
class="ectt-1200">y</span>&#x00A0;<span 
class="ectt-1200">et</span>&#x00A0;<span 
class="ectt-1200">xavant</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">x(n),</span>&#x00A0;<span 
class="ectt-1200">y(n),</span>&#x00A0;<span 
class="ectt-1200">xavant(n)</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">affectation</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">valeurs</span>&#x00A0;<span 
class="ectt-1200">a</span>&#x00A0;<span 
class="ectt-1200">x</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">x(1)=1</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">x(2)=2</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">x(3)=3</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">On</span>&#x00A0;<span 
class="ectt-1200">sauvegarde</span>&#x00A0;<span 
class="ectt-1200">les</span>&#x00A0;<span 
class="ectt-1200">valeurs</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">x</span>&#x00A0;<span 
class="ectt-1200">dans</span>&#x00A0;<span 
class="ectt-1200">xavant</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DO</span>&#x00A0;<span 
class="ectt-1200">10,</span>&#x00A0;<span 
class="ectt-1200">i=1,n</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">xavant(i)=x(i)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">10</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CONTINUE</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">calcul</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">dskew(x,lambda),</span>&#x00A0;<span 
class="ectt-1200">remplace</span>&#x00A0;<span 
class="ectt-1200">x</span>&#x00A0;<span 
class="ectt-1200">par</span>&#x00A0;<span 
class="ectt-1200">dskew(x,lambda)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CALL</span>&#x00A0;<span 
class="ectt-1200">dskew(n,lambda,x)</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">affecte</span>&#x00A0;<span 
class="ectt-1200">a</span>&#x00A0;<span 
class="ectt-1200">y</span>&#x00A0;<span 
class="ectt-1200">le</span>&#x00A0;<span 
class="ectt-1200">resultat</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DO</span>&#x00A0;<span 
class="ectt-1200">20,</span>&#x00A0;<span 
class="ectt-1200">i=1,n</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">y(i)=x(i)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">20</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CONTINUE</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">remet</span>&#x00A0;<span 
class="ectt-1200">les</span>&#x00A0;<span 
class="ectt-1200">bonnes</span>&#x00A0;<span 
class="ectt-1200">valeurs</span>&#x00A0;<span 
class="ectt-1200">dans</span>&#x00A0;<span 
class="ectt-1200">x</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">affecte</span>&#x00A0;<span 
class="ectt-1200">a</span>&#x00A0;<span 
class="ectt-1200">y</span>&#x00A0;<span 
class="ectt-1200">le</span>&#x00A0;<span 
class="ectt-1200">resultat</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DO</span>&#x00A0;<span 
class="ectt-1200">30,</span>&#x00A0;<span 
class="ectt-1200">i=1,n</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">x(i)=xavant(i)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">30</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CONTINUE</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Affichage</span>&#x00A0;<span 
class="ectt-1200">des</span>&#x00A0;<span 
class="ectt-1200">valeurs</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">y=dskew(x,lambda)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(UNIT=6,FMT=*)</span>&#x00A0;<span 
class="ectt-1200">&#x2019;Affichage</span>&#x00A0;<span 
class="ectt-1200">des</span>&#x00A0;<span 
class="ectt-1200">valeurs</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">y&#x2019;</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(UNIT=6,FMT=*)</span>&#x00A0;<span 
class="ectt-1200">y</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Affichage</span>&#x00A0;<span 
class="ectt-1200">des</span>&#x00A0;<span 
class="ectt-1200">valeurs</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">x</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(UNIT=6,FMT=*)</span>&#x00A0;<span 
class="ectt-1200">&#x2019;Affichage</span>&#x00A0;<span 
class="ectt-1200">des</span>&#x00A0;<span 
class="ectt-1200">valeurs</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">x&#x2019;</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(UNIT=6,FMT=*)</span>&#x00A0;<span 
class="ectt-1200">x</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">END</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">-------------------------------------</span>

&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Instructions</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">compilation:</span>&#x00A0;<span 
class="ectt-1200">alias</span>&#x00A0;<span 
class="ectt-1200">f77=&#x2019;fort77&#x2019;</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">f77</span>&#x00A0;<span 
class="ectt-1200">-c</span>&#x00A0;<span 
class="ectt-1200">nom_du_fichier_contenant_la_fonction_main.f</span>&#x00A0;<span 
class="ectt-1200">-lnag</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">f77</span>&#x00A0;<span 
class="ectt-1200">-c</span>&#x00A0;<span 
class="ectt-1200">dskew.f</span>&#x00A0;<span 
class="ectt-1200">-lnag</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">f77</span>&#x00A0;<span 
class="ectt-1200">nom_du_fichier_contenant_la_fonction_main.o</span>&#x00A0;<span 
class="ectt-1200">dskew.o</span>&#x00A0;<span 
class="ectt-1200">-lnag</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Fonctions</span>&#x00A0;<span 
class="ectt-1200">exterieures</span>&#x00A0;<span 
class="ectt-1200">appelees:</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">S15ABF</span>&#x00A0;<span 
class="ectt-1200">NAG</span>&#x00A0;<span 
class="ectt-1200">Mark16</span>&#x00A0;<span 
class="ectt-1200">routine</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Auteur:</span>&#x00A0;<span 
class="ectt-1200">Pierre</span>&#x00A0;<span 
class="ectt-1200">Lafaye</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">Micheaux</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Date:</span>&#x00A0;<span 
class="ectt-1200">15/02/2001</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Fin-Commentaires</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">SUBROUTINE</span>&#x00A0;<span 
class="ectt-1200">dskew</span>&#x00A0;<span 
class="ectt-1200">(n,lambda,x)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">n,i,</span>&#x00A0;<span 
class="ectt-1200">IFAIL</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">PI</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER</span>&#x00A0;<span 
class="ectt-1200">(PI</span>&#x00A0;<span 
class="ectt-1200">=</span>&#x00A0;<span 
class="ectt-1200">3.14159265358979)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">lambda,</span>&#x00A0;&#x00A0;<span 
class="ectt-1200">x(n),</span>&#x00A0;<span 
class="ectt-1200">z1,</span>&#x00A0;<span 
class="ectt-1200">z2</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;&#x00A0;<span 
class="ectt-1200">S15ABF</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">EXTERNAL</span>&#x00A0;<span 
class="ectt-1200">S15ABF</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DO</span>&#x00A0;<span 
class="ectt-1200">10,</span>&#x00A0;<span 
class="ectt-1200">i=1,n</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">z1=DBLE(2.0)*((DEXP((-(x(i)**2))/DBLE(2.0)))/</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">+</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DSQRT(DBLE(2.0)*PI))</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">IFAIL=0</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">z2=lambda*x(i)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">S15ABF(z2,IFAIL)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">x(i)=z1*z2</span>
&#x00A0;<br />&#x00A0;<span 
class="ectt-1200">10</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CONTINUE</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">RETURN</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">END</span>
   </div>
<!--l. 365--><p class="indent">   <span 
class="ecbx-1200">Programme pnorm.f</span> </p><div class="verbatiminput">
<span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Debut-Commentaires</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Nom</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">la</span>&#x00A0;<span 
class="ectt-1200">sous-routine:</span>&#x00A0;<span 
class="ectt-1200">pnorm</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Entrees:</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">n</span>&#x00A0;<span 
class="ectt-1200">(enier),</span>&#x00A0;<span 
class="ectt-1200">longueur</span>&#x00A0;<span 
class="ectt-1200">du</span>&#x00A0;<span 
class="ectt-1200">vecteur</span>&#x00A0;<span 
class="ectt-1200">x</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">x</span>&#x00A0;<span 
class="ectt-1200">(double),</span>&#x00A0;<span 
class="ectt-1200">vecteur</span>&#x00A0;<span 
class="ectt-1200">des</span>&#x00A0;<span 
class="ectt-1200">points</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">auxquels</span>&#x00A0;<span 
class="ectt-1200">on</span>&#x00A0;<span 
class="ectt-1200">veut</span>&#x00A0;<span 
class="ectt-1200">calculer</span>&#x00A0;<span 
class="ectt-1200">la</span>&#x00A0;<span 
class="ectt-1200">probabilite</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">mu</span>&#x00A0;<span 
class="ectt-1200">(double),</span>&#x00A0;<span 
class="ectt-1200">moyenne</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">sigma</span>&#x00A0;<span 
class="ectt-1200">(double),</span>&#x00A0;<span 
class="ectt-1200">ecart-type</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Sorties:</span>&#x00A0;<span 
class="ectt-1200">void</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Description:</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Cette</span>&#x00A0;<span 
class="ectt-1200">fonction</span>&#x00A0;<span 
class="ectt-1200">ne</span>&#x00A0;<span 
class="ectt-1200">renvoie</span>&#x00A0;<span 
class="ectt-1200">rien</span>&#x00A0;<span 
class="ectt-1200">mais</span>&#x00A0;<span 
class="ectt-1200">modifie</span>&#x00A0;<span 
class="ectt-1200">le</span>&#x00A0;<span 
class="ectt-1200">vecteur</span>&#x00A0;<span 
class="ectt-1200">x,</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">en</span>&#x00A0;<span 
class="ectt-1200">le</span>&#x00A0;<span 
class="ectt-1200">remplacant</span>&#x00A0;<span 
class="ectt-1200">par</span>&#x00A0;<span 
class="ectt-1200">le</span>&#x00A0;<span 
class="ectt-1200">vecteur</span>&#x00A0;<span 
class="ectt-1200">pnorm_bis(x,mu,sigma)</span>&#x00A0;<span 
class="ectt-1200">des</span>&#x00A0;<span 
class="ectt-1200">probabilites</span>

&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">d&#x2019;une</span>&#x00A0;<span 
class="ectt-1200">loi</span>&#x00A0;<span 
class="ectt-1200">Normale(mu,sigma)</span>&#x00A0;<span 
class="ectt-1200">aux</span>&#x00A0;<span 
class="ectt-1200">points</span>&#x00A0;<span 
class="ectt-1200">du</span>&#x00A0;<span 
class="ectt-1200">vecteur</span>&#x00A0;<span 
class="ectt-1200">x.</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Utilisation</span>&#x00A0;<span 
class="ectt-1200">dans</span>&#x00A0;<span 
class="ectt-1200">une</span>&#x00A0;<span 
class="ectt-1200">fonction</span>&#x00A0;<span 
class="ectt-1200">main:</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">-------------------------------------</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PROGRAM</span>&#x00A0;<span 
class="ectt-1200">main</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">n,</span>&#x00A0;<span 
class="ectt-1200">i</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">mu,</span>&#x00A0;<span 
class="ectt-1200">sigma</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">longueur</span>&#x00A0;<span 
class="ectt-1200">du</span>&#x00A0;<span 
class="ectt-1200">vecteur</span>&#x00A0;<span 
class="ectt-1200">x,</span>&#x00A0;<span 
class="ectt-1200">a</span>&#x00A0;<span 
class="ectt-1200">modifier</span>&#x00A0;<span 
class="ectt-1200">dans</span>&#x00A0;<span 
class="ectt-1200">le</span>&#x00A0;<span 
class="ectt-1200">programme</span>&#x00A0;<span 
class="ectt-1200">principal</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(n=3)</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">parametre</span>&#x00A0;<span 
class="ectt-1200">mu</span>&#x00A0;<span 
class="ectt-1200">et</span>&#x00A0;<span 
class="ectt-1200">sigma</span>&#x00A0;<span 
class="ectt-1200">a</span>&#x00A0;<span 
class="ectt-1200">changer</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER</span>&#x00A0;<span 
class="ectt-1200">(mu=0,sigma=1)</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">initialisation</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">x,</span>&#x00A0;<span 
class="ectt-1200">y</span>&#x00A0;<span 
class="ectt-1200">et</span>&#x00A0;<span 
class="ectt-1200">xavant</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">x(n),</span>&#x00A0;<span 
class="ectt-1200">y(n),</span>&#x00A0;<span 
class="ectt-1200">xavant(n)</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">affectation</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">valeurs</span>&#x00A0;<span 
class="ectt-1200">a</span>&#x00A0;<span 
class="ectt-1200">x</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">x(1)=1</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">x(2)=2</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">x(3)=3</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">On</span>&#x00A0;<span 
class="ectt-1200">sauvegarde</span>&#x00A0;<span 
class="ectt-1200">les</span>&#x00A0;<span 
class="ectt-1200">valeurs</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">x</span>&#x00A0;<span 
class="ectt-1200">dans</span>&#x00A0;<span 
class="ectt-1200">xavant</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DO</span>&#x00A0;<span 
class="ectt-1200">10,</span>&#x00A0;<span 
class="ectt-1200">i=1,n</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">xavant(i)=x(i)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">10</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CONTINUE</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">calcul</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">pnorm(x,mu,sigma),</span>&#x00A0;<span 
class="ectt-1200">remplace</span>&#x00A0;<span 
class="ectt-1200">x</span>&#x00A0;<span 
class="ectt-1200">par</span>&#x00A0;<span 
class="ectt-1200">pnorm(x,mu,sigma)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CALL</span>&#x00A0;<span 
class="ectt-1200">pnorm(n,x,mu,sigma)</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">affecte</span>&#x00A0;<span 
class="ectt-1200">a</span>&#x00A0;<span 
class="ectt-1200">y</span>&#x00A0;<span 
class="ectt-1200">le</span>&#x00A0;<span 
class="ectt-1200">resultat</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DO</span>&#x00A0;<span 
class="ectt-1200">20,</span>&#x00A0;<span 
class="ectt-1200">i=1,n</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">y(i)=x(i)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">20</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CONTINUE</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">remet</span>&#x00A0;<span 
class="ectt-1200">les</span>&#x00A0;<span 
class="ectt-1200">bonnes</span>&#x00A0;<span 
class="ectt-1200">valeurs</span>&#x00A0;<span 
class="ectt-1200">dans</span>&#x00A0;<span 
class="ectt-1200">x</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DO</span>&#x00A0;<span 
class="ectt-1200">30,</span>&#x00A0;<span 
class="ectt-1200">i=1,n</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">x(i)=xavant(i)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">30</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CONTINUE</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Affichage</span>&#x00A0;<span 
class="ectt-1200">des</span>&#x00A0;<span 
class="ectt-1200">valeurs</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">y=pnorm(x,mu,sigma)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(UNIT=6,FMT=*)</span>&#x00A0;<span 
class="ectt-1200">&#x2019;Affichage</span>&#x00A0;<span 
class="ectt-1200">des</span>&#x00A0;<span 
class="ectt-1200">valeurs</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">y&#x2019;</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(UNIT=6,FMT=*)</span>&#x00A0;<span 
class="ectt-1200">y</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Affichage</span>&#x00A0;<span 
class="ectt-1200">des</span>&#x00A0;<span 
class="ectt-1200">valeurs</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">x</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(UNIT=6,FMT=*)</span>&#x00A0;<span 
class="ectt-1200">&#x2019;Affichage</span>&#x00A0;<span 
class="ectt-1200">des</span>&#x00A0;<span 
class="ectt-1200">valeurs</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">x&#x2019;</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(UNIT=6,FMT=*)</span>&#x00A0;<span 
class="ectt-1200">x</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">END</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">-------------------------------------</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Instructions</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">compilation:</span>&#x00A0;<span 
class="ectt-1200">alias</span>&#x00A0;<span 
class="ectt-1200">f77=&#x2019;fort77&#x2019;</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">f77</span>&#x00A0;<span 
class="ectt-1200">-c</span>&#x00A0;<span 
class="ectt-1200">nom_du_fichier_contenant_la_fonction_main.f</span>&#x00A0;<span 
class="ectt-1200">-lnag</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">f77</span>&#x00A0;<span 
class="ectt-1200">-c</span>&#x00A0;<span 
class="ectt-1200">pnorm.f</span>&#x00A0;<span 
class="ectt-1200">-lnag</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">f77</span>&#x00A0;<span 
class="ectt-1200">nom_du_fichier_contenant_la_fonction_main.o</span>&#x00A0;<span 
class="ectt-1200">pnorm.o</span>&#x00A0;<span 
class="ectt-1200">-lnag</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Fonctions</span>&#x00A0;<span 
class="ectt-1200">exterieures</span>&#x00A0;<span 
class="ectt-1200">appelees:</span>

&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">S15ABF</span>&#x00A0;<span 
class="ectt-1200">NAG</span>&#x00A0;<span 
class="ectt-1200">Mark16</span>&#x00A0;<span 
class="ectt-1200">routine</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Auteur:</span>&#x00A0;<span 
class="ectt-1200">Pierre</span>&#x00A0;<span 
class="ectt-1200">Lafaye</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">Micheaux</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Date:</span>&#x00A0;<span 
class="ectt-1200">15/02/2001</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Fin-Commentaires</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">SUBROUTINE</span>&#x00A0;<span 
class="ectt-1200">pnorm</span>&#x00A0;<span 
class="ectt-1200">(n,x,mu,sigma)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">n,i,</span>&#x00A0;<span 
class="ectt-1200">IFAIL</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">x(n),</span>&#x00A0;<span 
class="ectt-1200">mu,</span>&#x00A0;<span 
class="ectt-1200">sigma,</span>&#x00A0;<span 
class="ectt-1200">z</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;&#x00A0;<span 
class="ectt-1200">S15ABF</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">EXTERNAL</span>&#x00A0;<span 
class="ectt-1200">S15ABF</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DO</span>&#x00A0;<span 
class="ectt-1200">10,</span>&#x00A0;<span 
class="ectt-1200">i=1,n</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">z=(x(i)-mu)/sigma</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">IFAIL=0</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">x(i)=S15ABF(z,IFAIL)</span>
&#x00A0;<br />&#x00A0;<span 
class="ectt-1200">10</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CONTINUE</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">RETURN</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">END</span>
   </div>
<!--l. 369--><p class="indent">   <span 
class="ecbx-1200">Programme qnorm.f</span> </p><div class="verbatiminput">
<span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Debut-Commentaires</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Nom</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">la</span>&#x00A0;<span 
class="ectt-1200">sous-routine:</span>&#x00A0;<span 
class="ectt-1200">qnorm</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Entrees:</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">n</span>&#x00A0;<span 
class="ectt-1200">(entier),</span>&#x00A0;<span 
class="ectt-1200">longueur</span>&#x00A0;<span 
class="ectt-1200">du</span>&#x00A0;<span 
class="ectt-1200">vecteur</span>&#x00A0;<span 
class="ectt-1200">x</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">x</span>&#x00A0;<span 
class="ectt-1200">(double),</span>&#x00A0;<span 
class="ectt-1200">vecteur</span>&#x00A0;<span 
class="ectt-1200">des</span>&#x00A0;<span 
class="ectt-1200">points</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">auxquels</span>&#x00A0;<span 
class="ectt-1200">on</span>&#x00A0;<span 
class="ectt-1200">veut</span>&#x00A0;<span 
class="ectt-1200">calculer</span>&#x00A0;<span 
class="ectt-1200">la</span>&#x00A0;<span 
class="ectt-1200">probabilite</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">mu</span>&#x00A0;<span 
class="ectt-1200">(double),</span>&#x00A0;<span 
class="ectt-1200">moyenne</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">sigma</span>&#x00A0;<span 
class="ectt-1200">(double),</span>&#x00A0;<span 
class="ectt-1200">ecart-type</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Sorties:</span>&#x00A0;<span 
class="ectt-1200">void</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Description:</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Cette</span>&#x00A0;<span 
class="ectt-1200">fonction</span>&#x00A0;<span 
class="ectt-1200">ne</span>&#x00A0;<span 
class="ectt-1200">renvoie</span>&#x00A0;<span 
class="ectt-1200">rien</span>&#x00A0;<span 
class="ectt-1200">mais</span>&#x00A0;<span 
class="ectt-1200">modifie</span>&#x00A0;<span 
class="ectt-1200">le</span>&#x00A0;<span 
class="ectt-1200">vecteur</span>&#x00A0;<span 
class="ectt-1200">x,</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">en</span>&#x00A0;<span 
class="ectt-1200">le</span>&#x00A0;<span 
class="ectt-1200">remplacant</span>&#x00A0;<span 
class="ectt-1200">par</span>&#x00A0;<span 
class="ectt-1200">le</span>&#x00A0;<span 
class="ectt-1200">vecteur</span>&#x00A0;<span 
class="ectt-1200">qnorm(x,mu,sigma)</span>&#x00A0;<span 
class="ectt-1200">des</span>&#x00A0;<span 
class="ectt-1200">quantiles</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">d&#x2019;une</span>&#x00A0;<span 
class="ectt-1200">loi</span>&#x00A0;<span 
class="ectt-1200">Normale(mu,sigma&#x0302;2)</span>&#x00A0;<span 
class="ectt-1200">aux</span>&#x00A0;<span 
class="ectt-1200">points</span>&#x00A0;<span 
class="ectt-1200">du</span>&#x00A0;<span 
class="ectt-1200">vecteur</span>&#x00A0;<span 
class="ectt-1200">x.</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Utilisation</span>&#x00A0;<span 
class="ectt-1200">dans</span>&#x00A0;<span 
class="ectt-1200">une</span>&#x00A0;<span 
class="ectt-1200">fonction</span>&#x00A0;<span 
class="ectt-1200">main:</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">-------------------------------------</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PROGRAM</span>&#x00A0;<span 
class="ectt-1200">main</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">n,</span>&#x00A0;<span 
class="ectt-1200">i</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">mu,</span>&#x00A0;<span 
class="ectt-1200">sigma</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">longueur</span>&#x00A0;<span 
class="ectt-1200">du</span>&#x00A0;<span 
class="ectt-1200">vecteur</span>&#x00A0;<span 
class="ectt-1200">x,</span>&#x00A0;<span 
class="ectt-1200">a</span>&#x00A0;<span 
class="ectt-1200">modifier</span>&#x00A0;<span 
class="ectt-1200">dans</span>&#x00A0;<span 
class="ectt-1200">le</span>&#x00A0;<span 
class="ectt-1200">programme</span>&#x00A0;<span 
class="ectt-1200">principal</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(n=3)</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">parametre</span>&#x00A0;<span 
class="ectt-1200">mu</span>&#x00A0;<span 
class="ectt-1200">et</span>&#x00A0;<span 
class="ectt-1200">sigma</span>&#x00A0;<span 
class="ectt-1200">a</span>&#x00A0;<span 
class="ectt-1200">changer</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER</span>&#x00A0;<span 
class="ectt-1200">(mu=0,sigma=1)</span>

&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">initialisation</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">x,</span>&#x00A0;<span 
class="ectt-1200">y</span>&#x00A0;<span 
class="ectt-1200">et</span>&#x00A0;<span 
class="ectt-1200">xavant</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">x(n),</span>&#x00A0;<span 
class="ectt-1200">y(n),</span>&#x00A0;<span 
class="ectt-1200">xavant(n)</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">affectation</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">valeurs</span>&#x00A0;<span 
class="ectt-1200">a</span>&#x00A0;<span 
class="ectt-1200">x</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">x(1)=0.1</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">x(2)=0.2</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">x(3)=0.3</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">On</span>&#x00A0;<span 
class="ectt-1200">sauvegarde</span>&#x00A0;<span 
class="ectt-1200">les</span>&#x00A0;<span 
class="ectt-1200">valeurs</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">x</span>&#x00A0;<span 
class="ectt-1200">dans</span>&#x00A0;<span 
class="ectt-1200">xavant</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DO</span>&#x00A0;<span 
class="ectt-1200">10,</span>&#x00A0;<span 
class="ectt-1200">i=1,n</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">xavant(i)=x(i)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">10</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CONTINUE</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">calcul</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">qnorm(x,mu,sigma),</span>&#x00A0;<span 
class="ectt-1200">remplace</span>&#x00A0;<span 
class="ectt-1200">x</span>&#x00A0;<span 
class="ectt-1200">par</span>&#x00A0;<span 
class="ectt-1200">qnorm(x,mu,sigma)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CALL</span>&#x00A0;<span 
class="ectt-1200">qnorm(n,x,mu,sigma)</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">affecte</span>&#x00A0;<span 
class="ectt-1200">a</span>&#x00A0;<span 
class="ectt-1200">y</span>&#x00A0;<span 
class="ectt-1200">le</span>&#x00A0;<span 
class="ectt-1200">resultat</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DO</span>&#x00A0;<span 
class="ectt-1200">20,</span>&#x00A0;<span 
class="ectt-1200">i=1,n</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">y(i)=x(i)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">20</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CONTINUE</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">remet</span>&#x00A0;<span 
class="ectt-1200">les</span>&#x00A0;<span 
class="ectt-1200">bonnes</span>&#x00A0;<span 
class="ectt-1200">valeurs</span>&#x00A0;<span 
class="ectt-1200">dans</span>&#x00A0;<span 
class="ectt-1200">x</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DO</span>&#x00A0;<span 
class="ectt-1200">30,</span>&#x00A0;<span 
class="ectt-1200">i=1,n</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">x(i)=xavant(i)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">30</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CONTINUE</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Affichage</span>&#x00A0;<span 
class="ectt-1200">des</span>&#x00A0;<span 
class="ectt-1200">valeurs</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">y=pnorm(x,mu,sigma)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(UNIT=6,FMT=*)</span>&#x00A0;<span 
class="ectt-1200">&#x2019;Affichage</span>&#x00A0;<span 
class="ectt-1200">des</span>&#x00A0;<span 
class="ectt-1200">valeurs</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">y&#x2019;</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(UNIT=6,FMT=*)</span>&#x00A0;<span 
class="ectt-1200">y</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Affichage</span>&#x00A0;<span 
class="ectt-1200">des</span>&#x00A0;<span 
class="ectt-1200">valeurs</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">x</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(UNIT=6,FMT=*)</span>&#x00A0;<span 
class="ectt-1200">&#x2019;Affichage</span>&#x00A0;<span 
class="ectt-1200">des</span>&#x00A0;<span 
class="ectt-1200">valeurs</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">x&#x2019;</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(UNIT=6,FMT=*)</span>&#x00A0;<span 
class="ectt-1200">x</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">END</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">-------------------------------------</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Instructions</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">compilation:</span>&#x00A0;<span 
class="ectt-1200">alias</span>&#x00A0;<span 
class="ectt-1200">f77=&#x2019;fort77&#x2019;</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">f77</span>&#x00A0;<span 
class="ectt-1200">-c</span>&#x00A0;<span 
class="ectt-1200">nom_du_fichier_contenant_la_fonction_main.f</span>&#x00A0;<span 
class="ectt-1200">-lnag</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">f77</span>&#x00A0;<span 
class="ectt-1200">-c</span>&#x00A0;<span 
class="ectt-1200">qnorm.f</span>&#x00A0;<span 
class="ectt-1200">-lnag</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">f77</span>&#x00A0;<span 
class="ectt-1200">nom_du_fichier_contenant_la_fonction_main.o</span>&#x00A0;<span 
class="ectt-1200">qnorm.o</span>&#x00A0;<span 
class="ectt-1200">-lnag</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Fonctions</span>&#x00A0;<span 
class="ectt-1200">exterieures</span>&#x00A0;<span 
class="ectt-1200">appelees:</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">G01FAF</span>&#x00A0;<span 
class="ectt-1200">NAG</span>&#x00A0;<span 
class="ectt-1200">Mark16</span>&#x00A0;<span 
class="ectt-1200">routine</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Auteur:</span>&#x00A0;<span 
class="ectt-1200">Pierre</span>&#x00A0;<span 
class="ectt-1200">Lafaye</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">Micheaux</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Date:</span>&#x00A0;<span 
class="ectt-1200">15/02/2001</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Fin-Commentaires</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">SUBROUTINE</span>&#x00A0;<span 
class="ectt-1200">qnorm</span>&#x00A0;<span 
class="ectt-1200">(n,x,mu,sigma)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">n,i,</span>&#x00A0;<span 
class="ectt-1200">IFAIL</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CHARACTER*1</span>&#x00A0;&#x00A0;<span 
class="ectt-1200">TAIL</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">x(n),</span>&#x00A0;<span 
class="ectt-1200">mu,</span>&#x00A0;<span 
class="ectt-1200">sigma</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;&#x00A0;<span 
class="ectt-1200">G01FAF</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">EXTERNAL</span>&#x00A0;<span 
class="ectt-1200">G01FAF</span>

&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DO</span>&#x00A0;<span 
class="ectt-1200">10,</span>&#x00A0;<span 
class="ectt-1200">i=1,n</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">IFAIL=0</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">TAIL=&#x2019;L&#x2019;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">x(i)=sigma*G01FAF(TAIL,x(i),IFAIL)+mu</span>
&#x00A0;<br />&#x00A0;<span 
class="ectt-1200">10</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CONTINUE</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">RETURN</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">END</span>
   </div>
<!--l. 373--><p class="indent">   <span 
class="ecbx-1200">Programme rlap.f</span> </p><div class="verbatiminput">
<span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Debut-Commentaires</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Nom</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">la</span>&#x00A0;<span 
class="ectt-1200">sous-routine:</span>&#x00A0;<span 
class="ectt-1200">rlap</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Entrees:</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">n</span>&#x00A0;<span 
class="ectt-1200">(entier),</span>&#x00A0;<span 
class="ectt-1200">longueur</span>&#x00A0;<span 
class="ectt-1200">du</span>&#x00A0;<span 
class="ectt-1200">vecteur</span>&#x00A0;<span 
class="ectt-1200">x</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">x</span>&#x00A0;<span 
class="ectt-1200">(double),</span>&#x00A0;<span 
class="ectt-1200">un</span>&#x00A0;<span 
class="ectt-1200">vecteur</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">n</span>&#x00A0;<span 
class="ectt-1200">nombres</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Sorties:</span>&#x00A0;<span 
class="ectt-1200">void</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Description:</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Cette</span>&#x00A0;<span 
class="ectt-1200">fonction</span>&#x00A0;<span 
class="ectt-1200">ne</span>&#x00A0;<span 
class="ectt-1200">renvoie</span>&#x00A0;<span 
class="ectt-1200">rien</span>&#x00A0;<span 
class="ectt-1200">mais</span>&#x00A0;<span 
class="ectt-1200">modifie</span>&#x00A0;<span 
class="ectt-1200">le</span>&#x00A0;<span 
class="ectt-1200">vecteur</span>&#x00A0;<span 
class="ectt-1200">x,</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">en</span>&#x00A0;<span 
class="ectt-1200">le</span>&#x00A0;<span 
class="ectt-1200">remplacant</span>&#x00A0;<span 
class="ectt-1200">par</span>&#x00A0;<span 
class="ectt-1200">le</span>&#x00A0;<span 
class="ectt-1200">vecteur</span>&#x00A0;<span 
class="ectt-1200">rlap(x);</span>&#x00A0;<span 
class="ectt-1200">c&#x2019;est</span>&#x00A0;<span 
class="ectt-1200">a</span>&#x00A0;<span 
class="ectt-1200">dire</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">simule</span>&#x00A0;<span 
class="ectt-1200">un</span>&#x00A0;<span 
class="ectt-1200">echantillon</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">taille</span>&#x00A0;<span 
class="ectt-1200">n</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">provenant</span>&#x00A0;<span 
class="ectt-1200">d&#x2019;une</span>&#x00A0;<span 
class="ectt-1200">loi</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">Laplace</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Utilisation</span>&#x00A0;<span 
class="ectt-1200">dans</span>&#x00A0;<span 
class="ectt-1200">une</span>&#x00A0;<span 
class="ectt-1200">fonction</span>&#x00A0;<span 
class="ectt-1200">main:</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">-------------------------------------</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PROGRAM</span>&#x00A0;<span 
class="ectt-1200">main</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">n</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">longueur</span>&#x00A0;<span 
class="ectt-1200">du</span>&#x00A0;<span 
class="ectt-1200">vecteur</span>&#x00A0;<span 
class="ectt-1200">x,</span>&#x00A0;<span 
class="ectt-1200">a</span>&#x00A0;<span 
class="ectt-1200">modifier</span>&#x00A0;<span 
class="ectt-1200">dans</span>&#x00A0;<span 
class="ectt-1200">le</span>&#x00A0;<span 
class="ectt-1200">programme</span>&#x00A0;<span 
class="ectt-1200">principal</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(n=3)</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">initialisation</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">x</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">x(n)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CALL</span>&#x00A0;<span 
class="ectt-1200">G05CBF(0)</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">calcul</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">rlap(x),</span>&#x00A0;<span 
class="ectt-1200">remplace</span>&#x00A0;<span 
class="ectt-1200">x</span>&#x00A0;<span 
class="ectt-1200">par</span>&#x00A0;<span 
class="ectt-1200">rlap(x)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CALL</span>&#x00A0;<span 
class="ectt-1200">rlap(n,x)</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Affichage</span>&#x00A0;<span 
class="ectt-1200">des</span>&#x00A0;<span 
class="ectt-1200">valeurs</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">rlap(x)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(UNIT=6,FMT=*)</span>&#x00A0;<span 
class="ectt-1200">&#x2019;Affichage</span>&#x00A0;<span 
class="ectt-1200">des</span>&#x00A0;<span 
class="ectt-1200">valeurs</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">rlap(x)&#x2019;</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(UNIT=6,FMT=*)</span>&#x00A0;<span 
class="ectt-1200">x</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">END</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INCLUDE</span>&#x00A0;<span 
class="ectt-1200">&#x2019;rlap.f&#x2019;</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">-------------------------------------</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Instructions</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">compilation:</span>&#x00A0;<span 
class="ectt-1200">alias</span>&#x00A0;<span 
class="ectt-1200">f77=&#x2019;fort77&#x2019;</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">f77</span>&#x00A0;<span 
class="ectt-1200">-c</span>&#x00A0;<span 
class="ectt-1200">nom_du_fichier_contenant_la_fonction_main.f</span>&#x00A0;<span 
class="ectt-1200">-lnag</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">f77</span>&#x00A0;<span 
class="ectt-1200">-c</span>&#x00A0;<span 
class="ectt-1200">rlap.f</span>&#x00A0;<span 
class="ectt-1200">-lnag</span>

&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">f77</span>&#x00A0;<span 
class="ectt-1200">nom_du_fichier_contenant_la_fonction_main.o</span>&#x00A0;<span 
class="ectt-1200">rlap.o</span>&#x00A0;<span 
class="ectt-1200">-lnag</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Fonctions</span>&#x00A0;<span 
class="ectt-1200">exterieures</span>&#x00A0;<span 
class="ectt-1200">appelees:</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">G05DAF</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">la</span>&#x00A0;<span 
class="ectt-1200">librairie</span>&#x00A0;<span 
class="ectt-1200">NAG</span>&#x00A0;<span 
class="ectt-1200">Mark16</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Auteur:</span>&#x00A0;<span 
class="ectt-1200">Pierre</span>&#x00A0;<span 
class="ectt-1200">Lafaye</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">Micheaux</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Date:</span>&#x00A0;<span 
class="ectt-1200">15/02/2001</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Fin-Commentaires</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">SUBROUTINE</span>&#x00A0;<span 
class="ectt-1200">rlap</span>&#x00A0;<span 
class="ectt-1200">(n,x)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">n,i</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">x(n),</span>&#x00A0;<span 
class="ectt-1200">u,</span>&#x00A0;<span 
class="ectt-1200">G05DAF,</span>&#x00A0;<span 
class="ectt-1200">a,</span>&#x00A0;<span 
class="ectt-1200">b</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">EXTERNAL</span>&#x00A0;<span 
class="ectt-1200">G05DAF</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">a=DBLE(0.0)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">b=DBLE(1.0)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DO</span>&#x00A0;<span 
class="ectt-1200">10,</span>&#x00A0;<span 
class="ectt-1200">i=1,n</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">u=G05DAF(a,b)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">IF</span>&#x00A0;<span 
class="ectt-1200">(u</span>&#x00A0;<span 
class="ectt-1200">.GT.</span>&#x00A0;<span 
class="ectt-1200">DBLE(0.5))</span>&#x00A0;<span 
class="ectt-1200">THEN</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">x(i)=-DLOG(2*(1-u))</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">ELSE</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">x(i)=DLOG(2*u)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">ENDIF</span>
&#x00A0;<br />&#x00A0;<span 
class="ectt-1200">10</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CONTINUE</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">RETURN</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">END</span>
   </div>
<!--l. 377--><p class="indent">   <span 
class="ecbx-1200">Programme rLC.f</span> </p><div class="verbatiminput">
<span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Debut-Commentaires</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Nom</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">la</span>&#x00A0;<span 
class="ectt-1200">sous-routine:</span>&#x00A0;<span 
class="ectt-1200">rLC</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Entrees:</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">p</span>&#x00A0;<span 
class="ectt-1200">(double),</span>&#x00A0;<span 
class="ectt-1200">parametre</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">la</span>&#x00A0;<span 
class="ectt-1200">SC</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">m</span>&#x00A0;<span 
class="ectt-1200">(double),</span>&#x00A0;<span 
class="ectt-1200">parametre</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">la</span>&#x00A0;<span 
class="ectt-1200">SC</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">n</span>&#x00A0;<span 
class="ectt-1200">(entier),</span>&#x00A0;<span 
class="ectt-1200">longueur</span>&#x00A0;<span 
class="ectt-1200">du</span>&#x00A0;<span 
class="ectt-1200">vecteur</span>&#x00A0;<span 
class="ectt-1200">x</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">x</span>&#x00A0;<span 
class="ectt-1200">(double),</span>&#x00A0;<span 
class="ectt-1200">un</span>&#x00A0;<span 
class="ectt-1200">vecteur</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">n</span>&#x00A0;<span 
class="ectt-1200">nombres</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Sorties:</span>&#x00A0;<span 
class="ectt-1200">void</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Description:</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Cette</span>&#x00A0;<span 
class="ectt-1200">fonction</span>&#x00A0;<span 
class="ectt-1200">ne</span>&#x00A0;<span 
class="ectt-1200">renvoie</span>&#x00A0;<span 
class="ectt-1200">rien</span>&#x00A0;<span 
class="ectt-1200">mais</span>&#x00A0;<span 
class="ectt-1200">modifie</span>&#x00A0;<span 
class="ectt-1200">le</span>&#x00A0;<span 
class="ectt-1200">vecteur</span>&#x00A0;<span 
class="ectt-1200">x,</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">en</span>&#x00A0;<span 
class="ectt-1200">le</span>&#x00A0;<span 
class="ectt-1200">remplacant</span>&#x00A0;<span 
class="ectt-1200">par</span>&#x00A0;<span 
class="ectt-1200">le</span>&#x00A0;<span 
class="ectt-1200">vecteur</span>&#x00A0;<span 
class="ectt-1200">rLC(x);</span>&#x00A0;<span 
class="ectt-1200">c&#x2019;est</span>&#x00A0;<span 
class="ectt-1200">a</span>&#x00A0;<span 
class="ectt-1200">dire</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">simule</span>&#x00A0;<span 
class="ectt-1200">un</span>&#x00A0;<span 
class="ectt-1200">echantillon</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">taille</span>&#x00A0;<span 
class="ectt-1200">n</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">provenant</span>&#x00A0;<span 
class="ectt-1200">d&#x2019;une</span>&#x00A0;<span 
class="ectt-1200">loi</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">LC(p,m)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Utilisation</span>&#x00A0;<span 
class="ectt-1200">dans</span>&#x00A0;<span 
class="ectt-1200">une</span>&#x00A0;<span 
class="ectt-1200">fonction</span>&#x00A0;<span 
class="ectt-1200">main:</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">-------------------------------------</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PROGRAM</span>&#x00A0;<span 
class="ectt-1200">main</span>

&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">n</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">longueur</span>&#x00A0;<span 
class="ectt-1200">du</span>&#x00A0;<span 
class="ectt-1200">vecteur</span>&#x00A0;<span 
class="ectt-1200">x,</span>&#x00A0;<span 
class="ectt-1200">a</span>&#x00A0;<span 
class="ectt-1200">modifier</span>&#x00A0;<span 
class="ectt-1200">dans</span>&#x00A0;<span 
class="ectt-1200">le</span>&#x00A0;<span 
class="ectt-1200">programme</span>&#x00A0;<span 
class="ectt-1200">principal</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(n=3)</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">valeurs</span>&#x00A0;<span 
class="ectt-1200">donnees</span>&#x00A0;<span 
class="ectt-1200">aux</span>&#x00A0;<span 
class="ectt-1200">parametres</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">p,</span>&#x00A0;<span 
class="ectt-1200">m</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(p=0.2,</span>&#x00A0;<span 
class="ectt-1200">m=3.0)</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">initialisation</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">x</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">x(n)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CALL</span>&#x00A0;<span 
class="ectt-1200">G05CBF(0)</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">calcul</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">rLC(x),</span>&#x00A0;<span 
class="ectt-1200">remplace</span>&#x00A0;<span 
class="ectt-1200">x</span>&#x00A0;<span 
class="ectt-1200">par</span>&#x00A0;<span 
class="ectt-1200">rLC(x)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CALL</span>&#x00A0;<span 
class="ectt-1200">rLC(p,m,n,x)</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Affichage</span>&#x00A0;<span 
class="ectt-1200">des</span>&#x00A0;<span 
class="ectt-1200">valeurs</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">rLC(x)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(UNIT=6,FMT=*)</span>&#x00A0;<span 
class="ectt-1200">&#x2019;Affichage</span>&#x00A0;<span 
class="ectt-1200">des</span>&#x00A0;<span 
class="ectt-1200">valeurs</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">rLC(x)&#x2019;</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(UNIT=6,FMT=*)</span>&#x00A0;<span 
class="ectt-1200">x</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">END</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INCLUDE</span>&#x00A0;<span 
class="ectt-1200">&#x2019;rLC.f&#x2019;</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">-------------------------------------</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Instructions</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">compilation:</span>&#x00A0;<span 
class="ectt-1200">alias</span>&#x00A0;<span 
class="ectt-1200">f77=&#x2019;fort77&#x2019;</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">f77</span>&#x00A0;<span 
class="ectt-1200">-c</span>&#x00A0;<span 
class="ectt-1200">nom_du_fichier_contenant_la_fonction_main.f</span>&#x00A0;<span 
class="ectt-1200">-lnag</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">f77</span>&#x00A0;<span 
class="ectt-1200">-c</span>&#x00A0;<span 
class="ectt-1200">rLC.f</span>&#x00A0;<span 
class="ectt-1200">-lnag</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">f77</span>&#x00A0;<span 
class="ectt-1200">nom_du_fichier_contenant_la_fonction_main.o</span>&#x00A0;<span 
class="ectt-1200">rLC.o</span>&#x00A0;<span 
class="ectt-1200">-lnag</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Fonctions</span>&#x00A0;<span 
class="ectt-1200">exterieures</span>&#x00A0;<span 
class="ectt-1200">appelees:</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">G05FAF,</span>&#x00A0;<span 
class="ectt-1200">G05DDF</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">la</span>&#x00A0;<span 
class="ectt-1200">librairie</span>&#x00A0;<span 
class="ectt-1200">NAG</span>&#x00A0;<span 
class="ectt-1200">Mark16</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Auteur:</span>&#x00A0;<span 
class="ectt-1200">Pierre</span>&#x00A0;<span 
class="ectt-1200">Lafaye</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">Micheaux</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Date:</span>&#x00A0;<span 
class="ectt-1200">15/02/2001</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Fin-Commentaires</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">SUBROUTINE</span>&#x00A0;<span 
class="ectt-1200">rLC</span>&#x00A0;<span 
class="ectt-1200">(p,m,n,x)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">n,i</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">x(n),</span>&#x00A0;<span 
class="ectt-1200">p,</span>&#x00A0;<span 
class="ectt-1200">m,</span>&#x00A0;<span 
class="ectt-1200">a,</span>&#x00A0;<span 
class="ectt-1200">b,</span>&#x00A0;<span 
class="ectt-1200">G05DDF</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">EXTERNAL</span>&#x00A0;<span 
class="ectt-1200">G05DDF</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">a=DBLE(0.0)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">b=DBLE(1.0)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CALL</span>&#x00A0;<span 
class="ectt-1200">G05FAF(a,b,n,x)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DO</span>&#x00A0;<span 
class="ectt-1200">10,</span>&#x00A0;<span 
class="ectt-1200">i=1,n</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">IF</span>&#x00A0;<span 
class="ectt-1200">(x(i)</span>&#x00A0;<span 
class="ectt-1200">.LT.</span>&#x00A0;<span 
class="ectt-1200">p)</span>&#x00A0;<span 
class="ectt-1200">THEN</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">x(i)=G05DDF(m,b)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">ELSE</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">x(i)=G05DDF(a,b)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">ENDIF</span>
&#x00A0;<br />&#x00A0;<span 
class="ectt-1200">10</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CONTINUE</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">RETURN</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">END</span>
   </div>

<!--l. 381--><p class="indent">   <span 
class="ecbx-1200">Programme rpare.f</span> </p><div class="verbatiminput">
<span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Debut-Commentaires</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Nom</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">la</span>&#x00A0;<span 
class="ectt-1200">sous-routine:</span>&#x00A0;<span 
class="ectt-1200">rpare</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Entrees:</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">a</span>&#x00A0;<span 
class="ectt-1200">(double),</span>&#x00A0;<span 
class="ectt-1200">parametre</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">la</span>&#x00A0;<span 
class="ectt-1200">Pareto</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">k</span>&#x00A0;<span 
class="ectt-1200">(double),</span>&#x00A0;<span 
class="ectt-1200">parametre</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">la</span>&#x00A0;<span 
class="ectt-1200">Pareto</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">n</span>&#x00A0;<span 
class="ectt-1200">(entier),</span>&#x00A0;<span 
class="ectt-1200">longueur</span>&#x00A0;<span 
class="ectt-1200">du</span>&#x00A0;<span 
class="ectt-1200">vecteur</span>&#x00A0;<span 
class="ectt-1200">x</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">x</span>&#x00A0;<span 
class="ectt-1200">(double),</span>&#x00A0;<span 
class="ectt-1200">un</span>&#x00A0;<span 
class="ectt-1200">vecteur</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">n</span>&#x00A0;<span 
class="ectt-1200">nombres</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Sorties:</span>&#x00A0;<span 
class="ectt-1200">void</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Description:</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Cette</span>&#x00A0;<span 
class="ectt-1200">fonction</span>&#x00A0;<span 
class="ectt-1200">ne</span>&#x00A0;<span 
class="ectt-1200">renvoie</span>&#x00A0;<span 
class="ectt-1200">rien</span>&#x00A0;<span 
class="ectt-1200">mais</span>&#x00A0;<span 
class="ectt-1200">modifie</span>&#x00A0;<span 
class="ectt-1200">le</span>&#x00A0;<span 
class="ectt-1200">vecteur</span>&#x00A0;<span 
class="ectt-1200">x,</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">en</span>&#x00A0;<span 
class="ectt-1200">le</span>&#x00A0;<span 
class="ectt-1200">remplacant</span>&#x00A0;<span 
class="ectt-1200">par</span>&#x00A0;<span 
class="ectt-1200">le</span>&#x00A0;<span 
class="ectt-1200">vecteur</span>&#x00A0;<span 
class="ectt-1200">rpare(x);</span>&#x00A0;<span 
class="ectt-1200">c&#x2019;est</span>&#x00A0;<span 
class="ectt-1200">a</span>&#x00A0;<span 
class="ectt-1200">dire</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">simule</span>&#x00A0;<span 
class="ectt-1200">un</span>&#x00A0;<span 
class="ectt-1200">echantillon</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">taille</span>&#x00A0;<span 
class="ectt-1200">n</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">provenant</span>&#x00A0;<span 
class="ectt-1200">d&#x2019;une</span>&#x00A0;<span 
class="ectt-1200">loi</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">Pareto(a,k)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Utilisation</span>&#x00A0;<span 
class="ectt-1200">dans</span>&#x00A0;<span 
class="ectt-1200">une</span>&#x00A0;<span 
class="ectt-1200">fonction</span>&#x00A0;<span 
class="ectt-1200">main:</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">-------------------------------------</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PROGRAM</span>&#x00A0;<span 
class="ectt-1200">main</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">n</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">longueur</span>&#x00A0;<span 
class="ectt-1200">du</span>&#x00A0;<span 
class="ectt-1200">vecteur</span>&#x00A0;<span 
class="ectt-1200">x,</span>&#x00A0;<span 
class="ectt-1200">a</span>&#x00A0;<span 
class="ectt-1200">modifier</span>&#x00A0;<span 
class="ectt-1200">dans</span>&#x00A0;<span 
class="ectt-1200">le</span>&#x00A0;<span 
class="ectt-1200">programme</span>&#x00A0;<span 
class="ectt-1200">principal</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(n=3)</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">valeurs</span>&#x00A0;<span 
class="ectt-1200">donnees</span>&#x00A0;<span 
class="ectt-1200">aux</span>&#x00A0;<span 
class="ectt-1200">parametres</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">a,</span>&#x00A0;<span 
class="ectt-1200">k</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(a=1.8,</span>&#x00A0;<span 
class="ectt-1200">k=1.2)</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">initialisation</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">x</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">x(n)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CALL</span>&#x00A0;<span 
class="ectt-1200">G05CBF(0)</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">calcul</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">rpare(x),</span>&#x00A0;<span 
class="ectt-1200">remplace</span>&#x00A0;<span 
class="ectt-1200">x</span>&#x00A0;<span 
class="ectt-1200">par</span>&#x00A0;<span 
class="ectt-1200">rpare(x)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CALL</span>&#x00A0;<span 
class="ectt-1200">rpare(a,k,n,x)</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Affichage</span>&#x00A0;<span 
class="ectt-1200">des</span>&#x00A0;<span 
class="ectt-1200">valeurs</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">rpare(x)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(UNIT=6,FMT=*)</span>&#x00A0;<span 
class="ectt-1200">&#x2019;Affichage</span>&#x00A0;<span 
class="ectt-1200">des</span>&#x00A0;<span 
class="ectt-1200">valeurs</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">rpare(x)&#x2019;</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(UNIT=6,FMT=*)</span>&#x00A0;<span 
class="ectt-1200">x</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">END</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">-------------------------------------</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Instructions</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">compilation:</span>&#x00A0;<span 
class="ectt-1200">alias</span>&#x00A0;<span 
class="ectt-1200">f77=&#x2019;fort77&#x2019;</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">f77</span>&#x00A0;<span 
class="ectt-1200">-c</span>&#x00A0;<span 
class="ectt-1200">nom_du_fichier_contenant_la_fonction_main.f</span>&#x00A0;<span 
class="ectt-1200">-lnag</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">f77</span>&#x00A0;<span 
class="ectt-1200">-c</span>&#x00A0;<span 
class="ectt-1200">rlap.f</span>&#x00A0;<span 
class="ectt-1200">-lnag</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">f77</span>&#x00A0;<span 
class="ectt-1200">nom_du_fichier_contenant_la_fonction_main.o</span>&#x00A0;<span 
class="ectt-1200">rpare.o</span>&#x00A0;<span 
class="ectt-1200">-lnag</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Fonctions</span>&#x00A0;<span 
class="ectt-1200">exterieures</span>&#x00A0;<span 
class="ectt-1200">appelees:</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">G05FAF</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">la</span>&#x00A0;<span 
class="ectt-1200">librairie</span>&#x00A0;<span 
class="ectt-1200">NAG</span>&#x00A0;<span 
class="ectt-1200">Mark16</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Auteur:</span>&#x00A0;<span 
class="ectt-1200">Pierre</span>&#x00A0;<span 
class="ectt-1200">Lafaye</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">Micheaux</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Date:</span>&#x00A0;<span 
class="ectt-1200">15/02/2001</span>

&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Fin-Commentaires</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">SUBROUTINE</span>&#x00A0;<span 
class="ectt-1200">rpare</span>&#x00A0;<span 
class="ectt-1200">(a,k,n,x)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">n,i</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">x(n),</span>&#x00A0;<span 
class="ectt-1200">a,</span>&#x00A0;<span 
class="ectt-1200">k,</span>&#x00A0;<span 
class="ectt-1200">a1,</span>&#x00A0;<span 
class="ectt-1200">b1</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">a1=DBLE(0.0)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">b1=DBLE(1.0)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CALL</span>&#x00A0;<span 
class="ectt-1200">G05FAF(a1,b1,n,x)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DO</span>&#x00A0;<span 
class="ectt-1200">10,</span>&#x00A0;<span 
class="ectt-1200">i=1,n</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">x(i)=k/((1-x(i))**(DBLE(1.0)/a))</span>
&#x00A0;<br />&#x00A0;<span 
class="ectt-1200">10</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CONTINUE</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">RETURN</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">END</span>
   </div>
<!--l. 385--><p class="indent">   <span 
class="ecbx-1200">Programme rSB.f</span> </p><div class="verbatiminput">
<span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Debut-Commentaires</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Nom</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">la</span>&#x00A0;<span 
class="ectt-1200">sous-routine:</span>&#x00A0;<span 
class="ectt-1200">rSB</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Entrees:</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">g</span>&#x00A0;<span 
class="ectt-1200">(double),</span>&#x00A0;<span 
class="ectt-1200">parametre</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">rSB</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">d</span>&#x00A0;<span 
class="ectt-1200">(double),</span>&#x00A0;<span 
class="ectt-1200">parametre</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">rSB</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">n</span>&#x00A0;<span 
class="ectt-1200">(entier),</span>&#x00A0;<span 
class="ectt-1200">longueur</span>&#x00A0;<span 
class="ectt-1200">du</span>&#x00A0;<span 
class="ectt-1200">vecteur</span>&#x00A0;<span 
class="ectt-1200">x</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">x</span>&#x00A0;<span 
class="ectt-1200">(double),</span>&#x00A0;<span 
class="ectt-1200">un</span>&#x00A0;<span 
class="ectt-1200">vecteur</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">n</span>&#x00A0;<span 
class="ectt-1200">nombres</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Sorties:</span>&#x00A0;<span 
class="ectt-1200">void</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Description:</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Cette</span>&#x00A0;<span 
class="ectt-1200">fonction</span>&#x00A0;<span 
class="ectt-1200">ne</span>&#x00A0;<span 
class="ectt-1200">renvoie</span>&#x00A0;<span 
class="ectt-1200">rien</span>&#x00A0;<span 
class="ectt-1200">mais</span>&#x00A0;<span 
class="ectt-1200">modifie</span>&#x00A0;<span 
class="ectt-1200">le</span>&#x00A0;<span 
class="ectt-1200">vecteur</span>&#x00A0;<span 
class="ectt-1200">x,</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">en</span>&#x00A0;<span 
class="ectt-1200">le</span>&#x00A0;<span 
class="ectt-1200">remplacant</span>&#x00A0;<span 
class="ectt-1200">par</span>&#x00A0;<span 
class="ectt-1200">le</span>&#x00A0;<span 
class="ectt-1200">vecteur</span>&#x00A0;<span 
class="ectt-1200">rSB(x);</span>&#x00A0;<span 
class="ectt-1200">c&#x2019;est</span>&#x00A0;<span 
class="ectt-1200">a</span>&#x00A0;<span 
class="ectt-1200">dire</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">simule</span>&#x00A0;<span 
class="ectt-1200">un</span>&#x00A0;<span 
class="ectt-1200">echantillon</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">taille</span>&#x00A0;<span 
class="ectt-1200">n</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">provenant</span>&#x00A0;<span 
class="ectt-1200">d&#x2019;une</span>&#x00A0;<span 
class="ectt-1200">loi</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">SB(g,d)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Utilisation</span>&#x00A0;<span 
class="ectt-1200">dans</span>&#x00A0;<span 
class="ectt-1200">une</span>&#x00A0;<span 
class="ectt-1200">fonction</span>&#x00A0;<span 
class="ectt-1200">main:</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">-------------------------------------</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PROGRAM</span>&#x00A0;<span 
class="ectt-1200">main</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">n</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">longueur</span>&#x00A0;<span 
class="ectt-1200">du</span>&#x00A0;<span 
class="ectt-1200">vecteur</span>&#x00A0;<span 
class="ectt-1200">x,</span>&#x00A0;<span 
class="ectt-1200">a</span>&#x00A0;<span 
class="ectt-1200">modifier</span>&#x00A0;<span 
class="ectt-1200">dans</span>&#x00A0;<span 
class="ectt-1200">le</span>&#x00A0;<span 
class="ectt-1200">programme</span>&#x00A0;<span 
class="ectt-1200">principal</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(n=3)</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Parametres</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">rSB</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">g,</span>&#x00A0;<span 
class="ectt-1200">d</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(g=1.0,d=1.0)</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">initialisation</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">x</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">x(n)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CALL</span>&#x00A0;<span 
class="ectt-1200">G05CBF(0)</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">calcul</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">rSB(x),</span>&#x00A0;<span 
class="ectt-1200">remplace</span>&#x00A0;<span 
class="ectt-1200">x</span>&#x00A0;<span 
class="ectt-1200">par</span>&#x00A0;<span 
class="ectt-1200">rSB(x)</span>

&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CALL</span>&#x00A0;<span 
class="ectt-1200">rSB(g,d,n,x)</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Affichage</span>&#x00A0;<span 
class="ectt-1200">des</span>&#x00A0;<span 
class="ectt-1200">valeurs</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">rSB(x)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(UNIT=6,FMT=*)</span>&#x00A0;<span 
class="ectt-1200">&#x2019;Affichage</span>&#x00A0;<span 
class="ectt-1200">des</span>&#x00A0;<span 
class="ectt-1200">valeurs</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">rSB(x)&#x2019;</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(UNIT=6,FMT=*)</span>&#x00A0;<span 
class="ectt-1200">x</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">END</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">-------------------------------------</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Instructions</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">compilation:</span>&#x00A0;<span 
class="ectt-1200">alias</span>&#x00A0;<span 
class="ectt-1200">f77=&#x2019;fort77&#x2019;</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">f77</span>&#x00A0;<span 
class="ectt-1200">-c</span>&#x00A0;<span 
class="ectt-1200">nom_du_fichier_contenant_la_fonction_main.f</span>&#x00A0;<span 
class="ectt-1200">-lnag</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">f77</span>&#x00A0;<span 
class="ectt-1200">-c</span>&#x00A0;<span 
class="ectt-1200">rSB.f</span>&#x00A0;<span 
class="ectt-1200">-lnag</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">f77</span>&#x00A0;<span 
class="ectt-1200">nom_du_fichier_contenant_la_fonction_main.o</span>&#x00A0;<span 
class="ectt-1200">rSB.o</span>&#x00A0;<span 
class="ectt-1200">-lnag</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Fonctions</span>&#x00A0;<span 
class="ectt-1200">exterieures</span>&#x00A0;<span 
class="ectt-1200">appelees:</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">G05FDF</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">la</span>&#x00A0;<span 
class="ectt-1200">librairie</span>&#x00A0;<span 
class="ectt-1200">NAG</span>&#x00A0;<span 
class="ectt-1200">Mark16</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Auteur:</span>&#x00A0;<span 
class="ectt-1200">Pierre</span>&#x00A0;<span 
class="ectt-1200">Lafaye</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">Micheaux</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Date:</span>&#x00A0;<span 
class="ectt-1200">15/02/2001</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Fin-Commentaires</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">SUBROUTINE</span>&#x00A0;<span 
class="ectt-1200">rSB</span>&#x00A0;<span 
class="ectt-1200">(g,d,n,x)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">n,i</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">x(n),</span>&#x00A0;<span 
class="ectt-1200">a,</span>&#x00A0;<span 
class="ectt-1200">b,</span>&#x00A0;<span 
class="ectt-1200">g,</span>&#x00A0;<span 
class="ectt-1200">d</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">a=DBLE(0.0)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">b=DBLE(1.0)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CALL</span>&#x00A0;<span 
class="ectt-1200">G05FDF(a,b,n,x)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DO</span>&#x00A0;<span 
class="ectt-1200">10,</span>&#x00A0;<span 
class="ectt-1200">i=1,n</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">x(i)=DBLE(1.0)/(1+dexp((x(i)-g)/d))</span>
&#x00A0;<br />&#x00A0;<span 
class="ectt-1200">10</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CONTINUE</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">RETURN</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">END</span>
   </div>
<!--l. 389--><p class="indent">   <span 
class="ecbx-1200">Programme rSC.f</span> </p><div class="verbatiminput">
<span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Debut-Commentaires</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Nom</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">la</span>&#x00A0;<span 
class="ectt-1200">sous-routine:</span>&#x00A0;<span 
class="ectt-1200">rSC</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Entrees:</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">p</span>&#x00A0;<span 
class="ectt-1200">(double),</span>&#x00A0;<span 
class="ectt-1200">parametre</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">la</span>&#x00A0;<span 
class="ectt-1200">SC</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">d</span>&#x00A0;<span 
class="ectt-1200">(double),</span>&#x00A0;<span 
class="ectt-1200">parametre</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">la</span>&#x00A0;<span 
class="ectt-1200">SC</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">n</span>&#x00A0;<span 
class="ectt-1200">(entier),</span>&#x00A0;<span 
class="ectt-1200">longueur</span>&#x00A0;<span 
class="ectt-1200">du</span>&#x00A0;<span 
class="ectt-1200">vecteur</span>&#x00A0;<span 
class="ectt-1200">x</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">x</span>&#x00A0;<span 
class="ectt-1200">(double),</span>&#x00A0;<span 
class="ectt-1200">un</span>&#x00A0;<span 
class="ectt-1200">vecteur</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">n</span>&#x00A0;<span 
class="ectt-1200">nombres</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Sorties:</span>&#x00A0;<span 
class="ectt-1200">void</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Description:</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Cette</span>&#x00A0;<span 
class="ectt-1200">fonction</span>&#x00A0;<span 
class="ectt-1200">ne</span>&#x00A0;<span 
class="ectt-1200">renvoie</span>&#x00A0;<span 
class="ectt-1200">rien</span>&#x00A0;<span 
class="ectt-1200">mais</span>&#x00A0;<span 
class="ectt-1200">modifie</span>&#x00A0;<span 
class="ectt-1200">le</span>&#x00A0;<span 
class="ectt-1200">vecteur</span>&#x00A0;<span 
class="ectt-1200">x,</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">en</span>&#x00A0;<span 
class="ectt-1200">le</span>&#x00A0;<span 
class="ectt-1200">remplacant</span>&#x00A0;<span 
class="ectt-1200">par</span>&#x00A0;<span 
class="ectt-1200">le</span>&#x00A0;<span 
class="ectt-1200">vecteur</span>&#x00A0;<span 
class="ectt-1200">rSC(x);</span>&#x00A0;<span 
class="ectt-1200">c&#x2019;est</span>&#x00A0;<span 
class="ectt-1200">a</span>&#x00A0;<span 
class="ectt-1200">dire</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">simule</span>&#x00A0;<span 
class="ectt-1200">un</span>&#x00A0;<span 
class="ectt-1200">echantillon</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">taille</span>&#x00A0;<span 
class="ectt-1200">n</span>

&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">provenant</span>&#x00A0;<span 
class="ectt-1200">d&#x2019;une</span>&#x00A0;<span 
class="ectt-1200">loi</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">SC(p,d)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Utilisation</span>&#x00A0;<span 
class="ectt-1200">dans</span>&#x00A0;<span 
class="ectt-1200">une</span>&#x00A0;<span 
class="ectt-1200">fonction</span>&#x00A0;<span 
class="ectt-1200">main:</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">-------------------------------------</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PROGRAM</span>&#x00A0;<span 
class="ectt-1200">main</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">n</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">longueur</span>&#x00A0;<span 
class="ectt-1200">du</span>&#x00A0;<span 
class="ectt-1200">vecteur</span>&#x00A0;<span 
class="ectt-1200">x,</span>&#x00A0;<span 
class="ectt-1200">a</span>&#x00A0;<span 
class="ectt-1200">modifier</span>&#x00A0;<span 
class="ectt-1200">dans</span>&#x00A0;<span 
class="ectt-1200">le</span>&#x00A0;<span 
class="ectt-1200">programme</span>&#x00A0;<span 
class="ectt-1200">principal</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(n=3)</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">valeurs</span>&#x00A0;<span 
class="ectt-1200">donnees</span>&#x00A0;<span 
class="ectt-1200">aux</span>&#x00A0;<span 
class="ectt-1200">parametres</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">p,</span>&#x00A0;<span 
class="ectt-1200">d</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(p=0.2,</span>&#x00A0;<span 
class="ectt-1200">d=5.0)</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">initialisation</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">x</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">x(n)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CALL</span>&#x00A0;<span 
class="ectt-1200">G05CBF(0)</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">calcul</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">rSC(x),</span>&#x00A0;<span 
class="ectt-1200">remplace</span>&#x00A0;<span 
class="ectt-1200">x</span>&#x00A0;<span 
class="ectt-1200">par</span>&#x00A0;<span 
class="ectt-1200">rSC(x)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CALL</span>&#x00A0;<span 
class="ectt-1200">rSC(p,d,n,x)</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Affichage</span>&#x00A0;<span 
class="ectt-1200">des</span>&#x00A0;<span 
class="ectt-1200">valeurs</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">rSC(x)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(UNIT=6,FMT=*)</span>&#x00A0;<span 
class="ectt-1200">&#x2019;Affichage</span>&#x00A0;<span 
class="ectt-1200">des</span>&#x00A0;<span 
class="ectt-1200">valeurs</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">rSC(x)&#x2019;</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(UNIT=6,FMT=*)</span>&#x00A0;<span 
class="ectt-1200">x</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">END</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">-------------------------------------</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Instructions</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">compilation:</span>&#x00A0;<span 
class="ectt-1200">alias</span>&#x00A0;<span 
class="ectt-1200">f77=&#x2019;fort77&#x2019;</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">f77</span>&#x00A0;<span 
class="ectt-1200">-c</span>&#x00A0;<span 
class="ectt-1200">nom_du_fichier_contenant_la_fonction_main.f</span>&#x00A0;<span 
class="ectt-1200">-lnag</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">f77</span>&#x00A0;<span 
class="ectt-1200">-c</span>&#x00A0;<span 
class="ectt-1200">rSC.f</span>&#x00A0;<span 
class="ectt-1200">-lnag</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">f77</span>&#x00A0;<span 
class="ectt-1200">nom_du_fichier_contenant_la_fonction_main.o</span>&#x00A0;<span 
class="ectt-1200">rSC.o</span>&#x00A0;<span 
class="ectt-1200">-lnag</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Fonctions</span>&#x00A0;<span 
class="ectt-1200">exterieures</span>&#x00A0;<span 
class="ectt-1200">appelees:</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">G05FAF,</span>&#x00A0;<span 
class="ectt-1200">G05DDF</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">la</span>&#x00A0;<span 
class="ectt-1200">librairie</span>&#x00A0;<span 
class="ectt-1200">NAG</span>&#x00A0;<span 
class="ectt-1200">Mark16</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Auteur:</span>&#x00A0;<span 
class="ectt-1200">Pierre</span>&#x00A0;<span 
class="ectt-1200">Lafaye</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">Micheaux</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Date:</span>&#x00A0;<span 
class="ectt-1200">15/02/2001</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Fin-Commentaires</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">SUBROUTINE</span>&#x00A0;<span 
class="ectt-1200">rSC</span>&#x00A0;<span 
class="ectt-1200">(p,d,n,x)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">n,i</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">x(n),</span>&#x00A0;<span 
class="ectt-1200">p,</span>&#x00A0;<span 
class="ectt-1200">d,</span>&#x00A0;<span 
class="ectt-1200">a,</span>&#x00A0;<span 
class="ectt-1200">b,</span>&#x00A0;<span 
class="ectt-1200">G05DDF</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">EXTERNAL</span>&#x00A0;<span 
class="ectt-1200">G05DDF</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">a=DBLE(0.0)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">b=DBLE(1.0)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CALL</span>&#x00A0;<span 
class="ectt-1200">G05FAF(a,b,n,x)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DO</span>&#x00A0;<span 
class="ectt-1200">10,</span>&#x00A0;<span 
class="ectt-1200">i=1,n</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">IF</span>&#x00A0;<span 
class="ectt-1200">(x(i)</span>&#x00A0;<span 
class="ectt-1200">.LT.</span>&#x00A0;<span 
class="ectt-1200">p)</span>&#x00A0;<span 
class="ectt-1200">THEN</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">x(i)=G05DDF(a,d)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">ELSE</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">x(i)=G05DDF(a,b)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">ENDIF</span>
&#x00A0;<br />&#x00A0;<span 
class="ectt-1200">10</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CONTINUE</span>

&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">RETURN</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">END</span>
   </div>
<!--l. 393--><p class="indent">   <span 
class="ecbx-1200">Programme rS.f</span> </p><div class="verbatiminput">
<span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Debut-Commentaires</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Nom</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">la</span>&#x00A0;<span 
class="ectt-1200">fonction:</span>&#x00A0;<span 
class="ectt-1200">rS</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Entrees:</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">a</span>&#x00A0;<span 
class="ectt-1200">(double),</span>&#x00A0;<span 
class="ectt-1200">parametre</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">rS</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">b</span>&#x00A0;<span 
class="ectt-1200">(double),</span>&#x00A0;<span 
class="ectt-1200">parametre</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">rS</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Sorties:</span>&#x00A0;<span 
class="ectt-1200">void</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Description:</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Cette</span>&#x00A0;<span 
class="ectt-1200">fonction</span>&#x00A0;<span 
class="ectt-1200">renvoie</span>&#x00A0;<span 
class="ectt-1200">simule</span>&#x00A0;<span 
class="ectt-1200">une</span>&#x00A0;<span 
class="ectt-1200">valeur</span>&#x00A0;<span 
class="ectt-1200">d&#x2019;une</span>&#x00A0;<span 
class="ectt-1200">loi</span>&#x00A0;<span 
class="ectt-1200">S(a,b)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Utilisation</span>&#x00A0;<span 
class="ectt-1200">dans</span>&#x00A0;<span 
class="ectt-1200">une</span>&#x00A0;<span 
class="ectt-1200">fonction</span>&#x00A0;<span 
class="ectt-1200">main:</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">-------------------------------------</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PROGRAM</span>&#x00A0;<span 
class="ectt-1200">main</span>
&#x00A0;<br /><span 
class="ectt-1200">c INTEGER</span>&#x00A0;<span 
class="ectt-1200">i</span>
&#x00A0;<br /><span 
class="ectt-1200">c DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">rS,</span>&#x00A0;<span 
class="ectt-1200">res</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Parametres</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">rS</span>
&#x00A0;<br /><span 
class="ectt-1200">c DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">a,</span>&#x00A0;<span 
class="ectt-1200">b</span>
&#x00A0;<br /><span 
class="ectt-1200">c PARAMETER(a=2.0,b=0.5)</span>
&#x00A0;<br /><span 
class="ectt-1200">c CALL</span>&#x00A0;<span 
class="ectt-1200">G05CBF(0)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DO</span>&#x00A0;<span 
class="ectt-1200">10,</span>&#x00A0;<span 
class="ectt-1200">i=1,10</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Simulation</span>&#x00A0;<span 
class="ectt-1200">d&#x2019;une</span>&#x00A0;<span 
class="ectt-1200">valeur</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">S(a,b)</span>
&#x00A0;<br /><span 
class="ectt-1200">c res=rS(a,b)</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Affichage</span>&#x00A0;<span 
class="ectt-1200">des</span>&#x00A0;<span 
class="ectt-1200">valeurs</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">rS(x)</span>
&#x00A0;<br /><span 
class="ectt-1200">c WRITE(UNIT=6,FMT=*)</span>&#x00A0;<span 
class="ectt-1200">&#x2019;Affichage</span>&#x00A0;<span 
class="ectt-1200">des</span>&#x00A0;<span 
class="ectt-1200">valeurs</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">rS(x)&#x2019;</span>
&#x00A0;<br /><span 
class="ectt-1200">c WRITE(UNIT=6,FMT=*)</span>&#x00A0;<span 
class="ectt-1200">res</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">10</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CONTINUE</span>
&#x00A0;<br /><span 
class="ectt-1200">c END</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">-------------------------------------</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Instructions</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">compilation:</span>&#x00A0;<span 
class="ectt-1200">alias</span>&#x00A0;<span 
class="ectt-1200">f77=&#x2019;fort77&#x2019;</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">f77</span>&#x00A0;<span 
class="ectt-1200">-c</span>&#x00A0;<span 
class="ectt-1200">nom_du_fichier_contenant_la_fonction_main.f</span>&#x00A0;<span 
class="ectt-1200">-lnag</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">f77</span>&#x00A0;<span 
class="ectt-1200">-c</span>&#x00A0;<span 
class="ectt-1200">rS.f</span>&#x00A0;<span 
class="ectt-1200">-lnag</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">f77</span>&#x00A0;<span 
class="ectt-1200">nom_du_fichier_contenant_la_fonction_main.o</span>&#x00A0;<span 
class="ectt-1200">rS.o</span>&#x00A0;<span 
class="ectt-1200">-lnag</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Fonctions</span>&#x00A0;<span 
class="ectt-1200">exterieures</span>&#x00A0;<span 
class="ectt-1200">appelees:</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">G05FAF</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">la</span>&#x00A0;<span 
class="ectt-1200">librairie</span>&#x00A0;<span 
class="ectt-1200">NAG</span>&#x00A0;<span 
class="ectt-1200">Mark16</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Auteur:</span>&#x00A0;<span 
class="ectt-1200">Pierre</span>&#x00A0;<span 
class="ectt-1200">Lafaye</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">Micheaux</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Date:</span>&#x00A0;<span 
class="ectt-1200">15/02/2001</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Fin-Commentaires</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">FUNCTION</span>&#x00A0;<span 
class="ectt-1200">rS(a,b)</span>

&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">x(2),</span>&#x00A0;<span 
class="ectt-1200">x1,</span>&#x00A0;<span 
class="ectt-1200">x2,</span>&#x00A0;<span 
class="ectt-1200">x3,</span>&#x00A0;<span 
class="ectt-1200">a1,</span>&#x00A0;<span 
class="ectt-1200">b1,</span>&#x00A0;<span 
class="ectt-1200">a,</span>&#x00A0;<span 
class="ectt-1200">b,</span>&#x00A0;<span 
class="ectt-1200">PI</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER</span>&#x00A0;<span 
class="ectt-1200">(PI</span>&#x00A0;<span 
class="ectt-1200">=</span>&#x00A0;<span 
class="ectt-1200">3.14159265358979)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">a1=DBLE(0.0)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">b1=DBLE(1.0)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CALL</span>&#x00A0;<span 
class="ectt-1200">G05FAF(a1,b1,2,x)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">x1=dsin(a*(x(1)*PI-0.5*PI)+0.5*PI*b*(2-a))</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">x2=(dcos(x(1)*PI-0.5*PI))**(DBLE(1.0)/a)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">x3=((dcos((x(1)*PI-0.5*PI)*(1-a)-0.5*PI*b*(2-a)))/(-dlog(x(2))</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">+</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">))**((1-a)/a)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">rS=(x1/x2)*x3</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">RETURN</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">END</span>
   </div>
<!--l. 397--><p class="indent">   <span 
class="ecbx-1200">Programme rskew.f</span> </p><div class="verbatiminput">
<span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Debut-Commentaires</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Nom</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">la</span>&#x00A0;<span 
class="ectt-1200">sous-routine:</span>&#x00A0;<span 
class="ectt-1200">rskew</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Entrees:</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">n</span>&#x00A0;<span 
class="ectt-1200">(entier),</span>&#x00A0;<span 
class="ectt-1200">longueur</span>&#x00A0;<span 
class="ectt-1200">du</span>&#x00A0;<span 
class="ectt-1200">vecteur</span>&#x00A0;<span 
class="ectt-1200">x</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">x</span>&#x00A0;<span 
class="ectt-1200">(double),</span>&#x00A0;<span 
class="ectt-1200">un</span>&#x00A0;<span 
class="ectt-1200">vecteur</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">n</span>&#x00A0;<span 
class="ectt-1200">nombres</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">lambda</span>&#x00A0;<span 
class="ectt-1200">(double)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Sorties:</span>&#x00A0;<span 
class="ectt-1200">void</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Description:</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Cette</span>&#x00A0;<span 
class="ectt-1200">fonction</span>&#x00A0;<span 
class="ectt-1200">ne</span>&#x00A0;<span 
class="ectt-1200">renvoie</span>&#x00A0;<span 
class="ectt-1200">rien</span>&#x00A0;<span 
class="ectt-1200">mais</span>&#x00A0;<span 
class="ectt-1200">modifie</span>&#x00A0;<span 
class="ectt-1200">le</span>&#x00A0;<span 
class="ectt-1200">vecteur</span>&#x00A0;<span 
class="ectt-1200">x,</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">en</span>&#x00A0;<span 
class="ectt-1200">le</span>&#x00A0;<span 
class="ectt-1200">remplacant</span>&#x00A0;<span 
class="ectt-1200">par</span>&#x00A0;<span 
class="ectt-1200">le</span>&#x00A0;<span 
class="ectt-1200">vecteur</span>&#x00A0;<span 
class="ectt-1200">rskew(x,lambda);</span>&#x00A0;<span 
class="ectt-1200">c&#x2019;est</span>&#x00A0;<span 
class="ectt-1200">a</span>&#x00A0;<span 
class="ectt-1200">dire</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">simule</span>&#x00A0;<span 
class="ectt-1200">un</span>&#x00A0;<span 
class="ectt-1200">echantillon</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">taille</span>&#x00A0;<span 
class="ectt-1200">n</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">provenant</span>&#x00A0;<span 
class="ectt-1200">d&#x2019;une</span>&#x00A0;<span 
class="ectt-1200">loi</span>&#x00A0;<span 
class="ectt-1200">skew-normale(lambda)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Utilisation</span>&#x00A0;<span 
class="ectt-1200">dans</span>&#x00A0;<span 
class="ectt-1200">une</span>&#x00A0;<span 
class="ectt-1200">fonction</span>&#x00A0;<span 
class="ectt-1200">main:</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">-------------------------------------</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PROGRAM</span>&#x00A0;<span 
class="ectt-1200">main</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">n</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">longueur</span>&#x00A0;<span 
class="ectt-1200">du</span>&#x00A0;<span 
class="ectt-1200">vecteur</span>&#x00A0;<span 
class="ectt-1200">x,</span>&#x00A0;<span 
class="ectt-1200">a</span>&#x00A0;<span 
class="ectt-1200">modifier</span>&#x00A0;<span 
class="ectt-1200">dans</span>&#x00A0;<span 
class="ectt-1200">le</span>&#x00A0;<span 
class="ectt-1200">programme</span>&#x00A0;<span 
class="ectt-1200">principal</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(n=3)</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">initialisation</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">x</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">x(n),</span>&#x00A0;<span 
class="ectt-1200">lambda</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(lambda=1.0)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CALL</span>&#x00A0;<span 
class="ectt-1200">G05CBF(0)</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">calcul</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">rskew(x,lambda),</span>&#x00A0;<span 
class="ectt-1200">remplace</span>&#x00A0;<span 
class="ectt-1200">x</span>&#x00A0;<span 
class="ectt-1200">par</span>&#x00A0;<span 
class="ectt-1200">rskew(x,lambda)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CALL</span>&#x00A0;<span 
class="ectt-1200">rskew(n,x,lambda)</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Affichage</span>&#x00A0;<span 
class="ectt-1200">des</span>&#x00A0;<span 
class="ectt-1200">valeurs</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">rskew(x,lambda)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(UNIT=6,FMT=*)</span>&#x00A0;<span 
class="ectt-1200">&#x2019;Affichage</span>&#x00A0;<span 
class="ectt-1200">des</span>&#x00A0;<span 
class="ectt-1200">valeurs</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">rskew(x,lambda)&#x2019;</span>

&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(UNIT=6,FMT=*)</span>&#x00A0;<span 
class="ectt-1200">x</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">END</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">-------------------------------------</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Instructions</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">compilation:</span>&#x00A0;<span 
class="ectt-1200">alias</span>&#x00A0;<span 
class="ectt-1200">f77=&#x2019;fort77&#x2019;</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">f77</span>&#x00A0;<span 
class="ectt-1200">-c</span>&#x00A0;<span 
class="ectt-1200">nom_du_fichier_contenant_la_fonction_main.f</span>&#x00A0;<span 
class="ectt-1200">-lnag</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">f77</span>&#x00A0;<span 
class="ectt-1200">-c</span>&#x00A0;<span 
class="ectt-1200">rskew.f</span>&#x00A0;<span 
class="ectt-1200">-lnag</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">f77</span>&#x00A0;<span 
class="ectt-1200">nom_du_fichier_contenant_la_fonction_main.o</span>&#x00A0;<span 
class="ectt-1200">rskew.o</span>&#x00A0;<span 
class="ectt-1200">-lnag</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Fonctions</span>&#x00A0;<span 
class="ectt-1200">exterieures</span>&#x00A0;<span 
class="ectt-1200">appelees:</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">G05DDF</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">la</span>&#x00A0;<span 
class="ectt-1200">librairie</span>&#x00A0;<span 
class="ectt-1200">NAG</span>&#x00A0;<span 
class="ectt-1200">Mark16</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Auteur:</span>&#x00A0;<span 
class="ectt-1200">Pierre</span>&#x00A0;<span 
class="ectt-1200">Lafaye</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">Micheaux</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Date:</span>&#x00A0;<span 
class="ectt-1200">15/02/2001</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Fin-Commentaires</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">SUBROUTINE</span>&#x00A0;<span 
class="ectt-1200">rskew</span>&#x00A0;<span 
class="ectt-1200">(n,x,lambda)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">n,i</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">x(n),</span>&#x00A0;<span 
class="ectt-1200">u,</span>&#x00A0;<span 
class="ectt-1200">v,</span>&#x00A0;<span 
class="ectt-1200">a,</span>&#x00A0;<span 
class="ectt-1200">b,</span>&#x00A0;<span 
class="ectt-1200">G05DDF,</span>&#x00A0;<span 
class="ectt-1200">lambda</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">EXTERNAL</span>&#x00A0;<span 
class="ectt-1200">G05DDF</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">a=DBLE(0.0)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">b=DBLE(1.0)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DO</span>&#x00A0;<span 
class="ectt-1200">10,</span>&#x00A0;<span 
class="ectt-1200">i=1,n</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">u=G05DDF(a,b)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">v=G05DDF(a,b)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">IF</span>&#x00A0;<span 
class="ectt-1200">((lambda*u)</span>&#x00A0;<span 
class="ectt-1200">.GT.</span>&#x00A0;<span 
class="ectt-1200">v)</span>&#x00A0;<span 
class="ectt-1200">THEN</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">x(i)=u</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">ELSE</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">x(i)=-u</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">ENDIF</span>
&#x00A0;<br />&#x00A0;<span 
class="ectt-1200">10</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CONTINUE</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">RETURN</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">END</span>
   </div>
<!--l. 401--><p class="indent">   <span 
class="ecbx-1200">Programme rspare.f</span> </p><div class="verbatiminput">
<span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Debut-Commentaires</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Nom</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">la</span>&#x00A0;<span 
class="ectt-1200">sous-routine:</span>&#x00A0;<span 
class="ectt-1200">rspare</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Entrees:</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">n</span>&#x00A0;<span 
class="ectt-1200">(entier),</span>&#x00A0;<span 
class="ectt-1200">longueur</span>&#x00A0;<span 
class="ectt-1200">du</span>&#x00A0;<span 
class="ectt-1200">vecteur</span>&#x00A0;<span 
class="ectt-1200">x</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">x</span>&#x00A0;<span 
class="ectt-1200">(double),</span>&#x00A0;<span 
class="ectt-1200">un</span>&#x00A0;<span 
class="ectt-1200">vecteur</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">n</span>&#x00A0;<span 
class="ectt-1200">nombres</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Sorties:</span>&#x00A0;<span 
class="ectt-1200">void</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Description:</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Cette</span>&#x00A0;<span 
class="ectt-1200">fonction</span>&#x00A0;<span 
class="ectt-1200">ne</span>&#x00A0;<span 
class="ectt-1200">renvoie</span>&#x00A0;<span 
class="ectt-1200">rien</span>&#x00A0;<span 
class="ectt-1200">mais</span>&#x00A0;<span 
class="ectt-1200">modifie</span>&#x00A0;<span 
class="ectt-1200">le</span>&#x00A0;<span 
class="ectt-1200">vecteur</span>&#x00A0;<span 
class="ectt-1200">x,</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">en</span>&#x00A0;<span 
class="ectt-1200">le</span>&#x00A0;<span 
class="ectt-1200">remplacant</span>&#x00A0;<span 
class="ectt-1200">par</span>&#x00A0;<span 
class="ectt-1200">le</span>&#x00A0;<span 
class="ectt-1200">vecteur</span>&#x00A0;<span 
class="ectt-1200">rspare(x);</span>&#x00A0;<span 
class="ectt-1200">c&#x2019;est</span>&#x00A0;<span 
class="ectt-1200">a</span>&#x00A0;<span 
class="ectt-1200">dire</span>

&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">simule</span>&#x00A0;<span 
class="ectt-1200">un</span>&#x00A0;<span 
class="ectt-1200">echantillon</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">taille</span>&#x00A0;<span 
class="ectt-1200">n</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">provenant</span>&#x00A0;<span 
class="ectt-1200">d&#x2019;une</span>&#x00A0;<span 
class="ectt-1200">loi</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">Shifted</span>&#x00A0;<span 
class="ectt-1200">Pareto</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Utilisation</span>&#x00A0;<span 
class="ectt-1200">dans</span>&#x00A0;<span 
class="ectt-1200">une</span>&#x00A0;<span 
class="ectt-1200">fonction</span>&#x00A0;<span 
class="ectt-1200">main:</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">-------------------------------------</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PROGRAM</span>&#x00A0;<span 
class="ectt-1200">main</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">n</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">longueur</span>&#x00A0;<span 
class="ectt-1200">du</span>&#x00A0;<span 
class="ectt-1200">vecteur</span>&#x00A0;<span 
class="ectt-1200">x,</span>&#x00A0;<span 
class="ectt-1200">a</span>&#x00A0;<span 
class="ectt-1200">modifier</span>&#x00A0;<span 
class="ectt-1200">dans</span>&#x00A0;<span 
class="ectt-1200">le</span>&#x00A0;<span 
class="ectt-1200">programme</span>&#x00A0;<span 
class="ectt-1200">principal</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(n=3)</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">initialisation</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">x</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">x(n)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CALL</span>&#x00A0;<span 
class="ectt-1200">G05CBF(0)</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">calcul</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">rspare(x),</span>&#x00A0;<span 
class="ectt-1200">remplace</span>&#x00A0;<span 
class="ectt-1200">x</span>&#x00A0;<span 
class="ectt-1200">par</span>&#x00A0;<span 
class="ectt-1200">rspare(x)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CALL</span>&#x00A0;<span 
class="ectt-1200">rspare(n,x)</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Affichage</span>&#x00A0;<span 
class="ectt-1200">des</span>&#x00A0;<span 
class="ectt-1200">valeurs</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">rspare(x)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(UNIT=6,FMT=*)</span>&#x00A0;<span 
class="ectt-1200">&#x2019;Affichage</span>&#x00A0;<span 
class="ectt-1200">des</span>&#x00A0;<span 
class="ectt-1200">valeurs</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">rspare(x)&#x2019;</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(UNIT=6,FMT=*)</span>&#x00A0;<span 
class="ectt-1200">x</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">END</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">-------------------------------------</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Instructions</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">compilation:</span>&#x00A0;<span 
class="ectt-1200">alias</span>&#x00A0;<span 
class="ectt-1200">f77=&#x2019;fort77&#x2019;</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">f77</span>&#x00A0;<span 
class="ectt-1200">-c</span>&#x00A0;<span 
class="ectt-1200">nom_du_fichier_contenant_la_fonction_main.f</span>&#x00A0;<span 
class="ectt-1200">-lnag</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">f77</span>&#x00A0;<span 
class="ectt-1200">-c</span>&#x00A0;<span 
class="ectt-1200">rlap.f</span>&#x00A0;<span 
class="ectt-1200">-lnag</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">f77</span>&#x00A0;<span 
class="ectt-1200">nom_du_fichier_contenant_la_fonction_main.o</span>&#x00A0;<span 
class="ectt-1200">rspare.o</span>&#x00A0;<span 
class="ectt-1200">-lnag</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Fonctions</span>&#x00A0;<span 
class="ectt-1200">exterieures</span>&#x00A0;<span 
class="ectt-1200">appelees:</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">G05FAF</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">la</span>&#x00A0;<span 
class="ectt-1200">librairie</span>&#x00A0;<span 
class="ectt-1200">NAG</span>&#x00A0;<span 
class="ectt-1200">Mark16</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Auteur:</span>&#x00A0;<span 
class="ectt-1200">Pierre</span>&#x00A0;<span 
class="ectt-1200">Lafaye</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">Micheaux</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Date:</span>&#x00A0;<span 
class="ectt-1200">15/02/2001</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Fin-Commentaires</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">SUBROUTINE</span>&#x00A0;<span 
class="ectt-1200">rspare</span>&#x00A0;<span 
class="ectt-1200">(n,x)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">n,i</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">x(n),</span>&#x00A0;<span 
class="ectt-1200">a,</span>&#x00A0;<span 
class="ectt-1200">b</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">a=DBLE(0.0)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">b=DBLE(1.0)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CALL</span>&#x00A0;<span 
class="ectt-1200">G05FAF(a,b,n,x)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DO</span>&#x00A0;<span 
class="ectt-1200">10,</span>&#x00A0;<span 
class="ectt-1200">i=1,n</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">x(i)=DBLE(1.0)/((1-x(i))**0.5)-1</span>
&#x00A0;<br />&#x00A0;<span 
class="ectt-1200">10</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CONTINUE</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">RETURN</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">END</span>
   </div>
<!--l. 405--><p class="indent">   <span 
class="ecbx-1200">Programme rSU.f</span> </p><div class="verbatiminput">

<span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Debut-Commentaires</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Nom</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">la</span>&#x00A0;<span 
class="ectt-1200">sous-routine:</span>&#x00A0;<span 
class="ectt-1200">rSU</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Entrees:</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">g</span>&#x00A0;<span 
class="ectt-1200">(double),</span>&#x00A0;<span 
class="ectt-1200">parametre</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">rSU</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">d</span>&#x00A0;<span 
class="ectt-1200">(double),</span>&#x00A0;<span 
class="ectt-1200">parametre</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">rSU</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">n</span>&#x00A0;<span 
class="ectt-1200">(entier),</span>&#x00A0;<span 
class="ectt-1200">longueur</span>&#x00A0;<span 
class="ectt-1200">du</span>&#x00A0;<span 
class="ectt-1200">vecteur</span>&#x00A0;<span 
class="ectt-1200">x</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">x</span>&#x00A0;<span 
class="ectt-1200">(double),</span>&#x00A0;<span 
class="ectt-1200">un</span>&#x00A0;<span 
class="ectt-1200">vecteur</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">n</span>&#x00A0;<span 
class="ectt-1200">nombres</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Sorties:</span>&#x00A0;<span 
class="ectt-1200">void</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Description:</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Cette</span>&#x00A0;<span 
class="ectt-1200">fonction</span>&#x00A0;<span 
class="ectt-1200">ne</span>&#x00A0;<span 
class="ectt-1200">renvoie</span>&#x00A0;<span 
class="ectt-1200">rien</span>&#x00A0;<span 
class="ectt-1200">mais</span>&#x00A0;<span 
class="ectt-1200">modifie</span>&#x00A0;<span 
class="ectt-1200">le</span>&#x00A0;<span 
class="ectt-1200">vecteur</span>&#x00A0;<span 
class="ectt-1200">x,</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">en</span>&#x00A0;<span 
class="ectt-1200">le</span>&#x00A0;<span 
class="ectt-1200">remplacant</span>&#x00A0;<span 
class="ectt-1200">par</span>&#x00A0;<span 
class="ectt-1200">le</span>&#x00A0;<span 
class="ectt-1200">vecteur</span>&#x00A0;<span 
class="ectt-1200">rSU(x);</span>&#x00A0;<span 
class="ectt-1200">c&#x2019;est</span>&#x00A0;<span 
class="ectt-1200">a</span>&#x00A0;<span 
class="ectt-1200">dire</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">simule</span>&#x00A0;<span 
class="ectt-1200">un</span>&#x00A0;<span 
class="ectt-1200">echantillon</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">taille</span>&#x00A0;<span 
class="ectt-1200">n</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">provenant</span>&#x00A0;<span 
class="ectt-1200">d&#x2019;une</span>&#x00A0;<span 
class="ectt-1200">loi</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">SU(g,d)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Utilisation</span>&#x00A0;<span 
class="ectt-1200">dans</span>&#x00A0;<span 
class="ectt-1200">une</span>&#x00A0;<span 
class="ectt-1200">fonction</span>&#x00A0;<span 
class="ectt-1200">main:</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">-------------------------------------</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PROGRAM</span>&#x00A0;<span 
class="ectt-1200">main</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">n</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">longueur</span>&#x00A0;<span 
class="ectt-1200">du</span>&#x00A0;<span 
class="ectt-1200">vecteur</span>&#x00A0;<span 
class="ectt-1200">x,</span>&#x00A0;<span 
class="ectt-1200">a</span>&#x00A0;<span 
class="ectt-1200">modifier</span>&#x00A0;<span 
class="ectt-1200">dans</span>&#x00A0;<span 
class="ectt-1200">le</span>&#x00A0;<span 
class="ectt-1200">programme</span>&#x00A0;<span 
class="ectt-1200">principal</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(n=3)</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Parametres</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">rSU</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">g,</span>&#x00A0;<span 
class="ectt-1200">d</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(g=0.0,d=1.0)</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">initialisation</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">x</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">x(n)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CALL</span>&#x00A0;<span 
class="ectt-1200">G05CBF(0)</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">calcul</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">rSU(x),</span>&#x00A0;<span 
class="ectt-1200">remplace</span>&#x00A0;<span 
class="ectt-1200">x</span>&#x00A0;<span 
class="ectt-1200">par</span>&#x00A0;<span 
class="ectt-1200">rSU(x)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CALL</span>&#x00A0;<span 
class="ectt-1200">rSU(g,d,n,x)</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Affichage</span>&#x00A0;<span 
class="ectt-1200">des</span>&#x00A0;<span 
class="ectt-1200">valeurs</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">rSU(x)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(UNIT=6,FMT=*)</span>&#x00A0;<span 
class="ectt-1200">&#x2019;Affichage</span>&#x00A0;<span 
class="ectt-1200">des</span>&#x00A0;<span 
class="ectt-1200">valeurs</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">rSU(x)&#x2019;</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(UNIT=6,FMT=*)</span>&#x00A0;<span 
class="ectt-1200">x</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">END</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">-------------------------------------</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Instructions</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">compilation:</span>&#x00A0;<span 
class="ectt-1200">alias</span>&#x00A0;<span 
class="ectt-1200">f77=&#x2019;fort77&#x2019;</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">f77</span>&#x00A0;<span 
class="ectt-1200">-c</span>&#x00A0;<span 
class="ectt-1200">nom_du_fichier_contenant_la_fonction_main.f</span>&#x00A0;<span 
class="ectt-1200">-lnag</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">f77</span>&#x00A0;<span 
class="ectt-1200">-c</span>&#x00A0;<span 
class="ectt-1200">rlap.f</span>&#x00A0;<span 
class="ectt-1200">-lnag</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">f77</span>&#x00A0;<span 
class="ectt-1200">nom_du_fichier_contenant_la_fonction_main.o</span>&#x00A0;<span 
class="ectt-1200">rSU.o</span>&#x00A0;<span 
class="ectt-1200">-lnag</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Fonctions</span>&#x00A0;<span 
class="ectt-1200">exterieures</span>&#x00A0;<span 
class="ectt-1200">appelees:</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">G05FDF</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">la</span>&#x00A0;<span 
class="ectt-1200">librairie</span>&#x00A0;<span 
class="ectt-1200">NAG</span>&#x00A0;<span 
class="ectt-1200">Mark16</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Auteur:</span>&#x00A0;<span 
class="ectt-1200">Pierre</span>&#x00A0;<span 
class="ectt-1200">Lafaye</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">Micheaux</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Date:</span>&#x00A0;<span 
class="ectt-1200">15/02/2001</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Fin-Commentaires</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">SUBROUTINE</span>&#x00A0;<span 
class="ectt-1200">rSU</span>&#x00A0;<span 
class="ectt-1200">(g,d,n,x)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">n,i</span>

&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">x(n),</span>&#x00A0;<span 
class="ectt-1200">a,</span>&#x00A0;<span 
class="ectt-1200">b,</span>&#x00A0;<span 
class="ectt-1200">g,</span>&#x00A0;<span 
class="ectt-1200">d</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">a=DBLE(0.0)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">b=DBLE(1.0)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CALL</span>&#x00A0;<span 
class="ectt-1200">G05FDF(a,b,n,x)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DO</span>&#x00A0;<span 
class="ectt-1200">10,</span>&#x00A0;<span 
class="ectt-1200">i=1,n</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">x(i)=dsinh((x(i)-g)/d)</span>
&#x00A0;<br />&#x00A0;<span 
class="ectt-1200">10</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CONTINUE</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">RETURN</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">END</span>
   </div>
<!--l. 409--><p class="indent">   <span 
class="ecbx-1200">Programme rTU.f</span> </p><div class="verbatiminput">
<span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Debut-Commentaires</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Nom</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">la</span>&#x00A0;<span 
class="ectt-1200">sous-routine:</span>&#x00A0;<span 
class="ectt-1200">rTU</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Entrees:</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">l</span>&#x00A0;<span 
class="ectt-1200">(double),</span>&#x00A0;<span 
class="ectt-1200">parametre</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">rTU</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">n</span>&#x00A0;<span 
class="ectt-1200">(entier),</span>&#x00A0;<span 
class="ectt-1200">longueur</span>&#x00A0;<span 
class="ectt-1200">du</span>&#x00A0;<span 
class="ectt-1200">vecteur</span>&#x00A0;<span 
class="ectt-1200">x</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">x</span>&#x00A0;<span 
class="ectt-1200">(double),</span>&#x00A0;<span 
class="ectt-1200">un</span>&#x00A0;<span 
class="ectt-1200">vecteur</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">n</span>&#x00A0;<span 
class="ectt-1200">nombres</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Sorties:</span>&#x00A0;<span 
class="ectt-1200">void</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Description:</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Cette</span>&#x00A0;<span 
class="ectt-1200">fonction</span>&#x00A0;<span 
class="ectt-1200">ne</span>&#x00A0;<span 
class="ectt-1200">renvoie</span>&#x00A0;<span 
class="ectt-1200">rien</span>&#x00A0;<span 
class="ectt-1200">mais</span>&#x00A0;<span 
class="ectt-1200">modifie</span>&#x00A0;<span 
class="ectt-1200">le</span>&#x00A0;<span 
class="ectt-1200">vecteur</span>&#x00A0;<span 
class="ectt-1200">x,</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">en</span>&#x00A0;<span 
class="ectt-1200">le</span>&#x00A0;<span 
class="ectt-1200">remplacant</span>&#x00A0;<span 
class="ectt-1200">par</span>&#x00A0;<span 
class="ectt-1200">le</span>&#x00A0;<span 
class="ectt-1200">vecteur</span>&#x00A0;<span 
class="ectt-1200">rTU(x);</span>&#x00A0;<span 
class="ectt-1200">c&#x2019;est</span>&#x00A0;<span 
class="ectt-1200">a</span>&#x00A0;<span 
class="ectt-1200">dire</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">simule</span>&#x00A0;<span 
class="ectt-1200">un</span>&#x00A0;<span 
class="ectt-1200">echantillon</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">taille</span>&#x00A0;<span 
class="ectt-1200">n</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">provenant</span>&#x00A0;<span 
class="ectt-1200">d&#x2019;une</span>&#x00A0;<span 
class="ectt-1200">loi</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">TU(l)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Utilisation</span>&#x00A0;<span 
class="ectt-1200">dans</span>&#x00A0;<span 
class="ectt-1200">une</span>&#x00A0;<span 
class="ectt-1200">fonction</span>&#x00A0;<span 
class="ectt-1200">main:</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">-------------------------------------</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PROGRAM</span>&#x00A0;<span 
class="ectt-1200">main</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">n</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">longueur</span>&#x00A0;<span 
class="ectt-1200">du</span>&#x00A0;<span 
class="ectt-1200">vecteur</span>&#x00A0;<span 
class="ectt-1200">x,</span>&#x00A0;<span 
class="ectt-1200">a</span>&#x00A0;<span 
class="ectt-1200">modifier</span>&#x00A0;<span 
class="ectt-1200">dans</span>&#x00A0;<span 
class="ectt-1200">le</span>&#x00A0;<span 
class="ectt-1200">programme</span>&#x00A0;<span 
class="ectt-1200">principal</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(n=3)</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Parametre</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">rTU</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">l</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(l=1.5)</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">initialisation</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">x</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">x(n)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CALL</span>&#x00A0;<span 
class="ectt-1200">G05CBF(0)</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">calcul</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">rTU(x),</span>&#x00A0;<span 
class="ectt-1200">remplace</span>&#x00A0;<span 
class="ectt-1200">x</span>&#x00A0;<span 
class="ectt-1200">par</span>&#x00A0;<span 
class="ectt-1200">rTU(x)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CALL</span>&#x00A0;<span 
class="ectt-1200">rTU(l,n,x)</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Affichage</span>&#x00A0;<span 
class="ectt-1200">des</span>&#x00A0;<span 
class="ectt-1200">valeurs</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">rTU(x)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(UNIT=6,FMT=*)</span>&#x00A0;<span 
class="ectt-1200">&#x2019;Affichage</span>&#x00A0;<span 
class="ectt-1200">des</span>&#x00A0;<span 
class="ectt-1200">valeurs</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">rTU(x)&#x2019;</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(UNIT=6,FMT=*)</span>&#x00A0;<span 
class="ectt-1200">x</span>

&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">END</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">-------------------------------------</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Instructions</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">compilation:</span>&#x00A0;<span 
class="ectt-1200">alias</span>&#x00A0;<span 
class="ectt-1200">f77=&#x2019;fort77&#x2019;</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">f77</span>&#x00A0;<span 
class="ectt-1200">-c</span>&#x00A0;<span 
class="ectt-1200">nom_du_fichier_contenant_la_fonction_main.f</span>&#x00A0;<span 
class="ectt-1200">-lnag</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">f77</span>&#x00A0;<span 
class="ectt-1200">-c</span>&#x00A0;<span 
class="ectt-1200">rlap.f</span>&#x00A0;<span 
class="ectt-1200">-lnag</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">f77</span>&#x00A0;<span 
class="ectt-1200">nom_du_fichier_contenant_la_fonction_main.o</span>&#x00A0;<span 
class="ectt-1200">rTU.o</span>&#x00A0;<span 
class="ectt-1200">-lnag</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Fonctions</span>&#x00A0;<span 
class="ectt-1200">exterieures</span>&#x00A0;<span 
class="ectt-1200">appelees:</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">G05FAF</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">la</span>&#x00A0;<span 
class="ectt-1200">librairie</span>&#x00A0;<span 
class="ectt-1200">NAG</span>&#x00A0;<span 
class="ectt-1200">Mark16</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Auteur:</span>&#x00A0;<span 
class="ectt-1200">Pierre</span>&#x00A0;<span 
class="ectt-1200">Lafaye</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">Micheaux</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Date:</span>&#x00A0;<span 
class="ectt-1200">15/02/2001</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Fin-Commentaires</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">SUBROUTINE</span>&#x00A0;<span 
class="ectt-1200">rTU</span>&#x00A0;<span 
class="ectt-1200">(l,n,x)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">n,i</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">x(n),</span>&#x00A0;<span 
class="ectt-1200">a,</span>&#x00A0;<span 
class="ectt-1200">b,</span>&#x00A0;<span 
class="ectt-1200">l,</span>&#x00A0;<span 
class="ectt-1200">y,</span>&#x00A0;<span 
class="ectt-1200">z</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">a=DBLE(0.0)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">b=DBLE(1.0)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CALL</span>&#x00A0;<span 
class="ectt-1200">G05FAF(a,b,n,x)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DO</span>&#x00A0;<span 
class="ectt-1200">10,</span>&#x00A0;<span 
class="ectt-1200">i=1,n</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">y=x(i)**l</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">z=(1-x(i))**l</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">x(i)=y-z</span>
&#x00A0;<br />&#x00A0;<span 
class="ectt-1200">10</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CONTINUE</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">RETURN</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">END</span>
   </div>
   <h3 class="sectionHead"><span class="titlemark">A.11. </span> <a 
  name="x1-54000A.11"></a>Les programmes pour les diff&#x00E9;rents polyn&#x00F4;mes de Legendre</h3>
<!--l. 414--><p class="noindent"><span 
class="ecbx-1200">Programme H1.f</span> </p><div class="verbatiminput">
<span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Debut-Commentaires</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Nom</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">la</span>&#x00A0;<span 
class="ectt-1200">sous-routine:</span>&#x00A0;<span 
class="ectt-1200">H1</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Entrees:</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">n</span>&#x00A0;<span 
class="ectt-1200">(entier),</span>&#x00A0;<span 
class="ectt-1200">longueur</span>&#x00A0;<span 
class="ectt-1200">du</span>&#x00A0;<span 
class="ectt-1200">vecteur</span>&#x00A0;<span 
class="ectt-1200">x</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">x</span>&#x00A0;<span 
class="ectt-1200">(double),</span>&#x00A0;<span 
class="ectt-1200">un</span>&#x00A0;<span 
class="ectt-1200">vecteur</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">n</span>&#x00A0;<span 
class="ectt-1200">nombres</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Sorties:</span>&#x00A0;<span 
class="ectt-1200">void</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Description:</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Calcul</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">H1(x),</span>&#x00A0;<span 
class="ectt-1200">H1</span>&#x00A0;<span 
class="ectt-1200">etant</span>&#x00A0;<span 
class="ectt-1200">le</span>&#x00A0;<span 
class="ectt-1200">premier</span>&#x00A0;<span 
class="ectt-1200">polynome</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">Legendre</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Modifie</span>&#x00A0;<span 
class="ectt-1200">le</span>&#x00A0;<span 
class="ectt-1200">vecteur</span>&#x00A0;<span 
class="ectt-1200">x</span>&#x00A0;<span 
class="ectt-1200">dans</span>&#x00A0;<span 
class="ectt-1200">le</span>&#x00A0;<span 
class="ectt-1200">programme</span>&#x00A0;<span 
class="ectt-1200">principal,</span>&#x00A0;<span 
class="ectt-1200">en</span>&#x00A0;<span 
class="ectt-1200">le</span>&#x00A0;<span 
class="ectt-1200">remplacant</span>&#x00A0;<span 
class="ectt-1200">par</span>&#x00A0;<span 
class="ectt-1200">H1(x)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Utilisation</span>&#x00A0;<span 
class="ectt-1200">dans</span>&#x00A0;<span 
class="ectt-1200">une</span>&#x00A0;<span 
class="ectt-1200">fonction</span>&#x00A0;<span 
class="ectt-1200">main:</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">-----------------------------------</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PROGRAM</span>&#x00A0;<span 
class="ectt-1200">main</span>

&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">n,</span>&#x00A0;<span 
class="ectt-1200">i</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">longueur</span>&#x00A0;<span 
class="ectt-1200">du</span>&#x00A0;<span 
class="ectt-1200">vecteur</span>&#x00A0;<span 
class="ectt-1200">x,</span>&#x00A0;<span 
class="ectt-1200">a</span>&#x00A0;<span 
class="ectt-1200">modifier</span>&#x00A0;<span 
class="ectt-1200">dans</span>&#x00A0;<span 
class="ectt-1200">le</span>&#x00A0;<span 
class="ectt-1200">programme</span>&#x00A0;<span 
class="ectt-1200">principal</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(n=3)</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">initialisation</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">x,</span>&#x00A0;<span 
class="ectt-1200">y</span>&#x00A0;<span 
class="ectt-1200">et</span>&#x00A0;<span 
class="ectt-1200">xavant</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">x(n),</span>&#x00A0;<span 
class="ectt-1200">y(n),</span>&#x00A0;<span 
class="ectt-1200">xavant(n)</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">affectation</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">valeurs</span>&#x00A0;<span 
class="ectt-1200">a</span>&#x00A0;<span 
class="ectt-1200">x</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">x(1)=1</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">x(2)=2</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">x(3)=3</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">On</span>&#x00A0;<span 
class="ectt-1200">sauvegarde</span>&#x00A0;<span 
class="ectt-1200">les</span>&#x00A0;<span 
class="ectt-1200">valeurs</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">x</span>&#x00A0;<span 
class="ectt-1200">dans</span>&#x00A0;<span 
class="ectt-1200">xavant</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DO</span>&#x00A0;<span 
class="ectt-1200">10,</span>&#x00A0;<span 
class="ectt-1200">i=1,n</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">xavant(i)=x(i)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">10</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CONTINUE</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">calcul</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">H1(x),</span>&#x00A0;<span 
class="ectt-1200">remplace</span>&#x00A0;<span 
class="ectt-1200">x</span>&#x00A0;<span 
class="ectt-1200">par</span>&#x00A0;<span 
class="ectt-1200">H1(x)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CALL</span>&#x00A0;<span 
class="ectt-1200">H1(n,x)</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">affecte</span>&#x00A0;<span 
class="ectt-1200">a</span>&#x00A0;<span 
class="ectt-1200">y</span>&#x00A0;<span 
class="ectt-1200">le</span>&#x00A0;<span 
class="ectt-1200">resultat</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DO</span>&#x00A0;<span 
class="ectt-1200">20,</span>&#x00A0;<span 
class="ectt-1200">i=1,n</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">y(i)=x(i)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">20</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CONTINUE</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">remet</span>&#x00A0;<span 
class="ectt-1200">les</span>&#x00A0;<span 
class="ectt-1200">bonnes</span>&#x00A0;<span 
class="ectt-1200">valeurs</span>&#x00A0;<span 
class="ectt-1200">dans</span>&#x00A0;<span 
class="ectt-1200">x</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">affecte</span>&#x00A0;<span 
class="ectt-1200">a</span>&#x00A0;<span 
class="ectt-1200">y</span>&#x00A0;<span 
class="ectt-1200">le</span>&#x00A0;<span 
class="ectt-1200">resultat</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DO</span>&#x00A0;<span 
class="ectt-1200">30,</span>&#x00A0;<span 
class="ectt-1200">i=1,n</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">x(i)=xavant(i)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">30</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CONTINUE</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Affichage</span>&#x00A0;<span 
class="ectt-1200">des</span>&#x00A0;<span 
class="ectt-1200">valeurs</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">y=H1(x)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(UNIT=6,FMT=*)</span>&#x00A0;<span 
class="ectt-1200">&#x2019;Affichage</span>&#x00A0;<span 
class="ectt-1200">des</span>&#x00A0;<span 
class="ectt-1200">valeurs</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">y&#x2019;</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(UNIT=6,FMT=*)</span>&#x00A0;<span 
class="ectt-1200">y</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Affichage</span>&#x00A0;<span 
class="ectt-1200">des</span>&#x00A0;<span 
class="ectt-1200">valeurs</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">x</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(UNIT=6,FMT=*)</span>&#x00A0;<span 
class="ectt-1200">&#x2019;Affichage</span>&#x00A0;<span 
class="ectt-1200">des</span>&#x00A0;<span 
class="ectt-1200">valeurs</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">x&#x2019;</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(UNIT=6,FMT=*)</span>&#x00A0;<span 
class="ectt-1200">x</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">END</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">-------------------------------------</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Instructions</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">compilation:</span>&#x00A0;<span 
class="ectt-1200">alias</span>&#x00A0;<span 
class="ectt-1200">f77=&#x2019;fort77&#x2019;</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">f77</span>&#x00A0;<span 
class="ectt-1200">-c</span>&#x00A0;<span 
class="ectt-1200">nom_du_fichier_contenant_la_fonction_main.f</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">f77</span>&#x00A0;<span 
class="ectt-1200">-c</span>&#x00A0;<span 
class="ectt-1200">H1.f</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">f77</span>&#x00A0;<span 
class="ectt-1200">nom_du_fichier_contenant_la_fonction_main.o</span>&#x00A0;<span 
class="ectt-1200">H1.o</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Fonctions</span>&#x00A0;<span 
class="ectt-1200">exterieures</span>&#x00A0;<span 
class="ectt-1200">appelees:</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Auteur:</span>&#x00A0;<span 
class="ectt-1200">Pierre</span>&#x00A0;<span 
class="ectt-1200">Lafaye</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">Micheaux</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Date:</span>&#x00A0;<span 
class="ectt-1200">15/02/2001</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Fin-Commentaires</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">SUBROUTINE</span>&#x00A0;<span 
class="ectt-1200">H1</span>&#x00A0;<span 
class="ectt-1200">(n,x)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">n,i</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">x(n)</span>

&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DO</span>&#x00A0;<span 
class="ectt-1200">10,</span>&#x00A0;<span 
class="ectt-1200">i=1,n</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">x(i)=DSQRT(DBLE(3.0))*x(i)</span>
&#x00A0;<br />&#x00A0;<span 
class="ectt-1200">10</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CONTINUE</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">RETURN</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">END</span>
   </div>
<!--l. 418--><p class="indent">   <span 
class="ecbx-1200">Programme H2.f</span> </p><div class="verbatiminput">
<span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Debut-Commentaires</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Nom</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">la</span>&#x00A0;<span 
class="ectt-1200">sous-routine:</span>&#x00A0;<span 
class="ectt-1200">H2</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Entrees:</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">n</span>&#x00A0;<span 
class="ectt-1200">(entier),</span>&#x00A0;<span 
class="ectt-1200">longueur</span>&#x00A0;<span 
class="ectt-1200">du</span>&#x00A0;<span 
class="ectt-1200">vecteur</span>&#x00A0;<span 
class="ectt-1200">x</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">x</span>&#x00A0;<span 
class="ectt-1200">(double),</span>&#x00A0;<span 
class="ectt-1200">un</span>&#x00A0;<span 
class="ectt-1200">vecteur</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">n</span>&#x00A0;<span 
class="ectt-1200">nombres</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Sorties:</span>&#x00A0;<span 
class="ectt-1200">void</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Description:</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Calcul</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">H2(x),</span>&#x00A0;<span 
class="ectt-1200">H2</span>&#x00A0;<span 
class="ectt-1200">etant</span>&#x00A0;<span 
class="ectt-1200">le</span>&#x00A0;<span 
class="ectt-1200">deuxieme</span>&#x00A0;<span 
class="ectt-1200">polynome</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">Legendre</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Modifie</span>&#x00A0;<span 
class="ectt-1200">le</span>&#x00A0;<span 
class="ectt-1200">vecteur</span>&#x00A0;<span 
class="ectt-1200">x</span>&#x00A0;<span 
class="ectt-1200">dans</span>&#x00A0;<span 
class="ectt-1200">le</span>&#x00A0;<span 
class="ectt-1200">programme</span>&#x00A0;<span 
class="ectt-1200">principal,</span>&#x00A0;<span 
class="ectt-1200">en</span>&#x00A0;<span 
class="ectt-1200">le</span>&#x00A0;<span 
class="ectt-1200">remplacant</span>&#x00A0;<span 
class="ectt-1200">par</span>&#x00A0;<span 
class="ectt-1200">H2(x)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Utilisation</span>&#x00A0;<span 
class="ectt-1200">dans</span>&#x00A0;<span 
class="ectt-1200">une</span>&#x00A0;<span 
class="ectt-1200">fonction</span>&#x00A0;<span 
class="ectt-1200">main:</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">-----------------------------------</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PROGRAM</span>&#x00A0;<span 
class="ectt-1200">main</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">n,</span>&#x00A0;<span 
class="ectt-1200">i</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">longueur</span>&#x00A0;<span 
class="ectt-1200">du</span>&#x00A0;<span 
class="ectt-1200">vecteur</span>&#x00A0;<span 
class="ectt-1200">x,</span>&#x00A0;<span 
class="ectt-1200">a</span>&#x00A0;<span 
class="ectt-1200">modifier</span>&#x00A0;<span 
class="ectt-1200">dans</span>&#x00A0;<span 
class="ectt-1200">le</span>&#x00A0;<span 
class="ectt-1200">programme</span>&#x00A0;<span 
class="ectt-1200">principal</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(n=3)</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">initialisation</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">x,</span>&#x00A0;<span 
class="ectt-1200">y</span>&#x00A0;<span 
class="ectt-1200">et</span>&#x00A0;<span 
class="ectt-1200">xavant</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">x(n),</span>&#x00A0;<span 
class="ectt-1200">y(n),</span>&#x00A0;<span 
class="ectt-1200">xavant(n)</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">affectation</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">valeurs</span>&#x00A0;<span 
class="ectt-1200">a</span>&#x00A0;<span 
class="ectt-1200">x</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">x(1)=1</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">x(2)=2</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">x(3)=3</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">On</span>&#x00A0;<span 
class="ectt-1200">sauvegarde</span>&#x00A0;<span 
class="ectt-1200">les</span>&#x00A0;<span 
class="ectt-1200">valeurs</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">x</span>&#x00A0;<span 
class="ectt-1200">dans</span>&#x00A0;<span 
class="ectt-1200">xavant</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DO</span>&#x00A0;<span 
class="ectt-1200">10,</span>&#x00A0;<span 
class="ectt-1200">i=1,n</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">xavant(i)=x(i)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">10</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CONTINUE</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">calcul</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">H2(x),</span>&#x00A0;<span 
class="ectt-1200">remplace</span>&#x00A0;<span 
class="ectt-1200">x</span>&#x00A0;<span 
class="ectt-1200">par</span>&#x00A0;<span 
class="ectt-1200">H2(x)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CALL</span>&#x00A0;<span 
class="ectt-1200">H2(n,x)</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">affecte</span>&#x00A0;<span 
class="ectt-1200">a</span>&#x00A0;<span 
class="ectt-1200">y</span>&#x00A0;<span 
class="ectt-1200">le</span>&#x00A0;<span 
class="ectt-1200">resultat</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DO</span>&#x00A0;<span 
class="ectt-1200">20,</span>&#x00A0;<span 
class="ectt-1200">i=1,n</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">y(i)=x(i)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">20</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CONTINUE</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">remet</span>&#x00A0;<span 
class="ectt-1200">les</span>&#x00A0;<span 
class="ectt-1200">bonnes</span>&#x00A0;<span 
class="ectt-1200">valeurs</span>&#x00A0;<span 
class="ectt-1200">dans</span>&#x00A0;<span 
class="ectt-1200">x</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">affecte</span>&#x00A0;<span 
class="ectt-1200">a</span>&#x00A0;<span 
class="ectt-1200">y</span>&#x00A0;<span 
class="ectt-1200">le</span>&#x00A0;<span 
class="ectt-1200">resultat</span>

&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DO</span>&#x00A0;<span 
class="ectt-1200">30,</span>&#x00A0;<span 
class="ectt-1200">i=1,n</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">x(i)=xavant(i)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">30</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CONTINUE</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Affichage</span>&#x00A0;<span 
class="ectt-1200">des</span>&#x00A0;<span 
class="ectt-1200">valeurs</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">y=H2(x)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(UNIT=6,FMT=*)</span>&#x00A0;<span 
class="ectt-1200">&#x2019;Affichage</span>&#x00A0;<span 
class="ectt-1200">des</span>&#x00A0;<span 
class="ectt-1200">valeurs</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">y&#x2019;</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(UNIT=6,FMT=*)</span>&#x00A0;<span 
class="ectt-1200">y</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Affichage</span>&#x00A0;<span 
class="ectt-1200">des</span>&#x00A0;<span 
class="ectt-1200">valeurs</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">x</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(UNIT=6,FMT=*)</span>&#x00A0;<span 
class="ectt-1200">&#x2019;Affichage</span>&#x00A0;<span 
class="ectt-1200">des</span>&#x00A0;<span 
class="ectt-1200">valeurs</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">x&#x2019;</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(UNIT=6,FMT=*)</span>&#x00A0;<span 
class="ectt-1200">x</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">END</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">-------------------------------------</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Instructions</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">compilation:</span>&#x00A0;<span 
class="ectt-1200">alias</span>&#x00A0;<span 
class="ectt-1200">f77=&#x2019;fort77&#x2019;</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">f77</span>&#x00A0;<span 
class="ectt-1200">-c</span>&#x00A0;<span 
class="ectt-1200">nom_du_fichier_contenant_la_fonction_main.f</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">f77</span>&#x00A0;<span 
class="ectt-1200">-c</span>&#x00A0;<span 
class="ectt-1200">H2.f</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">f77</span>&#x00A0;<span 
class="ectt-1200">nom_du_fichier_contenant_la_fonction_main.o</span>&#x00A0;<span 
class="ectt-1200">H2.o</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Fonctions</span>&#x00A0;<span 
class="ectt-1200">exterieures</span>&#x00A0;<span 
class="ectt-1200">appelees:</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Auteur:</span>&#x00A0;<span 
class="ectt-1200">Pierre</span>&#x00A0;<span 
class="ectt-1200">Lafaye</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">Micheaux</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Date:</span>&#x00A0;<span 
class="ectt-1200">15/02/2001</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Fin-Commentaires</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">SUBROUTINE</span>&#x00A0;<span 
class="ectt-1200">H2</span>&#x00A0;<span 
class="ectt-1200">(n,x)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">n,i</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">x(n)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DO</span>&#x00A0;<span 
class="ectt-1200">10,</span>&#x00A0;<span 
class="ectt-1200">i=1,n</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">x(i)=DSQRT(DBLE(5.0))*(3*(x(i)**2)-1)/2</span>
&#x00A0;<br />&#x00A0;<span 
class="ectt-1200">10</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CONTINUE</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">RETURN</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">END</span>
   </div>
<!--l. 422--><p class="indent">   <span 
class="ecbx-1200">Programme H3.f</span> </p><div class="verbatiminput">
<span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Debut-Commentaires</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Nom</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">la</span>&#x00A0;<span 
class="ectt-1200">sous-routine:</span>&#x00A0;<span 
class="ectt-1200">H3</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Entrees:</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">n</span>&#x00A0;<span 
class="ectt-1200">(entier),</span>&#x00A0;<span 
class="ectt-1200">longueur</span>&#x00A0;<span 
class="ectt-1200">du</span>&#x00A0;<span 
class="ectt-1200">vecteur</span>&#x00A0;<span 
class="ectt-1200">x</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">x</span>&#x00A0;<span 
class="ectt-1200">(double),</span>&#x00A0;<span 
class="ectt-1200">un</span>&#x00A0;<span 
class="ectt-1200">vecteur</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">n</span>&#x00A0;<span 
class="ectt-1200">nombres</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Sorties:</span>&#x00A0;<span 
class="ectt-1200">void</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Description:</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Calcul</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">H3(x),</span>&#x00A0;<span 
class="ectt-1200">H3</span>&#x00A0;<span 
class="ectt-1200">etant</span>&#x00A0;<span 
class="ectt-1200">le</span>&#x00A0;<span 
class="ectt-1200">troisieme</span>&#x00A0;<span 
class="ectt-1200">polynome</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">Legendre</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Modifie</span>&#x00A0;<span 
class="ectt-1200">le</span>&#x00A0;<span 
class="ectt-1200">vecteur</span>&#x00A0;<span 
class="ectt-1200">x</span>&#x00A0;<span 
class="ectt-1200">dans</span>&#x00A0;<span 
class="ectt-1200">le</span>&#x00A0;<span 
class="ectt-1200">programme</span>&#x00A0;<span 
class="ectt-1200">principal,</span>&#x00A0;<span 
class="ectt-1200">en</span>&#x00A0;<span 
class="ectt-1200">le</span>&#x00A0;<span 
class="ectt-1200">remplacant</span>&#x00A0;<span 
class="ectt-1200">par</span>&#x00A0;<span 
class="ectt-1200">H3(x)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Utilisation</span>&#x00A0;<span 
class="ectt-1200">dans</span>&#x00A0;<span 
class="ectt-1200">une</span>&#x00A0;<span 
class="ectt-1200">fonction</span>&#x00A0;<span 
class="ectt-1200">main:</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">-----------------------------------</span>

&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PROGRAM</span>&#x00A0;<span 
class="ectt-1200">main</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">n,</span>&#x00A0;<span 
class="ectt-1200">i</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">longueur</span>&#x00A0;<span 
class="ectt-1200">du</span>&#x00A0;<span 
class="ectt-1200">vecteur</span>&#x00A0;<span 
class="ectt-1200">x,</span>&#x00A0;<span 
class="ectt-1200">a</span>&#x00A0;<span 
class="ectt-1200">modifier</span>&#x00A0;<span 
class="ectt-1200">dans</span>&#x00A0;<span 
class="ectt-1200">le</span>&#x00A0;<span 
class="ectt-1200">programme</span>&#x00A0;<span 
class="ectt-1200">principal</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(n=3)</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">initialisation</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">x,</span>&#x00A0;<span 
class="ectt-1200">y</span>&#x00A0;<span 
class="ectt-1200">et</span>&#x00A0;<span 
class="ectt-1200">xavant</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">x(n),</span>&#x00A0;<span 
class="ectt-1200">y(n),</span>&#x00A0;<span 
class="ectt-1200">xavant(n)</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">affectation</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">valeurs</span>&#x00A0;<span 
class="ectt-1200">a</span>&#x00A0;<span 
class="ectt-1200">x</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">x(1)=1</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">x(2)=2</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">x(3)=3</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">On</span>&#x00A0;<span 
class="ectt-1200">sauvegarde</span>&#x00A0;<span 
class="ectt-1200">les</span>&#x00A0;<span 
class="ectt-1200">valeurs</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">x</span>&#x00A0;<span 
class="ectt-1200">dans</span>&#x00A0;<span 
class="ectt-1200">xavant</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DO</span>&#x00A0;<span 
class="ectt-1200">10,</span>&#x00A0;<span 
class="ectt-1200">i=1,n</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">xavant(i)=x(i)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">10</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CONTINUE</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">calcul</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">H3(x),</span>&#x00A0;<span 
class="ectt-1200">remplace</span>&#x00A0;<span 
class="ectt-1200">x</span>&#x00A0;<span 
class="ectt-1200">par</span>&#x00A0;<span 
class="ectt-1200">H3(x)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CALL</span>&#x00A0;<span 
class="ectt-1200">H3(n,x)</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">affecte</span>&#x00A0;<span 
class="ectt-1200">a</span>&#x00A0;<span 
class="ectt-1200">y</span>&#x00A0;<span 
class="ectt-1200">le</span>&#x00A0;<span 
class="ectt-1200">resultat</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DO</span>&#x00A0;<span 
class="ectt-1200">20,</span>&#x00A0;<span 
class="ectt-1200">i=1,n</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">y(i)=x(i)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">20</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CONTINUE</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">remet</span>&#x00A0;<span 
class="ectt-1200">les</span>&#x00A0;<span 
class="ectt-1200">bonnes</span>&#x00A0;<span 
class="ectt-1200">valeurs</span>&#x00A0;<span 
class="ectt-1200">dans</span>&#x00A0;<span 
class="ectt-1200">x</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">affecte</span>&#x00A0;<span 
class="ectt-1200">a</span>&#x00A0;<span 
class="ectt-1200">y</span>&#x00A0;<span 
class="ectt-1200">le</span>&#x00A0;<span 
class="ectt-1200">resultat</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DO</span>&#x00A0;<span 
class="ectt-1200">30,</span>&#x00A0;<span 
class="ectt-1200">i=1,n</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">x(i)=xavant(i)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">30</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CONTINUE</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Affichage</span>&#x00A0;<span 
class="ectt-1200">des</span>&#x00A0;<span 
class="ectt-1200">valeurs</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">y=H3(x)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(UNIT=6,FMT=*)</span>&#x00A0;<span 
class="ectt-1200">&#x2019;Affichage</span>&#x00A0;<span 
class="ectt-1200">des</span>&#x00A0;<span 
class="ectt-1200">valeurs</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">y&#x2019;</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(UNIT=6,FMT=*)</span>&#x00A0;<span 
class="ectt-1200">y</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Affichage</span>&#x00A0;<span 
class="ectt-1200">des</span>&#x00A0;<span 
class="ectt-1200">valeurs</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">x</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(UNIT=6,FMT=*)</span>&#x00A0;<span 
class="ectt-1200">&#x2019;Affichage</span>&#x00A0;<span 
class="ectt-1200">des</span>&#x00A0;<span 
class="ectt-1200">valeurs</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">x&#x2019;</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(UNIT=6,FMT=*)</span>&#x00A0;<span 
class="ectt-1200">x</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">END</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">-------------------------------------</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Instructions</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">compilation:</span>&#x00A0;<span 
class="ectt-1200">alias</span>&#x00A0;<span 
class="ectt-1200">f77=&#x2019;fort77&#x2019;</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">f77</span>&#x00A0;<span 
class="ectt-1200">-c</span>&#x00A0;<span 
class="ectt-1200">nom_du_fichier_contenant_la_fonction_main.f</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">f77</span>&#x00A0;<span 
class="ectt-1200">-c</span>&#x00A0;<span 
class="ectt-1200">H3.f</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">f77</span>&#x00A0;<span 
class="ectt-1200">nom_du_fichier_contenant_la_fonction_main.o</span>&#x00A0;<span 
class="ectt-1200">H3.o</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Fonctions</span>&#x00A0;<span 
class="ectt-1200">exterieures</span>&#x00A0;<span 
class="ectt-1200">appelees:</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Auteur:</span>&#x00A0;<span 
class="ectt-1200">Pierre</span>&#x00A0;<span 
class="ectt-1200">Lafaye</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">Micheaux</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Date:</span>&#x00A0;<span 
class="ectt-1200">15/02/2001</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Fin-Commentaires</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">SUBROUTINE</span>&#x00A0;<span 
class="ectt-1200">H3</span>&#x00A0;<span 
class="ectt-1200">(n,x)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">n,i</span>

&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">x(n)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DO</span>&#x00A0;<span 
class="ectt-1200">10,</span>&#x00A0;<span 
class="ectt-1200">i=1,n</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">x(i)=DSQRT(DBLE(7.0))*(5*(x(i)**3)-3*x(i))/2</span>
&#x00A0;<br />&#x00A0;<span 
class="ectt-1200">10</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CONTINUE</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">RETURN</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">END</span>
   </div>
<!--l. 426--><p class="indent">   <span 
class="ecbx-1200">Programme H4.f</span> </p><div class="verbatiminput">
<span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Debut-Commentaires</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Nom</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">la</span>&#x00A0;<span 
class="ectt-1200">sous-routine:</span>&#x00A0;<span 
class="ectt-1200">H4</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Entrees:</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">n</span>&#x00A0;<span 
class="ectt-1200">(entier),</span>&#x00A0;<span 
class="ectt-1200">longueur</span>&#x00A0;<span 
class="ectt-1200">du</span>&#x00A0;<span 
class="ectt-1200">vecteur</span>&#x00A0;<span 
class="ectt-1200">x</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">x</span>&#x00A0;<span 
class="ectt-1200">(double),</span>&#x00A0;<span 
class="ectt-1200">un</span>&#x00A0;<span 
class="ectt-1200">vecteur</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">n</span>&#x00A0;<span 
class="ectt-1200">nombres</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Sorties:</span>&#x00A0;<span 
class="ectt-1200">void</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Description:</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Calcul</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">H4(x),</span>&#x00A0;<span 
class="ectt-1200">H4</span>&#x00A0;<span 
class="ectt-1200">etant</span>&#x00A0;<span 
class="ectt-1200">le</span>&#x00A0;<span 
class="ectt-1200">troisieme</span>&#x00A0;<span 
class="ectt-1200">polynome</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">Legendre</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Modifie</span>&#x00A0;<span 
class="ectt-1200">le</span>&#x00A0;<span 
class="ectt-1200">vecteur</span>&#x00A0;<span 
class="ectt-1200">x</span>&#x00A0;<span 
class="ectt-1200">dans</span>&#x00A0;<span 
class="ectt-1200">le</span>&#x00A0;<span 
class="ectt-1200">programme</span>&#x00A0;<span 
class="ectt-1200">principal,</span>&#x00A0;<span 
class="ectt-1200">en</span>&#x00A0;<span 
class="ectt-1200">le</span>&#x00A0;<span 
class="ectt-1200">remplacant</span>&#x00A0;<span 
class="ectt-1200">par</span>&#x00A0;<span 
class="ectt-1200">H4(x)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Utilisation</span>&#x00A0;<span 
class="ectt-1200">dans</span>&#x00A0;<span 
class="ectt-1200">une</span>&#x00A0;<span 
class="ectt-1200">fonction</span>&#x00A0;<span 
class="ectt-1200">main:</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">-------------------------------------</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PROGRAM</span>&#x00A0;<span 
class="ectt-1200">main</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">n,</span>&#x00A0;<span 
class="ectt-1200">i</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">longueur</span>&#x00A0;<span 
class="ectt-1200">du</span>&#x00A0;<span 
class="ectt-1200">vecteur</span>&#x00A0;<span 
class="ectt-1200">x,</span>&#x00A0;<span 
class="ectt-1200">a</span>&#x00A0;<span 
class="ectt-1200">modifier</span>&#x00A0;<span 
class="ectt-1200">dans</span>&#x00A0;<span 
class="ectt-1200">le</span>&#x00A0;<span 
class="ectt-1200">programme</span>&#x00A0;<span 
class="ectt-1200">principal</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(n=3)</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">initialisation</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">x,</span>&#x00A0;<span 
class="ectt-1200">y</span>&#x00A0;<span 
class="ectt-1200">et</span>&#x00A0;<span 
class="ectt-1200">xavant</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">x(n),</span>&#x00A0;<span 
class="ectt-1200">y(n),</span>&#x00A0;<span 
class="ectt-1200">xavant(n)</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">affectation</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">valeurs</span>&#x00A0;<span 
class="ectt-1200">a</span>&#x00A0;<span 
class="ectt-1200">x</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">x(1)=1</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">x(2)=2</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">x(3)=3</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">On</span>&#x00A0;<span 
class="ectt-1200">sauvegarde</span>&#x00A0;<span 
class="ectt-1200">les</span>&#x00A0;<span 
class="ectt-1200">valeurs</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">x</span>&#x00A0;<span 
class="ectt-1200">dans</span>&#x00A0;<span 
class="ectt-1200">xavant</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DO</span>&#x00A0;<span 
class="ectt-1200">10,</span>&#x00A0;<span 
class="ectt-1200">i=1,n</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">xavant(i)=x(i)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">10</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CONTINUE</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">calcul</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">H4(x),</span>&#x00A0;<span 
class="ectt-1200">remplace</span>&#x00A0;<span 
class="ectt-1200">x</span>&#x00A0;<span 
class="ectt-1200">par</span>&#x00A0;<span 
class="ectt-1200">H4(x)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CALL</span>&#x00A0;<span 
class="ectt-1200">H4(n,x)</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">affecte</span>&#x00A0;<span 
class="ectt-1200">a</span>&#x00A0;<span 
class="ectt-1200">y</span>&#x00A0;<span 
class="ectt-1200">le</span>&#x00A0;<span 
class="ectt-1200">resultat</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DO</span>&#x00A0;<span 
class="ectt-1200">20,</span>&#x00A0;<span 
class="ectt-1200">i=1,n</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">y(i)=x(i)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">20</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CONTINUE</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">remet</span>&#x00A0;<span 
class="ectt-1200">les</span>&#x00A0;<span 
class="ectt-1200">bonnes</span>&#x00A0;<span 
class="ectt-1200">valeurs</span>&#x00A0;<span 
class="ectt-1200">dans</span>&#x00A0;<span 
class="ectt-1200">x</span>

&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">affecte</span>&#x00A0;<span 
class="ectt-1200">a</span>&#x00A0;<span 
class="ectt-1200">y</span>&#x00A0;<span 
class="ectt-1200">le</span>&#x00A0;<span 
class="ectt-1200">resultat</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DO</span>&#x00A0;<span 
class="ectt-1200">30,</span>&#x00A0;<span 
class="ectt-1200">i=1,n</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">x(i)=xavant(i)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">30</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CONTINUE</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Affichage</span>&#x00A0;<span 
class="ectt-1200">des</span>&#x00A0;<span 
class="ectt-1200">valeurs</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">y=H4(x)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(UNIT=6,FMT=*)</span>&#x00A0;<span 
class="ectt-1200">&#x2019;Affichage</span>&#x00A0;<span 
class="ectt-1200">des</span>&#x00A0;<span 
class="ectt-1200">valeurs</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">y&#x2019;</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(UNIT=6,FMT=*)</span>&#x00A0;<span 
class="ectt-1200">y</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Affichage</span>&#x00A0;<span 
class="ectt-1200">des</span>&#x00A0;<span 
class="ectt-1200">valeurs</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">x</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(UNIT=6,FMT=*)</span>&#x00A0;<span 
class="ectt-1200">&#x2019;Affichage</span>&#x00A0;<span 
class="ectt-1200">des</span>&#x00A0;<span 
class="ectt-1200">valeurs</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">x&#x2019;</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(UNIT=6,FMT=*)</span>&#x00A0;<span 
class="ectt-1200">x</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">END</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">-------------------------------------</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Instructions</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">compilation:</span>&#x00A0;<span 
class="ectt-1200">alias</span>&#x00A0;<span 
class="ectt-1200">f77=&#x2019;fort77&#x2019;</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">f77</span>&#x00A0;<span 
class="ectt-1200">-c</span>&#x00A0;<span 
class="ectt-1200">nom_du_fichier_contenant_la_fonction_main.f</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">f77</span>&#x00A0;<span 
class="ectt-1200">-c</span>&#x00A0;<span 
class="ectt-1200">H4.f</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">f77</span>&#x00A0;<span 
class="ectt-1200">nom_du_fichier_contenant_la_fonction_main.o</span>&#x00A0;<span 
class="ectt-1200">H4.o</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Fonctions</span>&#x00A0;<span 
class="ectt-1200">exterieures</span>&#x00A0;<span 
class="ectt-1200">appelees:</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Auteur:</span>&#x00A0;<span 
class="ectt-1200">Pierre</span>&#x00A0;<span 
class="ectt-1200">Lafaye</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">Micheaux</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Date:</span>&#x00A0;<span 
class="ectt-1200">15/02/2001</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Fin-Commentaires</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">SUBROUTINE</span>&#x00A0;<span 
class="ectt-1200">H4</span>&#x00A0;<span 
class="ectt-1200">(n,x)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">n,i</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">x(n)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DO</span>&#x00A0;<span 
class="ectt-1200">10,</span>&#x00A0;<span 
class="ectt-1200">i=1,n</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">x(i)=3*(35*(x(i)**4)-30*(x(i)**2)+3)/8</span>
&#x00A0;<br />&#x00A0;<span 
class="ectt-1200">10</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CONTINUE</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">RETURN</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">END</span>
   </div>
<!--l. 430--><p class="indent">   <span 
class="ecbx-1200">Programme H5.f</span> </p><div class="verbatiminput">
<span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Debut-Commentaires</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Nom</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">la</span>&#x00A0;<span 
class="ectt-1200">sous-routine:</span>&#x00A0;<span 
class="ectt-1200">H5</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Entrees:</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">n</span>&#x00A0;<span 
class="ectt-1200">(entier),</span>&#x00A0;<span 
class="ectt-1200">longueur</span>&#x00A0;<span 
class="ectt-1200">du</span>&#x00A0;<span 
class="ectt-1200">vecteur</span>&#x00A0;<span 
class="ectt-1200">x</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">x</span>&#x00A0;<span 
class="ectt-1200">(double),</span>&#x00A0;<span 
class="ectt-1200">un</span>&#x00A0;<span 
class="ectt-1200">vecteur</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">n</span>&#x00A0;<span 
class="ectt-1200">nombres</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Sorties:</span>&#x00A0;<span 
class="ectt-1200">void</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Description:</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Calcul</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">H5(x),</span>&#x00A0;<span 
class="ectt-1200">H5</span>&#x00A0;<span 
class="ectt-1200">etant</span>&#x00A0;<span 
class="ectt-1200">le</span>&#x00A0;<span 
class="ectt-1200">cinquieme</span>&#x00A0;<span 
class="ectt-1200">polynome</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">Legendre</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Modifie</span>&#x00A0;<span 
class="ectt-1200">le</span>&#x00A0;<span 
class="ectt-1200">vecteur</span>&#x00A0;<span 
class="ectt-1200">x</span>&#x00A0;<span 
class="ectt-1200">dans</span>&#x00A0;<span 
class="ectt-1200">le</span>&#x00A0;<span 
class="ectt-1200">programme</span>&#x00A0;<span 
class="ectt-1200">principal,</span>&#x00A0;<span 
class="ectt-1200">en</span>&#x00A0;<span 
class="ectt-1200">le</span>&#x00A0;<span 
class="ectt-1200">remplacant</span>&#x00A0;<span 
class="ectt-1200">par</span>&#x00A0;<span 
class="ectt-1200">H5(x)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Utilisation</span>&#x00A0;<span 
class="ectt-1200">dans</span>&#x00A0;<span 
class="ectt-1200">une</span>&#x00A0;<span 
class="ectt-1200">fonction</span>&#x00A0;<span 
class="ectt-1200">main:</span>

&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">-------------------------------------</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PROGRAM</span>&#x00A0;<span 
class="ectt-1200">main</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">n,</span>&#x00A0;<span 
class="ectt-1200">i</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">longueur</span>&#x00A0;<span 
class="ectt-1200">du</span>&#x00A0;<span 
class="ectt-1200">vecteur</span>&#x00A0;<span 
class="ectt-1200">x,</span>&#x00A0;<span 
class="ectt-1200">a</span>&#x00A0;<span 
class="ectt-1200">modifier</span>&#x00A0;<span 
class="ectt-1200">dans</span>&#x00A0;<span 
class="ectt-1200">le</span>&#x00A0;<span 
class="ectt-1200">programme</span>&#x00A0;<span 
class="ectt-1200">principal</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(n=3)</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">initialisation</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">x,</span>&#x00A0;<span 
class="ectt-1200">y</span>&#x00A0;<span 
class="ectt-1200">et</span>&#x00A0;<span 
class="ectt-1200">xavant</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">x(n),</span>&#x00A0;<span 
class="ectt-1200">y(n),</span>&#x00A0;<span 
class="ectt-1200">xavant(n)</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">affectation</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">valeurs</span>&#x00A0;<span 
class="ectt-1200">a</span>&#x00A0;<span 
class="ectt-1200">x</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">x(1)=1</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">x(2)=2</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">x(3)=3</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">On</span>&#x00A0;<span 
class="ectt-1200">sauvegarde</span>&#x00A0;<span 
class="ectt-1200">les</span>&#x00A0;<span 
class="ectt-1200">valeurs</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">x</span>&#x00A0;<span 
class="ectt-1200">dans</span>&#x00A0;<span 
class="ectt-1200">xavant</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DO</span>&#x00A0;<span 
class="ectt-1200">10,</span>&#x00A0;<span 
class="ectt-1200">i=1,n</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">xavant(i)=x(i)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">10</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CONTINUE</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">calcul</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">H5(x),</span>&#x00A0;<span 
class="ectt-1200">remplace</span>&#x00A0;<span 
class="ectt-1200">x</span>&#x00A0;<span 
class="ectt-1200">par</span>&#x00A0;<span 
class="ectt-1200">H5(x)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CALL</span>&#x00A0;<span 
class="ectt-1200">H5(n,x)</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">affecte</span>&#x00A0;<span 
class="ectt-1200">a</span>&#x00A0;<span 
class="ectt-1200">y</span>&#x00A0;<span 
class="ectt-1200">le</span>&#x00A0;<span 
class="ectt-1200">resultat</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DO</span>&#x00A0;<span 
class="ectt-1200">20,</span>&#x00A0;<span 
class="ectt-1200">i=1,n</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">y(i)=x(i)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">20</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CONTINUE</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">remet</span>&#x00A0;<span 
class="ectt-1200">les</span>&#x00A0;<span 
class="ectt-1200">bonnes</span>&#x00A0;<span 
class="ectt-1200">valeurs</span>&#x00A0;<span 
class="ectt-1200">dans</span>&#x00A0;<span 
class="ectt-1200">x</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">affecte</span>&#x00A0;<span 
class="ectt-1200">a</span>&#x00A0;<span 
class="ectt-1200">y</span>&#x00A0;<span 
class="ectt-1200">le</span>&#x00A0;<span 
class="ectt-1200">resultat</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DO</span>&#x00A0;<span 
class="ectt-1200">30,</span>&#x00A0;<span 
class="ectt-1200">i=1,n</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">x(i)=xavant(i)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">30</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CONTINUE</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Affichage</span>&#x00A0;<span 
class="ectt-1200">des</span>&#x00A0;<span 
class="ectt-1200">valeurs</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">y=H5(x)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(UNIT=6,FMT=*)</span>&#x00A0;<span 
class="ectt-1200">&#x2019;Affichage</span>&#x00A0;<span 
class="ectt-1200">des</span>&#x00A0;<span 
class="ectt-1200">valeurs</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">y&#x2019;</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(UNIT=6,FMT=*)</span>&#x00A0;<span 
class="ectt-1200">y</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Affichage</span>&#x00A0;<span 
class="ectt-1200">des</span>&#x00A0;<span 
class="ectt-1200">valeurs</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">x</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(UNIT=6,FMT=*)</span>&#x00A0;<span 
class="ectt-1200">&#x2019;Affichage</span>&#x00A0;<span 
class="ectt-1200">des</span>&#x00A0;<span 
class="ectt-1200">valeurs</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">x&#x2019;</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(UNIT=6,FMT=*)</span>&#x00A0;<span 
class="ectt-1200">x</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">END</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">-------------------------------------</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Instructions</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">compilation:</span>&#x00A0;<span 
class="ectt-1200">alias</span>&#x00A0;<span 
class="ectt-1200">f77=&#x2019;fort77&#x2019;</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">f77</span>&#x00A0;<span 
class="ectt-1200">-c</span>&#x00A0;<span 
class="ectt-1200">nom_du_fichier_contenant_la_fonction_main.f</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">f77</span>&#x00A0;<span 
class="ectt-1200">-c</span>&#x00A0;<span 
class="ectt-1200">H5.f</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">f77</span>&#x00A0;<span 
class="ectt-1200">nom_du_fichier_contenant_la_fonction_main.o</span>&#x00A0;<span 
class="ectt-1200">H5.o</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Fonctions</span>&#x00A0;<span 
class="ectt-1200">exterieures</span>&#x00A0;<span 
class="ectt-1200">appelees:</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Auteur:</span>&#x00A0;<span 
class="ectt-1200">Pierre</span>&#x00A0;<span 
class="ectt-1200">Lafaye</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">Micheaux</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Date:</span>&#x00A0;<span 
class="ectt-1200">15/02/2001</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Fin-Commentaires</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">SUBROUTINE</span>&#x00A0;<span 
class="ectt-1200">H5</span>&#x00A0;<span 
class="ectt-1200">(n,x)</span>

&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">n,i</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">x(n)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DO</span>&#x00A0;<span 
class="ectt-1200">10,</span>&#x00A0;<span 
class="ectt-1200">i=1,n</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">x(i)=DSQRT(DBLE(11.0))*(63*(x(i)**5)-70*(x(i)**3)+15*x(i))/8</span>
&#x00A0;<br />&#x00A0;<span 
class="ectt-1200">10</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CONTINUE</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">RETURN</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">END</span>
   </div>
<!--l. 434--><p class="indent">   <span 
class="ecbx-1200">Programme H6.f</span> </p><div class="verbatiminput">
<span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Debut-Commentaires</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Nom</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">la</span>&#x00A0;<span 
class="ectt-1200">sous-routine:</span>&#x00A0;<span 
class="ectt-1200">H6</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Entrees:</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">n</span>&#x00A0;<span 
class="ectt-1200">(entier),</span>&#x00A0;<span 
class="ectt-1200">longueur</span>&#x00A0;<span 
class="ectt-1200">du</span>&#x00A0;<span 
class="ectt-1200">vecteur</span>&#x00A0;<span 
class="ectt-1200">x</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">x</span>&#x00A0;<span 
class="ectt-1200">(double),</span>&#x00A0;<span 
class="ectt-1200">un</span>&#x00A0;<span 
class="ectt-1200">vecteur</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">n</span>&#x00A0;<span 
class="ectt-1200">nombres</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Sorties:</span>&#x00A0;<span 
class="ectt-1200">void</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Description:</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Calcul</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">H6(x),</span>&#x00A0;<span 
class="ectt-1200">H6</span>&#x00A0;<span 
class="ectt-1200">etant</span>&#x00A0;<span 
class="ectt-1200">le</span>&#x00A0;<span 
class="ectt-1200">sixieme</span>&#x00A0;<span 
class="ectt-1200">polynome</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">Legendre</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Modifie</span>&#x00A0;<span 
class="ectt-1200">le</span>&#x00A0;<span 
class="ectt-1200">vecteur</span>&#x00A0;<span 
class="ectt-1200">x</span>&#x00A0;<span 
class="ectt-1200">dans</span>&#x00A0;<span 
class="ectt-1200">le</span>&#x00A0;<span 
class="ectt-1200">programme</span>&#x00A0;<span 
class="ectt-1200">principal,</span>&#x00A0;<span 
class="ectt-1200">en</span>&#x00A0;<span 
class="ectt-1200">le</span>&#x00A0;<span 
class="ectt-1200">remplacant</span>&#x00A0;<span 
class="ectt-1200">par</span>&#x00A0;<span 
class="ectt-1200">H6(x)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Utilisation</span>&#x00A0;<span 
class="ectt-1200">dans</span>&#x00A0;<span 
class="ectt-1200">une</span>&#x00A0;<span 
class="ectt-1200">fonction</span>&#x00A0;<span 
class="ectt-1200">main:</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">-------------------------------------</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PROGRAM</span>&#x00A0;<span 
class="ectt-1200">main</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">n,</span>&#x00A0;<span 
class="ectt-1200">i</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">longueur</span>&#x00A0;<span 
class="ectt-1200">du</span>&#x00A0;<span 
class="ectt-1200">vecteur</span>&#x00A0;<span 
class="ectt-1200">x,</span>&#x00A0;<span 
class="ectt-1200">a</span>&#x00A0;<span 
class="ectt-1200">modifier</span>&#x00A0;<span 
class="ectt-1200">dans</span>&#x00A0;<span 
class="ectt-1200">le</span>&#x00A0;<span 
class="ectt-1200">programme</span>&#x00A0;<span 
class="ectt-1200">principal</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(n=3)</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">initialisation</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">x,</span>&#x00A0;<span 
class="ectt-1200">y</span>&#x00A0;<span 
class="ectt-1200">et</span>&#x00A0;<span 
class="ectt-1200">xavant</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">x(n),</span>&#x00A0;<span 
class="ectt-1200">y(n),</span>&#x00A0;<span 
class="ectt-1200">xavant(n)</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">affectation</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">valeurs</span>&#x00A0;<span 
class="ectt-1200">a</span>&#x00A0;<span 
class="ectt-1200">x</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">x(1)=1</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">x(2)=2</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">x(3)=3</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">On</span>&#x00A0;<span 
class="ectt-1200">sauvegarde</span>&#x00A0;<span 
class="ectt-1200">les</span>&#x00A0;<span 
class="ectt-1200">valeurs</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">x</span>&#x00A0;<span 
class="ectt-1200">dans</span>&#x00A0;<span 
class="ectt-1200">xavant</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DO</span>&#x00A0;<span 
class="ectt-1200">10,</span>&#x00A0;<span 
class="ectt-1200">i=1,n</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">xavant(i)=x(i)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">10</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CONTINUE</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">calcul</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">H6(x),</span>&#x00A0;<span 
class="ectt-1200">remplace</span>&#x00A0;<span 
class="ectt-1200">x</span>&#x00A0;<span 
class="ectt-1200">par</span>&#x00A0;<span 
class="ectt-1200">H6(x)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CALL</span>&#x00A0;<span 
class="ectt-1200">H6(n,x)</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">affecte</span>&#x00A0;<span 
class="ectt-1200">a</span>&#x00A0;<span 
class="ectt-1200">y</span>&#x00A0;<span 
class="ectt-1200">le</span>&#x00A0;<span 
class="ectt-1200">resultat</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DO</span>&#x00A0;<span 
class="ectt-1200">20,</span>&#x00A0;<span 
class="ectt-1200">i=1,n</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">y(i)=x(i)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">20</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CONTINUE</span>

&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">remet</span>&#x00A0;<span 
class="ectt-1200">les</span>&#x00A0;<span 
class="ectt-1200">bonnes</span>&#x00A0;<span 
class="ectt-1200">valeurs</span>&#x00A0;<span 
class="ectt-1200">dans</span>&#x00A0;<span 
class="ectt-1200">x</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">affecte</span>&#x00A0;<span 
class="ectt-1200">a</span>&#x00A0;<span 
class="ectt-1200">y</span>&#x00A0;<span 
class="ectt-1200">le</span>&#x00A0;<span 
class="ectt-1200">resultat</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DO</span>&#x00A0;<span 
class="ectt-1200">30,</span>&#x00A0;<span 
class="ectt-1200">i=1,n</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">x(i)=xavant(i)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">30</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CONTINUE</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Affichage</span>&#x00A0;<span 
class="ectt-1200">des</span>&#x00A0;<span 
class="ectt-1200">valeurs</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">y=H6(x)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(UNIT=6,FMT=*)</span>&#x00A0;<span 
class="ectt-1200">&#x2019;Affichage</span>&#x00A0;<span 
class="ectt-1200">des</span>&#x00A0;<span 
class="ectt-1200">valeurs</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">y&#x2019;</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(UNIT=6,FMT=*)</span>&#x00A0;<span 
class="ectt-1200">y</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Affichage</span>&#x00A0;<span 
class="ectt-1200">des</span>&#x00A0;<span 
class="ectt-1200">valeurs</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">x</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(UNIT=6,FMT=*)</span>&#x00A0;<span 
class="ectt-1200">&#x2019;Affichage</span>&#x00A0;<span 
class="ectt-1200">des</span>&#x00A0;<span 
class="ectt-1200">valeurs</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">x&#x2019;</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(UNIT=6,FMT=*)</span>&#x00A0;<span 
class="ectt-1200">x</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">END</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">-------------------------------------</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Instructions</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">compilation:</span>&#x00A0;<span 
class="ectt-1200">alias</span>&#x00A0;<span 
class="ectt-1200">f77=&#x2019;fort77&#x2019;</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">f77</span>&#x00A0;<span 
class="ectt-1200">-c</span>&#x00A0;<span 
class="ectt-1200">nom_du_fichier_contenant_la_fonction_main.f</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">f77</span>&#x00A0;<span 
class="ectt-1200">-c</span>&#x00A0;<span 
class="ectt-1200">H6.f</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">f77</span>&#x00A0;<span 
class="ectt-1200">nom_du_fichier_contenant_la_fonction_main.o</span>&#x00A0;<span 
class="ectt-1200">H6.o</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Fonctions</span>&#x00A0;<span 
class="ectt-1200">exterieures</span>&#x00A0;<span 
class="ectt-1200">appelees:</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Auteur:</span>&#x00A0;<span 
class="ectt-1200">Pierre</span>&#x00A0;<span 
class="ectt-1200">Lafaye</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">Micheaux</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Date:</span>&#x00A0;<span 
class="ectt-1200">15/02/2001</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Fin-Commentaires</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">SUBROUTINE</span>&#x00A0;<span 
class="ectt-1200">H6</span>&#x00A0;<span 
class="ectt-1200">(n,x)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">n,i</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">x(n)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DO</span>&#x00A0;<span 
class="ectt-1200">10,</span>&#x00A0;<span 
class="ectt-1200">i=1,n</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">x(i)=DSQRT(DBLE(13.0))*(231*(x(i)**6)-315*(x(i)**4)+</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">$</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">105*(x(i)**2)-5)/16</span>
&#x00A0;<br />&#x00A0;<span 
class="ectt-1200">10</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CONTINUE</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">RETURN</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">END</span>
   </div>
<!--l. 438--><p class="indent">   <span 
class="ecbx-1200">Programme H7.f</span> </p><div class="verbatiminput">
<span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Debut-Commentaires</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Nom</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">la</span>&#x00A0;<span 
class="ectt-1200">sous-routine:</span>&#x00A0;<span 
class="ectt-1200">H7</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Entrees:</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">n</span>&#x00A0;<span 
class="ectt-1200">(entier),</span>&#x00A0;<span 
class="ectt-1200">longueur</span>&#x00A0;<span 
class="ectt-1200">du</span>&#x00A0;<span 
class="ectt-1200">vecteur</span>&#x00A0;<span 
class="ectt-1200">x</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">x</span>&#x00A0;<span 
class="ectt-1200">(double),</span>&#x00A0;<span 
class="ectt-1200">un</span>&#x00A0;<span 
class="ectt-1200">vecteur</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">n</span>&#x00A0;<span 
class="ectt-1200">nombres</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Sorties:</span>&#x00A0;<span 
class="ectt-1200">void</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Description:</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Calcul</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">H7(x),</span>&#x00A0;<span 
class="ectt-1200">H7</span>&#x00A0;<span 
class="ectt-1200">etant</span>&#x00A0;<span 
class="ectt-1200">le</span>&#x00A0;<span 
class="ectt-1200">septieme</span>&#x00A0;<span 
class="ectt-1200">polynome</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">Legendre</span>

&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Modifie</span>&#x00A0;<span 
class="ectt-1200">le</span>&#x00A0;<span 
class="ectt-1200">vecteur</span>&#x00A0;<span 
class="ectt-1200">x</span>&#x00A0;<span 
class="ectt-1200">dans</span>&#x00A0;<span 
class="ectt-1200">le</span>&#x00A0;<span 
class="ectt-1200">programme</span>&#x00A0;<span 
class="ectt-1200">principal,</span>&#x00A0;<span 
class="ectt-1200">en</span>&#x00A0;<span 
class="ectt-1200">le</span>&#x00A0;<span 
class="ectt-1200">remplacant</span>&#x00A0;<span 
class="ectt-1200">par</span>&#x00A0;<span 
class="ectt-1200">H7(x)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Utilisation</span>&#x00A0;<span 
class="ectt-1200">dans</span>&#x00A0;<span 
class="ectt-1200">une</span>&#x00A0;<span 
class="ectt-1200">fonction</span>&#x00A0;<span 
class="ectt-1200">main:</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">-------------------------------------</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PROGRAM</span>&#x00A0;<span 
class="ectt-1200">main</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">n,</span>&#x00A0;<span 
class="ectt-1200">i</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">longueur</span>&#x00A0;<span 
class="ectt-1200">du</span>&#x00A0;<span 
class="ectt-1200">vecteur</span>&#x00A0;<span 
class="ectt-1200">x,</span>&#x00A0;<span 
class="ectt-1200">a</span>&#x00A0;<span 
class="ectt-1200">modifier</span>&#x00A0;<span 
class="ectt-1200">dans</span>&#x00A0;<span 
class="ectt-1200">le</span>&#x00A0;<span 
class="ectt-1200">programme</span>&#x00A0;<span 
class="ectt-1200">principal</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(n=3)</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">initialisation</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">x,</span>&#x00A0;<span 
class="ectt-1200">y</span>&#x00A0;<span 
class="ectt-1200">et</span>&#x00A0;<span 
class="ectt-1200">xavant</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">x(n),</span>&#x00A0;<span 
class="ectt-1200">y(n),</span>&#x00A0;<span 
class="ectt-1200">xavant(n)</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">affectation</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">valeurs</span>&#x00A0;<span 
class="ectt-1200">a</span>&#x00A0;<span 
class="ectt-1200">x</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">x(1)=1</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">x(2)=2</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">x(3)=3</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">On</span>&#x00A0;<span 
class="ectt-1200">sauvegarde</span>&#x00A0;<span 
class="ectt-1200">les</span>&#x00A0;<span 
class="ectt-1200">valeurs</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">x</span>&#x00A0;<span 
class="ectt-1200">dans</span>&#x00A0;<span 
class="ectt-1200">xavant</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DO</span>&#x00A0;<span 
class="ectt-1200">10,</span>&#x00A0;<span 
class="ectt-1200">i=1,n</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">xavant(i)=x(i)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">10</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CONTINUE</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">calcul</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">H7(x),</span>&#x00A0;<span 
class="ectt-1200">remplace</span>&#x00A0;<span 
class="ectt-1200">x</span>&#x00A0;<span 
class="ectt-1200">par</span>&#x00A0;<span 
class="ectt-1200">H7(x)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CALL</span>&#x00A0;<span 
class="ectt-1200">H7(n,x)</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">affecte</span>&#x00A0;<span 
class="ectt-1200">a</span>&#x00A0;<span 
class="ectt-1200">y</span>&#x00A0;<span 
class="ectt-1200">le</span>&#x00A0;<span 
class="ectt-1200">resultat</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DO</span>&#x00A0;<span 
class="ectt-1200">20,</span>&#x00A0;<span 
class="ectt-1200">i=1,n</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">y(i)=x(i)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">20</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CONTINUE</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">remet</span>&#x00A0;<span 
class="ectt-1200">les</span>&#x00A0;<span 
class="ectt-1200">bonnes</span>&#x00A0;<span 
class="ectt-1200">valeurs</span>&#x00A0;<span 
class="ectt-1200">dans</span>&#x00A0;<span 
class="ectt-1200">x</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">affecte</span>&#x00A0;<span 
class="ectt-1200">a</span>&#x00A0;<span 
class="ectt-1200">y</span>&#x00A0;<span 
class="ectt-1200">le</span>&#x00A0;<span 
class="ectt-1200">resultat</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DO</span>&#x00A0;<span 
class="ectt-1200">30,</span>&#x00A0;<span 
class="ectt-1200">i=1,n</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">x(i)=xavant(i)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">30</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CONTINUE</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Affichage</span>&#x00A0;<span 
class="ectt-1200">des</span>&#x00A0;<span 
class="ectt-1200">valeurs</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">y=H7(x)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(UNIT=6,FMT=*)</span>&#x00A0;<span 
class="ectt-1200">&#x2019;Affichage</span>&#x00A0;<span 
class="ectt-1200">des</span>&#x00A0;<span 
class="ectt-1200">valeurs</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">y&#x2019;</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(UNIT=6,FMT=*)</span>&#x00A0;<span 
class="ectt-1200">y</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Affichage</span>&#x00A0;<span 
class="ectt-1200">des</span>&#x00A0;<span 
class="ectt-1200">valeurs</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">x</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(UNIT=6,FMT=*)</span>&#x00A0;<span 
class="ectt-1200">&#x2019;Affichage</span>&#x00A0;<span 
class="ectt-1200">des</span>&#x00A0;<span 
class="ectt-1200">valeurs</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">x&#x2019;</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(UNIT=6,FMT=*)</span>&#x00A0;<span 
class="ectt-1200">x</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">END</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">-------------------------------------</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Instructions</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">compilation:</span>&#x00A0;<span 
class="ectt-1200">alias</span>&#x00A0;<span 
class="ectt-1200">f77=&#x2019;fort77&#x2019;</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">f77</span>&#x00A0;<span 
class="ectt-1200">-c</span>&#x00A0;<span 
class="ectt-1200">nom_du_fichier_contenant_la_fonction_main.f</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">f77</span>&#x00A0;<span 
class="ectt-1200">-c</span>&#x00A0;<span 
class="ectt-1200">H7.f</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">f77</span>&#x00A0;<span 
class="ectt-1200">nom_du_fichier_contenant_la_fonction_main.o</span>&#x00A0;<span 
class="ectt-1200">H7.o</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Fonctions</span>&#x00A0;<span 
class="ectt-1200">exterieures</span>&#x00A0;<span 
class="ectt-1200">appelees:</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Auteur:</span>&#x00A0;<span 
class="ectt-1200">Pierre</span>&#x00A0;<span 
class="ectt-1200">Lafaye</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">Micheaux</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Date:</span>&#x00A0;<span 
class="ectt-1200">15/02/2001</span>

&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Fin-Commentaires</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">SUBROUTINE</span>&#x00A0;<span 
class="ectt-1200">H7</span>&#x00A0;<span 
class="ectt-1200">(n,x)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">n,i</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">x(n)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DO</span>&#x00A0;<span 
class="ectt-1200">10,</span>&#x00A0;<span 
class="ectt-1200">i=1,n</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">x(i)=DSQRT(DBLE(15.0))*(429*(x(i)**7)-693*(x(i)**5)+</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">$</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">315*(x(i)**3)-35*x(i))/16</span>
&#x00A0;<br />&#x00A0;<span 
class="ectt-1200">10</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CONTINUE</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">RETURN</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">END</span>
   </div>
<!--l. 442--><p class="indent">   <span 
class="ecbx-1200">Programme H8.f</span> </p><div class="verbatiminput">
<span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Debut-Commentaires</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Nom</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">la</span>&#x00A0;<span 
class="ectt-1200">sous-routine:</span>&#x00A0;<span 
class="ectt-1200">H8</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Entrees:</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">n</span>&#x00A0;<span 
class="ectt-1200">(entier),</span>&#x00A0;<span 
class="ectt-1200">longueur</span>&#x00A0;<span 
class="ectt-1200">du</span>&#x00A0;<span 
class="ectt-1200">vecteur</span>&#x00A0;<span 
class="ectt-1200">x</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">x</span>&#x00A0;<span 
class="ectt-1200">(double),</span>&#x00A0;<span 
class="ectt-1200">un</span>&#x00A0;<span 
class="ectt-1200">vecteur</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">n</span>&#x00A0;<span 
class="ectt-1200">nombres</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Sorties:</span>&#x00A0;<span 
class="ectt-1200">void</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Description:</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Calcul</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">H8(x),</span>&#x00A0;<span 
class="ectt-1200">H8</span>&#x00A0;<span 
class="ectt-1200">etant</span>&#x00A0;<span 
class="ectt-1200">le</span>&#x00A0;<span 
class="ectt-1200">huitieme</span>&#x00A0;<span 
class="ectt-1200">polynome</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">Legendre</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Modifie</span>&#x00A0;<span 
class="ectt-1200">le</span>&#x00A0;<span 
class="ectt-1200">vecteur</span>&#x00A0;<span 
class="ectt-1200">x</span>&#x00A0;<span 
class="ectt-1200">dans</span>&#x00A0;<span 
class="ectt-1200">le</span>&#x00A0;<span 
class="ectt-1200">programme</span>&#x00A0;<span 
class="ectt-1200">principal,</span>&#x00A0;<span 
class="ectt-1200">en</span>&#x00A0;<span 
class="ectt-1200">le</span>&#x00A0;<span 
class="ectt-1200">remplacant</span>&#x00A0;<span 
class="ectt-1200">par</span>&#x00A0;<span 
class="ectt-1200">H8(x)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Utilisation</span>&#x00A0;<span 
class="ectt-1200">dans</span>&#x00A0;<span 
class="ectt-1200">une</span>&#x00A0;<span 
class="ectt-1200">fonction</span>&#x00A0;<span 
class="ectt-1200">main:</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">-------------------------------------</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PROGRAM</span>&#x00A0;<span 
class="ectt-1200">main</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">n,</span>&#x00A0;<span 
class="ectt-1200">i</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">longueur</span>&#x00A0;<span 
class="ectt-1200">du</span>&#x00A0;<span 
class="ectt-1200">vecteur</span>&#x00A0;<span 
class="ectt-1200">x,</span>&#x00A0;<span 
class="ectt-1200">a</span>&#x00A0;<span 
class="ectt-1200">modifier</span>&#x00A0;<span 
class="ectt-1200">dans</span>&#x00A0;<span 
class="ectt-1200">le</span>&#x00A0;<span 
class="ectt-1200">programme</span>&#x00A0;<span 
class="ectt-1200">principal</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(n=3)</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">initialisation</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">x,</span>&#x00A0;<span 
class="ectt-1200">y</span>&#x00A0;<span 
class="ectt-1200">et</span>&#x00A0;<span 
class="ectt-1200">xavant</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">x(n),</span>&#x00A0;<span 
class="ectt-1200">y(n),</span>&#x00A0;<span 
class="ectt-1200">xavant(n)</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">affectation</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">valeurs</span>&#x00A0;<span 
class="ectt-1200">a</span>&#x00A0;<span 
class="ectt-1200">x</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">x(1)=1</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">x(2)=2</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">x(3)=3</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">On</span>&#x00A0;<span 
class="ectt-1200">sauvegarde</span>&#x00A0;<span 
class="ectt-1200">les</span>&#x00A0;<span 
class="ectt-1200">valeurs</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">x</span>&#x00A0;<span 
class="ectt-1200">dans</span>&#x00A0;<span 
class="ectt-1200">xavant</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DO</span>&#x00A0;<span 
class="ectt-1200">10,</span>&#x00A0;<span 
class="ectt-1200">i=1,n</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">xavant(i)=x(i)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">10</span>&#x00A0;<span 
class="ectt-1200">CONTINUE</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">calcul</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">H8(x),</span>&#x00A0;<span 
class="ectt-1200">remplace</span>&#x00A0;<span 
class="ectt-1200">x</span>&#x00A0;<span 
class="ectt-1200">par</span>&#x00A0;<span 
class="ectt-1200">H8(x)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CALL</span>&#x00A0;<span 
class="ectt-1200">H8(n,x)</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">affecte</span>&#x00A0;<span 
class="ectt-1200">a</span>&#x00A0;<span 
class="ectt-1200">y</span>&#x00A0;<span 
class="ectt-1200">le</span>&#x00A0;<span 
class="ectt-1200">resultat</span>

&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DO</span>&#x00A0;<span 
class="ectt-1200">20,</span>&#x00A0;<span 
class="ectt-1200">i=1,n</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">y(i)=x(i)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">20</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CONTINUE</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">remet</span>&#x00A0;<span 
class="ectt-1200">les</span>&#x00A0;<span 
class="ectt-1200">bonnes</span>&#x00A0;<span 
class="ectt-1200">valeurs</span>&#x00A0;<span 
class="ectt-1200">dans</span>&#x00A0;<span 
class="ectt-1200">x</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">affecte</span>&#x00A0;<span 
class="ectt-1200">a</span>&#x00A0;<span 
class="ectt-1200">y</span>&#x00A0;<span 
class="ectt-1200">le</span>&#x00A0;<span 
class="ectt-1200">resultat</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DO</span>&#x00A0;<span 
class="ectt-1200">30,</span>&#x00A0;<span 
class="ectt-1200">i=1,n</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">x(i)=xavant(i)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">30</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CONTINUE</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Affichage</span>&#x00A0;<span 
class="ectt-1200">des</span>&#x00A0;<span 
class="ectt-1200">valeurs</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">y=H8(x)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(UNIT=6,FMT=*)</span>&#x00A0;<span 
class="ectt-1200">&#x2019;Affichage</span>&#x00A0;<span 
class="ectt-1200">des</span>&#x00A0;<span 
class="ectt-1200">valeurs</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">y&#x2019;</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(UNIT=6,FMT=*)</span>&#x00A0;<span 
class="ectt-1200">y</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Affichage</span>&#x00A0;<span 
class="ectt-1200">des</span>&#x00A0;<span 
class="ectt-1200">valeurs</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">x</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(UNIT=6,FMT=*)</span>&#x00A0;<span 
class="ectt-1200">&#x2019;Affichage</span>&#x00A0;<span 
class="ectt-1200">des</span>&#x00A0;<span 
class="ectt-1200">valeurs</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">x&#x2019;</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(UNIT=6,FMT=*)</span>&#x00A0;<span 
class="ectt-1200">x</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">END</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">-------------------------------------</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Instructions</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">compilation:</span>&#x00A0;<span 
class="ectt-1200">alias</span>&#x00A0;<span 
class="ectt-1200">f77=&#x2019;fort77&#x2019;</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">f77</span>&#x00A0;<span 
class="ectt-1200">-c</span>&#x00A0;<span 
class="ectt-1200">nom_du_fichier_contenant_la_fonction_main.f</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">f77</span>&#x00A0;<span 
class="ectt-1200">-c</span>&#x00A0;<span 
class="ectt-1200">H8.f</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">f77</span>&#x00A0;<span 
class="ectt-1200">nom_du_fichier_contenant_la_fonction_main.o</span>&#x00A0;<span 
class="ectt-1200">H8.o</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Fonctions</span>&#x00A0;<span 
class="ectt-1200">exterieures</span>&#x00A0;<span 
class="ectt-1200">appelees:</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Auteur:</span>&#x00A0;<span 
class="ectt-1200">Pierre</span>&#x00A0;<span 
class="ectt-1200">Lafaye</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">Micheaux</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Date:</span>&#x00A0;<span 
class="ectt-1200">15/02/2001</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Fin-Commentaires</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">SUBROUTINE</span>&#x00A0;<span 
class="ectt-1200">H8</span>&#x00A0;<span 
class="ectt-1200">(n,x)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">n,i</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">x(n)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DO</span>&#x00A0;<span 
class="ectt-1200">10,</span>&#x00A0;<span 
class="ectt-1200">i=1,n</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">x(i)=DSQRT(DBLE(17.0))*(6435*(x(i)**8)-12012*(x(i)**6)+</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">$</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">6930*(x(i)**4)-1260*(x(i)**2)+35)/128</span>
&#x00A0;<br />&#x00A0;<span 
class="ectt-1200">10</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CONTINUE</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">RETURN</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">END</span>
   </div>
<!--l. 446--><p class="indent">   <span 
class="ecbx-1200">Programme H9.f</span> </p><div class="verbatiminput">
<span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Debut-Commentaires</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Nom</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">la</span>&#x00A0;<span 
class="ectt-1200">sous-routine:</span>&#x00A0;<span 
class="ectt-1200">H9</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Entrees:</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">n</span>&#x00A0;<span 
class="ectt-1200">(entier),</span>&#x00A0;<span 
class="ectt-1200">longueur</span>&#x00A0;<span 
class="ectt-1200">du</span>&#x00A0;<span 
class="ectt-1200">vecteur</span>&#x00A0;<span 
class="ectt-1200">x</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">x</span>&#x00A0;<span 
class="ectt-1200">(double),</span>&#x00A0;<span 
class="ectt-1200">un</span>&#x00A0;<span 
class="ectt-1200">vecteur</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">n</span>&#x00A0;<span 
class="ectt-1200">nombres</span>

&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Sorties:</span>&#x00A0;<span 
class="ectt-1200">void</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Description:</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Calcul</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">H9(x),</span>&#x00A0;<span 
class="ectt-1200">H9</span>&#x00A0;<span 
class="ectt-1200">etant</span>&#x00A0;<span 
class="ectt-1200">le</span>&#x00A0;<span 
class="ectt-1200">neuvieme</span>&#x00A0;<span 
class="ectt-1200">polynome</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">Legendre</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Modifie</span>&#x00A0;<span 
class="ectt-1200">le</span>&#x00A0;<span 
class="ectt-1200">vecteur</span>&#x00A0;<span 
class="ectt-1200">x</span>&#x00A0;<span 
class="ectt-1200">dans</span>&#x00A0;<span 
class="ectt-1200">le</span>&#x00A0;<span 
class="ectt-1200">programme</span>&#x00A0;<span 
class="ectt-1200">principal,</span>&#x00A0;<span 
class="ectt-1200">en</span>&#x00A0;<span 
class="ectt-1200">le</span>&#x00A0;<span 
class="ectt-1200">remplacant</span>&#x00A0;<span 
class="ectt-1200">par</span>&#x00A0;<span 
class="ectt-1200">H9(x)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Utilisation</span>&#x00A0;<span 
class="ectt-1200">dans</span>&#x00A0;<span 
class="ectt-1200">une</span>&#x00A0;<span 
class="ectt-1200">fonction</span>&#x00A0;<span 
class="ectt-1200">main:</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">-------------------------------------</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PROGRAM</span>&#x00A0;<span 
class="ectt-1200">main</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">n,</span>&#x00A0;<span 
class="ectt-1200">i</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">longueur</span>&#x00A0;<span 
class="ectt-1200">du</span>&#x00A0;<span 
class="ectt-1200">vecteur</span>&#x00A0;<span 
class="ectt-1200">x,</span>&#x00A0;<span 
class="ectt-1200">a</span>&#x00A0;<span 
class="ectt-1200">modifier</span>&#x00A0;<span 
class="ectt-1200">dans</span>&#x00A0;<span 
class="ectt-1200">le</span>&#x00A0;<span 
class="ectt-1200">programme</span>&#x00A0;<span 
class="ectt-1200">principal</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(n=3)</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">initialisation</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">x,</span>&#x00A0;<span 
class="ectt-1200">y</span>&#x00A0;<span 
class="ectt-1200">et</span>&#x00A0;<span 
class="ectt-1200">xavant</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">x(n),</span>&#x00A0;<span 
class="ectt-1200">y(n),</span>&#x00A0;<span 
class="ectt-1200">xavant(n)</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">affectation</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">valeurs</span>&#x00A0;<span 
class="ectt-1200">a</span>&#x00A0;<span 
class="ectt-1200">x</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">x(1)=1</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">x(2)=2</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">x(3)=3</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">On</span>&#x00A0;<span 
class="ectt-1200">sauvegarde</span>&#x00A0;<span 
class="ectt-1200">les</span>&#x00A0;<span 
class="ectt-1200">valeurs</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">x</span>&#x00A0;<span 
class="ectt-1200">dans</span>&#x00A0;<span 
class="ectt-1200">xavant</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DO</span>&#x00A0;<span 
class="ectt-1200">10,</span>&#x00A0;<span 
class="ectt-1200">i=1,n</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">xavant(i)=x(i)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">10</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CONTINUE</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">calcul</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">H9(x),</span>&#x00A0;<span 
class="ectt-1200">remplace</span>&#x00A0;<span 
class="ectt-1200">x</span>&#x00A0;<span 
class="ectt-1200">par</span>&#x00A0;<span 
class="ectt-1200">H9(x)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CALL</span>&#x00A0;<span 
class="ectt-1200">H9(n,x)</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">affecte</span>&#x00A0;<span 
class="ectt-1200">a</span>&#x00A0;<span 
class="ectt-1200">y</span>&#x00A0;<span 
class="ectt-1200">le</span>&#x00A0;<span 
class="ectt-1200">resultat</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DO</span>&#x00A0;<span 
class="ectt-1200">20,</span>&#x00A0;<span 
class="ectt-1200">i=1,n</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">y(i)=x(i)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">20</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CONTINUE</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">remet</span>&#x00A0;<span 
class="ectt-1200">les</span>&#x00A0;<span 
class="ectt-1200">bonnes</span>&#x00A0;<span 
class="ectt-1200">valeurs</span>&#x00A0;<span 
class="ectt-1200">dans</span>&#x00A0;<span 
class="ectt-1200">x</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">affecte</span>&#x00A0;<span 
class="ectt-1200">a</span>&#x00A0;<span 
class="ectt-1200">y</span>&#x00A0;<span 
class="ectt-1200">le</span>&#x00A0;<span 
class="ectt-1200">resultat</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DO</span>&#x00A0;<span 
class="ectt-1200">30,</span>&#x00A0;<span 
class="ectt-1200">i=1,n</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">x(i)=xavant(i)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">30</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CONTINUE</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Affichage</span>&#x00A0;<span 
class="ectt-1200">des</span>&#x00A0;<span 
class="ectt-1200">valeurs</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">y=H9(x)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(UNIT=6,FMT=*)</span>&#x00A0;<span 
class="ectt-1200">&#x2019;Affichage</span>&#x00A0;<span 
class="ectt-1200">des</span>&#x00A0;<span 
class="ectt-1200">valeurs</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">y&#x2019;</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(UNIT=6,FMT=*)</span>&#x00A0;<span 
class="ectt-1200">y</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Affichage</span>&#x00A0;<span 
class="ectt-1200">des</span>&#x00A0;<span 
class="ectt-1200">valeurs</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">x</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(UNIT=6,FMT=*)</span>&#x00A0;<span 
class="ectt-1200">&#x2019;Affichage</span>&#x00A0;<span 
class="ectt-1200">des</span>&#x00A0;<span 
class="ectt-1200">valeurs</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">x&#x2019;</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(UNIT=6,FMT=*)</span>&#x00A0;<span 
class="ectt-1200">x</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">END</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">-------------------------------------</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Instructions</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">compilation:</span>&#x00A0;<span 
class="ectt-1200">alias</span>&#x00A0;<span 
class="ectt-1200">f77=&#x2019;fort77&#x2019;</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">f77</span>&#x00A0;<span 
class="ectt-1200">-c</span>&#x00A0;<span 
class="ectt-1200">nom_du_fichier_contenant_la_fonction_main.f</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">f77</span>&#x00A0;<span 
class="ectt-1200">-c</span>&#x00A0;<span 
class="ectt-1200">H9.f</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">f77</span>&#x00A0;<span 
class="ectt-1200">nom_du_fichier_contenant_la_fonction_main.o</span>&#x00A0;<span 
class="ectt-1200">H9.o</span>

&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Fonctions</span>&#x00A0;<span 
class="ectt-1200">exterieures</span>&#x00A0;<span 
class="ectt-1200">appelees:</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Auteur:</span>&#x00A0;<span 
class="ectt-1200">Pierre</span>&#x00A0;<span 
class="ectt-1200">Lafaye</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">Micheaux</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Date:</span>&#x00A0;<span 
class="ectt-1200">15/02/2001</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Fin-Commentaires</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">SUBROUTINE</span>&#x00A0;<span 
class="ectt-1200">H9</span>&#x00A0;<span 
class="ectt-1200">(n,x)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">n,i</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">x(n)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DO</span>&#x00A0;<span 
class="ectt-1200">10,</span>&#x00A0;<span 
class="ectt-1200">i=1,n</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">x(i)=DSQRT(DBLE(19.0))*(12155*(x(i)**9)-25740*(x(i)**7)+</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">$</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">18018*(x(i)**5)-4620*(x(i)**3)+315*x(i))/128</span>
&#x00A0;<br />&#x00A0;<span 
class="ectt-1200">10</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CONTINUE</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">RETURN</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">END</span>
   </div>
<!--l. 450--><p class="indent">   <span 
class="ecbx-1200">Programme H10.f</span> </p><div class="verbatiminput">
<span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Debut-Commentaires</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Nom</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">la</span>&#x00A0;<span 
class="ectt-1200">sous-routine:</span>&#x00A0;<span 
class="ectt-1200">H10</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Entrees:</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">n</span>&#x00A0;<span 
class="ectt-1200">(entier),</span>&#x00A0;<span 
class="ectt-1200">longueur</span>&#x00A0;<span 
class="ectt-1200">du</span>&#x00A0;<span 
class="ectt-1200">vecteur</span>&#x00A0;<span 
class="ectt-1200">x</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">x</span>&#x00A0;<span 
class="ectt-1200">(double),</span>&#x00A0;<span 
class="ectt-1200">un</span>&#x00A0;<span 
class="ectt-1200">vecteur</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">n</span>&#x00A0;<span 
class="ectt-1200">nombres</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Sorties:</span>&#x00A0;<span 
class="ectt-1200">void</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Description:</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Calcul</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">H10(x),</span>&#x00A0;<span 
class="ectt-1200">H10</span>&#x00A0;<span 
class="ectt-1200">etant</span>&#x00A0;<span 
class="ectt-1200">le</span>&#x00A0;<span 
class="ectt-1200">dixieme</span>&#x00A0;<span 
class="ectt-1200">polynome</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">Legendre</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Modifie</span>&#x00A0;<span 
class="ectt-1200">le</span>&#x00A0;<span 
class="ectt-1200">vecteur</span>&#x00A0;<span 
class="ectt-1200">x</span>&#x00A0;<span 
class="ectt-1200">dans</span>&#x00A0;<span 
class="ectt-1200">le</span>&#x00A0;<span 
class="ectt-1200">programme</span>&#x00A0;<span 
class="ectt-1200">principal,</span>&#x00A0;<span 
class="ectt-1200">en</span>&#x00A0;<span 
class="ectt-1200">le</span>&#x00A0;<span 
class="ectt-1200">remplacant</span>&#x00A0;<span 
class="ectt-1200">par</span>&#x00A0;<span 
class="ectt-1200">H10(x)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Utilisation</span>&#x00A0;<span 
class="ectt-1200">dans</span>&#x00A0;<span 
class="ectt-1200">une</span>&#x00A0;<span 
class="ectt-1200">fonction</span>&#x00A0;<span 
class="ectt-1200">main:</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">-------------------------------------</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PROGRAM</span>&#x00A0;<span 
class="ectt-1200">main</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">n,</span>&#x00A0;<span 
class="ectt-1200">i</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">longueur</span>&#x00A0;<span 
class="ectt-1200">du</span>&#x00A0;<span 
class="ectt-1200">vecteur</span>&#x00A0;<span 
class="ectt-1200">x,</span>&#x00A0;<span 
class="ectt-1200">a</span>&#x00A0;<span 
class="ectt-1200">modifier</span>&#x00A0;<span 
class="ectt-1200">dans</span>&#x00A0;<span 
class="ectt-1200">le</span>&#x00A0;<span 
class="ectt-1200">programme</span>&#x00A0;<span 
class="ectt-1200">principal</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(n=3)</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">initialisation</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">x,</span>&#x00A0;<span 
class="ectt-1200">y</span>&#x00A0;<span 
class="ectt-1200">et</span>&#x00A0;<span 
class="ectt-1200">xavant</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">x(n),</span>&#x00A0;<span 
class="ectt-1200">y(n),</span>&#x00A0;<span 
class="ectt-1200">xavant(n)</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">affectation</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">valeurs</span>&#x00A0;<span 
class="ectt-1200">a</span>&#x00A0;<span 
class="ectt-1200">x</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">x(1)=1</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">x(2)=2</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">x(3)=3</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">On</span>&#x00A0;<span 
class="ectt-1200">sauvegarde</span>&#x00A0;<span 
class="ectt-1200">les</span>&#x00A0;<span 
class="ectt-1200">valeurs</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">x</span>&#x00A0;<span 
class="ectt-1200">dans</span>&#x00A0;<span 
class="ectt-1200">xavant</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DO</span>&#x00A0;<span 
class="ectt-1200">10,</span>&#x00A0;<span 
class="ectt-1200">i=1,n</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">xavant(i)=x(i)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">10</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CONTINUE</span>

&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">calcul</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">H10(x),</span>&#x00A0;<span 
class="ectt-1200">remplace</span>&#x00A0;<span 
class="ectt-1200">x</span>&#x00A0;<span 
class="ectt-1200">par</span>&#x00A0;<span 
class="ectt-1200">H10(x)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CALL</span>&#x00A0;<span 
class="ectt-1200">H10(n,x)</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">affecte</span>&#x00A0;<span 
class="ectt-1200">a</span>&#x00A0;<span 
class="ectt-1200">y</span>&#x00A0;<span 
class="ectt-1200">le</span>&#x00A0;<span 
class="ectt-1200">resultat</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DO</span>&#x00A0;<span 
class="ectt-1200">20,</span>&#x00A0;<span 
class="ectt-1200">i=1,n</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">y(i)=x(i)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">20</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CONTINUE</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">remet</span>&#x00A0;<span 
class="ectt-1200">les</span>&#x00A0;<span 
class="ectt-1200">bonnes</span>&#x00A0;<span 
class="ectt-1200">valeurs</span>&#x00A0;<span 
class="ectt-1200">dans</span>&#x00A0;<span 
class="ectt-1200">x</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">affecte</span>&#x00A0;<span 
class="ectt-1200">a</span>&#x00A0;<span 
class="ectt-1200">y</span>&#x00A0;<span 
class="ectt-1200">le</span>&#x00A0;<span 
class="ectt-1200">resultat</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DO</span>&#x00A0;<span 
class="ectt-1200">30,</span>&#x00A0;<span 
class="ectt-1200">i=1,n</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">x(i)=xavant(i)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">30</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CONTINUE</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Affichage</span>&#x00A0;<span 
class="ectt-1200">des</span>&#x00A0;<span 
class="ectt-1200">valeurs</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">y=H10(x)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(UNIT=6,FMT=*)</span>&#x00A0;<span 
class="ectt-1200">&#x2019;Affichage</span>&#x00A0;<span 
class="ectt-1200">des</span>&#x00A0;<span 
class="ectt-1200">valeurs</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">y&#x2019;</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(UNIT=6,FMT=*)</span>&#x00A0;<span 
class="ectt-1200">y</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Affichage</span>&#x00A0;<span 
class="ectt-1200">des</span>&#x00A0;<span 
class="ectt-1200">valeurs</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">x</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(UNIT=6,FMT=*)</span>&#x00A0;<span 
class="ectt-1200">&#x2019;Affichage</span>&#x00A0;<span 
class="ectt-1200">des</span>&#x00A0;<span 
class="ectt-1200">valeurs</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">x&#x2019;</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(UNIT=6,FMT=*)</span>&#x00A0;<span 
class="ectt-1200">x</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">END</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">-------------------------------------</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Instructions</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">compilation:</span>&#x00A0;<span 
class="ectt-1200">alias</span>&#x00A0;<span 
class="ectt-1200">f77=&#x2019;fort77&#x2019;</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">f77</span>&#x00A0;<span 
class="ectt-1200">-c</span>&#x00A0;<span 
class="ectt-1200">nom_du_fichier_contenant_la_fonction_main.f</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">f77</span>&#x00A0;<span 
class="ectt-1200">-c</span>&#x00A0;<span 
class="ectt-1200">H10.f</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">f77</span>&#x00A0;<span 
class="ectt-1200">nom_du_fichier_contenant_la_fonction_main.o</span>&#x00A0;<span 
class="ectt-1200">H10.o</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Fonctions</span>&#x00A0;<span 
class="ectt-1200">exterieures</span>&#x00A0;<span 
class="ectt-1200">appelees:</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Auteur:</span>&#x00A0;<span 
class="ectt-1200">Pierre</span>&#x00A0;<span 
class="ectt-1200">Lafaye</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">Micheaux</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Date:</span>&#x00A0;<span 
class="ectt-1200">15/02/2001</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Fin-Commentaires</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">SUBROUTINE</span>&#x00A0;<span 
class="ectt-1200">H10</span>&#x00A0;<span 
class="ectt-1200">(n,x)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">n,i</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">x(n)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DO</span>&#x00A0;<span 
class="ectt-1200">10,</span>&#x00A0;<span 
class="ectt-1200">i=1,n</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">x(i)=DSQRT(DBLE(21.0))*(46189*(x(i)**10)-109395*(x(i)**8)+</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">$</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">90090*(x(i)**6)-30030*(x(i)**4)+3465*(x(i)**2)-63)/256</span>
&#x00A0;<br />&#x00A0;<span 
class="ectt-1200">10</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CONTINUE</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">RETURN</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">END</span>
   </div>
<!--l. 454--><p class="indent">   <span 
class="ecbx-1200">Programme H1isa.f</span> </p><div class="verbatiminput">
<span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Debut-Commentaires</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Nom</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">la</span>&#x00A0;<span 
class="ectt-1200">sous-routine:</span>&#x00A0;<span 
class="ectt-1200">H1isa</span>

&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Entrees:</span>&#x00A0;<span 
class="ectt-1200">n</span>&#x00A0;<span 
class="ectt-1200">entier,</span>&#x00A0;<span 
class="ectt-1200">longueur</span>&#x00A0;<span 
class="ectt-1200">du</span>&#x00A0;<span 
class="ectt-1200">vecteur</span>&#x00A0;<span 
class="ectt-1200">x</span>&#x00A0;<span 
class="ectt-1200">;</span>&#x00A0;<span 
class="ectt-1200">x,</span>&#x00A0;<span 
class="ectt-1200">un</span>&#x00A0;<span 
class="ectt-1200">vecteur</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">n</span>&#x00A0;<span 
class="ectt-1200">nombres</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">type</span>&#x00A0;<span 
class="ectt-1200">double</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Sorties:</span>&#x00A0;<span 
class="ectt-1200">void</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Description:</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Calcul</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">H1isa(x),</span>&#x00A0;<span 
class="ectt-1200">H1isa</span>&#x00A0;<span 
class="ectt-1200">etant</span>&#x00A0;<span 
class="ectt-1200">le</span>&#x00A0;<span 
class="ectt-1200">premier</span>&#x00A0;<span 
class="ectt-1200">polynome</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">Legendre</span>&#x00A0;<span 
class="ectt-1200">modifie</span>&#x00A0;<span 
class="ectt-1200">d&#x2019;isabelle</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Modifie</span>&#x00A0;<span 
class="ectt-1200">le</span>&#x00A0;<span 
class="ectt-1200">vecteur</span>&#x00A0;<span 
class="ectt-1200">x</span>&#x00A0;<span 
class="ectt-1200">dans</span>&#x00A0;<span 
class="ectt-1200">le</span>&#x00A0;<span 
class="ectt-1200">programme</span>&#x00A0;<span 
class="ectt-1200">principal,</span>&#x00A0;<span 
class="ectt-1200">en</span>&#x00A0;<span 
class="ectt-1200">le</span>&#x00A0;<span 
class="ectt-1200">remplacant</span>&#x00A0;<span 
class="ectt-1200">par</span>&#x00A0;<span 
class="ectt-1200">H1isa(x)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Utilisation</span>&#x00A0;<span 
class="ectt-1200">dans</span>&#x00A0;<span 
class="ectt-1200">une</span>&#x00A0;<span 
class="ectt-1200">fonction</span>&#x00A0;<span 
class="ectt-1200">main:</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">-------------------------------------</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PROGRAM</span>&#x00A0;<span 
class="ectt-1200">main</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">n,</span>&#x00A0;<span 
class="ectt-1200">i</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">longueur</span>&#x00A0;<span 
class="ectt-1200">du</span>&#x00A0;<span 
class="ectt-1200">vecteur</span>&#x00A0;<span 
class="ectt-1200">x,</span>&#x00A0;<span 
class="ectt-1200">a</span>&#x00A0;<span 
class="ectt-1200">modifier</span>&#x00A0;<span 
class="ectt-1200">dans</span>&#x00A0;<span 
class="ectt-1200">le</span>&#x00A0;<span 
class="ectt-1200">programme</span>&#x00A0;<span 
class="ectt-1200">principal</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(n=3)</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">initialisation</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">x,</span>&#x00A0;<span 
class="ectt-1200">y</span>&#x00A0;<span 
class="ectt-1200">et</span>&#x00A0;<span 
class="ectt-1200">xavant</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">x(n),</span>&#x00A0;<span 
class="ectt-1200">y(n),</span>&#x00A0;<span 
class="ectt-1200">xavant(n)</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">affectation</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">valeurs</span>&#x00A0;<span 
class="ectt-1200">a</span>&#x00A0;<span 
class="ectt-1200">x</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">x(1)=1</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">x(2)=2</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">x(3)=3</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">On</span>&#x00A0;<span 
class="ectt-1200">sauvegarde</span>&#x00A0;<span 
class="ectt-1200">les</span>&#x00A0;<span 
class="ectt-1200">valeurs</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">x</span>&#x00A0;<span 
class="ectt-1200">dans</span>&#x00A0;<span 
class="ectt-1200">xavant</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DO</span>&#x00A0;<span 
class="ectt-1200">10,</span>&#x00A0;<span 
class="ectt-1200">i=1,n</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">xavant(i)=x(i)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">10</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CONTINUE</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">calcul</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">H1isa(x),</span>&#x00A0;<span 
class="ectt-1200">remplace</span>&#x00A0;<span 
class="ectt-1200">x</span>&#x00A0;<span 
class="ectt-1200">par</span>&#x00A0;<span 
class="ectt-1200">H1isa(x)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CALL</span>&#x00A0;<span 
class="ectt-1200">H1isa(n,x)</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">affecte</span>&#x00A0;<span 
class="ectt-1200">a</span>&#x00A0;<span 
class="ectt-1200">y</span>&#x00A0;<span 
class="ectt-1200">le</span>&#x00A0;<span 
class="ectt-1200">resultat</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DO</span>&#x00A0;<span 
class="ectt-1200">20,</span>&#x00A0;<span 
class="ectt-1200">i=1,n</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">y(i)=x(i)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">20</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CONTINUE</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">remet</span>&#x00A0;<span 
class="ectt-1200">les</span>&#x00A0;<span 
class="ectt-1200">bonnes</span>&#x00A0;<span 
class="ectt-1200">valeurs</span>&#x00A0;<span 
class="ectt-1200">dans</span>&#x00A0;<span 
class="ectt-1200">x</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">affecte</span>&#x00A0;<span 
class="ectt-1200">a</span>&#x00A0;<span 
class="ectt-1200">y</span>&#x00A0;<span 
class="ectt-1200">le</span>&#x00A0;<span 
class="ectt-1200">resultat</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DO</span>&#x00A0;<span 
class="ectt-1200">30,</span>&#x00A0;<span 
class="ectt-1200">i=1,n</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">x(i)=xavant(i)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">30</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CONTINUE</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Affichage</span>&#x00A0;<span 
class="ectt-1200">des</span>&#x00A0;<span 
class="ectt-1200">valeurs</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">y=H1isa(x)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(UNIT=6,FMT=*)</span>&#x00A0;<span 
class="ectt-1200">&#x2019;Affichage</span>&#x00A0;<span 
class="ectt-1200">des</span>&#x00A0;<span 
class="ectt-1200">valeurs</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">y&#x2019;</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(UNIT=6,FMT=*)</span>&#x00A0;<span 
class="ectt-1200">y</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Affichage</span>&#x00A0;<span 
class="ectt-1200">des</span>&#x00A0;<span 
class="ectt-1200">valeurs</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">x</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(UNIT=6,FMT=*)</span>&#x00A0;<span 
class="ectt-1200">&#x2019;Affichage</span>&#x00A0;<span 
class="ectt-1200">des</span>&#x00A0;<span 
class="ectt-1200">valeurs</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">x&#x2019;</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(UNIT=6,FMT=*)</span>&#x00A0;<span 
class="ectt-1200">x</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">END</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">-------------------------------------</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Instructions</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">compilation:</span>&#x00A0;<span 
class="ectt-1200">alias</span>&#x00A0;<span 
class="ectt-1200">f77=&#x2019;fort77&#x2019;</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">f77</span>&#x00A0;<span 
class="ectt-1200">-c</span>&#x00A0;<span 
class="ectt-1200">nom_du_fichier_contenant_la_fonction_main.f</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">f77</span>&#x00A0;<span 
class="ectt-1200">-c</span>&#x00A0;<span 
class="ectt-1200">H1isa.f</span>

&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">f77</span>&#x00A0;<span 
class="ectt-1200">nom_du_fichier_contenant_la_fonction_main.o</span>&#x00A0;<span 
class="ectt-1200">H1isa.o</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Fonctions</span>&#x00A0;<span 
class="ectt-1200">exterieures</span>&#x00A0;<span 
class="ectt-1200">appelees:</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Auteur:</span>&#x00A0;<span 
class="ectt-1200">Pierre</span>&#x00A0;<span 
class="ectt-1200">Lafaye</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">Micheaux</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Date:</span>&#x00A0;<span 
class="ectt-1200">15/02/2001</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Fin-Commentaires</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">SUBROUTINE</span>&#x00A0;<span 
class="ectt-1200">H1isa</span>&#x00A0;<span 
class="ectt-1200">(n,x)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">n,i</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">x(n)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DO</span>&#x00A0;<span 
class="ectt-1200">10,</span>&#x00A0;<span 
class="ectt-1200">i=1,n</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">x(i)=8.158591774*x(i)</span>
&#x00A0;<br />&#x00A0;<span 
class="ectt-1200">10</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CONTINUE</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">RETURN</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">END</span>
   </div>
<!--l. 458--><p class="indent">   <span 
class="ecbx-1200">Programme H2isa.f</span> </p><div class="verbatiminput">
<span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Debut-Commentaires</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Nom</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">la</span>&#x00A0;<span 
class="ectt-1200">sous-routine:</span>&#x00A0;<span 
class="ectt-1200">H2isa</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Entrees:</span>&#x00A0;<span 
class="ectt-1200">n</span>&#x00A0;<span 
class="ectt-1200">entier,</span>&#x00A0;<span 
class="ectt-1200">longueur</span>&#x00A0;<span 
class="ectt-1200">du</span>&#x00A0;<span 
class="ectt-1200">vecteur</span>&#x00A0;<span 
class="ectt-1200">x</span>&#x00A0;<span 
class="ectt-1200">;</span>&#x00A0;<span 
class="ectt-1200">x,</span>&#x00A0;<span 
class="ectt-1200">un</span>&#x00A0;<span 
class="ectt-1200">vecteur</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">n</span>&#x00A0;<span 
class="ectt-1200">nombres</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">type</span>&#x00A0;<span 
class="ectt-1200">double</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Sorties:</span>&#x00A0;<span 
class="ectt-1200">void</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Description:</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Calcul</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">H2isa(x),</span>&#x00A0;<span 
class="ectt-1200">H2isa</span>&#x00A0;<span 
class="ectt-1200">etant</span>&#x00A0;<span 
class="ectt-1200">le</span>&#x00A0;<span 
class="ectt-1200">deuxieme</span>&#x00A0;<span 
class="ectt-1200">polynome</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">Legendre</span>&#x00A0;<span 
class="ectt-1200">modifie</span>&#x00A0;<span 
class="ectt-1200">d&#x2019;isabelle</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Modifie</span>&#x00A0;<span 
class="ectt-1200">le</span>&#x00A0;<span 
class="ectt-1200">vecteur</span>&#x00A0;<span 
class="ectt-1200">x</span>&#x00A0;<span 
class="ectt-1200">dans</span>&#x00A0;<span 
class="ectt-1200">le</span>&#x00A0;<span 
class="ectt-1200">programme</span>&#x00A0;<span 
class="ectt-1200">principal,</span>&#x00A0;<span 
class="ectt-1200">en</span>&#x00A0;<span 
class="ectt-1200">le</span>&#x00A0;<span 
class="ectt-1200">remplacant</span>&#x00A0;<span 
class="ectt-1200">par</span>&#x00A0;<span 
class="ectt-1200">H2isa(x)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Utilisation</span>&#x00A0;<span 
class="ectt-1200">dans</span>&#x00A0;<span 
class="ectt-1200">une</span>&#x00A0;<span 
class="ectt-1200">fonction</span>&#x00A0;<span 
class="ectt-1200">main:</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">-------------------------------------</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PROGRAM</span>&#x00A0;<span 
class="ectt-1200">main</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">n,</span>&#x00A0;<span 
class="ectt-1200">i</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">longueur</span>&#x00A0;<span 
class="ectt-1200">du</span>&#x00A0;<span 
class="ectt-1200">vecteur</span>&#x00A0;<span 
class="ectt-1200">x,</span>&#x00A0;<span 
class="ectt-1200">a</span>&#x00A0;<span 
class="ectt-1200">modifier</span>&#x00A0;<span 
class="ectt-1200">dans</span>&#x00A0;<span 
class="ectt-1200">le</span>&#x00A0;<span 
class="ectt-1200">programme</span>&#x00A0;<span 
class="ectt-1200">principal</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(n=3)</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">initialisation</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">x,</span>&#x00A0;<span 
class="ectt-1200">y</span>&#x00A0;<span 
class="ectt-1200">et</span>&#x00A0;<span 
class="ectt-1200">xavant</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">x(n),</span>&#x00A0;<span 
class="ectt-1200">y(n),</span>&#x00A0;<span 
class="ectt-1200">xavant(n)</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">affectation</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">valeurs</span>&#x00A0;<span 
class="ectt-1200">a</span>&#x00A0;<span 
class="ectt-1200">x</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">x(1)=1</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">x(2)=2</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">x(3)=3</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">On</span>&#x00A0;<span 
class="ectt-1200">sauvegarde</span>&#x00A0;<span 
class="ectt-1200">les</span>&#x00A0;<span 
class="ectt-1200">valeurs</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">x</span>&#x00A0;<span 
class="ectt-1200">dans</span>&#x00A0;<span 
class="ectt-1200">xavant</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DO</span>&#x00A0;<span 
class="ectt-1200">10,</span>&#x00A0;<span 
class="ectt-1200">i=1,n</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">xavant(i)=x(i)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">10</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CONTINUE</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">calcul</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">H2isa(x),</span>&#x00A0;<span 
class="ectt-1200">remplace</span>&#x00A0;<span 
class="ectt-1200">x</span>&#x00A0;<span 
class="ectt-1200">par</span>&#x00A0;<span 
class="ectt-1200">H2isa(x)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CALL</span>&#x00A0;<span 
class="ectt-1200">H2isa(n,x)</span>

&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">affecte</span>&#x00A0;<span 
class="ectt-1200">a</span>&#x00A0;<span 
class="ectt-1200">y</span>&#x00A0;<span 
class="ectt-1200">le</span>&#x00A0;<span 
class="ectt-1200">resultat</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DO</span>&#x00A0;<span 
class="ectt-1200">20,</span>&#x00A0;<span 
class="ectt-1200">i=1,n</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">y(i)=x(i)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">20</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CONTINUE</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">remet</span>&#x00A0;<span 
class="ectt-1200">les</span>&#x00A0;<span 
class="ectt-1200">bonnes</span>&#x00A0;<span 
class="ectt-1200">valeurs</span>&#x00A0;<span 
class="ectt-1200">dans</span>&#x00A0;<span 
class="ectt-1200">x</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">affecte</span>&#x00A0;<span 
class="ectt-1200">a</span>&#x00A0;<span 
class="ectt-1200">y</span>&#x00A0;<span 
class="ectt-1200">le</span>&#x00A0;<span 
class="ectt-1200">resultat</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DO</span>&#x00A0;<span 
class="ectt-1200">30,</span>&#x00A0;<span 
class="ectt-1200">i=1,n</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">x(i)=xavant(i)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">30</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CONTINUE</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Affichage</span>&#x00A0;<span 
class="ectt-1200">des</span>&#x00A0;<span 
class="ectt-1200">valeurs</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">y=H2isa(x)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(UNIT=6,FMT=*)</span>&#x00A0;<span 
class="ectt-1200">&#x2019;Affichage</span>&#x00A0;<span 
class="ectt-1200">des</span>&#x00A0;<span 
class="ectt-1200">valeurs</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">y&#x2019;</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(UNIT=6,FMT=*)</span>&#x00A0;<span 
class="ectt-1200">y</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Affichage</span>&#x00A0;<span 
class="ectt-1200">des</span>&#x00A0;<span 
class="ectt-1200">valeurs</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">x</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(UNIT=6,FMT=*)</span>&#x00A0;<span 
class="ectt-1200">&#x2019;Affichage</span>&#x00A0;<span 
class="ectt-1200">des</span>&#x00A0;<span 
class="ectt-1200">valeurs</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">x&#x2019;</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(UNIT=6,FMT=*)</span>&#x00A0;<span 
class="ectt-1200">x</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">END</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">-------------------------------------</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Instructions</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">compilation:</span>&#x00A0;<span 
class="ectt-1200">alias</span>&#x00A0;<span 
class="ectt-1200">f77=&#x2019;fort77&#x2019;</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">f77</span>&#x00A0;<span 
class="ectt-1200">-c</span>&#x00A0;<span 
class="ectt-1200">nom_du_fichier_contenant_la_fonction_main.f</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">f77</span>&#x00A0;<span 
class="ectt-1200">-c</span>&#x00A0;<span 
class="ectt-1200">H2isa.f</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">f77</span>&#x00A0;<span 
class="ectt-1200">nom_du_fichier_contenant_la_fonction_main.o</span>&#x00A0;<span 
class="ectt-1200">H2isa.o</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Fonctions</span>&#x00A0;<span 
class="ectt-1200">exterieures</span>&#x00A0;<span 
class="ectt-1200">appelees:</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Auteur:</span>&#x00A0;<span 
class="ectt-1200">Pierre</span>&#x00A0;<span 
class="ectt-1200">Lafaye</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">Micheaux</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Date:</span>&#x00A0;<span 
class="ectt-1200">15/02/2001</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Fin-Commentaires</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">SUBROUTINE</span>&#x00A0;<span 
class="ectt-1200">H2isa</span>&#x00A0;<span 
class="ectt-1200">(n,x)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">n,i</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">x(n)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DO</span>&#x00A0;<span 
class="ectt-1200">10,</span>&#x00A0;<span 
class="ectt-1200">i=1,n</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">x(i)=-2.2817442+6.845232601*(x(i)**2)</span>
&#x00A0;<br />&#x00A0;<span 
class="ectt-1200">10</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CONTINUE</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">RETURN</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">END</span>
   </div>
<!--l. 462--><p class="indent">   <span 
class="ecbx-1200">Programme H3isa.f</span> </p><div class="verbatiminput">
<span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Debut-Commentaires</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Nom</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">la</span>&#x00A0;<span 
class="ectt-1200">sous-routine:</span>&#x00A0;<span 
class="ectt-1200">H3isa</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Entrees:</span>&#x00A0;<span 
class="ectt-1200">n</span>&#x00A0;<span 
class="ectt-1200">entier,</span>&#x00A0;<span 
class="ectt-1200">longueur</span>&#x00A0;<span 
class="ectt-1200">du</span>&#x00A0;<span 
class="ectt-1200">vecteur</span>&#x00A0;<span 
class="ectt-1200">x</span>&#x00A0;<span 
class="ectt-1200">;</span>&#x00A0;<span 
class="ectt-1200">x,</span>&#x00A0;<span 
class="ectt-1200">un</span>&#x00A0;<span 
class="ectt-1200">vecteur</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">n</span>&#x00A0;<span 
class="ectt-1200">nombres</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">type</span>&#x00A0;<span 
class="ectt-1200">double</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Sorties:</span>&#x00A0;<span 
class="ectt-1200">void</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Description:</span>

&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Calcul</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">H3isa(x),</span>&#x00A0;<span 
class="ectt-1200">H3isa</span>&#x00A0;<span 
class="ectt-1200">etant</span>&#x00A0;<span 
class="ectt-1200">le</span>&#x00A0;<span 
class="ectt-1200">troisieme</span>&#x00A0;<span 
class="ectt-1200">polynome</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">Legendre</span>&#x00A0;<span 
class="ectt-1200">modifie</span>&#x00A0;<span 
class="ectt-1200">d&#x2019;isabelle</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Modifie</span>&#x00A0;<span 
class="ectt-1200">le</span>&#x00A0;<span 
class="ectt-1200">vecteur</span>&#x00A0;<span 
class="ectt-1200">x</span>&#x00A0;<span 
class="ectt-1200">dans</span>&#x00A0;<span 
class="ectt-1200">le</span>&#x00A0;<span 
class="ectt-1200">programme</span>&#x00A0;<span 
class="ectt-1200">principal,</span>&#x00A0;<span 
class="ectt-1200">en</span>&#x00A0;<span 
class="ectt-1200">le</span>&#x00A0;<span 
class="ectt-1200">remplacant</span>&#x00A0;<span 
class="ectt-1200">par</span>&#x00A0;<span 
class="ectt-1200">H3isa(x)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Utilisation</span>&#x00A0;<span 
class="ectt-1200">dans</span>&#x00A0;<span 
class="ectt-1200">une</span>&#x00A0;<span 
class="ectt-1200">fonction</span>&#x00A0;<span 
class="ectt-1200">main:</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">-------------------------------------</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PROGRAM</span>&#x00A0;<span 
class="ectt-1200">main</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">n,</span>&#x00A0;<span 
class="ectt-1200">i</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">longueur</span>&#x00A0;<span 
class="ectt-1200">du</span>&#x00A0;<span 
class="ectt-1200">vecteur</span>&#x00A0;<span 
class="ectt-1200">x,</span>&#x00A0;<span 
class="ectt-1200">a</span>&#x00A0;<span 
class="ectt-1200">modifier</span>&#x00A0;<span 
class="ectt-1200">dans</span>&#x00A0;<span 
class="ectt-1200">le</span>&#x00A0;<span 
class="ectt-1200">programme</span>&#x00A0;<span 
class="ectt-1200">principal</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(n=3)</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">initialisation</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">x,</span>&#x00A0;<span 
class="ectt-1200">y</span>&#x00A0;<span 
class="ectt-1200">et</span>&#x00A0;<span 
class="ectt-1200">xavant</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">x(n),</span>&#x00A0;<span 
class="ectt-1200">y(n),</span>&#x00A0;<span 
class="ectt-1200">xavant(n)</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">affectation</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">valeurs</span>&#x00A0;<span 
class="ectt-1200">a</span>&#x00A0;<span 
class="ectt-1200">x</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">x(1)=1</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">x(2)=2</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">x(3)=3</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">On</span>&#x00A0;<span 
class="ectt-1200">sauvegarde</span>&#x00A0;<span 
class="ectt-1200">les</span>&#x00A0;<span 
class="ectt-1200">valeurs</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">x</span>&#x00A0;<span 
class="ectt-1200">dans</span>&#x00A0;<span 
class="ectt-1200">xavant</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DO</span>&#x00A0;<span 
class="ectt-1200">10,</span>&#x00A0;<span 
class="ectt-1200">i=1,n</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">xavant(i)=x(i)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">10</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CONTINUE</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">calcul</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">H3isa(x),</span>&#x00A0;<span 
class="ectt-1200">remplace</span>&#x00A0;<span 
class="ectt-1200">x</span>&#x00A0;<span 
class="ectt-1200">par</span>&#x00A0;<span 
class="ectt-1200">H3isa(x)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CALL</span>&#x00A0;<span 
class="ectt-1200">H3isa(n,x)</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">affecte</span>&#x00A0;<span 
class="ectt-1200">a</span>&#x00A0;<span 
class="ectt-1200">y</span>&#x00A0;<span 
class="ectt-1200">le</span>&#x00A0;<span 
class="ectt-1200">resultat</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DO</span>&#x00A0;<span 
class="ectt-1200">20,</span>&#x00A0;<span 
class="ectt-1200">i=1,n</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">y(i)=x(i)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">20</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CONTINUE</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">remet</span>&#x00A0;<span 
class="ectt-1200">les</span>&#x00A0;<span 
class="ectt-1200">bonnes</span>&#x00A0;<span 
class="ectt-1200">valeurs</span>&#x00A0;<span 
class="ectt-1200">dans</span>&#x00A0;<span 
class="ectt-1200">x</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">affecte</span>&#x00A0;<span 
class="ectt-1200">a</span>&#x00A0;<span 
class="ectt-1200">y</span>&#x00A0;<span 
class="ectt-1200">le</span>&#x00A0;<span 
class="ectt-1200">resultat</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DO</span>&#x00A0;<span 
class="ectt-1200">30,</span>&#x00A0;<span 
class="ectt-1200">i=1,n</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">x(i)=xavant(i)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">30</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CONTINUE</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Affichage</span>&#x00A0;<span 
class="ectt-1200">des</span>&#x00A0;<span 
class="ectt-1200">valeurs</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">y=H3isa(x)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(UNIT=6,FMT=*)</span>&#x00A0;<span 
class="ectt-1200">&#x2019;Affichage</span>&#x00A0;<span 
class="ectt-1200">des</span>&#x00A0;<span 
class="ectt-1200">valeurs</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">y&#x2019;</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(UNIT=6,FMT=*)</span>&#x00A0;<span 
class="ectt-1200">y</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Affichage</span>&#x00A0;<span 
class="ectt-1200">des</span>&#x00A0;<span 
class="ectt-1200">valeurs</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">x</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(UNIT=6,FMT=*)</span>&#x00A0;<span 
class="ectt-1200">&#x2019;Affichage</span>&#x00A0;<span 
class="ectt-1200">des</span>&#x00A0;<span 
class="ectt-1200">valeurs</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">x&#x2019;</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(UNIT=6,FMT=*)</span>&#x00A0;<span 
class="ectt-1200">x</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">END</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">-------------------------------------</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Instructions</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">compilation:</span>&#x00A0;<span 
class="ectt-1200">alias</span>&#x00A0;<span 
class="ectt-1200">f77=&#x2019;fort77&#x2019;</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">f77</span>&#x00A0;<span 
class="ectt-1200">-c</span>&#x00A0;<span 
class="ectt-1200">nom_du_fichier_contenant_la_fonction_main.f</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">f77</span>&#x00A0;<span 
class="ectt-1200">-c</span>&#x00A0;<span 
class="ectt-1200">H3isa.f</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">f77</span>&#x00A0;<span 
class="ectt-1200">nom_du_fichier_contenant_la_fonction_main.o</span>&#x00A0;<span 
class="ectt-1200">H3isa.o</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Fonctions</span>&#x00A0;<span 
class="ectt-1200">exterieures</span>&#x00A0;<span 
class="ectt-1200">appelees:</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Auteur:</span>&#x00A0;<span 
class="ectt-1200">Pierre</span>&#x00A0;<span 
class="ectt-1200">Lafaye</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">Micheaux</span>

&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Date:</span>&#x00A0;<span 
class="ectt-1200">15/02/2001</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Fin-Commentaires</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">SUBROUTINE</span>&#x00A0;<span 
class="ectt-1200">H3isa</span>&#x00A0;<span 
class="ectt-1200">(n,x)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">n,i</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">x(n)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DO</span>&#x00A0;<span 
class="ectt-1200">10,</span>&#x00A0;<span 
class="ectt-1200">i=1,n</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">x(i)=5.729636522*x(i)+13.050032*(x(i)**3)</span>
&#x00A0;<br />&#x00A0;<span 
class="ectt-1200">10</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CONTINUE</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">RETURN</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">END</span>
   </div>
<!--l. 466--><p class="indent">   <span 
class="ecbx-1200">Programme H4isa.f</span> </p><div class="verbatiminput">
<span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Debut-Commentaires</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Nom</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">la</span>&#x00A0;<span 
class="ectt-1200">sous-routine:</span>&#x00A0;<span 
class="ectt-1200">H4isa</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Entrees:</span>&#x00A0;<span 
class="ectt-1200">n</span>&#x00A0;<span 
class="ectt-1200">entier,</span>&#x00A0;<span 
class="ectt-1200">longueur</span>&#x00A0;<span 
class="ectt-1200">du</span>&#x00A0;<span 
class="ectt-1200">vecteur</span>&#x00A0;<span 
class="ectt-1200">x</span>&#x00A0;<span 
class="ectt-1200">;</span>&#x00A0;<span 
class="ectt-1200">x,</span>&#x00A0;<span 
class="ectt-1200">un</span>&#x00A0;<span 
class="ectt-1200">vecteur</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">n</span>&#x00A0;<span 
class="ectt-1200">nombres</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">type</span>&#x00A0;<span 
class="ectt-1200">double</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Sorties:</span>&#x00A0;<span 
class="ectt-1200">void</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Description:</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Calcul</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">H4isa(x),</span>&#x00A0;<span 
class="ectt-1200">H4isa</span>&#x00A0;<span 
class="ectt-1200">etant</span>&#x00A0;<span 
class="ectt-1200">le</span>&#x00A0;<span 
class="ectt-1200">quatrieme</span>&#x00A0;<span 
class="ectt-1200">polynome</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">Legendre</span>&#x00A0;<span 
class="ectt-1200">modifie</span>&#x00A0;<span 
class="ectt-1200">d&#x2019;isabelle</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Modifie</span>&#x00A0;<span 
class="ectt-1200">le</span>&#x00A0;<span 
class="ectt-1200">vecteur</span>&#x00A0;<span 
class="ectt-1200">x</span>&#x00A0;<span 
class="ectt-1200">dans</span>&#x00A0;<span 
class="ectt-1200">le</span>&#x00A0;<span 
class="ectt-1200">programme</span>&#x00A0;<span 
class="ectt-1200">principal,</span>&#x00A0;<span 
class="ectt-1200">en</span>&#x00A0;<span 
class="ectt-1200">le</span>&#x00A0;<span 
class="ectt-1200">remplacant</span>&#x00A0;<span 
class="ectt-1200">par</span>&#x00A0;<span 
class="ectt-1200">H4isa(x)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Utilisation</span>&#x00A0;<span 
class="ectt-1200">dans</span>&#x00A0;<span 
class="ectt-1200">une</span>&#x00A0;<span 
class="ectt-1200">fonction</span>&#x00A0;<span 
class="ectt-1200">main:</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">-------------------------------------</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PROGRAM</span>&#x00A0;<span 
class="ectt-1200">main</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">n,</span>&#x00A0;<span 
class="ectt-1200">i</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">longueur</span>&#x00A0;<span 
class="ectt-1200">du</span>&#x00A0;<span 
class="ectt-1200">vecteur</span>&#x00A0;<span 
class="ectt-1200">x,</span>&#x00A0;<span 
class="ectt-1200">a</span>&#x00A0;<span 
class="ectt-1200">modifier</span>&#x00A0;<span 
class="ectt-1200">dans</span>&#x00A0;<span 
class="ectt-1200">le</span>&#x00A0;<span 
class="ectt-1200">programme</span>&#x00A0;<span 
class="ectt-1200">principal</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(n=3)</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">initialisation</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">x,</span>&#x00A0;<span 
class="ectt-1200">y</span>&#x00A0;<span 
class="ectt-1200">et</span>&#x00A0;<span 
class="ectt-1200">xavant</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">x(n),</span>&#x00A0;<span 
class="ectt-1200">y(n),</span>&#x00A0;<span 
class="ectt-1200">xavant(n)</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">affectation</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">valeurs</span>&#x00A0;<span 
class="ectt-1200">a</span>&#x00A0;<span 
class="ectt-1200">x</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">x(1)=1</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">x(2)=2</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">x(3)=3</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">On</span>&#x00A0;<span 
class="ectt-1200">sauvegarde</span>&#x00A0;<span 
class="ectt-1200">les</span>&#x00A0;<span 
class="ectt-1200">valeurs</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">x</span>&#x00A0;<span 
class="ectt-1200">dans</span>&#x00A0;<span 
class="ectt-1200">xavant</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DO</span>&#x00A0;<span 
class="ectt-1200">10,</span>&#x00A0;<span 
class="ectt-1200">i=1,n</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">xavant(i)=x(i)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">10</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CONTINUE</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">calcul</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">H4isa(x),</span>&#x00A0;<span 
class="ectt-1200">remplace</span>&#x00A0;<span 
class="ectt-1200">x</span>&#x00A0;<span 
class="ectt-1200">par</span>&#x00A0;<span 
class="ectt-1200">H4isa(x)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CALL</span>&#x00A0;<span 
class="ectt-1200">H4isa(n,x)</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">affecte</span>&#x00A0;<span 
class="ectt-1200">a</span>&#x00A0;<span 
class="ectt-1200">y</span>&#x00A0;<span 
class="ectt-1200">le</span>&#x00A0;<span 
class="ectt-1200">resultat</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DO</span>&#x00A0;<span 
class="ectt-1200">20,</span>&#x00A0;<span 
class="ectt-1200">i=1,n</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">y(i)=x(i)</span>

&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">20</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CONTINUE</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">remet</span>&#x00A0;<span 
class="ectt-1200">les</span>&#x00A0;<span 
class="ectt-1200">bonnes</span>&#x00A0;<span 
class="ectt-1200">valeurs</span>&#x00A0;<span 
class="ectt-1200">dans</span>&#x00A0;<span 
class="ectt-1200">x</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">affecte</span>&#x00A0;<span 
class="ectt-1200">a</span>&#x00A0;<span 
class="ectt-1200">y</span>&#x00A0;<span 
class="ectt-1200">le</span>&#x00A0;<span 
class="ectt-1200">resultat</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DO</span>&#x00A0;<span 
class="ectt-1200">30,</span>&#x00A0;<span 
class="ectt-1200">i=1,n</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">x(i)=xavant(i)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">30</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CONTINUE</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Affichage</span>&#x00A0;<span 
class="ectt-1200">des</span>&#x00A0;<span 
class="ectt-1200">valeurs</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">y=H4isa(x)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(UNIT=6,FMT=*)</span>&#x00A0;<span 
class="ectt-1200">&#x2019;Affichage</span>&#x00A0;<span 
class="ectt-1200">des</span>&#x00A0;<span 
class="ectt-1200">valeurs</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">y&#x2019;</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(UNIT=6,FMT=*)</span>&#x00A0;<span 
class="ectt-1200">y</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Affichage</span>&#x00A0;<span 
class="ectt-1200">des</span>&#x00A0;<span 
class="ectt-1200">valeurs</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">x</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(UNIT=6,FMT=*)</span>&#x00A0;<span 
class="ectt-1200">&#x2019;Affichage</span>&#x00A0;<span 
class="ectt-1200">des</span>&#x00A0;<span 
class="ectt-1200">valeurs</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">x&#x2019;</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(UNIT=6,FMT=*)</span>&#x00A0;<span 
class="ectt-1200">x</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">END</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">-------------------------------------</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Instructions</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">compilation:</span>&#x00A0;<span 
class="ectt-1200">alias</span>&#x00A0;<span 
class="ectt-1200">f77=&#x2019;fort77&#x2019;</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">f77</span>&#x00A0;<span 
class="ectt-1200">-c</span>&#x00A0;<span 
class="ectt-1200">nom_du_fichier_contenant_la_fonction_main.f</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">f77</span>&#x00A0;<span 
class="ectt-1200">-c</span>&#x00A0;<span 
class="ectt-1200">H4isa.f</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">f77</span>&#x00A0;<span 
class="ectt-1200">nom_du_fichier_contenant_la_fonction_main.o</span>&#x00A0;<span 
class="ectt-1200">H4isa.o</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Fonctions</span>&#x00A0;<span 
class="ectt-1200">exterieures</span>&#x00A0;<span 
class="ectt-1200">appelees:</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Auteur:</span>&#x00A0;<span 
class="ectt-1200">Pierre</span>&#x00A0;<span 
class="ectt-1200">Lafaye</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">Micheaux</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Date:</span>&#x00A0;<span 
class="ectt-1200">15/02/2001</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Fin-Commentaires</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">SUBROUTINE</span>&#x00A0;<span 
class="ectt-1200">H4isa</span>&#x00A0;<span 
class="ectt-1200">(n,x)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">n,i</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">x(n)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DO</span>&#x00A0;<span 
class="ectt-1200">10,</span>&#x00A0;<span 
class="ectt-1200">i=1,n</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">x(i)=-0.562632699-10.25980936*(x(i)**2)+19.91284577*(x(i)**4)</span>
&#x00A0;<br />&#x00A0;<span 
class="ectt-1200">10</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CONTINUE</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">RETURN</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">END</span>
   </div>
<!--l. 471--><p class="indent">   <span 
class="ecbx-1200">Programme H5isa.f</span> </p><div class="verbatiminput">
<span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Debut-Commentaires</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Nom</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">la</span>&#x00A0;<span 
class="ectt-1200">sous-routine:</span>&#x00A0;<span 
class="ectt-1200">H5isa</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Entrees:</span>&#x00A0;<span 
class="ectt-1200">n</span>&#x00A0;<span 
class="ectt-1200">entier,</span>&#x00A0;<span 
class="ectt-1200">longueur</span>&#x00A0;<span 
class="ectt-1200">du</span>&#x00A0;<span 
class="ectt-1200">vecteur</span>&#x00A0;<span 
class="ectt-1200">x</span>&#x00A0;<span 
class="ectt-1200">;</span>&#x00A0;<span 
class="ectt-1200">x,</span>&#x00A0;<span 
class="ectt-1200">un</span>&#x00A0;<span 
class="ectt-1200">vecteur</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">n</span>&#x00A0;<span 
class="ectt-1200">nombres</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">type</span>&#x00A0;<span 
class="ectt-1200">double</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Sorties:</span>&#x00A0;<span 
class="ectt-1200">void</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Description:</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Calcul</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">H5isa(x),</span>&#x00A0;<span 
class="ectt-1200">H5isa</span>&#x00A0;<span 
class="ectt-1200">etant</span>&#x00A0;<span 
class="ectt-1200">le</span>&#x00A0;<span 
class="ectt-1200">cinquieme</span>&#x00A0;<span 
class="ectt-1200">polynome</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">Legendre</span>&#x00A0;<span 
class="ectt-1200">modifie</span>&#x00A0;<span 
class="ectt-1200">d&#x2019;isabelle</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Modifie</span>&#x00A0;<span 
class="ectt-1200">le</span>&#x00A0;<span 
class="ectt-1200">vecteur</span>&#x00A0;<span 
class="ectt-1200">x</span>&#x00A0;<span 
class="ectt-1200">dans</span>&#x00A0;<span 
class="ectt-1200">le</span>&#x00A0;<span 
class="ectt-1200">programme</span>&#x00A0;<span 
class="ectt-1200">principal,</span>&#x00A0;<span 
class="ectt-1200">en</span>&#x00A0;<span 
class="ectt-1200">le</span>&#x00A0;<span 
class="ectt-1200">remplacant</span>&#x00A0;<span 
class="ectt-1200">par</span>&#x00A0;<span 
class="ectt-1200">H5isa(x)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Utilisation</span>&#x00A0;<span 
class="ectt-1200">dans</span>&#x00A0;<span 
class="ectt-1200">une</span>&#x00A0;<span 
class="ectt-1200">fonction</span>&#x00A0;<span 
class="ectt-1200">main:</span>

&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">-------------------------------------</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PROGRAM</span>&#x00A0;<span 
class="ectt-1200">main</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">n,</span>&#x00A0;<span 
class="ectt-1200">i</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">longueur</span>&#x00A0;<span 
class="ectt-1200">du</span>&#x00A0;<span 
class="ectt-1200">vecteur</span>&#x00A0;<span 
class="ectt-1200">x,</span>&#x00A0;<span 
class="ectt-1200">a</span>&#x00A0;<span 
class="ectt-1200">modifier</span>&#x00A0;<span 
class="ectt-1200">dans</span>&#x00A0;<span 
class="ectt-1200">le</span>&#x00A0;<span 
class="ectt-1200">programme</span>&#x00A0;<span 
class="ectt-1200">principal</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(n=3)</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">initialisation</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">x,</span>&#x00A0;<span 
class="ectt-1200">y</span>&#x00A0;<span 
class="ectt-1200">et</span>&#x00A0;<span 
class="ectt-1200">xavant</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">x(n),</span>&#x00A0;<span 
class="ectt-1200">y(n),</span>&#x00A0;<span 
class="ectt-1200">xavant(n)</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">affectation</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">valeurs</span>&#x00A0;<span 
class="ectt-1200">a</span>&#x00A0;<span 
class="ectt-1200">x</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">x(1)=1</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">x(2)=2</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">x(3)=3</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">On</span>&#x00A0;<span 
class="ectt-1200">sauvegarde</span>&#x00A0;<span 
class="ectt-1200">les</span>&#x00A0;<span 
class="ectt-1200">valeurs</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">x</span>&#x00A0;<span 
class="ectt-1200">dans</span>&#x00A0;<span 
class="ectt-1200">xavant</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DO</span>&#x00A0;<span 
class="ectt-1200">10,</span>&#x00A0;<span 
class="ectt-1200">i=1,n</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">xavant(i)=x(i)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">10</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CONTINUE</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">calcul</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">H5isa(x),</span>&#x00A0;<span 
class="ectt-1200">remplace</span>&#x00A0;<span 
class="ectt-1200">x</span>&#x00A0;<span 
class="ectt-1200">par</span>&#x00A0;<span 
class="ectt-1200">H5isa(x)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CALL</span>&#x00A0;<span 
class="ectt-1200">H5isa(n,x)</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">affecte</span>&#x00A0;<span 
class="ectt-1200">a</span>&#x00A0;<span 
class="ectt-1200">y</span>&#x00A0;<span 
class="ectt-1200">le</span>&#x00A0;<span 
class="ectt-1200">resultat</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DO</span>&#x00A0;<span 
class="ectt-1200">20,</span>&#x00A0;<span 
class="ectt-1200">i=1,n</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">y(i)=x(i)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">20</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CONTINUE</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">remet</span>&#x00A0;<span 
class="ectt-1200">les</span>&#x00A0;<span 
class="ectt-1200">bonnes</span>&#x00A0;<span 
class="ectt-1200">valeurs</span>&#x00A0;<span 
class="ectt-1200">dans</span>&#x00A0;<span 
class="ectt-1200">x</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">affecte</span>&#x00A0;<span 
class="ectt-1200">a</span>&#x00A0;<span 
class="ectt-1200">y</span>&#x00A0;<span 
class="ectt-1200">le</span>&#x00A0;<span 
class="ectt-1200">resultat</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DO</span>&#x00A0;<span 
class="ectt-1200">30,</span>&#x00A0;<span 
class="ectt-1200">i=1,n</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">x(i)=xavant(i)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">30</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CONTINUE</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Affichage</span>&#x00A0;<span 
class="ectt-1200">des</span>&#x00A0;<span 
class="ectt-1200">valeurs</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">y=H5isa(x)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(UNIT=6,FMT=*)</span>&#x00A0;<span 
class="ectt-1200">&#x2019;Affichage</span>&#x00A0;<span 
class="ectt-1200">des</span>&#x00A0;<span 
class="ectt-1200">valeurs</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">y&#x2019;</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(UNIT=6,FMT=*)</span>&#x00A0;<span 
class="ectt-1200">y</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Affichage</span>&#x00A0;<span 
class="ectt-1200">des</span>&#x00A0;<span 
class="ectt-1200">valeurs</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">x</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(UNIT=6,FMT=*)</span>&#x00A0;<span 
class="ectt-1200">&#x2019;Affichage</span>&#x00A0;<span 
class="ectt-1200">des</span>&#x00A0;<span 
class="ectt-1200">valeurs</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">x&#x2019;</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(UNIT=6,FMT=*)</span>&#x00A0;<span 
class="ectt-1200">x</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">END</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">-------------------------------------</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Instructions</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">compilation:</span>&#x00A0;<span 
class="ectt-1200">alias</span>&#x00A0;<span 
class="ectt-1200">f77=&#x2019;fort77&#x2019;</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">f77</span>&#x00A0;<span 
class="ectt-1200">-c</span>&#x00A0;<span 
class="ectt-1200">nom_du_fichier_contenant_la_fonction_main.f</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">f77</span>&#x00A0;<span 
class="ectt-1200">-c</span>&#x00A0;<span 
class="ectt-1200">H5isa.f</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">f77</span>&#x00A0;<span 
class="ectt-1200">nom_du_fichier_contenant_la_fonction_main.o</span>&#x00A0;<span 
class="ectt-1200">H5isa.o</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Fonctions</span>&#x00A0;<span 
class="ectt-1200">exterieures</span>&#x00A0;<span 
class="ectt-1200">appelees:</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Auteur:</span>&#x00A0;<span 
class="ectt-1200">Pierre</span>&#x00A0;<span 
class="ectt-1200">Lafaye</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">Micheaux</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Date:</span>&#x00A0;<span 
class="ectt-1200">15/02/2001</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Fin-Commentaires</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">SUBROUTINE</span>&#x00A0;<span 
class="ectt-1200">H5isa</span>&#x00A0;<span 
class="ectt-1200">(n,x)</span>

&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">n,i</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">x(n)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DO</span>&#x00A0;<span 
class="ectt-1200">10,</span>&#x00A0;<span 
class="ectt-1200">i=1,n</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">x(i)=20.03273031*x(i)-31.46840914*(x(i)**3)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">$</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">+40.13397202*(x(i)**5)</span>
&#x00A0;<br />&#x00A0;<span 
class="ectt-1200">10</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CONTINUE</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">RETURN</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">END</span>
   </div>
<!--l. 475--><p class="indent">   <span 
class="ecbx-1200">Programme H6isa.f</span> </p><div class="verbatiminput">
<span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Debut-Commentaires</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Nom</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">la</span>&#x00A0;<span 
class="ectt-1200">sous-routine:</span>&#x00A0;<span 
class="ectt-1200">H6isa</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Entrees:</span>&#x00A0;<span 
class="ectt-1200">n</span>&#x00A0;<span 
class="ectt-1200">entier,</span>&#x00A0;<span 
class="ectt-1200">longueur</span>&#x00A0;<span 
class="ectt-1200">du</span>&#x00A0;<span 
class="ectt-1200">vecteur</span>&#x00A0;<span 
class="ectt-1200">x</span>&#x00A0;<span 
class="ectt-1200">;</span>&#x00A0;<span 
class="ectt-1200">x,</span>&#x00A0;<span 
class="ectt-1200">un</span>&#x00A0;<span 
class="ectt-1200">vecteur</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">n</span>&#x00A0;<span 
class="ectt-1200">nombres</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">type</span>&#x00A0;<span 
class="ectt-1200">double</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Sorties:</span>&#x00A0;<span 
class="ectt-1200">void</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Description:</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Calcul</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">H6isa(x),</span>&#x00A0;<span 
class="ectt-1200">H6isa</span>&#x00A0;<span 
class="ectt-1200">etant</span>&#x00A0;<span 
class="ectt-1200">le</span>&#x00A0;<span 
class="ectt-1200">sixieme</span>&#x00A0;<span 
class="ectt-1200">polynome</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">Legendre</span>&#x00A0;<span 
class="ectt-1200">modifie</span>&#x00A0;<span 
class="ectt-1200">d&#x2019;isabelle</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Modifie</span>&#x00A0;<span 
class="ectt-1200">le</span>&#x00A0;<span 
class="ectt-1200">vecteur</span>&#x00A0;<span 
class="ectt-1200">x</span>&#x00A0;<span 
class="ectt-1200">dans</span>&#x00A0;<span 
class="ectt-1200">le</span>&#x00A0;<span 
class="ectt-1200">programme</span>&#x00A0;<span 
class="ectt-1200">principal,</span>&#x00A0;<span 
class="ectt-1200">en</span>&#x00A0;<span 
class="ectt-1200">le</span>&#x00A0;<span 
class="ectt-1200">remplacant</span>&#x00A0;<span 
class="ectt-1200">par</span>&#x00A0;<span 
class="ectt-1200">H6isa(x)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Utilisation</span>&#x00A0;<span 
class="ectt-1200">dans</span>&#x00A0;<span 
class="ectt-1200">une</span>&#x00A0;<span 
class="ectt-1200">fonction</span>&#x00A0;<span 
class="ectt-1200">main:</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">-------------------------------------</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PROGRAM</span>&#x00A0;<span 
class="ectt-1200">main</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">n,</span>&#x00A0;<span 
class="ectt-1200">i</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">longueur</span>&#x00A0;<span 
class="ectt-1200">du</span>&#x00A0;<span 
class="ectt-1200">vecteur</span>&#x00A0;<span 
class="ectt-1200">x,</span>&#x00A0;<span 
class="ectt-1200">a</span>&#x00A0;<span 
class="ectt-1200">modifier</span>&#x00A0;<span 
class="ectt-1200">dans</span>&#x00A0;<span 
class="ectt-1200">le</span>&#x00A0;<span 
class="ectt-1200">programme</span>&#x00A0;<span 
class="ectt-1200">principal</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(n=3)</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">initialisation</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">x,</span>&#x00A0;<span 
class="ectt-1200">y</span>&#x00A0;<span 
class="ectt-1200">et</span>&#x00A0;<span 
class="ectt-1200">xavant</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">x(n),</span>&#x00A0;<span 
class="ectt-1200">y(n),</span>&#x00A0;<span 
class="ectt-1200">xavant(n)</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">affectation</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">valeurs</span>&#x00A0;<span 
class="ectt-1200">a</span>&#x00A0;<span 
class="ectt-1200">x</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">x(1)=1</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">x(2)=2</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">x(3)=3</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">On</span>&#x00A0;<span 
class="ectt-1200">sauvegarde</span>&#x00A0;<span 
class="ectt-1200">les</span>&#x00A0;<span 
class="ectt-1200">valeurs</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">x</span>&#x00A0;<span 
class="ectt-1200">dans</span>&#x00A0;<span 
class="ectt-1200">xavant</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DO</span>&#x00A0;<span 
class="ectt-1200">10,</span>&#x00A0;<span 
class="ectt-1200">i=1,n</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">xavant(i)=x(i)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">10</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CONTINUE</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">calcul</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">H6isa(x),</span>&#x00A0;<span 
class="ectt-1200">remplace</span>&#x00A0;<span 
class="ectt-1200">x</span>&#x00A0;<span 
class="ectt-1200">par</span>&#x00A0;<span 
class="ectt-1200">H6isa(x)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CALL</span>&#x00A0;<span 
class="ectt-1200">H6isa(n,x)</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">affecte</span>&#x00A0;<span 
class="ectt-1200">a</span>&#x00A0;<span 
class="ectt-1200">y</span>&#x00A0;<span 
class="ectt-1200">le</span>&#x00A0;<span 
class="ectt-1200">resultat</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DO</span>&#x00A0;<span 
class="ectt-1200">20,</span>&#x00A0;<span 
class="ectt-1200">i=1,n</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">y(i)=x(i)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">20</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CONTINUE</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">remet</span>&#x00A0;<span 
class="ectt-1200">les</span>&#x00A0;<span 
class="ectt-1200">bonnes</span>&#x00A0;<span 
class="ectt-1200">valeurs</span>&#x00A0;<span 
class="ectt-1200">dans</span>&#x00A0;<span 
class="ectt-1200">x</span>

&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">affecte</span>&#x00A0;<span 
class="ectt-1200">a</span>&#x00A0;<span 
class="ectt-1200">y</span>&#x00A0;<span 
class="ectt-1200">le</span>&#x00A0;<span 
class="ectt-1200">resultat</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DO</span>&#x00A0;<span 
class="ectt-1200">30,</span>&#x00A0;<span 
class="ectt-1200">i=1,n</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">x(i)=xavant(i)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">30</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CONTINUE</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Affichage</span>&#x00A0;<span 
class="ectt-1200">des</span>&#x00A0;<span 
class="ectt-1200">valeurs</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">y=H6isa(x)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(UNIT=6,FMT=*)</span>&#x00A0;<span 
class="ectt-1200">&#x2019;Affichage</span>&#x00A0;<span 
class="ectt-1200">des</span>&#x00A0;<span 
class="ectt-1200">valeurs</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">y&#x2019;</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(UNIT=6,FMT=*)</span>&#x00A0;<span 
class="ectt-1200">y</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Affichage</span>&#x00A0;<span 
class="ectt-1200">des</span>&#x00A0;<span 
class="ectt-1200">valeurs</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">x</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(UNIT=6,FMT=*)</span>&#x00A0;<span 
class="ectt-1200">&#x2019;Affichage</span>&#x00A0;<span 
class="ectt-1200">des</span>&#x00A0;<span 
class="ectt-1200">valeurs</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">x&#x2019;</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(UNIT=6,FMT=*)</span>&#x00A0;<span 
class="ectt-1200">x</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">END</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">-------------------------------------</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Instructions</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">compilation:</span>&#x00A0;<span 
class="ectt-1200">alias</span>&#x00A0;<span 
class="ectt-1200">f77=&#x2019;fort77&#x2019;</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">f77</span>&#x00A0;<span 
class="ectt-1200">-c</span>&#x00A0;<span 
class="ectt-1200">nom_du_fichier_contenant_la_fonction_main.f</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">f77</span>&#x00A0;<span 
class="ectt-1200">-c</span>&#x00A0;<span 
class="ectt-1200">H6isa.f</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">f77</span>&#x00A0;<span 
class="ectt-1200">nom_du_fichier_contenant_la_fonction_main.o</span>&#x00A0;<span 
class="ectt-1200">H6isa.o</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Fonctions</span>&#x00A0;<span 
class="ectt-1200">exterieures</span>&#x00A0;<span 
class="ectt-1200">appelees:</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Auteur:</span>&#x00A0;<span 
class="ectt-1200">Pierre</span>&#x00A0;<span 
class="ectt-1200">Lafaye</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">Micheaux</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Date:</span>&#x00A0;<span 
class="ectt-1200">15/02/2001</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Fin-Commentaires</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">SUBROUTINE</span>&#x00A0;<span 
class="ectt-1200">H6isa</span>&#x00A0;<span 
class="ectt-1200">(n,x)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">n,i</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">x(n)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DO</span>&#x00A0;<span 
class="ectt-1200">10,</span>&#x00A0;<span 
class="ectt-1200">i=1,n</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">x(i)=-3.06324985+28.36318105*(x(i)**2)-81.84483538*(x(i)**4)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">$</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">+69.84318863*(x(i)**6)</span>
&#x00A0;<br />&#x00A0;<span 
class="ectt-1200">10</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CONTINUE</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">RETURN</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">END</span>
   </div>
<!--l. 479--><p class="indent">   <span 
class="ecbx-1200">Programme H7isa.f</span> </p><div class="verbatiminput">
<span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Debut-Commentaires</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Nom</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">la</span>&#x00A0;<span 
class="ectt-1200">sous-routine:</span>&#x00A0;<span 
class="ectt-1200">H7isa</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Entrees:</span>&#x00A0;<span 
class="ectt-1200">n</span>&#x00A0;<span 
class="ectt-1200">entier,</span>&#x00A0;<span 
class="ectt-1200">longueur</span>&#x00A0;<span 
class="ectt-1200">du</span>&#x00A0;<span 
class="ectt-1200">vecteur</span>&#x00A0;<span 
class="ectt-1200">x</span>&#x00A0;<span 
class="ectt-1200">;</span>&#x00A0;<span 
class="ectt-1200">x,</span>&#x00A0;<span 
class="ectt-1200">un</span>&#x00A0;<span 
class="ectt-1200">vecteur</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">n</span>&#x00A0;<span 
class="ectt-1200">nombres</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">type</span>&#x00A0;<span 
class="ectt-1200">double</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Sorties:</span>&#x00A0;<span 
class="ectt-1200">void</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Description:</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Calcul</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">H7isa(x),</span>&#x00A0;<span 
class="ectt-1200">H7isa</span>&#x00A0;<span 
class="ectt-1200">etant</span>&#x00A0;<span 
class="ectt-1200">le</span>&#x00A0;<span 
class="ectt-1200">septieme</span>&#x00A0;<span 
class="ectt-1200">polynome</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">Legendre</span>&#x00A0;<span 
class="ectt-1200">modifie</span>&#x00A0;<span 
class="ectt-1200">d&#x2019;isabelle</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Modifie</span>&#x00A0;<span 
class="ectt-1200">le</span>&#x00A0;<span 
class="ectt-1200">vecteur</span>&#x00A0;<span 
class="ectt-1200">x</span>&#x00A0;<span 
class="ectt-1200">dans</span>&#x00A0;<span 
class="ectt-1200">le</span>&#x00A0;<span 
class="ectt-1200">programme</span>&#x00A0;<span 
class="ectt-1200">principal,</span>&#x00A0;<span 
class="ectt-1200">en</span>&#x00A0;<span 
class="ectt-1200">le</span>&#x00A0;<span 
class="ectt-1200">remplacant</span>&#x00A0;<span 
class="ectt-1200">par</span>&#x00A0;<span 
class="ectt-1200">H7isa(x)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Utilisation</span>&#x00A0;<span 
class="ectt-1200">dans</span>&#x00A0;<span 
class="ectt-1200">une</span>&#x00A0;<span 
class="ectt-1200">fonction</span>&#x00A0;<span 
class="ectt-1200">main:</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">-------------------------------------</span>

&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PROGRAM</span>&#x00A0;<span 
class="ectt-1200">main</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">n,</span>&#x00A0;<span 
class="ectt-1200">i</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">longueur</span>&#x00A0;<span 
class="ectt-1200">du</span>&#x00A0;<span 
class="ectt-1200">vecteur</span>&#x00A0;<span 
class="ectt-1200">x,</span>&#x00A0;<span 
class="ectt-1200">a</span>&#x00A0;<span 
class="ectt-1200">modifier</span>&#x00A0;<span 
class="ectt-1200">dans</span>&#x00A0;<span 
class="ectt-1200">le</span>&#x00A0;<span 
class="ectt-1200">programme</span>&#x00A0;<span 
class="ectt-1200">principal</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(n=3)</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">initialisation</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">x,</span>&#x00A0;<span 
class="ectt-1200">y</span>&#x00A0;<span 
class="ectt-1200">et</span>&#x00A0;<span 
class="ectt-1200">xavant</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">x(n),</span>&#x00A0;<span 
class="ectt-1200">y(n),</span>&#x00A0;<span 
class="ectt-1200">xavant(n)</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">affectation</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">valeurs</span>&#x00A0;<span 
class="ectt-1200">a</span>&#x00A0;<span 
class="ectt-1200">x</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">x(1)=1</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">x(2)=2</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">x(3)=3</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">On</span>&#x00A0;<span 
class="ectt-1200">sauvegarde</span>&#x00A0;<span 
class="ectt-1200">les</span>&#x00A0;<span 
class="ectt-1200">valeurs</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">x</span>&#x00A0;<span 
class="ectt-1200">dans</span>&#x00A0;<span 
class="ectt-1200">xavant</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DO</span>&#x00A0;<span 
class="ectt-1200">10,</span>&#x00A0;<span 
class="ectt-1200">i=1,n</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">xavant(i)=x(i)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">10</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CONTINUE</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">calcul</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">H7isa(x),</span>&#x00A0;<span 
class="ectt-1200">remplace</span>&#x00A0;<span 
class="ectt-1200">x</span>&#x00A0;<span 
class="ectt-1200">par</span>&#x00A0;<span 
class="ectt-1200">H7isa(x)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CALL</span>&#x00A0;<span 
class="ectt-1200">H7isa(n,x)</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">affecte</span>&#x00A0;<span 
class="ectt-1200">a</span>&#x00A0;<span 
class="ectt-1200">y</span>&#x00A0;<span 
class="ectt-1200">le</span>&#x00A0;<span 
class="ectt-1200">resultat</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DO</span>&#x00A0;<span 
class="ectt-1200">20,</span>&#x00A0;<span 
class="ectt-1200">i=1,n</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">y(i)=x(i)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">20</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CONTINUE</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">remet</span>&#x00A0;<span 
class="ectt-1200">les</span>&#x00A0;<span 
class="ectt-1200">bonnes</span>&#x00A0;<span 
class="ectt-1200">valeurs</span>&#x00A0;<span 
class="ectt-1200">dans</span>&#x00A0;<span 
class="ectt-1200">x</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">affecte</span>&#x00A0;<span 
class="ectt-1200">a</span>&#x00A0;<span 
class="ectt-1200">y</span>&#x00A0;<span 
class="ectt-1200">le</span>&#x00A0;<span 
class="ectt-1200">resultat</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DO</span>&#x00A0;<span 
class="ectt-1200">30,</span>&#x00A0;<span 
class="ectt-1200">i=1,n</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">x(i)=xavant(i)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">30</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CONTINUE</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Affichage</span>&#x00A0;<span 
class="ectt-1200">des</span>&#x00A0;<span 
class="ectt-1200">valeurs</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">y=H7isa(x)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(UNIT=6,FMT=*)</span>&#x00A0;<span 
class="ectt-1200">&#x2019;Affichage</span>&#x00A0;<span 
class="ectt-1200">des</span>&#x00A0;<span 
class="ectt-1200">valeurs</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">y&#x2019;</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(UNIT=6,FMT=*)</span>&#x00A0;<span 
class="ectt-1200">y</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Affichage</span>&#x00A0;<span 
class="ectt-1200">des</span>&#x00A0;<span 
class="ectt-1200">valeurs</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">x</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(UNIT=6,FMT=*)</span>&#x00A0;<span 
class="ectt-1200">&#x2019;Affichage</span>&#x00A0;<span 
class="ectt-1200">des</span>&#x00A0;<span 
class="ectt-1200">valeurs</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">x&#x2019;</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(UNIT=6,FMT=*)</span>&#x00A0;<span 
class="ectt-1200">x</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">END</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">-------------------------------------</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Instructions</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">compilation:</span>&#x00A0;<span 
class="ectt-1200">alias</span>&#x00A0;<span 
class="ectt-1200">f77=&#x2019;fort77&#x2019;</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">f77</span>&#x00A0;<span 
class="ectt-1200">-c</span>&#x00A0;<span 
class="ectt-1200">nom_du_fichier_contenant_la_fonction_main.f</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">f77</span>&#x00A0;<span 
class="ectt-1200">-c</span>&#x00A0;<span 
class="ectt-1200">H7isa.f</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">f77</span>&#x00A0;<span 
class="ectt-1200">nom_du_fichier_contenant_la_fonction_main.o</span>&#x00A0;<span 
class="ectt-1200">H7isa.o</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Fonctions</span>&#x00A0;<span 
class="ectt-1200">exterieures</span>&#x00A0;<span 
class="ectt-1200">appelees:</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Auteur:</span>&#x00A0;<span 
class="ectt-1200">Pierre</span>&#x00A0;<span 
class="ectt-1200">Lafaye</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">Micheaux</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Date:</span>&#x00A0;<span 
class="ectt-1200">15/02/2001</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Fin-Commentaires</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">SUBROUTINE</span>&#x00A0;<span 
class="ectt-1200">H7isa</span>&#x00A0;<span 
class="ectt-1200">(n,x)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">n,i</span>

&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">x(n)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DO</span>&#x00A0;<span 
class="ectt-1200">10,</span>&#x00A0;<span 
class="ectt-1200">i=1,n</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">x(i)=8.033523458*(x(i))+88.76807724*(x(i)**3)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">$</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">-200.8654452*(x(i)**5)+141.9167731*(x(i)**7)</span>
&#x00A0;<br />&#x00A0;<span 
class="ectt-1200">10</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CONTINUE</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">RETURN</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">END</span>
   </div>
<!--l. 483--><p class="indent">   <span 
class="ecbx-1200">Programme H8isa.f</span> </p><div class="verbatiminput">
<span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Debut-Commentaires</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Nom</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">la</span>&#x00A0;<span 
class="ectt-1200">sous-routine:</span>&#x00A0;<span 
class="ectt-1200">H8isa</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Entrees:</span>&#x00A0;<span 
class="ectt-1200">n</span>&#x00A0;<span 
class="ectt-1200">entier,</span>&#x00A0;<span 
class="ectt-1200">longueur</span>&#x00A0;<span 
class="ectt-1200">du</span>&#x00A0;<span 
class="ectt-1200">vecteur</span>&#x00A0;<span 
class="ectt-1200">x</span>&#x00A0;<span 
class="ectt-1200">;</span>&#x00A0;<span 
class="ectt-1200">x,</span>&#x00A0;<span 
class="ectt-1200">un</span>&#x00A0;<span 
class="ectt-1200">vecteur</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">n</span>&#x00A0;<span 
class="ectt-1200">nombres</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">type</span>&#x00A0;<span 
class="ectt-1200">double</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Sorties:</span>&#x00A0;<span 
class="ectt-1200">void</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Description:</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Calcul</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">H8isa(x),</span>&#x00A0;<span 
class="ectt-1200">H8isa</span>&#x00A0;<span 
class="ectt-1200">etant</span>&#x00A0;<span 
class="ectt-1200">le</span>&#x00A0;<span 
class="ectt-1200">huitieme</span>&#x00A0;<span 
class="ectt-1200">polynome</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">Legendre</span>&#x00A0;<span 
class="ectt-1200">modifie</span>&#x00A0;<span 
class="ectt-1200">d&#x2019;isabelle</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Modifie</span>&#x00A0;<span 
class="ectt-1200">le</span>&#x00A0;<span 
class="ectt-1200">vecteur</span>&#x00A0;<span 
class="ectt-1200">x</span>&#x00A0;<span 
class="ectt-1200">dans</span>&#x00A0;<span 
class="ectt-1200">le</span>&#x00A0;<span 
class="ectt-1200">programme</span>&#x00A0;<span 
class="ectt-1200">principal,</span>&#x00A0;<span 
class="ectt-1200">en</span>&#x00A0;<span 
class="ectt-1200">le</span>&#x00A0;<span 
class="ectt-1200">remplacant</span>&#x00A0;<span 
class="ectt-1200">par</span>&#x00A0;<span 
class="ectt-1200">H8isa(x)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Utilisation</span>&#x00A0;<span 
class="ectt-1200">dans</span>&#x00A0;<span 
class="ectt-1200">une</span>&#x00A0;<span 
class="ectt-1200">fonction</span>&#x00A0;<span 
class="ectt-1200">main:</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">-------------------------------------</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PROGRAM</span>&#x00A0;<span 
class="ectt-1200">main</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">n,</span>&#x00A0;<span 
class="ectt-1200">i</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">longueur</span>&#x00A0;<span 
class="ectt-1200">du</span>&#x00A0;<span 
class="ectt-1200">vecteur</span>&#x00A0;<span 
class="ectt-1200">x,</span>&#x00A0;<span 
class="ectt-1200">a</span>&#x00A0;<span 
class="ectt-1200">modifier</span>&#x00A0;<span 
class="ectt-1200">dans</span>&#x00A0;<span 
class="ectt-1200">le</span>&#x00A0;<span 
class="ectt-1200">programme</span>&#x00A0;<span 
class="ectt-1200">principal</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(n=3)</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">initialisation</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">x,</span>&#x00A0;<span 
class="ectt-1200">y</span>&#x00A0;<span 
class="ectt-1200">et</span>&#x00A0;<span 
class="ectt-1200">xavant</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">x(n),</span>&#x00A0;<span 
class="ectt-1200">y(n),</span>&#x00A0;<span 
class="ectt-1200">xavant(n)</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">affectation</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">valeurs</span>&#x00A0;<span 
class="ectt-1200">a</span>&#x00A0;<span 
class="ectt-1200">x</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">x(1)=1</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">x(2)=2</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">x(3)=3</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">On</span>&#x00A0;<span 
class="ectt-1200">sauvegarde</span>&#x00A0;<span 
class="ectt-1200">les</span>&#x00A0;<span 
class="ectt-1200">valeurs</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">x</span>&#x00A0;<span 
class="ectt-1200">dans</span>&#x00A0;<span 
class="ectt-1200">xavant</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DO</span>&#x00A0;<span 
class="ectt-1200">10,</span>&#x00A0;<span 
class="ectt-1200">i=1,n</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">xavant(i)=x(i)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">10</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CONTINUE</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">calcul</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">H8isa(x),</span>&#x00A0;<span 
class="ectt-1200">remplace</span>&#x00A0;<span 
class="ectt-1200">x</span>&#x00A0;<span 
class="ectt-1200">par</span>&#x00A0;<span 
class="ectt-1200">H8isa(x)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CALL</span>&#x00A0;<span 
class="ectt-1200">H8isa(n,x)</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">affecte</span>&#x00A0;<span 
class="ectt-1200">a</span>&#x00A0;<span 
class="ectt-1200">y</span>&#x00A0;<span 
class="ectt-1200">le</span>&#x00A0;<span 
class="ectt-1200">resultat</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DO</span>&#x00A0;<span 
class="ectt-1200">20,</span>&#x00A0;<span 
class="ectt-1200">i=1,n</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">y(i)=x(i)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">20</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CONTINUE</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">remet</span>&#x00A0;<span 
class="ectt-1200">les</span>&#x00A0;<span 
class="ectt-1200">bonnes</span>&#x00A0;<span 
class="ectt-1200">valeurs</span>&#x00A0;<span 
class="ectt-1200">dans</span>&#x00A0;<span 
class="ectt-1200">x</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">affecte</span>&#x00A0;<span 
class="ectt-1200">a</span>&#x00A0;<span 
class="ectt-1200">y</span>&#x00A0;<span 
class="ectt-1200">le</span>&#x00A0;<span 
class="ectt-1200">resultat</span>

&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DO</span>&#x00A0;<span 
class="ectt-1200">30,</span>&#x00A0;<span 
class="ectt-1200">i=1,n</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">x(i)=xavant(i)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">30</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CONTINUE</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Affichage</span>&#x00A0;<span 
class="ectt-1200">des</span>&#x00A0;<span 
class="ectt-1200">valeurs</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">y=H8isa(x)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(UNIT=6,FMT=*)</span>&#x00A0;<span 
class="ectt-1200">&#x2019;Affichage</span>&#x00A0;<span 
class="ectt-1200">des</span>&#x00A0;<span 
class="ectt-1200">valeurs</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">y&#x2019;</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(UNIT=6,FMT=*)</span>&#x00A0;<span 
class="ectt-1200">y</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Affichage</span>&#x00A0;<span 
class="ectt-1200">des</span>&#x00A0;<span 
class="ectt-1200">valeurs</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">x</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(UNIT=6,FMT=*)</span>&#x00A0;<span 
class="ectt-1200">&#x2019;Affichage</span>&#x00A0;<span 
class="ectt-1200">des</span>&#x00A0;<span 
class="ectt-1200">valeurs</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">x&#x2019;</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(UNIT=6,FMT=*)</span>&#x00A0;<span 
class="ectt-1200">x</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">END</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">-------------------------------------</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Instructions</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">compilation:</span>&#x00A0;<span 
class="ectt-1200">alias</span>&#x00A0;<span 
class="ectt-1200">f77=&#x2019;fort77&#x2019;</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">f77</span>&#x00A0;<span 
class="ectt-1200">-c</span>&#x00A0;<span 
class="ectt-1200">nom_du_fichier_contenant_la_fonction_main.f</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">f77</span>&#x00A0;<span 
class="ectt-1200">-c</span>&#x00A0;<span 
class="ectt-1200">H8isa.f</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">f77</span>&#x00A0;<span 
class="ectt-1200">nom_du_fichier_contenant_la_fonction_main.o</span>&#x00A0;<span 
class="ectt-1200">H8isa.o</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Fonctions</span>&#x00A0;<span 
class="ectt-1200">exterieures</span>&#x00A0;<span 
class="ectt-1200">appelees:</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Auteur:</span>&#x00A0;<span 
class="ectt-1200">Pierre</span>&#x00A0;<span 
class="ectt-1200">Lafaye</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">Micheaux</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Date:</span>&#x00A0;<span 
class="ectt-1200">15/02/2001</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Fin-Commentaires</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">SUBROUTINE</span>&#x00A0;<span 
class="ectt-1200">H8isa</span>&#x00A0;<span 
class="ectt-1200">(n,x)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">n,i</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">x(n)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DO</span>&#x00A0;<span 
class="ectt-1200">10,</span>&#x00A0;<span 
class="ectt-1200">i=1,n</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">x(i)=-1.112255254-38.72988351*(x(i)**2)+247.1833561*(x(i)**4)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">$</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">-450.1763319*(x(i)**6)+260.0680479*(x(i)**8)</span>
&#x00A0;<br />&#x00A0;<span 
class="ectt-1200">10</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CONTINUE</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">RETURN</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">END</span>
   </div>
<!--l. 487--><p class="indent">   <span 
class="ecbx-1200">Programme H9isa.f</span> </p><div class="verbatiminput">
<span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Debut-Commentaires</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Nom</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">la</span>&#x00A0;<span 
class="ectt-1200">sous-routine:</span>&#x00A0;<span 
class="ectt-1200">H9isa</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Entrees:</span>&#x00A0;<span 
class="ectt-1200">n</span>&#x00A0;<span 
class="ectt-1200">entier,</span>&#x00A0;<span 
class="ectt-1200">longueur</span>&#x00A0;<span 
class="ectt-1200">du</span>&#x00A0;<span 
class="ectt-1200">vecteur</span>&#x00A0;<span 
class="ectt-1200">x</span>&#x00A0;<span 
class="ectt-1200">;</span>&#x00A0;<span 
class="ectt-1200">x,</span>&#x00A0;<span 
class="ectt-1200">un</span>&#x00A0;<span 
class="ectt-1200">vecteur</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">n</span>&#x00A0;<span 
class="ectt-1200">nombres</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">type</span>&#x00A0;<span 
class="ectt-1200">double</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Sorties:</span>&#x00A0;<span 
class="ectt-1200">void</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Description:</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Calcul</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">H9isa(x),</span>&#x00A0;<span 
class="ectt-1200">H9isa</span>&#x00A0;<span 
class="ectt-1200">etant</span>&#x00A0;<span 
class="ectt-1200">le</span>&#x00A0;<span 
class="ectt-1200">neuvieme</span>&#x00A0;<span 
class="ectt-1200">polynome</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">Legendre</span>&#x00A0;<span 
class="ectt-1200">modifie</span>&#x00A0;<span 
class="ectt-1200">d&#x2019;isabelle</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Modifie</span>&#x00A0;<span 
class="ectt-1200">le</span>&#x00A0;<span 
class="ectt-1200">vecteur</span>&#x00A0;<span 
class="ectt-1200">x</span>&#x00A0;<span 
class="ectt-1200">dans</span>&#x00A0;<span 
class="ectt-1200">le</span>&#x00A0;<span 
class="ectt-1200">programme</span>&#x00A0;<span 
class="ectt-1200">principal,</span>&#x00A0;<span 
class="ectt-1200">en</span>&#x00A0;<span 
class="ectt-1200">le</span>&#x00A0;<span 
class="ectt-1200">remplacant</span>&#x00A0;<span 
class="ectt-1200">par</span>&#x00A0;<span 
class="ectt-1200">H9isa(x)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Utilisation</span>&#x00A0;<span 
class="ectt-1200">dans</span>&#x00A0;<span 
class="ectt-1200">une</span>&#x00A0;<span 
class="ectt-1200">fonction</span>&#x00A0;<span 
class="ectt-1200">main:</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">-------------------------------------</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PROGRAM</span>&#x00A0;<span 
class="ectt-1200">main</span>

&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">n,</span>&#x00A0;<span 
class="ectt-1200">i</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">longueur</span>&#x00A0;<span 
class="ectt-1200">du</span>&#x00A0;<span 
class="ectt-1200">vecteur</span>&#x00A0;<span 
class="ectt-1200">x,</span>&#x00A0;<span 
class="ectt-1200">a</span>&#x00A0;<span 
class="ectt-1200">modifier</span>&#x00A0;<span 
class="ectt-1200">dans</span>&#x00A0;<span 
class="ectt-1200">le</span>&#x00A0;<span 
class="ectt-1200">programme</span>&#x00A0;<span 
class="ectt-1200">principal</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(n=3)</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">initialisation</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">x,</span>&#x00A0;<span 
class="ectt-1200">y</span>&#x00A0;<span 
class="ectt-1200">et</span>&#x00A0;<span 
class="ectt-1200">xavant</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">x(n),</span>&#x00A0;<span 
class="ectt-1200">y(n),</span>&#x00A0;<span 
class="ectt-1200">xavant(n)</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">affectation</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">valeurs</span>&#x00A0;<span 
class="ectt-1200">a</span>&#x00A0;<span 
class="ectt-1200">x</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">x(1)=1</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">x(2)=2</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">x(3)=3</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">On</span>&#x00A0;<span 
class="ectt-1200">sauvegarde</span>&#x00A0;<span 
class="ectt-1200">les</span>&#x00A0;<span 
class="ectt-1200">valeurs</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">x</span>&#x00A0;<span 
class="ectt-1200">dans</span>&#x00A0;<span 
class="ectt-1200">xavant</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DO</span>&#x00A0;<span 
class="ectt-1200">10,</span>&#x00A0;<span 
class="ectt-1200">i=1,n</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">xavant(i)=x(i)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">10</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CONTINUE</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">calcul</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">H9isa(x),</span>&#x00A0;<span 
class="ectt-1200">remplace</span>&#x00A0;<span 
class="ectt-1200">x</span>&#x00A0;<span 
class="ectt-1200">par</span>&#x00A0;<span 
class="ectt-1200">H9isa(x)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CALL</span>&#x00A0;<span 
class="ectt-1200">H9isa(n,x)</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">affecte</span>&#x00A0;<span 
class="ectt-1200">a</span>&#x00A0;<span 
class="ectt-1200">y</span>&#x00A0;<span 
class="ectt-1200">le</span>&#x00A0;<span 
class="ectt-1200">resultat</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DO</span>&#x00A0;<span 
class="ectt-1200">20,</span>&#x00A0;<span 
class="ectt-1200">i=1,n</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">y(i)=x(i)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">20</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CONTINUE</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">remet</span>&#x00A0;<span 
class="ectt-1200">les</span>&#x00A0;<span 
class="ectt-1200">bonnes</span>&#x00A0;<span 
class="ectt-1200">valeurs</span>&#x00A0;<span 
class="ectt-1200">dans</span>&#x00A0;<span 
class="ectt-1200">x</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">affecte</span>&#x00A0;<span 
class="ectt-1200">a</span>&#x00A0;<span 
class="ectt-1200">y</span>&#x00A0;<span 
class="ectt-1200">le</span>&#x00A0;<span 
class="ectt-1200">resultat</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DO</span>&#x00A0;<span 
class="ectt-1200">30,</span>&#x00A0;<span 
class="ectt-1200">i=1,n</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">x(i)=xavant(i)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">30</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CONTINUE</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Affichage</span>&#x00A0;<span 
class="ectt-1200">des</span>&#x00A0;<span 
class="ectt-1200">valeurs</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">y=H9isa(x)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(UNIT=6,FMT=*)</span>&#x00A0;<span 
class="ectt-1200">&#x2019;Affichage</span>&#x00A0;<span 
class="ectt-1200">des</span>&#x00A0;<span 
class="ectt-1200">valeurs</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">y&#x2019;</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(UNIT=6,FMT=*)</span>&#x00A0;<span 
class="ectt-1200">y</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Affichage</span>&#x00A0;<span 
class="ectt-1200">des</span>&#x00A0;<span 
class="ectt-1200">valeurs</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">x</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(UNIT=6,FMT=*)</span>&#x00A0;<span 
class="ectt-1200">&#x2019;Affichage</span>&#x00A0;<span 
class="ectt-1200">des</span>&#x00A0;<span 
class="ectt-1200">valeurs</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">x&#x2019;</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(UNIT=6,FMT=*)</span>&#x00A0;<span 
class="ectt-1200">x</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">END</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">-------------------------------------</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Instructions</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">compilation:</span>&#x00A0;<span 
class="ectt-1200">alias</span>&#x00A0;<span 
class="ectt-1200">f77=&#x2019;fort77&#x2019;</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">f77</span>&#x00A0;<span 
class="ectt-1200">-c</span>&#x00A0;<span 
class="ectt-1200">nom_du_fichier_contenant_la_fonction_main.f</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">f77</span>&#x00A0;<span 
class="ectt-1200">-c</span>&#x00A0;<span 
class="ectt-1200">H9isa.f</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">f77</span>&#x00A0;<span 
class="ectt-1200">nom_du_fichier_contenant_la_fonction_main.o</span>&#x00A0;<span 
class="ectt-1200">H9isa.o</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Fonctions</span>&#x00A0;<span 
class="ectt-1200">exterieures</span>&#x00A0;<span 
class="ectt-1200">appelees:</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Auteur:</span>&#x00A0;<span 
class="ectt-1200">Pierre</span>&#x00A0;<span 
class="ectt-1200">Lafaye</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">Micheaux</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Date:</span>&#x00A0;<span 
class="ectt-1200">15/02/2001</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Fin-Commentaires</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">SUBROUTINE</span>&#x00A0;<span 
class="ectt-1200">H9isa</span>&#x00A0;<span 
class="ectt-1200">(n,x)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">n,i</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">x(n)</span>

&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DO</span>&#x00A0;<span 
class="ectt-1200">10,</span>&#x00A0;<span 
class="ectt-1200">i=1,n</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">x(i)=30.29753057*x(i)-162.5156573*(x(i)**3)+</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">$</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">692.6715145*(x(i)**5)-1042.779433*(x(i)**7)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">$</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">+528.7259394*(x(i)**9)</span>
&#x00A0;<br />&#x00A0;<span 
class="ectt-1200">10</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CONTINUE</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">RETURN</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">END</span>
   </div>
<!--l. 491--><p class="indent">   <span 
class="ecbx-1200">Programme H10isa.f</span> </p><div class="verbatiminput">
<span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Debut-Commentaires</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Nom</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">la</span>&#x00A0;<span 
class="ectt-1200">sous-routine:</span>&#x00A0;<span 
class="ectt-1200">H10isa</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Entrees:</span>&#x00A0;<span 
class="ectt-1200">n</span>&#x00A0;<span 
class="ectt-1200">entier,</span>&#x00A0;<span 
class="ectt-1200">longueur</span>&#x00A0;<span 
class="ectt-1200">du</span>&#x00A0;<span 
class="ectt-1200">vecteur</span>&#x00A0;<span 
class="ectt-1200">x</span>&#x00A0;<span 
class="ectt-1200">;</span>&#x00A0;<span 
class="ectt-1200">x,</span>&#x00A0;<span 
class="ectt-1200">un</span>&#x00A0;<span 
class="ectt-1200">vecteur</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">n</span>&#x00A0;<span 
class="ectt-1200">nombres</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">type</span>&#x00A0;<span 
class="ectt-1200">double</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Sorties:</span>&#x00A0;<span 
class="ectt-1200">void</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Description:</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Calcul</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">H10isa(x),</span>&#x00A0;<span 
class="ectt-1200">H10isa</span>&#x00A0;<span 
class="ectt-1200">etant</span>&#x00A0;<span 
class="ectt-1200">le</span>&#x00A0;<span 
class="ectt-1200">dixieme</span>&#x00A0;<span 
class="ectt-1200">polynome</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">Legendre</span>&#x00A0;<span 
class="ectt-1200">modifie</span>&#x00A0;<span 
class="ectt-1200">d&#x2019;isabelle</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Modifie</span>&#x00A0;<span 
class="ectt-1200">le</span>&#x00A0;<span 
class="ectt-1200">vecteur</span>&#x00A0;<span 
class="ectt-1200">x</span>&#x00A0;<span 
class="ectt-1200">dans</span>&#x00A0;<span 
class="ectt-1200">le</span>&#x00A0;<span 
class="ectt-1200">programme</span>&#x00A0;<span 
class="ectt-1200">principal,</span>&#x00A0;<span 
class="ectt-1200">en</span>&#x00A0;<span 
class="ectt-1200">le</span>&#x00A0;<span 
class="ectt-1200">remplacant</span>&#x00A0;<span 
class="ectt-1200">par</span>&#x00A0;<span 
class="ectt-1200">H10isa(x)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Utilisation</span>&#x00A0;<span 
class="ectt-1200">dans</span>&#x00A0;<span 
class="ectt-1200">une</span>&#x00A0;<span 
class="ectt-1200">fonction</span>&#x00A0;<span 
class="ectt-1200">main:</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">-------------------------------------</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PROGRAM</span>&#x00A0;<span 
class="ectt-1200">main</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">n,</span>&#x00A0;<span 
class="ectt-1200">i</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">longueur</span>&#x00A0;<span 
class="ectt-1200">du</span>&#x00A0;<span 
class="ectt-1200">vecteur</span>&#x00A0;<span 
class="ectt-1200">x,</span>&#x00A0;<span 
class="ectt-1200">a</span>&#x00A0;<span 
class="ectt-1200">modifier</span>&#x00A0;<span 
class="ectt-1200">dans</span>&#x00A0;<span 
class="ectt-1200">le</span>&#x00A0;<span 
class="ectt-1200">programme</span>&#x00A0;<span 
class="ectt-1200">principal</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(n=3)</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">initialisation</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">x,</span>&#x00A0;<span 
class="ectt-1200">y</span>&#x00A0;<span 
class="ectt-1200">et</span>&#x00A0;<span 
class="ectt-1200">xavant</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">x(n),</span>&#x00A0;<span 
class="ectt-1200">y(n),</span>&#x00A0;<span 
class="ectt-1200">xavant(n)</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">affectation</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">valeurs</span>&#x00A0;<span 
class="ectt-1200">a</span>&#x00A0;<span 
class="ectt-1200">x</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">x(1)=1</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">x(2)=2</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">x(3)=3</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">On</span>&#x00A0;<span 
class="ectt-1200">sauvegarde</span>&#x00A0;<span 
class="ectt-1200">les</span>&#x00A0;<span 
class="ectt-1200">valeurs</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">x</span>&#x00A0;<span 
class="ectt-1200">dans</span>&#x00A0;<span 
class="ectt-1200">xavant</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DO</span>&#x00A0;<span 
class="ectt-1200">10,</span>&#x00A0;<span 
class="ectt-1200">i=1,n</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">xavant(i)=x(i)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">10</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CONTINUE</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">calcul</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">H10isa(x),</span>&#x00A0;<span 
class="ectt-1200">remplace</span>&#x00A0;<span 
class="ectt-1200">x</span>&#x00A0;<span 
class="ectt-1200">par</span>&#x00A0;<span 
class="ectt-1200">H10isa(x)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CALL</span>&#x00A0;<span 
class="ectt-1200">H10isa(n,x)</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">affecte</span>&#x00A0;<span 
class="ectt-1200">a</span>&#x00A0;<span 
class="ectt-1200">y</span>&#x00A0;<span 
class="ectt-1200">le</span>&#x00A0;<span 
class="ectt-1200">resultat</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DO</span>&#x00A0;<span 
class="ectt-1200">20,</span>&#x00A0;<span 
class="ectt-1200">i=1,n</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">y(i)=x(i)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">20</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CONTINUE</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">remet</span>&#x00A0;<span 
class="ectt-1200">les</span>&#x00A0;<span 
class="ectt-1200">bonnes</span>&#x00A0;<span 
class="ectt-1200">valeurs</span>&#x00A0;<span 
class="ectt-1200">dans</span>&#x00A0;<span 
class="ectt-1200">x</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">affecte</span>&#x00A0;<span 
class="ectt-1200">a</span>&#x00A0;<span 
class="ectt-1200">y</span>&#x00A0;<span 
class="ectt-1200">le</span>&#x00A0;<span 
class="ectt-1200">resultat</span>

&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DO</span>&#x00A0;<span 
class="ectt-1200">30,</span>&#x00A0;<span 
class="ectt-1200">i=1,n</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">x(i)=xavant(i)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">30</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CONTINUE</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Affichage</span>&#x00A0;<span 
class="ectt-1200">des</span>&#x00A0;<span 
class="ectt-1200">valeurs</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">y=H10isa(x)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(UNIT=6,FMT=*)</span>&#x00A0;<span 
class="ectt-1200">&#x2019;Affichage</span>&#x00A0;<span 
class="ectt-1200">des</span>&#x00A0;<span 
class="ectt-1200">valeurs</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">y&#x2019;</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(UNIT=6,FMT=*)</span>&#x00A0;<span 
class="ectt-1200">y</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Affichage</span>&#x00A0;<span 
class="ectt-1200">des</span>&#x00A0;<span 
class="ectt-1200">valeurs</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">x</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(UNIT=6,FMT=*)</span>&#x00A0;<span 
class="ectt-1200">&#x2019;Affichage</span>&#x00A0;<span 
class="ectt-1200">des</span>&#x00A0;<span 
class="ectt-1200">valeurs</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">x&#x2019;</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(UNIT=6,FMT=*)</span>&#x00A0;<span 
class="ectt-1200">x</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">END</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">-------------------------------------</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Instructions</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">compilation:</span>&#x00A0;<span 
class="ectt-1200">alias</span>&#x00A0;<span 
class="ectt-1200">f77=&#x2019;fort77&#x2019;</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">f77</span>&#x00A0;<span 
class="ectt-1200">-c</span>&#x00A0;<span 
class="ectt-1200">nom_du_fichier_contenant_la_fonction_main.f</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">f77</span>&#x00A0;<span 
class="ectt-1200">-c</span>&#x00A0;<span 
class="ectt-1200">H10isa.f</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">f77</span>&#x00A0;<span 
class="ectt-1200">nom_du_fichier_contenant_la_fonction_main.o</span>&#x00A0;<span 
class="ectt-1200">H10isa.o</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Fonctions</span>&#x00A0;<span 
class="ectt-1200">exterieures</span>&#x00A0;<span 
class="ectt-1200">appelees:</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Auteur:</span>&#x00A0;<span 
class="ectt-1200">Pierre</span>&#x00A0;<span 
class="ectt-1200">Lafaye</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">Micheaux</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Date:</span>&#x00A0;<span 
class="ectt-1200">15/02/2001</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Fin-Commentaires</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">SUBROUTINE</span>&#x00A0;<span 
class="ectt-1200">H10isa</span>&#x00A0;<span 
class="ectt-1200">(n,x)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">n,i</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">x(n)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DO</span>&#x00A0;<span 
class="ectt-1200">10,</span>&#x00A0;<span 
class="ectt-1200">i=1,n</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">x(i)=-3.58188372+67.54323446*(x(i)**2)-569.921170098*(x(i)**4)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">$</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">+1782.81828*(x(i)**6)-2250.408033*(x(i)**8)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">$ +994.4970803*(x(i)**10)</span>
&#x00A0;<br />&#x00A0;<span 
class="ectt-1200">10</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CONTINUE</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">RETURN</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">END</span>
   </div>
<!--l. 495--><p class="indent">   <span 
class="ecbx-1200">Programme H1etoile.f</span> </p><div class="verbatiminput">
<span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Debut-Commentaires</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Nom</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">la</span>&#x00A0;<span 
class="ectt-1200">sous-routine:</span>&#x00A0;<span 
class="ectt-1200">H1etoi</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Entrees:</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">n</span>&#x00A0;<span 
class="ectt-1200">(entier),</span>&#x00A0;<span 
class="ectt-1200">longueur</span>&#x00A0;<span 
class="ectt-1200">du</span>&#x00A0;<span 
class="ectt-1200">vecteur</span>&#x00A0;<span 
class="ectt-1200">x</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">x</span>&#x00A0;<span 
class="ectt-1200">(double),</span>&#x00A0;<span 
class="ectt-1200">un</span>&#x00A0;<span 
class="ectt-1200">vecteur</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">n</span>&#x00A0;<span 
class="ectt-1200">nombres</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Sorties:</span>&#x00A0;<span 
class="ectt-1200">void</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Description:</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Calcul</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">H1etoile(x),</span>&#x00A0;<span 
class="ectt-1200">H1etoile</span>&#x00A0;<span 
class="ectt-1200">etant</span>&#x00A0;<span 
class="ectt-1200">le</span>&#x00A0;<span 
class="ectt-1200">premier</span>&#x00A0;<span 
class="ectt-1200">polynome</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">Legendre</span>&#x00A0;<span 
class="ectt-1200">modifie</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Modifie</span>&#x00A0;<span 
class="ectt-1200">le</span>&#x00A0;<span 
class="ectt-1200">vecteur</span>&#x00A0;<span 
class="ectt-1200">x</span>&#x00A0;<span 
class="ectt-1200">dans</span>&#x00A0;<span 
class="ectt-1200">le</span>&#x00A0;<span 
class="ectt-1200">programme</span>&#x00A0;<span 
class="ectt-1200">principal,</span>&#x00A0;<span 
class="ectt-1200">en</span>&#x00A0;<span 
class="ectt-1200">le</span>&#x00A0;<span 
class="ectt-1200">remplacant</span>&#x00A0;<span 
class="ectt-1200">par</span>&#x00A0;<span 
class="ectt-1200">H1etoile(x)</span>

&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Utilisation</span>&#x00A0;<span 
class="ectt-1200">dans</span>&#x00A0;<span 
class="ectt-1200">une</span>&#x00A0;<span 
class="ectt-1200">fonction</span>&#x00A0;<span 
class="ectt-1200">main:</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">-------------------------------------</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PROGRAM</span>&#x00A0;<span 
class="ectt-1200">main</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">n,</span>&#x00A0;<span 
class="ectt-1200">i</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">longueur</span>&#x00A0;<span 
class="ectt-1200">du</span>&#x00A0;<span 
class="ectt-1200">vecteur</span>&#x00A0;<span 
class="ectt-1200">x,</span>&#x00A0;<span 
class="ectt-1200">a</span>&#x00A0;<span 
class="ectt-1200">modifier</span>&#x00A0;<span 
class="ectt-1200">dans</span>&#x00A0;<span 
class="ectt-1200">le</span>&#x00A0;<span 
class="ectt-1200">programme</span>&#x00A0;<span 
class="ectt-1200">principal</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(n=3)</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">initialisation</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">x,</span>&#x00A0;<span 
class="ectt-1200">y</span>&#x00A0;<span 
class="ectt-1200">et</span>&#x00A0;<span 
class="ectt-1200">xavant</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">x(n),</span>&#x00A0;<span 
class="ectt-1200">y(n),</span>&#x00A0;<span 
class="ectt-1200">xavant(n)</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">affectation</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">valeurs</span>&#x00A0;<span 
class="ectt-1200">a</span>&#x00A0;<span 
class="ectt-1200">x</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">x(1)=1</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">x(2)=2</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">x(3)=3</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">On</span>&#x00A0;<span 
class="ectt-1200">sauvegarde</span>&#x00A0;<span 
class="ectt-1200">les</span>&#x00A0;<span 
class="ectt-1200">valeurs</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">x</span>&#x00A0;<span 
class="ectt-1200">dans</span>&#x00A0;<span 
class="ectt-1200">xavant</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DO</span>&#x00A0;<span 
class="ectt-1200">10,</span>&#x00A0;<span 
class="ectt-1200">i=1,n</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">xavant(i)=x(i)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">10</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CONTINUE</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">calcul</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">H1etoile(x),</span>&#x00A0;<span 
class="ectt-1200">remplace</span>&#x00A0;<span 
class="ectt-1200">x</span>&#x00A0;<span 
class="ectt-1200">par</span>&#x00A0;<span 
class="ectt-1200">H1etoile(x)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CALL</span>&#x00A0;<span 
class="ectt-1200">H1etoi(n,x)</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">affecte</span>&#x00A0;<span 
class="ectt-1200">a</span>&#x00A0;<span 
class="ectt-1200">y</span>&#x00A0;<span 
class="ectt-1200">le</span>&#x00A0;<span 
class="ectt-1200">resultat</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DO</span>&#x00A0;<span 
class="ectt-1200">20,</span>&#x00A0;<span 
class="ectt-1200">i=1,n</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">y(i)=x(i)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">20</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CONTINUE</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">remet</span>&#x00A0;<span 
class="ectt-1200">les</span>&#x00A0;<span 
class="ectt-1200">bonnes</span>&#x00A0;<span 
class="ectt-1200">valeurs</span>&#x00A0;<span 
class="ectt-1200">dans</span>&#x00A0;<span 
class="ectt-1200">x</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">affecte</span>&#x00A0;<span 
class="ectt-1200">a</span>&#x00A0;<span 
class="ectt-1200">y</span>&#x00A0;<span 
class="ectt-1200">le</span>&#x00A0;<span 
class="ectt-1200">resultat</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DO</span>&#x00A0;<span 
class="ectt-1200">30,</span>&#x00A0;<span 
class="ectt-1200">i=1,n</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">x(i)=xavant(i)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">30</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CONTINUE</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Affichage</span>&#x00A0;<span 
class="ectt-1200">des</span>&#x00A0;<span 
class="ectt-1200">valeurs</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">y=H1etoile(x)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(UNIT=6,FMT=*)</span>&#x00A0;<span 
class="ectt-1200">&#x2019;Affichage</span>&#x00A0;<span 
class="ectt-1200">des</span>&#x00A0;<span 
class="ectt-1200">valeurs</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">y&#x2019;</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(UNIT=6,FMT=*)</span>&#x00A0;<span 
class="ectt-1200">y</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Affichage</span>&#x00A0;<span 
class="ectt-1200">des</span>&#x00A0;<span 
class="ectt-1200">valeurs</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">x</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(UNIT=6,FMT=*)</span>&#x00A0;<span 
class="ectt-1200">&#x2019;Affichage</span>&#x00A0;<span 
class="ectt-1200">des</span>&#x00A0;<span 
class="ectt-1200">valeurs</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">x&#x2019;</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(UNIT=6,FMT=*)</span>&#x00A0;<span 
class="ectt-1200">x</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">END</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">-------------------------------------</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Instructions</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">compilation:</span>&#x00A0;<span 
class="ectt-1200">alias</span>&#x00A0;<span 
class="ectt-1200">f77=&#x2019;fort77&#x2019;</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">f77</span>&#x00A0;<span 
class="ectt-1200">-c</span>&#x00A0;<span 
class="ectt-1200">nom_du_fichier_contenant_la_fonction_main.f</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">f77</span>&#x00A0;<span 
class="ectt-1200">-c</span>&#x00A0;<span 
class="ectt-1200">H1etoile.f</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">f77</span>&#x00A0;<span 
class="ectt-1200">nom_du_fichier_contenant_la_fonction_main.o</span>&#x00A0;<span 
class="ectt-1200">H1etoile.o</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Fonctions</span>&#x00A0;<span 
class="ectt-1200">exterieures</span>&#x00A0;<span 
class="ectt-1200">appelees:</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Auteur:</span>&#x00A0;<span 
class="ectt-1200">Pierre</span>&#x00A0;<span 
class="ectt-1200">Lafaye</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">Micheaux</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Date:</span>&#x00A0;<span 
class="ectt-1200">15/02/2001</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Fin-Commentaires</span>

&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">SUBROUTINE</span>&#x00A0;<span 
class="ectt-1200">H1etoi</span>&#x00A0;<span 
class="ectt-1200">(n,x)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">n,i</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">x(n)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DO</span>&#x00A0;<span 
class="ectt-1200">10,</span>&#x00A0;<span 
class="ectt-1200">i=1,n</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">x(i)=1.73205*x(i)</span>
&#x00A0;<br />&#x00A0;<span 
class="ectt-1200">10</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CONTINUE</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">RETURN</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">END</span>
   </div>
<!--l. 499--><p class="indent">   <span 
class="ecbx-1200">Programme H2etoile.f</span> </p><div class="verbatiminput">
<span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Debut-Commentaires</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Nom</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">la</span>&#x00A0;<span 
class="ectt-1200">sous-routine:</span>&#x00A0;<span 
class="ectt-1200">H2etoi</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Entrees:</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">n</span>&#x00A0;<span 
class="ectt-1200">(entier),</span>&#x00A0;<span 
class="ectt-1200">longueur</span>&#x00A0;<span 
class="ectt-1200">du</span>&#x00A0;<span 
class="ectt-1200">vecteur</span>&#x00A0;<span 
class="ectt-1200">x</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">x</span>&#x00A0;<span 
class="ectt-1200">(double),</span>&#x00A0;<span 
class="ectt-1200">un</span>&#x00A0;<span 
class="ectt-1200">vecteur</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">n</span>&#x00A0;<span 
class="ectt-1200">nombres</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Sorties:</span>&#x00A0;<span 
class="ectt-1200">void</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Description:</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Calcul</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">H2etoile(x),</span>&#x00A0;<span 
class="ectt-1200">H2etoile</span>&#x00A0;<span 
class="ectt-1200">etant</span>&#x00A0;<span 
class="ectt-1200">le</span>&#x00A0;<span 
class="ectt-1200">deuxieme</span>&#x00A0;<span 
class="ectt-1200">polynome</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">Legendre</span>&#x00A0;<span 
class="ectt-1200">modifie</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Modifie</span>&#x00A0;<span 
class="ectt-1200">le</span>&#x00A0;<span 
class="ectt-1200">vecteur</span>&#x00A0;<span 
class="ectt-1200">x</span>&#x00A0;<span 
class="ectt-1200">dans</span>&#x00A0;<span 
class="ectt-1200">le</span>&#x00A0;<span 
class="ectt-1200">programme</span>&#x00A0;<span 
class="ectt-1200">principal,</span>&#x00A0;<span 
class="ectt-1200">en</span>&#x00A0;<span 
class="ectt-1200">le</span>&#x00A0;<span 
class="ectt-1200">remplacant</span>&#x00A0;<span 
class="ectt-1200">par</span>&#x00A0;<span 
class="ectt-1200">H2etoile(x)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Utilisation</span>&#x00A0;<span 
class="ectt-1200">dans</span>&#x00A0;<span 
class="ectt-1200">une</span>&#x00A0;<span 
class="ectt-1200">fonction</span>&#x00A0;<span 
class="ectt-1200">main:</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">-------------------------------------</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PROGRAM</span>&#x00A0;<span 
class="ectt-1200">main</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">n,</span>&#x00A0;<span 
class="ectt-1200">i</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">longueur</span>&#x00A0;<span 
class="ectt-1200">du</span>&#x00A0;<span 
class="ectt-1200">vecteur</span>&#x00A0;<span 
class="ectt-1200">x,</span>&#x00A0;<span 
class="ectt-1200">a</span>&#x00A0;<span 
class="ectt-1200">modifier</span>&#x00A0;<span 
class="ectt-1200">dans</span>&#x00A0;<span 
class="ectt-1200">le</span>&#x00A0;<span 
class="ectt-1200">programme</span>&#x00A0;<span 
class="ectt-1200">principal</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(n=3)</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">initialisation</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">x,</span>&#x00A0;<span 
class="ectt-1200">y</span>&#x00A0;<span 
class="ectt-1200">et</span>&#x00A0;<span 
class="ectt-1200">xavant</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">x(n),</span>&#x00A0;<span 
class="ectt-1200">y(n),</span>&#x00A0;<span 
class="ectt-1200">xavant(n)</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">affectation</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">valeurs</span>&#x00A0;<span 
class="ectt-1200">a</span>&#x00A0;<span 
class="ectt-1200">x</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">x(1)=1</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">x(2)=2</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">x(3)=3</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">On</span>&#x00A0;<span 
class="ectt-1200">sauvegarde</span>&#x00A0;<span 
class="ectt-1200">les</span>&#x00A0;<span 
class="ectt-1200">valeurs</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">x</span>&#x00A0;<span 
class="ectt-1200">dans</span>&#x00A0;<span 
class="ectt-1200">xavant</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DO</span>&#x00A0;<span 
class="ectt-1200">10,</span>&#x00A0;<span 
class="ectt-1200">i=1,n</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">xavant(i)=x(i)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">10</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CONTINUE</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">calcul</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">H2etoile(x),</span>&#x00A0;<span 
class="ectt-1200">remplace</span>&#x00A0;<span 
class="ectt-1200">x</span>&#x00A0;<span 
class="ectt-1200">par</span>&#x00A0;<span 
class="ectt-1200">H2etoile(x)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CALL</span>&#x00A0;<span 
class="ectt-1200">H2etoi(n,x)</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">affecte</span>&#x00A0;<span 
class="ectt-1200">a</span>&#x00A0;<span 
class="ectt-1200">y</span>&#x00A0;<span 
class="ectt-1200">le</span>&#x00A0;<span 
class="ectt-1200">resultat</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DO</span>&#x00A0;<span 
class="ectt-1200">20,</span>&#x00A0;<span 
class="ectt-1200">i=1,n</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">y(i)=x(i)</span>

&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">20</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CONTINUE</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">remet</span>&#x00A0;<span 
class="ectt-1200">les</span>&#x00A0;<span 
class="ectt-1200">bonnes</span>&#x00A0;<span 
class="ectt-1200">valeurs</span>&#x00A0;<span 
class="ectt-1200">dans</span>&#x00A0;<span 
class="ectt-1200">x</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">affecte</span>&#x00A0;<span 
class="ectt-1200">a</span>&#x00A0;<span 
class="ectt-1200">y</span>&#x00A0;<span 
class="ectt-1200">le</span>&#x00A0;<span 
class="ectt-1200">resultat</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DO</span>&#x00A0;<span 
class="ectt-1200">30,</span>&#x00A0;<span 
class="ectt-1200">i=1,n</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">x(i)=xavant(i)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">30</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CONTINUE</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Affichage</span>&#x00A0;<span 
class="ectt-1200">des</span>&#x00A0;<span 
class="ectt-1200">valeurs</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">y=H2etoile(x)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(UNIT=6,FMT=*)</span>&#x00A0;<span 
class="ectt-1200">&#x2019;Affichage</span>&#x00A0;<span 
class="ectt-1200">des</span>&#x00A0;<span 
class="ectt-1200">valeurs</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">y&#x2019;</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(UNIT=6,FMT=*)</span>&#x00A0;<span 
class="ectt-1200">y</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Affichage</span>&#x00A0;<span 
class="ectt-1200">des</span>&#x00A0;<span 
class="ectt-1200">valeurs</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">x</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(UNIT=6,FMT=*)</span>&#x00A0;<span 
class="ectt-1200">&#x2019;Affichage</span>&#x00A0;<span 
class="ectt-1200">des</span>&#x00A0;<span 
class="ectt-1200">valeurs</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">x&#x2019;</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(UNIT=6,FMT=*)</span>&#x00A0;<span 
class="ectt-1200">x</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">END</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">-------------------------------------</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Instructions</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">compilation:</span>&#x00A0;<span 
class="ectt-1200">alias</span>&#x00A0;<span 
class="ectt-1200">f77=&#x2019;fort77&#x2019;</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">f77</span>&#x00A0;<span 
class="ectt-1200">-c</span>&#x00A0;<span 
class="ectt-1200">nom_du_fichier_contenant_la_fonction_main.f</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">f77</span>&#x00A0;<span 
class="ectt-1200">-c</span>&#x00A0;<span 
class="ectt-1200">H2etoile.f</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">f77</span>&#x00A0;<span 
class="ectt-1200">nom_du_fichier_contenant_la_fonction_main.o</span>&#x00A0;<span 
class="ectt-1200">H2etoile.o</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Fonctions</span>&#x00A0;<span 
class="ectt-1200">exterieures</span>&#x00A0;<span 
class="ectt-1200">appelees:</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Auteur:</span>&#x00A0;<span 
class="ectt-1200">Pierre</span>&#x00A0;<span 
class="ectt-1200">Lafaye</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">Micheaux</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Date:</span>&#x00A0;<span 
class="ectt-1200">15/02/2001</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Fin-Commentaires</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">SUBROUTINE</span>&#x00A0;<span 
class="ectt-1200">H2etoi</span>&#x00A0;<span 
class="ectt-1200">(n,x)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">n,i</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">x(n)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DO</span>&#x00A0;<span 
class="ectt-1200">10,</span>&#x00A0;<span 
class="ectt-1200">i=1,n</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">x(i)=6.84525*(x(i)**2)-2.28175</span>
&#x00A0;<br />&#x00A0;<span 
class="ectt-1200">10</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CONTINUE</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">RETURN</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">END</span>
   </div>
<!--l. 503--><p class="indent">   <span 
class="ecbx-1200">Programme H3etoile.f</span> </p><div class="verbatiminput">
<span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Debut-Commentaires</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Nom</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">la</span>&#x00A0;<span 
class="ectt-1200">sous-routine:</span>&#x00A0;<span 
class="ectt-1200">H3etoi</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Entrees:</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">n</span>&#x00A0;<span 
class="ectt-1200">(entier),</span>&#x00A0;<span 
class="ectt-1200">longueur</span>&#x00A0;<span 
class="ectt-1200">du</span>&#x00A0;<span 
class="ectt-1200">vecteur</span>&#x00A0;<span 
class="ectt-1200">x</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">x</span>&#x00A0;<span 
class="ectt-1200">(double),</span>&#x00A0;<span 
class="ectt-1200">un</span>&#x00A0;<span 
class="ectt-1200">vecteur</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">n</span>&#x00A0;<span 
class="ectt-1200">nombres</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Sorties:</span>&#x00A0;<span 
class="ectt-1200">void</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Description:</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Calcul</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">H3etoile(x),</span>&#x00A0;<span 
class="ectt-1200">H3etoile</span>&#x00A0;<span 
class="ectt-1200">etant</span>&#x00A0;<span 
class="ectt-1200">le</span>&#x00A0;<span 
class="ectt-1200">troisieme</span>&#x00A0;<span 
class="ectt-1200">polynome</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">Legendre</span>&#x00A0;<span 
class="ectt-1200">modifie</span>

&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Modifie</span>&#x00A0;<span 
class="ectt-1200">le</span>&#x00A0;<span 
class="ectt-1200">vecteur</span>&#x00A0;<span 
class="ectt-1200">x</span>&#x00A0;<span 
class="ectt-1200">dans</span>&#x00A0;<span 
class="ectt-1200">le</span>&#x00A0;<span 
class="ectt-1200">programme</span>&#x00A0;<span 
class="ectt-1200">principal,</span>&#x00A0;<span 
class="ectt-1200">en</span>&#x00A0;<span 
class="ectt-1200">le</span>&#x00A0;<span 
class="ectt-1200">remplacant</span>&#x00A0;<span 
class="ectt-1200">par</span>&#x00A0;<span 
class="ectt-1200">H3etoile(x)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Utilisation</span>&#x00A0;<span 
class="ectt-1200">dans</span>&#x00A0;<span 
class="ectt-1200">une</span>&#x00A0;<span 
class="ectt-1200">fonction</span>&#x00A0;<span 
class="ectt-1200">main:</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">-------------------------------------</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PROGRAM</span>&#x00A0;<span 
class="ectt-1200">main</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">n,</span>&#x00A0;<span 
class="ectt-1200">i</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">longueur</span>&#x00A0;<span 
class="ectt-1200">du</span>&#x00A0;<span 
class="ectt-1200">vecteur</span>&#x00A0;<span 
class="ectt-1200">x,</span>&#x00A0;<span 
class="ectt-1200">a</span>&#x00A0;<span 
class="ectt-1200">modifier</span>&#x00A0;<span 
class="ectt-1200">dans</span>&#x00A0;<span 
class="ectt-1200">le</span>&#x00A0;<span 
class="ectt-1200">programme</span>&#x00A0;<span 
class="ectt-1200">principal</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(n=3)</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">initialisation</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">x,</span>&#x00A0;<span 
class="ectt-1200">y</span>&#x00A0;<span 
class="ectt-1200">et</span>&#x00A0;<span 
class="ectt-1200">xavant</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">x(n),</span>&#x00A0;<span 
class="ectt-1200">y(n),</span>&#x00A0;<span 
class="ectt-1200">xavant(n)</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">affectation</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">valeurs</span>&#x00A0;<span 
class="ectt-1200">a</span>&#x00A0;<span 
class="ectt-1200">x</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">x(1)=1</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">x(2)=2</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">x(3)=3</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">On</span>&#x00A0;<span 
class="ectt-1200">sauvegarde</span>&#x00A0;<span 
class="ectt-1200">les</span>&#x00A0;<span 
class="ectt-1200">valeurs</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">x</span>&#x00A0;<span 
class="ectt-1200">dans</span>&#x00A0;<span 
class="ectt-1200">xavant</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DO</span>&#x00A0;<span 
class="ectt-1200">10,</span>&#x00A0;<span 
class="ectt-1200">i=1,n</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">xavant(i)=x(i)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">10</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CONTINUE</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">calcul</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">H3etoile(x),</span>&#x00A0;<span 
class="ectt-1200">remplace</span>&#x00A0;<span 
class="ectt-1200">x</span>&#x00A0;<span 
class="ectt-1200">par</span>&#x00A0;<span 
class="ectt-1200">H3etoile(x)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CALL</span>&#x00A0;<span 
class="ectt-1200">H3etoi(n,x)</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">affecte</span>&#x00A0;<span 
class="ectt-1200">a</span>&#x00A0;<span 
class="ectt-1200">y</span>&#x00A0;<span 
class="ectt-1200">le</span>&#x00A0;<span 
class="ectt-1200">resultat</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DO</span>&#x00A0;<span 
class="ectt-1200">20,</span>&#x00A0;<span 
class="ectt-1200">i=1,n</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">y(i)=x(i)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">20</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CONTINUE</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">remet</span>&#x00A0;<span 
class="ectt-1200">les</span>&#x00A0;<span 
class="ectt-1200">bonnes</span>&#x00A0;<span 
class="ectt-1200">valeurs</span>&#x00A0;<span 
class="ectt-1200">dans</span>&#x00A0;<span 
class="ectt-1200">x</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">affecte</span>&#x00A0;<span 
class="ectt-1200">a</span>&#x00A0;<span 
class="ectt-1200">y</span>&#x00A0;<span 
class="ectt-1200">le</span>&#x00A0;<span 
class="ectt-1200">resultat</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DO</span>&#x00A0;<span 
class="ectt-1200">30,</span>&#x00A0;<span 
class="ectt-1200">i=1,n</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">x(i)=xavant(i)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">30</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CONTINUE</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Affichage</span>&#x00A0;<span 
class="ectt-1200">des</span>&#x00A0;<span 
class="ectt-1200">valeurs</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">y=H3etoile(x)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(UNIT=6,FMT=*)</span>&#x00A0;<span 
class="ectt-1200">&#x2019;Affichage</span>&#x00A0;<span 
class="ectt-1200">des</span>&#x00A0;<span 
class="ectt-1200">valeurs</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">y&#x2019;</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(UNIT=6,FMT=*)</span>&#x00A0;<span 
class="ectt-1200">y</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Affichage</span>&#x00A0;<span 
class="ectt-1200">des</span>&#x00A0;<span 
class="ectt-1200">valeurs</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">x</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(UNIT=6,FMT=*)</span>&#x00A0;<span 
class="ectt-1200">&#x2019;Affichage</span>&#x00A0;<span 
class="ectt-1200">des</span>&#x00A0;<span 
class="ectt-1200">valeurs</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">x&#x2019;</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(UNIT=6,FMT=*)</span>&#x00A0;<span 
class="ectt-1200">x</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">END</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">-------------------------------------</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Instructions</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">compilation:</span>&#x00A0;<span 
class="ectt-1200">alias</span>&#x00A0;<span 
class="ectt-1200">f77=&#x2019;fort77&#x2019;</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">f77</span>&#x00A0;<span 
class="ectt-1200">-c</span>&#x00A0;<span 
class="ectt-1200">nom_du_fichier_contenant_la_fonction_main.f</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">f77</span>&#x00A0;<span 
class="ectt-1200">-c</span>&#x00A0;<span 
class="ectt-1200">H3etoile.f</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">f77</span>&#x00A0;<span 
class="ectt-1200">nom_du_fichier_contenant_la_fonction_main.o</span>&#x00A0;<span 
class="ectt-1200">H3etoile.o</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Fonctions</span>&#x00A0;<span 
class="ectt-1200">exterieures</span>&#x00A0;<span 
class="ectt-1200">appelees:</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Auteur:</span>&#x00A0;<span 
class="ectt-1200">Pierre</span>&#x00A0;<span 
class="ectt-1200">Lafaye</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">Micheaux</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Date:</span>&#x00A0;<span 
class="ectt-1200">15/02/2001</span>

&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Fin-Commentaires</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">SUBROUTINE</span>&#x00A0;<span 
class="ectt-1200">H3etoi</span>&#x00A0;<span 
class="ectt-1200">(n,x)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">n,i</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">x(n)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DO</span>&#x00A0;<span 
class="ectt-1200">10,</span>&#x00A0;<span 
class="ectt-1200">i=1,n</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">x(i)=6.61438*(x(i)**3)-3.96863*x(i)</span>
&#x00A0;<br />&#x00A0;<span 
class="ectt-1200">10</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CONTINUE</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">RETURN</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">END</span>
   </div>
<!--l. 507--><p class="indent">   <span 
class="ecbx-1200">Programme H4etoile.f</span> </p><div class="verbatiminput">
<span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Debut-Commentaires</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Nom</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">la</span>&#x00A0;<span 
class="ectt-1200">sous-routine:</span>&#x00A0;<span 
class="ectt-1200">H4etoi</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Entrees:</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">n</span>&#x00A0;<span 
class="ectt-1200">(entier),</span>&#x00A0;<span 
class="ectt-1200">longueur</span>&#x00A0;<span 
class="ectt-1200">du</span>&#x00A0;<span 
class="ectt-1200">vecteur</span>&#x00A0;<span 
class="ectt-1200">x</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">x</span>&#x00A0;<span 
class="ectt-1200">(double),</span>&#x00A0;<span 
class="ectt-1200">un</span>&#x00A0;<span 
class="ectt-1200">vecteur</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">n</span>&#x00A0;<span 
class="ectt-1200">nombres</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Sorties:</span>&#x00A0;<span 
class="ectt-1200">void</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Description:</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Calcul</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">H4etoile(x),</span>&#x00A0;<span 
class="ectt-1200">H4etoile</span>&#x00A0;<span 
class="ectt-1200">etant</span>&#x00A0;<span 
class="ectt-1200">le</span>&#x00A0;<span 
class="ectt-1200">quatrieme</span>&#x00A0;<span 
class="ectt-1200">polynome</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">Legendre</span>&#x00A0;<span 
class="ectt-1200">modifie</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Modifie</span>&#x00A0;<span 
class="ectt-1200">le</span>&#x00A0;<span 
class="ectt-1200">vecteur</span>&#x00A0;<span 
class="ectt-1200">x</span>&#x00A0;<span 
class="ectt-1200">dans</span>&#x00A0;<span 
class="ectt-1200">le</span>&#x00A0;<span 
class="ectt-1200">programme</span>&#x00A0;<span 
class="ectt-1200">principal,</span>&#x00A0;<span 
class="ectt-1200">en</span>&#x00A0;<span 
class="ectt-1200">le</span>&#x00A0;<span 
class="ectt-1200">remplacant</span>&#x00A0;<span 
class="ectt-1200">par</span>&#x00A0;<span 
class="ectt-1200">H4etoile(x)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Utilisation</span>&#x00A0;<span 
class="ectt-1200">dans</span>&#x00A0;<span 
class="ectt-1200">une</span>&#x00A0;<span 
class="ectt-1200">fonction</span>&#x00A0;<span 
class="ectt-1200">main:</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">-------------------------------------</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PROGRAM</span>&#x00A0;<span 
class="ectt-1200">main</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">n,</span>&#x00A0;<span 
class="ectt-1200">i</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">longueur</span>&#x00A0;<span 
class="ectt-1200">du</span>&#x00A0;<span 
class="ectt-1200">vecteur</span>&#x00A0;<span 
class="ectt-1200">x,</span>&#x00A0;<span 
class="ectt-1200">a</span>&#x00A0;<span 
class="ectt-1200">modifier</span>&#x00A0;<span 
class="ectt-1200">dans</span>&#x00A0;<span 
class="ectt-1200">le</span>&#x00A0;<span 
class="ectt-1200">programme</span>&#x00A0;<span 
class="ectt-1200">principal</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(n=3)</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">initialisation</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">x,</span>&#x00A0;<span 
class="ectt-1200">y</span>&#x00A0;<span 
class="ectt-1200">et</span>&#x00A0;<span 
class="ectt-1200">xavant</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">x(n),</span>&#x00A0;<span 
class="ectt-1200">y(n),</span>&#x00A0;<span 
class="ectt-1200">xavant(n)</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">affectation</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">valeurs</span>&#x00A0;<span 
class="ectt-1200">a</span>&#x00A0;<span 
class="ectt-1200">x</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">x(1)=1</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">x(2)=2</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">x(3)=3</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">On</span>&#x00A0;<span 
class="ectt-1200">sauvegarde</span>&#x00A0;<span 
class="ectt-1200">les</span>&#x00A0;<span 
class="ectt-1200">valeurs</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">x</span>&#x00A0;<span 
class="ectt-1200">dans</span>&#x00A0;<span 
class="ectt-1200">xavant</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DO</span>&#x00A0;<span 
class="ectt-1200">10,</span>&#x00A0;<span 
class="ectt-1200">i=1,n</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">xavant(i)=x(i)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">10</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CONTINUE</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">calcul</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">H4etoile(x),</span>&#x00A0;<span 
class="ectt-1200">remplace</span>&#x00A0;<span 
class="ectt-1200">x</span>&#x00A0;<span 
class="ectt-1200">par</span>&#x00A0;<span 
class="ectt-1200">H4etoile(x)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CALL</span>&#x00A0;<span 
class="ectt-1200">H4etoi(n,x)</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">affecte</span>&#x00A0;<span 
class="ectt-1200">a</span>&#x00A0;<span 
class="ectt-1200">y</span>&#x00A0;<span 
class="ectt-1200">le</span>&#x00A0;<span 
class="ectt-1200">resultat</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DO</span>&#x00A0;<span 
class="ectt-1200">20,</span>&#x00A0;<span 
class="ectt-1200">i=1,n</span>

&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">y(i)=x(i)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">20</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CONTINUE</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">remet</span>&#x00A0;<span 
class="ectt-1200">les</span>&#x00A0;<span 
class="ectt-1200">bonnes</span>&#x00A0;<span 
class="ectt-1200">valeurs</span>&#x00A0;<span 
class="ectt-1200">dans</span>&#x00A0;<span 
class="ectt-1200">x</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">affecte</span>&#x00A0;<span 
class="ectt-1200">a</span>&#x00A0;<span 
class="ectt-1200">y</span>&#x00A0;<span 
class="ectt-1200">le</span>&#x00A0;<span 
class="ectt-1200">resultat</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DO</span>&#x00A0;<span 
class="ectt-1200">30,</span>&#x00A0;<span 
class="ectt-1200">i=1,n</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">x(i)=xavant(i)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">30</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CONTINUE</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Affichage</span>&#x00A0;<span 
class="ectt-1200">des</span>&#x00A0;<span 
class="ectt-1200">valeurs</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">y=H4etoile(x)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(UNIT=6,FMT=*)</span>&#x00A0;<span 
class="ectt-1200">&#x2019;Affichage</span>&#x00A0;<span 
class="ectt-1200">des</span>&#x00A0;<span 
class="ectt-1200">valeurs</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">y&#x2019;</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(UNIT=6,FMT=*)</span>&#x00A0;<span 
class="ectt-1200">y</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Affichage</span>&#x00A0;<span 
class="ectt-1200">des</span>&#x00A0;<span 
class="ectt-1200">valeurs</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">x</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(UNIT=6,FMT=*)</span>&#x00A0;<span 
class="ectt-1200">&#x2019;Affichage</span>&#x00A0;<span 
class="ectt-1200">des</span>&#x00A0;<span 
class="ectt-1200">valeurs</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">x&#x2019;</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(UNIT=6,FMT=*)</span>&#x00A0;<span 
class="ectt-1200">x</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">END</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">-------------------------------------</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Instructions</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">compilation:</span>&#x00A0;<span 
class="ectt-1200">alias</span>&#x00A0;<span 
class="ectt-1200">f77=&#x2019;fort77&#x2019;</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">f77</span>&#x00A0;<span 
class="ectt-1200">-c</span>&#x00A0;<span 
class="ectt-1200">nom_du_fichier_contenant_la_fonction_main.f</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">f77</span>&#x00A0;<span 
class="ectt-1200">-c</span>&#x00A0;<span 
class="ectt-1200">H4etoile.f</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">f77</span>&#x00A0;<span 
class="ectt-1200">nom_du_fichier_contenant_la_fonction_main.o</span>&#x00A0;<span 
class="ectt-1200">H4etoile.o</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Fonctions</span>&#x00A0;<span 
class="ectt-1200">exterieures</span>&#x00A0;<span 
class="ectt-1200">appelees:</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Auteur:</span>&#x00A0;<span 
class="ectt-1200">Pierre</span>&#x00A0;<span 
class="ectt-1200">Lafaye</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">Micheaux</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Date:</span>&#x00A0;<span 
class="ectt-1200">15/02/2001</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Fin-Commentaires</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">SUBROUTINE</span>&#x00A0;<span 
class="ectt-1200">H4etoi</span>&#x00A0;<span 
class="ectt-1200">(n,x)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">n,i</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">x(n)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DO</span>&#x00A0;<span 
class="ectt-1200">10,</span>&#x00A0;<span 
class="ectt-1200">i=1,n</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">x(i)=19.9129*(x(i)**4)-10.2598*(x(i)**2)-0.562652</span>
&#x00A0;<br />&#x00A0;<span 
class="ectt-1200">10</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CONTINUE</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">RETURN</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">END</span>
   </div>
<!--l. 511--><p class="indent">   <span 
class="ecbx-1200">Programme H5etoile.f</span> </p><div class="verbatiminput">
<span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Debut-Commentaires</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Nom</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">la</span>&#x00A0;<span 
class="ectt-1200">sous-routine:</span>&#x00A0;<span 
class="ectt-1200">H5etoi</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Entrees:</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">n</span>&#x00A0;<span 
class="ectt-1200">(entier),</span>&#x00A0;<span 
class="ectt-1200">longueur</span>&#x00A0;<span 
class="ectt-1200">du</span>&#x00A0;<span 
class="ectt-1200">vecteur</span>&#x00A0;<span 
class="ectt-1200">x</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">x</span>&#x00A0;<span 
class="ectt-1200">(double),</span>&#x00A0;<span 
class="ectt-1200">un</span>&#x00A0;<span 
class="ectt-1200">vecteur</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">n</span>&#x00A0;<span 
class="ectt-1200">nombres</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Sorties:</span>&#x00A0;<span 
class="ectt-1200">void</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Description:</span>

&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Calcul</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">H5etoile(x),</span>&#x00A0;<span 
class="ectt-1200">H5etoile</span>&#x00A0;<span 
class="ectt-1200">etant</span>&#x00A0;<span 
class="ectt-1200">le</span>&#x00A0;<span 
class="ectt-1200">cinquieme</span>&#x00A0;<span 
class="ectt-1200">polynome</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">Legendre</span>&#x00A0;<span 
class="ectt-1200">modifie</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Modifie</span>&#x00A0;<span 
class="ectt-1200">le</span>&#x00A0;<span 
class="ectt-1200">vecteur</span>&#x00A0;<span 
class="ectt-1200">x</span>&#x00A0;<span 
class="ectt-1200">dans</span>&#x00A0;<span 
class="ectt-1200">le</span>&#x00A0;<span 
class="ectt-1200">programme</span>&#x00A0;<span 
class="ectt-1200">principal,</span>&#x00A0;<span 
class="ectt-1200">en</span>&#x00A0;<span 
class="ectt-1200">le</span>&#x00A0;<span 
class="ectt-1200">remplacant</span>&#x00A0;<span 
class="ectt-1200">par</span>&#x00A0;<span 
class="ectt-1200">H5etoile(x)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Utilisation</span>&#x00A0;<span 
class="ectt-1200">dans</span>&#x00A0;<span 
class="ectt-1200">une</span>&#x00A0;<span 
class="ectt-1200">fonction</span>&#x00A0;<span 
class="ectt-1200">main:</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">-------------------------------------</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PROGRAM</span>&#x00A0;<span 
class="ectt-1200">main</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">n,</span>&#x00A0;<span 
class="ectt-1200">i</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">longueur</span>&#x00A0;<span 
class="ectt-1200">du</span>&#x00A0;<span 
class="ectt-1200">vecteur</span>&#x00A0;<span 
class="ectt-1200">x,</span>&#x00A0;<span 
class="ectt-1200">a</span>&#x00A0;<span 
class="ectt-1200">modifier</span>&#x00A0;<span 
class="ectt-1200">dans</span>&#x00A0;<span 
class="ectt-1200">le</span>&#x00A0;<span 
class="ectt-1200">programme</span>&#x00A0;<span 
class="ectt-1200">principal</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(n=3)</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">initialisation</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">x,</span>&#x00A0;<span 
class="ectt-1200">y</span>&#x00A0;<span 
class="ectt-1200">et</span>&#x00A0;<span 
class="ectt-1200">xavant</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">x(n),</span>&#x00A0;<span 
class="ectt-1200">y(n),</span>&#x00A0;<span 
class="ectt-1200">xavant(n)</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">affectation</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">valeurs</span>&#x00A0;<span 
class="ectt-1200">a</span>&#x00A0;<span 
class="ectt-1200">x</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">x(1)=1</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">x(2)=2</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">x(3)=3</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">On</span>&#x00A0;<span 
class="ectt-1200">sauvegarde</span>&#x00A0;<span 
class="ectt-1200">les</span>&#x00A0;<span 
class="ectt-1200">valeurs</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">x</span>&#x00A0;<span 
class="ectt-1200">dans</span>&#x00A0;<span 
class="ectt-1200">xavant</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DO</span>&#x00A0;<span 
class="ectt-1200">10,</span>&#x00A0;<span 
class="ectt-1200">i=1,n</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">xavant(i)=x(i)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">10</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CONTINUE</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">calcul</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">H5etoile(x),</span>&#x00A0;<span 
class="ectt-1200">remplace</span>&#x00A0;<span 
class="ectt-1200">x</span>&#x00A0;<span 
class="ectt-1200">par</span>&#x00A0;<span 
class="ectt-1200">H5etoile(x)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CALL</span>&#x00A0;<span 
class="ectt-1200">H5etoi(n,x)</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">affecte</span>&#x00A0;<span 
class="ectt-1200">a</span>&#x00A0;<span 
class="ectt-1200">y</span>&#x00A0;<span 
class="ectt-1200">le</span>&#x00A0;<span 
class="ectt-1200">resultat</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DO</span>&#x00A0;<span 
class="ectt-1200">20,</span>&#x00A0;<span 
class="ectt-1200">i=1,n</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">y(i)=x(i)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">20</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CONTINUE</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">remet</span>&#x00A0;<span 
class="ectt-1200">les</span>&#x00A0;<span 
class="ectt-1200">bonnes</span>&#x00A0;<span 
class="ectt-1200">valeurs</span>&#x00A0;<span 
class="ectt-1200">dans</span>&#x00A0;<span 
class="ectt-1200">x</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">affecte</span>&#x00A0;<span 
class="ectt-1200">a</span>&#x00A0;<span 
class="ectt-1200">y</span>&#x00A0;<span 
class="ectt-1200">le</span>&#x00A0;<span 
class="ectt-1200">resultat</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DO</span>&#x00A0;<span 
class="ectt-1200">30,</span>&#x00A0;<span 
class="ectt-1200">i=1,n</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">x(i)=xavant(i)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">30</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CONTINUE</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Affichage</span>&#x00A0;<span 
class="ectt-1200">des</span>&#x00A0;<span 
class="ectt-1200">valeurs</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">y=H5etoile(x)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(UNIT=6,FMT=*)</span>&#x00A0;<span 
class="ectt-1200">&#x2019;Affichage</span>&#x00A0;<span 
class="ectt-1200">des</span>&#x00A0;<span 
class="ectt-1200">valeurs</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">y&#x2019;</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(UNIT=6,FMT=*)</span>&#x00A0;<span 
class="ectt-1200">y</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Affichage</span>&#x00A0;<span 
class="ectt-1200">des</span>&#x00A0;<span 
class="ectt-1200">valeurs</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">x</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(UNIT=6,FMT=*)</span>&#x00A0;<span 
class="ectt-1200">&#x2019;Affichage</span>&#x00A0;<span 
class="ectt-1200">des</span>&#x00A0;<span 
class="ectt-1200">valeurs</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">x&#x2019;</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(UNIT=6,FMT=*)</span>&#x00A0;<span 
class="ectt-1200">x</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">END</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">-------------------------------------</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Instructions</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">compilation:</span>&#x00A0;<span 
class="ectt-1200">alias</span>&#x00A0;<span 
class="ectt-1200">f77=&#x2019;fort77&#x2019;</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">f77</span>&#x00A0;<span 
class="ectt-1200">-c</span>&#x00A0;<span 
class="ectt-1200">nom_du_fichier_contenant_la_fonction_main.f</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">f77</span>&#x00A0;<span 
class="ectt-1200">-c</span>&#x00A0;<span 
class="ectt-1200">H5etoile.f</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">f77</span>&#x00A0;<span 
class="ectt-1200">nom_du_fichier_contenant_la_fonction_main.o</span>&#x00A0;<span 
class="ectt-1200">H5etoile.o</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Fonctions</span>&#x00A0;<span 
class="ectt-1200">exterieures</span>&#x00A0;<span 
class="ectt-1200">appelees:</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Auteur:</span>&#x00A0;<span 
class="ectt-1200">Pierre</span>&#x00A0;<span 
class="ectt-1200">Lafaye</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">Micheaux</span>

&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Date:</span>&#x00A0;<span 
class="ectt-1200">15/02/2001</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Fin-Commentaires</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">SUBROUTINE</span>&#x00A0;<span 
class="ectt-1200">H5etoi</span>&#x00A0;<span 
class="ectt-1200">(n,x)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">n,i</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">x(n)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DO</span>&#x00A0;<span 
class="ectt-1200">10,</span>&#x00A0;<span 
class="ectt-1200">i=1,n</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">x(i)=26.1184*(x(i)**5)-29.0205*(x(i)**3)+6.21867*x(i)</span>
&#x00A0;<br />&#x00A0;<span 
class="ectt-1200">10</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CONTINUE</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">RETURN</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">END</span>
   </div>
<!--l. 515--><p class="indent">   <span 
class="ecbx-1200">Programme H6etoile.f</span> </p><div class="verbatiminput">
<span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Debut-Commentaires</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Nom</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">la</span>&#x00A0;<span 
class="ectt-1200">sous-routine:</span>&#x00A0;<span 
class="ectt-1200">H6etoi</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Entrees:</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">n</span>&#x00A0;<span 
class="ectt-1200">(entier),</span>&#x00A0;<span 
class="ectt-1200">longueur</span>&#x00A0;<span 
class="ectt-1200">du</span>&#x00A0;<span 
class="ectt-1200">vecteur</span>&#x00A0;<span 
class="ectt-1200">x</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">x</span>&#x00A0;<span 
class="ectt-1200">(double),</span>&#x00A0;<span 
class="ectt-1200">un</span>&#x00A0;<span 
class="ectt-1200">vecteur</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">n</span>&#x00A0;<span 
class="ectt-1200">nombres</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Sorties:</span>&#x00A0;<span 
class="ectt-1200">void</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Description:</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Calcul</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">H6etoile(x),</span>&#x00A0;<span 
class="ectt-1200">H6etoile</span>&#x00A0;<span 
class="ectt-1200">etant</span>&#x00A0;<span 
class="ectt-1200">le</span>&#x00A0;<span 
class="ectt-1200">sixieme</span>&#x00A0;<span 
class="ectt-1200">polynome</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">Legendre</span>&#x00A0;<span 
class="ectt-1200">modifie</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Modifie</span>&#x00A0;<span 
class="ectt-1200">le</span>&#x00A0;<span 
class="ectt-1200">vecteur</span>&#x00A0;<span 
class="ectt-1200">x</span>&#x00A0;<span 
class="ectt-1200">dans</span>&#x00A0;<span 
class="ectt-1200">le</span>&#x00A0;<span 
class="ectt-1200">programme</span>&#x00A0;<span 
class="ectt-1200">principal,</span>&#x00A0;<span 
class="ectt-1200">en</span>&#x00A0;<span 
class="ectt-1200">le</span>&#x00A0;<span 
class="ectt-1200">remplacant</span>&#x00A0;<span 
class="ectt-1200">par</span>&#x00A0;<span 
class="ectt-1200">H6etoile(x)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Utilisation</span>&#x00A0;<span 
class="ectt-1200">dans</span>&#x00A0;<span 
class="ectt-1200">une</span>&#x00A0;<span 
class="ectt-1200">fonction</span>&#x00A0;<span 
class="ectt-1200">main:</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">-------------------------------------</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PROGRAM</span>&#x00A0;<span 
class="ectt-1200">main</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">n,</span>&#x00A0;<span 
class="ectt-1200">i</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">longueur</span>&#x00A0;<span 
class="ectt-1200">du</span>&#x00A0;<span 
class="ectt-1200">vecteur</span>&#x00A0;<span 
class="ectt-1200">x,</span>&#x00A0;<span 
class="ectt-1200">a</span>&#x00A0;<span 
class="ectt-1200">modifier</span>&#x00A0;<span 
class="ectt-1200">dans</span>&#x00A0;<span 
class="ectt-1200">le</span>&#x00A0;<span 
class="ectt-1200">programme</span>&#x00A0;<span 
class="ectt-1200">principal</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(n=3)</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">initialisation</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">x,</span>&#x00A0;<span 
class="ectt-1200">y</span>&#x00A0;<span 
class="ectt-1200">et</span>&#x00A0;<span 
class="ectt-1200">xavant</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">x(n),</span>&#x00A0;<span 
class="ectt-1200">y(n),</span>&#x00A0;<span 
class="ectt-1200">xavant(n)</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">affectation</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">valeurs</span>&#x00A0;<span 
class="ectt-1200">a</span>&#x00A0;<span 
class="ectt-1200">x</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">x(1)=1</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">x(2)=2</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">x(3)=3</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">On</span>&#x00A0;<span 
class="ectt-1200">sauvegarde</span>&#x00A0;<span 
class="ectt-1200">les</span>&#x00A0;<span 
class="ectt-1200">valeurs</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">x</span>&#x00A0;<span 
class="ectt-1200">dans</span>&#x00A0;<span 
class="ectt-1200">xavant</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DO</span>&#x00A0;<span 
class="ectt-1200">10,</span>&#x00A0;<span 
class="ectt-1200">i=1,n</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">xavant(i)=x(i)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">10</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CONTINUE</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">calcul</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">H6etoile(x),</span>&#x00A0;<span 
class="ectt-1200">remplace</span>&#x00A0;<span 
class="ectt-1200">x</span>&#x00A0;<span 
class="ectt-1200">par</span>&#x00A0;<span 
class="ectt-1200">H6etoile(x)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CALL</span>&#x00A0;<span 
class="ectt-1200">H6etoi(n,x)</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">affecte</span>&#x00A0;<span 
class="ectt-1200">a</span>&#x00A0;<span 
class="ectt-1200">y</span>&#x00A0;<span 
class="ectt-1200">le</span>&#x00A0;<span 
class="ectt-1200">resultat</span>

&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DO</span>&#x00A0;<span 
class="ectt-1200">20,</span>&#x00A0;<span 
class="ectt-1200">i=1,n</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">y(i)=x(i)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">20</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CONTINUE</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">remet</span>&#x00A0;<span 
class="ectt-1200">les</span>&#x00A0;<span 
class="ectt-1200">bonnes</span>&#x00A0;<span 
class="ectt-1200">valeurs</span>&#x00A0;<span 
class="ectt-1200">dans</span>&#x00A0;<span 
class="ectt-1200">x</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">affecte</span>&#x00A0;<span 
class="ectt-1200">a</span>&#x00A0;<span 
class="ectt-1200">y</span>&#x00A0;<span 
class="ectt-1200">le</span>&#x00A0;<span 
class="ectt-1200">resultat</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DO</span>&#x00A0;<span 
class="ectt-1200">30,</span>&#x00A0;<span 
class="ectt-1200">i=1,n</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">x(i)=xavant(i)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">30</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CONTINUE</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Affichage</span>&#x00A0;<span 
class="ectt-1200">des</span>&#x00A0;<span 
class="ectt-1200">valeurs</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">y=H6etoile(x)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(UNIT=6,FMT=*)</span>&#x00A0;<span 
class="ectt-1200">&#x2019;Affichage</span>&#x00A0;<span 
class="ectt-1200">des</span>&#x00A0;<span 
class="ectt-1200">valeurs</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">y&#x2019;</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(UNIT=6,FMT=*)</span>&#x00A0;<span 
class="ectt-1200">y</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Affichage</span>&#x00A0;<span 
class="ectt-1200">des</span>&#x00A0;<span 
class="ectt-1200">valeurs</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">x</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(UNIT=6,FMT=*)</span>&#x00A0;<span 
class="ectt-1200">&#x2019;Affichage</span>&#x00A0;<span 
class="ectt-1200">des</span>&#x00A0;<span 
class="ectt-1200">valeurs</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">x&#x2019;</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(UNIT=6,FMT=*)</span>&#x00A0;<span 
class="ectt-1200">x</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">END</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">-------------------------------------</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Instructions</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">compilation:</span>&#x00A0;<span 
class="ectt-1200">alias</span>&#x00A0;<span 
class="ectt-1200">f77=&#x2019;fort77&#x2019;</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">f77</span>&#x00A0;<span 
class="ectt-1200">-c</span>&#x00A0;<span 
class="ectt-1200">nom_du_fichier_contenant_la_fonction_main.f</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">f77</span>&#x00A0;<span 
class="ectt-1200">-c</span>&#x00A0;<span 
class="ectt-1200">H6etoile.f</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">f77</span>&#x00A0;<span 
class="ectt-1200">nom_du_fichier_contenant_la_fonction_main.o</span>&#x00A0;<span 
class="ectt-1200">H6etoile.o</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Fonctions</span>&#x00A0;<span 
class="ectt-1200">exterieures</span>&#x00A0;<span 
class="ectt-1200">appelees:</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Auteur:</span>&#x00A0;<span 
class="ectt-1200">Pierre</span>&#x00A0;<span 
class="ectt-1200">Lafaye</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">Micheaux</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Date:</span>&#x00A0;<span 
class="ectt-1200">15/02/2001</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Fin-Commentaires</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">SUBROUTINE</span>&#x00A0;<span 
class="ectt-1200">H6etoi</span>&#x00A0;<span 
class="ectt-1200">(n,x)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">n,i</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">x(n)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DO</span>&#x00A0;<span 
class="ectt-1200">10,</span>&#x00A0;<span 
class="ectt-1200">i=1,n</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">x(i)=69.8435*(x(i)**6)-81.845*(x(i)**4)+28.3633*(x(i)**2)-3.06303</span>
&#x00A0;<br />&#x00A0;<span 
class="ectt-1200">10</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CONTINUE</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">RETURN</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">END</span>
   </div>
<!--l. 519--><p class="indent">   <span 
class="ecbx-1200">Programme H7etoile.f</span> </p><div class="verbatiminput">
<span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Debut-Commentaires</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Nom</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">la</span>&#x00A0;<span 
class="ectt-1200">sous-routine:</span>&#x00A0;<span 
class="ectt-1200">H7etoi</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Entrees:</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">n</span>&#x00A0;<span 
class="ectt-1200">(entier),</span>&#x00A0;<span 
class="ectt-1200">longueur</span>&#x00A0;<span 
class="ectt-1200">du</span>&#x00A0;<span 
class="ectt-1200">vecteur</span>&#x00A0;<span 
class="ectt-1200">x</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">x</span>&#x00A0;<span 
class="ectt-1200">(double),</span>&#x00A0;<span 
class="ectt-1200">un</span>&#x00A0;<span 
class="ectt-1200">vecteur</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">n</span>&#x00A0;<span 
class="ectt-1200">nombres</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Sorties:</span>&#x00A0;<span 
class="ectt-1200">void</span>

&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Description:</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Calcul</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">H7etoile(x),</span>&#x00A0;<span 
class="ectt-1200">H7etoile</span>&#x00A0;<span 
class="ectt-1200">etant</span>&#x00A0;<span 
class="ectt-1200">le</span>&#x00A0;<span 
class="ectt-1200">septieme</span>&#x00A0;<span 
class="ectt-1200">polynome</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">Legendre</span>&#x00A0;<span 
class="ectt-1200">modifie</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Modifie</span>&#x00A0;<span 
class="ectt-1200">le</span>&#x00A0;<span 
class="ectt-1200">vecteur</span>&#x00A0;<span 
class="ectt-1200">x</span>&#x00A0;<span 
class="ectt-1200">dans</span>&#x00A0;<span 
class="ectt-1200">le</span>&#x00A0;<span 
class="ectt-1200">programme</span>&#x00A0;<span 
class="ectt-1200">principal,</span>&#x00A0;<span 
class="ectt-1200">en</span>&#x00A0;<span 
class="ectt-1200">le</span>&#x00A0;<span 
class="ectt-1200">remplacant</span>&#x00A0;<span 
class="ectt-1200">par</span>&#x00A0;<span 
class="ectt-1200">H7etoile(x)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Utilisation</span>&#x00A0;<span 
class="ectt-1200">dans</span>&#x00A0;<span 
class="ectt-1200">une</span>&#x00A0;<span 
class="ectt-1200">fonction</span>&#x00A0;<span 
class="ectt-1200">main:</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">-------------------------------------</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PROGRAM</span>&#x00A0;<span 
class="ectt-1200">main</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">n,</span>&#x00A0;<span 
class="ectt-1200">i</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">longueur</span>&#x00A0;<span 
class="ectt-1200">du</span>&#x00A0;<span 
class="ectt-1200">vecteur</span>&#x00A0;<span 
class="ectt-1200">x,</span>&#x00A0;<span 
class="ectt-1200">a</span>&#x00A0;<span 
class="ectt-1200">modifier</span>&#x00A0;<span 
class="ectt-1200">dans</span>&#x00A0;<span 
class="ectt-1200">le</span>&#x00A0;<span 
class="ectt-1200">programme</span>&#x00A0;<span 
class="ectt-1200">principal</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(n=3)</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">initialisation</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">x,</span>&#x00A0;<span 
class="ectt-1200">y</span>&#x00A0;<span 
class="ectt-1200">et</span>&#x00A0;<span 
class="ectt-1200">xavant</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">x(n),</span>&#x00A0;<span 
class="ectt-1200">y(n),</span>&#x00A0;<span 
class="ectt-1200">xavant(n)</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">affectation</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">valeurs</span>&#x00A0;<span 
class="ectt-1200">a</span>&#x00A0;<span 
class="ectt-1200">x</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">x(1)=1</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">x(2)=2</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">x(3)=3</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">On</span>&#x00A0;<span 
class="ectt-1200">sauvegarde</span>&#x00A0;<span 
class="ectt-1200">les</span>&#x00A0;<span 
class="ectt-1200">valeurs</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">x</span>&#x00A0;<span 
class="ectt-1200">dans</span>&#x00A0;<span 
class="ectt-1200">xavant</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DO</span>&#x00A0;<span 
class="ectt-1200">10,</span>&#x00A0;<span 
class="ectt-1200">i=1,n</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">xavant(i)=x(i)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">10</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CONTINUE</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">calcul</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">H7etoile(x),</span>&#x00A0;<span 
class="ectt-1200">remplace</span>&#x00A0;<span 
class="ectt-1200">x</span>&#x00A0;<span 
class="ectt-1200">par</span>&#x00A0;<span 
class="ectt-1200">H7etoile(x)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CALL</span>&#x00A0;<span 
class="ectt-1200">H7etoi(n,x)</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">affecte</span>&#x00A0;<span 
class="ectt-1200">a</span>&#x00A0;<span 
class="ectt-1200">y</span>&#x00A0;<span 
class="ectt-1200">le</span>&#x00A0;<span 
class="ectt-1200">resultat</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DO</span>&#x00A0;<span 
class="ectt-1200">20,</span>&#x00A0;<span 
class="ectt-1200">i=1,n</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">y(i)=x(i)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">20</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CONTINUE</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">remet</span>&#x00A0;<span 
class="ectt-1200">les</span>&#x00A0;<span 
class="ectt-1200">bonnes</span>&#x00A0;<span 
class="ectt-1200">valeurs</span>&#x00A0;<span 
class="ectt-1200">dans</span>&#x00A0;<span 
class="ectt-1200">x</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">affecte</span>&#x00A0;<span 
class="ectt-1200">a</span>&#x00A0;<span 
class="ectt-1200">y</span>&#x00A0;<span 
class="ectt-1200">le</span>&#x00A0;<span 
class="ectt-1200">resultat</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DO</span>&#x00A0;<span 
class="ectt-1200">30,</span>&#x00A0;<span 
class="ectt-1200">i=1,n</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">x(i)=xavant(i)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">30</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CONTINUE</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Affichage</span>&#x00A0;<span 
class="ectt-1200">des</span>&#x00A0;<span 
class="ectt-1200">valeurs</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">y=H7etoile(x)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(UNIT=6,FMT=*)</span>&#x00A0;<span 
class="ectt-1200">&#x2019;Affichage</span>&#x00A0;<span 
class="ectt-1200">des</span>&#x00A0;<span 
class="ectt-1200">valeurs</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">y&#x2019;</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(UNIT=6,FMT=*)</span>&#x00A0;<span 
class="ectt-1200">y</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Affichage</span>&#x00A0;<span 
class="ectt-1200">des</span>&#x00A0;<span 
class="ectt-1200">valeurs</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">x</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(UNIT=6,FMT=*)</span>&#x00A0;<span 
class="ectt-1200">&#x2019;Affichage</span>&#x00A0;<span 
class="ectt-1200">des</span>&#x00A0;<span 
class="ectt-1200">valeurs</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">x&#x2019;</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(UNIT=6,FMT=*)</span>&#x00A0;<span 
class="ectt-1200">x</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">END</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">-------------------------------------</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Instructions</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">compilation:</span>&#x00A0;<span 
class="ectt-1200">alias</span>&#x00A0;<span 
class="ectt-1200">f77=&#x2019;fort77&#x2019;</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">f77</span>&#x00A0;<span 
class="ectt-1200">-c</span>&#x00A0;<span 
class="ectt-1200">nom_du_fichier_contenant_la_fonction_main.f</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">f77</span>&#x00A0;<span 
class="ectt-1200">-c</span>&#x00A0;<span 
class="ectt-1200">H7etoile.f</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">f77</span>&#x00A0;<span 
class="ectt-1200">nom_du_fichier_contenant_la_fonction_main.o</span>&#x00A0;<span 
class="ectt-1200">H7etoile.o</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Fonctions</span>&#x00A0;<span 
class="ectt-1200">exterieures</span>&#x00A0;<span 
class="ectt-1200">appelees:</span>

&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Auteur:</span>&#x00A0;<span 
class="ectt-1200">Pierre</span>&#x00A0;<span 
class="ectt-1200">Lafaye</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">Micheaux</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Date:</span>&#x00A0;<span 
class="ectt-1200">15/02/2001</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Fin-Commentaires</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">SUBROUTINE</span>&#x00A0;<span 
class="ectt-1200">H7etoi</span>&#x00A0;<span 
class="ectt-1200">(n,x)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">n,i</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">x(n)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DO</span>&#x00A0;<span 
class="ectt-1200">10,</span>&#x00A0;<span 
class="ectt-1200">i=1,n</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">x(i)=103.844*(x(i)**7)-167.749*(x(i)**5)+</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">$</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">76.2494*(x(i)**3)-8.47215*x(i)</span>
&#x00A0;<br />&#x00A0;<span 
class="ectt-1200">10</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CONTINUE</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">RETURN</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">END</span>
   </div>
<!--l. 523--><p class="indent">   <span 
class="ecbx-1200">Programme H8etoile.f</span> </p><div class="verbatiminput">
<span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Debut-Commentaires</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Nom</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">la</span>&#x00A0;<span 
class="ectt-1200">sous-routine:</span>&#x00A0;<span 
class="ectt-1200">H8etoi</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Entrees:</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">n</span>&#x00A0;<span 
class="ectt-1200">(entier),</span>&#x00A0;<span 
class="ectt-1200">longueur</span>&#x00A0;<span 
class="ectt-1200">du</span>&#x00A0;<span 
class="ectt-1200">vecteur</span>&#x00A0;<span 
class="ectt-1200">x</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">x</span>&#x00A0;<span 
class="ectt-1200">(double),</span>&#x00A0;<span 
class="ectt-1200">un</span>&#x00A0;<span 
class="ectt-1200">vecteur</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">n</span>&#x00A0;<span 
class="ectt-1200">nombres</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Sorties:</span>&#x00A0;<span 
class="ectt-1200">void</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Description:</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Calcul</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">H8etoile(x),</span>&#x00A0;<span 
class="ectt-1200">H8etoile</span>&#x00A0;<span 
class="ectt-1200">etant</span>&#x00A0;<span 
class="ectt-1200">le</span>&#x00A0;<span 
class="ectt-1200">huitieme</span>&#x00A0;<span 
class="ectt-1200">polynome</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">Legendre</span>&#x00A0;<span 
class="ectt-1200">modifie</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Modifie</span>&#x00A0;<span 
class="ectt-1200">le</span>&#x00A0;<span 
class="ectt-1200">vecteur</span>&#x00A0;<span 
class="ectt-1200">x</span>&#x00A0;<span 
class="ectt-1200">dans</span>&#x00A0;<span 
class="ectt-1200">le</span>&#x00A0;<span 
class="ectt-1200">programme</span>&#x00A0;<span 
class="ectt-1200">principal,</span>&#x00A0;<span 
class="ectt-1200">en</span>&#x00A0;<span 
class="ectt-1200">le</span>&#x00A0;<span 
class="ectt-1200">remplacant</span>&#x00A0;<span 
class="ectt-1200">par</span>&#x00A0;<span 
class="ectt-1200">H8etoile(x)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Utilisation</span>&#x00A0;<span 
class="ectt-1200">dans</span>&#x00A0;<span 
class="ectt-1200">une</span>&#x00A0;<span 
class="ectt-1200">fonction</span>&#x00A0;<span 
class="ectt-1200">main:</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">-------------------------------------</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PROGRAM</span>&#x00A0;<span 
class="ectt-1200">main</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">n,</span>&#x00A0;<span 
class="ectt-1200">i</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">longueur</span>&#x00A0;<span 
class="ectt-1200">du</span>&#x00A0;<span 
class="ectt-1200">vecteur</span>&#x00A0;<span 
class="ectt-1200">x,</span>&#x00A0;<span 
class="ectt-1200">a</span>&#x00A0;<span 
class="ectt-1200">modifier</span>&#x00A0;<span 
class="ectt-1200">dans</span>&#x00A0;<span 
class="ectt-1200">le</span>&#x00A0;<span 
class="ectt-1200">programme</span>&#x00A0;<span 
class="ectt-1200">principal</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(n=3)</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">initialisation</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">x,</span>&#x00A0;<span 
class="ectt-1200">y</span>&#x00A0;<span 
class="ectt-1200">et</span>&#x00A0;<span 
class="ectt-1200">xavant</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">x(n),</span>&#x00A0;<span 
class="ectt-1200">y(n),</span>&#x00A0;<span 
class="ectt-1200">xavant(n)</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">affectation</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">valeurs</span>&#x00A0;<span 
class="ectt-1200">a</span>&#x00A0;<span 
class="ectt-1200">x</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">x(1)=1</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">x(2)=2</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">x(3)=3</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">On</span>&#x00A0;<span 
class="ectt-1200">sauvegarde</span>&#x00A0;<span 
class="ectt-1200">les</span>&#x00A0;<span 
class="ectt-1200">valeurs</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">x</span>&#x00A0;<span 
class="ectt-1200">dans</span>&#x00A0;<span 
class="ectt-1200">xavant</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DO</span>&#x00A0;<span 
class="ectt-1200">10,</span>&#x00A0;<span 
class="ectt-1200">i=1,n</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">xavant(i)=x(i)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">10</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CONTINUE</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">calcul</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">H8etoile(x),</span>&#x00A0;<span 
class="ectt-1200">remplace</span>&#x00A0;<span 
class="ectt-1200">x</span>&#x00A0;<span 
class="ectt-1200">par</span>&#x00A0;<span 
class="ectt-1200">H8etoile(x)</span>

&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CALL</span>&#x00A0;<span 
class="ectt-1200">H8etoi(n,x)</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">affecte</span>&#x00A0;<span 
class="ectt-1200">a</span>&#x00A0;<span 
class="ectt-1200">y</span>&#x00A0;<span 
class="ectt-1200">le</span>&#x00A0;<span 
class="ectt-1200">resultat</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DO</span>&#x00A0;<span 
class="ectt-1200">20,</span>&#x00A0;<span 
class="ectt-1200">i=1,n</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">y(i)=x(i)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">20</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CONTINUE</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">remet</span>&#x00A0;<span 
class="ectt-1200">les</span>&#x00A0;<span 
class="ectt-1200">bonnes</span>&#x00A0;<span 
class="ectt-1200">valeurs</span>&#x00A0;<span 
class="ectt-1200">dans</span>&#x00A0;<span 
class="ectt-1200">x</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">affecte</span>&#x00A0;<span 
class="ectt-1200">a</span>&#x00A0;<span 
class="ectt-1200">y</span>&#x00A0;<span 
class="ectt-1200">le</span>&#x00A0;<span 
class="ectt-1200">resultat</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DO</span>&#x00A0;<span 
class="ectt-1200">30,</span>&#x00A0;<span 
class="ectt-1200">i=1,n</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">x(i)=xavant(i)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">30</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CONTINUE</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Affichage</span>&#x00A0;<span 
class="ectt-1200">des</span>&#x00A0;<span 
class="ectt-1200">valeurs</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">y=H8etoile(x)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(UNIT=6,FMT=*)</span>&#x00A0;<span 
class="ectt-1200">&#x2019;Affichage</span>&#x00A0;<span 
class="ectt-1200">des</span>&#x00A0;<span 
class="ectt-1200">valeurs</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">y&#x2019;</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(UNIT=6,FMT=*)</span>&#x00A0;<span 
class="ectt-1200">y</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Affichage</span>&#x00A0;<span 
class="ectt-1200">des</span>&#x00A0;<span 
class="ectt-1200">valeurs</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">x</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(UNIT=6,FMT=*)</span>&#x00A0;<span 
class="ectt-1200">&#x2019;Affichage</span>&#x00A0;<span 
class="ectt-1200">des</span>&#x00A0;<span 
class="ectt-1200">valeurs</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">x&#x2019;</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(UNIT=6,FMT=*)</span>&#x00A0;<span 
class="ectt-1200">x</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">END</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">-------------------------------------</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Instructions</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">compilation:</span>&#x00A0;<span 
class="ectt-1200">alias</span>&#x00A0;<span 
class="ectt-1200">f77=&#x2019;fort77&#x2019;</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">f77</span>&#x00A0;<span 
class="ectt-1200">-c</span>&#x00A0;<span 
class="ectt-1200">nom_du_fichier_contenant_la_fonction_main.f</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">f77</span>&#x00A0;<span 
class="ectt-1200">-c</span>&#x00A0;<span 
class="ectt-1200">H8etoile.f</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">f77</span>&#x00A0;<span 
class="ectt-1200">nom_du_fichier_contenant_la_fonction_main.o</span>&#x00A0;<span 
class="ectt-1200">H8etoile.o</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Fonctions</span>&#x00A0;<span 
class="ectt-1200">exterieures</span>&#x00A0;<span 
class="ectt-1200">appelees:</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Auteur:</span>&#x00A0;<span 
class="ectt-1200">Pierre</span>&#x00A0;<span 
class="ectt-1200">Lafaye</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">Micheaux</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Date:</span>&#x00A0;<span 
class="ectt-1200">15/02/2001</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Fin-Commentaires</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">SUBROUTINE</span>&#x00A0;<span 
class="ectt-1200">H8etoi</span>&#x00A0;<span 
class="ectt-1200">(n,x)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">n,i</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">x(n)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DO</span>&#x00A0;<span 
class="ectt-1200">10,</span>&#x00A0;<span 
class="ectt-1200">i=1,n</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">x(i)=260.07*(x(i)**8)-450.179*(x(i)**6)+</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">$</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">247.184*(x(i)**4)-38.7299*(x(i)**2)-1.11233</span>
&#x00A0;<br />&#x00A0;<span 
class="ectt-1200">10</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CONTINUE</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">RETURN</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">END</span>
   </div>
<!--l. 527--><p class="indent">   <span 
class="ecbx-1200">Programme H9etoile.f</span> </p><div class="verbatiminput">
<span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Debut-Commentaires</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Nom</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">la</span>&#x00A0;<span 
class="ectt-1200">sous-routine:</span>&#x00A0;<span 
class="ectt-1200">H9etoi</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Entrees:</span>

&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">n</span>&#x00A0;<span 
class="ectt-1200">(entier),</span>&#x00A0;<span 
class="ectt-1200">longueur</span>&#x00A0;<span 
class="ectt-1200">du</span>&#x00A0;<span 
class="ectt-1200">vecteur</span>&#x00A0;<span 
class="ectt-1200">x</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">x</span>&#x00A0;<span 
class="ectt-1200">(double),</span>&#x00A0;<span 
class="ectt-1200">un</span>&#x00A0;<span 
class="ectt-1200">vecteur</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">n</span>&#x00A0;<span 
class="ectt-1200">nombres</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Sorties:</span>&#x00A0;<span 
class="ectt-1200">void</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Description:</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Calcul</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">H9etoile(x),</span>&#x00A0;<span 
class="ectt-1200">H9etoile</span>&#x00A0;<span 
class="ectt-1200">etant</span>&#x00A0;<span 
class="ectt-1200">le</span>&#x00A0;<span 
class="ectt-1200">neuvieme</span>&#x00A0;<span 
class="ectt-1200">polynome</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">Legendre</span>&#x00A0;<span 
class="ectt-1200">modifie</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Modifie</span>&#x00A0;<span 
class="ectt-1200">le</span>&#x00A0;<span 
class="ectt-1200">vecteur</span>&#x00A0;<span 
class="ectt-1200">x</span>&#x00A0;<span 
class="ectt-1200">dans</span>&#x00A0;<span 
class="ectt-1200">le</span>&#x00A0;<span 
class="ectt-1200">programme</span>&#x00A0;<span 
class="ectt-1200">principal,</span>&#x00A0;<span 
class="ectt-1200">en</span>&#x00A0;<span 
class="ectt-1200">le</span>&#x00A0;<span 
class="ectt-1200">remplacant</span>&#x00A0;<span 
class="ectt-1200">par</span>&#x00A0;<span 
class="ectt-1200">H9etoile(x)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Utilisation</span>&#x00A0;<span 
class="ectt-1200">dans</span>&#x00A0;<span 
class="ectt-1200">une</span>&#x00A0;<span 
class="ectt-1200">fonction</span>&#x00A0;<span 
class="ectt-1200">main:</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">-------------------------------------</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PROGRAM</span>&#x00A0;<span 
class="ectt-1200">main</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">n,</span>&#x00A0;<span 
class="ectt-1200">i</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">longueur</span>&#x00A0;<span 
class="ectt-1200">du</span>&#x00A0;<span 
class="ectt-1200">vecteur</span>&#x00A0;<span 
class="ectt-1200">x,</span>&#x00A0;<span 
class="ectt-1200">a</span>&#x00A0;<span 
class="ectt-1200">modifier</span>&#x00A0;<span 
class="ectt-1200">dans</span>&#x00A0;<span 
class="ectt-1200">le</span>&#x00A0;<span 
class="ectt-1200">programme</span>&#x00A0;<span 
class="ectt-1200">principal</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(n=3)</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">initialisation</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">x,</span>&#x00A0;<span 
class="ectt-1200">y</span>&#x00A0;<span 
class="ectt-1200">et</span>&#x00A0;<span 
class="ectt-1200">xavant</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">x(n),</span>&#x00A0;<span 
class="ectt-1200">y(n),</span>&#x00A0;<span 
class="ectt-1200">xavant(n)</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">affectation</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">valeurs</span>&#x00A0;<span 
class="ectt-1200">a</span>&#x00A0;<span 
class="ectt-1200">x</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">x(1)=1</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">x(2)=2</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">x(3)=3</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">On</span>&#x00A0;<span 
class="ectt-1200">sauvegarde</span>&#x00A0;<span 
class="ectt-1200">les</span>&#x00A0;<span 
class="ectt-1200">valeurs</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">x</span>&#x00A0;<span 
class="ectt-1200">dans</span>&#x00A0;<span 
class="ectt-1200">xavant</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DO</span>&#x00A0;<span 
class="ectt-1200">10,</span>&#x00A0;<span 
class="ectt-1200">i=1,n</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">xavant(i)=x(i)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">10</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CONTINUE</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">calcul</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">H9etoile(x),</span>&#x00A0;<span 
class="ectt-1200">remplace</span>&#x00A0;<span 
class="ectt-1200">x</span>&#x00A0;<span 
class="ectt-1200">par</span>&#x00A0;<span 
class="ectt-1200">H9etoile(x)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CALL</span>&#x00A0;<span 
class="ectt-1200">H9etoi(n,x)</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">affecte</span>&#x00A0;<span 
class="ectt-1200">a</span>&#x00A0;<span 
class="ectt-1200">y</span>&#x00A0;<span 
class="ectt-1200">le</span>&#x00A0;<span 
class="ectt-1200">resultat</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DO</span>&#x00A0;<span 
class="ectt-1200">20,</span>&#x00A0;<span 
class="ectt-1200">i=1,n</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">y(i)=x(i)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">20</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CONTINUE</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">remet</span>&#x00A0;<span 
class="ectt-1200">les</span>&#x00A0;<span 
class="ectt-1200">bonnes</span>&#x00A0;<span 
class="ectt-1200">valeurs</span>&#x00A0;<span 
class="ectt-1200">dans</span>&#x00A0;<span 
class="ectt-1200">x</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">affecte</span>&#x00A0;<span 
class="ectt-1200">a</span>&#x00A0;<span 
class="ectt-1200">y</span>&#x00A0;<span 
class="ectt-1200">le</span>&#x00A0;<span 
class="ectt-1200">resultat</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DO</span>&#x00A0;<span 
class="ectt-1200">30,</span>&#x00A0;<span 
class="ectt-1200">i=1,n</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">x(i)=xavant(i)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">30</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CONTINUE</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Affichage</span>&#x00A0;<span 
class="ectt-1200">des</span>&#x00A0;<span 
class="ectt-1200">valeurs</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">y=H9etoile(x)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(UNIT=6,FMT=*)</span>&#x00A0;<span 
class="ectt-1200">&#x2019;Affichage</span>&#x00A0;<span 
class="ectt-1200">des</span>&#x00A0;<span 
class="ectt-1200">valeurs</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">y&#x2019;</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(UNIT=6,FMT=*)</span>&#x00A0;<span 
class="ectt-1200">y</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Affichage</span>&#x00A0;<span 
class="ectt-1200">des</span>&#x00A0;<span 
class="ectt-1200">valeurs</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">x</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(UNIT=6,FMT=*)</span>&#x00A0;<span 
class="ectt-1200">&#x2019;Affichage</span>&#x00A0;<span 
class="ectt-1200">des</span>&#x00A0;<span 
class="ectt-1200">valeurs</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">x&#x2019;</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(UNIT=6,FMT=*)</span>&#x00A0;<span 
class="ectt-1200">x</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">END</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">-------------------------------------</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Instructions</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">compilation:</span>&#x00A0;<span 
class="ectt-1200">alias</span>&#x00A0;<span 
class="ectt-1200">f77=&#x2019;fort77&#x2019;</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">f77</span>&#x00A0;<span 
class="ectt-1200">-c</span>&#x00A0;<span 
class="ectt-1200">nom_du_fichier_contenant_la_fonction_main.f</span>

&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">f77</span>&#x00A0;<span 
class="ectt-1200">-c</span>&#x00A0;<span 
class="ectt-1200">H9etoile.f</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">f77</span>&#x00A0;<span 
class="ectt-1200">nom_du_fichier_contenant_la_fonction_main.o</span>&#x00A0;<span 
class="ectt-1200">H9etoile.o</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Fonctions</span>&#x00A0;<span 
class="ectt-1200">exterieures</span>&#x00A0;<span 
class="ectt-1200">appelees:</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Auteur:</span>&#x00A0;<span 
class="ectt-1200">Pierre</span>&#x00A0;<span 
class="ectt-1200">Lafaye</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">Micheaux</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Date:</span>&#x00A0;<span 
class="ectt-1200">15/02/2001</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Fin-Commentaires</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">SUBROUTINE</span>&#x00A0;<span 
class="ectt-1200">H9etoi</span>&#x00A0;<span 
class="ectt-1200">(n,x)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">n,i</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">x(n)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DO</span>&#x00A0;<span 
class="ectt-1200">10,</span>&#x00A0;<span 
class="ectt-1200">i=1,n</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">x(i)=413.925*(x(i)**9)-876.547*(x(i)**7)+</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">$</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">613.583*(x(i)**5)-157.329*(x(i)**3)+10.727*x(i)</span>
&#x00A0;<br />&#x00A0;<span 
class="ectt-1200">10</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CONTINUE</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">RETURN</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">END</span>
   </div>
<!--l. 531--><p class="indent">   <span 
class="ecbx-1200">Programme H10etoile.f</span> </p><div class="verbatiminput">
<span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Debut-Commentaires</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Nom</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">la</span>&#x00A0;<span 
class="ectt-1200">sous-routine:</span>&#x00A0;<span 
class="ectt-1200">H10eto</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Entrees:</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">n</span>&#x00A0;<span 
class="ectt-1200">(entier),</span>&#x00A0;<span 
class="ectt-1200">longueur</span>&#x00A0;<span 
class="ectt-1200">du</span>&#x00A0;<span 
class="ectt-1200">vecteur</span>&#x00A0;<span 
class="ectt-1200">x</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">x</span>&#x00A0;<span 
class="ectt-1200">(double),</span>&#x00A0;<span 
class="ectt-1200">un</span>&#x00A0;<span 
class="ectt-1200">vecteur</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">n</span>&#x00A0;<span 
class="ectt-1200">nombres</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Sorties:</span>&#x00A0;<span 
class="ectt-1200">void</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Description:</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Calcul</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">H10etoile(x),</span>&#x00A0;<span 
class="ectt-1200">H10etoile</span>&#x00A0;<span 
class="ectt-1200">etant</span>&#x00A0;<span 
class="ectt-1200">le</span>&#x00A0;<span 
class="ectt-1200">dixieme</span>&#x00A0;<span 
class="ectt-1200">polynome</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">Legendre</span>&#x00A0;<span 
class="ectt-1200">modifie</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Modifie</span>&#x00A0;<span 
class="ectt-1200">le</span>&#x00A0;<span 
class="ectt-1200">vecteur</span>&#x00A0;<span 
class="ectt-1200">x</span>&#x00A0;<span 
class="ectt-1200">dans</span>&#x00A0;<span 
class="ectt-1200">le</span>&#x00A0;<span 
class="ectt-1200">programme</span>&#x00A0;<span 
class="ectt-1200">principal,</span>&#x00A0;<span 
class="ectt-1200">en</span>&#x00A0;<span 
class="ectt-1200">le</span>&#x00A0;<span 
class="ectt-1200">remplacant</span>&#x00A0;<span 
class="ectt-1200">par</span>&#x00A0;<span 
class="ectt-1200">H10etoile(x)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Utilisation</span>&#x00A0;<span 
class="ectt-1200">dans</span>&#x00A0;<span 
class="ectt-1200">une</span>&#x00A0;<span 
class="ectt-1200">fonction</span>&#x00A0;<span 
class="ectt-1200">main:</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">-------------------------------------</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PROGRAM</span>&#x00A0;<span 
class="ectt-1200">main</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">n,</span>&#x00A0;<span 
class="ectt-1200">i</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">longueur</span>&#x00A0;<span 
class="ectt-1200">du</span>&#x00A0;<span 
class="ectt-1200">vecteur</span>&#x00A0;<span 
class="ectt-1200">x,</span>&#x00A0;<span 
class="ectt-1200">a</span>&#x00A0;<span 
class="ectt-1200">modifier</span>&#x00A0;<span 
class="ectt-1200">dans</span>&#x00A0;<span 
class="ectt-1200">le</span>&#x00A0;<span 
class="ectt-1200">programme</span>&#x00A0;<span 
class="ectt-1200">principal</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(n=3)</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">initialisation</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">x,</span>&#x00A0;<span 
class="ectt-1200">y</span>&#x00A0;<span 
class="ectt-1200">et</span>&#x00A0;<span 
class="ectt-1200">xavant</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">x(n),</span>&#x00A0;<span 
class="ectt-1200">y(n),</span>&#x00A0;<span 
class="ectt-1200">xavant(n)</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">affectation</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">valeurs</span>&#x00A0;<span 
class="ectt-1200">a</span>&#x00A0;<span 
class="ectt-1200">x</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">x(1)=1</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">x(2)=2</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">x(3)=3</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">On</span>&#x00A0;<span 
class="ectt-1200">sauvegarde</span>&#x00A0;<span 
class="ectt-1200">les</span>&#x00A0;<span 
class="ectt-1200">valeurs</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">x</span>&#x00A0;<span 
class="ectt-1200">dans</span>&#x00A0;<span 
class="ectt-1200">xavant</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DO</span>&#x00A0;<span 
class="ectt-1200">10,</span>&#x00A0;<span 
class="ectt-1200">i=1,n</span>

&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">xavant(i)=x(i)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">10</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CONTINUE</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">calcul</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">H10etoile(x),</span>&#x00A0;<span 
class="ectt-1200">remplace</span>&#x00A0;<span 
class="ectt-1200">x</span>&#x00A0;<span 
class="ectt-1200">par</span>&#x00A0;<span 
class="ectt-1200">H10etoile(x)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CALL</span>&#x00A0;<span 
class="ectt-1200">H10eto(n,x)</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">affecte</span>&#x00A0;<span 
class="ectt-1200">a</span>&#x00A0;<span 
class="ectt-1200">y</span>&#x00A0;<span 
class="ectt-1200">le</span>&#x00A0;<span 
class="ectt-1200">resultat</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DO</span>&#x00A0;<span 
class="ectt-1200">20,</span>&#x00A0;<span 
class="ectt-1200">i=1,n</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">y(i)=x(i)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">20</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CONTINUE</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">remet</span>&#x00A0;<span 
class="ectt-1200">les</span>&#x00A0;<span 
class="ectt-1200">bonnes</span>&#x00A0;<span 
class="ectt-1200">valeurs</span>&#x00A0;<span 
class="ectt-1200">dans</span>&#x00A0;<span 
class="ectt-1200">x</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">affecte</span>&#x00A0;<span 
class="ectt-1200">a</span>&#x00A0;<span 
class="ectt-1200">y</span>&#x00A0;<span 
class="ectt-1200">le</span>&#x00A0;<span 
class="ectt-1200">resultat</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DO</span>&#x00A0;<span 
class="ectt-1200">30,</span>&#x00A0;<span 
class="ectt-1200">i=1,n</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">x(i)=xavant(i)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">30</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CONTINUE</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Affichage</span>&#x00A0;<span 
class="ectt-1200">des</span>&#x00A0;<span 
class="ectt-1200">valeurs</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">y=H10etoile(x)</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(UNIT=6,FMT=*)</span>&#x00A0;<span 
class="ectt-1200">&#x2019;Affichage</span>&#x00A0;<span 
class="ectt-1200">des</span>&#x00A0;<span 
class="ectt-1200">valeurs</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">y&#x2019;</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(UNIT=6,FMT=*)</span>&#x00A0;<span 
class="ectt-1200">y</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Affichage</span>&#x00A0;<span 
class="ectt-1200">des</span>&#x00A0;<span 
class="ectt-1200">valeurs</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">x</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(UNIT=6,FMT=*)</span>&#x00A0;<span 
class="ectt-1200">&#x2019;Affichage</span>&#x00A0;<span 
class="ectt-1200">des</span>&#x00A0;<span 
class="ectt-1200">valeurs</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">x&#x2019;</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(UNIT=6,FMT=*)</span>&#x00A0;<span 
class="ectt-1200">x</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">END</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">-------------------------------------</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Instructions</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">compilation:</span>&#x00A0;<span 
class="ectt-1200">alias</span>&#x00A0;<span 
class="ectt-1200">f77=&#x2019;fort77&#x2019;</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">f77</span>&#x00A0;<span 
class="ectt-1200">-c</span>&#x00A0;<span 
class="ectt-1200">nom_du_fichier_contenant_la_fonction_main.f</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">f77</span>&#x00A0;<span 
class="ectt-1200">-c</span>&#x00A0;<span 
class="ectt-1200">H10etoile.f</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">f77</span>&#x00A0;<span 
class="ectt-1200">nom_du_fichier_contenant_la_fonction_main.o</span>&#x00A0;<span 
class="ectt-1200">H10etoile.o</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Fonctions</span>&#x00A0;<span 
class="ectt-1200">exterieures</span>&#x00A0;<span 
class="ectt-1200">appelees:</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Auteur:</span>&#x00A0;<span 
class="ectt-1200">Pierre</span>&#x00A0;<span 
class="ectt-1200">Lafaye</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">Micheaux</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Date:</span>&#x00A0;<span 
class="ectt-1200">15/02/2001</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Fin-Commentaires</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">SUBROUTINE</span>&#x00A0;<span 
class="ectt-1200">H10eto</span>&#x00A0;<span 
class="ectt-1200">(n,x)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">n,i</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">x(n)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DO</span>&#x00A0;<span 
class="ectt-1200">10,</span>&#x00A0;<span 
class="ectt-1200">i=1,n</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">x(i)=994.507*(x(i)**10)-2250.43*(x(i)**8)+</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">$</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">1782.83*(x(i)**6)-569.924*(x(i)**4)+67.5436*(x(i)**2)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">$</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">-3.58201</span>
&#x00A0;<br />&#x00A0;<span 
class="ectt-1200">10</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CONTINUE</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">RETURN</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">END</span>
   </div>
   <h3 class="sectionHead"><span class="titlemark">A.12. </span> <a 
  name="x1-55000A.12"></a>Les autres petits programmes utiles</h3>

<!--l. 536--><p class="noindent"><span 
class="ecbx-1200">Programme max.f</span> </p><div class="verbatiminput">
<span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Debut-Commentaires</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Nom</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">la</span>&#x00A0;<span 
class="ectt-1200">fonction:</span>&#x00A0;<span 
class="ectt-1200">maxi</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Entrees:</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">n</span>&#x00A0;<span 
class="ectt-1200">(entier),</span>&#x00A0;<span 
class="ectt-1200">longueur</span>&#x00A0;<span 
class="ectt-1200">du</span>&#x00A0;<span 
class="ectt-1200">vecteur</span>&#x00A0;<span 
class="ectt-1200">x</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">x</span>&#x00A0;<span 
class="ectt-1200">(double),</span>&#x00A0;<span 
class="ectt-1200">x</span>&#x00A0;<span 
class="ectt-1200">est</span>&#x00A0;<span 
class="ectt-1200">le</span>&#x00A0;<span 
class="ectt-1200">vecteur</span>&#x00A0;<span 
class="ectt-1200">des</span>&#x00A0;<span 
class="ectt-1200">points</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">dont</span>&#x00A0;<span 
class="ectt-1200">on</span>&#x00A0;<span 
class="ectt-1200">veut</span>&#x00A0;<span 
class="ectt-1200">calculer</span>&#x00A0;<span 
class="ectt-1200">le</span>&#x00A0;<span 
class="ectt-1200">maximum).</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Sorties:</span>&#x00A0;<span 
class="ectt-1200">double</span>&#x00A0;<span 
class="ectt-1200">maxim</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Description:</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Cette</span>&#x00A0;<span 
class="ectt-1200">fonction</span>&#x00A0;<span 
class="ectt-1200">calcule</span>&#x00A0;<span 
class="ectt-1200">le</span>&#x00A0;<span 
class="ectt-1200">maximum</span>&#x00A0;<span 
class="ectt-1200">d&#x2019;un</span>&#x00A0;<span 
class="ectt-1200">vecteur</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Utilisation</span>&#x00A0;<span 
class="ectt-1200">dans</span>&#x00A0;<span 
class="ectt-1200">une</span>&#x00A0;<span 
class="ectt-1200">fonction</span>&#x00A0;<span 
class="ectt-1200">main:</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">-------------------------------------</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PROGRAM</span>&#x00A0;<span 
class="ectt-1200">main</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">n</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">maxim,</span>&#x00A0;<span 
class="ectt-1200">maxi</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">longueur</span>&#x00A0;<span 
class="ectt-1200">du</span>&#x00A0;<span 
class="ectt-1200">vecteur</span>&#x00A0;<span 
class="ectt-1200">x,</span>&#x00A0;<span 
class="ectt-1200">a</span>&#x00A0;<span 
class="ectt-1200">modifier</span>&#x00A0;<span 
class="ectt-1200">dans</span>&#x00A0;<span 
class="ectt-1200">le</span>&#x00A0;<span 
class="ectt-1200">programme</span>&#x00A0;<span 
class="ectt-1200">principal</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(n=3)</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">initialisation</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">x</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">x(n)</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">affectation</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">valeurs</span>&#x00A0;<span 
class="ectt-1200">a</span>&#x00A0;<span 
class="ectt-1200">x</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">x(1)=1</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">x(2)=2</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">x(3)=3</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">maxim=maxi(n,x)</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Affichage</span>&#x00A0;<span 
class="ectt-1200">du</span>&#x00A0;<span 
class="ectt-1200">maximum</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">x</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(UNIT=6,FMT=*)</span>&#x00A0;<span 
class="ectt-1200">&#x2019;Le</span>&#x00A0;<span 
class="ectt-1200">maximum</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">x</span>&#x00A0;<span 
class="ectt-1200">est&#x2019;</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(UNIT=6,FMT=*)</span>&#x00A0;<span 
class="ectt-1200">maxim</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">END</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">-------------------------------------</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Instructions</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">compilation:</span>&#x00A0;<span 
class="ectt-1200">alias</span>&#x00A0;<span 
class="ectt-1200">f77=&#x2019;fort77&#x2019;</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">f77</span>&#x00A0;<span 
class="ectt-1200">-c</span>&#x00A0;<span 
class="ectt-1200">nom_du_fichier_contenant_la_fonction_main.f</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">f77</span>&#x00A0;<span 
class="ectt-1200">-c</span>&#x00A0;<span 
class="ectt-1200">max.f</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">f77</span>&#x00A0;<span 
class="ectt-1200">nom_du_fichier_contenant_la_fonction_main.o</span>&#x00A0;<span 
class="ectt-1200">max.o</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Fonctions</span>&#x00A0;<span 
class="ectt-1200">exterieures</span>&#x00A0;<span 
class="ectt-1200">appelees:</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Auteur:</span>&#x00A0;<span 
class="ectt-1200">Pierre</span>&#x00A0;<span 
class="ectt-1200">Lafaye</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">Micheaux</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Date:</span>&#x00A0;<span 
class="ectt-1200">15/02/2001</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Fin-Commentaires</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">FUNCTION</span>&#x00A0;<span 
class="ectt-1200">maxi</span>&#x00A0;<span 
class="ectt-1200">(n,x)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">n,i</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">x(n)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">maxi=x(1)</span>

&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DO</span>&#x00A0;<span 
class="ectt-1200">10,</span>&#x00A0;<span 
class="ectt-1200">i=2,n</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">maxi=dmax1(maxi,x(i))</span>
&#x00A0;<br />&#x00A0;<span 
class="ectt-1200">10</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CONTINUE</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">RETURN</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">END</span>
   </div>
<!--l. 540--><p class="indent">   <span 
class="ecbx-1200">Programme mean.f</span> </p><div class="verbatiminput">
<span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Debut-Commentaires</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Nom</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">la</span>&#x00A0;<span 
class="ectt-1200">fonction:</span>&#x00A0;<span 
class="ectt-1200">meanp</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Entrees:</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">n</span>&#x00A0;<span 
class="ectt-1200">(entier),</span>&#x00A0;<span 
class="ectt-1200">longueur</span>&#x00A0;<span 
class="ectt-1200">du</span>&#x00A0;<span 
class="ectt-1200">vecteur</span>&#x00A0;<span 
class="ectt-1200">x</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">x</span>&#x00A0;<span 
class="ectt-1200">(double),</span>&#x00A0;<span 
class="ectt-1200">vecteur</span>&#x00A0;<span 
class="ectt-1200">des</span>&#x00A0;<span 
class="ectt-1200">points</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">dont</span>&#x00A0;<span 
class="ectt-1200">on</span>&#x00A0;<span 
class="ectt-1200">veut</span>&#x00A0;<span 
class="ectt-1200">calculer</span>&#x00A0;<span 
class="ectt-1200">la</span>&#x00A0;<span 
class="ectt-1200">moyenne</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Sorties:</span>&#x00A0;<span 
class="ectt-1200">double</span>&#x00A0;<span 
class="ectt-1200">moyenn</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Description:</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Cette</span>&#x00A0;<span 
class="ectt-1200">fonction</span>&#x00A0;<span 
class="ectt-1200">calcule</span>&#x00A0;<span 
class="ectt-1200">la</span>&#x00A0;<span 
class="ectt-1200">moyenne</span>&#x00A0;<span 
class="ectt-1200">d&#x2019;un</span>&#x00A0;<span 
class="ectt-1200">vecteur</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Utilisation</span>&#x00A0;<span 
class="ectt-1200">dans</span>&#x00A0;<span 
class="ectt-1200">une</span>&#x00A0;<span 
class="ectt-1200">fonction</span>&#x00A0;<span 
class="ectt-1200">main:</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">-------------------------------------</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PROGRAM</span>&#x00A0;<span 
class="ectt-1200">main</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">n</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">moyenn,</span>&#x00A0;<span 
class="ectt-1200">meanp</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">longueur</span>&#x00A0;<span 
class="ectt-1200">du</span>&#x00A0;<span 
class="ectt-1200">vecteur</span>&#x00A0;<span 
class="ectt-1200">x,</span>&#x00A0;<span 
class="ectt-1200">a</span>&#x00A0;<span 
class="ectt-1200">modifier</span>&#x00A0;<span 
class="ectt-1200">dans</span>&#x00A0;<span 
class="ectt-1200">le</span>&#x00A0;<span 
class="ectt-1200">programme</span>&#x00A0;<span 
class="ectt-1200">principal</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(n=3)</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">initialisation</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">x</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">x(n)</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">affectation</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">valeurs</span>&#x00A0;<span 
class="ectt-1200">a</span>&#x00A0;<span 
class="ectt-1200">x</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">x(1)=1</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">x(2)=2</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">x(3)=3</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">moyenn=meanp(n,x)</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Affichage</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">la</span>&#x00A0;<span 
class="ectt-1200">moyenne</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">x</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(UNIT=6,FMT=*)</span>&#x00A0;<span 
class="ectt-1200">&#x2019;La</span>&#x00A0;<span 
class="ectt-1200">moyenne</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">x</span>&#x00A0;<span 
class="ectt-1200">est&#x2019;</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(UNIT=6,FMT=*)</span>&#x00A0;<span 
class="ectt-1200">moyenn</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">END</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">-------------------------------------</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Instructions</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">compilation:</span>&#x00A0;<span 
class="ectt-1200">alias</span>&#x00A0;<span 
class="ectt-1200">f77=&#x2019;fort77&#x2019;</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">f77</span>&#x00A0;<span 
class="ectt-1200">-c</span>&#x00A0;<span 
class="ectt-1200">nom_du_fichier_contenant_la_fonction_main.f</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">f77</span>&#x00A0;<span 
class="ectt-1200">-c</span>&#x00A0;<span 
class="ectt-1200">mean.f</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">f77</span>&#x00A0;<span 
class="ectt-1200">nom_du_fichier_contenant_la_fonction_main.o</span>&#x00A0;<span 
class="ectt-1200">mean.o</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Fonctions</span>&#x00A0;<span 
class="ectt-1200">exterieures</span>&#x00A0;<span 
class="ectt-1200">appelees:</span>

&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Auteur:</span>&#x00A0;<span 
class="ectt-1200">Pierre</span>&#x00A0;<span 
class="ectt-1200">Lafaye</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">Micheaux</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Date:</span>&#x00A0;<span 
class="ectt-1200">15/02/2001</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Fin-Commentaires</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">FUNCTION</span>&#x00A0;<span 
class="ectt-1200">meanp</span>&#x00A0;<span 
class="ectt-1200">(n,x)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">n,i</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">x(n)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">meanp=DBLE(0.0)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DO</span>&#x00A0;<span 
class="ectt-1200">10,</span>&#x00A0;<span 
class="ectt-1200">i=1,n</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">meanp=meanp+x(i)</span>
&#x00A0;<br />&#x00A0;<span 
class="ectt-1200">10</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CONTINUE</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">meanp=meanp/DBLE(n)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">RETURN</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">END</span>
   </div>
<!--l. 544--><p class="indent">   <span 
class="ecbx-1200">Programme min.f</span> </p><div class="verbatiminput">
<span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Debut-Commentaires</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Nom</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">la</span>&#x00A0;<span 
class="ectt-1200">fonction:</span>&#x00A0;<span 
class="ectt-1200">mini</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Entrees:</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">n</span>&#x00A0;<span 
class="ectt-1200">(entier),</span>&#x00A0;<span 
class="ectt-1200">longueur</span>&#x00A0;<span 
class="ectt-1200">du</span>&#x00A0;<span 
class="ectt-1200">vecteur</span>&#x00A0;<span 
class="ectt-1200">x</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">x</span>&#x00A0;<span 
class="ectt-1200">(double),</span>&#x00A0;<span 
class="ectt-1200">vecteur</span>&#x00A0;<span 
class="ectt-1200">des</span>&#x00A0;<span 
class="ectt-1200">points</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">dont</span>&#x00A0;<span 
class="ectt-1200">on</span>&#x00A0;<span 
class="ectt-1200">veut</span>&#x00A0;<span 
class="ectt-1200">calculer</span>&#x00A0;<span 
class="ectt-1200">le</span>&#x00A0;<span 
class="ectt-1200">minimum</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Sorties:</span>&#x00A0;<span 
class="ectt-1200">double</span>&#x00A0;<span 
class="ectt-1200">minim</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Description:</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Cette</span>&#x00A0;<span 
class="ectt-1200">fonction</span>&#x00A0;<span 
class="ectt-1200">calcule</span>&#x00A0;<span 
class="ectt-1200">le</span>&#x00A0;<span 
class="ectt-1200">minimum</span>&#x00A0;<span 
class="ectt-1200">d&#x2019;un</span>&#x00A0;<span 
class="ectt-1200">vecteur</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Utilisation</span>&#x00A0;<span 
class="ectt-1200">dans</span>&#x00A0;<span 
class="ectt-1200">une</span>&#x00A0;<span 
class="ectt-1200">fonction</span>&#x00A0;<span 
class="ectt-1200">main:</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">-------------------------------------</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PROGRAM</span>&#x00A0;<span 
class="ectt-1200">main</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">n</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">minim,</span>&#x00A0;<span 
class="ectt-1200">mini</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">longueur</span>&#x00A0;<span 
class="ectt-1200">du</span>&#x00A0;<span 
class="ectt-1200">vecteur</span>&#x00A0;<span 
class="ectt-1200">x,</span>&#x00A0;<span 
class="ectt-1200">a</span>&#x00A0;<span 
class="ectt-1200">modifier</span>&#x00A0;<span 
class="ectt-1200">dans</span>&#x00A0;<span 
class="ectt-1200">le</span>&#x00A0;<span 
class="ectt-1200">programme</span>&#x00A0;<span 
class="ectt-1200">principal</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(n=3)</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">initialisation</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">x</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">x(n)</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">affectation</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">valeurs</span>&#x00A0;<span 
class="ectt-1200">a</span>&#x00A0;<span 
class="ectt-1200">x</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">x(1)=1</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">x(2)=2</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">x(3)=3</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">minim=mini(n,x)</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Affichage</span>&#x00A0;<span 
class="ectt-1200">du</span>&#x00A0;<span 
class="ectt-1200">minimum</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">x</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(UNIT=6,FMT=*)</span>&#x00A0;<span 
class="ectt-1200">&#x2019;Le</span>&#x00A0;<span 
class="ectt-1200">minimum</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">x</span>&#x00A0;<span 
class="ectt-1200">est&#x2019;</span>

&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(UNIT=6,FMT=*)</span>&#x00A0;<span 
class="ectt-1200">minim</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">END</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">-------------------------------------</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Instructions</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">compilation:</span>&#x00A0;<span 
class="ectt-1200">alias</span>&#x00A0;<span 
class="ectt-1200">f77=&#x2019;fort77&#x2019;</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">f77</span>&#x00A0;<span 
class="ectt-1200">-c</span>&#x00A0;<span 
class="ectt-1200">nom_du_fichier_contenant_la_fonction_main.f</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">f77</span>&#x00A0;<span 
class="ectt-1200">-c</span>&#x00A0;<span 
class="ectt-1200">min.f</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">f77</span>&#x00A0;<span 
class="ectt-1200">nom_du_fichier_contenant_la_fonction_main.o</span>&#x00A0;<span 
class="ectt-1200">min.o</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Fonctions</span>&#x00A0;<span 
class="ectt-1200">exterieures</span>&#x00A0;<span 
class="ectt-1200">appelees:</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Auteur:</span>&#x00A0;<span 
class="ectt-1200">Pierre</span>&#x00A0;<span 
class="ectt-1200">Lafaye</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">Micheaux</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Date:</span>&#x00A0;<span 
class="ectt-1200">15/02/2001</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Fin-Commentaires</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">FUNCTION</span>&#x00A0;<span 
class="ectt-1200">mini</span>&#x00A0;<span 
class="ectt-1200">(n,x)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">n,i</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">x(n)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">mini=x(1)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DO</span>&#x00A0;<span 
class="ectt-1200">10,</span>&#x00A0;<span 
class="ectt-1200">i=2,n</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">mini=dmin1(mini,x(i))</span>
&#x00A0;<br />&#x00A0;<span 
class="ectt-1200">10</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CONTINUE</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">RETURN</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">END</span>
   </div>
<!--l. 548--><p class="indent">   <span 
class="ecbx-1200">Programme var.f</span> </p><div class="verbatiminput">
<span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Debut-Commentaires</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Nom</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">la</span>&#x00A0;<span 
class="ectt-1200">fonction:</span>&#x00A0;<span 
class="ectt-1200">var</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Entrees:</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">n</span>&#x00A0;<span 
class="ectt-1200">(entier),</span>&#x00A0;<span 
class="ectt-1200">longueur</span>&#x00A0;<span 
class="ectt-1200">du</span>&#x00A0;<span 
class="ectt-1200">vecteur</span>&#x00A0;<span 
class="ectt-1200">x</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">x</span>&#x00A0;<span 
class="ectt-1200">(double),</span>&#x00A0;<span 
class="ectt-1200">vecteur</span>&#x00A0;<span 
class="ectt-1200">des</span>&#x00A0;<span 
class="ectt-1200">points</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">dont</span>&#x00A0;<span 
class="ectt-1200">on</span>&#x00A0;<span 
class="ectt-1200">veut</span>&#x00A0;<span 
class="ectt-1200">calculer</span>&#x00A0;<span 
class="ectt-1200">la</span>&#x00A0;<span 
class="ectt-1200">variance</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Sorties:</span>&#x00A0;<span 
class="ectt-1200">double</span>&#x00A0;<span 
class="ectt-1200">varian</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Description:</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Cette</span>&#x00A0;<span 
class="ectt-1200">fonction</span>&#x00A0;<span 
class="ectt-1200">calcule</span>&#x00A0;<span 
class="ectt-1200">la</span>&#x00A0;<span 
class="ectt-1200">variance</span>&#x00A0;<span 
class="ectt-1200">d&#x2019;un</span>&#x00A0;<span 
class="ectt-1200">vecteur</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Utilisation</span>&#x00A0;<span 
class="ectt-1200">dans</span>&#x00A0;<span 
class="ectt-1200">une</span>&#x00A0;<span 
class="ectt-1200">fonction</span>&#x00A0;<span 
class="ectt-1200">main:</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">-------------------------------------</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PROGRAM</span>&#x00A0;<span 
class="ectt-1200">main</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">n</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">varian,</span>&#x00A0;<span 
class="ectt-1200">var</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">longueur</span>&#x00A0;<span 
class="ectt-1200">du</span>&#x00A0;<span 
class="ectt-1200">vecteur</span>&#x00A0;<span 
class="ectt-1200">x,</span>&#x00A0;<span 
class="ectt-1200">a</span>&#x00A0;<span 
class="ectt-1200">modifier</span>&#x00A0;<span 
class="ectt-1200">dans</span>&#x00A0;<span 
class="ectt-1200">le</span>&#x00A0;<span 
class="ectt-1200">programme</span>&#x00A0;<span 
class="ectt-1200">principal</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(n=3)</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">initialisation</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">x</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">x(n)</span>

&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">affectation</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">valeurs</span>&#x00A0;<span 
class="ectt-1200">a</span>&#x00A0;<span 
class="ectt-1200">x</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">x(1)=1</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">x(2)=2</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">x(3)=3</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">varian=var(n,x)</span>
&#x00A0;<br /><span 
class="ectt-1200">cc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Affichage</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">la</span>&#x00A0;<span 
class="ectt-1200">variance</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">x</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(UNIT=6,FMT=*)</span>&#x00A0;<span 
class="ectt-1200">&#x2019;La</span>&#x00A0;<span 
class="ectt-1200">variance</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">x</span>&#x00A0;<span 
class="ectt-1200">est&#x2019;</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(UNIT=6,FMT=*)</span>&#x00A0;<span 
class="ectt-1200">varian</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">END</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">-------------------------------------</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Instructions</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">compilation:</span>&#x00A0;<span 
class="ectt-1200">alias</span>&#x00A0;<span 
class="ectt-1200">f77=&#x2019;fort77&#x2019;</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">f77</span>&#x00A0;<span 
class="ectt-1200">-c</span>&#x00A0;<span 
class="ectt-1200">nom_du_fichier_contenant_la_fonction_main.f</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">f77</span>&#x00A0;<span 
class="ectt-1200">-c</span>&#x00A0;<span 
class="ectt-1200">var.f</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">f77</span>&#x00A0;<span 
class="ectt-1200">nom_du_fichier_contenant_la_fonction_main.o</span>&#x00A0;<span 
class="ectt-1200">var.o</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Fonctions</span>&#x00A0;<span 
class="ectt-1200">exterieures</span>&#x00A0;<span 
class="ectt-1200">appelees:</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">mean</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Auteur:</span>&#x00A0;<span 
class="ectt-1200">Pierre</span>&#x00A0;<span 
class="ectt-1200">Lafaye</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">Micheaux</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Date:</span>&#x00A0;<span 
class="ectt-1200">15/02/2001</span>
&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">Fin-Commentaires</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">FUNCTION</span>&#x00A0;<span 
class="ectt-1200">var</span>&#x00A0;<span 
class="ectt-1200">(n,x)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">n,i</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">x(n),res</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">res=DBLE(0.0)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DO</span>&#x00A0;<span 
class="ectt-1200">10,</span>&#x00A0;<span 
class="ectt-1200">i=1,n</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">res=res+x(i)</span>
&#x00A0;<br />&#x00A0;<span 
class="ectt-1200">10</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CONTINUE</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">res=res/DBLE(n)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">var=DBLE(0.0)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DO</span>&#x00A0;<span 
class="ectt-1200">20,</span>&#x00A0;<span 
class="ectt-1200">i=1,n</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">var=var+(x(i)-res)**2</span>
&#x00A0;<br />&#x00A0;<span 
class="ectt-1200">20</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CONTINUE</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">var=var/DBLE(n)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">RETURN</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">END</span>
   </div>
   <h3 class="sectionHead"><span class="titlemark">A.13. </span> <a 
  name="x1-56000A.13"></a>Le programme du calcul des quantiles du test de Brockwell et Davis</h3>
<!--l. 553--><p class="noindent"><span 
class="ecbx-1200">Programme statBD.f</span> </p><div class="verbatiminput">
<span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Ce</span>&#x00A0;<span 
class="ectt-1200">programme</span>&#x00A0;<span 
class="ectt-1200">calcule</span>&#x00A0;<span 
class="ectt-1200">le</span>&#x00A0;<span 
class="ectt-1200">quantile</span>&#x00A0;<span 
class="ectt-1200">du</span>&#x00A0;<span 
class="ectt-1200">test</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">BD</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PROGRAM</span>&#x00A0;<span 
class="ectt-1200">main</span>

&#x00A0;<br /><span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">On</span>&#x00A0;<span 
class="ectt-1200">calcule</span>&#x00A0;<span 
class="ectt-1200">la</span>&#x00A0;<span 
class="ectt-1200">stat</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">BD</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INTEGER</span>&#x00A0;<span 
class="ectt-1200">i,</span>&#x00A0;<span 
class="ectt-1200">nT,</span>&#x00A0;<span 
class="ectt-1200">IFAIL,</span>&#x00A0;<span 
class="ectt-1200">nbcle,</span>&#x00A0;<span 
class="ectt-1200">val</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PARAMETER(nT=50,</span>&#x00A0;<span 
class="ectt-1200">nbcle=50000)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">Z(nT),</span>&#x00A0;<span 
class="ectt-1200">BDA(nT),</span>&#x00A0;<span 
class="ectt-1200">BDb(nT),</span>&#x00A0;<span 
class="ectt-1200">BDc(nT),</span>&#x00A0;<span 
class="ectt-1200">BDd(nT),</span>&#x00A0;<span 
class="ectt-1200">statBD</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DOUBLE</span>&#x00A0;<span 
class="ectt-1200">PRECISION</span>&#x00A0;<span 
class="ectt-1200">sumbd,</span>&#x00A0;<span 
class="ectt-1200">sumc,</span>&#x00A0;<span 
class="ectt-1200">sumd2,</span>&#x00A0;<span 
class="ectt-1200">alpha,</span>&#x00A0;<span 
class="ectt-1200">QBDcal,</span>&#x00A0;<span 
class="ectt-1200">stanBD(nbcle)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">EXTERNAL</span>&#x00A0;<span 
class="ectt-1200">G05CBF,</span>&#x00A0;<span 
class="ectt-1200">G05FDF,</span>&#x00A0;<span 
class="ectt-1200">M01CAF,</span>&#x00A0;<span 
class="ectt-1200">qnorm</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">alpha=DBLE(0.05)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CALL</span>&#x00A0;<span 
class="ectt-1200">G05CBF(0)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DO</span>&#x00A0;<span 
class="ectt-1200">90,</span>&#x00A0;<span 
class="ectt-1200">j=1,nbcle</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CALL</span>&#x00A0;<span 
class="ectt-1200">G05FDF(0.0D0,1.0D0,nT,Z)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">IFAIL=0</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CALL</span>&#x00A0;<span 
class="ectt-1200">M01CAF(Z,</span>&#x00A0;<span 
class="ectt-1200">1,</span>&#x00A0;<span 
class="ectt-1200">nT,</span>&#x00A0;<span 
class="ectt-1200">&#x2019;Ascending&#x2019;,</span>&#x00A0;<span 
class="ectt-1200">IFAIL)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DO</span>&#x00A0;<span 
class="ectt-1200">20,</span>&#x00A0;<span 
class="ectt-1200">i=1,nT</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">BDa(i)=Z(i)</span>
&#x00A0;<br />&#x00A0;<span 
class="ectt-1200">20</span>&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CONTINUE</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DO</span>&#x00A0;<span 
class="ectt-1200">30,</span>&#x00A0;<span 
class="ectt-1200">i=1,nT</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">BDb(i)=BDa(i)</span>
&#x00A0;<br />&#x00A0;<span 
class="ectt-1200">30</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CONTINUE</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DO</span>&#x00A0;<span 
class="ectt-1200">40,</span>&#x00A0;<span 
class="ectt-1200">i=1,nT</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">BDc(i)=(BDb(i))**2</span>
&#x00A0;<br />&#x00A0;<span 
class="ectt-1200">40</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CONTINUE</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DO</span>&#x00A0;<span 
class="ectt-1200">50,</span>&#x00A0;<span 
class="ectt-1200">i=1,nT</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">BDd(i)=(i-0.375)/(nT+0.125)</span>
&#x00A0;<br />&#x00A0;<span 
class="ectt-1200">50</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CONTINUE</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CALL</span>&#x00A0;<span 
class="ectt-1200">qnorm(nT,BDd,0.0D0,1.0D0)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">sumbd=0</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">sumc=0</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">sumd2=0</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DO</span>&#x00A0;<span 
class="ectt-1200">60,</span>&#x00A0;<span 
class="ectt-1200">i=1,nT</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">sumbd=sumbd+(BDb(i)*BDd(i))</span>
&#x00A0;<br />&#x00A0;<span 
class="ectt-1200">60</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CONTINUE</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DO</span>&#x00A0;<span 
class="ectt-1200">70,</span>&#x00A0;<span 
class="ectt-1200">i=1,nT</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">sumc=sumc+BDc(i)</span>
&#x00A0;<br />&#x00A0;<span 
class="ectt-1200">70</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CONTINUE</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DO</span>&#x00A0;<span 
class="ectt-1200">80,</span>&#x00A0;<span 
class="ectt-1200">i=1,nT</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">sumd2=sumd2+(BDd(i))**2</span>
&#x00A0;<br />&#x00A0;<span 
class="ectt-1200">80</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CONTINUE</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">statBD=(sumbd**2)/(sumc*sumd2)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(6,*)</span>&#x00A0;<span 
class="ectt-1200">j</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">stanBD(j)=statBD</span>
&#x00A0;<br />&#x00A0;<span 
class="ectt-1200">90</span>&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CONTINUE</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">val=IDInt(nbcle*alpha)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CALL</span>&#x00A0;<span 
class="ectt-1200">M01CAF(stanBD,</span>&#x00A0;<span 
class="ectt-1200">1,</span>&#x00A0;<span 
class="ectt-1200">nbcle,</span>&#x00A0;<span 
class="ectt-1200">&#x2019;A&#x2019;,</span>&#x00A0;<span 
class="ectt-1200">0)</span>

&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">QBDcal=stanBD(val)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WRITE(6,*)</span>&#x00A0;<span 
class="ectt-1200">QBDcal</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">END</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INCLUDE</span>&#x00A0;<span 
class="ectt-1200">&#x0022;qnorm.f&#x0022;</span>
   </div>







<a 
  name="x1-56001r52"></a>
   <h2 class="appendixHead"><span class="titlemark">Annexe&#x00A0;B</span><br /><a 
  name="x1-57000B"></a>Les Programmes C++ du deuxi&#x00E8;me article</h2>
<!--l. 9--><p class="noindent">Vu l&#x2019;ampleur des programmes (presque 4500 lignes de code), le listing des diff&#x00E9;rents
programmes n&#x2019;est fourni que dans la version &#x00E9;lectronique de ce document sur le site
Internet <a 
href="http://www.theses.umontreal.ca" class="url" ><span 
class="ectt-1200">http://www.theses.umontreal.ca</span></a>.
<br class="newline" />Tous ces programmes ont &#x00E9;t&#x00E9; utilis&#x00E9;s sur un PC (gracieusement mis &#x00E0; disposition
par Gilles Ducharme) disposant d&#x2019;un processeur de 1 m&#x00E9;gaHz et pourvu, par mes
soins, du syst&#x00E8;me d&#x2019;exploitation Linux Redhat 7.2.
</p><!--l. 18--><p class="indent">   Ces programmes utilisent les librairies <span 
class="ecti-1200">newmat10 </span>et <span 
class="ecti-1200">newran02 </span>programm&#x00E9;es par
Robert Davies et t&#x00E9;l&#x00E9;chargeables (fichiers <span 
class="ecti-1200">newmat10.tar.gz </span>et <span 
class="ecti-1200">newran02.tar.gz</span>) sur
son site Internet via l&#x2019;URL <a 
href="http://www.robertnz.net/index.html" class="url" ><span 
class="ectt-1200">http://www.robertnz.net/index.html</span></a>.
</p><!--l. 25--><p class="indent">   Pour compiler les programmes, il faut placer tous les fichiers *.c dans un m&#x00EA;me
r&#x00E9;pertoire avec les fichiers <span 
class="ecti-1200">libnewmat.a </span>et <span 
class="ecti-1200">libnewran.a </span>(obtenus &#x00E0; partir des fichiers
source mentionn&#x00E9;s ci-dessus), et utiliser la commande&#x00A0;:

</p>
   <table width="100%" 
class="verbatim"><tr class="verbatim"><td 
class="verbatim"><div class="verbatim">
g++&#x00A0;-Wall&#x00A0;-O&#x00A0;main.c&#x00A0;-L.&#x00A0;-lnewmat&#x00A0;-lnewran&#x00A0;-o&#x00A0;main</div>
</td></tr></table>
<!--l. 36--><p class="indent">   Un fichier nomm&#x00E9; <span 
class="ecti-1200">main </span>est alors cr&#x00E9;&#x00E9;, et c&#x2019;est ce fichier qu&#x2019;il faut utiliser
pour le calcul des quantiles obtenus par la m&#x00E9;thode de Imhof (ou Davies,
ou Deheuvels et Martynov) ainsi que pour le calcul des valeurs prises par la
fonction de r&#x00E9;partition de la loi limite de la statistique de Cram&#x00E9;r-von
Mises&#x00A0;:

</p>
   <table width="100%" 
class="verbatim"><tr class="verbatim"><td 
class="verbatim"><div class="verbatim">
./main</div>
</td></tr></table>
<!--l. 48--><p class="noindent">Pour obtenir les quantiles empiriques dans le cas non s&#x00E9;riel, il faut pour compiler
utiliser la commande&#x00A0;:

</p>
   <table width="100%" 
class="verbatim"><tr class="verbatim"><td 
class="verbatim"><div class="verbatim">
g++&#x00A0;-Wall&#x00A0;-O&#x00A0;test.c&#x00A0;-L.&#x00A0;-lnewmat&#x00A0;-lnewran&#x00A0;-o&#x00A0;test</div>
</td></tr></table>
<!--l. 58--><p class="noindent">et pour lancer la simulation de Monte-Carlo, la commande&#x00A0;:

</p>
   <table width="100%" 
class="verbatim"><tr class="verbatim"><td 
class="verbatim"><div class="verbatim">
./test&#x00A0;&#x003E;&#x00A0;resultat.txt</div>
</td></tr></table>
<!--l. 66--><p class="noindent">Lorsque la simulation est termin&#x00E9;e, les r&#x00E9;sultats se trouvent dans le fichier
<span 
class="ecti-1200">resultat.txt</span>.
</p><!--l. 69--><p class="noindent">Un autre fichier nomm&#x00E9; <span 
class="ecti-1200">manova.c </span>contient le programme permettant d&#x2019;obtenir les
r&#x00E9;sultats de la section 5 du deuxi&#x00E8;me article.
</p><!--l. 73--><p class="noindent">Il faut &#x00E0; nouveau utiliser les commandes

</p>
   <table width="100%" 
class="verbatim"><tr class="verbatim"><td 
class="verbatim"><div class="verbatim">
g++&#x00A0;-Wall&#x00A0;-O&#x00A0;manova.c&#x00A0;-L.&#x00A0;-lnewmat&#x00A0;-lnewran&#x00A0;-o&#x00A0;manova</div>
</td></tr></table>
<!--l. 81--><p class="noindent">et

</p>
   <table width="100%" 
class="verbatim"><tr class="verbatim"><td 
class="verbatim"><div class="verbatim">
./manova</div>
</td></tr></table>
<!--l. 89--><p class="noindent">On obtient ainsi les puissances de notre test et de celui de Wilks dans le cadre
consid&#x00E9;r&#x00E9;.
</p>
   <h3 class="sectionHead"><span class="titlemark">B.1. </span> <a 
  name="x1-58000B.1"></a>Quantiles th&#x00E9;oriques</h3>
<!--l. 97--><p class="noindent"><span 
class="ecbx-1200">Le fichier </span><span 
class="ecbi-1200">zeta.c</span></p><div class="verbatiminput">
<span 
class="ectt-1200">double</span>&#x00A0;<span 
class="ectt-1200">zeta(int</span>&#x00A0;<span 
class="ectt-1200">m)</span>
&#x00A0;<br />
&#x00A0;<br /><span 
class="ectt-1200">{</span>
&#x00A0;<br />
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">double</span>&#x00A0;<span 
class="ectt-1200">somme;</span>
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">somme=0.0;</span>
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">int</span>&#x00A0;<span 
class="ectt-1200">k;</span>
&#x00A0;<br />
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">for</span>&#x00A0;<span 
class="ectt-1200">(k=1;k&#x003C;=10000;k=k+1)</span>&#x00A0;<span 
class="ectt-1200">somme=somme+pow(k,-m);</span>
&#x00A0;<br />
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">return(somme);</span>
&#x00A0;<br />
&#x00A0;<br /><span 
class="ectt-1200">}</span>
   </div><span 
class="ecbx-1200">Le fichier </span><span 
class="ecbi-1200">binarycode.c</span><div class="verbatiminput">
<span 
class="ectt-1200">/*</span>&#x00A0;<span 
class="ectt-1200">Debut-Commentaires</span>
&#x00A0;<br />
&#x00A0;<br /><span 
class="ectt-1200">Nom</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">la</span>&#x00A0;<span 
class="ectt-1200">fonction:</span>&#x00A0;<span 
class="ectt-1200">binarycode</span>
&#x00A0;<br />
&#x00A0;<br /><span 
class="ectt-1200">Entrees:</span>&#x00A0;<span 
class="ectt-1200">i</span>&#x00A0;<span 
class="ectt-1200">entier,</span>&#x00A0;<span 
class="ectt-1200">L</span>&#x00A0;<span 
class="ectt-1200">entier,</span>&#x00A0;<span 
class="ectt-1200">*y</span>&#x00A0;<span 
class="ectt-1200">pointeur</span>
&#x00A0;<br />
&#x00A0;<br /><span 
class="ectt-1200">Sorties:</span>&#x00A0;<span 
class="ectt-1200">void</span>
&#x00A0;<br />
&#x00A0;<br /><span 
class="ectt-1200">Description:</span>
&#x00A0;<br /><span 
class="ectt-1200">Traduit</span>&#x00A0;<span 
class="ectt-1200">en</span>&#x00A0;<span 
class="ectt-1200">binaire</span>&#x00A0;<span 
class="ectt-1200">sur</span>&#x00A0;<span 
class="ectt-1200">L</span>&#x00A0;<span 
class="ectt-1200">bits</span>&#x00A0;<span 
class="ectt-1200">l&#x2019;entier</span>&#x00A0;<span 
class="ectt-1200">i.</span>
&#x00A0;<br /><span 
class="ectt-1200">Les</span>&#x00A0;<span 
class="ectt-1200">resultats</span>&#x00A0;<span 
class="ectt-1200">sont</span>&#x00A0;<span 
class="ectt-1200">recuperes</span>&#x00A0;<span 
class="ectt-1200">via</span>&#x00A0;<span 
class="ectt-1200">le</span>&#x00A0;<span 
class="ectt-1200">pointeur</span>&#x00A0;<span 
class="ectt-1200">*y</span>
&#x00A0;<br />
&#x00A0;<br /><span 
class="ectt-1200">Utilisation</span>&#x00A0;<span 
class="ectt-1200">dans</span>&#x00A0;<span 
class="ectt-1200">une</span>&#x00A0;<span 
class="ectt-1200">fonction</span>&#x00A0;<span 
class="ectt-1200">main:</span>

&#x00A0;<br /><span 
class="ectt-1200">-------------------------------------</span>
&#x00A0;<br /><span 
class="ectt-1200">#include</span>&#x00A0;<span 
class="ectt-1200">&#x003C;iostream.h&#x003E;</span>
&#x00A0;<br /><span 
class="ectt-1200">#include&#x003C;math.h&#x003E;</span>
&#x00A0;<br />
&#x00A0;<br /><span 
class="ectt-1200">int</span>&#x00A0;<span 
class="ectt-1200">main()</span>
&#x00A0;<br />
&#x00A0;<br /><span 
class="ectt-1200">{</span>
&#x00A0;<br />
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">void</span>&#x00A0;<span 
class="ectt-1200">binarycode(int</span>&#x00A0;<span 
class="ectt-1200">i,int</span>&#x00A0;<span 
class="ectt-1200">L,</span>&#x00A0;<span 
class="ectt-1200">int</span>&#x00A0;<span 
class="ectt-1200">*y);</span>
&#x00A0;<br />
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">int</span>&#x00A0;<span 
class="ectt-1200">*y;</span>
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">int</span>&#x00A0;<span 
class="ectt-1200">i,</span>&#x00A0;<span 
class="ectt-1200">L;</span>
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">int</span>&#x00A0;<span 
class="ectt-1200">j;</span>
&#x00A0;<br />
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">i=39;</span>
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">L=8;</span>
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">y=new</span>&#x00A0;<span 
class="ectt-1200">int</span>&#x00A0;<span 
class="ectt-1200">[L];</span>
&#x00A0;<br />
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">binarycode(i,L,y);</span>
&#x00A0;<br />
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">if</span>&#x00A0;<span 
class="ectt-1200">(*y</span>&#x00A0;<span 
class="ectt-1200">&#x003E;=0)</span>&#x00A0;<span 
class="ectt-1200">{</span>
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">cout</span>&#x00A0;<span 
class="ectt-1200">&#x003C;&#x003C;</span>&#x00A0;<span 
class="ectt-1200">&#x0022;Affichage</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">la</span>&#x00A0;<span 
class="ectt-1200">version</span>&#x00A0;<span 
class="ectt-1200">binaire</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">i=&#x0022;&#x003C;&#x003C;i&#x003C;&#x003C;&#x0022;</span>&#x00A0;<span 
class="ectt-1200">exprimee</span>&#x00A0;<span 
class="ectt-1200">sur</span>&#x00A0;<span 
class="ectt-1200">L=&#x0022;&#x003C;&#x003C;L&#x003C;&#x003C;&#x0022;</span>&#x00A0;<span 
class="ectt-1200">bits</span>&#x00A0;<span 
class="ectt-1200">\n&#x0022;;</span>
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">for</span>&#x00A0;<span 
class="ectt-1200">(j=0;j&#x003C;L;j=j+1)</span>&#x00A0;<span 
class="ectt-1200">cout</span>&#x00A0;<span 
class="ectt-1200">&#x003C;&#x003C;</span>&#x00A0;<span 
class="ectt-1200">*(y+j)</span>&#x00A0;<span 
class="ectt-1200">&#x003C;&#x003C;</span>&#x00A0;<span 
class="ectt-1200">&#x0022;</span>&#x00A0;<span 
class="ectt-1200">&#x0022;;</span>
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">}</span>
&#x00A0;<br />
&#x00A0;<br /><span 
class="ectt-1200">return(0);</span>
&#x00A0;<br />
&#x00A0;<br /><span 
class="ectt-1200">}</span>
&#x00A0;<br />
&#x00A0;<br /><span 
class="ectt-1200">-------------------------------------</span>
&#x00A0;<br />
&#x00A0;<br /><span 
class="ectt-1200">Instructions</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">compilation:</span>
&#x00A0;<br /><span 
class="ectt-1200">g++</span>&#x00A0;<span 
class="ectt-1200">-Wall</span>&#x00A0;<span 
class="ectt-1200">-O</span>&#x00A0;<span 
class="ectt-1200">nom_du_fichier_contenant_la_fonction_main.cc</span>
&#x00A0;<br />
&#x00A0;<br /><span 
class="ectt-1200">Fonctions</span>&#x00A0;<span 
class="ectt-1200">exterieures</span>&#x00A0;<span 
class="ectt-1200">appelees:</span>
&#x00A0;<br />
&#x00A0;<br />
&#x00A0;<br /><span 
class="ectt-1200">Auteur:</span>&#x00A0;<span 
class="ectt-1200">Pierre</span>&#x00A0;<span 
class="ectt-1200">Lafaye</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">Micheaux</span>
&#x00A0;<br />
&#x00A0;<br /><span 
class="ectt-1200">Date:</span>&#x00A0;<span 
class="ectt-1200">24/08/2002</span>
&#x00A0;<br />
&#x00A0;<br /><span 
class="ectt-1200">Fin-Commentaires</span>&#x00A0;<span 
class="ectt-1200">*/</span>
&#x00A0;<br />

&#x00A0;<br />
&#x00A0;<br /><span 
class="ectt-1200">void</span>&#x00A0;<span 
class="ectt-1200">binarycode(int</span>&#x00A0;<span 
class="ectt-1200">i,int</span>&#x00A0;<span 
class="ectt-1200">L,</span>&#x00A0;<span 
class="ectt-1200">int</span>&#x00A0;<span 
class="ectt-1200">*y)</span>
&#x00A0;<br />&#x00A0;<span 
class="ectt-1200">{</span>
&#x00A0;<br />
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">int</span>&#x00A0;<span 
class="ectt-1200">n,</span>&#x00A0;<span 
class="ectt-1200">j;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">int</span>&#x00A0;<span 
class="ectt-1200">R,</span>&#x00A0;<span 
class="ectt-1200">q,</span>&#x00A0;<span 
class="ectt-1200">*x;</span>
&#x00A0;<br />
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">x=new</span>&#x00A0;<span 
class="ectt-1200">int</span>&#x00A0;<span 
class="ectt-1200">[L];</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">q=i;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">n=0;</span>
&#x00A0;<br />
&#x00A0;<br />&#x00A0;<span 
class="ectt-1200">do</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">{</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">R=q-2*(int)floor(q/2.0);</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">q=(int)floor(q/2.0);</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">for</span>&#x00A0;<span 
class="ectt-1200">(j=L-1;</span>&#x00A0;<span 
class="ectt-1200">j&#x003E;0;</span>&#x00A0;<span 
class="ectt-1200">j=j-1)</span>&#x00A0;<span 
class="ectt-1200">*(x+j)=*(x+j-1);</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">*(x+0)=R;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">n=n+1;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">}</span>
&#x00A0;<br />&#x00A0;<span 
class="ectt-1200">while</span>&#x00A0;<span 
class="ectt-1200">(q&#x003E;0);</span>
&#x00A0;<br />
&#x00A0;<br />&#x00A0;<span 
class="ectt-1200">if</span>&#x00A0;<span 
class="ectt-1200">(n==L)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">for</span>&#x00A0;<span 
class="ectt-1200">(j=0;j&#x003C;L;j=j+1)</span>&#x00A0;<span 
class="ectt-1200">*(y+j)=*(x+j);</span>
&#x00A0;<br />&#x00A0;<span 
class="ectt-1200">else</span>&#x00A0;<span 
class="ectt-1200">if</span>&#x00A0;<span 
class="ectt-1200">(L-n&#x003E;0)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">{</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">for</span>&#x00A0;<span 
class="ectt-1200">(j=0;j&#x003C;L-n;j=j+1)</span>&#x00A0;<span 
class="ectt-1200">*(y+j)=0;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">for</span>&#x00A0;<span 
class="ectt-1200">(j=L-n;j&#x003C;L;j=j+1)</span>&#x00A0;<span 
class="ectt-1200">*(y+j)=*(x+n-L+j);</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">}</span>
&#x00A0;<br />&#x00A0;<span 
class="ectt-1200">else</span>&#x00A0;<span 
class="ectt-1200">{cout</span>&#x00A0;<span 
class="ectt-1200">&#x003C;&#x003C;</span>&#x00A0;<span 
class="ectt-1200">&#x0022;Il</span>&#x00A0;<span 
class="ectt-1200">faut</span>&#x00A0;<span 
class="ectt-1200">prendre</span>&#x00A0;<span 
class="ectt-1200">L</span>&#x00A0;<span 
class="ectt-1200">plus</span>&#x00A0;<span 
class="ectt-1200">grand.\n&#x0022;;*(y+0)=L-n;}</span>
&#x00A0;<br />
&#x00A0;<br />
&#x00A0;<br />
&#x00A0;<br />&#x00A0;<span 
class="ectt-1200">}</span>
&#x00A0;<br />
&#x00A0;<br />
&#x00A0;<br />
</div><span 
class="ecbx-1200">Le fichier </span><span 
class="ecbi-1200">combn.c</span><div class="verbatiminput">
<span 
class="ectt-1200">void</span>&#x00A0;<span 
class="ectt-1200">combn(int</span>&#x00A0;<span 
class="ectt-1200">**combmat,</span>&#x00A0;<span 
class="ectt-1200">int</span>&#x00A0;<span 
class="ectt-1200">n,</span>&#x00A0;<span 
class="ectt-1200">int</span>&#x00A0;<span 
class="ectt-1200">m)</span>
&#x00A0;<br /><span 
class="ectt-1200">{</span>
&#x00A0;<br />
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">/*</span>

&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DESCRIPTION:</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Generate</span>&#x00A0;<span 
class="ectt-1200">all</span>&#x00A0;<span 
class="ectt-1200">combinations</span>&#x00A0;<span 
class="ectt-1200">of</span>&#x00A0;<span 
class="ectt-1200">the</span>&#x00A0;<span 
class="ectt-1200">elements</span>&#x00A0;<span 
class="ectt-1200">of</span>&#x00A0;<span 
class="ectt-1200">seq(n)</span>&#x00A0;<span 
class="ectt-1200">taken</span>&#x00A0;<span 
class="ectt-1200">m</span>&#x00A0;<span 
class="ectt-1200">at</span>&#x00A0;<span 
class="ectt-1200">a</span>&#x00A0;<span 
class="ectt-1200">time.</span>
&#x00A0;<br />
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">REFERENCE:</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Nijenhuis,</span>&#x00A0;<span 
class="ectt-1200">A.</span>&#x00A0;<span 
class="ectt-1200">and</span>&#x00A0;<span 
class="ectt-1200">Wilf,</span>&#x00A0;<span 
class="ectt-1200">H.S.</span>&#x00A0;<span 
class="ectt-1200">(1978)</span>&#x00A0;<span 
class="ectt-1200">Combinatorial</span>&#x00A0;<span 
class="ectt-1200">Algorithms</span>&#x00A0;<span 
class="ectt-1200">for</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Computers</span>&#x00A0;<span 
class="ectt-1200">and</span>&#x00A0;<span 
class="ectt-1200">Calculators.</span>&#x00A0;&#x00A0;<span 
class="ectt-1200">NY:</span>&#x00A0;&#x00A0;<span 
class="ectt-1200">Academic</span>&#x00A0;<span 
class="ectt-1200">Press.</span>
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">*/</span>
&#x00A0;<br />
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">int</span>&#x00A0;<span 
class="ectt-1200">i,</span>&#x00A0;<span 
class="ectt-1200">j,</span>&#x00A0;<span 
class="ectt-1200">e,</span>&#x00A0;<span 
class="ectt-1200">h,</span>&#x00A0;<span 
class="ectt-1200">nmmp1,</span>&#x00A0;<span 
class="ectt-1200">mp1;</span>
&#x00A0;<br />
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">Matrix</span>&#x00A0;<span 
class="ectt-1200">a(m,1);</span>
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">for</span>&#x00A0;<span 
class="ectt-1200">(i=1;i&#x003C;=m;i=i+1)</span>&#x00A0;<span 
class="ectt-1200">a(i,1)=i;</span>
&#x00A0;<br />
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">if((n</span>&#x00A0;<span 
class="ectt-1200">&#x003C;</span>&#x00A0;<span 
class="ectt-1200">m)|(n==m))</span>&#x00A0;<span 
class="ectt-1200">cout</span>&#x00A0;<span 
class="ectt-1200">&#x003C;&#x003C;&#x0022;Attention:</span>&#x00A0;<span 
class="ectt-1200">n</span>&#x00A0;<span 
class="ectt-1200">&#x003C;=</span>&#x00A0;<span 
class="ectt-1200">m&#x0022;;</span>
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">e=0;</span>
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">h=m;</span>
&#x00A0;<br />
&#x00A0;<br />
&#x00A0;<br />
&#x00A0;<br />
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">for</span>&#x00A0;<span 
class="ectt-1200">(i=1;i&#x003C;=m;i=i+1)</span>&#x00A0;<span 
class="ectt-1200">combmat[0][i-1]=i;</span>
&#x00A0;<br />
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">i=2;</span>
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">nmmp1=n</span>&#x00A0;<span 
class="ectt-1200">-</span>&#x00A0;<span 
class="ectt-1200">m</span>&#x00A0;<span 
class="ectt-1200">+</span>&#x00A0;<span 
class="ectt-1200">1;</span>
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">mp1=m</span>&#x00A0;<span 
class="ectt-1200">+</span>&#x00A0;<span 
class="ectt-1200">1;</span>
&#x00A0;<br /><span 
class="ectt-1200">while(a(1,1)</span>&#x00A0;<span 
class="ectt-1200">!=</span>&#x00A0;<span 
class="ectt-1200">nmmp1)</span>&#x00A0;<span 
class="ectt-1200">{</span>
&#x00A0;<br />
&#x00A0;<br /><span 
class="ectt-1200">if(e</span>&#x00A0;<span 
class="ectt-1200">&#x003C;</span>&#x00A0;<span 
class="ectt-1200">n</span>&#x00A0;<span 
class="ectt-1200">-</span>&#x00A0;<span 
class="ectt-1200">h)</span>&#x00A0;<span 
class="ectt-1200">{</span>
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">h=1;</span>
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">e=(int)a(m,1);</span>
&#x00A0;<br />
&#x00A0;<br />
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">a(m</span>&#x00A0;<span 
class="ectt-1200">-</span>&#x00A0;<span 
class="ectt-1200">h</span>&#x00A0;<span 
class="ectt-1200">+</span>&#x00A0;<span 
class="ectt-1200">1,1)=e</span>&#x00A0;<span 
class="ectt-1200">+</span>&#x00A0;<span 
class="ectt-1200">1;</span>
&#x00A0;<br />
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">for</span>&#x00A0;<span 
class="ectt-1200">(j=1;j&#x003C;=m;j=j+1)</span>&#x00A0;<span 
class="ectt-1200">combmat[i-1][j-1]=(int)a(j,1);</span>
&#x00A0;<br />
&#x00A0;<br />
&#x00A0;<br />
&#x00A0;<br /><span 
class="ectt-1200">i=i+1;</span>
&#x00A0;<br />
&#x00A0;<br /><span 
class="ectt-1200">}</span>
&#x00A0;<br /><span 
class="ectt-1200">else</span>&#x00A0;<span 
class="ectt-1200">{</span>
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">h=h</span>&#x00A0;<span 
class="ectt-1200">+</span>&#x00A0;<span 
class="ectt-1200">1;</span>

&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">e=(int)a(mp1</span>&#x00A0;<span 
class="ectt-1200">-</span>&#x00A0;<span 
class="ectt-1200">h,1);</span>
&#x00A0;<br />
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">for</span>&#x00A0;<span 
class="ectt-1200">(j=1;j&#x003C;=h;j=j+1)</span>&#x00A0;<span 
class="ectt-1200">a(m</span>&#x00A0;<span 
class="ectt-1200">-</span>&#x00A0;<span 
class="ectt-1200">h</span>&#x00A0;<span 
class="ectt-1200">+</span>&#x00A0;<span 
class="ectt-1200">j,1)=e</span>&#x00A0;<span 
class="ectt-1200">+</span>&#x00A0;<span 
class="ectt-1200">j;</span>
&#x00A0;<br />
&#x00A0;<br /><span 
class="ectt-1200">for</span>&#x00A0;<span 
class="ectt-1200">(j=1;j&#x003C;=m;j=j+1)</span>&#x00A0;<span 
class="ectt-1200">combmat[i-1][j-1]=(int)a(j,1);</span>
&#x00A0;<br />
&#x00A0;<br />
&#x00A0;<br />
&#x00A0;<br /><span 
class="ectt-1200">i=i</span>&#x00A0;<span 
class="ectt-1200">+</span>&#x00A0;<span 
class="ectt-1200">1;</span>
&#x00A0;<br />
&#x00A0;<br />
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">}</span>
&#x00A0;<br />
&#x00A0;<br /><span 
class="ectt-1200">}</span>
&#x00A0;<br />
&#x00A0;<br />
&#x00A0;<br /><span 
class="ectt-1200">}</span>
&#x00A0;<br />
&#x00A0;<br />
</div><span 
class="ecbx-1200">Le fichier </span><span 
class="ecbi-1200">cornish.c</span><div class="verbatiminput">
<span 
class="ectt-1200">/*</span>&#x00A0;<span 
class="ectt-1200">Debut-Commentaires</span>
&#x00A0;<br />
&#x00A0;<br /><span 
class="ectt-1200">Nom</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">la</span>&#x00A0;<span 
class="ectt-1200">fonction:</span>&#x00A0;<span 
class="ectt-1200">valpmultiv</span>
&#x00A0;<br />
&#x00A0;<br /><span 
class="ectt-1200">Entrees:</span>&#x00A0;<span 
class="ectt-1200">X</span>&#x00A0;<span 
class="ectt-1200">double,</span>&#x00A0;<span 
class="ectt-1200">cum</span>&#x00A0;<span 
class="ectt-1200">matrice</span>&#x00A0;<span 
class="ectt-1200">des</span>&#x00A0;<span 
class="ectt-1200">cumulants</span>
&#x00A0;<br />
&#x00A0;<br /><span 
class="ectt-1200">Sorties:</span>&#x00A0;<span 
class="ectt-1200">D</span>&#x00A0;<span 
class="ectt-1200">DiagonalMatrix</span>
&#x00A0;<br />
&#x00A0;<br /><span 
class="ectt-1200">Description:</span>
&#x00A0;<br /><span 
class="ectt-1200">CALCUL</span>&#x00A0;<span 
class="ectt-1200">DES</span>&#x00A0;<span 
class="ectt-1200">QUANTILES</span>&#x00A0;<span 
class="ectt-1200">PAR</span>&#x00A0;<span 
class="ectt-1200">LA</span>&#x00A0;<span 
class="ectt-1200">METHODE</span>&#x00A0;<span 
class="ectt-1200">DE</span>&#x00A0;<span 
class="ectt-1200">CORNISH-FISHER</span>
&#x00A0;<br /><span 
class="ectt-1200">On</span>&#x00A0;<span 
class="ectt-1200">cherche</span>&#x00A0;<span 
class="ectt-1200">yp</span>&#x00A0;<span 
class="ectt-1200">tel</span>&#x00A0;<span 
class="ectt-1200">que</span>&#x00A0;<span 
class="ectt-1200">F(yp)=1-p</span>
&#x00A0;<br /><span 
class="ectt-1200">Soit</span>&#x00A0;<span 
class="ectt-1200">X</span>&#x00A0;<span 
class="ectt-1200">tel</span>&#x00A0;<span 
class="ectt-1200">que</span>&#x00A0;<span 
class="ectt-1200">Phi(X)=1-p</span>&#x00A0;<span 
class="ectt-1200">ou</span>&#x00A0;<span 
class="ectt-1200">Phi</span>&#x00A0;<span 
class="ectt-1200">est</span>&#x00A0;<span 
class="ectt-1200">la</span>&#x00A0;<span 
class="ectt-1200">fonction</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">repartition</span>&#x00A0;<span 
class="ectt-1200">d&#x2019;une</span>&#x00A0;<span 
class="ectt-1200">N(0,1)</span>
&#x00A0;<br /><span 
class="ectt-1200">cum</span>&#x00A0;<span 
class="ectt-1200">est</span>&#x00A0;<span 
class="ectt-1200">le</span>&#x00A0;<span 
class="ectt-1200">vecteur</span>&#x00A0;<span 
class="ectt-1200">des</span>&#x00A0;<span 
class="ectt-1200">cumulants,</span>&#x00A0;<span 
class="ectt-1200">il</span>&#x00A0;<span 
class="ectt-1200">doit</span>&#x00A0;<span 
class="ectt-1200">etre</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">longueur</span>&#x00A0;<span 
class="ectt-1200">NORD+2</span>&#x00A0;<span 
class="ectt-1200">ou</span>&#x00A0;<span 
class="ectt-1200">NORD</span>&#x00A0;<span 
class="ectt-1200">est</span>&#x00A0;<span 
class="ectt-1200">l&#x2019;ordre</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">l&#x2019;expansion</span>&#x00A0;<span 
class="ectt-1200">souhaite</span>
&#x00A0;<br />
&#x00A0;<br />
&#x00A0;<br />
&#x00A0;<br /><span 
class="ectt-1200">Utilisation</span>&#x00A0;<span 
class="ectt-1200">dans</span>&#x00A0;<span 
class="ectt-1200">une</span>&#x00A0;<span 
class="ectt-1200">fonction</span>&#x00A0;<span 
class="ectt-1200">main:</span>
&#x00A0;<br /><span 
class="ectt-1200">-------------------------------------</span>
&#x00A0;<br />
&#x00A0;<br /><span 
class="ectt-1200">#include</span>&#x00A0;<span 
class="ectt-1200">&#x003C;iostream.h&#x003E;</span>
&#x00A0;<br /><span 
class="ectt-1200">//#include&#x003C;math.h&#x003E;</span>

&#x00A0;<br /><span 
class="ectt-1200">#define</span>&#x00A0;<span 
class="ectt-1200">WANT_STREAM</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">//</span>&#x00A0;<span 
class="ectt-1200">include.h</span>&#x00A0;<span 
class="ectt-1200">will</span>&#x00A0;<span 
class="ectt-1200">get</span>&#x00A0;<span 
class="ectt-1200">stream</span>&#x00A0;<span 
class="ectt-1200">fns</span>
&#x00A0;<br /><span 
class="ectt-1200">#define</span>&#x00A0;<span 
class="ectt-1200">WANT_MATH</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">//</span>&#x00A0;<span 
class="ectt-1200">include.h</span>&#x00A0;<span 
class="ectt-1200">will</span>&#x00A0;<span 
class="ectt-1200">get</span>&#x00A0;<span 
class="ectt-1200">math</span>&#x00A0;<span 
class="ectt-1200">fns</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">//</span>&#x00A0;<span 
class="ectt-1200">newmatap.h</span>&#x00A0;<span 
class="ectt-1200">will</span>&#x00A0;<span 
class="ectt-1200">get</span>&#x00A0;<span 
class="ectt-1200">include.h</span>
&#x00A0;<br /><span 
class="ectt-1200">#include</span>&#x00A0;<span 
class="ectt-1200">&#x0022;newmatap.h&#x0022;</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">//</span>&#x00A0;<span 
class="ectt-1200">need</span>&#x00A0;<span 
class="ectt-1200">matrix</span>&#x00A0;<span 
class="ectt-1200">applications</span>
&#x00A0;<br />
&#x00A0;<br /><span 
class="ectt-1200">#include</span>&#x00A0;<span 
class="ectt-1200">&#x0022;newmatio.h&#x0022;</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">//</span>&#x00A0;<span 
class="ectt-1200">need</span>&#x00A0;<span 
class="ectt-1200">matrix</span>&#x00A0;<span 
class="ectt-1200">output</span>&#x00A0;<span 
class="ectt-1200">routines</span>
&#x00A0;<br />
&#x00A0;<br /><span 
class="ectt-1200">#ifdef</span>&#x00A0;<span 
class="ectt-1200">use_namespace</span>
&#x00A0;<br /><span 
class="ectt-1200">using</span>&#x00A0;<span 
class="ectt-1200">namespace</span>&#x00A0;<span 
class="ectt-1200">NEWMAT;</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">//</span>&#x00A0;<span 
class="ectt-1200">access</span>&#x00A0;<span 
class="ectt-1200">NEWMAT</span>&#x00A0;<span 
class="ectt-1200">namespace</span>
&#x00A0;<br /><span 
class="ectt-1200">#endif</span>
&#x00A0;<br />
&#x00A0;<br /><span 
class="ectt-1200">#include</span>&#x00A0;<span 
class="ectt-1200">&#x0022;cornish.c&#x0022;</span>
&#x00A0;<br />
&#x00A0;<br /><span 
class="ectt-1200">int</span>&#x00A0;<span 
class="ectt-1200">main()</span>
&#x00A0;<br />
&#x00A0;<br /><span 
class="ectt-1200">{</span>
&#x00A0;<br />
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">double</span>&#x00A0;<span 
class="ectt-1200">cornish(double</span>&#x00A0;<span 
class="ectt-1200">X,</span>&#x00A0;<span 
class="ectt-1200">Matrix</span>&#x00A0;<span 
class="ectt-1200">cum);</span>
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">int</span>&#x00A0;<span 
class="ectt-1200">NORD,</span>&#x00A0;<span 
class="ectt-1200">i;</span>
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">double</span>&#x00A0;<span 
class="ectt-1200">X,</span>&#x00A0;<span 
class="ectt-1200">resul;</span>
&#x00A0;<br />
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">NORD=10;</span>
&#x00A0;<br />
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">Matrix</span>&#x00A0;<span 
class="ectt-1200">cum(NORD+2,1);</span>
&#x00A0;<br />
&#x00A0;<br />
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">//</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Definition</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">X</span>
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">X=2.3;</span>
&#x00A0;<br />
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">//</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Definition</span>&#x00A0;<span 
class="ectt-1200">des</span>&#x00A0;<span 
class="ectt-1200">cumulants</span>
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">cum(1,1)=1.0;</span>
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">cum(2,1)=2.0;</span>
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">for</span>&#x00A0;<span 
class="ectt-1200">(i=3;i&#x003C;=NORD+2;i=i+1)</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">cum(i,1)=i;</span>
&#x00A0;<br />
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">resul=cornish(X,cum);</span>
&#x00A0;<br />
&#x00A0;<br />
&#x00A0;<br />
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">cout</span>&#x00A0;<span 
class="ectt-1200">&#x003C;&#x003C;</span>&#x00A0;<span 
class="ectt-1200">setprecision(15)</span>&#x00A0;&#x00A0;<span 
class="ectt-1200">&#x003C;&#x003C;</span>&#x00A0;<span 
class="ectt-1200">resul</span>&#x00A0;<span 
class="ectt-1200">&#x003C;&#x003C;</span>&#x00A0;<span 
class="ectt-1200">&#x0022;\n&#x0022;;</span>
&#x00A0;<br />
&#x00A0;<br />
&#x00A0;<br /><span 
class="ectt-1200">}</span>
&#x00A0;<br />

&#x00A0;<br />
&#x00A0;<br />
&#x00A0;<br /><span 
class="ectt-1200">-------------------------------------</span>
&#x00A0;<br />
&#x00A0;<br /><span 
class="ectt-1200">Instructions</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">compilation:</span>
&#x00A0;<br /><span 
class="ectt-1200">g++</span>&#x00A0;<span 
class="ectt-1200">-Wall</span>&#x00A0;<span 
class="ectt-1200">-O</span>&#x00A0;<span 
class="ectt-1200">nom_du_fichier_contenant_la_fonction_main.cc</span>&#x00A0;<span 
class="ectt-1200">-L.</span>&#x00A0;<span 
class="ectt-1200">-lnewmat</span>
&#x00A0;<br />
&#x00A0;<br /><span 
class="ectt-1200">Fonctions</span>&#x00A0;<span 
class="ectt-1200">exterieures</span>&#x00A0;<span 
class="ectt-1200">appelees:</span>
&#x00A0;<br /><span 
class="ectt-1200">CF,</span>&#x00A0;<span 
class="ectt-1200">et</span>&#x00A0;<span 
class="ectt-1200">aussi</span>&#x00A0;<span 
class="ectt-1200">la</span>&#x00A0;<span 
class="ectt-1200">librairie</span>&#x00A0;<span 
class="ectt-1200">libnewmat.a</span>&#x00A0;<span 
class="ectt-1200">et</span>&#x00A0;<span 
class="ectt-1200">les</span>&#x00A0;<span 
class="ectt-1200">fichiers</span>&#x00A0;<span 
class="ectt-1200">qui</span>&#x00A0;<span 
class="ectt-1200">vont</span>&#x00A0;<span 
class="ectt-1200">avec</span>&#x00A0;<span 
class="ectt-1200">cette</span>&#x00A0;<span 
class="ectt-1200">librairie:</span>
&#x00A0;<br /><span 
class="ectt-1200">newmatap.h,</span>&#x00A0;<span 
class="ectt-1200">newmatio.h,</span>&#x00A0;<span 
class="ectt-1200">newmat.h,</span>&#x00A0;<span 
class="ectt-1200">include.h,</span>&#x00A0;<span 
class="ectt-1200">boolean.h,</span>&#x00A0;<span 
class="ectt-1200">myexcept.h</span>
&#x00A0;<br />
&#x00A0;<br /><span 
class="ectt-1200">Auteur:</span>&#x00A0;<span 
class="ectt-1200">Pierre</span>&#x00A0;<span 
class="ectt-1200">Lafaye</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">Micheaux</span>
&#x00A0;<br />
&#x00A0;<br /><span 
class="ectt-1200">Date:</span>&#x00A0;<span 
class="ectt-1200">24/08/2002</span>
&#x00A0;<br />
&#x00A0;<br /><span 
class="ectt-1200">Fin-Commentaires</span>&#x00A0;<span 
class="ectt-1200">*/</span>
&#x00A0;<br />
&#x00A0;<br />
&#x00A0;<br />
&#x00A0;<br />
&#x00A0;<br /><span 
class="ectt-1200">double</span>&#x00A0;<span 
class="ectt-1200">cornish(double</span>&#x00A0;<span 
class="ectt-1200">X,</span>&#x00A0;<span 
class="ectt-1200">Matrix</span>&#x00A0;<span 
class="ectt-1200">cum)</span>
&#x00A0;<br />
&#x00A0;<br /><span 
class="ectt-1200">{</span>
&#x00A0;<br />
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">//Algorithm</span>&#x00A0;<span 
class="ectt-1200">AS</span>&#x00A0;<span 
class="ectt-1200">269</span>&#x00A0;<span 
class="ectt-1200">comme</span>&#x00A0;<span 
class="ectt-1200">dans</span>&#x00A0;<span 
class="ectt-1200">Lee</span>&#x00A0;<span 
class="ectt-1200">et</span>&#x00A0;<span 
class="ectt-1200">Lin</span>&#x00A0;<span 
class="ectt-1200">(1992)</span>&#x00A0;<span 
class="ectt-1200">Appl.</span>&#x00A0;<span 
class="ectt-1200">Statist.</span>
&#x00A0;<br />
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">Matrix</span>&#x00A0;<span 
class="ectt-1200">CF(int</span>&#x00A0;<span 
class="ectt-1200">NORD,</span>&#x00A0;<span 
class="ectt-1200">double</span>&#x00A0;<span 
class="ectt-1200">X,</span>&#x00A0;<span 
class="ectt-1200">Matrix</span>&#x00A0;<span 
class="ectt-1200">AC,</span>&#x00A0;<span 
class="ectt-1200">int</span>&#x00A0;<span 
class="ectt-1200">IFAULT);</span>
&#x00A0;<br />
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">int</span>&#x00A0;<span 
class="ectt-1200">IFAULT,</span>&#x00A0;<span 
class="ectt-1200">i,</span>&#x00A0;<span 
class="ectt-1200">NORD;</span>
&#x00A0;<br />
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">double</span>&#x00A0;<span 
class="ectt-1200">somme,</span>&#x00A0;<span 
class="ectt-1200">yp;</span>
&#x00A0;<br />
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">NORD=cum.Nrows()-2;</span>
&#x00A0;<br />
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">Matrix</span>&#x00A0;<span 
class="ectt-1200">AC(NORD,1),</span>&#x00A0;<span 
class="ectt-1200">DEL(NORD,1);</span>
&#x00A0;<br />
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">IFAULT=0;</span>
&#x00A0;<br />
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">//</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Definition</span>&#x00A0;<span 
class="ectt-1200">des</span>&#x00A0;<span 
class="ectt-1200">cumulants</span>&#x00A0;<span 
class="ectt-1200">ajustes</span>
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">for</span>&#x00A0;<span 
class="ectt-1200">(i=3;i&#x003C;=NORD+2;i=i+1)</span>
<span 
class="ectt-1200">AC(i-2,1)=cum(i,1)/(pow(sqrt(cum(2,1)),i));</span>
&#x00A0;<br />
&#x00A0;<br />

&#x00A0;<br />
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">DEL=CF(NORD,</span>&#x00A0;<span 
class="ectt-1200">X,</span>&#x00A0;<span 
class="ectt-1200">AC,</span>&#x00A0;<span 
class="ectt-1200">IFAULT);</span>
&#x00A0;<br />
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">somme=X;</span>
&#x00A0;<br />
&#x00A0;<br /><span 
class="ectt-1200">//</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DEL</span>&#x00A0;<span 
class="ectt-1200">represente</span>&#x00A0;<span 
class="ectt-1200">les</span>&#x00A0;<span 
class="ectt-1200">&#x0022;adjustements&#x0022;</span>
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">for</span>&#x00A0;<span 
class="ectt-1200">(i=1;i&#x003C;=NORD;i=i+1)</span>&#x00A0;&#x00A0;<span 
class="ectt-1200">somme=somme+DEL(i,1);</span>
&#x00A0;<br />
&#x00A0;<br />
&#x00A0;<br />
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">yp=cum(1,1)+sqrt(cum(2,1))*somme;</span>
&#x00A0;<br />
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">return(yp);</span>
&#x00A0;<br />
&#x00A0;<br /><span 
class="ectt-1200">}</span>
&#x00A0;<br />
&#x00A0;<br />
&#x00A0;<br />
&#x00A0;<br /><span 
class="ectt-1200">Matrix</span>&#x00A0;<span 
class="ectt-1200">CF(int</span>&#x00A0;<span 
class="ectt-1200">NORD,</span>&#x00A0;<span 
class="ectt-1200">double</span>&#x00A0;<span 
class="ectt-1200">X,</span>&#x00A0;<span 
class="ectt-1200">Matrix</span>&#x00A0;<span 
class="ectt-1200">AC,</span>&#x00A0;<span 
class="ectt-1200">int</span>&#x00A0;<span 
class="ectt-1200">IFAULT)</span>
&#x00A0;<br />
&#x00A0;<br /><span 
class="ectt-1200">{</span>
&#x00A0;<br />
&#x00A0;<br />
&#x00A0;<br />
&#x00A0;<br />
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">//</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">ALGORITHM</span>&#x00A0;<span 
class="ectt-1200">AS</span>&#x00A0;<span 
class="ectt-1200">269</span>&#x00A0;<span 
class="ectt-1200">APPL.STATIST.</span>&#x00A0;<span 
class="ectt-1200">(1992),</span>&#x00A0;<span 
class="ectt-1200">VOL.41,</span>&#x00A0;<span 
class="ectt-1200">NO.1</span>
&#x00A0;<br />
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">//</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Calculates</span>&#x00A0;<span 
class="ectt-1200">the</span>&#x00A0;<span 
class="ectt-1200">Cornish-Fisher</span>&#x00A0;<span 
class="ectt-1200">adjustment</span>&#x00A0;<span 
class="ectt-1200">to</span>&#x00A0;<span 
class="ectt-1200">the</span>&#x00A0;<span 
class="ectt-1200">normal</span>&#x00A0;<span 
class="ectt-1200">deviate.</span>
&#x00A0;<br />
&#x00A0;<br />
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">//</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Local</span>&#x00A0;<span 
class="ectt-1200">variables</span>
&#x00A0;<br />
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">Matrix</span>&#x00A0;<span 
class="ectt-1200">DEL(NORD,1),</span>&#x00A0;<span 
class="ectt-1200">A(NORD,1),</span>&#x00A0;<span 
class="ectt-1200">H(3*NORD,1),</span>&#x00A0;<span 
class="ectt-1200">P(3</span>&#x00A0;<span 
class="ectt-1200">*</span>&#x00A0;<span 
class="ectt-1200">NORD</span>&#x00A0;<span 
class="ectt-1200">*</span>&#x00A0;<span 
class="ectt-1200">(NORD+1)/2,1),</span>&#x00A0;<span 
class="ectt-1200">D(NORD,1);</span>
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">int</span>&#x00A0;<span 
class="ectt-1200">J,</span>&#x00A0;<span 
class="ectt-1200">JA,</span>&#x00A0;<span 
class="ectt-1200">JAL,</span>&#x00A0;<span 
class="ectt-1200">JB,</span>&#x00A0;<span 
class="ectt-1200">JBL,</span>&#x00A0;<span 
class="ectt-1200">K,</span>&#x00A0;<span 
class="ectt-1200">L;</span>
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">double</span>&#x00A0;<span 
class="ectt-1200">AA,</span>&#x00A0;<span 
class="ectt-1200">BC,</span>&#x00A0;<span 
class="ectt-1200">CC,</span>&#x00A0;<span 
class="ectt-1200">DD,</span>&#x00A0;<span 
class="ectt-1200">FAC,</span>&#x00A0;<span 
class="ectt-1200">LIMIT,</span>&#x00A0;<span 
class="ectt-1200">ONE,</span>&#x00A0;<span 
class="ectt-1200">ZERO;</span>
&#x00A0;<br />
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">LIMIT=3.719017274;</span>
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">ONE=1.0;</span>
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">ZERO=0.0;</span>
&#x00A0;<br />
&#x00A0;<br />
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">//</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Check</span>&#x00A0;<span 
class="ectt-1200">input</span>&#x00A0;<span 
class="ectt-1200">arguments</span>
&#x00A0;<br />

&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">IFAULT=0;</span>
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">if</span>&#x00A0;<span 
class="ectt-1200">(NORD&#x003E;18)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">IFAULT=1;</span>
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">else</span>&#x00A0;&#x00A0;<span 
class="ectt-1200">if</span>&#x00A0;<span 
class="ectt-1200">((X&#x003C;-LIMIT)</span>&#x00A0;<span 
class="ectt-1200">||</span>&#x00A0;<span 
class="ectt-1200">(X&#x003E;LIMIT))</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">IFAULT</span>&#x00A0;<span 
class="ectt-1200">=</span>&#x00A0;<span 
class="ectt-1200">2;</span>
&#x00A0;<br />
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">if</span>&#x00A0;<span 
class="ectt-1200">(IFAULT!=0)</span>&#x00A0;<span 
class="ectt-1200">exit(0);</span>
&#x00A0;<br />
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">//</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Compute</span>&#x00A0;<span 
class="ectt-1200">the</span>&#x00A0;<span 
class="ectt-1200">adjusted</span>&#x00A0;<span 
class="ectt-1200">cumulants</span>
&#x00A0;<br />
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">CC</span>&#x00A0;<span 
class="ectt-1200">=</span>&#x00A0;<span 
class="ectt-1200">-ONE;</span>
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">for</span>&#x00A0;<span 
class="ectt-1200">(J=1;J&#x003C;=NORD;J=J+1)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">{</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">A(J,1)</span>&#x00A0;<span 
class="ectt-1200">=</span>&#x00A0;<span 
class="ectt-1200">CC</span>&#x00A0;<span 
class="ectt-1200">*</span>&#x00A0;<span 
class="ectt-1200">AC(J,1)</span>&#x00A0;<span 
class="ectt-1200">/</span>&#x00A0;<span 
class="ectt-1200">((J+1)</span>&#x00A0;<span 
class="ectt-1200">*</span>&#x00A0;<span 
class="ectt-1200">(J+2));</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CC</span>&#x00A0;<span 
class="ectt-1200">=</span>&#x00A0;<span 
class="ectt-1200">-CC;</span>
&#x00A0;<br />
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">}</span>
&#x00A0;<br />
&#x00A0;<br />
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">//</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Compute</span>&#x00A0;<span 
class="ectt-1200">the</span>&#x00A0;<span 
class="ectt-1200">Hermite</span>&#x00A0;<span 
class="ectt-1200">polynomial</span>&#x00A0;<span 
class="ectt-1200">values.</span>
&#x00A0;<br />
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">H(1,1)</span>&#x00A0;<span 
class="ectt-1200">=</span>&#x00A0;<span 
class="ectt-1200">-X;</span>
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">H(2,1)</span>&#x00A0;<span 
class="ectt-1200">=</span>&#x00A0;<span 
class="ectt-1200">X</span>&#x00A0;<span 
class="ectt-1200">*</span>&#x00A0;<span 
class="ectt-1200">X</span>&#x00A0;<span 
class="ectt-1200">-</span>&#x00A0;<span 
class="ectt-1200">ONE;</span>
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">for</span>&#x00A0;<span 
class="ectt-1200">(J=3;J&#x003C;=3*NORD;J=J+1)</span>&#x00A0;<span 
class="ectt-1200">H(J,1)</span>&#x00A0;<span 
class="ectt-1200">=</span>&#x00A0;<span 
class="ectt-1200">-</span>&#x00A0;<span 
class="ectt-1200">(X</span>&#x00A0;<span 
class="ectt-1200">*</span>&#x00A0;<span 
class="ectt-1200">H(J-1,1)</span>&#x00A0;<span 
class="ectt-1200">+</span>&#x00A0;<span 
class="ectt-1200">(J-1)</span>&#x00A0;<span 
class="ectt-1200">*</span>&#x00A0;<span 
class="ectt-1200">H(J-2,1));</span>
&#x00A0;<br />
&#x00A0;<br />
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">//</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Clear</span>&#x00A0;<span 
class="ectt-1200">the</span>&#x00A0;<span 
class="ectt-1200">polynomial</span>&#x00A0;<span 
class="ectt-1200">array.</span>
&#x00A0;<br />
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">for</span>&#x00A0;<span 
class="ectt-1200">(J=1;J&#x003C;=3</span>&#x00A0;<span 
class="ectt-1200">*</span>&#x00A0;<span 
class="ectt-1200">NORD</span>&#x00A0;<span 
class="ectt-1200">*</span>&#x00A0;<span 
class="ectt-1200">(NORD+1)/2;J=J+1)</span>&#x00A0;<span 
class="ectt-1200">P(J,1)</span>&#x00A0;<span 
class="ectt-1200">=</span>&#x00A0;<span 
class="ectt-1200">ZERO;</span>
&#x00A0;<br />
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">D(1,1)</span>&#x00A0;<span 
class="ectt-1200">=</span>&#x00A0;<span 
class="ectt-1200">-</span>&#x00A0;<span 
class="ectt-1200">A(1,1)</span>&#x00A0;<span 
class="ectt-1200">*</span>&#x00A0;<span 
class="ectt-1200">H(2,1);</span>
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">DEL(1,1)</span>&#x00A0;<span 
class="ectt-1200">=</span>&#x00A0;<span 
class="ectt-1200">D(1,1);</span>
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">P(1,1)</span>&#x00A0;<span 
class="ectt-1200">=</span>&#x00A0;<span 
class="ectt-1200">D(1,1);</span>
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">P(3,1)</span>&#x00A0;<span 
class="ectt-1200">=</span>&#x00A0;<span 
class="ectt-1200">A(1,1);</span>
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">JA</span>&#x00A0;<span 
class="ectt-1200">=</span>&#x00A0;<span 
class="ectt-1200">(int)ZERO;</span>
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">FAC</span>&#x00A0;<span 
class="ectt-1200">=</span>&#x00A0;<span 
class="ectt-1200">ONE;</span>
&#x00A0;<br />
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">//</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Main</span>&#x00A0;<span 
class="ectt-1200">loop</span>
&#x00A0;<br />
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">for</span>&#x00A0;<span 
class="ectt-1200">(J=2;J&#x003C;=NORD;J=J+1)</span>
&#x00A0;<br />
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">{</span>
&#x00A0;<br />

&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">//</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Initialize.</span>
&#x00A0;<br />
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">FAC</span>&#x00A0;<span 
class="ectt-1200">=</span>&#x00A0;<span 
class="ectt-1200">FAC</span>&#x00A0;<span 
class="ectt-1200">*</span>&#x00A0;<span 
class="ectt-1200">J;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">JA</span>&#x00A0;<span 
class="ectt-1200">=</span>&#x00A0;<span 
class="ectt-1200">JA</span>&#x00A0;<span 
class="ectt-1200">+</span>&#x00A0;<span 
class="ectt-1200">3</span>&#x00A0;<span 
class="ectt-1200">*</span>&#x00A0;<span 
class="ectt-1200">(J-1);</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">JB</span>&#x00A0;<span 
class="ectt-1200">=</span>&#x00A0;<span 
class="ectt-1200">JA;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">BC</span>&#x00A0;<span 
class="ectt-1200">=</span>&#x00A0;<span 
class="ectt-1200">ONE;</span>
&#x00A0;<br />
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">//</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Calculate</span>&#x00A0;<span 
class="ectt-1200">coefficients</span>&#x00A0;<span 
class="ectt-1200">of</span>&#x00A0;<span 
class="ectt-1200">Hermite</span>&#x00A0;<span 
class="ectt-1200">polynomials.</span>
&#x00A0;<br />
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">for</span>&#x00A0;<span 
class="ectt-1200">(K=1;K&#x003C;=J-1;K=K+1)</span>
&#x00A0;<br />
&#x00A0;<br /><span 
class="ectt-1200">{</span>
&#x00A0;<br />
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">DD</span>&#x00A0;<span 
class="ectt-1200">=</span>&#x00A0;<span 
class="ectt-1200">BC</span>&#x00A0;<span 
class="ectt-1200">*</span>&#x00A0;<span 
class="ectt-1200">D(K,1);</span>
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">AA</span>&#x00A0;<span 
class="ectt-1200">=</span>&#x00A0;<span 
class="ectt-1200">BC</span>&#x00A0;<span 
class="ectt-1200">*</span>&#x00A0;<span 
class="ectt-1200">A(K,1);</span>
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">JB</span>&#x00A0;<span 
class="ectt-1200">=</span>&#x00A0;<span 
class="ectt-1200">JB</span>&#x00A0;<span 
class="ectt-1200">-</span>&#x00A0;<span 
class="ectt-1200">3</span>&#x00A0;<span 
class="ectt-1200">*</span>&#x00A0;<span 
class="ectt-1200">(J</span>&#x00A0;<span 
class="ectt-1200">-</span>&#x00A0;<span 
class="ectt-1200">K);</span>
&#x00A0;<br />
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">for</span>&#x00A0;<span 
class="ectt-1200">(L=1;L&#x003C;=3</span>&#x00A0;<span 
class="ectt-1200">*</span>&#x00A0;<span 
class="ectt-1200">(J</span>&#x00A0;<span 
class="ectt-1200">-</span>&#x00A0;<span 
class="ectt-1200">K);L=L+1)</span>
&#x00A0;<br />
&#x00A0;<br /><span 
class="ectt-1200">{</span>
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">JBL</span>&#x00A0;<span 
class="ectt-1200">=</span>&#x00A0;<span 
class="ectt-1200">JB</span>&#x00A0;<span 
class="ectt-1200">+</span>&#x00A0;<span 
class="ectt-1200">L;</span>
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">JAL</span>&#x00A0;<span 
class="ectt-1200">=</span>&#x00A0;<span 
class="ectt-1200">JA</span>&#x00A0;<span 
class="ectt-1200">+</span>&#x00A0;<span 
class="ectt-1200">L;</span>
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">P(JAL+1,1)</span>&#x00A0;<span 
class="ectt-1200">=</span>&#x00A0;<span 
class="ectt-1200">P(JAL+1,1)</span>&#x00A0;<span 
class="ectt-1200">+</span>&#x00A0;<span 
class="ectt-1200">DD</span>&#x00A0;<span 
class="ectt-1200">*</span>&#x00A0;<span 
class="ectt-1200">P(JBL,1);</span>
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">P(JAL+K+2,1)</span>&#x00A0;<span 
class="ectt-1200">=</span>&#x00A0;<span 
class="ectt-1200">P(JAL+K+2,1)</span>&#x00A0;<span 
class="ectt-1200">+</span>&#x00A0;<span 
class="ectt-1200">AA</span>&#x00A0;<span 
class="ectt-1200">*</span>&#x00A0;<span 
class="ectt-1200">P(JBL,1);</span>
&#x00A0;<br /><span 
class="ectt-1200">}</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">BC</span>&#x00A0;<span 
class="ectt-1200">=</span>&#x00A0;<span 
class="ectt-1200">BC</span>&#x00A0;<span 
class="ectt-1200">*</span>&#x00A0;<span 
class="ectt-1200">(J</span>&#x00A0;<span 
class="ectt-1200">-</span>&#x00A0;<span 
class="ectt-1200">K)</span>&#x00A0;<span 
class="ectt-1200">/</span>&#x00A0;<span 
class="ectt-1200">K;</span>
&#x00A0;<br /><span 
class="ectt-1200">}</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">P(JA+J+2,1)</span>&#x00A0;<span 
class="ectt-1200">=</span>&#x00A0;<span 
class="ectt-1200">P(JA+J+2,1)</span>&#x00A0;<span 
class="ectt-1200">+</span>&#x00A0;<span 
class="ectt-1200">A(J,1);</span>
&#x00A0;<br />
&#x00A0;<br />
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">//</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Calculate</span>&#x00A0;<span 
class="ectt-1200">the</span>&#x00A0;<span 
class="ectt-1200">adjustments.</span>
&#x00A0;<br />
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">D(J,1)</span>&#x00A0;<span 
class="ectt-1200">=</span>&#x00A0;<span 
class="ectt-1200">ZERO;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">for</span>&#x00A0;<span 
class="ectt-1200">(L=2;L&#x003C;=3</span>&#x00A0;<span 
class="ectt-1200">*</span>&#x00A0;<span 
class="ectt-1200">J;L=L+1)</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">D(J,1)</span>&#x00A0;<span 
class="ectt-1200">=</span>&#x00A0;<span 
class="ectt-1200">D(J,1)</span>&#x00A0;<span 
class="ectt-1200">-</span>&#x00A0;<span 
class="ectt-1200">P(JA+L,1)</span>&#x00A0;<span 
class="ectt-1200">*</span>&#x00A0;<span 
class="ectt-1200">H(L-1,1);</span>
&#x00A0;<br />
&#x00A0;<br />
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">P(JA+1,1)</span>&#x00A0;<span 
class="ectt-1200">=</span>&#x00A0;<span 
class="ectt-1200">D(J,1);</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DEL(J,1)</span>&#x00A0;<span 
class="ectt-1200">=</span>&#x00A0;<span 
class="ectt-1200">D(J,1)</span>&#x00A0;<span 
class="ectt-1200">/</span>&#x00A0;<span 
class="ectt-1200">FAC;</span>
&#x00A0;<br />
&#x00A0;<br />
&#x00A0;<br />
&#x00A0;<br />
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">}</span>

&#x00A0;<br />
&#x00A0;<br /><span 
class="ectt-1200">return(DEL);</span>
&#x00A0;<br /><span 
class="ectt-1200">}</span>
&#x00A0;<br />
&#x00A0;<br />
&#x00A0;<br />
&#x00A0;<br />
&#x00A0;<br />
&#x00A0;<br />
&#x00A0;<br />
</div><span 
class="ecbx-1200">Le fichier </span><span 
class="ecbi-1200">cumul.c</span><div class="verbatiminput">
<span 
class="ectt-1200">/*</span>&#x00A0;<span 
class="ectt-1200">Debut-Commentaires</span>
&#x00A0;<br />
&#x00A0;<br /><span 
class="ectt-1200">Nom</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">la</span>&#x00A0;<span 
class="ectt-1200">fonction:</span>&#x00A0;<span 
class="ectt-1200">cum</span>
&#x00A0;<br />
&#x00A0;<br /><span 
class="ectt-1200">Entrees:</span>&#x00A0;<span 
class="ectt-1200">m</span>&#x00A0;<span 
class="ectt-1200">entier</span>&#x00A0;<span 
class="ectt-1200">ordre</span>&#x00A0;<span 
class="ectt-1200">du</span>&#x00A0;<span 
class="ectt-1200">cumulant,</span>&#x00A0;<span 
class="ectt-1200">b</span>&#x00A0;<span 
class="ectt-1200">double</span>&#x00A0;<span 
class="ectt-1200">facteur</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">lissage,</span>
&#x00A0;<br /><span 
class="ectt-1200">q</span>&#x00A0;<span 
class="ectt-1200">entier</span>&#x00A0;<span 
class="ectt-1200">dimension</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">l&#x2019;espace</span>
&#x00A0;<br />
&#x00A0;<br /><span 
class="ectt-1200">Sorties:</span>&#x00A0;<span 
class="ectt-1200">double</span>
&#x00A0;<br />
&#x00A0;<br /><span 
class="ectt-1200">Description:</span>
&#x00A0;<br /><span 
class="ectt-1200">Calcule</span>&#x00A0;<span 
class="ectt-1200">le</span>&#x00A0;<span 
class="ectt-1200">cumulant</span>&#x00A0;<span 
class="ectt-1200">d&#x2019;ordre</span>&#x00A0;<span 
class="ectt-1200">m,</span>&#x00A0;<span 
class="ectt-1200">pour</span>&#x00A0;<span 
class="ectt-1200">b</span>&#x00A0;<span 
class="ectt-1200">et</span>&#x00A0;<span 
class="ectt-1200">q</span>&#x00A0;<span 
class="ectt-1200">fixes</span>
&#x00A0;<br />
&#x00A0;<br /><span 
class="ectt-1200">Utilisation</span>&#x00A0;<span 
class="ectt-1200">dans</span>&#x00A0;<span 
class="ectt-1200">une</span>&#x00A0;<span 
class="ectt-1200">fonction</span>&#x00A0;<span 
class="ectt-1200">main:</span>
&#x00A0;<br /><span 
class="ectt-1200">-------------------------------------</span>
&#x00A0;<br />
&#x00A0;<br /><span 
class="ectt-1200">#include</span>&#x00A0;<span 
class="ectt-1200">&#x003C;iostream.h&#x003E;</span>
&#x00A0;<br /><span 
class="ectt-1200">#include&#x003C;math.h&#x003E;</span>
&#x00A0;<br /><span 
class="ectt-1200">#include</span>&#x00A0;<span 
class="ectt-1200">&#x0022;cum.c&#x0022;</span>
&#x00A0;<br />
&#x00A0;<br /><span 
class="ectt-1200">int</span>&#x00A0;<span 
class="ectt-1200">main()</span>
&#x00A0;<br />
&#x00A0;<br /><span 
class="ectt-1200">{</span>
&#x00A0;<br />
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">double</span>&#x00A0;<span 
class="ectt-1200">g1(double</span>&#x00A0;<span 
class="ectt-1200">alpha,</span>&#x00A0;<span 
class="ectt-1200">double</span>&#x00A0;<span 
class="ectt-1200">beta,</span>&#x00A0;<span 
class="ectt-1200">double</span>&#x00A0;<span 
class="ectt-1200">gamma,</span>&#x00A0;<span 
class="ectt-1200">double</span>&#x00A0;<span 
class="ectt-1200">b);</span>
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">double</span>&#x00A0;<span 
class="ectt-1200">g2(double</span>&#x00A0;<span 
class="ectt-1200">beta,</span>&#x00A0;<span 
class="ectt-1200">double</span>&#x00A0;<span 
class="ectt-1200">b);</span>
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">double</span>&#x00A0;<span 
class="ectt-1200">g3(double</span>&#x00A0;<span 
class="ectt-1200">beta,</span>&#x00A0;<span 
class="ectt-1200">double</span>&#x00A0;<span 
class="ectt-1200">gamma,</span>&#x00A0;<span 
class="ectt-1200">double</span>&#x00A0;<span 
class="ectt-1200">b);</span>
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">double</span>&#x00A0;<span 
class="ectt-1200">f(int</span>&#x00A0;<span 
class="ectt-1200">m,</span>&#x00A0;<span 
class="ectt-1200">double</span>&#x00A0;<span 
class="ectt-1200">alpha,</span>&#x00A0;<span 
class="ectt-1200">double</span>&#x00A0;<span 
class="ectt-1200">beta,</span>&#x00A0;<span 
class="ectt-1200">double</span>&#x00A0;<span 
class="ectt-1200">gamma,</span>&#x00A0;<span 
class="ectt-1200">double</span>&#x00A0;<span 
class="ectt-1200">b,</span>&#x00A0;<span 
class="ectt-1200">int</span>&#x00A0;<span 
class="ectt-1200">q);</span>
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">double</span>&#x00A0;<span 
class="ectt-1200">cum(int</span>&#x00A0;<span 
class="ectt-1200">m,</span>&#x00A0;<span 
class="ectt-1200">double</span>&#x00A0;<span 
class="ectt-1200">b,</span>&#x00A0;<span 
class="ectt-1200">int</span>&#x00A0;<span 
class="ectt-1200">q);</span>
&#x00A0;<br />
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">double</span>&#x00A0;<span 
class="ectt-1200">b,</span>&#x00A0;<span 
class="ectt-1200">val;</span>

&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">int</span>&#x00A0;<span 
class="ectt-1200">q,</span>&#x00A0;<span 
class="ectt-1200">m;</span>
&#x00A0;<br />
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">b=0.7;</span>
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">q=3;</span>
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">m=5;</span>
&#x00A0;<br />
&#x00A0;<br />
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">val=cum(m,b,q);</span>
&#x00A0;<br />
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">cout</span>&#x00A0;<span 
class="ectt-1200">&#x003C;&#x003C;</span>&#x00A0;<span 
class="ectt-1200">&#x0022;Affichage</span>&#x00A0;<span 
class="ectt-1200">du</span>&#x00A0;<span 
class="ectt-1200">cumulant\n&#x0022;;</span>
&#x00A0;<br />
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">cout</span>&#x00A0;<span 
class="ectt-1200">&#x003C;&#x003C;</span>&#x00A0;<span 
class="ectt-1200">val;</span>
&#x00A0;<br />
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">cout</span>&#x00A0;<span 
class="ectt-1200">&#x003C;&#x003C;</span>&#x00A0;<span 
class="ectt-1200">&#x0022;\n&#x0022;;</span>
&#x00A0;<br />
&#x00A0;<br />
&#x00A0;<br /><span 
class="ectt-1200">return(0);</span>
&#x00A0;<br />
&#x00A0;<br /><span 
class="ectt-1200">}</span>
&#x00A0;<br />
&#x00A0;<br /><span 
class="ectt-1200">-------------------------------------</span>
&#x00A0;<br />
&#x00A0;<br /><span 
class="ectt-1200">Instructions</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">compilation:</span>
&#x00A0;<br /><span 
class="ectt-1200">g++</span>&#x00A0;<span 
class="ectt-1200">-Wall</span>&#x00A0;<span 
class="ectt-1200">-O</span>&#x00A0;<span 
class="ectt-1200">nom_du_fichier_contenant_la_fonction_main.cc</span>
&#x00A0;<br />
&#x00A0;<br /><span 
class="ectt-1200">Fonctions</span>&#x00A0;<span 
class="ectt-1200">exterieures</span>&#x00A0;<span 
class="ectt-1200">appelees:</span>
&#x00A0;<br /><span 
class="ectt-1200">g1,</span>&#x00A0;<span 
class="ectt-1200">g2,</span>&#x00A0;<span 
class="ectt-1200">g3,</span>&#x00A0;<span 
class="ectt-1200">f,</span>&#x00A0;<span 
class="ectt-1200">fact</span>
&#x00A0;<br />
&#x00A0;<br /><span 
class="ectt-1200">Auteur:</span>&#x00A0;<span 
class="ectt-1200">Pierre</span>&#x00A0;<span 
class="ectt-1200">Lafaye</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">Micheaux</span>
&#x00A0;<br />
&#x00A0;<br /><span 
class="ectt-1200">Date:</span>&#x00A0;<span 
class="ectt-1200">23/08/2002</span>
&#x00A0;<br />
&#x00A0;<br /><span 
class="ectt-1200">Fin-Commentaires</span>&#x00A0;<span 
class="ectt-1200">*/</span>
&#x00A0;<br />
&#x00A0;<br /><span 
class="ectt-1200">double</span>&#x00A0;<span 
class="ectt-1200">cum(int</span>&#x00A0;<span 
class="ectt-1200">m,</span>&#x00A0;<span 
class="ectt-1200">double</span>&#x00A0;<span 
class="ectt-1200">b,</span>&#x00A0;<span 
class="ectt-1200">int</span>&#x00A0;<span 
class="ectt-1200">q)</span>
&#x00A0;<br />
&#x00A0;<br /><span 
class="ectt-1200">{</span>
&#x00A0;<br />
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">double</span>&#x00A0;<span 
class="ectt-1200">f(int</span>&#x00A0;<span 
class="ectt-1200">m,</span>&#x00A0;<span 
class="ectt-1200">double</span>&#x00A0;<span 
class="ectt-1200">alpha,</span>&#x00A0;<span 
class="ectt-1200">double</span>&#x00A0;<span 
class="ectt-1200">beta,</span>&#x00A0;<span 
class="ectt-1200">double</span>&#x00A0;<span 
class="ectt-1200">gamma,</span>&#x00A0;<span 
class="ectt-1200">double</span>&#x00A0;<span 
class="ectt-1200">b,</span>&#x00A0;<span 
class="ectt-1200">int</span>&#x00A0;<span 
class="ectt-1200">q);</span>
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">int</span>&#x00A0;<span 
class="ectt-1200">fact(int</span>&#x00A0;<span 
class="ectt-1200">n);</span>
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">double</span>&#x00A0;<span 
class="ectt-1200">resul;</span>
&#x00A0;<br />
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">resul=pow(2,(m-1))*fact(m-1)*(f(m,-0.5,-0.5,1.0,b,q)</span>&#x00A0;<span 
class="ectt-1200">-</span>&#x00A0;<span 
class="ectt-1200">f(m,-0.5,-0.5,0.0,b,q));</span>

&#x00A0;<br />
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">return(resul);</span>
&#x00A0;<br />
&#x00A0;<br /><span 
class="ectt-1200">}</span>
&#x00A0;<br />
&#x00A0;<br />
&#x00A0;<br /><span 
class="ectt-1200">double</span>&#x00A0;<span 
class="ectt-1200">g1(double</span>&#x00A0;<span 
class="ectt-1200">alpha,</span>&#x00A0;<span 
class="ectt-1200">double</span>&#x00A0;<span 
class="ectt-1200">beta,</span>&#x00A0;<span 
class="ectt-1200">double</span>&#x00A0;<span 
class="ectt-1200">gamma,</span>&#x00A0;<span 
class="ectt-1200">double</span>&#x00A0;<span 
class="ectt-1200">b)</span>
&#x00A0;<br />
&#x00A0;<br /><span 
class="ectt-1200">{</span>
&#x00A0;<br />
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">double</span>&#x00A0;<span 
class="ectt-1200">resul;</span>
&#x00A0;<br />
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">resul=alpha+gamma*gamma*(b*b/(2+2*b*b-4*b*b*beta));</span>
&#x00A0;<br />
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">return(resul);</span>
&#x00A0;<br />
&#x00A0;<br /><span 
class="ectt-1200">}</span>
&#x00A0;<br />
&#x00A0;<br /><span 
class="ectt-1200">double</span>&#x00A0;<span 
class="ectt-1200">g2(double</span>&#x00A0;<span 
class="ectt-1200">beta,</span>&#x00A0;<span 
class="ectt-1200">double</span>&#x00A0;<span 
class="ectt-1200">b)</span>
&#x00A0;<br />
&#x00A0;<br /><span 
class="ectt-1200">{</span>
&#x00A0;<br />
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">double</span>&#x00A0;<span 
class="ectt-1200">resul;</span>
&#x00A0;<br />
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">resul=-0.5+b*b/(2+2*b*b-4*b*b*beta);</span>
&#x00A0;<br />
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">return(resul);</span>
&#x00A0;<br />
&#x00A0;<br /><span 
class="ectt-1200">}</span>
&#x00A0;<br />
&#x00A0;<br /><span 
class="ectt-1200">double</span>&#x00A0;<span 
class="ectt-1200">g3(double</span>&#x00A0;<span 
class="ectt-1200">beta,</span>&#x00A0;<span 
class="ectt-1200">double</span>&#x00A0;<span 
class="ectt-1200">gamma,</span>&#x00A0;<span 
class="ectt-1200">double</span>&#x00A0;<span 
class="ectt-1200">b)</span>
&#x00A0;<br />
&#x00A0;<br /><span 
class="ectt-1200">{</span>
&#x00A0;<br />
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">double</span>&#x00A0;<span 
class="ectt-1200">resul;</span>
&#x00A0;<br />
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">resul=2*gamma*(b*b/(2+2*b*b-4*b*b*beta));</span>
&#x00A0;<br />
&#x00A0;<br />
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">return(resul);</span>
&#x00A0;<br />
&#x00A0;<br /><span 
class="ectt-1200">}</span>
&#x00A0;<br />

&#x00A0;<br /><span 
class="ectt-1200">double</span>&#x00A0;<span 
class="ectt-1200">f(int</span>&#x00A0;<span 
class="ectt-1200">m,</span>&#x00A0;<span 
class="ectt-1200">double</span>&#x00A0;<span 
class="ectt-1200">alpha,</span>&#x00A0;<span 
class="ectt-1200">double</span>&#x00A0;<span 
class="ectt-1200">beta,</span>&#x00A0;<span 
class="ectt-1200">double</span>&#x00A0;<span 
class="ectt-1200">gamma,</span>&#x00A0;<span 
class="ectt-1200">double</span>&#x00A0;<span 
class="ectt-1200">b,</span>&#x00A0;<span 
class="ectt-1200">int</span>&#x00A0;<span 
class="ectt-1200">q)</span>
&#x00A0;<br />
&#x00A0;<br /><span 
class="ectt-1200">{</span>
&#x00A0;<br />
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">double</span>&#x00A0;<span 
class="ectt-1200">resul;</span>
&#x00A0;<br />
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">if</span>&#x00A0;<span 
class="ectt-1200">(m==1)</span>&#x00A0;<span 
class="ectt-1200">resul=pow(1-2*b*b*(alpha+beta+gamma),-q/2.0);</span>
&#x00A0;<br />
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">else</span>&#x00A0;<span 
class="ectt-1200">resul=pow(1+b*b-2*b*b*beta,-q/2.0)*(f(m-1,g1(alpha,beta,gamma,b),g2(beta,b),g3(beta,gamma,b),b,q)-f(m-1,g1(alpha,beta,gamma,b),-0.5,0.0,b,q));</span>
&#x00A0;<br />
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">return(resul);</span>
&#x00A0;<br />
&#x00A0;<br />
&#x00A0;<br /><span 
class="ectt-1200">}</span>
&#x00A0;<br />
&#x00A0;<br />
&#x00A0;<br /><span 
class="ectt-1200">int</span>&#x00A0;<span 
class="ectt-1200">fact(int</span>&#x00A0;<span 
class="ectt-1200">n)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">{</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">if</span>&#x00A0;<span 
class="ectt-1200">(n&#x003E;1)</span>&#x00A0;<span 
class="ectt-1200">return</span>&#x00A0;<span 
class="ectt-1200">(n</span>&#x00A0;<span 
class="ectt-1200">*</span>&#x00A0;<span 
class="ectt-1200">fact(n-1));</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">else</span>&#x00A0;<span 
class="ectt-1200">return(1);</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">}</span>
&#x00A0;<br />
</div><span 
class="ecbx-1200">Le fichier </span><span 
class="ecbi-1200">deheuvels.c</span><div class="verbatiminput">
&#x00A0;<br /><span 
class="ectt-1200">double</span>&#x00A0;<span 
class="ectt-1200">beta(double</span>&#x00A0;<span 
class="ectt-1200">u,</span>&#x00A0;<span 
class="ectt-1200">Matrix</span>&#x00A0;<span 
class="ectt-1200">valp,</span>&#x00A0;<span 
class="ectt-1200">Matrix</span>&#x00A0;<span 
class="ectt-1200">multiplicity,</span>&#x00A0;<span 
class="ectt-1200">double</span>&#x00A0;<span 
class="ectt-1200">a)</span>
&#x00A0;<br />
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">{</span>
&#x00A0;<br />
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">int</span>&#x00A0;<span 
class="ectt-1200">i,</span>&#x00A0;<span 
class="ectt-1200">n;</span>
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">double</span>&#x00A0;<span 
class="ectt-1200">res;</span>
&#x00A0;<br />
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">res=1.0;</span>
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">n=valp.Nrows();</span>
&#x00A0;<br />
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">Matrix</span>&#x00A0;<span 
class="ectt-1200">valpu2(n,1);</span>
&#x00A0;<br />
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">for</span>&#x00A0;<span 
class="ectt-1200">(i=1;i&#x003C;=n;i=i+1)</span>
&#x00A0;<br />
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">{</span>
&#x00A0;<br />
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">valpu2(i,1)=pow(pow(1-a*u*valp(i,1),2.0)+pow(valp(i,1)*u,2.0),0.25*multiplicity(i,1));</span>

&#x00A0;<br />
&#x00A0;<br />
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">res=res*valpu2(i,1);</span>
&#x00A0;<br />
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">}</span>
&#x00A0;<br />
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">return(res);</span>
&#x00A0;<br />
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">}</span>
&#x00A0;<br />
&#x00A0;<br /><span 
class="ectt-1200">double</span>&#x00A0;<span 
class="ectt-1200">zeta(double</span>&#x00A0;<span 
class="ectt-1200">u,</span>&#x00A0;<span 
class="ectt-1200">Matrix</span>&#x00A0;<span 
class="ectt-1200">valp,</span>&#x00A0;<span 
class="ectt-1200">Matrix</span>&#x00A0;<span 
class="ectt-1200">multiplicity,</span>&#x00A0;<span 
class="ectt-1200">double</span>&#x00A0;<span 
class="ectt-1200">x,</span>&#x00A0;<span 
class="ectt-1200">double</span>&#x00A0;<span 
class="ectt-1200">a)</span>
&#x00A0;<br />
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">{</span>
&#x00A0;<br />
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">int</span>&#x00A0;<span 
class="ectt-1200">i,</span>&#x00A0;<span 
class="ectt-1200">n;</span>
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">double</span>&#x00A0;<span 
class="ectt-1200">res;</span>
&#x00A0;<br />
&#x00A0;<br />
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">n=valp.Nrows();</span>
&#x00A0;<br />
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">Matrix</span>&#x00A0;<span 
class="ectt-1200">hratanvalpu(n,1);</span>
&#x00A0;<br />
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">for</span>&#x00A0;<span 
class="ectt-1200">(i=1;i&#x003C;=n;i=i+1)</span>
&#x00A0;<br />
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">{</span>
&#x00A0;<br />
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">hratanvalpu(i,1)=multiplicity(i,1)*atan(u/(1.0/valp(i,1)-a*u));</span>
&#x00A0;<br />
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">}</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">res=0.5*hratanvalpu.Sum()-0.5*x*u;</span>
&#x00A0;<br />
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">return(res);</span>
&#x00A0;<br />
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">}</span>
&#x00A0;<br />
&#x00A0;<br /><span 
class="ectt-1200">double</span>&#x00A0;<span 
class="ectt-1200">devfunc(double</span>&#x00A0;<span 
class="ectt-1200">u,</span>&#x00A0;<span 
class="ectt-1200">Matrix</span>&#x00A0;<span 
class="ectt-1200">valp,</span>&#x00A0;<span 
class="ectt-1200">Matrix</span>&#x00A0;<span 
class="ectt-1200">multiplicity,</span>&#x00A0;<span 
class="ectt-1200">double</span>&#x00A0;<span 
class="ectt-1200">x,</span>&#x00A0;<span 
class="ectt-1200">double</span>&#x00A0;<span 
class="ectt-1200">a)</span>
&#x00A0;<br />
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">{</span>
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">//c&#x2019;est</span>&#x00A0;<span 
class="ectt-1200">la</span>&#x00A0;<span 
class="ectt-1200">fonction</span>&#x00A0;<span 
class="ectt-1200">sous</span>&#x00A0;<span 
class="ectt-1200">l&#x2019;integrale</span>&#x00A0;<span 
class="ectt-1200">dans</span>&#x00A0;<span 
class="ectt-1200">(1.9)</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">Martynov</span>&#x00A0;<span 
class="ectt-1200">(1975)</span>
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">double</span>&#x00A0;<span 
class="ectt-1200">zeta(double</span>&#x00A0;<span 
class="ectt-1200">u,</span>&#x00A0;<span 
class="ectt-1200">Matrix</span>&#x00A0;<span 
class="ectt-1200">valp,</span>&#x00A0;<span 
class="ectt-1200">Matrix</span>&#x00A0;<span 
class="ectt-1200">multiplicity,</span>&#x00A0;<span 
class="ectt-1200">double</span>&#x00A0;<span 
class="ectt-1200">x);</span>
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">double</span>&#x00A0;<span 
class="ectt-1200">beta(double</span>&#x00A0;<span 
class="ectt-1200">u,</span>&#x00A0;<span 
class="ectt-1200">Matrix</span>&#x00A0;<span 
class="ectt-1200">valp,</span>&#x00A0;<span 
class="ectt-1200">Matrix</span>&#x00A0;<span 
class="ectt-1200">multiplicity);</span>
&#x00A0;<br />
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">double</span>&#x00A0;<span 
class="ectt-1200">res;</span>

&#x00A0;<br />
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">res=(exp(-a*u*x*0.5)*sin(zeta(u,valp,multiplicity,x,a)))/(u*beta(u,valp,multiplicity,a));</span>
&#x00A0;<br />
&#x00A0;<br />
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">return(res);</span>
&#x00A0;<br />
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">}</span>
&#x00A0;<br />
&#x00A0;<br /><span 
class="ectt-1200">double</span>&#x00A0;<span 
class="ectt-1200">integraldev(double</span>&#x00A0;<span 
class="ectt-1200">x,</span>&#x00A0;<span 
class="ectt-1200">Matrix</span>&#x00A0;<span 
class="ectt-1200">valp,</span>&#x00A0;<span 
class="ectt-1200">Matrix</span>&#x00A0;<span 
class="ectt-1200">multiplicity,</span>&#x00A0;<span 
class="ectt-1200">double</span>&#x00A0;<span 
class="ectt-1200">U,</span>&#x00A0;<span 
class="ectt-1200">int</span>&#x00A0;<span 
class="ectt-1200">n,</span>&#x00A0;<span 
class="ectt-1200">double</span>&#x00A0;<span 
class="ectt-1200">res,</span>&#x00A0;<span 
class="ectt-1200">double</span>&#x00A0;<span 
class="ectt-1200">a)</span>
&#x00A0;<br />
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">{</span>
&#x00A0;<br />
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">//J&#x2019;utilise</span>&#x00A0;<span 
class="ectt-1200">la</span>&#x00A0;<span 
class="ectt-1200">routine</span>&#x00A0;<span 
class="ectt-1200">trapzd</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">numerical</span>&#x00A0;<span 
class="ectt-1200">recipes,</span>&#x00A0;<span 
class="ectt-1200">section</span>&#x00A0;<span 
class="ectt-1200">4.2</span>&#x00A0;<span 
class="ectt-1200">elementary</span>&#x00A0;<span 
class="ectt-1200">algorithms</span>
&#x00A0;<br />
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">double</span>&#x00A0;<span 
class="ectt-1200">devfunc(double</span>&#x00A0;<span 
class="ectt-1200">u,</span>&#x00A0;<span 
class="ectt-1200">Matrix</span>&#x00A0;<span 
class="ectt-1200">valp,</span>&#x00A0;<span 
class="ectt-1200">Matrix</span>&#x00A0;<span 
class="ectt-1200">multiplicity,</span>&#x00A0;<span 
class="ectt-1200">double</span>&#x00A0;<span 
class="ectt-1200">x,</span>&#x00A0;<span 
class="ectt-1200">double</span>&#x00A0;<span 
class="ectt-1200">a);</span>
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">int</span>&#x00A0;<span 
class="ectt-1200">it,</span>&#x00A0;<span 
class="ectt-1200">tnm,</span>&#x00A0;<span 
class="ectt-1200">j;</span>
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">double</span>&#x00A0;<span 
class="ectt-1200">del,</span>&#x00A0;<span 
class="ectt-1200">y,</span>&#x00A0;<span 
class="ectt-1200">sum;</span>
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">//0.5*(b-a)*(FUNC(a)+FUNC(b))</span>
&#x00A0;<br /><span 
class="ectt-1200">if</span>&#x00A0;<span 
class="ectt-1200">(n==1)</span>&#x00A0;<span 
class="ectt-1200">{</span>&#x00A0;<span 
class="ectt-1200">res=0.5*U*((0.5*(SP(valp,multiplicity)).Sum()-0.5*x)+devfunc(U,valp,multiplicity,x,a));</span>&#x00A0;<span 
class="ectt-1200">}</span>&#x00A0;<span 
class="ectt-1200">else</span>
&#x00A0;<br />
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">{</span>
&#x00A0;<br />
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">it=(int)pow(2,n-2);</span>
&#x00A0;<br />
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">tnm=it;</span>
&#x00A0;<br />
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">del=U/tnm;</span>
&#x00A0;<br />
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">y=0.5*del;</span>
&#x00A0;<br />
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">sum=0.0;</span>
&#x00A0;<br />
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">for</span>&#x00A0;<span 
class="ectt-1200">(j=1;j&#x003C;=it;j=j+1)</span>&#x00A0;<span 
class="ectt-1200">{sum=sum+devfunc(y,valp,multiplicity,x,a);</span>
&#x00A0;<br />
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">y=y+del;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">}</span>
&#x00A0;<br />
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">res=0.5*(res+U*sum/tnm);</span>
&#x00A0;<br />
&#x00A0;<br />
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">}</span>
&#x00A0;<br />&#x00A0;<span 
class="ectt-1200">return(res);</span>
&#x00A0;<br />

&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">}</span>
&#x00A0;<br />
&#x00A0;<br /><span 
class="ectt-1200">double</span>&#x00A0;<span 
class="ectt-1200">deheuvels(double</span>&#x00A0;<span 
class="ectt-1200">x,</span>&#x00A0;<span 
class="ectt-1200">Matrix</span>&#x00A0;<span 
class="ectt-1200">valp,</span>&#x00A0;<span 
class="ectt-1200">Matrix</span>&#x00A0;<span 
class="ectt-1200">multiplicity,</span>&#x00A0;<span 
class="ectt-1200">double</span>&#x00A0;<span 
class="ectt-1200">U,</span>&#x00A0;<span 
class="ectt-1200">int</span>&#x00A0;<span 
class="ectt-1200">N,</span>&#x00A0;<span 
class="ectt-1200">double</span>&#x00A0;<span 
class="ectt-1200">a)</span>
&#x00A0;<br />
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">{</span>
&#x00A0;<br />
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">//</span>&#x00A0;<span 
class="ectt-1200">U</span>&#x00A0;<span 
class="ectt-1200">est</span>&#x00A0;<span 
class="ectt-1200">un</span>&#x00A0;<span 
class="ectt-1200">terme</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">troncation</span>&#x00A0;<span 
class="ectt-1200">dans</span>&#x00A0;<span 
class="ectt-1200">le</span>&#x00A0;<span 
class="ectt-1200">calcul</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">l&#x2019;integrale</span>&#x00A0;<span 
class="ectt-1200">(1.9)</span>&#x00A0;<span 
class="ectt-1200">(voir</span>&#x00A0;<span 
class="ectt-1200">Imhof</span>&#x00A0;<span 
class="ectt-1200">pp.</span>&#x00A0;<span 
class="ectt-1200">422-423)</span>
&#x00A0;<br />
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">double</span>&#x00A0;<span 
class="ectt-1200">integraldev(double</span>&#x00A0;<span 
class="ectt-1200">x,</span>&#x00A0;<span 
class="ectt-1200">Matrix</span>&#x00A0;<span 
class="ectt-1200">valp,</span>&#x00A0;<span 
class="ectt-1200">Matrix</span>&#x00A0;<span 
class="ectt-1200">multiplicity,</span>&#x00A0;<span 
class="ectt-1200">double</span>&#x00A0;<span 
class="ectt-1200">U,</span>&#x00A0;<span 
class="ectt-1200">int</span>&#x00A0;<span 
class="ectt-1200">n,</span>&#x00A0;<span 
class="ectt-1200">double</span>&#x00A0;<span 
class="ectt-1200">res,</span>&#x00A0;<span 
class="ectt-1200">double</span>&#x00A0;<span 
class="ectt-1200">a);</span>
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">double</span>&#x00A0;<span 
class="ectt-1200">PI,</span>&#x00A0;<span 
class="ectt-1200">resul,</span>&#x00A0;<span 
class="ectt-1200">res;</span>
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">int</span>&#x00A0;<span 
class="ectt-1200">i;</span>
&#x00A0;<br />
&#x00A0;<br />
&#x00A0;<br />
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">PI=3.1415926535897931160;</span>
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">res=0;</span>
&#x00A0;<br />
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">for</span>&#x00A0;<span 
class="ectt-1200">(i=1;i&#x003C;=N;i=i+1)</span>
&#x00A0;<br />
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">{</span>
&#x00A0;<br />
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">res=integraldev(x,valp,multiplicity,U,i,res,a);</span>
&#x00A0;<br />
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">}</span>
&#x00A0;<br />
&#x00A0;<br />
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">resul=1.0-atan(1.0/a)/PI-res/PI;</span>
&#x00A0;<br />
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">return(resul);</span>
&#x00A0;<br />
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">}</span>
&#x00A0;<br />
</div><span 
class="ecbx-1200">Le fichier </span><span 
class="ecbi-1200">gauher.c</span><div class="verbatiminput">
<span 
class="ectt-1200">#define</span>&#x00A0;<span 
class="ectt-1200">pi</span>&#x00A0;<span 
class="ectt-1200">3.141592653589793115998</span>
&#x00A0;<br />
&#x00A0;<br /><span 
class="ectt-1200">Matrix</span>&#x00A0;<span 
class="ectt-1200">gauher(double</span>&#x00A0;<span 
class="ectt-1200">b,</span>&#x00A0;<span 
class="ectt-1200">int</span>&#x00A0;<span 
class="ectt-1200">N,</span>&#x00A0;<span 
class="ectt-1200">double</span>&#x00A0;<span 
class="ectt-1200">prec,</span>&#x00A0;<span 
class="ectt-1200">int</span>&#x00A0;<span 
class="ectt-1200">MAXIT)</span>
&#x00A0;<br />
&#x00A0;<br /><span 
class="ectt-1200">{</span>
&#x00A0;<br />
&#x00A0;<br /><span 
class="ectt-1200">/*</span>
&#x00A0;<br />

&#x00A0;<br /><span 
class="ectt-1200">Renvoie</span>&#x00A0;<span 
class="ectt-1200">une</span>&#x00A0;<span 
class="ectt-1200">matrice</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">taille</span>&#x00A0;<span 
class="ectt-1200">Nx2</span>
&#x00A0;<br /><span 
class="ectt-1200">La</span>&#x00A0;<span 
class="ectt-1200">premiere</span>&#x00A0;<span 
class="ectt-1200">colonne</span>&#x00A0;<span 
class="ectt-1200">contient</span>&#x00A0;<span 
class="ectt-1200">les</span>&#x00A0;<span 
class="ectt-1200">abscisses.</span>
&#x00A0;<br /><span 
class="ectt-1200">La</span>&#x00A0;<span 
class="ectt-1200">derniere</span>&#x00A0;<span 
class="ectt-1200">colonne</span>&#x00A0;<span 
class="ectt-1200">contient</span>&#x00A0;<span 
class="ectt-1200">les</span>&#x00A0;<span 
class="ectt-1200">poids.</span>
&#x00A0;<br />
&#x00A0;<br /><span 
class="ectt-1200">*/</span>
&#x00A0;<br />
&#x00A0;<br />
&#x00A0;<br />
&#x00A0;<br />
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">double</span>&#x00A0;<span 
class="ectt-1200">EPS,</span>&#x00A0;<span 
class="ectt-1200">pim4,</span>&#x00A0;<span 
class="ectt-1200">z,</span>&#x00A0;<span 
class="ectt-1200">var,</span>&#x00A0;<span 
class="ectt-1200">p1,</span>&#x00A0;<span 
class="ectt-1200">p2,</span>&#x00A0;<span 
class="ectt-1200">p3,</span>&#x00A0;<span 
class="ectt-1200">pp,</span>&#x00A0;<span 
class="ectt-1200">z1;</span>
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">int</span>&#x00A0;<span 
class="ectt-1200">its,</span>&#x00A0;<span 
class="ectt-1200">i,</span>&#x00A0;<span 
class="ectt-1200">j;</span>
&#x00A0;<br />
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">z=0.0;</span>
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">pp=0.0;</span>
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">EPS=prec;</span>
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">pim4=1.0/(pow(pi,0.25));</span>
&#x00A0;<br />
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">Matrix</span>&#x00A0;<span 
class="ectt-1200">x(N,1);</span>
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">x=0.0;</span>
&#x00A0;<br />
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">Matrix</span>&#x00A0;<span 
class="ectt-1200">w(N,1);</span>
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">w=x;</span>
&#x00A0;<br />
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">int</span>&#x00A0;<span 
class="ectt-1200">m;</span>
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">m=(int)((N+1)/2.0);</span>
&#x00A0;<br />
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">for</span>&#x00A0;<span 
class="ectt-1200">(i=1;i&#x003C;=m;i=i+1)</span>
&#x00A0;<br />
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">{</span>
&#x00A0;<br />
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">if</span>&#x00A0;<span 
class="ectt-1200">(i==1)</span>&#x00A0;<span 
class="ectt-1200">{</span>&#x00A0;<span 
class="ectt-1200">z=(sqrt(2*N+1)-1.85575*(pow((2*N+1),(-1.0/6.0))));}</span>
&#x00A0;<br />
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">else</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">{</span>&#x00A0;<span 
class="ectt-1200">if</span>&#x00A0;<span 
class="ectt-1200">(i==2)</span>&#x00A0;&#x00A0;<span 
class="ectt-1200">{z=(z-1.14*(pow(N,0.426))/z);}</span>
&#x00A0;<br />
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">else</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">{</span>&#x00A0;<span 
class="ectt-1200">if</span>&#x00A0;<span 
class="ectt-1200">(i==3)</span>&#x00A0;&#x00A0;<span 
class="ectt-1200">{z=(1.86*z-0.86*x(1,1));}</span>
&#x00A0;<br />
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">else</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">{</span>&#x00A0;<span 
class="ectt-1200">if</span>&#x00A0;<span 
class="ectt-1200">(i==4)</span>&#x00A0;&#x00A0;<span 
class="ectt-1200">{z=(1.91*z-0.91*x(2,1));}</span>
&#x00A0;<br />
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">else</span>&#x00A0;<span 
class="ectt-1200">{z=(2*z-x(i-2,1));}</span>
&#x00A0;<br />
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">}}}</span>
&#x00A0;<br />
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">var=0.0;</span>

&#x00A0;<br />
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">for</span>&#x00A0;<span 
class="ectt-1200">(its=1;its&#x003C;=MAXIT;its=its+1)</span>
&#x00A0;<br />
&#x00A0;<br /><span 
class="ectt-1200">{</span>
&#x00A0;<br />
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">p1=pim4;</span>
&#x00A0;<br />
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">p2=0.0;</span>
&#x00A0;<br />
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">for</span>&#x00A0;<span 
class="ectt-1200">(j=1;j&#x003C;=N;j=j+1)</span>&#x00A0;<span 
class="ectt-1200">{</span>
&#x00A0;<br />
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">p3=p2;</span>
&#x00A0;<br />
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">p2=p1;</span>
&#x00A0;<br />
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">p1=z*(sqrt(2.0/j))*p2-sqrt((j-1.0)/(double)j)*p3;</span>
&#x00A0;<br />
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">}</span>
&#x00A0;<br />
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">pp=sqrt(2*N)*p2;</span>
&#x00A0;<br />
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">z1=z;</span>
&#x00A0;<br />
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">z=z1-p1/pp;</span>
&#x00A0;<br />
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">if</span>&#x00A0;<span 
class="ectt-1200">(fabs(z-z1)</span>&#x00A0;<span 
class="ectt-1200">&#x003C;</span>&#x00A0;<span 
class="ectt-1200">EPS)</span>&#x00A0;<span 
class="ectt-1200">{var=1.0;</span>
&#x00A0;<br />
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">break;}</span>
&#x00A0;<br />
&#x00A0;<br /><span 
class="ectt-1200">}</span>
&#x00A0;<br />
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">if</span>&#x00A0;<span 
class="ectt-1200">(var==0.0)</span>&#x00A0;<span 
class="ectt-1200">cout</span>&#x00A0;<span 
class="ectt-1200">&#x003C;&#x003C;</span>&#x00A0;<span 
class="ectt-1200">&#x0022;Trop</span>&#x00A0;<span 
class="ectt-1200">d&#x2019;iterations\n&#x0022;;</span>
&#x00A0;<br />
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">x(i,1)=z;</span>
&#x00A0;<br />
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">x(N+1-i,1)=-z;</span>
&#x00A0;<br />
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">w(i,1)=2.0/(pp*pp);</span>
&#x00A0;<br />
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">w(N+1-i,1)=w(i,1);</span>
&#x00A0;<br />
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">}</span>
&#x00A0;<br />

&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">x=sqrt(2.0)*b*x;</span>
&#x00A0;<br />
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">w=w/sqrt(pi);</span>
&#x00A0;<br />
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">Matrix</span>&#x00A0;<span 
class="ectt-1200">poidsetabscisses(N,2);</span>
&#x00A0;<br />
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">poidsetabscisses.SubMatrix(1,N,1,1)=x;</span>
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">poidsetabscisses.SubMatrix(1,N,2,2)=w;</span>
&#x00A0;<br />
&#x00A0;<br />
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">return(poidsetabscisses);</span>
&#x00A0;<br />
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">}</span>
&#x00A0;<br />
</div><span 
class="ecbx-1200">Le fichier </span><span 
class="ecbi-1200">Imhof.c</span><div class="verbatiminput">
<span 
class="ectt-1200">/*</span>&#x00A0;<span 
class="ectt-1200">Debut-Commentaires</span>
&#x00A0;<br />
&#x00A0;<br /><span 
class="ectt-1200">Nom</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">la</span>&#x00A0;<span 
class="ectt-1200">fonction:</span>&#x00A0;<span 
class="ectt-1200">probQsupx</span>
&#x00A0;<br />
&#x00A0;<br /><span 
class="ectt-1200">Entrees:</span>&#x00A0;<span 
class="ectt-1200">x</span>&#x00A0;<span 
class="ectt-1200">double,</span>&#x00A0;<span 
class="ectt-1200">valp</span>&#x00A0;<span 
class="ectt-1200">Matrix,</span>&#x00A0;<span 
class="ectt-1200">U</span>&#x00A0;<span 
class="ectt-1200">double,</span>&#x00A0;<span 
class="ectt-1200">N</span>&#x00A0;<span 
class="ectt-1200">entier</span>
&#x00A0;<br />
&#x00A0;<br /><span 
class="ectt-1200">Sorties:</span>&#x00A0;<span 
class="ectt-1200">resul</span>&#x00A0;<span 
class="ectt-1200">double</span>
&#x00A0;<br />
&#x00A0;<br /><span 
class="ectt-1200">Description:</span>
&#x00A0;<br /><span 
class="ectt-1200">Calcule</span>&#x00A0;<span 
class="ectt-1200">les</span>&#x00A0;<span 
class="ectt-1200">quantiles</span>&#x00A0;<span 
class="ectt-1200">a</span>&#x00A0;<span 
class="ectt-1200">partir</span>&#x00A0;<span 
class="ectt-1200">des</span>&#x00A0;<span 
class="ectt-1200">valeurs</span>&#x00A0;<span 
class="ectt-1200">propres,</span>&#x00A0;<span 
class="ectt-1200">en</span>&#x00A0;<span 
class="ectt-1200">inversant</span>&#x00A0;<span 
class="ectt-1200">la</span>&#x00A0;<span 
class="ectt-1200">fonction</span>&#x00A0;<span 
class="ectt-1200">caracteristique</span>&#x00A0;<span 
class="ectt-1200">suivant</span>
&#x00A0;<br /><span 
class="ectt-1200">la</span>&#x00A0;<span 
class="ectt-1200">methode</span>&#x00A0;<span 
class="ectt-1200">d&#x2019;Imhof.</span>
&#x00A0;<br />
&#x00A0;<br /><span 
class="ectt-1200">Utilisation</span>&#x00A0;<span 
class="ectt-1200">dans</span>&#x00A0;<span 
class="ectt-1200">une</span>&#x00A0;<span 
class="ectt-1200">fonction</span>&#x00A0;<span 
class="ectt-1200">main:</span>
&#x00A0;<br /><span 
class="ectt-1200">-------------------------------------</span>
&#x00A0;<br />
&#x00A0;<br />
&#x00A0;<br /><span 
class="ectt-1200">#include</span>&#x00A0;<span 
class="ectt-1200">&#x003C;iostream.h&#x003E;</span>
&#x00A0;<br /><span 
class="ectt-1200">#include&#x003C;math.h&#x003E;</span>
&#x00A0;<br /><span 
class="ectt-1200">#define</span>&#x00A0;<span 
class="ectt-1200">WANT_STREAM</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">//</span>&#x00A0;<span 
class="ectt-1200">include.h</span>&#x00A0;<span 
class="ectt-1200">will</span>&#x00A0;<span 
class="ectt-1200">get</span>&#x00A0;<span 
class="ectt-1200">stream</span>&#x00A0;<span 
class="ectt-1200">fns</span>
&#x00A0;<br /><span 
class="ectt-1200">#define</span>&#x00A0;<span 
class="ectt-1200">WANT_MATH</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">//</span>&#x00A0;<span 
class="ectt-1200">include.h</span>&#x00A0;<span 
class="ectt-1200">will</span>&#x00A0;<span 
class="ectt-1200">get</span>&#x00A0;<span 
class="ectt-1200">math</span>&#x00A0;<span 
class="ectt-1200">fns</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">//</span>&#x00A0;<span 
class="ectt-1200">newmatap.h</span>&#x00A0;<span 
class="ectt-1200">will</span>&#x00A0;<span 
class="ectt-1200">get</span>&#x00A0;<span 
class="ectt-1200">include.h</span>
&#x00A0;<br /><span 
class="ectt-1200">#include</span>&#x00A0;<span 
class="ectt-1200">&#x0022;newmatap.h&#x0022;</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">//</span>&#x00A0;<span 
class="ectt-1200">need</span>&#x00A0;<span 
class="ectt-1200">matrix</span>&#x00A0;<span 
class="ectt-1200">applications</span>
&#x00A0;<br />
&#x00A0;<br /><span 
class="ectt-1200">#include</span>&#x00A0;<span 
class="ectt-1200">&#x0022;newmatio.h&#x0022;</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">//</span>&#x00A0;<span 
class="ectt-1200">need</span>&#x00A0;<span 
class="ectt-1200">matrix</span>&#x00A0;<span 
class="ectt-1200">output</span>&#x00A0;<span 
class="ectt-1200">routines</span>
&#x00A0;<br />
&#x00A0;<br /><span 
class="ectt-1200">#ifdef</span>&#x00A0;<span 
class="ectt-1200">use_namespace</span>

&#x00A0;<br /><span 
class="ectt-1200">using</span>&#x00A0;<span 
class="ectt-1200">namespace</span>&#x00A0;<span 
class="ectt-1200">NEWMAT;</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">//</span>&#x00A0;<span 
class="ectt-1200">access</span>&#x00A0;<span 
class="ectt-1200">NEWMAT</span>&#x00A0;<span 
class="ectt-1200">namespace</span>
&#x00A0;<br /><span 
class="ectt-1200">#endif</span>
&#x00A0;<br />
&#x00A0;<br /><span 
class="ectt-1200">#include</span>&#x00A0;<span 
class="ectt-1200">&#x0022;Imhof.c&#x0022;</span>
&#x00A0;<br />
&#x00A0;<br /><span 
class="ectt-1200">int</span>&#x00A0;<span 
class="ectt-1200">main()</span>
&#x00A0;<br />
&#x00A0;<br /><span 
class="ectt-1200">{</span>
&#x00A0;<br />
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">double</span>&#x00A0;<span 
class="ectt-1200">rho(double</span>&#x00A0;<span 
class="ectt-1200">u,</span>&#x00A0;<span 
class="ectt-1200">Matrix</span>&#x00A0;<span 
class="ectt-1200">valp);</span>
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">double</span>&#x00A0;<span 
class="ectt-1200">theta(double</span>&#x00A0;<span 
class="ectt-1200">u,</span>&#x00A0;<span 
class="ectt-1200">Matrix</span>&#x00A0;<span 
class="ectt-1200">valp,</span>&#x00A0;<span 
class="ectt-1200">double</span>&#x00A0;<span 
class="ectt-1200">x);</span>
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">double</span>&#x00A0;<span 
class="ectt-1200">imhoffunc(double</span>&#x00A0;<span 
class="ectt-1200">u,</span>&#x00A0;<span 
class="ectt-1200">Matrix</span>&#x00A0;<span 
class="ectt-1200">valp,</span>&#x00A0;<span 
class="ectt-1200">double</span>&#x00A0;<span 
class="ectt-1200">x);</span>
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">double</span>&#x00A0;<span 
class="ectt-1200">integral(double</span>&#x00A0;<span 
class="ectt-1200">x,</span>&#x00A0;<span 
class="ectt-1200">Matrix</span>&#x00A0;<span 
class="ectt-1200">valp,</span>&#x00A0;<span 
class="ectt-1200">double</span>&#x00A0;<span 
class="ectt-1200">U,</span>&#x00A0;<span 
class="ectt-1200">int</span>&#x00A0;<span 
class="ectt-1200">n,</span>&#x00A0;<span 
class="ectt-1200">double</span>&#x00A0;<span 
class="ectt-1200">res);</span>
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">double</span>&#x00A0;<span 
class="ectt-1200">probQsupx(double</span>&#x00A0;<span 
class="ectt-1200">x,</span>&#x00A0;<span 
class="ectt-1200">Matrix</span>&#x00A0;<span 
class="ectt-1200">valp,</span>&#x00A0;<span 
class="ectt-1200">double</span>&#x00A0;<span 
class="ectt-1200">U,</span>&#x00A0;<span 
class="ectt-1200">int</span>&#x00A0;<span 
class="ectt-1200">N);</span>
&#x00A0;<br />
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">int</span>&#x00A0;&#x00A0;<span 
class="ectt-1200">N,</span>&#x00A0;<span 
class="ectt-1200">q;</span>
&#x00A0;<br />
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">q=1;</span>
&#x00A0;<br />
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">Matrix</span>&#x00A0;<span 
class="ectt-1200">valp(2*(2*q+(int)pow(2,q)+2*(int)pow(q,2)-2*q),1);</span>
&#x00A0;<br />
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">double</span>&#x00A0;<span 
class="ectt-1200">x,</span>&#x00A0;<span 
class="ectt-1200">U,</span>&#x00A0;<span 
class="ectt-1200">resultat;</span>
&#x00A0;<br />
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">valp(1,1)=0.8;</span>
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">valp(2,1)=0.7;</span>
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">valp(3,1)=0.6;</span>
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">valp(4,1)=0.5;</span>
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">valp(5,1)=0.4;</span>
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">valp(6,1)=0.3;</span>
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">valp(7,1)=0.2;</span>
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">valp(8,1)=0.1;</span>
&#x00A0;<br />
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">x=0.05;</span>
&#x00A0;<br />
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">U=0.1;</span>
&#x00A0;<br />
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">N=10;</span>
&#x00A0;<br />
&#x00A0;<br />
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">resultat=probQsupx(x,valp,U,N);</span>
&#x00A0;<br />
&#x00A0;<br />
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">cout</span>&#x00A0;<span 
class="ectt-1200">&#x003C;&#x003C;</span>&#x00A0;<span 
class="ectt-1200">resultat</span>&#x00A0;<span 
class="ectt-1200">&#x003C;&#x003C;</span>&#x00A0;<span 
class="ectt-1200">&#x0022;\n&#x0022;;</span>

&#x00A0;<br />
&#x00A0;<br /><span 
class="ectt-1200">return(0);</span>
&#x00A0;<br />
&#x00A0;<br /><span 
class="ectt-1200">}</span>
&#x00A0;<br />
&#x00A0;<br />
&#x00A0;<br />
&#x00A0;<br /><span 
class="ectt-1200">-------------------------------------</span>
&#x00A0;<br />
&#x00A0;<br /><span 
class="ectt-1200">Instructions</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">compilation:</span>
&#x00A0;<br /><span 
class="ectt-1200">g++</span>&#x00A0;<span 
class="ectt-1200">-Wall</span>&#x00A0;<span 
class="ectt-1200">-O</span>&#x00A0;<span 
class="ectt-1200">nom_du_fichier_contenant_la_fonction_main.cc</span>
&#x00A0;<br />
&#x00A0;<br /><span 
class="ectt-1200">Fonctions</span>&#x00A0;<span 
class="ectt-1200">exterieures</span>&#x00A0;<span 
class="ectt-1200">appelees:</span>
&#x00A0;<br /><span 
class="ectt-1200">rho,</span>&#x00A0;<span 
class="ectt-1200">theta,</span>&#x00A0;<span 
class="ectt-1200">imhoffunc,</span>&#x00A0;<span 
class="ectt-1200">integral</span>
&#x00A0;<br />
&#x00A0;<br /><span 
class="ectt-1200">Auteur:</span>&#x00A0;<span 
class="ectt-1200">Pierre</span>&#x00A0;<span 
class="ectt-1200">Lafaye</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">Micheaux</span>
&#x00A0;<br />
&#x00A0;<br /><span 
class="ectt-1200">Date:</span>&#x00A0;<span 
class="ectt-1200">25/08/2002</span>
&#x00A0;<br />
&#x00A0;<br /><span 
class="ectt-1200">Fin-Commentaires</span>&#x00A0;<span 
class="ectt-1200">*/</span>
&#x00A0;<br />
&#x00A0;<br />
&#x00A0;<br />
&#x00A0;<br />
&#x00A0;<br />
&#x00A0;<br /><span 
class="ectt-1200">double</span>&#x00A0;<span 
class="ectt-1200">rho(double</span>&#x00A0;<span 
class="ectt-1200">u,</span>&#x00A0;<span 
class="ectt-1200">Matrix</span>&#x00A0;<span 
class="ectt-1200">valp,</span>&#x00A0;<span 
class="ectt-1200">Matrix</span>&#x00A0;<span 
class="ectt-1200">multiplicity)</span>
&#x00A0;<br />
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">{</span>
&#x00A0;<br />
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">int</span>&#x00A0;<span 
class="ectt-1200">i,</span>&#x00A0;<span 
class="ectt-1200">n;</span>
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">double</span>&#x00A0;<span 
class="ectt-1200">res;</span>
&#x00A0;<br />
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">res=1.0;</span>
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">n=valp.Nrows();</span>
&#x00A0;<br />
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">Matrix</span>&#x00A0;<span 
class="ectt-1200">valpu2(n,1);</span>
&#x00A0;<br />
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">for</span>&#x00A0;<span 
class="ectt-1200">(i=1;i&#x003C;=n;i=i+1)</span>
&#x00A0;<br />
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">{</span>
&#x00A0;<br />
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">valpu2(i,1)=pow(1+pow(valp(i,1)*u,2),0.25*multiplicity(i,1));</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">res=res*valpu2(i,1);</span>

&#x00A0;<br />
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">}</span>
&#x00A0;<br />
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">return(res);</span>
&#x00A0;<br />
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">}</span>
&#x00A0;<br />
&#x00A0;<br /><span 
class="ectt-1200">double</span>&#x00A0;<span 
class="ectt-1200">theta(double</span>&#x00A0;<span 
class="ectt-1200">u,</span>&#x00A0;<span 
class="ectt-1200">Matrix</span>&#x00A0;<span 
class="ectt-1200">valp,</span>&#x00A0;<span 
class="ectt-1200">Matrix</span>&#x00A0;<span 
class="ectt-1200">multiplicity,</span>&#x00A0;<span 
class="ectt-1200">double</span>&#x00A0;<span 
class="ectt-1200">x)</span>
&#x00A0;<br />
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">{</span>
&#x00A0;<br />
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">int</span>&#x00A0;<span 
class="ectt-1200">i,</span>&#x00A0;<span 
class="ectt-1200">n;</span>
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">double</span>&#x00A0;<span 
class="ectt-1200">res;</span>
&#x00A0;<br />
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">n=valp.Nrows();</span>
&#x00A0;<br />
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">Matrix</span>&#x00A0;<span 
class="ectt-1200">hratanvalpu(n,1);</span>
&#x00A0;<br />
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">for</span>&#x00A0;<span 
class="ectt-1200">(i=1;i&#x003C;=n;i=i+1)</span>
&#x00A0;<br />
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">{</span>
&#x00A0;<br />
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">hratanvalpu(i,1)=multiplicity(i,1)*atan(valp(i,1)*u);</span>
&#x00A0;<br />
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">}</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">res=0.5*hratanvalpu.Sum()-0.5*x*u;</span>
&#x00A0;<br />
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">return(res);</span>
&#x00A0;<br />
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">}</span>
&#x00A0;<br />
&#x00A0;<br /><span 
class="ectt-1200">double</span>&#x00A0;<span 
class="ectt-1200">imhoffunc(double</span>&#x00A0;<span 
class="ectt-1200">u,</span>&#x00A0;<span 
class="ectt-1200">Matrix</span>&#x00A0;<span 
class="ectt-1200">valp,</span>&#x00A0;<span 
class="ectt-1200">Matrix</span>&#x00A0;<span 
class="ectt-1200">multiplicity,</span>&#x00A0;<span 
class="ectt-1200">double</span>&#x00A0;<span 
class="ectt-1200">x)</span>
&#x00A0;<br />
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">{</span>
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">//c&#x2019;est</span>&#x00A0;<span 
class="ectt-1200">la</span>&#x00A0;<span 
class="ectt-1200">fonction</span>&#x00A0;<span 
class="ectt-1200">sous</span>&#x00A0;<span 
class="ectt-1200">l&#x2019;integrale</span>&#x00A0;<span 
class="ectt-1200">dans</span>&#x00A0;<span 
class="ectt-1200">(3.2)</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">Imhof</span>&#x00A0;<span 
class="ectt-1200">(1961)</span>
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">double</span>&#x00A0;<span 
class="ectt-1200">theta(double</span>&#x00A0;<span 
class="ectt-1200">u,</span>&#x00A0;<span 
class="ectt-1200">Matrix</span>&#x00A0;<span 
class="ectt-1200">valp,</span>&#x00A0;<span 
class="ectt-1200">Matrix</span>&#x00A0;<span 
class="ectt-1200">multiplicity,</span>&#x00A0;<span 
class="ectt-1200">double</span>&#x00A0;<span 
class="ectt-1200">x);</span>
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">double</span>&#x00A0;<span 
class="ectt-1200">rho(double</span>&#x00A0;<span 
class="ectt-1200">u,</span>&#x00A0;<span 
class="ectt-1200">Matrix</span>&#x00A0;<span 
class="ectt-1200">valp,</span>&#x00A0;<span 
class="ectt-1200">Matrix</span>&#x00A0;<span 
class="ectt-1200">multiplicity);</span>
&#x00A0;<br />
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">double</span>&#x00A0;<span 
class="ectt-1200">res;</span>
&#x00A0;<br />
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">res=(sin(theta(u,valp,multiplicity,x)))/(u*rho(u,valp,multiplicity));</span>
&#x00A0;<br />
&#x00A0;<br />

&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">return(res);</span>
&#x00A0;<br />
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">}</span>
&#x00A0;<br />
&#x00A0;<br /><span 
class="ectt-1200">double</span>&#x00A0;<span 
class="ectt-1200">integral(double</span>&#x00A0;<span 
class="ectt-1200">x,</span>&#x00A0;<span 
class="ectt-1200">Matrix</span>&#x00A0;<span 
class="ectt-1200">valp,</span>&#x00A0;<span 
class="ectt-1200">Matrix</span>&#x00A0;<span 
class="ectt-1200">multiplicity,</span>&#x00A0;<span 
class="ectt-1200">double</span>&#x00A0;<span 
class="ectt-1200">U,</span>&#x00A0;<span 
class="ectt-1200">int</span>&#x00A0;<span 
class="ectt-1200">n,</span>&#x00A0;<span 
class="ectt-1200">double</span>&#x00A0;<span 
class="ectt-1200">res)</span>
&#x00A0;<br />
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">{</span>
&#x00A0;<br />
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">//J&#x2019;utilise</span>&#x00A0;<span 
class="ectt-1200">la</span>&#x00A0;<span 
class="ectt-1200">routine</span>&#x00A0;<span 
class="ectt-1200">trapzd</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">numerical</span>&#x00A0;<span 
class="ectt-1200">recipes,</span>&#x00A0;<span 
class="ectt-1200">section</span>&#x00A0;<span 
class="ectt-1200">4.2</span>&#x00A0;<span 
class="ectt-1200">elementary</span>&#x00A0;<span 
class="ectt-1200">algorithms</span>
&#x00A0;<br />
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">double</span>&#x00A0;<span 
class="ectt-1200">imhoffunc(double</span>&#x00A0;<span 
class="ectt-1200">u,</span>&#x00A0;<span 
class="ectt-1200">Matrix</span>&#x00A0;<span 
class="ectt-1200">valp,</span>&#x00A0;<span 
class="ectt-1200">Matrix</span>&#x00A0;<span 
class="ectt-1200">multiplicity,</span>&#x00A0;<span 
class="ectt-1200">double</span>&#x00A0;<span 
class="ectt-1200">x);</span>
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">int</span>&#x00A0;<span 
class="ectt-1200">it,</span>&#x00A0;<span 
class="ectt-1200">tnm,</span>&#x00A0;<span 
class="ectt-1200">j;</span>
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">double</span>&#x00A0;<span 
class="ectt-1200">del,</span>&#x00A0;<span 
class="ectt-1200">y,</span>&#x00A0;<span 
class="ectt-1200">sum;</span>
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">//0.5*(b-a)*(FUNC(a)+FUNC(b))</span>
&#x00A0;<br /><span 
class="ectt-1200">if</span>&#x00A0;<span 
class="ectt-1200">(n==1)</span>&#x00A0;<span 
class="ectt-1200">{</span>&#x00A0;<span 
class="ectt-1200">res=0.5*U*((0.5*(SP(valp,multiplicity)).Sum()-0.5*x)+imhoffunc(U,valp,multiplicity,x));</span>&#x00A0;<span 
class="ectt-1200">}</span>&#x00A0;<span 
class="ectt-1200">else</span>
&#x00A0;<br />
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">{</span>
&#x00A0;<br />
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">it=(int)pow(2,n-2);</span>
&#x00A0;<br />
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">tnm=it;</span>
&#x00A0;<br />
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">del=U/tnm;</span>
&#x00A0;<br />
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">y=0.5*del;</span>
&#x00A0;<br />
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">sum=0.0;</span>
&#x00A0;<br />
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">for</span>&#x00A0;<span 
class="ectt-1200">(j=1;j&#x003C;=it;j=j+1)</span>&#x00A0;<span 
class="ectt-1200">{sum=sum+imhoffunc(y,valp,multiplicity,x);</span>
&#x00A0;<br />
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">y=y+del;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">}</span>
&#x00A0;<br />
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">res=0.5*(res+U*sum/tnm);</span>
&#x00A0;<br />
&#x00A0;<br />
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">}</span>
&#x00A0;<br />&#x00A0;<span 
class="ectt-1200">return(res);</span>
&#x00A0;<br />
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">}</span>
&#x00A0;<br />
&#x00A0;<br /><span 
class="ectt-1200">double</span>&#x00A0;<span 
class="ectt-1200">probQsupx(double</span>&#x00A0;<span 
class="ectt-1200">x,</span>&#x00A0;<span 
class="ectt-1200">Matrix</span>&#x00A0;<span 
class="ectt-1200">valp,</span>&#x00A0;<span 
class="ectt-1200">Matrix</span>&#x00A0;<span 
class="ectt-1200">multiplicity,</span>&#x00A0;<span 
class="ectt-1200">double</span>&#x00A0;<span 
class="ectt-1200">U,</span>&#x00A0;<span 
class="ectt-1200">int</span>&#x00A0;<span 
class="ectt-1200">N)</span>
&#x00A0;<br />

&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">{</span>
&#x00A0;<br />
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">//</span>&#x00A0;<span 
class="ectt-1200">U</span>&#x00A0;<span 
class="ectt-1200">est</span>&#x00A0;<span 
class="ectt-1200">un</span>&#x00A0;<span 
class="ectt-1200">terme</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">troncation</span>&#x00A0;<span 
class="ectt-1200">dans</span>&#x00A0;<span 
class="ectt-1200">le</span>&#x00A0;<span 
class="ectt-1200">calcul</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">l&#x2019;integrale</span>&#x00A0;<span 
class="ectt-1200">(3.2)</span>&#x00A0;<span 
class="ectt-1200">(voir</span>&#x00A0;<span 
class="ectt-1200">Imhof</span>&#x00A0;<span 
class="ectt-1200">pp.</span>&#x00A0;<span 
class="ectt-1200">422-423)</span>
&#x00A0;<br />
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">double</span>&#x00A0;<span 
class="ectt-1200">integral(double</span>&#x00A0;<span 
class="ectt-1200">x,</span>&#x00A0;<span 
class="ectt-1200">Matrix</span>&#x00A0;<span 
class="ectt-1200">valp,</span>&#x00A0;<span 
class="ectt-1200">Matrix</span>&#x00A0;<span 
class="ectt-1200">multiplicity,</span>&#x00A0;<span 
class="ectt-1200">double</span>&#x00A0;<span 
class="ectt-1200">U,</span>&#x00A0;<span 
class="ectt-1200">int</span>&#x00A0;<span 
class="ectt-1200">n,</span>&#x00A0;<span 
class="ectt-1200">double</span>&#x00A0;<span 
class="ectt-1200">res);</span>
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">double</span>&#x00A0;<span 
class="ectt-1200">PI,</span>&#x00A0;<span 
class="ectt-1200">resul,</span>&#x00A0;<span 
class="ectt-1200">res;</span>
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">int</span>&#x00A0;<span 
class="ectt-1200">i;</span>
&#x00A0;<br />
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">PI=3.1415926535897931160;</span>
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">res=0;</span>
&#x00A0;<br />
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">for</span>&#x00A0;<span 
class="ectt-1200">(i=1;i&#x003C;=N;i=i+1)</span>
&#x00A0;<br />
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">{</span>
&#x00A0;<br />
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">res=integral(x,valp,multiplicity,U,i,res);</span>
&#x00A0;<br />
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">}</span>
&#x00A0;<br />
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">resul=0.5+res/PI;</span>
&#x00A0;<br />
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">return(resul);</span>
&#x00A0;<br />
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">}</span>
&#x00A0;<br />
</div><span 
class="ecbx-1200">Le fichier </span><span 
class="ecbi-1200">main.c</span><div class="verbatiminput">
<span 
class="ectt-1200">//</span>&#x00A0;<span 
class="ectt-1200">DEBUT</span>&#x00A0;<span 
class="ectt-1200">DES</span>&#x00A0;<span 
class="ectt-1200">DEFINITIONS</span>&#x00A0;<span 
class="ectt-1200">POUR</span>&#x00A0;<span 
class="ectt-1200">POUVOIR</span>&#x00A0;<span 
class="ectt-1200">UTILISER</span>&#x00A0;<span 
class="ectt-1200">LES</span>&#x00A0;<span 
class="ectt-1200">LIBRAIRIES</span>
&#x00A0;<br /><span 
class="ectt-1200">//-----------------------------------------------------------</span>
&#x00A0;<br />
&#x00A0;<br /><span 
class="ectt-1200">#include</span>&#x00A0;<span 
class="ectt-1200">&#x003C;string.h&#x003E;</span>
&#x00A0;<br /><span 
class="ectt-1200">#define</span>&#x00A0;<span 
class="ectt-1200">WANT_STREAM</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">//</span>&#x00A0;<span 
class="ectt-1200">include.h</span>&#x00A0;<span 
class="ectt-1200">will</span>&#x00A0;<span 
class="ectt-1200">get</span>&#x00A0;<span 
class="ectt-1200">stream</span>&#x00A0;<span 
class="ectt-1200">fns</span>
&#x00A0;<br /><span 
class="ectt-1200">#define</span>&#x00A0;<span 
class="ectt-1200">WANT_MATH</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">//</span>&#x00A0;<span 
class="ectt-1200">include.h</span>&#x00A0;<span 
class="ectt-1200">will</span>&#x00A0;<span 
class="ectt-1200">get</span>&#x00A0;<span 
class="ectt-1200">math</span>&#x00A0;<span 
class="ectt-1200">fns</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">//</span>&#x00A0;<span 
class="ectt-1200">newmatap.h</span>&#x00A0;<span 
class="ectt-1200">will</span>&#x00A0;<span 
class="ectt-1200">get</span>&#x00A0;<span 
class="ectt-1200">include.h</span>
&#x00A0;<br /><span 
class="ectt-1200">#include</span>&#x00A0;<span 
class="ectt-1200">&#x0022;./include/newmatap.h&#x0022;</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">//</span>&#x00A0;<span 
class="ectt-1200">need</span>&#x00A0;<span 
class="ectt-1200">matrix</span>&#x00A0;<span 
class="ectt-1200">applications</span>
&#x00A0;<br />
&#x00A0;<br /><span 
class="ectt-1200">#include</span>&#x00A0;<span 
class="ectt-1200">&#x0022;./include/newmatio.h&#x0022;</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">//</span>&#x00A0;<span 
class="ectt-1200">need</span>&#x00A0;<span 
class="ectt-1200">matrix</span>&#x00A0;<span 
class="ectt-1200">output</span>&#x00A0;<span 
class="ectt-1200">routines</span>
&#x00A0;<br />
&#x00A0;<br /><span 
class="ectt-1200">#ifdef</span>&#x00A0;<span 
class="ectt-1200">use_namespace</span>
&#x00A0;<br /><span 
class="ectt-1200">using</span>&#x00A0;<span 
class="ectt-1200">namespace</span>&#x00A0;<span 
class="ectt-1200">NEWMAT;</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">//</span>&#x00A0;<span 
class="ectt-1200">access</span>&#x00A0;<span 
class="ectt-1200">NEWMAT</span>&#x00A0;<span 
class="ectt-1200">namespace</span>
&#x00A0;<br /><span 
class="ectt-1200">#endif</span>
&#x00A0;<br />

&#x00A0;<br /><span 
class="ectt-1200">#ifdef</span>&#x00A0;<span 
class="ectt-1200">use_namespace</span>
&#x00A0;<br /><span 
class="ectt-1200">using</span>&#x00A0;<span 
class="ectt-1200">namespace</span>&#x00A0;<span 
class="ectt-1200">NEWRAN;</span>
&#x00A0;<br /><span 
class="ectt-1200">#endif</span>
&#x00A0;<br />
&#x00A0;<br /><span 
class="ectt-1200">#include</span>&#x00A0;<span 
class="ectt-1200">&#x0022;./include/newran.h&#x0022;</span>&#x00A0;<span 
class="ectt-1200">//</span>&#x00A0;<span 
class="ectt-1200">Pour</span>&#x00A0;<span 
class="ectt-1200">la</span>&#x00A0;<span 
class="ectt-1200">generation</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">nombres</span>&#x00A0;<span 
class="ectt-1200">aleatoires</span>
&#x00A0;<br />
&#x00A0;<br />
&#x00A0;<br /><span 
class="ectt-1200">//debut</span>&#x00A0;<span 
class="ectt-1200">definitions</span>&#x00A0;<span 
class="ectt-1200">pour</span>&#x00A0;<span 
class="ectt-1200">qfdavies</span>
&#x00A0;<br />
&#x00A0;<br /><span 
class="ectt-1200">#define</span>&#x00A0;<span 
class="ectt-1200">UseDouble</span>&#x00A0;<span 
class="ectt-1200">0</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">/*</span>&#x00A0;<span 
class="ectt-1200">all</span>&#x00A0;<span 
class="ectt-1200">floating</span>&#x00A0;<span 
class="ectt-1200">point</span>&#x00A0;<span 
class="ectt-1200">double</span>&#x00A0;<span 
class="ectt-1200">*/</span>
&#x00A0;<br />
&#x00A0;<br /><span 
class="ectt-1200">#include</span>&#x00A0;<span 
class="ectt-1200">&#x003C;stdio.h&#x003E;</span>
&#x00A0;<br /><span 
class="ectt-1200">#include</span>&#x00A0;<span 
class="ectt-1200">&#x003C;stdlib.h&#x003E;</span>
&#x00A0;<br /><span 
class="ectt-1200">#include</span>&#x00A0;<span 
class="ectt-1200">&#x003C;math.h&#x003E;</span>
&#x00A0;<br /><span 
class="ectt-1200">#include</span>&#x00A0;<span 
class="ectt-1200">&#x003C;malloc.h&#x003E;</span>
&#x00A0;<br /><span 
class="ectt-1200">#include</span>&#x00A0;<span 
class="ectt-1200">&#x003C;setjmp.h&#x003E;</span>
&#x00A0;<br />
&#x00A0;<br /><span 
class="ectt-1200">#define</span>&#x00A0;<span 
class="ectt-1200">TRUE</span>&#x00A0;&#x00A0;<span 
class="ectt-1200">1</span>
&#x00A0;<br /><span 
class="ectt-1200">#define</span>&#x00A0;<span 
class="ectt-1200">FALSE</span>&#x00A0;<span 
class="ectt-1200">0</span>
&#x00A0;<br /><span 
class="ectt-1200">typedef</span>&#x00A0;<span 
class="ectt-1200">int</span>&#x00A0;<span 
class="ectt-1200">BOOL;</span>
&#x00A0;<br />
&#x00A0;<br /><span 
class="ectt-1200">#ifdef</span>&#x00A0;<span 
class="ectt-1200">UseDouble</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">typedef</span>&#x00A0;<span 
class="ectt-1200">double</span>&#x00A0;<span 
class="ectt-1200">real;</span>
&#x00A0;<br /><span 
class="ectt-1200">#else</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">typedef</span>&#x00A0;<span 
class="ectt-1200">float</span>&#x00A0;<span 
class="ectt-1200">real;</span>
&#x00A0;<br /><span 
class="ectt-1200">#endif</span>
&#x00A0;<br />
&#x00A0;<br /><span 
class="ectt-1200">#define</span>&#x00A0;<span 
class="ectt-1200">pi</span>&#x00A0;<span 
class="ectt-1200">3.141592653589793115998</span>
&#x00A0;<br /><span 
class="ectt-1200">#define</span>&#x00A0;<span 
class="ectt-1200">log28</span>&#x00A0;<span 
class="ectt-1200">.0866</span>&#x00A0;&#x00A0;<span 
class="ectt-1200">/*</span>&#x00A0;&#x00A0;<span 
class="ectt-1200">log(2.0)</span>&#x00A0;<span 
class="ectt-1200">/</span>&#x00A0;<span 
class="ectt-1200">8.0</span>&#x00A0;&#x00A0;<span 
class="ectt-1200">*/</span>
&#x00A0;<br />
&#x00A0;<br /><span 
class="ectt-1200">static</span>&#x00A0;<span 
class="ectt-1200">real</span>&#x00A0;<span 
class="ectt-1200">sigsq,</span>&#x00A0;<span 
class="ectt-1200">lmax,</span>&#x00A0;<span 
class="ectt-1200">lmin,</span>&#x00A0;<span 
class="ectt-1200">mean,</span>&#x00A0;<span 
class="ectt-1200">c;</span>
&#x00A0;<br /><span 
class="ectt-1200">static</span>&#x00A0;<span 
class="ectt-1200">double</span>&#x00A0;<span 
class="ectt-1200">intl,</span>&#x00A0;<span 
class="ectt-1200">ersm;</span>
&#x00A0;<br /><span 
class="ectt-1200">static</span>&#x00A0;<span 
class="ectt-1200">int</span>&#x00A0;<span 
class="ectt-1200">count,</span>&#x00A0;<span 
class="ectt-1200">r,</span>&#x00A0;<span 
class="ectt-1200">lim;</span>&#x00A0;&#x00A0;<span 
class="ectt-1200">static</span>&#x00A0;<span 
class="ectt-1200">BOOL</span>&#x00A0;<span 
class="ectt-1200">ndtsrt,</span>&#x00A0;<span 
class="ectt-1200">fail;</span>
&#x00A0;<br /><span 
class="ectt-1200">static</span>&#x00A0;<span 
class="ectt-1200">int</span>&#x00A0;<span 
class="ectt-1200">*n,*th;</span>&#x00A0;<span 
class="ectt-1200">static</span>&#x00A0;<span 
class="ectt-1200">real</span>&#x00A0;<span 
class="ectt-1200">*lb,*nc;</span>
&#x00A0;<br /><span 
class="ectt-1200">static</span>&#x00A0;<span 
class="ectt-1200">jmp_buf</span>&#x00A0;<span 
class="ectt-1200">env;</span>
&#x00A0;<br />
&#x00A0;<br />
&#x00A0;<br /><span 
class="ectt-1200">static</span>&#x00A0;<span 
class="ectt-1200">real</span>&#x00A0;<span 
class="ectt-1200">exp1(real</span>&#x00A0;<span 
class="ectt-1200">x)</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">/*</span>&#x00A0;<span 
class="ectt-1200">to</span>&#x00A0;<span 
class="ectt-1200">avoid</span>&#x00A0;<span 
class="ectt-1200">underflows</span>&#x00A0;&#x00A0;<span 
class="ectt-1200">*/</span>
&#x00A0;<br /><span 
class="ectt-1200">{</span>&#x00A0;<span 
class="ectt-1200">return</span>&#x00A0;<span 
class="ectt-1200">x</span>&#x00A0;<span 
class="ectt-1200">&#x003C;</span>&#x00A0;<span 
class="ectt-1200">-50.0</span>&#x00A0;<span 
class="ectt-1200">?</span>&#x00A0;<span 
class="ectt-1200">0.0</span>&#x00A0;<span 
class="ectt-1200">:</span>&#x00A0;<span 
class="ectt-1200">exp(x);</span>&#x00A0;<span 
class="ectt-1200">}</span>
&#x00A0;<br />
&#x00A0;<br /><span 
class="ectt-1200">//fin</span>&#x00A0;<span 
class="ectt-1200">definitions</span>&#x00A0;<span 
class="ectt-1200">pour</span>&#x00A0;<span 
class="ectt-1200">qfdavies</span>
&#x00A0;<br />
&#x00A0;<br /><span 
class="ectt-1200">//INCLUSION</span>&#x00A0;<span 
class="ectt-1200">DES</span>&#x00A0;<span 
class="ectt-1200">FICHIERS</span>&#x00A0;<span 
class="ectt-1200">CONTENANT</span>&#x00A0;<span 
class="ectt-1200">LES</span>&#x00A0;<span 
class="ectt-1200">FONCTIONS</span>&#x00A0;<span 
class="ectt-1200">DONT</span>&#x00A0;<span 
class="ectt-1200">JE</span>&#x00A0;<span 
class="ectt-1200">ME</span>&#x00A0;<span 
class="ectt-1200">SERS</span>

&#x00A0;<br /><span 
class="ectt-1200">//--------------------------------------------------------------</span>
&#x00A0;<br />
&#x00A0;<br /><span 
class="ectt-1200">#include</span>&#x00A0;<span 
class="ectt-1200">&#x0022;Imhof.c&#x0022;</span>
&#x00A0;<br /><span 
class="ectt-1200">#include</span>&#x00A0;<span 
class="ectt-1200">&#x0022;deheuvels.c&#x0022;</span>
&#x00A0;<br /><span 
class="ectt-1200">#include</span>&#x00A0;<span 
class="ectt-1200">&#x0022;valpmultiv.c&#x0022;</span>
&#x00A0;<br /><span 
class="ectt-1200">#include</span>&#x00A0;<span 
class="ectt-1200">&#x0022;binarycode.c&#x0022;</span>
&#x00A0;<br /><span 
class="ectt-1200">#include</span>&#x00A0;<span 
class="ectt-1200">&#x0022;cornish.c&#x0022;</span>
&#x00A0;<br /><span 
class="ectt-1200">#include</span>&#x00A0;<span 
class="ectt-1200">&#x0022;cumul.c&#x0022;</span>
&#x00A0;<br /><span 
class="ectt-1200">#include</span>&#x00A0;<span 
class="ectt-1200">&#x0022;qnorm.c&#x0022;</span>
&#x00A0;<br /><span 
class="ectt-1200">#include</span>&#x00A0;<span 
class="ectt-1200">&#x0022;combn.c&#x0022;</span>
&#x00A0;<br /><span 
class="ectt-1200">#include</span>&#x00A0;<span 
class="ectt-1200">&#x0022;nCm.c&#x0022;</span>
&#x00A0;<br /><span 
class="ectt-1200">#include</span>&#x00A0;<span 
class="ectt-1200">&#x0022;permrep.c&#x0022;</span>
&#x00A0;<br /><span 
class="ectt-1200">#include</span>&#x00A0;<span 
class="ectt-1200">&#x0022;zeta.c&#x0022;</span>
&#x00A0;<br /><span 
class="ectt-1200">#include</span>&#x00A0;<span 
class="ectt-1200">&#x0022;rank.c&#x0022;</span>
&#x00A0;<br /><span 
class="ectt-1200">#include</span>&#x00A0;<span 
class="ectt-1200">&#x0022;qfdavies.c&#x0022;</span>
&#x00A0;<br />
&#x00A0;<br /><span 
class="ectt-1200">//-----------------------------------------------------------------</span>
&#x00A0;<br /><span 
class="ectt-1200">//</span>&#x00A0;<span 
class="ectt-1200">DEBUT</span>&#x00A0;<span 
class="ectt-1200">DU</span>&#x00A0;<span 
class="ectt-1200">PROGRAMME</span>
&#x00A0;<br /><span 
class="ectt-1200">//-----------------------------------------------------------------</span>
&#x00A0;<br />
&#x00A0;<br /><span 
class="ectt-1200">//Pour</span>&#x00A0;<span 
class="ectt-1200">compiler</span>&#x00A0;<span 
class="ectt-1200">le</span>&#x00A0;<span 
class="ectt-1200">programme</span>&#x00A0;<span 
class="ectt-1200">taper:</span>
&#x00A0;<br /><span 
class="ectt-1200">//g++</span>&#x00A0;<span 
class="ectt-1200">-Wall</span>&#x00A0;<span 
class="ectt-1200">-O</span>&#x00A0;<span 
class="ectt-1200">main.c</span>&#x00A0;<span 
class="ectt-1200">-L.</span>&#x00A0;<span 
class="ectt-1200">-lnewmat</span>&#x00A0;<span 
class="ectt-1200">-lnewran</span>&#x00A0;<span 
class="ectt-1200">-o</span>&#x00A0;<span 
class="ectt-1200">main</span>
&#x00A0;<br />
&#x00A0;<br /><span 
class="ectt-1200">int</span>&#x00A0;<span 
class="ectt-1200">main()</span>
&#x00A0;<br />
&#x00A0;<br /><span 
class="ectt-1200">{</span>
&#x00A0;<br />
&#x00A0;<br />
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">char</span>&#x00A0;<span 
class="ectt-1200">info[1];</span>
&#x00A0;<br />
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">cout</span>&#x00A0;<span 
class="ectt-1200">&#x003C;&#x003C;</span>&#x00A0;<span 
class="ectt-1200">&#x0022;Voulez-vous</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">l&#x2019;information</span>&#x00A0;<span 
class="ectt-1200">sur</span>&#x00A0;<span 
class="ectt-1200">l&#x2019;utilisation</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">ce</span>&#x00A0;<span 
class="ectt-1200">programme?</span>&#x00A0;<span 
class="ectt-1200">(o)ui</span>&#x00A0;<span 
class="ectt-1200">n(on)</span>&#x00A0;<span 
class="ectt-1200">:</span>&#x00A0;<span 
class="ectt-1200">&#x0022;;</span>
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">//</span>&#x00A0;&#x00A0;<span 
class="ectt-1200">cin</span>&#x00A0;<span 
class="ectt-1200">&#x003E;&#x003E;</span>&#x00A0;<span 
class="ectt-1200">info;</span>
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">if</span>&#x00A0;<span 
class="ectt-1200">((strcmp(info,&#x0022;o&#x0022;)==0)</span>&#x00A0;<span 
class="ectt-1200">|</span>&#x00A0;<span 
class="ectt-1200">(strcmp(info,&#x0022;y&#x0022;)==0))</span>&#x00A0;<span 
class="ectt-1200">{</span>
&#x00A0;<br />
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">cout</span>&#x00A0;<span 
class="ectt-1200">&#x003C;&#x003C;</span>&#x00A0;<span 
class="ectt-1200">&#x0022;\nSTRATEGIE</span>&#x00A0;<span 
class="ectt-1200">POUR</span>&#x00A0;<span 
class="ectt-1200">UTILISER</span>&#x00A0;<span 
class="ectt-1200">CE</span>&#x00A0;<span 
class="ectt-1200">PROGRAMME:&#x0022;;</span>
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">cout</span>&#x00A0;<span 
class="ectt-1200">&#x003C;&#x003C;</span>&#x00A0;<span 
class="ectt-1200">&#x0022;\nElle</span>&#x00A0;<span 
class="ectt-1200">se</span>&#x00A0;<span 
class="ectt-1200">deroule</span>&#x00A0;<span 
class="ectt-1200">en</span>&#x00A0;<span 
class="ectt-1200">3</span>&#x00A0;<span 
class="ectt-1200">etapes.&#x0022;;</span>
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">cout</span>&#x00A0;<span 
class="ectt-1200">&#x003C;&#x003C;</span>&#x00A0;<span 
class="ectt-1200">&#x0022;\n1)&#x0022;;</span>
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">cout</span>&#x00A0;<span 
class="ectt-1200">&#x003C;&#x003C;</span>&#x00A0;<span 
class="ectt-1200">&#x0022;\nLe</span>&#x00A0;<span 
class="ectt-1200">calcul</span>&#x00A0;<span 
class="ectt-1200">des</span>&#x00A0;<span 
class="ectt-1200">cumulants</span>&#x00A0;<span 
class="ectt-1200">est</span>&#x00A0;<span 
class="ectt-1200">exact.</span>&#x00A0;<span 
class="ectt-1200">Il</span>&#x00A0;<span 
class="ectt-1200">faut</span>&#x00A0;<span 
class="ectt-1200">donc</span>&#x00A0;<span 
class="ectt-1200">commencer</span>&#x00A0;<span 
class="ectt-1200">par</span>&#x00A0;<span 
class="ectt-1200">trouver</span>&#x00A0;<span 
class="ectt-1200">le</span>&#x00A0;<span 
class="ectt-1200">bon</span>&#x00A0;<span 
class="ectt-1200">jeu</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">parametres</span>&#x00A0;<span 
class="ectt-1200">qui</span>&#x00A0;<span 
class="ectt-1200">va</span>&#x00A0;<span 
class="ectt-1200">mener</span>&#x00A0;<span 
class="ectt-1200">aux</span>&#x00A0;<span 
class="ectt-1200">bonnes</span>&#x00A0;<span 
class="ectt-1200">valeurs</span>&#x00A0;<span 
class="ectt-1200">propres.&#x0022;;</span>
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">cout</span>&#x00A0;<span 
class="ectt-1200">&#x003C;&#x003C;</span>&#x00A0;<span 
class="ectt-1200">&#x0022;\nPour</span>&#x00A0;<span 
class="ectt-1200">cela,</span>&#x00A0;<span 
class="ectt-1200">on</span>&#x00A0;<span 
class="ectt-1200">se</span>&#x00A0;<span 
class="ectt-1200">base</span>&#x00A0;<span 
class="ectt-1200">sur</span>&#x00A0;<span 
class="ectt-1200">le</span>&#x00A0;<span 
class="ectt-1200">fait</span>&#x00A0;<span 
class="ectt-1200">que</span>&#x00A0;<span 
class="ectt-1200">la</span>&#x00A0;<span 
class="ectt-1200">somme</span>&#x00A0;<span 
class="ectt-1200">des</span>&#x00A0;<span 
class="ectt-1200">valeurs</span>&#x00A0;<span 
class="ectt-1200">propres</span>&#x00A0;<span 
class="ectt-1200">dans</span>&#x00A0;<span 
class="ectt-1200">le</span>&#x00A0;<span 
class="ectt-1200">cas</span>&#x00A0;<span 
class="ectt-1200">CardA=1</span>&#x00A0;<span 
class="ectt-1200">est</span>&#x00A0;<span 
class="ectt-1200">egale</span>&#x00A0;<span 
class="ectt-1200">au</span>&#x00A0;<span 
class="ectt-1200">premier</span>&#x00A0;<span 
class="ectt-1200">cumulant</span>&#x00A0;<span 
class="ectt-1200">dans</span>&#x00A0;<span 
class="ectt-1200">le</span>&#x00A0;<span 
class="ectt-1200">cas</span>&#x00A0;<span 
class="ectt-1200">CardA=1.&#x0022;;</span>
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">cout</span>&#x00A0;<span 
class="ectt-1200">&#x003C;&#x003C;</span>&#x00A0;<span 
class="ectt-1200">&#x0022;\nOn</span>&#x00A0;<span 
class="ectt-1200">commence</span>&#x00A0;<span 
class="ectt-1200">par</span>&#x00A0;<span 
class="ectt-1200">essayer</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">calculer</span>&#x00A0;<span 
class="ectt-1200">les</span>&#x00A0;<span 
class="ectt-1200">valeurs</span>&#x00A0;<span 
class="ectt-1200">propres</span>&#x00A0;<span 
class="ectt-1200">par</span>&#x00A0;<span 
class="ectt-1200">une</span>&#x00A0;<span 
class="ectt-1200">formule</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">cubature.</span>&#x00A0;<span 
class="ectt-1200">Le</span>&#x00A0;<span 
class="ectt-1200">nombre</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">valeurs</span>&#x00A0;<span 
class="ectt-1200">propres</span>&#x00A0;<span 
class="ectt-1200">obtenues</span>&#x00A0;<span 
class="ectt-1200">est</span>&#x00A0;<span 
class="ectt-1200">alors</span>&#x00A0;<span 
class="ectt-1200">fixe</span>&#x00A0;<span 
class="ectt-1200">&#x0022;;</span>
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">cout</span>&#x00A0;<span 
class="ectt-1200">&#x003C;&#x003C;</span>&#x00A0;<span 
class="ectt-1200">&#x0022;\nsauf</span>&#x00A0;<span 
class="ectt-1200">quand</span>&#x00A0;<span 
class="ectt-1200">q=1</span>&#x00A0;<span 
class="ectt-1200">ou</span>&#x00A0;<span 
class="ectt-1200">on</span>&#x00A0;<span 
class="ectt-1200">peut</span>&#x00A0;<span 
class="ectt-1200">entrer</span>&#x00A0;<span 
class="ectt-1200">le</span>&#x00A0;<span 
class="ectt-1200">nombre</span>&#x00A0;<span 
class="ectt-1200">d&#x2019;abscisses</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">la</span>&#x00A0;<span 
class="ectt-1200">cubature.&#x0022;;</span>
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">cout</span>&#x00A0;<span 
class="ectt-1200">&#x003C;&#x003C;</span>&#x00A0;<span 
class="ectt-1200">&#x0022;\nSi</span>&#x00A0;<span 
class="ectt-1200">la</span>&#x00A0;<span 
class="ectt-1200">cubature</span>&#x00A0;<span 
class="ectt-1200">ne</span>&#x00A0;<span 
class="ectt-1200">donne</span>&#x00A0;<span 
class="ectt-1200">pas</span>&#x00A0;<span 
class="ectt-1200">des</span>&#x00A0;<span 
class="ectt-1200">resultats</span>&#x00A0;<span 
class="ectt-1200">satisfaisants,</span>&#x00A0;<span 
class="ectt-1200">on</span>&#x00A0;<span 
class="ectt-1200">passe</span>&#x00A0;<span 
class="ectt-1200">alors</span>&#x00A0;<span 
class="ectt-1200">a</span>&#x00A0;<span 
class="ectt-1200">la</span>&#x00A0;<span 
class="ectt-1200">methode</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">Monte-Carlo.</span>&#x00A0;<span 
class="ectt-1200">Il</span>&#x00A0;<span 
class="ectt-1200">faut</span>&#x00A0;<span 
class="ectt-1200">alors</span>&#x00A0;<span 
class="ectt-1200">tatonner</span>&#x00A0;<span 
class="ectt-1200">jusqu&#x2019;a</span>&#x00A0;<span 
class="ectt-1200">obtenir</span>&#x00A0;<span 
class="ectt-1200">&#x0022;;</span>
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">cout</span>&#x00A0;<span 
class="ectt-1200">&#x003C;&#x003C;</span>&#x00A0;<span 
class="ectt-1200">&#x0022;\nla</span>&#x00A0;<span 
class="ectt-1200">bonne</span>&#x00A0;<span 
class="ectt-1200">taille</span>&#x00A0;<span 
class="ectt-1200">d&#x2019;echantillon.&#x0022;;</span>

&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">cout</span>&#x00A0;<span 
class="ectt-1200">&#x003C;&#x003C;</span>&#x00A0;<span 
class="ectt-1200">&#x0022;\n2)&#x0022;;</span>
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">cout</span>&#x00A0;<span 
class="ectt-1200">&#x003C;&#x003C;</span>&#x00A0;<span 
class="ectt-1200">&#x0022;\nQuand,</span>&#x00A0;<span 
class="ectt-1200">on</span>&#x00A0;<span 
class="ectt-1200">a</span>&#x00A0;<span 
class="ectt-1200">trouve</span>&#x00A0;<span 
class="ectt-1200">les</span>&#x00A0;<span 
class="ectt-1200">bonne</span>&#x00A0;<span 
class="ectt-1200">valeurs</span>&#x00A0;<span 
class="ectt-1200">propres</span>&#x00A0;<span 
class="ectt-1200">pour</span>&#x00A0;<span 
class="ectt-1200">le</span>&#x00A0;<span 
class="ectt-1200">cas</span>&#x00A0;<span 
class="ectt-1200">CardA=1,</span>&#x00A0;<span 
class="ectt-1200">on</span>&#x00A0;<span 
class="ectt-1200">cherche</span>&#x00A0;<span 
class="ectt-1200">a</span>&#x00A0;<span 
class="ectt-1200">obtenir</span>&#x00A0;<span 
class="ectt-1200">les</span>&#x00A0;<span 
class="ectt-1200">bonnes</span>&#x00A0;<span 
class="ectt-1200">valeurs</span>&#x00A0;<span 
class="ectt-1200">propres</span>&#x00A0;<span 
class="ectt-1200">pour</span>&#x00A0;<span 
class="ectt-1200">le</span>&#x00A0;<span 
class="ectt-1200">cas</span>&#x00A0;<span 
class="ectt-1200">CardA&#x003E;1.&#x0022;;</span>
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">cout</span>&#x00A0;<span 
class="ectt-1200">&#x003C;&#x003C;</span>&#x00A0;<span 
class="ectt-1200">&#x0022;\nPour</span>&#x00A0;<span 
class="ectt-1200">cela,</span>&#x00A0;<span 
class="ectt-1200">on</span>&#x00A0;<span 
class="ectt-1200">se</span>&#x00A0;<span 
class="ectt-1200">base</span>&#x00A0;<span 
class="ectt-1200">encore</span>&#x00A0;<span 
class="ectt-1200">sur</span>&#x00A0;<span 
class="ectt-1200">le</span>&#x00A0;<span 
class="ectt-1200">fait</span>&#x00A0;<span 
class="ectt-1200">que</span>&#x00A0;<span 
class="ectt-1200">la</span>&#x00A0;<span 
class="ectt-1200">somme</span>&#x00A0;<span 
class="ectt-1200">des</span>&#x00A0;<span 
class="ectt-1200">valeurs</span>&#x00A0;<span 
class="ectt-1200">propres</span>&#x00A0;<span 
class="ectt-1200">pour</span>&#x00A0;<span 
class="ectt-1200">le</span>&#x00A0;<span 
class="ectt-1200">cas</span>&#x00A0;<span 
class="ectt-1200">CardA&#x003E;1</span>&#x00A0;<span 
class="ectt-1200">est</span>&#x00A0;<span 
class="ectt-1200">egale</span>&#x00A0;<span 
class="ectt-1200">au</span>&#x00A0;<span 
class="ectt-1200">premier</span>&#x00A0;<span 
class="ectt-1200">cumulant</span>&#x00A0;<span 
class="ectt-1200">dans</span>&#x00A0;<span 
class="ectt-1200">le</span>&#x00A0;<span 
class="ectt-1200">cas</span>&#x00A0;<span 
class="ectt-1200">CardA&#x003E;1.&#x0022;;</span>
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">cout</span>&#x00A0;<span 
class="ectt-1200">&#x003C;&#x003C;</span>&#x00A0;<span 
class="ectt-1200">&#x0022;\nLe</span>&#x00A0;<span 
class="ectt-1200">critere</span>&#x00A0;<span 
class="ectt-1200">critarret1</span>&#x00A0;<span 
class="ectt-1200">permet</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">limiter</span>&#x00A0;<span 
class="ectt-1200">le</span>&#x00A0;<span 
class="ectt-1200">nombre</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">valeurs</span>&#x00A0;<span 
class="ectt-1200">propres</span>&#x00A0;<span 
class="ectt-1200">calculees</span>&#x00A0;<span 
class="ectt-1200">pour</span>&#x00A0;<span 
class="ectt-1200">le</span>&#x00A0;<span 
class="ectt-1200">cas</span>&#x00A0;<span 
class="ectt-1200">CardA&#x003E;1,</span>&#x00A0;<span 
class="ectt-1200">en</span>&#x00A0;<span 
class="ectt-1200">eliminant</span>&#x00A0;<span 
class="ectt-1200">d&#x2019;emblee</span>&#x00A0;<span 
class="ectt-1200">les</span>&#x00A0;<span 
class="ectt-1200">valeurs</span>&#x00A0;<span 
class="ectt-1200">propres</span>&#x00A0;<span 
class="ectt-1200">&#x0022;;</span>
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">cout</span>&#x00A0;<span 
class="ectt-1200">&#x003C;&#x003C;</span>&#x00A0;<span 
class="ectt-1200">&#x0022;\ndu</span>&#x00A0;<span 
class="ectt-1200">cas</span>&#x00A0;<span 
class="ectt-1200">CardA=1</span>&#x00A0;<span 
class="ectt-1200">qui</span>&#x00A0;<span 
class="ectt-1200">vont</span>&#x00A0;<span 
class="ectt-1200">mener</span>&#x00A0;<span 
class="ectt-1200">a</span>&#x00A0;<span 
class="ectt-1200">des</span>&#x00A0;<span 
class="ectt-1200">valeurs</span>&#x00A0;<span 
class="ectt-1200">propres</span>&#x00A0;<span 
class="ectt-1200">du</span>&#x00A0;<span 
class="ectt-1200">cas</span>&#x00A0;<span 
class="ectt-1200">CardA&#x003E;1</span>&#x00A0;<span 
class="ectt-1200">trop</span>&#x00A0;<span 
class="ectt-1200">petites.</span>&#x00A0;<span 
class="ectt-1200">Il</span>&#x00A0;<span 
class="ectt-1200">faut</span>&#x00A0;<span 
class="ectt-1200">donc</span>&#x00A0;<span 
class="ectt-1200">ajuster</span>&#x00A0;<span 
class="ectt-1200">ce</span>&#x00A0;<span 
class="ectt-1200">critere</span>&#x00A0;<span 
class="ectt-1200">pour</span>&#x00A0;<span 
class="ectt-1200">ne</span>&#x00A0;<span 
class="ectt-1200">pas</span>&#x00A0;<span 
class="ectt-1200">obtenir</span>&#x00A0;<span 
class="ectt-1200">trop</span>&#x00A0;<span 
class="ectt-1200">&#x0022;;</span>
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">cout</span>&#x00A0;<span 
class="ectt-1200">&#x003C;&#x003C;</span>&#x00A0;<span 
class="ectt-1200">&#x0022;\nde</span>&#x00A0;<span 
class="ectt-1200">valeurs</span>&#x00A0;<span 
class="ectt-1200">propres</span>&#x00A0;<span 
class="ectt-1200">mais</span>&#x00A0;<span 
class="ectt-1200">assez</span>&#x00A0;<span 
class="ectt-1200">pour</span>&#x00A0;<span 
class="ectt-1200">que</span>&#x00A0;<span 
class="ectt-1200">leur</span>&#x00A0;<span 
class="ectt-1200">somme</span>&#x00A0;<span 
class="ectt-1200">soit</span>&#x00A0;<span 
class="ectt-1200">egale</span>&#x00A0;<span 
class="ectt-1200">au</span>&#x00A0;<span 
class="ectt-1200">premier</span>&#x00A0;<span 
class="ectt-1200">cumulant</span>&#x00A0;<span 
class="ectt-1200">du</span>&#x00A0;<span 
class="ectt-1200">cas</span>&#x00A0;<span 
class="ectt-1200">CardA&#x003E;1.&#x0022;;</span>
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">cout</span>&#x00A0;<span 
class="ectt-1200">&#x003C;&#x003C;</span>&#x00A0;<span 
class="ectt-1200">&#x0022;\n3)</span>&#x00A0;&#x00A0;<span 
class="ectt-1200">&#x0022;;</span>
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">cout</span>&#x00A0;<span 
class="ectt-1200">&#x003C;&#x003C;</span>&#x00A0;<span 
class="ectt-1200">&#x0022;\nQuand</span>&#x00A0;<span 
class="ectt-1200">on</span>&#x00A0;<span 
class="ectt-1200">est</span>&#x00A0;<span 
class="ectt-1200">confiant</span>&#x00A0;<span 
class="ectt-1200">sur</span>&#x00A0;<span 
class="ectt-1200">la</span>&#x00A0;<span 
class="ectt-1200">qualite</span>&#x00A0;<span 
class="ectt-1200">des</span>&#x00A0;<span 
class="ectt-1200">valeurs</span>&#x00A0;<span 
class="ectt-1200">propres,</span>&#x00A0;<span 
class="ectt-1200">il</span>&#x00A0;<span 
class="ectt-1200">faut</span>&#x00A0;<span 
class="ectt-1200">s&#x2019;interroger</span>&#x00A0;<span 
class="ectt-1200">sur</span>&#x00A0;<span 
class="ectt-1200">la</span>&#x00A0;<span 
class="ectt-1200">qualite</span>&#x00A0;<span 
class="ectt-1200">des</span>&#x00A0;<span 
class="ectt-1200">quantiles</span>&#x00A0;<span 
class="ectt-1200">et</span>&#x00A0;<span 
class="ectt-1200">des</span>&#x00A0;<span 
class="ectt-1200">distributions.&#x0022;;</span>
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">cout</span>&#x00A0;<span 
class="ectt-1200">&#x003C;&#x003C;</span>&#x00A0;<span 
class="ectt-1200">&#x0022;\nPour</span>&#x00A0;<span 
class="ectt-1200">cela,</span>&#x00A0;<span 
class="ectt-1200">il</span>&#x00A0;<span 
class="ectt-1200">faut</span>&#x00A0;<span 
class="ectt-1200">jouer</span>&#x00A0;<span 
class="ectt-1200">sur</span>&#x00A0;<span 
class="ectt-1200">le</span>&#x00A0;<span 
class="ectt-1200">parametre</span>&#x00A0;<span 
class="ectt-1200">NORD</span>&#x00A0;<span 
class="ectt-1200">qui</span>&#x00A0;<span 
class="ectt-1200">donne</span>&#x00A0;<span 
class="ectt-1200">l&#x2019;ordre</span>&#x00A0;<span 
class="ectt-1200">d&#x2019;expansion</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">Cornish-Fisher</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">facon</span>&#x00A0;<span 
class="ectt-1200">a</span>&#x00A0;<span 
class="ectt-1200">ce</span>&#x00A0;<span 
class="ectt-1200">que</span>&#x00A0;<span 
class="ectt-1200">si</span>&#x00A0;<span 
class="ectt-1200">on</span>&#x00A0;<span 
class="ectt-1200">calcule</span>&#x00A0;<span 
class="ectt-1200">le</span>&#x00A0;<span 
class="ectt-1200">quantile</span>&#x00A0;<span 
class="ectt-1200">&#x0022;;</span>
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">cout</span>&#x00A0;<span 
class="ectt-1200">&#x003C;&#x003C;</span>&#x00A0;<span 
class="ectt-1200">&#x0022;\nd&#x2019;ordre</span>&#x00A0;<span 
class="ectt-1200">1-alpha</span>&#x00A0;<span 
class="ectt-1200">et</span>&#x00A0;<span 
class="ectt-1200">que</span>&#x00A0;<span 
class="ectt-1200">l&#x2019;on</span>&#x00A0;<span 
class="ectt-1200">utilise</span>&#x00A0;<span 
class="ectt-1200">ce</span>&#x00A0;<span 
class="ectt-1200">quantile</span>&#x00A0;<span 
class="ectt-1200">dans</span>&#x00A0;<span 
class="ectt-1200">la</span>&#x00A0;<span 
class="ectt-1200">procedure</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">Imhof</span>&#x00A0;<span 
class="ectt-1200">ou</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">Davies</span>&#x00A0;<span 
class="ectt-1200">on</span>&#x00A0;<span 
class="ectt-1200">retrouve</span>&#x00A0;<span 
class="ectt-1200">bien</span>&#x00A0;<span 
class="ectt-1200">1-alpha.&#x0022;;</span>
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">cout</span>&#x00A0;<span 
class="ectt-1200">&#x003C;&#x003C;</span>&#x00A0;<span 
class="ectt-1200">&#x0022;\nOn</span>&#x00A0;<span 
class="ectt-1200">peut</span>&#x00A0;<span 
class="ectt-1200">aussi</span>&#x00A0;<span 
class="ectt-1200">essayer</span>&#x00A0;<span 
class="ectt-1200">d&#x2019;utiliser</span>&#x00A0;<span 
class="ectt-1200">l&#x2019;une</span>&#x00A0;<span 
class="ectt-1200">des</span>&#x00A0;<span 
class="ectt-1200">regles</span>&#x00A0;<span 
class="ectt-1200">du</span>&#x00A0;<span 
class="ectt-1200">pouce</span>&#x00A0;<span 
class="ectt-1200">suivante:&#x0022;;</span>
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">cout</span>&#x00A0;<span 
class="ectt-1200">&#x003C;&#x003C;</span>&#x00A0;<span 
class="ectt-1200">&#x0022;\nLe</span>&#x00A0;<span 
class="ectt-1200">chiffre</span>&#x00A0;<span 
class="ectt-1200">choisi</span>&#x00A0;<span 
class="ectt-1200">ci-dessous</span>&#x00A0;<span 
class="ectt-1200">(NORD=5)</span>&#x00A0;<span 
class="ectt-1200">l&#x2019;a</span>&#x00A0;<span 
class="ectt-1200">ete</span>&#x00A0;<span 
class="ectt-1200">en</span>&#x00A0;<span 
class="ectt-1200">utilisant</span>&#x00A0;<span 
class="ectt-1200">la</span>&#x00A0;<span 
class="ectt-1200">methode</span>&#x00A0;<span 
class="ectt-1200">suivante:&#x0022;;</span>
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">cout</span>&#x00A0;<span 
class="ectt-1200">&#x003C;&#x003C;</span>&#x00A0;<span 
class="ectt-1200">&#x0022;\nj&#x2019;ai</span>&#x00A0;<span 
class="ectt-1200">trace</span>&#x00A0;<span 
class="ectt-1200">dans</span>&#x00A0;<span 
class="ectt-1200">Splus</span>&#x00A0;<span 
class="ectt-1200">plot(1:10,c(quantQ(NORD=1),...,quantQ(NORD=10)),type=\&#x0022;l\&#x0022;)</span>&#x00A0;<span 
class="ectt-1200">et</span>&#x00A0;<span 
class="ectt-1200">&#x0022;;</span>
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">cout</span>&#x00A0;<span 
class="ectt-1200">&#x003C;&#x003C;</span>&#x00A0;<span 
class="ectt-1200">&#x0022;\nj&#x2019;ai</span>&#x00A0;<span 
class="ectt-1200">choisi</span>&#x00A0;<span 
class="ectt-1200">la</span>&#x00A0;<span 
class="ectt-1200">valeur</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">NORD</span>&#x00A0;<span 
class="ectt-1200">juste</span>&#x00A0;<span 
class="ectt-1200">avant</span>&#x00A0;<span 
class="ectt-1200">l&#x2019;oscillation</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">la</span>&#x00A0;<span 
class="ectt-1200">courbe.&#x0022;;</span>
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">cout</span>&#x00A0;<span 
class="ectt-1200">&#x003C;&#x003C;</span>&#x00A0;<span 
class="ectt-1200">&#x0022;\nLa</span>&#x00A0;<span 
class="ectt-1200">valeur</span>&#x00A0;<span 
class="ectt-1200">NORD=5</span>&#x00A0;<span 
class="ectt-1200">(pour</span>&#x00A0;<span 
class="ectt-1200">Remillard</span>&#x00A0;<span 
class="ectt-1200">c&#x2019;est</span>&#x00A0;<span 
class="ectt-1200">NORD=4)</span>&#x00A0;<span 
class="ectt-1200">a</span>&#x00A0;<span 
class="ectt-1200">ete</span>&#x00A0;<span 
class="ectt-1200">trouvee</span>&#x00A0;<span 
class="ectt-1200">pour</span>&#x00A0;<span 
class="ectt-1200">b=0.1</span>&#x00A0;<span 
class="ectt-1200">et</span>&#x00A0;<span 
class="ectt-1200">q=3,</span>&#x00A0;<span 
class="ectt-1200">il</span>&#x00A0;<span 
class="ectt-1200">faudra</span>&#x00A0;<span 
class="ectt-1200">peut-etre</span>&#x00A0;<span 
class="ectt-1200">changer</span>&#x00A0;<span 
class="ectt-1200">&#x0022;;</span>
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">cout</span>&#x00A0;<span 
class="ectt-1200">&#x003C;&#x003C;</span>&#x00A0;<span 
class="ectt-1200">&#x0022;\npour</span>&#x00A0;<span 
class="ectt-1200">d&#x2019;autres</span>&#x00A0;<span 
class="ectt-1200">valeurs</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">q</span>&#x00A0;<span 
class="ectt-1200">et/ou</span>&#x00A0;<span 
class="ectt-1200">b.&#x0022;;</span>
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">cout</span>&#x00A0;<span 
class="ectt-1200">&#x003C;&#x003C;</span>&#x00A0;<span 
class="ectt-1200">&#x0022;\nNORD</span>&#x00A0;<span 
class="ectt-1200">est</span>&#x00A0;<span 
class="ectt-1200">le</span>&#x00A0;<span 
class="ectt-1200">nombre</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">cumulants</span>&#x00A0;<span 
class="ectt-1200">ajustes,</span>&#x00A0;<span 
class="ectt-1200">comme</span>&#x00A0;<span 
class="ectt-1200">dans</span>&#x00A0;<span 
class="ectt-1200">Lee</span>&#x00A0;<span 
class="ectt-1200">et</span>&#x00A0;<span 
class="ectt-1200">Lin</span>&#x00A0;<span 
class="ectt-1200">(1992),</span>&#x00A0;<span 
class="ectt-1200">il</span>&#x00A0;<span 
class="ectt-1200">y</span>&#x00A0;<span 
class="ectt-1200">a</span>&#x00A0;<span 
class="ectt-1200">en</span>&#x00A0;<span 
class="ectt-1200">fait</span>&#x00A0;<span 
class="ectt-1200">NORD+2</span>&#x00A0;<span 
class="ectt-1200">cumulants</span>&#x00A0;<span 
class="ectt-1200">utilises.&#x0022;;</span>
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">cout</span>&#x00A0;<span 
class="ectt-1200">&#x003C;&#x003C;</span>&#x00A0;<span 
class="ectt-1200">&#x0022;\nIl</span>&#x00A0;<span 
class="ectt-1200">y</span>&#x00A0;<span 
class="ectt-1200">a</span>&#x00A0;<span 
class="ectt-1200">aussi</span>&#x00A0;<span 
class="ectt-1200">une</span>&#x00A0;<span 
class="ectt-1200">regle</span>&#x00A0;<span 
class="ectt-1200">du</span>&#x00A0;<span 
class="ectt-1200">pouce</span>&#x00A0;<span 
class="ectt-1200">dans</span>&#x00A0;<span 
class="ectt-1200">Lee</span>&#x00A0;<span 
class="ectt-1200">et</span>&#x00A0;<span 
class="ectt-1200">Lin</span>&#x00A0;<span 
class="ectt-1200">(1992)</span>&#x00A0;<span 
class="ectt-1200">p236</span>&#x00A0;<span 
class="ectt-1200">pour</span>&#x00A0;<span 
class="ectt-1200">savoir</span>&#x00A0;<span 
class="ectt-1200">combien</span>&#x00A0;<span 
class="ectt-1200">en</span>&#x00A0;<span 
class="ectt-1200">prendre</span>&#x00A0;<span 
class="ectt-1200">...</span>&#x00A0;<span 
class="ectt-1200">a</span>&#x00A0;<span 
class="ectt-1200">voir/&#x0022;;</span>
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">cout</span>&#x00A0;<span 
class="ectt-1200">&#x003C;&#x003C;</span>&#x00A0;<span 
class="ectt-1200">&#x0022;\nUn</span>&#x00A0;<span 
class="ectt-1200">autre</span>&#x00A0;<span 
class="ectt-1200">critere</span>&#x00A0;<span 
class="ectt-1200">a</span>&#x00A0;<span 
class="ectt-1200">ajuster</span>&#x00A0;<span 
class="ectt-1200">est</span>&#x00A0;<span 
class="ectt-1200">critarret2</span>&#x00A0;<span 
class="ectt-1200">qui</span>&#x00A0;<span 
class="ectt-1200">permet</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">limiter</span>&#x00A0;<span 
class="ectt-1200">le</span>&#x00A0;<span 
class="ectt-1200">nombre</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">valeurs</span>&#x00A0;<span 
class="ectt-1200">propres</span>&#x00A0;<span 
class="ectt-1200">qui</span>&#x00A0;<span 
class="ectt-1200">vont</span>&#x00A0;<span 
class="ectt-1200">rentrer</span>&#x00A0;<span 
class="ectt-1200">dans</span>&#x00A0;<span 
class="ectt-1200">les</span>&#x00A0;<span 
class="ectt-1200">procedures</span>&#x00A0;<span 
class="ectt-1200">&#x0022;;</span>
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">cout</span>&#x00A0;<span 
class="ectt-1200">&#x003C;&#x003C;</span>&#x00A0;<span 
class="ectt-1200">&#x0022;\nde</span>&#x00A0;<span 
class="ectt-1200">Imhof</span>&#x00A0;<span 
class="ectt-1200">et</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">Davies.</span>&#x00A0;<span 
class="ectt-1200">S&#x2019;il</span>&#x00A0;<span 
class="ectt-1200">y</span>&#x00A0;<span 
class="ectt-1200">a</span>&#x00A0;<span 
class="ectt-1200">trop</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">valeurs</span>&#x00A0;<span 
class="ectt-1200">propres,</span>&#x00A0;<span 
class="ectt-1200">ces</span>&#x00A0;<span 
class="ectt-1200">procedures</span>&#x00A0;<span 
class="ectt-1200">ne</span>&#x00A0;<span 
class="ectt-1200">fonctionnent</span>&#x00A0;<span 
class="ectt-1200">pas</span>&#x00A0;<span 
class="ectt-1200">bien.</span>&#x00A0;<span 
class="ectt-1200">Il</span>&#x00A0;<span 
class="ectt-1200">faut</span>&#x00A0;<span 
class="ectt-1200">toutefois</span>&#x00A0;<span 
class="ectt-1200">que</span>&#x00A0;<span 
class="ectt-1200">la</span>&#x00A0;<span 
class="ectt-1200">somme</span>&#x00A0;<span 
class="ectt-1200">&#x0022;;</span>
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">cout</span>&#x00A0;<span 
class="ectt-1200">&#x003C;&#x003C;</span>&#x00A0;<span 
class="ectt-1200">&#x0022;\ndes</span>&#x00A0;<span 
class="ectt-1200">valeurs</span>&#x00A0;<span 
class="ectt-1200">propres</span>&#x00A0;<span 
class="ectt-1200">selectionnees</span>&#x00A0;<span 
class="ectt-1200">qui</span>&#x00A0;<span 
class="ectt-1200">vont</span>&#x00A0;<span 
class="ectt-1200">rester</span>&#x00A0;<span 
class="ectt-1200">soit</span>&#x00A0;<span 
class="ectt-1200">encore</span>&#x00A0;<span 
class="ectt-1200">egale</span>&#x00A0;<span 
class="ectt-1200">ou</span>&#x00A0;<span 
class="ectt-1200">proche</span>&#x00A0;<span 
class="ectt-1200">au</span>&#x00A0;<span 
class="ectt-1200">premier</span>&#x00A0;<span 
class="ectt-1200">cumulant</span>&#x00A0;<span 
class="ectt-1200">du</span>&#x00A0;<span 
class="ectt-1200">cas</span>&#x00A0;<span 
class="ectt-1200">CardA&#x003E;1.\n&#x0022;;</span>
&#x00A0;<br />
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">cout</span>&#x00A0;<span 
class="ectt-1200">&#x003C;&#x003C;</span>&#x00A0;<span 
class="ectt-1200">&#x0022;\nRemarque:&#x0022;;</span>
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">cout</span>&#x00A0;<span 
class="ectt-1200">&#x003C;&#x003C;</span>&#x00A0;<span 
class="ectt-1200">&#x0022;\nQuand</span>&#x00A0;<span 
class="ectt-1200">b</span>&#x00A0;<span 
class="ectt-1200">est</span>&#x00A0;<span 
class="ectt-1200">grand,</span>&#x00A0;<span 
class="ectt-1200">utiliser</span>&#x00A0;<span 
class="ectt-1200">plutot</span>&#x00A0;<span 
class="ectt-1200">Monte-Carlo.&#x0022;;</span>
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">cout</span>&#x00A0;<span 
class="ectt-1200">&#x003C;&#x003C;</span>&#x00A0;<span 
class="ectt-1200">&#x0022;\nQuand</span>&#x00A0;<span 
class="ectt-1200">b</span>&#x00A0;<span 
class="ectt-1200">est</span>&#x00A0;<span 
class="ectt-1200">petit,</span>&#x00A0;<span 
class="ectt-1200">utiliser</span>&#x00A0;<span 
class="ectt-1200">plutot</span>&#x00A0;<span 
class="ectt-1200">la</span>&#x00A0;<span 
class="ectt-1200">cubature.\n&#x0022;;</span>
&#x00A0;<br />
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">cout</span>&#x00A0;<span 
class="ectt-1200">&#x003C;&#x003C;</span>&#x00A0;<span 
class="ectt-1200">&#x0022;\nVoir</span>&#x00A0;<span 
class="ectt-1200">aussi</span>&#x00A0;<span 
class="ectt-1200">si</span>&#x00A0;<span 
class="ectt-1200">je</span>&#x00A0;<span 
class="ectt-1200">trouve</span>&#x00A0;<span 
class="ectt-1200">des</span>&#x00A0;<span 
class="ectt-1200">formules</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">cubature</span>&#x00A0;<span 
class="ectt-1200">avec</span>&#x00A0;<span 
class="ectt-1200">plus</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">points</span>&#x00A0;<span 
class="ectt-1200">pour</span>&#x00A0;<span 
class="ectt-1200">le</span>&#x00A0;<span 
class="ectt-1200">cas</span>&#x00A0;<span 
class="ectt-1200">ou</span>&#x00A0;<span 
class="ectt-1200">b</span>&#x00A0;<span 
class="ectt-1200">est</span>&#x00A0;<span 
class="ectt-1200">&#x003E;</span>&#x00A0;<span 
class="ectt-1200">0.1&#x0022;;</span>
&#x00A0;<br />
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">}</span>
&#x00A0;<br />
&#x00A0;<br />
&#x00A0;<br />
&#x00A0;<br />
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">//</span>&#x00A0;<span 
class="ectt-1200">Declaration</span>&#x00A0;<span 
class="ectt-1200">des</span>&#x00A0;<span 
class="ectt-1200">fonctions</span>&#x00A0;<span 
class="ectt-1200">utilisees</span>
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">double</span>&#x00A0;<span 
class="ectt-1200">cornish(double</span>&#x00A0;<span 
class="ectt-1200">X,</span>&#x00A0;<span 
class="ectt-1200">Matrix</span>&#x00A0;<span 
class="ectt-1200">cumul);</span>
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">double</span>&#x00A0;<span 
class="ectt-1200">cum(int</span>&#x00A0;<span 
class="ectt-1200">m,</span>&#x00A0;<span 
class="ectt-1200">double</span>&#x00A0;<span 
class="ectt-1200">b,</span>&#x00A0;<span 
class="ectt-1200">int</span>&#x00A0;<span 
class="ectt-1200">q);</span>
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">//</span>&#x00A0;&#x00A0;<span 
class="ectt-1200">double</span>&#x00A0;<span 
class="ectt-1200">rho(double</span>&#x00A0;<span 
class="ectt-1200">u,</span>&#x00A0;<span 
class="ectt-1200">Matrix</span>&#x00A0;<span 
class="ectt-1200">valp,</span>&#x00A0;<span 
class="ectt-1200">Matrix</span>&#x00A0;<span 
class="ectt-1200">multiplicity);</span>
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">//</span>&#x00A0;&#x00A0;<span 
class="ectt-1200">double</span>&#x00A0;<span 
class="ectt-1200">theta(double</span>&#x00A0;<span 
class="ectt-1200">u,</span>&#x00A0;<span 
class="ectt-1200">Matrix</span>&#x00A0;<span 
class="ectt-1200">valp,</span>&#x00A0;<span 
class="ectt-1200">Matrix</span>&#x00A0;<span 
class="ectt-1200">multiplicity,</span>&#x00A0;<span 
class="ectt-1200">double</span>&#x00A0;<span 
class="ectt-1200">x);</span>
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">//</span>&#x00A0;&#x00A0;<span 
class="ectt-1200">double</span>&#x00A0;<span 
class="ectt-1200">imhoffunc(double</span>&#x00A0;<span 
class="ectt-1200">u,</span>&#x00A0;<span 
class="ectt-1200">Matrix</span>&#x00A0;<span 
class="ectt-1200">valp,</span>&#x00A0;<span 
class="ectt-1200">Matrix</span>&#x00A0;<span 
class="ectt-1200">multiplicity,</span>&#x00A0;<span 
class="ectt-1200">double</span>&#x00A0;<span 
class="ectt-1200">x);</span>
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">//</span>&#x00A0;&#x00A0;<span 
class="ectt-1200">double</span>&#x00A0;<span 
class="ectt-1200">integral(double</span>&#x00A0;<span 
class="ectt-1200">x,</span>&#x00A0;<span 
class="ectt-1200">Matrix</span>&#x00A0;<span 
class="ectt-1200">valp,</span>&#x00A0;<span 
class="ectt-1200">Matrix</span>&#x00A0;<span 
class="ectt-1200">multiplicity,</span>&#x00A0;<span 
class="ectt-1200">double</span>&#x00A0;<span 
class="ectt-1200">U,</span>&#x00A0;<span 
class="ectt-1200">int</span>&#x00A0;<span 
class="ectt-1200">n,</span>&#x00A0;<span 
class="ectt-1200">double</span>&#x00A0;<span 
class="ectt-1200">res);</span>
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">double</span>&#x00A0;<span 
class="ectt-1200">probQsupx(double</span>&#x00A0;<span 
class="ectt-1200">x,</span>&#x00A0;<span 
class="ectt-1200">Matrix</span>&#x00A0;<span 
class="ectt-1200">valp,</span>&#x00A0;<span 
class="ectt-1200">Matrix</span>&#x00A0;<span 
class="ectt-1200">multiplicity,</span>&#x00A0;<span 
class="ectt-1200">double</span>&#x00A0;<span 
class="ectt-1200">U,</span>&#x00A0;<span 
class="ectt-1200">int</span>&#x00A0;<span 
class="ectt-1200">N);</span>
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">double</span>&#x00A0;<span 
class="ectt-1200">qnorm(double</span>&#x00A0;<span 
class="ectt-1200">P,</span>&#x00A0;<span 
class="ectt-1200">int</span>&#x00A0;<span 
class="ectt-1200">IFAULT);</span>
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">int</span>&#x00A0;<span 
class="ectt-1200">nCm(int</span>&#x00A0;<span 
class="ectt-1200">n,</span>&#x00A0;<span 
class="ectt-1200">int</span>&#x00A0;<span 
class="ectt-1200">m);</span>

&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">double</span>&#x00A0;<span 
class="ectt-1200">zeta(int</span>&#x00A0;<span 
class="ectt-1200">m);</span>
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">void</span>&#x00A0;&#x00A0;<span 
class="ectt-1200">rank(Matrix</span>&#x00A0;<span 
class="ectt-1200">RV,char</span>&#x00A0;<span 
class="ectt-1200">ORDER[2],int</span>&#x00A0;<span 
class="ectt-1200">*IRANK);</span>
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">real</span>&#x00A0;<span 
class="ectt-1200">qfdavies(real</span>&#x00A0;<span 
class="ectt-1200">*lb,</span>&#x00A0;<span 
class="ectt-1200">real</span>&#x00A0;<span 
class="ectt-1200">*nc,</span>&#x00A0;<span 
class="ectt-1200">int</span>&#x00A0;<span 
class="ectt-1200">*n,</span>&#x00A0;<span 
class="ectt-1200">int</span>&#x00A0;<span 
class="ectt-1200">r,</span>&#x00A0;<span 
class="ectt-1200">real</span>&#x00A0;<span 
class="ectt-1200">sigma,</span>&#x00A0;<span 
class="ectt-1200">real</span>&#x00A0;<span 
class="ectt-1200">c,int</span>&#x00A0;<span 
class="ectt-1200">lim,</span>&#x00A0;<span 
class="ectt-1200">real</span>&#x00A0;<span 
class="ectt-1200">acc,</span>&#x00A0;<span 
class="ectt-1200">real</span>&#x00A0;<span 
class="ectt-1200">*trace,</span>&#x00A0;<span 
class="ectt-1200">int</span>&#x00A0;<span 
class="ectt-1200">*ifault);</span>
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">void</span>&#x00A0;<span 
class="ectt-1200">combn(int</span>&#x00A0;<span 
class="ectt-1200">**combmat,</span>&#x00A0;<span 
class="ectt-1200">int</span>&#x00A0;<span 
class="ectt-1200">n,</span>&#x00A0;<span 
class="ectt-1200">int</span>&#x00A0;<span 
class="ectt-1200">m);</span>
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">void</span>&#x00A0;<span 
class="ectt-1200">permrep(int</span>&#x00A0;<span 
class="ectt-1200">**permrepmat,</span>&#x00A0;<span 
class="ectt-1200">int</span>&#x00A0;<span 
class="ectt-1200">*indices,</span>&#x00A0;<span 
class="ectt-1200">int</span>&#x00A0;<span 
class="ectt-1200">n,</span>&#x00A0;<span 
class="ectt-1200">int</span>&#x00A0;<span 
class="ectt-1200">k);</span>
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">int</span>&#x00A0;<span 
class="ectt-1200">minimum(int</span>&#x00A0;<span 
class="ectt-1200">x,</span>&#x00A0;<span 
class="ectt-1200">int</span>&#x00A0;<span 
class="ectt-1200">y);</span>
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">double</span>&#x00A0;<span 
class="ectt-1200">deheuvels(double</span>&#x00A0;<span 
class="ectt-1200">u,</span>&#x00A0;<span 
class="ectt-1200">Matrix</span>&#x00A0;<span 
class="ectt-1200">valp,</span>&#x00A0;<span 
class="ectt-1200">Matrix</span>&#x00A0;<span 
class="ectt-1200">multiplicity,</span>&#x00A0;<span 
class="ectt-1200">double</span>&#x00A0;<span 
class="ectt-1200">x,</span>&#x00A0;<span 
class="ectt-1200">double</span>&#x00A0;<span 
class="ectt-1200">a);</span>
&#x00A0;<br />
&#x00A0;<br />
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">//Declaration</span>&#x00A0;<span 
class="ectt-1200">des</span>&#x00A0;<span 
class="ectt-1200">variables</span>
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">DiagonalMatrix</span>&#x00A0;<span 
class="ectt-1200">valpmultiv(double</span>&#x00A0;<span 
class="ectt-1200">b,</span>&#x00A0;<span 
class="ectt-1200">int</span>&#x00A0;<span 
class="ectt-1200">q,</span>&#x00A0;<span 
class="ectt-1200">int</span>&#x00A0;<span 
class="ectt-1200">choix,</span>&#x00A0;<span 
class="ectt-1200">int</span>&#x00A0;<span 
class="ectt-1200">N,</span>&#x00A0;<span 
class="ectt-1200">double</span>&#x00A0;<span 
class="ectt-1200">prec,</span>&#x00A0;<span 
class="ectt-1200">int</span>&#x00A0;<span 
class="ectt-1200">MAXIT);</span>
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">Random::Set(0.46875);</span>
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">int</span>&#x00A0;&#x00A0;<span 
class="ectt-1200">N,</span>&#x00A0;<span 
class="ectt-1200">Nbre,</span>&#x00A0;<span 
class="ectt-1200">q,</span>&#x00A0;<span 
class="ectt-1200">i,</span>&#x00A0;<span 
class="ectt-1200">j,</span>&#x00A0;<span 
class="ectt-1200">k,</span>&#x00A0;<span 
class="ectt-1200">choix,</span>&#x00A0;<span 
class="ectt-1200">NORD,</span>&#x00A0;<span 
class="ectt-1200">IFAULT,</span>&#x00A0;<span 
class="ectt-1200">CardA;</span>
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">double</span>&#x00A0;<span 
class="ectt-1200">b,</span>&#x00A0;<span 
class="ectt-1200">alpha;</span>
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">double</span>&#x00A0;<span 
class="ectt-1200">x,</span>&#x00A0;<span 
class="ectt-1200">z,</span>&#x00A0;&#x00A0;<span 
class="ectt-1200">X,</span>&#x00A0;<span 
class="ectt-1200">U,</span>&#x00A0;<span 
class="ectt-1200">resultat,</span>&#x00A0;<span 
class="ectt-1200">quantQA,</span>&#x00A0;<span 
class="ectt-1200">quantRA;</span>
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">int</span>&#x00A0;<span 
class="ectt-1200">**permrepmat;</span>
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">int</span>&#x00A0;<span 
class="ectt-1200">*indicesperm;</span>
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">int</span>&#x00A0;<span 
class="ectt-1200">count;</span>
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">double</span>&#x00A0;<span 
class="ectt-1200">critarret1;</span>
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">int</span>&#x00A0;<span 
class="ectt-1200">Narret;</span>
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">int</span>&#x00A0;<span 
class="ectt-1200">MAXIT;</span>
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">double</span>&#x00A0;<span 
class="ectt-1200">prec;</span>
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">int</span>&#x00A0;<span 
class="ectt-1200">NORDm2;</span>
&#x00A0;<br />
&#x00A0;<br />
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">//Choix</span>&#x00A0;<span 
class="ectt-1200">du</span>&#x00A0;<span 
class="ectt-1200">parametre</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">lissage</span>&#x00A0;<span 
class="ectt-1200">b,</span>&#x00A0;<span 
class="ectt-1200">marche</span>&#x00A0;<span 
class="ectt-1200">bien</span>&#x00A0;<span 
class="ectt-1200">si</span>&#x00A0;<span 
class="ectt-1200">b&#x003C;=0.1</span>
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">//Choix</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">la</span>&#x00A0;<span 
class="ectt-1200">taille</span>&#x00A0;<span 
class="ectt-1200">q</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">l&#x2019;espace:</span>&#x00A0;<span 
class="ectt-1200">marche</span>&#x00A0;<span 
class="ectt-1200">pour</span>&#x00A0;<span 
class="ectt-1200">q&#x003C;=8</span>
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">//Choix</span>&#x00A0;<span 
class="ectt-1200">du</span>&#x00A0;<span 
class="ectt-1200">Cardinal</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">A</span>
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">//Choix</span>&#x00A0;<span 
class="ectt-1200">du</span>&#x00A0;<span 
class="ectt-1200">niveau</span>
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">//Et</span>&#x00A0;<span 
class="ectt-1200">affichage</span>&#x00A0;<span 
class="ectt-1200">des</span>&#x00A0;<span 
class="ectt-1200">parametres</span>&#x00A0;<span 
class="ectt-1200">choisis</span>
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">cout</span>&#x00A0;<span 
class="ectt-1200">&#x003C;&#x003C;</span>&#x00A0;<span 
class="ectt-1200">&#x0022;\n\n-----------------------------------------------------------------------------\n&#x0022;;</span>
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">cout</span>&#x00A0;<span 
class="ectt-1200">&#x003C;&#x003C;</span>&#x00A0;<span 
class="ectt-1200">&#x0022;|&#x0022;;</span>
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">cout</span>&#x00A0;<span 
class="ectt-1200">&#x003C;&#x003C;</span>&#x00A0;<span 
class="ectt-1200">&#x0022;\n|</span>&#x00A0;<span 
class="ectt-1200">Taille</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">l&#x2019;espace</span>&#x00A0;<span 
class="ectt-1200">considere:</span>&#x00A0;<span 
class="ectt-1200">q=&#x0022;;cin</span>&#x00A0;<span 
class="ectt-1200">&#x003E;&#x003E;</span>&#x00A0;<span 
class="ectt-1200">q;</span>
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">cout</span>&#x00A0;<span 
class="ectt-1200">&#x003C;&#x003C;</span>&#x00A0;<span 
class="ectt-1200">&#x0022;|</span>&#x00A0;<span 
class="ectt-1200">Cardinal</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">A:</span>&#x00A0;<span 
class="ectt-1200">&#x0022;;</span>&#x00A0;<span 
class="ectt-1200">cin</span>&#x00A0;<span 
class="ectt-1200">&#x003E;&#x003E;</span>&#x00A0;<span 
class="ectt-1200">CardA</span>&#x00A0;<span 
class="ectt-1200">;</span>
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">cout</span>&#x00A0;<span 
class="ectt-1200">&#x003C;&#x003C;</span>&#x00A0;<span 
class="ectt-1200">&#x0022;|</span>&#x00A0;<span 
class="ectt-1200">Parametre</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">lissage</span>&#x00A0;<span 
class="ectt-1200">choisi:</span>&#x00A0;<span 
class="ectt-1200">b=&#x0022;;</span>&#x00A0;<span 
class="ectt-1200">cin</span>&#x00A0;<span 
class="ectt-1200">&#x003E;&#x003E;</span>&#x00A0;<span 
class="ectt-1200">b</span>&#x00A0;<span 
class="ectt-1200">;</span>
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">cout</span>&#x00A0;<span 
class="ectt-1200">&#x003C;&#x003C;</span>&#x00A0;<span 
class="ectt-1200">&#x0022;|</span>&#x00A0;<span 
class="ectt-1200">Niveau</span>&#x00A0;<span 
class="ectt-1200">choisi:</span>&#x00A0;<span 
class="ectt-1200">alpha=&#x0022;;</span>&#x00A0;<span 
class="ectt-1200">cin</span>&#x00A0;<span 
class="ectt-1200">&#x003E;&#x003E;</span>&#x00A0;<span 
class="ectt-1200">alpha;</span>
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">cout</span>&#x00A0;<span 
class="ectt-1200">&#x003C;&#x003C;</span>&#x00A0;<span 
class="ectt-1200">&#x0022;|</span>&#x00A0;<span 
class="ectt-1200">Nombre</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">cumulants</span>&#x00A0;<span 
class="ectt-1200">(&#x003E;=3)</span>&#x00A0;<span 
class="ectt-1200">choisis</span>&#x00A0;<span 
class="ectt-1200">pour</span>&#x00A0;<span 
class="ectt-1200">l&#x2019;approximation</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">Cornish-Fisher:</span>&#x00A0;<span 
class="ectt-1200">&#x0022;;</span>&#x00A0;<span 
class="ectt-1200">cin</span>&#x00A0;<span 
class="ectt-1200">&#x003E;&#x003E;</span>&#x00A0;<span 
class="ectt-1200">NORDm2;</span>
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">cout</span>&#x00A0;<span 
class="ectt-1200">&#x003C;&#x003C;</span>&#x00A0;<span 
class="ectt-1200">&#x0022;|&#x0022;;</span>
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">cout</span>&#x00A0;<span 
class="ectt-1200">&#x003C;&#x003C;</span>&#x00A0;<span 
class="ectt-1200">&#x0022;\n-----------------------------------------------------------------------------\n&#x0022;;</span>
&#x00A0;<br />
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">//---------------------------------------------------------------------------</span>
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">//CALCUL</span>&#x00A0;<span 
class="ectt-1200">DES</span>&#x00A0;<span 
class="ectt-1200">CUMULANTS</span>
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">//---------------------------------------------------------------------------</span>

&#x00A0;<br />
&#x00A0;<br />
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">if</span>&#x00A0;<span 
class="ectt-1200">(NORDm2&#x003C;3)</span>&#x00A0;<span 
class="ectt-1200">{cout</span>&#x00A0;<span 
class="ectt-1200">&#x003C;&#x003C;</span>&#x00A0;<span 
class="ectt-1200">&#x0022;\n\n</span>&#x00A0;<span 
class="ectt-1200">Le</span>&#x00A0;<span 
class="ectt-1200">nombre</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">cumulants</span>&#x00A0;<span 
class="ectt-1200">doit</span>&#x00A0;<span 
class="ectt-1200">etre</span>&#x00A0;<span 
class="ectt-1200">superieur</span>&#x00A0;<span 
class="ectt-1200">a</span>&#x00A0;<span 
class="ectt-1200">3\n\n&#x0022;;</span>&#x00A0;<span 
class="ectt-1200">return(1);}</span>
&#x00A0;<br />
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">//Nombre</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">cumulants</span>&#x00A0;<span 
class="ectt-1200">ajustes</span>&#x00A0;<span 
class="ectt-1200">utilises</span>&#x00A0;<span 
class="ectt-1200">dans</span>&#x00A0;<span 
class="ectt-1200">l&#x2019;approximation</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">Cornish-Fisher</span>
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">NORD=NORDm2-2;</span>
&#x00A0;<br />
&#x00A0;<br />
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">Matrix</span>&#x00A0;<span 
class="ectt-1200">cumulQ(NORD+2,1);</span>
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">Matrix</span>&#x00A0;<span 
class="ectt-1200">cumulRA(NORD+2,1);</span>
&#x00A0;<br />
&#x00A0;<br />
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">//</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Definition</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">X</span>&#x00A0;<span 
class="ectt-1200">:</span>&#x00A0;<span 
class="ectt-1200">Phi&#x0302;(-1)(1-alpha)</span>
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">IFAULT=0;</span>
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">X=qnorm(1-alpha,IFAULT);</span>
&#x00A0;<br />
&#x00A0;<br />
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">cout</span>&#x00A0;<span 
class="ectt-1200">&#x003C;&#x003C;</span>&#x00A0;<span 
class="ectt-1200">&#x0022;\n\nCalcul</span>&#x00A0;<span 
class="ectt-1200">des</span>&#x00A0;<span 
class="ectt-1200">cumulants</span>&#x00A0;<span 
class="ectt-1200">et</span>&#x00A0;<span 
class="ectt-1200">application</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">Cornish-Fisher\n&#x0022;;</span>
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">cout</span>&#x00A0;<span 
class="ectt-1200">&#x003C;&#x003C;</span>&#x00A0;<span 
class="ectt-1200">&#x0022;-----------------------------------------------------&#x0022;;</span>
&#x00A0;<br />
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">//</span>&#x00A0;<span 
class="ectt-1200">Calcul</span>&#x00A0;<span 
class="ectt-1200">des</span>&#x00A0;<span 
class="ectt-1200">cumulants</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">Q=\sum_{i=1}&#x0302;{\infty}\lambda_iZ_i&#x0302;2</span>&#x00A0;<span 
class="ectt-1200">pour</span>&#x00A0;<span 
class="ectt-1200">Card(A)=1</span>
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">cumulQ(1,1)=cum(1,b,q);</span>
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">cumulQ(2,1)=cum(2,b,q);</span>
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">for</span>&#x00A0;<span 
class="ectt-1200">(i=3;i&#x003C;=NORD+2;i=i+1)</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">cumulQ(i,1)=cum(i,b,q);</span>
&#x00A0;<br />
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">//Affichage</span>&#x00A0;<span 
class="ectt-1200">des</span>&#x00A0;<span 
class="ectt-1200">cumulants</span>&#x00A0;<span 
class="ectt-1200">pour</span>&#x00A0;<span 
class="ectt-1200">pouvoir</span>&#x00A0;<span 
class="ectt-1200">utiliser</span>&#x00A0;<span 
class="ectt-1200">la</span>&#x00A0;<span 
class="ectt-1200">stopping</span>&#x00A0;<span 
class="ectt-1200">rule</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">Lee</span>&#x00A0;<span 
class="ectt-1200">(1992)</span>
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">cout</span>&#x00A0;<span 
class="ectt-1200">&#x003C;&#x003C;</span>&#x00A0;<span 
class="ectt-1200">&#x0022;\n\nCumulants</span>&#x00A0;<span 
class="ectt-1200">ajustes</span>&#x00A0;<span 
class="ectt-1200">d&#x2019;ordre</span>&#x00A0;<span 
class="ectt-1200">impair</span>&#x00A0;<span 
class="ectt-1200">:</span>&#x00A0;<span 
class="ectt-1200">&#x0022;;</span>
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">for</span>&#x00A0;<span 
class="ectt-1200">(i=1;i&#x003C;=NORD;i=i+2)</span>&#x00A0;<span 
class="ectt-1200">cout</span>&#x00A0;<span 
class="ectt-1200">&#x003C;&#x003C;</span>&#x00A0;<span 
class="ectt-1200">setprecision(10)</span>&#x00A0;<span 
class="ectt-1200">&#x003C;&#x003C;</span>&#x00A0;<span 
class="ectt-1200">cumulQ(i+2,1)/pow(sqrt(cumulQ(2,1)),i+2)</span>&#x00A0;<span 
class="ectt-1200">&#x003C;&#x003C;</span>&#x00A0;<span 
class="ectt-1200">&#x0022;</span>&#x00A0;<span 
class="ectt-1200">&#x0022;;</span>
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">cout</span>&#x00A0;<span 
class="ectt-1200">&#x003C;&#x003C;</span>&#x00A0;<span 
class="ectt-1200">&#x0022;\nCumulants</span>&#x00A0;<span 
class="ectt-1200">ajustes</span>&#x00A0;<span 
class="ectt-1200">d&#x2019;ordre</span>&#x00A0;<span 
class="ectt-1200">pair</span>&#x00A0;<span 
class="ectt-1200">:</span>&#x00A0;<span 
class="ectt-1200">&#x0022;;</span>
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">for</span>&#x00A0;<span 
class="ectt-1200">(i=2;i&#x003C;=NORD;i=i+2)</span>&#x00A0;<span 
class="ectt-1200">cout</span>&#x00A0;<span 
class="ectt-1200">&#x003C;&#x003C;</span>&#x00A0;<span 
class="ectt-1200">setprecision(10)</span>&#x00A0;<span 
class="ectt-1200">&#x003C;&#x003C;</span>&#x00A0;<span 
class="ectt-1200">cumulQ(i+2,1)/pow(sqrt(cumulQ(2,1)),i+2)</span>&#x00A0;<span 
class="ectt-1200">&#x003C;&#x003C;</span>&#x00A0;<span 
class="ectt-1200">&#x0022;</span>&#x00A0;<span 
class="ectt-1200">&#x0022;;</span>
&#x00A0;<br />
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">//Cumulants</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">Remillard</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">xi_1</span>&#x00A0;<span 
class="ectt-1200">pour</span>&#x00A0;<span 
class="ectt-1200">CardA=1:</span>&#x00A0;<span 
class="ectt-1200">commenter</span>&#x00A0;<span 
class="ectt-1200">cette</span>&#x00A0;<span 
class="ectt-1200">ligne</span>&#x00A0;<span 
class="ectt-1200">pour</span>&#x00A0;<span 
class="ectt-1200">se</span>&#x00A0;<span 
class="ectt-1200">baser</span>&#x00A0;<span 
class="ectt-1200">sur</span>&#x00A0;<span 
class="ectt-1200">mes</span>&#x00A0;<span 
class="ectt-1200">cumulants</span>
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">//</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">for</span>&#x00A0;<span 
class="ectt-1200">(i=1;i&#x003C;=NORD+2;i=i+1)</span>&#x00A0;&#x00A0;<span 
class="ectt-1200">cumulQ(i,1)=pow(2,i-1)*fact(i-1)*pow(zeta(2*i),1)/pow(pi,2*i);</span>
&#x00A0;<br />
&#x00A0;<br />
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">cout</span>&#x00A0;<span 
class="ectt-1200">&#x003C;&#x003C;</span>&#x00A0;<span 
class="ectt-1200">&#x0022;\n\n</span>&#x00A0;<span 
class="ectt-1200">Le</span>&#x00A0;<span 
class="ectt-1200">premier</span>&#x00A0;<span 
class="ectt-1200">cumulant</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">Q</span>&#x00A0;<span 
class="ectt-1200">pour</span>&#x00A0;<span 
class="ectt-1200">CardA=1</span>&#x00A0;<span 
class="ectt-1200">vaut:\n</span>&#x00A0;<span 
class="ectt-1200">&#x0022;;</span>
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">cout</span>&#x00A0;<span 
class="ectt-1200">&#x003C;&#x003C;</span>&#x00A0;<span 
class="ectt-1200">setprecision(8)</span>&#x00A0;<span 
class="ectt-1200">&#x003C;&#x003C;</span>&#x00A0;<span 
class="ectt-1200">cumulQ(1,1)</span>&#x00A0;<span 
class="ectt-1200">&#x003C;&#x003C;</span>&#x00A0;<span 
class="ectt-1200">&#x0022;\n&#x0022;;</span>
&#x00A0;<br />
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">//</span>&#x00A0;<span 
class="ectt-1200">Calcul</span>&#x00A0;<span 
class="ectt-1200">des</span>&#x00A0;<span 
class="ectt-1200">cumulants</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">Q=\sum_{i=1}&#x0302;{\infty}\lambda_iZ_i&#x0302;2</span>&#x00A0;<span 
class="ectt-1200">pour</span>&#x00A0;<span 
class="ectt-1200">Card(A)</span>&#x00A0;<span 
class="ectt-1200">quelconque</span>
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">//CumulQA(m)=[cumulQ(m)]&#x0302;|A|*[2&#x0302;(m-1)*(m-1)!]&#x0302;(1-|A|)</span>
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">Matrix</span>&#x00A0;<span 
class="ectt-1200">cumulQA(NORD+2,1);</span>
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">for</span>&#x00A0;<span 
class="ectt-1200">(i=1;i&#x003C;=NORD+2;i=i+1)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">{</span>

&#x00A0;<br />
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">cumulQA(i,1)=pow(cumulQ(i,1),CardA)*pow(pow(2,i-1)*fact(i-1),1-CardA);</span>
&#x00A0;<br />
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">}</span>
&#x00A0;<br />
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">//</span>&#x00A0;<span 
class="ectt-1200">Calcul</span>&#x00A0;<span 
class="ectt-1200">des</span>&#x00A0;<span 
class="ectt-1200">cumulants</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">R=(Q-cumulQA(1))/sqrt(cumulQA(2))</span>&#x00A0;<span 
class="ectt-1200">pour</span>&#x00A0;<span 
class="ectt-1200">Card(A)</span>&#x00A0;<span 
class="ectt-1200">quelconque:</span>
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">//</span>&#x00A0;<span 
class="ectt-1200">cumulRA(1)=0</span>&#x00A0;&#x00A0;<span 
class="ectt-1200">cumulRA(2)=1</span>
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">//</span>&#x00A0;<span 
class="ectt-1200">cumulRA(m)=cumulQA(m)/([cumulQA(2)]&#x0302;(m/2))</span>&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">pour</span>&#x00A0;<span 
class="ectt-1200">tout</span>&#x00A0;<span 
class="ectt-1200">m&#x003E;2</span>
&#x00A0;<br />
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">cout</span>&#x00A0;<span 
class="ectt-1200">&#x003C;&#x003C;</span>&#x00A0;<span 
class="ectt-1200">&#x0022;\n</span>&#x00A0;<span 
class="ectt-1200">Le</span>&#x00A0;<span 
class="ectt-1200">premier</span>&#x00A0;<span 
class="ectt-1200">cumulant</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">Q</span>&#x00A0;<span 
class="ectt-1200">pour</span>&#x00A0;<span 
class="ectt-1200">|A|=&#x0022;&#x003C;&#x003C;</span>&#x00A0;<span 
class="ectt-1200">CardA</span>&#x00A0;<span 
class="ectt-1200">&#x003C;&#x003C;</span>&#x00A0;<span 
class="ectt-1200">&#x0022;</span>&#x00A0;<span 
class="ectt-1200">vaut:\n</span>&#x00A0;<span 
class="ectt-1200">&#x0022;;</span>
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">cout</span>&#x00A0;<span 
class="ectt-1200">&#x003C;&#x003C;</span>&#x00A0;<span 
class="ectt-1200">setprecision(8)</span>&#x00A0;<span 
class="ectt-1200">&#x003C;&#x003C;</span>&#x00A0;<span 
class="ectt-1200">cumulQA(1,1)</span>&#x00A0;<span 
class="ectt-1200">&#x003C;&#x003C;</span>&#x00A0;<span 
class="ectt-1200">&#x0022;\n&#x0022;;</span>
&#x00A0;<br />
&#x00A0;<br />
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">//------------------------------------------------------------------------------</span>
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">//CALCUL</span>&#x00A0;<span 
class="ectt-1200">DES</span>&#x00A0;<span 
class="ectt-1200">QUANTILES</span>&#x00A0;<span 
class="ectt-1200">PAR</span>&#x00A0;<span 
class="ectt-1200">LA</span>&#x00A0;<span 
class="ectt-1200">METHODE</span>&#x00A0;<span 
class="ectt-1200">DE</span>&#x00A0;<span 
class="ectt-1200">CORNISH</span>&#x00A0;<span 
class="ectt-1200">FISHER</span>
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">//------------------------------------------------------------------------------</span>
&#x00A0;<br />
&#x00A0;<br />
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">//Calcul</span>&#x00A0;<span 
class="ectt-1200">du</span>&#x00A0;<span 
class="ectt-1200">quantile</span>&#x00A0;<span 
class="ectt-1200">quantQA</span>&#x00A0;<span 
class="ectt-1200">par</span>&#x00A0;<span 
class="ectt-1200">la</span>&#x00A0;<span 
class="ectt-1200">methode</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">Cornish</span>&#x00A0;<span 
class="ectt-1200">Fisher</span>&#x00A0;<span 
class="ectt-1200">base</span>&#x00A0;<span 
class="ectt-1200">sur</span>&#x00A0;<span 
class="ectt-1200">NORD+2</span>&#x00A0;<span 
class="ectt-1200">cumulants</span>
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">quantQA=cornish(X,cumulQA);</span>
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">cout</span>&#x00A0;<span 
class="ectt-1200">&#x003C;&#x003C;</span>&#x00A0;<span 
class="ectt-1200">&#x0022;\n</span>&#x00A0;<span 
class="ectt-1200">Le</span>&#x00A0;<span 
class="ectt-1200">quantile</span>&#x00A0;<span 
class="ectt-1200">P[Q&#x003C;?]=&#x0022;</span>&#x00A0;<span 
class="ectt-1200">&#x003C;&#x003C;</span>&#x00A0;<span 
class="ectt-1200">1-alpha</span>&#x00A0;<span 
class="ectt-1200">&#x003C;&#x003C;</span>&#x00A0;<span 
class="ectt-1200">&#x0022;</span>&#x00A0;<span 
class="ectt-1200">correspondant</span>&#x00A0;<span 
class="ectt-1200">a</span>&#x00A0;<span 
class="ectt-1200">X=Phi&#x0302;(-1)(&#x0022;&#x003C;&#x003C;1-alpha&#x003C;&#x003C;&#x0022;)=&#x0022;</span>&#x00A0;<span 
class="ectt-1200">&#x003C;&#x003C;</span>&#x00A0;<span 
class="ectt-1200">X</span>&#x00A0;<span 
class="ectt-1200">&#x003C;&#x003C;</span>&#x00A0;<span 
class="ectt-1200">&#x0022;</span>&#x00A0;<span 
class="ectt-1200">pour</span>&#x00A0;<span 
class="ectt-1200">|A|=&#x0022;</span>&#x00A0;<span 
class="ectt-1200">&#x003C;&#x003C;</span>&#x00A0;<span 
class="ectt-1200">CardA</span>&#x00A0;<span 
class="ectt-1200">&#x003C;&#x003C;</span>&#x00A0;<span 
class="ectt-1200">&#x0022;</span>&#x00A0;<span 
class="ectt-1200">vaut:\n</span>&#x00A0;<span 
class="ectt-1200">&#x0022;;</span>
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">cout</span>&#x00A0;<span 
class="ectt-1200">&#x003C;&#x003C;</span>&#x00A0;<span 
class="ectt-1200">setprecision(8)</span>&#x00A0;&#x00A0;<span 
class="ectt-1200">&#x003C;&#x003C;</span>&#x00A0;<span 
class="ectt-1200">quantQA</span>&#x00A0;<span 
class="ectt-1200">&#x003C;&#x003C;</span>&#x00A0;<span 
class="ectt-1200">&#x0022;\n&#x0022;;</span>
&#x00A0;<br />
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">//Calcul</span>&#x00A0;<span 
class="ectt-1200">du</span>&#x00A0;<span 
class="ectt-1200">quantile</span>&#x00A0;<span 
class="ectt-1200">quantRA</span>&#x00A0;<span 
class="ectt-1200">par</span>&#x00A0;<span 
class="ectt-1200">la</span>&#x00A0;<span 
class="ectt-1200">methode</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">Cornish</span>&#x00A0;<span 
class="ectt-1200">Fisher</span>&#x00A0;<span 
class="ectt-1200">base</span>&#x00A0;<span 
class="ectt-1200">sur</span>&#x00A0;<span 
class="ectt-1200">NORD+2</span>&#x00A0;<span 
class="ectt-1200">cumulants</span>
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">quantRA=(quantQA-cumulQA(1,1))/(sqrt(cumulQA(2,1)));</span>
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">cout</span>&#x00A0;<span 
class="ectt-1200">&#x003C;&#x003C;</span>&#x00A0;<span 
class="ectt-1200">&#x0022;\n</span>&#x00A0;<span 
class="ectt-1200">Le</span>&#x00A0;<span 
class="ectt-1200">quantile</span>&#x00A0;<span 
class="ectt-1200">P[R&#x003C;?]=&#x0022;</span>&#x00A0;<span 
class="ectt-1200">&#x003C;&#x003C;</span>&#x00A0;<span 
class="ectt-1200">1-alpha</span>&#x00A0;<span 
class="ectt-1200">&#x003C;&#x003C;</span>&#x00A0;<span 
class="ectt-1200">&#x0022;</span>&#x00A0;<span 
class="ectt-1200">correspondant</span>&#x00A0;<span 
class="ectt-1200">a</span>&#x00A0;<span 
class="ectt-1200">X=Phi&#x0302;(-1)(&#x0022;&#x003C;&#x003C;1-alpha&#x003C;&#x003C;&#x0022;)=&#x0022;</span>&#x00A0;<span 
class="ectt-1200">&#x003C;&#x003C;</span>&#x00A0;<span 
class="ectt-1200">X</span>&#x00A0;<span 
class="ectt-1200">&#x003C;&#x003C;</span>&#x00A0;<span 
class="ectt-1200">&#x0022;</span>&#x00A0;<span 
class="ectt-1200">pour</span>&#x00A0;<span 
class="ectt-1200">|A|=&#x0022;</span>&#x00A0;<span 
class="ectt-1200">&#x003C;&#x003C;</span>&#x00A0;<span 
class="ectt-1200">CardA</span>&#x00A0;<span 
class="ectt-1200">&#x003C;&#x003C;</span>&#x00A0;<span 
class="ectt-1200">&#x0022;</span>&#x00A0;<span 
class="ectt-1200">vaut:\n</span>&#x00A0;<span 
class="ectt-1200">&#x0022;;</span>
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">cout</span>&#x00A0;<span 
class="ectt-1200">&#x003C;&#x003C;</span>&#x00A0;<span 
class="ectt-1200">setprecision(8)</span>&#x00A0;&#x00A0;<span 
class="ectt-1200">&#x003C;&#x003C;</span>&#x00A0;<span 
class="ectt-1200">quantRA</span>&#x00A0;<span 
class="ectt-1200">&#x003C;&#x003C;</span>&#x00A0;<span 
class="ectt-1200">&#x0022;\n&#x0022;;</span>
&#x00A0;<br />
&#x00A0;<br />
&#x00A0;<br />
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">//------------------------------------------------------------------------------</span>
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">//CALCUL</span>&#x00A0;<span 
class="ectt-1200">DES</span>&#x00A0;<span 
class="ectt-1200">VALEURS</span>&#x00A0;<span 
class="ectt-1200">PROPRES</span>&#x00A0;<span 
class="ectt-1200">PAR</span>&#x00A0;<span 
class="ectt-1200">CUBATURE</span>&#x00A0;<span 
class="ectt-1200">OU</span>&#x00A0;<span 
class="ectt-1200">PAR</span>&#x00A0;<span 
class="ectt-1200">MONTE-CARLO</span>
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">//------------------------------------------------------------------------------</span>
&#x00A0;<br />
&#x00A0;<br />
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">cout</span>&#x00A0;<span 
class="ectt-1200">&#x003C;&#x003C;</span>&#x00A0;<span 
class="ectt-1200">&#x0022;\nCalcul</span>&#x00A0;<span 
class="ectt-1200">des</span>&#x00A0;<span 
class="ectt-1200">valeurs</span>&#x00A0;<span 
class="ectt-1200">propres\n&#x0022;;</span>
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">cout</span>&#x00A0;<span 
class="ectt-1200">&#x003C;&#x003C;</span>&#x00A0;<span 
class="ectt-1200">&#x0022;--------------------------&#x0022;;</span>
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">cout</span>&#x00A0;<span 
class="ectt-1200">&#x003C;&#x003C;</span>&#x00A0;<span 
class="ectt-1200">&#x0022;\n</span>&#x00A0;<span 
class="ectt-1200">Entrez</span>&#x00A0;<span 
class="ectt-1200">votre</span>&#x00A0;<span 
class="ectt-1200">choix:</span>&#x00A0;<span 
class="ectt-1200">Methode</span>&#x00A0;<span 
class="ectt-1200">par</span>&#x00A0;<span 
class="ectt-1200">cubature</span>&#x00A0;<span 
class="ectt-1200">(1)</span>&#x00A0;<span 
class="ectt-1200">ou</span>&#x00A0;<span 
class="ectt-1200">Methode</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">Monte-Carlo</span>&#x00A0;<span 
class="ectt-1200">(2)</span>&#x00A0;<span 
class="ectt-1200">:</span>&#x00A0;<span 
class="ectt-1200">&#x0022;;</span>
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">cin</span>&#x00A0;<span 
class="ectt-1200">&#x003E;&#x003E;choix;</span>
&#x00A0;<br />
&#x00A0;<br />
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">prec=0.0;</span>
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">MAXIT=0;</span>

&#x00A0;<br />
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">//</span>&#x00A0;<span 
class="ectt-1200">On</span>&#x00A0;<span 
class="ectt-1200">fixe</span>&#x00A0;<span 
class="ectt-1200">le</span>&#x00A0;<span 
class="ectt-1200">nombre</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">valeurs</span>&#x00A0;<span 
class="ectt-1200">propres</span>&#x00A0;<span 
class="ectt-1200">suivant</span>&#x00A0;<span 
class="ectt-1200">la</span>&#x00A0;<span 
class="ectt-1200">methode</span>&#x00A0;<span 
class="ectt-1200">choisie</span>
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">if</span>&#x00A0;<span 
class="ectt-1200">(choix==1)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">{</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">if</span>&#x00A0;<span 
class="ectt-1200">(q==1)</span>
&#x00A0;<br /><span 
class="ectt-1200">{</span>
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">cout</span>&#x00A0;<span 
class="ectt-1200">&#x003C;&#x003C;</span>&#x00A0;<span 
class="ectt-1200">&#x0022;</span>&#x00A0;<span 
class="ectt-1200">Nombre</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">valeurs</span>&#x00A0;<span 
class="ectt-1200">propres</span>&#x00A0;<span 
class="ectt-1200">souhaitees:</span>&#x00A0;<span 
class="ectt-1200">&#x0022;;cin</span>&#x00A0;<span 
class="ectt-1200">&#x003E;&#x003E;</span>&#x00A0;<span 
class="ectt-1200">N;</span>
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">cout</span>&#x00A0;<span 
class="ectt-1200">&#x003C;&#x003C;</span>&#x00A0;<span 
class="ectt-1200">&#x0022;</span>&#x00A0;<span 
class="ectt-1200">Precision</span>&#x00A0;<span 
class="ectt-1200">souhaitee:</span>&#x00A0;<span 
class="ectt-1200">&#x0022;;cin</span>&#x00A0;<span 
class="ectt-1200">&#x003E;&#x003E;</span>&#x00A0;<span 
class="ectt-1200">prec;</span>
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">cout</span>&#x00A0;<span 
class="ectt-1200">&#x003C;&#x003C;</span>&#x00A0;<span 
class="ectt-1200">&#x0022;</span>&#x00A0;<span 
class="ectt-1200">Nombre</span>&#x00A0;<span 
class="ectt-1200">maximum</span>&#x00A0;<span 
class="ectt-1200">d&#x2019;iteration</span>&#x00A0;<span 
class="ectt-1200">souhaite:</span>&#x00A0;<span 
class="ectt-1200">&#x0022;;cin</span>&#x00A0;<span 
class="ectt-1200">&#x003E;&#x003E;</span>&#x00A0;<span 
class="ectt-1200">MAXIT;</span>
&#x00A0;<br />
&#x00A0;<br /><span 
class="ectt-1200">}</span>
&#x00A0;<br />
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">//mettre</span>&#x00A0;<span 
class="ectt-1200">ici</span>&#x00A0;<span 
class="ectt-1200">la</span>&#x00A0;<span 
class="ectt-1200">bonne</span>&#x00A0;<span 
class="ectt-1200">valeur</span>&#x00A0;<span 
class="ectt-1200">suivant</span>&#x00A0;<span 
class="ectt-1200">la</span>&#x00A0;<span 
class="ectt-1200">formule</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">cubature</span>&#x00A0;<span 
class="ectt-1200">choisie</span>&#x00A0;<span 
class="ectt-1200">dans</span>&#x00A0;<span 
class="ectt-1200">valpmultiv.c</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">//j&#x2019;ai</span>&#x00A0;<span 
class="ectt-1200">choisi</span>&#x00A0;<span 
class="ectt-1200">dans</span>&#x00A0;<span 
class="ectt-1200">valpmultiv.c</span>&#x00A0;<span 
class="ectt-1200">la</span>&#x00A0;<span 
class="ectt-1200">cubature</span>&#x00A0;<span 
class="ectt-1200">1</span>&#x00A0;<span 
class="ectt-1200">qui</span>&#x00A0;<span 
class="ectt-1200">me</span>&#x00A0;<span 
class="ectt-1200">donne</span>&#x00A0;<span 
class="ectt-1200">les</span>&#x00A0;<span 
class="ectt-1200">meilleurs</span>&#x00A0;<span 
class="ectt-1200">resultats</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">else</span>&#x00A0;<span 
class="ectt-1200">if</span>&#x00A0;<span 
class="ectt-1200">(q==2)</span>&#x00A0;<span 
class="ectt-1200">N=44;</span>
&#x00A0;<br />
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">else</span>&#x00A0;<span 
class="ectt-1200">if</span>&#x00A0;<span 
class="ectt-1200">(q&#x003E;=3)</span>&#x00A0;<span 
class="ectt-1200">N=(int)pow(2,q+1)+4*(int)pow(q,2);</span>
&#x00A0;<br />
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">}</span>
&#x00A0;<br />
&#x00A0;<br />
&#x00A0;<br />
&#x00A0;<br />&#x00A0;<span 
class="ectt-1200">if</span>&#x00A0;<span 
class="ectt-1200">(choix==2)</span>&#x00A0;<span 
class="ectt-1200">{</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">cout</span>&#x00A0;<span 
class="ectt-1200">&#x003C;&#x003C;</span>&#x00A0;<span 
class="ectt-1200">&#x0022;</span>&#x00A0;&#x00A0;<span 
class="ectt-1200">Taille</span>&#x00A0;<span 
class="ectt-1200">N</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">l&#x2019;echantillon</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">Monte-carlo</span>&#x00A0;<span 
class="ectt-1200">souhaitee</span>&#x00A0;<span 
class="ectt-1200">:</span>&#x00A0;<span 
class="ectt-1200">&#x0022;;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">cin</span>&#x00A0;<span 
class="ectt-1200">&#x003E;&#x003E;</span>&#x00A0;<span 
class="ectt-1200">N;</span>
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">}</span>
&#x00A0;<br />
&#x00A0;<br />
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">//Calcul</span>&#x00A0;<span 
class="ectt-1200">des</span>&#x00A0;<span 
class="ectt-1200">valeurs</span>&#x00A0;<span 
class="ectt-1200">propres</span>&#x00A0;<span 
class="ectt-1200">pour</span>&#x00A0;<span 
class="ectt-1200">CardA=1</span>
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">//---------------------------------------</span>
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">DiagonalMatrix</span>&#x00A0;<span 
class="ectt-1200">D(N);</span>
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">Matrix</span>&#x00A0;<span 
class="ectt-1200">valp(N,1);</span>
&#x00A0;<br />
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">D=valpmultiv(b,q,choix,N,prec,MAXIT);</span>
&#x00A0;<br />
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">for</span>&#x00A0;<span 
class="ectt-1200">(i=1;i&#x003C;=N;i=i+1)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">{</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">valp(i,1)=D(i);</span>
&#x00A0;<br />
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">}</span>
&#x00A0;<br />
&#x00A0;<br />
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">//Calcul</span>&#x00A0;<span 
class="ectt-1200">des</span>&#x00A0;<span 
class="ectt-1200">valeurs</span>&#x00A0;<span 
class="ectt-1200">propres</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">Remillard:</span>&#x00A0;<span 
class="ectt-1200">commenter</span>&#x00A0;<span 
class="ectt-1200">cette</span>&#x00A0;<span 
class="ectt-1200">ligne</span>&#x00A0;<span 
class="ectt-1200">pour</span>&#x00A0;<span 
class="ectt-1200">calculer</span>&#x00A0;<span 
class="ectt-1200">mes</span>&#x00A0;<span 
class="ectt-1200">valeurs</span>&#x00A0;<span 
class="ectt-1200">propres</span>

&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">//</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">for</span>&#x00A0;<span 
class="ectt-1200">(i=1;i&#x003C;=N;i=i+1)</span>&#x00A0;<span 
class="ectt-1200">valp(i,1)=pow(i*pi,-2);</span>
&#x00A0;<br />
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">if</span>&#x00A0;<span 
class="ectt-1200">(choix==1)</span>&#x00A0;<span 
class="ectt-1200">cout</span>&#x00A0;<span 
class="ectt-1200">&#x003C;&#x003C;&#x0022;\n</span>&#x00A0;<span 
class="ectt-1200">Nombre</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">valeurs</span>&#x00A0;<span 
class="ectt-1200">propres</span>&#x00A0;<span 
class="ectt-1200">calculees</span>&#x00A0;<span 
class="ectt-1200">pour</span>&#x00A0;<span 
class="ectt-1200">CardA=1,</span>&#x00A0;<span 
class="ectt-1200">par</span>&#x00A0;<span 
class="ectt-1200">cubature:</span>&#x00A0;<span 
class="ectt-1200">&#x0022;</span>&#x00A0;<span 
class="ectt-1200">&#x003C;&#x003C;</span>&#x00A0;<span 
class="ectt-1200">N</span>&#x00A0;<span 
class="ectt-1200">&#x003C;&#x003C;</span>&#x00A0;<span 
class="ectt-1200">&#x0022;\n&#x0022;;</span>
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">if</span>&#x00A0;<span 
class="ectt-1200">(choix==2)</span>&#x00A0;<span 
class="ectt-1200">cout</span>&#x00A0;<span 
class="ectt-1200">&#x003C;&#x003C;&#x0022;\n</span>&#x00A0;<span 
class="ectt-1200">Nombre</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">valeurs</span>&#x00A0;<span 
class="ectt-1200">propres</span>&#x00A0;<span 
class="ectt-1200">calculees</span>&#x00A0;<span 
class="ectt-1200">pour</span>&#x00A0;<span 
class="ectt-1200">CardA=1,</span>&#x00A0;<span 
class="ectt-1200">par</span>&#x00A0;<span 
class="ectt-1200">Monte-Carlo:</span>&#x00A0;<span 
class="ectt-1200">&#x0022;</span>&#x00A0;<span 
class="ectt-1200">&#x003C;&#x003C;</span>&#x00A0;<span 
class="ectt-1200">N</span>&#x00A0;<span 
class="ectt-1200">&#x003C;&#x003C;</span>&#x00A0;<span 
class="ectt-1200">&#x0022;\n&#x0022;;</span>
&#x00A0;<br />
&#x00A0;<br />
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">//</span>&#x00A0;<span 
class="ectt-1200">Pour</span>&#x00A0;<span 
class="ectt-1200">verifier</span>&#x00A0;<span 
class="ectt-1200">si</span>&#x00A0;<span 
class="ectt-1200">la</span>&#x00A0;<span 
class="ectt-1200">somme</span>&#x00A0;<span 
class="ectt-1200">des</span>&#x00A0;<span 
class="ectt-1200">valeurs</span>&#x00A0;<span 
class="ectt-1200">propres</span>&#x00A0;<span 
class="ectt-1200">est</span>&#x00A0;<span 
class="ectt-1200">bien</span>&#x00A0;<span 
class="ectt-1200">egale</span>&#x00A0;<span 
class="ectt-1200">au</span>&#x00A0;<span 
class="ectt-1200">premier</span>&#x00A0;<span 
class="ectt-1200">cumulant</span>
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">cout</span>&#x00A0;<span 
class="ectt-1200">&#x003C;&#x003C;</span>&#x00A0;<span 
class="ectt-1200">&#x0022;\n</span>&#x00A0;<span 
class="ectt-1200">La</span>&#x00A0;<span 
class="ectt-1200">somme</span>&#x00A0;<span 
class="ectt-1200">des</span>&#x00A0;<span 
class="ectt-1200">valeurs</span>&#x00A0;<span 
class="ectt-1200">propres</span>&#x00A0;<span 
class="ectt-1200">pour</span>&#x00A0;<span 
class="ectt-1200">CardA=1</span>&#x00A0;<span 
class="ectt-1200">(qui</span>&#x00A0;<span 
class="ectt-1200">doit</span>&#x00A0;<span 
class="ectt-1200">etre</span>&#x00A0;<span 
class="ectt-1200">egale</span>&#x00A0;<span 
class="ectt-1200">au</span>&#x00A0;<span 
class="ectt-1200">premier</span>&#x00A0;<span 
class="ectt-1200">cumulant</span>&#x00A0;<span 
class="ectt-1200">pour</span>&#x00A0;<span 
class="ectt-1200">CardA=1)</span>&#x00A0;<span 
class="ectt-1200">vaut:\n</span>&#x00A0;<span 
class="ectt-1200">&#x0022;;</span>
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">cout</span>&#x00A0;<span 
class="ectt-1200">&#x003C;&#x003C;</span>&#x00A0;<span 
class="ectt-1200">setprecision(8)</span>&#x00A0;<span 
class="ectt-1200">&#x003C;&#x003C;</span>&#x00A0;<span 
class="ectt-1200">valp.Sum()</span>&#x00A0;<span 
class="ectt-1200">&#x003C;&#x003C;</span>&#x00A0;<span 
class="ectt-1200">&#x0022;\n&#x0022;;</span>
&#x00A0;<br />
&#x00A0;<br />
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">//Calcul</span>&#x00A0;<span 
class="ectt-1200">des</span>&#x00A0;<span 
class="ectt-1200">valeurs</span>&#x00A0;<span 
class="ectt-1200">propres</span>&#x00A0;<span 
class="ectt-1200">pour</span>&#x00A0;<span 
class="ectt-1200">CardA</span>&#x00A0;<span 
class="ectt-1200">quelconque</span>
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">//------------------------------------------------</span>
&#x00A0;<br />
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">//Calcul</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">toutes</span>&#x00A0;<span 
class="ectt-1200">les</span>&#x00A0;<span 
class="ectt-1200">permutations</span>&#x00A0;<span 
class="ectt-1200">avec</span>&#x00A0;<span 
class="ectt-1200">repetitions</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">1:n</span>&#x00A0;<span 
class="ectt-1200">qui</span>&#x00A0;<span 
class="ectt-1200">sont</span>&#x00A0;<span 
class="ectt-1200">donnees</span>&#x00A0;<span 
class="ectt-1200">sous</span>&#x00A0;<span 
class="ectt-1200">forme</span>&#x00A0;<span 
class="ectt-1200">des</span>&#x00A0;<span 
class="ectt-1200">combinaisons</span>&#x00A0;<span 
class="ectt-1200">avec</span>&#x00A0;<span 
class="ectt-1200">repetitions</span>&#x00A0;<span 
class="ectt-1200">et</span>&#x00A0;<span 
class="ectt-1200">du</span>&#x00A0;<span 
class="ectt-1200">nombre</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">fois</span>
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">//que</span>&#x00A0;<span 
class="ectt-1200">chaque</span>&#x00A0;<span 
class="ectt-1200">combinaison</span>&#x00A0;<span 
class="ectt-1200">doit</span>&#x00A0;<span 
class="ectt-1200">etre</span>&#x00A0;<span 
class="ectt-1200">utilisee</span>&#x00A0;<span 
class="ectt-1200">(indicesperm).</span>&#x00A0;<span 
class="ectt-1200">Cela</span>&#x00A0;<span 
class="ectt-1200">va</span>&#x00A0;<span 
class="ectt-1200">permettre</span>&#x00A0;<span 
class="ectt-1200">d&#x2019;obtenir</span>&#x00A0;<span 
class="ectt-1200">les</span>&#x00A0;<span 
class="ectt-1200">valeurs</span>&#x00A0;<span 
class="ectt-1200">propres</span>&#x00A0;<span 
class="ectt-1200">pour</span>&#x00A0;<span 
class="ectt-1200">CardA</span>&#x00A0;<span 
class="ectt-1200">quelconque</span>&#x00A0;<span 
class="ectt-1200">comme</span>&#x00A0;<span 
class="ectt-1200">produits</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">valeurs</span>
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">//propres</span>&#x00A0;<span 
class="ectt-1200">pour</span>&#x00A0;<span 
class="ectt-1200">CardA=1</span>
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">//Il</span>&#x00A0;<span 
class="ectt-1200">y</span>&#x00A0;<span 
class="ectt-1200">a</span>&#x00A0;<span 
class="ectt-1200">n&#x0302;k</span>&#x00A0;<span 
class="ectt-1200">permutations</span>&#x00A0;<span 
class="ectt-1200">avec</span>&#x00A0;<span 
class="ectt-1200">repetitions</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">k</span>&#x00A0;<span 
class="ectt-1200">objets</span>&#x00A0;<span 
class="ectt-1200">pris</span>&#x00A0;<span 
class="ectt-1200">parmi</span>&#x00A0;<span 
class="ectt-1200">n.</span>
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">//Ces</span>&#x00A0;<span 
class="ectt-1200">n&#x0302;k</span>&#x00A0;<span 
class="ectt-1200">permutations</span>&#x00A0;<span 
class="ectt-1200">peuvent</span>&#x00A0;<span 
class="ectt-1200">se</span>&#x00A0;<span 
class="ectt-1200">repartir</span>&#x00A0;<span 
class="ectt-1200">en</span>&#x00A0;<span 
class="ectt-1200">nCm(n+k-1,k)=(n+k-1)!/((n-1)!k!)</span>&#x00A0;<span 
class="ectt-1200">combinaisons</span>&#x00A0;<span 
class="ectt-1200">avec</span>&#x00A0;<span 
class="ectt-1200">repetitions</span>&#x00A0;<span 
class="ectt-1200">ou</span>&#x00A0;<span 
class="ectt-1200">chaque</span>&#x00A0;<span 
class="ectt-1200">combinaison</span>&#x00A0;<span 
class="ectt-1200">doit</span>&#x00A0;<span 
class="ectt-1200">etre</span>&#x00A0;<span 
class="ectt-1200">repetee</span>
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">//(N_1+N_2+...+N_n)!/(N_1!N_2!...N_n!)</span>&#x00A0;<span 
class="ectt-1200">(en</span>&#x00A0;<span 
class="ectt-1200">changeant</span>&#x00A0;<span 
class="ectt-1200">l&#x2019;ordre</span>&#x00A0;<span 
class="ectt-1200">des</span>&#x00A0;<span 
class="ectt-1200">elements),</span>&#x00A0;<span 
class="ectt-1200">ou</span>&#x00A0;<span 
class="ectt-1200">N_1</span>&#x00A0;<span 
class="ectt-1200">est</span>&#x00A0;<span 
class="ectt-1200">le</span>&#x00A0;<span 
class="ectt-1200">nombre</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">1</span>&#x00A0;<span 
class="ectt-1200">dans</span>&#x00A0;<span 
class="ectt-1200">dans</span>&#x00A0;<span 
class="ectt-1200">la</span>&#x00A0;<span 
class="ectt-1200">combinaison</span>&#x00A0;<span 
class="ectt-1200">consideree,</span>
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">//N_2</span>&#x00A0;<span 
class="ectt-1200">le</span>&#x00A0;<span 
class="ectt-1200">nombre</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">2,</span>&#x00A0;<span 
class="ectt-1200">...,</span>&#x00A0;<span 
class="ectt-1200">N_n</span>&#x00A0;<span 
class="ectt-1200">le</span>&#x00A0;<span 
class="ectt-1200">nombre</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">n.</span>
&#x00A0;<br />
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">//Puisqu&#x2019;un</span>&#x00A0;<span 
class="ectt-1200">double</span>&#x00A0;<span 
class="ectt-1200">est</span>&#x00A0;<span 
class="ectt-1200">code</span>&#x00A0;<span 
class="ectt-1200">sur</span>&#x00A0;<span 
class="ectt-1200">4</span>&#x00A0;<span 
class="ectt-1200">octets,</span>&#x00A0;<span 
class="ectt-1200">on</span>&#x00A0;<span 
class="ectt-1200">est</span>&#x00A0;<span 
class="ectt-1200">limite</span>&#x00A0;<span 
class="ectt-1200">dans</span>&#x00A0;<span 
class="ectt-1200">la</span>&#x00A0;<span 
class="ectt-1200">taille</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">par</span>&#x00A0;<span 
class="ectt-1200">la</span>&#x00A0;<span 
class="ectt-1200">borne</span>&#x00A0;<span 
class="ectt-1200">conservatrice:</span>&#x00A0;<span 
class="ectt-1200">n&#x003C;exp[Log(x/4)/k]</span>&#x00A0;<span 
class="ectt-1200">ou</span>&#x00A0;<span 
class="ectt-1200">x</span>&#x00A0;<span 
class="ectt-1200">est</span>&#x00A0;<span 
class="ectt-1200">la</span>&#x00A0;<span 
class="ectt-1200">RAM</span>&#x00A0;<span 
class="ectt-1200">disponible</span>&#x00A0;<span 
class="ectt-1200">en</span>&#x00A0;<span 
class="ectt-1200">octets.</span>
&#x00A0;<br />
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">//ordre</span>&#x00A0;<span 
class="ectt-1200">d&#x2019;arret</span>&#x00A0;<span 
class="ectt-1200">des</span>&#x00A0;<span 
class="ectt-1200">valeurs</span>&#x00A0;<span 
class="ectt-1200">propres:</span>&#x00A0;<span 
class="ectt-1200">astuce</span>&#x00A0;<span 
class="ectt-1200">qui</span>&#x00A0;<span 
class="ectt-1200">permet</span>&#x00A0;<span 
class="ectt-1200">d&#x2019;eliminer</span>&#x00A0;<span 
class="ectt-1200">une</span>&#x00A0;<span 
class="ectt-1200">partie</span>&#x00A0;<span 
class="ectt-1200">des</span>&#x00A0;<span 
class="ectt-1200">valeurs</span>&#x00A0;<span 
class="ectt-1200">propres</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">CardA=1</span>&#x00A0;<span 
class="ectt-1200">pouvant</span>
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">//ammener</span>&#x00A0;<span 
class="ectt-1200">a</span>&#x00A0;<span 
class="ectt-1200">des</span>&#x00A0;<span 
class="ectt-1200">valeurs</span>&#x00A0;<span 
class="ectt-1200">propres</span>&#x00A0;<span 
class="ectt-1200">trop</span>&#x00A0;<span 
class="ectt-1200">petites</span>&#x00A0;<span 
class="ectt-1200">(&#x003C;</span>&#x00A0;<span 
class="ectt-1200">a</span>&#x00A0;<span 
class="ectt-1200">10&#x0302;-critarret1)</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">CardA</span>&#x00A0;<span 
class="ectt-1200">quelconque.</span>
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">Narret=N;</span>
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">cout</span>&#x00A0;<span 
class="ectt-1200">&#x003C;&#x003C;</span>&#x00A0;<span 
class="ectt-1200">&#x0022;\ncritarret1</span>&#x00A0;<span 
class="ectt-1200">(un</span>&#x00A0;<span 
class="ectt-1200">entier</span>&#x00A0;<span 
class="ectt-1200">positif)</span>&#x00A0;<span 
class="ectt-1200">?</span>&#x00A0;<span 
class="ectt-1200">:</span>&#x00A0;<span 
class="ectt-1200">&#x0022;;</span>&#x00A0;<span 
class="ectt-1200">cin</span>&#x00A0;<span 
class="ectt-1200">&#x003E;&#x003E;</span>&#x00A0;<span 
class="ectt-1200">critarret1;</span>
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">for</span>&#x00A0;<span 
class="ectt-1200">(i=1;i&#x003C;=N;i=i+1)</span>&#x00A0;<span 
class="ectt-1200">{if</span>&#x00A0;<span 
class="ectt-1200">(pow(valp(1,1),CardA-1)*valp(i,1)&#x003C;pow(10,-critarret1))</span>&#x00A0;<span 
class="ectt-1200">{Narret=i;break;}}</span>
&#x00A0;<br />
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">cout</span>&#x00A0;<span 
class="ectt-1200">&#x003C;&#x003C;</span>&#x00A0;<span 
class="ectt-1200">&#x0022;\n</span>&#x00A0;<span 
class="ectt-1200">Nombre</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">valeurs</span>&#x00A0;<span 
class="ectt-1200">propres</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">CardA=1</span>&#x00A0;<span 
class="ectt-1200">selectionnees</span>&#x00A0;<span 
class="ectt-1200">(par</span>&#x00A0;<span 
class="ectt-1200">le</span>&#x00A0;<span 
class="ectt-1200">critere:</span>&#x00A0;<span 
class="ectt-1200">max{p}</span>&#x00A0;<span 
class="ectt-1200">tel</span>&#x00A0;<span 
class="ectt-1200">que</span>&#x00A0;<span 
class="ectt-1200">lambda_1&#x0302;(|A|-1)*lambda_p&#x003C;&#x0022;</span>&#x00A0;<span 
class="ectt-1200">&#x003C;&#x003C;</span>&#x00A0;<span 
class="ectt-1200">pow(10,-critarret1)</span>&#x00A0;<span 
class="ectt-1200">&#x003C;&#x003C;</span>&#x00A0;<span 
class="ectt-1200">&#x0022;)</span>&#x00A0;<span 
class="ectt-1200">\n&#x0022;;</span>
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">cout</span>&#x00A0;<span 
class="ectt-1200">&#x003C;&#x003C;</span>&#x00A0;<span 
class="ectt-1200">&#x0022;</span>&#x00A0;<span 
class="ectt-1200">pour</span>&#x00A0;<span 
class="ectt-1200">constituer</span>&#x00A0;<span 
class="ectt-1200">les</span>&#x00A0;<span 
class="ectt-1200">valeurs</span>&#x00A0;<span 
class="ectt-1200">propres</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">CardA&#x003E;1:</span>&#x00A0;<span 
class="ectt-1200">&#x0022;</span>&#x00A0;<span 
class="ectt-1200">&#x003C;&#x003C;</span>&#x00A0;<span 
class="ectt-1200">Narret</span>&#x00A0;<span 
class="ectt-1200">&#x003C;&#x003C;</span>&#x00A0;<span 
class="ectt-1200">&#x0022;</span>&#x00A0;<span 
class="ectt-1200">sur</span>&#x00A0;<span 
class="ectt-1200">&#x0022;</span>&#x00A0;<span 
class="ectt-1200">&#x003C;&#x003C;</span>&#x00A0;<span 
class="ectt-1200">N</span>&#x00A0;<span 
class="ectt-1200">&#x003C;&#x003C;</span>&#x00A0;<span 
class="ectt-1200">&#x0022;,\n&#x0022;;</span>
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">cout</span>&#x00A0;<span 
class="ectt-1200">&#x003C;&#x003C;</span>&#x00A0;<span 
class="ectt-1200">&#x0022;</span>&#x00A0;<span 
class="ectt-1200">ce</span>&#x00A0;<span 
class="ectt-1200">qui</span>&#x00A0;<span 
class="ectt-1200">donne</span>&#x00A0;<span 
class="ectt-1200">&#x0022;</span>&#x00A0;<span 
class="ectt-1200">&#x003C;&#x003C;</span>&#x00A0;<span 
class="ectt-1200">Narret</span>&#x00A0;<span 
class="ectt-1200">&#x003C;&#x003C;</span>&#x00A0;<span 
class="ectt-1200">&#x0022;&#x0302;&#x0022;</span>&#x00A0;<span 
class="ectt-1200">&#x003C;&#x003C;</span>&#x00A0;<span 
class="ectt-1200">CardA</span>&#x00A0;<span 
class="ectt-1200">&#x003C;&#x003C;</span>&#x00A0;<span 
class="ectt-1200">&#x0022;=&#x0022;</span>&#x00A0;<span 
class="ectt-1200">&#x003C;&#x003C;</span>&#x00A0;<span 
class="ectt-1200">(int)pow(Narret,CardA)</span>&#x00A0;<span 
class="ectt-1200">&#x003C;&#x003C;</span>&#x00A0;<span 
class="ectt-1200">&#x0022;</span>&#x00A0;<span 
class="ectt-1200">valeurs</span>&#x00A0;<span 
class="ectt-1200">propres</span>&#x00A0;<span 
class="ectt-1200">en</span>&#x00A0;<span 
class="ectt-1200">comptant</span>&#x00A0;<span 
class="ectt-1200">leur</span>&#x00A0;<span 
class="ectt-1200">&#x0022;;</span>
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">cout</span>&#x00A0;<span 
class="ectt-1200">&#x003C;&#x003C;</span>&#x00A0;<span 
class="ectt-1200">&#x0022;ordre</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">multiplicite</span>&#x00A0;<span 
class="ectt-1200">dans</span>&#x00A0;<span 
class="ectt-1200">le</span>&#x00A0;<span 
class="ectt-1200">cas</span>&#x00A0;<span 
class="ectt-1200">CardA&#x003E;1.\n&#x0022;;</span>
&#x00A0;<br />
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">N=Narret;</span>
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">count=nCm(N+CardA-1,CardA);</span>
&#x00A0;<br />
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">//permrepmat</span>&#x00A0;<span 
class="ectt-1200">est</span>&#x00A0;<span 
class="ectt-1200">un</span>&#x00A0;<span 
class="ectt-1200">tableau</span>&#x00A0;<span 
class="ectt-1200">a</span>&#x00A0;<span 
class="ectt-1200">count</span>&#x00A0;<span 
class="ectt-1200">lignes</span>&#x00A0;<span 
class="ectt-1200">et</span>&#x00A0;<span 
class="ectt-1200">CardA</span>&#x00A0;<span 
class="ectt-1200">colonnes</span>
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">permrepmat=new</span>&#x00A0;<span 
class="ectt-1200">int*[count];</span>
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">for</span>&#x00A0;<span 
class="ectt-1200">(i=0;i&#x003C;count;i=i+1)</span>&#x00A0;<span 
class="ectt-1200">permrepmat[i]=new</span>&#x00A0;<span 
class="ectt-1200">int[CardA];</span>
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">indicesperm=new</span>&#x00A0;<span 
class="ectt-1200">int[count];</span>
&#x00A0;<br />

&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">//Calcul</span>&#x00A0;<span 
class="ectt-1200">des</span>&#x00A0;<span 
class="ectt-1200">repetitions</span>&#x00A0;<span 
class="ectt-1200">et</span>&#x00A0;<span 
class="ectt-1200">des</span>&#x00A0;<span 
class="ectt-1200">indicesperm</span>&#x00A0;<span 
class="ectt-1200">donnant</span>&#x00A0;<span 
class="ectt-1200">le</span>&#x00A0;<span 
class="ectt-1200">nombre</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">foisqu&#x2019;il</span>&#x00A0;<span 
class="ectt-1200">faut</span>&#x00A0;<span 
class="ectt-1200">utiliser</span>&#x00A0;<span 
class="ectt-1200">chaque</span>&#x00A0;<span 
class="ectt-1200">combinaison</span>&#x00A0;<span 
class="ectt-1200">pour</span>&#x00A0;<span 
class="ectt-1200">obtenir</span>&#x00A0;<span 
class="ectt-1200">toutes</span>&#x00A0;<span 
class="ectt-1200">les</span>&#x00A0;<span 
class="ectt-1200">permutations</span>
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">//avec</span>&#x00A0;<span 
class="ectt-1200">repetitions</span>
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">permrep(permrepmat,indicesperm,N,CardA);</span>
&#x00A0;<br />
&#x00A0;<br />
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">//Calcul</span>&#x00A0;<span 
class="ectt-1200">des</span>&#x00A0;<span 
class="ectt-1200">valeurs</span>&#x00A0;<span 
class="ectt-1200">propres</span>&#x00A0;<span 
class="ectt-1200">(pas</span>&#x00A0;<span 
class="ectt-1200">forcement</span>&#x00A0;<span 
class="ectt-1200">distinctes)</span>&#x00A0;<span 
class="ectt-1200">dans</span>&#x00A0;<span 
class="ectt-1200">le</span>&#x00A0;<span 
class="ectt-1200">cas</span>&#x00A0;<span 
class="ectt-1200">CardA</span>&#x00A0;<span 
class="ectt-1200">quelconque</span>&#x00A0;<span 
class="ectt-1200">avec</span>&#x00A0;<span 
class="ectt-1200">leur</span>&#x00A0;<span 
class="ectt-1200">ordre</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">multiplicite.</span>
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">//Une</span>&#x00A0;<span 
class="ectt-1200">valeur</span>&#x00A0;<span 
class="ectt-1200">propre</span>&#x00A0;<span 
class="ectt-1200">avec</span>&#x00A0;<span 
class="ectt-1200">ordre</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">multiplicite</span>&#x00A0;<span 
class="ectt-1200">n1+n2</span>&#x00A0;<span 
class="ectt-1200">pourrait</span>&#x00A0;<span 
class="ectt-1200">etre</span>&#x00A0;<span 
class="ectt-1200">comptee</span>&#x00A0;<span 
class="ectt-1200">deux</span>&#x00A0;<span 
class="ectt-1200">fois,</span>&#x00A0;<span 
class="ectt-1200">la</span>&#x00A0;<span 
class="ectt-1200">premiere</span>&#x00A0;<span 
class="ectt-1200">avec</span>&#x00A0;<span 
class="ectt-1200">ordre</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">multiplicite</span>&#x00A0;<span 
class="ectt-1200">n1</span>&#x00A0;<span 
class="ectt-1200">et</span>&#x00A0;<span 
class="ectt-1200">la</span>&#x00A0;<span 
class="ectt-1200">deuxieme</span>
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">//avec</span>&#x00A0;<span 
class="ectt-1200">ordre</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">multiplicite</span>&#x00A0;<span 
class="ectt-1200">n2</span>
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">Matrix</span>&#x00A0;<span 
class="ectt-1200">valpA(count,1);</span>
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">valpA=1.0;</span>
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">Matrix</span>&#x00A0;<span 
class="ectt-1200">multiplicity(count,1);</span>
&#x00A0;<br />
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">for</span>&#x00A0;<span 
class="ectt-1200">(i=1;i&#x003C;=count;i=i+1)</span>&#x00A0;<span 
class="ectt-1200">{</span>
&#x00A0;<br />
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">multiplicity(i,1)=indicesperm[i-1];</span>
&#x00A0;<br />
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">for</span>&#x00A0;<span 
class="ectt-1200">(k=1;k&#x003C;=CardA;k=k+1)</span>&#x00A0;<span 
class="ectt-1200">{</span>
&#x00A0;<br />
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">valpA(i,1)=valpA(i,1)*valp(permrepmat[i-1][k-1],1);</span>
&#x00A0;<br />
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">}</span>
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">}</span>
&#x00A0;<br />
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">//On</span>&#x00A0;<span 
class="ectt-1200">a</span>&#x00A0;<span 
class="ectt-1200">plus</span>&#x00A0;<span 
class="ectt-1200">besoin</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">ces</span>&#x00A0;<span 
class="ectt-1200">tableaux</span>&#x00A0;<span 
class="ectt-1200">donc</span>&#x00A0;<span 
class="ectt-1200">on</span>&#x00A0;<span 
class="ectt-1200">les</span>&#x00A0;<span 
class="ectt-1200">decharge</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">la</span>&#x00A0;<span 
class="ectt-1200">memoire.</span>
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">delete</span>&#x00A0;<span 
class="ectt-1200">permrepmat;</span>
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">delete</span>&#x00A0;<span 
class="ectt-1200">indicesperm;</span>
&#x00A0;<br />
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">//Pour</span>&#x00A0;<span 
class="ectt-1200">verifier</span>&#x00A0;<span 
class="ectt-1200">que</span>&#x00A0;<span 
class="ectt-1200">la</span>&#x00A0;<span 
class="ectt-1200">somme</span>&#x00A0;<span 
class="ectt-1200">des</span>&#x00A0;<span 
class="ectt-1200">valeurs</span>&#x00A0;<span 
class="ectt-1200">propres</span>&#x00A0;<span 
class="ectt-1200">est</span>&#x00A0;<span 
class="ectt-1200">bien</span>&#x00A0;<span 
class="ectt-1200">egale</span>&#x00A0;<span 
class="ectt-1200">au</span>&#x00A0;<span 
class="ectt-1200">premier</span>&#x00A0;<span 
class="ectt-1200">cumulant</span>&#x00A0;<span 
class="ectt-1200">pour</span>&#x00A0;<span 
class="ectt-1200">CardA</span>&#x00A0;<span 
class="ectt-1200">quelconque</span>
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">//SP</span>&#x00A0;<span 
class="ectt-1200">est</span>&#x00A0;<span 
class="ectt-1200">le</span>&#x00A0;<span 
class="ectt-1200">produit</span>&#x00A0;<span 
class="ectt-1200">terme</span>&#x00A0;<span 
class="ectt-1200">a</span>&#x00A0;<span 
class="ectt-1200">terme</span>
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">cout</span>&#x00A0;<span 
class="ectt-1200">&#x003C;&#x003C;</span>&#x00A0;<span 
class="ectt-1200">&#x0022;\n</span>&#x00A0;<span 
class="ectt-1200">La</span>&#x00A0;<span 
class="ectt-1200">somme</span>&#x00A0;<span 
class="ectt-1200">des</span>&#x00A0;<span 
class="ectt-1200">valeurs</span>&#x00A0;<span 
class="ectt-1200">propres</span>&#x00A0;<span 
class="ectt-1200">pour</span>&#x00A0;<span 
class="ectt-1200">|A|=&#x0022;</span>&#x00A0;<span 
class="ectt-1200">&#x003C;&#x003C;</span>&#x00A0;<span 
class="ectt-1200">CardA</span>&#x00A0;<span 
class="ectt-1200">&#x003C;&#x003C;</span>&#x00A0;<span 
class="ectt-1200">&#x0022;</span>&#x00A0;<span 
class="ectt-1200">(qui</span>&#x00A0;<span 
class="ectt-1200">doit</span>&#x00A0;<span 
class="ectt-1200">etre</span>&#x00A0;<span 
class="ectt-1200">egale</span>&#x00A0;<span 
class="ectt-1200">au</span>&#x00A0;<span 
class="ectt-1200">premier</span>&#x00A0;<span 
class="ectt-1200">cumulant</span>&#x00A0;<span 
class="ectt-1200">pour</span>&#x00A0;<span 
class="ectt-1200">|A|=&#x0022;</span>&#x00A0;<span 
class="ectt-1200">&#x003C;&#x003C;</span>&#x00A0;<span 
class="ectt-1200">CardA</span>&#x00A0;<span 
class="ectt-1200">&#x003C;&#x003C;</span>&#x00A0;<span 
class="ectt-1200">&#x0022;)</span>&#x00A0;<span 
class="ectt-1200">vaut:\n</span>&#x00A0;<span 
class="ectt-1200">&#x0022;;</span>
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">cout</span>&#x00A0;<span 
class="ectt-1200">&#x003C;&#x003C;</span>&#x00A0;<span 
class="ectt-1200">setprecision(8)</span>&#x00A0;<span 
class="ectt-1200">&#x003C;&#x003C;</span>&#x00A0;<span 
class="ectt-1200">(SP(valpA,multiplicity)).Sum()</span>&#x00A0;<span 
class="ectt-1200">&#x003C;&#x003C;</span>&#x00A0;<span 
class="ectt-1200">&#x0022;\n&#x0022;;</span>
&#x00A0;<br />
&#x00A0;<br />
&#x00A0;<br />
&#x00A0;<br />
&#x00A0;<br />
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">//On</span>&#x00A0;<span 
class="ectt-1200">classe</span>&#x00A0;<span 
class="ectt-1200">les</span>&#x00A0;<span 
class="ectt-1200">valeurs</span>&#x00A0;<span 
class="ectt-1200">propres</span>&#x00A0;<span 
class="ectt-1200">par</span>&#x00A0;<span 
class="ectt-1200">ordre</span>&#x00A0;<span 
class="ectt-1200">decroissant</span>&#x00A0;<span 
class="ectt-1200">et</span>&#x00A0;<span 
class="ectt-1200">on</span>&#x00A0;<span 
class="ectt-1200">reordonne</span>&#x00A0;<span 
class="ectt-1200">les</span>&#x00A0;<span 
class="ectt-1200">multiplicite</span>&#x00A0;<span 
class="ectt-1200">en</span>&#x00A0;<span 
class="ectt-1200">consequence</span>
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">Matrix</span>&#x00A0;<span 
class="ectt-1200">indicescl(count,1);</span>
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">int</span>&#x00A0;<span 
class="ectt-1200">*IRANK;</span>
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">IRANK=new</span>&#x00A0;<span 
class="ectt-1200">int[count];</span>
&#x00A0;<br />
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">rank(valpA,&#x0022;d&#x0022;,IRANK);</span>
&#x00A0;<br />

&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">for</span>&#x00A0;<span 
class="ectt-1200">(i=1;i&#x003C;=count;i=i+1)</span>&#x00A0;<span 
class="ectt-1200">indicescl(*(IRANK+i-1),1)=multiplicity(i,1);</span>
&#x00A0;<br />
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">//On</span>&#x00A0;<span 
class="ectt-1200">a</span>&#x00A0;<span 
class="ectt-1200">plus</span>&#x00A0;<span 
class="ectt-1200">besoin</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">ce</span>&#x00A0;<span 
class="ectt-1200">tableau</span>&#x00A0;<span 
class="ectt-1200">donc</span>&#x00A0;<span 
class="ectt-1200">on</span>&#x00A0;<span 
class="ectt-1200">le</span>&#x00A0;<span 
class="ectt-1200">decharge</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">la</span>&#x00A0;<span 
class="ectt-1200">memoire</span>
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">delete</span>&#x00A0;<span 
class="ectt-1200">IRANK;</span>
&#x00A0;<br />
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">SortDescending(valpA);</span>
&#x00A0;<br />
&#x00A0;<br />
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">N=count;</span>
&#x00A0;<br />
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">//Classement</span>&#x00A0;<span 
class="ectt-1200">et</span>&#x00A0;<span 
class="ectt-1200">comptage</span>&#x00A0;<span 
class="ectt-1200">des</span>&#x00A0;<span 
class="ectt-1200">valeurs</span>&#x00A0;<span 
class="ectt-1200">propres</span>&#x00A0;<span 
class="ectt-1200">distinctes,</span>&#x00A0;<span 
class="ectt-1200">et</span>&#x00A0;<span 
class="ectt-1200">calcul</span>&#x00A0;<span 
class="ectt-1200">du</span>&#x00A0;<span 
class="ectt-1200">veritable</span>&#x00A0;<span 
class="ectt-1200">ordre</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">multiplicite</span>
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">Matrix</span>&#x00A0;<span 
class="ectt-1200">valdistemp(N,1);</span>
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">Matrix</span>&#x00A0;<span 
class="ectt-1200">indicestemp(N,1);</span>
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">indicestemp=0.0;</span>
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">valdistemp(1,1)=valpA(1,1);</span>
&#x00A0;<br />
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">j=1;</span>
&#x00A0;<br />
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">//ce</span>&#x00A0;<span 
class="ectt-1200">critere</span>&#x00A0;<span 
class="ectt-1200">permet</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">selectionner</span>&#x00A0;<span 
class="ectt-1200">les</span>&#x00A0;<span 
class="ectt-1200">valeurs</span>&#x00A0;<span 
class="ectt-1200">propres</span>&#x00A0;<span 
class="ectt-1200">distinctes</span>&#x00A0;<span 
class="ectt-1200">(dans</span>&#x00A0;<span 
class="ectt-1200">le</span>&#x00A0;<span 
class="ectt-1200">sens</span>&#x00A0;<span 
class="ectt-1200">que</span>&#x00A0;<span 
class="ectt-1200">leur</span>&#x00A0;<span 
class="ectt-1200">difference</span>&#x00A0;<span 
class="ectt-1200">en</span>&#x00A0;<span 
class="ectt-1200">valeur</span>&#x00A0;<span 
class="ectt-1200">absolue</span>&#x00A0;<span 
class="ectt-1200">est</span>&#x00A0;<span 
class="ectt-1200">inferieure</span>&#x00A0;<span 
class="ectt-1200">a</span>&#x00A0;<span 
class="ectt-1200">10&#x0302;(-critarret2))</span>
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">//et</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">laisser</span>&#x00A0;<span 
class="ectt-1200">tomber</span>&#x00A0;<span 
class="ectt-1200">les</span>&#x00A0;<span 
class="ectt-1200">plus</span>&#x00A0;<span 
class="ectt-1200">petites</span>&#x00A0;<span 
class="ectt-1200">a</span>&#x00A0;<span 
class="ectt-1200">10&#x0302;(-precis)</span>&#x00A0;<span 
class="ectt-1200">pres.</span>&#x00A0;<span 
class="ectt-1200">Elles</span>&#x00A0;<span 
class="ectt-1200">seront</span>&#x00A0;<span 
class="ectt-1200">encore</span>&#x00A0;<span 
class="ectt-1200">classees</span>&#x00A0;<span 
class="ectt-1200">par</span>&#x00A0;<span 
class="ectt-1200">ordre</span>&#x00A0;<span 
class="ectt-1200">decroissant.</span>
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">//ce</span>&#x00A0;<span 
class="ectt-1200">critere</span>&#x00A0;<span 
class="ectt-1200">permet</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">limiter</span>&#x00A0;<span 
class="ectt-1200">le</span>&#x00A0;<span 
class="ectt-1200">nombre</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">valeurs</span>&#x00A0;<span 
class="ectt-1200">propres</span>&#x00A0;<span 
class="ectt-1200">qui</span>&#x00A0;<span 
class="ectt-1200">vont</span>&#x00A0;<span 
class="ectt-1200">rentrer</span>&#x00A0;<span 
class="ectt-1200">dans</span>&#x00A0;<span 
class="ectt-1200">la</span>&#x00A0;<span 
class="ectt-1200">procedure</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">Imhof</span>&#x00A0;<span 
class="ectt-1200">et</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">Davies</span>
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">int</span>&#x00A0;<span 
class="ectt-1200">critarret2;</span>
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">cout</span>&#x00A0;<span 
class="ectt-1200">&#x003C;&#x003C;</span>&#x00A0;<span 
class="ectt-1200">&#x0022;\ncritarret2</span>&#x00A0;<span 
class="ectt-1200">(un</span>&#x00A0;<span 
class="ectt-1200">entier</span>&#x00A0;<span 
class="ectt-1200">positif)</span>&#x00A0;<span 
class="ectt-1200">?</span>&#x00A0;<span 
class="ectt-1200">:</span>&#x00A0;<span 
class="ectt-1200">&#x0022;;</span>&#x00A0;<span 
class="ectt-1200">cin</span>&#x00A0;<span 
class="ectt-1200">&#x003E;&#x003E;</span>&#x00A0;<span 
class="ectt-1200">critarret2;</span>
&#x00A0;<br />
&#x00A0;<br />
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">for</span>&#x00A0;<span 
class="ectt-1200">(i=1;i&#x003C;=N-1;i=i+1)</span>
&#x00A0;<br />
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">{</span>
&#x00A0;<br />
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">if</span>&#x00A0;<span 
class="ectt-1200">(valpA(i,1)&#x003E;=pow(10.0,-critarret2))</span>
&#x00A0;<br />
&#x00A0;<br />&#x00A0;<span 
class="ectt-1200">{</span>
&#x00A0;<br />
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">if</span>&#x00A0;<span 
class="ectt-1200">(fabs(valpA(i,1)-valpA(i+1,1))&#x003E;=pow(10.0,-critarret2))</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">{</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">valdistemp(j,1)=valpA(i,1);</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">indicestemp(j,1)=indicestemp(j,1)+indicescl(i,1);</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">j=j+1;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">}</span>
&#x00A0;<br />
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">if</span>&#x00A0;<span 
class="ectt-1200">(fabs(valpA(i,1)-valpA(i+1,1))&#x003C;pow(10.0,-critarret2))</span>&#x00A0;<span 
class="ectt-1200">indicestemp(j,1)=indicestemp(j,1)+indicescl(i,1);</span>
&#x00A0;<br />
&#x00A0;<br />&#x00A0;<span 
class="ectt-1200">}</span>

&#x00A0;<br />
&#x00A0;<br />
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">}</span>
&#x00A0;<br />
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">//r</span>&#x00A0;<span 
class="ectt-1200">represente</span>&#x00A0;<span 
class="ectt-1200">le</span>&#x00A0;<span 
class="ectt-1200">nombre</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">valeurs</span>&#x00A0;<span 
class="ectt-1200">propres</span>&#x00A0;<span 
class="ectt-1200">distinctes</span>&#x00A0;<span 
class="ectt-1200">selectionnees</span>
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">int</span>&#x00A0;<span 
class="ectt-1200">r;</span>
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">r=j-1;</span>
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">Matrix</span>&#x00A0;<span 
class="ectt-1200">valpdist(r,1);</span>
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">Matrix</span>&#x00A0;<span 
class="ectt-1200">indices(r,1);</span>
&#x00A0;<br />
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">for</span>&#x00A0;<span 
class="ectt-1200">(i=1;i&#x003C;=r;i=i+1)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">{</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">valpdist(i,1)=valdistemp(i,1);</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">indices(i,1)=indicestemp(i,1);</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">}</span>
&#x00A0;<br />
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">cout</span>&#x00A0;<span 
class="ectt-1200">&#x003C;&#x003C;</span>&#x00A0;<span 
class="ectt-1200">&#x0022;\n\n</span>&#x00A0;<span 
class="ectt-1200">Nombre</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">valeurs</span>&#x00A0;<span 
class="ectt-1200">propres</span>&#x00A0;<span 
class="ectt-1200">distinctes</span>&#x00A0;<span 
class="ectt-1200">et</span>&#x00A0;<span 
class="ectt-1200">superieures</span>&#x00A0;<span 
class="ectt-1200">a</span>&#x00A0;<span 
class="ectt-1200">&#x0022;</span>&#x00A0;<span 
class="ectt-1200">&#x003C;&#x003C;</span>&#x00A0;<span 
class="ectt-1200">pow(10.0,-critarret2)</span>&#x00A0;<span 
class="ectt-1200">&#x003C;&#x003C;</span>&#x00A0;<span 
class="ectt-1200">&#x0022;</span>&#x00A0;<span 
class="ectt-1200">selectionnees:</span>&#x00A0;<span 
class="ectt-1200">&#x0022;</span>&#x00A0;<span 
class="ectt-1200">&#x003C;&#x003C;</span>&#x00A0;<span 
class="ectt-1200">r</span>&#x00A0;<span 
class="ectt-1200">&#x003C;&#x003C;</span>&#x00A0;<span 
class="ectt-1200">&#x0022;</span>&#x00A0;<span 
class="ectt-1200">sur</span>&#x00A0;<span 
class="ectt-1200">&#x0022;</span>&#x00A0;<span 
class="ectt-1200">&#x003C;&#x003C;</span>&#x00A0;<span 
class="ectt-1200">(int)pow(Narret,CardA)</span>&#x00A0;<span 
class="ectt-1200">&#x003C;&#x003C;</span>&#x00A0;<span 
class="ectt-1200">&#x0022;\n&#x0022;;</span>
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">cout</span>&#x00A0;<span 
class="ectt-1200">&#x003C;&#x003C;&#x0022;</span>&#x00A0;<span 
class="ectt-1200">Nombre</span>&#x00A0;<span 
class="ectt-1200">total</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">valeurs</span>&#x00A0;<span 
class="ectt-1200">propres</span>&#x00A0;<span 
class="ectt-1200">en</span>&#x00A0;<span 
class="ectt-1200">comptant</span>&#x00A0;<span 
class="ectt-1200">leur</span>&#x00A0;<span 
class="ectt-1200">ordre</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">multiplicite:</span>&#x00A0;<span 
class="ectt-1200">&#x0022;&#x003C;&#x003C;indices.Sum()</span>&#x00A0;<span 
class="ectt-1200">&#x003C;&#x003C;</span>&#x00A0;<span 
class="ectt-1200">&#x0022;\n&#x0022;;</span>
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">cout</span>&#x00A0;<span 
class="ectt-1200">&#x003C;&#x003C;</span>&#x00A0;<span 
class="ectt-1200">setprecision(8)</span>&#x00A0;<span 
class="ectt-1200">&#x003C;&#x003C;</span>&#x00A0;<span 
class="ectt-1200">&#x0022;</span>&#x00A0;<span 
class="ectt-1200">Somme</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">ces</span>&#x00A0;<span 
class="ectt-1200">valeurs</span>&#x00A0;<span 
class="ectt-1200">propres:</span>&#x00A0;<span 
class="ectt-1200">&#x0022;</span>&#x00A0;<span 
class="ectt-1200">&#x003C;&#x003C;</span>&#x00A0;<span 
class="ectt-1200">(SP(valpdist,indices)).Sum()</span>&#x00A0;<span 
class="ectt-1200">&#x003C;&#x003C;</span>&#x00A0;<span 
class="ectt-1200">&#x0022;\n&#x0022;;</span>
&#x00A0;<br />
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">//-----------------------------------------------------------------------------</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">//APPLICATION</span>&#x00A0;<span 
class="ectt-1200">DE</span>&#x00A0;<span 
class="ectt-1200">LA</span>&#x00A0;<span 
class="ectt-1200">METHODE</span>&#x00A0;<span 
class="ectt-1200">DE</span>&#x00A0;<span 
class="ectt-1200">DAVIES</span>&#x00A0;<span 
class="ectt-1200">(1973,1980)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">//-----------------------------------------------------------------------------</span>
&#x00A0;<br />
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">//Valeur</span>&#x00A0;<span 
class="ectt-1200">z</span>&#x00A0;<span 
class="ectt-1200">du</span>&#x00A0;<span 
class="ectt-1200">quantile</span>&#x00A0;<span 
class="ectt-1200">pour</span>&#x00A0;<span 
class="ectt-1200">lequel</span>&#x00A0;<span 
class="ectt-1200">on</span>&#x00A0;<span 
class="ectt-1200">souhaite</span>&#x00A0;<span 
class="ectt-1200">obtenir</span>&#x00A0;<span 
class="ectt-1200">la</span>&#x00A0;<span 
class="ectt-1200">probabilite</span>&#x00A0;<span 
class="ectt-1200">P[R&#x003C;z]</span>
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">//avec</span>&#x00A0;<span 
class="ectt-1200">R=(Q-cumulQA(1))/sqrt(cumulQA(2))</span>
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">//On</span>&#x00A0;<span 
class="ectt-1200">a</span>&#x00A0;<span 
class="ectt-1200">P[R&#x003C;=z]=P[Q&#x003C;=z*sqrt(cumulQA(2))+cumulQA(1)]</span>
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">//Si</span>&#x00A0;<span 
class="ectt-1200">on</span>&#x00A0;<span 
class="ectt-1200">met</span>&#x00A0;<span 
class="ectt-1200">z=quantRA;</span>&#x00A0;<span 
class="ectt-1200">on</span>&#x00A0;<span 
class="ectt-1200">peut</span>&#x00A0;<span 
class="ectt-1200">verifier</span>&#x00A0;<span 
class="ectt-1200">que</span>&#x00A0;<span 
class="ectt-1200">le</span>&#x00A0;<span 
class="ectt-1200">calcul</span>&#x00A0;<span 
class="ectt-1200">du</span>&#x00A0;<span 
class="ectt-1200">quantile</span>&#x00A0;<span 
class="ectt-1200">effectue</span>&#x00A0;<span 
class="ectt-1200">plus</span>&#x00A0;<span 
class="ectt-1200">haut</span>
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">//et</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">la</span>&#x00A0;<span 
class="ectt-1200">probabilite</span>&#x00A0;<span 
class="ectt-1200">P[r&#x003C;z]</span>&#x00A0;<span 
class="ectt-1200">effectue</span>&#x00A0;<span 
class="ectt-1200">plus</span>&#x00A0;<span 
class="ectt-1200">bas</span>&#x00A0;<span 
class="ectt-1200">donnent</span>&#x00A0;<span 
class="ectt-1200">les</span>&#x00A0;<span 
class="ectt-1200">memes</span>&#x00A0;<span 
class="ectt-1200">resultats</span>
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">z=quantRA;</span>
&#x00A0;<br />
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">//Valeur</span>&#x00A0;<span 
class="ectt-1200">x</span>&#x00A0;<span 
class="ectt-1200">du</span>&#x00A0;<span 
class="ectt-1200">quantile</span>&#x00A0;<span 
class="ectt-1200">pour</span>&#x00A0;<span 
class="ectt-1200">lequel</span>&#x00A0;<span 
class="ectt-1200">on</span>&#x00A0;<span 
class="ectt-1200">souhaite</span>&#x00A0;<span 
class="ectt-1200">obtenir</span>&#x00A0;<span 
class="ectt-1200">la</span>&#x00A0;<span 
class="ectt-1200">probabilite</span>&#x00A0;<span 
class="ectt-1200">P[Q&#x003C;x]</span>
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">//Si</span>&#x00A0;<span 
class="ectt-1200">on</span>&#x00A0;<span 
class="ectt-1200">met</span>&#x00A0;<span 
class="ectt-1200">x=quantQA;</span>&#x00A0;<span 
class="ectt-1200">on</span>&#x00A0;<span 
class="ectt-1200">peut</span>&#x00A0;<span 
class="ectt-1200">verifier</span>&#x00A0;<span 
class="ectt-1200">que</span>&#x00A0;<span 
class="ectt-1200">le</span>&#x00A0;<span 
class="ectt-1200">calcul</span>&#x00A0;<span 
class="ectt-1200">du</span>&#x00A0;<span 
class="ectt-1200">quantile</span>&#x00A0;<span 
class="ectt-1200">effectue</span>&#x00A0;<span 
class="ectt-1200">plus</span>&#x00A0;<span 
class="ectt-1200">haut</span>
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">//et</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">la</span>&#x00A0;<span 
class="ectt-1200">probabilite</span>&#x00A0;<span 
class="ectt-1200">P[Q&#x003C;x]</span>&#x00A0;<span 
class="ectt-1200">effectue</span>&#x00A0;<span 
class="ectt-1200">plus</span>&#x00A0;<span 
class="ectt-1200">bas</span>&#x00A0;<span 
class="ectt-1200">donnent</span>&#x00A0;<span 
class="ectt-1200">les</span>&#x00A0;<span 
class="ectt-1200">memes</span>&#x00A0;<span 
class="ectt-1200">resultats</span>
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">x=quantQA;</span>
&#x00A0;<br />
&#x00A0;<br />
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">int</span>&#x00A0;<span 
class="ectt-1200">lim;</span>&#x00A0;<span 
class="ectt-1200">real</span>&#x00A0;<span 
class="ectt-1200">c,sigma,acc;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">real</span>&#x00A0;<span 
class="ectt-1200">*lambda,</span>&#x00A0;<span 
class="ectt-1200">*noncen;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">int</span>&#x00A0;<span 
class="ectt-1200">*n;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">real</span>&#x00A0;<span 
class="ectt-1200">ansQ,</span>&#x00A0;<span 
class="ectt-1200">ansR;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">int</span>&#x00A0;<span 
class="ectt-1200">*fault;</span>&#x00A0;<span 
class="ectt-1200">real</span>&#x00A0;<span 
class="ectt-1200">*trace;</span>
&#x00A0;<br />

&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">sigma=0.0;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">lim=1000;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">acc=0.0001;</span>
&#x00A0;<br />
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">lambda=new</span>&#x00A0;<span 
class="ectt-1200">real[r];</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">noncen=new</span>&#x00A0;<span 
class="ectt-1200">real[r];</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">trace=new</span>&#x00A0;<span 
class="ectt-1200">real[7];</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">n=new</span>&#x00A0;<span 
class="ectt-1200">int[r];</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">fault=new</span>&#x00A0;<span 
class="ectt-1200">int[6];</span>
&#x00A0;<br />
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">for</span>&#x00A0;<span 
class="ectt-1200">(</span>&#x00A0;<span 
class="ectt-1200">i</span>&#x00A0;<span 
class="ectt-1200">=</span>&#x00A0;<span 
class="ectt-1200">0;</span>&#x00A0;<span 
class="ectt-1200">i&#x003C;r;</span>&#x00A0;<span 
class="ectt-1200">i++)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">{</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">*(noncen+i)=0.0;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">*(n+i)=(int)indices(i+1,1);</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">*(lambda+i)=valpdist(i+1,1);</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">}</span>
&#x00A0;<br />
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">cout</span>&#x00A0;<span 
class="ectt-1200">&#x003C;&#x003C;</span>&#x00A0;<span 
class="ectt-1200">&#x0022;\n</span>&#x00A0;<span 
class="ectt-1200">La</span>&#x00A0;<span 
class="ectt-1200">methode</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">Robert</span>&#x00A0;<span 
class="ectt-1200">Davies</span>&#x00A0;<span 
class="ectt-1200">(1973,1980)</span>&#x00A0;<span 
class="ectt-1200">donne:\n&#x0022;;</span>
&#x00A0;<br />
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">c=x;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">ansQ=qfdavies(lambda,</span>&#x00A0;<span 
class="ectt-1200">noncen,</span>&#x00A0;<span 
class="ectt-1200">n,</span>&#x00A0;<span 
class="ectt-1200">r,</span>&#x00A0;<span 
class="ectt-1200">sigma,</span>&#x00A0;<span 
class="ectt-1200">c,</span>&#x00A0;<span 
class="ectt-1200">lim,</span>&#x00A0;<span 
class="ectt-1200">acc,</span>&#x00A0;<span 
class="ectt-1200">trace,</span>&#x00A0;<span 
class="ectt-1200">fault);</span>
&#x00A0;<br />
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">cout</span>&#x00A0;<span 
class="ectt-1200">&#x003C;&#x003C;</span>&#x00A0;<span 
class="ectt-1200">setprecision(8)</span>&#x00A0;<span 
class="ectt-1200">&#x003C;&#x003C;</span>&#x00A0;<span 
class="ectt-1200">&#x0022;</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">x:</span>&#x00A0;<span 
class="ectt-1200">&#x0022;</span>&#x00A0;<span 
class="ectt-1200">&#x003C;&#x003C;</span>&#x00A0;<span 
class="ectt-1200">x</span>&#x00A0;&#x00A0;<span 
class="ectt-1200">&#x003C;&#x003C;</span>&#x00A0;<span 
class="ectt-1200">&#x0022;</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">P[Q&#x003C;x]:</span>&#x00A0;<span 
class="ectt-1200">&#x0022;</span>&#x00A0;<span 
class="ectt-1200">&#x003C;&#x003C;</span>&#x00A0;<span 
class="ectt-1200">ansQ</span>&#x00A0;<span 
class="ectt-1200">&#x003C;&#x003C;</span>&#x00A0;<span 
class="ectt-1200">&#x0022;\n&#x0022;;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">cout</span>&#x00A0;<span 
class="ectt-1200">&#x003C;&#x003C;</span>&#x00A0;<span 
class="ectt-1200">setprecision(8)</span>&#x00A0;<span 
class="ectt-1200">&#x003C;&#x003C;</span>&#x00A0;<span 
class="ectt-1200">&#x0022;</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">FAULT:</span>&#x00A0;<span 
class="ectt-1200">&#x0022;</span>&#x00A0;<span 
class="ectt-1200">&#x003C;&#x003C;</span>&#x00A0;<span 
class="ectt-1200">*fault</span>&#x00A0;<span 
class="ectt-1200">&#x003C;&#x003C;</span>&#x00A0;<span 
class="ectt-1200">&#x0022;\n&#x0022;;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">cout</span>&#x00A0;<span 
class="ectt-1200">&#x003C;&#x003C;</span>&#x00A0;<span 
class="ectt-1200">setprecision(8)</span>&#x00A0;<span 
class="ectt-1200">&#x003C;&#x003C;</span>&#x00A0;<span 
class="ectt-1200">&#x0022;</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">trace:</span>&#x00A0;<span 
class="ectt-1200">&#x0022;</span>&#x00A0;<span 
class="ectt-1200">&#x003C;&#x003C;</span>&#x00A0;<span 
class="ectt-1200">trace[0]</span>&#x00A0;<span 
class="ectt-1200">&#x003C;&#x003C;</span>&#x00A0;<span 
class="ectt-1200">&#x0022;</span>&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">&#x0022;</span>&#x00A0;<span 
class="ectt-1200">&#x003C;&#x003C;</span>&#x00A0;<span 
class="ectt-1200">trace[1]</span>&#x00A0;<span 
class="ectt-1200">&#x003C;&#x003C;</span>&#x00A0;<span 
class="ectt-1200">&#x0022;</span>&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">&#x0022;</span>&#x00A0;<span 
class="ectt-1200">&#x003C;&#x003C;</span>&#x00A0;<span 
class="ectt-1200">trace[2]</span>&#x00A0;<span 
class="ectt-1200">&#x003C;&#x003C;</span>&#x00A0;<span 
class="ectt-1200">&#x0022;</span>&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">&#x0022;</span>&#x00A0;<span 
class="ectt-1200">&#x003C;&#x003C;</span>&#x00A0;<span 
class="ectt-1200">trace[3]</span>&#x00A0;<span 
class="ectt-1200">&#x003C;&#x003C;</span>&#x00A0;<span 
class="ectt-1200">&#x0022;</span>&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">&#x0022;</span>&#x00A0;<span 
class="ectt-1200">&#x003C;&#x003C;</span>&#x00A0;<span 
class="ectt-1200">trace[4]</span>&#x00A0;<span 
class="ectt-1200">&#x003C;&#x003C;</span>&#x00A0;<span 
class="ectt-1200">&#x0022;</span>&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">&#x0022;</span>&#x00A0;<span 
class="ectt-1200">&#x003C;&#x003C;</span>&#x00A0;<span 
class="ectt-1200">trace[5]</span>&#x00A0;<span 
class="ectt-1200">&#x003C;&#x003C;</span>&#x00A0;<span 
class="ectt-1200">&#x0022;</span>&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">&#x0022;</span>&#x00A0;<span 
class="ectt-1200">&#x003C;&#x003C;</span>&#x00A0;<span 
class="ectt-1200">trace[6]</span>&#x00A0;<span 
class="ectt-1200">&#x003C;&#x003C;</span>&#x00A0;<span 
class="ectt-1200">&#x0022;\n&#x0022;;</span>
&#x00A0;<br />
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">c=z*sqrt(cumulQA(2,1))+cumulQA(1,1);</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">ansR=qfdavies(lambda,</span>&#x00A0;<span 
class="ectt-1200">noncen,</span>&#x00A0;<span 
class="ectt-1200">n,</span>&#x00A0;<span 
class="ectt-1200">r,</span>&#x00A0;<span 
class="ectt-1200">sigma,</span>&#x00A0;<span 
class="ectt-1200">c,</span>&#x00A0;<span 
class="ectt-1200">lim,</span>&#x00A0;<span 
class="ectt-1200">acc,</span>&#x00A0;<span 
class="ectt-1200">trace,</span>&#x00A0;<span 
class="ectt-1200">fault);</span>
&#x00A0;<br />
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">cout</span>&#x00A0;<span 
class="ectt-1200">&#x003C;&#x003C;</span>&#x00A0;<span 
class="ectt-1200">setprecision(8)</span>&#x00A0;<span 
class="ectt-1200">&#x003C;&#x003C;</span>&#x00A0;<span 
class="ectt-1200">&#x0022;\n</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">z:</span>&#x00A0;<span 
class="ectt-1200">&#x0022;</span>&#x00A0;<span 
class="ectt-1200">&#x003C;&#x003C;</span>&#x00A0;<span 
class="ectt-1200">z</span>&#x00A0;<span 
class="ectt-1200">&#x003C;&#x003C;</span>&#x00A0;<span 
class="ectt-1200">&#x0022;</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">P[R&#x003C;z]:</span>&#x00A0;<span 
class="ectt-1200">&#x0022;</span>&#x00A0;<span 
class="ectt-1200">&#x003C;&#x003C;</span>&#x00A0;<span 
class="ectt-1200">ansR</span>&#x00A0;<span 
class="ectt-1200">&#x003C;&#x003C;</span>&#x00A0;<span 
class="ectt-1200">&#x0022;\n&#x0022;;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">cout</span>&#x00A0;<span 
class="ectt-1200">&#x003C;&#x003C;</span>&#x00A0;<span 
class="ectt-1200">setprecision(8)</span>&#x00A0;<span 
class="ectt-1200">&#x003C;&#x003C;</span>&#x00A0;<span 
class="ectt-1200">&#x0022;</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">FAULT:</span>&#x00A0;<span 
class="ectt-1200">&#x0022;</span>&#x00A0;<span 
class="ectt-1200">&#x003C;&#x003C;</span>&#x00A0;<span 
class="ectt-1200">*fault</span>&#x00A0;<span 
class="ectt-1200">&#x003C;&#x003C;</span>&#x00A0;<span 
class="ectt-1200">&#x0022;\n&#x0022;;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">cout</span>&#x00A0;<span 
class="ectt-1200">&#x003C;&#x003C;</span>&#x00A0;<span 
class="ectt-1200">setprecision(8)</span>&#x00A0;<span 
class="ectt-1200">&#x003C;&#x003C;</span>&#x00A0;<span 
class="ectt-1200">&#x0022;</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">trace:</span>&#x00A0;<span 
class="ectt-1200">&#x0022;</span>&#x00A0;<span 
class="ectt-1200">&#x003C;&#x003C;</span>&#x00A0;<span 
class="ectt-1200">trace[0]</span>&#x00A0;<span 
class="ectt-1200">&#x003C;&#x003C;</span>&#x00A0;<span 
class="ectt-1200">&#x0022;</span>&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">&#x0022;</span>&#x00A0;<span 
class="ectt-1200">&#x003C;&#x003C;</span>&#x00A0;<span 
class="ectt-1200">trace[1]</span>&#x00A0;<span 
class="ectt-1200">&#x003C;&#x003C;</span>&#x00A0;<span 
class="ectt-1200">&#x0022;</span>&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">&#x0022;</span>&#x00A0;<span 
class="ectt-1200">&#x003C;&#x003C;</span>&#x00A0;<span 
class="ectt-1200">trace[2]</span>&#x00A0;<span 
class="ectt-1200">&#x003C;&#x003C;</span>&#x00A0;<span 
class="ectt-1200">&#x0022;</span>&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">&#x0022;</span>&#x00A0;<span 
class="ectt-1200">&#x003C;&#x003C;</span>&#x00A0;<span 
class="ectt-1200">trace[3]</span>&#x00A0;<span 
class="ectt-1200">&#x003C;&#x003C;</span>&#x00A0;<span 
class="ectt-1200">&#x0022;</span>&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">&#x0022;</span>&#x00A0;<span 
class="ectt-1200">&#x003C;&#x003C;</span>&#x00A0;<span 
class="ectt-1200">trace[4]</span>&#x00A0;<span 
class="ectt-1200">&#x003C;&#x003C;</span>&#x00A0;<span 
class="ectt-1200">&#x0022;</span>&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">&#x0022;</span>&#x00A0;<span 
class="ectt-1200">&#x003C;&#x003C;</span>&#x00A0;<span 
class="ectt-1200">trace[5]</span>&#x00A0;<span 
class="ectt-1200">&#x003C;&#x003C;</span>&#x00A0;<span 
class="ectt-1200">&#x0022;</span>&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">&#x0022;</span>&#x00A0;<span 
class="ectt-1200">&#x003C;&#x003C;</span>&#x00A0;<span 
class="ectt-1200">trace[6]</span>&#x00A0;<span 
class="ectt-1200">&#x003C;&#x003C;</span>&#x00A0;<span 
class="ectt-1200">&#x0022;\n&#x0022;;</span>
&#x00A0;<br />
&#x00A0;<br />
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">//on</span>&#x00A0;<span 
class="ectt-1200">n&#x2019;a</span>&#x00A0;<span 
class="ectt-1200">plus</span>&#x00A0;<span 
class="ectt-1200">besoin</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">ces</span>&#x00A0;<span 
class="ectt-1200">tableaux</span>&#x00A0;<span 
class="ectt-1200">donc</span>&#x00A0;<span 
class="ectt-1200">on</span>&#x00A0;<span 
class="ectt-1200">les</span>&#x00A0;<span 
class="ectt-1200">decharge</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">la</span>&#x00A0;<span 
class="ectt-1200">memoire</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">delete</span>&#x00A0;<span 
class="ectt-1200">lambda;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">delete</span>&#x00A0;<span 
class="ectt-1200">noncen;</span>
&#x00A0;<br />
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">//------------------------------------------------------------------------------</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">//APPLICATION</span>&#x00A0;<span 
class="ectt-1200">DE</span>&#x00A0;<span 
class="ectt-1200">LA</span>&#x00A0;<span 
class="ectt-1200">METHODE</span>&#x00A0;<span 
class="ectt-1200">DE</span>&#x00A0;<span 
class="ectt-1200">IMHOF</span>&#x00A0;<span 
class="ectt-1200">(1961)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">//------------------------------------------------------------------------------</span>
&#x00A0;<br />
&#x00A0;<br />

&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">//Borne</span>&#x00A0;<span 
class="ectt-1200">d&#x2019;intervalle</span>&#x00A0;<span 
class="ectt-1200">d&#x2019;integration</span>&#x00A0;<span 
class="ectt-1200">dans</span>&#x00A0;<span 
class="ectt-1200">la</span>&#x00A0;<span 
class="ectt-1200">methode</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">Imhof,</span>&#x00A0;<span 
class="ectt-1200">plus</span>&#x00A0;<span 
class="ectt-1200">U</span>&#x00A0;<span 
class="ectt-1200">est</span>&#x00A0;<span 
class="ectt-1200">grand</span>
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">//plus</span>&#x00A0;<span 
class="ectt-1200">c&#x2019;est</span>&#x00A0;<span 
class="ectt-1200">precis,</span>&#x00A0;<span 
class="ectt-1200">mais</span>&#x00A0;<span 
class="ectt-1200">si</span>&#x00A0;<span 
class="ectt-1200">c&#x2019;est</span>&#x00A0;<span 
class="ectt-1200">trop</span>&#x00A0;<span 
class="ectt-1200">grand</span>&#x00A0;<span 
class="ectt-1200">ca</span>&#x00A0;<span 
class="ectt-1200">deconne</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">U=trace[4];</span>
&#x00A0;<br />
&#x00A0;<br /><span 
class="ectt-1200">//Nombre</span>&#x00A0;<span 
class="ectt-1200">d&#x2019;evaluations</span>&#x00A0;<span 
class="ectt-1200">pour</span>&#x00A0;<span 
class="ectt-1200">l&#x2019;integrale</span>&#x00A0;<span 
class="ectt-1200">pour</span>&#x00A0;<span 
class="ectt-1200">la</span>&#x00A0;<span 
class="ectt-1200">methode</span>&#x00A0;<span 
class="ectt-1200">du</span>&#x00A0;<span 
class="ectt-1200">trapeze</span>&#x00A0;<span 
class="ectt-1200">dans</span>&#x00A0;<span 
class="ectt-1200">numerical</span>&#x00A0;<span 
class="ectt-1200">recipies</span>
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">Nbre=minimum((int)trace[1],15);</span>
&#x00A0;<br />
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">//on</span>&#x00A0;<span 
class="ectt-1200">n&#x2019;a</span>&#x00A0;<span 
class="ectt-1200">plus</span>&#x00A0;<span 
class="ectt-1200">besoin</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">ce</span>&#x00A0;<span 
class="ectt-1200">tableau</span>&#x00A0;<span 
class="ectt-1200">donc</span>&#x00A0;<span 
class="ectt-1200">on</span>&#x00A0;<span 
class="ectt-1200">le</span>&#x00A0;<span 
class="ectt-1200">decharge</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">la</span>&#x00A0;<span 
class="ectt-1200">memoire</span>
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">delete</span>&#x00A0;<span 
class="ectt-1200">trace;</span>
&#x00A0;<br />
&#x00A0;<br />
&#x00A0;<br />
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">//On</span>&#x00A0;<span 
class="ectt-1200">utilise</span>&#x00A0;<span 
class="ectt-1200">la</span>&#x00A0;<span 
class="ectt-1200">methode</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">Imhof</span>
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">resultat=1-probQsupx(x,valpdist,indices,U,Nbre);</span>
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">cout</span>&#x00A0;<span 
class="ectt-1200">&#x003C;&#x003C;</span>&#x00A0;<span 
class="ectt-1200">&#x0022;\n</span>&#x00A0;<span 
class="ectt-1200">La</span>&#x00A0;<span 
class="ectt-1200">methode</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">Imhof</span>&#x00A0;<span 
class="ectt-1200">(1961)</span>&#x00A0;<span 
class="ectt-1200">donne:\n&#x0022;;</span>
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">cout</span>&#x00A0;<span 
class="ectt-1200">&#x003C;&#x003C;</span>&#x00A0;<span 
class="ectt-1200">setprecision(8)</span>&#x00A0;<span 
class="ectt-1200">&#x003C;&#x003C;</span>&#x00A0;<span 
class="ectt-1200">&#x0022;</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">x:</span>&#x00A0;<span 
class="ectt-1200">&#x0022;</span>&#x00A0;<span 
class="ectt-1200">&#x003C;&#x003C;</span>&#x00A0;<span 
class="ectt-1200">x</span>&#x00A0;<span 
class="ectt-1200">&#x003C;&#x003C;</span>&#x00A0;<span 
class="ectt-1200">&#x0022;</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">P[Q&#x003C;x]</span>&#x00A0;<span 
class="ectt-1200">:</span>&#x00A0;<span 
class="ectt-1200">&#x0022;</span>&#x00A0;<span 
class="ectt-1200">&#x003C;&#x003C;</span>&#x00A0;<span 
class="ectt-1200">resultat</span>&#x00A0;<span 
class="ectt-1200">&#x003C;&#x003C;</span>&#x00A0;<span 
class="ectt-1200">&#x0022;\n&#x0022;;</span>
&#x00A0;<br />
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">//On</span>&#x00A0;<span 
class="ectt-1200">utilise</span>&#x00A0;<span 
class="ectt-1200">la</span>&#x00A0;<span 
class="ectt-1200">methode</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">Imhof</span>
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">resultat=1-probQsupx(z*sqrt(cumulQA(2,1))+cumulQA(1,1),valpdist,indices,U,Nbre);</span>
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">cout</span>&#x00A0;<span 
class="ectt-1200">&#x003C;&#x003C;</span>&#x00A0;<span 
class="ectt-1200">setprecision(8)</span>&#x00A0;<span 
class="ectt-1200">&#x003C;&#x003C;</span>&#x00A0;<span 
class="ectt-1200">&#x0022;</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">z:</span>&#x00A0;<span 
class="ectt-1200">&#x0022;</span>&#x00A0;<span 
class="ectt-1200">&#x003C;&#x003C;</span>&#x00A0;<span 
class="ectt-1200">z</span>&#x00A0;<span 
class="ectt-1200">&#x003C;&#x003C;</span>&#x00A0;<span 
class="ectt-1200">&#x0022;</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">P[R&#x003C;z]</span>&#x00A0;<span 
class="ectt-1200">:</span>&#x00A0;<span 
class="ectt-1200">&#x0022;</span>&#x00A0;<span 
class="ectt-1200">&#x003C;&#x003C;</span>&#x00A0;<span 
class="ectt-1200">resultat</span>&#x00A0;<span 
class="ectt-1200">&#x003C;&#x003C;</span>&#x00A0;<span 
class="ectt-1200">&#x0022;\n&#x0022;;</span>
&#x00A0;<br />
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">double</span>&#x00A0;<span 
class="ectt-1200">a;</span>
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">cout</span>&#x00A0;<span 
class="ectt-1200">&#x003C;&#x003C;</span>&#x00A0;<span 
class="ectt-1200">&#x0022;\nValeur</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">a</span>&#x00A0;<span 
class="ectt-1200">dans</span>&#x00A0;<span 
class="ectt-1200">la</span>&#x00A0;<span 
class="ectt-1200">methode</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">Deheuvels</span>&#x00A0;<span 
class="ectt-1200">?:</span>&#x00A0;<span 
class="ectt-1200">&#x0022;;</span>
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">cin</span>&#x00A0;<span 
class="ectt-1200">&#x003E;&#x003E;</span>&#x00A0;<span 
class="ectt-1200">a;</span>
&#x00A0;<br />
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">//On</span>&#x00A0;<span 
class="ectt-1200">utilise</span>&#x00A0;<span 
class="ectt-1200">la</span>&#x00A0;<span 
class="ectt-1200">methode</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">Deheuvels</span>&#x00A0;<span 
class="ectt-1200">(en</span>&#x00A0;<span 
class="ectt-1200">fait</span>&#x00A0;<span 
class="ectt-1200">Martynov</span>&#x00A0;<span 
class="ectt-1200">1975)</span>
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">resultat=deheuvels(x,valpdist,indices,U,Nbre,a);</span>
&#x00A0;<br />
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">cout</span>&#x00A0;<span 
class="ectt-1200">&#x003C;&#x003C;</span>&#x00A0;<span 
class="ectt-1200">&#x0022;\n</span>&#x00A0;<span 
class="ectt-1200">La</span>&#x00A0;<span 
class="ectt-1200">methode</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">Deheuvels</span>&#x00A0;<span 
class="ectt-1200">donne:\n&#x0022;;</span>
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">cout</span>&#x00A0;<span 
class="ectt-1200">&#x003C;&#x003C;</span>&#x00A0;<span 
class="ectt-1200">setprecision(8)</span>&#x00A0;<span 
class="ectt-1200">&#x003C;&#x003C;</span>&#x00A0;<span 
class="ectt-1200">&#x0022;</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">x:</span>&#x00A0;<span 
class="ectt-1200">&#x0022;</span>&#x00A0;<span 
class="ectt-1200">&#x003C;&#x003C;</span>&#x00A0;<span 
class="ectt-1200">x</span>&#x00A0;<span 
class="ectt-1200">&#x003C;&#x003C;</span>&#x00A0;<span 
class="ectt-1200">&#x0022;</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">P[Q&#x003C;x]</span>&#x00A0;<span 
class="ectt-1200">:</span>&#x00A0;<span 
class="ectt-1200">&#x0022;</span>&#x00A0;<span 
class="ectt-1200">&#x003C;&#x003C;</span>&#x00A0;<span 
class="ectt-1200">resultat</span>&#x00A0;<span 
class="ectt-1200">&#x003C;&#x003C;</span>&#x00A0;<span 
class="ectt-1200">&#x0022;\n&#x0022;;</span>
&#x00A0;<br />
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">//On</span>&#x00A0;<span 
class="ectt-1200">utilise</span>&#x00A0;<span 
class="ectt-1200">la</span>&#x00A0;<span 
class="ectt-1200">methode</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">Deheuvels</span>&#x00A0;<span 
class="ectt-1200">(en</span>&#x00A0;<span 
class="ectt-1200">fait</span>&#x00A0;<span 
class="ectt-1200">Martynov</span>&#x00A0;<span 
class="ectt-1200">1975)</span>
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">resultat=deheuvels(z*sqrt(cumulQA(2,1))+cumulQA(1,1),valpdist,indices,U,Nbre,a);</span>
&#x00A0;<br />
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">cout</span>&#x00A0;<span 
class="ectt-1200">&#x003C;&#x003C;</span>&#x00A0;<span 
class="ectt-1200">&#x0022;\n</span>&#x00A0;<span 
class="ectt-1200">La</span>&#x00A0;<span 
class="ectt-1200">methode</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">Deheuvels</span>&#x00A0;<span 
class="ectt-1200">donne:\n&#x0022;;</span>
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">cout</span>&#x00A0;<span 
class="ectt-1200">&#x003C;&#x003C;</span>&#x00A0;<span 
class="ectt-1200">setprecision(8)</span>&#x00A0;<span 
class="ectt-1200">&#x003C;&#x003C;</span>&#x00A0;<span 
class="ectt-1200">&#x0022;</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">z:</span>&#x00A0;<span 
class="ectt-1200">&#x0022;</span>&#x00A0;<span 
class="ectt-1200">&#x003C;&#x003C;</span>&#x00A0;<span 
class="ectt-1200">z</span>&#x00A0;<span 
class="ectt-1200">&#x003C;&#x003C;</span>&#x00A0;<span 
class="ectt-1200">&#x0022;</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">P[R&#x003C;z]</span>&#x00A0;<span 
class="ectt-1200">:</span>&#x00A0;<span 
class="ectt-1200">&#x0022;</span>&#x00A0;<span 
class="ectt-1200">&#x003C;&#x003C;</span>&#x00A0;<span 
class="ectt-1200">resultat</span>&#x00A0;<span 
class="ectt-1200">&#x003C;&#x003C;</span>&#x00A0;<span 
class="ectt-1200">&#x0022;\n&#x0022;;</span>
&#x00A0;<br />
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">cout</span>&#x00A0;<span 
class="ectt-1200">&#x003C;&#x003C;</span>&#x00A0;<span 
class="ectt-1200">setprecision(8)</span>&#x00A0;<span 
class="ectt-1200">&#x003C;&#x003C;</span>&#x00A0;<span 
class="ectt-1200">&#x0022;</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">U:</span>&#x00A0;<span 
class="ectt-1200">&#x0022;</span>&#x00A0;<span 
class="ectt-1200">&#x003C;&#x003C;</span>&#x00A0;<span 
class="ectt-1200">U</span>&#x00A0;<span 
class="ectt-1200">&#x003C;&#x003C;</span>&#x00A0;<span 
class="ectt-1200">&#x0022;</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Nbre:</span>&#x00A0;<span 
class="ectt-1200">&#x0022;</span>&#x00A0;<span 
class="ectt-1200">&#x003C;&#x003C;</span>&#x00A0;<span 
class="ectt-1200">Nbre</span>&#x00A0;<span 
class="ectt-1200">&#x003C;&#x003C;</span>&#x00A0;<span 
class="ectt-1200">&#x0022;\n&#x0022;;</span>
&#x00A0;<br />
&#x00A0;<br />
&#x00A0;<br />
&#x00A0;<br /><span 
class="ectt-1200">return(0);</span>
&#x00A0;<br />

&#x00A0;<br /><span 
class="ectt-1200">}</span>
&#x00A0;<br />
&#x00A0;<br />
&#x00A0;<br /><span 
class="ectt-1200">//---------------------------------------------------------------------------------</span>
&#x00A0;<br /><span 
class="ectt-1200">//</span>&#x00A0;<span 
class="ectt-1200">FIN</span>&#x00A0;<span 
class="ectt-1200">DU</span>&#x00A0;<span 
class="ectt-1200">PROGRAMME</span>
&#x00A0;<br /><span 
class="ectt-1200">//---------------------------------------------------------------------------------</span>
&#x00A0;<br />
&#x00A0;<br />
&#x00A0;<br /><span 
class="ectt-1200">int</span>&#x00A0;<span 
class="ectt-1200">minimum(int</span>&#x00A0;<span 
class="ectt-1200">x,</span>&#x00A0;<span 
class="ectt-1200">int</span>&#x00A0;<span 
class="ectt-1200">y)</span>
&#x00A0;<br />
&#x00A0;<br /><span 
class="ectt-1200">{</span>
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">int</span>&#x00A0;<span 
class="ectt-1200">min;</span>
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">min=x;</span>
&#x00A0;<br />
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">if</span>&#x00A0;<span 
class="ectt-1200">(y&#x003C;=x)</span>&#x00A0;<span 
class="ectt-1200">min=y;</span>
&#x00A0;<br />
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">return(min);</span>
&#x00A0;<br />
&#x00A0;<br /><span 
class="ectt-1200">}</span>
</div><span 
class="ecbx-1200">Le fichier </span><span 
class="ecbi-1200">permrep.c</span><div class="verbatiminput">
<span 
class="ectt-1200">void</span>&#x00A0;<span 
class="ectt-1200">permrep(int</span>&#x00A0;<span 
class="ectt-1200">**permrepmat,</span>&#x00A0;<span 
class="ectt-1200">int</span>&#x00A0;<span 
class="ectt-1200">*indices,</span>&#x00A0;<span 
class="ectt-1200">int</span>&#x00A0;<span 
class="ectt-1200">n,</span>&#x00A0;<span 
class="ectt-1200">int</span>&#x00A0;<span 
class="ectt-1200">k)</span>
&#x00A0;<br />
&#x00A0;<br /><span 
class="ectt-1200">{</span>
&#x00A0;<br />
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">/*</span>
&#x00A0;<br /><span 
class="ectt-1200">Calcule</span>&#x00A0;<span 
class="ectt-1200">toutes</span>&#x00A0;<span 
class="ectt-1200">les</span>&#x00A0;<span 
class="ectt-1200">nCm(n+k-1,k)</span>&#x00A0;<span 
class="ectt-1200">combinaisons</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">k</span>&#x00A0;<span 
class="ectt-1200">objets</span>
&#x00A0;<br /><span 
class="ectt-1200">pris</span>&#x00A0;<span 
class="ectt-1200">parmi</span>&#x00A0;<span 
class="ectt-1200">n</span>&#x00A0;<span 
class="ectt-1200">avec</span>&#x00A0;<span 
class="ectt-1200">repetitions.</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0; <span 
class="ectt-1200">et</span>&#x00A0;<span 
class="ectt-1200">donne</span>&#x00A0;<span 
class="ectt-1200">dans</span>&#x00A0;<span 
class="ectt-1200">le</span>&#x00A0;<span 
class="ectt-1200">vecteur</span>&#x00A0;<span 
class="ectt-1200">indices</span>&#x00A0;<span 
class="ectt-1200">le</span>&#x00A0;<span 
class="ectt-1200">nombre</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">fois</span>&#x00A0;<span 
class="ectt-1200">que</span>&#x00A0;<span 
class="ectt-1200">chaque</span>&#x00A0;<span 
class="ectt-1200">combinaison</span>
&#x00A0;<br /><span 
class="ectt-1200">doit</span>&#x00A0;<span 
class="ectt-1200">etre</span>&#x00A0;<span 
class="ectt-1200">repetee</span>&#x00A0;<span 
class="ectt-1200">(en</span>&#x00A0;<span 
class="ectt-1200">changeant</span>&#x00A0;<span 
class="ectt-1200">l&#x2019;ordre</span>&#x00A0;<span 
class="ectt-1200">des</span>&#x00A0;<span 
class="ectt-1200">termes</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">la</span>&#x00A0;<span 
class="ectt-1200">combinaison</span>&#x00A0;<span 
class="ectt-1200">en</span>
&#x00A0;<br /><span 
class="ectt-1200">question)</span>&#x00A0;<span 
class="ectt-1200">pour</span>&#x00A0;<span 
class="ectt-1200">obtenir</span>&#x00A0;<span 
class="ectt-1200">toutes</span>&#x00A0;<span 
class="ectt-1200">les</span>&#x00A0;<span 
class="ectt-1200">n&#x0302;k</span>&#x00A0;<span 
class="ectt-1200">permutations</span>&#x00A0;<span 
class="ectt-1200">avec</span>&#x00A0;<span 
class="ectt-1200">repetitions.</span>
&#x00A0;<br />
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">*/</span>
&#x00A0;<br />
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">int</span>&#x00A0;<span 
class="ectt-1200">nCm(int</span>&#x00A0;<span 
class="ectt-1200">n,</span>&#x00A0;<span 
class="ectt-1200">int</span>&#x00A0;<span 
class="ectt-1200">m);</span>
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">void</span>&#x00A0;<span 
class="ectt-1200">combn(int</span>&#x00A0;<span 
class="ectt-1200">**combmat,</span>&#x00A0;<span 
class="ectt-1200">int</span>&#x00A0;<span 
class="ectt-1200">n,</span>&#x00A0;<span 
class="ectt-1200">int</span>&#x00A0;<span 
class="ectt-1200">m);</span>
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">int</span>&#x00A0;<span 
class="ectt-1200">i,j,l,count,</span>&#x00A0;<span 
class="ectt-1200">produit,</span>&#x00A0;<span 
class="ectt-1200">somme;</span>
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">count=nCm(n+k-1,k);</span>
&#x00A0;<br />
&#x00A0;<br />
&#x00A0;<br />
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">combn(permrepmat,n+k-1,k);</span>

&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">for</span>&#x00A0;<span 
class="ectt-1200">(i=1;i&#x003C;=count;i=i+1)</span>&#x00A0;<span 
class="ectt-1200">{</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">for</span>&#x00A0;<span 
class="ectt-1200">(j=1;j&#x003C;=k;j=j+1)</span>&#x00A0;<span 
class="ectt-1200">{</span>
&#x00A0;<br />
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">permrepmat[i-1][j-1]=permrepmat[i-1][j-1]-(j-1);</span>
&#x00A0;<br />
&#x00A0;<br /><span 
class="ectt-1200">}</span>
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">}</span>
&#x00A0;<br />
&#x00A0;<br />
&#x00A0;<br />
&#x00A0;<br />
&#x00A0;<br /><span 
class="ectt-1200">//indices&#x003C;-rep(0,count)</span>
&#x00A0;<br />&#x00A0;<span 
class="ectt-1200">Matrix</span>&#x00A0;<span 
class="ectt-1200">Nkind(count,1);</span>
&#x00A0;<br />&#x00A0;<span 
class="ectt-1200">Matrix</span>&#x00A0;<span 
class="ectt-1200">N(n+1,1);</span>
&#x00A0;<br />
&#x00A0;<br />
&#x00A0;<br /><span 
class="ectt-1200">for</span>&#x00A0;<span 
class="ectt-1200">(j=1;j&#x003C;=count;j=j+1)</span>&#x00A0;<span 
class="ectt-1200">{</span>
&#x00A0;<br />
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">Nkind=0;</span>
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">N=0;</span>
&#x00A0;<br />
&#x00A0;<br /><span 
class="ectt-1200">for</span>&#x00A0;<span 
class="ectt-1200">(i=1;i&#x003C;=k;i=i+1)</span>&#x00A0;<span 
class="ectt-1200">{</span>
&#x00A0;<br />
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">if</span>&#x00A0;<span 
class="ectt-1200">(N(permrepmat[j-1][i-1],1)==0)</span>&#x00A0;<span 
class="ectt-1200">{Nkind(i,1)=permrepmat[j-1][i-1];}</span>&#x00A0;<span 
class="ectt-1200">else</span>&#x00A0;<span 
class="ectt-1200">Nkind(i,1)=n+1;</span>
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">N(permrepmat[j-1][i-1],1)=N(permrepmat[j-1][i-1],1)+1;</span>
&#x00A0;<br /><span 
class="ectt-1200">}</span>
&#x00A0;<br />
&#x00A0;<br />&#x00A0;<span 
class="ectt-1200">produit=1;</span>
&#x00A0;<br />&#x00A0;<span 
class="ectt-1200">somme=0;</span>
&#x00A0;<br /><span 
class="ectt-1200">for</span>&#x00A0;<span 
class="ectt-1200">(l=1;l&#x003C;=k;l=l+1)</span>&#x00A0;<span 
class="ectt-1200">{</span>
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">produit=produit*fact((int)N((int)Nkind(l,1),1));</span>
&#x00A0;<br /><span 
class="ectt-1200">somme=somme+(int)N((int)Nkind(l,1),1);</span>
&#x00A0;<br /><span 
class="ectt-1200">}</span>
&#x00A0;<br />
&#x00A0;<br />
&#x00A0;<br />
&#x00A0;<br />&#x00A0;<span 
class="ectt-1200">indices[j-1]=fact(somme)/produit;</span>
&#x00A0;<br />
&#x00A0;<br /><span 
class="ectt-1200">}</span>
&#x00A0;<br />
&#x00A0;<br />
&#x00A0;<br /><span 
class="ectt-1200">}</span>
</div><span 
class="ecbx-1200">Le fichier </span><span 
class="ecbi-1200">qfc.c</span><div class="verbatiminput">

<span 
class="ectt-1200">#define</span>&#x00A0;<span 
class="ectt-1200">UseDouble</span>&#x00A0;<span 
class="ectt-1200">0</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">/*</span>&#x00A0;<span 
class="ectt-1200">all</span>&#x00A0;<span 
class="ectt-1200">floating</span>&#x00A0;<span 
class="ectt-1200">point</span>&#x00A0;<span 
class="ectt-1200">double</span>&#x00A0;<span 
class="ectt-1200">*/</span>
&#x00A0;<br />
&#x00A0;<br /><span 
class="ectt-1200">#include</span>&#x00A0;<span 
class="ectt-1200">&#x003C;stdio.h&#x003E;</span>
&#x00A0;<br /><span 
class="ectt-1200">#include</span>&#x00A0;<span 
class="ectt-1200">&#x003C;stdlib.h&#x003E;</span>
&#x00A0;<br /><span 
class="ectt-1200">#include</span>&#x00A0;<span 
class="ectt-1200">&#x003C;math.h&#x003E;</span>
&#x00A0;<br /><span 
class="ectt-1200">#include</span>&#x00A0;<span 
class="ectt-1200">&#x003C;malloc.h&#x003E;</span>
&#x00A0;<br /><span 
class="ectt-1200">#include</span>&#x00A0;<span 
class="ectt-1200">&#x003C;setjmp.h&#x003E;</span>
&#x00A0;<br />
&#x00A0;<br /><span 
class="ectt-1200">#define</span>&#x00A0;<span 
class="ectt-1200">TRUE</span>&#x00A0;&#x00A0;<span 
class="ectt-1200">1</span>
&#x00A0;<br /><span 
class="ectt-1200">#define</span>&#x00A0;<span 
class="ectt-1200">FALSE</span>&#x00A0;<span 
class="ectt-1200">0</span>
&#x00A0;<br /><span 
class="ectt-1200">typedef</span>&#x00A0;<span 
class="ectt-1200">int</span>&#x00A0;<span 
class="ectt-1200">BOOL;</span>
&#x00A0;<br />
&#x00A0;<br /><span 
class="ectt-1200">#ifdef</span>&#x00A0;<span 
class="ectt-1200">UseDouble</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">typedef</span>&#x00A0;<span 
class="ectt-1200">double</span>&#x00A0;<span 
class="ectt-1200">real;</span>
&#x00A0;<br /><span 
class="ectt-1200">#else</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">typedef</span>&#x00A0;<span 
class="ectt-1200">float</span>&#x00A0;<span 
class="ectt-1200">real;</span>
&#x00A0;<br /><span 
class="ectt-1200">#endif</span>
&#x00A0;<br />
&#x00A0;<br /><span 
class="ectt-1200">#define</span>&#x00A0;<span 
class="ectt-1200">pi</span>&#x00A0;<span 
class="ectt-1200">3.14159265358979</span>
&#x00A0;<br /><span 
class="ectt-1200">#define</span>&#x00A0;<span 
class="ectt-1200">log28</span>&#x00A0;<span 
class="ectt-1200">.0866</span>&#x00A0;&#x00A0;<span 
class="ectt-1200">/*</span>&#x00A0;&#x00A0;<span 
class="ectt-1200">log(2.0)</span>&#x00A0;<span 
class="ectt-1200">/</span>&#x00A0;<span 
class="ectt-1200">8.0</span>&#x00A0;&#x00A0;<span 
class="ectt-1200">*/</span>
&#x00A0;<br />
&#x00A0;<br /><span 
class="ectt-1200">static</span>&#x00A0;<span 
class="ectt-1200">real</span>&#x00A0;<span 
class="ectt-1200">sigsq,</span>&#x00A0;<span 
class="ectt-1200">lmax,</span>&#x00A0;<span 
class="ectt-1200">lmin,</span>&#x00A0;<span 
class="ectt-1200">mean,</span>&#x00A0;<span 
class="ectt-1200">c;</span>
&#x00A0;<br /><span 
class="ectt-1200">static</span>&#x00A0;<span 
class="ectt-1200">double</span>&#x00A0;<span 
class="ectt-1200">intl,</span>&#x00A0;<span 
class="ectt-1200">ersm;</span>
&#x00A0;<br /><span 
class="ectt-1200">static</span>&#x00A0;<span 
class="ectt-1200">int</span>&#x00A0;<span 
class="ectt-1200">count,</span>&#x00A0;<span 
class="ectt-1200">r,</span>&#x00A0;<span 
class="ectt-1200">lim;</span>&#x00A0;&#x00A0;<span 
class="ectt-1200">static</span>&#x00A0;<span 
class="ectt-1200">BOOL</span>&#x00A0;<span 
class="ectt-1200">ndtsrt,</span>&#x00A0;<span 
class="ectt-1200">fail;</span>
&#x00A0;<br /><span 
class="ectt-1200">static</span>&#x00A0;<span 
class="ectt-1200">int</span>&#x00A0;<span 
class="ectt-1200">*n,*th;</span>&#x00A0;<span 
class="ectt-1200">static</span>&#x00A0;<span 
class="ectt-1200">real</span>&#x00A0;<span 
class="ectt-1200">*lb,*nc;</span>
&#x00A0;<br /><span 
class="ectt-1200">static</span>&#x00A0;<span 
class="ectt-1200">jmp_buf</span>&#x00A0;<span 
class="ectt-1200">env;</span>
&#x00A0;<br />
&#x00A0;<br />
&#x00A0;<br /><span 
class="ectt-1200">real</span>&#x00A0;<span 
class="ectt-1200">qf(real*,real*,int*,int,real,real,int,real,real*,int*);</span>
&#x00A0;<br />
&#x00A0;<br /><span 
class="ectt-1200">static</span>&#x00A0;<span 
class="ectt-1200">real</span>&#x00A0;<span 
class="ectt-1200">exp1(real</span>&#x00A0;<span 
class="ectt-1200">x)</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">/*</span>&#x00A0;<span 
class="ectt-1200">to</span>&#x00A0;<span 
class="ectt-1200">avoid</span>&#x00A0;<span 
class="ectt-1200">underflows</span>&#x00A0;&#x00A0;<span 
class="ectt-1200">*/</span>
&#x00A0;<br /><span 
class="ectt-1200">{</span>&#x00A0;<span 
class="ectt-1200">return</span>&#x00A0;<span 
class="ectt-1200">x</span>&#x00A0;<span 
class="ectt-1200">&#x003C;</span>&#x00A0;<span 
class="ectt-1200">-50.0</span>&#x00A0;<span 
class="ectt-1200">?</span>&#x00A0;<span 
class="ectt-1200">0.0</span>&#x00A0;<span 
class="ectt-1200">:</span>&#x00A0;<span 
class="ectt-1200">exp(x);</span>&#x00A0;<span 
class="ectt-1200">}</span>
&#x00A0;<br />
&#x00A0;<br /><span 
class="ectt-1200">void</span>&#x00A0;<span 
class="ectt-1200">main(void)</span>
&#x00A0;<br /><span 
class="ectt-1200">{</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">int</span>&#x00A0;<span 
class="ectt-1200">r,lim;</span>&#x00A0;<span 
class="ectt-1200">real</span>&#x00A0;<span 
class="ectt-1200">c,sigma,acc;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">real</span>&#x00A0;<span 
class="ectt-1200">lambda[100],</span>&#x00A0;<span 
class="ectt-1200">noncen[100];</span>&#x00A0;<span 
class="ectt-1200">int</span>&#x00A0;<span 
class="ectt-1200">n[100];</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">real</span>&#x00A0;<span 
class="ectt-1200">ans1;</span>&#x00A0;<span 
class="ectt-1200">int</span>&#x00A0;<span 
class="ectt-1200">fault;</span>&#x00A0;<span 
class="ectt-1200">real</span>&#x00A0;<span 
class="ectt-1200">trace[7];</span>&#x00A0;<span 
class="ectt-1200">int</span>&#x00A0;<span 
class="ectt-1200">i;</span>
&#x00A0;<br /><span 
class="ectt-1200">l1</span>&#x00A0;<span 
class="ectt-1200">:</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">puts(&#x0022;ENTER</span>&#x00A0;<span 
class="ectt-1200">R,C,SIGMA,LIM,ACC\n&#x0022;);</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">#ifdef</span>&#x00A0;<span 
class="ectt-1200">UseDouble</span>

&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">scanf(&#x0022;%d%lf%lf%d%lf&#x0022;,&#x0026;r,&#x0026;c,&#x0026;sigma,&#x0026;lim,&#x0026;acc);</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">#else</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">scanf(&#x0022;%d%f%f%d%f&#x0022;,&#x0026;r,&#x0026;c,&#x0026;sigma,&#x0026;lim,&#x0026;acc);</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">#endif</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">if</span>&#x00A0;<span 
class="ectt-1200">(r&#x003C;0)</span>&#x00A0;<span 
class="ectt-1200">goto</span>&#x00A0;<span 
class="ectt-1200">l2;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">puts(&#x0022;DF,LAMBDA,NON-CEN\n&#x0022;);</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">for</span>&#x00A0;<span 
class="ectt-1200">(</span>&#x00A0;<span 
class="ectt-1200">i</span>&#x00A0;<span 
class="ectt-1200">=</span>&#x00A0;<span 
class="ectt-1200">0;</span>&#x00A0;<span 
class="ectt-1200">i&#x003C;r;</span>&#x00A0;<span 
class="ectt-1200">i++)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">{</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">#ifdef</span>&#x00A0;<span 
class="ectt-1200">UseDouble</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">scanf(&#x0022;%d%lf%lf&#x0022;,&#x0026;n[i],&#x0026;lambda[i],&#x0026;noncen[i]);</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">#else</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">scanf(&#x0022;%d%f%f&#x0022;,&#x0026;n[i],&#x0026;lambda[i],&#x0026;noncen[i]);</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">#endif</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">}</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">ans1=qf(lambda,</span>&#x00A0;<span 
class="ectt-1200">noncen,</span>&#x00A0;<span 
class="ectt-1200">n,</span>&#x00A0;<span 
class="ectt-1200">r,</span>&#x00A0;<span 
class="ectt-1200">sigma,</span>&#x00A0;<span 
class="ectt-1200">c,</span>&#x00A0;<span 
class="ectt-1200">lim,</span>&#x00A0;<span 
class="ectt-1200">acc,</span>&#x00A0;<span 
class="ectt-1200">trace,</span>&#x00A0;<span 
class="ectt-1200">&#x0026;fault);</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">#ifdef</span>&#x00A0;<span 
class="ectt-1200">UseDouble</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">printf(&#x0022;QF,FAULT=%10.6lf%15d\n\n&#x0022;,ans1,fault);</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">for</span>&#x00A0;<span 
class="ectt-1200">(i=0;i&#x003C;7;i++)</span>&#x00A0;<span 
class="ectt-1200">printf(&#x0022;%11.5lf&#x0022;,trace[i]);</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">#else</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">printf(&#x0022;QF,FAULT=%10.6f%15d\n\n&#x0022;,ans1,fault);</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">for</span>&#x00A0;<span 
class="ectt-1200">(i=0;i&#x003C;7;i++)</span>&#x00A0;<span 
class="ectt-1200">printf(&#x0022;%11.5f&#x0022;,trace[i]);</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">#endif</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">puts(&#x0022;\n\n&#x0022;);</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">goto</span>&#x00A0;&#x00A0;<span 
class="ectt-1200">l1;</span>
&#x00A0;<br /><span 
class="ectt-1200">l2</span>&#x00A0;<span 
class="ectt-1200">:</span>&#x00A0;<span 
class="ectt-1200">;</span>
&#x00A0;<br /><span 
class="ectt-1200">}</span>
&#x00A0;<br />
&#x00A0;<br />
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">static</span>&#x00A0;<span 
class="ectt-1200">void</span>&#x00A0;<span 
class="ectt-1200">counter(void)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">/*</span>&#x00A0;&#x00A0;<span 
class="ectt-1200">count</span>&#x00A0;<span 
class="ectt-1200">number</span>&#x00A0;<span 
class="ectt-1200">of</span>&#x00A0;<span 
class="ectt-1200">calls</span>&#x00A0;<span 
class="ectt-1200">to</span>&#x00A0;<span 
class="ectt-1200">errbd,</span>&#x00A0;<span 
class="ectt-1200">truncation,</span>&#x00A0;<span 
class="ectt-1200">cfe</span>&#x00A0;<span 
class="ectt-1200">*/</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">{</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">extern</span>&#x00A0;<span 
class="ectt-1200">int</span>&#x00A0;<span 
class="ectt-1200">count,lim;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">count</span>&#x00A0;<span 
class="ectt-1200">=</span>&#x00A0;<span 
class="ectt-1200">count</span>&#x00A0;<span 
class="ectt-1200">+</span>&#x00A0;<span 
class="ectt-1200">1;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">if</span>&#x00A0;<span 
class="ectt-1200">(</span>&#x00A0;<span 
class="ectt-1200">count</span>&#x00A0;<span 
class="ectt-1200">&#x003E;</span>&#x00A0;<span 
class="ectt-1200">lim</span>&#x00A0;<span 
class="ectt-1200">)</span>&#x00A0;<span 
class="ectt-1200">longjmp(env,1);</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">}</span>
&#x00A0;<br />
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">static</span>&#x00A0;<span 
class="ectt-1200">real</span>&#x00A0;<span 
class="ectt-1200">square(real</span>&#x00A0;<span 
class="ectt-1200">x)</span>&#x00A0;&#x00A0;<span 
class="ectt-1200">{</span>&#x00A0;<span 
class="ectt-1200">return</span>&#x00A0;<span 
class="ectt-1200">x*x;</span>&#x00A0;<span 
class="ectt-1200">}</span>
&#x00A0;<br />
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">static</span>&#x00A0;<span 
class="ectt-1200">real</span>&#x00A0;<span 
class="ectt-1200">cube(real</span>&#x00A0;<span 
class="ectt-1200">x)</span>&#x00A0;&#x00A0;<span 
class="ectt-1200">{</span>&#x00A0;<span 
class="ectt-1200">return</span>&#x00A0;<span 
class="ectt-1200">x*x*x;</span>&#x00A0;<span 
class="ectt-1200">}</span>
&#x00A0;<br />
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">static</span>&#x00A0;<span 
class="ectt-1200">real</span>&#x00A0;&#x00A0;<span 
class="ectt-1200">log1(real</span>&#x00A0;<span 
class="ectt-1200">x,</span>&#x00A0;<span 
class="ectt-1200">BOOL</span>&#x00A0;<span 
class="ectt-1200">first)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">/*</span>&#x00A0;<span 
class="ectt-1200">if</span>&#x00A0;<span 
class="ectt-1200">(first)</span>&#x00A0;<span 
class="ectt-1200">log(1</span>&#x00A0;<span 
class="ectt-1200">+</span>&#x00A0;<span 
class="ectt-1200">x)</span>&#x00A0;<span 
class="ectt-1200">;</span>&#x00A0;<span 
class="ectt-1200">else</span>&#x00A0;&#x00A0;<span 
class="ectt-1200">log(1</span>&#x00A0;<span 
class="ectt-1200">+</span>&#x00A0;<span 
class="ectt-1200">x)</span>&#x00A0;<span 
class="ectt-1200">-</span>&#x00A0;<span 
class="ectt-1200">x</span>&#x00A0;<span 
class="ectt-1200">*/</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">{</span>

&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">if</span>&#x00A0;<span 
class="ectt-1200">(fabs(x)</span>&#x00A0;<span 
class="ectt-1200">&#x003E;</span>&#x00A0;<span 
class="ectt-1200">0.1)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">{</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">return</span>&#x00A0;<span 
class="ectt-1200">(first</span>&#x00A0;<span 
class="ectt-1200">?</span>&#x00A0;<span 
class="ectt-1200">log(1.0</span>&#x00A0;<span 
class="ectt-1200">+</span>&#x00A0;<span 
class="ectt-1200">x)</span>&#x00A0;<span 
class="ectt-1200">:</span>&#x00A0;<span 
class="ectt-1200">(log(1.0</span>&#x00A0;<span 
class="ectt-1200">+</span>&#x00A0;<span 
class="ectt-1200">x)</span>&#x00A0;<span 
class="ectt-1200">-</span>&#x00A0;<span 
class="ectt-1200">x));</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">}</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">else</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">{</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">real</span>&#x00A0;<span 
class="ectt-1200">s,</span>&#x00A0;<span 
class="ectt-1200">s1,</span>&#x00A0;<span 
class="ectt-1200">term,</span>&#x00A0;<span 
class="ectt-1200">y,</span>&#x00A0;<span 
class="ectt-1200">k;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">y</span>&#x00A0;<span 
class="ectt-1200">=</span>&#x00A0;<span 
class="ectt-1200">x</span>&#x00A0;<span 
class="ectt-1200">/</span>&#x00A0;<span 
class="ectt-1200">(2.0</span>&#x00A0;<span 
class="ectt-1200">+</span>&#x00A0;<span 
class="ectt-1200">x);</span>&#x00A0;&#x00A0;<span 
class="ectt-1200">term</span>&#x00A0;<span 
class="ectt-1200">=</span>&#x00A0;<span 
class="ectt-1200">2.0</span>&#x00A0;<span 
class="ectt-1200">*</span>&#x00A0;<span 
class="ectt-1200">cube(y);</span>&#x00A0;&#x00A0;<span 
class="ectt-1200">k</span>&#x00A0;<span 
class="ectt-1200">=</span>&#x00A0;<span 
class="ectt-1200">3.0;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">s</span>&#x00A0;<span 
class="ectt-1200">=</span>&#x00A0;<span 
class="ectt-1200">(first</span>&#x00A0;<span 
class="ectt-1200">?</span>&#x00A0;<span 
class="ectt-1200">2.0</span>&#x00A0;<span 
class="ectt-1200">:</span>&#x00A0;<span 
class="ectt-1200">-</span>&#x00A0;<span 
class="ectt-1200">x)</span>&#x00A0;<span 
class="ectt-1200">*</span>&#x00A0;<span 
class="ectt-1200">y;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">y</span>&#x00A0;<span 
class="ectt-1200">=</span>&#x00A0;<span 
class="ectt-1200">square(y);</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">for</span>&#x00A0;<span 
class="ectt-1200">(s1</span>&#x00A0;<span 
class="ectt-1200">=</span>&#x00A0;<span 
class="ectt-1200">s</span>&#x00A0;<span 
class="ectt-1200">+</span>&#x00A0;<span 
class="ectt-1200">term</span>&#x00A0;<span 
class="ectt-1200">/</span>&#x00A0;<span 
class="ectt-1200">k;</span>&#x00A0;<span 
class="ectt-1200">s1</span>&#x00A0;<span 
class="ectt-1200">!=</span>&#x00A0;<span 
class="ectt-1200">s;</span>&#x00A0;<span 
class="ectt-1200">s1</span>&#x00A0;<span 
class="ectt-1200">=</span>&#x00A0;<span 
class="ectt-1200">s</span>&#x00A0;<span 
class="ectt-1200">+</span>&#x00A0;<span 
class="ectt-1200">term</span>&#x00A0;<span 
class="ectt-1200">/</span>&#x00A0;<span 
class="ectt-1200">k)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">{</span>&#x00A0;<span 
class="ectt-1200">k</span>&#x00A0;<span 
class="ectt-1200">=</span>&#x00A0;<span 
class="ectt-1200">k</span>&#x00A0;<span 
class="ectt-1200">+</span>&#x00A0;<span 
class="ectt-1200">2.0;</span>&#x00A0;<span 
class="ectt-1200">term</span>&#x00A0;<span 
class="ectt-1200">=</span>&#x00A0;<span 
class="ectt-1200">term</span>&#x00A0;<span 
class="ectt-1200">*</span>&#x00A0;<span 
class="ectt-1200">y;</span>&#x00A0;<span 
class="ectt-1200">s</span>&#x00A0;<span 
class="ectt-1200">=</span>&#x00A0;<span 
class="ectt-1200">s1;</span>&#x00A0;<span 
class="ectt-1200">}</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">return</span>&#x00A0;<span 
class="ectt-1200">s;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">}</span>
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">}</span>
&#x00A0;<br />
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">static</span>&#x00A0;<span 
class="ectt-1200">void</span>&#x00A0;<span 
class="ectt-1200">order(void)</span>
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">/*</span>&#x00A0;<span 
class="ectt-1200">find</span>&#x00A0;<span 
class="ectt-1200">order</span>&#x00A0;<span 
class="ectt-1200">of</span>&#x00A0;<span 
class="ectt-1200">absolute</span>&#x00A0;<span 
class="ectt-1200">values</span>&#x00A0;<span 
class="ectt-1200">of</span>&#x00A0;<span 
class="ectt-1200">lb</span>&#x00A0;<span 
class="ectt-1200">*/</span>
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">{</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">int</span>&#x00A0;<span 
class="ectt-1200">j,</span>&#x00A0;<span 
class="ectt-1200">k;</span>&#x00A0;<span 
class="ectt-1200">real</span>&#x00A0;<span 
class="ectt-1200">lj;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">extern</span>&#x00A0;<span 
class="ectt-1200">real</span>&#x00A0;<span 
class="ectt-1200">*lb;</span>&#x00A0;<span 
class="ectt-1200">extern</span>&#x00A0;<span 
class="ectt-1200">int</span>&#x00A0;<span 
class="ectt-1200">*th;</span>&#x00A0;<span 
class="ectt-1200">extern</span>&#x00A0;<span 
class="ectt-1200">int</span>&#x00A0;<span 
class="ectt-1200">r;</span>&#x00A0;<span 
class="ectt-1200">extern</span>&#x00A0;<span 
class="ectt-1200">BOOL</span>&#x00A0;<span 
class="ectt-1200">ndtsrt;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">for</span>&#x00A0;<span 
class="ectt-1200">(</span>&#x00A0;<span 
class="ectt-1200">j=0;</span>&#x00A0;<span 
class="ectt-1200">j&#x003C;r;</span>&#x00A0;<span 
class="ectt-1200">j++</span>&#x00A0;<span 
class="ectt-1200">)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">{</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">lj</span>&#x00A0;<span 
class="ectt-1200">=</span>&#x00A0;<span 
class="ectt-1200">fabs(lb[j]);</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">for</span>&#x00A0;<span 
class="ectt-1200">(k</span>&#x00A0;<span 
class="ectt-1200">=</span>&#x00A0;<span 
class="ectt-1200">j-1;</span>&#x00A0;<span 
class="ectt-1200">k&#x003E;=0;</span>&#x00A0;<span 
class="ectt-1200">k--)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">{</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">if</span>&#x00A0;<span 
class="ectt-1200">(</span>&#x00A0;<span 
class="ectt-1200">lj</span>&#x00A0;<span 
class="ectt-1200">&#x003E;</span>&#x00A0;<span 
class="ectt-1200">fabs(lb[th[k]])</span>&#x00A0;<span 
class="ectt-1200">)</span>&#x00A0;&#x00A0;<span 
class="ectt-1200">th[k</span>&#x00A0;<span 
class="ectt-1200">+</span>&#x00A0;<span 
class="ectt-1200">1]</span>&#x00A0;<span 
class="ectt-1200">=</span>&#x00A0;<span 
class="ectt-1200">th[k];</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">else</span>&#x00A0;<span 
class="ectt-1200">goto</span>&#x00A0;<span 
class="ectt-1200">l1;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">}</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">k</span>&#x00A0;<span 
class="ectt-1200">=</span>&#x00A0;<span 
class="ectt-1200">-1;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">l1</span>&#x00A0;<span 
class="ectt-1200">:</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">th[k</span>&#x00A0;<span 
class="ectt-1200">+</span>&#x00A0;<span 
class="ectt-1200">1]</span>&#x00A0;<span 
class="ectt-1200">=</span>&#x00A0;<span 
class="ectt-1200">j;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">}</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">ndtsrt</span>&#x00A0;<span 
class="ectt-1200">=</span>&#x00A0;<span 
class="ectt-1200">FALSE;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">}</span>
&#x00A0;<br />
&#x00A0;<br />
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">static</span>&#x00A0;<span 
class="ectt-1200">real</span>&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">errbd(real</span>&#x00A0;<span 
class="ectt-1200">u,</span>&#x00A0;<span 
class="ectt-1200">real*</span>&#x00A0;<span 
class="ectt-1200">cx)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">/*</span>&#x00A0;&#x00A0;<span 
class="ectt-1200">find</span>&#x00A0;<span 
class="ectt-1200">bound</span>&#x00A0;<span 
class="ectt-1200">on</span>&#x00A0;<span 
class="ectt-1200">tail</span>&#x00A0;<span 
class="ectt-1200">probability</span>&#x00A0;<span 
class="ectt-1200">using</span>&#x00A0;<span 
class="ectt-1200">mgf,</span>&#x00A0;<span 
class="ectt-1200">cutoff</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">point</span>&#x00A0;<span 
class="ectt-1200">returned</span>&#x00A0;<span 
class="ectt-1200">to</span>&#x00A0;<span 
class="ectt-1200">*cx</span>&#x00A0;<span 
class="ectt-1200">*/</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">{</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">real</span>&#x00A0;<span 
class="ectt-1200">sum1,</span>&#x00A0;<span 
class="ectt-1200">lj,</span>&#x00A0;<span 
class="ectt-1200">ncj,</span>&#x00A0;<span 
class="ectt-1200">x,</span>&#x00A0;<span 
class="ectt-1200">y,</span>&#x00A0;<span 
class="ectt-1200">xconst;</span>&#x00A0;<span 
class="ectt-1200">int</span>&#x00A0;<span 
class="ectt-1200">j,</span>&#x00A0;<span 
class="ectt-1200">nj;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">extern</span>&#x00A0;<span 
class="ectt-1200">real</span>&#x00A0;<span 
class="ectt-1200">sigsq,*lb,*nc;</span>&#x00A0;<span 
class="ectt-1200">extern</span>&#x00A0;<span 
class="ectt-1200">int</span>&#x00A0;<span 
class="ectt-1200">*n;</span>&#x00A0;<span 
class="ectt-1200">extern</span>&#x00A0;<span 
class="ectt-1200">int</span>&#x00A0;<span 
class="ectt-1200">r;</span>

&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">counter();</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">xconst</span>&#x00A0;<span 
class="ectt-1200">=</span>&#x00A0;<span 
class="ectt-1200">u</span>&#x00A0;<span 
class="ectt-1200">*</span>&#x00A0;<span 
class="ectt-1200">sigsq;</span>&#x00A0;&#x00A0;<span 
class="ectt-1200">sum1</span>&#x00A0;<span 
class="ectt-1200">=</span>&#x00A0;<span 
class="ectt-1200">u</span>&#x00A0;<span 
class="ectt-1200">*</span>&#x00A0;<span 
class="ectt-1200">xconst;</span>&#x00A0;&#x00A0;<span 
class="ectt-1200">u</span>&#x00A0;<span 
class="ectt-1200">=</span>&#x00A0;<span 
class="ectt-1200">2.0</span>&#x00A0;<span 
class="ectt-1200">*</span>&#x00A0;<span 
class="ectt-1200">u;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">for</span>&#x00A0;<span 
class="ectt-1200">(j=r-1;</span>&#x00A0;<span 
class="ectt-1200">j&#x003E;=0;</span>&#x00A0;<span 
class="ectt-1200">j--)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">{</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">nj</span>&#x00A0;<span 
class="ectt-1200">=</span>&#x00A0;<span 
class="ectt-1200">n[j];</span>&#x00A0;<span 
class="ectt-1200">lj</span>&#x00A0;<span 
class="ectt-1200">=</span>&#x00A0;<span 
class="ectt-1200">lb[j];</span>&#x00A0;<span 
class="ectt-1200">ncj</span>&#x00A0;<span 
class="ectt-1200">=</span>&#x00A0;<span 
class="ectt-1200">nc[j];</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">x</span>&#x00A0;<span 
class="ectt-1200">=</span>&#x00A0;<span 
class="ectt-1200">u</span>&#x00A0;<span 
class="ectt-1200">*</span>&#x00A0;<span 
class="ectt-1200">lj;</span>&#x00A0;<span 
class="ectt-1200">y</span>&#x00A0;<span 
class="ectt-1200">=</span>&#x00A0;<span 
class="ectt-1200">1.0</span>&#x00A0;<span 
class="ectt-1200">-</span>&#x00A0;<span 
class="ectt-1200">x;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">xconst</span>&#x00A0;<span 
class="ectt-1200">=</span>&#x00A0;<span 
class="ectt-1200">xconst</span>&#x00A0;<span 
class="ectt-1200">+</span>&#x00A0;<span 
class="ectt-1200">lj</span>&#x00A0;<span 
class="ectt-1200">*</span>&#x00A0;<span 
class="ectt-1200">(ncj</span>&#x00A0;<span 
class="ectt-1200">/</span>&#x00A0;<span 
class="ectt-1200">y</span>&#x00A0;<span 
class="ectt-1200">+</span>&#x00A0;<span 
class="ectt-1200">nj)</span>&#x00A0;<span 
class="ectt-1200">/</span>&#x00A0;<span 
class="ectt-1200">y;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">sum1</span>&#x00A0;<span 
class="ectt-1200">=</span>&#x00A0;<span 
class="ectt-1200">sum1</span>&#x00A0;<span 
class="ectt-1200">+</span>&#x00A0;<span 
class="ectt-1200">ncj</span>&#x00A0;<span 
class="ectt-1200">*</span>&#x00A0;<span 
class="ectt-1200">square(x</span>&#x00A0;<span 
class="ectt-1200">/</span>&#x00A0;<span 
class="ectt-1200">y)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">+</span>&#x00A0;<span 
class="ectt-1200">nj</span>&#x00A0;<span 
class="ectt-1200">*</span>&#x00A0;<span 
class="ectt-1200">(square(x)</span>&#x00A0;<span 
class="ectt-1200">/</span>&#x00A0;<span 
class="ectt-1200">y</span>&#x00A0;<span 
class="ectt-1200">+</span>&#x00A0;<span 
class="ectt-1200">log1(-x,</span>&#x00A0;<span 
class="ectt-1200">FALSE</span>&#x00A0;<span 
class="ectt-1200">));</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">}</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">*cx</span>&#x00A0;<span 
class="ectt-1200">=</span>&#x00A0;<span 
class="ectt-1200">xconst;</span>&#x00A0;<span 
class="ectt-1200">return</span>&#x00A0;<span 
class="ectt-1200">exp1(-0.5</span>&#x00A0;<span 
class="ectt-1200">*</span>&#x00A0;<span 
class="ectt-1200">sum1);</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">}</span>
&#x00A0;<br />
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">static</span>&#x00A0;<span 
class="ectt-1200">real</span>&#x00A0;&#x00A0;<span 
class="ectt-1200">ctff(real</span>&#x00A0;<span 
class="ectt-1200">accx,</span>&#x00A0;<span 
class="ectt-1200">real*</span>&#x00A0;<span 
class="ectt-1200">upn)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">/*</span>&#x00A0;&#x00A0;<span 
class="ectt-1200">find</span>&#x00A0;<span 
class="ectt-1200">ctff</span>&#x00A0;<span 
class="ectt-1200">so</span>&#x00A0;<span 
class="ectt-1200">that</span>&#x00A0;<span 
class="ectt-1200">p(qf</span>&#x00A0;<span 
class="ectt-1200">&#x003E;</span>&#x00A0;<span 
class="ectt-1200">ctff)</span>&#x00A0;<span 
class="ectt-1200">&#x003C;</span>&#x00A0;<span 
class="ectt-1200">accx</span>&#x00A0;&#x00A0;<span 
class="ectt-1200">if</span>&#x00A0;<span 
class="ectt-1200">(upn</span>&#x00A0;<span 
class="ectt-1200">&#x003E;</span>&#x00A0;<span 
class="ectt-1200">0,</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">p(qf</span>&#x00A0;<span 
class="ectt-1200">&#x003C;</span>&#x00A0;<span 
class="ectt-1200">ctff)</span>&#x00A0;<span 
class="ectt-1200">&#x003C;</span>&#x00A0;<span 
class="ectt-1200">accx</span>&#x00A0;<span 
class="ectt-1200">otherwise</span>&#x00A0;<span 
class="ectt-1200">*/</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">{</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">real</span>&#x00A0;<span 
class="ectt-1200">u1,</span>&#x00A0;<span 
class="ectt-1200">u2,</span>&#x00A0;<span 
class="ectt-1200">u,</span>&#x00A0;<span 
class="ectt-1200">rb,</span>&#x00A0;<span 
class="ectt-1200">xconst,</span>&#x00A0;<span 
class="ectt-1200">c1,</span>&#x00A0;<span 
class="ectt-1200">c2;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">extern</span>&#x00A0;<span 
class="ectt-1200">real</span>&#x00A0;<span 
class="ectt-1200">lmin,lmax,mean;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">u2</span>&#x00A0;<span 
class="ectt-1200">=</span>&#x00A0;<span 
class="ectt-1200">*upn;</span>&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">u1</span>&#x00A0;<span 
class="ectt-1200">=</span>&#x00A0;<span 
class="ectt-1200">0.0;</span>&#x00A0;&#x00A0;<span 
class="ectt-1200">c1</span>&#x00A0;<span 
class="ectt-1200">=</span>&#x00A0;<span 
class="ectt-1200">mean;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">rb</span>&#x00A0;<span 
class="ectt-1200">=</span>&#x00A0;<span 
class="ectt-1200">2.0</span>&#x00A0;<span 
class="ectt-1200">*</span>&#x00A0;<span 
class="ectt-1200">((u2</span>&#x00A0;<span 
class="ectt-1200">&#x003E;</span>&#x00A0;<span 
class="ectt-1200">0.0)</span>&#x00A0;<span 
class="ectt-1200">?</span>&#x00A0;<span 
class="ectt-1200">lmax</span>&#x00A0;<span 
class="ectt-1200">:</span>&#x00A0;<span 
class="ectt-1200">lmin);</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">for</span>&#x00A0;<span 
class="ectt-1200">(u</span>&#x00A0;<span 
class="ectt-1200">=</span>&#x00A0;<span 
class="ectt-1200">u2</span>&#x00A0;<span 
class="ectt-1200">/</span>&#x00A0;<span 
class="ectt-1200">(1.0</span>&#x00A0;<span 
class="ectt-1200">+</span>&#x00A0;<span 
class="ectt-1200">u2</span>&#x00A0;<span 
class="ectt-1200">*</span>&#x00A0;<span 
class="ectt-1200">rb);</span>&#x00A0;<span 
class="ectt-1200">errbd(u,</span>&#x00A0;<span 
class="ectt-1200">&#x0026;c2)</span>&#x00A0;<span 
class="ectt-1200">&#x003E;</span>&#x00A0;<span 
class="ectt-1200">accx;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">u</span>&#x00A0;<span 
class="ectt-1200">=</span>&#x00A0;<span 
class="ectt-1200">u2</span>&#x00A0;<span 
class="ectt-1200">/</span>&#x00A0;<span 
class="ectt-1200">(1.0</span>&#x00A0;<span 
class="ectt-1200">+</span>&#x00A0;<span 
class="ectt-1200">u2</span>&#x00A0;<span 
class="ectt-1200">*</span>&#x00A0;<span 
class="ectt-1200">rb))</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">{</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">u1</span>&#x00A0;<span 
class="ectt-1200">=</span>&#x00A0;<span 
class="ectt-1200">u2;</span>&#x00A0;&#x00A0;<span 
class="ectt-1200">c1</span>&#x00A0;<span 
class="ectt-1200">=</span>&#x00A0;<span 
class="ectt-1200">c2;</span>&#x00A0;&#x00A0;<span 
class="ectt-1200">u2</span>&#x00A0;<span 
class="ectt-1200">=</span>&#x00A0;<span 
class="ectt-1200">2.0</span>&#x00A0;<span 
class="ectt-1200">*</span>&#x00A0;<span 
class="ectt-1200">u2;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">}</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">for</span>&#x00A0;<span 
class="ectt-1200">(u</span>&#x00A0;<span 
class="ectt-1200">=</span>&#x00A0;<span 
class="ectt-1200">(c1</span>&#x00A0;<span 
class="ectt-1200">-</span>&#x00A0;<span 
class="ectt-1200">mean)</span>&#x00A0;<span 
class="ectt-1200">/</span>&#x00A0;<span 
class="ectt-1200">(c2</span>&#x00A0;<span 
class="ectt-1200">-</span>&#x00A0;<span 
class="ectt-1200">mean);</span>&#x00A0;<span 
class="ectt-1200">u</span>&#x00A0;<span 
class="ectt-1200">&#x003C;</span>&#x00A0;<span 
class="ectt-1200">0.9;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">u</span>&#x00A0;<span 
class="ectt-1200">=</span>&#x00A0;<span 
class="ectt-1200">(c1</span>&#x00A0;<span 
class="ectt-1200">-</span>&#x00A0;<span 
class="ectt-1200">mean)</span>&#x00A0;<span 
class="ectt-1200">/</span>&#x00A0;<span 
class="ectt-1200">(c2</span>&#x00A0;<span 
class="ectt-1200">-</span>&#x00A0;<span 
class="ectt-1200">mean))</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">{</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">u</span>&#x00A0;<span 
class="ectt-1200">=</span>&#x00A0;<span 
class="ectt-1200">(u1</span>&#x00A0;<span 
class="ectt-1200">+</span>&#x00A0;<span 
class="ectt-1200">u2)</span>&#x00A0;<span 
class="ectt-1200">/</span>&#x00A0;<span 
class="ectt-1200">2.0;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">if</span>&#x00A0;<span 
class="ectt-1200">(errbd(u</span>&#x00A0;<span 
class="ectt-1200">/</span>&#x00A0;<span 
class="ectt-1200">(1.0</span>&#x00A0;<span 
class="ectt-1200">+</span>&#x00A0;<span 
class="ectt-1200">u</span>&#x00A0;<span 
class="ectt-1200">*</span>&#x00A0;<span 
class="ectt-1200">rb),</span>&#x00A0;<span 
class="ectt-1200">&#x0026;xconst)</span>&#x00A0;<span 
class="ectt-1200">&#x003E;</span>&#x00A0;<span 
class="ectt-1200">accx)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">{</span>&#x00A0;&#x00A0;<span 
class="ectt-1200">u1</span>&#x00A0;<span 
class="ectt-1200">=</span>&#x00A0;<span 
class="ectt-1200">u;</span>&#x00A0;<span 
class="ectt-1200">c1</span>&#x00A0;<span 
class="ectt-1200">=</span>&#x00A0;<span 
class="ectt-1200">xconst;</span>&#x00A0;&#x00A0;<span 
class="ectt-1200">}</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">else</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">{</span>&#x00A0;&#x00A0;<span 
class="ectt-1200">u2</span>&#x00A0;<span 
class="ectt-1200">=</span>&#x00A0;<span 
class="ectt-1200">u;</span>&#x00A0;&#x00A0;<span 
class="ectt-1200">c2</span>&#x00A0;<span 
class="ectt-1200">=</span>&#x00A0;<span 
class="ectt-1200">xconst;</span>&#x00A0;<span 
class="ectt-1200">}</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">}</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">*upn</span>&#x00A0;<span 
class="ectt-1200">=</span>&#x00A0;<span 
class="ectt-1200">u2;</span>&#x00A0;<span 
class="ectt-1200">return</span>&#x00A0;<span 
class="ectt-1200">c2;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">}</span>
&#x00A0;<br />
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">static</span>&#x00A0;<span 
class="ectt-1200">real</span>&#x00A0;<span 
class="ectt-1200">truncation(real</span>&#x00A0;<span 
class="ectt-1200">u,</span>&#x00A0;<span 
class="ectt-1200">real</span>&#x00A0;<span 
class="ectt-1200">tausq)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">/*</span>&#x00A0;<span 
class="ectt-1200">bound</span>&#x00A0;<span 
class="ectt-1200">integration</span>&#x00A0;<span 
class="ectt-1200">error</span>&#x00A0;<span 
class="ectt-1200">due</span>&#x00A0;<span 
class="ectt-1200">to</span>&#x00A0;<span 
class="ectt-1200">truncation</span>&#x00A0;<span 
class="ectt-1200">at</span>&#x00A0;<span 
class="ectt-1200">u</span>&#x00A0;<span 
class="ectt-1200">*/</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">{</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">real</span>&#x00A0;<span 
class="ectt-1200">sum1,</span>&#x00A0;<span 
class="ectt-1200">sum2,</span>&#x00A0;<span 
class="ectt-1200">prod1,</span>&#x00A0;<span 
class="ectt-1200">prod2,</span>&#x00A0;<span 
class="ectt-1200">prod3,</span>&#x00A0;<span 
class="ectt-1200">lj,</span>&#x00A0;<span 
class="ectt-1200">ncj,</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">x,</span>&#x00A0;<span 
class="ectt-1200">y,</span>&#x00A0;<span 
class="ectt-1200">err1,</span>&#x00A0;<span 
class="ectt-1200">err2;</span>

&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">int</span>&#x00A0;<span 
class="ectt-1200">j,</span>&#x00A0;<span 
class="ectt-1200">nj,</span>&#x00A0;<span 
class="ectt-1200">s;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">extern</span>&#x00A0;<span 
class="ectt-1200">real</span>&#x00A0;<span 
class="ectt-1200">sigsq,*lb,*nc;</span>&#x00A0;<span 
class="ectt-1200">extern</span>&#x00A0;<span 
class="ectt-1200">int</span>&#x00A0;<span 
class="ectt-1200">*n;</span>&#x00A0;<span 
class="ectt-1200">extern</span>&#x00A0;<span 
class="ectt-1200">int</span>&#x00A0;<span 
class="ectt-1200">r;</span>
&#x00A0;<br />
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">counter();</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">sum1</span>&#x00A0;&#x00A0;<span 
class="ectt-1200">=</span>&#x00A0;<span 
class="ectt-1200">0.0;</span>&#x00A0;<span 
class="ectt-1200">prod2</span>&#x00A0;<span 
class="ectt-1200">=</span>&#x00A0;<span 
class="ectt-1200">0.0;</span>&#x00A0;&#x00A0;<span 
class="ectt-1200">prod3</span>&#x00A0;<span 
class="ectt-1200">=</span>&#x00A0;<span 
class="ectt-1200">0.0;</span>&#x00A0;&#x00A0;<span 
class="ectt-1200">s</span>&#x00A0;<span 
class="ectt-1200">=</span>&#x00A0;<span 
class="ectt-1200">0;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">sum2</span>&#x00A0;<span 
class="ectt-1200">=</span>&#x00A0;<span 
class="ectt-1200">(sigsq</span>&#x00A0;<span 
class="ectt-1200">+</span>&#x00A0;<span 
class="ectt-1200">tausq)</span>&#x00A0;<span 
class="ectt-1200">*</span>&#x00A0;<span 
class="ectt-1200">square(u);</span>&#x00A0;<span 
class="ectt-1200">prod1</span>&#x00A0;<span 
class="ectt-1200">=</span>&#x00A0;<span 
class="ectt-1200">2.0</span>&#x00A0;<span 
class="ectt-1200">*</span>&#x00A0;<span 
class="ectt-1200">sum2;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">u</span>&#x00A0;<span 
class="ectt-1200">=</span>&#x00A0;<span 
class="ectt-1200">2.0</span>&#x00A0;<span 
class="ectt-1200">*</span>&#x00A0;<span 
class="ectt-1200">u;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">for</span>&#x00A0;<span 
class="ectt-1200">(j=0;</span>&#x00A0;<span 
class="ectt-1200">j&#x003C;r;</span>&#x00A0;<span 
class="ectt-1200">j++</span>&#x00A0;<span 
class="ectt-1200">)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">{</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">lj</span>&#x00A0;<span 
class="ectt-1200">=</span>&#x00A0;<span 
class="ectt-1200">lb[j];</span>&#x00A0;&#x00A0;<span 
class="ectt-1200">ncj</span>&#x00A0;<span 
class="ectt-1200">=</span>&#x00A0;<span 
class="ectt-1200">nc[j];</span>&#x00A0;<span 
class="ectt-1200">nj</span>&#x00A0;<span 
class="ectt-1200">=</span>&#x00A0;<span 
class="ectt-1200">n[j];</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">x</span>&#x00A0;<span 
class="ectt-1200">=</span>&#x00A0;<span 
class="ectt-1200">square(u</span>&#x00A0;<span 
class="ectt-1200">*</span>&#x00A0;<span 
class="ectt-1200">lj);</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">sum1</span>&#x00A0;<span 
class="ectt-1200">=</span>&#x00A0;<span 
class="ectt-1200">sum1</span>&#x00A0;<span 
class="ectt-1200">+</span>&#x00A0;<span 
class="ectt-1200">ncj</span>&#x00A0;<span 
class="ectt-1200">*</span>&#x00A0;<span 
class="ectt-1200">x</span>&#x00A0;<span 
class="ectt-1200">/</span>&#x00A0;<span 
class="ectt-1200">(1.0</span>&#x00A0;<span 
class="ectt-1200">+</span>&#x00A0;<span 
class="ectt-1200">x);</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">if</span>&#x00A0;<span 
class="ectt-1200">(x</span>&#x00A0;<span 
class="ectt-1200">&#x003E;</span>&#x00A0;<span 
class="ectt-1200">1.0)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">{</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">prod2</span>&#x00A0;<span 
class="ectt-1200">=</span>&#x00A0;<span 
class="ectt-1200">prod2</span>&#x00A0;<span 
class="ectt-1200">+</span>&#x00A0;<span 
class="ectt-1200">nj</span>&#x00A0;<span 
class="ectt-1200">*</span>&#x00A0;<span 
class="ectt-1200">log(x);</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">prod3</span>&#x00A0;<span 
class="ectt-1200">=</span>&#x00A0;<span 
class="ectt-1200">prod3</span>&#x00A0;<span 
class="ectt-1200">+</span>&#x00A0;<span 
class="ectt-1200">nj</span>&#x00A0;<span 
class="ectt-1200">*</span>&#x00A0;<span 
class="ectt-1200">log1(x,</span>&#x00A0;<span 
class="ectt-1200">TRUE</span>&#x00A0;<span 
class="ectt-1200">);</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">s</span>&#x00A0;<span 
class="ectt-1200">=</span>&#x00A0;<span 
class="ectt-1200">s</span>&#x00A0;<span 
class="ectt-1200">+</span>&#x00A0;<span 
class="ectt-1200">nj;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">}</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">else</span>&#x00A0;&#x00A0;<span 
class="ectt-1200">prod1</span>&#x00A0;<span 
class="ectt-1200">=</span>&#x00A0;<span 
class="ectt-1200">prod1</span>&#x00A0;<span 
class="ectt-1200">+</span>&#x00A0;<span 
class="ectt-1200">nj</span>&#x00A0;<span 
class="ectt-1200">*</span>&#x00A0;<span 
class="ectt-1200">log1(x,</span>&#x00A0;<span 
class="ectt-1200">TRUE</span>&#x00A0;<span 
class="ectt-1200">);</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">}</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">sum1</span>&#x00A0;<span 
class="ectt-1200">=</span>&#x00A0;<span 
class="ectt-1200">0.5</span>&#x00A0;<span 
class="ectt-1200">*</span>&#x00A0;<span 
class="ectt-1200">sum1;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">prod2</span>&#x00A0;<span 
class="ectt-1200">=</span>&#x00A0;<span 
class="ectt-1200">prod1</span>&#x00A0;<span 
class="ectt-1200">+</span>&#x00A0;<span 
class="ectt-1200">prod2;</span>&#x00A0;&#x00A0;<span 
class="ectt-1200">prod3</span>&#x00A0;<span 
class="ectt-1200">=</span>&#x00A0;<span 
class="ectt-1200">prod1</span>&#x00A0;<span 
class="ectt-1200">+</span>&#x00A0;<span 
class="ectt-1200">prod3;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">x</span>&#x00A0;<span 
class="ectt-1200">=</span>&#x00A0;<span 
class="ectt-1200">exp1(-sum1</span>&#x00A0;<span 
class="ectt-1200">-</span>&#x00A0;<span 
class="ectt-1200">0.25</span>&#x00A0;<span 
class="ectt-1200">*</span>&#x00A0;<span 
class="ectt-1200">prod2)</span>&#x00A0;<span 
class="ectt-1200">/</span>&#x00A0;<span 
class="ectt-1200">pi;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">y</span>&#x00A0;<span 
class="ectt-1200">=</span>&#x00A0;<span 
class="ectt-1200">exp1(-sum1</span>&#x00A0;<span 
class="ectt-1200">-</span>&#x00A0;<span 
class="ectt-1200">0.25</span>&#x00A0;<span 
class="ectt-1200">*</span>&#x00A0;<span 
class="ectt-1200">prod3)</span>&#x00A0;<span 
class="ectt-1200">/</span>&#x00A0;<span 
class="ectt-1200">pi;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">err1</span>&#x00A0;<span 
class="ectt-1200">=</span>&#x00A0;&#x00A0;<span 
class="ectt-1200">(</span>&#x00A0;<span 
class="ectt-1200">s</span>&#x00A0;&#x00A0;<span 
class="ectt-1200">==</span>&#x00A0;&#x00A0;<span 
class="ectt-1200">0</span>&#x00A0;<span 
class="ectt-1200">)</span>&#x00A0;&#x00A0;<span 
class="ectt-1200">?</span>&#x00A0;<span 
class="ectt-1200">1.0</span>&#x00A0;<span 
class="ectt-1200">:</span>&#x00A0;<span 
class="ectt-1200">x</span>&#x00A0;<span 
class="ectt-1200">*</span>&#x00A0;<span 
class="ectt-1200">2.0</span>&#x00A0;<span 
class="ectt-1200">/</span>&#x00A0;<span 
class="ectt-1200">s;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">err2</span>&#x00A0;<span 
class="ectt-1200">=</span>&#x00A0;&#x00A0;<span 
class="ectt-1200">(</span>&#x00A0;<span 
class="ectt-1200">prod3</span>&#x00A0;<span 
class="ectt-1200">&#x003E;</span>&#x00A0;<span 
class="ectt-1200">1.0</span>&#x00A0;<span 
class="ectt-1200">)</span>&#x00A0;&#x00A0;<span 
class="ectt-1200">?</span>&#x00A0;<span 
class="ectt-1200">2.5</span>&#x00A0;<span 
class="ectt-1200">*</span>&#x00A0;<span 
class="ectt-1200">y</span>&#x00A0;<span 
class="ectt-1200">:</span>&#x00A0;<span 
class="ectt-1200">1.0;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">if</span>&#x00A0;<span 
class="ectt-1200">(err2</span>&#x00A0;<span 
class="ectt-1200">&#x003C;</span>&#x00A0;<span 
class="ectt-1200">err1)</span>&#x00A0;<span 
class="ectt-1200">err1</span>&#x00A0;<span 
class="ectt-1200">=</span>&#x00A0;<span 
class="ectt-1200">err2;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">x</span>&#x00A0;<span 
class="ectt-1200">=</span>&#x00A0;<span 
class="ectt-1200">0.5</span>&#x00A0;<span 
class="ectt-1200">*</span>&#x00A0;<span 
class="ectt-1200">sum2;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">err2</span>&#x00A0;<span 
class="ectt-1200">=</span>&#x00A0;&#x00A0;<span 
class="ectt-1200">(</span>&#x00A0;<span 
class="ectt-1200">x</span>&#x00A0;&#x00A0;<span 
class="ectt-1200">&#x003C;=</span>&#x00A0;&#x00A0;<span 
class="ectt-1200">y</span>&#x00A0;<span 
class="ectt-1200">)</span>&#x00A0;&#x00A0;<span 
class="ectt-1200">?</span>&#x00A0;<span 
class="ectt-1200">1.0</span>&#x00A0;&#x00A0;<span 
class="ectt-1200">:</span>&#x00A0;<span 
class="ectt-1200">y</span>&#x00A0;<span 
class="ectt-1200">/</span>&#x00A0;<span 
class="ectt-1200">x;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">return</span>&#x00A0;&#x00A0;<span 
class="ectt-1200">(</span>&#x00A0;<span 
class="ectt-1200">err1</span>&#x00A0;<span 
class="ectt-1200">&#x003C;</span>&#x00A0;<span 
class="ectt-1200">err2</span>&#x00A0;<span 
class="ectt-1200">)</span>&#x00A0;&#x00A0;<span 
class="ectt-1200">?</span>&#x00A0;<span 
class="ectt-1200">err1</span>&#x00A0;&#x00A0;<span 
class="ectt-1200">:</span>&#x00A0;&#x00A0;<span 
class="ectt-1200">err2;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">}</span>
&#x00A0;<br />
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">static</span>&#x00A0;<span 
class="ectt-1200">void</span>&#x00A0;<span 
class="ectt-1200">findu(real*</span>&#x00A0;<span 
class="ectt-1200">utx,</span>&#x00A0;<span 
class="ectt-1200">real</span>&#x00A0;<span 
class="ectt-1200">accx)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">/*</span>&#x00A0;&#x00A0;<span 
class="ectt-1200">find</span>&#x00A0;<span 
class="ectt-1200">u</span>&#x00A0;<span 
class="ectt-1200">such</span>&#x00A0;<span 
class="ectt-1200">that</span>&#x00A0;<span 
class="ectt-1200">truncation(u)</span>&#x00A0;<span 
class="ectt-1200">&#x003C;</span>&#x00A0;<span 
class="ectt-1200">accx</span>&#x00A0;<span 
class="ectt-1200">and</span>&#x00A0;<span 
class="ectt-1200">truncation(u</span>&#x00A0;<span 
class="ectt-1200">/</span>&#x00A0;<span 
class="ectt-1200">1.2)</span>&#x00A0;<span 
class="ectt-1200">&#x003E;</span>&#x00A0;<span 
class="ectt-1200">accx</span>&#x00A0;<span 
class="ectt-1200">*/</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">{</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">real</span>&#x00A0;<span 
class="ectt-1200">u,</span>&#x00A0;<span 
class="ectt-1200">ut;</span>&#x00A0;<span 
class="ectt-1200">int</span>&#x00A0;<span 
class="ectt-1200">i;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">static</span>&#x00A0;<span 
class="ectt-1200">real</span>&#x00A0;<span 
class="ectt-1200">divis[]={2.0,1.4,1.2,1.1};</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">ut</span>&#x00A0;<span 
class="ectt-1200">=</span>&#x00A0;<span 
class="ectt-1200">*utx;</span>&#x00A0;<span 
class="ectt-1200">u</span>&#x00A0;<span 
class="ectt-1200">=</span>&#x00A0;<span 
class="ectt-1200">ut</span>&#x00A0;<span 
class="ectt-1200">/</span>&#x00A0;<span 
class="ectt-1200">4.0;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">if</span>&#x00A0;<span 
class="ectt-1200">(</span>&#x00A0;<span 
class="ectt-1200">truncation(u,</span>&#x00A0;<span 
class="ectt-1200">0.0)</span>&#x00A0;<span 
class="ectt-1200">&#x003E;</span>&#x00A0;<span 
class="ectt-1200">accx</span>&#x00A0;<span 
class="ectt-1200">)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">{</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">for</span>&#x00A0;<span 
class="ectt-1200">(</span>&#x00A0;<span 
class="ectt-1200">u</span>&#x00A0;<span 
class="ectt-1200">=</span>&#x00A0;<span 
class="ectt-1200">ut;</span>&#x00A0;<span 
class="ectt-1200">truncation(u,</span>&#x00A0;<span 
class="ectt-1200">0.0)</span>&#x00A0;<span 
class="ectt-1200">&#x003E;</span>&#x00A0;<span 
class="ectt-1200">accx;</span>&#x00A0;<span 
class="ectt-1200">u</span>&#x00A0;<span 
class="ectt-1200">=</span>&#x00A0;<span 
class="ectt-1200">ut)</span>&#x00A0;<span 
class="ectt-1200">ut</span>&#x00A0;<span 
class="ectt-1200">=</span>&#x00A0;<span 
class="ectt-1200">ut</span>&#x00A0;<span 
class="ectt-1200">*</span>&#x00A0;<span 
class="ectt-1200">4.0;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">}</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">else</span>

&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">{</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">ut</span>&#x00A0;<span 
class="ectt-1200">=</span>&#x00A0;<span 
class="ectt-1200">u;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">for</span>&#x00A0;<span 
class="ectt-1200">(</span>&#x00A0;<span 
class="ectt-1200">u</span>&#x00A0;<span 
class="ectt-1200">=</span>&#x00A0;<span 
class="ectt-1200">u</span>&#x00A0;<span 
class="ectt-1200">/</span>&#x00A0;<span 
class="ectt-1200">4.0;</span>&#x00A0;<span 
class="ectt-1200">truncation(u,</span>&#x00A0;<span 
class="ectt-1200">0.0)</span>&#x00A0;<span 
class="ectt-1200">&#x003C;=</span>&#x00A0;&#x00A0;<span 
class="ectt-1200">accx;</span>&#x00A0;<span 
class="ectt-1200">u</span>&#x00A0;<span 
class="ectt-1200">=</span>&#x00A0;<span 
class="ectt-1200">u</span>&#x00A0;<span 
class="ectt-1200">/</span>&#x00A0;<span 
class="ectt-1200">4.0</span>&#x00A0;<span 
class="ectt-1200">)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">ut</span>&#x00A0;<span 
class="ectt-1200">=</span>&#x00A0;<span 
class="ectt-1200">u;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">}</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">for</span>&#x00A0;<span 
class="ectt-1200">(</span>&#x00A0;<span 
class="ectt-1200">i=0;i&#x003C;4;i++)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">{</span>&#x00A0;<span 
class="ectt-1200">u</span>&#x00A0;<span 
class="ectt-1200">=</span>&#x00A0;<span 
class="ectt-1200">ut/divis[i];</span>&#x00A0;<span 
class="ectt-1200">if</span>&#x00A0;<span 
class="ectt-1200">(</span>&#x00A0;<span 
class="ectt-1200">truncation(u,</span>&#x00A0;<span 
class="ectt-1200">0.0)</span>&#x00A0;&#x00A0;<span 
class="ectt-1200">&#x003C;=</span>&#x00A0;&#x00A0;<span 
class="ectt-1200">accx</span>&#x00A0;<span 
class="ectt-1200">)</span>&#x00A0;&#x00A0;<span 
class="ectt-1200">ut</span>&#x00A0;<span 
class="ectt-1200">=</span>&#x00A0;<span 
class="ectt-1200">u;</span>&#x00A0;<span 
class="ectt-1200">}</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">*utx</span>&#x00A0;<span 
class="ectt-1200">=</span>&#x00A0;<span 
class="ectt-1200">ut;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">}</span>
&#x00A0;<br />
&#x00A0;<br />
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">static</span>&#x00A0;<span 
class="ectt-1200">void</span>&#x00A0;<span 
class="ectt-1200">integrate(int</span>&#x00A0;<span 
class="ectt-1200">nterm,</span>&#x00A0;<span 
class="ectt-1200">real</span>&#x00A0;<span 
class="ectt-1200">interv,</span>&#x00A0;<span 
class="ectt-1200">real</span>&#x00A0;<span 
class="ectt-1200">tausq,</span>&#x00A0;<span 
class="ectt-1200">BOOL</span>&#x00A0;<span 
class="ectt-1200">mainx)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">/*</span>&#x00A0;&#x00A0;<span 
class="ectt-1200">carry</span>&#x00A0;<span 
class="ectt-1200">out</span>&#x00A0;<span 
class="ectt-1200">integration</span>&#x00A0;<span 
class="ectt-1200">with</span>&#x00A0;<span 
class="ectt-1200">nterm</span>&#x00A0;<span 
class="ectt-1200">terms,</span>&#x00A0;<span 
class="ectt-1200">at</span>&#x00A0;<span 
class="ectt-1200">stepsize</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">interv.</span>&#x00A0;&#x00A0;<span 
class="ectt-1200">if</span>&#x00A0;<span 
class="ectt-1200">(!</span>&#x00A0;<span 
class="ectt-1200">mainx)</span>&#x00A0;<span 
class="ectt-1200">multiply</span>&#x00A0;<span 
class="ectt-1200">integrand</span>&#x00A0;<span 
class="ectt-1200">by</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">1.0-exp(-0.5*tausq*u&#x0302;2)</span>&#x00A0;<span 
class="ectt-1200">*/</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">{</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">real</span>&#x00A0;<span 
class="ectt-1200">inpi,</span>&#x00A0;<span 
class="ectt-1200">u,</span>&#x00A0;<span 
class="ectt-1200">sum1,</span>&#x00A0;<span 
class="ectt-1200">sum2,</span>&#x00A0;<span 
class="ectt-1200">sum3,</span>&#x00A0;<span 
class="ectt-1200">x,</span>&#x00A0;<span 
class="ectt-1200">y,</span>&#x00A0;<span 
class="ectt-1200">z;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">int</span>&#x00A0;<span 
class="ectt-1200">k,</span>&#x00A0;<span 
class="ectt-1200">j,</span>&#x00A0;<span 
class="ectt-1200">nj;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">extern</span>&#x00A0;<span 
class="ectt-1200">double</span>&#x00A0;<span 
class="ectt-1200">intl,ersm;</span>&#x00A0;<span 
class="ectt-1200">extern</span>&#x00A0;<span 
class="ectt-1200">real</span>&#x00A0;<span 
class="ectt-1200">sigsq,c;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">extern</span>&#x00A0;<span 
class="ectt-1200">int</span>&#x00A0;<span 
class="ectt-1200">*n;</span>&#x00A0;<span 
class="ectt-1200">extern</span>&#x00A0;<span 
class="ectt-1200">real</span>&#x00A0;<span 
class="ectt-1200">*lb,*nc;</span>&#x00A0;<span 
class="ectt-1200">extern</span>&#x00A0;<span 
class="ectt-1200">int</span>&#x00A0;<span 
class="ectt-1200">r;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">inpi</span>&#x00A0;<span 
class="ectt-1200">=</span>&#x00A0;<span 
class="ectt-1200">interv</span>&#x00A0;<span 
class="ectt-1200">/</span>&#x00A0;<span 
class="ectt-1200">pi;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">for</span>&#x00A0;<span 
class="ectt-1200">(</span>&#x00A0;<span 
class="ectt-1200">k</span>&#x00A0;<span 
class="ectt-1200">=</span>&#x00A0;<span 
class="ectt-1200">nterm;</span>&#x00A0;<span 
class="ectt-1200">k&#x003E;=0;</span>&#x00A0;<span 
class="ectt-1200">k--)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">{</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">u</span>&#x00A0;<span 
class="ectt-1200">=</span>&#x00A0;<span 
class="ectt-1200">(k</span>&#x00A0;<span 
class="ectt-1200">+</span>&#x00A0;<span 
class="ectt-1200">0.5)</span>&#x00A0;<span 
class="ectt-1200">*</span>&#x00A0;<span 
class="ectt-1200">interv;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">sum1</span>&#x00A0;<span 
class="ectt-1200">=</span>&#x00A0;<span 
class="ectt-1200">-</span>&#x00A0;<span 
class="ectt-1200">2.0</span>&#x00A0;<span 
class="ectt-1200">*</span>&#x00A0;<span 
class="ectt-1200">u</span>&#x00A0;<span 
class="ectt-1200">*</span>&#x00A0;<span 
class="ectt-1200">c;</span>&#x00A0;&#x00A0;<span 
class="ectt-1200">sum2</span>&#x00A0;<span 
class="ectt-1200">=</span>&#x00A0;<span 
class="ectt-1200">fabs(sum1);</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">sum3</span>&#x00A0;<span 
class="ectt-1200">=</span>&#x00A0;<span 
class="ectt-1200">-</span>&#x00A0;<span 
class="ectt-1200">0.5</span>&#x00A0;<span 
class="ectt-1200">*</span>&#x00A0;<span 
class="ectt-1200">sigsq</span>&#x00A0;<span 
class="ectt-1200">*</span>&#x00A0;<span 
class="ectt-1200">square(u);</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">for</span>&#x00A0;<span 
class="ectt-1200">(</span>&#x00A0;<span 
class="ectt-1200">j</span>&#x00A0;<span 
class="ectt-1200">=</span>&#x00A0;<span 
class="ectt-1200">r-1;</span>&#x00A0;<span 
class="ectt-1200">j&#x003E;=0;</span>&#x00A0;<span 
class="ectt-1200">j--)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">{</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">nj</span>&#x00A0;<span 
class="ectt-1200">=</span>&#x00A0;<span 
class="ectt-1200">n[j];</span>&#x00A0;&#x00A0;<span 
class="ectt-1200">x</span>&#x00A0;<span 
class="ectt-1200">=</span>&#x00A0;<span 
class="ectt-1200">2.0</span>&#x00A0;<span 
class="ectt-1200">*</span>&#x00A0;<span 
class="ectt-1200">lb[j]</span>&#x00A0;<span 
class="ectt-1200">*</span>&#x00A0;<span 
class="ectt-1200">u;</span>&#x00A0;&#x00A0;<span 
class="ectt-1200">y</span>&#x00A0;<span 
class="ectt-1200">=</span>&#x00A0;<span 
class="ectt-1200">square(x);</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">sum3</span>&#x00A0;<span 
class="ectt-1200">=</span>&#x00A0;<span 
class="ectt-1200">sum3</span>&#x00A0;<span 
class="ectt-1200">-</span>&#x00A0;<span 
class="ectt-1200">0.25</span>&#x00A0;<span 
class="ectt-1200">*</span>&#x00A0;<span 
class="ectt-1200">nj</span>&#x00A0;<span 
class="ectt-1200">*</span>&#x00A0;<span 
class="ectt-1200">log1(y,</span>&#x00A0;<span 
class="ectt-1200">TRUE</span>&#x00A0;<span 
class="ectt-1200">);</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">y</span>&#x00A0;<span 
class="ectt-1200">=</span>&#x00A0;<span 
class="ectt-1200">nc[j]</span>&#x00A0;<span 
class="ectt-1200">*</span>&#x00A0;<span 
class="ectt-1200">x</span>&#x00A0;<span 
class="ectt-1200">/</span>&#x00A0;<span 
class="ectt-1200">(1.0</span>&#x00A0;<span 
class="ectt-1200">+</span>&#x00A0;<span 
class="ectt-1200">y);</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">z</span>&#x00A0;<span 
class="ectt-1200">=</span>&#x00A0;<span 
class="ectt-1200">nj</span>&#x00A0;<span 
class="ectt-1200">*</span>&#x00A0;<span 
class="ectt-1200">atan(x)</span>&#x00A0;<span 
class="ectt-1200">+</span>&#x00A0;<span 
class="ectt-1200">y;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">sum1</span>&#x00A0;<span 
class="ectt-1200">=</span>&#x00A0;<span 
class="ectt-1200">sum1</span>&#x00A0;<span 
class="ectt-1200">+</span>&#x00A0;<span 
class="ectt-1200">z;</span>&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">sum2</span>&#x00A0;<span 
class="ectt-1200">=</span>&#x00A0;<span 
class="ectt-1200">sum2</span>&#x00A0;<span 
class="ectt-1200">+</span>&#x00A0;<span 
class="ectt-1200">fabs(z);</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">sum3</span>&#x00A0;<span 
class="ectt-1200">=</span>&#x00A0;<span 
class="ectt-1200">sum3</span>&#x00A0;<span 
class="ectt-1200">-</span>&#x00A0;<span 
class="ectt-1200">0.5</span>&#x00A0;<span 
class="ectt-1200">*</span>&#x00A0;<span 
class="ectt-1200">x</span>&#x00A0;<span 
class="ectt-1200">*</span>&#x00A0;<span 
class="ectt-1200">y;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">}</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">x</span>&#x00A0;<span 
class="ectt-1200">=</span>&#x00A0;<span 
class="ectt-1200">inpi</span>&#x00A0;<span 
class="ectt-1200">*</span>&#x00A0;<span 
class="ectt-1200">exp1(sum3)</span>&#x00A0;<span 
class="ectt-1200">/</span>&#x00A0;<span 
class="ectt-1200">u;</span>
&#x00A0;<br />&#x00A0;<span 
class="ectt-1200">if</span>&#x00A0;<span 
class="ectt-1200">(</span>&#x00A0;<span 
class="ectt-1200">!</span>&#x00A0;&#x00A0;<span 
class="ectt-1200">mainx</span>&#x00A0;<span 
class="ectt-1200">)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">x</span>&#x00A0;<span 
class="ectt-1200">=</span>&#x00A0;<span 
class="ectt-1200">x</span>&#x00A0;<span 
class="ectt-1200">*</span>&#x00A0;<span 
class="ectt-1200">(1.0</span>&#x00A0;<span 
class="ectt-1200">-</span>&#x00A0;<span 
class="ectt-1200">exp1(-0.5</span>&#x00A0;<span 
class="ectt-1200">*</span>&#x00A0;<span 
class="ectt-1200">tausq</span>&#x00A0;<span 
class="ectt-1200">*</span>&#x00A0;<span 
class="ectt-1200">square(u)));</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">sum1</span>&#x00A0;<span 
class="ectt-1200">=</span>&#x00A0;<span 
class="ectt-1200">sin(0.5</span>&#x00A0;<span 
class="ectt-1200">*</span>&#x00A0;<span 
class="ectt-1200">sum1)</span>&#x00A0;<span 
class="ectt-1200">*</span>&#x00A0;<span 
class="ectt-1200">x;</span>&#x00A0;&#x00A0;<span 
class="ectt-1200">sum2</span>&#x00A0;<span 
class="ectt-1200">=</span>&#x00A0;<span 
class="ectt-1200">0.5</span>&#x00A0;<span 
class="ectt-1200">*</span>&#x00A0;<span 
class="ectt-1200">sum2</span>&#x00A0;<span 
class="ectt-1200">*</span>&#x00A0;<span 
class="ectt-1200">x;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">intl</span>&#x00A0;<span 
class="ectt-1200">=</span>&#x00A0;<span 
class="ectt-1200">intl</span>&#x00A0;<span 
class="ectt-1200">+</span>&#x00A0;<span 
class="ectt-1200">sum1;</span>&#x00A0;<span 
class="ectt-1200">ersm</span>&#x00A0;<span 
class="ectt-1200">=</span>&#x00A0;<span 
class="ectt-1200">ersm</span>&#x00A0;<span 
class="ectt-1200">+</span>&#x00A0;<span 
class="ectt-1200">sum2;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">}</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">}</span>
&#x00A0;<br />

&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">static</span>&#x00A0;<span 
class="ectt-1200">real</span>&#x00A0;<span 
class="ectt-1200">cfe(real</span>&#x00A0;<span 
class="ectt-1200">x)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">/*</span>&#x00A0;&#x00A0;<span 
class="ectt-1200">coef</span>&#x00A0;<span 
class="ectt-1200">of</span>&#x00A0;<span 
class="ectt-1200">tausq</span>&#x00A0;<span 
class="ectt-1200">in</span>&#x00A0;<span 
class="ectt-1200">error</span>&#x00A0;<span 
class="ectt-1200">when</span>&#x00A0;<span 
class="ectt-1200">convergence</span>&#x00A0;<span 
class="ectt-1200">factor</span>&#x00A0;<span 
class="ectt-1200">of</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">exp1(-0.5*tausq*u&#x0302;2)</span>&#x00A0;<span 
class="ectt-1200">is</span>&#x00A0;<span 
class="ectt-1200">used</span>&#x00A0;<span 
class="ectt-1200">when</span>&#x00A0;<span 
class="ectt-1200">df</span>&#x00A0;<span 
class="ectt-1200">is</span>&#x00A0;<span 
class="ectt-1200">evaluated</span>&#x00A0;<span 
class="ectt-1200">at</span>&#x00A0;<span 
class="ectt-1200">x</span>&#x00A0;<span 
class="ectt-1200">*/</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">{</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">real</span>&#x00A0;<span 
class="ectt-1200">axl,</span>&#x00A0;<span 
class="ectt-1200">axl1,</span>&#x00A0;<span 
class="ectt-1200">axl2,</span>&#x00A0;<span 
class="ectt-1200">sxl,</span>&#x00A0;<span 
class="ectt-1200">sum1,</span>&#x00A0;<span 
class="ectt-1200">lj;</span>&#x00A0;<span 
class="ectt-1200">int</span>&#x00A0;<span 
class="ectt-1200">j,</span>&#x00A0;<span 
class="ectt-1200">k,</span>&#x00A0;<span 
class="ectt-1200">t;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">extern</span>&#x00A0;<span 
class="ectt-1200">BOOL</span>&#x00A0;<span 
class="ectt-1200">ndtsrt,fail;</span>&#x00A0;<span 
class="ectt-1200">extern</span>&#x00A0;<span 
class="ectt-1200">int</span>&#x00A0;<span 
class="ectt-1200">*th,*n;</span>&#x00A0;<span 
class="ectt-1200">extern</span>&#x00A0;<span 
class="ectt-1200">real</span>&#x00A0;<span 
class="ectt-1200">*lb,*nc;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">extern</span>&#x00A0;<span 
class="ectt-1200">int</span>&#x00A0;<span 
class="ectt-1200">r;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">counter();</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">if</span>&#x00A0;<span 
class="ectt-1200">(ndtsrt)</span>&#x00A0;<span 
class="ectt-1200">order();</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">axl</span>&#x00A0;<span 
class="ectt-1200">=</span>&#x00A0;<span 
class="ectt-1200">fabs(x);</span>&#x00A0;&#x00A0;<span 
class="ectt-1200">sxl</span>&#x00A0;<span 
class="ectt-1200">=</span>&#x00A0;<span 
class="ectt-1200">(x&#x003E;0.0)</span>&#x00A0;<span 
class="ectt-1200">?</span>&#x00A0;<span 
class="ectt-1200">1.0</span>&#x00A0;<span 
class="ectt-1200">:</span>&#x00A0;<span 
class="ectt-1200">-1.0;</span>&#x00A0;&#x00A0;<span 
class="ectt-1200">sum1</span>&#x00A0;<span 
class="ectt-1200">=</span>&#x00A0;<span 
class="ectt-1200">0.0;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">for</span>&#x00A0;<span 
class="ectt-1200">(</span>&#x00A0;<span 
class="ectt-1200">j</span>&#x00A0;<span 
class="ectt-1200">=</span>&#x00A0;<span 
class="ectt-1200">r-1;</span>&#x00A0;<span 
class="ectt-1200">j&#x003E;=0;</span>&#x00A0;<span 
class="ectt-1200">j--</span>&#x00A0;<span 
class="ectt-1200">)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">{</span>&#x00A0;<span 
class="ectt-1200">t</span>&#x00A0;<span 
class="ectt-1200">=</span>&#x00A0;<span 
class="ectt-1200">th[j];</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">if</span>&#x00A0;<span 
class="ectt-1200">(</span>&#x00A0;<span 
class="ectt-1200">lb[t]</span>&#x00A0;<span 
class="ectt-1200">*</span>&#x00A0;<span 
class="ectt-1200">sxl</span>&#x00A0;<span 
class="ectt-1200">&#x003E;</span>&#x00A0;<span 
class="ectt-1200">0.0</span>&#x00A0;<span 
class="ectt-1200">)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">{</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">lj</span>&#x00A0;<span 
class="ectt-1200">=</span>&#x00A0;<span 
class="ectt-1200">fabs(lb[t]);</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">axl1</span>&#x00A0;<span 
class="ectt-1200">=</span>&#x00A0;<span 
class="ectt-1200">axl</span>&#x00A0;<span 
class="ectt-1200">-</span>&#x00A0;<span 
class="ectt-1200">lj</span>&#x00A0;<span 
class="ectt-1200">*</span>&#x00A0;<span 
class="ectt-1200">(n[t]</span>&#x00A0;<span 
class="ectt-1200">+</span>&#x00A0;<span 
class="ectt-1200">nc[t]);</span>&#x00A0;&#x00A0;<span 
class="ectt-1200">axl2</span>&#x00A0;<span 
class="ectt-1200">=</span>&#x00A0;<span 
class="ectt-1200">lj</span>&#x00A0;<span 
class="ectt-1200">/</span>&#x00A0;<span 
class="ectt-1200">log28;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">if</span>&#x00A0;<span 
class="ectt-1200">(</span>&#x00A0;<span 
class="ectt-1200">axl1</span>&#x00A0;<span 
class="ectt-1200">&#x003E;</span>&#x00A0;<span 
class="ectt-1200">axl2</span>&#x00A0;<span 
class="ectt-1200">)</span>&#x00A0;&#x00A0;<span 
class="ectt-1200">axl</span>&#x00A0;<span 
class="ectt-1200">=</span>&#x00A0;<span 
class="ectt-1200">axl1</span>&#x00A0;&#x00A0;<span 
class="ectt-1200">;</span>&#x00A0;<span 
class="ectt-1200">else</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">{</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">if</span>&#x00A0;<span 
class="ectt-1200">(</span>&#x00A0;<span 
class="ectt-1200">axl</span>&#x00A0;<span 
class="ectt-1200">&#x003E;</span>&#x00A0;<span 
class="ectt-1200">axl2</span>&#x00A0;<span 
class="ectt-1200">)</span>&#x00A0;&#x00A0;<span 
class="ectt-1200">axl</span>&#x00A0;<span 
class="ectt-1200">=</span>&#x00A0;<span 
class="ectt-1200">axl2;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">sum1</span>&#x00A0;<span 
class="ectt-1200">=</span>&#x00A0;<span 
class="ectt-1200">(axl</span>&#x00A0;<span 
class="ectt-1200">-</span>&#x00A0;<span 
class="ectt-1200">axl1)</span>&#x00A0;<span 
class="ectt-1200">/</span>&#x00A0;<span 
class="ectt-1200">lj;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">for</span>&#x00A0;<span 
class="ectt-1200">(</span>&#x00A0;<span 
class="ectt-1200">k</span>&#x00A0;<span 
class="ectt-1200">=</span>&#x00A0;<span 
class="ectt-1200">j-1;</span>&#x00A0;<span 
class="ectt-1200">k&#x003E;=0;</span>&#x00A0;<span 
class="ectt-1200">k--)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">sum1</span>&#x00A0;<span 
class="ectt-1200">=</span>&#x00A0;<span 
class="ectt-1200">sum1</span>&#x00A0;<span 
class="ectt-1200">+</span>&#x00A0;<span 
class="ectt-1200">(n[th[k]]</span>&#x00A0;<span 
class="ectt-1200">+</span>&#x00A0;<span 
class="ectt-1200">nc[th[k]]);</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">goto</span>&#x00A0;&#x00A0;<span 
class="ectt-1200">l;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">}</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">}</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">}</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">l:</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">if</span>&#x00A0;<span 
class="ectt-1200">(sum1</span>&#x00A0;<span 
class="ectt-1200">&#x003E;</span>&#x00A0;<span 
class="ectt-1200">100.0)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">{</span>&#x00A0;<span 
class="ectt-1200">fail</span>&#x00A0;<span 
class="ectt-1200">=</span>&#x00A0;<span 
class="ectt-1200">TRUE;</span>&#x00A0;<span 
class="ectt-1200">return</span>&#x00A0;<span 
class="ectt-1200">1.0;</span>&#x00A0;<span 
class="ectt-1200">}</span>&#x00A0;<span 
class="ectt-1200">else</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">return</span>&#x00A0;<span 
class="ectt-1200">pow(2.0,(sum1</span>&#x00A0;<span 
class="ectt-1200">/</span>&#x00A0;<span 
class="ectt-1200">4.0))</span>&#x00A0;<span 
class="ectt-1200">/</span>&#x00A0;<span 
class="ectt-1200">(pi</span>&#x00A0;<span 
class="ectt-1200">*</span>&#x00A0;<span 
class="ectt-1200">square(axl));</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">}</span>
&#x00A0;<br />
&#x00A0;<br />
&#x00A0;<br /><span 
class="ectt-1200">real</span>&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">qf(real*</span>&#x00A0;<span 
class="ectt-1200">lb1,</span>&#x00A0;<span 
class="ectt-1200">real*</span>&#x00A0;<span 
class="ectt-1200">nc1,</span>&#x00A0;<span 
class="ectt-1200">int*</span>&#x00A0;<span 
class="ectt-1200">n1,</span>&#x00A0;<span 
class="ectt-1200">int</span>&#x00A0;<span 
class="ectt-1200">r1,</span>&#x00A0;<span 
class="ectt-1200">real</span>&#x00A0;<span 
class="ectt-1200">sigma,</span>&#x00A0;<span 
class="ectt-1200">real</span>&#x00A0;<span 
class="ectt-1200">c1,</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">int</span>&#x00A0;<span 
class="ectt-1200">lim1,</span>&#x00A0;<span 
class="ectt-1200">real</span>&#x00A0;<span 
class="ectt-1200">acc,</span>&#x00A0;<span 
class="ectt-1200">real*</span>&#x00A0;<span 
class="ectt-1200">trace,</span>&#x00A0;<span 
class="ectt-1200">int*</span>&#x00A0;<span 
class="ectt-1200">ifault)</span>
&#x00A0;<br />
&#x00A0;<br /><span 
class="ectt-1200">/*</span>&#x00A0;&#x00A0;<span 
class="ectt-1200">distribution</span>&#x00A0;<span 
class="ectt-1200">function</span>&#x00A0;<span 
class="ectt-1200">of</span>&#x00A0;<span 
class="ectt-1200">a</span>&#x00A0;<span 
class="ectt-1200">linear</span>&#x00A0;<span 
class="ectt-1200">combination</span>&#x00A0;<span 
class="ectt-1200">of</span>&#x00A0;<span 
class="ectt-1200">non-central</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">chi-squared</span>&#x00A0;<span 
class="ectt-1200">random</span>&#x00A0;<span 
class="ectt-1200">variables</span>&#x00A0;<span 
class="ectt-1200">:</span>
&#x00A0;<br />
&#x00A0;<br /><span 
class="ectt-1200">input:</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">lb[j]</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">coefficient</span>&#x00A0;<span 
class="ectt-1200">of</span>&#x00A0;<span 
class="ectt-1200">j-th</span>&#x00A0;<span 
class="ectt-1200">chi-squared</span>&#x00A0;<span 
class="ectt-1200">variable</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">nc[j]</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">non-centrality</span>&#x00A0;<span 
class="ectt-1200">parameter</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">n[j]</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">degrees</span>&#x00A0;<span 
class="ectt-1200">of</span>&#x00A0;<span 
class="ectt-1200">freedom</span>

&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">j</span>&#x00A0;<span 
class="ectt-1200">=</span>&#x00A0;<span 
class="ectt-1200">0,</span>&#x00A0;<span 
class="ectt-1200">2</span>&#x00A0;<span 
class="ectt-1200">...</span>&#x00A0;<span 
class="ectt-1200">r-1</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">sigma</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">coefficient</span>&#x00A0;<span 
class="ectt-1200">of</span>&#x00A0;<span 
class="ectt-1200">standard</span>&#x00A0;<span 
class="ectt-1200">normal</span>&#x00A0;<span 
class="ectt-1200">variable</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">point</span>&#x00A0;<span 
class="ectt-1200">at</span>&#x00A0;<span 
class="ectt-1200">which</span>&#x00A0;<span 
class="ectt-1200">df</span>&#x00A0;<span 
class="ectt-1200">is</span>&#x00A0;<span 
class="ectt-1200">to</span>&#x00A0;<span 
class="ectt-1200">be</span>&#x00A0;<span 
class="ectt-1200">evaluated</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">lim</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">maximum</span>&#x00A0;<span 
class="ectt-1200">number</span>&#x00A0;<span 
class="ectt-1200">of</span>&#x00A0;<span 
class="ectt-1200">terms</span>&#x00A0;<span 
class="ectt-1200">in</span>&#x00A0;<span 
class="ectt-1200">integration</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">acc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">maximum</span>&#x00A0;<span 
class="ectt-1200">error</span>
&#x00A0;<br />
&#x00A0;<br /><span 
class="ectt-1200">output:</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">ifault</span>&#x00A0;<span 
class="ectt-1200">=</span>&#x00A0;<span 
class="ectt-1200">1</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">required</span>&#x00A0;<span 
class="ectt-1200">accuracy</span>&#x00A0;<span 
class="ectt-1200">NOT</span>&#x00A0;<span 
class="ectt-1200">achieved</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">2</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">round-off</span>&#x00A0;<span 
class="ectt-1200">error</span>&#x00A0;<span 
class="ectt-1200">possibly</span>&#x00A0;<span 
class="ectt-1200">significant</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">3</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">invalid</span>&#x00A0;<span 
class="ectt-1200">parameters</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">4</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">unable</span>&#x00A0;<span 
class="ectt-1200">to</span>&#x00A0;<span 
class="ectt-1200">locate</span>&#x00A0;<span 
class="ectt-1200">integration</span>&#x00A0;<span 
class="ectt-1200">parameters</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">5</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">out</span>&#x00A0;<span 
class="ectt-1200">of</span>&#x00A0;<span 
class="ectt-1200">memory</span>
&#x00A0;<br />
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">trace[0]</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">absolute</span>&#x00A0;<span 
class="ectt-1200">sum</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">trace[1]</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">total</span>&#x00A0;<span 
class="ectt-1200">number</span>&#x00A0;<span 
class="ectt-1200">of</span>&#x00A0;<span 
class="ectt-1200">integration</span>&#x00A0;<span 
class="ectt-1200">terms</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">trace[2]</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">number</span>&#x00A0;<span 
class="ectt-1200">of</span>&#x00A0;<span 
class="ectt-1200">integrations</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">trace[3]</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">integration</span>&#x00A0;<span 
class="ectt-1200">interval</span>&#x00A0;<span 
class="ectt-1200">in</span>&#x00A0;<span 
class="ectt-1200">final</span>&#x00A0;<span 
class="ectt-1200">integration</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">trace[4]</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">truncation</span>&#x00A0;<span 
class="ectt-1200">point</span>&#x00A0;<span 
class="ectt-1200">in</span>&#x00A0;<span 
class="ectt-1200">initial</span>&#x00A0;<span 
class="ectt-1200">integration</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">trace[5]</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">s.d.</span>&#x00A0;<span 
class="ectt-1200">of</span>&#x00A0;<span 
class="ectt-1200">initial</span>&#x00A0;<span 
class="ectt-1200">convergence</span>&#x00A0;<span 
class="ectt-1200">factor</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">trace[6]</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">cycles</span>&#x00A0;<span 
class="ectt-1200">to</span>&#x00A0;<span 
class="ectt-1200">locate</span>&#x00A0;<span 
class="ectt-1200">integration</span>&#x00A0;<span 
class="ectt-1200">parameters</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">*/</span>
&#x00A0;<br />
&#x00A0;<br /><span 
class="ectt-1200">{</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">int</span>&#x00A0;<span 
class="ectt-1200">j,</span>&#x00A0;<span 
class="ectt-1200">nj,</span>&#x00A0;<span 
class="ectt-1200">nt,</span>&#x00A0;<span 
class="ectt-1200">ntm;</span>&#x00A0;&#x00A0;<span 
class="ectt-1200">real</span>&#x00A0;<span 
class="ectt-1200">acc1,</span>&#x00A0;<span 
class="ectt-1200">almx,</span>&#x00A0;<span 
class="ectt-1200">xlim,</span>&#x00A0;<span 
class="ectt-1200">xnt,</span>&#x00A0;<span 
class="ectt-1200">xntm;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">real</span>&#x00A0;<span 
class="ectt-1200">utx,</span>&#x00A0;<span 
class="ectt-1200">tausq,</span>&#x00A0;<span 
class="ectt-1200">sd,</span>&#x00A0;<span 
class="ectt-1200">intv,</span>&#x00A0;<span 
class="ectt-1200">intv1,</span>&#x00A0;<span 
class="ectt-1200">x,</span>&#x00A0;<span 
class="ectt-1200">up,</span>&#x00A0;<span 
class="ectt-1200">un,</span>&#x00A0;<span 
class="ectt-1200">d1,</span>&#x00A0;<span 
class="ectt-1200">d2,</span>&#x00A0;<span 
class="ectt-1200">lj,</span>&#x00A0;<span 
class="ectt-1200">ncj;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">extern</span>&#x00A0;<span 
class="ectt-1200">real</span>&#x00A0;<span 
class="ectt-1200">sigsq,</span>&#x00A0;<span 
class="ectt-1200">lmax,</span>&#x00A0;<span 
class="ectt-1200">lmin,</span>&#x00A0;<span 
class="ectt-1200">mean;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">extern</span>&#x00A0;<span 
class="ectt-1200">double</span>&#x00A0;<span 
class="ectt-1200">intl,ersm;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">extern</span>&#x00A0;<span 
class="ectt-1200">int</span>&#x00A0;<span 
class="ectt-1200">r,lim;</span>&#x00A0;<span 
class="ectt-1200">extern</span>&#x00A0;<span 
class="ectt-1200">real</span>&#x00A0;<span 
class="ectt-1200">c;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">extern</span>&#x00A0;<span 
class="ectt-1200">int</span>&#x00A0;<span 
class="ectt-1200">*n,*th;</span>&#x00A0;<span 
class="ectt-1200">extern</span>&#x00A0;<span 
class="ectt-1200">real</span>&#x00A0;<span 
class="ectt-1200">*lb,*nc;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">real</span>&#x00A0;<span 
class="ectt-1200">qfval;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">static</span>&#x00A0;<span 
class="ectt-1200">int</span>&#x00A0;<span 
class="ectt-1200">rats[]={1,2,4,8};</span>
&#x00A0;<br />
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">if</span>&#x00A0;<span 
class="ectt-1200">(setjmp(env)</span>&#x00A0;<span 
class="ectt-1200">!=</span>&#x00A0;<span 
class="ectt-1200">0)</span>&#x00A0;<span 
class="ectt-1200">{</span>&#x00A0;<span 
class="ectt-1200">*ifault=4;</span>&#x00A0;<span 
class="ectt-1200">goto</span>&#x00A0;<span 
class="ectt-1200">endofproc;</span>&#x00A0;<span 
class="ectt-1200">}</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">r=r1;</span>&#x00A0;<span 
class="ectt-1200">lim=lim1;</span>&#x00A0;<span 
class="ectt-1200">c=c1;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">n=n1;</span>&#x00A0;<span 
class="ectt-1200">lb=lb1;</span>&#x00A0;<span 
class="ectt-1200">nc=nc1;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">for</span>&#x00A0;<span 
class="ectt-1200">(</span>&#x00A0;<span 
class="ectt-1200">j</span>&#x00A0;<span 
class="ectt-1200">=</span>&#x00A0;<span 
class="ectt-1200">0;</span>&#x00A0;<span 
class="ectt-1200">j&#x003C;7;</span>&#x00A0;<span 
class="ectt-1200">j++</span>&#x00A0;<span 
class="ectt-1200">)</span>&#x00A0;&#x00A0;<span 
class="ectt-1200">trace[j]</span>&#x00A0;<span 
class="ectt-1200">=</span>&#x00A0;<span 
class="ectt-1200">0.0;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">*ifault</span>&#x00A0;<span 
class="ectt-1200">=</span>&#x00A0;<span 
class="ectt-1200">0;</span>&#x00A0;<span 
class="ectt-1200">count</span>&#x00A0;<span 
class="ectt-1200">=</span>&#x00A0;<span 
class="ectt-1200">0;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">intl</span>&#x00A0;<span 
class="ectt-1200">=</span>&#x00A0;<span 
class="ectt-1200">0.0;</span>&#x00A0;<span 
class="ectt-1200">ersm</span>&#x00A0;<span 
class="ectt-1200">=</span>&#x00A0;<span 
class="ectt-1200">0.0;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">qfval</span>&#x00A0;<span 
class="ectt-1200">=</span>&#x00A0;<span 
class="ectt-1200">-1.0;</span>&#x00A0;<span 
class="ectt-1200">acc1</span>&#x00A0;<span 
class="ectt-1200">=</span>&#x00A0;<span 
class="ectt-1200">acc;</span>&#x00A0;<span 
class="ectt-1200">ndtsrt</span>&#x00A0;<span 
class="ectt-1200">=</span>&#x00A0;<span 
class="ectt-1200">TRUE;</span>&#x00A0;&#x00A0;<span 
class="ectt-1200">fail</span>&#x00A0;<span 
class="ectt-1200">=</span>&#x00A0;<span 
class="ectt-1200">FALSE;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">xlim</span>&#x00A0;<span 
class="ectt-1200">=</span>&#x00A0;<span 
class="ectt-1200">(real)lim;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">th=(int*)malloc(r*(sizeof(int)));</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">if</span>&#x00A0;<span 
class="ectt-1200">(!</span>&#x00A0;<span 
class="ectt-1200">th)</span>&#x00A0;<span 
class="ectt-1200">{</span>&#x00A0;<span 
class="ectt-1200">*ifault=5;</span>&#x00A0;&#x00A0;<span 
class="ectt-1200">goto</span>&#x00A0;&#x00A0;<span 
class="ectt-1200">endofproc;</span>&#x00A0;<span 
class="ectt-1200">}</span>
&#x00A0;<br />
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">/*</span>&#x00A0;<span 
class="ectt-1200">find</span>&#x00A0;<span 
class="ectt-1200">mean,</span>&#x00A0;<span 
class="ectt-1200">sd,</span>&#x00A0;<span 
class="ectt-1200">max</span>&#x00A0;<span 
class="ectt-1200">and</span>&#x00A0;<span 
class="ectt-1200">min</span>&#x00A0;<span 
class="ectt-1200">of</span>&#x00A0;<span 
class="ectt-1200">lb,</span>

&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">check</span>&#x00A0;<span 
class="ectt-1200">that</span>&#x00A0;<span 
class="ectt-1200">parameter</span>&#x00A0;<span 
class="ectt-1200">values</span>&#x00A0;<span 
class="ectt-1200">are</span>&#x00A0;<span 
class="ectt-1200">valid</span>&#x00A0;<span 
class="ectt-1200">*/</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">sigsq</span>&#x00A0;<span 
class="ectt-1200">=</span>&#x00A0;<span 
class="ectt-1200">square(sigma);</span>&#x00A0;<span 
class="ectt-1200">sd</span>&#x00A0;<span 
class="ectt-1200">=</span>&#x00A0;<span 
class="ectt-1200">sigsq;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">lmax</span>&#x00A0;<span 
class="ectt-1200">=</span>&#x00A0;<span 
class="ectt-1200">0.0;</span>&#x00A0;<span 
class="ectt-1200">lmin</span>&#x00A0;<span 
class="ectt-1200">=</span>&#x00A0;<span 
class="ectt-1200">0.0;</span>&#x00A0;<span 
class="ectt-1200">mean</span>&#x00A0;<span 
class="ectt-1200">=</span>&#x00A0;<span 
class="ectt-1200">0.0;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">for</span>&#x00A0;<span 
class="ectt-1200">(j=0;</span>&#x00A0;<span 
class="ectt-1200">j&#x003C;r;</span>&#x00A0;<span 
class="ectt-1200">j++</span>&#x00A0;<span 
class="ectt-1200">)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">{</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">nj</span>&#x00A0;<span 
class="ectt-1200">=</span>&#x00A0;<span 
class="ectt-1200">n[j];</span>&#x00A0;&#x00A0;<span 
class="ectt-1200">lj</span>&#x00A0;<span 
class="ectt-1200">=</span>&#x00A0;<span 
class="ectt-1200">lb[j];</span>&#x00A0;&#x00A0;<span 
class="ectt-1200">ncj</span>&#x00A0;<span 
class="ectt-1200">=</span>&#x00A0;<span 
class="ectt-1200">nc[j];</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">if</span>&#x00A0;<span 
class="ectt-1200">(</span>&#x00A0;<span 
class="ectt-1200">nj</span>&#x00A0;<span 
class="ectt-1200">&#x003C;</span>&#x00A0;<span 
class="ectt-1200">0</span>&#x00A0;&#x00A0;<span 
class="ectt-1200">||</span>&#x00A0;&#x00A0;<span 
class="ectt-1200">ncj</span>&#x00A0;<span 
class="ectt-1200">&#x003C;</span>&#x00A0;<span 
class="ectt-1200">0.0</span>&#x00A0;<span 
class="ectt-1200">)</span>&#x00A0;<span 
class="ectt-1200">{</span>&#x00A0;<span 
class="ectt-1200">*ifault</span>&#x00A0;<span 
class="ectt-1200">=</span>&#x00A0;<span 
class="ectt-1200">3;</span>&#x00A0;&#x00A0;<span 
class="ectt-1200">goto</span>&#x00A0;&#x00A0;<span 
class="ectt-1200">endofproc;</span>&#x00A0;&#x00A0;<span 
class="ectt-1200">}</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">sd</span>&#x00A0;&#x00A0;<span 
class="ectt-1200">=</span>&#x00A0;<span 
class="ectt-1200">sd</span>&#x00A0;&#x00A0;<span 
class="ectt-1200">+</span>&#x00A0;<span 
class="ectt-1200">square(lj)</span>&#x00A0;<span 
class="ectt-1200">*</span>&#x00A0;<span 
class="ectt-1200">(2</span>&#x00A0;<span 
class="ectt-1200">*</span>&#x00A0;<span 
class="ectt-1200">nj</span>&#x00A0;<span 
class="ectt-1200">+</span>&#x00A0;<span 
class="ectt-1200">4.0</span>&#x00A0;<span 
class="ectt-1200">*</span>&#x00A0;<span 
class="ectt-1200">ncj);</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">mean</span>&#x00A0;<span 
class="ectt-1200">=</span>&#x00A0;<span 
class="ectt-1200">mean</span>&#x00A0;<span 
class="ectt-1200">+</span>&#x00A0;<span 
class="ectt-1200">lj</span>&#x00A0;<span 
class="ectt-1200">*</span>&#x00A0;<span 
class="ectt-1200">(nj</span>&#x00A0;<span 
class="ectt-1200">+</span>&#x00A0;<span 
class="ectt-1200">ncj);</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">if</span>&#x00A0;<span 
class="ectt-1200">(lmax</span>&#x00A0;<span 
class="ectt-1200">&#x003C;</span>&#x00A0;<span 
class="ectt-1200">lj)</span>&#x00A0;<span 
class="ectt-1200">lmax</span>&#x00A0;<span 
class="ectt-1200">=</span>&#x00A0;<span 
class="ectt-1200">lj</span>&#x00A0;<span 
class="ectt-1200">;</span>&#x00A0;<span 
class="ectt-1200">else</span>&#x00A0;<span 
class="ectt-1200">if</span>&#x00A0;<span 
class="ectt-1200">(lmin</span>&#x00A0;<span 
class="ectt-1200">&#x003E;</span>&#x00A0;<span 
class="ectt-1200">lj)</span>&#x00A0;<span 
class="ectt-1200">lmin</span>&#x00A0;<span 
class="ectt-1200">=</span>&#x00A0;<span 
class="ectt-1200">lj;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">}</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">if</span>&#x00A0;<span 
class="ectt-1200">(</span>&#x00A0;<span 
class="ectt-1200">sd</span>&#x00A0;<span 
class="ectt-1200">==</span>&#x00A0;<span 
class="ectt-1200">0.0</span>&#x00A0;&#x00A0;<span 
class="ectt-1200">)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">{</span>&#x00A0;&#x00A0;<span 
class="ectt-1200">qfval</span>&#x00A0;<span 
class="ectt-1200">=</span>&#x00A0;<span 
class="ectt-1200">(c</span>&#x00A0;<span 
class="ectt-1200">&#x003E;</span>&#x00A0;<span 
class="ectt-1200">0.0)</span>&#x00A0;<span 
class="ectt-1200">?</span>&#x00A0;<span 
class="ectt-1200">1.0</span>&#x00A0;<span 
class="ectt-1200">:</span>&#x00A0;<span 
class="ectt-1200">0.0;</span>&#x00A0;<span 
class="ectt-1200">goto</span>&#x00A0;&#x00A0;<span 
class="ectt-1200">endofproc;</span>&#x00A0;&#x00A0;<span 
class="ectt-1200">}</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">if</span>&#x00A0;<span 
class="ectt-1200">(</span>&#x00A0;<span 
class="ectt-1200">lmin</span>&#x00A0;<span 
class="ectt-1200">==</span>&#x00A0;<span 
class="ectt-1200">0.0</span>&#x00A0;<span 
class="ectt-1200">&#x0026;&#x0026;</span>&#x00A0;<span 
class="ectt-1200">lmax</span>&#x00A0;<span 
class="ectt-1200">==</span>&#x00A0;<span 
class="ectt-1200">0.0</span>&#x00A0;<span 
class="ectt-1200">&#x0026;&#x0026;</span>&#x00A0;<span 
class="ectt-1200">sigma</span>&#x00A0;<span 
class="ectt-1200">==</span>&#x00A0;<span 
class="ectt-1200">0.0</span>&#x00A0;<span 
class="ectt-1200">)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">{</span>&#x00A0;<span 
class="ectt-1200">*ifault</span>&#x00A0;<span 
class="ectt-1200">=</span>&#x00A0;<span 
class="ectt-1200">3;</span>&#x00A0;&#x00A0;<span 
class="ectt-1200">goto</span>&#x00A0;&#x00A0;<span 
class="ectt-1200">endofproc;</span>&#x00A0;&#x00A0;<span 
class="ectt-1200">}</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">sd</span>&#x00A0;<span 
class="ectt-1200">=</span>&#x00A0;<span 
class="ectt-1200">sqrt(sd);</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">almx</span>&#x00A0;<span 
class="ectt-1200">=</span>&#x00A0;<span 
class="ectt-1200">(lmax</span>&#x00A0;<span 
class="ectt-1200">&#x003C;</span>&#x00A0;<span 
class="ectt-1200">-</span>&#x00A0;<span 
class="ectt-1200">lmin)</span>&#x00A0;<span 
class="ectt-1200">?</span>&#x00A0;<span 
class="ectt-1200">-</span>&#x00A0;<span 
class="ectt-1200">lmin</span>&#x00A0;<span 
class="ectt-1200">:</span>&#x00A0;<span 
class="ectt-1200">lmax;</span>
&#x00A0;<br />
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">/*</span>&#x00A0;<span 
class="ectt-1200">starting</span>&#x00A0;<span 
class="ectt-1200">values</span>&#x00A0;<span 
class="ectt-1200">for</span>&#x00A0;<span 
class="ectt-1200">findu,</span>&#x00A0;<span 
class="ectt-1200">ctff</span>&#x00A0;<span 
class="ectt-1200">*/</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">utx</span>&#x00A0;<span 
class="ectt-1200">=</span>&#x00A0;<span 
class="ectt-1200">16.0</span>&#x00A0;<span 
class="ectt-1200">/</span>&#x00A0;<span 
class="ectt-1200">sd;</span>&#x00A0;&#x00A0;<span 
class="ectt-1200">up</span>&#x00A0;<span 
class="ectt-1200">=</span>&#x00A0;<span 
class="ectt-1200">4.5</span>&#x00A0;<span 
class="ectt-1200">/</span>&#x00A0;<span 
class="ectt-1200">sd;</span>&#x00A0;&#x00A0;<span 
class="ectt-1200">un</span>&#x00A0;<span 
class="ectt-1200">=</span>&#x00A0;<span 
class="ectt-1200">-</span>&#x00A0;<span 
class="ectt-1200">up;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">/*</span>&#x00A0;<span 
class="ectt-1200">truncation</span>&#x00A0;<span 
class="ectt-1200">point</span>&#x00A0;<span 
class="ectt-1200">with</span>&#x00A0;<span 
class="ectt-1200">no</span>&#x00A0;<span 
class="ectt-1200">convergence</span>&#x00A0;<span 
class="ectt-1200">factor</span>&#x00A0;<span 
class="ectt-1200">*/</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">findu(&#x0026;utx,</span>&#x00A0;<span 
class="ectt-1200">.5</span>&#x00A0;<span 
class="ectt-1200">*</span>&#x00A0;<span 
class="ectt-1200">acc1);</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">/*</span>&#x00A0;<span 
class="ectt-1200">does</span>&#x00A0;<span 
class="ectt-1200">convergence</span>&#x00A0;<span 
class="ectt-1200">factor</span>&#x00A0;<span 
class="ectt-1200">help</span>&#x00A0;<span 
class="ectt-1200">*/</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">if</span>&#x00A0;<span 
class="ectt-1200">(c</span>&#x00A0;<span 
class="ectt-1200">!=</span>&#x00A0;<span 
class="ectt-1200">0.0</span>&#x00A0;&#x00A0;<span 
class="ectt-1200">&#x0026;&#x0026;</span>&#x00A0;<span 
class="ectt-1200">(almx</span>&#x00A0;<span 
class="ectt-1200">&#x003E;</span>&#x00A0;<span 
class="ectt-1200">0.07</span>&#x00A0;<span 
class="ectt-1200">*</span>&#x00A0;<span 
class="ectt-1200">sd))</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">{</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">tausq</span>&#x00A0;<span 
class="ectt-1200">=</span>&#x00A0;<span 
class="ectt-1200">.25</span>&#x00A0;<span 
class="ectt-1200">*</span>&#x00A0;<span 
class="ectt-1200">acc1</span>&#x00A0;<span 
class="ectt-1200">/</span>&#x00A0;<span 
class="ectt-1200">cfe(c);</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">if</span>&#x00A0;<span 
class="ectt-1200">(fail)</span>&#x00A0;<span 
class="ectt-1200">fail</span>&#x00A0;<span 
class="ectt-1200">=</span>&#x00A0;<span 
class="ectt-1200">FALSE</span>&#x00A0;<span 
class="ectt-1200">;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">else</span>&#x00A0;<span 
class="ectt-1200">if</span>&#x00A0;<span 
class="ectt-1200">(truncation(utx,</span>&#x00A0;<span 
class="ectt-1200">tausq)</span>&#x00A0;<span 
class="ectt-1200">&#x003C;</span>&#x00A0;<span 
class="ectt-1200">.2</span>&#x00A0;<span 
class="ectt-1200">*</span>&#x00A0;<span 
class="ectt-1200">acc1)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">{</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">sigsq</span>&#x00A0;<span 
class="ectt-1200">=</span>&#x00A0;<span 
class="ectt-1200">sigsq</span>&#x00A0;<span 
class="ectt-1200">+</span>&#x00A0;<span 
class="ectt-1200">tausq;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">findu(&#x0026;utx,</span>&#x00A0;<span 
class="ectt-1200">.25</span>&#x00A0;<span 
class="ectt-1200">*</span>&#x00A0;<span 
class="ectt-1200">acc1);</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">trace[5]</span>&#x00A0;<span 
class="ectt-1200">=</span>&#x00A0;<span 
class="ectt-1200">sqrt(tausq);</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">}</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">}</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">trace[4]</span>&#x00A0;<span 
class="ectt-1200">=</span>&#x00A0;<span 
class="ectt-1200">utx;</span>&#x00A0;&#x00A0;<span 
class="ectt-1200">acc1</span>&#x00A0;<span 
class="ectt-1200">=</span>&#x00A0;<span 
class="ectt-1200">0.5</span>&#x00A0;<span 
class="ectt-1200">*</span>&#x00A0;<span 
class="ectt-1200">acc1;</span>
&#x00A0;<br />
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">/*</span>&#x00A0;<span 
class="ectt-1200">find</span>&#x00A0;<span 
class="ectt-1200">RANGE</span>&#x00A0;<span 
class="ectt-1200">of</span>&#x00A0;<span 
class="ectt-1200">distribution,</span>&#x00A0;<span 
class="ectt-1200">quit</span>&#x00A0;<span 
class="ectt-1200">if</span>&#x00A0;<span 
class="ectt-1200">outside</span>&#x00A0;<span 
class="ectt-1200">this</span>&#x00A0;<span 
class="ectt-1200">*/</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">l1:</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">d1</span>&#x00A0;<span 
class="ectt-1200">=</span>&#x00A0;<span 
class="ectt-1200">ctff(acc1,</span>&#x00A0;<span 
class="ectt-1200">&#x0026;up)</span>&#x00A0;<span 
class="ectt-1200">-</span>&#x00A0;<span 
class="ectt-1200">c;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">if</span>&#x00A0;<span 
class="ectt-1200">(d1</span>&#x00A0;<span 
class="ectt-1200">&#x003C;</span>&#x00A0;<span 
class="ectt-1200">0.0)</span>&#x00A0;<span 
class="ectt-1200">{</span>&#x00A0;<span 
class="ectt-1200">qfval</span>&#x00A0;<span 
class="ectt-1200">=</span>&#x00A0;<span 
class="ectt-1200">1.0;</span>&#x00A0;<span 
class="ectt-1200">goto</span>&#x00A0;<span 
class="ectt-1200">endofproc;</span>&#x00A0;<span 
class="ectt-1200">}</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">d2</span>&#x00A0;<span 
class="ectt-1200">=</span>&#x00A0;<span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">-</span>&#x00A0;<span 
class="ectt-1200">ctff(acc1,</span>&#x00A0;<span 
class="ectt-1200">&#x0026;un);</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">if</span>&#x00A0;<span 
class="ectt-1200">(d2</span>&#x00A0;<span 
class="ectt-1200">&#x003C;</span>&#x00A0;<span 
class="ectt-1200">0.0)</span>&#x00A0;<span 
class="ectt-1200">{</span>&#x00A0;<span 
class="ectt-1200">qfval</span>&#x00A0;<span 
class="ectt-1200">=</span>&#x00A0;<span 
class="ectt-1200">0.0;</span>&#x00A0;<span 
class="ectt-1200">goto</span>&#x00A0;<span 
class="ectt-1200">endofproc;</span>&#x00A0;<span 
class="ectt-1200">}</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">/*</span>&#x00A0;<span 
class="ectt-1200">find</span>&#x00A0;<span 
class="ectt-1200">integration</span>&#x00A0;<span 
class="ectt-1200">interval</span>&#x00A0;<span 
class="ectt-1200">*/</span>

&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">intv</span>&#x00A0;<span 
class="ectt-1200">=</span>&#x00A0;<span 
class="ectt-1200">2.0</span>&#x00A0;<span 
class="ectt-1200">*</span>&#x00A0;<span 
class="ectt-1200">pi</span>&#x00A0;<span 
class="ectt-1200">/</span>&#x00A0;<span 
class="ectt-1200">((d1</span>&#x00A0;<span 
class="ectt-1200">&#x003E;</span>&#x00A0;<span 
class="ectt-1200">d2)</span>&#x00A0;<span 
class="ectt-1200">?</span>&#x00A0;<span 
class="ectt-1200">d1</span>&#x00A0;<span 
class="ectt-1200">:</span>&#x00A0;<span 
class="ectt-1200">d2);</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">/*</span>&#x00A0;<span 
class="ectt-1200">calculate</span>&#x00A0;<span 
class="ectt-1200">number</span>&#x00A0;<span 
class="ectt-1200">of</span>&#x00A0;<span 
class="ectt-1200">terms</span>&#x00A0;<span 
class="ectt-1200">required</span>&#x00A0;<span 
class="ectt-1200">for</span>&#x00A0;<span 
class="ectt-1200">main</span>&#x00A0;<span 
class="ectt-1200">and</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">auxillary</span>&#x00A0;<span 
class="ectt-1200">integrations</span>&#x00A0;<span 
class="ectt-1200">*/</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">xnt</span>&#x00A0;<span 
class="ectt-1200">=</span>&#x00A0;<span 
class="ectt-1200">utx</span>&#x00A0;<span 
class="ectt-1200">/</span>&#x00A0;<span 
class="ectt-1200">intv;</span>&#x00A0;&#x00A0;<span 
class="ectt-1200">xntm</span>&#x00A0;<span 
class="ectt-1200">=</span>&#x00A0;<span 
class="ectt-1200">3.0</span>&#x00A0;<span 
class="ectt-1200">/</span>&#x00A0;<span 
class="ectt-1200">sqrt(acc1);</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">if</span>&#x00A0;<span 
class="ectt-1200">(xnt</span>&#x00A0;<span 
class="ectt-1200">&#x003E;</span>&#x00A0;<span 
class="ectt-1200">xntm</span>&#x00A0;<span 
class="ectt-1200">*</span>&#x00A0;<span 
class="ectt-1200">1.5)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">{</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">/*</span>&#x00A0;<span 
class="ectt-1200">parameters</span>&#x00A0;<span 
class="ectt-1200">for</span>&#x00A0;<span 
class="ectt-1200">auxillary</span>&#x00A0;<span 
class="ectt-1200">integration</span>&#x00A0;<span 
class="ectt-1200">*/</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">if</span>&#x00A0;<span 
class="ectt-1200">(xntm</span>&#x00A0;<span 
class="ectt-1200">&#x003E;</span>&#x00A0;<span 
class="ectt-1200">xlim)</span>&#x00A0;<span 
class="ectt-1200">{</span>&#x00A0;<span 
class="ectt-1200">*ifault</span>&#x00A0;<span 
class="ectt-1200">=</span>&#x00A0;<span 
class="ectt-1200">1;</span>&#x00A0;<span 
class="ectt-1200">goto</span>&#x00A0;<span 
class="ectt-1200">endofproc;</span>&#x00A0;<span 
class="ectt-1200">}</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">ntm</span>&#x00A0;<span 
class="ectt-1200">=</span>&#x00A0;<span 
class="ectt-1200">(int)floor(xntm+0.5);</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">intv1</span>&#x00A0;<span 
class="ectt-1200">=</span>&#x00A0;<span 
class="ectt-1200">utx</span>&#x00A0;<span 
class="ectt-1200">/</span>&#x00A0;<span 
class="ectt-1200">ntm;</span>&#x00A0;&#x00A0;<span 
class="ectt-1200">x</span>&#x00A0;<span 
class="ectt-1200">=</span>&#x00A0;<span 
class="ectt-1200">2.0</span>&#x00A0;<span 
class="ectt-1200">*</span>&#x00A0;<span 
class="ectt-1200">pi</span>&#x00A0;<span 
class="ectt-1200">/</span>&#x00A0;<span 
class="ectt-1200">intv1;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">if</span>&#x00A0;<span 
class="ectt-1200">(x</span>&#x00A0;<span 
class="ectt-1200">&#x003C;=</span>&#x00A0;<span 
class="ectt-1200">fabs(c))</span>&#x00A0;<span 
class="ectt-1200">goto</span>&#x00A0;<span 
class="ectt-1200">l2;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">/*</span>&#x00A0;<span 
class="ectt-1200">calculate</span>&#x00A0;<span 
class="ectt-1200">convergence</span>&#x00A0;<span 
class="ectt-1200">factor</span>&#x00A0;<span 
class="ectt-1200">*/</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">tausq</span>&#x00A0;<span 
class="ectt-1200">=</span>&#x00A0;<span 
class="ectt-1200">.33</span>&#x00A0;<span 
class="ectt-1200">*</span>&#x00A0;<span 
class="ectt-1200">acc1</span>&#x00A0;<span 
class="ectt-1200">/</span>&#x00A0;<span 
class="ectt-1200">(1.1</span>&#x00A0;<span 
class="ectt-1200">*</span>&#x00A0;<span 
class="ectt-1200">(cfe(c</span>&#x00A0;<span 
class="ectt-1200">-</span>&#x00A0;<span 
class="ectt-1200">x)</span>&#x00A0;<span 
class="ectt-1200">+</span>&#x00A0;<span 
class="ectt-1200">cfe(c</span>&#x00A0;<span 
class="ectt-1200">+</span>&#x00A0;<span 
class="ectt-1200">x)));</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">if</span>&#x00A0;<span 
class="ectt-1200">(fail)</span>&#x00A0;<span 
class="ectt-1200">goto</span>&#x00A0;<span 
class="ectt-1200">l2;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">acc1</span>&#x00A0;<span 
class="ectt-1200">=</span>&#x00A0;<span 
class="ectt-1200">.67</span>&#x00A0;<span 
class="ectt-1200">*</span>&#x00A0;<span 
class="ectt-1200">acc1;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">/*</span>&#x00A0;<span 
class="ectt-1200">auxillary</span>&#x00A0;<span 
class="ectt-1200">integration</span>&#x00A0;<span 
class="ectt-1200">*/</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">integrate(ntm,</span>&#x00A0;<span 
class="ectt-1200">intv1,</span>&#x00A0;<span 
class="ectt-1200">tausq,</span>&#x00A0;<span 
class="ectt-1200">FALSE</span>&#x00A0;<span 
class="ectt-1200">);</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">xlim</span>&#x00A0;<span 
class="ectt-1200">=</span>&#x00A0;<span 
class="ectt-1200">xlim</span>&#x00A0;<span 
class="ectt-1200">-</span>&#x00A0;<span 
class="ectt-1200">xntm;</span>&#x00A0;&#x00A0;<span 
class="ectt-1200">sigsq</span>&#x00A0;<span 
class="ectt-1200">=</span>&#x00A0;<span 
class="ectt-1200">sigsq</span>&#x00A0;<span 
class="ectt-1200">+</span>&#x00A0;<span 
class="ectt-1200">tausq;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">trace[2]</span>&#x00A0;<span 
class="ectt-1200">=</span>&#x00A0;<span 
class="ectt-1200">trace[2]</span>&#x00A0;<span 
class="ectt-1200">+</span>&#x00A0;<span 
class="ectt-1200">1;</span>&#x00A0;<span 
class="ectt-1200">trace[1]</span>&#x00A0;<span 
class="ectt-1200">=</span>&#x00A0;<span 
class="ectt-1200">trace[1]</span>&#x00A0;<span 
class="ectt-1200">+</span>&#x00A0;<span 
class="ectt-1200">ntm</span>&#x00A0;<span 
class="ectt-1200">+</span>&#x00A0;<span 
class="ectt-1200">1;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">/*</span>&#x00A0;<span 
class="ectt-1200">find</span>&#x00A0;<span 
class="ectt-1200">truncation</span>&#x00A0;<span 
class="ectt-1200">point</span>&#x00A0;<span 
class="ectt-1200">with</span>&#x00A0;<span 
class="ectt-1200">new</span>&#x00A0;<span 
class="ectt-1200">convergence</span>&#x00A0;<span 
class="ectt-1200">factor</span>&#x00A0;<span 
class="ectt-1200">*/</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">findu(&#x0026;utx,</span>&#x00A0;<span 
class="ectt-1200">.25</span>&#x00A0;<span 
class="ectt-1200">*</span>&#x00A0;<span 
class="ectt-1200">acc1);</span>&#x00A0;&#x00A0;<span 
class="ectt-1200">acc1</span>&#x00A0;<span 
class="ectt-1200">=</span>&#x00A0;<span 
class="ectt-1200">0.75</span>&#x00A0;<span 
class="ectt-1200">*</span>&#x00A0;<span 
class="ectt-1200">acc1;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">goto</span>&#x00A0;<span 
class="ectt-1200">l1;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">}</span>
&#x00A0;<br />
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">/*</span>&#x00A0;<span 
class="ectt-1200">main</span>&#x00A0;<span 
class="ectt-1200">integration</span>&#x00A0;<span 
class="ectt-1200">*/</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">l2:</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">trace[3]</span>&#x00A0;<span 
class="ectt-1200">=</span>&#x00A0;<span 
class="ectt-1200">intv;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">if</span>&#x00A0;<span 
class="ectt-1200">(xnt</span>&#x00A0;<span 
class="ectt-1200">&#x003E;</span>&#x00A0;<span 
class="ectt-1200">xlim)</span>&#x00A0;<span 
class="ectt-1200">{</span>&#x00A0;<span 
class="ectt-1200">*ifault</span>&#x00A0;<span 
class="ectt-1200">=</span>&#x00A0;<span 
class="ectt-1200">1;</span>&#x00A0;<span 
class="ectt-1200">goto</span>&#x00A0;<span 
class="ectt-1200">endofproc;</span>&#x00A0;<span 
class="ectt-1200">}</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">nt</span>&#x00A0;<span 
class="ectt-1200">=</span>&#x00A0;<span 
class="ectt-1200">(int)floor(xnt+0.5);</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">integrate(nt,</span>&#x00A0;<span 
class="ectt-1200">intv,</span>&#x00A0;<span 
class="ectt-1200">0.0,</span>&#x00A0;<span 
class="ectt-1200">TRUE</span>&#x00A0;<span 
class="ectt-1200">);</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">trace[2]</span>&#x00A0;<span 
class="ectt-1200">=</span>&#x00A0;<span 
class="ectt-1200">trace[2]</span>&#x00A0;<span 
class="ectt-1200">+</span>&#x00A0;<span 
class="ectt-1200">1;</span>&#x00A0;<span 
class="ectt-1200">trace[1]</span>&#x00A0;<span 
class="ectt-1200">=</span>&#x00A0;<span 
class="ectt-1200">trace[1]</span>&#x00A0;<span 
class="ectt-1200">+</span>&#x00A0;<span 
class="ectt-1200">nt</span>&#x00A0;<span 
class="ectt-1200">+</span>&#x00A0;<span 
class="ectt-1200">1;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">qfval</span>&#x00A0;<span 
class="ectt-1200">=</span>&#x00A0;<span 
class="ectt-1200">0.5</span>&#x00A0;<span 
class="ectt-1200">-</span>&#x00A0;<span 
class="ectt-1200">intl;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">trace[0]</span>&#x00A0;<span 
class="ectt-1200">=</span>&#x00A0;<span 
class="ectt-1200">ersm;</span>
&#x00A0;<br />
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">/*</span>&#x00A0;<span 
class="ectt-1200">test</span>&#x00A0;<span 
class="ectt-1200">whether</span>&#x00A0;<span 
class="ectt-1200">round-off</span>&#x00A0;<span 
class="ectt-1200">error</span>&#x00A0;<span 
class="ectt-1200">could</span>&#x00A0;<span 
class="ectt-1200">be</span>&#x00A0;<span 
class="ectt-1200">significant</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">allow</span>&#x00A0;<span 
class="ectt-1200">for</span>&#x00A0;<span 
class="ectt-1200">radix</span>&#x00A0;<span 
class="ectt-1200">8</span>&#x00A0;<span 
class="ectt-1200">or</span>&#x00A0;<span 
class="ectt-1200">16</span>&#x00A0;<span 
class="ectt-1200">machines</span>&#x00A0;<span 
class="ectt-1200">*/</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">up=ersm;</span>&#x00A0;<span 
class="ectt-1200">x</span>&#x00A0;<span 
class="ectt-1200">=</span>&#x00A0;<span 
class="ectt-1200">up</span>&#x00A0;<span 
class="ectt-1200">+</span>&#x00A0;<span 
class="ectt-1200">acc</span>&#x00A0;<span 
class="ectt-1200">/</span>&#x00A0;<span 
class="ectt-1200">10.0;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">for</span>&#x00A0;<span 
class="ectt-1200">(j=0;j&#x003C;4;j++)</span>&#x00A0;<span 
class="ectt-1200">{</span>&#x00A0;<span 
class="ectt-1200">if</span>&#x00A0;<span 
class="ectt-1200">(rats[j]</span>&#x00A0;<span 
class="ectt-1200">*</span>&#x00A0;<span 
class="ectt-1200">x</span>&#x00A0;<span 
class="ectt-1200">==</span>&#x00A0;<span 
class="ectt-1200">rats[j]</span>&#x00A0;<span 
class="ectt-1200">*</span>&#x00A0;<span 
class="ectt-1200">up)</span>&#x00A0;<span 
class="ectt-1200">*ifault</span>&#x00A0;<span 
class="ectt-1200">=</span>&#x00A0;<span 
class="ectt-1200">2;</span>&#x00A0;<span 
class="ectt-1200">}</span>
&#x00A0;<br />
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">endofproc</span>&#x00A0;<span 
class="ectt-1200">:</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">free((char*)th);</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">trace[6]</span>&#x00A0;<span 
class="ectt-1200">=</span>&#x00A0;<span 
class="ectt-1200">(real)count;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">return</span>&#x00A0;<span 
class="ectt-1200">qfval;</span>

&#x00A0;<br /><span 
class="ectt-1200">}</span>
&#x00A0;<br />
&#x00A0;<br />
</div><span 
class="ecbx-1200">Le fichier </span><span 
class="ecbi-1200">qfdavies.c</span><div class="verbatiminput">
&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">static</span>&#x00A0;<span 
class="ectt-1200">void</span>&#x00A0;<span 
class="ectt-1200">counter(void)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">/*</span>&#x00A0;&#x00A0;<span 
class="ectt-1200">count</span>&#x00A0;<span 
class="ectt-1200">number</span>&#x00A0;<span 
class="ectt-1200">of</span>&#x00A0;<span 
class="ectt-1200">calls</span>&#x00A0;<span 
class="ectt-1200">to</span>&#x00A0;<span 
class="ectt-1200">errbd,</span>&#x00A0;<span 
class="ectt-1200">truncation,</span>&#x00A0;<span 
class="ectt-1200">cfe</span>&#x00A0;<span 
class="ectt-1200">*/</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">{</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">extern</span>&#x00A0;<span 
class="ectt-1200">int</span>&#x00A0;<span 
class="ectt-1200">count,lim;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">count</span>&#x00A0;<span 
class="ectt-1200">=</span>&#x00A0;<span 
class="ectt-1200">count</span>&#x00A0;<span 
class="ectt-1200">+</span>&#x00A0;<span 
class="ectt-1200">1;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">if</span>&#x00A0;<span 
class="ectt-1200">(</span>&#x00A0;<span 
class="ectt-1200">count</span>&#x00A0;<span 
class="ectt-1200">&#x003E;</span>&#x00A0;<span 
class="ectt-1200">lim</span>&#x00A0;<span 
class="ectt-1200">)</span>&#x00A0;<span 
class="ectt-1200">longjmp(env,1);</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">}</span>
&#x00A0;<br />
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">static</span>&#x00A0;<span 
class="ectt-1200">real</span>&#x00A0;<span 
class="ectt-1200">square(real</span>&#x00A0;<span 
class="ectt-1200">x)</span>&#x00A0;&#x00A0;<span 
class="ectt-1200">{</span>&#x00A0;<span 
class="ectt-1200">return</span>&#x00A0;<span 
class="ectt-1200">x*x;</span>&#x00A0;<span 
class="ectt-1200">}</span>
&#x00A0;<br />
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">static</span>&#x00A0;<span 
class="ectt-1200">real</span>&#x00A0;<span 
class="ectt-1200">cube(real</span>&#x00A0;<span 
class="ectt-1200">x)</span>&#x00A0;&#x00A0;<span 
class="ectt-1200">{</span>&#x00A0;<span 
class="ectt-1200">return</span>&#x00A0;<span 
class="ectt-1200">x*x*x;</span>&#x00A0;<span 
class="ectt-1200">}</span>
&#x00A0;<br />
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">static</span>&#x00A0;<span 
class="ectt-1200">real</span>&#x00A0;&#x00A0;<span 
class="ectt-1200">log1(real</span>&#x00A0;<span 
class="ectt-1200">x,</span>&#x00A0;<span 
class="ectt-1200">BOOL</span>&#x00A0;<span 
class="ectt-1200">first)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">/*</span>&#x00A0;<span 
class="ectt-1200">if</span>&#x00A0;<span 
class="ectt-1200">(first)</span>&#x00A0;<span 
class="ectt-1200">log(1</span>&#x00A0;<span 
class="ectt-1200">+</span>&#x00A0;<span 
class="ectt-1200">x)</span>&#x00A0;<span 
class="ectt-1200">;</span>&#x00A0;<span 
class="ectt-1200">else</span>&#x00A0;&#x00A0;<span 
class="ectt-1200">log(1</span>&#x00A0;<span 
class="ectt-1200">+</span>&#x00A0;<span 
class="ectt-1200">x)</span>&#x00A0;<span 
class="ectt-1200">-</span>&#x00A0;<span 
class="ectt-1200">x</span>&#x00A0;<span 
class="ectt-1200">*/</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">{</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">if</span>&#x00A0;<span 
class="ectt-1200">(fabs(x)</span>&#x00A0;<span 
class="ectt-1200">&#x003E;</span>&#x00A0;<span 
class="ectt-1200">0.1)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">{</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">return</span>&#x00A0;<span 
class="ectt-1200">(first</span>&#x00A0;<span 
class="ectt-1200">?</span>&#x00A0;<span 
class="ectt-1200">log(1.0</span>&#x00A0;<span 
class="ectt-1200">+</span>&#x00A0;<span 
class="ectt-1200">x)</span>&#x00A0;<span 
class="ectt-1200">:</span>&#x00A0;<span 
class="ectt-1200">(log(1.0</span>&#x00A0;<span 
class="ectt-1200">+</span>&#x00A0;<span 
class="ectt-1200">x)</span>&#x00A0;<span 
class="ectt-1200">-</span>&#x00A0;<span 
class="ectt-1200">x));</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">}</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">else</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">{</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">real</span>&#x00A0;<span 
class="ectt-1200">s,</span>&#x00A0;<span 
class="ectt-1200">s1,</span>&#x00A0;<span 
class="ectt-1200">term,</span>&#x00A0;<span 
class="ectt-1200">y,</span>&#x00A0;<span 
class="ectt-1200">k;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">y</span>&#x00A0;<span 
class="ectt-1200">=</span>&#x00A0;<span 
class="ectt-1200">x</span>&#x00A0;<span 
class="ectt-1200">/</span>&#x00A0;<span 
class="ectt-1200">(2.0</span>&#x00A0;<span 
class="ectt-1200">+</span>&#x00A0;<span 
class="ectt-1200">x);</span>&#x00A0;&#x00A0;<span 
class="ectt-1200">term</span>&#x00A0;<span 
class="ectt-1200">=</span>&#x00A0;<span 
class="ectt-1200">2.0</span>&#x00A0;<span 
class="ectt-1200">*</span>&#x00A0;<span 
class="ectt-1200">cube(y);</span>&#x00A0;&#x00A0;<span 
class="ectt-1200">k</span>&#x00A0;<span 
class="ectt-1200">=</span>&#x00A0;<span 
class="ectt-1200">3.0;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">s</span>&#x00A0;<span 
class="ectt-1200">=</span>&#x00A0;<span 
class="ectt-1200">(first</span>&#x00A0;<span 
class="ectt-1200">?</span>&#x00A0;<span 
class="ectt-1200">2.0</span>&#x00A0;<span 
class="ectt-1200">:</span>&#x00A0;<span 
class="ectt-1200">-</span>&#x00A0;<span 
class="ectt-1200">x)</span>&#x00A0;<span 
class="ectt-1200">*</span>&#x00A0;<span 
class="ectt-1200">y;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">y</span>&#x00A0;<span 
class="ectt-1200">=</span>&#x00A0;<span 
class="ectt-1200">square(y);</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">for</span>&#x00A0;<span 
class="ectt-1200">(s1</span>&#x00A0;<span 
class="ectt-1200">=</span>&#x00A0;<span 
class="ectt-1200">s</span>&#x00A0;<span 
class="ectt-1200">+</span>&#x00A0;<span 
class="ectt-1200">term</span>&#x00A0;<span 
class="ectt-1200">/</span>&#x00A0;<span 
class="ectt-1200">k;</span>&#x00A0;<span 
class="ectt-1200">s1</span>&#x00A0;<span 
class="ectt-1200">!=</span>&#x00A0;<span 
class="ectt-1200">s;</span>&#x00A0;<span 
class="ectt-1200">s1</span>&#x00A0;<span 
class="ectt-1200">=</span>&#x00A0;<span 
class="ectt-1200">s</span>&#x00A0;<span 
class="ectt-1200">+</span>&#x00A0;<span 
class="ectt-1200">term</span>&#x00A0;<span 
class="ectt-1200">/</span>&#x00A0;<span 
class="ectt-1200">k)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">{</span>&#x00A0;<span 
class="ectt-1200">k</span>&#x00A0;<span 
class="ectt-1200">=</span>&#x00A0;<span 
class="ectt-1200">k</span>&#x00A0;<span 
class="ectt-1200">+</span>&#x00A0;<span 
class="ectt-1200">2.0;</span>&#x00A0;<span 
class="ectt-1200">term</span>&#x00A0;<span 
class="ectt-1200">=</span>&#x00A0;<span 
class="ectt-1200">term</span>&#x00A0;<span 
class="ectt-1200">*</span>&#x00A0;<span 
class="ectt-1200">y;</span>&#x00A0;<span 
class="ectt-1200">s</span>&#x00A0;<span 
class="ectt-1200">=</span>&#x00A0;<span 
class="ectt-1200">s1;</span>&#x00A0;<span 
class="ectt-1200">}</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">return</span>&#x00A0;<span 
class="ectt-1200">s;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">}</span>
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">}</span>
&#x00A0;<br />
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">static</span>&#x00A0;<span 
class="ectt-1200">void</span>&#x00A0;<span 
class="ectt-1200">order(void)</span>
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">/*</span>&#x00A0;<span 
class="ectt-1200">find</span>&#x00A0;<span 
class="ectt-1200">order</span>&#x00A0;<span 
class="ectt-1200">of</span>&#x00A0;<span 
class="ectt-1200">absolute</span>&#x00A0;<span 
class="ectt-1200">values</span>&#x00A0;<span 
class="ectt-1200">of</span>&#x00A0;<span 
class="ectt-1200">lb</span>&#x00A0;<span 
class="ectt-1200">*/</span>
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">{</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">int</span>&#x00A0;<span 
class="ectt-1200">j,</span>&#x00A0;<span 
class="ectt-1200">k;</span>&#x00A0;<span 
class="ectt-1200">real</span>&#x00A0;<span 
class="ectt-1200">lj;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">extern</span>&#x00A0;<span 
class="ectt-1200">real</span>&#x00A0;<span 
class="ectt-1200">*lb;</span>&#x00A0;<span 
class="ectt-1200">extern</span>&#x00A0;<span 
class="ectt-1200">int</span>&#x00A0;<span 
class="ectt-1200">*th;</span>&#x00A0;<span 
class="ectt-1200">extern</span>&#x00A0;<span 
class="ectt-1200">int</span>&#x00A0;<span 
class="ectt-1200">r;</span>&#x00A0;<span 
class="ectt-1200">extern</span>&#x00A0;<span 
class="ectt-1200">BOOL</span>&#x00A0;<span 
class="ectt-1200">ndtsrt;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">for</span>&#x00A0;<span 
class="ectt-1200">(</span>&#x00A0;<span 
class="ectt-1200">j=0;</span>&#x00A0;<span 
class="ectt-1200">j&#x003C;r;</span>&#x00A0;<span 
class="ectt-1200">j++</span>&#x00A0;<span 
class="ectt-1200">)</span>

&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">{</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">lj</span>&#x00A0;<span 
class="ectt-1200">=</span>&#x00A0;<span 
class="ectt-1200">fabs(lb[j]);</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">for</span>&#x00A0;<span 
class="ectt-1200">(k</span>&#x00A0;<span 
class="ectt-1200">=</span>&#x00A0;<span 
class="ectt-1200">j-1;</span>&#x00A0;<span 
class="ectt-1200">k&#x003E;=0;</span>&#x00A0;<span 
class="ectt-1200">k--)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">{</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">if</span>&#x00A0;<span 
class="ectt-1200">(</span>&#x00A0;<span 
class="ectt-1200">lj</span>&#x00A0;<span 
class="ectt-1200">&#x003E;</span>&#x00A0;<span 
class="ectt-1200">fabs(lb[th[k]])</span>&#x00A0;<span 
class="ectt-1200">)</span>&#x00A0;&#x00A0;<span 
class="ectt-1200">th[k</span>&#x00A0;<span 
class="ectt-1200">+</span>&#x00A0;<span 
class="ectt-1200">1]</span>&#x00A0;<span 
class="ectt-1200">=</span>&#x00A0;<span 
class="ectt-1200">th[k];</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">else</span>&#x00A0;<span 
class="ectt-1200">goto</span>&#x00A0;<span 
class="ectt-1200">l1;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">}</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">k</span>&#x00A0;<span 
class="ectt-1200">=</span>&#x00A0;<span 
class="ectt-1200">-1;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">l1</span>&#x00A0;<span 
class="ectt-1200">:</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">th[k</span>&#x00A0;<span 
class="ectt-1200">+</span>&#x00A0;<span 
class="ectt-1200">1]</span>&#x00A0;<span 
class="ectt-1200">=</span>&#x00A0;<span 
class="ectt-1200">j;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">}</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">ndtsrt</span>&#x00A0;<span 
class="ectt-1200">=</span>&#x00A0;<span 
class="ectt-1200">FALSE;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">}</span>
&#x00A0;<br />
&#x00A0;<br />
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">static</span>&#x00A0;<span 
class="ectt-1200">real</span>&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">errbd(real</span>&#x00A0;<span 
class="ectt-1200">u,</span>&#x00A0;<span 
class="ectt-1200">real*</span>&#x00A0;<span 
class="ectt-1200">cx)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">/*</span>&#x00A0;&#x00A0;<span 
class="ectt-1200">find</span>&#x00A0;<span 
class="ectt-1200">bound</span>&#x00A0;<span 
class="ectt-1200">on</span>&#x00A0;<span 
class="ectt-1200">tail</span>&#x00A0;<span 
class="ectt-1200">probability</span>&#x00A0;<span 
class="ectt-1200">using</span>&#x00A0;<span 
class="ectt-1200">mgf,</span>&#x00A0;<span 
class="ectt-1200">cutoff</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">point</span>&#x00A0;<span 
class="ectt-1200">returned</span>&#x00A0;<span 
class="ectt-1200">to</span>&#x00A0;<span 
class="ectt-1200">*cx</span>&#x00A0;<span 
class="ectt-1200">*/</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">{</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">real</span>&#x00A0;<span 
class="ectt-1200">sum1,</span>&#x00A0;<span 
class="ectt-1200">lj,</span>&#x00A0;<span 
class="ectt-1200">ncj,</span>&#x00A0;<span 
class="ectt-1200">x,</span>&#x00A0;<span 
class="ectt-1200">y,</span>&#x00A0;<span 
class="ectt-1200">xconst;</span>&#x00A0;<span 
class="ectt-1200">int</span>&#x00A0;<span 
class="ectt-1200">j,</span>&#x00A0;<span 
class="ectt-1200">nj;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">extern</span>&#x00A0;<span 
class="ectt-1200">real</span>&#x00A0;<span 
class="ectt-1200">sigsq,*lb,*nc;</span>&#x00A0;<span 
class="ectt-1200">extern</span>&#x00A0;<span 
class="ectt-1200">int</span>&#x00A0;<span 
class="ectt-1200">*n;</span>&#x00A0;<span 
class="ectt-1200">extern</span>&#x00A0;<span 
class="ectt-1200">int</span>&#x00A0;<span 
class="ectt-1200">r;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">counter();</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">xconst</span>&#x00A0;<span 
class="ectt-1200">=</span>&#x00A0;<span 
class="ectt-1200">u</span>&#x00A0;<span 
class="ectt-1200">*</span>&#x00A0;<span 
class="ectt-1200">sigsq;</span>&#x00A0;&#x00A0;<span 
class="ectt-1200">sum1</span>&#x00A0;<span 
class="ectt-1200">=</span>&#x00A0;<span 
class="ectt-1200">u</span>&#x00A0;<span 
class="ectt-1200">*</span>&#x00A0;<span 
class="ectt-1200">xconst;</span>&#x00A0;&#x00A0;<span 
class="ectt-1200">u</span>&#x00A0;<span 
class="ectt-1200">=</span>&#x00A0;<span 
class="ectt-1200">2.0</span>&#x00A0;<span 
class="ectt-1200">*</span>&#x00A0;<span 
class="ectt-1200">u;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">for</span>&#x00A0;<span 
class="ectt-1200">(j=r-1;</span>&#x00A0;<span 
class="ectt-1200">j&#x003E;=0;</span>&#x00A0;<span 
class="ectt-1200">j--)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">{</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">nj</span>&#x00A0;<span 
class="ectt-1200">=</span>&#x00A0;<span 
class="ectt-1200">n[j];</span>&#x00A0;<span 
class="ectt-1200">lj</span>&#x00A0;<span 
class="ectt-1200">=</span>&#x00A0;<span 
class="ectt-1200">lb[j];</span>&#x00A0;<span 
class="ectt-1200">ncj</span>&#x00A0;<span 
class="ectt-1200">=</span>&#x00A0;<span 
class="ectt-1200">nc[j];</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">x</span>&#x00A0;<span 
class="ectt-1200">=</span>&#x00A0;<span 
class="ectt-1200">u</span>&#x00A0;<span 
class="ectt-1200">*</span>&#x00A0;<span 
class="ectt-1200">lj;</span>&#x00A0;<span 
class="ectt-1200">y</span>&#x00A0;<span 
class="ectt-1200">=</span>&#x00A0;<span 
class="ectt-1200">1.0</span>&#x00A0;<span 
class="ectt-1200">-</span>&#x00A0;<span 
class="ectt-1200">x;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">xconst</span>&#x00A0;<span 
class="ectt-1200">=</span>&#x00A0;<span 
class="ectt-1200">xconst</span>&#x00A0;<span 
class="ectt-1200">+</span>&#x00A0;<span 
class="ectt-1200">lj</span>&#x00A0;<span 
class="ectt-1200">*</span>&#x00A0;<span 
class="ectt-1200">(ncj</span>&#x00A0;<span 
class="ectt-1200">/</span>&#x00A0;<span 
class="ectt-1200">y</span>&#x00A0;<span 
class="ectt-1200">+</span>&#x00A0;<span 
class="ectt-1200">nj)</span>&#x00A0;<span 
class="ectt-1200">/</span>&#x00A0;<span 
class="ectt-1200">y;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">sum1</span>&#x00A0;<span 
class="ectt-1200">=</span>&#x00A0;<span 
class="ectt-1200">sum1</span>&#x00A0;<span 
class="ectt-1200">+</span>&#x00A0;<span 
class="ectt-1200">ncj</span>&#x00A0;<span 
class="ectt-1200">*</span>&#x00A0;<span 
class="ectt-1200">square(x</span>&#x00A0;<span 
class="ectt-1200">/</span>&#x00A0;<span 
class="ectt-1200">y)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">+</span>&#x00A0;<span 
class="ectt-1200">nj</span>&#x00A0;<span 
class="ectt-1200">*</span>&#x00A0;<span 
class="ectt-1200">(square(x)</span>&#x00A0;<span 
class="ectt-1200">/</span>&#x00A0;<span 
class="ectt-1200">y</span>&#x00A0;<span 
class="ectt-1200">+</span>&#x00A0;<span 
class="ectt-1200">log1(-x,</span>&#x00A0;<span 
class="ectt-1200">FALSE</span>&#x00A0;<span 
class="ectt-1200">));</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">}</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">*cx</span>&#x00A0;<span 
class="ectt-1200">=</span>&#x00A0;<span 
class="ectt-1200">xconst;</span>&#x00A0;<span 
class="ectt-1200">return</span>&#x00A0;<span 
class="ectt-1200">exp1(-0.5</span>&#x00A0;<span 
class="ectt-1200">*</span>&#x00A0;<span 
class="ectt-1200">sum1);</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">}</span>
&#x00A0;<br />
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">static</span>&#x00A0;<span 
class="ectt-1200">real</span>&#x00A0;&#x00A0;<span 
class="ectt-1200">ctff(real</span>&#x00A0;<span 
class="ectt-1200">accx,</span>&#x00A0;<span 
class="ectt-1200">real*</span>&#x00A0;<span 
class="ectt-1200">upn)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">/*</span>&#x00A0;&#x00A0;<span 
class="ectt-1200">find</span>&#x00A0;<span 
class="ectt-1200">ctff</span>&#x00A0;<span 
class="ectt-1200">so</span>&#x00A0;<span 
class="ectt-1200">that</span>&#x00A0;<span 
class="ectt-1200">p(qf</span>&#x00A0;<span 
class="ectt-1200">&#x003E;</span>&#x00A0;<span 
class="ectt-1200">ctff)</span>&#x00A0;<span 
class="ectt-1200">&#x003C;</span>&#x00A0;<span 
class="ectt-1200">accx</span>&#x00A0;&#x00A0;<span 
class="ectt-1200">if</span>&#x00A0;<span 
class="ectt-1200">(upn</span>&#x00A0;<span 
class="ectt-1200">&#x003E;</span>&#x00A0;<span 
class="ectt-1200">0,</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">p(qf</span>&#x00A0;<span 
class="ectt-1200">&#x003C;</span>&#x00A0;<span 
class="ectt-1200">ctff)</span>&#x00A0;<span 
class="ectt-1200">&#x003C;</span>&#x00A0;<span 
class="ectt-1200">accx</span>&#x00A0;<span 
class="ectt-1200">otherwise</span>&#x00A0;<span 
class="ectt-1200">*/</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">{</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">real</span>&#x00A0;<span 
class="ectt-1200">u1,</span>&#x00A0;<span 
class="ectt-1200">u2,</span>&#x00A0;<span 
class="ectt-1200">u,</span>&#x00A0;<span 
class="ectt-1200">rb,</span>&#x00A0;<span 
class="ectt-1200">xconst,</span>&#x00A0;<span 
class="ectt-1200">c1,</span>&#x00A0;<span 
class="ectt-1200">c2;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">extern</span>&#x00A0;<span 
class="ectt-1200">real</span>&#x00A0;<span 
class="ectt-1200">lmin,lmax,mean;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">u2</span>&#x00A0;<span 
class="ectt-1200">=</span>&#x00A0;<span 
class="ectt-1200">*upn;</span>&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">u1</span>&#x00A0;<span 
class="ectt-1200">=</span>&#x00A0;<span 
class="ectt-1200">0.0;</span>&#x00A0;&#x00A0;<span 
class="ectt-1200">c1</span>&#x00A0;<span 
class="ectt-1200">=</span>&#x00A0;<span 
class="ectt-1200">mean;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">rb</span>&#x00A0;<span 
class="ectt-1200">=</span>&#x00A0;<span 
class="ectt-1200">2.0</span>&#x00A0;<span 
class="ectt-1200">*</span>&#x00A0;<span 
class="ectt-1200">((u2</span>&#x00A0;<span 
class="ectt-1200">&#x003E;</span>&#x00A0;<span 
class="ectt-1200">0.0)</span>&#x00A0;<span 
class="ectt-1200">?</span>&#x00A0;<span 
class="ectt-1200">lmax</span>&#x00A0;<span 
class="ectt-1200">:</span>&#x00A0;<span 
class="ectt-1200">lmin);</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">for</span>&#x00A0;<span 
class="ectt-1200">(u</span>&#x00A0;<span 
class="ectt-1200">=</span>&#x00A0;<span 
class="ectt-1200">u2</span>&#x00A0;<span 
class="ectt-1200">/</span>&#x00A0;<span 
class="ectt-1200">(1.0</span>&#x00A0;<span 
class="ectt-1200">+</span>&#x00A0;<span 
class="ectt-1200">u2</span>&#x00A0;<span 
class="ectt-1200">*</span>&#x00A0;<span 
class="ectt-1200">rb);</span>&#x00A0;<span 
class="ectt-1200">errbd(u,</span>&#x00A0;<span 
class="ectt-1200">&#x0026;c2)</span>&#x00A0;<span 
class="ectt-1200">&#x003E;</span>&#x00A0;<span 
class="ectt-1200">accx;</span>

&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">u</span>&#x00A0;<span 
class="ectt-1200">=</span>&#x00A0;<span 
class="ectt-1200">u2</span>&#x00A0;<span 
class="ectt-1200">/</span>&#x00A0;<span 
class="ectt-1200">(1.0</span>&#x00A0;<span 
class="ectt-1200">+</span>&#x00A0;<span 
class="ectt-1200">u2</span>&#x00A0;<span 
class="ectt-1200">*</span>&#x00A0;<span 
class="ectt-1200">rb))</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">{</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">u1</span>&#x00A0;<span 
class="ectt-1200">=</span>&#x00A0;<span 
class="ectt-1200">u2;</span>&#x00A0;&#x00A0;<span 
class="ectt-1200">c1</span>&#x00A0;<span 
class="ectt-1200">=</span>&#x00A0;<span 
class="ectt-1200">c2;</span>&#x00A0;&#x00A0;<span 
class="ectt-1200">u2</span>&#x00A0;<span 
class="ectt-1200">=</span>&#x00A0;<span 
class="ectt-1200">2.0</span>&#x00A0;<span 
class="ectt-1200">*</span>&#x00A0;<span 
class="ectt-1200">u2;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">}</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">for</span>&#x00A0;<span 
class="ectt-1200">(u</span>&#x00A0;<span 
class="ectt-1200">=</span>&#x00A0;<span 
class="ectt-1200">(c1</span>&#x00A0;<span 
class="ectt-1200">-</span>&#x00A0;<span 
class="ectt-1200">mean)</span>&#x00A0;<span 
class="ectt-1200">/</span>&#x00A0;<span 
class="ectt-1200">(c2</span>&#x00A0;<span 
class="ectt-1200">-</span>&#x00A0;<span 
class="ectt-1200">mean);</span>&#x00A0;<span 
class="ectt-1200">u</span>&#x00A0;<span 
class="ectt-1200">&#x003C;</span>&#x00A0;<span 
class="ectt-1200">0.9;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">u</span>&#x00A0;<span 
class="ectt-1200">=</span>&#x00A0;<span 
class="ectt-1200">(c1</span>&#x00A0;<span 
class="ectt-1200">-</span>&#x00A0;<span 
class="ectt-1200">mean)</span>&#x00A0;<span 
class="ectt-1200">/</span>&#x00A0;<span 
class="ectt-1200">(c2</span>&#x00A0;<span 
class="ectt-1200">-</span>&#x00A0;<span 
class="ectt-1200">mean))</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">{</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">u</span>&#x00A0;<span 
class="ectt-1200">=</span>&#x00A0;<span 
class="ectt-1200">(u1</span>&#x00A0;<span 
class="ectt-1200">+</span>&#x00A0;<span 
class="ectt-1200">u2)</span>&#x00A0;<span 
class="ectt-1200">/</span>&#x00A0;<span 
class="ectt-1200">2.0;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">if</span>&#x00A0;<span 
class="ectt-1200">(errbd(u</span>&#x00A0;<span 
class="ectt-1200">/</span>&#x00A0;<span 
class="ectt-1200">(1.0</span>&#x00A0;<span 
class="ectt-1200">+</span>&#x00A0;<span 
class="ectt-1200">u</span>&#x00A0;<span 
class="ectt-1200">*</span>&#x00A0;<span 
class="ectt-1200">rb),</span>&#x00A0;<span 
class="ectt-1200">&#x0026;xconst)</span>&#x00A0;<span 
class="ectt-1200">&#x003E;</span>&#x00A0;<span 
class="ectt-1200">accx)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">{</span>&#x00A0;&#x00A0;<span 
class="ectt-1200">u1</span>&#x00A0;<span 
class="ectt-1200">=</span>&#x00A0;<span 
class="ectt-1200">u;</span>&#x00A0;<span 
class="ectt-1200">c1</span>&#x00A0;<span 
class="ectt-1200">=</span>&#x00A0;<span 
class="ectt-1200">xconst;</span>&#x00A0;&#x00A0;<span 
class="ectt-1200">}</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">else</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">{</span>&#x00A0;&#x00A0;<span 
class="ectt-1200">u2</span>&#x00A0;<span 
class="ectt-1200">=</span>&#x00A0;<span 
class="ectt-1200">u;</span>&#x00A0;&#x00A0;<span 
class="ectt-1200">c2</span>&#x00A0;<span 
class="ectt-1200">=</span>&#x00A0;<span 
class="ectt-1200">xconst;</span>&#x00A0;<span 
class="ectt-1200">}</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">}</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">*upn</span>&#x00A0;<span 
class="ectt-1200">=</span>&#x00A0;<span 
class="ectt-1200">u2;</span>&#x00A0;<span 
class="ectt-1200">return</span>&#x00A0;<span 
class="ectt-1200">c2;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">}</span>
&#x00A0;<br />
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">static</span>&#x00A0;<span 
class="ectt-1200">real</span>&#x00A0;<span 
class="ectt-1200">truncation(real</span>&#x00A0;<span 
class="ectt-1200">u,</span>&#x00A0;<span 
class="ectt-1200">real</span>&#x00A0;<span 
class="ectt-1200">tausq)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">/*</span>&#x00A0;<span 
class="ectt-1200">bound</span>&#x00A0;<span 
class="ectt-1200">integration</span>&#x00A0;<span 
class="ectt-1200">error</span>&#x00A0;<span 
class="ectt-1200">due</span>&#x00A0;<span 
class="ectt-1200">to</span>&#x00A0;<span 
class="ectt-1200">truncation</span>&#x00A0;<span 
class="ectt-1200">at</span>&#x00A0;<span 
class="ectt-1200">u</span>&#x00A0;<span 
class="ectt-1200">*/</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">{</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">real</span>&#x00A0;<span 
class="ectt-1200">sum1,</span>&#x00A0;<span 
class="ectt-1200">sum2,</span>&#x00A0;<span 
class="ectt-1200">prod1,</span>&#x00A0;<span 
class="ectt-1200">prod2,</span>&#x00A0;<span 
class="ectt-1200">prod3,</span>&#x00A0;<span 
class="ectt-1200">lj,</span>&#x00A0;<span 
class="ectt-1200">ncj,</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">x,</span>&#x00A0;<span 
class="ectt-1200">y,</span>&#x00A0;<span 
class="ectt-1200">err1,</span>&#x00A0;<span 
class="ectt-1200">err2;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">int</span>&#x00A0;<span 
class="ectt-1200">j,</span>&#x00A0;<span 
class="ectt-1200">nj,</span>&#x00A0;<span 
class="ectt-1200">s;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">extern</span>&#x00A0;<span 
class="ectt-1200">real</span>&#x00A0;<span 
class="ectt-1200">sigsq,*lb,*nc;</span>&#x00A0;<span 
class="ectt-1200">extern</span>&#x00A0;<span 
class="ectt-1200">int</span>&#x00A0;<span 
class="ectt-1200">*n;</span>&#x00A0;<span 
class="ectt-1200">extern</span>&#x00A0;<span 
class="ectt-1200">int</span>&#x00A0;<span 
class="ectt-1200">r;</span>
&#x00A0;<br />
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">counter();</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">sum1</span>&#x00A0;&#x00A0;<span 
class="ectt-1200">=</span>&#x00A0;<span 
class="ectt-1200">0.0;</span>&#x00A0;<span 
class="ectt-1200">prod2</span>&#x00A0;<span 
class="ectt-1200">=</span>&#x00A0;<span 
class="ectt-1200">0.0;</span>&#x00A0;&#x00A0;<span 
class="ectt-1200">prod3</span>&#x00A0;<span 
class="ectt-1200">=</span>&#x00A0;<span 
class="ectt-1200">0.0;</span>&#x00A0;&#x00A0;<span 
class="ectt-1200">s</span>&#x00A0;<span 
class="ectt-1200">=</span>&#x00A0;<span 
class="ectt-1200">0;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">sum2</span>&#x00A0;<span 
class="ectt-1200">=</span>&#x00A0;<span 
class="ectt-1200">(sigsq</span>&#x00A0;<span 
class="ectt-1200">+</span>&#x00A0;<span 
class="ectt-1200">tausq)</span>&#x00A0;<span 
class="ectt-1200">*</span>&#x00A0;<span 
class="ectt-1200">square(u);</span>&#x00A0;<span 
class="ectt-1200">prod1</span>&#x00A0;<span 
class="ectt-1200">=</span>&#x00A0;<span 
class="ectt-1200">2.0</span>&#x00A0;<span 
class="ectt-1200">*</span>&#x00A0;<span 
class="ectt-1200">sum2;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">u</span>&#x00A0;<span 
class="ectt-1200">=</span>&#x00A0;<span 
class="ectt-1200">2.0</span>&#x00A0;<span 
class="ectt-1200">*</span>&#x00A0;<span 
class="ectt-1200">u;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">for</span>&#x00A0;<span 
class="ectt-1200">(j=0;</span>&#x00A0;<span 
class="ectt-1200">j&#x003C;r;</span>&#x00A0;<span 
class="ectt-1200">j++</span>&#x00A0;<span 
class="ectt-1200">)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">{</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">lj</span>&#x00A0;<span 
class="ectt-1200">=</span>&#x00A0;<span 
class="ectt-1200">lb[j];</span>&#x00A0;&#x00A0;<span 
class="ectt-1200">ncj</span>&#x00A0;<span 
class="ectt-1200">=</span>&#x00A0;<span 
class="ectt-1200">nc[j];</span>&#x00A0;<span 
class="ectt-1200">nj</span>&#x00A0;<span 
class="ectt-1200">=</span>&#x00A0;<span 
class="ectt-1200">n[j];</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">x</span>&#x00A0;<span 
class="ectt-1200">=</span>&#x00A0;<span 
class="ectt-1200">square(u</span>&#x00A0;<span 
class="ectt-1200">*</span>&#x00A0;<span 
class="ectt-1200">lj);</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">sum1</span>&#x00A0;<span 
class="ectt-1200">=</span>&#x00A0;<span 
class="ectt-1200">sum1</span>&#x00A0;<span 
class="ectt-1200">+</span>&#x00A0;<span 
class="ectt-1200">ncj</span>&#x00A0;<span 
class="ectt-1200">*</span>&#x00A0;<span 
class="ectt-1200">x</span>&#x00A0;<span 
class="ectt-1200">/</span>&#x00A0;<span 
class="ectt-1200">(1.0</span>&#x00A0;<span 
class="ectt-1200">+</span>&#x00A0;<span 
class="ectt-1200">x);</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">if</span>&#x00A0;<span 
class="ectt-1200">(x</span>&#x00A0;<span 
class="ectt-1200">&#x003E;</span>&#x00A0;<span 
class="ectt-1200">1.0)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">{</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">prod2</span>&#x00A0;<span 
class="ectt-1200">=</span>&#x00A0;<span 
class="ectt-1200">prod2</span>&#x00A0;<span 
class="ectt-1200">+</span>&#x00A0;<span 
class="ectt-1200">nj</span>&#x00A0;<span 
class="ectt-1200">*</span>&#x00A0;<span 
class="ectt-1200">log(x);</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">prod3</span>&#x00A0;<span 
class="ectt-1200">=</span>&#x00A0;<span 
class="ectt-1200">prod3</span>&#x00A0;<span 
class="ectt-1200">+</span>&#x00A0;<span 
class="ectt-1200">nj</span>&#x00A0;<span 
class="ectt-1200">*</span>&#x00A0;<span 
class="ectt-1200">log1(x,</span>&#x00A0;<span 
class="ectt-1200">TRUE</span>&#x00A0;<span 
class="ectt-1200">);</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">s</span>&#x00A0;<span 
class="ectt-1200">=</span>&#x00A0;<span 
class="ectt-1200">s</span>&#x00A0;<span 
class="ectt-1200">+</span>&#x00A0;<span 
class="ectt-1200">nj;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">}</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">else</span>&#x00A0;&#x00A0;<span 
class="ectt-1200">prod1</span>&#x00A0;<span 
class="ectt-1200">=</span>&#x00A0;<span 
class="ectt-1200">prod1</span>&#x00A0;<span 
class="ectt-1200">+</span>&#x00A0;<span 
class="ectt-1200">nj</span>&#x00A0;<span 
class="ectt-1200">*</span>&#x00A0;<span 
class="ectt-1200">log1(x,</span>&#x00A0;<span 
class="ectt-1200">TRUE</span>&#x00A0;<span 
class="ectt-1200">);</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">}</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">sum1</span>&#x00A0;<span 
class="ectt-1200">=</span>&#x00A0;<span 
class="ectt-1200">0.5</span>&#x00A0;<span 
class="ectt-1200">*</span>&#x00A0;<span 
class="ectt-1200">sum1;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">prod2</span>&#x00A0;<span 
class="ectt-1200">=</span>&#x00A0;<span 
class="ectt-1200">prod1</span>&#x00A0;<span 
class="ectt-1200">+</span>&#x00A0;<span 
class="ectt-1200">prod2;</span>&#x00A0;&#x00A0;<span 
class="ectt-1200">prod3</span>&#x00A0;<span 
class="ectt-1200">=</span>&#x00A0;<span 
class="ectt-1200">prod1</span>&#x00A0;<span 
class="ectt-1200">+</span>&#x00A0;<span 
class="ectt-1200">prod3;</span>

&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">x</span>&#x00A0;<span 
class="ectt-1200">=</span>&#x00A0;<span 
class="ectt-1200">exp1(-sum1</span>&#x00A0;<span 
class="ectt-1200">-</span>&#x00A0;<span 
class="ectt-1200">0.25</span>&#x00A0;<span 
class="ectt-1200">*</span>&#x00A0;<span 
class="ectt-1200">prod2)</span>&#x00A0;<span 
class="ectt-1200">/</span>&#x00A0;<span 
class="ectt-1200">pi;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">y</span>&#x00A0;<span 
class="ectt-1200">=</span>&#x00A0;<span 
class="ectt-1200">exp1(-sum1</span>&#x00A0;<span 
class="ectt-1200">-</span>&#x00A0;<span 
class="ectt-1200">0.25</span>&#x00A0;<span 
class="ectt-1200">*</span>&#x00A0;<span 
class="ectt-1200">prod3)</span>&#x00A0;<span 
class="ectt-1200">/</span>&#x00A0;<span 
class="ectt-1200">pi;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">err1</span>&#x00A0;<span 
class="ectt-1200">=</span>&#x00A0;&#x00A0;<span 
class="ectt-1200">(</span>&#x00A0;<span 
class="ectt-1200">s</span>&#x00A0;&#x00A0;<span 
class="ectt-1200">==</span>&#x00A0;&#x00A0;<span 
class="ectt-1200">0</span>&#x00A0;<span 
class="ectt-1200">)</span>&#x00A0;&#x00A0;<span 
class="ectt-1200">?</span>&#x00A0;<span 
class="ectt-1200">1.0</span>&#x00A0;<span 
class="ectt-1200">:</span>&#x00A0;<span 
class="ectt-1200">x</span>&#x00A0;<span 
class="ectt-1200">*</span>&#x00A0;<span 
class="ectt-1200">2.0</span>&#x00A0;<span 
class="ectt-1200">/</span>&#x00A0;<span 
class="ectt-1200">s;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">err2</span>&#x00A0;<span 
class="ectt-1200">=</span>&#x00A0;&#x00A0;<span 
class="ectt-1200">(</span>&#x00A0;<span 
class="ectt-1200">prod3</span>&#x00A0;<span 
class="ectt-1200">&#x003E;</span>&#x00A0;<span 
class="ectt-1200">1.0</span>&#x00A0;<span 
class="ectt-1200">)</span>&#x00A0;&#x00A0;<span 
class="ectt-1200">?</span>&#x00A0;<span 
class="ectt-1200">2.5</span>&#x00A0;<span 
class="ectt-1200">*</span>&#x00A0;<span 
class="ectt-1200">y</span>&#x00A0;<span 
class="ectt-1200">:</span>&#x00A0;<span 
class="ectt-1200">1.0;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">if</span>&#x00A0;<span 
class="ectt-1200">(err2</span>&#x00A0;<span 
class="ectt-1200">&#x003C;</span>&#x00A0;<span 
class="ectt-1200">err1)</span>&#x00A0;<span 
class="ectt-1200">err1</span>&#x00A0;<span 
class="ectt-1200">=</span>&#x00A0;<span 
class="ectt-1200">err2;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">x</span>&#x00A0;<span 
class="ectt-1200">=</span>&#x00A0;<span 
class="ectt-1200">0.5</span>&#x00A0;<span 
class="ectt-1200">*</span>&#x00A0;<span 
class="ectt-1200">sum2;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">err2</span>&#x00A0;<span 
class="ectt-1200">=</span>&#x00A0;&#x00A0;<span 
class="ectt-1200">(</span>&#x00A0;<span 
class="ectt-1200">x</span>&#x00A0;&#x00A0;<span 
class="ectt-1200">&#x003C;=</span>&#x00A0;&#x00A0;<span 
class="ectt-1200">y</span>&#x00A0;<span 
class="ectt-1200">)</span>&#x00A0;&#x00A0;<span 
class="ectt-1200">?</span>&#x00A0;<span 
class="ectt-1200">1.0</span>&#x00A0;&#x00A0;<span 
class="ectt-1200">:</span>&#x00A0;<span 
class="ectt-1200">y</span>&#x00A0;<span 
class="ectt-1200">/</span>&#x00A0;<span 
class="ectt-1200">x;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">return</span>&#x00A0;&#x00A0;<span 
class="ectt-1200">(</span>&#x00A0;<span 
class="ectt-1200">err1</span>&#x00A0;<span 
class="ectt-1200">&#x003C;</span>&#x00A0;<span 
class="ectt-1200">err2</span>&#x00A0;<span 
class="ectt-1200">)</span>&#x00A0;&#x00A0;<span 
class="ectt-1200">?</span>&#x00A0;<span 
class="ectt-1200">err1</span>&#x00A0;&#x00A0;<span 
class="ectt-1200">:</span>&#x00A0;&#x00A0;<span 
class="ectt-1200">err2;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">}</span>
&#x00A0;<br />
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">static</span>&#x00A0;<span 
class="ectt-1200">void</span>&#x00A0;<span 
class="ectt-1200">findu(real*</span>&#x00A0;<span 
class="ectt-1200">utx,</span>&#x00A0;<span 
class="ectt-1200">real</span>&#x00A0;<span 
class="ectt-1200">accx)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">/*</span>&#x00A0;&#x00A0;<span 
class="ectt-1200">find</span>&#x00A0;<span 
class="ectt-1200">u</span>&#x00A0;<span 
class="ectt-1200">such</span>&#x00A0;<span 
class="ectt-1200">that</span>&#x00A0;<span 
class="ectt-1200">truncation(u)</span>&#x00A0;<span 
class="ectt-1200">&#x003C;</span>&#x00A0;<span 
class="ectt-1200">accx</span>&#x00A0;<span 
class="ectt-1200">and</span>&#x00A0;<span 
class="ectt-1200">truncation(u</span>&#x00A0;<span 
class="ectt-1200">/</span>&#x00A0;<span 
class="ectt-1200">1.2)</span>&#x00A0;<span 
class="ectt-1200">&#x003E;</span>&#x00A0;<span 
class="ectt-1200">accx</span>&#x00A0;<span 
class="ectt-1200">*/</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">{</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">real</span>&#x00A0;<span 
class="ectt-1200">u,</span>&#x00A0;<span 
class="ectt-1200">ut;</span>&#x00A0;<span 
class="ectt-1200">int</span>&#x00A0;<span 
class="ectt-1200">i;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">static</span>&#x00A0;<span 
class="ectt-1200">real</span>&#x00A0;<span 
class="ectt-1200">divis[]={2.0,1.4,1.2,1.1};</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">ut</span>&#x00A0;<span 
class="ectt-1200">=</span>&#x00A0;<span 
class="ectt-1200">*utx;</span>&#x00A0;<span 
class="ectt-1200">u</span>&#x00A0;<span 
class="ectt-1200">=</span>&#x00A0;<span 
class="ectt-1200">ut</span>&#x00A0;<span 
class="ectt-1200">/</span>&#x00A0;<span 
class="ectt-1200">4.0;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">if</span>&#x00A0;<span 
class="ectt-1200">(</span>&#x00A0;<span 
class="ectt-1200">truncation(u,</span>&#x00A0;<span 
class="ectt-1200">0.0)</span>&#x00A0;<span 
class="ectt-1200">&#x003E;</span>&#x00A0;<span 
class="ectt-1200">accx</span>&#x00A0;<span 
class="ectt-1200">)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">{</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">for</span>&#x00A0;<span 
class="ectt-1200">(</span>&#x00A0;<span 
class="ectt-1200">u</span>&#x00A0;<span 
class="ectt-1200">=</span>&#x00A0;<span 
class="ectt-1200">ut;</span>&#x00A0;<span 
class="ectt-1200">truncation(u,</span>&#x00A0;<span 
class="ectt-1200">0.0)</span>&#x00A0;<span 
class="ectt-1200">&#x003E;</span>&#x00A0;<span 
class="ectt-1200">accx;</span>&#x00A0;<span 
class="ectt-1200">u</span>&#x00A0;<span 
class="ectt-1200">=</span>&#x00A0;<span 
class="ectt-1200">ut)</span>&#x00A0;<span 
class="ectt-1200">ut</span>&#x00A0;<span 
class="ectt-1200">=</span>&#x00A0;<span 
class="ectt-1200">ut</span>&#x00A0;<span 
class="ectt-1200">*</span>&#x00A0;<span 
class="ectt-1200">4.0;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">}</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">else</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">{</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">ut</span>&#x00A0;<span 
class="ectt-1200">=</span>&#x00A0;<span 
class="ectt-1200">u;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">for</span>&#x00A0;<span 
class="ectt-1200">(</span>&#x00A0;<span 
class="ectt-1200">u</span>&#x00A0;<span 
class="ectt-1200">=</span>&#x00A0;<span 
class="ectt-1200">u</span>&#x00A0;<span 
class="ectt-1200">/</span>&#x00A0;<span 
class="ectt-1200">4.0;</span>&#x00A0;<span 
class="ectt-1200">truncation(u,</span>&#x00A0;<span 
class="ectt-1200">0.0)</span>&#x00A0;<span 
class="ectt-1200">&#x003C;=</span>&#x00A0;&#x00A0;<span 
class="ectt-1200">accx;</span>&#x00A0;<span 
class="ectt-1200">u</span>&#x00A0;<span 
class="ectt-1200">=</span>&#x00A0;<span 
class="ectt-1200">u</span>&#x00A0;<span 
class="ectt-1200">/</span>&#x00A0;<span 
class="ectt-1200">4.0</span>&#x00A0;<span 
class="ectt-1200">)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">ut</span>&#x00A0;<span 
class="ectt-1200">=</span>&#x00A0;<span 
class="ectt-1200">u;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">}</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">for</span>&#x00A0;<span 
class="ectt-1200">(</span>&#x00A0;<span 
class="ectt-1200">i=0;i&#x003C;4;i++)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">{</span>&#x00A0;<span 
class="ectt-1200">u</span>&#x00A0;<span 
class="ectt-1200">=</span>&#x00A0;<span 
class="ectt-1200">ut/divis[i];</span>&#x00A0;<span 
class="ectt-1200">if</span>&#x00A0;<span 
class="ectt-1200">(</span>&#x00A0;<span 
class="ectt-1200">truncation(u,</span>&#x00A0;<span 
class="ectt-1200">0.0)</span>&#x00A0;&#x00A0;<span 
class="ectt-1200">&#x003C;=</span>&#x00A0;&#x00A0;<span 
class="ectt-1200">accx</span>&#x00A0;<span 
class="ectt-1200">)</span>&#x00A0;&#x00A0;<span 
class="ectt-1200">ut</span>&#x00A0;<span 
class="ectt-1200">=</span>&#x00A0;<span 
class="ectt-1200">u;</span>&#x00A0;<span 
class="ectt-1200">}</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">*utx</span>&#x00A0;<span 
class="ectt-1200">=</span>&#x00A0;<span 
class="ectt-1200">ut;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">}</span>
&#x00A0;<br />
&#x00A0;<br />
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">static</span>&#x00A0;<span 
class="ectt-1200">void</span>&#x00A0;<span 
class="ectt-1200">integrate(int</span>&#x00A0;<span 
class="ectt-1200">nterm,</span>&#x00A0;<span 
class="ectt-1200">real</span>&#x00A0;<span 
class="ectt-1200">interv,</span>&#x00A0;<span 
class="ectt-1200">real</span>&#x00A0;<span 
class="ectt-1200">tausq,</span>&#x00A0;<span 
class="ectt-1200">BOOL</span>&#x00A0;<span 
class="ectt-1200">mainx)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">/*</span>&#x00A0;&#x00A0;<span 
class="ectt-1200">carry</span>&#x00A0;<span 
class="ectt-1200">out</span>&#x00A0;<span 
class="ectt-1200">integration</span>&#x00A0;<span 
class="ectt-1200">with</span>&#x00A0;<span 
class="ectt-1200">nterm</span>&#x00A0;<span 
class="ectt-1200">terms,</span>&#x00A0;<span 
class="ectt-1200">at</span>&#x00A0;<span 
class="ectt-1200">stepsize</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">interv.</span>&#x00A0;&#x00A0;<span 
class="ectt-1200">if</span>&#x00A0;<span 
class="ectt-1200">(!</span>&#x00A0;<span 
class="ectt-1200">mainx)</span>&#x00A0;<span 
class="ectt-1200">multiply</span>&#x00A0;<span 
class="ectt-1200">integrand</span>&#x00A0;<span 
class="ectt-1200">by</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">1.0-exp(-0.5*tausq*u&#x0302;2)</span>&#x00A0;<span 
class="ectt-1200">*/</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">{</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">real</span>&#x00A0;<span 
class="ectt-1200">inpi,</span>&#x00A0;<span 
class="ectt-1200">u,</span>&#x00A0;<span 
class="ectt-1200">sum1,</span>&#x00A0;<span 
class="ectt-1200">sum2,</span>&#x00A0;<span 
class="ectt-1200">sum3,</span>&#x00A0;<span 
class="ectt-1200">x,</span>&#x00A0;<span 
class="ectt-1200">y,</span>&#x00A0;<span 
class="ectt-1200">z;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">int</span>&#x00A0;<span 
class="ectt-1200">k,</span>&#x00A0;<span 
class="ectt-1200">j,</span>&#x00A0;<span 
class="ectt-1200">nj;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">extern</span>&#x00A0;<span 
class="ectt-1200">double</span>&#x00A0;<span 
class="ectt-1200">intl,ersm;</span>&#x00A0;<span 
class="ectt-1200">extern</span>&#x00A0;<span 
class="ectt-1200">real</span>&#x00A0;<span 
class="ectt-1200">sigsq,c;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">extern</span>&#x00A0;<span 
class="ectt-1200">int</span>&#x00A0;<span 
class="ectt-1200">*n;</span>&#x00A0;<span 
class="ectt-1200">extern</span>&#x00A0;<span 
class="ectt-1200">real</span>&#x00A0;<span 
class="ectt-1200">*lb,*nc;</span>&#x00A0;<span 
class="ectt-1200">extern</span>&#x00A0;<span 
class="ectt-1200">int</span>&#x00A0;<span 
class="ectt-1200">r;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">inpi</span>&#x00A0;<span 
class="ectt-1200">=</span>&#x00A0;<span 
class="ectt-1200">interv</span>&#x00A0;<span 
class="ectt-1200">/</span>&#x00A0;<span 
class="ectt-1200">pi;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">for</span>&#x00A0;<span 
class="ectt-1200">(</span>&#x00A0;<span 
class="ectt-1200">k</span>&#x00A0;<span 
class="ectt-1200">=</span>&#x00A0;<span 
class="ectt-1200">nterm;</span>&#x00A0;<span 
class="ectt-1200">k&#x003E;=0;</span>&#x00A0;<span 
class="ectt-1200">k--)</span>

&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">{</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">u</span>&#x00A0;<span 
class="ectt-1200">=</span>&#x00A0;<span 
class="ectt-1200">(k</span>&#x00A0;<span 
class="ectt-1200">+</span>&#x00A0;<span 
class="ectt-1200">0.5)</span>&#x00A0;<span 
class="ectt-1200">*</span>&#x00A0;<span 
class="ectt-1200">interv;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">sum1</span>&#x00A0;<span 
class="ectt-1200">=</span>&#x00A0;<span 
class="ectt-1200">-</span>&#x00A0;<span 
class="ectt-1200">2.0</span>&#x00A0;<span 
class="ectt-1200">*</span>&#x00A0;<span 
class="ectt-1200">u</span>&#x00A0;<span 
class="ectt-1200">*</span>&#x00A0;<span 
class="ectt-1200">c;</span>&#x00A0;&#x00A0;<span 
class="ectt-1200">sum2</span>&#x00A0;<span 
class="ectt-1200">=</span>&#x00A0;<span 
class="ectt-1200">fabs(sum1);</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">sum3</span>&#x00A0;<span 
class="ectt-1200">=</span>&#x00A0;<span 
class="ectt-1200">-</span>&#x00A0;<span 
class="ectt-1200">0.5</span>&#x00A0;<span 
class="ectt-1200">*</span>&#x00A0;<span 
class="ectt-1200">sigsq</span>&#x00A0;<span 
class="ectt-1200">*</span>&#x00A0;<span 
class="ectt-1200">square(u);</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">for</span>&#x00A0;<span 
class="ectt-1200">(</span>&#x00A0;<span 
class="ectt-1200">j</span>&#x00A0;<span 
class="ectt-1200">=</span>&#x00A0;<span 
class="ectt-1200">r-1;</span>&#x00A0;<span 
class="ectt-1200">j&#x003E;=0;</span>&#x00A0;<span 
class="ectt-1200">j--)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">{</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">nj</span>&#x00A0;<span 
class="ectt-1200">=</span>&#x00A0;<span 
class="ectt-1200">n[j];</span>&#x00A0;&#x00A0;<span 
class="ectt-1200">x</span>&#x00A0;<span 
class="ectt-1200">=</span>&#x00A0;<span 
class="ectt-1200">2.0</span>&#x00A0;<span 
class="ectt-1200">*</span>&#x00A0;<span 
class="ectt-1200">lb[j]</span>&#x00A0;<span 
class="ectt-1200">*</span>&#x00A0;<span 
class="ectt-1200">u;</span>&#x00A0;&#x00A0;<span 
class="ectt-1200">y</span>&#x00A0;<span 
class="ectt-1200">=</span>&#x00A0;<span 
class="ectt-1200">square(x);</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">sum3</span>&#x00A0;<span 
class="ectt-1200">=</span>&#x00A0;<span 
class="ectt-1200">sum3</span>&#x00A0;<span 
class="ectt-1200">-</span>&#x00A0;<span 
class="ectt-1200">0.25</span>&#x00A0;<span 
class="ectt-1200">*</span>&#x00A0;<span 
class="ectt-1200">nj</span>&#x00A0;<span 
class="ectt-1200">*</span>&#x00A0;<span 
class="ectt-1200">log1(y,</span>&#x00A0;<span 
class="ectt-1200">TRUE</span>&#x00A0;<span 
class="ectt-1200">);</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">y</span>&#x00A0;<span 
class="ectt-1200">=</span>&#x00A0;<span 
class="ectt-1200">nc[j]</span>&#x00A0;<span 
class="ectt-1200">*</span>&#x00A0;<span 
class="ectt-1200">x</span>&#x00A0;<span 
class="ectt-1200">/</span>&#x00A0;<span 
class="ectt-1200">(1.0</span>&#x00A0;<span 
class="ectt-1200">+</span>&#x00A0;<span 
class="ectt-1200">y);</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">z</span>&#x00A0;<span 
class="ectt-1200">=</span>&#x00A0;<span 
class="ectt-1200">nj</span>&#x00A0;<span 
class="ectt-1200">*</span>&#x00A0;<span 
class="ectt-1200">atan(x)</span>&#x00A0;<span 
class="ectt-1200">+</span>&#x00A0;<span 
class="ectt-1200">y;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">sum1</span>&#x00A0;<span 
class="ectt-1200">=</span>&#x00A0;<span 
class="ectt-1200">sum1</span>&#x00A0;<span 
class="ectt-1200">+</span>&#x00A0;<span 
class="ectt-1200">z;</span>&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">sum2</span>&#x00A0;<span 
class="ectt-1200">=</span>&#x00A0;<span 
class="ectt-1200">sum2</span>&#x00A0;<span 
class="ectt-1200">+</span>&#x00A0;<span 
class="ectt-1200">fabs(z);</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">sum3</span>&#x00A0;<span 
class="ectt-1200">=</span>&#x00A0;<span 
class="ectt-1200">sum3</span>&#x00A0;<span 
class="ectt-1200">-</span>&#x00A0;<span 
class="ectt-1200">0.5</span>&#x00A0;<span 
class="ectt-1200">*</span>&#x00A0;<span 
class="ectt-1200">x</span>&#x00A0;<span 
class="ectt-1200">*</span>&#x00A0;<span 
class="ectt-1200">y;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">}</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">x</span>&#x00A0;<span 
class="ectt-1200">=</span>&#x00A0;<span 
class="ectt-1200">inpi</span>&#x00A0;<span 
class="ectt-1200">*</span>&#x00A0;<span 
class="ectt-1200">exp1(sum3)</span>&#x00A0;<span 
class="ectt-1200">/</span>&#x00A0;<span 
class="ectt-1200">u;</span>
&#x00A0;<br />&#x00A0;<span 
class="ectt-1200">if</span>&#x00A0;<span 
class="ectt-1200">(</span>&#x00A0;<span 
class="ectt-1200">!</span>&#x00A0;&#x00A0;<span 
class="ectt-1200">mainx</span>&#x00A0;<span 
class="ectt-1200">)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">x</span>&#x00A0;<span 
class="ectt-1200">=</span>&#x00A0;<span 
class="ectt-1200">x</span>&#x00A0;<span 
class="ectt-1200">*</span>&#x00A0;<span 
class="ectt-1200">(1.0</span>&#x00A0;<span 
class="ectt-1200">-</span>&#x00A0;<span 
class="ectt-1200">exp1(-0.5</span>&#x00A0;<span 
class="ectt-1200">*</span>&#x00A0;<span 
class="ectt-1200">tausq</span>&#x00A0;<span 
class="ectt-1200">*</span>&#x00A0;<span 
class="ectt-1200">square(u)));</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">sum1</span>&#x00A0;<span 
class="ectt-1200">=</span>&#x00A0;<span 
class="ectt-1200">sin(0.5</span>&#x00A0;<span 
class="ectt-1200">*</span>&#x00A0;<span 
class="ectt-1200">sum1)</span>&#x00A0;<span 
class="ectt-1200">*</span>&#x00A0;<span 
class="ectt-1200">x;</span>&#x00A0;&#x00A0;<span 
class="ectt-1200">sum2</span>&#x00A0;<span 
class="ectt-1200">=</span>&#x00A0;<span 
class="ectt-1200">0.5</span>&#x00A0;<span 
class="ectt-1200">*</span>&#x00A0;<span 
class="ectt-1200">sum2</span>&#x00A0;<span 
class="ectt-1200">*</span>&#x00A0;<span 
class="ectt-1200">x;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">intl</span>&#x00A0;<span 
class="ectt-1200">=</span>&#x00A0;<span 
class="ectt-1200">intl</span>&#x00A0;<span 
class="ectt-1200">+</span>&#x00A0;<span 
class="ectt-1200">sum1;</span>&#x00A0;<span 
class="ectt-1200">ersm</span>&#x00A0;<span 
class="ectt-1200">=</span>&#x00A0;<span 
class="ectt-1200">ersm</span>&#x00A0;<span 
class="ectt-1200">+</span>&#x00A0;<span 
class="ectt-1200">sum2;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">}</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">}</span>
&#x00A0;<br />
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">static</span>&#x00A0;<span 
class="ectt-1200">real</span>&#x00A0;<span 
class="ectt-1200">cfe(real</span>&#x00A0;<span 
class="ectt-1200">x)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">/*</span>&#x00A0;&#x00A0;<span 
class="ectt-1200">coef</span>&#x00A0;<span 
class="ectt-1200">of</span>&#x00A0;<span 
class="ectt-1200">tausq</span>&#x00A0;<span 
class="ectt-1200">in</span>&#x00A0;<span 
class="ectt-1200">error</span>&#x00A0;<span 
class="ectt-1200">when</span>&#x00A0;<span 
class="ectt-1200">convergence</span>&#x00A0;<span 
class="ectt-1200">factor</span>&#x00A0;<span 
class="ectt-1200">of</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">exp1(-0.5*tausq*u&#x0302;2)</span>&#x00A0;<span 
class="ectt-1200">is</span>&#x00A0;<span 
class="ectt-1200">used</span>&#x00A0;<span 
class="ectt-1200">when</span>&#x00A0;<span 
class="ectt-1200">df</span>&#x00A0;<span 
class="ectt-1200">is</span>&#x00A0;<span 
class="ectt-1200">evaluated</span>&#x00A0;<span 
class="ectt-1200">at</span>&#x00A0;<span 
class="ectt-1200">x</span>&#x00A0;<span 
class="ectt-1200">*/</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">{</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">real</span>&#x00A0;<span 
class="ectt-1200">axl,</span>&#x00A0;<span 
class="ectt-1200">axl1,</span>&#x00A0;<span 
class="ectt-1200">axl2,</span>&#x00A0;<span 
class="ectt-1200">sxl,</span>&#x00A0;<span 
class="ectt-1200">sum1,</span>&#x00A0;<span 
class="ectt-1200">lj;</span>&#x00A0;<span 
class="ectt-1200">int</span>&#x00A0;<span 
class="ectt-1200">j,</span>&#x00A0;<span 
class="ectt-1200">k,</span>&#x00A0;<span 
class="ectt-1200">t;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">extern</span>&#x00A0;<span 
class="ectt-1200">BOOL</span>&#x00A0;<span 
class="ectt-1200">ndtsrt,fail;</span>&#x00A0;<span 
class="ectt-1200">extern</span>&#x00A0;<span 
class="ectt-1200">int</span>&#x00A0;<span 
class="ectt-1200">*th,*n;</span>&#x00A0;<span 
class="ectt-1200">extern</span>&#x00A0;<span 
class="ectt-1200">real</span>&#x00A0;<span 
class="ectt-1200">*lb,*nc;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">extern</span>&#x00A0;<span 
class="ectt-1200">int</span>&#x00A0;<span 
class="ectt-1200">r;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">counter();</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">if</span>&#x00A0;<span 
class="ectt-1200">(ndtsrt)</span>&#x00A0;<span 
class="ectt-1200">order();</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">axl</span>&#x00A0;<span 
class="ectt-1200">=</span>&#x00A0;<span 
class="ectt-1200">fabs(x);</span>&#x00A0;&#x00A0;<span 
class="ectt-1200">sxl</span>&#x00A0;<span 
class="ectt-1200">=</span>&#x00A0;<span 
class="ectt-1200">(x&#x003E;0.0)</span>&#x00A0;<span 
class="ectt-1200">?</span>&#x00A0;<span 
class="ectt-1200">1.0</span>&#x00A0;<span 
class="ectt-1200">:</span>&#x00A0;<span 
class="ectt-1200">-1.0;</span>&#x00A0;&#x00A0;<span 
class="ectt-1200">sum1</span>&#x00A0;<span 
class="ectt-1200">=</span>&#x00A0;<span 
class="ectt-1200">0.0;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">for</span>&#x00A0;<span 
class="ectt-1200">(</span>&#x00A0;<span 
class="ectt-1200">j</span>&#x00A0;<span 
class="ectt-1200">=</span>&#x00A0;<span 
class="ectt-1200">r-1;</span>&#x00A0;<span 
class="ectt-1200">j&#x003E;=0;</span>&#x00A0;<span 
class="ectt-1200">j--</span>&#x00A0;<span 
class="ectt-1200">)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">{</span>&#x00A0;<span 
class="ectt-1200">t</span>&#x00A0;<span 
class="ectt-1200">=</span>&#x00A0;<span 
class="ectt-1200">th[j];</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">if</span>&#x00A0;<span 
class="ectt-1200">(</span>&#x00A0;<span 
class="ectt-1200">lb[t]</span>&#x00A0;<span 
class="ectt-1200">*</span>&#x00A0;<span 
class="ectt-1200">sxl</span>&#x00A0;<span 
class="ectt-1200">&#x003E;</span>&#x00A0;<span 
class="ectt-1200">0.0</span>&#x00A0;<span 
class="ectt-1200">)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">{</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">lj</span>&#x00A0;<span 
class="ectt-1200">=</span>&#x00A0;<span 
class="ectt-1200">fabs(lb[t]);</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">axl1</span>&#x00A0;<span 
class="ectt-1200">=</span>&#x00A0;<span 
class="ectt-1200">axl</span>&#x00A0;<span 
class="ectt-1200">-</span>&#x00A0;<span 
class="ectt-1200">lj</span>&#x00A0;<span 
class="ectt-1200">*</span>&#x00A0;<span 
class="ectt-1200">(n[t]</span>&#x00A0;<span 
class="ectt-1200">+</span>&#x00A0;<span 
class="ectt-1200">nc[t]);</span>&#x00A0;&#x00A0;<span 
class="ectt-1200">axl2</span>&#x00A0;<span 
class="ectt-1200">=</span>&#x00A0;<span 
class="ectt-1200">lj</span>&#x00A0;<span 
class="ectt-1200">/</span>&#x00A0;<span 
class="ectt-1200">log28;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">if</span>&#x00A0;<span 
class="ectt-1200">(</span>&#x00A0;<span 
class="ectt-1200">axl1</span>&#x00A0;<span 
class="ectt-1200">&#x003E;</span>&#x00A0;<span 
class="ectt-1200">axl2</span>&#x00A0;<span 
class="ectt-1200">)</span>&#x00A0;&#x00A0;<span 
class="ectt-1200">axl</span>&#x00A0;<span 
class="ectt-1200">=</span>&#x00A0;<span 
class="ectt-1200">axl1</span>&#x00A0;&#x00A0;<span 
class="ectt-1200">;</span>&#x00A0;<span 
class="ectt-1200">else</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">{</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">if</span>&#x00A0;<span 
class="ectt-1200">(</span>&#x00A0;<span 
class="ectt-1200">axl</span>&#x00A0;<span 
class="ectt-1200">&#x003E;</span>&#x00A0;<span 
class="ectt-1200">axl2</span>&#x00A0;<span 
class="ectt-1200">)</span>&#x00A0;&#x00A0;<span 
class="ectt-1200">axl</span>&#x00A0;<span 
class="ectt-1200">=</span>&#x00A0;<span 
class="ectt-1200">axl2;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">sum1</span>&#x00A0;<span 
class="ectt-1200">=</span>&#x00A0;<span 
class="ectt-1200">(axl</span>&#x00A0;<span 
class="ectt-1200">-</span>&#x00A0;<span 
class="ectt-1200">axl1)</span>&#x00A0;<span 
class="ectt-1200">/</span>&#x00A0;<span 
class="ectt-1200">lj;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">for</span>&#x00A0;<span 
class="ectt-1200">(</span>&#x00A0;<span 
class="ectt-1200">k</span>&#x00A0;<span 
class="ectt-1200">=</span>&#x00A0;<span 
class="ectt-1200">j-1;</span>&#x00A0;<span 
class="ectt-1200">k&#x003E;=0;</span>&#x00A0;<span 
class="ectt-1200">k--)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">sum1</span>&#x00A0;<span 
class="ectt-1200">=</span>&#x00A0;<span 
class="ectt-1200">sum1</span>&#x00A0;<span 
class="ectt-1200">+</span>&#x00A0;<span 
class="ectt-1200">(n[th[k]]</span>&#x00A0;<span 
class="ectt-1200">+</span>&#x00A0;<span 
class="ectt-1200">nc[th[k]]);</span>

&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">goto</span>&#x00A0;&#x00A0;<span 
class="ectt-1200">l;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">}</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">}</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">}</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">l:</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">if</span>&#x00A0;<span 
class="ectt-1200">(sum1</span>&#x00A0;<span 
class="ectt-1200">&#x003E;</span>&#x00A0;<span 
class="ectt-1200">100.0)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">{</span>&#x00A0;<span 
class="ectt-1200">fail</span>&#x00A0;<span 
class="ectt-1200">=</span>&#x00A0;<span 
class="ectt-1200">TRUE;</span>&#x00A0;<span 
class="ectt-1200">return</span>&#x00A0;<span 
class="ectt-1200">1.0;</span>&#x00A0;<span 
class="ectt-1200">}</span>&#x00A0;<span 
class="ectt-1200">else</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">return</span>&#x00A0;<span 
class="ectt-1200">pow(2.0,(sum1</span>&#x00A0;<span 
class="ectt-1200">/</span>&#x00A0;<span 
class="ectt-1200">4.0))</span>&#x00A0;<span 
class="ectt-1200">/</span>&#x00A0;<span 
class="ectt-1200">(pi</span>&#x00A0;<span 
class="ectt-1200">*</span>&#x00A0;<span 
class="ectt-1200">square(axl));</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">}</span>
&#x00A0;<br />
&#x00A0;<br />
&#x00A0;<br /><span 
class="ectt-1200">real</span>&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">qfdavies(real*</span>&#x00A0;<span 
class="ectt-1200">lb1,</span>&#x00A0;<span 
class="ectt-1200">real*</span>&#x00A0;<span 
class="ectt-1200">nc1,</span>&#x00A0;<span 
class="ectt-1200">int*</span>&#x00A0;<span 
class="ectt-1200">n1,</span>&#x00A0;<span 
class="ectt-1200">int</span>&#x00A0;<span 
class="ectt-1200">r1,</span>&#x00A0;<span 
class="ectt-1200">real</span>&#x00A0;<span 
class="ectt-1200">sigma,</span>&#x00A0;<span 
class="ectt-1200">real</span>&#x00A0;<span 
class="ectt-1200">c1,int</span>&#x00A0;<span 
class="ectt-1200">lim1,</span>&#x00A0;<span 
class="ectt-1200">real</span>&#x00A0;<span 
class="ectt-1200">acc,</span>&#x00A0;<span 
class="ectt-1200">real*</span>&#x00A0;<span 
class="ectt-1200">trace,</span>&#x00A0;<span 
class="ectt-1200">int*</span>&#x00A0;<span 
class="ectt-1200">ifault)</span>
&#x00A0;<br />
&#x00A0;<br /><span 
class="ectt-1200">/*</span>&#x00A0;&#x00A0;<span 
class="ectt-1200">distribution</span>&#x00A0;<span 
class="ectt-1200">function</span>&#x00A0;<span 
class="ectt-1200">of</span>&#x00A0;<span 
class="ectt-1200">a</span>&#x00A0;<span 
class="ectt-1200">linear</span>&#x00A0;<span 
class="ectt-1200">combination</span>&#x00A0;<span 
class="ectt-1200">of</span>&#x00A0;<span 
class="ectt-1200">non-central</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">chi-squared</span>&#x00A0;<span 
class="ectt-1200">random</span>&#x00A0;<span 
class="ectt-1200">variables</span>&#x00A0;<span 
class="ectt-1200">:</span>
&#x00A0;<br />
&#x00A0;<br /><span 
class="ectt-1200">input:</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">lb[j]</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">coefficient</span>&#x00A0;<span 
class="ectt-1200">of</span>&#x00A0;<span 
class="ectt-1200">j-th</span>&#x00A0;<span 
class="ectt-1200">chi-squared</span>&#x00A0;<span 
class="ectt-1200">variable</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">nc[j]</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">non-centrality</span>&#x00A0;<span 
class="ectt-1200">parameter</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">n[j]</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">degrees</span>&#x00A0;<span 
class="ectt-1200">of</span>&#x00A0;<span 
class="ectt-1200">freedom</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">j</span>&#x00A0;<span 
class="ectt-1200">=</span>&#x00A0;<span 
class="ectt-1200">0,</span>&#x00A0;<span 
class="ectt-1200">2</span>&#x00A0;<span 
class="ectt-1200">...</span>&#x00A0;<span 
class="ectt-1200">r-1</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">sigma</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">coefficient</span>&#x00A0;<span 
class="ectt-1200">of</span>&#x00A0;<span 
class="ectt-1200">standard</span>&#x00A0;<span 
class="ectt-1200">normal</span>&#x00A0;<span 
class="ectt-1200">variable</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">c</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">point</span>&#x00A0;<span 
class="ectt-1200">at</span>&#x00A0;<span 
class="ectt-1200">which</span>&#x00A0;<span 
class="ectt-1200">df</span>&#x00A0;<span 
class="ectt-1200">is</span>&#x00A0;<span 
class="ectt-1200">to</span>&#x00A0;<span 
class="ectt-1200">be</span>&#x00A0;<span 
class="ectt-1200">evaluated</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">lim</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">maximum</span>&#x00A0;<span 
class="ectt-1200">number</span>&#x00A0;<span 
class="ectt-1200">of</span>&#x00A0;<span 
class="ectt-1200">terms</span>&#x00A0;<span 
class="ectt-1200">in</span>&#x00A0;<span 
class="ectt-1200">integration</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">acc</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">maximum</span>&#x00A0;<span 
class="ectt-1200">error</span>
&#x00A0;<br />
&#x00A0;<br /><span 
class="ectt-1200">output:</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">ifault</span>&#x00A0;<span 
class="ectt-1200">=</span>&#x00A0;<span 
class="ectt-1200">1</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">required</span>&#x00A0;<span 
class="ectt-1200">accuracy</span>&#x00A0;<span 
class="ectt-1200">NOT</span>&#x00A0;<span 
class="ectt-1200">achieved</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">2</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">round-off</span>&#x00A0;<span 
class="ectt-1200">error</span>&#x00A0;<span 
class="ectt-1200">possibly</span>&#x00A0;<span 
class="ectt-1200">significant</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">3</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">invalid</span>&#x00A0;<span 
class="ectt-1200">parameters</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">4</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">unable</span>&#x00A0;<span 
class="ectt-1200">to</span>&#x00A0;<span 
class="ectt-1200">locate</span>&#x00A0;<span 
class="ectt-1200">integration</span>&#x00A0;<span 
class="ectt-1200">parameters</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">5</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">out</span>&#x00A0;<span 
class="ectt-1200">of</span>&#x00A0;<span 
class="ectt-1200">memory</span>
&#x00A0;<br />
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">trace[0]</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">absolute</span>&#x00A0;<span 
class="ectt-1200">sum</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">trace[1]</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">total</span>&#x00A0;<span 
class="ectt-1200">number</span>&#x00A0;<span 
class="ectt-1200">of</span>&#x00A0;<span 
class="ectt-1200">integration</span>&#x00A0;<span 
class="ectt-1200">terms</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">trace[2]</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">number</span>&#x00A0;<span 
class="ectt-1200">of</span>&#x00A0;<span 
class="ectt-1200">integrations</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">trace[3]</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">integration</span>&#x00A0;<span 
class="ectt-1200">interval</span>&#x00A0;<span 
class="ectt-1200">in</span>&#x00A0;<span 
class="ectt-1200">final</span>&#x00A0;<span 
class="ectt-1200">integration</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">trace[4]</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">truncation</span>&#x00A0;<span 
class="ectt-1200">point</span>&#x00A0;<span 
class="ectt-1200">in</span>&#x00A0;<span 
class="ectt-1200">initial</span>&#x00A0;<span 
class="ectt-1200">integration</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">trace[5]</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">s.d.</span>&#x00A0;<span 
class="ectt-1200">of</span>&#x00A0;<span 
class="ectt-1200">initial</span>&#x00A0;<span 
class="ectt-1200">convergence</span>&#x00A0;<span 
class="ectt-1200">factor</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">trace[6]</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">cycles</span>&#x00A0;<span 
class="ectt-1200">to</span>&#x00A0;<span 
class="ectt-1200">locate</span>&#x00A0;<span 
class="ectt-1200">integration</span>&#x00A0;<span 
class="ectt-1200">parameters</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">*/</span>
&#x00A0;<br />
&#x00A0;<br /><span 
class="ectt-1200">{</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">int</span>&#x00A0;<span 
class="ectt-1200">j,</span>&#x00A0;<span 
class="ectt-1200">nj,</span>&#x00A0;<span 
class="ectt-1200">nt,</span>&#x00A0;<span 
class="ectt-1200">ntm;</span>&#x00A0;&#x00A0;<span 
class="ectt-1200">real</span>&#x00A0;<span 
class="ectt-1200">acc1,</span>&#x00A0;<span 
class="ectt-1200">almx,</span>&#x00A0;<span 
class="ectt-1200">xlim,</span>&#x00A0;<span 
class="ectt-1200">xnt,</span>&#x00A0;<span 
class="ectt-1200">xntm;</span>

&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">real</span>&#x00A0;<span 
class="ectt-1200">utx,</span>&#x00A0;<span 
class="ectt-1200">tausq,</span>&#x00A0;<span 
class="ectt-1200">sd,</span>&#x00A0;<span 
class="ectt-1200">intv,</span>&#x00A0;<span 
class="ectt-1200">intv1,</span>&#x00A0;<span 
class="ectt-1200">x,</span>&#x00A0;<span 
class="ectt-1200">up,</span>&#x00A0;<span 
class="ectt-1200">un,</span>&#x00A0;<span 
class="ectt-1200">d1,</span>&#x00A0;<span 
class="ectt-1200">d2,</span>&#x00A0;<span 
class="ectt-1200">lj,</span>&#x00A0;<span 
class="ectt-1200">ncj;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">extern</span>&#x00A0;<span 
class="ectt-1200">real</span>&#x00A0;<span 
class="ectt-1200">sigsq,</span>&#x00A0;<span 
class="ectt-1200">lmax,</span>&#x00A0;<span 
class="ectt-1200">lmin,</span>&#x00A0;<span 
class="ectt-1200">mean;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">extern</span>&#x00A0;<span 
class="ectt-1200">double</span>&#x00A0;<span 
class="ectt-1200">intl,ersm;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">extern</span>&#x00A0;<span 
class="ectt-1200">int</span>&#x00A0;<span 
class="ectt-1200">r,lim;</span>&#x00A0;<span 
class="ectt-1200">extern</span>&#x00A0;<span 
class="ectt-1200">real</span>&#x00A0;<span 
class="ectt-1200">c;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">extern</span>&#x00A0;<span 
class="ectt-1200">int</span>&#x00A0;<span 
class="ectt-1200">*n,*th;</span>&#x00A0;<span 
class="ectt-1200">extern</span>&#x00A0;<span 
class="ectt-1200">real</span>&#x00A0;<span 
class="ectt-1200">*lb,*nc;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">real</span>&#x00A0;<span 
class="ectt-1200">qfval;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">qfval</span>&#x00A0;<span 
class="ectt-1200">=</span>&#x00A0;<span 
class="ectt-1200">-1.0;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">static</span>&#x00A0;<span 
class="ectt-1200">int</span>&#x00A0;<span 
class="ectt-1200">rats[]={1,2,4,8};</span>
&#x00A0;<br />
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">if</span>&#x00A0;<span 
class="ectt-1200">(setjmp(env)</span>&#x00A0;<span 
class="ectt-1200">!=</span>&#x00A0;<span 
class="ectt-1200">0)</span>&#x00A0;<span 
class="ectt-1200">{</span>&#x00A0;<span 
class="ectt-1200">*ifault=4;</span>&#x00A0;<span 
class="ectt-1200">goto</span>&#x00A0;<span 
class="ectt-1200">endofproc;</span>&#x00A0;<span 
class="ectt-1200">}</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">r=r1;</span>&#x00A0;<span 
class="ectt-1200">lim=lim1;</span>&#x00A0;<span 
class="ectt-1200">c=c1;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">n=n1;</span>&#x00A0;<span 
class="ectt-1200">lb=lb1;</span>&#x00A0;<span 
class="ectt-1200">nc=nc1;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">for</span>&#x00A0;<span 
class="ectt-1200">(</span>&#x00A0;<span 
class="ectt-1200">j</span>&#x00A0;<span 
class="ectt-1200">=</span>&#x00A0;<span 
class="ectt-1200">0;</span>&#x00A0;<span 
class="ectt-1200">j&#x003C;7;</span>&#x00A0;<span 
class="ectt-1200">j++</span>&#x00A0;<span 
class="ectt-1200">)</span>&#x00A0;&#x00A0;<span 
class="ectt-1200">trace[j]</span>&#x00A0;<span 
class="ectt-1200">=</span>&#x00A0;<span 
class="ectt-1200">0.0;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">*ifault</span>&#x00A0;<span 
class="ectt-1200">=</span>&#x00A0;<span 
class="ectt-1200">0;</span>&#x00A0;<span 
class="ectt-1200">count</span>&#x00A0;<span 
class="ectt-1200">=</span>&#x00A0;<span 
class="ectt-1200">0;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">intl</span>&#x00A0;<span 
class="ectt-1200">=</span>&#x00A0;<span 
class="ectt-1200">0.0;</span>&#x00A0;<span 
class="ectt-1200">ersm</span>&#x00A0;<span 
class="ectt-1200">=</span>&#x00A0;<span 
class="ectt-1200">0.0;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">acc1</span>&#x00A0;<span 
class="ectt-1200">=</span>&#x00A0;<span 
class="ectt-1200">acc;</span>&#x00A0;<span 
class="ectt-1200">ndtsrt</span>&#x00A0;<span 
class="ectt-1200">=</span>&#x00A0;<span 
class="ectt-1200">TRUE;</span>&#x00A0;&#x00A0;<span 
class="ectt-1200">fail</span>&#x00A0;<span 
class="ectt-1200">=</span>&#x00A0;<span 
class="ectt-1200">FALSE;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">xlim</span>&#x00A0;<span 
class="ectt-1200">=</span>&#x00A0;<span 
class="ectt-1200">(real)lim;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">th=(int*)malloc(r*(sizeof(int)));</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">if</span>&#x00A0;<span 
class="ectt-1200">(!</span>&#x00A0;<span 
class="ectt-1200">th)</span>&#x00A0;<span 
class="ectt-1200">{</span>&#x00A0;<span 
class="ectt-1200">*ifault=5;</span>&#x00A0;&#x00A0;<span 
class="ectt-1200">goto</span>&#x00A0;&#x00A0;<span 
class="ectt-1200">endofproc;</span>&#x00A0;<span 
class="ectt-1200">}</span>
&#x00A0;<br />
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">/*</span>&#x00A0;<span 
class="ectt-1200">find</span>&#x00A0;<span 
class="ectt-1200">mean,</span>&#x00A0;<span 
class="ectt-1200">sd,</span>&#x00A0;<span 
class="ectt-1200">max</span>&#x00A0;<span 
class="ectt-1200">and</span>&#x00A0;<span 
class="ectt-1200">min</span>&#x00A0;<span 
class="ectt-1200">of</span>&#x00A0;<span 
class="ectt-1200">lb,</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">check</span>&#x00A0;<span 
class="ectt-1200">that</span>&#x00A0;<span 
class="ectt-1200">parameter</span>&#x00A0;<span 
class="ectt-1200">values</span>&#x00A0;<span 
class="ectt-1200">are</span>&#x00A0;<span 
class="ectt-1200">valid</span>&#x00A0;<span 
class="ectt-1200">*/</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">sigsq</span>&#x00A0;<span 
class="ectt-1200">=</span>&#x00A0;<span 
class="ectt-1200">square(sigma);</span>&#x00A0;<span 
class="ectt-1200">sd</span>&#x00A0;<span 
class="ectt-1200">=</span>&#x00A0;<span 
class="ectt-1200">sigsq;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">lmax</span>&#x00A0;<span 
class="ectt-1200">=</span>&#x00A0;<span 
class="ectt-1200">0.0;</span>&#x00A0;<span 
class="ectt-1200">lmin</span>&#x00A0;<span 
class="ectt-1200">=</span>&#x00A0;<span 
class="ectt-1200">0.0;</span>&#x00A0;<span 
class="ectt-1200">mean</span>&#x00A0;<span 
class="ectt-1200">=</span>&#x00A0;<span 
class="ectt-1200">0.0;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">for</span>&#x00A0;<span 
class="ectt-1200">(j=0;</span>&#x00A0;<span 
class="ectt-1200">j&#x003C;r;</span>&#x00A0;<span 
class="ectt-1200">j++</span>&#x00A0;<span 
class="ectt-1200">)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">{</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">nj</span>&#x00A0;<span 
class="ectt-1200">=</span>&#x00A0;<span 
class="ectt-1200">n[j];</span>&#x00A0;&#x00A0;<span 
class="ectt-1200">lj</span>&#x00A0;<span 
class="ectt-1200">=</span>&#x00A0;<span 
class="ectt-1200">lb[j];</span>&#x00A0;&#x00A0;<span 
class="ectt-1200">ncj</span>&#x00A0;<span 
class="ectt-1200">=</span>&#x00A0;<span 
class="ectt-1200">nc[j];</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">if</span>&#x00A0;<span 
class="ectt-1200">(</span>&#x00A0;<span 
class="ectt-1200">nj</span>&#x00A0;<span 
class="ectt-1200">&#x003C;</span>&#x00A0;<span 
class="ectt-1200">0</span>&#x00A0;&#x00A0;<span 
class="ectt-1200">||</span>&#x00A0;&#x00A0;<span 
class="ectt-1200">ncj</span>&#x00A0;<span 
class="ectt-1200">&#x003C;</span>&#x00A0;<span 
class="ectt-1200">0.0</span>&#x00A0;<span 
class="ectt-1200">)</span>&#x00A0;<span 
class="ectt-1200">{</span>&#x00A0;<span 
class="ectt-1200">*ifault</span>&#x00A0;<span 
class="ectt-1200">=</span>&#x00A0;<span 
class="ectt-1200">3;</span>&#x00A0;&#x00A0;<span 
class="ectt-1200">goto</span>&#x00A0;&#x00A0;<span 
class="ectt-1200">endofproc;</span>&#x00A0;&#x00A0;<span 
class="ectt-1200">}</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">sd</span>&#x00A0;&#x00A0;<span 
class="ectt-1200">=</span>&#x00A0;<span 
class="ectt-1200">sd</span>&#x00A0;&#x00A0;<span 
class="ectt-1200">+</span>&#x00A0;<span 
class="ectt-1200">square(lj)</span>&#x00A0;<span 
class="ectt-1200">*</span>&#x00A0;<span 
class="ectt-1200">(2</span>&#x00A0;<span 
class="ectt-1200">*</span>&#x00A0;<span 
class="ectt-1200">nj</span>&#x00A0;<span 
class="ectt-1200">+</span>&#x00A0;<span 
class="ectt-1200">4.0</span>&#x00A0;<span 
class="ectt-1200">*</span>&#x00A0;<span 
class="ectt-1200">ncj);</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">mean</span>&#x00A0;<span 
class="ectt-1200">=</span>&#x00A0;<span 
class="ectt-1200">mean</span>&#x00A0;<span 
class="ectt-1200">+</span>&#x00A0;<span 
class="ectt-1200">lj</span>&#x00A0;<span 
class="ectt-1200">*</span>&#x00A0;<span 
class="ectt-1200">(nj</span>&#x00A0;<span 
class="ectt-1200">+</span>&#x00A0;<span 
class="ectt-1200">ncj);</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">if</span>&#x00A0;<span 
class="ectt-1200">(lmax</span>&#x00A0;<span 
class="ectt-1200">&#x003C;</span>&#x00A0;<span 
class="ectt-1200">lj)</span>&#x00A0;<span 
class="ectt-1200">lmax</span>&#x00A0;<span 
class="ectt-1200">=</span>&#x00A0;<span 
class="ectt-1200">lj</span>&#x00A0;<span 
class="ectt-1200">;</span>&#x00A0;<span 
class="ectt-1200">else</span>&#x00A0;<span 
class="ectt-1200">if</span>&#x00A0;<span 
class="ectt-1200">(lmin</span>&#x00A0;<span 
class="ectt-1200">&#x003E;</span>&#x00A0;<span 
class="ectt-1200">lj)</span>&#x00A0;<span 
class="ectt-1200">lmin</span>&#x00A0;<span 
class="ectt-1200">=</span>&#x00A0;<span 
class="ectt-1200">lj;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">}</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">if</span>&#x00A0;<span 
class="ectt-1200">(</span>&#x00A0;<span 
class="ectt-1200">sd</span>&#x00A0;<span 
class="ectt-1200">==</span>&#x00A0;<span 
class="ectt-1200">0.0</span>&#x00A0;&#x00A0;<span 
class="ectt-1200">)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">{</span>&#x00A0;&#x00A0;<span 
class="ectt-1200">qfval</span>&#x00A0;<span 
class="ectt-1200">=</span>&#x00A0;<span 
class="ectt-1200">(c</span>&#x00A0;<span 
class="ectt-1200">&#x003E;</span>&#x00A0;<span 
class="ectt-1200">0.0)</span>&#x00A0;<span 
class="ectt-1200">?</span>&#x00A0;<span 
class="ectt-1200">1.0</span>&#x00A0;<span 
class="ectt-1200">:</span>&#x00A0;<span 
class="ectt-1200">0.0;</span>&#x00A0;<span 
class="ectt-1200">goto</span>&#x00A0;&#x00A0;<span 
class="ectt-1200">endofproc;</span>&#x00A0;&#x00A0;<span 
class="ectt-1200">}</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">if</span>&#x00A0;<span 
class="ectt-1200">(</span>&#x00A0;<span 
class="ectt-1200">lmin</span>&#x00A0;<span 
class="ectt-1200">==</span>&#x00A0;<span 
class="ectt-1200">0.0</span>&#x00A0;<span 
class="ectt-1200">&#x0026;&#x0026;</span>&#x00A0;<span 
class="ectt-1200">lmax</span>&#x00A0;<span 
class="ectt-1200">==</span>&#x00A0;<span 
class="ectt-1200">0.0</span>&#x00A0;<span 
class="ectt-1200">&#x0026;&#x0026;</span>&#x00A0;<span 
class="ectt-1200">sigma</span>&#x00A0;<span 
class="ectt-1200">==</span>&#x00A0;<span 
class="ectt-1200">0.0</span>&#x00A0;<span 
class="ectt-1200">)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">{</span>&#x00A0;<span 
class="ectt-1200">*ifault</span>&#x00A0;<span 
class="ectt-1200">=</span>&#x00A0;<span 
class="ectt-1200">3;</span>&#x00A0;&#x00A0;<span 
class="ectt-1200">goto</span>&#x00A0;&#x00A0;<span 
class="ectt-1200">endofproc;</span>&#x00A0;&#x00A0;<span 
class="ectt-1200">}</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">sd</span>&#x00A0;<span 
class="ectt-1200">=</span>&#x00A0;<span 
class="ectt-1200">sqrt(sd);</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">almx</span>&#x00A0;<span 
class="ectt-1200">=</span>&#x00A0;<span 
class="ectt-1200">(lmax</span>&#x00A0;<span 
class="ectt-1200">&#x003C;</span>&#x00A0;<span 
class="ectt-1200">-</span>&#x00A0;<span 
class="ectt-1200">lmin)</span>&#x00A0;<span 
class="ectt-1200">?</span>&#x00A0;<span 
class="ectt-1200">-</span>&#x00A0;<span 
class="ectt-1200">lmin</span>&#x00A0;<span 
class="ectt-1200">:</span>&#x00A0;<span 
class="ectt-1200">lmax;</span>
&#x00A0;<br />
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">/*</span>&#x00A0;<span 
class="ectt-1200">starting</span>&#x00A0;<span 
class="ectt-1200">values</span>&#x00A0;<span 
class="ectt-1200">for</span>&#x00A0;<span 
class="ectt-1200">findu,</span>&#x00A0;<span 
class="ectt-1200">ctff</span>&#x00A0;<span 
class="ectt-1200">*/</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">utx</span>&#x00A0;<span 
class="ectt-1200">=</span>&#x00A0;<span 
class="ectt-1200">16.0</span>&#x00A0;<span 
class="ectt-1200">/</span>&#x00A0;<span 
class="ectt-1200">sd;</span>&#x00A0;&#x00A0;<span 
class="ectt-1200">up</span>&#x00A0;<span 
class="ectt-1200">=</span>&#x00A0;<span 
class="ectt-1200">4.5</span>&#x00A0;<span 
class="ectt-1200">/</span>&#x00A0;<span 
class="ectt-1200">sd;</span>&#x00A0;&#x00A0;<span 
class="ectt-1200">un</span>&#x00A0;<span 
class="ectt-1200">=</span>&#x00A0;<span 
class="ectt-1200">-</span>&#x00A0;<span 
class="ectt-1200">up;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">/*</span>&#x00A0;<span 
class="ectt-1200">truncation</span>&#x00A0;<span 
class="ectt-1200">point</span>&#x00A0;<span 
class="ectt-1200">with</span>&#x00A0;<span 
class="ectt-1200">no</span>&#x00A0;<span 
class="ectt-1200">convergence</span>&#x00A0;<span 
class="ectt-1200">factor</span>&#x00A0;<span 
class="ectt-1200">*/</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">findu(&#x0026;utx,</span>&#x00A0;<span 
class="ectt-1200">.5</span>&#x00A0;<span 
class="ectt-1200">*</span>&#x00A0;<span 
class="ectt-1200">acc1);</span>

&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">/*</span>&#x00A0;<span 
class="ectt-1200">does</span>&#x00A0;<span 
class="ectt-1200">convergence</span>&#x00A0;<span 
class="ectt-1200">factor</span>&#x00A0;<span 
class="ectt-1200">help</span>&#x00A0;<span 
class="ectt-1200">*/</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">if</span>&#x00A0;<span 
class="ectt-1200">(c</span>&#x00A0;<span 
class="ectt-1200">!=</span>&#x00A0;<span 
class="ectt-1200">0.0</span>&#x00A0;&#x00A0;<span 
class="ectt-1200">&#x0026;&#x0026;</span>&#x00A0;<span 
class="ectt-1200">(almx</span>&#x00A0;<span 
class="ectt-1200">&#x003E;</span>&#x00A0;<span 
class="ectt-1200">0.07</span>&#x00A0;<span 
class="ectt-1200">*</span>&#x00A0;<span 
class="ectt-1200">sd))</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">{</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">tausq</span>&#x00A0;<span 
class="ectt-1200">=</span>&#x00A0;<span 
class="ectt-1200">.25</span>&#x00A0;<span 
class="ectt-1200">*</span>&#x00A0;<span 
class="ectt-1200">acc1</span>&#x00A0;<span 
class="ectt-1200">/</span>&#x00A0;<span 
class="ectt-1200">cfe(c);</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">if</span>&#x00A0;<span 
class="ectt-1200">(fail)</span>&#x00A0;<span 
class="ectt-1200">fail</span>&#x00A0;<span 
class="ectt-1200">=</span>&#x00A0;<span 
class="ectt-1200">FALSE</span>&#x00A0;<span 
class="ectt-1200">;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">else</span>&#x00A0;<span 
class="ectt-1200">if</span>&#x00A0;<span 
class="ectt-1200">(truncation(utx,</span>&#x00A0;<span 
class="ectt-1200">tausq)</span>&#x00A0;<span 
class="ectt-1200">&#x003C;</span>&#x00A0;<span 
class="ectt-1200">.2</span>&#x00A0;<span 
class="ectt-1200">*</span>&#x00A0;<span 
class="ectt-1200">acc1)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">{</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">sigsq</span>&#x00A0;<span 
class="ectt-1200">=</span>&#x00A0;<span 
class="ectt-1200">sigsq</span>&#x00A0;<span 
class="ectt-1200">+</span>&#x00A0;<span 
class="ectt-1200">tausq;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">findu(&#x0026;utx,</span>&#x00A0;<span 
class="ectt-1200">.25</span>&#x00A0;<span 
class="ectt-1200">*</span>&#x00A0;<span 
class="ectt-1200">acc1);</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">trace[5]</span>&#x00A0;<span 
class="ectt-1200">=</span>&#x00A0;<span 
class="ectt-1200">sqrt(tausq);</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">}</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">}</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">trace[4]</span>&#x00A0;<span 
class="ectt-1200">=</span>&#x00A0;<span 
class="ectt-1200">utx;</span>&#x00A0;&#x00A0;<span 
class="ectt-1200">acc1</span>&#x00A0;<span 
class="ectt-1200">=</span>&#x00A0;<span 
class="ectt-1200">0.5</span>&#x00A0;<span 
class="ectt-1200">*</span>&#x00A0;<span 
class="ectt-1200">acc1;</span>
&#x00A0;<br />
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">/*</span>&#x00A0;<span 
class="ectt-1200">find</span>&#x00A0;<span 
class="ectt-1200">RANGE</span>&#x00A0;<span 
class="ectt-1200">of</span>&#x00A0;<span 
class="ectt-1200">distribution,</span>&#x00A0;<span 
class="ectt-1200">quit</span>&#x00A0;<span 
class="ectt-1200">if</span>&#x00A0;<span 
class="ectt-1200">outside</span>&#x00A0;<span 
class="ectt-1200">this</span>&#x00A0;<span 
class="ectt-1200">*/</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">l1:</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">d1</span>&#x00A0;<span 
class="ectt-1200">=</span>&#x00A0;<span 
class="ectt-1200">ctff(acc1,</span>&#x00A0;<span 
class="ectt-1200">&#x0026;up)</span>&#x00A0;<span 
class="ectt-1200">-</span>&#x00A0;<span 
class="ectt-1200">c;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">if</span>&#x00A0;<span 
class="ectt-1200">(d1</span>&#x00A0;<span 
class="ectt-1200">&#x003C;</span>&#x00A0;<span 
class="ectt-1200">0.0)</span>&#x00A0;<span 
class="ectt-1200">{</span>&#x00A0;<span 
class="ectt-1200">qfval</span>&#x00A0;<span 
class="ectt-1200">=</span>&#x00A0;<span 
class="ectt-1200">1.0;</span>&#x00A0;<span 
class="ectt-1200">goto</span>&#x00A0;<span 
class="ectt-1200">endofproc;</span>&#x00A0;<span 
class="ectt-1200">}</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">d2</span>&#x00A0;<span 
class="ectt-1200">=</span>&#x00A0;<span 
class="ectt-1200">c</span>&#x00A0;<span 
class="ectt-1200">-</span>&#x00A0;<span 
class="ectt-1200">ctff(acc1,</span>&#x00A0;<span 
class="ectt-1200">&#x0026;un);</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">if</span>&#x00A0;<span 
class="ectt-1200">(d2</span>&#x00A0;<span 
class="ectt-1200">&#x003C;</span>&#x00A0;<span 
class="ectt-1200">0.0)</span>&#x00A0;<span 
class="ectt-1200">{</span>&#x00A0;<span 
class="ectt-1200">qfval</span>&#x00A0;<span 
class="ectt-1200">=</span>&#x00A0;<span 
class="ectt-1200">0.0;</span>&#x00A0;<span 
class="ectt-1200">goto</span>&#x00A0;<span 
class="ectt-1200">endofproc;</span>&#x00A0;<span 
class="ectt-1200">}</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">/*</span>&#x00A0;<span 
class="ectt-1200">find</span>&#x00A0;<span 
class="ectt-1200">integration</span>&#x00A0;<span 
class="ectt-1200">interval</span>&#x00A0;<span 
class="ectt-1200">*/</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">intv</span>&#x00A0;<span 
class="ectt-1200">=</span>&#x00A0;<span 
class="ectt-1200">2.0</span>&#x00A0;<span 
class="ectt-1200">*</span>&#x00A0;<span 
class="ectt-1200">pi</span>&#x00A0;<span 
class="ectt-1200">/</span>&#x00A0;<span 
class="ectt-1200">((d1</span>&#x00A0;<span 
class="ectt-1200">&#x003E;</span>&#x00A0;<span 
class="ectt-1200">d2)</span>&#x00A0;<span 
class="ectt-1200">?</span>&#x00A0;<span 
class="ectt-1200">d1</span>&#x00A0;<span 
class="ectt-1200">:</span>&#x00A0;<span 
class="ectt-1200">d2);</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">/*</span>&#x00A0;<span 
class="ectt-1200">calculate</span>&#x00A0;<span 
class="ectt-1200">number</span>&#x00A0;<span 
class="ectt-1200">of</span>&#x00A0;<span 
class="ectt-1200">terms</span>&#x00A0;<span 
class="ectt-1200">required</span>&#x00A0;<span 
class="ectt-1200">for</span>&#x00A0;<span 
class="ectt-1200">main</span>&#x00A0;<span 
class="ectt-1200">and</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">auxillary</span>&#x00A0;<span 
class="ectt-1200">integrations</span>&#x00A0;<span 
class="ectt-1200">*/</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">xnt</span>&#x00A0;<span 
class="ectt-1200">=</span>&#x00A0;<span 
class="ectt-1200">utx</span>&#x00A0;<span 
class="ectt-1200">/</span>&#x00A0;<span 
class="ectt-1200">intv;</span>&#x00A0;&#x00A0;<span 
class="ectt-1200">xntm</span>&#x00A0;<span 
class="ectt-1200">=</span>&#x00A0;<span 
class="ectt-1200">3.0</span>&#x00A0;<span 
class="ectt-1200">/</span>&#x00A0;<span 
class="ectt-1200">sqrt(acc1);</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">if</span>&#x00A0;<span 
class="ectt-1200">(xnt</span>&#x00A0;<span 
class="ectt-1200">&#x003E;</span>&#x00A0;<span 
class="ectt-1200">xntm</span>&#x00A0;<span 
class="ectt-1200">*</span>&#x00A0;<span 
class="ectt-1200">1.5)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">{</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">/*</span>&#x00A0;<span 
class="ectt-1200">parameters</span>&#x00A0;<span 
class="ectt-1200">for</span>&#x00A0;<span 
class="ectt-1200">auxillary</span>&#x00A0;<span 
class="ectt-1200">integration</span>&#x00A0;<span 
class="ectt-1200">*/</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">if</span>&#x00A0;<span 
class="ectt-1200">(xntm</span>&#x00A0;<span 
class="ectt-1200">&#x003E;</span>&#x00A0;<span 
class="ectt-1200">xlim)</span>&#x00A0;<span 
class="ectt-1200">{</span>&#x00A0;<span 
class="ectt-1200">*ifault</span>&#x00A0;<span 
class="ectt-1200">=</span>&#x00A0;<span 
class="ectt-1200">1;</span>&#x00A0;<span 
class="ectt-1200">goto</span>&#x00A0;<span 
class="ectt-1200">endofproc;</span>&#x00A0;<span 
class="ectt-1200">}</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">ntm</span>&#x00A0;<span 
class="ectt-1200">=</span>&#x00A0;<span 
class="ectt-1200">(int)floor(xntm+0.5);</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">intv1</span>&#x00A0;<span 
class="ectt-1200">=</span>&#x00A0;<span 
class="ectt-1200">utx</span>&#x00A0;<span 
class="ectt-1200">/</span>&#x00A0;<span 
class="ectt-1200">ntm;</span>&#x00A0;&#x00A0;<span 
class="ectt-1200">x</span>&#x00A0;<span 
class="ectt-1200">=</span>&#x00A0;<span 
class="ectt-1200">2.0</span>&#x00A0;<span 
class="ectt-1200">*</span>&#x00A0;<span 
class="ectt-1200">pi</span>&#x00A0;<span 
class="ectt-1200">/</span>&#x00A0;<span 
class="ectt-1200">intv1;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">if</span>&#x00A0;<span 
class="ectt-1200">(x</span>&#x00A0;<span 
class="ectt-1200">&#x003C;=</span>&#x00A0;<span 
class="ectt-1200">fabs(c))</span>&#x00A0;<span 
class="ectt-1200">goto</span>&#x00A0;<span 
class="ectt-1200">l2;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">/*</span>&#x00A0;<span 
class="ectt-1200">calculate</span>&#x00A0;<span 
class="ectt-1200">convergence</span>&#x00A0;<span 
class="ectt-1200">factor</span>&#x00A0;<span 
class="ectt-1200">*/</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">tausq</span>&#x00A0;<span 
class="ectt-1200">=</span>&#x00A0;<span 
class="ectt-1200">.33</span>&#x00A0;<span 
class="ectt-1200">*</span>&#x00A0;<span 
class="ectt-1200">acc1</span>&#x00A0;<span 
class="ectt-1200">/</span>&#x00A0;<span 
class="ectt-1200">(1.1</span>&#x00A0;<span 
class="ectt-1200">*</span>&#x00A0;<span 
class="ectt-1200">(cfe(c</span>&#x00A0;<span 
class="ectt-1200">-</span>&#x00A0;<span 
class="ectt-1200">x)</span>&#x00A0;<span 
class="ectt-1200">+</span>&#x00A0;<span 
class="ectt-1200">cfe(c</span>&#x00A0;<span 
class="ectt-1200">+</span>&#x00A0;<span 
class="ectt-1200">x)));</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">if</span>&#x00A0;<span 
class="ectt-1200">(fail)</span>&#x00A0;<span 
class="ectt-1200">goto</span>&#x00A0;<span 
class="ectt-1200">l2;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">acc1</span>&#x00A0;<span 
class="ectt-1200">=</span>&#x00A0;<span 
class="ectt-1200">.67</span>&#x00A0;<span 
class="ectt-1200">*</span>&#x00A0;<span 
class="ectt-1200">acc1;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">/*</span>&#x00A0;<span 
class="ectt-1200">auxillary</span>&#x00A0;<span 
class="ectt-1200">integration</span>&#x00A0;<span 
class="ectt-1200">*/</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">integrate(ntm,</span>&#x00A0;<span 
class="ectt-1200">intv1,</span>&#x00A0;<span 
class="ectt-1200">tausq,</span>&#x00A0;<span 
class="ectt-1200">FALSE</span>&#x00A0;<span 
class="ectt-1200">);</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">xlim</span>&#x00A0;<span 
class="ectt-1200">=</span>&#x00A0;<span 
class="ectt-1200">xlim</span>&#x00A0;<span 
class="ectt-1200">-</span>&#x00A0;<span 
class="ectt-1200">xntm;</span>&#x00A0;&#x00A0;<span 
class="ectt-1200">sigsq</span>&#x00A0;<span 
class="ectt-1200">=</span>&#x00A0;<span 
class="ectt-1200">sigsq</span>&#x00A0;<span 
class="ectt-1200">+</span>&#x00A0;<span 
class="ectt-1200">tausq;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">trace[2]</span>&#x00A0;<span 
class="ectt-1200">=</span>&#x00A0;<span 
class="ectt-1200">trace[2]</span>&#x00A0;<span 
class="ectt-1200">+</span>&#x00A0;<span 
class="ectt-1200">1;</span>&#x00A0;<span 
class="ectt-1200">trace[1]</span>&#x00A0;<span 
class="ectt-1200">=</span>&#x00A0;<span 
class="ectt-1200">trace[1]</span>&#x00A0;<span 
class="ectt-1200">+</span>&#x00A0;<span 
class="ectt-1200">ntm</span>&#x00A0;<span 
class="ectt-1200">+</span>&#x00A0;<span 
class="ectt-1200">1;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">/*</span>&#x00A0;<span 
class="ectt-1200">find</span>&#x00A0;<span 
class="ectt-1200">truncation</span>&#x00A0;<span 
class="ectt-1200">point</span>&#x00A0;<span 
class="ectt-1200">with</span>&#x00A0;<span 
class="ectt-1200">new</span>&#x00A0;<span 
class="ectt-1200">convergence</span>&#x00A0;<span 
class="ectt-1200">factor</span>&#x00A0;<span 
class="ectt-1200">*/</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">findu(&#x0026;utx,</span>&#x00A0;<span 
class="ectt-1200">.25</span>&#x00A0;<span 
class="ectt-1200">*</span>&#x00A0;<span 
class="ectt-1200">acc1);</span>&#x00A0;&#x00A0;<span 
class="ectt-1200">acc1</span>&#x00A0;<span 
class="ectt-1200">=</span>&#x00A0;<span 
class="ectt-1200">0.75</span>&#x00A0;<span 
class="ectt-1200">*</span>&#x00A0;<span 
class="ectt-1200">acc1;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">goto</span>&#x00A0;<span 
class="ectt-1200">l1;</span>

&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">}</span>
&#x00A0;<br />
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">/*</span>&#x00A0;<span 
class="ectt-1200">main</span>&#x00A0;<span 
class="ectt-1200">integration</span>&#x00A0;<span 
class="ectt-1200">*/</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">l2:</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">trace[3]</span>&#x00A0;<span 
class="ectt-1200">=</span>&#x00A0;<span 
class="ectt-1200">intv;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">if</span>&#x00A0;<span 
class="ectt-1200">(xnt</span>&#x00A0;<span 
class="ectt-1200">&#x003E;</span>&#x00A0;<span 
class="ectt-1200">xlim)</span>&#x00A0;<span 
class="ectt-1200">{</span>&#x00A0;<span 
class="ectt-1200">*ifault</span>&#x00A0;<span 
class="ectt-1200">=</span>&#x00A0;<span 
class="ectt-1200">1;</span>&#x00A0;<span 
class="ectt-1200">goto</span>&#x00A0;<span 
class="ectt-1200">endofproc;</span>&#x00A0;<span 
class="ectt-1200">}</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">nt</span>&#x00A0;<span 
class="ectt-1200">=</span>&#x00A0;<span 
class="ectt-1200">(int)floor(xnt+0.5);</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">integrate(nt,</span>&#x00A0;<span 
class="ectt-1200">intv,</span>&#x00A0;<span 
class="ectt-1200">0.0,</span>&#x00A0;<span 
class="ectt-1200">TRUE</span>&#x00A0;<span 
class="ectt-1200">);</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">trace[2]</span>&#x00A0;<span 
class="ectt-1200">=</span>&#x00A0;<span 
class="ectt-1200">trace[2]</span>&#x00A0;<span 
class="ectt-1200">+</span>&#x00A0;<span 
class="ectt-1200">1;</span>&#x00A0;<span 
class="ectt-1200">trace[1]</span>&#x00A0;<span 
class="ectt-1200">=</span>&#x00A0;<span 
class="ectt-1200">trace[1]</span>&#x00A0;<span 
class="ectt-1200">+</span>&#x00A0;<span 
class="ectt-1200">nt</span>&#x00A0;<span 
class="ectt-1200">+</span>&#x00A0;<span 
class="ectt-1200">1;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">qfval</span>&#x00A0;<span 
class="ectt-1200">=</span>&#x00A0;<span 
class="ectt-1200">0.5</span>&#x00A0;<span 
class="ectt-1200">-</span>&#x00A0;<span 
class="ectt-1200">intl;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">trace[0]</span>&#x00A0;<span 
class="ectt-1200">=</span>&#x00A0;<span 
class="ectt-1200">ersm;</span>
&#x00A0;<br />
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">/*</span>&#x00A0;<span 
class="ectt-1200">test</span>&#x00A0;<span 
class="ectt-1200">whether</span>&#x00A0;<span 
class="ectt-1200">round-off</span>&#x00A0;<span 
class="ectt-1200">error</span>&#x00A0;<span 
class="ectt-1200">could</span>&#x00A0;<span 
class="ectt-1200">be</span>&#x00A0;<span 
class="ectt-1200">significant</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">allow</span>&#x00A0;<span 
class="ectt-1200">for</span>&#x00A0;<span 
class="ectt-1200">radix</span>&#x00A0;<span 
class="ectt-1200">8</span>&#x00A0;<span 
class="ectt-1200">or</span>&#x00A0;<span 
class="ectt-1200">16</span>&#x00A0;<span 
class="ectt-1200">machines</span>&#x00A0;<span 
class="ectt-1200">*/</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">up=ersm;</span>&#x00A0;<span 
class="ectt-1200">x</span>&#x00A0;<span 
class="ectt-1200">=</span>&#x00A0;<span 
class="ectt-1200">up</span>&#x00A0;<span 
class="ectt-1200">+</span>&#x00A0;<span 
class="ectt-1200">acc</span>&#x00A0;<span 
class="ectt-1200">/</span>&#x00A0;<span 
class="ectt-1200">10.0;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">for</span>&#x00A0;<span 
class="ectt-1200">(j=0;j&#x003C;4;j++)</span>&#x00A0;<span 
class="ectt-1200">{</span>&#x00A0;<span 
class="ectt-1200">if</span>&#x00A0;<span 
class="ectt-1200">(rats[j]</span>&#x00A0;<span 
class="ectt-1200">*</span>&#x00A0;<span 
class="ectt-1200">x</span>&#x00A0;<span 
class="ectt-1200">==</span>&#x00A0;<span 
class="ectt-1200">rats[j]</span>&#x00A0;<span 
class="ectt-1200">*</span>&#x00A0;<span 
class="ectt-1200">up)</span>&#x00A0;<span 
class="ectt-1200">*ifault</span>&#x00A0;<span 
class="ectt-1200">=</span>&#x00A0;<span 
class="ectt-1200">2;</span>&#x00A0;<span 
class="ectt-1200">}</span>
&#x00A0;<br />
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">endofproc</span>&#x00A0;<span 
class="ectt-1200">:</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">free((char*)th);</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">trace[6]</span>&#x00A0;<span 
class="ectt-1200">=</span>&#x00A0;<span 
class="ectt-1200">(real)count;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">return</span>&#x00A0;<span 
class="ectt-1200">qfval;</span>
&#x00A0;<br /><span 
class="ectt-1200">}</span>
</div><span 
class="ecbx-1200">Le fichier </span><span 
class="ecbi-1200">qnorm.c</span><div class="verbatiminput">
&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">double</span>&#x00A0;<span 
class="ectt-1200">qnorm(double</span>&#x00A0;<span 
class="ectt-1200">P,</span>&#x00A0;<span 
class="ectt-1200">int</span>&#x00A0;<span 
class="ectt-1200">IFAULT)</span>
&#x00A0;<br />
&#x00A0;<br /><span 
class="ectt-1200">{</span>
&#x00A0;<br />
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">/*</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">ALGORITHM</span>&#x00A0;<span 
class="ectt-1200">AS241</span>&#x00A0;&#x00A0;<span 
class="ectt-1200">APPL.</span>&#x00A0;<span 
class="ectt-1200">STATIST.</span>&#x00A0;<span 
class="ectt-1200">(1988)</span>&#x00A0;<span 
class="ectt-1200">VOL.</span>&#x00A0;<span 
class="ectt-1200">37,</span>&#x00A0;<span 
class="ectt-1200">NO.</span>&#x00A0;<span 
class="ectt-1200">3</span>
&#x00A0;<br />
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Produces</span>&#x00A0;<span 
class="ectt-1200">the</span>&#x00A0;<span 
class="ectt-1200">normal</span>&#x00A0;<span 
class="ectt-1200">deviate</span>&#x00A0;<span 
class="ectt-1200">Z</span>&#x00A0;<span 
class="ectt-1200">corresponding</span>&#x00A0;<span 
class="ectt-1200">to</span>&#x00A0;<span 
class="ectt-1200">a</span>&#x00A0;<span 
class="ectt-1200">given</span>&#x00A0;<span 
class="ectt-1200">lower</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">tail</span>&#x00A0;<span 
class="ectt-1200">area</span>&#x00A0;<span 
class="ectt-1200">of</span>&#x00A0;<span 
class="ectt-1200">P;</span>&#x00A0;<span 
class="ectt-1200">Z</span>&#x00A0;<span 
class="ectt-1200">is</span>&#x00A0;<span 
class="ectt-1200">accurate</span>&#x00A0;<span 
class="ectt-1200">to</span>&#x00A0;<span 
class="ectt-1200">about</span>&#x00A0;<span 
class="ectt-1200">1</span>&#x00A0;<span 
class="ectt-1200">part</span>&#x00A0;<span 
class="ectt-1200">in</span>&#x00A0;<span 
class="ectt-1200">10**16.</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">The</span>&#x00A0;<span 
class="ectt-1200">hash</span>&#x00A0;<span 
class="ectt-1200">sums</span>&#x00A0;<span 
class="ectt-1200">below</span>&#x00A0;<span 
class="ectt-1200">are</span>&#x00A0;<span 
class="ectt-1200">the</span>&#x00A0;<span 
class="ectt-1200">sums</span>&#x00A0;<span 
class="ectt-1200">of</span>&#x00A0;<span 
class="ectt-1200">the</span>&#x00A0;<span 
class="ectt-1200">mantissas</span>&#x00A0;<span 
class="ectt-1200">of</span>&#x00A0;<span 
class="ectt-1200">the</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">coefficients.</span>&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">They</span>&#x00A0;<span 
class="ectt-1200">are</span>&#x00A0;<span 
class="ectt-1200">included</span>&#x00A0;<span 
class="ectt-1200">for</span>&#x00A0;<span 
class="ectt-1200">use</span>&#x00A0;<span 
class="ectt-1200">in</span>&#x00A0;<span 
class="ectt-1200">checking</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">transcription.</span>
&#x00A0;<br />
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">*/</span>
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">double</span>&#x00A0;<span 
class="ectt-1200">ZERO,</span>&#x00A0;<span 
class="ectt-1200">ONE,</span>&#x00A0;<span 
class="ectt-1200">HALF,</span>&#x00A0;<span 
class="ectt-1200">SPLIT1,</span>&#x00A0;<span 
class="ectt-1200">SPLIT2,</span>&#x00A0;<span 
class="ectt-1200">CONST1,CONST2,</span>&#x00A0;<span 
class="ectt-1200">A0,</span>&#x00A0;<span 
class="ectt-1200">A1,</span>&#x00A0;<span 
class="ectt-1200">A2,</span>&#x00A0;<span 
class="ectt-1200">A3,</span>&#x00A0;<span 
class="ectt-1200">A4,</span>&#x00A0;<span 
class="ectt-1200">A5,</span>&#x00A0;<span 
class="ectt-1200">A6,</span>&#x00A0;<span 
class="ectt-1200">A7,</span>&#x00A0;<span 
class="ectt-1200">B1,</span>&#x00A0;<span 
class="ectt-1200">B2,</span>&#x00A0;<span 
class="ectt-1200">B3,B4,</span>&#x00A0;<span 
class="ectt-1200">B5,</span>&#x00A0;<span 
class="ectt-1200">B6,</span>&#x00A0;<span 
class="ectt-1200">B7,C0,</span>&#x00A0;<span 
class="ectt-1200">C1,</span>&#x00A0;<span 
class="ectt-1200">C2,</span>&#x00A0;<span 
class="ectt-1200">C3,</span>&#x00A0;<span 
class="ectt-1200">C4,</span>&#x00A0;<span 
class="ectt-1200">C5,</span>&#x00A0;<span 
class="ectt-1200">C6,</span>&#x00A0;<span 
class="ectt-1200">C7,</span>&#x00A0;<span 
class="ectt-1200">D1,</span>&#x00A0;<span 
class="ectt-1200">D2,</span>&#x00A0;<span 
class="ectt-1200">D3,</span>&#x00A0;<span 
class="ectt-1200">D4,</span>&#x00A0;<span 
class="ectt-1200">D5,D6,</span>&#x00A0;<span 
class="ectt-1200">D7,</span>&#x00A0;<span 
class="ectt-1200">E0,</span>&#x00A0;<span 
class="ectt-1200">E1,</span>&#x00A0;<span 
class="ectt-1200">E2,</span>&#x00A0;<span 
class="ectt-1200">E3,</span>&#x00A0;<span 
class="ectt-1200">E4,</span>&#x00A0;<span 
class="ectt-1200">E5,</span>&#x00A0;<span 
class="ectt-1200">E6,</span>&#x00A0;<span 
class="ectt-1200">E7,</span>&#x00A0;<span 
class="ectt-1200">F1,</span>&#x00A0;<span 
class="ectt-1200">F2,</span>&#x00A0;<span 
class="ectt-1200">F3,F4,</span>&#x00A0;<span 
class="ectt-1200">F5,</span>&#x00A0;<span 
class="ectt-1200">F6,</span>&#x00A0;<span 
class="ectt-1200">F7,</span>&#x00A0;<span 
class="ectt-1200">Q,</span>&#x00A0;<span 
class="ectt-1200">R,</span>&#x00A0;<span 
class="ectt-1200">PPND16;</span>
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">ZERO</span>&#x00A0;<span 
class="ectt-1200">=</span>&#x00A0;<span 
class="ectt-1200">(double)0.0;</span>
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">ONE</span>&#x00A0;<span 
class="ectt-1200">=</span>&#x00A0;<span 
class="ectt-1200">(double)1.0;</span>
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">HALF</span>&#x00A0;<span 
class="ectt-1200">=</span>&#x00A0;<span 
class="ectt-1200">(double)0.5;</span>

&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">SPLIT1</span>&#x00A0;<span 
class="ectt-1200">=</span>&#x00A0;<span 
class="ectt-1200">(double)0.425;</span>
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">SPLIT2</span>&#x00A0;<span 
class="ectt-1200">=</span>&#x00A0;<span 
class="ectt-1200">(double)5.0;</span>
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">CONST1</span>&#x00A0;<span 
class="ectt-1200">=</span>&#x00A0;<span 
class="ectt-1200">(double)0.180625;</span>
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">CONST2</span>&#x00A0;<span 
class="ectt-1200">=</span>&#x00A0;<span 
class="ectt-1200">(double)1.6;</span>
&#x00A0;<br />
&#x00A0;<br />
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">//</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Coefficients</span>&#x00A0;<span 
class="ectt-1200">for</span>&#x00A0;<span 
class="ectt-1200">P</span>&#x00A0;<span 
class="ectt-1200">close</span>&#x00A0;<span 
class="ectt-1200">to</span>&#x00A0;<span 
class="ectt-1200">0.5</span>
&#x00A0;<br />
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">A0</span>&#x00A0;<span 
class="ectt-1200">=</span>&#x00A0;<span 
class="ectt-1200">(double)3.3871328727963666080;</span>
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">A1</span>&#x00A0;<span 
class="ectt-1200">=</span>&#x00A0;<span 
class="ectt-1200">(double)1.3314166789178437745*pow(10,2);</span>
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">A2</span>&#x00A0;<span 
class="ectt-1200">=</span>&#x00A0;<span 
class="ectt-1200">(double)1.9715909503065514427*pow(10,3);</span>
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">A3</span>&#x00A0;<span 
class="ectt-1200">=</span>&#x00A0;<span 
class="ectt-1200">(double)1.3731693765509461125*pow(10,4);</span>
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">A4</span>&#x00A0;<span 
class="ectt-1200">=</span>&#x00A0;<span 
class="ectt-1200">(double)4.5921953931549871457*pow(10,4);</span>
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">A5</span>&#x00A0;<span 
class="ectt-1200">=</span>&#x00A0;<span 
class="ectt-1200">(double)6.7265770927008700853*pow(10,4);</span>
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">A6</span>&#x00A0;<span 
class="ectt-1200">=</span>&#x00A0;<span 
class="ectt-1200">(double)3.3430575583588128105*pow(10,4);</span>
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">A7</span>&#x00A0;<span 
class="ectt-1200">=</span>&#x00A0;<span 
class="ectt-1200">(double)2.5090809287301226727*pow(10,3);</span>
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">B1</span>&#x00A0;<span 
class="ectt-1200">=</span>&#x00A0;<span 
class="ectt-1200">(double)4.2313330701600911252*pow(10,1);</span>
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">B2</span>&#x00A0;<span 
class="ectt-1200">=</span>&#x00A0;<span 
class="ectt-1200">(double)6.8718700749205790830*pow(10,2);</span>
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">B3</span>&#x00A0;<span 
class="ectt-1200">=</span>&#x00A0;<span 
class="ectt-1200">(double)5.3941960214247511077*pow(10,3);</span>
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">B4</span>&#x00A0;<span 
class="ectt-1200">=</span>&#x00A0;<span 
class="ectt-1200">(double)2.1213794301586595867*pow(10,4);</span>
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">B5</span>&#x00A0;<span 
class="ectt-1200">=</span>&#x00A0;<span 
class="ectt-1200">(double)3.9307895800092710610*pow(10,4);</span>
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">B6</span>&#x00A0;<span 
class="ectt-1200">=</span>&#x00A0;<span 
class="ectt-1200">(double)2.8729085735721942674*pow(10,4);</span>
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">B7</span>&#x00A0;<span 
class="ectt-1200">=</span>&#x00A0;<span 
class="ectt-1200">(double)5.2264952788528545610*pow(10,3);</span>
&#x00A0;<br />
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">//</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">HASH</span>&#x00A0;<span 
class="ectt-1200">SUM</span>&#x00A0;<span 
class="ectt-1200">AB</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">55.88319</span>&#x00A0;<span 
class="ectt-1200">28806</span>&#x00A0;<span 
class="ectt-1200">14901</span>&#x00A0;<span 
class="ectt-1200">4439</span>
&#x00A0;<br />
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">//</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Coefficients</span>&#x00A0;<span 
class="ectt-1200">for</span>&#x00A0;<span 
class="ectt-1200">P</span>&#x00A0;<span 
class="ectt-1200">not</span>&#x00A0;<span 
class="ectt-1200">close</span>&#x00A0;<span 
class="ectt-1200">to</span>&#x00A0;<span 
class="ectt-1200">0,</span>&#x00A0;<span 
class="ectt-1200">0.5</span>&#x00A0;<span 
class="ectt-1200">or</span>&#x00A0;<span 
class="ectt-1200">1.</span>
&#x00A0;<br />
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">C0</span>&#x00A0;<span 
class="ectt-1200">=</span>&#x00A0;<span 
class="ectt-1200">(double)1.42343711074968357734;</span>
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">C1</span>&#x00A0;<span 
class="ectt-1200">=</span>&#x00A0;<span 
class="ectt-1200">(double)4.63033784615654529590;</span>
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">C2</span>&#x00A0;<span 
class="ectt-1200">=</span>&#x00A0;<span 
class="ectt-1200">(double)5.76949722146069140550;</span>
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">C3</span>&#x00A0;<span 
class="ectt-1200">=</span>&#x00A0;<span 
class="ectt-1200">(double)3.64784832476320460504;</span>
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">C4</span>&#x00A0;<span 
class="ectt-1200">=</span>&#x00A0;<span 
class="ectt-1200">(double)1.27045825245236838258;</span>
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">C5</span>&#x00A0;<span 
class="ectt-1200">=</span>&#x00A0;<span 
class="ectt-1200">(double)2.41780725177450611770*pow(10,-1);</span>
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">C6</span>&#x00A0;<span 
class="ectt-1200">=</span>&#x00A0;<span 
class="ectt-1200">(double)2.27238449892691845833*pow(10,-2);</span>
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">C7</span>&#x00A0;<span 
class="ectt-1200">=</span>&#x00A0;<span 
class="ectt-1200">(double)7.74545014278341407640*pow(10,-4);</span>
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">D1</span>&#x00A0;<span 
class="ectt-1200">=</span>&#x00A0;<span 
class="ectt-1200">(double)2.05319162663775882187;</span>
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">D2</span>&#x00A0;<span 
class="ectt-1200">=</span>&#x00A0;<span 
class="ectt-1200">(double)1.67638483018380384940;</span>
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">D3</span>&#x00A0;<span 
class="ectt-1200">=</span>&#x00A0;<span 
class="ectt-1200">(double)6.89767334985100004550*pow(10,-1);</span>
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">D4</span>&#x00A0;<span 
class="ectt-1200">=</span>&#x00A0;<span 
class="ectt-1200">(double)1.48103976427480074590*pow(10,-1);</span>
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">D5</span>&#x00A0;<span 
class="ectt-1200">=</span>&#x00A0;<span 
class="ectt-1200">(double)1.51986665636164571966*pow(10,-2);</span>
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">D6</span>&#x00A0;<span 
class="ectt-1200">=</span>&#x00A0;<span 
class="ectt-1200">(double)5.47593808499534494600*pow(10,-4);</span>
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">D7</span>&#x00A0;<span 
class="ectt-1200">=</span>&#x00A0;<span 
class="ectt-1200">(double)1.05075007164441684324*pow(10,-9);</span>

&#x00A0;<br />
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">//</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">HASH</span>&#x00A0;<span 
class="ectt-1200">SUM</span>&#x00A0;<span 
class="ectt-1200">CD</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">49.33206</span>&#x00A0;<span 
class="ectt-1200">50330</span>&#x00A0;<span 
class="ectt-1200">16102</span>&#x00A0;<span 
class="ectt-1200">89036</span>
&#x00A0;<br />
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">//</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Coefficients</span>&#x00A0;<span 
class="ectt-1200">for</span>&#x00A0;<span 
class="ectt-1200">P</span>&#x00A0;<span 
class="ectt-1200">near</span>&#x00A0;<span 
class="ectt-1200">0</span>&#x00A0;<span 
class="ectt-1200">or</span>&#x00A0;<span 
class="ectt-1200">1.</span>
&#x00A0;<br />
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">E0</span>&#x00A0;<span 
class="ectt-1200">=</span>&#x00A0;<span 
class="ectt-1200">(double)6.65790464350110377720*pow(10,0);</span>
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">E1</span>&#x00A0;<span 
class="ectt-1200">=</span>&#x00A0;<span 
class="ectt-1200">(double)5.46378491116411436990*pow(10,0);</span>
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">E2</span>&#x00A0;<span 
class="ectt-1200">=</span>&#x00A0;<span 
class="ectt-1200">(double)1.78482653991729133580*pow(10,0);</span>
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">E3</span>&#x00A0;<span 
class="ectt-1200">=</span>&#x00A0;<span 
class="ectt-1200">(double)2.96560571828504891230*pow(10,-1);</span>
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">E4</span>&#x00A0;<span 
class="ectt-1200">=</span>&#x00A0;<span 
class="ectt-1200">(double)2.65321895265761230930*pow(10,-2);</span>
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">E5</span>&#x00A0;<span 
class="ectt-1200">=</span>&#x00A0;<span 
class="ectt-1200">(double)1.24266094738807843860*pow(10,-3);</span>
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">E6</span>&#x00A0;<span 
class="ectt-1200">=</span>&#x00A0;<span 
class="ectt-1200">(double)2.71155556874348757815*pow(10,-5);</span>
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">E7</span>&#x00A0;<span 
class="ectt-1200">=</span>&#x00A0;<span 
class="ectt-1200">(double)2.01033439929228813265*pow(10,-7);</span>
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">F1</span>&#x00A0;<span 
class="ectt-1200">=</span>&#x00A0;<span 
class="ectt-1200">(double)5.99832206555887937690*pow(10,-1);</span>
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">F2</span>&#x00A0;<span 
class="ectt-1200">=</span>&#x00A0;<span 
class="ectt-1200">(double)1.36929880922735805310*pow(10,-1);</span>
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">F3</span>&#x00A0;<span 
class="ectt-1200">=</span>&#x00A0;<span 
class="ectt-1200">(double)1.48753612908506148525*pow(10,-2);</span>
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">F4</span>&#x00A0;<span 
class="ectt-1200">=</span>&#x00A0;<span 
class="ectt-1200">(double)7.86869131145613259100*pow(10,-4);</span>
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">F5</span>&#x00A0;<span 
class="ectt-1200">=</span>&#x00A0;<span 
class="ectt-1200">(double)1.84631831751005468180*pow(10,-5);</span>
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">F6</span>&#x00A0;<span 
class="ectt-1200">=</span>&#x00A0;<span 
class="ectt-1200">(double)1.42151175831644588870*pow(10,-7);</span>
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">F7</span>&#x00A0;<span 
class="ectt-1200">=</span>&#x00A0;<span 
class="ectt-1200">(double)2.04426310338993978564*pow(10,-15);</span>
&#x00A0;<br />
&#x00A0;<br /><span 
class="ectt-1200">//</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">HASH</span>&#x00A0;<span 
class="ectt-1200">SUM</span>&#x00A0;<span 
class="ectt-1200">EF</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">47.52583</span>&#x00A0;<span 
class="ectt-1200">31754</span>&#x00A0;<span 
class="ectt-1200">92896</span>&#x00A0;<span 
class="ectt-1200">71629</span>
&#x00A0;<br />
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">IFAULT</span>&#x00A0;<span 
class="ectt-1200">=</span>&#x00A0;<span 
class="ectt-1200">0;</span>
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">Q</span>&#x00A0;<span 
class="ectt-1200">=</span>&#x00A0;<span 
class="ectt-1200">P</span>&#x00A0;<span 
class="ectt-1200">-</span>&#x00A0;<span 
class="ectt-1200">HALF;</span>
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">if</span>&#x00A0;<span 
class="ectt-1200">(fabs(Q)&#x003C;=SPLIT1)</span>&#x00A0;<span 
class="ectt-1200">{</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">R</span>&#x00A0;<span 
class="ectt-1200">=</span>&#x00A0;<span 
class="ectt-1200">CONST1</span>&#x00A0;<span 
class="ectt-1200">-</span>&#x00A0;<span 
class="ectt-1200">Q</span>&#x00A0;<span 
class="ectt-1200">*</span>&#x00A0;<span 
class="ectt-1200">Q;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PPND16</span>&#x00A0;<span 
class="ectt-1200">=</span>&#x00A0;<span 
class="ectt-1200">Q</span>&#x00A0;<span 
class="ectt-1200">*</span>&#x00A0;<span 
class="ectt-1200">(((((((A7</span>&#x00A0;<span 
class="ectt-1200">*</span>&#x00A0;<span 
class="ectt-1200">R</span>&#x00A0;<span 
class="ectt-1200">+</span>&#x00A0;<span 
class="ectt-1200">A6)</span>&#x00A0;<span 
class="ectt-1200">*</span>&#x00A0;<span 
class="ectt-1200">R</span>&#x00A0;<span 
class="ectt-1200">+</span>&#x00A0;<span 
class="ectt-1200">A5)</span>&#x00A0;<span 
class="ectt-1200">*</span>&#x00A0;<span 
class="ectt-1200">R</span>&#x00A0;<span 
class="ectt-1200">+</span>&#x00A0;<span 
class="ectt-1200">A4)</span>&#x00A0;<span 
class="ectt-1200">*</span>&#x00A0;<span 
class="ectt-1200">R</span>&#x00A0;<span 
class="ectt-1200">+</span>&#x00A0;<span 
class="ectt-1200">A3)*</span>&#x00A0;<span 
class="ectt-1200">R</span>&#x00A0;<span 
class="ectt-1200">+</span>&#x00A0;<span 
class="ectt-1200">A2)</span>&#x00A0;<span 
class="ectt-1200">*</span>&#x00A0;<span 
class="ectt-1200">R</span>&#x00A0;<span 
class="ectt-1200">+</span>&#x00A0;<span 
class="ectt-1200">A1)</span>&#x00A0;<span 
class="ectt-1200">*</span>&#x00A0;<span 
class="ectt-1200">R</span>&#x00A0;<span 
class="ectt-1200">+</span>&#x00A0;<span 
class="ectt-1200">A0)</span>&#x00A0;<span 
class="ectt-1200">/(((((((B7</span>&#x00A0;<span 
class="ectt-1200">*</span>&#x00A0;<span 
class="ectt-1200">R</span>&#x00A0;<span 
class="ectt-1200">+</span>&#x00A0;<span 
class="ectt-1200">B6)</span>&#x00A0;<span 
class="ectt-1200">*</span>&#x00A0;<span 
class="ectt-1200">R</span>&#x00A0;<span 
class="ectt-1200">+</span>&#x00A0;<span 
class="ectt-1200">B5)</span>&#x00A0;<span 
class="ectt-1200">*</span>&#x00A0;<span 
class="ectt-1200">R</span>&#x00A0;<span 
class="ectt-1200">+</span>&#x00A0;<span 
class="ectt-1200">B4)</span>&#x00A0;<span 
class="ectt-1200">*</span>&#x00A0;<span 
class="ectt-1200">R</span>&#x00A0;<span 
class="ectt-1200">+</span>&#x00A0;<span 
class="ectt-1200">B3)*</span>&#x00A0;<span 
class="ectt-1200">R</span>&#x00A0;<span 
class="ectt-1200">+</span>&#x00A0;<span 
class="ectt-1200">B2)</span>&#x00A0;<span 
class="ectt-1200">*</span>&#x00A0;<span 
class="ectt-1200">R</span>&#x00A0;<span 
class="ectt-1200">+</span>&#x00A0;<span 
class="ectt-1200">B1)</span>&#x00A0;<span 
class="ectt-1200">*</span>&#x00A0;<span 
class="ectt-1200">R</span>&#x00A0;<span 
class="ectt-1200">+</span>&#x00A0;<span 
class="ectt-1200">ONE);</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">return(PPND16);}</span>
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">else</span>&#x00A0;<span 
class="ectt-1200">{</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">if</span>&#x00A0;<span 
class="ectt-1200">(Q&#x003C;ZERO)</span>&#x00A0;<span 
class="ectt-1200">{</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">R</span>&#x00A0;<span 
class="ectt-1200">=</span>&#x00A0;<span 
class="ectt-1200">P;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">}</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">else</span>&#x00A0;<span 
class="ectt-1200">{</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">R</span>&#x00A0;<span 
class="ectt-1200">=</span>&#x00A0;<span 
class="ectt-1200">ONE</span>&#x00A0;<span 
class="ectt-1200">-</span>&#x00A0;<span 
class="ectt-1200">P;}</span>
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">}</span>
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">if</span>&#x00A0;<span 
class="ectt-1200">(R&#x003C;=ZERO)</span>&#x00A0;<span 
class="ectt-1200">{</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">IFAULT</span>&#x00A0;<span 
class="ectt-1200">=</span>&#x00A0;<span 
class="ectt-1200">1;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PPND16</span>&#x00A0;<span 
class="ectt-1200">=</span>&#x00A0;<span 
class="ectt-1200">ZERO;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">return(PPND16);}</span>
&#x00A0;<br />
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">R</span>&#x00A0;<span 
class="ectt-1200">=</span>&#x00A0;<span 
class="ectt-1200">sqrt(-log(R));</span>
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">if</span>&#x00A0;<span 
class="ectt-1200">(R&#x003C;=SPLIT2)</span>&#x00A0;<span 
class="ectt-1200">{</span>

&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">R</span>&#x00A0;<span 
class="ectt-1200">=</span>&#x00A0;<span 
class="ectt-1200">R</span>&#x00A0;<span 
class="ectt-1200">-</span>&#x00A0;<span 
class="ectt-1200">CONST2;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PPND16</span>&#x00A0;<span 
class="ectt-1200">=</span>&#x00A0;<span 
class="ectt-1200">(((((((C7</span>&#x00A0;<span 
class="ectt-1200">*</span>&#x00A0;<span 
class="ectt-1200">R</span>&#x00A0;<span 
class="ectt-1200">+</span>&#x00A0;<span 
class="ectt-1200">C6)</span>&#x00A0;<span 
class="ectt-1200">*</span>&#x00A0;<span 
class="ectt-1200">R</span>&#x00A0;<span 
class="ectt-1200">+</span>&#x00A0;<span 
class="ectt-1200">C5)</span>&#x00A0;<span 
class="ectt-1200">*</span>&#x00A0;<span 
class="ectt-1200">R</span>&#x00A0;<span 
class="ectt-1200">+</span>&#x00A0;<span 
class="ectt-1200">C4)</span>&#x00A0;<span 
class="ectt-1200">*</span>&#x00A0;<span 
class="ectt-1200">R</span>&#x00A0;<span 
class="ectt-1200">+</span>&#x00A0;<span 
class="ectt-1200">C3)*</span>&#x00A0;<span 
class="ectt-1200">R</span>&#x00A0;<span 
class="ectt-1200">+</span>&#x00A0;<span 
class="ectt-1200">C2)</span>&#x00A0;<span 
class="ectt-1200">*</span>&#x00A0;<span 
class="ectt-1200">R</span>&#x00A0;<span 
class="ectt-1200">+</span>&#x00A0;<span 
class="ectt-1200">C1)</span>&#x00A0;<span 
class="ectt-1200">*</span>&#x00A0;<span 
class="ectt-1200">R</span>&#x00A0;<span 
class="ectt-1200">+</span>&#x00A0;<span 
class="ectt-1200">C0)</span>&#x00A0;<span 
class="ectt-1200">/(((((((D7</span>&#x00A0;<span 
class="ectt-1200">*</span>&#x00A0;<span 
class="ectt-1200">R</span>&#x00A0;<span 
class="ectt-1200">+</span>&#x00A0;<span 
class="ectt-1200">D6)</span>&#x00A0;<span 
class="ectt-1200">*</span>&#x00A0;<span 
class="ectt-1200">R</span>&#x00A0;<span 
class="ectt-1200">+</span>&#x00A0;<span 
class="ectt-1200">D5)</span>&#x00A0;<span 
class="ectt-1200">*</span>&#x00A0;<span 
class="ectt-1200">R</span>&#x00A0;<span 
class="ectt-1200">+</span>&#x00A0;<span 
class="ectt-1200">D4)</span>&#x00A0;<span 
class="ectt-1200">*</span>&#x00A0;<span 
class="ectt-1200">R</span>&#x00A0;<span 
class="ectt-1200">+</span>&#x00A0;<span 
class="ectt-1200">D3)*</span>&#x00A0;<span 
class="ectt-1200">R</span>&#x00A0;<span 
class="ectt-1200">+</span>&#x00A0;<span 
class="ectt-1200">D2)</span>&#x00A0;<span 
class="ectt-1200">*</span>&#x00A0;<span 
class="ectt-1200">R</span>&#x00A0;<span 
class="ectt-1200">+</span>&#x00A0;<span 
class="ectt-1200">D1)</span>&#x00A0;<span 
class="ectt-1200">*</span>&#x00A0;<span 
class="ectt-1200">R</span>&#x00A0;<span 
class="ectt-1200">+</span>&#x00A0;<span 
class="ectt-1200">ONE);}</span>
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">else</span>&#x00A0;<span 
class="ectt-1200">{</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">R</span>&#x00A0;<span 
class="ectt-1200">=</span>&#x00A0;<span 
class="ectt-1200">R</span>&#x00A0;<span 
class="ectt-1200">-</span>&#x00A0;<span 
class="ectt-1200">SPLIT2;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PPND16</span>&#x00A0;<span 
class="ectt-1200">=</span>&#x00A0;<span 
class="ectt-1200">(((((((E7</span>&#x00A0;<span 
class="ectt-1200">*</span>&#x00A0;<span 
class="ectt-1200">R</span>&#x00A0;<span 
class="ectt-1200">+</span>&#x00A0;<span 
class="ectt-1200">E6)</span>&#x00A0;<span 
class="ectt-1200">*</span>&#x00A0;<span 
class="ectt-1200">R</span>&#x00A0;<span 
class="ectt-1200">+</span>&#x00A0;<span 
class="ectt-1200">E5)</span>&#x00A0;<span 
class="ectt-1200">*</span>&#x00A0;<span 
class="ectt-1200">R</span>&#x00A0;<span 
class="ectt-1200">+</span>&#x00A0;<span 
class="ectt-1200">E4)</span>&#x00A0;<span 
class="ectt-1200">*</span>&#x00A0;<span 
class="ectt-1200">R</span>&#x00A0;<span 
class="ectt-1200">+</span>&#x00A0;<span 
class="ectt-1200">E3)*</span>&#x00A0;<span 
class="ectt-1200">R</span>&#x00A0;<span 
class="ectt-1200">+</span>&#x00A0;<span 
class="ectt-1200">E2)</span>&#x00A0;<span 
class="ectt-1200">*</span>&#x00A0;<span 
class="ectt-1200">R</span>&#x00A0;<span 
class="ectt-1200">+</span>&#x00A0;<span 
class="ectt-1200">E1)</span>&#x00A0;<span 
class="ectt-1200">*</span>&#x00A0;<span 
class="ectt-1200">R</span>&#x00A0;<span 
class="ectt-1200">+</span>&#x00A0;<span 
class="ectt-1200">E0)</span>&#x00A0;<span 
class="ectt-1200">/(((((((F7</span>&#x00A0;<span 
class="ectt-1200">*</span>&#x00A0;<span 
class="ectt-1200">R</span>&#x00A0;<span 
class="ectt-1200">+</span>&#x00A0;<span 
class="ectt-1200">F6)</span>&#x00A0;<span 
class="ectt-1200">*</span>&#x00A0;<span 
class="ectt-1200">R</span>&#x00A0;<span 
class="ectt-1200">+</span>&#x00A0;<span 
class="ectt-1200">F5)</span>&#x00A0;<span 
class="ectt-1200">*</span>&#x00A0;<span 
class="ectt-1200">R</span>&#x00A0;<span 
class="ectt-1200">+</span>&#x00A0;<span 
class="ectt-1200">F4)</span>&#x00A0;<span 
class="ectt-1200">*</span>&#x00A0;<span 
class="ectt-1200">R</span>&#x00A0;<span 
class="ectt-1200">+</span>&#x00A0;<span 
class="ectt-1200">F3)*</span>&#x00A0;<span 
class="ectt-1200">R</span>&#x00A0;<span 
class="ectt-1200">+</span>&#x00A0;<span 
class="ectt-1200">F2)</span>&#x00A0;<span 
class="ectt-1200">*</span>&#x00A0;<span 
class="ectt-1200">R</span>&#x00A0;<span 
class="ectt-1200">+</span>&#x00A0;<span 
class="ectt-1200">F1)</span>&#x00A0;<span 
class="ectt-1200">*</span>&#x00A0;<span 
class="ectt-1200">R</span>&#x00A0;<span 
class="ectt-1200">+</span>&#x00A0;<span 
class="ectt-1200">ONE);</span>
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">}</span>
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">if</span>&#x00A0;<span 
class="ectt-1200">(Q&#x003C;ZERO)</span>&#x00A0;<span 
class="ectt-1200">{PPND16</span>&#x00A0;<span 
class="ectt-1200">=</span>&#x00A0;<span 
class="ectt-1200">-</span>&#x00A0;<span 
class="ectt-1200">PPND16;</span>
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">return(PPND16);}</span>
&#x00A0;<br />
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">return(PPND16);</span>
&#x00A0;<br /><span 
class="ectt-1200">}</span>
</div><span 
class="ecbx-1200">Le fichier </span><span 
class="ecbi-1200">rank.c</span><div class="verbatiminput">
<span 
class="ectt-1200">void</span>&#x00A0;&#x00A0;<span 
class="ectt-1200">rank(Matrix</span>&#x00A0;<span 
class="ectt-1200">RV,char</span>&#x00A0;<span 
class="ectt-1200">ORDER[2],int</span>&#x00A0;<span 
class="ectt-1200">*IRANK)</span>
&#x00A0;<br /><span 
class="ectt-1200">{</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">/*</span>
&#x00A0;<br />
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">rank</span>&#x00A0;<span 
class="ectt-1200">RANKS</span>&#x00A0;<span 
class="ectt-1200">A</span>&#x00A0;<span 
class="ectt-1200">VECTOR</span>&#x00A0;<span 
class="ectt-1200">OF</span>&#x00A0;<span 
class="ectt-1200">REAL</span>&#x00A0;<span 
class="ectt-1200">NUMBERS</span>&#x00A0;<span 
class="ectt-1200">IN</span>&#x00A0;<span 
class="ectt-1200">ASCENDING</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">OR</span>&#x00A0;<span 
class="ectt-1200">DESCENDING</span>&#x00A0;<span 
class="ectt-1200">ORDER.</span>
&#x00A0;<br />
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">rank</span>&#x00A0;<span 
class="ectt-1200">USES</span>&#x00A0;<span 
class="ectt-1200">A</span>&#x00A0;<span 
class="ectt-1200">VARIANT</span>&#x00A0;<span 
class="ectt-1200">OF</span>&#x00A0;<span 
class="ectt-1200">LIST-MERGING,</span>&#x00A0;<span 
class="ectt-1200">AS</span>&#x00A0;<span 
class="ectt-1200">DESCRIBED</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">BY</span>&#x00A0;<span 
class="ectt-1200">KNUTH.</span>&#x00A0;<span 
class="ectt-1200">THE</span>&#x00A0;<span 
class="ectt-1200">ROUTINE</span>&#x00A0;<span 
class="ectt-1200">TAKES</span>&#x00A0;<span 
class="ectt-1200">ADVANTAGE</span>&#x00A0;<span 
class="ectt-1200">OF</span>&#x00A0;<span 
class="ectt-1200">NATURAL</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">ORDERING</span>&#x00A0;<span 
class="ectt-1200">IN</span>&#x00A0;<span 
class="ectt-1200">THE</span>&#x00A0;<span 
class="ectt-1200">DATA,</span>&#x00A0;<span 
class="ectt-1200">AND</span>&#x00A0;<span 
class="ectt-1200">USES</span>&#x00A0;<span 
class="ectt-1200">A</span>&#x00A0;<span 
class="ectt-1200">SIMPLE</span>&#x00A0;<span 
class="ectt-1200">LIST</span>&#x00A0;<span 
class="ectt-1200">INSERTION</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">IN</span>&#x00A0;<span 
class="ectt-1200">A</span>&#x00A0;<span 
class="ectt-1200">PREPARATORY</span>&#x00A0;<span 
class="ectt-1200">PASS</span>&#x00A0;<span 
class="ectt-1200">TO</span>&#x00A0;<span 
class="ectt-1200">GENERATE</span>&#x00A0;<span 
class="ectt-1200">ORDERED</span>&#x00A0;<span 
class="ectt-1200">LISTS</span>&#x00A0;<span 
class="ectt-1200">OF</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">LENGTH</span>&#x00A0;<span 
class="ectt-1200">AT</span>&#x00A0;<span 
class="ectt-1200">LEAST</span>&#x00A0;<span 
class="ectt-1200">10.</span>&#x00A0;<span 
class="ectt-1200">THE</span>&#x00A0;<span 
class="ectt-1200">RANKING</span>&#x00A0;<span 
class="ectt-1200">IS</span>&#x00A0;<span 
class="ectt-1200">STABLE:</span>&#x00A0;<span 
class="ectt-1200">EQUAL</span>&#x00A0;<span 
class="ectt-1200">ELEMENTS</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PRESERVE</span>&#x00A0;<span 
class="ectt-1200">THEIR</span>&#x00A0;<span 
class="ectt-1200">ORDERING</span>&#x00A0;<span 
class="ectt-1200">IN</span>&#x00A0;<span 
class="ectt-1200">THE</span>&#x00A0;<span 
class="ectt-1200">INPUT</span>&#x00A0;<span 
class="ectt-1200">DATA.</span>
&#x00A0;<br />
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">THE</span>&#x00A0;<span 
class="ectt-1200">MINIMUM</span>&#x00A0;<span 
class="ectt-1200">LENGTH</span>&#x00A0;<span 
class="ectt-1200">OF</span>&#x00A0;<span 
class="ectt-1200">THE</span>&#x00A0;<span 
class="ectt-1200">LISTS</span>&#x00A0;<span 
class="ectt-1200">AT</span>&#x00A0;<span 
class="ectt-1200">THE</span>&#x00A0;<span 
class="ectt-1200">END</span>&#x00A0;<span 
class="ectt-1200">OF</span>&#x00A0;<span 
class="ectt-1200">THE</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">PREPARATORY</span>&#x00A0;<span 
class="ectt-1200">PASS</span>&#x00A0;<span 
class="ectt-1200">IS</span>&#x00A0;<span 
class="ectt-1200">DEFINED</span>&#x00A0;<span 
class="ectt-1200">BY</span>&#x00A0;<span 
class="ectt-1200">THE</span>&#x00A0;<span 
class="ectt-1200">VARIABLE</span>&#x00A0;<span 
class="ectt-1200">MAXINS.</span>
&#x00A0;<br />
&#x00A0;<br /><span 
class="ectt-1200">*/</span>
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">//</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">..</span>&#x00A0;<span 
class="ectt-1200">Parameters</span>&#x00A0;<span 
class="ectt-1200">..</span>
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">int</span>&#x00A0;<span 
class="ectt-1200">MAXINS;</span>
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">MAXINS=10;</span>
&#x00A0;<br />
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">int</span>&#x00A0;<span 
class="ectt-1200">M1,</span>&#x00A0;<span 
class="ectt-1200">M2;</span>
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">M1=1;</span>
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">M2=RV.Nrows();</span>
&#x00A0;<br />
&#x00A0;<br />
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">//</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">..</span>&#x00A0;<span 
class="ectt-1200">Local</span>&#x00A0;<span 
class="ectt-1200">Scalars</span>&#x00A0;<span 
class="ectt-1200">..</span>
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">double</span>&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">A,</span>&#x00A0;<span 
class="ectt-1200">B,</span>&#x00A0;<span 
class="ectt-1200">C;</span>

&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">int</span>&#x00A0;<span 
class="ectt-1200">I,</span>&#x00A0;<span 
class="ectt-1200">I1,</span>&#x00A0;<span 
class="ectt-1200">I2,</span>&#x00A0;<span 
class="ectt-1200">ILIST,</span>&#x00A0;<span 
class="ectt-1200">J,</span>&#x00A0;<span 
class="ectt-1200">J1,</span>&#x00A0;<span 
class="ectt-1200">J2,</span>&#x00A0;<span 
class="ectt-1200">K,</span>&#x00A0;<span 
class="ectt-1200">K1,</span>&#x00A0;<span 
class="ectt-1200">K2,</span>&#x00A0;<span 
class="ectt-1200">L,LIST1,</span>&#x00A0;<span 
class="ectt-1200">LIST2,</span>&#x00A0;<span 
class="ectt-1200">NLAST,</span>&#x00A0;<span 
class="ectt-1200">NPREV;</span>
&#x00A0;<br />
&#x00A0;<br />
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">I1=0;</span>
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">J1=0;</span>
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">LIST1=0;</span>
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">LIST2=0;</span>
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">NLAST=0;</span>
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">NPREV=0;</span>
&#x00A0;<br />
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">//</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">..</span>&#x00A0;<span 
class="ectt-1200">Executable</span>&#x00A0;<span 
class="ectt-1200">Statements</span>&#x00A0;<span 
class="ectt-1200">..</span>
&#x00A0;<br />
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">//</span>&#x00A0;<span 
class="ectt-1200">DEAL</span>&#x00A0;<span 
class="ectt-1200">WITH</span>&#x00A0;<span 
class="ectt-1200">THE</span>&#x00A0;<span 
class="ectt-1200">TRIVIAL</span>&#x00A0;<span 
class="ectt-1200">CASE.</span>
&#x00A0;<br />
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">if</span>&#x00A0;<span 
class="ectt-1200">(M1==M2)</span>&#x00A0;<span 
class="ectt-1200">*(IRANK+M2-1)</span>&#x00A0;<span 
class="ectt-1200">=</span>&#x00A0;<span 
class="ectt-1200">M2;</span>
&#x00A0;<br />
&#x00A0;<br />
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">/*</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">INITIALISE,</span>&#x00A0;<span 
class="ectt-1200">USING</span>&#x00A0;<span 
class="ectt-1200">NATURAL</span>&#x00A0;<span 
class="ectt-1200">RUNS</span>&#x00A0;<span 
class="ectt-1200">IN</span>&#x00A0;<span 
class="ectt-1200">BOTH</span>&#x00A0;<span 
class="ectt-1200">DIRECTIONS</span>&#x00A0;<span 
class="ectt-1200">AND</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">STRAIGHT</span>&#x00A0;<span 
class="ectt-1200">LIST</span>&#x00A0;<span 
class="ectt-1200">INSERTION</span>&#x00A0;<span 
class="ectt-1200">FOR</span>&#x00A0;<span 
class="ectt-1200">SMALL</span>&#x00A0;<span 
class="ectt-1200">LISTS.</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">I</span>&#x00A0;&#x00A0;<span 
class="ectt-1200">POINTS</span>&#x00A0;<span 
class="ectt-1200">TO</span>&#x00A0;<span 
class="ectt-1200">THE</span>&#x00A0;<span 
class="ectt-1200">SMALLEST</span>&#x00A0;<span 
class="ectt-1200">ELEMENT</span>&#x00A0;<span 
class="ectt-1200">IN</span>&#x00A0;<span 
class="ectt-1200">THE</span>&#x00A0;<span 
class="ectt-1200">CURRENT</span>&#x00A0;<span 
class="ectt-1200">LIST</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">J</span>&#x00A0;&#x00A0;<span 
class="ectt-1200">POINTS</span>&#x00A0;<span 
class="ectt-1200">TO</span>&#x00A0;<span 
class="ectt-1200">THE</span>&#x00A0;<span 
class="ectt-1200">LARGEST</span>&#x00A0;&#x00A0;<span 
class="ectt-1200">ELEMENT</span>&#x00A0;<span 
class="ectt-1200">IN</span>&#x00A0;<span 
class="ectt-1200">THE</span>&#x00A0;<span 
class="ectt-1200">CURRENT</span>&#x00A0;<span 
class="ectt-1200">LIST</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">B</span>&#x00A0;&#x00A0;<span 
class="ectt-1200">IS</span>&#x00A0;<span 
class="ectt-1200">THE</span>&#x00A0;<span 
class="ectt-1200">VALUE</span>&#x00A0;<span 
class="ectt-1200">OF</span>&#x00A0;<span 
class="ectt-1200">THE</span>&#x00A0;<span 
class="ectt-1200">SMALLEST</span>&#x00A0;<span 
class="ectt-1200">ELEMENT</span>&#x00A0;<span 
class="ectt-1200">IN</span>&#x00A0;<span 
class="ectt-1200">CURRENT</span>&#x00A0;<span 
class="ectt-1200">LIST</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">C</span>&#x00A0;&#x00A0;<span 
class="ectt-1200">IS</span>&#x00A0;<span 
class="ectt-1200">THE</span>&#x00A0;<span 
class="ectt-1200">VALUE</span>&#x00A0;<span 
class="ectt-1200">OF</span>&#x00A0;<span 
class="ectt-1200">THE</span>&#x00A0;<span 
class="ectt-1200">LARGEST</span>&#x00A0;&#x00A0;<span 
class="ectt-1200">ELEMENT</span>&#x00A0;<span 
class="ectt-1200">IN</span>&#x00A0;<span 
class="ectt-1200">CURRENT</span>&#x00A0;<span 
class="ectt-1200">LIST</span>
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">*/</span>
&#x00A0;<br />
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">ILIST</span>&#x00A0;<span 
class="ectt-1200">=</span>&#x00A0;<span 
class="ectt-1200">-1;</span>
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">K</span>&#x00A0;<span 
class="ectt-1200">=</span>&#x00A0;<span 
class="ectt-1200">M1;</span>
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">I</span>&#x00A0;<span 
class="ectt-1200">=</span>&#x00A0;<span 
class="ectt-1200">K;</span>
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">J</span>&#x00A0;<span 
class="ectt-1200">=</span>&#x00A0;<span 
class="ectt-1200">K;</span>
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">L</span>&#x00A0;<span 
class="ectt-1200">=</span>&#x00A0;<span 
class="ectt-1200">K</span>&#x00A0;<span 
class="ectt-1200">+</span>&#x00A0;<span 
class="ectt-1200">MAXINS;</span>
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">B</span>&#x00A0;<span 
class="ectt-1200">=</span>&#x00A0;<span 
class="ectt-1200">RV(K,1);</span>
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">C</span>&#x00A0;<span 
class="ectt-1200">=</span>&#x00A0;<span 
class="ectt-1200">B;</span>
&#x00A0;<br />
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">for</span>&#x00A0;<span 
class="ectt-1200">(K=M1+1;K&#x003C;=M2;K=K+1)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">{</span>
&#x00A0;<br />
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">//</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DEAL</span>&#x00A0;<span 
class="ectt-1200">WITH</span>&#x00A0;<span 
class="ectt-1200">ADDITIONS</span>&#x00A0;<span 
class="ectt-1200">AT</span>&#x00A0;<span 
class="ectt-1200">EITHER</span>&#x00A0;<span 
class="ectt-1200">END.</span>
&#x00A0;<br />
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">A</span>&#x00A0;<span 
class="ectt-1200">=</span>&#x00A0;<span 
class="ectt-1200">RV(K,1);</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">if</span>&#x00A0;<span 
class="ectt-1200">(A&#x003E;=C)</span>
&#x00A0;<br /><span 
class="ectt-1200">{</span>
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">*(IRANK+J-1)</span>&#x00A0;<span 
class="ectt-1200">=</span>&#x00A0;<span 
class="ectt-1200">K;</span>

&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">J</span>&#x00A0;<span 
class="ectt-1200">=</span>&#x00A0;<span 
class="ectt-1200">K;</span>
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">C</span>&#x00A0;<span 
class="ectt-1200">=</span>&#x00A0;<span 
class="ectt-1200">A;</span>
&#x00A0;<br /><span 
class="ectt-1200">}</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">else</span>&#x00A0;<span 
class="ectt-1200">if</span>&#x00A0;&#x00A0;<span 
class="ectt-1200">(A&#x003C;B)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">{</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">*(IRANK+K-1)</span>&#x00A0;<span 
class="ectt-1200">=</span>&#x00A0;<span 
class="ectt-1200">I;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">I</span>&#x00A0;<span 
class="ectt-1200">=</span>&#x00A0;<span 
class="ectt-1200">K;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">B</span>&#x00A0;<span 
class="ectt-1200">=</span>&#x00A0;<span 
class="ectt-1200">A;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">}</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">else</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">{</span>
&#x00A0;<br />
&#x00A0;<br /><span 
class="ectt-1200">//</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DO</span>&#x00A0;<span 
class="ectt-1200">AN</span>&#x00A0;<span 
class="ectt-1200">ASCENDING</span>&#x00A0;<span 
class="ectt-1200">LIST</span>&#x00A0;<span 
class="ectt-1200">INSERTION.</span>
&#x00A0;<br />
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">if</span>&#x00A0;<span 
class="ectt-1200">(K&#x003C;L)</span>
&#x00A0;<br />&#x00A0;<span 
class="ectt-1200">{</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">I2</span>&#x00A0;<span 
class="ectt-1200">=</span>&#x00A0;<span 
class="ectt-1200">I;</span>
&#x00A0;<br />&#x00A0;<span 
class="ectt-1200">Vingt:</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">I1</span>&#x00A0;<span 
class="ectt-1200">=</span>&#x00A0;<span 
class="ectt-1200">I2;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">I2</span>&#x00A0;<span 
class="ectt-1200">=</span>&#x00A0;<span 
class="ectt-1200">*(IRANK+I1-1);</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">if</span>&#x00A0;<span 
class="ectt-1200">(A&#x003E;=RV(I2,1))</span>&#x00A0;<span 
class="ectt-1200">goto</span>&#x00A0;<span 
class="ectt-1200">Vingt;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">*(IRANK+I1-1)</span>&#x00A0;<span 
class="ectt-1200">=</span>&#x00A0;<span 
class="ectt-1200">K;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">*(IRANK+K-1)</span>&#x00A0;<span 
class="ectt-1200">=</span>&#x00A0;<span 
class="ectt-1200">I2;</span>
&#x00A0;<br />&#x00A0;<span 
class="ectt-1200">}</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">else</span>
&#x00A0;<br />&#x00A0;<span 
class="ectt-1200">{</span>
&#x00A0;<br />
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">//</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">ADD</span>&#x00A0;<span 
class="ectt-1200">THE</span>&#x00A0;<span 
class="ectt-1200">CURRENT</span>&#x00A0;<span 
class="ectt-1200">LIST</span>&#x00A0;<span 
class="ectt-1200">ON</span>&#x00A0;<span 
class="ectt-1200">TO</span>&#x00A0;<span 
class="ectt-1200">THE</span>&#x00A0;<span 
class="ectt-1200">OTHERS.</span>
&#x00A0;<br />
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">if</span>&#x00A0;<span 
class="ectt-1200">(ILIST&#x003C;0)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">{</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">LIST1</span>&#x00A0;<span 
class="ectt-1200">=</span>&#x00A0;<span 
class="ectt-1200">-I;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">ILIST</span>&#x00A0;<span 
class="ectt-1200">=</span>&#x00A0;<span 
class="ectt-1200">0;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">}</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">else</span>&#x00A0;<span 
class="ectt-1200">if</span>&#x00A0;<span 
class="ectt-1200">(ILIST==0)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">{</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">LIST2</span>&#x00A0;<span 
class="ectt-1200">=</span>&#x00A0;<span 
class="ectt-1200">-I;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">ILIST</span>&#x00A0;<span 
class="ectt-1200">=</span>&#x00A0;<span 
class="ectt-1200">1;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">NPREV</span>&#x00A0;<span 
class="ectt-1200">=</span>&#x00A0;<span 
class="ectt-1200">NLAST;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">}</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">else</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">{</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">*(IRANK+NPREV-1)</span>&#x00A0;<span 
class="ectt-1200">=</span>&#x00A0;<span 
class="ectt-1200">-I;</span>

&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">NPREV</span>&#x00A0;<span 
class="ectt-1200">=</span>&#x00A0;<span 
class="ectt-1200">NLAST;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">}</span>
&#x00A0;<br />
&#x00A0;<br />
&#x00A0;<br />
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">NLAST</span>&#x00A0;<span 
class="ectt-1200">=</span>&#x00A0;<span 
class="ectt-1200">J;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">I</span>&#x00A0;<span 
class="ectt-1200">=</span>&#x00A0;<span 
class="ectt-1200">K;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">J</span>&#x00A0;<span 
class="ectt-1200">=</span>&#x00A0;<span 
class="ectt-1200">K;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">L</span>&#x00A0;<span 
class="ectt-1200">=</span>&#x00A0;<span 
class="ectt-1200">K</span>&#x00A0;<span 
class="ectt-1200">+</span>&#x00A0;<span 
class="ectt-1200">MAXINS;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">B</span>&#x00A0;<span 
class="ectt-1200">=</span>&#x00A0;<span 
class="ectt-1200">RV(K,1);</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">C</span>&#x00A0;<span 
class="ectt-1200">=</span>&#x00A0;<span 
class="ectt-1200">B;</span>
&#x00A0;<br />&#x00A0;<span 
class="ectt-1200">}</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">}</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">}</span>
&#x00A0;<br />
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">//</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">TIDY</span>&#x00A0;<span 
class="ectt-1200">UP</span>&#x00A0;<span 
class="ectt-1200">AT</span>&#x00A0;<span 
class="ectt-1200">THE</span>&#x00A0;<span 
class="ectt-1200">END.</span>
&#x00A0;<br />
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">*(IRANK+J-1)</span>&#x00A0;<span 
class="ectt-1200">=</span>&#x00A0;<span 
class="ectt-1200">0;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">if</span>&#x00A0;<span 
class="ectt-1200">(ILIST&#x003C;0)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">{</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">LIST1</span>&#x00A0;<span 
class="ectt-1200">=</span>&#x00A0;<span 
class="ectt-1200">-I;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">goto</span>&#x00A0;<span 
class="ectt-1200">Deuxcentquatrevingt;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">}</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">else</span>&#x00A0;<span 
class="ectt-1200">if</span>&#x00A0;<span 
class="ectt-1200">(ILIST==0)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">{</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">LIST2</span>&#x00A0;<span 
class="ectt-1200">=</span>&#x00A0;<span 
class="ectt-1200">-I;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">}</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">else</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">{</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">*(IRANK+NPREV-1)</span>&#x00A0;<span 
class="ectt-1200">=</span>&#x00A0;<span 
class="ectt-1200">-I;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">}</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">*(IRANK+NLAST-1)</span>&#x00A0;<span 
class="ectt-1200">=</span>&#x00A0;<span 
class="ectt-1200">0;</span>
&#x00A0;<br />
&#x00A0;<br />&#x00A0;<span 
class="ectt-1200">//</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">AT</span>&#x00A0;<span 
class="ectt-1200">THIS</span>&#x00A0;<span 
class="ectt-1200">POINT:</span>
&#x00A0;<br />&#x00A0;<span 
class="ectt-1200">//</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">LIST1</span>&#x00A0;<span 
class="ectt-1200">=</span>&#x00A0;<span 
class="ectt-1200">-</span>&#x00A0;<span 
class="ectt-1200">(INDEX</span>&#x00A0;<span 
class="ectt-1200">OF</span>&#x00A0;<span 
class="ectt-1200">LEAST</span>&#x00A0;<span 
class="ectt-1200">ELEMENT</span>&#x00A0;<span 
class="ectt-1200">IN</span>&#x00A0;<span 
class="ectt-1200">THE</span>&#x00A0;<span 
class="ectt-1200">FIRST</span>&#x00A0;<span 
class="ectt-1200">LIST)</span>
&#x00A0;<br />&#x00A0;<span 
class="ectt-1200">//</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">LIST2</span>&#x00A0;<span 
class="ectt-1200">=</span>&#x00A0;<span 
class="ectt-1200">-</span>&#x00A0;<span 
class="ectt-1200">(INDEX</span>&#x00A0;<span 
class="ectt-1200">OF</span>&#x00A0;<span 
class="ectt-1200">LEAST</span>&#x00A0;<span 
class="ectt-1200">ELEMENT</span>&#x00A0;<span 
class="ectt-1200">IN</span>&#x00A0;<span 
class="ectt-1200">THE</span>&#x00A0;<span 
class="ectt-1200">SECOND</span>&#x00A0;<span 
class="ectt-1200">LIST)</span>
&#x00A0;<br />&#x00A0;<span 
class="ectt-1200">//</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">FOR</span>&#x00A0;<span 
class="ectt-1200">EACH</span>&#x00A0;<span 
class="ectt-1200">K,</span>&#x00A0;<span 
class="ectt-1200">IRANK(K)</span>&#x00A0;<span 
class="ectt-1200">IS</span>&#x00A0;<span 
class="ectt-1200">THE</span>&#x00A0;<span 
class="ectt-1200">INDEX</span>&#x00A0;<span 
class="ectt-1200">OF</span>&#x00A0;<span 
class="ectt-1200">THE</span>&#x00A0;<span 
class="ectt-1200">NEXT</span>&#x00A0;<span 
class="ectt-1200">ELEMENT</span>&#x00A0;<span 
class="ectt-1200">IN</span>&#x00A0;<span 
class="ectt-1200">THE</span>
&#x00A0;<br />&#x00A0;<span 
class="ectt-1200">//</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CURRENT</span>&#x00A0;<span 
class="ectt-1200">LIST,</span>&#x00A0;<span 
class="ectt-1200">EXCEPT</span>&#x00A0;<span 
class="ectt-1200">THAT,</span>&#x00A0;<span 
class="ectt-1200">IF</span>&#x00A0;<span 
class="ectt-1200">THERE</span>&#x00A0;<span 
class="ectt-1200">IS</span>&#x00A0;<span 
class="ectt-1200">NO</span>&#x00A0;<span 
class="ectt-1200">SUCH</span>&#x00A0;<span 
class="ectt-1200">ELEMENT,</span>
&#x00A0;<br />&#x00A0;<span 
class="ectt-1200">//</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">IRANK(K)</span>&#x00A0;<span 
class="ectt-1200">IS</span>&#x00A0;<span 
class="ectt-1200">-</span>&#x00A0;<span 
class="ectt-1200">(INDEX</span>&#x00A0;<span 
class="ectt-1200">OF</span>&#x00A0;<span 
class="ectt-1200">THE</span>&#x00A0;<span 
class="ectt-1200">LEAST</span>&#x00A0;<span 
class="ectt-1200">ELEMENT</span>&#x00A0;<span 
class="ectt-1200">IN</span>&#x00A0;<span 
class="ectt-1200">THE</span>&#x00A0;<span 
class="ectt-1200">NEXT</span>&#x00A0;<span 
class="ectt-1200">LIST</span>
&#x00A0;<br />&#x00A0;<span 
class="ectt-1200">//</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">BUT</span>&#x00A0;<span 
class="ectt-1200">1)</span>&#x00A0;&#x00A0;<span 
class="ectt-1200">OR</span>&#x00A0;<span 
class="ectt-1200">0</span>&#x00A0;<span 
class="ectt-1200">IF</span>&#x00A0;<span 
class="ectt-1200">THERE</span>&#x00A0;<span 
class="ectt-1200">IS</span>&#x00A0;<span 
class="ectt-1200">NO</span>&#x00A0;<span 
class="ectt-1200">SUCH</span>&#x00A0;<span 
class="ectt-1200">LIST.</span>
&#x00A0;<br />
&#x00A0;<br />&#x00A0;<span 
class="ectt-1200">//</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">START</span>&#x00A0;<span 
class="ectt-1200">MERGING</span>&#x00A0;<span 
class="ectt-1200">LISTS</span>&#x00A0;<span 
class="ectt-1200">BY</span>&#x00A0;<span 
class="ectt-1200">PAIRS.</span>
&#x00A0;<br />

&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Soixante:</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">ILIST</span>&#x00A0;<span 
class="ectt-1200">=</span>&#x00A0;<span 
class="ectt-1200">-1;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">I</span>&#x00A0;<span 
class="ectt-1200">=</span>&#x00A0;<span 
class="ectt-1200">-LIST1;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">J</span>&#x00A0;<span 
class="ectt-1200">=</span>&#x00A0;<span 
class="ectt-1200">-LIST2;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Quatrevingt:</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">K</span>&#x00A0;<span 
class="ectt-1200">=</span>&#x00A0;<span 
class="ectt-1200">I;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">if</span>&#x00A0;<span 
class="ectt-1200">(RV(I,1)&#x003E;RV(J,1))</span>&#x00A0;<span 
class="ectt-1200">K</span>&#x00A0;<span 
class="ectt-1200">=</span>&#x00A0;<span 
class="ectt-1200">J;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">if</span>&#x00A0;<span 
class="ectt-1200">(ILIST&#x003C;0)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">{</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">LIST1</span>&#x00A0;<span 
class="ectt-1200">=</span>&#x00A0;<span 
class="ectt-1200">-K;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">ILIST</span>&#x00A0;<span 
class="ectt-1200">=</span>&#x00A0;<span 
class="ectt-1200">0;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">}</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">else</span>&#x00A0;<span 
class="ectt-1200">if</span>&#x00A0;<span 
class="ectt-1200">(ILIST==0)</span>
&#x00A0;<br /><span 
class="ectt-1200">{</span>
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">LIST2</span>&#x00A0;<span 
class="ectt-1200">=</span>&#x00A0;<span 
class="ectt-1200">-K;</span>
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">ILIST</span>&#x00A0;<span 
class="ectt-1200">=</span>&#x00A0;<span 
class="ectt-1200">1;</span>
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">NLAST</span>&#x00A0;<span 
class="ectt-1200">=</span>&#x00A0;<span 
class="ectt-1200">L;</span>
&#x00A0;<br /><span 
class="ectt-1200">}</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">else</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">{</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">*(IRANK+NLAST-1)</span>&#x00A0;<span 
class="ectt-1200">=</span>&#x00A0;<span 
class="ectt-1200">-K;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">NLAST</span>&#x00A0;<span 
class="ectt-1200">=</span>&#x00A0;<span 
class="ectt-1200">L;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">}</span>
&#x00A0;<br />
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">//</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">MOVE</span>&#x00A0;<span 
class="ectt-1200">ALONG</span>&#x00A0;<span 
class="ectt-1200">THE</span>&#x00A0;<span 
class="ectt-1200">LISTS</span>&#x00A0;<span 
class="ectt-1200">UNTIL</span>&#x00A0;<span 
class="ectt-1200">ONE</span>&#x00A0;<span 
class="ectt-1200">FINISHES.</span>
&#x00A0;<br />
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">//</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">NEW</span>&#x00A0;<span 
class="ectt-1200">VARIABLES</span>&#x00A0;<span 
class="ectt-1200">I2,</span>&#x00A0;<span 
class="ectt-1200">J2</span>&#x00A0;<span 
class="ectt-1200">AND</span>&#x00A0;<span 
class="ectt-1200">K2</span>&#x00A0;<span 
class="ectt-1200">ARE</span>&#x00A0;<span 
class="ectt-1200">USED</span>&#x00A0;<span 
class="ectt-1200">INSTEAD</span>&#x00A0;<span 
class="ectt-1200">OF</span>&#x00A0;<span 
class="ectt-1200">I,</span>&#x00A0;<span 
class="ectt-1200">J</span>&#x00A0;<span 
class="ectt-1200">AND</span>&#x00A0;<span 
class="ectt-1200">K</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">//</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">WITHIN</span>&#x00A0;<span 
class="ectt-1200">THE</span>&#x00A0;<span 
class="ectt-1200">INNERMOST</span>&#x00A0;<span 
class="ectt-1200">BLOCK</span>&#x00A0;<span 
class="ectt-1200">TO</span>&#x00A0;<span 
class="ectt-1200">ENCOURAGE</span>&#x00A0;<span 
class="ectt-1200">OPTIMISING</span>&#x00A0;<span 
class="ectt-1200">COMPILERS</span>&#x00A0;<span 
class="ectt-1200">TO</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">//</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">STORE</span>&#x00A0;<span 
class="ectt-1200">THEM</span>&#x00A0;<span 
class="ectt-1200">IN</span>&#x00A0;<span 
class="ectt-1200">REGISTERS.</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">//</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">I2</span>&#x00A0;<span 
class="ectt-1200">POINTS</span>&#x00A0;<span 
class="ectt-1200">TO</span>&#x00A0;<span 
class="ectt-1200">THE</span>&#x00A0;<span 
class="ectt-1200">CURRENT</span>&#x00A0;<span 
class="ectt-1200">ELEMENT</span>&#x00A0;<span 
class="ectt-1200">IN</span>&#x00A0;<span 
class="ectt-1200">THE</span>&#x00A0;<span 
class="ectt-1200">FIRST</span>&#x00A0;<span 
class="ectt-1200">LIST</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">//</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">J2</span>&#x00A0;<span 
class="ectt-1200">POINTS</span>&#x00A0;<span 
class="ectt-1200">TO</span>&#x00A0;<span 
class="ectt-1200">THE</span>&#x00A0;<span 
class="ectt-1200">CURRENT</span>&#x00A0;<span 
class="ectt-1200">ELEMENT</span>&#x00A0;<span 
class="ectt-1200">IN</span>&#x00A0;<span 
class="ectt-1200">THE</span>&#x00A0;<span 
class="ectt-1200">SECOND</span>&#x00A0;<span 
class="ectt-1200">LIST</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">//</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">K2</span>&#x00A0;<span 
class="ectt-1200">POINTS</span>&#x00A0;<span 
class="ectt-1200">TO</span>&#x00A0;<span 
class="ectt-1200">THE</span>&#x00A0;<span 
class="ectt-1200">CURRENT</span>&#x00A0;<span 
class="ectt-1200">ELEMENT</span>&#x00A0;<span 
class="ectt-1200">IN</span>&#x00A0;<span 
class="ectt-1200">THE</span>&#x00A0;<span 
class="ectt-1200">MERGED</span>&#x00A0;<span 
class="ectt-1200">LIST</span>
&#x00A0;<br />
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">I2</span>&#x00A0;<span 
class="ectt-1200">=</span>&#x00A0;<span 
class="ectt-1200">I;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">J2</span>&#x00A0;<span 
class="ectt-1200">=</span>&#x00A0;<span 
class="ectt-1200">J;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">if</span>&#x00A0;<span 
class="ectt-1200">(K!=I2)</span>&#x00A0;<span 
class="ectt-1200">goto</span>&#x00A0;<span 
class="ectt-1200">Centquarante;</span>
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">Cent:</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">A</span>&#x00A0;<span 
class="ectt-1200">=</span>&#x00A0;<span 
class="ectt-1200">RV(J2,1);</span>
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">K2</span>&#x00A0;<span 
class="ectt-1200">=</span>&#x00A0;<span 
class="ectt-1200">I2;</span>
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">Centvingt:</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">I2</span>&#x00A0;<span 
class="ectt-1200">=</span>&#x00A0;<span 
class="ectt-1200">K2;</span>
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">K2</span>&#x00A0;<span 
class="ectt-1200">=</span>&#x00A0;<span 
class="ectt-1200">*(IRANK+I2-1);</span>
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">if</span>&#x00A0;<span 
class="ectt-1200">(K2&#x003C;=0)</span>&#x00A0;<span 
class="ectt-1200">goto</span>&#x00A0;<span 
class="ectt-1200">Centquatrevingt;</span>

&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">if</span>&#x00A0;<span 
class="ectt-1200">(A&#x003E;=RV(K2,1))</span>&#x00A0;<span 
class="ectt-1200">goto</span>&#x00A0;<span 
class="ectt-1200">Centvingt;</span>
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">*(IRANK+I2-1)</span>&#x00A0;<span 
class="ectt-1200">=</span>&#x00A0;<span 
class="ectt-1200">J2;</span>
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">I2</span>&#x00A0;<span 
class="ectt-1200">=</span>&#x00A0;<span 
class="ectt-1200">K2;</span>
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">Centquarante:</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">A</span>&#x00A0;<span 
class="ectt-1200">=</span>&#x00A0;<span 
class="ectt-1200">RV(I2,1);</span>
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">K2</span>&#x00A0;<span 
class="ectt-1200">=</span>&#x00A0;<span 
class="ectt-1200">J2;</span>
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">Centsoixante:</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">J2</span>&#x00A0;<span 
class="ectt-1200">=</span>&#x00A0;<span 
class="ectt-1200">K2;</span>
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">K2</span>&#x00A0;<span 
class="ectt-1200">=</span>&#x00A0;<span 
class="ectt-1200">*(IRANK+J2-1);</span>
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">if</span>&#x00A0;<span 
class="ectt-1200">(K2&#x003C;=0)</span>&#x00A0;<span 
class="ectt-1200">goto</span>&#x00A0;<span 
class="ectt-1200">Deuxcent;</span>
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">if</span>&#x00A0;<span 
class="ectt-1200">(A&#x003E;RV(K2,1))</span>&#x00A0;<span 
class="ectt-1200">goto</span>&#x00A0;<span 
class="ectt-1200">Centsoixante;</span>
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">*(IRANK+J2-1)</span>&#x00A0;<span 
class="ectt-1200">=</span>&#x00A0;<span 
class="ectt-1200">I2;</span>
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">J2</span>&#x00A0;<span 
class="ectt-1200">=</span>&#x00A0;<span 
class="ectt-1200">K2;</span>
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">goto</span>&#x00A0;<span 
class="ectt-1200">Cent;</span>
&#x00A0;<br />
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">//</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">ADD</span>&#x00A0;<span 
class="ectt-1200">THE</span>&#x00A0;<span 
class="ectt-1200">REMAINS</span>&#x00A0;<span 
class="ectt-1200">OF</span>&#x00A0;<span 
class="ectt-1200">ONE</span>&#x00A0;<span 
class="ectt-1200">LIST</span>&#x00A0;<span 
class="ectt-1200">TO</span>&#x00A0;<span 
class="ectt-1200">THE</span>&#x00A0;<span 
class="ectt-1200">OTHER.</span>
&#x00A0;<br />
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">Centquatrevingt:</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">K</span>&#x00A0;<span 
class="ectt-1200">=</span>&#x00A0;<span 
class="ectt-1200">1;</span>
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">I1</span>&#x00A0;<span 
class="ectt-1200">=</span>&#x00A0;<span 
class="ectt-1200">K2;</span>
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">goto</span>&#x00A0;<span 
class="ectt-1200">Deuxcentvingt;</span>
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">Deuxcent:</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">K</span>&#x00A0;<span 
class="ectt-1200">=</span>&#x00A0;<span 
class="ectt-1200">2;</span>
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">J1</span>&#x00A0;<span 
class="ectt-1200">=</span>&#x00A0;<span 
class="ectt-1200">K2;</span>
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">Deuxcentvingt:</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">I</span>&#x00A0;<span 
class="ectt-1200">=</span>&#x00A0;<span 
class="ectt-1200">I2;</span>
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">J</span>&#x00A0;<span 
class="ectt-1200">=</span>&#x00A0;<span 
class="ectt-1200">J2;</span>
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">if</span>&#x00A0;<span 
class="ectt-1200">(K==1)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">{</span>
&#x00A0;<br />
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">//</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">FIRST</span>&#x00A0;<span 
class="ectt-1200">LIST</span>&#x00A0;<span 
class="ectt-1200">IS</span>&#x00A0;<span 
class="ectt-1200">EXHAUSTED</span>
&#x00A0;<br />
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">*(IRANK+I-1)</span>&#x00A0;<span 
class="ectt-1200">=</span>&#x00A0;<span 
class="ectt-1200">J;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">I</span>&#x00A0;<span 
class="ectt-1200">=</span>&#x00A0;<span 
class="ectt-1200">-I1;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">J1</span>&#x00A0;<span 
class="ectt-1200">=</span>&#x00A0;<span 
class="ectt-1200">J;</span>
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">Deuxcentquarante:</span>
&#x00A0;<br /><span 
class="ectt-1200">J</span>&#x00A0;<span 
class="ectt-1200">=</span>&#x00A0;<span 
class="ectt-1200">J1;</span>
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">J1</span>&#x00A0;<span 
class="ectt-1200">=</span>&#x00A0;<span 
class="ectt-1200">*(IRANK+J-1);</span>
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">if</span>&#x00A0;<span 
class="ectt-1200">(J1&#x003E;0)</span>&#x00A0;<span 
class="ectt-1200">goto</span>&#x00A0;<span 
class="ectt-1200">Deuxcentquarante;</span>
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">L</span>&#x00A0;<span 
class="ectt-1200">=</span>&#x00A0;<span 
class="ectt-1200">J;</span>
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">J</span>&#x00A0;<span 
class="ectt-1200">=</span>&#x00A0;<span 
class="ectt-1200">-J1;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">}</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">else</span>

&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">{</span>
&#x00A0;<br />
&#x00A0;<br />&#x00A0;<span 
class="ectt-1200">//</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">SECOND</span>&#x00A0;<span 
class="ectt-1200">LIST</span>&#x00A0;<span 
class="ectt-1200">IS</span>&#x00A0;<span 
class="ectt-1200">EXHAUSTED</span>
&#x00A0;<br />
&#x00A0;<br />&#x00A0;<span 
class="ectt-1200">*(IRANK+J-1)</span>&#x00A0;<span 
class="ectt-1200">=</span>&#x00A0;<span 
class="ectt-1200">I;</span>
&#x00A0;<br />&#x00A0;<span 
class="ectt-1200">J</span>&#x00A0;<span 
class="ectt-1200">=</span>&#x00A0;<span 
class="ectt-1200">-J1;</span>
&#x00A0;<br />&#x00A0;<span 
class="ectt-1200">I1</span>&#x00A0;<span 
class="ectt-1200">=</span>&#x00A0;<span 
class="ectt-1200">I;</span>
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">Deuxcentsoixante:</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">I</span>&#x00A0;<span 
class="ectt-1200">=</span>&#x00A0;<span 
class="ectt-1200">I1;</span>
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">I1</span>&#x00A0;<span 
class="ectt-1200">=</span>&#x00A0;<span 
class="ectt-1200">*(IRANK+I-1);</span>
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">if</span>&#x00A0;<span 
class="ectt-1200">(I1&#x003E;0)</span>&#x00A0;<span 
class="ectt-1200">goto</span>&#x00A0;<span 
class="ectt-1200">Deuxcentsoixante;</span>
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">L</span>&#x00A0;<span 
class="ectt-1200">=</span>&#x00A0;<span 
class="ectt-1200">I;</span>
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">I</span>&#x00A0;<span 
class="ectt-1200">=</span>&#x00A0;<span 
class="ectt-1200">-I1;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">}</span>
&#x00A0;<br />
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">//</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">TIDY</span>&#x00A0;<span 
class="ectt-1200">UP</span>&#x00A0;<span 
class="ectt-1200">AND</span>&#x00A0;<span 
class="ectt-1200">CARRY</span>&#x00A0;<span 
class="ectt-1200">ON</span>&#x00A0;<span 
class="ectt-1200">if</span>&#x00A0;<span 
class="ectt-1200">NOT</span>&#x00A0;<span 
class="ectt-1200">FINISHED.</span>
&#x00A0;<br />
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">if</span>&#x00A0;<span 
class="ectt-1200">((I!=0)</span>&#x00A0;<span 
class="ectt-1200">&#x0026;</span>&#x00A0;<span 
class="ectt-1200">(J!=0))</span>&#x00A0;<span 
class="ectt-1200">goto</span>&#x00A0;<span 
class="ectt-1200">Quatrevingt;</span>
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">*(IRANK+L-1)</span>&#x00A0;<span 
class="ectt-1200">=</span>&#x00A0;<span 
class="ectt-1200">0;</span>
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">K</span>&#x00A0;<span 
class="ectt-1200">=</span>&#x00A0;<span 
class="ectt-1200">I</span>&#x00A0;<span 
class="ectt-1200">+</span>&#x00A0;<span 
class="ectt-1200">J;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">if</span>&#x00A0;<span 
class="ectt-1200">(ILIST&#x003E;0)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">{</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">*(IRANK+NLAST-1)</span>&#x00A0;<span 
class="ectt-1200">=</span>&#x00A0;<span 
class="ectt-1200">-K;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">goto</span>&#x00A0;<span 
class="ectt-1200">Soixante;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">}</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">else</span>&#x00A0;<span 
class="ectt-1200">if</span>&#x00A0;<span 
class="ectt-1200">(K!=0)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">{</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">LIST2</span>&#x00A0;<span 
class="ectt-1200">=</span>&#x00A0;<span 
class="ectt-1200">-K;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">goto</span>&#x00A0;<span 
class="ectt-1200">Soixante;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">}</span>
&#x00A0;<br />
&#x00A0;<br />&#x00A0;<span 
class="ectt-1200">//</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">IF</span>&#x00A0;<span 
class="ectt-1200">DESCENDING,</span>&#x00A0;<span 
class="ectt-1200">REVERSE</span>&#x00A0;<span 
class="ectt-1200">ALL</span>&#x00A0;<span 
class="ectt-1200">POINTERS</span>&#x00A0;<span 
class="ectt-1200">BETWEEN</span>&#x00A0;<span 
class="ectt-1200">EQUALITY</span>
&#x00A0;<br />&#x00A0;<span 
class="ectt-1200">//</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">BLOCKS.</span>
&#x00A0;<br />
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">Deuxcentquatrevingt:</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">if</span>&#x00A0;<span 
class="ectt-1200">((ORDER==&#x0022;D&#x0022;)</span>&#x00A0;<span 
class="ectt-1200">|</span>&#x00A0;<span 
class="ectt-1200">(ORDER==&#x0022;d&#x0022;))</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">{</span>
&#x00A0;<br /><span 
class="ectt-1200">I</span>&#x00A0;<span 
class="ectt-1200">=</span>&#x00A0;<span 
class="ectt-1200">0;</span>
&#x00A0;<br /><span 
class="ectt-1200">J</span>&#x00A0;<span 
class="ectt-1200">=</span>&#x00A0;<span 
class="ectt-1200">-LIST1;</span>
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">Troiscent:</span>
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">K</span>&#x00A0;<span 
class="ectt-1200">=</span>&#x00A0;<span 
class="ectt-1200">J;</span>
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">K1</span>&#x00A0;<span 
class="ectt-1200">=</span>&#x00A0;<span 
class="ectt-1200">K;</span>
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">A</span>&#x00A0;<span 
class="ectt-1200">=</span>&#x00A0;<span 
class="ectt-1200">RV(K,1);</span>

&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">Troiscentvingt:</span>
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">K</span>&#x00A0;<span 
class="ectt-1200">=</span>&#x00A0;<span 
class="ectt-1200">K1;</span>
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">K1</span>&#x00A0;<span 
class="ectt-1200">=</span>&#x00A0;<span 
class="ectt-1200">*(IRANK+K-1);</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">if</span>&#x00A0;<span 
class="ectt-1200">(K1!=0)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">{</span>
&#x00A0;<br /><span 
class="ectt-1200">if</span>&#x00A0;<span 
class="ectt-1200">(A==RV(K1,1))</span>&#x00A0;<span 
class="ectt-1200">goto</span>&#x00A0;<span 
class="ectt-1200">Troiscentvingt;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">}</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">*(IRANK+K-1)</span>&#x00A0;<span 
class="ectt-1200">=</span>&#x00A0;<span 
class="ectt-1200">I;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">I</span>&#x00A0;<span 
class="ectt-1200">=</span>&#x00A0;<span 
class="ectt-1200">J;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">J</span>&#x00A0;<span 
class="ectt-1200">=</span>&#x00A0;<span 
class="ectt-1200">K1;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">if</span>&#x00A0;<span 
class="ectt-1200">(J!=0)</span>&#x00A0;<span 
class="ectt-1200">goto</span>&#x00A0;<span 
class="ectt-1200">Troiscent;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">LIST1</span>&#x00A0;<span 
class="ectt-1200">=</span>&#x00A0;<span 
class="ectt-1200">-I;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">}</span>
&#x00A0;<br />
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">//</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">CONVERT</span>&#x00A0;<span 
class="ectt-1200">THE</span>&#x00A0;<span 
class="ectt-1200">LIST</span>&#x00A0;<span 
class="ectt-1200">FORM</span>&#x00A0;<span 
class="ectt-1200">TO</span>&#x00A0;<span 
class="ectt-1200">RANKS</span>&#x00A0;<span 
class="ectt-1200">AND</span>&#x00A0;<span 
class="ectt-1200">RETURN.</span>
&#x00A0;<br />
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">K</span>&#x00A0;<span 
class="ectt-1200">=</span>&#x00A0;<span 
class="ectt-1200">M1;</span>
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">I</span>&#x00A0;<span 
class="ectt-1200">=</span>&#x00A0;<span 
class="ectt-1200">-LIST1;</span>
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">Troiscentquarante:</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">I1</span>&#x00A0;<span 
class="ectt-1200">=</span>&#x00A0;<span 
class="ectt-1200">*(IRANK+I-1);</span>
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">*(IRANK+I-1)</span>&#x00A0;<span 
class="ectt-1200">=</span>&#x00A0;<span 
class="ectt-1200">K;</span>
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">K</span>&#x00A0;<span 
class="ectt-1200">=</span>&#x00A0;<span 
class="ectt-1200">K</span>&#x00A0;<span 
class="ectt-1200">+</span>&#x00A0;<span 
class="ectt-1200">1;</span>
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">I</span>&#x00A0;<span 
class="ectt-1200">=</span>&#x00A0;<span 
class="ectt-1200">I1;</span>
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">if</span>&#x00A0;<span 
class="ectt-1200">(I&#x003E;0)</span>&#x00A0;<span 
class="ectt-1200">goto</span>&#x00A0;<span 
class="ectt-1200">Troiscentquarante;</span>
&#x00A0;<br />
&#x00A0;<br /><span 
class="ectt-1200">}</span>
&#x00A0;<br />
&#x00A0;<br />
&#x00A0;<br />
&#x00A0;<br />
&#x00A0;<br />
&#x00A0;<br />
&#x00A0;<br />
&#x00A0;<br />
</div><span 
class="ecbx-1200">Le fichier </span><span 
class="ecbi-1200">valpmultiv.c</span><div class="verbatiminput">
<span 
class="ectt-1200">/*</span>&#x00A0;<span 
class="ectt-1200">Debut-Commentaires</span>
&#x00A0;<br />
&#x00A0;<br /><span 
class="ectt-1200">Nom</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">la</span>&#x00A0;<span 
class="ectt-1200">fonction:</span>&#x00A0;<span 
class="ectt-1200">valpmultiv</span>
&#x00A0;<br />
&#x00A0;<br /><span 
class="ectt-1200">Entrees:</span>&#x00A0;<span 
class="ectt-1200">b</span>&#x00A0;<span 
class="ectt-1200">double</span>&#x00A0;<span 
class="ectt-1200">facteur</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">lissage,</span>&#x00A0;<span 
class="ectt-1200">q</span>&#x00A0;<span 
class="ectt-1200">entier</span>&#x00A0;<span 
class="ectt-1200">dimension</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">l&#x2019;espace</span>
&#x00A0;<br />

&#x00A0;<br /><span 
class="ectt-1200">Sorties:</span>&#x00A0;<span 
class="ectt-1200">D</span>&#x00A0;<span 
class="ectt-1200">DiagonalMatrix</span>
&#x00A0;<br />
&#x00A0;<br /><span 
class="ectt-1200">Description:</span>
&#x00A0;<br /><span 
class="ectt-1200">Calcule</span>&#x00A0;<span 
class="ectt-1200">la</span>&#x00A0;<span 
class="ectt-1200">matrice</span>&#x00A0;<span 
class="ectt-1200">D</span>&#x00A0;<span 
class="ectt-1200">des</span>&#x00A0;<span 
class="ectt-1200">valeurs</span>&#x00A0;<span 
class="ectt-1200">propres</span>&#x00A0;<span 
class="ectt-1200">pour</span>&#x00A0;<span 
class="ectt-1200">la</span>&#x00A0;<span 
class="ectt-1200">formule</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">cubature</span>&#x00A0;<span 
class="ectt-1200">suivante</span>
&#x00A0;<br /><span 
class="ectt-1200">E_n&#x0302;{r&#x0302;2}:</span>&#x00A0;<span 
class="ectt-1200">7-2</span>&#x00A0;<span 
class="ectt-1200">(n&#x003E;2)</span>&#x00A0;<span 
class="ectt-1200">Degree</span>&#x00A0;<span 
class="ectt-1200">7,</span>&#x00A0;<span 
class="ectt-1200">2&#x0302;{n+1}+4n&#x0302;2</span>&#x00A0;<span 
class="ectt-1200">Points.</span>
&#x00A0;<br />
&#x00A0;<br /><span 
class="ectt-1200">Utilisation</span>&#x00A0;<span 
class="ectt-1200">dans</span>&#x00A0;<span 
class="ectt-1200">une</span>&#x00A0;<span 
class="ectt-1200">fonction</span>&#x00A0;<span 
class="ectt-1200">main:</span>
&#x00A0;<br /><span 
class="ectt-1200">-------------------------------------</span>
&#x00A0;<br />
&#x00A0;<br /><span 
class="ectt-1200">#include</span>&#x00A0;<span 
class="ectt-1200">&#x003C;iostream.h&#x003E;</span>
&#x00A0;<br /><span 
class="ectt-1200">#include&#x003C;math.h&#x003E;</span>
&#x00A0;<br /><span 
class="ectt-1200">#define</span>&#x00A0;<span 
class="ectt-1200">WANT_STREAM</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">//</span>&#x00A0;<span 
class="ectt-1200">include.h</span>&#x00A0;<span 
class="ectt-1200">will</span>&#x00A0;<span 
class="ectt-1200">get</span>&#x00A0;<span 
class="ectt-1200">stream</span>&#x00A0;<span 
class="ectt-1200">fns</span>
&#x00A0;<br /><span 
class="ectt-1200">#define</span>&#x00A0;<span 
class="ectt-1200">WANT_MATH</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">//</span>&#x00A0;<span 
class="ectt-1200">include.h</span>&#x00A0;<span 
class="ectt-1200">will</span>&#x00A0;<span 
class="ectt-1200">get</span>&#x00A0;<span 
class="ectt-1200">math</span>&#x00A0;<span 
class="ectt-1200">fns</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">//</span>&#x00A0;<span 
class="ectt-1200">newmatap.h</span>&#x00A0;<span 
class="ectt-1200">will</span>&#x00A0;<span 
class="ectt-1200">get</span>&#x00A0;<span 
class="ectt-1200">include.h</span>
&#x00A0;<br /><span 
class="ectt-1200">#include</span>&#x00A0;<span 
class="ectt-1200">&#x0022;newmatap.h&#x0022;</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">//</span>&#x00A0;<span 
class="ectt-1200">need</span>&#x00A0;<span 
class="ectt-1200">matrix</span>&#x00A0;<span 
class="ectt-1200">applications</span>
&#x00A0;<br />
&#x00A0;<br /><span 
class="ectt-1200">#include</span>&#x00A0;<span 
class="ectt-1200">&#x0022;newmatio.h&#x0022;</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">//</span>&#x00A0;<span 
class="ectt-1200">need</span>&#x00A0;<span 
class="ectt-1200">matrix</span>&#x00A0;<span 
class="ectt-1200">output</span>&#x00A0;<span 
class="ectt-1200">routines</span>
&#x00A0;<br />
&#x00A0;<br /><span 
class="ectt-1200">#ifdef</span>&#x00A0;<span 
class="ectt-1200">use_namespace</span>
&#x00A0;<br /><span 
class="ectt-1200">using</span>&#x00A0;<span 
class="ectt-1200">namespace</span>&#x00A0;<span 
class="ectt-1200">NEWMAT;</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">//</span>&#x00A0;<span 
class="ectt-1200">access</span>&#x00A0;<span 
class="ectt-1200">NEWMAT</span>&#x00A0;<span 
class="ectt-1200">namespace</span>
&#x00A0;<br /><span 
class="ectt-1200">#endif</span>
&#x00A0;<br /><span 
class="ectt-1200">#include</span>&#x00A0;<span 
class="ectt-1200">&#x0022;binarycode.c&#x0022;</span>
&#x00A0;<br /><span 
class="ectt-1200">#include</span>&#x00A0;<span 
class="ectt-1200">&#x0022;valpmultiv.c&#x0022;</span>
&#x00A0;<br />
&#x00A0;<br /><span 
class="ectt-1200">int</span>&#x00A0;<span 
class="ectt-1200">main()</span>
&#x00A0;<br />
&#x00A0;<br /><span 
class="ectt-1200">{</span>
&#x00A0;<br />
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">DiagonalMatrix</span>&#x00A0;<span 
class="ectt-1200">valpmultiv(double</span>&#x00A0;<span 
class="ectt-1200">b,</span>&#x00A0;<span 
class="ectt-1200">int</span>&#x00A0;<span 
class="ectt-1200">q);</span>
&#x00A0;<br />
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">double</span>&#x00A0;<span 
class="ectt-1200">b;</span>
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">int</span>&#x00A0;<span 
class="ectt-1200">q;</span>
&#x00A0;<br />
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">b=0.7;</span>
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">q=3;</span>
&#x00A0;<br />
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">DiagonalMatrix</span>&#x00A0;<span 
class="ectt-1200">D(2*(2*q+(int)pow(2,q)+2*(int)pow(q,2)-2*q));</span>
&#x00A0;<br />
&#x00A0;<br />
&#x00A0;<br />
&#x00A0;<br />
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">D=valpmultiv(b,q);</span>
&#x00A0;<br />

&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">cout</span>&#x00A0;<span 
class="ectt-1200">&#x003C;&#x003C;</span>&#x00A0;<span 
class="ectt-1200">&#x0022;Affichage</span>&#x00A0;<span 
class="ectt-1200">des</span>&#x00A0;<span 
class="ectt-1200">valeurs</span>&#x00A0;<span 
class="ectt-1200">propres\n&#x0022;;</span>
&#x00A0;<br />
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">cout</span>&#x00A0;<span 
class="ectt-1200">&#x003C;&#x003C;</span>&#x00A0;<span 
class="ectt-1200">D;</span>
&#x00A0;<br />
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">cout</span>&#x00A0;<span 
class="ectt-1200">&#x003C;&#x003C;</span>&#x00A0;<span 
class="ectt-1200">&#x0022;\n&#x0022;;</span>
&#x00A0;<br />
&#x00A0;<br />
&#x00A0;<br /><span 
class="ectt-1200">return(0);</span>
&#x00A0;<br />
&#x00A0;<br /><span 
class="ectt-1200">}</span>
&#x00A0;<br />
&#x00A0;<br />
&#x00A0;<br /><span 
class="ectt-1200">-------------------------------------</span>
&#x00A0;<br />
&#x00A0;<br /><span 
class="ectt-1200">Instructions</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">compilation:</span>
&#x00A0;<br /><span 
class="ectt-1200">g++</span>&#x00A0;<span 
class="ectt-1200">-Wall</span>&#x00A0;<span 
class="ectt-1200">-O</span>&#x00A0;<span 
class="ectt-1200">nom_du_fichier_contenant_la_fonction_main.cc</span>&#x00A0;<span 
class="ectt-1200">-L.</span>&#x00A0;<span 
class="ectt-1200">-lnewmat</span>
&#x00A0;<br />
&#x00A0;<br /><span 
class="ectt-1200">Fonctions</span>&#x00A0;<span 
class="ectt-1200">exterieures</span>&#x00A0;<span 
class="ectt-1200">appelees:</span>
&#x00A0;<br /><span 
class="ectt-1200">binarycode,</span>&#x00A0;<span 
class="ectt-1200">Absolute,</span>&#x00A0;<span 
class="ectt-1200">et</span>&#x00A0;<span 
class="ectt-1200">aussi</span>&#x00A0;<span 
class="ectt-1200">la</span>&#x00A0;<span 
class="ectt-1200">librairie</span>&#x00A0;<span 
class="ectt-1200">libnewmat.a</span>&#x00A0;<span 
class="ectt-1200">et</span>&#x00A0;<span 
class="ectt-1200">les</span>&#x00A0;<span 
class="ectt-1200">fichiers</span>&#x00A0;<span 
class="ectt-1200">qui</span>&#x00A0;<span 
class="ectt-1200">vont</span>&#x00A0;<span 
class="ectt-1200">avec</span>&#x00A0;<span 
class="ectt-1200">cette</span>&#x00A0;<span 
class="ectt-1200">librairie:</span>
&#x00A0;<br /><span 
class="ectt-1200">newmatap.h,</span>&#x00A0;<span 
class="ectt-1200">newmatio.h,</span>&#x00A0;<span 
class="ectt-1200">newmat.h,</span>&#x00A0;<span 
class="ectt-1200">include.h,</span>&#x00A0;<span 
class="ectt-1200">boolean.h,</span>&#x00A0;<span 
class="ectt-1200">myexcept.h</span>
&#x00A0;<br />
&#x00A0;<br /><span 
class="ectt-1200">Auteur:</span>&#x00A0;<span 
class="ectt-1200">Pierre</span>&#x00A0;<span 
class="ectt-1200">Lafaye</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">Micheaux</span>
&#x00A0;<br />
&#x00A0;<br /><span 
class="ectt-1200">Date:</span>&#x00A0;<span 
class="ectt-1200">24/08/2002</span>
&#x00A0;<br />
&#x00A0;<br /><span 
class="ectt-1200">Fin-Commentaires</span>&#x00A0;<span 
class="ectt-1200">*/</span>
&#x00A0;<br /><span 
class="ectt-1200">#define</span>&#x00A0;<span 
class="ectt-1200">WANT_STREAM</span>
&#x00A0;<br /><span 
class="ectt-1200">#define</span>&#x00A0;<span 
class="ectt-1200">WANT_MATH</span>
&#x00A0;<br /><span 
class="ectt-1200">#define</span>&#x00A0;<span 
class="ectt-1200">WANT_TIME</span>
&#x00A0;<br />
&#x00A0;<br /><span 
class="ectt-1200">#include</span>&#x00A0;<span 
class="ectt-1200">&#x0022;./include/include.h&#x0022;</span>
&#x00A0;<br /><span 
class="ectt-1200">#include</span>&#x00A0;<span 
class="ectt-1200">&#x0022;./include/newran.h&#x0022;</span>
&#x00A0;<br /><span 
class="ectt-1200">#include</span>&#x00A0;<span 
class="ectt-1200">&#x0022;./include/tryrand.h&#x0022;</span>
&#x00A0;<br />
&#x00A0;<br /><span 
class="ectt-1200">#ifdef</span>&#x00A0;<span 
class="ectt-1200">use_namespace</span>
&#x00A0;<br /><span 
class="ectt-1200">using</span>&#x00A0;<span 
class="ectt-1200">namespace</span>&#x00A0;<span 
class="ectt-1200">NEWRAN;</span>
&#x00A0;<br /><span 
class="ectt-1200">#endif</span>
&#x00A0;<br />
&#x00A0;<br />
&#x00A0;<br /><span 
class="ectt-1200">#include</span>&#x00A0;<span 
class="ectt-1200">&#x0022;gauher.c&#x0022;</span>
&#x00A0;<br />
&#x00A0;<br />
&#x00A0;<br /><span 
class="ectt-1200">DiagonalMatrix</span>&#x00A0;<span 
class="ectt-1200">valpmultiv(double</span>&#x00A0;<span 
class="ectt-1200">b,</span>&#x00A0;<span 
class="ectt-1200">int</span>&#x00A0;<span 
class="ectt-1200">q,</span>&#x00A0;<span 
class="ectt-1200">int</span>&#x00A0;<span 
class="ectt-1200">choix,</span>&#x00A0;<span 
class="ectt-1200">int</span>&#x00A0;<span 
class="ectt-1200">N,</span>&#x00A0;<span 
class="ectt-1200">double</span>&#x00A0;<span 
class="ectt-1200">prec,</span>&#x00A0;<span 
class="ectt-1200">int</span>&#x00A0;<span 
class="ectt-1200">MAXIT)</span>

&#x00A0;<br />
&#x00A0;<br /><span 
class="ectt-1200">{</span>
&#x00A0;<br />
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">//Declaration</span>&#x00A0;<span 
class="ectt-1200">des</span>&#x00A0;<span 
class="ectt-1200">variables</span>
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">int</span>&#x00A0;<span 
class="ectt-1200">i,</span>&#x00A0;<span 
class="ectt-1200">j,</span>&#x00A0;<span 
class="ectt-1200">k;</span>
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">Matrix</span>&#x00A0;<span 
class="ectt-1200">poids(N,1);</span>
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">Matrix</span>&#x00A0;<span 
class="ectt-1200">Ddemi(N,N);</span>
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">Ddemi=0.0;</span>
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">SymmetricMatrix</span>&#x00A0;<span 
class="ectt-1200">DKD(N);</span>
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">DiagonalMatrix</span>&#x00A0;<span 
class="ectt-1200">D(N);</span>
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">Matrix</span>&#x00A0;<span 
class="ectt-1200">abscisses(N,q);</span>
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">Matrix</span>&#x00A0;<span 
class="ectt-1200">poidsetabscisses(N,q+1);</span>
&#x00A0;<br />
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">//Declaration</span>&#x00A0;<span 
class="ectt-1200">des</span>&#x00A0;<span 
class="ectt-1200">fonctions</span>
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">Matrix</span>&#x00A0;<span 
class="ectt-1200">gauher(double</span>&#x00A0;<span 
class="ectt-1200">b,</span>&#x00A0;<span 
class="ectt-1200">int</span>&#x00A0;<span 
class="ectt-1200">N,</span>&#x00A0;<span 
class="ectt-1200">double</span>&#x00A0;<span 
class="ectt-1200">prec,</span>&#x00A0;<span 
class="ectt-1200">int</span>&#x00A0;<span 
class="ectt-1200">MAXIT);</span>
&#x00A0;<br />
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">//----------------------------------------------------------------------------------------</span>
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">//CUBATURE</span>
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">//----------------------------------------------------------------------------------------</span>
&#x00A0;<br />
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">if</span>&#x00A0;<span 
class="ectt-1200">(choix==1)</span>&#x00A0;<span 
class="ectt-1200">{</span>
&#x00A0;<br />
&#x00A0;<br />
&#x00A0;<br />
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">if</span>&#x00A0;<span 
class="ectt-1200">(q==1)</span>
&#x00A0;<br />
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">{</span>
&#x00A0;<br />
&#x00A0;<br />
&#x00A0;<br />
&#x00A0;<br />
&#x00A0;<br /><span 
class="ectt-1200">poidsetabscisses=gauher(b,N,prec,MAXIT);</span>
&#x00A0;<br />
&#x00A0;<br /><span 
class="ectt-1200">poids=poidsetabscisses.SubMatrix(1,N,q+1,q+1);</span>
&#x00A0;<br />
&#x00A0;<br /><span 
class="ectt-1200">abscisses=poidsetabscisses.SubMatrix(1,N,1,q);</span>
&#x00A0;<br />
&#x00A0;<br />
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">}</span>
&#x00A0;<br /><span 
class="ectt-1200">//fin</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">if</span>&#x00A0;<span 
class="ectt-1200">q==1</span>
&#x00A0;<br />
&#x00A0;<br />
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">if</span>&#x00A0;<span 
class="ectt-1200">(q==2)</span>

&#x00A0;<br />
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">{</span>
&#x00A0;<br />
&#x00A0;<br />
&#x00A0;<br /><span 
class="ectt-1200">int</span>&#x00A0;<span 
class="ectt-1200">cuba;</span>
&#x00A0;<br />
&#x00A0;<br /><span 
class="ectt-1200">//Choix</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">la</span>&#x00A0;<span 
class="ectt-1200">cubature</span>&#x00A0;<span 
class="ectt-1200">du</span>&#x00A0;<span 
class="ectt-1200">plan</span>
&#x00A0;<br /><span 
class="ectt-1200">cuba=1;</span>
&#x00A0;<br />
&#x00A0;<br />
&#x00A0;<br /><span 
class="ectt-1200">if</span>&#x00A0;<span 
class="ectt-1200">(cuba==1)</span>
&#x00A0;<br />
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">{</span>
&#x00A0;<br /><span 
class="ectt-1200">//E_2&#x0302;(r&#x0302;2)</span>&#x00A0;<span 
class="ectt-1200">:</span>&#x00A0;<span 
class="ectt-1200">15-1.</span>&#x00A0;<span 
class="ectt-1200">Degree</span>&#x00A0;<span 
class="ectt-1200">15,</span>&#x00A0;<span 
class="ectt-1200">44</span>&#x00A0;<span 
class="ectt-1200">Points</span>&#x00A0;<span 
class="ectt-1200">dans</span>&#x00A0;<span 
class="ectt-1200">Stroud</span>&#x00A0;<span 
class="ectt-1200">(1971)</span>&#x00A0;<span 
class="ectt-1200">p.326</span>
&#x00A0;<br />
&#x00A0;<br /><span 
class="ectt-1200">double</span>&#x00A0;<span 
class="ectt-1200">s1,s2,s3,s4,s5,s6,s7,s8,s9;</span>
&#x00A0;<br /><span 
class="ectt-1200">double</span>&#x00A0;<span 
class="ectt-1200">r1,r2,r3,r4,r5,r6,r7,r8,r9;</span>
&#x00A0;<br /><span 
class="ectt-1200">double</span>&#x00A0;<span 
class="ectt-1200">B1,B2,B3,B4,B5,B6,B7,B8,B9;</span>
&#x00A0;<br />
&#x00A0;<br />
&#x00A0;<br /><span 
class="ectt-1200">r1=3.53838872812180699759844816420977;</span>
&#x00A0;<br /><span 
class="ectt-1200">s1=0.0;</span>
&#x00A0;<br /><span 
class="ectt-1200">B1=8.00648356965962968878302657382053*pow(10,-6);</span>
&#x00A0;<br />
&#x00A0;<br /><span 
class="ectt-1200">r2=2.35967641687792858456109163436214;</span>
&#x00A0;<br /><span 
class="ectt-1200">s2=0.0;</span>
&#x00A0;<br /><span 
class="ectt-1200">B2=3.60457742083826400410253786082198*pow(10,-3);</span>
&#x00A0;<br />
&#x00A0;<br /><span 
class="ectt-1200">r3=1.31280184462092663946003191058349;</span>
&#x00A0;<br /><span 
class="ectt-1200">s3=0.0;</span>
&#x00A0;<br /><span 
class="ectt-1200">B3=0.118760933075913674443102663431639;</span>
&#x00A0;<br />
&#x00A0;<br /><span 
class="ectt-1200">r4=0.538955948211420514863252356676544;</span>
&#x00A0;<br /><span 
class="ectt-1200">s4=0.0;</span>
&#x00A0;<br /><span 
class="ectt-1200">B4=0.437248854379140237467918223689153;</span>
&#x00A0;<br />
&#x00A0;<br /><span 
class="ectt-1200">r5=2.30027994980565789465239975311549;</span>
&#x00A0;<br /><span 
class="ectt-1200">s5=2.30027994980565789465239975311549;</span>
&#x00A0;<br /><span 
class="ectt-1200">B5=3.67173507583298936096131754975575*pow(10,-5);</span>
&#x00A0;<br />
&#x00A0;<br /><span 
class="ectt-1200">r6=1.58113883008418966599944677221635;</span>
&#x00A0;<br /><span 
class="ectt-1200">s6=1.58113883008418966599944677221635;</span>
&#x00A0;<br /><span 
class="ectt-1200">B6=5.65486677646162782923275808990310*pow(10,-3);</span>

&#x00A0;<br />
&#x00A0;<br /><span 
class="ectt-1200">r7=0.841850433581927898923665650469697;</span>
&#x00A0;<br /><span 
class="ectt-1200">s7=0.841850433581927898923665650469697;</span>
&#x00A0;<br /><span 
class="ectt-1200">B7=0.177777426842423967403376002318122;</span>
&#x00A0;<br />
&#x00A0;<br /><span 
class="ectt-1200">r8=2.68553358175534090063094214167163;</span>
&#x00A0;<br /><span 
class="ectt-1200">s8=1.11238443177145724971821342047472;</span>
&#x00A0;<br /><span 
class="ectt-1200">B8=2.73544964785329001953807301017241*pow(10,-4);</span>
&#x00A0;<br />
&#x00A0;<br /><span 
class="ectt-1200">r9=1.74084751439740260707930075663572;</span>
&#x00A0;<br /><span 
class="ectt-1200">s9=0.721082650486896005766801022499833;</span>
&#x00A0;<br /><span 
class="ectt-1200">B9=0.0208798455693859454703613248130647;</span>
&#x00A0;<br />
&#x00A0;<br /><span 
class="ectt-1200">abscisses(1,1)=r1;</span>
&#x00A0;<br /><span 
class="ectt-1200">abscisses(1,2)=s1;</span>
&#x00A0;<br /><span 
class="ectt-1200">poids(1,1)=B1;</span>
&#x00A0;<br />
&#x00A0;<br /><span 
class="ectt-1200">abscisses(2,1)=r2;</span>
&#x00A0;<br /><span 
class="ectt-1200">abscisses(2,2)=s2;</span>
&#x00A0;<br /><span 
class="ectt-1200">poids(2,1)=B2;</span>
&#x00A0;<br />
&#x00A0;<br /><span 
class="ectt-1200">abscisses(3,1)=r3;</span>
&#x00A0;<br /><span 
class="ectt-1200">abscisses(3,2)=s3;</span>
&#x00A0;<br /><span 
class="ectt-1200">poids(3,1)=B3;</span>
&#x00A0;<br />
&#x00A0;<br /><span 
class="ectt-1200">abscisses(4,1)=r4;</span>
&#x00A0;<br /><span 
class="ectt-1200">abscisses(4,2)=s4;</span>
&#x00A0;<br /><span 
class="ectt-1200">poids(4,1)=B4;</span>
&#x00A0;<br />
&#x00A0;<br /><span 
class="ectt-1200">abscisses(5,1)=r5;</span>
&#x00A0;<br /><span 
class="ectt-1200">abscisses(5,2)=s5;</span>
&#x00A0;<br /><span 
class="ectt-1200">poids(5,1)=B5;</span>
&#x00A0;<br />
&#x00A0;<br /><span 
class="ectt-1200">abscisses(6,1)=r6;</span>
&#x00A0;<br /><span 
class="ectt-1200">abscisses(6,2)=s6;</span>
&#x00A0;<br /><span 
class="ectt-1200">poids(6,1)=B6;</span>
&#x00A0;<br />
&#x00A0;<br /><span 
class="ectt-1200">abscisses(7,1)=r7;</span>
&#x00A0;<br /><span 
class="ectt-1200">abscisses(7,2)=s7;</span>
&#x00A0;<br /><span 
class="ectt-1200">poids(7,1)=B7;</span>
&#x00A0;<br />
&#x00A0;<br /><span 
class="ectt-1200">abscisses(8,1)=r8;</span>
&#x00A0;<br /><span 
class="ectt-1200">abscisses(8,2)=s8;</span>

&#x00A0;<br /><span 
class="ectt-1200">poids(8,1)=B8;</span>
&#x00A0;<br />
&#x00A0;<br /><span 
class="ectt-1200">abscisses(9,1)=r9;</span>
&#x00A0;<br /><span 
class="ectt-1200">abscisses(9,2)=s9;</span>
&#x00A0;<br /><span 
class="ectt-1200">poids(9,1)=B9;</span>
&#x00A0;<br />
&#x00A0;<br /><span 
class="ectt-1200">abscisses(10,1)=r5;</span>
&#x00A0;<br /><span 
class="ectt-1200">abscisses(10,2)=-s5;</span>
&#x00A0;<br /><span 
class="ectt-1200">poids(10,1)=B5;</span>
&#x00A0;<br />
&#x00A0;<br /><span 
class="ectt-1200">abscisses(11,1)=r6;</span>
&#x00A0;<br /><span 
class="ectt-1200">abscisses(11,2)=-s6;</span>
&#x00A0;<br /><span 
class="ectt-1200">poids(11,1)=B6;</span>
&#x00A0;<br />
&#x00A0;<br /><span 
class="ectt-1200">abscisses(12,1)=r7;</span>
&#x00A0;<br /><span 
class="ectt-1200">abscisses(12,2)=-s7;</span>
&#x00A0;<br /><span 
class="ectt-1200">poids(12,1)=B7;</span>
&#x00A0;<br />
&#x00A0;<br /><span 
class="ectt-1200">abscisses(13,1)=r8;</span>
&#x00A0;<br /><span 
class="ectt-1200">abscisses(13,2)=-s8;</span>
&#x00A0;<br /><span 
class="ectt-1200">poids(13,1)=B8;</span>
&#x00A0;<br />
&#x00A0;<br /><span 
class="ectt-1200">abscisses(14,1)=r9;</span>
&#x00A0;<br /><span 
class="ectt-1200">abscisses(14,2)=-s9;</span>
&#x00A0;<br /><span 
class="ectt-1200">poids(14,1)=B9;</span>
&#x00A0;<br />
&#x00A0;<br /><span 
class="ectt-1200">abscisses(15,1)=-r1;</span>
&#x00A0;<br /><span 
class="ectt-1200">abscisses(15,2)=s1;</span>
&#x00A0;<br /><span 
class="ectt-1200">poids(15,1)=B1;</span>
&#x00A0;<br />
&#x00A0;<br /><span 
class="ectt-1200">abscisses(16,1)=-r2;</span>
&#x00A0;<br /><span 
class="ectt-1200">abscisses(16,2)=s2;</span>
&#x00A0;<br /><span 
class="ectt-1200">poids(16,1)=B2;</span>
&#x00A0;<br />
&#x00A0;<br /><span 
class="ectt-1200">abscisses(17,1)=-r3;</span>
&#x00A0;<br /><span 
class="ectt-1200">abscisses(17,2)=s3;</span>
&#x00A0;<br /><span 
class="ectt-1200">poids(17,1)=B3;</span>
&#x00A0;<br />
&#x00A0;<br /><span 
class="ectt-1200">abscisses(18,1)=-r4;</span>
&#x00A0;<br /><span 
class="ectt-1200">abscisses(18,2)=s4;</span>
&#x00A0;<br /><span 
class="ectt-1200">poids(18,1)=B4;</span>
&#x00A0;<br />
&#x00A0;<br /><span 
class="ectt-1200">abscisses(19,1)=-r5;</span>

&#x00A0;<br /><span 
class="ectt-1200">abscisses(19,2)=s5;</span>
&#x00A0;<br /><span 
class="ectt-1200">poids(19,1)=B5;</span>
&#x00A0;<br />
&#x00A0;<br /><span 
class="ectt-1200">abscisses(20,1)=-r6;</span>
&#x00A0;<br /><span 
class="ectt-1200">abscisses(20,2)=s6;</span>
&#x00A0;<br /><span 
class="ectt-1200">poids(20,1)=B6;</span>
&#x00A0;<br />
&#x00A0;<br /><span 
class="ectt-1200">abscisses(21,1)=-r7;</span>
&#x00A0;<br /><span 
class="ectt-1200">abscisses(21,2)=s7;</span>
&#x00A0;<br /><span 
class="ectt-1200">poids(21,1)=B7;</span>
&#x00A0;<br />
&#x00A0;<br /><span 
class="ectt-1200">abscisses(22,1)=-r8;</span>
&#x00A0;<br /><span 
class="ectt-1200">abscisses(22,2)=s8;</span>
&#x00A0;<br /><span 
class="ectt-1200">poids(22,1)=B8;</span>
&#x00A0;<br />
&#x00A0;<br /><span 
class="ectt-1200">abscisses(23,1)=-r9;</span>
&#x00A0;<br /><span 
class="ectt-1200">abscisses(23,2)=s9;</span>
&#x00A0;<br /><span 
class="ectt-1200">poids(23,1)=B9;</span>
&#x00A0;<br />
&#x00A0;<br /><span 
class="ectt-1200">abscisses(24,1)=-r5;</span>
&#x00A0;<br /><span 
class="ectt-1200">abscisses(24,2)=-s5;</span>
&#x00A0;<br /><span 
class="ectt-1200">poids(24,1)=B5;</span>
&#x00A0;<br />
&#x00A0;<br /><span 
class="ectt-1200">abscisses(25,1)=-r6;</span>
&#x00A0;<br /><span 
class="ectt-1200">abscisses(25,2)=-s6;</span>
&#x00A0;<br /><span 
class="ectt-1200">poids(25,1)=B6;</span>
&#x00A0;<br />
&#x00A0;<br /><span 
class="ectt-1200">abscisses(26,1)=-r7;</span>
&#x00A0;<br /><span 
class="ectt-1200">abscisses(26,2)=-s7;</span>
&#x00A0;<br /><span 
class="ectt-1200">poids(26,1)=B7;</span>
&#x00A0;<br />
&#x00A0;<br /><span 
class="ectt-1200">abscisses(27,1)=-r8;</span>
&#x00A0;<br /><span 
class="ectt-1200">abscisses(27,2)=-s8;</span>
&#x00A0;<br /><span 
class="ectt-1200">poids(27,1)=B8;</span>
&#x00A0;<br />
&#x00A0;<br /><span 
class="ectt-1200">abscisses(28,1)=-r9;</span>
&#x00A0;<br /><span 
class="ectt-1200">abscisses(28,2)=-s9;</span>
&#x00A0;<br /><span 
class="ectt-1200">poids(28,1)=B9;</span>
&#x00A0;<br />
&#x00A0;<br /><span 
class="ectt-1200">abscisses(29,1)=s1;</span>
&#x00A0;<br /><span 
class="ectt-1200">abscisses(29,2)=r1;</span>
&#x00A0;<br /><span 
class="ectt-1200">poids(29,1)=B1;</span>
&#x00A0;<br />

&#x00A0;<br /><span 
class="ectt-1200">abscisses(30,1)=s2;</span>
&#x00A0;<br /><span 
class="ectt-1200">abscisses(30,2)=r2;</span>
&#x00A0;<br /><span 
class="ectt-1200">poids(30,1)=B2;</span>
&#x00A0;<br />
&#x00A0;<br /><span 
class="ectt-1200">abscisses(31,1)=s3;</span>
&#x00A0;<br /><span 
class="ectt-1200">abscisses(31,2)=r3;</span>
&#x00A0;<br /><span 
class="ectt-1200">poids(31,1)=B3;</span>
&#x00A0;<br />
&#x00A0;<br /><span 
class="ectt-1200">abscisses(32,1)=s4;</span>
&#x00A0;<br /><span 
class="ectt-1200">abscisses(32,2)=r4;</span>
&#x00A0;<br /><span 
class="ectt-1200">poids(32,1)=B4;</span>
&#x00A0;<br />
&#x00A0;<br /><span 
class="ectt-1200">abscisses(33,1)=s8;</span>
&#x00A0;<br /><span 
class="ectt-1200">abscisses(33,2)=r8;</span>
&#x00A0;<br /><span 
class="ectt-1200">poids(33,1)=B8;</span>
&#x00A0;<br />
&#x00A0;<br /><span 
class="ectt-1200">abscisses(34,1)=s9;</span>
&#x00A0;<br /><span 
class="ectt-1200">abscisses(34,2)=r9;</span>
&#x00A0;<br /><span 
class="ectt-1200">poids(34,1)=B9;</span>
&#x00A0;<br />
&#x00A0;<br /><span 
class="ectt-1200">abscisses(35,1)=s1;</span>
&#x00A0;<br /><span 
class="ectt-1200">abscisses(35,2)=-r1;</span>
&#x00A0;<br /><span 
class="ectt-1200">poids(35,1)=B1;</span>
&#x00A0;<br />
&#x00A0;<br /><span 
class="ectt-1200">abscisses(36,1)=s2;</span>
&#x00A0;<br /><span 
class="ectt-1200">abscisses(36,2)=-r2;</span>
&#x00A0;<br /><span 
class="ectt-1200">poids(36,1)=B2;</span>
&#x00A0;<br />
&#x00A0;<br /><span 
class="ectt-1200">abscisses(37,1)=s3;</span>
&#x00A0;<br /><span 
class="ectt-1200">abscisses(37,2)=-r3;</span>
&#x00A0;<br /><span 
class="ectt-1200">poids(37,1)=B3;</span>
&#x00A0;<br />
&#x00A0;<br /><span 
class="ectt-1200">abscisses(38,1)=s4;</span>
&#x00A0;<br /><span 
class="ectt-1200">abscisses(38,2)=-r4;</span>
&#x00A0;<br /><span 
class="ectt-1200">poids(38,1)=B4;</span>
&#x00A0;<br />
&#x00A0;<br /><span 
class="ectt-1200">abscisses(39,1)=s8;</span>
&#x00A0;<br /><span 
class="ectt-1200">abscisses(39,2)=-r8;</span>
&#x00A0;<br /><span 
class="ectt-1200">poids(39,1)=B8;</span>
&#x00A0;<br />
&#x00A0;<br /><span 
class="ectt-1200">abscisses(40,1)=s9;</span>
&#x00A0;<br /><span 
class="ectt-1200">abscisses(40,2)=-r9;</span>
&#x00A0;<br /><span 
class="ectt-1200">poids(40,1)=B9;</span>

&#x00A0;<br />
&#x00A0;<br /><span 
class="ectt-1200">abscisses(41,1)=-s8;</span>
&#x00A0;<br /><span 
class="ectt-1200">abscisses(41,2)=-r8;</span>
&#x00A0;<br /><span 
class="ectt-1200">poids(41,1)=B8;</span>
&#x00A0;<br />
&#x00A0;<br /><span 
class="ectt-1200">abscisses(42,1)=-s9;</span>
&#x00A0;<br /><span 
class="ectt-1200">abscisses(42,2)=-r9;</span>
&#x00A0;<br /><span 
class="ectt-1200">poids(42,1)=B9;</span>
&#x00A0;<br />
&#x00A0;<br /><span 
class="ectt-1200">abscisses(43,1)=-s8;</span>
&#x00A0;<br /><span 
class="ectt-1200">abscisses(43,2)=r8;</span>
&#x00A0;<br /><span 
class="ectt-1200">poids(43,1)=B8;</span>
&#x00A0;<br />
&#x00A0;<br /><span 
class="ectt-1200">abscisses(44,1)=-s9;</span>
&#x00A0;<br /><span 
class="ectt-1200">abscisses(44,2)=r9;</span>
&#x00A0;<br /><span 
class="ectt-1200">poids(44,1)=B9;</span>
&#x00A0;<br />
&#x00A0;<br />
&#x00A0;<br />
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">}</span>
&#x00A0;<br />
&#x00A0;<br />
&#x00A0;<br /><span 
class="ectt-1200">if</span>&#x00A0;<span 
class="ectt-1200">(cuba==2)</span>
&#x00A0;<br />
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">{</span>
&#x00A0;<br />
&#x00A0;<br />
&#x00A0;<br />
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">//Degree</span>&#x00A0;<span 
class="ectt-1200">15,</span>&#x00A0;<span 
class="ectt-1200">44</span>&#x00A0;<span 
class="ectt-1200">Points</span>
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">//Hae76</span>&#x00A0;<span 
class="ectt-1200">A.</span>&#x00A0;<span 
class="ectt-1200">Haegemans,</span>&#x00A0;<span 
class="ectt-1200">Circularly</span>&#x00A0;<span 
class="ectt-1200">symmetrical</span>&#x00A0;<span 
class="ectt-1200">integration</span>&#x00A0;<span 
class="ectt-1200">formulas</span>
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">//for</span>&#x00A0;<span 
class="ectt-1200">two-dimensional</span>&#x00A0;<span 
class="ectt-1200">circularly</span>&#x00A0;<span 
class="ectt-1200">symmetrical</span>&#x00A0;<span 
class="ectt-1200">regions,</span>&#x00A0;<span 
class="ectt-1200">BIT</span>&#x00A0;<span 
class="ectt-1200">16</span>&#x00A0;<span 
class="ectt-1200">(1976),</span>&#x00A0;<span 
class="ectt-1200">52--59.</span>
&#x00A0;<br />
&#x00A0;<br />
&#x00A0;<br /><span 
class="ectt-1200">Matrix</span>&#x00A0;<span 
class="ectt-1200">M(9,4);</span>
&#x00A0;<br />
&#x00A0;<br /><span 
class="ectt-1200">M&#x003C;&#x003C;</span>
&#x00A0;<br />&#x00A0;<span 
class="ectt-1200">1</span>&#x00A0;<span 
class="ectt-1200">&#x003C;&#x003C;</span>&#x00A0;<span 
class="ectt-1200">8</span>&#x00A0;<span 
class="ectt-1200">&#x003C;&#x003C;</span>&#x00A0;<span 
class="ectt-1200">1.88427977148214959597160789463215*pow(10,0)</span>&#x00A0;<span 
class="ectt-1200">&#x003C;&#x003C;</span>&#x00A0;<span 
class="ectt-1200">2.08798455693859454703613248130647*pow(10,-2)</span>&#x00A0;<span 
class="ectt-1200">&#x003C;&#x003C;</span>
&#x00A0;<br />&#x00A0;<span 
class="ectt-1200">2</span>&#x00A0;<span 
class="ectt-1200">&#x003C;&#x003C;</span>&#x00A0;<span 
class="ectt-1200">8</span>&#x00A0;<span 
class="ectt-1200">&#x003C;&#x003C;</span>&#x00A0;<span 
class="ectt-1200">2.90680060251527712149754356676149*pow(10,0)</span>&#x00A0;<span 
class="ectt-1200">&#x003C;&#x003C;</span>&#x00A0;<span 
class="ectt-1200">2.73544964785329001953807301017241*pow(10,-4)</span>&#x00A0;<span 
class="ectt-1200">&#x003C;&#x003C;</span>
&#x00A0;<br />&#x00A0;<span 
class="ectt-1200">3</span>&#x00A0;<span 
class="ectt-1200">&#x003C;&#x003C;</span>&#x00A0;<span 
class="ectt-1200">4</span>&#x00A0;<span 
class="ectt-1200">&#x003C;&#x003C;</span>&#x00A0;<span 
class="ectt-1200">1.19055630066123290136498536710293*pow(10,0)</span>&#x00A0;<span 
class="ectt-1200">&#x003C;&#x003C;</span>&#x00A0;<span 
class="ectt-1200">1.77777426842423967403376002318122*pow(10,-1)</span>&#x00A0;<span 
class="ectt-1200">&#x003C;&#x003C;</span>
&#x00A0;<br />&#x00A0;<span 
class="ectt-1200">4</span>&#x00A0;<span 
class="ectt-1200">&#x003C;&#x003C;</span>&#x00A0;<span 
class="ectt-1200">4</span>&#x00A0;<span 
class="ectt-1200">&#x003C;&#x003C;</span>&#x00A0;<span 
class="ectt-1200">2.23606797749978969640917366873127*pow(10,0)</span>&#x00A0;<span 
class="ectt-1200">&#x003C;&#x003C;</span>&#x00A0;<span 
class="ectt-1200">5.65486677646162782923275808990310*pow(10,-3)</span>&#x00A0;<span 
class="ectt-1200">&#x003C;&#x003C;</span>
&#x00A0;<br />&#x00A0;<span 
class="ectt-1200">5</span>&#x00A0;<span 
class="ectt-1200">&#x003C;&#x003C;</span>&#x00A0;<span 
class="ectt-1200">4</span>&#x00A0;<span 
class="ectt-1200">&#x003C;&#x003C;</span>&#x00A0;<span 
class="ectt-1200">3.25308710227006371908007902786315*pow(10,0)</span>&#x00A0;<span 
class="ectt-1200">&#x003C;&#x003C;</span>&#x00A0;<span 
class="ectt-1200">3.67173507583298936096131754975575*pow(10,-5)</span>&#x00A0;<span 
class="ectt-1200">&#x003C;&#x003C;</span>
&#x00A0;<br />&#x00A0;<span 
class="ectt-1200">6</span>&#x00A0;<span 
class="ectt-1200">&#x003C;&#x003C;</span>&#x00A0;<span 
class="ectt-1200">4</span>&#x00A0;<span 
class="ectt-1200">&#x003C;&#x003C;</span>&#x00A0;<span 
class="ectt-1200">5.38955948211420514863252356676544*pow(10,-1)</span>&#x00A0;<span 
class="ectt-1200">&#x003C;&#x003C;</span>&#x00A0;<span 
class="ectt-1200">4.37248854379140237467918223689153*pow(10,-1)</span>&#x00A0;<span 
class="ectt-1200">&#x003C;&#x003C;</span>
&#x00A0;<br />&#x00A0;<span 
class="ectt-1200">7</span>&#x00A0;<span 
class="ectt-1200">&#x003C;&#x003C;</span>&#x00A0;<span 
class="ectt-1200">4</span>&#x00A0;<span 
class="ectt-1200">&#x003C;&#x003C;</span>&#x00A0;<span 
class="ectt-1200">1.31280184462092663946003191058349*pow(10,0)</span>&#x00A0;<span 
class="ectt-1200">&#x003C;&#x003C;</span>&#x00A0;<span 
class="ectt-1200">1.18760933075913674443102663431639*pow(10,-1)</span>&#x00A0;<span 
class="ectt-1200">&#x003C;&#x003C;</span>

&#x00A0;<br />&#x00A0;<span 
class="ectt-1200">8</span>&#x00A0;<span 
class="ectt-1200">&#x003C;&#x003C;</span>&#x00A0;<span 
class="ectt-1200">4</span>&#x00A0;<span 
class="ectt-1200">&#x003C;&#x003C;</span>&#x00A0;<span 
class="ectt-1200">2.35967641687792858456109163436214*pow(10,0)</span>&#x00A0;<span 
class="ectt-1200">&#x003C;&#x003C;</span>&#x00A0;<span 
class="ectt-1200">3.60457742083826400410253786082198*pow(10,-3)</span>&#x00A0;<span 
class="ectt-1200">&#x003C;&#x003C;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">9</span>&#x00A0;<span 
class="ectt-1200">&#x003C;&#x003C;</span>&#x00A0;<span 
class="ectt-1200">4</span>&#x00A0;<span 
class="ectt-1200">&#x003C;&#x003C;</span>&#x00A0;<span 
class="ectt-1200">3.53838872812180699759844816420977*pow(10,0)</span>&#x00A0;<span 
class="ectt-1200">&#x003C;&#x003C;</span>&#x00A0;<span 
class="ectt-1200">8.00648356965962968878302657382053*pow(10,-6);</span>
&#x00A0;<br />
&#x00A0;<br />
&#x00A0;<br /><span 
class="ectt-1200">int</span>&#x00A0;<span 
class="ectt-1200">somme,</span>&#x00A0;<span 
class="ectt-1200">somme2;</span>
&#x00A0;<br /><span 
class="ectt-1200">somme=0;</span>
&#x00A0;<br /><span 
class="ectt-1200">somme2=0;</span>
&#x00A0;<br />
&#x00A0;<br /><span 
class="ectt-1200">for</span>&#x00A0;<span 
class="ectt-1200">(i=1;i&#x003C;=(M.Nrows());i=i+1)</span>
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">{</span>
&#x00A0;<br />
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">for</span>&#x00A0;<span 
class="ectt-1200">(j=1;j&#x003C;=((int)M(i,2));j=j+1)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">{</span>
&#x00A0;<br /><span 
class="ectt-1200">poids(somme+j,1)=M(i,4);</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">}</span>
&#x00A0;<br />
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">somme2=0;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">for</span>&#x00A0;<span 
class="ectt-1200">(j=1;j&#x003C;=((int)M(i,2)/4);j=j+1)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">{</span>
&#x00A0;<br /><span 
class="ectt-1200">for</span>&#x00A0;<span 
class="ectt-1200">(k=1;k&#x003C;=4;k=k+1)</span>
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">{</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">abscisses(somme+somme2+k,1)=M(i,3)*cos((k-1)*pi/2.0);</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">abscisses(somme+somme2+k,2)=M(i,3)*sin((k-1)*pi/2.0);</span>
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">}</span>
&#x00A0;<br /><span 
class="ectt-1200">somme2=somme2+((int)M(i,2))/4;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">}</span>
&#x00A0;<br />
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">somme=somme+(int)M(i,2);</span>
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">}</span>
&#x00A0;<br />
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">}</span>
&#x00A0;<br />
&#x00A0;<br />
&#x00A0;<br /><span 
class="ectt-1200">if</span>&#x00A0;<span 
class="ectt-1200">(cuba==3)</span>
&#x00A0;<br />
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">{</span>
&#x00A0;<br />
&#x00A0;<br />
&#x00A0;<br />
&#x00A0;<br />
&#x00A0;<br /><span 
class="ectt-1200">//</span>&#x00A0;<span 
class="ectt-1200">Degree</span>&#x00A0;<span 
class="ectt-1200">31,</span>&#x00A0;<span 
class="ectt-1200">172</span>&#x00A0;<span 
class="ectt-1200">Points</span>
&#x00A0;<br /><span 
class="ectt-1200">//Hae75</span>&#x00A0;<span 
class="ectt-1200">A.</span>&#x00A0;<span 
class="ectt-1200">Haegemans,</span>&#x00A0;<span 
class="ectt-1200">Tables</span>&#x00A0;<span 
class="ectt-1200">of</span>&#x00A0;<span 
class="ectt-1200">circularly</span>&#x00A0;<span 
class="ectt-1200">symmetrical</span>&#x00A0;<span 
class="ectt-1200">integration</span>&#x00A0;<span 
class="ectt-1200">formulas</span>&#x00A0;<span 
class="ectt-1200">of</span>&#x00A0;<span 
class="ectt-1200">degree</span>&#x00A0;<span 
class="ectt-1200">2d-1</span>
&#x00A0;<br /><span 
class="ectt-1200">//for</span>&#x00A0;<span 
class="ectt-1200">two-dimensional</span>&#x00A0;<span 
class="ectt-1200">circularly</span>&#x00A0;<span 
class="ectt-1200">symmetrical</span>&#x00A0;<span 
class="ectt-1200">regions,</span>&#x00A0;<span 
class="ectt-1200">Report</span>&#x00A0;<span 
class="ectt-1200">TW</span>&#x00A0;<span 
class="ectt-1200">27,</span>&#x00A0;<span 
class="ectt-1200">K.U.</span>&#x00A0;<span 
class="ectt-1200">Leuven</span>&#x00A0;<span 
class="ectt-1200">Applied</span>&#x00A0;<span 
class="ectt-1200">Mathematics</span>

&#x00A0;<br /><span 
class="ectt-1200">//and</span>&#x00A0;<span 
class="ectt-1200">Programming</span>&#x00A0;<span 
class="ectt-1200">Division,</span>&#x00A0;<span 
class="ectt-1200">1975.</span>
&#x00A0;<br />
&#x00A0;<br /><span 
class="ectt-1200">Matrix</span>&#x00A0;<span 
class="ectt-1200">M(25,4);</span>
&#x00A0;<br />
&#x00A0;<br />
&#x00A0;<br /><span 
class="ectt-1200">M&#x003C;&#x003C;</span>&#x00A0;<span 
class="ectt-1200">1</span>&#x00A0;<span 
class="ectt-1200">&#x003C;&#x003C;</span>&#x00A0;<span 
class="ectt-1200">16</span>&#x00A0;<span 
class="ectt-1200">&#x003C;&#x003C;</span>&#x00A0;<span 
class="ectt-1200">2.19342435218571098000852165314022*pow(10,0)</span>&#x00A0;<span 
class="ectt-1200">&#x003C;&#x003C;</span>&#x00A0;<span 
class="ectt-1200">2.73236456089821369938846899455853*pow(10,-3)</span>
&#x00A0;<br /><span 
class="ectt-1200">&#x003C;&#x003C;</span>&#x00A0;<span 
class="ectt-1200">2</span>&#x00A0;<span 
class="ectt-1200">&#x003C;&#x003C;</span>&#x00A0;<span 
class="ectt-1200">16</span>&#x00A0;<span 
class="ectt-1200">&#x003C;&#x003C;</span>&#x00A0;<span 
class="ectt-1200">2.94143072785882658443890464121376*pow(10,0)</span>&#x00A0;<span 
class="ectt-1200">&#x003C;&#x003C;</span>&#x00A0;<span 
class="ectt-1200">7.45882708744579780334967451875029*pow(10,-5)</span>
&#x00A0;<br /><span 
class="ectt-1200">&#x003C;&#x003C;</span>&#x00A0;<span 
class="ectt-1200">3</span>&#x00A0;<span 
class="ectt-1200">&#x003C;&#x003C;</span>&#x00A0;<span 
class="ectt-1200">16</span>&#x00A0;<span 
class="ectt-1200">&#x003C;&#x003C;</span>&#x00A0;<span 
class="ectt-1200">3.70011740521483590909984391822818*pow(10,0)</span>&#x00A0;<span 
class="ectt-1200">&#x003C;&#x003C;</span>&#x00A0;<span 
class="ectt-1200">6.51579202758359447548582435330121*pow(10,-7)</span>
&#x00A0;<br /><span 
class="ectt-1200">&#x003C;&#x003C;</span>&#x00A0;<span 
class="ectt-1200">4</span>&#x00A0;<span 
class="ectt-1200">&#x003C;&#x003C;</span>&#x00A0;<span 
class="ectt-1200">16</span>&#x00A0;<span 
class="ectt-1200">&#x003C;&#x003C;</span>&#x00A0;<span 
class="ectt-1200">4.56574266380320843274636697274591*pow(10,0)</span>&#x00A0;<span 
class="ectt-1200">&#x003C;&#x003C;</span>&#x00A0;<span 
class="ectt-1200">7.75679616707262954339902390779625*pow(10,-10)</span>
&#x00A0;<br /><span 
class="ectt-1200">&#x003C;&#x003C;</span>&#x00A0;<span 
class="ectt-1200">5</span>&#x00A0;<span 
class="ectt-1200">&#x003C;&#x003C;</span>&#x00A0;<span 
class="ectt-1200">8</span>&#x00A0;<span 
class="ectt-1200">&#x003C;&#x003C;</span>&#x00A0;<span 
class="ectt-1200">1.21580764835581239743824121978989*pow(10,0)</span>&#x00A0;<span 
class="ectt-1200">&#x003C;&#x003C;</span>&#x00A0;<span 
class="ectt-1200">6.29510894883832189721267177298424*pow(10,-2)</span>
&#x00A0;<br /><span 
class="ectt-1200">&#x003C;&#x003C;</span>&#x00A0;<span 
class="ectt-1200">6</span>&#x00A0;<span 
class="ectt-1200">&#x003C;&#x003C;</span>&#x00A0;<span 
class="ectt-1200">8</span>&#x00A0;<span 
class="ectt-1200">&#x003C;&#x003C;</span>&#x00A0;<span 
class="ectt-1200">1.75022957356728645712052732323077*pow(10,0)</span>&#x00A0;<span 
class="ectt-1200">&#x003C;&#x003C;</span>&#x00A0;<span 
class="ectt-1200">1.58692609223783075894586018940927*pow(10,-2)</span>
&#x00A0;<br /><span 
class="ectt-1200">&#x003C;&#x003C;</span>&#x00A0;<span 
class="ectt-1200">7</span>&#x00A0;<span 
class="ectt-1200">&#x003C;&#x003C;</span>&#x00A0;<span 
class="ectt-1200">8</span>&#x00A0;<span 
class="ectt-1200">&#x003C;&#x003C;</span>&#x00A0;<span 
class="ectt-1200">2.56265642157773665089210281907111*pow(10,0)</span>&#x00A0;<span 
class="ectt-1200">&#x003C;&#x003C;</span>&#x00A0;<span 
class="ectt-1200">5.27660220867058647807407843938869*pow(10,-4)</span>
&#x00A0;<br /><span 
class="ectt-1200">&#x003C;&#x003C;</span>&#x00A0;<span 
class="ectt-1200">8</span>&#x00A0;<span 
class="ectt-1200">&#x003C;&#x003C;</span>&#x00A0;<span 
class="ectt-1200">8</span>&#x00A0;<span 
class="ectt-1200">&#x003C;&#x003C;</span>&#x00A0;<span 
class="ectt-1200">3.30618113478644619137730123417901*pow(10,0)</span>&#x00A0;<span 
class="ectt-1200">&#x003C;&#x003C;</span>&#x00A0;<span 
class="ectt-1200">8.77872589293851750256952094712742*pow(10,-6)</span>
&#x00A0;<br /><span 
class="ectt-1200">&#x003C;&#x003C;</span>&#x00A0;<span 
class="ectt-1200">9</span>&#x00A0;<span 
class="ectt-1200">&#x003C;&#x003C;</span>&#x00A0;<span 
class="ectt-1200">8</span>&#x00A0;<span 
class="ectt-1200">&#x003C;&#x003C;</span>&#x00A0;<span 
class="ectt-1200">4.10268615562676937418264214216800*pow(10,0)</span>&#x00A0;<span 
class="ectt-1200">&#x003C;&#x003C;</span>&#x00A0;<span 
class="ectt-1200">3.38247075123041995374022839198793*pow(10,-8)</span>
&#x00A0;<br /><span 
class="ectt-1200">&#x003C;&#x003C;</span>&#x00A0;<span 
class="ectt-1200">10</span>&#x00A0;<span 
class="ectt-1200">&#x003C;&#x003C;</span>&#x00A0;<span 
class="ectt-1200">8</span>&#x00A0;<span 
class="ectt-1200">&#x003C;&#x003C;</span>&#x00A0;<span 
class="ectt-1200">5.13066763122356142415670471249892*pow(10,0)</span>&#x00A0;<span 
class="ectt-1200">&#x003C;&#x003C;</span>&#x00A0;<span 
class="ectt-1200">5.26685826507637745552635596537658*pow(10,-12)</span>
&#x00A0;<br /><span 
class="ectt-1200">&#x003C;&#x003C;</span>&#x00A0;<span 
class="ectt-1200">11</span>&#x00A0;<span 
class="ectt-1200">&#x003C;&#x003C;</span>&#x00A0;<span 
class="ectt-1200">4</span>&#x00A0;<span 
class="ectt-1200">&#x003C;&#x003C;</span>&#x00A0;<span 
class="ectt-1200">7.81924734415062654910759895512688*pow(10,-1)</span>&#x00A0;<span 
class="ectt-1200">&#x003C;&#x003C;</span>&#x00A0;<span 
class="ectt-1200">1.67233060864508092720103720312852*pow(10,-1)</span>
&#x00A0;<br /><span 
class="ectt-1200">&#x003C;&#x003C;</span>&#x00A0;<span 
class="ectt-1200">12</span>&#x00A0;<span 
class="ectt-1200">&#x003C;&#x003C;</span>&#x00A0;<span 
class="ectt-1200">4</span>&#x00A0;<span 
class="ectt-1200">&#x003C;&#x003C;</span>&#x00A0;<span 
class="ectt-1200">1.39054046557164805349275297468774*pow(10,0)</span>&#x00A0;<span 
class="ectt-1200">&#x003C;&#x003C;</span>&#x00A0;<span 
class="ectt-1200">3.85569294188414023000355252036718*pow(10,-2)</span>
&#x00A0;<br /><span 
class="ectt-1200">&#x003C;&#x003C;</span>&#x00A0;<span 
class="ectt-1200">13</span>&#x00A0;<span 
class="ectt-1200">&#x003C;&#x003C;</span>&#x00A0;<span 
class="ectt-1200">4</span>&#x00A0;<span 
class="ectt-1200">&#x003C;&#x003C;</span>&#x00A0;<span 
class="ectt-1200">1.81698526640070493276888680298209*pow(10,0)</span>&#x00A0;<span 
class="ectt-1200">&#x003C;&#x003C;</span>&#x00A0;<span 
class="ectt-1200">9.93275640431363439042042900758230*pow(10,-3)</span>
&#x00A0;<br /><span 
class="ectt-1200">&#x003C;&#x003C;</span>&#x00A0;<span 
class="ectt-1200">14</span>&#x00A0;<span 
class="ectt-1200">&#x003C;&#x003C;</span>&#x00A0;<span 
class="ectt-1200">4</span>&#x00A0;<span 
class="ectt-1200">&#x003C;&#x003C;</span>&#x00A0;<span 
class="ectt-1200">2.58066849114911903633979005815686*pow(10,0)</span>&#x00A0;<span 
class="ectt-1200">&#x003C;&#x003C;</span>&#x00A0;<span 
class="ectt-1200">4.80414432703307303553096755498915*pow(10,-4)</span>
&#x00A0;<br /><span 
class="ectt-1200">&#x003C;&#x003C;</span>&#x00A0;<span 
class="ectt-1200">15</span>&#x00A0;<span 
class="ectt-1200">&#x003C;&#x003C;</span>&#x00A0;<span 
class="ectt-1200">4</span>&#x00A0;<span 
class="ectt-1200">&#x003C;&#x003C;</span>&#x00A0;<span 
class="ectt-1200">3.32321802494503855192283519847459*pow(10,0)</span>&#x00A0;<span 
class="ectt-1200">&#x003C;&#x003C;</span>&#x00A0;<span 
class="ectt-1200">7.90743971209622142932287551395032*pow(10,-6)</span>
&#x00A0;<br /><span 
class="ectt-1200">&#x003C;&#x003C;</span>&#x00A0;<span 
class="ectt-1200">16</span>&#x00A0;<span 
class="ectt-1200">&#x003C;&#x003C;</span>&#x00A0;<span 
class="ectt-1200">4</span>&#x00A0;<span 
class="ectt-1200">&#x003C;&#x003C;</span>&#x00A0;<span 
class="ectt-1200">4.12589037924347407669696623400778*pow(10,0)</span>&#x00A0;<span 
class="ectt-1200">&#x003C;&#x003C;</span>&#x00A0;<span 
class="ectt-1200">2.84841137511625856222914116013963*pow(10,-8)</span>
&#x00A0;<br /><span 
class="ectt-1200">&#x003C;&#x003C;</span>&#x00A0;<span 
class="ectt-1200">17</span>&#x00A0;<span 
class="ectt-1200">&#x003C;&#x003C;</span>&#x00A0;<span 
class="ectt-1200">4</span>&#x00A0;<span 
class="ectt-1200">&#x003C;&#x003C;</span>&#x00A0;<span 
class="ectt-1200">5.20116644740776271749685173656130*pow(10,0)</span>&#x00A0;<span 
class="ectt-1200">&#x003C;&#x003C;</span>&#x00A0;<span 
class="ectt-1200">2.97220998361754914429195687074397*pow(10,-12)</span>
&#x00A0;<br /><span 
class="ectt-1200">&#x003C;&#x003C;</span>&#x00A0;<span 
class="ectt-1200">18</span>&#x00A0;<span 
class="ectt-1200">&#x003C;&#x003C;</span>&#x00A0;<span 
class="ectt-1200">4</span>&#x00A0;<span 
class="ectt-1200">&#x003C;&#x003C;</span>&#x00A0;<span 
class="ectt-1200">3.57047855200640258244677801924088*pow(10,-1)</span>&#x00A0;<span 
class="ectt-1200">&#x003C;&#x003C;</span>&#x00A0;<span 
class="ectt-1200">2.24741451714247573527439486994526*pow(10,-1)</span>
&#x00A0;<br /><span 
class="ectt-1200">&#x003C;&#x003C;</span>&#x00A0;<span 
class="ectt-1200">19</span>&#x00A0;<span 
class="ectt-1200">&#x003C;&#x003C;</span>&#x00A0;<span 
class="ectt-1200">4</span>&#x00A0;<span 
class="ectt-1200">&#x003C;&#x003C;</span>&#x00A0;<span 
class="ectt-1200">8.57582269837600053440432674664275*pow(10,-1)</span>&#x00A0;<span 
class="ectt-1200">&#x003C;&#x003C;</span>&#x00A0;<span 
class="ectt-1200">1.32619067539941897572390100531881*pow(10,-1)</span>
&#x00A0;<br /><span 
class="ectt-1200">&#x003C;&#x003C;</span>&#x00A0;<span 
class="ectt-1200">20</span>&#x00A0;<span 
class="ectt-1200">&#x003C;&#x003C;</span>&#x00A0;<span 
class="ectt-1200">4</span>&#x00A0;<span 
class="ectt-1200">&#x003C;&#x003C;</span>&#x00A0;<span 
class="ectt-1200">1.45627192772164776850783593749915*pow(10,0)</span>&#x00A0;<span 
class="ectt-1200">&#x003C;&#x003C;</span>&#x00A0;<span 
class="ectt-1200">3.41635149494490740862897232913737*pow(10,-2)</span>
&#x00A0;<br /><span 
class="ectt-1200">&#x003C;&#x003C;</span>&#x00A0;<span 
class="ectt-1200">21</span>&#x00A0;<span 
class="ectt-1200">&#x003C;&#x003C;</span>&#x00A0;<span 
class="ectt-1200">4</span>&#x00A0;<span 
class="ectt-1200">&#x003C;&#x003C;</span>&#x00A0;<span 
class="ectt-1200">1.85908354572076815175818819518961*pow(10,0)</span>&#x00A0;<span 
class="ectt-1200">&#x003C;&#x003C;</span>&#x00A0;<span 
class="ectt-1200">7.25277483230795428348171496790736*pow(10,-3)</span>
&#x00A0;<br /><span 
class="ectt-1200">&#x003C;&#x003C;</span>&#x00A0;<span 
class="ectt-1200">22</span>&#x00A0;<span 
class="ectt-1200">&#x003C;&#x003C;</span>&#x00A0;<span 
class="ectt-1200">4</span>&#x00A0;<span 
class="ectt-1200">&#x003C;&#x003C;</span>&#x00A0;<span 
class="ectt-1200">2.58904047158998381595919190652148*pow(10,0)</span>&#x00A0;<span 
class="ectt-1200">&#x003C;&#x003C;</span>&#x00A0;<span 
class="ectt-1200">4.58588190682845115433705554969906*pow(10,-4)</span>
&#x00A0;<br /><span 
class="ectt-1200">&#x003C;&#x003C;</span>&#x00A0;<span 
class="ectt-1200">23</span>&#x00A0;<span 
class="ectt-1200">&#x003C;&#x003C;</span>&#x00A0;<span 
class="ectt-1200">4</span>&#x00A0;<span 
class="ectt-1200">&#x003C;&#x003C;</span>&#x00A0;<span 
class="ectt-1200">3.33004698770489421170373178710890*pow(10,0)</span>&#x00A0;<span 
class="ectt-1200">&#x003C;&#x003C;</span>&#x00A0;<span 
class="ectt-1200">7.57531613358637802375888601661294*pow(10,-6)</span>
&#x00A0;<br /><span 
class="ectt-1200">&#x003C;&#x003C;</span>&#x00A0;<span 
class="ectt-1200">24</span>&#x00A0;<span 
class="ectt-1200">&#x003C;&#x003C;</span>&#x00A0;<span 
class="ectt-1200">4</span>&#x00A0;<span 
class="ectt-1200">&#x003C;&#x003C;</span>&#x00A0;<span 
class="ectt-1200">4.13460787814490154951137004441549*pow(10,0)</span>&#x00A0;<span 
class="ectt-1200">&#x003C;&#x003C;</span>&#x00A0;<span 
class="ectt-1200">2.66835327349558608272806587429416*pow(10,-8)</span>
&#x00A0;<br /><span 
class="ectt-1200">&#x003C;&#x003C;</span>&#x00A0;<span 
class="ectt-1200">25</span>&#x00A0;<span 
class="ectt-1200">&#x003C;&#x003C;</span>&#x00A0;<span 
class="ectt-1200">4</span>&#x00A0;<span 
class="ectt-1200">&#x003C;&#x003C;</span>&#x00A0;<span 
class="ectt-1200">5.22910467169634386126886183446137*pow(10,0)</span>&#x00A0;<span 
class="ectt-1200">&#x003C;&#x003C;</span>&#x00A0;<span 
class="ectt-1200">2.37617404612396438012114434000406*pow(10,-12);</span>
&#x00A0;<br />
&#x00A0;<br />
&#x00A0;<br /><span 
class="ectt-1200">int</span>&#x00A0;<span 
class="ectt-1200">somme,</span>&#x00A0;<span 
class="ectt-1200">somme2;</span>
&#x00A0;<br /><span 
class="ectt-1200">somme=0;</span>
&#x00A0;<br /><span 
class="ectt-1200">somme2=0;</span>
&#x00A0;<br />
&#x00A0;<br /><span 
class="ectt-1200">for</span>&#x00A0;<span 
class="ectt-1200">(i=1;i&#x003C;=(M.Nrows());i=i+1)</span>
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">{</span>
&#x00A0;<br />
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">for</span>&#x00A0;<span 
class="ectt-1200">(j=1;j&#x003C;=((int)M(i,2));j=j+1)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">{</span>
&#x00A0;<br /><span 
class="ectt-1200">poids(somme+j,1)=M(i,4);</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">}</span>

&#x00A0;<br />
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">somme2=0;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">for</span>&#x00A0;<span 
class="ectt-1200">(j=1;j&#x003C;=((int)M(i,2)/4);j=j+1)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">{</span>
&#x00A0;<br /><span 
class="ectt-1200">for</span>&#x00A0;<span 
class="ectt-1200">(k=1;k&#x003C;=4;k=k+1)</span>
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">{</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">abscisses(somme+somme2+k,1)=M(i,3)*cos((k-1)*pi/2.0);</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">abscisses(somme+somme2+k,2)=M(i,3)*sin((k-1)*pi/2.0);</span>
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">}</span>
&#x00A0;<br /><span 
class="ectt-1200">somme2=somme2+((int)M(i,2))/4;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">}</span>
&#x00A0;<br />
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">somme=somme+(int)M(i,2);</span>
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">}</span>
&#x00A0;<br />
&#x00A0;<br />
&#x00A0;<br />
&#x00A0;<br />
&#x00A0;<br />
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">}</span>
&#x00A0;<br />
&#x00A0;<br />
&#x00A0;<br />
&#x00A0;<br />
&#x00A0;<br />
&#x00A0;<br />
&#x00A0;<br />
&#x00A0;<br />
&#x00A0;<br />
&#x00A0;<br /><span 
class="ectt-1200">for</span>&#x00A0;<span 
class="ectt-1200">(j=1;j&#x003C;=N;j=j+1)</span>&#x00A0;<span 
class="ectt-1200">poids(j,1)=pow(pi,(-q/2.0))*poids(j,1);</span>
&#x00A0;<br />
&#x00A0;<br />
&#x00A0;<br />
&#x00A0;<br /><span 
class="ectt-1200">abscisses=sqrt(2.0)*b*abscisses;</span>
&#x00A0;<br />
&#x00A0;<br />
&#x00A0;<br />
&#x00A0;<br />
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">}</span>
&#x00A0;<br /><span 
class="ectt-1200">//fin</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">if</span>&#x00A0;<span 
class="ectt-1200">q==2</span>
&#x00A0;<br />
&#x00A0;<br />
&#x00A0;<br />

&#x00A0;<br />
&#x00A0;<br />
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">if</span>&#x00A0;<span 
class="ectt-1200">(q&#x003E;=3)</span>&#x00A0;<span 
class="ectt-1200">{</span>
&#x00A0;<br />
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">//E_q&#x0302;(r&#x0302;2):</span>&#x00A0;<span 
class="ectt-1200">7-2</span>&#x00A0;<span 
class="ectt-1200">(q&#x003E;=3)</span>&#x00A0;<span 
class="ectt-1200">Degree</span>&#x00A0;<span 
class="ectt-1200">7,</span>&#x00A0;<span 
class="ectt-1200">2&#x0302;(q+1)+4q&#x0302;2</span>&#x00A0;<span 
class="ectt-1200">Points</span>&#x00A0;<span 
class="ectt-1200">dans</span>&#x00A0;<span 
class="ectt-1200">Stroud</span>&#x00A0;<span 
class="ectt-1200">(1971)</span>&#x00A0;<span 
class="ectt-1200">p319</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">//Attention</span>&#x00A0;<span 
class="ectt-1200">il</span>&#x00A0;<span 
class="ectt-1200">y</span>&#x00A0;<span 
class="ectt-1200">a</span>&#x00A0;<span 
class="ectt-1200">une</span>&#x00A0;<span 
class="ectt-1200">erreur</span>&#x00A0;<span 
class="ectt-1200">dans</span>&#x00A0;<span 
class="ectt-1200">le</span>&#x00A0;<span 
class="ectt-1200">livre,</span>&#x00A0;<span 
class="ectt-1200">voir</span>&#x00A0;<span 
class="ectt-1200">plutot</span>&#x00A0;<span 
class="ectt-1200">Stroud</span>&#x00A0;<span 
class="ectt-1200">(1967)</span>&#x00A0;<span 
class="ectt-1200">:</span>&#x00A0;<span 
class="ectt-1200">Some</span>&#x00A0;<span 
class="ectt-1200">seventh</span>&#x00A0;<span 
class="ectt-1200">degree</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">//integration</span>&#x00A0;<span 
class="ectt-1200">formulas</span>&#x00A0;<span 
class="ectt-1200">for</span>&#x00A0;<span 
class="ectt-1200">symmetric</span>&#x00A0;<span 
class="ectt-1200">regions,</span>&#x00A0;<span 
class="ectt-1200">SIAM</span>&#x00A0;<span 
class="ectt-1200">J.</span>&#x00A0;<span 
class="ectt-1200">Numer.</span>&#x00A0;<span 
class="ectt-1200">Anal.</span>&#x00A0;<span 
class="ectt-1200">pp.</span>&#x00A0;<span 
class="ectt-1200">37-44</span>
&#x00A0;<br />
&#x00A0;<br />
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">void</span>&#x00A0;<span 
class="ectt-1200">binarycode(int</span>&#x00A0;<span 
class="ectt-1200">i,int</span>&#x00A0;<span 
class="ectt-1200">q,</span>&#x00A0;<span 
class="ectt-1200">int</span>&#x00A0;<span 
class="ectt-1200">*y);</span>
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">double</span>&#x00A0;<span 
class="ectt-1200">Absolute(double</span>&#x00A0;<span 
class="ectt-1200">x);</span>
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">int</span>&#x00A0;<span 
class="ectt-1200">*y;</span>
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">double</span>&#x00A0;<span 
class="ectt-1200">A1,</span>&#x00A0;<span 
class="ectt-1200">A2,</span>&#x00A0;<span 
class="ectt-1200">r1,</span>&#x00A0;<span 
class="ectt-1200">r2,</span>&#x00A0;<span 
class="ectt-1200">sval,</span>&#x00A0;<span 
class="ectt-1200">tval,</span>&#x00A0;<span 
class="ectt-1200">PI;</span>
&#x00A0;<br />
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">PI=3.1415926535897931160;</span>
&#x00A0;<br />
&#x00A0;<br />
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">y=new</span>&#x00A0;<span 
class="ectt-1200">int</span>&#x00A0;<span 
class="ectt-1200">[q];</span>
&#x00A0;<br />
&#x00A0;<br />
&#x00A0;<br />
&#x00A0;<br />
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">Matrix</span>&#x00A0;<span 
class="ectt-1200">Bval(2*q,1);</span>
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">Matrix</span>&#x00A0;<span 
class="ectt-1200">Cval((int)pow(2,q),1);</span>
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">Matrix</span>&#x00A0;<span 
class="ectt-1200">Dval(2*(int)pow(q,2)-2*q,1);</span>
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">Matrix</span>&#x00A0;<span 
class="ectt-1200">B((int)pow(2,q)+2*(int)pow(q,2),1);</span>
&#x00A0;<br />
&#x00A0;<br />
&#x00A0;<br />
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">Matrix</span>&#x00A0;<span 
class="ectt-1200">pointsB(q,q);</span>
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">pointsB=0.0;</span>
&#x00A0;<br />
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">Matrix</span>&#x00A0;<span 
class="ectt-1200">pointsC((int)pow(2,q),q);</span>
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">pointsC=0.0;</span>
&#x00A0;<br />
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">Matrix</span>&#x00A0;<span 
class="ectt-1200">signes((int)pow(2,q),q);</span>
&#x00A0;<br />
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">Matrix</span>&#x00A0;<span 
class="ectt-1200">pointsDtemp((q*(q-1))/2,q);</span>
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">pointsDtemp=0.0;</span>
&#x00A0;<br />
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">Matrix</span>&#x00A0;<span 
class="ectt-1200">AbspointsDtemp((q*(q-1))/2,q);</span>
&#x00A0;<br />
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">Matrix</span>&#x00A0;<span 
class="ectt-1200">pointsD(4*(q*(q-1))/2,q);</span>

&#x00A0;<br />
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">Matrix</span>&#x00A0;<span 
class="ectt-1200">uj(2*q+(int)pow(2,q)+4*(q*(q-1))/2,q);</span>
&#x00A0;<br />
&#x00A0;<br />
&#x00A0;<br />
&#x00A0;<br />
&#x00A0;<br />
&#x00A0;<br />
&#x00A0;<br />
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">A1=(q+2+sqrt(2*(q+2)))/(4*(q+2))*exp(gamma(q/2.0));</span>
&#x00A0;<br />
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">A2=(q+2-sqrt(2*(q+2)))/(4*(q+2))*exp(gamma(q/2.0));</span>
&#x00A0;<br />
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">r1=sqrt((q+2-sqrt(2*(q+2)))/2);</span>
&#x00A0;<br />
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">r2=sqrt((q+2+sqrt(2*(q+2)))/2);</span>
&#x00A0;<br />
&#x00A0;<br />
&#x00A0;<br />
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">for</span>&#x00A0;<span 
class="ectt-1200">(j=1;j&#x003C;=2*q;j=j+1)</span>&#x00A0;<span 
class="ectt-1200">Bval(j,1)=(8.0-q)/(q*(q+2)*(q+4));</span>
&#x00A0;<br />
&#x00A0;<br />
&#x00A0;<br />
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">for</span>&#x00A0;<span 
class="ectt-1200">(j=1;j&#x003C;=(int)pow(2,q);j=j+1)</span>&#x00A0;<span 
class="ectt-1200">Cval(j,1)=(pow(2.0,-q)*pow(q,3))/(q*(q+2)*(q+4));</span>
&#x00A0;<br />
&#x00A0;<br />
&#x00A0;<br />
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">for</span>&#x00A0;<span 
class="ectt-1200">(j=1;j&#x003C;=2*(int)pow(q,2)-2*q;j=j+1)</span>&#x00A0;<span 
class="ectt-1200">Dval(j,1)=4.0/(q*(q+2)*(q+4));</span>
&#x00A0;<br />
&#x00A0;<br />
&#x00A0;<br />
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">B=Bval&#x0026;(Cval&#x0026;Dval);</span>
&#x00A0;<br />
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">sval=1/sqrt(q);</span>
&#x00A0;<br />
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">tval=1/(sqrt(2));</span>
&#x00A0;<br />
&#x00A0;<br />
&#x00A0;<br />
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">pointsB(1,1)=1;</span>
&#x00A0;<br />
&#x00A0;<br />
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">for</span>&#x00A0;<span 
class="ectt-1200">(j=2;j&#x003C;=q-1;j=j+1)</span>&#x00A0;<span 
class="ectt-1200">pointsB(j,j)=1;</span>

&#x00A0;<br />
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">pointsB(q,q)=1;</span>
&#x00A0;<br />
&#x00A0;<br />
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">pointsB=pointsB&#x0026;-pointsB;</span>
&#x00A0;<br />
&#x00A0;<br />
&#x00A0;<br />
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">for</span>&#x00A0;<span 
class="ectt-1200">(i=0;i&#x003C;=(int)pow(2,q)-1;i=i+1)</span>
&#x00A0;<br />
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">{</span>
&#x00A0;<br />
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">binarycode(i,q,y);</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">for</span>&#x00A0;<span 
class="ectt-1200">(j=1;j&#x003C;=q;j=j+1)</span>&#x00A0;<span 
class="ectt-1200">signes(i+1,j)=pow(-1,*(y+j-1));</span>
&#x00A0;<br />
&#x00A0;<br />
&#x00A0;<br />
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">}</span>
&#x00A0;<br />
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">delete</span>&#x00A0;<span 
class="ectt-1200">y;</span>
&#x00A0;<br />
&#x00A0;<br />
&#x00A0;<br />
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">for</span>&#x00A0;<span 
class="ectt-1200">(i=1;i&#x003C;=(int)pow(2,q);i=i+1)</span>&#x00A0;<span 
class="ectt-1200">pointsC.Row(i)=sval*signes.Row(i);</span>
&#x00A0;<br />
&#x00A0;<br />
&#x00A0;<br />
&#x00A0;<br />
&#x00A0;<br />
&#x00A0;<br /><span 
class="ectt-1200">for</span>&#x00A0;<span 
class="ectt-1200">(i=1;i&#x003C;=q-1;i=i+1)</span>&#x00A0;<span 
class="ectt-1200">{</span>
&#x00A0;<br />
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">for</span>&#x00A0;<span 
class="ectt-1200">(j=1;j&#x003C;=q-i;j=j+1)</span>&#x00A0;<span 
class="ectt-1200">{</span>
&#x00A0;<br />
&#x00A0;<br />
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">pointsDtemp((q*(i-1)-i*(i-1)/2)+j,i)=-tval;</span>
&#x00A0;<br />
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">if</span>&#x00A0;<span 
class="ectt-1200">(i+j&#x003C;q+1)</span>&#x00A0;<span 
class="ectt-1200">{</span>
&#x00A0;<br />
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">pointsDtemp((q*(i-1)-i*(i-1)/2)+j,i+j)=tval;</span>&#x00A0;<span 
class="ectt-1200">}</span>
&#x00A0;<br />
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">}</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">}</span>
&#x00A0;<br />

&#x00A0;<br />
&#x00A0;<br />&#x00A0;<span 
class="ectt-1200">for</span>&#x00A0;<span 
class="ectt-1200">(i=1;i&#x003C;=(q*(q-1))/2;i=i+1){</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">for</span>&#x00A0;<span 
class="ectt-1200">(j=1;j&#x003C;=q;j=j+1){</span>
&#x00A0;<br />
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">AbspointsDtemp(i,j)=Absolute(pointsDtemp(i,j));</span>
&#x00A0;<br />
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">}}</span>
&#x00A0;<br />
&#x00A0;<br />&#x00A0;<span 
class="ectt-1200">pointsD=pointsDtemp&#x0026;-pointsDtemp&#x0026;AbspointsDtemp&#x0026;-AbspointsDtemp;</span>
&#x00A0;<br />
&#x00A0;<br />
&#x00A0;<br />&#x00A0;<span 
class="ectt-1200">uj=pointsB&#x0026;pointsC&#x0026;pointsD;</span>
&#x00A0;<br />
&#x00A0;<br />
&#x00A0;<br />&#x00A0;<span 
class="ectt-1200">poids=((A1*B)&#x0026;(A2*B))*((2*pow(PI,q/2.0))/(exp(gamma(q/2.0))));</span>
&#x00A0;<br />
&#x00A0;<br />&#x00A0;<span 
class="ectt-1200">for</span>&#x00A0;<span 
class="ectt-1200">(j=1;j&#x003C;=N;j=j+1)</span>&#x00A0;<span 
class="ectt-1200">poids(j,1)=pow(PI,(-q/2.0))*poids(j,1);</span>
&#x00A0;<br />
&#x00A0;<br />
&#x00A0;<br />
&#x00A0;<br />&#x00A0;<span 
class="ectt-1200">abscisses=((r1*uj)&#x0026;(r2*uj));</span>
&#x00A0;<br />
&#x00A0;<br />&#x00A0;<span 
class="ectt-1200">abscisses=sqrt(2.0)*b*abscisses;</span>
&#x00A0;<br />
&#x00A0;<br />
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">}</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">//</span>&#x00A0;<span 
class="ectt-1200">fin</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">if</span>&#x00A0;<span 
class="ectt-1200">q&#x003E;=3</span>
&#x00A0;<br />
&#x00A0;<br />
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">}</span>
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">//fin</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">if</span>&#x00A0;<span 
class="ectt-1200">choix==1</span>
&#x00A0;<br />
&#x00A0;<br />
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">//----------------------------------------------------------------------------------</span>
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">//MONTE-CARLO</span>
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">//----------------------------------------------------------------------------------</span>
&#x00A0;<br />
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">Normal</span>&#x00A0;<span 
class="ectt-1200">Z;</span>
&#x00A0;<br />
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">if</span>&#x00A0;<span 
class="ectt-1200">(choix==2)</span>
&#x00A0;<br />
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">{</span>
&#x00A0;<br />

&#x00A0;<br />&#x00A0;<span 
class="ectt-1200">for</span>&#x00A0;<span 
class="ectt-1200">(i=1;i&#x003C;=N;i=i+1){</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">for(j=1;j&#x003C;=q;j=j+1)</span>&#x00A0;<span 
class="ectt-1200">{</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">abscisses(i,j)=b*Z.Next();}}</span>
&#x00A0;<br />
&#x00A0;<br />&#x00A0;<span 
class="ectt-1200">for</span>&#x00A0;<span 
class="ectt-1200">(i=1;i&#x003C;=N;i=i+1)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">poids(i,1)=1.0/N;</span>
&#x00A0;<br />
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">}</span>
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">//fin</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">if</span>&#x00A0;<span 
class="ectt-1200">choix==2</span>
&#x00A0;<br />
&#x00A0;<br />
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">//On</span>&#x00A0;<span 
class="ectt-1200">fabrique</span>&#x00A0;<span 
class="ectt-1200">la</span>&#x00A0;<span 
class="ectt-1200">matrice</span>&#x00A0;<span 
class="ectt-1200">Ddemi</span>
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">for</span>&#x00A0;<span 
class="ectt-1200">(j=1;j&#x003C;=N;j=j+1)</span>&#x00A0;<span 
class="ectt-1200">Ddemi(j,j)=sqrt(poids(j,1));</span>
&#x00A0;<br />
&#x00A0;<br />
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">//On</span>&#x00A0;<span 
class="ectt-1200">fabrique</span>&#x00A0;<span 
class="ectt-1200">la</span>&#x00A0;<span 
class="ectt-1200">matrice</span>&#x00A0;<span 
class="ectt-1200">K</span>
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">Matrix</span>&#x00A0;<span 
class="ectt-1200">K(N,N);</span>
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">K=0.0;</span>
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">for</span>&#x00A0;<span 
class="ectt-1200">(i=1;i&#x003C;=N;i=i+1)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">{</span>
&#x00A0;<br />
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">for</span>&#x00A0;<span 
class="ectt-1200">(j=1;j&#x003C;=N;j=j+1)</span>
&#x00A0;<br /><span 
class="ectt-1200">{</span>
&#x00A0;<br />
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">K(i,j)=exp(-((abscisses.Row(i)-abscisses.Row(j)).SumSquare())/2.0)-exp(-((abscisses.Row(i)).SumSquare()+(abscisses.Row(j)).SumSquare())/2.0);</span>
&#x00A0;<br />
&#x00A0;<br /><span 
class="ectt-1200">}</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">}</span>
&#x00A0;<br />
&#x00A0;<br />
&#x00A0;<br />
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">//On</span>&#x00A0;<span 
class="ectt-1200">fabrique</span>&#x00A0;<span 
class="ectt-1200">Ddemi*K*Ddemi</span>
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">DKD&#x003C;&#x003C;(Ddemi*K*Ddemi);</span>
&#x00A0;<br />
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">//Calcul</span>&#x00A0;<span 
class="ectt-1200">des</span>&#x00A0;<span 
class="ectt-1200">valeurs</span>&#x00A0;<span 
class="ectt-1200">propres.</span>
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">EigenValues(DKD,D);</span>
&#x00A0;<br />
&#x00A0;<br />
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">//On</span>&#x00A0;<span 
class="ectt-1200">classe</span>&#x00A0;<span 
class="ectt-1200">les</span>&#x00A0;<span 
class="ectt-1200">valeurs</span>&#x00A0;<span 
class="ectt-1200">propres</span>&#x00A0;<span 
class="ectt-1200">par</span>&#x00A0;<span 
class="ectt-1200">ordre</span>&#x00A0;<span 
class="ectt-1200">decroissant</span>
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">SortDescending(D);</span>
&#x00A0;<br />
&#x00A0;<br />
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">return(D);</span>

&#x00A0;<br />
&#x00A0;<br /><span 
class="ectt-1200">}</span>
&#x00A0;<br />
&#x00A0;<br />
&#x00A0;<br />
&#x00A0;<br /><span 
class="ectt-1200">double</span>&#x00A0;<span 
class="ectt-1200">Absolute(double</span>&#x00A0;<span 
class="ectt-1200">x)</span>
&#x00A0;<br />
&#x00A0;<br /><span 
class="ectt-1200">{</span>
&#x00A0;<br />
&#x00A0;<br />
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">if</span>&#x00A0;<span 
class="ectt-1200">(x&#x003E;0)</span>&#x00A0;<span 
class="ectt-1200">return(x);</span>
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">else</span>&#x00A0;<span 
class="ectt-1200">return(-x);</span>
&#x00A0;<br />
&#x00A0;<br /><span 
class="ectt-1200">}</span>
</div><span 
class="ecbx-1200">Le fichier </span><span 
class="ecbi-1200">nCm.c</span><div class="verbatiminput">
<span 
class="ectt-1200">int</span>&#x00A0;<span 
class="ectt-1200">nCm(int</span>&#x00A0;<span 
class="ectt-1200">n,</span>&#x00A0;<span 
class="ectt-1200">int</span>&#x00A0;<span 
class="ectt-1200">m)</span>
&#x00A0;<br />
&#x00A0;<br /><span 
class="ectt-1200">{</span>
&#x00A0;<br />
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">/*</span>
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">DESCRIPTION:</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Compute</span>&#x00A0;<span 
class="ectt-1200">the</span>&#x00A0;<span 
class="ectt-1200">binomial</span>&#x00A0;<span 
class="ectt-1200">coefficient</span>&#x00A0;<span 
class="ectt-1200">(&#x0022;n</span>&#x00A0;<span 
class="ectt-1200">choose</span>&#x00A0;<span 
class="ectt-1200">m&#x0022;),</span>&#x00A0;&#x00A0;<span 
class="ectt-1200">where</span>&#x00A0;<span 
class="ectt-1200">n</span>&#x00A0;&#x00A0;<span 
class="ectt-1200">and</span>&#x00A0;<span 
class="ectt-1200">m</span>&#x00A0;<span 
class="ectt-1200">are</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">any</span>&#x00A0;<span 
class="ectt-1200">integer.</span>
&#x00A0;<br />
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">REFERENCE:</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Feller</span>&#x00A0;<span 
class="ectt-1200">(1968)</span>&#x00A0;<span 
class="ectt-1200">An</span>&#x00A0;<span 
class="ectt-1200">Introduction</span>&#x00A0;<span 
class="ectt-1200">to</span>&#x00A0;<span 
class="ectt-1200">Probability</span>&#x00A0;<span 
class="ectt-1200">Theory</span>&#x00A0;<span 
class="ectt-1200">and</span>&#x00A0;<span 
class="ectt-1200">Its</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Applications,</span>&#x00A0;<span 
class="ectt-1200">Volume</span>&#x00A0;<span 
class="ectt-1200">I,</span>&#x00A0;<span 
class="ectt-1200">3rd</span>&#x00A0;<span 
class="ectt-1200">Edition,</span>&#x00A0;<span 
class="ectt-1200">pp</span>&#x00A0;<span 
class="ectt-1200">50,</span>&#x00A0;<span 
class="ectt-1200">63.</span>
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">*/</span>
&#x00A0;<br />
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">int</span>&#x00A0;<span 
class="ectt-1200">out;</span>
&#x00A0;<br />
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">out=(int)floor((exp(lgamma(n</span>&#x00A0;<span 
class="ectt-1200">+</span>&#x00A0;<span 
class="ectt-1200">1)</span>&#x00A0;<span 
class="ectt-1200">-</span>&#x00A0;<span 
class="ectt-1200">lgamma(m</span>&#x00A0;<span 
class="ectt-1200">+</span>&#x00A0;<span 
class="ectt-1200">1)</span>&#x00A0;<span 
class="ectt-1200">-</span>&#x00A0;<span 
class="ectt-1200">lgamma(n</span>&#x00A0;<span 
class="ectt-1200">-</span>&#x00A0;<span 
class="ectt-1200">m</span>&#x00A0;<span 
class="ectt-1200">+</span>&#x00A0;<span 
class="ectt-1200">1)))*10.0+0.5)/10;</span>
&#x00A0;<br />
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">return(out);</span>
&#x00A0;<br />
&#x00A0;<br /><span 
class="ectt-1200">}</span>
&#x00A0;<br />
</div>
   <h3 class="sectionHead"><span class="titlemark">B.2. </span> <a 
  name="x1-59000B.2"></a>Quantiles empiriques</h3>
<!--l. 130--><p class="noindent"><span 
class="ecbx-1200">Le fichier </span><span 
class="ecbi-1200">test.c</span></p><div class="verbatiminput">

<span 
class="ectt-1200">//</span>&#x00A0;<span 
class="ectt-1200">DEBUT</span>&#x00A0;<span 
class="ectt-1200">DES</span>&#x00A0;<span 
class="ectt-1200">DEFINITIONS</span>&#x00A0;<span 
class="ectt-1200">POUR</span>&#x00A0;<span 
class="ectt-1200">POUVOIR</span>&#x00A0;<span 
class="ectt-1200">UTILISER</span>&#x00A0;<span 
class="ectt-1200">LES</span>&#x00A0;<span 
class="ectt-1200">LIBRAIRIES</span>
&#x00A0;<br /><span 
class="ectt-1200">//-----------------------------------------------------------</span>
&#x00A0;<br />
&#x00A0;<br /><span 
class="ectt-1200">#include</span>&#x00A0;<span 
class="ectt-1200">&#x003C;string.h&#x003E;</span>
&#x00A0;<br /><span 
class="ectt-1200">#define</span>&#x00A0;<span 
class="ectt-1200">WANT_STREAM</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">//</span>&#x00A0;<span 
class="ectt-1200">include.h</span>&#x00A0;<span 
class="ectt-1200">will</span>&#x00A0;<span 
class="ectt-1200">get</span>&#x00A0;<span 
class="ectt-1200">stream</span>&#x00A0;<span 
class="ectt-1200">fns</span>
&#x00A0;<br /><span 
class="ectt-1200">#define</span>&#x00A0;<span 
class="ectt-1200">WANT_MATH</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">//</span>&#x00A0;<span 
class="ectt-1200">include.h</span>&#x00A0;<span 
class="ectt-1200">will</span>&#x00A0;<span 
class="ectt-1200">get</span>&#x00A0;<span 
class="ectt-1200">math</span>&#x00A0;<span 
class="ectt-1200">fns</span>
&#x00A0;<br /><span 
class="ectt-1200">//</span>&#x00A0;<span 
class="ectt-1200">newmatap.h</span>&#x00A0;<span 
class="ectt-1200">will</span>&#x00A0;<span 
class="ectt-1200">get</span>&#x00A0;<span 
class="ectt-1200">include.h</span>
&#x00A0;<br /><span 
class="ectt-1200">#include</span>&#x00A0;<span 
class="ectt-1200">&#x0022;./include/newmatap.h&#x0022;</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">//</span>&#x00A0;<span 
class="ectt-1200">need</span>&#x00A0;<span 
class="ectt-1200">matrix</span>&#x00A0;<span 
class="ectt-1200">applications</span>
&#x00A0;<br />
&#x00A0;<br /><span 
class="ectt-1200">#include</span>&#x00A0;<span 
class="ectt-1200">&#x0022;./include/newmatio.h&#x0022;</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">//</span>&#x00A0;<span 
class="ectt-1200">need</span>&#x00A0;<span 
class="ectt-1200">matrix</span>&#x00A0;<span 
class="ectt-1200">output</span>&#x00A0;<span 
class="ectt-1200">routines</span>
&#x00A0;<br />
&#x00A0;<br /><span 
class="ectt-1200">#ifdef</span>&#x00A0;<span 
class="ectt-1200">use_namespace</span>
&#x00A0;<br /><span 
class="ectt-1200">using</span>&#x00A0;<span 
class="ectt-1200">namespace</span>&#x00A0;<span 
class="ectt-1200">NEWMAT;</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">//</span>&#x00A0;<span 
class="ectt-1200">access</span>&#x00A0;<span 
class="ectt-1200">NEWMAT</span>&#x00A0;<span 
class="ectt-1200">namespace</span>
&#x00A0;<br /><span 
class="ectt-1200">#endif</span>
&#x00A0;<br />
&#x00A0;<br /><span 
class="ectt-1200">#ifdef</span>&#x00A0;<span 
class="ectt-1200">use_namespace</span>
&#x00A0;<br /><span 
class="ectt-1200">using</span>&#x00A0;<span 
class="ectt-1200">namespace</span>&#x00A0;<span 
class="ectt-1200">NEWRAN;</span>
&#x00A0;<br /><span 
class="ectt-1200">#endif</span>
&#x00A0;<br />
&#x00A0;<br /><span 
class="ectt-1200">#include</span>&#x00A0;<span 
class="ectt-1200">&#x0022;./include/newran.h&#x0022;</span>&#x00A0;<span 
class="ectt-1200">//</span>&#x00A0;<span 
class="ectt-1200">Pour</span>&#x00A0;<span 
class="ectt-1200">la</span>&#x00A0;<span 
class="ectt-1200">generation</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">nombres</span>&#x00A0;<span 
class="ectt-1200">aleatoires</span>
&#x00A0;<br />
&#x00A0;<br /><span 
class="ectt-1200">#include&#x003C;time.h&#x003E;</span>
&#x00A0;<br />
&#x00A0;<br /><span 
class="ectt-1200">//Pour</span>&#x00A0;<span 
class="ectt-1200">compiler:</span>
&#x00A0;<br /><span 
class="ectt-1200">//g++</span>&#x00A0;<span 
class="ectt-1200">-Wall</span>&#x00A0;<span 
class="ectt-1200">-O</span>&#x00A0;<span 
class="ectt-1200">test.c</span>&#x00A0;<span 
class="ectt-1200">-L.</span>&#x00A0;<span 
class="ectt-1200">-lnewmat</span>&#x00A0;<span 
class="ectt-1200">-lnewran</span>&#x00A0;<span 
class="ectt-1200">-o</span>&#x00A0;<span 
class="ectt-1200">test</span>
&#x00A0;<br />
&#x00A0;<br /><span 
class="ectt-1200">int</span>&#x00A0;<span 
class="ectt-1200">main(void)</span>
&#x00A0;<br />
&#x00A0;<br /><span 
class="ectt-1200">{</span>
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">int</span>&#x00A0;<span 
class="ectt-1200">debut;</span>
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">int</span>&#x00A0;<span 
class="ectt-1200">fin;</span>
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">debut=time(0);</span>
&#x00A0;<br />
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">int</span>&#x00A0;<span 
class="ectt-1200">p,</span>&#x00A0;<span 
class="ectt-1200">q,</span>&#x00A0;<span 
class="ectt-1200">n,</span>&#x00A0;<span 
class="ectt-1200">CardA,</span>&#x00A0;<span 
class="ectt-1200">i,</span>&#x00A0;<span 
class="ectt-1200">j,</span>&#x00A0;<span 
class="ectt-1200">k,</span>&#x00A0;<span 
class="ectt-1200">l,</span>&#x00A0;<span 
class="ectt-1200">lprim,</span>&#x00A0;<span 
class="ectt-1200">N,</span>&#x00A0;<span 
class="ectt-1200">nval,</span>&#x00A0;<span 
class="ectt-1200">bval,</span>&#x00A0;<span 
class="ectt-1200">serial;</span>
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">double</span>&#x00A0;<span 
class="ectt-1200">b,</span>&#x00A0;<span 
class="ectt-1200">prodA,</span>&#x00A0;<span 
class="ectt-1200">statA,</span>&#x00A0;<span 
class="ectt-1200">alpha,</span>&#x00A0;<span 
class="ectt-1200">quant;</span>
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">Random::Set(0.46875);</span>
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">Normal</span>&#x00A0;<span 
class="ectt-1200">Z;</span>
&#x00A0;<br />
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">//Nombre</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">boucles</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">Monte-Carlo</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">**</span>
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">N=10000;</span>
&#x00A0;<br />

&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">//Si</span>&#x00A0;<span 
class="ectt-1200">serial=0:</span>&#x00A0;<span 
class="ectt-1200">non-serial</span>&#x00A0;<span 
class="ectt-1200">case,</span>&#x00A0;<span 
class="ectt-1200">si</span>&#x00A0;<span 
class="ectt-1200">serial=1:</span>&#x00A0;<span 
class="ectt-1200">serial</span>&#x00A0;<span 
class="ectt-1200">case</span>&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">**</span>
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">serial=0;</span>
&#x00A0;<br />
&#x00A0;<br />
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">RowVector</span>&#x00A0;<span 
class="ectt-1200">bvalues(4);</span>
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">bvalues(1)=0.1;</span>
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">bvalues(2)=0.5;</span>
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">bvalues(3)=1.0;</span>
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">bvalues(4)=3.0;</span>
&#x00A0;<br />
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">RowVector</span>&#x00A0;<span 
class="ectt-1200">nvalues(3);</span>
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">nvalues(1)=20;</span>
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">nvalues(2)=50;</span>
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">nvalues(3)=100;</span>
&#x00A0;<br />
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">if</span>&#x00A0;<span 
class="ectt-1200">(serial==0)</span>&#x00A0;<span 
class="ectt-1200">{</span>
&#x00A0;<br />
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">for</span>&#x00A0;<span 
class="ectt-1200">(alpha=0.1;alpha&#x003E;=0.05;alpha=alpha/2.0)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">{</span>
&#x00A0;<br />
&#x00A0;<br /><span 
class="ectt-1200">for</span>&#x00A0;<span 
class="ectt-1200">(bval=1;bval&#x003C;=4;bval=bval+1)</span>
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">{</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">b=bvalues(bval);</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">for</span>&#x00A0;<span 
class="ectt-1200">(nval=1;nval&#x003C;=3;nval=nval+1)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">{</span>
&#x00A0;<br /><span 
class="ectt-1200">n=(int)nvalues(nval);</span>
&#x00A0;<br />
&#x00A0;<br /><span 
class="ectt-1200">for</span>&#x00A0;<span 
class="ectt-1200">(q=2;q&#x003C;=3;q=q+1)</span>&#x00A0;<span 
class="ectt-1200">{</span>
&#x00A0;<br />
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">for</span>&#x00A0;<span 
class="ectt-1200">(CardA=2;CardA&#x003C;=4;CardA=CardA+1)</span>&#x00A0;<span 
class="ectt-1200">{</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">p=CardA;</span>
&#x00A0;<br />
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">prodA=1.0;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Matrix</span>&#x00A0;<span 
class="ectt-1200">A(1,CardA);</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">for</span>&#x00A0;<span 
class="ectt-1200">(i=1;i&#x003C;=CardA;i=i+1)</span>&#x00A0;<span 
class="ectt-1200">A(1,i)=i;</span>
&#x00A0;<br />
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Matrix</span>&#x00A0;<span 
class="ectt-1200">Vecteps(n,p*q);</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Matrix</span>&#x00A0;<span 
class="ectt-1200">mean(q,1);</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">SymmetricMatrix</span>&#x00A0;<span 
class="ectt-1200">S(q);</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Matrix</span>&#x00A0;<span 
class="ectt-1200">Smudm(q,q);</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DiagonalMatrix</span>&#x00A0;<span 
class="ectt-1200">D(q);</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Matrix</span>&#x00A0;<span 
class="ectt-1200">U(q,q);</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Matrix</span>&#x00A0;<span 
class="ectt-1200">V(q,q);</span>

&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Matrix</span>&#x00A0;<span 
class="ectt-1200">Vecte(n,p*q);</span>
&#x00A0;<br />
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">ColumnVector</span>&#x00A0;<span 
class="ectt-1200">vectstatA(N);</span>
&#x00A0;<br />
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">//</span>&#x00A0;<span 
class="ectt-1200">Debut</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">la</span>&#x00A0;<span 
class="ectt-1200">boucle</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">Monte-Carlo</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">for</span>&#x00A0;<span 
class="ectt-1200">(i=1;i&#x003C;=N;i=i+1)</span>
&#x00A0;<br />
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">{</span>
&#x00A0;<br />
&#x00A0;<br /><span 
class="ectt-1200">//Remplissage</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">Vecteps</span>
&#x00A0;<br /><span 
class="ectt-1200">for</span>&#x00A0;<span 
class="ectt-1200">(k=1;k&#x003C;=n;k=k+1)</span>
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">{</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">for</span>&#x00A0;<span 
class="ectt-1200">(l=1;l&#x003C;=p*q;l=l+1)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">{</span>
&#x00A0;<br />
&#x00A0;<br /><span 
class="ectt-1200">Vecteps(k,l)=Z.Next();</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">}</span>
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">}</span>
&#x00A0;<br />
&#x00A0;<br /><span 
class="ectt-1200">//Calcul</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">mean</span>
&#x00A0;<br /><span 
class="ectt-1200">mean=0.0;</span>
&#x00A0;<br /><span 
class="ectt-1200">for</span>&#x00A0;<span 
class="ectt-1200">(j=1;j&#x003C;=n;j=j+1)</span>
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">{</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">for</span>&#x00A0;<span 
class="ectt-1200">(k=1;k&#x003C;=p;k=k+1)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">{</span>
&#x00A0;<br /><span 
class="ectt-1200">mean=mean+(Vecteps.SubMatrix(j,j,q*(k-1)+1,q*k)).t();</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">}</span>
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">}</span>
&#x00A0;<br /><span 
class="ectt-1200">mean=mean/(n*p);</span>
&#x00A0;<br />
&#x00A0;<br /><span 
class="ectt-1200">//Calcul</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">S</span>
&#x00A0;<br /><span 
class="ectt-1200">S=0.0;</span>
&#x00A0;<br /><span 
class="ectt-1200">for</span>&#x00A0;<span 
class="ectt-1200">(j=1;j&#x003C;=n;j=j+1)</span>
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">{</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">for</span>&#x00A0;<span 
class="ectt-1200">(k=1;k&#x003C;=p;k=k+1)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">{</span>
&#x00A0;<br /><span 
class="ectt-1200">S&#x003C;&#x003C;S+((Vecteps.SubMatrix(j,j,q*(k-1)+1,q*k)).t()-mean)*(Vecteps.SubMatrix(j,j,q*(k-1)+1,q*k)-mean.t());</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">}</span>
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">}</span>
&#x00A0;<br />
&#x00A0;<br /><span 
class="ectt-1200">S=S/(n*p);</span>
&#x00A0;<br />
&#x00A0;<br /><span 
class="ectt-1200">//Calcul</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">S&#x0302;{-1/2}</span>

&#x00A0;<br /><span 
class="ectt-1200">Jacobi(S,D,V);</span>
&#x00A0;<br /><span 
class="ectt-1200">for</span>&#x00A0;<span 
class="ectt-1200">(j=1;j&#x003C;=q;j=j+1)</span>&#x00A0;<span 
class="ectt-1200">D(j,j)=pow(D(j,j),-1.0/2.0);</span>
&#x00A0;<br /><span 
class="ectt-1200">Smudm=V*D*(V.t());</span>
&#x00A0;<br />
&#x00A0;<br />
&#x00A0;<br /><span 
class="ectt-1200">//Calcul</span>&#x00A0;<span 
class="ectt-1200">des</span>&#x00A0;<span 
class="ectt-1200">\gras{e}_j&#x0302;{(k)}</span>
&#x00A0;<br /><span 
class="ectt-1200">for</span>&#x00A0;<span 
class="ectt-1200">(j=1;j&#x003C;=n;j=j+1)</span>
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">{</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">for</span>&#x00A0;<span 
class="ectt-1200">(k=1;k&#x003C;=p;k=k+1)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">{</span>
&#x00A0;<br /><span 
class="ectt-1200">Vecte.SubMatrix(j,j,q*(k-1)+1,q*k)=(Vecteps.SubMatrix(j,j,q*(k-1)+1,q*k)-mean.t())*(Smudm.t());</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">}</span>
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">}</span>
&#x00A0;<br />
&#x00A0;<br /><span 
class="ectt-1200">//Calcul</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">la</span>&#x00A0;<span 
class="ectt-1200">statistique,</span>&#x00A0;<span 
class="ectt-1200">cas</span>&#x00A0;<span 
class="ectt-1200">non</span>&#x00A0;<span 
class="ectt-1200">seriel</span>
&#x00A0;<br /><span 
class="ectt-1200">statA=0.0;</span>
&#x00A0;<br />
&#x00A0;<br /><span 
class="ectt-1200">for</span>&#x00A0;<span 
class="ectt-1200">(l=1;l&#x003C;=n;l=l+1)</span>
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">{</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">for</span>&#x00A0;<span 
class="ectt-1200">(lprim=1;lprim&#x003C;=n;lprim=lprim+1)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">{</span>
&#x00A0;<br />
&#x00A0;<br /><span 
class="ectt-1200">prodA=1.0;</span>
&#x00A0;<br /><span 
class="ectt-1200">for</span>&#x00A0;<span 
class="ectt-1200">(k=1;k&#x003C;=CardA;k=k+1)</span>
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">{</span>
&#x00A0;<br />
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">prodA=prodA*(exp(-b*b*0.5*(Vecte.SubMatrix(l,l,q*((int)A(1,k)-1)+1,q*(int)A(1,k))-Vecte.SubMatrix(lprim,lprim,q*((int)A(1,k)-1)+1,q*(int)A(1,k))).SumSquare())-pow(b*b+1.0,-q/2.0)*exp(-0.5*b*b/(b*b+1)*(Vecte.SubMatrix(l,l,q*((int)A(1,k)-1)+1,q*(int)A(1,k))).SumSquare())-pow(b*b+1.0,-q/2.0)*exp(-0.5*b*b/(b*b+1)*(Vecte.SubMatrix(lprim,lprim,q*((int)A(1,k)-1)+1,q*(int)A(1,k))).SumSquare())+pow(2*b*b+1,-q/2.0));</span>
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">}</span>
&#x00A0;<br /><span 
class="ectt-1200">statA=statA+prodA;</span>
&#x00A0;<br />
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">}</span>
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">}</span>
&#x00A0;<br />
&#x00A0;<br /><span 
class="ectt-1200">statA=statA/n;</span>
&#x00A0;<br />
&#x00A0;<br /><span 
class="ectt-1200">vectstatA(i)=statA;</span>
&#x00A0;<br />
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">}</span>
&#x00A0;<br />
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">SortAscending(vectstatA);</span>
&#x00A0;<br />
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">quant=vectstatA((int)((1-alpha)*N));</span>
&#x00A0;<br />

&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">cout</span>&#x00A0;<span 
class="ectt-1200">&#x003C;&#x003C;</span>&#x00A0;<span 
class="ectt-1200">&#x0022;\nCas</span>&#x00A0;<span 
class="ectt-1200">non</span>&#x00A0;<span 
class="ectt-1200">seriel.&#x0022;;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">cout</span>&#x00A0;<span 
class="ectt-1200">&#x003C;&#x003C;</span>&#x00A0;<span 
class="ectt-1200">&#x0022;\nParametres:&#x0022;;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">cout</span>&#x00A0;<span 
class="ectt-1200">&#x003C;&#x003C;</span>&#x00A0;<span 
class="ectt-1200">&#x0022;\nalpha=&#x0022;</span>&#x00A0;<span 
class="ectt-1200">&#x003C;&#x003C;</span>&#x00A0;<span 
class="ectt-1200">alpha;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">cout</span>&#x00A0;<span 
class="ectt-1200">&#x003C;&#x003C;</span>&#x00A0;<span 
class="ectt-1200">&#x0022;\nN=&#x0022;&#x003C;&#x003C;N;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">cout</span>&#x00A0;<span 
class="ectt-1200">&#x003C;&#x003C;</span>&#x00A0;<span 
class="ectt-1200">&#x0022;\np=&#x0022;</span>&#x00A0;<span 
class="ectt-1200">&#x003C;&#x003C;</span>&#x00A0;<span 
class="ectt-1200">p;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">cout</span>&#x00A0;<span 
class="ectt-1200">&#x003C;&#x003C;</span>&#x00A0;<span 
class="ectt-1200">&#x0022;\nb=&#x0022;</span>&#x00A0;<span 
class="ectt-1200">&#x003C;&#x003C;</span>&#x00A0;<span 
class="ectt-1200">b;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">cout</span>&#x00A0;<span 
class="ectt-1200">&#x003C;&#x003C;</span>&#x00A0;<span 
class="ectt-1200">&#x0022;\nq=&#x0022;</span>&#x00A0;<span 
class="ectt-1200">&#x003C;&#x003C;</span>&#x00A0;<span 
class="ectt-1200">q;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">cout</span>&#x00A0;<span 
class="ectt-1200">&#x003C;&#x003C;</span>&#x00A0;<span 
class="ectt-1200">&#x0022;\nn=&#x0022;</span>&#x00A0;<span 
class="ectt-1200">&#x003C;&#x003C;</span>&#x00A0;<span 
class="ectt-1200">n;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">cout</span>&#x00A0;<span 
class="ectt-1200">&#x003C;&#x003C;</span>&#x00A0;<span 
class="ectt-1200">&#x0022;\nA=&#x0022;</span>&#x00A0;<span 
class="ectt-1200">&#x003C;&#x003C;</span>&#x00A0;<span 
class="ectt-1200">A;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">cout</span>&#x00A0;<span 
class="ectt-1200">&#x003C;&#x003C;</span>&#x00A0;<span 
class="ectt-1200">&#x0022;CardA=&#x0022;</span>&#x00A0;<span 
class="ectt-1200">&#x003C;&#x003C;</span>&#x00A0;<span 
class="ectt-1200">CardA;</span>
&#x00A0;<br />
&#x00A0;<br />
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">cout</span>&#x00A0;<span 
class="ectt-1200">&#x003C;&#x003C;</span>&#x00A0;<span 
class="ectt-1200">&#x0022;\nQuantile</span>&#x00A0;<span 
class="ectt-1200">d&#x2019;ordre</span>&#x00A0;<span 
class="ectt-1200">1-alpha=1-&#x0022;</span>&#x00A0;<span 
class="ectt-1200">&#x003C;&#x003C;</span>&#x00A0;<span 
class="ectt-1200">alpha</span>&#x00A0;<span 
class="ectt-1200">&#x003C;&#x003C;</span>&#x00A0;<span 
class="ectt-1200">&#x0022;:</span>&#x00A0;<span 
class="ectt-1200">&#x0022;</span>&#x00A0;<span 
class="ectt-1200">&#x003C;&#x003C;</span>&#x00A0;<span 
class="ectt-1200">quant</span>&#x00A0;<span 
class="ectt-1200">&#x003C;&#x003C;&#x0022;\n&#x0022;;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">fin=time(0);</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">cout</span>&#x00A0;<span 
class="ectt-1200">&#x003C;&#x003C;</span>&#x00A0;<span 
class="ectt-1200">&#x0022;Temps</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">calcul</span>&#x00A0;<span 
class="ectt-1200">en</span>&#x00A0;<span 
class="ectt-1200">secondes:</span>&#x00A0;<span 
class="ectt-1200">&#x0022;</span>&#x00A0;<span 
class="ectt-1200">&#x003C;&#x003C;</span>&#x00A0;<span 
class="ectt-1200">fin-debut</span>&#x00A0;<span 
class="ectt-1200">&#x003C;&#x003C;&#x0022;\n\n&#x0022;;</span>
&#x00A0;<br />
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">}</span>
&#x00A0;<br /><span 
class="ectt-1200">}</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">}</span>
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">}</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">}</span>
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">}</span>
&#x00A0;<br />
&#x00A0;<br />
&#x00A0;<br />
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">if</span>&#x00A0;<span 
class="ectt-1200">(serial==1)</span>&#x00A0;<span 
class="ectt-1200">{</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">p=4;</span>
&#x00A0;<br />
&#x00A0;<br />
&#x00A0;<br />
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">for</span>&#x00A0;<span 
class="ectt-1200">(alpha=0.1;alpha&#x003E;=0.05;alpha=alpha/2.0)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">{</span>
&#x00A0;<br />
&#x00A0;<br /><span 
class="ectt-1200">for</span>&#x00A0;<span 
class="ectt-1200">(bval=1;bval&#x003C;=4;bval=bval+1)</span>
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">{</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">b=bvalues(bval);</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">for</span>&#x00A0;<span 
class="ectt-1200">(nval=1;nval&#x003C;=3;nval=nval+1)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">{</span>
&#x00A0;<br /><span 
class="ectt-1200">n=(int)nvalues(nval);</span>
&#x00A0;<br />
&#x00A0;<br /><span 
class="ectt-1200">for</span>&#x00A0;<span 
class="ectt-1200">(q=2;q&#x003C;=3;q=q+1)</span>&#x00A0;<span 
class="ectt-1200">{</span>
&#x00A0;<br />
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">for</span>&#x00A0;<span 
class="ectt-1200">(CardA=2;CardA&#x003C;=4;CardA=CardA+1)</span>&#x00A0;<span 
class="ectt-1200">{</span>

&#x00A0;<br />
&#x00A0;<br />
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">prodA=1.0;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Matrix</span>&#x00A0;<span 
class="ectt-1200">A(1,CardA);</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">for</span>&#x00A0;<span 
class="ectt-1200">(i=1;i&#x003C;=CardA;i=i+1)</span>&#x00A0;<span 
class="ectt-1200">A(1,i)=i;</span>
&#x00A0;<br />
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Matrix</span>&#x00A0;<span 
class="ectt-1200">Vectu(n,q);</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Matrix</span>&#x00A0;<span 
class="ectt-1200">Vecteps(n-p+1,p*q);</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Matrix</span>&#x00A0;<span 
class="ectt-1200">mean(q,1);</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">SymmetricMatrix</span>&#x00A0;<span 
class="ectt-1200">S(q);</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Matrix</span>&#x00A0;<span 
class="ectt-1200">Smudm(q,q);</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">DiagonalMatrix</span>&#x00A0;<span 
class="ectt-1200">D(q);</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Matrix</span>&#x00A0;<span 
class="ectt-1200">U(q,q);</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Matrix</span>&#x00A0;<span 
class="ectt-1200">V(q,q);</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">Matrix</span>&#x00A0;<span 
class="ectt-1200">Vecte(n-p+1,p*q);</span>
&#x00A0;<br />
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">ColumnVector</span>&#x00A0;<span 
class="ectt-1200">vectstatA(N);</span>
&#x00A0;<br />
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">for</span>&#x00A0;<span 
class="ectt-1200">(i=1;i&#x003C;=N;i=i+1)</span>
&#x00A0;<br />
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">{</span>
&#x00A0;<br />
&#x00A0;<br />
&#x00A0;<br /><span 
class="ectt-1200">//Remplissage</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">Vectu</span>
&#x00A0;<br /><span 
class="ectt-1200">for</span>&#x00A0;<span 
class="ectt-1200">(k=1;k&#x003C;=n;k=k+1)</span>
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">{</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">for</span>&#x00A0;<span 
class="ectt-1200">(l=1;l&#x003C;=q;l=l+1)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">{</span>
&#x00A0;<br />
&#x00A0;<br /><span 
class="ectt-1200">Vectu(k,l)=Z.Next();</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">}</span>
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">}</span>
&#x00A0;<br />
&#x00A0;<br />
&#x00A0;<br /><span 
class="ectt-1200">//Remplissage</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">Vecteps</span>
&#x00A0;<br /><span 
class="ectt-1200">for</span>&#x00A0;<span 
class="ectt-1200">(k=1;k&#x003C;=(n-p+1);k=k+1)</span>
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">{</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">for</span>&#x00A0;<span 
class="ectt-1200">(l=1;l&#x003C;=p;l=l+1)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">{</span>
&#x00A0;<br />
&#x00A0;<br /><span 
class="ectt-1200">Vecteps.SubMatrix(k,k,(l-1)*q+1,l*q)=Vectu.SubMatrix(k+l-1,k+l-1,1,q);</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">}</span>
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">}</span>

&#x00A0;<br />
&#x00A0;<br /><span 
class="ectt-1200">//Calcul</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">mean</span>
&#x00A0;<br /><span 
class="ectt-1200">mean=0.0;</span>
&#x00A0;<br /><span 
class="ectt-1200">for</span>&#x00A0;<span 
class="ectt-1200">(j=1;j&#x003C;=n;j=j+1)</span>
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">{</span>
&#x00A0;<br />
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">mean=mean+(Vectu.SubMatrix(j,j,1,q)).t();</span>
&#x00A0;<br />
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">}</span>
&#x00A0;<br /><span 
class="ectt-1200">mean=mean/n;</span>
&#x00A0;<br />
&#x00A0;<br /><span 
class="ectt-1200">//Calcul</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">S</span>
&#x00A0;<br /><span 
class="ectt-1200">S=0.0;</span>
&#x00A0;<br /><span 
class="ectt-1200">for</span>&#x00A0;<span 
class="ectt-1200">(j=1;j&#x003C;=n;j=j+1)</span>
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">{</span>
&#x00A0;<br />
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">S&#x003C;&#x003C;S+((Vectu.SubMatrix(j,j,1,q)).t()-mean)*(Vectu.SubMatrix(j,j,1,q)-mean.t());</span>
&#x00A0;<br />
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">}</span>
&#x00A0;<br />
&#x00A0;<br /><span 
class="ectt-1200">S=S/n;</span>
&#x00A0;<br />
&#x00A0;<br /><span 
class="ectt-1200">//Calcul</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">S&#x0302;{-1/2}</span>
&#x00A0;<br /><span 
class="ectt-1200">Jacobi(S,D,V);</span>
&#x00A0;<br /><span 
class="ectt-1200">for</span>&#x00A0;<span 
class="ectt-1200">(j=1;j&#x003C;=q;j=j+1)</span>&#x00A0;<span 
class="ectt-1200">D(j,j)=pow(D(j,j),-1.0/2.0);</span>
&#x00A0;<br /><span 
class="ectt-1200">Smudm=V*D*(V.t());</span>
&#x00A0;<br />
&#x00A0;<br />
&#x00A0;<br /><span 
class="ectt-1200">//Calcul</span>&#x00A0;<span 
class="ectt-1200">des</span>&#x00A0;<span 
class="ectt-1200">\gras{e}_j&#x0302;{(k)}</span>
&#x00A0;<br /><span 
class="ectt-1200">for</span>&#x00A0;<span 
class="ectt-1200">(j=1;j&#x003C;=(n-p+1);j=j+1)</span>
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">{</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">for</span>&#x00A0;<span 
class="ectt-1200">(k=1;k&#x003C;=p;k=k+1)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">{</span>
&#x00A0;<br /><span 
class="ectt-1200">Vecte.SubMatrix(j,j,q*(k-1)+1,q*k)=(Vectu.SubMatrix(j+k-1,j+k-1,1,q)-mean.t())*(Smudm.t());</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">}</span>
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">}</span>
&#x00A0;<br />
&#x00A0;<br /><span 
class="ectt-1200">//Calcul</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">la</span>&#x00A0;<span 
class="ectt-1200">statistique,</span>&#x00A0;<span 
class="ectt-1200">cas</span>&#x00A0;<span 
class="ectt-1200">seriel</span>
&#x00A0;<br /><span 
class="ectt-1200">statA=0.0;</span>
&#x00A0;<br />
&#x00A0;<br /><span 
class="ectt-1200">for</span>&#x00A0;<span 
class="ectt-1200">(l=1;l&#x003C;=(n-p+1);l=l+1)</span>
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">{</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">for</span>&#x00A0;<span 
class="ectt-1200">(lprim=1;lprim&#x003C;=(n-p+1);lprim=lprim+1)</span>

&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">{</span>
&#x00A0;<br />
&#x00A0;<br /><span 
class="ectt-1200">prodA=1.0;</span>
&#x00A0;<br /><span 
class="ectt-1200">for</span>&#x00A0;<span 
class="ectt-1200">(k=1;k&#x003C;=CardA;k=k+1)</span>
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">{</span>
&#x00A0;<br />
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">prodA=prodA*(exp(-b*b*0.5*(Vecte.SubMatrix(l,l,q*((int)A(1,k)-1)+1,q*(int)A(1,k))-Vecte.SubMatrix(lprim,lprim,q*((int)A(1,k)-1)+1,q*(int)A(1,k))).SumSquare())-pow(b*b+1.0,-q/2.0)*exp(-0.5*b*b/(b*b+1)*(Vecte.SubMatrix(l,l,q*((int)A(1,k)-1)+1,q*(int)A(1,k))).SumSquare())-pow(b*b+1.0,-q/2.0)*exp(-0.5*b*b/(b*b+1)*(Vecte.SubMatrix(lprim,lprim,q*((int)A(1,k)-1)+1,q*(int)A(1,k))).SumSquare())+pow(2*b*b+1,-q/2.0));</span>
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">}</span>
&#x00A0;<br /><span 
class="ectt-1200">statA=statA+prodA;</span>
&#x00A0;<br />
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">}</span>
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">}</span>
&#x00A0;<br />
&#x00A0;<br /><span 
class="ectt-1200">statA=statA/(n-p+1);</span>
&#x00A0;<br />
&#x00A0;<br /><span 
class="ectt-1200">vectstatA(i)=statA;</span>
&#x00A0;<br />
&#x00A0;<br />
&#x00A0;<br />
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">}</span>
&#x00A0;<br />
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">SortAscending(vectstatA);</span>
&#x00A0;<br />
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">quant=vectstatA((int)((1-alpha)*N));</span>
&#x00A0;<br />
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">cout</span>&#x00A0;<span 
class="ectt-1200">&#x003C;&#x003C;</span>&#x00A0;<span 
class="ectt-1200">&#x0022;\nCas</span>&#x00A0;<span 
class="ectt-1200">seriel.&#x0022;;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">cout</span>&#x00A0;<span 
class="ectt-1200">&#x003C;&#x003C;</span>&#x00A0;<span 
class="ectt-1200">&#x0022;\nParametres:&#x0022;;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">cout</span>&#x00A0;<span 
class="ectt-1200">&#x003C;&#x003C;</span>&#x00A0;<span 
class="ectt-1200">&#x0022;\nalpha=&#x0022;</span>&#x00A0;<span 
class="ectt-1200">&#x003C;&#x003C;</span>&#x00A0;<span 
class="ectt-1200">alpha;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">cout</span>&#x00A0;<span 
class="ectt-1200">&#x003C;&#x003C;</span>&#x00A0;<span 
class="ectt-1200">&#x0022;\nN=&#x0022;&#x003C;&#x003C;N;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">cout</span>&#x00A0;<span 
class="ectt-1200">&#x003C;&#x003C;</span>&#x00A0;<span 
class="ectt-1200">&#x0022;\np=&#x0022;</span>&#x00A0;<span 
class="ectt-1200">&#x003C;&#x003C;</span>&#x00A0;<span 
class="ectt-1200">p;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">cout</span>&#x00A0;<span 
class="ectt-1200">&#x003C;&#x003C;</span>&#x00A0;<span 
class="ectt-1200">&#x0022;\nb=&#x0022;</span>&#x00A0;<span 
class="ectt-1200">&#x003C;&#x003C;</span>&#x00A0;<span 
class="ectt-1200">b;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">cout</span>&#x00A0;<span 
class="ectt-1200">&#x003C;&#x003C;</span>&#x00A0;<span 
class="ectt-1200">&#x0022;\nq=&#x0022;</span>&#x00A0;<span 
class="ectt-1200">&#x003C;&#x003C;</span>&#x00A0;<span 
class="ectt-1200">q;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">cout</span>&#x00A0;<span 
class="ectt-1200">&#x003C;&#x003C;</span>&#x00A0;<span 
class="ectt-1200">&#x0022;\nn=&#x0022;</span>&#x00A0;<span 
class="ectt-1200">&#x003C;&#x003C;</span>&#x00A0;<span 
class="ectt-1200">n;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">cout</span>&#x00A0;<span 
class="ectt-1200">&#x003C;&#x003C;</span>&#x00A0;<span 
class="ectt-1200">&#x0022;\nA=&#x0022;</span>&#x00A0;<span 
class="ectt-1200">&#x003C;&#x003C;</span>&#x00A0;<span 
class="ectt-1200">A;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">cout</span>&#x00A0;<span 
class="ectt-1200">&#x003C;&#x003C;</span>&#x00A0;<span 
class="ectt-1200">&#x0022;CardA=&#x0022;</span>&#x00A0;<span 
class="ectt-1200">&#x003C;&#x003C;</span>&#x00A0;<span 
class="ectt-1200">CardA;</span>
&#x00A0;<br />
&#x00A0;<br />
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">cout</span>&#x00A0;<span 
class="ectt-1200">&#x003C;&#x003C;</span>&#x00A0;<span 
class="ectt-1200">&#x0022;\nQuantile</span>&#x00A0;<span 
class="ectt-1200">d&#x2019;ordre</span>&#x00A0;<span 
class="ectt-1200">1-alpha=1-&#x0022;</span>&#x00A0;<span 
class="ectt-1200">&#x003C;&#x003C;</span>&#x00A0;<span 
class="ectt-1200">alpha</span>&#x00A0;<span 
class="ectt-1200">&#x003C;&#x003C;</span>&#x00A0;<span 
class="ectt-1200">&#x0022;:</span>&#x00A0;<span 
class="ectt-1200">&#x0022;</span>&#x00A0;<span 
class="ectt-1200">&#x003C;&#x003C;</span>&#x00A0;<span 
class="ectt-1200">quant</span>&#x00A0;<span 
class="ectt-1200">&#x003C;&#x003C;&#x0022;\n&#x0022;;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">fin=time(0);</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">cout</span>&#x00A0;<span 
class="ectt-1200">&#x003C;&#x003C;</span>&#x00A0;<span 
class="ectt-1200">&#x0022;Temps</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">calcul</span>&#x00A0;<span 
class="ectt-1200">en</span>&#x00A0;<span 
class="ectt-1200">secondes:</span>&#x00A0;<span 
class="ectt-1200">&#x0022;</span>&#x00A0;<span 
class="ectt-1200">&#x003C;&#x003C;</span>&#x00A0;<span 
class="ectt-1200">fin-debut</span>&#x00A0;<span 
class="ectt-1200">&#x003C;&#x003C;&#x0022;\n\n&#x0022;;</span>
&#x00A0;<br />
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">}</span>
&#x00A0;<br /><span 
class="ectt-1200">}</span>

&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">}</span>
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">}</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">}</span>
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">}</span>
&#x00A0;<br />
&#x00A0;<br />
&#x00A0;<br />
&#x00A0;<br />
&#x00A0;<br /><span 
class="ectt-1200">}</span>
&#x00A0;<br />
&#x00A0;<br />
&#x00A0;<br />
&#x00A0;<br />
&#x00A0;<br />
   </div>
   <h3 class="sectionHead"><span class="titlemark">B.3. </span> <a 
  name="x1-60000B.3"></a>Puissance compar&#x00E9;e avec celle du test de Wilks</h3>
<!--l. 133--><p class="noindent"><span 
class="ecbx-1200">Le fichier </span><span 
class="ecbi-1200">manova.c</span></p><div class="verbatiminput">
<span 
class="ectt-1200">//</span>&#x00A0;<span 
class="ectt-1200">DEBUT</span>&#x00A0;<span 
class="ectt-1200">DES</span>&#x00A0;<span 
class="ectt-1200">DEFINITIONS</span>&#x00A0;<span 
class="ectt-1200">POUR</span>&#x00A0;<span 
class="ectt-1200">POUVOIR</span>&#x00A0;<span 
class="ectt-1200">UTILISER</span>&#x00A0;<span 
class="ectt-1200">LES</span>&#x00A0;<span 
class="ectt-1200">LIBRAIRIES</span>
&#x00A0;<br /><span 
class="ectt-1200">//-----------------------------------------------------------</span>
&#x00A0;<br />
&#x00A0;<br /><span 
class="ectt-1200">#include</span>&#x00A0;<span 
class="ectt-1200">&#x003C;string.h&#x003E;</span>
&#x00A0;<br /><span 
class="ectt-1200">#define</span>&#x00A0;<span 
class="ectt-1200">WANT_STREAM</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">//</span>&#x00A0;<span 
class="ectt-1200">include.h</span>&#x00A0;<span 
class="ectt-1200">will</span>&#x00A0;<span 
class="ectt-1200">get</span>&#x00A0;<span 
class="ectt-1200">stream</span>&#x00A0;<span 
class="ectt-1200">fns</span>
&#x00A0;<br /><span 
class="ectt-1200">#define</span>&#x00A0;<span 
class="ectt-1200">WANT_MATH</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">//</span>&#x00A0;<span 
class="ectt-1200">include.h</span>&#x00A0;<span 
class="ectt-1200">will</span>&#x00A0;<span 
class="ectt-1200">get</span>&#x00A0;<span 
class="ectt-1200">math</span>&#x00A0;<span 
class="ectt-1200">fns</span>
&#x00A0;<br /><span 
class="ectt-1200">//</span>&#x00A0;<span 
class="ectt-1200">newmatap.h</span>&#x00A0;<span 
class="ectt-1200">will</span>&#x00A0;<span 
class="ectt-1200">get</span>&#x00A0;<span 
class="ectt-1200">include.h</span>
&#x00A0;<br /><span 
class="ectt-1200">#include</span>&#x00A0;<span 
class="ectt-1200">&#x0022;./include/newmatap.h&#x0022;</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">//</span>&#x00A0;<span 
class="ectt-1200">need</span>&#x00A0;<span 
class="ectt-1200">matrix</span>&#x00A0;<span 
class="ectt-1200">applications</span>
&#x00A0;<br />
&#x00A0;<br /><span 
class="ectt-1200">#include</span>&#x00A0;<span 
class="ectt-1200">&#x0022;./include/newmatio.h&#x0022;</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">//</span>&#x00A0;<span 
class="ectt-1200">need</span>&#x00A0;<span 
class="ectt-1200">matrix</span>&#x00A0;<span 
class="ectt-1200">output</span>&#x00A0;<span 
class="ectt-1200">routines</span>
&#x00A0;<br />
&#x00A0;<br /><span 
class="ectt-1200">#ifdef</span>&#x00A0;<span 
class="ectt-1200">use_namespace</span>
&#x00A0;<br /><span 
class="ectt-1200">using</span>&#x00A0;<span 
class="ectt-1200">namespace</span>&#x00A0;<span 
class="ectt-1200">NEWMAT;</span>&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">//</span>&#x00A0;<span 
class="ectt-1200">access</span>&#x00A0;<span 
class="ectt-1200">NEWMAT</span>&#x00A0;<span 
class="ectt-1200">namespace</span>
&#x00A0;<br /><span 
class="ectt-1200">#endif</span>
&#x00A0;<br />
&#x00A0;<br /><span 
class="ectt-1200">#ifdef</span>&#x00A0;<span 
class="ectt-1200">use_namespace</span>
&#x00A0;<br /><span 
class="ectt-1200">using</span>&#x00A0;<span 
class="ectt-1200">namespace</span>&#x00A0;<span 
class="ectt-1200">NEWRAN;</span>
&#x00A0;<br /><span 
class="ectt-1200">#endif</span>
&#x00A0;<br />
&#x00A0;<br /><span 
class="ectt-1200">#include</span>&#x00A0;<span 
class="ectt-1200">&#x0022;./include/newran.h&#x0022;</span>&#x00A0;<span 
class="ectt-1200">//</span>&#x00A0;<span 
class="ectt-1200">Pour</span>&#x00A0;<span 
class="ectt-1200">la</span>&#x00A0;<span 
class="ectt-1200">generation</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">nombres</span>&#x00A0;<span 
class="ectt-1200">aleatoires</span>
&#x00A0;<br />
&#x00A0;<br /><span 
class="ectt-1200">#include&#x003C;time.h&#x003E;</span>
&#x00A0;<br />

&#x00A0;<br /><span 
class="ectt-1200">//Pour</span>&#x00A0;<span 
class="ectt-1200">compiler:</span>
&#x00A0;<br /><span 
class="ectt-1200">//g++</span>&#x00A0;<span 
class="ectt-1200">-Wall</span>&#x00A0;<span 
class="ectt-1200">-O</span>&#x00A0;<span 
class="ectt-1200">manova.c</span>&#x00A0;<span 
class="ectt-1200">-L.</span>&#x00A0;<span 
class="ectt-1200">-lnewmat</span>&#x00A0;<span 
class="ectt-1200">-lnewran</span>&#x00A0;<span 
class="ectt-1200">-o</span>&#x00A0;<span 
class="ectt-1200">manova</span>
&#x00A0;<br />
&#x00A0;<br /><span 
class="ectt-1200">int</span>&#x00A0;<span 
class="ectt-1200">main(void)</span>
&#x00A0;<br />
&#x00A0;<br /><span 
class="ectt-1200">{</span>
&#x00A0;<br />
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">Random::Set(0.46875);</span>
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">Normal</span>&#x00A0;<span 
class="ectt-1200">Z;</span>
&#x00A0;<br />
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">double</span>&#x00A0;<span 
class="ectt-1200">theta,</span>&#x00A0;<span 
class="ectt-1200">gamma,</span>&#x00A0;<span 
class="ectt-1200">Lambda,</span>&#x00A0;<span 
class="ectt-1200">stat,</span>&#x00A0;<span 
class="ectt-1200">valcrit90,</span>&#x00A0;<span 
class="ectt-1200">valcrit95,</span>&#x00A0;<span 
class="ectt-1200">puiss90,</span>&#x00A0;<span 
class="ectt-1200">puiss95;</span>
&#x00A0;<br />
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">int</span>&#x00A0;<span 
class="ectt-1200">p,</span>&#x00A0;<span 
class="ectt-1200">q,</span>&#x00A0;<span 
class="ectt-1200">i,</span>&#x00A0;<span 
class="ectt-1200">n,</span>&#x00A0;<span 
class="ectt-1200">j,</span>&#x00A0;<span 
class="ectt-1200">k,</span>&#x00A0;<span 
class="ectt-1200">l,</span>&#x00A0;<span 
class="ectt-1200">nuE,</span>&#x00A0;<span 
class="ectt-1200">nuH,</span>&#x00A0;<span 
class="ectt-1200">rejet90,</span>&#x00A0;<span 
class="ectt-1200">rejet95,</span>&#x00A0;<span 
class="ectt-1200">nbcle,</span>&#x00A0;<span 
class="ectt-1200">CardA;</span>
&#x00A0;<br />
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">double</span>&#x00A0;<span 
class="ectt-1200">ourstat,</span>&#x00A0;<span 
class="ectt-1200">prodA,</span>&#x00A0;<span 
class="ectt-1200">b;</span>
&#x00A0;<br />
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">int</span>&#x00A0;<span 
class="ectt-1200">l1,</span>&#x00A0;<span 
class="ectt-1200">l2,</span>&#x00A0;<span 
class="ectt-1200">binc;</span>
&#x00A0;<br />
&#x00A0;<br />
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">//</span>&#x00A0;<span 
class="ectt-1200">Valeurs</span>&#x00A0;<span 
class="ectt-1200">des</span>&#x00A0;<span 
class="ectt-1200">parametres</span>
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">q=2;</span>
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">p=2;</span>
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">CardA=2;</span>
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">nbcle=10000;</span>&#x00A0;<span 
class="ectt-1200">//</span>&#x00A0;<span 
class="ectt-1200">Nombre</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">boucles</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">Monte-Carlo</span>
&#x00A0;<br />
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">RowVector</span>&#x00A0;<span 
class="ectt-1200">bvalues(6);</span>&#x00A0;<span 
class="ectt-1200">//Differentes</span>&#x00A0;<span 
class="ectt-1200">valeurs</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">b</span>
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">bvalues(1)=0.01;</span>
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">bvalues(2)=0.05;</span>
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">bvalues(3)=0.1;</span>
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">bvalues(4)=0.5;</span>
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">bvalues(5)=1.0;</span>
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">bvalues(6)=3.0;</span>
&#x00A0;<br />
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">prodA=1.0;</span>
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">Matrix</span>&#x00A0;<span 
class="ectt-1200">mean(q,1);</span>
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">SymmetricMatrix</span>&#x00A0;<span 
class="ectt-1200">S(q);</span>
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">Matrix</span>&#x00A0;<span 
class="ectt-1200">Smudm(q,q);</span>
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">DiagonalMatrix</span>&#x00A0;<span 
class="ectt-1200">D(q);</span>
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">Matrix</span>&#x00A0;<span 
class="ectt-1200">U(q,q);</span>
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">Matrix</span>&#x00A0;<span 
class="ectt-1200">V(q,q);</span>
&#x00A0;<br />
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">RowVector</span>&#x00A0;<span 
class="ectt-1200">ourvalcrit90(6);</span>
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">RowVector</span>&#x00A0;<span 
class="ectt-1200">ourvalcrit95(6);</span>

&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">RowVector</span>&#x00A0;<span 
class="ectt-1200">ourpuiss90(6);</span>
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">RowVector</span>&#x00A0;<span 
class="ectt-1200">ourpuiss95(6);</span>
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">RowVector</span>&#x00A0;<span 
class="ectt-1200">ourrejet90(6);</span>
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">RowVector</span>&#x00A0;<span 
class="ectt-1200">ourrejet95(6);</span>
&#x00A0;<br />
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">//Initialisations</span>
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">stat=0;</span>
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">n=0;</span>
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">valcrit90=0.0;</span>
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">valcrit95=0.0;</span>
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">ourvalcrit90=0.0;</span>
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">ourvalcrit95=0.0;</span>
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">theta=0.0;</span>
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">gamma=0.0;</span>
&#x00A0;<br />
&#x00A0;<br />
&#x00A0;<br />
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">cout</span>&#x00A0;<span 
class="ectt-1200">&#x003C;&#x003C;</span>&#x00A0;<span 
class="ectt-1200">&#x0022;Valeur</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">theta?</span>&#x00A0;<span 
class="ectt-1200">&#x0022;;</span>
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">cin</span>&#x00A0;<span 
class="ectt-1200">&#x003E;&#x003E;</span>&#x00A0;<span 
class="ectt-1200">theta;</span>
&#x00A0;<br />
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">cout</span>&#x00A0;<span 
class="ectt-1200">&#x003C;&#x003C;</span>&#x00A0;<span 
class="ectt-1200">&#x0022;\nValeur</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">gamma?</span>&#x00A0;<span 
class="ectt-1200">&#x0022;;</span>
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">cin</span>&#x00A0;<span 
class="ectt-1200">&#x003E;&#x003E;</span>&#x00A0;<span 
class="ectt-1200">gamma;</span>
&#x00A0;<br />
&#x00A0;<br />
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">//</span>&#x00A0;<span 
class="ectt-1200">On</span>&#x00A0;<span 
class="ectt-1200">suppose</span>&#x00A0;<span 
class="ectt-1200">que</span>&#x00A0;<span 
class="ectt-1200">\mu=0</span>&#x00A0;<span 
class="ectt-1200">(qx1),</span>&#x00A0;<span 
class="ectt-1200">\Sigma=\gamma.I_q</span>&#x00A0;<span 
class="ectt-1200">(qxq),</span>&#x00A0;<span 
class="ectt-1200">\Psi=\theta.I_q</span>&#x00A0;<span 
class="ectt-1200">(qxq).</span>
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">//</span>&#x00A0;<span 
class="ectt-1200">On</span>&#x00A0;<span 
class="ectt-1200">veut</span>&#x00A0;<span 
class="ectt-1200">simuler</span>&#x00A0;<span 
class="ectt-1200">\epsilonlon_i&#x0302;{(j)}=\alpha_i+\delta_i&#x0302;{(j)}</span>&#x00A0;<span 
class="ectt-1200">(qx1).</span>
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">//</span>&#x00A0;<span 
class="ectt-1200">\alpha_i</span>&#x00A0;<span 
class="ectt-1200">suit</span>&#x00A0;<span 
class="ectt-1200">N_q(0,\theta.I_q)</span>&#x00A0;<span 
class="ectt-1200">(qx1).</span>
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">//</span>&#x00A0;<span 
class="ectt-1200">\delta_i&#x0302;{(j)}</span>&#x00A0;<span 
class="ectt-1200">suit</span>&#x00A0;<span 
class="ectt-1200">N_q(0,\gamma.I_q)</span>&#x00A0;<span 
class="ectt-1200">(qx1).</span>
&#x00A0;<br />
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">ColumnVector</span>&#x00A0;<span 
class="ectt-1200">alpha(q);</span>
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">ColumnVector</span>&#x00A0;<span 
class="ectt-1200">delta(q);</span>
&#x00A0;<br />
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">//</span>&#x00A0;<span 
class="ectt-1200">Matrice</span>&#x00A0;<span 
class="ectt-1200">E:qxq</span>
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">Matrix</span>&#x00A0;<span 
class="ectt-1200">E(q,q);E=0.0;</span>
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">//</span>&#x00A0;<span 
class="ectt-1200">Matrice</span>&#x00A0;<span 
class="ectt-1200">H:qxq</span>
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">Matrix</span>&#x00A0;<span 
class="ectt-1200">H(q,q);H=0.0;</span>
&#x00A0;<br />
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">//</span>&#x00A0;<span 
class="ectt-1200">\epsilon&#x0302;{(.)}</span>
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">ColumnVector</span>&#x00A0;<span 
class="ectt-1200">epsilonp(q);epsilonp=0.0;</span>
&#x00A0;<br />
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">//</span>&#x00A0;<span 
class="ectt-1200">\epsilon_.&#x0302;{(.)}</span>
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">ColumnVector</span>&#x00A0;<span 
class="ectt-1200">epsilonpp(q);epsilonpp=0.0;</span>
&#x00A0;<br />

&#x00A0;<br />
&#x00A0;<br />
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">//</span>&#x00A0;<span 
class="ectt-1200">Taille</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">l&#x2019;echantillon</span>
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">for</span>&#x00A0;<span 
class="ectt-1200">(n=20;n&#x003C;=50;n=n+30)</span>&#x00A0;<span 
class="ectt-1200">{</span>
&#x00A0;<br />
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">//</span>&#x00A0;<span 
class="ectt-1200">Matrice</span>&#x00A0;<span 
class="ectt-1200">qui</span>&#x00A0;<span 
class="ectt-1200">contient</span>&#x00A0;<span 
class="ectt-1200">l&#x2019;echantillon</span>&#x00A0;<span 
class="ectt-1200">des</span>&#x00A0;<span 
class="ectt-1200">n</span>&#x00A0;<span 
class="ectt-1200">matrices</span>&#x00A0;<span 
class="ectt-1200">qxp.</span>
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">Matrix</span>&#x00A0;<span 
class="ectt-1200">epsilon(q,n*p);</span>
&#x00A0;<br />
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">Matrix</span>&#x00A0;<span 
class="ectt-1200">Vecte(q,n*p);</span>
&#x00A0;<br />
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">rejet90=0;</span>
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">rejet95=0;</span>
&#x00A0;<br />
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">ourrejet90=0;</span>
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">ourrejet95=0;</span>
&#x00A0;<br />
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">nuE=n*(p-1);</span>
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">nuH=n-1;</span>
&#x00A0;<br />
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">//</span>&#x00A0;<span 
class="ectt-1200">Quantiles.</span>&#x00A0;<span 
class="ectt-1200">Prob[</span>&#x00A0;<span 
class="ectt-1200">F(2nuH,2(nuE-1))</span>&#x00A0;<span 
class="ectt-1200">&#x003C;</span>&#x00A0;<span 
class="ectt-1200">valcritalpha]=1-alpha:</span>
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">//</span>&#x00A0;<span 
class="ectt-1200">Valable</span>&#x00A0;<span 
class="ectt-1200">pour</span>&#x00A0;<span 
class="ectt-1200">p=2</span>&#x00A0;<span 
class="ectt-1200">et</span>&#x00A0;<span 
class="ectt-1200">1-alpha=0.9</span>
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">if</span>&#x00A0;<span 
class="ectt-1200">(n==20)</span>&#x00A0;<span 
class="ectt-1200">valcrit90=1.5220424707334;</span>
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">if</span>&#x00A0;<span 
class="ectt-1200">(n==50)</span>&#x00A0;<span 
class="ectt-1200">valcrit90=1.29684892953112;</span>
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">//</span>&#x00A0;<span 
class="ectt-1200">Valable</span>&#x00A0;<span 
class="ectt-1200">pour</span>&#x00A0;<span 
class="ectt-1200">p=2</span>&#x00A0;<span 
class="ectt-1200">et</span>&#x00A0;<span 
class="ectt-1200">1-alpha=0.95</span>
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">if</span>&#x00A0;<span 
class="ectt-1200">(n==20)</span>&#x00A0;<span 
class="ectt-1200">valcrit95=1.71668714444190;</span>
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">if</span>&#x00A0;<span 
class="ectt-1200">(n==50)</span>&#x00A0;<span 
class="ectt-1200">valcrit95=1.39644309133888;</span>
&#x00A0;<br />
&#x00A0;<br />
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">//</span>&#x00A0;<span 
class="ectt-1200">Nos</span>&#x00A0;<span 
class="ectt-1200">quantiles</span>
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">if</span>&#x00A0;<span 
class="ectt-1200">(n==20)</span>&#x00A0;<span 
class="ectt-1200">{</span>
&#x00A0;<br />
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">ourvalcrit90(1)=7.58279e-08;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">ourvalcrit95(1)=9.10616e-08;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">ourvalcrit90(2)=4.67959e-05;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">ourvalcrit95(2)=5.61555e-05;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">ourvalcrit90(3)=0.000718;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">ourvalcrit95(3)=0.000854;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">ourvalcrit90(4)=0.170;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">ourvalcrit95(4)=0.191;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">ourvalcrit90(5)=0.561;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">ourvalcrit95(5)=0.606;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">ourvalcrit90(6)=0.938;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">ourvalcrit95(6)=0.955;</span>

&#x00A0;<br />
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">}</span>
&#x00A0;<br />
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">if</span>&#x00A0;<span 
class="ectt-1200">(n==50)</span>&#x00A0;<span 
class="ectt-1200">{</span>
&#x00A0;<br />
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">ourvalcrit90(1)=7.7359e-08;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">ourvalcrit95(1)=9.24039e-08;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">ourvalcrit90(2)=4.77215e-05;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">ourvalcrit95(2)=5.68904e-05;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">ourvalcrit90(3)=0.000718;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">ourvalcrit95(3)=0.000883;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">ourvalcrit90(4)=0.167;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">ourvalcrit95(4)=0.192;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">ourvalcrit90(5)=0.558;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">ourvalcrit95(5)=0.603;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">ourvalcrit90(6)=0.940;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">ourvalcrit95(6)=0.954;</span>
&#x00A0;<br />
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">}</span>
&#x00A0;<br />
&#x00A0;<br />
&#x00A0;<br />
&#x00A0;<br />
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">//</span>&#x00A0;<span 
class="ectt-1200">Debut</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">la</span>&#x00A0;<span 
class="ectt-1200">boucle</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">Monte-Carlo</span>
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">for</span>&#x00A0;<span 
class="ectt-1200">(l=1;l&#x003C;=nbcle;l=l+1)</span>&#x00A0;<span 
class="ectt-1200">{</span>
&#x00A0;<br />
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">E=0.0;H=0.0;</span>
&#x00A0;<br />
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">//</span>&#x00A0;<span 
class="ectt-1200">On</span>&#x00A0;<span 
class="ectt-1200">cree</span>&#x00A0;<span 
class="ectt-1200">l&#x2019;echantillon</span>&#x00A0;<span 
class="ectt-1200">des</span>&#x00A0;<span 
class="ectt-1200">epsilon</span>
&#x00A0;<br />
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">for</span>&#x00A0;<span 
class="ectt-1200">(i=1;i&#x003C;=n;i=i+1)</span>&#x00A0;<span 
class="ectt-1200">{</span>
&#x00A0;<br />
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">for</span>&#x00A0;<span 
class="ectt-1200">(k=1;k&#x003C;=q;k=k+1)</span>&#x00A0;<span 
class="ectt-1200">{alpha(k)=(sqrt(theta))*(Z.Next());}</span>
&#x00A0;<br />
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">for</span>&#x00A0;<span 
class="ectt-1200">(j=1;j&#x003C;=p;j=j+1)</span>&#x00A0;<span 
class="ectt-1200">{</span>
&#x00A0;<br />
&#x00A0;<br /><span 
class="ectt-1200">for</span>&#x00A0;<span 
class="ectt-1200">(k=1;k&#x003C;=q;k=k+1)</span>&#x00A0;<span 
class="ectt-1200">{delta(k)=(sqrt(gamma))*(Z.Next());}</span>
&#x00A0;<br />
&#x00A0;<br /><span 
class="ectt-1200">//</span>&#x00A0;<span 
class="ectt-1200">C&#x2019;est</span>&#x00A0;<span 
class="ectt-1200">\epsilon_i&#x0302;{(j)}</span>
&#x00A0;<br /><span 
class="ectt-1200">epsilon.Column((i-1)*p+j)=alpha+delta;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">}</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">}</span>
&#x00A0;<br />

&#x00A0;<br />
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">//</span>&#x00A0;<span 
class="ectt-1200">On</span>&#x00A0;<span 
class="ectt-1200">calcule</span>&#x00A0;<span 
class="ectt-1200">la</span>&#x00A0;<span 
class="ectt-1200">statistique</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">test</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">Wilks</span>
&#x00A0;<br />
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">//</span>&#x00A0;<span 
class="ectt-1200">Calcul</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">epsilonpp=\overline{\epsilon}</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">epsilonpp=0.0;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">for</span>&#x00A0;<span 
class="ectt-1200">(i=1;i&#x003C;=n;i=i+1)</span>&#x00A0;<span 
class="ectt-1200">{</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">for</span>&#x00A0;<span 
class="ectt-1200">(j=1;j&#x003C;=p;j=j+1)</span>&#x00A0;<span 
class="ectt-1200">{</span>
&#x00A0;<br /><span 
class="ectt-1200">epsilonpp=epsilonpp+epsilon.Column((i-1)*p+j);</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">}</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">}</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">epsilonpp=epsilonpp/(n*p);</span>
&#x00A0;<br />
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">for</span>&#x00A0;<span 
class="ectt-1200">(i=1;i&#x003C;=n;i=i+1)</span>&#x00A0;<span 
class="ectt-1200">{</span>
&#x00A0;<br />
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">//</span>&#x00A0;<span 
class="ectt-1200">Calcul</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">epsilonp</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">epsilonp=0.0;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">for</span>&#x00A0;<span 
class="ectt-1200">(j=1;j&#x003C;=p;j=j+1)</span>&#x00A0;<span 
class="ectt-1200">{</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">epsilonp=epsilonp+epsilon.Column((i-1)*p+j);</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">}</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">epsilonp=epsilonp/p;</span>
&#x00A0;<br />
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">//</span>&#x00A0;<span 
class="ectt-1200">Calcul</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">H</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">H=H+(epsilonp-epsilonpp)*((epsilonp-epsilonpp).t());</span>
&#x00A0;<br />
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">//Calcul</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">E</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">for</span>&#x00A0;<span 
class="ectt-1200">(j=1;j&#x003C;=p;j=j+1)</span>&#x00A0;<span 
class="ectt-1200">{</span>
&#x00A0;<br /><span 
class="ectt-1200">E=E+(epsilon.Column((i-1)*p+j)-epsilonp)*((epsilon.Column((i-1)*p+j)-epsilonp).t());</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">}</span>
&#x00A0;<br />
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">}</span>
&#x00A0;<br />
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">H=p*H;</span>
&#x00A0;<br />
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">//</span>&#x00A0;<span 
class="ectt-1200">Calcul</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">Lambda</span>
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">Lambda=(E.Determinant())/((E+H).Determinant());</span>
&#x00A0;<br />
&#x00A0;<br />
&#x00A0;<br />
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">//</span>&#x00A0;<span 
class="ectt-1200">Valable</span>&#x00A0;<span 
class="ectt-1200">si</span>&#x00A0;<span 
class="ectt-1200">q=2</span>
&#x00A0;<br />
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">if</span>&#x00A0;<span 
class="ectt-1200">(q==2)</span>&#x00A0;<span 
class="ectt-1200">{</span>
&#x00A0;<br />
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">stat=((nuE-1)/nuH)*((1-sqrt(Lambda))/(sqrt(Lambda)));</span>

&#x00A0;<br />
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">}</span>
&#x00A0;<br />
&#x00A0;<br />
&#x00A0;<br />
&#x00A0;<br />
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">if</span>&#x00A0;<span 
class="ectt-1200">(stat&#x003E;valcrit90)</span>&#x00A0;<span 
class="ectt-1200">rejet90=rejet90+1;</span>
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">if</span>&#x00A0;<span 
class="ectt-1200">(stat&#x003E;valcrit95)</span>&#x00A0;<span 
class="ectt-1200">rejet95=rejet95+1;</span>
&#x00A0;<br />
&#x00A0;<br />
&#x00A0;<br />
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">//Calcul</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">mean</span>
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">for</span>&#x00A0;<span 
class="ectt-1200">(j=1;j&#x003C;=q;j=j+1)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">{</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">mean(j,1)=epsilonpp(j);</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">}</span>
&#x00A0;<br />
&#x00A0;<br />
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">//Calcul</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">S</span>
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">S=0.0;</span>
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">for</span>&#x00A0;<span 
class="ectt-1200">(j=1;j&#x003C;=n;j=j+1)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">{</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">for</span>&#x00A0;<span 
class="ectt-1200">(k=1;k&#x003C;=p;k=k+1)</span>
&#x00A0;<br /><span 
class="ectt-1200">{</span>
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">S&#x003C;&#x003C;S+(epsilon.Column((j-1)*p+k)-mean)*((epsilon.Column((j-1)*p+k)-mean).t());</span>
&#x00A0;<br /><span 
class="ectt-1200">}</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">}</span>
&#x00A0;<br />
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">S=S/(n*p);</span>
&#x00A0;<br />
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">//Calcul</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">S&#x0302;{-1/2}</span>
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">Jacobi(S,D,V);</span>
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">for</span>&#x00A0;<span 
class="ectt-1200">(j=1;j&#x003C;=q;j=j+1)</span>&#x00A0;<span 
class="ectt-1200">D(j,j)=pow(D(j,j),-1.0/2.0);</span>
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">Smudm=V*D*(V.t());</span>
&#x00A0;<br />
&#x00A0;<br />
&#x00A0;<br />
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">//Calcul</span>&#x00A0;<span 
class="ectt-1200">des</span>&#x00A0;<span 
class="ectt-1200">\gras{e}_j&#x0302;{(k)}</span>
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">for</span>&#x00A0;<span 
class="ectt-1200">(j=1;j&#x003C;=n;j=j+1)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">{</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">for</span>&#x00A0;<span 
class="ectt-1200">(k=1;k&#x003C;=p;k=k+1)</span>
&#x00A0;<br /><span 
class="ectt-1200">{</span>
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">Vecte.Column((j-1)*p+k)=Smudm*(epsilon.Column((j-1)*p+k)-mean);</span>

&#x00A0;<br /><span 
class="ectt-1200">}</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">}</span>
&#x00A0;<br />
&#x00A0;<br />
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">for</span>&#x00A0;<span 
class="ectt-1200">(binc=1;binc&#x003C;=6;binc=binc+1){</span>
&#x00A0;<br />
&#x00A0;<br /><span 
class="ectt-1200">//Calcul</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">la</span>&#x00A0;<span 
class="ectt-1200">statistique,</span>&#x00A0;<span 
class="ectt-1200">cas</span>&#x00A0;<span 
class="ectt-1200">non</span>&#x00A0;<span 
class="ectt-1200">seriel</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">ourstat=0.0;</span>&#x00A0;<span 
class="ectt-1200">b=bvalues(binc);</span>
&#x00A0;<br />
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">for</span>&#x00A0;<span 
class="ectt-1200">(l1=1;l1&#x003C;=n;l1=l1+1)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">{</span>
&#x00A0;<br /><span 
class="ectt-1200">for</span>&#x00A0;<span 
class="ectt-1200">(l2=1;l2&#x003C;=n;l2=l2+1)</span>
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">{</span>
&#x00A0;<br />
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">prodA=1.0;</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">for</span>&#x00A0;<span 
class="ectt-1200">(k=1;k&#x003C;=CardA;k=k+1)</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">{</span>
&#x00A0;<br />
&#x00A0;<br /><span 
class="ectt-1200">prodA=prodA*(exp(-b*b*0.5*((Vecte.Column((l1-1)*p+k)-Vecte.Column((l2-1)*p+k)).SumSquare()))-pow(b*b+1.0,-q/2.0)*exp(-0.5*b*b/(b*b+1)*((Vecte.Column((l1-1)*p+k)).SumSquare()))-pow(b*b+1.0,-q/2.0)*exp(-0.5*b*b/(b*b+1)*((Vecte.Column((l2-1)*p+k)).SumSquare()))+pow(2*b*b+1,-q/2.0));</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">}</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">ourstat=ourstat+prodA;</span>
&#x00A0;<br />
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">}</span>
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">}</span>
&#x00A0;<br />
&#x00A0;<br />&#x00A0;&#x00A0;&#x00A0;&#x00A0;<span 
class="ectt-1200">ourstat=ourstat/n;</span>
&#x00A0;<br />
&#x00A0;<br />
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">if</span>&#x00A0;<span 
class="ectt-1200">(ourstat&#x003E;ourvalcrit90(binc))</span>&#x00A0;<span 
class="ectt-1200">ourrejet90(binc)=ourrejet90(binc)+1;</span>
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">if</span>&#x00A0;<span 
class="ectt-1200">(ourstat&#x003E;ourvalcrit95(binc))</span>&#x00A0;<span 
class="ectt-1200">ourrejet95(binc)=ourrejet95(binc)+1;</span>
&#x00A0;<br />
&#x00A0;<br /><span 
class="ectt-1200">}</span>
&#x00A0;<br />
&#x00A0;<br />
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">}</span>
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">//</span>&#x00A0;<span 
class="ectt-1200">Fin</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">la</span>&#x00A0;<span 
class="ectt-1200">boucle</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">Monte-Carlo</span>
&#x00A0;<br />
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">//</span>&#x00A0;<span 
class="ectt-1200">Calcul</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">la</span>&#x00A0;<span 
class="ectt-1200">puissance</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">Wilks</span>&#x00A0;<span 
class="ectt-1200">(ou</span>&#x00A0;<span 
class="ectt-1200">du</span>&#x00A0;<span 
class="ectt-1200">niveau</span>&#x00A0;<span 
class="ectt-1200">si</span>&#x00A0;<span 
class="ectt-1200">theta=0).</span>
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">puiss90=(rejet90*100)/double(nbcle);</span>
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">puiss95=(rejet95*100)/double(nbcle);</span>
&#x00A0;<br />
&#x00A0;<br /><span 
class="ectt-1200">for</span>&#x00A0;<span 
class="ectt-1200">(binc=1;binc&#x003C;=6;binc=binc+1){</span>
&#x00A0;<br />

&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">//</span>&#x00A0;<span 
class="ectt-1200">Calcul</span>&#x00A0;<span 
class="ectt-1200">de</span>&#x00A0;<span 
class="ectt-1200">notre</span>&#x00A0;<span 
class="ectt-1200">puissance</span>&#x00A0;<span 
class="ectt-1200">(ou</span>&#x00A0;<span 
class="ectt-1200">du</span>&#x00A0;<span 
class="ectt-1200">niveau</span>&#x00A0;<span 
class="ectt-1200">si</span>&#x00A0;<span 
class="ectt-1200">theta=0).</span>
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">ourpuiss90(binc)=(ourrejet90(binc)*100)/double(nbcle);</span>
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">ourpuiss95(binc)=(ourrejet95(binc)*100)/double(nbcle);</span>
&#x00A0;<br />
&#x00A0;<br /><span 
class="ectt-1200">}</span>
&#x00A0;<br />
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">//</span>&#x00A0;<span 
class="ectt-1200">Affichage</span>&#x00A0;<span 
class="ectt-1200">des</span>&#x00A0;<span 
class="ectt-1200">resultats</span>
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">cout</span>&#x00A0;<span 
class="ectt-1200">&#x003C;&#x003C;</span>&#x00A0;<span 
class="ectt-1200">&#x0022;n=&#x0022;</span>&#x00A0;<span 
class="ectt-1200">&#x003C;&#x003C;</span>&#x00A0;<span 
class="ectt-1200">n</span>&#x00A0;<span 
class="ectt-1200">&#x003C;&#x003C;</span>&#x00A0;<span 
class="ectt-1200">&#x0022;\n&#x0022;;</span>
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">cout</span>&#x00A0;<span 
class="ectt-1200">&#x003C;&#x003C;</span>&#x00A0;<span 
class="ectt-1200">&#x0022;nbcle=&#x0022;</span>&#x00A0;<span 
class="ectt-1200">&#x003C;&#x003C;</span>&#x00A0;<span 
class="ectt-1200">nbcle</span>&#x00A0;<span 
class="ectt-1200">&#x003C;&#x003C;</span>&#x00A0;<span 
class="ectt-1200">&#x0022;\n&#x0022;;</span>
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">cout</span>&#x00A0;<span 
class="ectt-1200">&#x003C;&#x003C;</span>&#x00A0;<span 
class="ectt-1200">&#x0022;puiss90=&#x0022;</span>&#x00A0;<span 
class="ectt-1200">&#x003C;&#x003C;</span>&#x00A0;<span 
class="ectt-1200">puiss90</span>&#x00A0;<span 
class="ectt-1200">&#x003C;&#x003C;</span>&#x00A0;<span 
class="ectt-1200">&#x0022;%\n&#x0022;;</span>
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">cout</span>&#x00A0;<span 
class="ectt-1200">&#x003C;&#x003C;</span>&#x00A0;<span 
class="ectt-1200">&#x0022;puiss95=&#x0022;</span>&#x00A0;<span 
class="ectt-1200">&#x003C;&#x003C;</span>&#x00A0;<span 
class="ectt-1200">puiss95</span>&#x00A0;<span 
class="ectt-1200">&#x003C;&#x003C;</span>&#x00A0;<span 
class="ectt-1200">&#x0022;%\n&#x0022;;</span>
&#x00A0;<br /><span 
class="ectt-1200">for</span>&#x00A0;<span 
class="ectt-1200">(binc=1;binc&#x003C;=6;binc=binc+1){</span>
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">cout</span>&#x00A0;<span 
class="ectt-1200">&#x003C;&#x003C;</span>&#x00A0;<span 
class="ectt-1200">&#x0022;b=&#x0022;</span>&#x00A0;<span 
class="ectt-1200">&#x003C;&#x003C;</span>&#x00A0;<span 
class="ectt-1200">bvalues(binc)</span>&#x00A0;<span 
class="ectt-1200">&#x003C;&#x003C;</span>&#x00A0;<span 
class="ectt-1200">&#x0022;\n&#x0022;;</span>
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">cout</span>&#x00A0;<span 
class="ectt-1200">&#x003C;&#x003C;</span>&#x00A0;<span 
class="ectt-1200">&#x0022;ourpuiss90=&#x0022;</span>&#x00A0;<span 
class="ectt-1200">&#x003C;&#x003C;</span>&#x00A0;<span 
class="ectt-1200">ourpuiss90(binc)</span>&#x00A0;<span 
class="ectt-1200">&#x003C;&#x003C;</span>&#x00A0;<span 
class="ectt-1200">&#x0022;%\n&#x0022;;</span>
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">cout</span>&#x00A0;<span 
class="ectt-1200">&#x003C;&#x003C;</span>&#x00A0;<span 
class="ectt-1200">&#x0022;ourpuiss95=&#x0022;</span>&#x00A0;<span 
class="ectt-1200">&#x003C;&#x003C;</span>&#x00A0;<span 
class="ectt-1200">ourpuiss95(binc)</span>&#x00A0;<span 
class="ectt-1200">&#x003C;&#x003C;</span>&#x00A0;<span 
class="ectt-1200">&#x0022;%\n&#x0022;;</span>
&#x00A0;<br /><span 
class="ectt-1200">}</span>
&#x00A0;<br />
&#x00A0;<br />
&#x00A0;<br />&#x00A0;&#x00A0;<span 
class="ectt-1200">}</span>
&#x00A0;<br />
&#x00A0;<br />
&#x00A0;<br /><span 
class="ectt-1200">}</span>
   </div>







   <p 
class="leftline">                                                                   </p>
_______________________________________________________________________________
   <h2 class="likechapterHead"><a 
  name="x1-61000B.3"></a>Curriculum Vitae</h2>
<!--l. 7--><p class="noindent"><span 
class="ecbx-1200">Formation acad</span><span 
class="ecbx-1200">&#x00E9;</span><span 
class="ecbx-1200">mique</span>
<br class="newline" />
      </p><ul class="itemize1">
      <li class="itemize">1998-2002 <!--l. 13--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"></math>
      PhD en statistique - Doctorat de Math&#x00E9;matiques Appliqu&#x00E9;es.
      <br class="newline" />           Cotutelle France-Qu&#x00E9;bec.
      <br class="newline" />           Tests d&#x2019;ind&#x00E9;pendance en analyse multivari&#x00E9;e et tests de
      <br class="newline" />           normalit&#x00E9; dans les mod&#x00E8;les ARMA.
      <br class="newline" />           Directeurs de th&#x00E8;se&#x00A0;: G. Ducharme et M. Bilodeau.
      <br class="newline" />           Universit&#x00E9; Montpellier II et Universit&#x00E9; de Montr&#x00E9;al.
      <br class="newline" />
      </li>
      <li class="itemize">1997-1998 <!--l. 20--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"></math>
      D.E.A. de Biostatistique
      <br class="newline" />           Equivalent &#x00E0; la 2&#x00E8;me ann&#x00E9;e de ma&#x00EE;trise au Qu&#x00E9;bec.
      <br class="newline" />           Universit&#x00E9; Montpellier II.
      <br class="newline" />
      </li>
      <li class="itemize">1996-1997 <!--l. 24--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"></math>
      Ma&#x00EE;trise d&#x2019;Ing&#x00E9;nierie Math&#x00E9;matique.
      <br class="newline" />           Equivalent &#x00E0; la 1&#x00E8;re ann&#x00E9;e de ma&#x00EE;trise au Qu&#x00E9;bec.
      <br class="newline" />           Universit&#x00E9; Montpellier II.
      <br class="newline" />
      </li>
      <li class="itemize">1994-1996 <!--l. 28--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"></math>
      Licence de Math&#x00E9;matiques.
      <br class="newline" />           Equivalent &#x00E0; la 3&#x00E8;me ann&#x00E9;e de Baccalaur&#x00E9;at au Qu&#x00E9;bec.
      <br class="newline" />           Universit&#x00E9; Montpellier II.
      <br class="newline" />
      </li>
      <li class="itemize">1992-1994 <!--l. 32--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"></math>
      Deug A MP&#x2019; Physique.
      <br class="newline" />           Equivalent aux deux premi&#x00E8;res ann&#x00E9;es de Baccalaur&#x00E9;at au
      Qu&#x00E9;bec.
      <br class="newline" />           Universit&#x00E9; Montpellier II.
      <br class="newline" />

      </li>
      <li class="itemize">1991-1992 <!--l. 36--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"></math>
      Premi&#x00E8;re ann&#x00E9;e de Math&#x00E9;matiques Sup&#x00E9;rieures.
      <br class="newline" />           Lyc&#x00E9;e Joffre, Montpellier.
      <br class="newline" />
      </li>
      <li class="itemize">1991        <!--l. 39--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"></math>
      Baccalaur&#x00E9;at fran&#x00E7;ais s&#x00E9;rie C.
      <br class="newline" />
      </li></ul>
<!--l. 41--><p class="nopar">
</p><!--l. 43--><p class="indent">   <span 
class="ecbx-1200">Coordonn</span><span 
class="ecbx-1200">&#x00E9;</span><span 
class="ecbx-1200">es</span>
<br class="newline" />
      </p><ul class="itemize1">
      <li class="itemize">Email 1&#x00A0;: lafaye@dms.umontreal.ca
      </li>
      <li class="itemize">Email 2&#x00A0;: plafaye@club-internet.fr
      </li>
      <li class="itemize">Site Internet 1&#x00A0;: <a 
href="http://www.dms.umontreal.ca/~lafaye" class="url" ><span 
class="ectt-1200">http://www.dms.umontreal.ca/~lafaye</span></a>
      </li>
      <li class="itemize">Site Internet 2&#x00A0;: <a 
href="http://perso.club-internet.fr/plafaye" class="url" ><span 
class="ectt-1200">http://perso.club-internet.fr/plafaye</span></a></li></ul>
<!--l. 51--><p class="nopar">





</p>
   <p 
class="leftline">                                                                   </p>
_______________________________________________________________________________
   <h2 class="likechapterHead"><a 
  name="x1-62000B.3"></a>Documents sp&#x00E9;ciaux</h2>
<div class="flushleft" 
>
 Une disquette contenant les programmes informatiques est annex&#x00E9;e &#x00E0; ce
document.</div>


<dl class="list1"><dt class="list">
</dt><dd 
class="list">___________________________________________________________________________________
<br class="newline" /><span 
class="ecbx-1000">R</span><span 
class="ecbx-1000">&#x00C9;</span><span 
class="ecbx-1000">SUM</span><span 
class="ecbx-1000">&#x00C9;</span>&#x00A0;<span 
class="ecbx-1000">: </span><span 
class="ecrm-1000">On construit un test d&#x2019;ajustement de la normalit</span><span 
class="ecrm-1000">&#x00E9;</span> <span 
class="ecrm-1000">pour les innovations d&#x2019;un mod</span><span 
class="ecrm-1000">&#x00E8;</span><span 
class="ecrm-1000">le</span>
<span 
class="ecrm-1000">ARMA(</span><!--l. 7--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mi 
>p</mi></math><span 
class="ecrm-1000">,</span>
<!--l. 7--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mi 
>q</mi></math><span 
class="ecrm-1000">)</span>
<span 
class="ecrm-1000">de tendance  et  moyenne  connues,  bas</span><span 
class="ecrm-1000">&#x00E9;</span>  <span 
class="ecrm-1000">sur  l&#x2019;approche  du  test  lisse  d</span><span 
class="ecrm-1000">&#x00E9;</span><span 
class="ecrm-1000">pendant  des  donn</span><span 
class="ecrm-1000">&#x00E9;</span><span 
class="ecrm-1000">es  et</span>
<span 
class="ecrm-1000">simple </span><span 
class="ecrm-1000">&#x00E0;</span> <span 
class="ecrm-1000">appliquer. Une vaste </span><span 
class="ecrm-1000">&#x00E9;</span><span 
class="ecrm-1000">tude de simulation est men</span><span 
class="ecrm-1000">&#x00E9;</span><span 
class="ecrm-1000">e pour </span><span 
class="ecrm-1000">&#x00E9;</span><span 
class="ecrm-1000">tudier ce test pour des tailles</span>
<span 
class="ecrm-1000">&#x00E9;</span><span 
class="ecrm-1000">chantillonnales mod</span><span 
class="ecrm-1000">&#x00E9;</span><span 
class="ecrm-1000">r</span><span 
class="ecrm-1000">&#x00E9;</span><span 
class="ecrm-1000">es. Notre approche est en g</span><span 
class="ecrm-1000">&#x00E9;</span><span 
class="ecrm-1000">n</span><span 
class="ecrm-1000">&#x00E9;</span><span 
class="ecrm-1000">ral plus puissante que les tests existants. Le</span>
<span 
class="ecrm-1000">niveau est tenu sur la majeure partie de l&#x2019;espace param</span><span 
class="ecrm-1000">&#x00E9;</span><span 
class="ecrm-1000">trique. Cela est en accord avec les r</span><span 
class="ecrm-1000">&#x00E9;</span><span 
class="ecrm-1000">sultats</span>
<span 
class="ecrm-1000">th</span><span 
class="ecrm-1000">&#x00E9;</span><span 
class="ecrm-1000">oriques montrant la sup</span><span 
class="ecrm-1000">&#x00E9;</span><span 
class="ecrm-1000">riorit</span><span 
class="ecrm-1000">&#x00E9;</span> <span 
class="ecrm-1000">de l&#x2019;approche du test lisse d</span><span 
class="ecrm-1000">&#x00E9;</span><span 
class="ecrm-1000">pendant des donn</span><span 
class="ecrm-1000">&#x00E9;</span><span 
class="ecrm-1000">es dans des</span>
<span 
class="ecrm-1000">contextes similaires.</span>
<br class="newline" /><span 
class="ecrm-1000">Un test d&#x2019;ind</span><span 
class="ecrm-1000">&#x00E9;</span><span 
class="ecrm-1000">pendance (ou d&#x2019;ind</span><span 
class="ecrm-1000">&#x00E9;</span><span 
class="ecrm-1000">pendance s</span><span 
class="ecrm-1000">&#x00E9;</span><span 
class="ecrm-1000">rielle) semi-param</span><span 
class="ecrm-1000">&#x00E9;</span><span 
class="ecrm-1000">trique entre des sous-vecteurs de</span>
<span 
class="ecrm-1000">loi normale est propos</span><span 
class="ecrm-1000">&#x00E9;</span><span 
class="ecrm-1000">, mais sans supposer la normalit</span><span 
class="ecrm-1000">&#x00E9;</span> <span 
class="ecrm-1000">jointe de ces marginales. La statistique de</span>
<span 
class="ecrm-1000">test est une fonctionnelle de type Cram</span><span 
class="ecrm-1000">&#x00E9;</span><span 
class="ecrm-1000">r-von Mises d&#x2019;un processus d</span><span 
class="ecrm-1000">&#x00E9;</span><span 
class="ecrm-1000">fini </span><span 
class="ecrm-1000">&#x00E0;</span> <span 
class="ecrm-1000">partir de la fonction</span>
<span 
class="ecrm-1000">caract</span><span 
class="ecrm-1000">&#x00E9;</span><span 
class="ecrm-1000">ristique empirique. Ce processus est d</span><span 
class="ecrm-1000">&#x00E9;</span><span 
class="ecrm-1000">fini de fa</span><span 
class="ecrm-1000">&#x00E7;</span><span 
class="ecrm-1000">on similaire </span><span 
class="ecrm-1000">&#x00E0;</span> <span 
class="ecrm-1000">celui de Ghoudi et al. (2001)</span>
<span 
class="ecrm-1000">construit </span><span 
class="ecrm-1000">&#x00E0;</span> <span 
class="ecrm-1000">partir de la fonction de r</span><span 
class="ecrm-1000">&#x00E9;</span><span 
class="ecrm-1000">partition empirique et utilis</span><span 
class="ecrm-1000">&#x00E9;</span> <span 
class="ecrm-1000">pour tester l&#x2019;ind</span><span 
class="ecrm-1000">&#x00E9;</span><span 
class="ecrm-1000">pendance entre</span>
<span 
class="ecrm-1000">des marginales univari</span><span 
class="ecrm-1000">&#x00E9;</span><span 
class="ecrm-1000">es. La statistique de test peut </span><span 
class="ecrm-1000">&#x00EA;</span><span 
class="ecrm-1000">tre repr</span><span 
class="ecrm-1000">&#x00E9;</span><span 
class="ecrm-1000">sent</span><span 
class="ecrm-1000">&#x00E9;</span><span 
class="ecrm-1000">e comme une V-statistique.</span>
<span 
class="ecrm-1000">Il est convergent pour d</span><span 
class="ecrm-1000">&#x00E9;</span><span 
class="ecrm-1000">tecter toute forme de d</span><span 
class="ecrm-1000">&#x00E9;</span><span 
class="ecrm-1000">pendance. La convergence faible du processus est</span>
<span 
class="ecrm-1000">&#x00E9;</span><span 
class="ecrm-1000">tablie. La distribution asymptotique des fonctionnelles de Cram</span><span 
class="ecrm-1000">&#x00E9;</span><span 
class="ecrm-1000">r-von Mises est approch</span><span 
class="ecrm-1000">&#x00E9;</span><span 
class="ecrm-1000">e par la</span>
<span 
class="ecrm-1000">m</span><span 
class="ecrm-1000">&#x00E9;</span><span 
class="ecrm-1000">thode de Cornish-Fisher au moyen d&#x2019;une formule de r</span><span 
class="ecrm-1000">&#x00E9;</span><span 
class="ecrm-1000">currence pour les cumulants et par le calcul</span>
<span 
class="ecrm-1000">num</span><span 
class="ecrm-1000">&#x00E9;</span><span 
class="ecrm-1000">rique des valeurs propres dans la formule d&#x2019;inversion. La statistique de test est compar</span><span 
class="ecrm-1000">&#x00E9;</span><span 
class="ecrm-1000">e avec</span>
<span 
class="ecrm-1000">celle de Wilks pour l&#x2019;hypoth</span><span 
class="ecrm-1000">&#x00E8;</span><span 
class="ecrm-1000">se param</span><span 
class="ecrm-1000">&#x00E9;</span><span 
class="ecrm-1000">trique d&#x2019;ind</span><span 
class="ecrm-1000">&#x00E9;</span><span 
class="ecrm-1000">pendance dans le mod</span><span 
class="ecrm-1000">&#x00E8;</span><span 
class="ecrm-1000">le MANOVA </span><span 
class="ecrm-1000">&#x00E0;</span> <span 
class="ecrm-1000">un</span>
<span 
class="ecrm-1000">facteur avec effets al</span><span 
class="ecrm-1000">&#x00E9;</span><span 
class="ecrm-1000">atoires.</span>
<!--l. 34--><p class="noindent">______________________________________________________________________________________
</p><!--l. 35--><p class="noindent"><span 
class="ecbx-1000">MOTS-CL</span><span 
class="ecbx-1000">&#x00C9;</span><span 
class="ecbx-1000">S</span>&#x00A0;<span 
class="ecbx-1000">: </span><span 
class="ecrm-1000">Processus ARMA, Bruit blanc Gaussien, Test d&#x2019;ajustement, Normalit</span><span 
class="ecrm-1000">&#x00E9;</span> <span 
class="ecrm-1000">des r</span><span 
class="ecrm-1000">&#x00E9;</span><span 
class="ecrm-1000">sidus,</span>
<span 
class="ecrm-1000">Test lisse, Fonction caract</span><span 
class="ecrm-1000">&#x00E9;</span><span 
class="ecrm-1000">ristique, Ind</span><span 
class="ecrm-1000">&#x00E9;</span><span 
class="ecrm-1000">pendance, Analyse multivari</span><span 
class="ecrm-1000">&#x00E9;</span><span 
class="ecrm-1000">e, Ind</span><span 
class="ecrm-1000">&#x00E9;</span><span 
class="ecrm-1000">pendance s</span><span 
class="ecrm-1000">&#x00E9;</span><span 
class="ecrm-1000">rielle,</span>
<span 
class="ecrm-1000">Processus stochastiques</span>
</p><!--l. 41--><p class="noindent">______________________________________________________________________________________
</p><!--l. 42--><p class="noindent"><span 
class="ecbx-1000">TITLE</span>&#x00A0;<span 
class="ecbx-1000">:  </span><span 
class="ecrm-1000">Independence tests in multivariate analysis and normality tests in ARMA models.</span>
</p><!--l. 45--><p class="noindent">______________________________________________________________________________________
</p><!--l. 46--><p class="noindent"><span 
class="ecbx-1000">ABSTRACT</span>&#x00A0;<span 
class="ecbx-1000">:   </span><span 
class="ecrm-1000">We   build   a   goodness-of-fit   test   of   normality   for   the   innovations   of   an</span>
<span 
class="ecrm-1000">ARMA(</span><!--l. 48--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mi 
>p</mi></math><span 
class="ecrm-1000">,</span>
<!--l. 48--><math 
 xmlns="http://www.w3.org/1998/Math/MathML" mode="inline"><mi 
>q</mi></math><span 
class="ecrm-1000">)</span>
<span 
class="ecrm-1000">model with known mean or trend. This test is based on the data driven smooth test approach and is</span>
<span 
class="ecrm-1000">simple to perform. An extensive simulation study is conducted to study the behavior of the test for</span>
<span 
class="ecrm-1000">moderate sample sizes. Our approach is generally more powerful than existing tests while holding its level</span>
<span 
class="ecrm-1000">throughout most of the parameter space. This agrees with theoretical results showing the superiority of</span>
<span 
class="ecrm-1000">the data driven smooth test approach in related contexts.</span>
<br class="newline" /><span 
class="ecrm-1000">A semi-parametric test of independence (or serial independence) is proposed between marginal vectors</span>
<span 
class="ecrm-1000">each of which is normally distributed but without assuming the joint normality of these marginal vectors.</span>
<span 
class="ecrm-1000">The test statistic is a Cram</span><span 
class="ecrm-1000">&#x00E9;</span><span 
class="ecrm-1000">r-von Mises functional of a process defined from the empirical characteristic</span>
<span 
class="ecrm-1000">function. This process is defined similarly as the process of Ghoudi et al. (2001) built from the empirical</span>
<span 
class="ecrm-1000">distribution function and used to test for independence between univariate marginal variables. The test</span>
<span 
class="ecrm-1000">statistic can be represented as a V statistic. It is consistent to detect any form of dependence. The weak</span>

<span 
class="ecrm-1000">convergence of the process is derived. The asymptotic distribution of the Cram</span><span 
class="ecrm-1000">&#x00E9;</span><span 
class="ecrm-1000">r-von Mises functionals</span>
<span 
class="ecrm-1000">is approximated by the Cornish-Fisher expansion using a recursive formula for cumulants and by the</span>
<span 
class="ecrm-1000">numerical evaluations of the eigenvalues in the inversion formula. The test statistic is finally compared</span>
<span 
class="ecrm-1000">with Wilks&#x2019; statistic for testing the parametric hypothesis of independence in the one-way MANOVA</span>
<span 
class="ecrm-1000">model with random effects.</span>
</p><!--l. 72--><p class="noindent">______________________________________________________________________________________
</p><!--l. 73--><p class="noindent"><span 
class="ecbx-1000">KEYWORDS</span>&#x00A0;<span 
class="ecbx-1000">:  </span><span 
class="ecrm-1000">ARMA  process,  Gaussian  white  noise,  Normality  of  residuals,  Smooth  test,</span>
<span 
class="ecrm-1000">Characteristic function, Independence, Multivariate Analysis, Serial independence, Stochastic processes</span>
</p><!--l. 78--><p class="noindent">______________________________________________________________________________________
</p><!--l. 79--><p class="noindent"><span 
class="ecbx-1000">DISCIPLINE</span>&#x00A0;<span 
class="ecbx-1000">:  </span><span 
class="ecrm-1000">Math</span><span 
class="ecrm-1000">&#x00E9;</span><span 
class="ecrm-1000">matiques Appliqu</span><span 
class="ecrm-1000">&#x00E9;</span><span 
class="ecrm-1000">es</span>&#x00A0;<span 
class="ecrm-1000">: Statistique</span>
</p><!--l. 82--><p class="noindent">______________________________________________________________________________________
</p><!--l. 83--><p class="noindent"><span 
class="ecbx-1000">LABORATOIRES</span>&#x00A0;<span 
class="ecbx-1000">:    </span><span 
class="ecrm-1000">Laboratoire  de  probabilit</span><span 
class="ecrm-1000">&#x00E9;</span><span 
class="ecrm-1000">s  et  statistique  -  D</span><span 
class="ecrm-1000">&#x00E9;</span><span 
class="ecrm-1000">partement  des  sciences</span>
<span 
class="ecrm-1000">math</span><span 
class="ecrm-1000">&#x00E9;</span><span 
class="ecrm-1000">matiques - Universit</span><span 
class="ecrm-1000">&#x00E9;</span> <span 
class="ecrm-1000">Montpellier II - Place Eug</span><span 
class="ecrm-1000">&#x00E8;</span><span 
class="ecrm-1000">ne Bataillon, 34095 Montpellier Cedex 5,</span>
<span 
class="ecrm-1000">France ET D</span><span 
class="ecrm-1000">&#x00E9;</span><span 
class="ecrm-1000">partement de math</span><span 
class="ecrm-1000">&#x00E9;</span><span 
class="ecrm-1000">matiques et de statistique - Universit</span><span 
class="ecrm-1000">&#x00E9;</span> <span 
class="ecrm-1000">de Montr</span><span 
class="ecrm-1000">&#x00E9;</span><span 
class="ecrm-1000">al - CP 6128</span>
<span 
class="ecrm-1000">succ. Centre-Ville, Montr</span><span 
class="ecrm-1000">&#x00E9;</span><span 
class="ecrm-1000">al QC H3C 3J7, Canada</span>
</p>
</dd></dl>
<!--l. 95--><p class="nopar">

</p>
    
</body> 
</html> 



