FORUM DE DISCUSSION SUR LE LANGAGE PANORAMIC

Développement d'applications avec le langage Panoramic
 
AccueilAccueil  FAQFAQ  RechercherRechercher  S'enregistrerS'enregistrer  MembresMembres  GroupesGroupes  Connexion  
Derniers sujets
» Une copie de Panoramic Editeur
par Minibug Aujourd'hui à 1:17

» Problème mathématique en 3D
par Marc Hier à 18:24

» Nouvelle version 0.33
par jean_debord Hier à 9:02

» Reprise du développement et de la documentation
par Fredisland Hier à 7:14

» Objet 3D_PLANE, réalisation d'un dé en 3D
par Marc Mar 22 Mai 2018 - 0:33

» Cacher la barre des tâches
par Klaus Lun 21 Mai 2018 - 21:27

» Une "base de connaissance" - pour jouer ou plus si affinité
par Minibug Lun 21 Mai 2018 - 10:29

» quel est ce comportement de Panoramic_editor
par Oscaribout Lun 21 Mai 2018 - 0:22

» Des FORM(s) Colorés
par Jean Claude Dim 20 Mai 2018 - 20:58

» Recherches dans un fichier texte
par JL35 Dim 20 Mai 2018 - 20:18

» Problème d'affichage des pages du forum (Résolu)
par Jean Claude Dim 20 Mai 2018 - 20:00

» Créer une application *.exe
par Yannick Ven 18 Mai 2018 - 20:01

» [RÉSOLU] Priorité affichage des objets : comment la définir?
par papydall Ven 18 Mai 2018 - 18:22

» Aucune différence entre ON_CLICK et ON_DOUBLE_CLICK
par Jean Claude Jeu 17 Mai 2018 - 8:37

» [Résolu] Récuperer les fonctions systeme de Panoramic
par Minibug Mar 15 Mai 2018 - 23:21

Navigation
 Portail
 Index
 Membres
 Profil
 FAQ
 Rechercher
Rechercher
 
 

Résultats par :
 
Rechercher Recherche avancée
Mai 2018
LunMarMerJeuVenSamDim
 123456
78910111213
14151617181920
21222324252627
28293031   
CalendrierCalendrier

Partagez | 
 

 Pression atmosphérique

Aller en bas 
AuteurMessage
papydall

avatar

Nombre de messages : 5907
Age : 67
Localisation : Moknine (Tunisie) Entre la chaise et le clavier
Date d'inscription : 03/03/2012

MessageSujet: Pression atmosphérique   Dim 5 Juil 2015 - 1:50

Code:

rem ============================================================================
rem  Evolution de la pression atmosphérique moyenne avec l altitude
rem                Par Papydall
rem ============================================================================
' Calcul de la pression atmosphérique P en fonction de l'altitude Z
' avec la formule internationnale du nivellement barométrique.
' On prend comme altitude de référence Z0, le niveau moyen de la mer.
' On prend pour l'atmosphère un état moyen défini par l'atmosohère normalisée
' type OACI (Organisation de l'Aviation Civile Internationale), c-à-d :
' Température 15°C = 288.15 K;
' Pression 1013.25 hPa;
' Gradient vertical de température = 0.65 K pour 100 m.
rem  La formule : P(Z) = 1013.25*power(((1-(0.0065*z)/288.15)),5.255)
' donne la pression exprimée en hectopascals (hPa) à l'altitude Z exprimée en mètres.
rem ============================================================================
Init()
Tracer_Repere()
Tracer_Courbe()
end
rem ============================================================================
SUB Init()
    dim p : ' Pression atmosphérique
    width 0,700 : height 0,600 : color 0,0,0,0
    picture 10 : full_space 10 : print_target_is 10 : 2d_target_is 10 : color 10,0,0,0 : font_bold 10
    alpha 20 : top 20, 500 : left 20,10 : font_bold 20 : font_size 20,14 : font_color 20,255,0,255
    caption 20,"Evolution de la pression atmosphérique moyenne avec l'altitude" + chr$(13)+"entre 0 et 20 000 m"
END_SUB
rem ============================================================================
SUB P(Z)
    p = 1013.25*power((1-(0.0065*z)/288.15),5.255)
END_SUB
rem ============================================================================
SUB Tracer_Repere()
    dim_local i
    2d_pen_color 255,255,0  : 2d_pen_width 2
    print_locate 10,05 : print " Altitude en Km "
    2d_line 50,20,50,450 : 2d_poly_to 650,450 : print_locate 35,450 : print "0"
    for i = 1 to 20
        2d_line 50,450-20*i,600,450-20*i : print_locate 33,442-20*i : print str$(i)
    next i
    print_locate 585,460 : print " Pression en hPa "
    for i = 100 to 1000 step 100
        2d_line 50+i/2,450,50+i/2,50 : print_locate 40+i/2,460 : print str$(i)
    next i
    print_locate 220,442-180 : print " Nécessité de respirer de l'oxygène "
    print_locate 140,442-260 : print " Nécessité d'une préssurisation "
    print_locate 080,442-400 : print " Ebulution du sang "
END_SUB
rem ============================================================================
SUB Tracer_Courbe()
    dim_local z,x,y
    2d_pen_color 0,255,255 : p(0) : 2d_poly_from 50+p/2, 450
    for z = 0 to 21000 step 10
        p(z) : x = 50 + p/2 : y = 450-z/50 : 2d_poly_to x,y
    next z
END_SUB
rem ============================================================================
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://papydall-panoramic.forumarabia.com/
 
Pression atmosphérique
Revenir en haut 
Page 1 sur 1
 Sujets similaires
-
» Pourquoi utiliser la pression atmosphérique pour mesurer l'altitude
» Pression atmosphérique
» test pression atmosphérique vs pression barométrique
» Altimetre sur oregon
» pression atm. et pression barometre

Permission de ce forum:Vous ne pouvez pas répondre aux sujets dans ce forum
FORUM DE DISCUSSION SUR LE LANGAGE PANORAMIC :: PANORAMIC :: Vos sources, vos utilitaires à partager-
Sauter vers: