%%HP: T(1)A(D)F(.);

"Coefic. Muskingum
intro k, x, t"
"" INPUT OBJ  k x
t
   k x * t 2 / -
NEG k x * t 2 / +
k 1 x - * t 2 / -
3 LIST k 1 x - *
t 2 / + / { "C1"
"C2" "C3" } TAG
EVAL
  

