|
方程$\dfrac{\tan^{-1}(\frac{y}{x-1})}{\tan ^{-1}\left(\frac{y}{x}\right)}=k$,如何把$y$表示为$x$的函数? 在$(x,y)=(0,0)$附近
即$\frac{y}{x-1}=\tan \left(k \tan ^{-1}\left(\frac{y}{x}\right)\right)$
设$z=\frac{y}{x}$,得到$\frac{y}{x-1}=\tan \left(k \tan ^{-1}\left(z\right)\right)$
将$z$表示为$x$的函数,需要满足$$\tag{*}\label{*}
x=\frac{\tan \left(k \tan ^{-1}(z(x))\right)}{\tan \left(k \tan ^{-1}(z(x))\right)-z(x)}$$
在$(x,y)=(0,0)$有$y=0$,得到$0=\tan \left(k \tan ^{-1}\left(z\right)\right)$,取其中一个解$z=\frac\pi k$,得到
$$\tag0\label0
z(0)=\frac\pi k$$
对\eqref{*}求导,代入\eqref{0},解出$z'(0)$得
- FullSimplify[Solve[FullSimplify[D[Tan[k ArcTan[z[x]]]/(-z[x]+Tan[k ArcTan[z[x]]]),x]/.z[x]->Tan[Pi/k],k>2]==1,(z^\[Prime])[x]],k>2]
复制代码
$$\tag1\label1
z'(0)=-\frac{\tan \left(\frac{\pi }{k}\right) \sec ^2\left(\frac{\pi }{k}\right)}{k}$$
对\eqref{*}求2次导,代入\eqref{0}\eqref{1},解出$z''(0)$得- FullSimplify[Solve[FullSimplify[D[Tan[k ArcTan[z[x]]]/(-z[x]+Tan[k ArcTan[z[x]]]),{x,2}]/.{z[x]->Tan[Pi/k],(z^\[Prime])[x]->-((Sec[\[Pi]/k]^2 Tan[\[Pi]/k])/k)},k>2]==0,(z^\[Prime]\[Prime])[x]],k>2]
复制代码 $$\tag2\label2
z''(0)=-\frac{2 \tan \left(\frac{\pi }{k}\right) \sec ^2\left(\frac{\pi }{k}\right) \left(k-2 \sec ^2\left(\frac{\pi }{k}\right)+1\right)}{k^2}$$
对\eqref{*}求3次导,代入\eqref{0}\eqref{1}\eqref{2},解出$z'''(0)$得- FullSimplify[Solve[FullSimplify[D[Tan[k ArcTan[z[x]]]/(-z[x]+Tan[k ArcTan[z[x]]]),{x,3}]/.{z[x]->Tan[Pi/k],(z^\[Prime])[x]->-((Sec[\[Pi]/k]^2 Tan[\[Pi]/k])/k),(z^\[Prime]\[Prime])[x]->-((2 Sec[\[Pi]/k]^2 (1+k-2 Sec[\[Pi]/k]^2) Tan[\[Pi]/k])/k^2)},k>2]==0, (z^(3))[x]],k>2]
复制代码
$$\tag3\label3
z'''(0)=\frac{2 \tan \left(\frac{\pi }{k}\right) \sec ^2\left(\frac{\pi }{k}\right) \left(-2 (k+1) (2 k+1)-15 \sec ^4\left(\frac{\pi }{k}\right)+(k (k+12)+14) \sec ^2\left(\frac{\pi }{k}\right)\right)}{k^3}$$
对\eqref{*}求4次导,代入\eqref{0}\eqref{1}\eqref{2}\eqref{3},解出$z''''(0)$得- FullSimplify[Solve[FullSimplify[D[Tan[k ArcTan[z[x]]]/(-z[x]+Tan[k ArcTan[z[x]]]),{x,4}]/.{z[x]->Tan[Pi/k],(z^\[Prime])[x]->-((Sec[\[Pi]/k]^2 Tan[\[Pi]/k])/k),(z^\[Prime]\[Prime])[x]->-((2 Sec[\[Pi]/k]^2 (1+k-2 Sec[\[Pi]/k]^2) Tan[\[Pi]/k])/k^2),(z^(3))[x]->(2 Sec[\[Pi]/k]^2 (-2 (1+k) (1+2 k)+(14+k (12+k)) Sec[\[Pi]/k]^2-15 Sec[\[Pi]/k]^4) Tan[\[Pi]/k])/k^3},k>2]==0, (z^(4))[x]],k>2]
复制代码
$$\tag4\label4
z''''(0)=\frac{8 \tan \left(\frac{\pi }{k}\right) \sec ^2\left(\frac{\pi }{k}\right) \left(-(k+1) (2 k+1) (3 k+1)+42 \sec ^6\left(\frac{\pi }{k}\right)-3 (k (2 k+15)+19) \sec ^4\left(\frac{\pi }{k}\right)+(k+1) (k (3 k+23)+19) \sec ^2\left(\frac{\pi }{k}\right)\right)}{k^4}$$
依此类推,得出$z^{(n)}(0)$ |
|