\ Tento program provádí vypočet jaký přetlak je měřen anologovým tlakovým
\ snímačem, jestliže známe mezní rozsah snímače a máme změřen výstupní
\ proud unifikovaného signálu snímače (4 ÷ 20 mA)

\ Definice slov

: nazev ." PROGRAM PRO PŘEPOČET PROUDOVÝCH ANALOGOVÝCH SNÍMAČŮ TLAKU " ;

: zadej 5 10 GOTOXY ." Zadej: " ;

: JednSignalV ." mA " ;

: JednTlak ." Pa " ;

: signal 10 5 GOTOXY ." Výstupní signál snímače je 4 ÷ 20 " JednSignalV ;

: rozsah 10 11 GOTOXY ." Rozsah analogového snímače tlaku v " JednTlak ;

: minod 10 13 GOTOXY ." minimum od    " ;

: maxdo 10 14 GOTOXY ." maximum do    " ;

: cekej ( -- ) ." Stiskni libovolnou klávesu ... " KEY DROP ;

: znova 30 30 GOTOXY ." Stiskni 'S' a ENTER pro znovuzadání ...  " ;

: cislo ( -- u )
        0.
        PAD DUP 10 ACCEPT  -TRAILING
        >NUMBER 2DROP D>S ;

\  výpočet tlaku  snímače
: vypocet ROT ROT 2DUP 0> SWAP 0> +
       CASE
       -2 OF 2DUP SWAP - 4 ROLL 5 PICK - / DUP
             5 ROLL * 3 ROLL SWAP - SWAP 3 ROLL
             * SWAP + SWAP DROP .
          ENDOF

        0 OF 10 23 GOTOXY
             ." Snímač nemůže mýt záporný rozsahy! zadej správný mezní rozsah. "
             znova QUIT
          ENDOF
       -1 OF 10 23 GOTOXY
             ." Snímač měří pouze přetlak! zadej správný mezní rozsah. "
             znova QUIT
          ENDOF
             ." Nastala chyba v zadání! " znova QUIT
       ENDCASE
  ;

\ kontola mezního rozsahu tlakového snímače
: kontrola CR 2DUP - 0>
        IF ." Minimální rozsah nemůže být větší než maximální "
           4DROP znova QUIT
        THEN ;


\ Hlavní program
: S CLS
        nazev CR cekej
        signal 4 20
        zadej rozsah
        minod cislo
        maxdo cislo
        kontrola
        10 20 GOTOXY
        ." Na výstupu snímače naměřeno:   "  cislo 45 20 GOTOXY JednSignalV
        10 24 GOTOXY
        ." Snímač měří přetlak:   "  vypocet JednTlak
        znova
  ;
CR .( Napiš 'S' a program spusť stiskem klávesy ENTER )