The Profile() command collects profiling data for all currently named procedures and all procedures read from a repository for Maple procedures.

The Profile(proc1, proc2, ...) command collects profiling data for all specified procedures.

The Profile([proc1, tab1], [proc2, tab2], ...) command has a length two list, whose first element is a procedure and second element is an rtable.  Profiling is enabled for each procedure with the profiling data specified in the rtable as its initial value.  The rtable should be obtained by a call to GetProfileTable on the procedure.

The procedures that are already profiled are not modified by a call to Profile.

To stop profiling, use the UnProfile function.

a := proc(x)
    if (x > 1) then
        return 1;
    else
        return 0;
    end if;
end proc:

$\mathrm{with}\left(\mathrm{CodeTools}\left[\mathrm{Profiling}\right]\right)\:$

$\mathrm{Profile}\left(a\right)$

$a\left(2\right)$

$1$

$a\left(0\right)$

$0$

$\mathrm{PrintProfiles}\left(a\right)$

a
a := proc(x)
     |Calls Seconds  Words|
PROC |    2   0.000      6|
   1 |    2   0.000      6| if 1 < x then
   2 |    1   0.000      0|     return 1
                            else
   3 |    1   0.000      0|     return 0
                            end if
end proc

$t≔\mathrm{GetProfileTable}\left(a\right)\&colon;$

$\mathrm{UnProfile}\left(a\right)$

$\mathrm{PrintProfiles}\left(a\right)$

Error, (in CodeTools:-Profiling:-PrintProfiles) a is not currently profiled

$\mathrm{Profile}\left(\left[a\&comma;t\right]\right)$

$\mathrm{PrintProfiles}\left(a\right)$

a
a := proc(x)
     |Calls Seconds  Words|
PROC |    2   0.000      6|
   1 |    2   0.000      6| if 1 < x then
   2 |    1   0.000      0|     return 1
                            else
   3 |    1   0.000      0|     return 0
                            end if
end proc

$a\left(3\right)$

$1$

$\mathrm{PrintProfiles}\left(a\right)$

a
a := proc(x)
     |Calls Seconds  Words|
PROC |    3   0.000      9|
   1 |    3   0.000      9| if 1 < x then
   2 |    2   0.000      0|     return 1
                            else
   3 |    1   0.000      0|     return 0
                            end if
end proc