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
» KGF.dll - demandes ou suggestions de modifications ou ajouts
par Klaus Aujourd'hui à 19:48

» KGF_dll - nouvelles versions
par pascal10000 Aujourd'hui à 17:27

» Mah-Jong européen new-look
par Minibug Hier à 22:31

» track_bar circulaire
par Klaus Hier à 13:54

» API Windows
par Klaus Hier à 3:21

» Cartes de voeux, menus, etc.
par JL35 Lun 11 Déc 2017 - 17:48

» a l'aide klaus
par Minibug Lun 11 Déc 2017 - 11:42

» bug SYNEDIT_TARGET_IS_OBJECT
par Jack Lun 11 Déc 2017 - 0:16

» Jukebox : Serge Reggiani
par papydall Sam 9 Déc 2017 - 5:58

» Ecouter la radio fm sur votre pc
par pascal10000 Sam 9 Déc 2017 - 3:42

» anomalie
par Klaus Sam 9 Déc 2017 - 3:21

» hommage
par Jicehel Ven 8 Déc 2017 - 11:29

» Logiciel de soutien scolaire en langues.
par Pedro Alvarez Ven 8 Déc 2017 - 10:43

» carte son
par Klaus Ven 8 Déc 2017 - 2:37

» mise a jour calculatrice
par joeeee2017 Mer 6 Déc 2017 - 22:19

Navigation
 Portail
 Index
 Membres
 Profil
 FAQ
 Rechercher
Rechercher
 
 

Résultats par :
 
Rechercher Recherche avancée
Décembre 2017
LunMarMerJeuVenSamDim
    123
45678910
11121314151617
18192021222324
25262728293031
CalendrierCalendrier

Partagez | 
 

 Pression atmosphérique

Voir le sujet précédent Voir le sujet suivant Aller en bas 
AuteurMessage
papydall

avatar

Nombre de messages : 5613
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 - 2: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
Voir le sujet précédent Voir le sujet suivant 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: