Berekening inhoud mazouttank

Vele mazouttanks zijn uitgerust met een vlotter waarmee u het peil in cm kunt aflezen. Dit omzetten naar een hoeveelheid liters vereist een tamelijk ingewikkelde wiskundige formule. Het hier voorgestelde programma berekent de inhoud in liters automatisch na ingave van de diameter van de tank, de lengte en het niveau in cm dat de vlotter aangeeft.
Het programma is geschreven in user RPL.

Programma

«
RAD
"INHOUD MAZOUTTANK"
{ 
  { "Diam."  "Geef diameter (in cm.)" 0 }
  { "Lengte" "Geef lengte (in cm.)" 0 }
  { "Niveau" "Geef mazoutpeil (in cm.)" 0 }
}
{ }
DUP
{ 122 260 0 }

IF INFORM
  THEN
    OBJ® DROP
    3 PICK
    2 /
    ® D L H R
    '(R^2 * ACOS((R - H) / R) - (R - H) * Ö(2*R * H - H^2) ) * L/1000'
    EVAL
    DUP
    0 RND
    ®STR
    "Mazout voorraad is "
    SWAP
    " liter."
    + +
    MSGBOX
  END
»

Scherm bij start van het programma:

Resultaat na berekening:

Het programma in hp formaat kan gedownload worden en met de seriele kabel van pc naar hp overgezet worden.

  Home         Terug naar overzicht HP48         Terug naar overzicht Programma's