（D13）CSM$用户：[WHEREMAN.PROGRAMS.NPAINLEVE.SINGLE]P_RAM2.OUT；1（C14）批次（“np_exec.max”）；（C15）/*****************//*批处理文件NP_EXEC。最大*//* ************************************************************************* */exec_painleve（eq、alpha、do_resonances、max_resonance、do_simplifiation）$替换X-->G+X0----------------------------------------------------------------三方程的PAINLEVE分析，F+4 F+2 F=0G G G G公司----------------------------------------------------------------阿尔法用U G代替原始方程中的f。0g的最小幂为[2α-1，3α，α-2]2α-1 2*G的系数是4Uα0注：对于α=0，此术语无效，验证α=0是否会导致主导行为，如果确实如此，则使用此用户再次运行程序α的供应价值。亨斯，把贝塔系数设为0。3α3*G的系数为2 U0α-2*G的系数是U（α-1）α0注意：对于[ALPHA=0，ALPHA=1]，该术语消失，验证ALPHA的这些值中是否有任何一个导致显性行为，如果确实如此，则使用此值再次运行程序作为用户提供的ALPHA，称为BETA。----------------------------------------------------------------对于g的指数（2α-1）和（3α），当α=-1时，g的幂为-3-->解U02 1第2学期（U-1）U——占主导地位0 0 3G公司等式中。----------------------------------------------------------------1）U=1-->找到共振0阿尔法R+阿尔法用U G+U G替换方程式中的f0卢比R-3级术语（R（R+1））U G占主导地位对等式中。唯一的非负整数根是[R=0]退出FIND_RONANICES而不进行检查。部分调用原子：INSTANTU返回Macsyma Toplevel。（C16）QUIT（）；