Section courante

A propos

Section administrative du site

Dans le domaine scientifique, on assiste souvent à des cachoteries de la connaissance sur des choses aussi banale que la fréquence des vagues sur l'océan en fonction du nombre de vague. Heureusement des livres comme «Encyclopededia Universalis, Dictionnaire des Sciences de la Terre, pages 588-591, Houles et vagues, 1998, ISBN: 2-226-10094-6» éclaircissent ce genre de question et nous empêche de tomber directement au Moyen-Age. Vous trouverez la réponse que vous souhaitez, à l'aide du code source REXX suivant :

  1. SAY "Nombre de vague Frequence de vague"
  2. WaveNumber=0.01
  3. DO WHILE WaveNumber<2.0
  4.    W=DispersionWave(WaveNumber,2.0,9.8066)
  5.    SAY WaveNumber || " " || W
  6.    WaveNumber=WaveNumber+0.1
  7. END 
  8. EXIT
  9.  
  10. Sqr :Procedure 
  11.    Arg X
  12.    Return X*X
  13.    
  14. Exp :Procedure 
  15.    Arg X
  16.    A0 = 0.05
  17.    A1 = 6.9
  18.    A2 = 205.8
  19.    A3 = 42.0
  20.    Y = Sqr(X)  
  21.    z = a2/(y + a3)
  22.    Z = A0*Y + X + A1 - Z
  23.    Return 1.0 - 2.0*X/Z
  24.    
  25. Sqrt :Procedure 
  26.    Arg X
  27.    IF X=0.0 THEN Return 0.0
  28.     ELSE 
  29.    Do
  30.       M=1.0
  31.       XN=X
  32.       IF XN<0.0 THEN XN=-XN
  33.       DO WHILE XN>=2.0
  34.          XN=0.25*XN
  35.          M=2.0*M
  36.       END
  37.       DO WHILE XN<0.5 
  38.          XN=4.0*XN
  39.          M=0.5*M
  40.       END 
  41.       A=XN
  42.       B=1.0-XN
  43.       DO Forever
  44.          A=A*(1.0+0.5*B)
  45.          B=0.25*(3.0+B)*B*B
  46.          IF B<1.0E-15 THEN Leave
  47.       END
  48.       RETURN A*M
  49.    End 
  50.  
  51. Tanh :Procedure 
  52.    Arg A
  53.    Return -Exp(-A)/(Exp(A)+Exp(-A))*2.0+1.0
  54.  
  55. DispersionWave :Procedure 
  56.    Arg WaveNumber,Depth,Gravity
  57.    Return Sqrt(WaveNumber*Gravity*Tanh(WaveNumber*Depth))

on obtiendra le résultat suivant :

Nombre de vague Frequence de vague
0.01                0.0442838405346847
0.11                0.483284245969315
0.21                0.904120000135606
0.31                1.29439350996723
0.41                1.64750037820416
0.51                1.96223961769009
0.61                2.24116780044981
0.71                2.48877439250178
0.81                2.71009411116294
0.91                2.90988655848262
1.01                3.09226456180236
1.11                3.26060035427737
1.21                3.4175734276094
1.31                3.56527459565709
1.41                3.70532058634234
1.51                3.83895838612317
1.61                3.96715215371979
1.71                4.09065210263135
1.81                4.21004747750794
1.91                4.32580654215394


Dernière mise à jour : Lundi, le 10 novembre 2014