discussion 13

the x is .8 or -.8

eq1<-function(x){x^2}
eq2<-function(x){cos(x)}
x<-seq(-1,1,by=.01)
plot(x,eq1(x), type = "l")
lines(x,eq2(x), type = "l")

x=.8
eq3<-cos(x)-(x^2)
eq4<--sin(x)-(2*x)
x1<-x-(eq3/eq4)
x1

## [1] 0.8244704

eq3<-cos(x1)-(x1^2)
eq4<--sin(x1)-(2*x1)
x2<-x1-(eq3/eq4)
x2

## [1] 0.8241324

-x2

## [1] -0.8241324