#
#   upraveno 19991109 lj
#
#
    set               TypickaPac,,TypickaKg1,,Vzorec,,Varovani,,MaxZP1,,Smerna1,,Faktor,1,LowCoeff,0.95,HighCoeff,1.05
    load.sql          !select * from vysetreni where Vysetreni='$(DruhVysetreni)'

#    watch             Hmotnost,AktivitaStd,Aktivita,Ax,Faktor,Low,High,TypickaPac,TypickaKg1

    default           Hmotnost,70
    set               !AktivitaStd,$(TypickaPac),
    jump.ifne         AktivitaStd,,Hotovo
    set               !AktivitaStd,$(TypickaKg1),
    mulf              AktivitaStd,70.0,Ax
    get.from.list     Hmotnost,Faktor,4,0.14,5,0.17,6,0.19,7,0.21,8,0.23,9,0.25,10,0.27,11,0.29,12,0.32,13,0.34,14,0.36,15,0.38,20,0.46,25,0.54,30,0.62,35,0.69,40,0.76,45,0.81,50,0.88,55,0.91,60,0.96,65,0.98,70,1.0,75,1.05,80,1.1,85,1.15,90,1.19,95,1.24,100,1.28,105,1.33,110,1.37,115,1.41,120,1.46,125,1.50,130,1.54,135,1.58,140,1.62,145,1.66,150,1.70,155,1.74,160,1.78,165,1.82,170,1.86,180,1.94,190,2.01,1000,2.085
    mulf              Ax,Faktor,AktivitaStd
Hotovo:
    mulf              AktivitaStd,LowCoeff,Low
    mulf              AktivitaStd,HighCoeff,High
    trunc.number      Hmotnost,AktivitaStd,Faktor,High,Low
    set               !Aktivita,$(AktivitaStd)
    return