Advertisement
Guest User

Untitled

a guest
Nov 26th, 2014
138
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.46 KB | None | 0 0
  1. CREATE OR REPLACE FUNCTION azymut(pkt1 geometry,pkt geometry) RETURNS FLOAT LANGUAGE plpgsql AS $$
  2. DECLARE
  3. dx FLOAT;
  4. dy FLOAT;
  5. azym FLOAT;
  6. BEGIN
  7. dx := ST_X(pkt) - ST_X(pkt1);
  8. dy := ST_Y(pkt) - ST_Y(pkt1);
  9.  
  10. azym := atan2(dy,dx);
  11. IF dx > 0 AND dy < 0 THEN RETURN azym + 200; --2 cwiartka
  12. elseif dx < 0 AND dy < 0 THEN RETURN azym + 400; --
  13. elseif dx < 0 AND dy > 0 THEN RETURN azym + 400; --
  14. else RETURN azym;
  15. end if;
  16. END
  17. $$ ;
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement