macro 
tttplot x y z v w
mconstant k1 k2 k3 k4 k5
mcolumn x y z v w 
let k1=count(x)
let y(1) = x(1)
let k2 = x(1)
do k3 = 2:k1
let y(k3) = x(k3) + k2
let k2 = y(k3)
enddo
do k4 = 1:k1
let z(k4) = y(k4) + (k1-k4)*x(k4)
enddo
do k5 = 1:k1
let w(k5) = z(k5)/z(k1)
let v(k5) = k5/k1
enddo
name x 'Time'
name y 'Cum Time'
name z 'Tot Time'
name w 'TTT'
name v 'i/n'
plot w*v;
scale 1;
 min 0;
max 1;
scale 2;
min 0;
max 1;
 title "TTT plot".
 endmacro