可执行如下宏命令，具体解释请参考附件。

resu,star.mdl,
reset
rclear all

!--- set parameters ----------------------------------------------------------
*set rpm 2000.
*set stca 0 5
*set lp 47
-----------------------------------------------------------------------------
!--- load transient data
evfi conn, star.evn
trload,star.pstt
continue
!--- store angle------
cset,news,flui
*set cou 1
*define noex
store angle stca

!-----get data of cylinder-----
oper getc volu 1
oper getc P 2 absolute
oper getc T 3 absolute
oper multi 1 2 4
oper multi 1 3 5
*get Tvolu rtot 1
*get Tvp rtot 4
*get Tvt rtot 5

*set AverP Tvp / Tvolu
*set AverT Tvt / Tvolu

!-----output data---------

gfill,1,stca,stca,0,1,cou
gfill,2,AverP,AverP,0,1,cou
gfill,3,AverT,AverT,0,1,cou

!-----set the parameter of next step-----
*set cou cou + 1

*end
*loop 0 lp - 1

!--------------------------------
sdata,AveragePT.grf,3,1,1
close,AveragePT.grf