Tue Apr 24 18:51:44 CDT 2018
    |\^/|     Maple 2016 (X86 64 LINUX)
._|\|   |/|_. Copyright (c) Maplesoft, a division of Waterloo Maple Inc. 2016
 \  MAPLE  /  All rights reserved. Maple is a trademark of
 <____ ____>  Waterloo Maple Inc.
      |       Type ? for help.
> init_glob := 'readlib( 'init_glob',`init_glob.mxt`)';
                init_glob := readlib('init_glob', init_glob.mxt)

> 
# define main function
> main := proc()
> local eq1, eq2, eq3, eq1A, eq2A, eq3A, L, M, T, LA, MA, TA;
>     init_glob();
>     eq1 := M / kg = me;
>     eq2 := M * L ^ 2 / T * sec/ (kg * meters ^ 2 ) = h;
>     eq3 := L / T * sec / meters = c;
> 
>     print(solve([eq1, eq2, eq3],[L, M, T]));
> 
>     eq1A := MA /kg = me_v;
>     eq2A := MA * LA ^ 2 / TA * sec/ (kg * meters ^ 2 ) = h_v;
>     eq3A := LA / TA * sec / meters = c_v;
> 
>     print(solve([eq1A, eq2A, eq3A],[LA, MA, TA]));
> end;
main := proc()
local eq1, eq2, eq3, eq1A, eq2A, eq3A, L, M, T, LA, MA, TA;
    init_glob();
    eq1 := M/kg = me;
    eq2 := M*L^2*sec/(T*kg*meters^2) = h;
    eq3 := L*sec/(T*meters) = c;
    print(solve([eq1, eq2, eq3], [L, M, T]));
    eq1A := MA/kg = me_v;
    eq2A := MA*LA^2*sec/(TA*kg*meters^2) = h_v;
    eq3A := LA*sec/(TA*meters) = c_v;
    print(solve([eq1A, eq2A, eq3A], [LA, MA, TA]))
end proc

> 
# call main
> main();
                           h meters                 h sec
                     [[L = --------, M = me kg, T = -----]]
                             c me                    2
                                                    c  me

                      -11                             -30
[[LA = 0.2426310215 10    meters, MA = 0.9109381880 10    kg,

                        -20
    TA = 0.8093299715 10    sec]]

> quit
memory used=2.9MB, alloc=8.3MB, time=0.07