| 1 |
picher |
199 |
// (c) 2008 Jean-Marc Drouet ************************************ bib_m000.h * > |
| 2 |
|
|
// |
| 3 |
|
|
// ver.: 20080106 |
| 4 |
|
|
|
| 5 |
|
|
#ifndef bib_m000h |
| 6 |
|
|
#define bib_m000h |
| 7 |
|
|
|
| 8 |
|
|
#include<stdio.h> |
| 9 |
|
|
|
| 10 |
|
|
#include "bib_0000.h" |
| 11 |
|
|
|
| 12 |
|
|
//****************************************************************************** |
| 13 |
|
|
// types globaux du module bib_m000 |
| 14 |
|
|
|
| 15 |
|
|
//****************************************************************************** |
| 16 |
|
|
// constantes globales du module bib_m000 |
| 17 |
|
|
|
| 18 |
|
|
//-- constantes mathématiques usuelles ----------------------------------------- |
| 19 |
|
|
|
| 20 |
|
|
#define co_1_3 (vifl) 0.3333333333333333333333333 // 1/3 |
| 21 |
|
|
#define co_1_pi (vifl) 0.3183098861837906715377675 // 1/pi |
| 22 |
|
|
#define co_2_pi (vifl) 6.2831853071795864769252867 // 2*pi |
| 23 |
|
|
#define co_e (vifl) 2.7182818284590452353602874 // e |
| 24 |
|
|
#define co_Euler (vifl) 0.57721566490153286061 // constante d'Euler |
| 25 |
|
|
#define co_loge_2 (vifl) 0.6931471805599453094172321 // ln(2) |
| 26 |
|
|
#define co_pi (vifl) 3.1415926535897932384626433 // pi |
| 27 |
|
|
#define co_pi_2 (vifl) 1.5707963267948966192313216 // pi/2 |
| 28 |
|
|
#define co_rc_pi (vifl) 1.7724538509055160272981674 // pi^0.5 |
| 29 |
|
|
#define co_rc_2 (vifl) 1.4142135623730950488016887 // 2^0.5 |
| 30 |
|
|
#define co_rc_3 (vifl) 1.7320508075688772935274463 // 3^0.5 |
| 31 |
|
|
|
| 32 |
|
|
//-- constantes pour l'intégration par quadrature de Gauss --------------------- |
| 33 |
|
|
|
| 34 |
|
|
extern vifl loc10[10]; |
| 35 |
|
|
extern vifl poi10[10]; |
| 36 |
|
|
|
| 37 |
|
|
extern vifl loc40[40]; |
| 38 |
|
|
extern vifl poi40[40]; |
| 39 |
|
|
|
| 40 |
|
|
extern vifl loc101[101]; |
| 41 |
|
|
extern vifl poi101[101]; |
| 42 |
|
|
|
| 43 |
|
|
extern vifl loc401[401]; |
| 44 |
|
|
extern vifl poi401[401]; |
| 45 |
|
|
|
| 46 |
|
|
//extern vifl loc800[800]; |
| 47 |
|
|
//extern vifl poi800[800]; |
| 48 |
|
|
|
| 49 |
|
|
extern vifl loc1601[1601]; |
| 50 |
|
|
extern vifl poi1601[1601]; |
| 51 |
|
|
|
| 52 |
|
|
//extern vifl loc2006[2006]; |
| 53 |
|
|
//extern vifl poi2006[2006]; |
| 54 |
|
|
|
| 55 |
|
|
//extern vifl loc4001[4001]; |
| 56 |
|
|
//extern vifl poi4001[4001]; |
| 57 |
|
|
|
| 58 |
|
|
extern vifl locN10[10]; |
| 59 |
|
|
extern vifl poiN10[10]; |
| 60 |
|
|
|
| 61 |
|
|
//-- distributions statistiques ------------------------------------------------ |
| 62 |
|
|
|
| 63 |
|
|
#define co_di_binomiale 0x0001U |
| 64 |
|
|
#define co_di_chi_carre 0x0003U |
| 65 |
|
|
#define co_di_F 0x0004U |
| 66 |
|
|
#define co_di_hypergeo 0x0008U |
| 67 |
|
|
#define co_di_normale_01 0x0010U |
| 68 |
|
|
#define co_di_normale 0x0020U |
| 69 |
|
|
#define co_di_Poisson 0x0040U |
| 70 |
|
|
#define co_di_t 0x0080U |
| 71 |
|
|
|
| 72 |
|
|
//-- statistique descriptive --------------------------------------------------- |
| 73 |
|
|
|
| 74 |
|
|
#define co_eiq 0x00000001UL // écart interquartile |
| 75 |
|
|
#define co_etd 0x00000002UL // étendue |
| 76 |
|
|
#define co_ete 0x00000004UL // écart-type échantillonnal |
| 77 |
|
|
#define co_etp 0x00000008UL // écart-type de la population |
| 78 |
|
|
#define co_max 0x00000010UL // maximum |
| 79 |
|
|
#define co_min 0x00000020UL // minimum |
| 80 |
|
|
#define co_krt 0x00000040UL // kurtosis |
| 81 |
|
|
#define co_mde 0x00000080UL // mode |
| 82 |
|
|
#define co_mdn 0x00000100UL // médiane |
| 83 |
|
|
#define co_myg 0x00000200UL // moyenne géométrique |
| 84 |
|
|
#define co_myh 0x00000400UL // moyenne harmonique |
| 85 |
|
|
#define co_myn 0x00000800UL // moyenne arithmétique |
| 86 |
|
|
#define co_qa1 0x00001000UL // 1er quartile |
| 87 |
|
|
#define co_qa2 0x00002006UL // 2ème quartile |
| 88 |
|
|
#define co_qa3 0x00004000UL // 3ème quartile |
| 89 |
|
|
#define co_rms 0x00008000UL // "Root Mean Square" |
| 90 |
|
|
#define co_smm 0x00010000UL // somme des éléments |
| 91 |
|
|
#define co_sm2 0x00020060UL // somme des (éléments^2) |
| 92 |
|
|
#define co_vre 0x00040000UL // variance échantillonnale |
| 93 |
|
|
#define co_vrp 0x00080000UL // variance de la population |
| 94 |
|
|
|
| 95 |
|
|
//****************************************************************************** |
| 96 |
|
|
// variables globales du module bib_m000 |
| 97 |
|
|
|
| 98 |
|
|
//****************************************************************************** |
| 99 |
|
|
// |
| 100 |
|
|
// écriture d'une matrice (vifl) dans un fichier |
| 101 |
|
|
// h |
| 102 |
|
|
|
| 103 |
|
|
ty_RSLT ecriture_mat(vifl *_mat, ulong _nl, ulong _nc, char *_fic); |
| 104 |
|
|
|
| 105 |
|
|
//****************************************************************************** |
| 106 |
|
|
// |
| 107 |
|
|
// écriture d'une matrice (vifl) à l'écran |
| 108 |
|
|
// h |
| 109 |
|
|
|
| 110 |
|
|
ty_RSLT ecriture_mat( vifl *_mat , // matrice |
| 111 |
|
|
ulong _nl , // nbre de lignes |
| 112 |
|
|
ulong _nc ); // nbre de colonnes |
| 113 |
|
|
|
| 114 |
|
|
//****************************************************************************** |
| 115 |
|
|
// |
| 116 |
|
|
// écriture d'une matrice (int) à l'écran |
| 117 |
|
|
// h |
| 118 |
|
|
|
| 119 |
|
|
ty_RSLT ecriture_mat( int *_mat , // matrice |
| 120 |
|
|
ulong _nl , // nbre de lignes |
| 121 |
|
|
ulong _nc ); // nbre de colonnes |
| 122 |
|
|
|
| 123 |
|
|
//****************************************************************************** |
| 124 |
|
|
// |
| 125 |
|
|
// écriture d'une matrice (ulong) à l'écran |
| 126 |
|
|
// h |
| 127 |
|
|
|
| 128 |
|
|
ty_RSLT ecriture_mat( ulong *_mat , // matrice |
| 129 |
|
|
ulong _nl , // nbre de lignes |
| 130 |
|
|
ulong _nc ); // nbre de colonnes |
| 131 |
|
|
|
| 132 |
|
|
//****************************************************************************** |
| 133 |
|
|
// |
| 134 |
|
|
// écriture de 2 vecteurs vifl en colonnes à l'écran |
| 135 |
|
|
// h |
| 136 |
|
|
|
| 137 |
|
|
ty_RSLT ecriture_2vct( vifl *_vct_1 , // 1er vecteur |
| 138 |
|
|
vifl *_vct_2 , // 2e vecteur |
| 139 |
|
|
ulong _n ); // nbre d'éléments à afficher |
| 140 |
|
|
|
| 141 |
|
|
//****************************************************************************** |
| 142 |
|
|
// |
| 143 |
|
|
// écriture de 2 vecteurs ulong en colonnes à l'écran |
| 144 |
|
|
// h |
| 145 |
|
|
|
| 146 |
|
|
ty_RSLT ecriture_2vct( ulong *_vct_1 , // 1er vecteur |
| 147 |
|
|
ulong *_vct_2 , // 2e vecteur |
| 148 |
|
|
ulong _n ); // nbre d'éléments à afficher |
| 149 |
|
|
|
| 150 |
|
|
//****************************************************************************** |
| 151 |
|
|
// |
| 152 |
|
|
// écriture de 2 vecteurs vifl en colonnes dans un fichier |
| 153 |
|
|
// h |
| 154 |
|
|
|
| 155 |
|
|
ty_RSLT ecriture_2vct( vifl *_vct_1 , // 1er vecteur |
| 156 |
|
|
vifl *_vct_2 , // 2e vecteur |
| 157 |
|
|
ulong _n , // nbre d'éléments à afficher |
| 158 |
|
|
char *_fic ); // nom du fichier |
| 159 |
|
|
|
| 160 |
|
|
//****************************************************************************** |
| 161 |
|
|
// |
| 162 |
|
|
// écriture de 2 vecteurs (ulong et vifl) en colonnes dans un fichier |
| 163 |
|
|
// h |
| 164 |
|
|
|
| 165 |
|
|
ty_RSLT ecriture_2vct( ulong *_vct_1 , // 1er vecteur |
| 166 |
|
|
vifl *_vct_2 , // 2e vecteur |
| 167 |
|
|
ulong _n , // nbre d'éléments à écrire |
| 168 |
|
|
char *_nom_fic ); // nom du fichier |
| 169 |
|
|
|
| 170 |
|
|
//****************************************************************************** |
| 171 |
|
|
// |
| 172 |
|
|
// écriture de 3 vecteurs vifl en colonnes dans un fichier |
| 173 |
|
|
// h |
| 174 |
|
|
|
| 175 |
|
|
ty_RSLT ecriture_3vct( vifl *_vct_1 , // 1er vecteur |
| 176 |
|
|
vifl *_vct_2 , // 2e vecteur |
| 177 |
|
|
vifl *_vct_3 , // 3e vecteur |
| 178 |
|
|
ulong _n , // nbre d'éléments à afficher |
| 179 |
|
|
char *_fic ); // nom du fichier |
| 180 |
|
|
|
| 181 |
|
|
//****************************************************************************** |
| 182 |
|
|
// |
| 183 |
|
|
// écriture de 3 vecteurs vifl en colonnes dans un fichier |
| 184 |
|
|
// h |
| 185 |
|
|
|
| 186 |
|
|
ty_RSLT ecriture_3vct_dx( vifl *_vct_1 , // 1er vecteur |
| 187 |
|
|
vifl *_vct_2 , // 2e vecteur |
| 188 |
|
|
vifl *_vct_3 , // 3e vecteur |
| 189 |
|
|
ulong _n , // nbre d'éléments à afficher |
| 190 |
|
|
char *_fic ); // nom du fichier |
| 191 |
|
|
|
| 192 |
|
|
//****************************************************************************** |
| 193 |
|
|
// |
| 194 |
|
|
// écriture du contenu des 8 registres de la pile du coprocesseur |
| 195 |
|
|
// h |
| 196 |
|
|
|
| 197 |
|
|
ty_RSLT ecriture_pile_x87( void ); |
| 198 |
|
|
|
| 199 |
|
|
//****************************************************************************** |
| 200 |
|
|
// |
| 201 |
|
|
// initialisation de bib_m000 |
| 202 |
|
|
// h |
| 203 |
|
|
|
| 204 |
|
|
ty_RSLT init_bib_m000( void ); |
| 205 |
|
|
|
| 206 |
|
|
#endif |
| 207 |
|
|
|
| 208 |
|
|
// (c) 2008 Jean-Marc Drouet ************************************ bib_m000.h * < |
