
title=4. 溯 f^(-1)
sol=3
prompt=$m_f<sup>-1</sup>(x)

a0=0
!if $center!=0
 z0=!randitem -5,-4,-3,-2,-1,1,2,3,4,5
 t0=$z0
 A0=$t0+
 C0=$x0+
!endif

parisrc=v=vector($order);w=vector($order,i,polcoeff(ser1,i));\
	st1=1/w[1];v[1]=st1;\
	for(i=2,$order,p=Ser(v)*x;v[i]=-st1*polcoeff(subst(ser1,x,p),i));\
	ser3=Ser(v)*x

given=ser1
calcname=$m_f<sup>-1</sup>(x)&nbsp;
fname=溯
