source: spip-zone/_plugins_/rainette/trunk/inc/convertir.php @ 77022

Last change on this file since 77022 was 77022, checked in by eric@…, 6 years ago

Report de la correction de la fonction rainette_afficher_direction() avec gestion de la direction variable

  • Property svn:eol-style set to native
File size: 1.6 KB
Line 
1<?php
2
3if (!defined("_ECRIRE_INC_VERSION")) return;
4
5/**
6 * Conversion des kilomètres en miles.
7 *
8 * @param       float   $kilometre
9 * @return      float
10 */
11function kilometre2mile($kilometre) {
12        return 0.6215*$kilometre;
13}
14
15/**
16 * Conversion des températures celsius en farenheit.
17 *
18 * @param       int             $celsius
19 * @return      float
20 */
21function celsius2farenheit($celsius) {
22        return $celsius*9/5 + 32;
23}
24
25/**
26 * Conversion des millimètres en pouces.
27 *
28 * @param       float   $millimetre
29 * @return      float
30 */
31function millimetre2inch($millimetre) {
32        return $millimetre/25.4;
33}
34
35/**
36 * Conversion des pressions millibar en pouces.
37 *
38 * @param       float   $millibar
39 * @return      float
40 */
41function millibar2inch($millibar) {
42        return $mbar/33.86;
43}
44
45/**
46 * Calcul de la température ressentie (refroidissement éolien) en degrés celsius.
47 *
48 * Le calcul n'a de sens que pour des températures réelles supérieures à -50°C et inférieures à 10°C.
49 * Au-delà de ces valeurs, la fonction renvoie la température réelle fournie en entrée.
50 *
51 * @param       int             $temperature    Temmpérature réelle mesurée en celsius
52 * @param       float   $vitesse_vent   Vitesse du vent
53 * @return      int                                             Température ressentie arrondie en entier
54 */
55function temperature2ressenti($temperature, $vitesse_vent) {
56
57        if (($temperature >= -50) AND ($temperature <= 10)) {
58                if ($vitesse_vent > 4.8)
59                        $ressenti = 13.12 + 0.6215*$temperature + (0.3965*$temperature - 11.37)*pow($vitesse_vent, 0.16);
60                else
61                        $ressenti = $temperature + 0.2*(0.1345*$temperature - 1.59)*$vitesse_vent;
62                $ressenti = round($ressenti, 0);
63        }
64        else
65                $ressenti = $temperature;
66
67        return intval($ressenti);
68
69}
70
71?>
Note: See TracBrowser for help on using the repository browser.