>
|
|
| (1) |
Define a coordinate system [x, y, z, w].
>
|
|
Create two procedures which will determine the time needed to compute D_x + D_y + D_z + D_w:
>
|
Test1 := proc(n)
local T, i;
T := time();
for i to n do
D_x &plus D_y &plus D_z &plus D_w;
od;
time() - T;
end:
|
>
|
Test2 := proc(n)
local T, i;
T := time();
for i to n do
DGmain:-`&plus`(DGmain:-`&plus`(DGmain:-`&plus`(D_x, D_y), D_z), D_w);
od;
time() - T;
end:
|
We see that Test2, which uses DGmain, is faster.