a=0                                                                    
b=0                                                                    
c=0                                                                    
/SOLU                                                                  
ANTYPE,STATIC                                                          
NROPT,FULL                        !һغɲӦţ٣ɭѡ
NSUBST,10,0,0                                                          
allsel,all                                                             
ACEL,0,9.8,0,                                                          
solve                                                                  
*do,ii,1,54,1                                                          
d=MOD(ii,3)                                                            
*if,d,eq,1,then                                                        
a=a-20                                                                 
*elseif,d,eq,2                                                         
b=b-20                                                                 
*elseif,d,eq,0                                                         
c=c-20                                                                 
*endif                                                                 
VSEL,S, , ,      21                                                    
nslv,s,1                                                               
nsel,r,loc,z,a,0                                                       
esln,s,1                                                               
ekill,all                                                              
allsel,all                                                             
VSEL,S, , ,      20                                                    
nslv,s,1                                                               
nsel,r,loc,z,b,0                                                       
esln,s,1                                                               
ekill,all                                                              
allsel,all                                                             
VSEL,S, , ,      23                                                    
nslv,s,1                                                               
nsel,r,loc,z,c,0                                                       
esln,s,1                                                               
ekill,all                                                              
allsel,all                                                             
solve                                                                  
*enddo                                                                 