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