Distance and Bearing: Difference between revisions
m
→{{header|PARI/GP}}
Line 163:
/* We want an easy convert from CSV to matrix. */
/*
{
for(i = 1 , #csv, tmp = Vecsmall(csv[i]);
Line 203:
y = sin(rdlon)*cos(rlat2);
x = cos(rlat1)*sin(rlat2) - sin(rlat1)*cos(rlat2)*cos(rdlon);
/* Pari/GP
if( x>0, bear=atan(y/x), x<0 && y>0, bear=atan(y/x)+Pi,
x<0 && y==0, bear=Pi, x<0 && y<0, bear=atan(y/x)-Pi,
| |||