Mathematica函数 配方法.docVIP免费

Mathematica函数配方法--配完全平方式peifang[vary_,varx_]:=Module[{vara,varb,varc,vard,xishua,xishub,xishuc,i},varb=vary;vard=0;For[i=1,i<=Length[varx],i++,xishua=Coefficient[varb/.varx[[i]]^2->vara^2/.varx[[i]]->vara,vara,2];xishub=Coefficient[varb/.varx[[i]]^2->vara^2/.varx[[i]]->vara,vara,1];xishuc=Coefficient[varb/.varx[[i]]^2->vara^2/.varx[[i]]->vara,vara,0];If[xishua==0,,varc=xishua(varx[[i]]+xishub/(2xishua))^2;varb=Simplify[varb-varc];vard=vard+varc,varc=xishua(varx[[i]]+xishub/(2xishua))^2;varb=Simplify[varb-varc];vard=vard+varc];];vard=vard+varb;vard];