MATH_Unites    [Utilitaires]

Par Teddy Linet (Math4D v2)
Nouvelle recherche
Si (Faux)
   ` MATH_Unites [Teddy LINET 02/2003]
   ` ---------------------------------------------
   ` Véritable couteau suisse des unités
   ` ---------------------------------------------
   ` Prend un parametre de format texte :
   ` MATH_Unites("Constantes") ` Crée les constantes qu'une fois pour toute
   ` MATH_Unites("Constantes Forcées") ` Crée les constantes de manière forcée
   ` MATH_Unites("Categorie";$vUnit_T) ` Renvoie la catégorie de l'unité
   ` MATH_Unites("Categorie";"Toutes";$vTableauCatégorie_W) ` Tableau des catégories
   ` Idem pour les options "Unite Reference";"Valeur Conversion";"Valeur zero"
   ` "Dimension";"SystemeMetrique";"La Totale";"Nom Complet";"Nom UI"
   ` "Nom Court" est spécial : renvoie dans un tableau les nom courts
   ` "CategoriesParUnites" renvoie la catégorie pour chaque unite
   ` /! ne renvoie que des chaines (question de compilo) en $0
   ` /! les tableaux pointés doivent être au format de la méthode
   ` /! les tableaux pointés doivent être vides
   ` Ne crée pas 2 fois les constantes une fois fait (sauf forcer)
   ` ---------------------------------------------
   ` MATHERROR
   ` -2 : Unité non trouvée
   ` -3 : Commande incorrecte
   ` ---------------------------------------------
   ` EXEMPLES :
Fin de si 

C_ENTIER LONG($1;$vCmd_L)
C_TEXTE($2;$vUDem_T)
C_TEXTE($0;$vResult_T)
C_POINTEUR($3;$vPointTab_W)
TABLEAU ENTIER LONG($tIDRes_L;0)
TABLEAU TEXTE($tNRes_T;0)
TABLEAU TEXTE($tNomConst_T;0)
TABLEAU TEXTE($tN_T;141)
TABLEAU TEXTE($tNE_T;141)
TABLEAU TEXTE($tUR_T;141)
TABLEAU REEL($tVC_F;141)
TABLEAU REEL($tVZ_F;141)
TABLEAU ENTIER($tVD_I;141)
TABLEAU BOOLEEN($tSM_B;141)
C_ENTIER LONG($i;$j;$vNumResSTRD_L;$vNumRes4DKD_L;MATHERROR)
C_REEL($vVCnvR_F)  ` Valeur de conversion au rattrapage
C_BLOB($vBlobRessource_Q)
C_TEXTE($vAlerte_T;$vUniteRattrap_T)
C_BOOLEEN($vOK_B)
$vCmd_L:=$1
Si (Nombre de parametres>1)
 $vUDem_T:=$2
Sinon 
 $vUDem_T:=""
Fin de si 
Si (Nombre de parametres>2)
 $vPointTab_W:=$3
Fin de si 
$vResult_T:=""
MATHERROR:=0
  ` Création des tableaux des catégories
  ` ===============================
TABLEAU TEXTE($tCat_T;30)
TABLEAU TEXTE($tURCat_T;30)
  ` Superficie
$i:=1
$tCat_T{$i}:="Superficie"
$tURCat_T{$i}:="m^2"
  ` Intensité
$i:=2
$tCat_T{$i}:="Intensité"
$tURCat_T{$i}:="A"
  ` Pression
$i:=3
$tCat_T{$i}:="Pression"
$tURCat_T{$i}:="kg/m*s^2"
  ` Longueur
$i:=4
$tCat_T{$i}:="Longueur"
$tURCat_T{$i}:="m"
  ` Volume
$i:=5
$tCat_T{$i}:="Volume"
$tURCat_T{$i}:="m^3"
  ` Frequence
$i:=6
$tCat_T{$i}:="Fréquence"
$tURCat_T{$i}:="s^-1"
  ` Energie
$i:=7
$tCat_T{$i}:="Energie"
$tURCat_T{$i}:="kg*m^2/s^2"
  ` Puissance
$i:=8
$tCat_T{$i}:="Puissance"
$tURCat_T{$i}:="kg*m^2/s^3"
  ` Vitesse
$i:=9
$tCat_T{$i}:="Vitesse"
$tURCat_T{$i}:="m/s"
  ` Intensité Lumineuse
$i:=10
$tCat_T{$i}:="Intensité Lumineuse"
$tURCat_T{$i}:="cd"
  ` Masse
$i:=11
$tCat_T{$i}:="Masse"
$tURCat_T{$i}:="kg"
  ` Temps
$i:=12
$tCat_T{$i}:="Temps"
$tURCat_T{$i}:="s"
  ` Angle
$i:=13
$tCat_T{$i}:="Angle"
$tURCat_T{$i}:="r"
  ` Température
$i:=14
$tCat_T{$i}:="Temperature"
$tURCat_T{$i}:="¡K"
  ` Flux magnétique
$i:=15
$tCat_T{$i}:="Flux magnétique"
$tURCat_T{$i}:="kg*m^2/A*s^2"
  ` Quantité Electricité
$i:=16
$tCat_T{$i}:="Quantité Electricité"
$tURCat_T{$i}:="A*s"
  ` Dose de rayonnement
$i:=17
$tCat_T{$i}:="Dose de rayonnement"
$tURCat_T{$i}:="A*s/kg"
  ` Conductance
$i:=18
$tCat_T{$i}:="Conductance"
$tURCat_T{$i}:="A^2*s^3/kg*m^2"
  ` Capacité
$i:=19
$tCat_T{$i}:="Capacité"
$tURCat_T{$i}:="A^2*s^4/kg*m^2"
  ` Luminance
$i:=20
$tCat_T{$i}:="Luminance"
$tURCat_T{$i}:="cd/m^2"
  ` Force
$i:=21
$tCat_T{$i}:="Force"
$tURCat_T{$i}:="kg*m/s^2"
  ` Tension Electrique
$i:=22
$tCat_T{$i}:="Différence de Potentiel"
$tURCat_T{$i}:="kg*m^2/A*s^3"
  ` Inductance
$i:=23
$tCat_T{$i}:="Inductance"
$tURCat_T{$i}:="kg*m^2/A^2*s^2"
  ` Résistance
$i:=24
$tCat_T{$i}:="Résistance Electrique"
$tURCat_T{$i}:="kg*m^2/A^2*s^3"
  ` Induction magnétique
$i:=25
$tCat_T{$i}:="Induction magnétique"
$tURCat_T{$i}:="kg/A*s^2"
  ` Viscosité dynamique
$i:=26
$tCat_T{$i}:="Viscosité dynamique"
$tURCat_T{$i}:="kg/m*s"
  ` accélération
$i:=27
$tCat_T{$i}:="Accélération"
$tURCat_T{$i}:="m/s^2"
  ` quantité matière
$i:=28
$tCat_T{$i}:="Quantité de Matière"
$tURCat_T{$i}:="mol"
  ` viscosité cinematique
$i:=29
$tCat_T{$i}:="Viscosité cinematique"
$tURCat_T{$i}:="m^2/s"
  ` Dose absorbée, energie massive
$i:=30
$tCat_T{$i}:="Dose absorbée"
$tURCat_T{$i}:="m^2/s^2"

  ` Création du tableau des unités
  ` ===============================
  ` Valeurs de dimension 1 et de zéro nul
  ` -------------------------------------
  ` are
$i:=1
$tNE_T{$i}:="are"
$tN_T{$i}:="a"
$tVC_F{$i}:=100
$tUR_T{$i}:="m^2"
$tSM_B{$i}:=Vrai
  ` ampère
$i:=2
$tNE_T{$i}:="ampère"
$tN_T{$i}:="A"
$tVC_F{$i}:=1
$tUR_T{$i}:="A"
$tSM_B{$i}:=Vrai
  `  acre
$i:=3
$tNE_T{$i}:="acre"
$tN_T{$i}:="acre"
$tVC_F{$i}:=4046,87260987
$tUR_T{$i}:="m^2"
$tSM_B{$i}:=Faux
  ` arcmin : minute d'un arc : 4,62962962963E-5
  ` arcs : secondes d'un arc : 7,71604938272E-7
  ` atm : atmosphère standard : 101325 kg/m*s^2
$i:=4
$tNE_T{$i}:="atmosphere"
$tN_T{$i}:="atm"
$tVC_F{$i}:=101325
$tUR_T{$i}:="kg/m*s^2"
$tSM_B{$i}:=Faux
  ` Angstrom :
$i:=5
$tNE_T{$i}:="Angstrom"
$tN_T{$i}:="A¡"
$tVC_F{$i}:=0,0000000001
$tUR_T{$i}:="m"
$tSM_B{$i}:=Faux
  ` barn
$i:=6
$tNE_T{$i}:="barn"
$tN_T{$i}:="b"
$tVC_F{$i}:=10^-28
$tUR_T{$i}:="m^2"
$tSM_B{$i}:=Faux
  ` bar
$i:=7
$tNE_T{$i}:="bar"
$tN_T{$i}:="bar"
$tVC_F{$i}:=100000
$tUR_T{$i}:="kg/m*s^2"
$tSM_B{$i}:=Vrai
  ` barril (pétrole)
$i:=8
$tNE_T{$i}:="barril_petrole"
$tN_T{$i}:="bbl"
$tVC_F{$i}:=0,158987294928
$tUR_T{$i}:="m^3"
$tSM_B{$i}:=Faux
  ` becquerel
$i:=9
$tNE_T{$i}:="becquerel"
$tN_T{$i}:="Bq"
$tVC_F{$i}:=1
$tUR_T{$i}:="s^-1"
$tSM_B{$i}:=Vrai
  ` Btu
$i:=10
$tNE_T{$i}:="Btu"
$tN_T{$i}:="Btu"
$tVC_F{$i}:=1055,05585262
$tUR_T{$i}:="kg*m^2/s^2"
$tSM_B{$i}:=Faux
  `BTU par minute
$i:=11
$tNE_T{$i}:="Btu_Minute"
$tN_T{$i}:="Btupm"
$tVC_F{$i}:=17,57
$tUR_T{$i}:="kg*m^2/s^3"
$tSM_B{$i}:=Faux
  ` bushel
$i:=12
$tNE_T{$i}:="bushel"
$tN_T{$i}:="bu"
$tVC_F{$i}:=0,03523907
$tUR_T{$i}:="m^3"
$tSM_B{$i}:=Faux
  ` vitesse de la lumière
$i:=13
$tNE_T{$i}:="vitesse_lumiere"
$tN_T{$i}:="c"
$tVC_F{$i}:=288792458
$tUR_T{$i}:="m/s"
$tSM_B{$i}:=Faux
  `  coulomb
$i:=14
$tNE_T{$i}:="coulomb"
$tN_T{$i}:="C"
$tVC_F{$i}:=1
$tUR_T{$i}:="A*s"
$tSM_B{$i}:=Vrai
  ` calorie (IST)
$i:=15
$tNE_T{$i}:="calorie"
$tN_T{$i}:="cal"
$tVC_F{$i}:=4,1868
$tUR_T{$i}:="kg*m^2/s^2"
$tSM_B{$i}:=Vrai
  ` candela
$i:=16
$tNE_T{$i}:="candela"
$tN_T{$i}:="cd"
$tVC_F{$i}:=1
$tUR_T{$i}:="cd"
$tSM_B{$i}:=Vrai
  `  chaine
$i:=17
$tNE_T{$i}:="chaine"
$tN_T{$i}:="chain"
$tVC_F{$i}:=20,1168402337
$tUR_T{$i}:="m"
$tSM_B{$i}:=Faux
  `  curie
$i:=18
$tNE_T{$i}:="curie"
$tN_T{$i}:="Ci"
$tVC_F{$i}:=37000000000
$tUR_T{$i}:="s^-1"
$tSM_B{$i}:=Vrai
  ` carat
$i:=19
$tNE_T{$i}:="carat"
$tN_T{$i}:="ct"
$tVC_F{$i}:=0,0002
$tUR_T{$i}:="kg"
$tSM_B{$i}:=Faux
  ` cup (coupe ) : 2,365 882 365E-4 m^2
$i:=20
$tNE_T{$i}:="cup"
$tN_T{$i}:="cu"
$tVC_F{$i}:=0,0002365882365
$tUR_T{$i}:="m^2"
$tSM_B{$i}:=Faux
  ` jour
$i:=21
$tNE_T{$i}:="jour"
$tN_T{$i}:="d"
$tVC_F{$i}:=86400
$tUR_T{$i}:="s"
$tSM_B{$i}:=Faux
  ` drams
$i:=22
$tNE_T{$i}:="drams"
$tN_T{$i}:="drams"
$tVC_F{$i}:=0,000003697
$tUR_T{$i}:="m^3"
$tSM_B{$i}:=Faux
  `  dyne
$i:=23
$tNE_T{$i}:="dyne"
$tN_T{$i}:="dyn"
$tVC_F{$i}:=0,00001
$tUR_T{$i}:="kg*m/s^2"
$tSM_B{$i}:=Vrai
  ` erg
$i:=24
$tNE_T{$i}:="erg"
$tN_T{$i}:="erg"
$tVC_F{$i}:=0,0000001
$tUR_T{$i}:="kg*m^2/s^2"
$tSM_B{$i}:=Vrai
  `  electron V : 1,60219E-19
$i:=25
$tNE_T{$i}:="electron_volt"
$tN_T{$i}:="eV"
$tVC_F{$i}:=1,60219*(10^-19)
$tUR_T{$i}:="kg*m^2/s^2"
$tSM_B{$i}:=Vrai
  ` farad
$i:=26
$tNE_T{$i}:="farad"
$tN_T{$i}:="F"
$tVC_F{$i}:=1
$tUR_T{$i}:="A^2*s^4/kg*m^2"
$tSM_B{$i}:=Vrai
  ` fathom
$i:=27
$tNE_T{$i}:="fathom"
$tN_T{$i}:="fath"
$tVC_F{$i}:=1,82880365761
$tUR_T{$i}:="m"
$tSM_B{$i}:=Faux
  `  pied cube
$i:=28
$tNE_T{$i}:="pied_cube"
$tN_T{$i}:="fbm"
$tVC_F{$i}:=0,002359737216
$tUR_T{$i}:="m^3"
$tSM_B{$i}:=Faux
  ` footcandle (pied candela )
$i:=29
$tNE_T{$i}:="footcandle"
$tN_T{$i}:="fc"
$tVC_F{$i}:=0,856564774909
$tUR_T{$i}:="cd/m^2"
$tSM_B{$i}:=Faux
  ` faraday (C-12) :
$i:=30
$tNE_T{$i}:="faraday"
$tN_T{$i}:="Fdy"
$tVC_F{$i}:=96487
$tUR_T{$i}:="A*s"
$tSM_B{$i}:=Vrai
  ` fermi
$i:=31
$tNE_T{$i}:="fermi"
$tN_T{$i}:="fermi"
$tVC_F{$i}:=10^-15
$tUR_T{$i}:="m"
$tSM_B{$i}:=Vrai
  ` footlambert (pied lambert )
$i:=32
$tNE_T{$i}:="footlambert"
$tN_T{$i}:="flam"
$tVC_F{$i}:=3,42625909964
$tUR_T{$i}:="cd/m^2"
$tSM_B{$i}:=Faux
  ` pied international
$i:=33
$tNE_T{$i}:="pied"
$tN_T{$i}:="ft"
$tVC_F{$i}:=0,3048
$tUR_T{$i}:="m"
$tSM_B{$i}:=Faux
  ` livre-pied
$i:=34
$tNE_T{$i}:="livre_pied"
$tN_T{$i}:="ftlb"
$tVC_F{$i}:=1430,309
$tUR_T{$i}:="kg*m^2/s^2"
$tSM_B{$i}:=Faux
  ` livre-pied/minute
$i:=35
$tNE_T{$i}:="livre_pied_minute"
$tN_T{$i}:="ftlbpm"
$tVC_F{$i}:=0,0226
$tUR_T{$i}:="kg*m^2/s^3"
$tSM_B{$i}:=Faux
  ` Livre-pied/secondes
$i:=36
$tNE_T{$i}:="livre_pied_seconde"
$tN_T{$i}:="ftlbps"
$tVC_F{$i}:=1,356
$tUR_T{$i}:="kg*m^2/s^3"
$tSM_B{$i}:=Faux
  ` pied par minute
$i:=37
$tNE_T{$i}:="pied_minute"
$tN_T{$i}:="ftpm"
$tVC_F{$i}:=0,00508
$tUR_T{$i}:="m/s"
$tSM_B{$i}:=Faux
  `  pied par seconde
$i:=38
$tNE_T{$i}:="pied_seconde"
$tN_T{$i}:="ftps"
$tVC_F{$i}:=0,304785
$tUR_T{$i}:="m/s"
$tSM_B{$i}:=Faux
  ` survey foot (pied de sondage )
$i:=39
$tNE_T{$i}:="pied_US"
$tN_T{$i}:="ftUS"
$tVC_F{$i}:=0,304800609601
$tUR_T{$i}:="m"
$tSM_B{$i}:=Faux
  ` gramme
$i:=40
$tNE_T{$i}:="gramme"
$tN_T{$i}:="g"
$tVC_F{$i}:=0,001
$tUR_T{$i}:="kg"
$tSM_B{$i}:=Vrai
  ` constante chute libre
$i:=41
$tNE_T{$i}:="gravité"
$tN_T{$i}:="ga"
$tVC_F{$i}:=9,80665
$tUR_T{$i}:="m/s^2"
$tSM_B{$i}:=Vrai
  ` gallon US
$i:=42
$tNE_T{$i}:="gallon_US"
$tN_T{$i}:="galUS"
$tVC_F{$i}:=0,003785411784
$tUR_T{$i}:="m^3"
$tSM_B{$i}:=Faux
  ` Gallon canadien
$i:=43
$tNE_T{$i}:="gallon_canadien"
$tN_T{$i}:="galC"
$tVC_F{$i}:=0,00454609
$tUR_T{$i}:="m^3"
$tSM_B{$i}:=Faux
  ` Gallon britannique
$i:=44
$tNE_T{$i}:="gallon_UK"
$tN_T{$i}:="galUK"
$tVC_F{$i}:=0,00454692
$tUR_T{$i}:="m^3"
$tSM_B{$i}:=Faux
  `  gramme-force
$i:=45
$tNE_T{$i}:="gramme_force"
$tN_T{$i}:="gf"
$tVC_F{$i}:=0,00980665
$tUR_T{$i}:="kg*m/s^2"
$tSM_B{$i}:=Vrai
  ` grade :  (1/400e de cercle)
$i:=46
$tNE_T{$i}:="grade"
$tN_T{$i}:="grad"
$tVC_F{$i}:=0,015707963267
$tUR_T{$i}:="r"
$tSM_B{$i}:=Faux
  ` grain : (grain ) : 0,000 064 798 91
  ` gray
$i:=47
$tNE_T{$i}:="gray"
$tN_T{$i}:="Gy"
$tVC_F{$i}:=1
$tUR_T{$i}:="m^2/s^2"
$tSM_B{$i}:=Vrai
  ` heure
$i:=48
$tNE_T{$i}:="heure"
$tN_T{$i}:="h"
$tVC_F{$i}:=3600
$tUR_T{$i}:="s"
$tSM_B{$i}:=Faux
  ` Henry
$i:=49
$tNE_T{$i}:="Henry"
$tN_T{$i}:="H"
$tVC_F{$i}:=1
$tUR_T{$i}:="kg*m^2/A^2*s^2"
$tSM_B{$i}:=Vrai
  ` puissance d'un cheval (horsepower)
$i:=50
$tNE_T{$i}:="Cheval_puissance"
$tN_T{$i}:="hp"
$tVC_F{$i}:=745,699871582
$tUR_T{$i}:="kg*m^2/s^3"
$tSM_B{$i}:=Faux
  ` Hertz
$i:=51
$tNE_T{$i}:="Hertz"
$tN_T{$i}:="Hz"
$tVC_F{$i}:=1
$tUR_T{$i}:="s^-1"
$tSM_B{$i}:=Vrai
  ` pouce international :
$i:=52
$tNE_T{$i}:="pouce"
$tN_T{$i}:="in"
$tVC_F{$i}:=0,0254
$tUR_T{$i}:="m"
$tSM_B{$i}:=Faux
  `  pouce de mercure (0¡C)
$i:=53
$tNE_T{$i}:="pouce_de_mercure"
$tN_T{$i}:="inHg"
$tVC_F{$i}:=3386,38815789
$tUR_T{$i}:="kg/m*s^2"
$tSM_B{$i}:=Faux
  ` pouce d'eau (60¡F)
$i:=54
$tNE_T{$i}:="pouce_d_eau"
$tN_T{$i}:="inH20"
$tVC_F{$i}:=248,84
$tUR_T{$i}:="kg/m*s^2"
$tSM_B{$i}:=Faux
  ` joule
$i:=55
$tNE_T{$i}:="joule"
$tN_T{$i}:="J"
$tVC_F{$i}:=1
$tUR_T{$i}:="kg*m^2/s^2"
$tSM_B{$i}:=Vrai
  ` kip
$i:=56
$tNE_T{$i}:="kip"
$tN_T{$i}:="kip"
$tVC_F{$i}:=4448,22161526
$tUR_T{$i}:="kg*m/s^2"
$tSM_B{$i}:=Faux
  ` noeud
$i:=57
$tNE_T{$i}:="noeud"
$tN_T{$i}:="knot"
$tVC_F{$i}:=0,5144444444444440379
$tUR_T{$i}:="m/s"
$tSM_B{$i}:=Faux
  ` kilogramme_calorie
$i:=58
$tNE_T{$i}:="kilogramme_calorie"
$tN_T{$i}:="kgpcal"
$tVC_F{$i}:=4186
$tUR_T{$i}:="kg*m^2/s^2"
$tSM_B{$i}:=Faux
  ` kilogramme metre
$i:=59
$tNE_T{$i}:="kilogramme_metre"
$tN_T{$i}:="kgpm"
$tVC_F{$i}:=9,84
$tUR_T{$i}:="kg*m^2/s^2"
$tSM_B{$i}:=Faux
  `  km/heure
$i:=60
$tNE_T{$i}:="km_heure"
$tN_T{$i}:="kph"
$tVC_F{$i}:=0,2777777777777780122
$tUR_T{$i}:="m/s"
$tSM_B{$i}:=Faux
  `  km/minute
$i:=61
$tNE_T{$i}:="km_minute"
$tN_T{$i}:="kpm"
$tVC_F{$i}:=16,66666666666699825
$tUR_T{$i}:="m/s"
$tSM_B{$i}:=Faux
  ` kilowatt-heure
$i:=62
$tNE_T{$i}:="kilowatt_heure"
$tN_T{$i}:="kWph"
$tVC_F{$i}:=3600000
$tUR_T{$i}:="kg*m^2/s^2"
$tSM_B{$i}:=Faux
  ` Litre
$i:=63
$tNE_T{$i}:="litre"
$tN_T{$i}:="L"
$tVC_F{$i}:=0,001
$tUR_T{$i}:="m^3"
$tSM_B{$i}:=Vrai
  ` lambert
$i:=64
$tNE_T{$i}:="lambert"
$tN_T{$i}:="lam"
$tVC_F{$i}:=3183,09886184
$tUR_T{$i}:="cd/m^2"
$tSM_B{$i}:=Faux
  ` livre (pound)
$i:=65
$tNE_T{$i}:="livre"
$tN_T{$i}:="lb"
$tVC_F{$i}:=0,45359237
$tUR_T{$i}:="kg"
$tSM_B{$i}:=Faux
  ` livre-force
$i:=66
$tNE_T{$i}:="livre_force"
$tN_T{$i}:="lbf"
$tVC_F{$i}:=4,44822161526
$tUR_T{$i}:="kg*m/s^2"
$tSM_B{$i}:=Faux
  ` livre-pied carré
$i:=67
$tNE_T{$i}:="livre_pied_carré"
$tN_T{$i}:="lbpsf"
$tVC_F{$i}:=4,882
$tUR_T{$i}:="kg/m*s^2"
$tSM_B{$i}:=Faux
  ` livre "troy"
$i:=68
$tNE_T{$i}:="livre_troy"
$tN_T{$i}:="lbt"
$tVC_F{$i}:=0,3732417
$tUR_T{$i}:="kg"
$tSM_B{$i}:=Faux
  ` lumen
$i:=69
$tNE_T{$i}:="lumen"
$tN_T{$i}:="lm"
$tVC_F{$i}:=0,07957747154597
$tUR_T{$i}:="cd"
$tSM_B{$i}:=Faux
  ` lux
$i:=70
$tNE_T{$i}:="lux"
$tN_T{$i}:="lx"
$tVC_F{$i}:=0,0795774715479
$tUR_T{$i}:="cd/m^2"
$tSM_B{$i}:=Faux
  ` année lumière (light year)
$i:=71
$tNE_T{$i}:="annee_lumiere"
$tN_T{$i}:="lyr"
$tVC_F{$i}:=9,46952840488*(10^15)
$tUR_T{$i}:="m"
$tSM_B{$i}:=Faux
  `  : mètre : 1 m
$i:=72
$tNE_T{$i}:="mètre"
$tN_T{$i}:="m"
$tVC_F{$i}:=1
$tUR_T{$i}:="m"
$tSM_B{$i}:=Vrai
  ` mho
$i:=104  ` Le Siemens est l'UI => avant
$tNE_T{$i}:="mho"
$tN_T{$i}:="mho"
$tVC_F{$i}:=1
$tUR_T{$i}:="A^2*s^3/kg*m^2"
$tSM_B{$i}:=Vrai
  ` mile international
$i:=74
$tNE_T{$i}:="mile"
$tN_T{$i}:="mi"
$tVC_F{$i}:=1609,344
$tUR_T{$i}:="m"
$tSM_B{$i}:=Faux
  ` mil
$i:=75
$tNE_T{$i}:="mil"
$tN_T{$i}:="mil"
$tVC_F{$i}:=0,0000254
$tUR_T{$i}:="m"
$tSM_B{$i}:=Faux
  ` minute
$i:=76
$tNE_T{$i}:="minute"
$tN_T{$i}:="min"
$tVC_F{$i}:=60
$tUR_T{$i}:="s"
$tSM_B{$i}:=Faux
  ` mile US
$i:=77
$tNE_T{$i}:="mile_US"
$tN_T{$i}:="miUS"
$tVC_F{$i}:=1609,34721869
$tUR_T{$i}:="m"
$tSM_B{$i}:=Faux
  ` millimètre de mercure
$i:=78
$tNE_T{$i}:="millimetre_mercure"
$tN_T{$i}:="mmHg"
$tVC_F{$i}:=133,322368421
$tUR_T{$i}:="kg/m*s^2"
$tSM_B{$i}:=Faux
  ` mole
$i:=79
$tNE_T{$i}:="mole"
$tN_T{$i}:="mol"
$tVC_F{$i}:=1
$tUR_T{$i}:="mol"
$tSM_B{$i}:=Vrai
  ` mile par heure
$i:=80
$tNE_T{$i}:="mile_par_heure"
$tN_T{$i}:="mph"
$tVC_F{$i}:=0,44704
$tUR_T{$i}:="m/s"
$tSM_B{$i}:=Faux
  ` mile par minute
$i:=81
$tNE_T{$i}:="mile_par_minute"
$tN_T{$i}:="mpm"
$tVC_F{$i}:=26,824
$tUR_T{$i}:="m/s"
$tSM_B{$i}:=Faux
  ` newton
$i:=82
$tNE_T{$i}:="newton"
$tN_T{$i}:="N"
$tVC_F{$i}:=1
$tUR_T{$i}:="kg*m/s^2"
$tSM_B{$i}:=Vrai
  ` mile nautique
$i:=83
$tNE_T{$i}:="mile_nautique"
$tN_T{$i}:="nmi"
$tVC_F{$i}:=1852
$tUR_T{$i}:="m"
$tSM_B{$i}:=Faux
  ` ohm
$i:=84
$tNE_T{$i}:="ohm"
$tN_T{$i}:="ohm"
$tVC_F{$i}:=1
$tUR_T{$i}:="kg*m^2/A^2*s^3"
$tSM_B{$i}:=Vrai
  ` once
$i:=85
$tNE_T{$i}:="once"
$tN_T{$i}:="oz"
$tVC_F{$i}:=0,038349523125
$tUR_T{$i}:="kg"
$tSM_B{$i}:=Faux
  `  Once US fluides
$i:=86
$tNE_T{$i}:="onceUS_fluides"
$tN_T{$i}:="ozfl"
$tVC_F{$i}:=0,0000295735295625
$tUR_T{$i}:="m^3"
$tSM_B{$i}:=Faux
  ` ozt : once "troy"
$i:=87
$tNE_T{$i}:="once_troy"
$tN_T{$i}:="ozt"
$tVC_F{$i}:=0,031103475
$tUR_T{$i}:="kg"
$tSM_B{$i}:=Faux
  `  : once britannique fluide
$i:=88
$tNE_T{$i}:="once_UK"
$tN_T{$i}:="ozUK"
$tVC_F{$i}:=0,000028413075
$tUR_T{$i}:="m^3"
$tSM_B{$i}:=Faux
  ` poise
$i:=89
$tNE_T{$i}:="poise"
$tN_T{$i}:="P"
$tVC_F{$i}:=0,1
$tUR_T{$i}:="kg/m*s"
$tSM_B{$i}:=Vrai
  ` pascal
$i:=90
$tNE_T{$i}:="pascal"
$tN_T{$i}:="Pa"
$tVC_F{$i}:=1
$tUR_T{$i}:="kg/m*s^2"
$tSM_B{$i}:=Vrai
  ` parsec
$i:=91
$tNE_T{$i}:="parsec"
$tN_T{$i}:="pc"
$tVC_F{$i}:=3,08567818585*(10^16)
$tUR_T{$i}:="m"
$tSM_B{$i}:=Vrai
  `  poundal
$i:=92
$tNE_T{$i}:="poundal"
$tN_T{$i}:="pdl"
$tVC_F{$i}:=0,138254954376
$tUR_T{$i}:="kg*m/s^2"
$tSM_B{$i}:=Faux
  ` phot
$i:=93
$tNE_T{$i}:="phot"
$tN_T{$i}:="ph"
$tVC_F{$i}:=795,774715459
$tUR_T{$i}:="cd/m^2"
$tSM_B{$i}:=Faux
  ` peck
$i:=94
$tNE_T{$i}:="peck"
$tN_T{$i}:="pk"
$tVC_F{$i}:=0,0088097675
$tUR_T{$i}:="m^3"
$tSM_B{$i}:=Faux
  ` psi
$i:=95
$tNE_T{$i}:="psi"
$tN_T{$i}:="psi"
$tVC_F{$i}:=6894,75729317
$tUR_T{$i}:="kg/m*s^2"
$tSM_B{$i}:=Faux
  ` pinte
$i:=96
$tNE_T{$i}:="pinte"
$tN_T{$i}:="pt"
$tVC_F{$i}:=0,000473176473
$tUR_T{$i}:="m^3"
$tSM_B{$i}:=Faux
  ` quart
$i:=97
$tNE_T{$i}:="quart"
$tN_T{$i}:="qt"
$tVC_F{$i}:=0,000946352946
$tUR_T{$i}:="m^3"
$tSM_B{$i}:=Faux
  `  radian  (soit 1/2Pi de cercle)
$i:=98
$tNE_T{$i}:="radian"
$tN_T{$i}:="r"
$tVC_F{$i}:=1
$tUR_T{$i}:="r"
$tSM_B{$i}:=Faux
  ` roentgen
$i:=99
$tNE_T{$i}:="roentgen"
$tN_T{$i}:="R"
$tVC_F{$i}:=0,000258
$tUR_T{$i}:="A*s/kg"
$tSM_B{$i}:=Faux
  ` rad
$i:=100
$tNE_T{$i}:="rad"
$tN_T{$i}:="rad"
$tVC_F{$i}:=0,01
$tUR_T{$i}:="m^2/s^2"
$tSM_B{$i}:=Vrai
  ` rod
$i:=101
$tNE_T{$i}:="rod"
$tN_T{$i}:="rd"
$tVC_F{$i}:=5,02921005842
$tUR_T{$i}:="m"
$tSM_B{$i}:=Faux
  ` rem
$i:=102
$tNE_T{$i}:="rem"
$tN_T{$i}:="rem"
$tVC_F{$i}:=0,01
$tUR_T{$i}:="m^2/s^2"
$tSM_B{$i}:=Vrai
  ` seconde
$i:=103
$tNE_T{$i}:="seconde"
$tN_T{$i}:="s"
$tVC_F{$i}:=1
$tUR_T{$i}:="s"
$tSM_B{$i}:=Faux
  ` siemens
$i:=73
$tNE_T{$i}:="siemens"
$tN_T{$i}:="S"
$tVC_F{$i}:=1
$tUR_T{$i}:="A^2*s^3/kg*m^2"
$tSM_B{$i}:=Vrai
  ` stilb
$i:=105
$tNE_T{$i}:="stilb"
$tN_T{$i}:="sb"
$tVC_F{$i}:=10000
$tUR_T{$i}:="cd/m^2"
$tSM_B{$i}:=Vrai
  ` slug
$i:=106
$tNE_T{$i}:="slug"
$tN_T{$i}:="slug"
$tVC_F{$i}:=14,5939029372
$tUR_T{$i}:="kg"
$tSM_B{$i}:=Faux
  ` steradian (soit 1/4Pi de cercle) : angle solide
$i:=107
$tNE_T{$i}:="steradian"
$tN_T{$i}:="sr"
$tVC_F{$i}:=0,5
$tUR_T{$i}:="r"
$tSM_B{$i}:=Faux
  ` stokes
$i:=108
$tNE_T{$i}:="stokes"
$tN_T{$i}:="St"
$tVC_F{$i}:=0,0001
$tUR_T{$i}:="m^2/s"
$tSM_B{$i}:=Faux
  ` sievert
$i:=109
$tNE_T{$i}:="sievert"
$tN_T{$i}:="Sv"
$tVC_F{$i}:=1
$tUR_T{$i}:="m^2/s^2"
$tSM_B{$i}:=Vrai
  ` tonne (métrique)
$i:=110
$tNE_T{$i}:="tonne"
$tN_T{$i}:="t"
$tVC_F{$i}:=1000
$tUR_T{$i}:="kg"
$tSM_B{$i}:=Vrai
  ` tesla
$i:=111
$tNE_T{$i}:="tesla"
$tN_T{$i}:="T"
$tVC_F{$i}:=1
$tUR_T{$i}:="kg/A*s^2"
$tSM_B{$i}:=Vrai
  ` cuillère à soupe (tablespoon)
$i:=112
$tNE_T{$i}:="cuillere_soupe"
$tN_T{$i}:="tbsp"
$tVC_F{$i}:=0,0000147867647813
$tUR_T{$i}:="m^3"
$tSM_B{$i}:=Faux
  ` therm
$i:=113
$tNE_T{$i}:="therm"
$tN_T{$i}:="therm"
$tVC_F{$i}:=105506000
$tUR_T{$i}:="kg*m^2/s^2"
$tSM_B{$i}:=Faux
  ` tonne "short"
$i:=114
$tNE_T{$i}:="tonne_short"
$tN_T{$i}:="ton"
$tVC_F{$i}:=907,18474
$tUR_T{$i}:="kg"
$tSM_B{$i}:=Faux
  ` tonne "long"
$i:=115
$tNE_T{$i}:="tonne_long"
$tN_T{$i}:="tonUK"
$tVC_F{$i}:=1016,0469088
$tUR_T{$i}:="kg"
$tSM_B{$i}:=Faux
  ` torr
$i:=116
$tNE_T{$i}:="torr"
$tN_T{$i}:="torr"
$tVC_F{$i}:=133,322368421
$tUR_T{$i}:="kg/m*s^2"
$tSM_B{$i}:=Faux
  ` cuillère à café (teaspoon)
$i:=117
$tNE_T{$i}:="cuillere_cafe"
$tN_T{$i}:="tsp"
$tVC_F{$i}:=0,00000492892159375
$tUR_T{$i}:="m^3"
$tSM_B{$i}:=Faux
  ` masse atomique
$i:=118
$tNE_T{$i}:="masse_atomique"
$tN_T{$i}:="u"
$tVC_F{$i}:=1,6605402*(10^-27)
$tUR_T{$i}:="kg"
$tSM_B{$i}:=Faux
  ` volt
$i:=119
$tNE_T{$i}:="volt"
$tN_T{$i}:="V"
$tVC_F{$i}:=1
$tUR_T{$i}:="kg*m^2/A*s^3"
$tSM_B{$i}:=Vrai
  ` watt
$i:=120
$tNE_T{$i}:="watt"
$tN_T{$i}:="W"
$tVC_F{$i}:=1
$tUR_T{$i}:="kg*m^2/s^3"
$tSM_B{$i}:=Vrai
  ` weber
$i:=121
$tNE_T{$i}:="weber"
$tN_T{$i}:="Wb"
$tVC_F{$i}:=1
$tUR_T{$i}:="kg*m^2/A*s^2"
$tSM_B{$i}:=Vrai
  ` yard international
$i:=122
$tNE_T{$i}:="yard"
$tN_T{$i}:="yd"
$tVC_F{$i}:=0,9144
$tUR_T{$i}:="m"
$tSM_B{$i}:=Faux
  ` année tropicale
$i:=123
$tNE_T{$i}:="annee"
$tN_T{$i}:="yr"
$tVC_F{$i}:=31556925,9477
$tUR_T{$i}:="s"
$tSM_B{$i}:=Faux
  ` degré (soit 1/360e de cercle)
$i:=124
$tNE_T{$i}:="degre"
$tN_T{$i}:="¡"
$tVC_F{$i}:=0,017453292519
$tUR_T{$i}:="r"
$tSM_B{$i}:=Faux
  ` minute (soit 1/360/60e de cercle)
$i:=125
$tNE_T{$i}:="minute_angle"
$tN_T{$i}:="'"
$tVC_F{$i}:=0,017453292519/60
$tUR_T{$i}:="r"
$tSM_B{$i}:=Faux
  ` seconde (soit 1/360/60/60e de cercle)
$i:=126
$tNE_T{$i}:="seconde_angle"
$tN_T{$i}:="''"
$tVC_F{$i}:=0,017453292519/3600
$tUR_T{$i}:="r"
$tSM_B{$i}:=Faux
  ` ¡Kelvin
$i:=127
$tNE_T{$i}:="degre_Kelvin"
$tN_T{$i}:="¡K"
$tVC_F{$i}:=1
$tUR_T{$i}:="¡K"
$tSM_B{$i}:=Faux
  ` au
$i:=128
$tNE_T{$i}:="unite_astronomique"
$tN_T{$i}:="au"
$tVC_F{$i}:=149597870691
$tUR_T{$i}:="m"
$tSM_B{$i}:=Faux
  ` gal
$i:=129
$tNE_T{$i}:="Gal"
$tN_T{$i}:="gal"
$tVC_F{$i}:=0,01
$tUR_T{$i}:="m/s^2"
$tSM_B{$i}:=Faux
  ` Pa*s
$i:=130
$tNE_T{$i}:="Pascal_seconde"
$tN_T{$i}:="Pa*s"
$tVC_F{$i}:=1
$tUR_T{$i}:="kg/m*s"
$tSM_B{$i}:=Vrai
  ` C/kg
$i:=131
$tNE_T{$i}:="Coulomb_kilogramme"
$tN_T{$i}:="C/kg"
$tVC_F{$i}:=1
$tUR_T{$i}:="A*s/kg"
$tSM_B{$i}:=Vrai
  ` Cd/m^2
$i:=132
$tNE_T{$i}:="Candela_metre_carre"
$tN_T{$i}:="cd/m^2"
$tVC_F{$i}:=1
$tUR_T{$i}:="cd/m^2"
$tSM_B{$i}:=Vrai
  ` m/s^2
$i:=133
$tNE_T{$i}:="metre_seconde_carre"
$tN_T{$i}:="m/s^2"
$tVC_F{$i}:=1
$tUR_T{$i}:="m/s^2"
$tSM_B{$i}:=Vrai
  ` N*s/m^2
$i:=134
$tNE_T{$i}:="newton_seconde_metre_carre"
$tN_T{$i}:="N*s/m^2"
$tVC_F{$i}:=1
$tUR_T{$i}:="m^2/s"
$tSM_B{$i}:=Vrai
  ` kg
$i:=135
$tNE_T{$i}:="kilogramme"
$tN_T{$i}:="kg"
$tVC_F{$i}:=1
$tUR_T{$i}:="kg"
$tSM_B{$i}:=Faux  ` il y a le gramme pour cela
  ` m/s
$i:=136
$tNE_T{$i}:="metre_seconde"
$tN_T{$i}:="m/s"
$tVC_F{$i}:=1
$tUR_T{$i}:="m/s"
$tSM_B{$i}:=Vrai


  ` Met les "zéros" et la dimension pour les cas simples
Boucle ($i;1;136)
 $tVZ_F{$i}:=0
 $tVD_I{$i}:=1
Fin de boucle 

  ` Unités atypiques ou ajoutées
  ` ------------------------------
  ` degré celsius
$i:=137
$tNE_T{$i}:="degre_celsius"
$tN_T{$i}:="¡C"
$tVC_F{$i}:=1
$tUR_T{$i}:="¡K"
$tVZ_F{$i}:=273,16
$tVD_I{$i}:=1
$tSM_B{$i}:=Faux
  ` ¡ Farenheit
$i:=138
$tNE_T{$i}:="degre_Farenheit"
$tN_T{$i}:="¡F"
$tVC_F{$i}:=0,5555555555555560243
$tUR_T{$i}:="¡K"
$tVZ_F{$i}:=255,2822
$tVD_I{$i}:=1
$tSM_B{$i}:=Faux
  ` metre carres
$i:=139
$tNE_T{$i}:="metre_carres"
$tN_T{$i}:="m^2"
$tVC_F{$i}:=1
$tUR_T{$i}:="m^2"
$tVZ_F{$i}:=0
$tVD_I{$i}:=2
$tSM_B{$i}:=Vrai
  ` metre cube
$i:=140
$tNE_T{$i}:="metre_cube"
$tN_T{$i}:="m^3"
$tVC_F{$i}:=1
$tUR_T{$i}:="m^3"
$tVZ_F{$i}:=0
$tVD_I{$i}:=3
$tSM_B{$i}:=Vrai
  ` stere (en dernier pour ne pas être pris pour l'UI)
$i:=141
$tNE_T{$i}:="stere"
$tN_T{$i}:="st"
$tVC_F{$i}:=1
$tUR_T{$i}:="m^3"
$tVZ_F{$i}:=0
$tVD_I{$i}:=1
$tSM_B{$i}:=Faux
  `¡R : 0,555 555 555 555 556 ¡K
  `µ(mu): micron : 0,000 001 m


  ` Création des constantes
  ` ===================================
Si (($vCmd_L=1) | ($vCmd_L=11) | (Nombre de parametres=0))  ` Commande constantes (1) ou constantes forcées (11)
 LISTE RESSOURCES("4DK#";$tIDRes_L;$tNRes_T)
 $i:=Chercher dans tableau($tNRes_T;"MATH_ConstantesUnites")
 Si ($i=-1)  ` Le fichier n'existe pas déjà
  $vOK_B:=Vrai
 Sinon 
  Si ($vCmd_L=11)  ` Forcer => on efface avant de recommencer
   SUPPRIMER RESSOURCE("4DK#";$tIDRes_L{$i})
   $vOK_B:=Vrai
  Sinon 
   $vOK_B:=Faux
  Fin de si 
 Fin de si 
 
 Si ($vOK_B)
    ` On crée d'abord un ficher "STR#"
  LISTE RESSOURCES("STR#";$tIDRes_L;$tNRes_T)
  $vNumResSTRD_L:=15000
  Tant que (Chercher dans tableau($tIDRes_L;$vNumResSTRD_L)#-1)  `dans un endroit libre de préférence
   $vNumResSTRD_L:=$vNumResSTRD_L+1
  Fin tant que 
    ` On crée le tableau des constantes
  Boucle ($i;1;Taille tableau($tNE_T))
   INSERER LIGNES($tNomConst_T;1)
   $tNomConst_T{1}:="unit_"+$tNE_T{$i}+":"+$tN_T{$i}+":S"
  Fin de boucle 
  TABLEAU VERS LISTE DE CHAINES($tNomConst_T;$vNumResSTRD_L)
    ` On crée ensuite un ficher "4DK#"
  LISTE RESSOURCES("4DK#";$tIDRes_L;$tNRes_T)
  $vNumRes4DKD_L:=15001
  Tant que (Chercher dans tableau($tIDRes_L;$vNumRes4DKD_L)#-1)  `dans un endroit libre de préférence
   $vNumRes4DKD_L:=$vNumRes4DKD_L+1
  Fin tant que 
    ` On déplace les "STR#" fraichement créés vers les constantes "4DK#"
  LIRE RESSOURCE("STR#";$vNumResSTRD_L;$vBlobRessource_Q)
  SUPPRIMER RESSOURCE("STR#";$vNumResSTRD_L)  ` Plus utile => poubelle !
  ECRIRE RESSOURCE("4DK#";$vNumRes4DKD_L;$vBlobRessource_Q)
  ECRIRE NOM RESSOURCE("4DK#";$vNumRes4DKD_L;"MATH_ConstantesUnites")
  $vAlerte_T:="Les constantes des unités sont inclues à la structure;"+Caractere(Retour chariot )
  $vAlerte_T:=$vAlerte_T+"Réouvrir la base pour pouvoir en profiter;"
  ALERTE($vAlerte_T)
 Fin de si 
Sinon 
   ` Categorie de la constante
 Si ($vUDem_T="Toutes")  ` Demande un tableau
  Si ($vCmd_L=2)  ` Catégorie
   Boucle ($i;1;Taille tableau($tCat_T))
    INSERER LIGNES($vPointTab_W->;1)
    $vPointTab_W->{1}:=$tCat_T{$i}
   Fin de boucle 
  Sinon 
   Boucle ($i;1;Taille tableau($tN_T))
    INSERER LIGNES($vPointTab_W->;1)
    Au cas ou 
     : ($vCmd_L=13)  ` Nom court ou symboles
     $vPointTab_W->{1}:=$tN_T{$i}
     : ($vCmd_L=9)  ` Nom complet
     $vPointTab_W->{1}:=$tNE_T{$i}
     : ($vCmd_L=3)  ` Unit Réference
     $vPointTab_W->{1}:=$tUR_T{$i}
     : ($vCmd_L=4)  ` Val; conversion
     $vPointTab_W->{1}:=$tVC_F{$i}
     : ($vCmd_L=5)  ` Val; zéro
     $vPointTab_W->{1}:=$tVZ_F{$i}
     : ($vCmd_L=6)  ` Dimension
     $vPointTab_W->{1}:=$tVD_I{$i}
     : ($vCmd_L=7)  ` Syst Métrique
     $vPointTab_W->{1}:=$tSM_B{$i}
     : ($vCmd_L=14)  ` Catégories par unit
     $vPointTab_W->{1}:=$tCat_T{Chercher dans tableau($tURCat_T;$tUR_T{$i})}
     : ($vCmd_L=8)  ` La totale : tableau à 2 dimensions de type texte à 7 colonnes
     $vPointTab_W->{1}{1}:=$tNE_T{$i}  ` Nom complet : colonne 1
     $vPointTab_W->{1}{2}:=$tN_T{$i}  ` Nom d'unité : 2
     $vPointTab_W->{1}{3}:=Chaine($tVC_F{$i})  ` Valeur de conversion : 3
     $vPointTab_W->{1}{4}:=$tUR_T{$i}  ` Unité de référence : 4
     $vPointTab_W->{1}{5}:=Chaine(Num($tSM_B{$i}))  ` Système métrique : 5
     $vPointTab_W->{1}{6}:=Chaine($tVZ_F{$i})  ` Valeur du zéro : 6
     $vPointTab_W->{1}{7}:=Chaine($tVD_I{$i})  ` Dimension : 7
    Sinon   ` Gloups, commande incorrecte
     MATHERROR:=-3
    Fin de cas 
   Fin de boucle 
  Fin de si 
 Sinon   ` Demande la catégorie d'une variable particulière
    ` Cas spécial : demande du nom de l'UI
  Si ($vCmd_L=10)  ` Nom UI
   $i:=-1
   $vUDem_T:=MATH_Unites ("Unite Reference";$vUDem_T)
   Repeter 
    $i:=Chercher dans tableau($tUR_T;$vUDem_T;-$i)
    Au cas ou 
     : ($i=-1)
     $i:=0  ` On arrête
     : (($i>0) & ($tVC_F{$i}#1))
     $i:=$i+1  ` On démarre un point plus loin
     $i:=-$i  ` On recommence
    Fin de cas 
   Jusque ($i>=0)
   Si ($i=0)
    MATHERROR:=-2
   Sinon 
    $vResult_T:=$tN_T{$i}
   Fin de si 
     ` Autres demandes
  Sinon 
   $vUniteRattrap_T:=" "+$vUDem_T
   $j:=-1
   Repeter 
    $vUniteRattrap_T:=Sous chaine($vUniteRattrap_T;2)
    $i:=-1
    $j:=$j+1
    Repeter 
     $i:=Chercher dans tableau($tN_T;$vUniteRattrap_T;-$i)
     Au cas ou 
      : ($i=-1)
      $i:=0  ` On arrête
      : (($i>0) & (Code ascii($vUniteRattrap_T²1³)#Code ascii($tN_T{$i}²1³)))
      $i:=$i+1  ` On démarre un point plus loin
      $i:=-$i  ` On recommence
     Fin de cas 
    Jusque ($i>=0)
   Jusque (($j=2) | ($i>0))  ` on a essayé deca avant d'abandonner
   
   Si ($i>0)  `on a trouvé quelque chose
    Si ($j>0)  ` Mais il a fallu tricher
     Si (($tSM_B{$i}))  ` mais l'unité est compatible
      MATHERROR:=1
      Au cas ou 
       : ((Code ascii($vUDem_T²1³)=Code ascii("y")) & ($j=1))  ` yocto
       $vVCnvR_F:=$tVC_F{$i}*10^-(24*$tVD_I{$i})
       : ((Code ascii($vUDem_T²1³)=Code ascii("z")) & ($j=1))  ` zepto
       $vVCnvR_F:=$tVC_F{$i}*10^-(21*$tVD_I{$i})
       : ((Code ascii($vUDem_T²1³)=Code ascii("a")) & ($j=1))  ` atto
       $vVCnvR_F:=$tVC_F{$i}*10^-(18*$tVD_I{$i})
       : ((Code ascii($vUDem_T²1³)=Code ascii("f")) & ($j=1))  ` femto
       $vVCnvR_F:=$tVC_F{$i}*10^-(15*$tVD_I{$i})
       : ((Code ascii($vUDem_T²1³)=Code ascii("p")) & ($j=1))  ` pico
       $vVCnvR_F:=$tVC_F{$i}*10^-(12*$tVD_I{$i})
       : ((Code ascii($vUDem_T²1³)=Code ascii("n")) & ($j=1))  ` nano
       $vVCnvR_F:=$tVC_F{$i}*10^-(9*$tVD_I{$i})
       : ((Code ascii($vUDem_T²1³)=Code ascii("µ")) & ($j=1))  ` micro
       $vVCnvR_F:=$tVC_F{$i}*10^-(6*$tVD_I{$i})
       : ((Code ascii($vUDem_T²1³)=Code ascii("m")) & ($j=1))  ` milli
       $vVCnvR_F:=$tVC_F{$i}*10^-(3*$tVD_I{$i})
       : ((Code ascii($vUDem_T²1³)=Code ascii("c")) & ($j=1))  ` centi
       $vVCnvR_F:=$tVC_F{$i}*10^-(2*$tVD_I{$i})
       : ((Code ascii($vUDem_T²1³)=Code ascii("d")) & ($j=1))  ` deci
       $vVCnvR_F:=$tVC_F{$i}*10^-($tVD_I{$i})  ` deca : 10E+1 (puisque déci déjà essayé)
       : ((Code ascii($vUDem_T²1³)=Code ascii("d")) & (Code ascii($vUDem_T²2³)=Code ascii("a")) & ($j=2))
       $vVCnvR_F:=$tVC_F{$i}*10^($tVD_I{$i})
       : ((Code ascii($vUDem_T²1³)=Code ascii("h")) & ($j=1))  ` hecto
       $vVCnvR_F:=$tVC_F{$i}*10^(2*$tVD_I{$i})
       : ((Code ascii($vUDem_T²1³)=Code ascii("k")) & ($j=1))  ` kilo
       $vVCnvR_F:=$tVC_F{$i}*10^(3*$tVD_I{$i})
       : ((Code ascii($vUDem_T²1³)=Code ascii("M")) & ($j=1))  ` méga
       $vVCnvR_F:=$tVC_F{$i}*10^(6*$tVD_I{$i})
       : ((Code ascii($vUDem_T²1³)=Code ascii("G")) & ($j=1))  ` Giga
       $vVCnvR_F:=$tVC_F{$i}*10^(9*$tVD_I{$i})
       : ((Code ascii($vUDem_T²1³)=Code ascii("T")) & ($j=1))  ` Tera
       $vVCnvR_F:=$tVC_F{$i}*10^(12*$tVD_I{$i})
       : ((Code ascii($vUDem_T²1³)=Code ascii("P")) & ($j=1))  ` Peta
       $vVCnvR_F:=$tVC_F{$i}*10^(15*$tVD_I{$i})
       : ((Code ascii($vUDem_T²1³)=Code ascii("E")) & ($j=1))  ` Exa
       $vVCnvR_F:=$tVC_F{$i}*10^(18*$tVD_I{$i})
       : ((Code ascii($vUDem_T²1³)=Code ascii("Z")) & ($j=1))  ` Zetta
       $vVCnvR_F:=$tVC_F{$i}*10^(21*$tVD_I{$i})
       : ((Code ascii($vUDem_T²1³)=Code ascii("Y")) & ($j=1))  ` Yotta
       $vVCnvR_F:=$tVC_F{$i}*10^(24*$tVD_I{$i})
      Sinon   ` Gloups rien à faire => variable inconnue
       MATHERROR:=-2
      Fin de cas 
     Sinon   ` Gloups rien à faire => variable inconnue
      MATHERROR:=-2
     Fin de si 
    Sinon   ` Pas besoin de tricher
     $vVCnvR_F:=$tVC_F{$i}
    Fin de si 
    Si (MATHERROR>=0)  ` Tout a fonctionné
     Au cas ou 
      : ($vCmd_L=2)  ` Catégories
      $vResult_T:=$tCat_T{Chercher dans tableau($tURCat_T;$tUR_T{$i})}
      : ($vCmd_L=9)  `Nom Complet
      $vResult_T:=$tNE_T{$i}
      : ($vCmd_L=3)  `Unit Reference
      $vResult_T:=$tUR_T{$i}
      : ($vCmd_L=4)  `Val Conversion
      $vResult_T:=Chaine($vVCnvR_F)
      : ($vCmd_L=5)  `Val zero
      $vResult_T:=Chaine($tVZ_F{$i})
      : ($vCmd_L=6)  `Dimension
      $vResult_T:=Chaine($tVD_I{$i})
      : ($vCmd_L=7)  `SystemeMetrique
      $vResult_T:=Chaine(Num($tSM_B{$i}))
     Sinon   ` Gloups commande incorrecte
      MATHERROR:=-3
     Fin de cas 
    Fin de si 
   Sinon   ` On a rien trouvé
    MATHERROR:=-2
   Fin de si 
  Fin de si 
 Fin de si 
 $0:=$vResult_T
Fin de si