%%HP: T(3)A(R)F(.);
DIR
  SHOM
    DIR
      CALC
        DIR
          STMA
            \<<
StMALO 'PORT' STO
H\->Z 'Heure' PURGE
'PORT' PURGE
            \>>
          cf
            \<< COEF
'PORT' STO H\->Z
'Heure' PURGE
'PORT' PURGE
            \>>
        END
      \GSDAT
[[ 5 10.458 ]
 [ 6 9.843 ]
 [ 7 8.62 ]]
      \GSPAR { 1 2
13.533 -.615 LINFIT
}
      PMBM
        \<< 0 0 H\->Z
DUP2 \-> HM MIN HMM
MAX
          \<< 1 12
            FOR k k
H\->Z DUP DUP k \->TAG
7 DISP MAX
              IF >
              THEN
'MAX' STO k 'HMM'
STO
              END
DUP MIN
              IF <
              THEN
'MIN' STO k 'HM'
STO
              END
            NEXT
MIN HM \->TAG MAX HMM
\->TAG
          \>>
        \>>
      H\->Z
        \<< \-> h
          \<< h
'Heure' STO HDT 3
RND "Z" \->TAG
          \>>
        \>>
      Date
25.081999
      Heure 16
      PORT { "COEF"
0 0 0 0 0 0 0 0 0
130 123 672 142 235
182 0 0 0 0 0 0 }
      AIDE {
"PMBM Cherche"
" H\->Z CALCULE \224 H donn\233e"
" Date "
" Heure TU"
" PORT " " COEF " }
      COEF { "COEF"
0 0 0 0 0 0 0 0 0
130 123 672 142 235
182 0 0 0 0 0 0 }
      BREST {
"Brest" 445 58 230
20 294 67 342 65 89
418 123 2160 142
755 182 19 117 54
164 34 239 }
      SN { "SN" 315
57 273 19 297 64
343 61 90 348 116
1718 136 612 171 77
55 178 109 79 210 }
      PT { "P TUDY"
310 82 294 21 290
63 343 50 95 309
107 1507 127 540
160 37 33 76 85 23
181 }
      StMALO {
"St Malo" 671 54
224 24 330 88 354
90 126 720 190 3680
208 1432 258 101
315 273 337 206 35
}
      CHERB {
"Cherbourg" 379 46
205 17 321 60 5 79
132 359 238 1864
257 704 301 47 23
137 50 85 99 }
      EQ 'H\->Z(X)'
      PPAR {
(10.9579708688,\<)1.09697622213)
(12.0569384174,\<)1.04992192589)
X 0 (0,\<)0) FUNCTION
Y }
      CST { H\->Z
Heure Date PORT HDT
}
      HDT
        \<< PORT OBJ\->
DROP Heure HMS\-> 1 +
DUP 15 * SWAP 24 /
1.01198 Date DDAYS
+ DUP 13.17639673 *
78.16 + SWAP DUP
.98564734 * 279.82
+ SWAP DUP
.11140408 * 349.5 +
SWAP DUP .05295392
* 208.1 + SWAP
.000047069 * 282.6
+ 90 7 \->ARRY
          \<< DOT -
COS * 1000 / + DUP
4 DISP
          \>> \-> Z0
ASA GSA AQ1 GQ1 AO1
GO1 AK1 GK1 AN2 GN2
AM2 GM2 AS2 GS2
AMN4 GMN4 AM4 GM4
AMS4 GMS4 pa CTM
          \<< 1 DISP
"Onde" 2 DISP
"Annuelle" 3 DISP
Z0 100 / ASA GSA
[ 0 0 1 0 0 0 0 ]
pa CTM EVAL
"Diurne" 3 DISP AK1
GK1
[ 1 0 1 0 0 0 1 ]
pa CTM EVAL AO1 GO1
[ 1 -2 1 0 0 0 -1 ]
pa CTM EVAL AQ1 GQ1
[ 1 -3 1 1 0 0 -1 ]
pa CTM EVAL AK1 -3
/ GK1
[ 1 0 -1 0 0 0 1 ]
pa CTM EVAL AO1 5.3
/ GO1
[ 1 -2 1 0 -1 0 -1 ]
pa CTM EVAL AK1 7.4
/ GK1
[ 1 0 1 0 1 0 1 ]
pa CTM EVAL
"Semi-diurne" 3
DISP AM2 GM2
[ 2 -2 2 0 0 0 0 ]
pa CTM EVAL AN2 GN2
[ 2 -3 2 1 0 0 0 ]
pa CTM EVAL AS2 GS2
[ 2 0 0 0 0 0 0 ]
pa CTM EVAL AN2 7.6
/ GN2
[ 2 -4 2 2 0 0 0 ]
pa CTM EVAL AN2 6.3
/ GN2
[ 2 -4 4 0 0 0 0 ]
pa CTM EVAL AN2 5.3
/ GN2
[ 2 -3 4 -1 0 0 0 ]
pa CTM EVAL AM2 -35
/ GM2
[ 2 -1 2 -1 0 0 0 ]
pa CTM EVAL AS2 3.7
/ GS2
[ 2 0 2 0 0 0 0 ]
pa CTM EVAL AS2 17
/ GS2 283 -
[ 2 0 -1 0 0 0 0 ]
pa CTM EVAL AM2 -27
/ GM2
[ 2 -2 2 0 -1 0 0 ]
pa CTM EVAL AS2 12
/ GS2
[ 2 0 2 0 1 0 0 ]
pa CTM EVAL
"Quart-diurne" 3
DISP AMN4 GMN4
[ 4 -5 4 1 0 0 0 ]
pa CTM EVAL AM4 GM4
[ 4 -4 4 0 0 0 0 ]
pa CTM EVAL AMS4
GMS4
[ 4 -2 2 0 0 0 0 ]
pa CTM EVAL
          \>>
        \>>
    END
  DOUZ
    DIR
      H\->Z
        \<< HMS\-> MB
OBJ\-> DROP 3 PICK -
SWAP HMS\-> 4 ROLL
HMS\-> 4 ROLLD 4 PICK
- 5 ROLL 5 ROLL -
SWAP / 180 * COS 1
- 2 / * NEG +
        \>>
      MB { 11.2 1.2
17.23 5 }
      AIDE
        \<<
"ZH2:CALCUL DE LA HAUTEUR EN FONCTION DU TEMPS:"
1 DISP
"MB :DU {MARIN BRETON}"
2 DISP 1 FREEZE
"H\->Z :Heure\->Hauteur"
3 DISP
"HD\->Z :Heure D\233cimale\->H"
4 DISP 2 FREEZE
"PYL/07/94" 5 DISP
.5 WAIT
        \>>
      HD\->Z
        \<< \-> h
          \<< h \->HMS
H\->Z
          \>>
        \>>
      EQ 'H\->Z(X)'
      PPAR {
(18.5,\<)0)
(26.6833281283,\<).226798848054)
X # 2h (0,\<)0)
FUNCTION Y }
      MB2 { 12.32
.7 18.47 5.2 }
    END
  WIZ
    DIR
      \GSDAT
[[ 3.48994967025E-2 6 ]
 [ 8 5 ]]
    END
END