function [stk,txt,top]=sci_disp_th_moments() RHS=[] for k=1:rhs RHS=[stk(top)(1),RHS] top=top-1 end top=top+1 stk=list('disp_th_moments'+rhsargs(RHS),'0','?','?','?')