私の推測では、あなたが出発している特性方程式は私のものとは異なると思います。同意するかどうかを確認するために、いくつかの手順を進めます。
λ2−ϕ1λ−ϕ2=0
z1−ϕ1z−ϕ2z2=0z−1=λ1−ϕ1z−ϕ2z2⇒z−2−ϕ1z−1−ϕ2⇒λ2−ϕ1λ−ϕ2===000
AR(2)|z|>1⇔|λ|=|z−1|<1
AR(2)AR(2)
- ϕ2<1+ϕ1
- ϕ2<1−ϕ1
- ϕ2>−1
λ1,2=ϕ1±ϕ21+4ϕ2−−−−−−−√2
AR(2)|λ|<1λi−1<ϕ1±ϕ21+4ϕ2−−−−−−−√2⇒−2<ϕ1±ϕ21+4ϕ2−−−−−−−√<<12
λiϕ1+ϕ21+4ϕ2−−−−−−−√<2ϕ1+ϕ21+4ϕ2−−−−−−−√⇒ϕ21+4ϕ2−−−−−−−√⇒ϕ21+4ϕ2⇒ϕ21+4ϕ2⇒ϕ2<<<<<22−ϕ1(2−ϕ1)24−4ϕ1+ϕ211−ϕ1
ϕ2<1+ϕ1
λiϕ21<−4ϕ2λ1,2=ϕ1/2±i−(ϕ21+4ϕ2)−−−−−−−−−−√/2.
λ2=(ϕ1/2)2+(−(ϕ21+4ϕ2)−−−−−−−−−−√/2)2=ϕ21/4−(ϕ21+4ϕ2)/4=−ϕ2.
|λ|<1−ϕ2<1ϕ2>−1ϕ2<1ϕ22<1ϕ2<1+ϕ1ϕ2<1−ϕ1
定常三角形をプロットし、複素根を実根から分離する線も示して、
を使用してRで作成
phi1 <- seq(from = -2.5, to = 2.5, length = 51)
plot(phi1,1+phi1,lty="dashed",type="l",xlab="",ylab="",cex.axis=.8,ylim=c(-1.5,1.5))
abline(a = -1, b = 0, lty="dashed")
abline(a = 1, b = -1, lty="dashed")
title(ylab=expression(phi[2]),xlab=expression(phi[1]),cex.lab=.8)
polygon(x = phi1[6:46], y = 1-abs(phi1[6:46]), col="gray")
lines(phi1,-phi1^2/4)
text(0,-.5,expression(phi[2]<phi[1]^2/4),cex=.7)
text(1.2,.5,expression(phi[2]>1-phi[1]),cex=.7)
text(-1.75,.5,expression(phi[2]>1+phi[1]),cex=.7)