dictionary {
* file shower2.dct
* Shower water temperature regulation - 2 - WITH CONSTANT INFORMATION DELAY
* Cold water flux constant - regulation of warm water flux
* to obtain Topt temperature.
        str80  _model
}
"* -- state variables --                                       "
"S  Wc=Wc+dt*VAc                 Cold water flux (l/s)         "
"S  Ww=Ww+dt*VAw                 Warm water flux (l/s)         "
"*  Note: in this case fluxes are levels, not rates.           "

"R  VAc=0                        Variat. rate cold flux (l/s/s)"
"R  VAw=IDL[K*(Topt-T),dly]      Variat. rate warm flux (l/s/s)"

"I  Wc=0.2                                                     " 
"I  Ww=0                                                       "
"P  Topt=35                      Optimal temperature (C)       " 
"P  Tc=10                        Cold water temperature (C)    "
"P  Tw=50                        Warm water temperature (C)    "
"A  T=(Tc*Wc+Tw*Ww)/(Wc+Ww)      Shower water temperature      "
"P  K=0.03                       Adjusting speed               "
"P  dly=1                        Delay time                    "