Code-source php


        <?php
        error_reporting(E_ALL | E_NOTICE ) ;
        #    (gH)   -_-  aqt_det.php  ;  TimeStamp (unix) : 14 Juillet 2009 vers 13:49
        include("../std.php") ;
        debutPage("Analyse d&eacute;taill&eacute;e d'une variable quantitative")  ;
        ###########################################################
        
        h1("Analyse d&eacute;taill&eacute;e d'une variable quantitative :") ;
        
        blockquote() ;
        h2("caract&eacute;ristiques (m, s, cv, q2, iqr, iqr%...),") ;
        h2("tests de normalit&eacute;, graphiques,") ;
        h2("valeurs extr&ecirc;mes (\"outliers\").") ;
        finblockquote() ;
        
        pvide() ;
        
        $xmp = 0 ;
        if (isset($_GET["xmp"]))  { $xmp  = $_GET["xmp"]  ; } ; # pour les exemples
        if (isset($_POST["xmp"])) { $xmp  = $_POST["xmp"] ; } ;
        
        if ($xmp==1) {
           $vnd     = "Poids organe (frais)" ;
           $und     = "kg" ;
           $dataval = "1 2 3 4 5 6 7 6 5 4 3 2 1" ;
        } ; # fin de si
        
        # donn&eacute;es r&eacute;elles Pla Snisf1
        
        if ($xmp==2) {
           $vnd = "Plaquettes (thrombocytes)" ;
           $und = "G/L" ;
           $dataval  = "" ;
           $dataval .= "219 184 192 114 198 254 353 99 220 369 167 155 146 244 159 343 153 273 284" ;
           $dataval .= " 338 93 100 175 234 253 127 225 257 289 291 187 111 178 89 101 175  310 99" ;
           $dataval .= " 151 153 203 200 173 96 232 253 256 214 272 250 333 362 252 229 381 228 293" ;
           $dataval .= " 276 224 188 256 295 265 284 193 122 264 240 193 33.9 297 241 279 233 278" ;
           $dataval .= " 210 297 201 184 208 217 172 325 261 235 219 231 240 245 206 314 119 174" ;
           $dataval .= " 191 154 138 223 332 232 210 340 304 173 260 163 211 292 184 164 164 224" ;
           $dataval .= " 173 200 298 278 241 245 206 355 185 189 229 303 183 190 192 150 208 211" ;
           $dataval .= " 253 263 221 337 254 212 308 330 191 227 159 282 257 234 267 153 249 237" ;
           $dataval .= " 290 250 197 221 202 242 263 202 141 227 217 194 338 191 309 153 93 172 265" ;
           $dataval .= " 145 184 221 100 229 215 199 231 238 231 339 174 214 287 261 220 174 250" ;
           $dataval .= " 206 316 259 324 226 290 239 183 267 329 248 258 211 262 297 213 207 95 239" ;
           $dataval .= " 121 240 212 180 392 154 202 163 144 125 457 224" ;
        } ; # fin de si
        
        if ($xmp==3) {
           $vnd = "TP (taux de prothrombine)" ;
           $und = "%" ;
           $dataval  = "" ;
           $dataval .= "101 108 115 77 113 81 82 67 73 110 89 73 99 94 100 95 87 97 98 99 75 85 94 101" ;
           $dataval .= " 100 75 98 91 103 111 91 83 93 79 63 79 99 106 77 85 62 100 96 73 100 92 100 100" ;
           $dataval .= " 100 100 100 100 100 90 90 96 100 96 100 100 90 100 92 89 81 94 96 90 81 100 94" ;
           $dataval .= " 95 100 85 93 83 100 99 100 89 95 78 100 86 93 89 99 95 81 79 95 83 78 85 79 77" ;
           $dataval .= " 85 79 100 80 100 83 99 100 80 91 100 76 76 81 92 98 86 100 100 100 92 96 100 89" ;
           $dataval .= " 90 87 90 75 67 87 83 83 100 100 93 88 100 98 100 98 98 100 100 100 83 93 88 100" ;
           $dataval .= " 85 100 83 86 93 82 85 100 98 94 85 69 77 88 85 100 86 86 109 78 98 100 71 88" ;
           $dataval .= " 100 72 84 100 100 81 85 100 93 100 83 100 100 86 78 86 88 96 100 96 100 94 99" ;
           $dataval .= " 87 94 100 100 100 100 100 91 100 97 71 104 64 102 97 102 103 76 107 95 96 84" ;
           $dataval .= " 101 92" ;
        } ; # fin de si
        
        if ($xmp==4) {
           $vnd = "Longueur de la prot&eacute;ine" ;
           $und = "aa" ;
           $dataval  = "" ;
           $dataval .= "25 74.87642 78.19103 73.40912 80.83683 74.03204 75.95157 76.88743 77.138 77.4307" ;
           $dataval .= " 71.69775 74.54015 67.95178 76.08064 76.7015 76.96932 73.92455 79.59978 74.56595" ;
           $dataval .= " 78.42517 71.12141 71.07971 73.44617 75.45932 74.76473 74.04173 71.3043 72.49137" ;
           $dataval .= " 74.58058 72.6759 72.50979 77.11041 70.29238 75.4793 79.19248 79.10708 81.63332" ;
           $dataval .= " 78.60182 71.77013 74.74785 72.55056 70.87409 73.79535 71.92435 73.78559 74.24022" ;
           $dataval .= " 72.16426 69.99146 74.31182 74.09783 76.14596 76.84386 73.82505 76.71136 73.22637" ;
           $dataval .= " 72.75667 73.61993 76.97975 79.54132 77.78691 80.96624 71.85167 76.91979 74.05154" ;
           $dataval .= " 74.21126 69.84539 74.73602 73.5517 74.4878 76.74593 75.25908 70.69476 79.06986" ;
           $dataval .= " 81.25396 67.50567 76.17327 69.64348 75.2785 81.25872 68.74756 80.0237 70.82097" ;
           $dataval .= " 76.44476 77.29135 79.20483 77.46812 78.95298 75.12928 82.07948 75.46176 73.39259" ;
           $dataval .= " 74.6061 74.9859 73.06824 76.01469 75.46039 76.07863 78.10704 98 99" ;
        
        } ; # fin de si
        
        blockquote() ;
        debutSection() ;
        
        form("calcstat.php","post") ;
        
           input_hidden("calc","aqtdet") ;
           table(0,10) ;
             tr() ;
               td() ; echo s_span("D&eacute;monstration","gvert") ; fintd() ;
               td() ;
                  echo  href("aqt_det.php?xmp=1",s_span("exemple 1","grouge")) ;
                  nbsp(5) ;
                  echo  href("aqt_det.php?xmp=2",s_span("exemple 2","grouge")) ;
                  nbsp(5) ;
                  echo  href("aqt_det.php?xmp=3",s_span("exemple 3","grouge")) ;
                  nbsp(5) ;
                  echo  href("aqt_det.php?xmp=4",s_span("exemple 4","grouge")) ;
               fintd() ;
               td() ; nbsp() ; fintd() ;
               td() ; echo href("calcstat.htm",s_span("retour","gbleu")) ; fintd() ;
             fintr() ;
             tr() ;
                td() ; nbsp() ; fintd() ;
             fintr() ;
             tr() ;
               td("L","valigntop") ; echo s_span("Donn&eacute;es &agrave; traiter","gvert") ; fintd() ;
               td ("L") ;
                  textarea("valent","tajaunec","7","85") ;
                  if (isset($dataval)) {
                    echo trim($dataval) ;
                  } ; # fin si
                  fintextarea() ;
               fintd() ;
             fintr() ;
             tr() ;
               td("L","valigntop") ; echo s_span("Nom de la variable (facultatif)","gvert") ; fintd() ;
               td() ;
                 if (!isset($vnd)) { $vnd = "" ; } ;
                 input_text("ndlv",$vnd,"35","tarose") ;
               fintd() ;
             fintr() ;
             tr() ;
               td("L","valigntop") ; echo s_span("Unit&eacute; des donn&eacute;es (facultatif)","gvert") ; fintd() ;
               td() ;
                 if (!isset($und)) { $und = "" ; } ;
                 input_text("und",$und,"5","tarose") ;
                 nbsp(4) ;
                 echo href("aqt_det.php?xmp=0",s_span("vidage","gbleu")) ;
                 nbsp(4) ;
                 input_submit("envoi") ;
               fintd() ;
             fintr() ;
           fintable() ;
        finform() ;
        
        p() ;
        echo "L'exemple 1 contient des donn&eacute;es simul&eacute;es peu nombreuses et sert juste &agrave; v&eacute;rifier les formules de calcul. \n" ;
        finp() ;
        
        p() ;
        echo "Les donn&eacute;es de l'exemple 2 (donn&eacute;es r&eacute;elles d'une de nos &eacute;tudes au CHU \n" ;
        echo "et correspondant &agrave; des \n" ;
        echo "<a href=\"http://fr.wikipedia.org/wiki/Thrombocyte\">plaquettes sanguines</a>) \n" ;
        echo "suivent &agrave; peu pr&egrave;s une loi normale alors que les donn&eacute;es \n" ;
        echo "de l'exemple 3 (r&eacute;elles, elles aussi, \n" ;
        echo "de <a href=\"http://fr.wikipedia.org/wiki/Taux_de_prothrombine\">taux de prothrombine</a>) \n" ;
        echo "\"r&eacute;sistent\" &agrave; toute transformation de  normalit&eacute;. \n" ;
        finp() ;
        
        p() ;
        echo "L'exemple 4  (donn&eacute;es am&eacute;nag&eacute;es) contient des \"outliers\" faciles &agrave; d&eacute;tecter. \n" ;
        finp() ;
        
        p() ;
        echo b("Remarque : ") ;
        echo "vous pouvez copier/coller des donn&eacute;es en colonne issues d'Excel." ;
        finp() ;
        
        pvide() ;
        
        p() ;
        echo href("montresource.php?nomfic=aqt_det.php","Code-source de cette page","orange_stim nou")."&nbsp;;&nbsp;" ;
        echo " fichiers inclus&nbsp;: ".href("montresource.php?nomfic=std.php","std.php","orange_stim nou")."." ;
        finp() ;
        
        finSection() ;
        finblockquote() ;
        finPage() ;
        ?>
Si vous préférez, vous pouvez utiliser celle de geshi ou même celle construite autour de la fonction highlight_file.
Listing du fichier aqt_det.php avec syntaxhighlighter
