可采用以下命令流实现：
psys 2           ！指定2号坐标系作为下一步载入速度的参考系
getc sv           ! 载入切向速度至4号post寄存器
oper getc dens 1      ！载入密度ρ至1号post寄存器
oper getc volu 2        ！载入体积V至2号post寄存器
oper getc x 2 3        ！载入 r 至3号post寄存器
oper,smult,0.001,3,3    ！将r坐标单位从mm变为m
oper mult 1 2 5           ! 将ρ乘以V得到质量m放入5号post寄存器
oper mult 3 5 5         ! 将m乘以r放入5号post寄存器
oper mult 4 5 4         !将m*r乘以Uθ放入4号post寄存器
*get momt rtot 4        ！对4号post寄存器求和，即得到动量矩
详细请参考附件。