model functiontest

  function hv

  input Real Tc;

  input Real T;

  output Real Ent2;

  protected Real temp, Ent;

  algorithm

  temp := 298.15;

  Ent :=0; //if we comment this and run, we'll get correct result

   if T> 298.15 then

    while temp < T loop

      Ent := Ent + (temp) * 1;

      temp := temp + 1;

    end while;

    Ent2 := Ent;

    else

    while temp > T loop

      Ent := Ent + (temp) * 1;

      temp := temp - 1;

    end while;

    Ent2 := -Ent;

    end if;

  end hv;

  

  function hl

  input Real Tc;

  input Real T;

  output Real Ent1;

  algorithm

  if T<Tc then

  Ent1 := hv(Tc, T) + (1-T/Tc)^2;

  else

  Ent1 := hv(Tc, T); //this is true for T = 400 and Tc = 33

  end if;

  end hl;

 

 parameter Real Tc = 33, T = 400;

 Real H, h;

 

 equation

 H = hv(Tc, T);

 h = hl(Tc, T);

end functiontest;