diff options
Diffstat (limited to 'movement/lib/vsop87/vsop87a_micro.c')
| -rwxr-xr-x | movement/lib/vsop87/vsop87a_micro.c | 1019 |
1 files changed, 1019 insertions, 0 deletions
diff --git a/movement/lib/vsop87/vsop87a_micro.c b/movement/lib/vsop87/vsop87a_micro.c new file mode 100755 index 00000000..7e69feac --- /dev/null +++ b/movement/lib/vsop87/vsop87a_micro.c @@ -0,0 +1,1019 @@ +//VSOP87-Multilang http://www.astrogreg.com/vsop87-multilang/index.html
+//Greg Miller (gmiller@gregmiller.net) 2019. Released as Public Domain
+
+#include <math.h>
+#include "vsop87a_micro.h"
+double vsop87a_micro_earth_x(double t);
+double vsop87a_micro_earth_y(double t);
+double vsop87a_micro_earth_z(double t);
+double vsop87a_micro_emb_x(double t);
+double vsop87a_micro_emb_y(double t);
+double vsop87a_micro_emb_z(double t);
+double vsop87a_micro_jupiter_x(double t);
+double vsop87a_micro_jupiter_y(double t);
+double vsop87a_micro_jupiter_z(double t);
+double vsop87a_micro_mars_x(double t);
+double vsop87a_micro_mars_y(double t);
+double vsop87a_micro_mars_z(double t);
+double vsop87a_micro_mercury_x(double t);
+double vsop87a_micro_mercury_y(double t);
+double vsop87a_micro_mercury_z(double t);
+double vsop87a_micro_neptune_x(double t);
+double vsop87a_micro_neptune_y(double t);
+double vsop87a_micro_neptune_z(double t);
+double vsop87a_micro_saturn_x(double t);
+double vsop87a_micro_saturn_y(double t);
+double vsop87a_micro_saturn_z(double t);
+double vsop87a_micro_uranus_x(double t);
+double vsop87a_micro_uranus_y(double t);
+double vsop87a_micro_uranus_z(double t);
+double vsop87a_micro_venus_x(double t);
+double vsop87a_micro_venus_y(double t);
+double vsop87a_micro_venus_z(double t);
+
+
+void vsop87a_micro_getEarth(double t,double temp[]){
+ temp[0]=vsop87a_micro_earth_x(t);
+ temp[1]=vsop87a_micro_earth_y(t);
+ temp[2]=vsop87a_micro_earth_z(t);
+}
+
+void vsop87a_micro_getEmb(double t,double temp[]){
+ temp[0]=vsop87a_micro_emb_x(t);
+ temp[1]=vsop87a_micro_emb_y(t);
+ temp[2]=vsop87a_micro_emb_z(t);
+}
+
+void vsop87a_micro_getJupiter(double t,double temp[]){
+ temp[0]=vsop87a_micro_jupiter_x(t);
+ temp[1]=vsop87a_micro_jupiter_y(t);
+ temp[2]=vsop87a_micro_jupiter_z(t);
+}
+
+void vsop87a_micro_getMars(double t,double temp[]){
+ temp[0]=vsop87a_micro_mars_x(t);
+ temp[1]=vsop87a_micro_mars_y(t);
+ temp[2]=vsop87a_micro_mars_z(t);
+}
+
+void vsop87a_micro_getMercury(double t,double temp[]){
+ temp[0]=vsop87a_micro_mercury_x(t);
+ temp[1]=vsop87a_micro_mercury_y(t);
+ temp[2]=vsop87a_micro_mercury_z(t);
+}
+
+void vsop87a_micro_getNeptune(double t,double temp[]){
+ temp[0]=vsop87a_micro_neptune_x(t);
+ temp[1]=vsop87a_micro_neptune_y(t);
+ temp[2]=vsop87a_micro_neptune_z(t);
+}
+
+void vsop87a_micro_getSaturn(double t,double temp[]){
+ temp[0]=vsop87a_micro_saturn_x(t);
+ temp[1]=vsop87a_micro_saturn_y(t);
+ temp[2]=vsop87a_micro_saturn_z(t);
+}
+
+void vsop87a_micro_getUranus(double t,double temp[]){
+ temp[0]=vsop87a_micro_uranus_x(t);
+ temp[1]=vsop87a_micro_uranus_y(t);
+ temp[2]=vsop87a_micro_uranus_z(t);
+}
+
+void vsop87a_micro_getVenus(double t,double temp[]){
+ temp[0]=vsop87a_micro_venus_x(t);
+ temp[1]=vsop87a_micro_venus_y(t);
+ temp[2]=vsop87a_micro_venus_z(t);
+}
+
+void vsop87a_micro_getMoon(double earth[], double emb[],double temp[]){
+ temp[0]=(emb[0]-earth[0])*(1 + 1 / 0.01230073677);
+ temp[1]=(emb[1]-earth[1])*(1 + 1 / 0.01230073677);
+ temp[2]=(emb[2]-earth[2])*(1 + 1 / 0.01230073677);
+ temp[0]=temp[0]+earth[0];
+ temp[1]=temp[1]+earth[1];
+ temp[2]=temp[2]+earth[2];
+}
+
+double vsop87a_micro_earth_x(double t){
+ double earth_x_0=0.0;
+ earth_x_0+= 0.99982928844 * cos( 1.75348568475 + 6283.07584999140*t);
+ earth_x_0+= 0.00835257300 * cos( 1.71034539450 + 12566.15169998280*t);
+ earth_x_0+= 0.00561144206 * cos( 0.00000000000 + 0.00000000000*t);
+ earth_x_0+= 0.00010466628 * cos( 1.66722645223 + 18849.22754997420*t);
+
+ double earth_x_1=0.0;
+ earth_x_1+= 0.00123403056 * cos( 0.00000000000 + 0.00000000000*t);
+ earth_x_1+= 0.00051500156 * cos( 6.00266267204 + 12566.15169998280*t);
+ earth_x_1=earth_x_1 * t;
+
+ return earth_x_0+earth_x_1;
+}
+
+double vsop87a_micro_earth_y(double t){
+ double earth_y_0=0.0;
+ earth_y_0+= 0.99989211030 * cos( 0.18265890456 + 6283.07584999140*t);
+ earth_y_0+= 0.02442699036 * cos( 3.14159265359 + 0.00000000000*t);
+ earth_y_0+= 0.00835292314 * cos( 0.13952878991 + 12566.15169998280*t);
+ earth_y_0+= 0.00010466965 * cos( 0.09641690558 + 18849.22754997420*t);
+
+ double earth_y_1=0.0;
+ earth_y_1+= 0.00093046324 * cos( 0.00000000000 + 0.00000000000*t);
+ earth_y_1+= 0.00051506609 * cos( 4.43180499286 + 12566.15169998280*t);
+ earth_y_1=earth_y_1 * t;
+
+ return earth_y_0+earth_y_1;
+}
+
+double vsop87a_micro_earth_z(double t){
+ double earth_z_1=0.0;
+ earth_z_1+= 0.00227822442 * cos( 3.41372504278 + 6283.07584999140*t);
+ earth_z_1=earth_z_1 * t;
+
+ return earth_z_1;
+}
+
+double vsop87a_micro_emb_x(double t){
+ double emb_x_0=0.0;
+ emb_x_0+= 0.99982927460 * cos( 1.75348568475 + 6283.07584999140*t);
+ emb_x_0+= 0.00835257300 * cos( 1.71034539450 + 12566.15169998280*t);
+ emb_x_0+= 0.00561144161 * cos( 0.00000000000 + 0.00000000000*t);
+ emb_x_0+= 0.00010466628 * cos( 1.66722645223 + 18849.22754997420*t);
+
+ double emb_x_1=0.0;
+ emb_x_1+= 0.00123403046 * cos( 0.00000000000 + 0.00000000000*t);
+ emb_x_1+= 0.00051500156 * cos( 6.00266267204 + 12566.15169998280*t);
+ emb_x_1=emb_x_1 * t;
+
+ return emb_x_0+emb_x_1;
+}
+
+double vsop87a_micro_emb_y(double t){
+ double emb_y_0=0.0;
+ emb_y_0+= 0.99989209645 * cos( 0.18265890456 + 6283.07584999140*t);
+ emb_y_0+= 0.02442698841 * cos( 3.14159265359 + 0.00000000000*t);
+ emb_y_0+= 0.00835292314 * cos( 0.13952878991 + 12566.15169998280*t);
+ emb_y_0+= 0.00010466965 * cos( 0.09641690558 + 18849.22754997420*t);
+
+ double emb_y_1=0.0;
+ emb_y_1+= 0.00093046317 * cos( 0.00000000000 + 0.00000000000*t);
+ emb_y_1+= 0.00051506609 * cos( 4.43180499286 + 12566.15169998280*t);
+ emb_y_1=emb_y_1 * t;
+
+ return emb_y_0+emb_y_1;
+}
+
+double vsop87a_micro_emb_z(double t){
+ double emb_z_1=0.0;
+ emb_z_1+= 0.00227822442 * cos( 3.41372504278 + 6283.07584999140*t);
+ emb_z_1=emb_z_1 * t;
+
+ return emb_z_1;
+}
+
+double vsop87a_micro_jupiter_x(double t){
+ double jupiter_x_0=0.0;
+ jupiter_x_0+= 5.19663470114 * cos( 0.59945082355 + 529.69096509460*t);
+ jupiter_x_0+= 0.36662642320 * cos( 3.14159265359 + 0.00000000000*t);
+ jupiter_x_0+= 0.12593937922 * cos( 0.94911583701 + 1059.38193018920*t);
+ jupiter_x_0+= 0.01500672056 * cos( 0.73175134610 + 522.57741809380*t);
+ jupiter_x_0+= 0.01476224578 * cos( 3.61736921122 + 536.80451209540*t);
+ jupiter_x_0+= 0.00457752736 * cos( 1.29883700755 + 1589.07289528380*t);
+ jupiter_x_0+= 0.00301689798 * cos( 5.17372551148 + 7.11354700080*t);
+ jupiter_x_0+= 0.00385975375 * cos( 2.01229910687 + 103.09277421860*t);
+ jupiter_x_0+= 0.00194025405 * cos( 5.02580363996 + 426.59819087600*t);
+ jupiter_x_0+= 0.00150678793 * cos( 6.12003027739 + 110.20632121940*t);
+ jupiter_x_0+= 0.00144867641 * cos( 5.55980577080 + 632.78373931320*t);
+ jupiter_x_0+= 0.00134226996 * cos( 0.87648567011 + 213.29909543800*t);
+ jupiter_x_0+= 0.00103494641 * cos( 6.19324769120 + 1052.26838318840*t);
+ jupiter_x_0+= 0.00114201562 * cos( 0.01567084269 + 1162.47470440780*t);
+ jupiter_x_0+= 0.00072095575 * cos( 3.96117430643 + 1066.49547719000*t);
+ jupiter_x_0+= 0.00059486083 * cos( 4.45769374358 + 949.17560896980*t);
+ jupiter_x_0+= 0.00068284021 * cos( 3.44051122631 + 846.08283475120*t);
+ jupiter_x_0+= 0.00047092251 * cos( 1.44612636451 + 419.48464387520*t);
+ jupiter_x_0+= 0.00030623417 * cos( 2.99132321427 + 206.18554843720*t);
+ jupiter_x_0+= 0.00026613459 * cos( 4.85169906494 + 323.50541665740*t);
+ jupiter_x_0+= 0.00019727457 * cos( 1.64891626213 + 2118.76386037840*t);
+ jupiter_x_0+= 0.00016481594 * cos( 1.95150056568 + 316.39186965660*t);
+ jupiter_x_0+= 0.00016101974 * cos( 0.87973155980 + 515.46387109300*t);
+ jupiter_x_0+= 0.00014209487 * cos( 2.07769621413 + 742.99006053260*t);
+ jupiter_x_0+= 0.00015192516 * cos( 6.25820127906 + 735.87651353180*t);
+ jupiter_x_0+= 0.00011423199 * cos( 3.48146108929 + 543.91805909620*t);
+ jupiter_x_0+= 0.00012155285 * cos( 3.75229924999 + 525.75881183150*t);
+ jupiter_x_0+= 0.00011996271 * cos( 0.58568573729 + 533.62311835770*t);
+
+ double jupiter_x_1=0.0;
+ jupiter_x_1+= 0.00882389251 * cos( 3.14159265359 + 0.00000000000*t);
+ jupiter_x_1+= 0.00635297172 * cos( 0.10662156868 + 1059.38193018920*t);
+ jupiter_x_1+= 0.00599720482 * cos( 2.42996678275 + 522.57741809380*t);
+ jupiter_x_1+= 0.00589157060 * cos( 1.91556314637 + 536.80451209540*t);
+ jupiter_x_1+= 0.00081697204 * cos( 3.46668108797 + 7.11354700080*t);
+ jupiter_x_1+= 0.00046201898 * cos( 0.45714214032 + 1589.07289528380*t);
+ jupiter_x_1+= 0.00032508590 * cos( 1.74648849928 + 1052.26838318840*t);
+ jupiter_x_1+= 0.00033891193 * cos( 4.10113482752 + 529.69096509460*t);
+ jupiter_x_1+= 0.00031234303 * cos( 2.34698051502 + 1066.49547719000*t);
+ jupiter_x_1+= 0.00021244363 * cos( 4.36576178953 + 110.20632121940*t);
+ jupiter_x_1+= 0.00018156701 * cos( 4.00572238779 + 426.59819087600*t);
+ jupiter_x_1+= 0.00013577576 * cos( 0.30008010246 + 632.78373931320*t);
+ jupiter_x_1+= 0.00012889505 * cos( 2.57489294062 + 515.46387109300*t);
+ jupiter_x_1=jupiter_x_1 * t;
+
+ double jupiter_x_2=0.0;
+ jupiter_x_2+= 0.00123864644 * cos( 4.13563277513 + 522.57741809380*t);
+ jupiter_x_2+= 0.00121521296 * cos( 0.21155109275 + 536.80451209540*t);
+ jupiter_x_2+= 0.00085355503 * cos( 0.00000000000 + 0.00000000000*t);
+ jupiter_x_2+= 0.00077685547 * cos( 5.29776154458 + 529.69096509460*t);
+ jupiter_x_2+= 0.00041410887 * cos( 5.12291589939 + 1059.38193018920*t);
+ jupiter_x_2+= 0.00011423070 * cos( 1.72917878238 + 7.11354700080*t);
+ jupiter_x_2=jupiter_x_2 * t * t;
+
+ double jupiter_x_3=0.0;
+ jupiter_x_3+= 0.00017071323 * cos( 5.86133022278 + 522.57741809380*t);
+ jupiter_x_3+= 0.00016713548 * cos( 4.77458794485 + 536.80451209540*t);
+ jupiter_x_3=jupiter_x_3 * t * t * t;
+
+ return jupiter_x_0+jupiter_x_1+jupiter_x_2+jupiter_x_3;
+}
+
+double vsop87a_micro_jupiter_y(double t){
+ double jupiter_y_0=0.0;
+ jupiter_y_0+= 5.19520046589 * cos( 5.31203162731 + 529.69096509460*t);
+ jupiter_y_0+= 0.12592862602 * cos( 5.66160227728 + 1059.38193018920*t);
+ jupiter_y_0+= 0.09363670616 * cos( 3.14159265359 + 0.00000000000*t);
+ jupiter_y_0+= 0.01508275299 * cos( 5.43934968102 + 522.57741809380*t);
+ jupiter_y_0+= 0.01475809370 * cos( 2.04679566495 + 536.80451209540*t);
+ jupiter_y_0+= 0.00457750806 * cos( 6.01129093501 + 1589.07289528380*t);
+ jupiter_y_0+= 0.00300686679 * cos( 3.60948050740 + 7.11354700080*t);
+ jupiter_y_0+= 0.00378285578 * cos( 3.53006782383 + 103.09277421860*t);
+ jupiter_y_0+= 0.00192333128 * cos( 3.45690564771 + 426.59819087600*t);
+ jupiter_y_0+= 0.00146104656 * cos( 4.62267224431 + 110.20632121940*t);
+ jupiter_y_0+= 0.00139480058 * cos( 4.00075307706 + 632.78373931320*t);
+ jupiter_y_0+= 0.00132696764 * cos( 5.62184581859 + 213.29909543800*t);
+ jupiter_y_0+= 0.00101999807 * cos( 4.57594598884 + 1052.26838318840*t);
+ jupiter_y_0+= 0.00114043110 * cos( 4.72982262969 + 1162.47470440780*t);
+ jupiter_y_0+= 0.00072091178 * cos( 2.39048659148 + 1066.49547719000*t);
+ jupiter_y_0+= 0.00059051769 * cos( 2.89529070968 + 949.17560896980*t);
+ jupiter_y_0+= 0.00068374489 * cos( 1.86537074374 + 846.08283475120*t);
+ jupiter_y_0+= 0.00029807369 * cos( 4.52105772740 + 206.18554843720*t);
+ jupiter_y_0+= 0.00026933579 * cos( 3.86233956827 + 419.48464387520*t);
+ jupiter_y_0+= 0.00026619714 * cos( 3.28203174951 + 323.50541665740*t);
+ jupiter_y_0+= 0.00020873780 * cos( 3.79369881757 + 735.87651353180*t);
+ jupiter_y_0+= 0.00019727397 * cos( 0.07818534532 + 2118.76386037840*t);
+ jupiter_y_0+= 0.00018639846 * cos( 0.38751972138 + 316.39186965660*t);
+ jupiter_y_0+= 0.00016355726 * cos( 5.56997881604 + 515.46387109300*t);
+ jupiter_y_0+= 0.00014606858 * cos( 0.47759399145 + 742.99006053260*t);
+ jupiter_y_0+= 0.00011419853 * cos( 1.91089341468 + 543.91805909620*t);
+ jupiter_y_0+= 0.00012153427 * cos( 2.18151972499 + 525.75881183150*t);
+ jupiter_y_0+= 0.00011988875 * cos( 5.29687602089 + 533.62311835770*t);
+
+ double jupiter_y_1=0.0;
+ jupiter_y_1+= 0.01694798253 * cos( 3.14159265359 + 0.00000000000*t);
+ jupiter_y_1+= 0.00634859798 * cos( 4.81903199650 + 1059.38193018920*t);
+ jupiter_y_1+= 0.00601160431 * cos( 0.85811249940 + 522.57741809380*t);
+ jupiter_y_1+= 0.00588928504 * cos( 0.34491576890 + 536.80451209540*t);
+ jupiter_y_1+= 0.00081187145 * cos( 1.90914316532 + 7.11354700080*t);
+ jupiter_y_1+= 0.00046888090 * cos( 1.91294535618 + 529.69096509460*t);
+ jupiter_y_1+= 0.00046194129 * cos( 5.16955994561 + 1589.07289528380*t);
+ jupiter_y_1+= 0.00032503453 * cos( 0.17640743623 + 1052.26838318840*t);
+ jupiter_y_1+= 0.00031231694 * cos( 0.77623645597 + 1066.49547719000*t);
+ jupiter_y_1+= 0.00019462096 * cos( 3.00957119470 + 110.20632121940*t);
+ jupiter_y_1+= 0.00017738615 * cos( 2.46531787101 + 426.59819087600*t);
+ jupiter_y_1+= 0.00013701692 * cos( 5.02070197804 + 632.78373931320*t);
+ jupiter_y_1+= 0.00013034616 * cos( 0.98979834442 + 515.46387109300*t);
+ jupiter_y_1=jupiter_y_1 * t;
+
+ double jupiter_y_2=0.0;
+ jupiter_y_2+= 0.00124032509 * cos( 2.56495576833 + 522.57741809380*t);
+ jupiter_y_2+= 0.00121455991 * cos( 4.92398766380 + 536.80451209540*t);
+ jupiter_y_2+= 0.00076523263 * cos( 3.75913371793 + 529.69096509460*t);
+ jupiter_y_2+= 0.00076943042 * cos( 3.14159265359 + 0.00000000000*t);
+ jupiter_y_2+= 0.00041357600 * cos( 3.55228440457 + 1059.38193018920*t);
+ jupiter_y_2+= 0.00011277667 * cos( 0.18559902389 + 7.11354700080*t);
+ jupiter_y_2=jupiter_y_2 * t * t;
+
+ double jupiter_y_3=0.0;
+ jupiter_y_3+= 0.00017085516 * cos( 4.29096904063 + 522.57741809380*t);
+ jupiter_y_3+= 0.00016701353 * cos( 3.20365737109 + 536.80451209540*t);
+ jupiter_y_3=jupiter_y_3 * t * t * t;
+
+ return jupiter_y_0+jupiter_y_1+jupiter_y_2+jupiter_y_3;
+}
+
+double vsop87a_micro_jupiter_z(double t){
+ double jupiter_z_0=0.0;
+ jupiter_z_0+= 0.11823100489 * cos( 3.55844646343 + 529.69096509460*t);
+ jupiter_z_0+= 0.00859031952 * cos( 0.00000000000 + 0.00000000000*t);
+ jupiter_z_0+= 0.00286562094 * cos( 3.90812238338 + 1059.38193018920*t);
+ jupiter_z_0+= 0.00042388592 * cos( 3.60144191032 + 522.57741809380*t);
+ jupiter_z_0+= 0.00033295491 * cos( 0.30297050585 + 536.80451209540*t);
+ jupiter_z_0+= 0.00010416160 * cos( 4.25764593061 + 1589.07289528380*t);
+
+ double jupiter_z_1=0.0;
+ jupiter_z_1+= 0.00407072175 * cos( 1.52699353482 + 529.69096509460*t);
+ jupiter_z_1+= 0.00020307341 * cos( 2.59878269248 + 1059.38193018920*t);
+ jupiter_z_1+= 0.00014424953 * cos( 4.85400155025 + 536.80451209540*t);
+ jupiter_z_1+= 0.00015474611 * cos( 0.00000000000 + 0.00000000000*t);
+ jupiter_z_1+= 0.00012730364 * cos( 5.45536715732 + 522.57741809380*t);
+ jupiter_z_1=jupiter_z_1 * t;
+
+ double jupiter_z_2=0.0;
+ jupiter_z_2+= 0.00028635326 * cos( 3.01374166973 + 529.69096509460*t);
+ jupiter_z_2=jupiter_z_2 * t * t;
+
+ return jupiter_z_0+jupiter_z_1+jupiter_z_2;
+}
+
+double vsop87a_micro_mars_x(double t){
+ double mars_x_0=0.0;
+ mars_x_0+= 1.51769936383 * cos( 6.20403346548 + 3340.61242669980*t);
+ mars_x_0+= 0.19502945246 * cos( 3.14159265359 + 0.00000000000*t);
+ mars_x_0+= 0.07070919655 * cos( 0.25870338558 + 6681.22485339960*t);
+ mars_x_0+= 0.00494196914 * cos( 0.59669127768 + 10021.83728009940*t);
+ mars_x_0+= 0.00040938237 * cos( 0.93473307419 + 13362.44970679920*t);
+ mars_x_0+= 0.00021067199 * cos( 1.80435656154 + 3337.08930835080*t);
+ mars_x_0+= 0.00021041626 * cos( 1.17895619474 + 3344.13554504880*t);
+ mars_x_0+= 0.00011370375 * cos( 4.83265211109 + 1059.38193018920*t);
+ mars_x_0+= 0.00013527976 * cos( 0.63010765169 + 529.69096509460*t);
+
+ double mars_x_1=0.0;
+ mars_x_1+= 0.00861441374 * cos( 3.14159265359 + 0.00000000000*t);
+ mars_x_1+= 0.00552437949 * cos( 5.09565872891 + 6681.22485339960*t);
+ mars_x_1+= 0.00077184977 * cos( 5.43315636209 + 10021.83728009940*t);
+ mars_x_1+= 0.00020467294 * cos( 5.57051812369 + 3340.61242669980*t);
+ mars_x_1=mars_x_1 * t;
+
+ double mars_x_2=0.0;
+ mars_x_2+= 0.00056323939 * cos( 0.00000000000 + 0.00000000000*t);
+ mars_x_2+= 0.00022122528 * cos( 3.54372113272 + 6681.22485339960*t);
+ mars_x_2=mars_x_2 * t * t;
+
+ return mars_x_0+mars_x_1+mars_x_2;
+}
+
+double vsop87a_micro_mars_y(double t){
+ double mars_y_0=0.0;
+ mars_y_0+= 1.51558976277 * cos( 4.63212206588 + 3340.61242669980*t);
+ mars_y_0+= 0.07064550239 * cos( 4.97051892902 + 6681.22485339960*t);
+ mars_y_0+= 0.08655481102 * cos( 0.00000000000 + 0.00000000000*t);
+ mars_y_0+= 0.00493872848 * cos( 5.30877806694 + 10021.83728009940*t);
+ mars_y_0+= 0.00040917422 * cos( 5.64698263703 + 13362.44970679920*t);
+ mars_y_0+= 0.00021036784 * cos( 0.23240270955 + 3337.08930835080*t);
+ mars_y_0+= 0.00021012921 * cos( 5.89022773653 + 3344.13554504880*t);
+ mars_y_0+= 0.00011370034 * cos( 3.26131408801 + 1059.38193018920*t);
+ mars_y_0+= 0.00013324177 * cos( 5.34259389724 + 529.69096509460*t);
+
+ double mars_y_1=0.0;
+ mars_y_1+= 0.01427324210 * cos( 3.14159265359 + 0.00000000000*t);
+ mars_y_1+= 0.00551063753 * cos( 3.52128320402 + 6681.22485339960*t);
+ mars_y_1+= 0.00077091913 * cos( 3.86082685753 + 10021.83728009940*t);
+ mars_y_1+= 0.00037310491 * cos( 1.16016958445 + 3340.61242669980*t);
+ mars_y_1=mars_y_1 * t;
+
+ double mars_y_2=0.0;
+ mars_y_2+= 0.00035396765 * cos( 3.14159265359 + 0.00000000000*t);
+ mars_y_2+= 0.00021950759 * cos( 1.96291594946 + 6681.22485339960*t);
+ mars_y_2=mars_y_2 * t * t;
+
+ return mars_y_0+mars_y_1+mars_y_2;
+}
+
+double vsop87a_micro_mars_z(double t){
+ double mars_z_0=0.0;
+ mars_z_0+= 0.04901207220 * cos( 3.76712324286 + 3340.61242669980*t);
+ mars_z_0+= 0.00660669541 * cos( 0.00000000000 + 0.00000000000*t);
+ mars_z_0+= 0.00228333904 * cos( 4.10544022266 + 6681.22485339960*t);
+ mars_z_0+= 0.00015958402 * cos( 4.44367058261 + 10021.83728009940*t);
+
+ double mars_z_1=0.0;
+ mars_z_1+= 0.00331842958 * cos( 6.05027773492 + 3340.61242669980*t);
+ mars_z_1+= 0.00047930411 * cos( 3.14159265359 + 0.00000000000*t);
+ mars_z_1=mars_z_1 * t;
+
+ double mars_z_2=0.0;
+ mars_z_2+= 0.00013705360 * cos( 1.04212852598 + 3340.61242669980*t);
+ mars_z_2=mars_z_2 * t * t;
+
+ return mars_z_0+mars_z_1+mars_z_2;
+}
+
+double vsop87a_micro_mercury_x(double t){
+ double mercury_x_0=0.0;
+ mercury_x_0+= 0.37546291728 * cos( 4.39651506942 + 26087.90314157420*t);
+ mercury_x_0+= 0.03825746672 * cos( 1.16485604339 + 52175.80628314840*t);
+ mercury_x_0+= 0.02625615963 * cos( 3.14159265359 + 0.00000000000*t);
+ mercury_x_0+= 0.00584261333 * cos( 4.21599394757 + 78263.70942472259*t);
+ mercury_x_0+= 0.00105716695 * cos( 0.98379033182 + 104351.61256629678*t);
+ mercury_x_0+= 0.00021011730 * cos( 4.03469353923 + 130439.51570787099*t);
+
+ double mercury_x_1=0.0;
+ mercury_x_1+= 0.00318848034 * cos( 0.00000000000 + 0.00000000000*t);
+ mercury_x_1+= 0.00105289019 * cos( 5.91600475006 + 52175.80628314840*t);
+ mercury_x_1+= 0.00032316001 * cos( 2.68247273347 + 78263.70942472259*t);
+ mercury_x_1+= 0.00011992889 * cos( 5.81575112963 + 26087.90314157420*t);
+ mercury_x_1=mercury_x_1 * t;
+
+ return mercury_x_0+mercury_x_1;
+}
+
+double vsop87a_micro_mercury_y(double t){
+ double mercury_y_0=0.0;
+ mercury_y_0+= 0.37953642888 * cos( 2.83780617820 + 26087.90314157420*t);
+ mercury_y_0+= 0.11626131831 * cos( 3.14159265359 + 0.00000000000*t);
+ mercury_y_0+= 0.03854668215 * cos( 5.88780608966 + 52175.80628314840*t);
+ mercury_y_0+= 0.00587711268 * cos( 2.65498896201 + 78263.70942472259*t);
+ mercury_y_0+= 0.00106235493 * cos( 5.70550616735 + 104351.61256629678*t);
+ mercury_y_0+= 0.00021100828 * cos( 2.47291315849 + 130439.51570787099*t);
+
+ double mercury_y_1=0.0;
+ mercury_y_1+= 0.00107803852 * cos( 4.34964793883 + 52175.80628314840*t);
+ mercury_y_1+= 0.00080651544 * cos( 3.14159265359 + 0.00000000000*t);
+ mercury_y_1+= 0.00032715354 * cos( 1.11763734425 + 78263.70942472259*t);
+ mercury_y_1+= 0.00011914709 * cos( 1.22139986340 + 26087.90314157420*t);
+ mercury_y_1=mercury_y_1 * t;
+
+ return mercury_y_0+mercury_y_1;
+}
+
+double vsop87a_micro_mercury_z(double t){
+ double mercury_z_0=0.0;
+ mercury_z_0+= 0.04607665326 * cos( 1.99295081967 + 26087.90314157420*t);
+ mercury_z_0+= 0.00708734365 * cos( 3.14159265359 + 0.00000000000*t);
+ mercury_z_0+= 0.00469171617 * cos( 5.04215742764 + 52175.80628314840*t);
+ mercury_z_0+= 0.00071626395 * cos( 1.80894256071 + 78263.70942472259*t);
+ mercury_z_0+= 0.00012957446 * cos( 4.85922032010 + 104351.61256629678*t);
+
+ double mercury_z_1=0.0;
+ mercury_z_1+= 0.00108722177 * cos( 3.91134750825 + 26087.90314157420*t);
+ mercury_z_1+= 0.00057826621 * cos( 3.14159265359 + 0.00000000000*t);
+ mercury_z_1=mercury_z_1 * t;
+
+ return mercury_z_0+mercury_z_1;
+}
+
+double vsop87a_micro_neptune_x(double t){
+ double neptune_x_0=0.0;
+ neptune_x_0+= 30.05890004476 * cos( 5.31211340029 + 38.13303563780*t);
+ neptune_x_0+= 0.27080164222 * cos( 3.14159265359 + 0.00000000000*t);
+ neptune_x_0+= 0.13505661755 * cos( 3.50078975634 + 76.26607127560*t);
+ neptune_x_0+= 0.15726094556 * cos( 0.11319072675 + 36.64856292950*t);
+ neptune_x_0+= 0.14935120126 * cos( 1.08499403018 + 39.61750834610*t);
+ neptune_x_0+= 0.02597313814 * cos( 1.99590301412 + 1.48447270830*t);
+ neptune_x_0+= 0.01074040708 * cos( 5.38502938672 + 74.78159856730*t);
+ neptune_x_0+= 0.00823793287 * cos( 1.43221581862 + 35.16409022120*t);
+ neptune_x_0+= 0.00817588813 * cos( 0.78180174031 + 2.96894541660*t);
+ neptune_x_0+= 0.00565534918 * cos( 5.98964907613 + 41.10198105440*t);
+ neptune_x_0+= 0.00495719107 * cos( 0.59948143567 + 529.69096509460*t);
+ neptune_x_0+= 0.00307525907 * cos( 0.40023311011 + 73.29712585900*t);
+ neptune_x_0+= 0.00272253551 * cos( 0.87443494387 + 213.29909543800*t);
+ neptune_x_0+= 0.00135887219 * cos( 5.54676577816 + 77.75054398390*t);
+ neptune_x_0+= 0.00090965704 * cos( 1.68910246115 + 114.39910691340*t);
+ neptune_x_0+= 0.00069040539 * cos( 5.83469123520 + 4.45341812490*t);
+ neptune_x_0+= 0.00060813556 * cos( 2.62589958380 + 33.67961751290*t);
+ neptune_x_0+= 0.00054690827 * cos( 1.55799996661 + 71.81265315070*t);
+ neptune_x_0+= 0.00028889260 * cos( 4.78966826027 + 42.58645376270*t);
+ neptune_x_0+= 0.00012614732 * cos( 3.57002516434 + 112.91463420510*t);
+ neptune_x_0+= 0.00012749153 * cos( 2.73719269645 + 111.43016149680*t);
+ neptune_x_0+= 0.00012013994 * cos( 0.94912933496 + 1059.38193018920*t);
+
+ double neptune_x_1=0.0;
+ neptune_x_1+= 0.00255840261 * cos( 2.01935686795 + 36.64856292950*t);
+ neptune_x_1+= 0.00243125299 * cos( 5.46214902873 + 39.61750834610*t);
+ neptune_x_1+= 0.00118398168 * cos( 2.88251845061 + 76.26607127560*t);
+ neptune_x_1+= 0.00037965449 * cos( 3.14159265359 + 0.00000000000*t);
+ neptune_x_1+= 0.00021924705 * cos( 3.20156164152 + 35.16409022120*t);
+ neptune_x_1+= 0.00017459808 * cos( 4.26349398817 + 41.10198105440*t);
+ neptune_x_1+= 0.00013130617 * cos( 5.36424961848 + 2.96894541660*t);
+ neptune_x_1=neptune_x_1 * t;
+
+ return neptune_x_0+neptune_x_1;
+}
+
+double vsop87a_micro_neptune_y(double t){
+ double neptune_y_0=0.0;
+ neptune_y_0+= 30.06056351665 * cos( 3.74086294714 + 38.13303563780*t);
+ neptune_y_0+= 0.30205857683 * cos( 3.14159265359 + 0.00000000000*t);
+ neptune_y_0+= 0.13506391797 * cos( 1.92953034883 + 76.26607127560*t);
+ neptune_y_0+= 0.15706589373 * cos( 4.82539970129 + 36.64856292950*t);
+ neptune_y_0+= 0.14936165806 * cos( 5.79694900665 + 39.61750834610*t);
+ neptune_y_0+= 0.02584250749 * cos( 0.42549700754 + 1.48447270830*t);
+ neptune_y_0+= 0.01073739772 * cos( 3.81371728533 + 74.78159856730*t);
+ neptune_y_0+= 0.00815187583 * cos( 5.49429775826 + 2.96894541660*t);
+ neptune_y_0+= 0.00582199295 * cos( 6.19633718936 + 35.16409022120*t);
+ neptune_y_0+= 0.00565576412 * cos( 4.41843009015 + 41.10198105440*t);
+ neptune_y_0+= 0.00495581047 * cos( 5.31205825784 + 529.69096509460*t);
+ neptune_y_0+= 0.00304525203 * cos( 5.11048113661 + 73.29712585900*t);
+ neptune_y_0+= 0.00272640298 * cos( 5.58603690785 + 213.29909543800*t);
+ neptune_y_0+= 0.00135897385 * cos( 3.97553750964 + 77.75054398390*t);
+ neptune_y_0+= 0.00090970871 * cos( 0.11783619888 + 114.39910691340*t);
+ neptune_y_0+= 0.00068790261 * cos( 4.26391997151 + 4.45341812490*t);
+ neptune_y_0+= 0.00028893355 * cos( 3.21848975032 + 42.58645376270*t);
+ neptune_y_0+= 0.00020081559 * cos( 1.19787916085 + 33.67961751290*t);
+ neptune_y_0+= 0.00012613583 * cos( 1.99777332934 + 112.91463420510*t);
+ neptune_y_0+= 0.00012828708 * cos( 1.16740053443 + 111.43016149680*t);
+ neptune_y_0+= 0.00012012961 * cos( 5.66157563804 + 1059.38193018920*t);
+
+ double neptune_y_1=0.0;
+ neptune_y_1+= 0.00352947493 * cos( 3.14159265359 + 0.00000000000*t);
+ neptune_y_1+= 0.00256125493 * cos( 0.44757496817 + 36.64856292950*t);
+ neptune_y_1+= 0.00243147725 * cos( 3.89099798696 + 39.61750834610*t);
+ neptune_y_1+= 0.00118427205 * cos( 1.31128027037 + 76.26607127560*t);
+ neptune_y_1+= 0.00021936702 * cos( 1.63124087591 + 35.16409022120*t);
+ neptune_y_1+= 0.00017462332 * cos( 2.69229902966 + 41.10198105440*t);
+ neptune_y_1+= 0.00012992380 * cos( 3.79578633002 + 2.96894541660*t);
+ neptune_y_1=neptune_y_1 * t;
+
+ return neptune_y_0+neptune_y_1;
+}
+
+double vsop87a_micro_neptune_z(double t){
+ double neptune_z_0=0.0;
+ neptune_z_0+= 0.92866054405 * cos( 1.44103930278 + 38.13303563780*t);
+ neptune_z_0+= 0.01245978462 * cos( 0.00000000000 + 0.00000000000*t);
+ neptune_z_0+= 0.00474333567 * cos( 2.52218774238 + 36.64856292950*t);
+ neptune_z_0+= 0.00451987936 * cos( 3.50949720541 + 39.61750834610*t);
+ neptune_z_0+= 0.00417558068 * cos( 5.91310695421 + 76.26607127560*t);
+ neptune_z_0+= 0.00084104329 * cos( 4.38928900096 + 1.48447270830*t);
+ neptune_z_0+= 0.00032704958 * cos( 1.52048692001 + 74.78159856730*t);
+ neptune_z_0+= 0.00030873335 * cos( 3.29017611456 + 35.16409022120*t);
+ neptune_z_0+= 0.00025812584 * cos( 3.19303128782 + 2.96894541660*t);
+ neptune_z_0+= 0.00016865319 * cos( 2.13251104425 + 41.10198105440*t);
+ neptune_z_0+= 0.00011789909 * cos( 3.60001877675 + 213.29909543800*t);
+ neptune_z_0+= 0.00011279680 * cos( 3.55816676334 + 529.69096509460*t);
+
+ double neptune_z_1=0.0;
+ neptune_z_1+= 0.00154885971 * cos( 2.14239039664 + 38.13303563780*t);
+ neptune_z_1=neptune_z_1 * t;
+
+ return neptune_z_0+neptune_z_1;
+}
+
+double vsop87a_micro_saturn_x(double t){
+ double saturn_x_0=0.0;
+ saturn_x_0+= 9.51638335797 * cos( 0.87441380794 + 213.29909543800*t);
+ saturn_x_0+= 0.26412374238 * cos( 0.12390892620 + 426.59819087600*t);
+ saturn_x_0+= 0.06760430339 * cos( 4.16767145778 + 206.18554843720*t);
+ saturn_x_0+= 0.06624260115 * cos( 0.75094737780 + 220.41264243880*t);
+ saturn_x_0+= 0.04244797817 * cos( 0.00000000000 + 0.00000000000*t);
+ saturn_x_0+= 0.02336340488 * cos( 2.02227784673 + 7.11354700080*t);
+ saturn_x_0+= 0.01255372247 * cos( 2.17338917731 + 110.20632121940*t);
+ saturn_x_0+= 0.01115684467 * cos( 3.15686878377 + 419.48464387520*t);
+ saturn_x_0+= 0.01097683232 * cos( 5.65753337256 + 639.89728631400*t);
+ saturn_x_0+= 0.00716328481 * cos( 2.71149993708 + 316.39186965660*t);
+ saturn_x_0+= 0.00509313365 * cos( 4.95865624780 + 103.09277421860*t);
+ saturn_x_0+= 0.00433994439 * cos( 0.72012820974 + 529.69096509460*t);
+ saturn_x_0+= 0.00372894461 * cos( 0.00137195497 + 433.71173787680*t);
+ saturn_x_0+= 0.00097843523 * cos( 1.01485750417 + 323.50541665740*t);
+ saturn_x_0+= 0.00080600536 * cos( 5.62103979796 + 11.04570026390*t);
+ saturn_x_0+= 0.00083782316 * cos( 0.62038893702 + 227.52618943960*t);
+ saturn_x_0+= 0.00074150224 * cos( 2.38206066655 + 632.78373931320*t);
+ saturn_x_0+= 0.00070219382 * cos( 0.88789752415 + 209.36694217490*t);
+ saturn_x_0+= 0.00068855792 * cos( 4.01788097627 + 217.23124870110*t);
+ saturn_x_0+= 0.00065620467 * cos( 2.69728593339 + 202.25339517410*t);
+ saturn_x_0+= 0.00058297911 * cos( 2.16155251399 + 224.34479570190*t);
+ saturn_x_0+= 0.00054022837 * cos( 4.90928184374 + 853.19638175200*t);
+ saturn_x_0+= 0.00045550446 * cos( 1.88235037830 + 14.22709400160*t);
+ saturn_x_0+= 0.00038345667 * cos( 4.39815501478 + 199.07200143640*t);
+ saturn_x_0+= 0.00044551703 * cos( 5.60763553535 + 63.73589830340*t);
+ saturn_x_0+= 0.00025165185 * cos( 0.37800582257 + 216.48048917570*t);
+ saturn_x_0+= 0.00024554499 * cos( 4.53150598095 + 210.11770170030*t);
+ saturn_x_0+= 0.00024673219 * cos( 5.90891573850 + 522.57741809380*t);
+ saturn_x_0+= 0.00024677050 * cos( 5.60389382420 + 415.55249061210*t);
+ saturn_x_0+= 0.00025491374 * cos( 1.63922423181 + 117.31986822020*t);
+ saturn_x_0+= 0.00031253049 * cos( 4.62976601833 + 735.87651353180*t);
+ saturn_x_0+= 0.00023372467 * cos( 5.53491987276 + 647.01083331480*t);
+ saturn_x_0+= 0.00023355468 * cos( 0.18791490124 + 149.56319713460*t);
+ saturn_x_0+= 0.00024805815 * cos( 5.50327676733 + 74.78159856730*t);
+ saturn_x_0+= 0.00014731703 * cos( 4.67981909838 + 277.03499374140*t);
+ saturn_x_0+= 0.00012427525 * cos( 1.02995545746 + 1059.38193018920*t);
+ saturn_x_0+= 0.00012393514 * cos( 4.19747622821 + 490.33408917940*t);
+ saturn_x_0+= 0.00012026472 * cos( 5.66372282839 + 351.81659230870*t);
+
+ double saturn_x_1=0.0;
+ saturn_x_1+= 0.07575103962 * cos( 0.00000000000 + 0.00000000000*t);
+ saturn_x_1+= 0.03085041716 * cos( 4.27565749128 + 426.59819087600*t);
+ saturn_x_1+= 0.02714918399 * cos( 5.85229412397 + 206.18554843720*t);
+ saturn_x_1+= 0.02643100909 * cos( 5.33291950584 + 220.41264243880*t);
+ saturn_x_1+= 0.00627104520 * cos( 0.32898307969 + 7.11354700080*t);
+ saturn_x_1+= 0.00256560953 * cos( 3.52478934343 + 639.89728631400*t);
+ saturn_x_1+= 0.00312356512 * cos( 4.83001724941 + 419.48464387520*t);
+ saturn_x_1+= 0.00189196274 * cos( 4.48642453552 + 433.71173787680*t);
+ saturn_x_1+= 0.00203646570 * cos( 1.10998681782 + 213.29909543800*t);
+ saturn_x_1+= 0.00119531145 * cos( 1.14735096078 + 110.20632121940*t);
+ saturn_x_1+= 0.00066764238 * cos( 3.72346596928 + 316.39186965660*t);
+ saturn_x_1+= 0.00066901225 * cos( 5.20257500380 + 227.52618943960*t);
+ saturn_x_1+= 0.00031000840 * cos( 6.06067919437 + 199.07200143640*t);
+ saturn_x_1+= 0.00030418100 * cos( 0.18746903351 + 14.22709400160*t);
+ saturn_x_1+= 0.00022275210 * cos( 6.19530878014 + 103.09277421860*t);
+ saturn_x_1+= 0.00018939377 * cos( 2.77618306725 + 853.19638175200*t);
+ saturn_x_1+= 0.00018093009 * cos( 5.09162723865 + 209.36694217490*t);
+ saturn_x_1+= 0.00017777854 * cos( 6.10381593351 + 217.23124870110*t);
+ saturn_x_1+= 0.00016296201 * cos( 4.86945681437 + 216.48048917570*t);
+ saturn_x_1+= 0.00017120250 * cos( 4.59611664188 + 632.78373931320*t);
+ saturn_x_1+= 0.00015894491 * cos( 0.03653502304 + 210.11770170030*t);
+ saturn_x_1+= 0.00016192653 * cos( 5.60798014450 + 323.50541665740*t);
+ saturn_x_1+= 0.00014466010 * cos( 3.67449380090 + 647.01083331480*t);
+ saturn_x_1+= 0.00011061528 * cos( 0.03163071461 + 117.31986822020*t);
+ saturn_x_1=saturn_x_1 * t;
+
+ double saturn_x_2=0.0;
+ saturn_x_2+= 0.00560746334 * cos( 1.26401632282 + 206.18554843720*t);
+ saturn_x_2+= 0.00545834518 * cos( 3.62343709657 + 220.41264243880*t);
+ saturn_x_2+= 0.00443342186 * cos( 3.14159265359 + 0.00000000000*t);
+ saturn_x_2+= 0.00336109713 * cos( 2.42547432460 + 213.29909543800*t);
+ saturn_x_2+= 0.00224302269 * cos( 2.49151203519 + 426.59819087600*t);
+ saturn_x_2+= 0.00087170924 * cos( 4.89048951691 + 7.11354700080*t);
+ saturn_x_2+= 0.00050028094 * cos( 2.70119046081 + 433.71173787680*t);
+ saturn_x_2+= 0.00045122590 * cos( 0.36735068943 + 419.48464387520*t);
+ saturn_x_2+= 0.00032847824 * cos( 1.59210153669 + 639.89728631400*t);
+ saturn_x_2+= 0.00027153555 * cos( 3.49804002218 + 227.52618943960*t);
+ saturn_x_2+= 0.00012676167 * cos( 1.45465729530 + 199.07200143640*t);
+ saturn_x_2+= 0.00010330738 * cos( 4.76949531290 + 14.22709400160*t);
+ saturn_x_2=saturn_x_2 * t * t;
+
+ double saturn_x_3=0.0;
+ saturn_x_3+= 0.00077115952 * cos( 2.97714385362 + 206.18554843720*t);
+ saturn_x_3+= 0.00075340436 * cos( 1.89208005248 + 220.41264243880*t);
+ saturn_x_3+= 0.00018450895 * cos( 3.14159265359 + 0.00000000000*t);
+ saturn_x_3+= 0.00010527244 * cos( 0.66368256891 + 426.59819087600*t);
+ saturn_x_3=saturn_x_3 * t * t * t;
+
+ return saturn_x_0+saturn_x_1+saturn_x_2+saturn_x_3;
+}
+
+double vsop87a_micro_saturn_y(double t){
+ double saturn_y_0=0.0;
+ saturn_y_0+= 9.52986882699 * cos( 5.58600556665 + 213.29909543800*t);
+ saturn_y_0+= 0.79387988806 * cos( 3.14159265359 + 0.00000000000*t);
+ saturn_y_0+= 0.26441781302 * cos( 4.83528061849 + 426.59819087600*t);
+ saturn_y_0+= 0.06916653915 * cos( 2.55279408706 + 206.18554843720*t);
+ saturn_y_0+= 0.06633570703 * cos( 5.46258848288 + 220.41264243880*t);
+ saturn_y_0+= 0.02345609742 * cos( 0.44652132519 + 7.11354700080*t);
+ saturn_y_0+= 0.01183874652 * cos( 1.34638298371 + 419.48464387520*t);
+ saturn_y_0+= 0.01245790434 * cos( 0.60367177975 + 110.20632121940*t);
+ saturn_y_0+= 0.01098751131 * cos( 4.08608782813 + 639.89728631400*t);
+ saturn_y_0+= 0.00700849336 * cos( 1.13611298025 + 316.39186965660*t);
+ saturn_y_0+= 0.00434466176 * cos( 5.42474696262 + 529.69096509460*t);
+ saturn_y_0+= 0.00373327342 * cos( 4.71308726958 + 433.71173787680*t);
+ saturn_y_0+= 0.00335162363 * cos( 0.66422253983 + 103.09277421860*t);
+ saturn_y_0+= 0.00097837745 * cos( 5.72844290173 + 323.50541665740*t);
+ saturn_y_0+= 0.00080571808 * cos( 4.05295449910 + 11.04570026390*t);
+ saturn_y_0+= 0.00083899691 * cos( 5.33204070267 + 227.52618943960*t);
+ saturn_y_0+= 0.00070158491 * cos( 5.59777963629 + 209.36694217490*t);
+ saturn_y_0+= 0.00065937657 * cos( 1.25969608208 + 202.25339517410*t);
+ saturn_y_0+= 0.00070957225 * cos( 0.88888207567 + 632.78373931320*t);
+ saturn_y_0+= 0.00068985859 * cos( 2.44460312617 + 217.23124870110*t);
+ saturn_y_0+= 0.00058382264 * cos( 0.58978766922 + 224.34479570190*t);
+ saturn_y_0+= 0.00054049836 * cos( 3.33757904879 + 853.19638175200*t);
+ saturn_y_0+= 0.00045790930 * cos( 0.30331527632 + 14.22709400160*t);
+ saturn_y_0+= 0.00041976402 * cos( 2.62591355948 + 199.07200143640*t);
+ saturn_y_0+= 0.00044697175 * cos( 0.90661238256 + 63.73589830340*t);
+ saturn_y_0+= 0.00025199575 * cos( 5.08963506006 + 216.48048917570*t);
+ saturn_y_0+= 0.00024640836 * cos( 2.95445247282 + 210.11770170030*t);
+ saturn_y_0+= 0.00024835151 * cos( 4.02630190571 + 415.55249061210*t);
+ saturn_y_0+= 0.00025545907 * cos( 0.06626229252 + 117.31986822020*t);
+ saturn_y_0+= 0.00029666833 * cos( 6.09910638345 + 735.87651353180*t);
+ saturn_y_0+= 0.00023396742 * cos( 3.96337393635 + 647.01083331480*t);
+ saturn_y_0+= 0.00023380691 * cos( 4.90051072276 + 149.56319713460*t);
+ saturn_y_0+= 0.00020272215 * cos( 2.34319548198 + 309.27832265580*t);
+ saturn_y_0+= 0.00020099552 * cos( 0.98365186365 + 522.57741809380*t);
+ saturn_y_0+= 0.00024827950 * cos( 3.92681428900 + 74.78159856730*t);
+ saturn_y_0+= 0.00015383927 * cos( 3.10227822627 + 277.03499374140*t);
+ saturn_y_0+= 0.00011629210 * cos( 5.74108283772 + 1059.38193018920*t);
+ saturn_y_0+= 0.00012422966 * cos( 2.62557865743 + 490.33408917940*t);
+ saturn_y_0+= 0.00012048048 * cos( 4.09265980116 + 351.81659230870*t);
+
+ double saturn_y_1=0.0;
+ saturn_y_1+= 0.05373889135 * cos( 0.00000000000 + 0.00000000000*t);
+ saturn_y_1+= 0.03090575152 * cos( 2.70346890906 + 426.59819087600*t);
+ saturn_y_1+= 0.02741594312 * cos( 4.26667636015 + 206.18554843720*t);
+ saturn_y_1+= 0.02647489677 * cos( 3.76132298889 + 220.41264243880*t);
+ saturn_y_1+= 0.00631520527 * cos( 5.03245505280 + 7.11354700080*t);
+ saturn_y_1+= 0.00256799701 * cos( 1.95351819758 + 639.89728631400*t);
+ saturn_y_1+= 0.00312271930 * cos( 3.25850205023 + 419.48464387520*t);
+ saturn_y_1+= 0.00189433319 * cos( 2.91501840819 + 433.71173787680*t);
+ saturn_y_1+= 0.00164133553 * cos( 5.29239290066 + 213.29909543800*t);
+ saturn_y_1+= 0.00116791227 * cos( 5.89146675760 + 110.20632121940*t);
+ saturn_y_1+= 0.00067210919 * cos( 2.17042636344 + 316.39186965660*t);
+ saturn_y_1+= 0.00067003292 * cos( 3.63101075514 + 227.52618943960*t);
+ saturn_y_1+= 0.00033002406 * cos( 4.35527405801 + 199.07200143640*t);
+ saturn_y_1+= 0.00030628998 * cos( 4.88861760772 + 14.22709400160*t);
+ saturn_y_1+= 0.00022234714 * cos( 4.62212779231 + 103.09277421860*t);
+ saturn_y_1+= 0.00018945004 * cos( 1.20412493845 + 853.19638175200*t);
+ saturn_y_1+= 0.00018079959 * cos( 3.51566153251 + 209.36694217490*t);
+ saturn_y_1+= 0.00017791543 * cos( 4.53214140649 + 217.23124870110*t);
+ saturn_y_1+= 0.00016320701 * cos( 3.29784030970 + 216.48048917570*t);
+ saturn_y_1+= 0.00015944258 * cos( 4.74503265169 + 210.11770170030*t);
+ saturn_y_1+= 0.00016717122 * cos( 3.00270792752 + 632.78373931320*t);
+ saturn_y_1+= 0.00016149947 * cos( 4.04186432517 + 323.50541665740*t);
+ saturn_y_1+= 0.00014481431 * cos( 2.10298298650 + 647.01083331480*t);
+ saturn_y_1+= 0.00011084040 * cos( 4.74073871754 + 117.31986822020*t);
+ saturn_y_1=saturn_y_1 * t;
+
+ double saturn_y_2=0.0;
+ saturn_y_2+= 0.00563706537 * cos( 5.97115878242 + 206.18554843720*t);
+ saturn_y_2+= 0.00547012116 * cos( 2.05154973426 + 220.41264243880*t);
+ saturn_y_2+= 0.00458518613 * cos( 0.00000000000 + 0.00000000000*t);
+ saturn_y_2+= 0.00362294249 * cos( 0.89540100509 + 213.29909543800*t);
+ saturn_y_2+= 0.00225521642 * cos( 0.91699821445 + 426.59819087600*t);
+ saturn_y_2+= 0.00088390611 * cos( 3.30289449917 + 7.11354700080*t);
+ saturn_y_2+= 0.00050101314 * cos( 1.12976163835 + 433.71173787680*t);
+ saturn_y_2+= 0.00045516403 * cos( 5.07669466539 + 419.48464387520*t);
+ saturn_y_2+= 0.00032896745 * cos( 0.02089057938 + 639.89728631400*t);
+ saturn_y_2+= 0.00027199743 * cos( 1.92638417640 + 227.52618943960*t);
+ saturn_y_2+= 0.00013251505 * cos( 6.07693099404 + 199.07200143640*t);
+ saturn_y_2+= 0.00010425984 * cos( 3.18246869028 + 14.22709400160*t);
+ saturn_y_2=saturn_y_2 * t * t;
+
+ double saturn_y_3=0.0;
+ saturn_y_3+= 0.00077376615 * cos( 1.40391048961 + 206.18554843720*t);
+ saturn_y_3+= 0.00075564351 * cos( 0.31962896379 + 220.41264243880*t);
+ saturn_y_3+= 0.00022843837 * cos( 3.14159265359 + 0.00000000000*t);
+ saturn_y_3+= 0.00010672263 * cos( 5.36495663820 + 426.59819087600*t);
+ saturn_y_3=saturn_y_3 * t * t * t;
+
+ return saturn_y_0+saturn_y_1+saturn_y_2+saturn_y_3;
+}
+
+double vsop87a_micro_saturn_z(double t){
+ double saturn_z_0=0.0;
+ saturn_z_0+= 0.41356950940 * cos( 3.60234142982 + 213.29909543800*t);
+ saturn_z_0+= 0.01148283576 * cos( 2.85128367469 + 426.59819087600*t);
+ saturn_z_0+= 0.01214249867 * cos( 0.00000000000 + 0.00000000000*t);
+ saturn_z_0+= 0.00329280791 * cos( 0.57121407104 + 206.18554843720*t);
+ saturn_z_0+= 0.00286934048 * cos( 3.48073526693 + 220.41264243880*t);
+ saturn_z_0+= 0.00099076584 * cos( 4.73369511264 + 7.11354700080*t);
+ saturn_z_0+= 0.00057361820 * cos( 4.92611225093 + 110.20632121940*t);
+ saturn_z_0+= 0.00047738127 * cos( 2.10039779728 + 639.89728631400*t);
+ saturn_z_0+= 0.00043458803 * cos( 5.84904978051 + 419.48464387520*t);
+ saturn_z_0+= 0.00034565673 * cos( 5.42614229590 + 316.39186965660*t);
+ saturn_z_0+= 0.00016185391 * cos( 2.72987173675 + 433.71173787680*t);
+ saturn_z_0+= 0.00011433574 * cos( 3.71662021072 + 529.69096509460*t);
+
+ double saturn_z_1=0.0;
+ saturn_z_1+= 0.01906503283 * cos( 4.94544746116 + 213.29909543800*t);
+ saturn_z_1+= 0.00528301265 * cos( 3.14159265359 + 0.00000000000*t);
+ saturn_z_1+= 0.00130262284 * cos( 2.26140980879 + 206.18554843720*t);
+ saturn_z_1+= 0.00101466332 * cos( 1.79095829545 + 220.41264243880*t);
+ saturn_z_1+= 0.00085947578 * cos( 0.51612788497 + 426.59819087600*t);
+ saturn_z_1+= 0.00022257446 * cos( 3.07684015656 + 7.11354700080*t);
+ saturn_z_1+= 0.00016179946 * cos( 1.19987517506 + 419.48464387520*t);
+ saturn_z_1=saturn_z_1 * t;
+
+ double saturn_z_2=0.0;
+ saturn_z_2+= 0.00131275155 * cos( 0.08868998101 + 213.29909543800*t);
+ saturn_z_2+= 0.00030147649 * cos( 3.91396203887 + 206.18554843720*t);
+ saturn_z_2+= 0.00019322173 * cos( 0.09228748624 + 220.41264243880*t);
+ saturn_z_2=saturn_z_2 * t * t;
+
+ return saturn_z_0+saturn_z_1+saturn_z_2;
+}
+
+double vsop87a_micro_uranus_x(double t){
+ double uranus_x_0=0.0;
+ uranus_x_0+= 19.17370730359 * cos( 5.48133416489 + 74.78159856730*t);
+ uranus_x_0+= 1.32272523872 * cos( 0.00000000000 + 0.00000000000*t);
+ uranus_x_0+= 0.44402496796 * cos( 1.65967519586 + 149.56319713460*t);
+ uranus_x_0+= 0.14668209481 * cos( 3.42395862804 + 73.29712585900*t);
+ uranus_x_0+= 0.14130269479 * cos( 4.39572927934 + 76.26607127560*t);
+ uranus_x_0+= 0.06201106178 * cos( 5.14043574125 + 1.48447270830*t);
+ uranus_x_0+= 0.01542951343 * cos( 4.12121838072 + 224.34479570190*t);
+ uranus_x_0+= 0.01444216660 * cos( 2.65117115201 + 148.07872442630*t);
+ uranus_x_0+= 0.00944995563 * cos( 1.65869338757 + 11.04570026390*t);
+ uranus_x_0+= 0.00657524815 * cos( 0.57595170636 + 151.04766984290*t);
+ uranus_x_0+= 0.00621624676 * cos( 3.05882246638 + 77.75054398390*t);
+ uranus_x_0+= 0.00585182542 * cos( 4.79934779678 + 71.81265315070*t);
+ uranus_x_0+= 0.00634000270 * cos( 4.09556589724 + 63.73589830340*t);
+ uranus_x_0+= 0.00547699056 * cos( 3.63127725056 + 85.82729883120*t);
+ uranus_x_0+= 0.00458219984 * cos( 3.90788284112 + 2.96894541660*t);
+ uranus_x_0+= 0.00496087649 * cos( 0.59947400861 + 529.69096509460*t);
+ uranus_x_0+= 0.00383625535 * cos( 6.18762010576 + 138.51749687070*t);
+ uranus_x_0+= 0.00267938156 * cos( 0.96885660137 + 213.29909543800*t);
+ uranus_x_0+= 0.00215368005 * cos( 5.30877641428 + 38.13303563780*t);
+ uranus_x_0+= 0.00145505389 * cos( 2.31759757085 + 70.84944530420*t);
+ uranus_x_0+= 0.00135340032 * cos( 5.51062460816 + 78.71375183040*t);
+ uranus_x_0+= 0.00119593859 * cos( 4.10138544267 + 39.61750834610*t);
+ uranus_x_0+= 0.00125105686 * cos( 2.51455273063 + 111.43016149680*t);
+ uranus_x_0+= 0.00111260244 * cos( 5.12252784325 + 222.86032299360*t);
+ uranus_x_0+= 0.00104619827 * cos( 3.90538916334 + 146.59425171800*t);
+ uranus_x_0+= 0.00110125387 * cos( 4.45473528724 + 35.16409022120*t);
+ uranus_x_0+= 0.00063584588 * cos( 0.29966233158 + 299.12639426920*t);
+ uranus_x_0+= 0.00053904041 * cos( 3.92590422507 + 3.93215326310*t);
+ uranus_x_0+= 0.00065066905 * cos( 3.73008452906 + 109.94568878850*t);
+ uranus_x_0+= 0.00039181662 * cos( 2.68841280769 + 4.45341812490*t);
+ uranus_x_0+= 0.00034341683 * cos( 3.03781661928 + 225.82926841020*t);
+ uranus_x_0+= 0.00033134636 * cos( 2.54201591218 + 65.22037101170*t);
+ uranus_x_0+= 0.00034555652 * cos( 1.84699329257 + 79.23501669220*t);
+ uranus_x_0+= 0.00033867050 * cos( 5.98418436103 + 70.32818044240*t);
+ uranus_x_0+= 0.00028371614 * cos( 2.58026657123 + 127.47179660680*t);
+ uranus_x_0+= 0.00035943348 * cos( 4.08754543016 + 202.25339517410*t);
+ uranus_x_0+= 0.00025208833 * cos( 5.30272144657 + 9.56122755560*t);
+ uranus_x_0+= 0.00023467802 * cos( 4.09729860322 + 145.63104387150*t);
+ uranus_x_0+= 0.00022963939 * cos( 5.51475073655 + 84.34282612290*t);
+ uranus_x_0+= 0.00031823951 * cos( 5.53948583244 + 152.53214255120*t);
+ uranus_x_0+= 0.00028384953 * cos( 6.01785430306 + 184.72728735580*t);
+ uranus_x_0+= 0.00026657176 * cos( 6.11027939727 + 160.60889739850*t);
+ uranus_x_0+= 0.00019676762 * cos( 5.53431398332 + 74.66972398270*t);
+ uranus_x_0+= 0.00019653873 * cos( 2.28660913421 + 74.89347315190*t);
+ uranus_x_0+= 0.00019954280 * cos( 0.57450958037 + 12.53017297220*t);
+ uranus_x_0+= 0.00018565067 * cos( 0.62225019017 + 52.69019803950*t);
+ uranus_x_0+= 0.00020084756 * cos( 4.47297488471 + 22.09140052780*t);
+ uranus_x_0+= 0.00019926329 * cos( 1.39878194708 + 112.91463420510*t);
+ uranus_x_0+= 0.00018575632 * cos( 5.70217475790 + 33.67961751290*t);
+ uranus_x_0+= 0.00016587870 * cos( 4.86920309163 + 108.46121608020*t);
+ uranus_x_0+= 0.00015171194 * cos( 2.88415453399 + 41.10198105440*t);
+ uranus_x_0+= 0.00011245800 * cos( 6.11597016146 + 71.60020482960*t);
+ uranus_x_0+= 0.00013948521 * cos( 6.27545694160 + 221.37585028530*t);
+ uranus_x_0+= 0.00010798350 * cos( 1.70031857078 + 77.96299230500*t);
+ uranus_x_0+= 0.00013593955 * cos( 2.55407820633 + 87.31177153950*t);
+ uranus_x_0+= 0.00011997848 * cos( 0.94875212305 + 1059.38193018920*t);
+ uranus_x_0+= 0.00012884351 * cos( 5.08737999470 + 145.10977900970*t);
+ uranus_x_0+= 0.00012394786 * cos( 6.21892878850 + 72.33391801250*t);
+ uranus_x_0+= 0.00012253318 * cos( 0.19452856525 + 36.64856292950*t);
+ uranus_x_0+= 0.00011538642 * cos( 1.77241794539 + 77.22927912210*t);
+
+ double uranus_x_1=0.0;
+ uranus_x_1+= 0.00739730021 * cos( 6.01067825116 + 149.56319713460*t);
+ uranus_x_1+= 0.00526878306 * cos( 3.14159265359 + 0.00000000000*t);
+ uranus_x_1+= 0.00239840801 * cos( 5.33657762707 + 73.29712585900*t);
+ uranus_x_1+= 0.00229676787 * cos( 2.48204455775 + 76.26607127560*t);
+ uranus_x_1+= 0.00111045158 * cos( 5.57157235960 + 11.04570026390*t);
+ uranus_x_1+= 0.00096352822 * cos( 0.35070389084 + 63.73589830340*t);
+ uranus_x_1+= 0.00081511870 * cos( 1.21058618039 + 85.82729883120*t);
+ uranus_x_1+= 0.00045687564 * cos( 2.29216583843 + 138.51749687070*t);
+ uranus_x_1+= 0.00051382501 * cos( 2.18935125260 + 224.34479570190*t);
+ uranus_x_1+= 0.00038844330 * cos( 0.30724575951 + 70.84944530420*t);
+ uranus_x_1+= 0.00036158493 * cos( 1.23634798757 + 78.71375183040*t);
+ uranus_x_1+= 0.00032333094 * cos( 5.06666556704 + 74.78159856730*t);
+ uranus_x_1+= 0.00021685656 * cos( 4.93710968392 + 151.04766984290*t);
+ uranus_x_1+= 0.00019441970 * cos( 1.30617490304 + 77.75054398390*t);
+ uranus_x_1+= 0.00017376241 * cos( 0.24607221230 + 71.81265315070*t);
+ uranus_x_1+= 0.00015211071 * cos( 5.53141633140 + 3.93215326310*t);
+ uranus_x_1=uranus_x_1 * t;
+
+ double uranus_x_2=0.0;
+ uranus_x_2+= 0.00016015732 * cos( 3.83700026619 + 74.78159856730*t);
+ uranus_x_2+= 0.00010915299 * cos( 3.02987776270 + 149.56319713460*t);
+ uranus_x_2=uranus_x_2 * t * t;
+
+ return uranus_x_0+uranus_x_1+uranus_x_2;
+}
+
+double vsop87a_micro_uranus_y(double t){
+ double uranus_y_0=0.0;
+ uranus_y_0+= 19.16518231584 * cos( 3.91045677002 + 74.78159856730*t);
+ uranus_y_0+= 0.44390465203 * cos( 0.08884111329 + 149.56319713460*t);
+ uranus_y_0+= 0.16256125476 * cos( 3.14159265359 + 0.00000000000*t);
+ uranus_y_0+= 0.14755940186 * cos( 1.85423280679 + 73.29712585900*t);
+ uranus_y_0+= 0.14123958128 * cos( 2.82486076549 + 76.26607127560*t);
+ uranus_y_0+= 0.06250078231 * cos( 3.56960243857 + 1.48447270830*t);
+ uranus_y_0+= 0.01542668264 * cos( 2.55040539213 + 224.34479570190*t);
+ uranus_y_0+= 0.01442356575 * cos( 1.08004542712 + 148.07872442630*t);
+ uranus_y_0+= 0.00938975501 * cos( 0.09275714761 + 11.04570026390*t);
+ uranus_y_0+= 0.00650331846 * cos( 2.76142680222 + 63.73589830340*t);
+ uranus_y_0+= 0.00657343120 * cos( 5.28830704469 + 151.04766984290*t);
+ uranus_y_0+= 0.00621326770 * cos( 1.48795811387 + 77.75054398390*t);
+ uranus_y_0+= 0.00541961958 * cos( 3.24476486661 + 71.81265315070*t);
+ uranus_y_0+= 0.00547472694 * cos( 2.06037924573 + 85.82729883120*t);
+ uranus_y_0+= 0.00459589120 * cos( 2.33745536070 + 2.96894541660*t);
+ uranus_y_0+= 0.00495936105 * cos( 5.31205753740 + 529.69096509460*t);
+ uranus_y_0+= 0.00387922853 * cos( 4.62026923885 + 138.51749687070*t);
+ uranus_y_0+= 0.00268363417 * cos( 5.68085299020 + 213.29909543800*t);
+ uranus_y_0+= 0.00216239629 * cos( 3.73800767580 + 38.13303563780*t);
+ uranus_y_0+= 0.00144032475 * cos( 0.75015700920 + 70.84944530420*t);
+ uranus_y_0+= 0.00135290820 * cos( 3.93970260616 + 78.71375183040*t);
+ uranus_y_0+= 0.00119670613 * cos( 2.53058783780 + 39.61750834610*t);
+ uranus_y_0+= 0.00124868545 * cos( 0.94315917319 + 111.43016149680*t);
+ uranus_y_0+= 0.00111204860 * cos( 3.55163219419 + 222.86032299360*t);
+ uranus_y_0+= 0.00104507929 * cos( 2.33345675603 + 146.59425171800*t);
+ uranus_y_0+= 0.00108584454 * cos( 6.02234848388 + 35.16409022120*t);
+ uranus_y_0+= 0.00063573747 * cos( 5.01204967920 + 299.12639426920*t);
+ uranus_y_0+= 0.00053289771 * cos( 2.38437587876 + 3.93215326310*t);
+ uranus_y_0+= 0.00063774261 * cos( 2.15607602904 + 109.94568878850*t);
+ uranus_y_0+= 0.00039218598 * cos( 1.11841109252 + 4.45341812490*t);
+ uranus_y_0+= 0.00034205426 * cos( 0.92405922576 + 65.22037101170*t);
+ uranus_y_0+= 0.00034334377 * cos( 1.46696169843 + 225.82926841020*t);
+ uranus_y_0+= 0.00034538316 * cos( 0.27613780697 + 79.23501669220*t);
+ uranus_y_0+= 0.00039256771 * cos( 5.75956853703 + 202.25339517410*t);
+ uranus_y_0+= 0.00026157754 * cos( 3.74097610798 + 9.56122755560*t);
+ uranus_y_0+= 0.00023427328 * cos( 2.52740125551 + 145.63104387150*t);
+ uranus_y_0+= 0.00022933138 * cos( 3.94455540350 + 84.34282612290*t);
+ uranus_y_0+= 0.00031816303 * cos( 3.96860170484 + 152.53214255120*t);
+ uranus_y_0+= 0.00025237176 * cos( 4.45141413666 + 70.32818044240*t);
+ uranus_y_0+= 0.00028372491 * cos( 4.44714627097 + 184.72728735580*t);
+ uranus_y_0+= 0.00026652859 * cos( 4.53944395347 + 160.60889739850*t);
+ uranus_y_0+= 0.00019666208 * cos( 3.96350065335 + 74.66972398270*t);
+ uranus_y_0+= 0.00019643845 * cos( 0.71577796385 + 74.89347315190*t);
+ uranus_y_0+= 0.00019838981 * cos( 5.29113397354 + 12.53017297220*t);
+ uranus_y_0+= 0.00021523908 * cos( 4.93565132068 + 36.64856292950*t);
+ uranus_y_0+= 0.00015537967 * cos( 1.87863275460 + 52.69019803950*t);
+ uranus_y_0+= 0.00020115100 * cos( 3.45473780762 + 127.47179660680*t);
+ uranus_y_0+= 0.00020051641 * cos( 2.90386352937 + 22.09140052780*t);
+ uranus_y_0+= 0.00019901477 * cos( 6.11075402434 + 112.91463420510*t);
+ uranus_y_0+= 0.00018126776 * cos( 0.98478853787 + 33.67961751290*t);
+ uranus_y_0+= 0.00015174962 * cos( 1.31314034959 + 41.10198105440*t);
+ uranus_y_0+= 0.00011239020 * cos( 4.54508334011 + 71.60020482960*t);
+ uranus_y_0+= 0.00013948849 * cos( 4.70474945682 + 221.37585028530*t);
+ uranus_y_0+= 0.00010819728 * cos( 0.12807029856 + 77.96299230500*t);
+ uranus_y_0+= 0.00013589665 * cos( 0.98313719930 + 87.31177153950*t);
+ uranus_y_0+= 0.00011996772 * cos( 5.66129275335 + 1059.38193018920*t);
+ uranus_y_0+= 0.00012407787 * cos( 4.64945783340 + 72.33391801250*t);
+ uranus_y_0+= 0.00011531140 * cos( 0.20190074645 + 77.22927912210*t);
+
+ double uranus_y_1=0.0;
+ uranus_y_1+= 0.02157896385 * cos( 0.00000000000 + 0.00000000000*t);
+ uranus_y_1+= 0.00739227349 * cos( 4.43963890935 + 149.56319713460*t);
+ uranus_y_1+= 0.00238545685 * cos( 3.76882493145 + 73.29712585900*t);
+ uranus_y_1+= 0.00229396424 * cos( 0.91090183978 + 76.26607127560*t);
+ uranus_y_1+= 0.00110137111 * cos( 4.00844441616 + 11.04570026390*t);
+ uranus_y_1+= 0.00094979054 * cos( 5.07141537066 + 63.73589830340*t);
+ uranus_y_1+= 0.00081474163 * cos( 5.92275367106 + 85.82729883120*t);
+ uranus_y_1+= 0.00045457174 * cos( 0.73292241207 + 138.51749687070*t);
+ uranus_y_1+= 0.00051366974 * cos( 0.61844114994 + 224.34479570190*t);
+ uranus_y_1+= 0.00038296005 * cos( 5.01873578671 + 70.84944530420*t);
+ uranus_y_1+= 0.00036146116 * cos( 5.94859452787 + 78.71375183040*t);
+ uranus_y_1+= 0.00032420558 * cos( 4.32617271732 + 74.78159856730*t);
+ uranus_y_1+= 0.00021673269 * cos( 3.36607263522 + 151.04766984290*t);
+ uranus_y_1+= 0.00019425087 * cos( 6.01842187783 + 77.75054398390*t);
+ uranus_y_1+= 0.00017393206 * cos( 4.96098895488 + 71.81265315070*t);
+ uranus_y_1+= 0.00014991169 * cos( 3.97176856758 + 3.93215326310*t);
+ uranus_y_1=uranus_y_1 * t;
+
+ double uranus_y_2=0.0;
+ uranus_y_2+= 0.00034812647 * cos( 3.14159265359 + 0.00000000000*t);
+ uranus_y_2+= 0.00016589194 * cos( 2.29556740620 + 74.78159856730*t);
+ uranus_y_2+= 0.00010905147 * cos( 1.45737963668 + 149.56319713460*t);
+ uranus_y_2=uranus_y_2 * t * t;
+
+ return uranus_y_0+uranus_y_1+uranus_y_2;
+}
+
+double vsop87a_micro_uranus_z(double t){
+ double uranus_z_0=0.0;
+ uranus_z_0+= 0.25878127698 * cos( 2.61861272578 + 74.78159856730*t);
+ uranus_z_0+= 0.01774318778 * cos( 3.14159265359 + 0.00000000000*t);
+ uranus_z_0+= 0.00599316131 * cos( 5.08119500585 + 149.56319713460*t);
+ uranus_z_0+= 0.00190281890 * cos( 1.61643841193 + 76.26607127560*t);
+ uranus_z_0+= 0.00190881685 * cos( 0.57869575952 + 73.29712585900*t);
+ uranus_z_0+= 0.00084626761 * cos( 2.26030150166 + 1.48447270830*t);
+ uranus_z_0+= 0.00030734257 * cos( 0.23571721555 + 63.73589830340*t);
+ uranus_z_0+= 0.00020842052 * cos( 1.26054208091 + 224.34479570190*t);
+ uranus_z_0+= 0.00019734273 * cos( 6.04314677688 + 148.07872442630*t);
+ uranus_z_0+= 0.00012537530 * cos( 5.17169051466 + 11.04570026390*t);
+ uranus_z_0+= 0.00014582864 * cos( 6.14852037212 + 71.81265315070*t);
+ uranus_z_0+= 0.00010407529 * cos( 3.65320417038 + 213.29909543800*t);
+ uranus_z_0+= 0.00011261541 * cos( 3.55973769686 + 529.69096509460*t);
+
+ double uranus_z_1=0.0;
+ uranus_z_1+= 0.00655916626 * cos( 0.01271947660 + 74.78159856730*t);
+ uranus_z_1+= 0.00049648951 * cos( 0.00000000000 + 0.00000000000*t);
+ uranus_z_1+= 0.00023874178 * cos( 2.73870491220 + 149.56319713460*t);
+ uranus_z_1=uranus_z_1 * t;
+
+ double uranus_z_2=0.0;
+ uranus_z_2+= 0.00014697858 * cos( 1.75149165003 + 74.78159856730*t);
+ uranus_z_2=uranus_z_2 * t * t;
+
+ return uranus_z_0+uranus_z_1+uranus_z_2;
+}
+
+double vsop87a_micro_venus_x(double t){
+ double venus_x_0=0.0;
+ venus_x_0+= 0.72211281391 * cos( 3.17575836361 + 10213.28554621100*t);
+ venus_x_0+= 0.00486448018 * cos( 0.00000000000 + 0.00000000000*t);
+ venus_x_0+= 0.00244500474 * cos( 4.05566613861 + 20426.57109242200*t);
+
+ double venus_x_1=0.0;
+ venus_x_1+= 0.00033862636 * cos( 3.14159265359 + 0.00000000000*t);
+ venus_x_1+= 0.00017234992 * cos( 0.92721124604 + 20426.57109242200*t);
+ venus_x_1=venus_x_1 * t;
+
+ return venus_x_0+venus_x_1;
+}
+
+double vsop87a_micro_venus_y(double t){
+ double venus_y_0=0.0;
+ venus_y_0+= 0.72324820731 * cos( 1.60573808356 + 10213.28554621100*t);
+ venus_y_0+= 0.00549506273 * cos( 3.14159265359 + 0.00000000000*t);
+ venus_y_0+= 0.00244884790 * cos( 2.48564954004 + 20426.57109242200*t);
+
+ double venus_y_1=0.0;
+ venus_y_1+= 0.00039231430 * cos( 0.00000000000 + 0.00000000000*t);
+ venus_y_1+= 0.00017282326 * cos( 5.63824735900 + 20426.57109242200*t);
+ venus_y_1=venus_y_1 * t;
+
+ return venus_y_0+venus_y_1;
+}
+
+double vsop87a_micro_venus_z(double t){
+ double venus_z_0=0.0;
+ venus_z_0+= 0.04282990302 * cos( 0.26703856476 + 10213.28554621100*t);
+ venus_z_0+= 0.00035588343 * cos( 3.14159265359 + 0.00000000000*t);
+ venus_z_0+= 0.00014501879 * cos( 1.14696911390 + 20426.57109242200*t);
+
+ double venus_z_1=0.0;
+ venus_z_1+= 0.00208096402 * cos( 1.88967278742 + 10213.28554621100*t);
+ venus_z_1=venus_z_1 * t;
+
+ return venus_z_0+venus_z_1;
+}
+
|