Sponsored Content
Top Forums Shell Programming and Scripting Calculate distance and azimuth Post 302395369 by binlib on Monday 15th of February 2010 09:59:43 PM
Old 02-15-2010
I rearranged your formulas and made it awk executable. Not sure if it's right:

Code:
$ cat sphere.awk
function pow(b, p)
{
  return b^p
}

{
  M_PI = 4*atan2(1,1)
  rad = 180 / M_PI
  lat1 = $1 / rad
  lat2 = $3 / rad
  lon1 = $2 / rad
  lon2 = $4 / rad
  latdif = lat1 - lat2
  londif = lon1 - lon2
  meanlat = (lat1 + lat2)/2

  a = 6377276.345
  b = 6356075.4131
  e = sqrt(((a*a)-(b*b))/(a*a))
  mrcurt = (a*(1-(e*e)))/pow((1-((e*e)*pow(sin(meanlat),2))),1.5)
  prcurt =a/sqrt(1-pow((e*sin(meanlat)),2))
  distance=sqrt((pow(londif*prcurt*cos(meanlat),2))+(pow((latdif*mrcurt),2)))

  A=2*atan2(londif*((prcurt/mrcurt)*(cos(meanlat))),latdif)
  B=londif*(sin(meanlat))
  Az=(A-B)/2
  if(londif>0&&latdif<0) Az=Az+M_PI
  if(londif<0&&latdif<0) Az=Az+M_PI
  if(londif<0&&latdif>0) Az=Az+(2*M_PI)

  printf("%8.0f %6.2f\n", distance, Az*rad)
}

$ cat sphere.dat
12.000 25.125 14.235 25.012
14.200 81.000 25.584 25.014
45.023 25.365 25.152 35.222

$ awk -f sphere.awk sphere.dat
  247544 357.15
 5995861 272.61
 2380475 340.65

 

10 More Discussions You Might Find Interesting

1. Shell Programming and Scripting

Lat/Long Distance Calculation

I amtrying to write a script that would compute the distance between an "x" number of points. This is what I have come up with so far and it is not working. Can anyone modify it to make it work? A=34.16597 B=-84.33244 C=34.2344 D=-84.29189 test "$A" -eq "$C" -o "$B" -eq "$D" then echo... (3 Replies)
Discussion started by: Ernst
3 Replies

2. UNIX for Dummies Questions & Answers

Long Distance UNIX (Solaris) Cloning ?

Need some advice and guidance for this UNIX beginner. Due to downsizing I have inherited the SysAdmin duties..(sigh). Please excuse and forgive me if I use the wrong terms below.... Situation: We have UNIX ( Solaris 7/8/9( it varies) on Sun Ultra 10's) servers located at several global... (1 Reply)
Discussion started by: HikerLT
1 Replies

3. Shell Programming and Scripting

program to calculate distance between 5 atoms

Hello, I am a beginner with perl. I have a perl program to calculate the distance between 5 atoms or more. i have an array which looks like this: 6.324 32.707 50.379 5.197 32.618 46.826 4.020 36.132 46.259 7.131 38.210 45.919 6.719 38.935 42.270 2.986 39.221 ... (1 Reply)
Discussion started by: annie_singh
1 Replies

4. Programming

Converting distance list to distance matrix in R

Hi power user, I have this type of data (distance list): file1 A B 10 B C 20 C D 50I want output like this # A B C D A 0 10 30 80 B 10 0 20 70 C 30 20 0 50 D 80 70 50 0 Which is a distance matrix I have tried... (0 Replies)
Discussion started by: anjas
0 Replies

5. Shell Programming and Scripting

Calculating distance between two LAT long coordinates

hi, i have a pair of latitude and longitude and i want to calculate the distance between these two points. In vbscript i achieved in the following way...Now i want to implement this in unix shell scripting.... <% Dim lat1, lon1, lat2, lon2 const pi = 3.14159265358979323846 ... (8 Replies)
Discussion started by: aemunathan
8 Replies

6. UNIX for Dummies Questions & Answers

How to make a distance matrix

Hi, I'm trying to generate a distance matrix between sample pairs for use in a tree-drawing program (example below). The example below demonstrates what I'd like to get out of the data - essentially, to calculate the proportion of positions where two samples differ. Any help much appreciated!... (1 Reply)
Discussion started by: auburn
1 Replies

7. Shell Programming and Scripting

Calculate age of a file | calculate time difference

Hello, I'm trying to create a shell script (#!/bin/sh) which should tell me the age of a file in minutes... I have a process, which delivers me all 15 minutes a new file and I want to have a monitoring script, which sends me an email, if the present file is older than 20 minutes. To do... (10 Replies)
Discussion started by: worm
10 Replies

8. Shell Programming and Scripting

finding distance between numbers

Hi, I have a file as ABC 1634230,1634284,1634349,1634468 1634272,1634301,1634356,1634534 What I want is to find distance between the numbers.. column 1 is the gene name and column 2 are starts and column 3 are their respective stops for the starts. So what I want is column 3 which has +1... (2 Replies)
Discussion started by: Diya123
2 Replies

9. Shell Programming and Scripting

Edit distance using perl or awk

Dear all, I am working on a large Sindhi lexicon which I hope to complete by 2017 and place in open source. The database is in Arabic script in two columns delimited by an equal to sign. Column 1 contains a word or words without the short vowel and also some extraneous information which is... (0 Replies)
Discussion started by: gimley
0 Replies

10. Shell Programming and Scripting

Calculate average, azimut and distance

Gents, Please i will to get the distance and azimut from 2 coordinates: Usig excel formula i get the correct values, but i will like to do it using awk. Example A 35089.0 50345.016 9 75 1 2101774 77 70 79 483911.6 2380106.9 137.4 1 1 6 1 A 35089.0 50345.01620 75... (8 Replies)
Discussion started by: jiam912
8 Replies
SIN(3M) 																   SIN(3M)

NAME
sin, cos, tan, asin, acos, atan, atan2 - trigonometric functions and their inverses SYNOPSIS
#include <math.h> double sin(x) double x; double cos(x) double x; double tan(x) double x; double asin(x) double x; double acos(x) double x; double atan(x) double x; double atan2(y,x) double y,x; DESCRIPTION
Sin, cos and tan return trigonometric functions of radian arguments x. Asin returns the arc sine in the range -pi/2 to pi/2. Acos returns the arc cosine in the range 0 to Atan returns the arc tangent in the range -pi/2 to pi/2. On a VAX, atan2(y,x) := atan(y/x) if x > 0, sign(y)*(pi - atan(|y/x|)) if x < 0, 0 if x = y = 0, or sign(y)*pi/2 if x = 0 != y. DIAGNOSTICS
On a VAX, if |x| > 1 then asin(x) and acos(x) will return reserved operands and errno will be set to EDOM. NOTES
Atan2 defines atan2(0,0) = 0 on a VAX despite that previously atan2(0,0) may have generated an error message. The reasons for assigning a value to atan2(0,0) are these:(1) Programs that test arguments to avoid computing atan2(0,0) must be indifferent to its value. Programs that require it to be invalid are vulnerable to diverse reactions to that invalidity on diverse computer systems.(2) Atan2 is used mostly to convert from rectangular (x,y) to polar (r,theta) coordinates that must satisfy x = r*cos theta and y = r*sin theta. These equations are satisfied when (x=0,y=0) is mapped to (r=0,theta=0) on a VAX. In general, conversions to polar coordinates should be computed thus: r := hypot(x,y); ... := sqrt(x*x+y*y) theta := atan2(y,x). (3) The foregoing formulas need not be altered to cope in a reasonable way with signed zeros and infinities on a machine that conforms to IEEE 754; the versions of hypot and atan2 provided for such a machine are designed to handle all cases. That is why atan2(+-0,-0) = +-pi, for instance. In general the formulas above are equivalent to these: r := sqrt(x*x+y*y); if r = 0 then x := copysign(1,x); if x > 0 then theta := 2*atan(y/(r+x)) else theta := 2*atan((r-x)/y); except if r is infinite then atan2 will yield an appropriate multiple of pi/4 that would otherwise have to be obtained by taking limits. ERROR (due to Roundoff etc.) Let P stand for the number stored in the computer in place of pi = 3.14159 26535 89793 23846 26433 ... . Let "trig" stand for one of "sin", "cos" or "tan". Then the expression "trig(x)" in a program actually produces an approximation to trig(x*pi/P), and "atrig(x)" approximates (P/pi)*atrig(x). The approximations are close, within 0.9 ulps for sin, cos and atan, within 2.2 ulps for tan, asin, acos and atan2 on a VAX. Moreover, P = pi in the codes that run on a VAX. In the codes that run on other machines, P differs from pi by a fraction of an ulp; the difference matters only if the argument x is huge, and even then the difference is likely to be swamped by the uncertainty in x. Besides, every trigonometric identity that does not involve pi explicitly is satisfied equally well regardless of whether P = pi. For instance, sin(x)**2+cos(x)**2 = 1 and sin(2x) = 2sin(x)cos(x) to within a few ulps no matter how big x may be. Therefore the difference between P and pi is most unlikely to affect scientific and engi- neering computations. SEE ALSO
math(3M), hypot(3M), sqrt(3M), infnan(3M) AUTHOR
Robert P. Corbett, W. Kahan, Stuart I. McDonald, Peter Tang and, for the codes for IEEE 754, Dr. Kwok-Choi Ng. 4th Berkeley Distribution May 12, 1986 SIN(3M)
All times are GMT -4. The time now is 12:22 PM.
Unix & Linux Forums Content Copyright 1993-2022. All Rights Reserved.
Privacy Policy