[R] Solving a system of two equations

[berg1546]

Hi,

I am trying to find a simple way to numerically solve a system of two
equations equal to zero with two unknowns (x_loc and y_loc). Here is a mock
data set and below it, the equations I need to solve.

theta<-c(180,135,90)/(2*pi)
x<-c(0,0,15)
y<-c(20,0,0)

0 =
-sum((y_loc-y)*(sin(theta)*(x_loc-x)-cos(theta)*(y_loc-y))/(((x_loc-x)^2+(y_loc-y)^2)^0.5)^3)
0 =
-sum((x_loc-x)*(sin(theta)*(x_loc-x)-cos(theta)*(y_loc-y))/(((x_loc-x)^2+(y_loc-y)^2)^0.5)^3)

Thanks in advance.



--
View this message in context: http://r.789695.n4.nabble.com/Solving-a-system-of-two-equations-tp4642626.html
Sent from the R help mailing list archive at Nabble.com.