13 lines
209 B
Awk
13 lines
209 B
Awk
#!/usr/bin/awk -f
|
|
{
|
|
PI = atan2(0,-1);
|
|
x=0.0; y=0.0;
|
|
for (i=1; i<=NF; i++) {
|
|
p = $i*PI/180.0;
|
|
x += sin(p);
|
|
y += cos(p);
|
|
}
|
|
p = atan2(x,y)*180.0/PI;
|
|
if (p<0) p += 360;
|
|
print p;
|
|
}
|