Changeset 12327

Timestamp:

Mar 8, 2007, 11:49:34 AM (19 years ago)

Author:

eugene

Message:

added parfactor macro

File:

• branches/dvo-mods-2007-02/Ohana/src/relastro/doc/parallax.pro (modified) (1 diff)

branches/dvo-mods-2007-02/Ohana/src/relastro/doc/parallax.pro

@@ -332 +332 @@
 end
 
+
+macro parfactor
+
+  $RA = $1
+  $Dec = $2
+  $e = 23 + 27/60
+  
+  create s 0 360
+  set pR = dcos($e)*d
+
+  set pR =  +(dcos($e)*dsin(s)*dcos($RA) - dcos(s)*dsin($RA))
+  set pD =  -(dcos($e)*dsin(s)*dsin($RA) + dcos(s)*dcos($RA))*dsin($Dec) + dsin($e)*dsin(s)*dcos($Dec)
+
+  lim -1.1 1.1 -1.1 1.1; clear; box; plot pR pD
+end