(* d_gtoda2.m *)

(* On some integrable systems related to the Toda lattice *)
(* Ref: Suris, J. Phys. A. 30 (1997) 2235 *)

u[1][n_]'[t]:= u[1][n][t]*(u[2][n][t] - u[2][n-1][t]);
u[2][n_]'[t]:= u[2][n][t]*(u[1][n+1][t] - u[1][n][t]);

noeqs = 2;
name = "Generalized Toda Lattice-2";
parameters = {};
weightpars = {};

formrho = 0;

(* d_gtoda2.m *)