/* debugmode(true);  */
batch("init_glob.max");

/* Numeric solution - the '_v' have numeric values in init_glob.max  */

num_part () := (
  solve([me_v = MA / kg, h_v =   MA * LA ^ 2 / TA * sec/ (kg * meters ^ 2 ),c_v = LA / TA * sec / meters], [LA, MA, TA])
);

main() := (
  /* declare local variables */
  init_glob(),
  num_part()
);

main();