Guest guest Posted November 19, 2004 Report Share Posted November 19, 2004 Hello, please find attached an Excel-spreadsheet related to Louise McWhirter's theory of the north node's influence on the US financial market. Run it from the folder that also has the swedll32.dll in it. The very special thing about this spreadsheet is not so much the visualization of Ms McWhirter's proposition, but the longitude EPHEMERIS of the north node GENERATED WITHIN EXCEL from any given starting date: If you change the values in the beige and red framed cells on the DATA-page of the spreadsheet, you will note that everything is dynamic. The spreadsheet calculates and charts the position of the north node according to the tropical coordinate system AND according to the sidereal. Go to the DATA page. Mark the cells B27 to K27 with your cursor and drag down this marked block within line 27 to line 8414. Now you machine will start calculating for a moment and then show you the result: a complete 22 year ephemeris for the North Node. You can do this for any time span between 5401 BC (jul. calendar) and 5399 AD - not ad infinitum, but way beyond Excel's limits. How is this possible? The initial link between Excel and the Swiss Ephemeris [swedll.dll is an open source product developed by swisseph-owner] was written in Visual Basic by Sunil Subbakrishna. Based on this, Peter [aka bluesinvestor] extended the VBA modul mainly by including the geocentric and heliocentric coordinate system as well as declination and speed. This Swiss Ephemeris - VBA - Excel connection opens up complete new dimensions for charting and analyzing astronomical data in Excel. Therefore I am very thankful and indepted to the work and generous help of these gentlemen. The Swiss Ephemeris-dll computes the position of all the planets, the moon, the lunar nodes, the lunar apogees, the main asteroids, Chiron, Pholus, the fixed stars and several ”hypothetical” bodies. Most of the commercial astro-software available today is based on the Swiss Ephemeris-dll. The precision is very high. It is at least as accurate as the Astromical Almanac, the standard planetary and lunar tables astronomers refer to. Detailed information on the Swiss Ephemeris you will find @ http://www.astro.com/swisseph/?lang=e and http://www.astro.com/swisseph/swisseph.htm What I presented scratches only the surface of what was made possible by the fundamental work of Sunil and Peter. In fact, they did something revolutionary. Look at the VBA [by pressing Alt and F11] and you will notice, that with the same VBA module the topocentric, heliocentric and sidereal longitudes and declinations as well as speed can be calculated for all the planets and asteroids. E.g. one can calculate and chart easily and quickly any synodic planetary cycle in the above mentioned coordinate systems. The content of e.g. cell E13 is: =Planet_Location(YEAR($B13);MONTH($B13);DAY($B13);0;$K$6;$K$5;$K$7;0;11;$E$7) The location of the North Node in decimal degrees is calculated according to the date indicated in cell B13 and according to the coordinate system defined in cell E7. The north node is defined as 11 (second last term in the bracket). You can calculate the longitude of any other body by replacing 11 by one of the following values: SUN = 0 MOON = 1 MERCURY = 2 VENUS = 3 MARS = 4 JUPITER = 5 SATURN = 6 URANUS = 7 NEPTUNE = 8 PLUTO = 9 TRUE NODE = 11 EARTH = 14 Basically everything is calculated in decimal degrees. To convert these into zodiac degrees employ the =Outzdeg() command (like e.g. in column F). To convert decimal degrees in arc degrees (e.g. 143°23'50,2188) the command is =outdeg() To get declination change =Planet_Location(YEAR($B13);MONTH($B13);DAY($B13);0;$K$6;$K$5;$K$7;0;11;$E$7) to =Planet_declination(YEAR($B13);MONTH($B13);DAY($B13);0;$K$6;$K$5;$K$7;0;11;$E$7) If you are interested in speed write =Planet_speed(YEAR($B13);MONTH($B13);DAY($B13);0;$K$6;$K$5;$K$7;0;11;$E$7) I hope you will enjoy and get inspired by my humble presentation. Have a nice weekend Best Regards Georg The all-new My - Get yours free! Quote Link to comment Share on other sites More sharing options...
Guest guest Posted November 19, 2004 Report Share Posted November 19, 2004 Dear Georg, Thanks to you and Peter and Prem for extending my initial work (which was itself an extension of the groundbreaking work done by the folks at AstroDienst). This is indeed an excellent example of open source software at work. One request - would you mind reposting the file in .xls format? I an unable to pick up the specific compressed format you used, and I suspect others may have the same issue as well. Regards Sunil SAMVA , Georg Mayer <ylem_mayer> wrote: > Hello, > > please find attached an Excel-spreadsheet related to Louise McWhirter's theory of the north node's > influence on the US financial market. Run it from the folder that also has the swedll32.dll in it. > > > The very special thing about this spreadsheet is not so much the visualization of Ms McWhirter's > proposition, but the longitude EPHEMERIS of the north node GENERATED WITHIN EXCEL from any given > starting date: If you change the values in the beige and red framed cells on the DATA-page of the > spreadsheet, you will note that everything is dynamic. The spreadsheet calculates and charts the > position of the north node according to the tropical coordinate system AND according to the > sidereal. > > Go to the DATA page. Mark the cells B27 to K27 with your cursor and drag down this marked block > within line 27 to line 8414. Now you machine will start calculating for a moment and then show you > the result: a complete 22 year ephemeris for the North Node. You can do this for any time span > between 5401 BC (jul. calendar) and 5399 AD - not ad infinitum, but way beyond Excel's limits. > > How is this possible? The initial link between Excel and the Swiss Ephemeris [swedll.dll is an > open source product developed by swisseph-owner@a...] was written in Visual Basic by Sunil > Subbakrishna. Based on this, Peter [aka bluesinvestor] extended the VBA modul mainly by including > the geocentric and heliocentric coordinate system as well as declination and speed. This Swiss > Ephemeris - VBA - Excel connection opens up complete new dimensions for charting and analyzing > astronomical data in Excel. Therefore I am very thankful and indepted to the work and generous > help of these gentlemen. > > The Swiss Ephemeris-dll computes the position of all the planets, the moon, the lunar nodes, the > lunar apogees, the main asteroids, Chiron, Pholus, the fixed stars and several " hypothetical " > bodies. Most of the commercial astro-software available today is based on the Swiss Ephemeris-dll. > The precision is very high. It is at least as accurate as the Astromical Almanac, the standard > planetary and lunar tables astronomers refer to. Detailed information on the Swiss Ephemeris you > will find @ http://www.astro.com/swisseph/?lang=e and http://www.astro.com/swisseph/swisseph.htm > > What I presented scratches only the surface of what was made possible by the fundamental work of > Sunil and Peter. In fact, they did something revolutionary. Look at the VBA [by pressing Alt and > F11] and you will notice, that with the same VBA module the topocentric, heliocentric and sidereal > longitudes and declinations as well as speed can be calculated for all the planets and asteroids. > E.g. one can calculate and chart easily and quickly any synodic planetary cycle in the above > mentioned coordinate systems. > > The content of e.g. cell E13 is: > > =Planet_Location(YEAR($B13);MONTH($B13);DAY ($B13);0;$K$6;$K$5;$K$7;0;11;$E$7) > > The location of the North Node in decimal degrees is calculated according to the date indicated in > cell B13 and according to the coordinate system defined in cell E7. The north node is defined as > 11 (second last term in the bracket). You can calculate the longitude of any other body by > replacing 11 by one of the following values: > > SUN = 0 > MOON = 1 > MERCURY = 2 > VENUS = 3 > MARS = 4 > JUPITER = 5 > SATURN = 6 > URANUS = 7 > NEPTUNE = 8 > PLUTO = 9 > TRUE NODE = 11 > EARTH = 14 > > Basically everything is calculated in decimal degrees. To convert these into zodiac degrees employ > the > > =Outzdeg() > > command (like e.g. in column F). > > To convert decimal degrees in arc degrees (e.g. 143°23'50,2188) the command is > > =outdeg() > > To get declination change > > =Planet_Location(YEAR($B13);MONTH($B13);DAY ($B13);0;$K$6;$K$5;$K$7;0;11;$E$7) > > to > > =Planet_declination(YEAR($B13);MONTH($B13);DAY ($B13);0;$K$6;$K$5;$K$7;0;11;$E$7) > > If you are interested in speed write > > =Planet_speed(YEAR($B13);MONTH($B13);DAY ($B13);0;$K$6;$K$5;$K$7;0;11;$E$7) > > I hope you will enjoy and get inspired by my humble presentation. > > Have a nice weekend > > Best Regards > > Georg > > > > > > The all-new My - Get yours free! > Quote Link to comment Share on other sites More sharing options...
Nirmal Pandey Posted September 15, 2010 Report Share Posted September 15, 2010 Dear sir how can i download this excel file as this is not visible to me Nirmal Hello, please find attached an Excel-spreadsheet related to Louise McWhirter's theory of the north node's influence on the US financial market. Run it from the folder that also has the swedll32.dll in it. The very special thing about this spreadsheet is not so much the visualization of Ms McWhirter's proposition, but the longitude EPHEMERIS of the north node GENERATED WITHIN EXCEL from any given starting date: If you change the values in the beige and red framed cells on the DATA-page of the spreadsheet, you will note that everything is dynamic. The spreadsheet calculates and charts the position of the north node according to the tropical coordinate system AND according to the sidereal. Go to the DATA page. Mark the cells B27 to K27 with your cursor and drag down this marked block within line 27 to line 8414. Now you machine will start calculating for a moment and then show you the result: a complete 22 year ephemeris for the North Node. You can do this for any time span between 5401 BC (jul. calendar) and 5399 AD - not ad infinitum, but way beyond Excel's limits. How is this possible? The initial link between Excel and the Swiss Ephemeris [swedll.dll is an open source product developed by swisseph-owner] was written in Visual Basic by Sunil Subbakrishna. Based on this, Peter [aka bluesinvestor] extended the VBA modul mainly by including the geocentric and heliocentric coordinate system as well as declination and speed. This Swiss Ephemeris - VBA - Excel connection opens up complete new dimensions for charting and analyzing astronomical data in Excel. Therefore I am very thankful and indepted to the work and generous help of these gentlemen. The Swiss Ephemeris-dll computes the position of all the planets, the moon, the lunar nodes, the lunar apogees, the main asteroids, Chiron, Pholus, the fixed stars and several ”hypothetical” bodies. Most of the commercial astro-software available today is based on the Swiss Ephemeris-dll. The precision is very high. It is at least as accurate as the Astromical Almanac, the standard planetary and lunar tables astronomers refer to. Detailed information on the Swiss Ephemeris you will find @ Swiss Ephemeris - for 6000 years and more - Astrodienst and SWISS EPHEMERIS What I presented scratches only the surface of what was made possible by the fundamental work of Sunil and Peter. In fact, they did something revolutionary. Look at the VBA [by pressing Alt and F11] and you will notice, that with the same VBA module the topocentric, heliocentric and sidereal longitudes and declinations as well as speed can be calculated for all the planets and asteroids. E.g. one can calculate and chart easily and quickly any synodic planetary cycle in the above mentioned coordinate systems. The content of e.g. cell E13 is: =Planet_Location(YEAR($B13);MONTH($B13);DAY($B13);0;$K$6;$K$5;$K$7;0;11;$E$7) The location of the North Node in decimal degrees is calculated according to the date indicated in cell B13 and according to the coordinate system defined in cell E7. The north node is defined as 11 (second last term in the bracket). You can calculate the longitude of any other body by replacing 11 by one of the following values: SUN = 0 MOON = 1 MERCURY = 2 VENUS = 3 MARS = 4 JUPITER = 5 SATURN = 6 URANUS = 7 NEPTUNE = 8 PLUTO = 9 TRUE NODE = 11 EARTH = 14 Basically everything is calculated in decimal degrees. To convert these into zodiac degrees employ the =Outzdeg() command (like e.g. in column F). To convert decimal degrees in arc degrees (e.g. 143°23'50,2188) the command is =outdeg() To get declination change =Planet_Location(YEAR($B13);MONTH($B13);DAY($B13);0;$K$6;$K$5;$K$7;0;11;$E$7) to =Planet_declination(YEAR($B13);MONTH($B13);DAY($B13);0;$K$6;$K$5;$K$7;0;11;$E$7) If you are interested in speed write =Planet_speed(YEAR($B13);MONTH($B13);DAY($B13);0;$K$6;$K$5;$K$7;0;11;$E$7) I hope you will enjoy and get inspired by my humble presentation. Have a nice weekend Best Regards Georg The all-new My - Get yours free! Quote Link to comment Share on other sites More sharing options...
janschotten Posted October 23, 2010 Report Share Posted October 23, 2010 How do I find the excel sheet? Jan Hello, please find attached an Excel-spreadsheet related to Louise McWhirter's theory of the north node's influence on the US financial market. Run it from the folder that also has the swedll32.dll in it. The very special thing about this spreadsheet is not so much the visualization of Ms McWhirter's proposition, but the longitude EPHEMERIS of the north node GENERATED WITHIN EXCEL from any given starting date: If you change the values in the beige and red framed cells on the DATA-page of the spreadsheet, you will note that everything is dynamic. The spreadsheet calculates and charts the position of the north node according to the tropical coordinate system AND according to the sidereal. Go to the DATA page. Mark the cells B27 to K27 with your cursor and drag down this marked block within line 27 to line 8414. Now you machine will start calculating for a moment and then show you the result: a complete 22 year ephemeris for the North Node. You can do this for any time span between 5401 BC (jul. calendar) and 5399 AD - not ad infinitum, but way beyond Excel's limits. How is this possible? The initial link between Excel and the Swiss Ephemeris [swedll.dll is an open source product developed by swisseph-owner] was written in Visual Basic by Sunil Subbakrishna. Based on this, Peter [aka bluesinvestor] extended the VBA modul mainly by including the geocentric and heliocentric coordinate system as well as declination and speed. This Swiss Ephemeris - VBA - Excel connection opens up complete new dimensions for charting and analyzing astronomical data in Excel. Therefore I am very thankful and indepted to the work and generous help of these gentlemen. The Swiss Ephemeris-dll computes the position of all the planets, the moon, the lunar nodes, the lunar apogees, the main asteroids, Chiron, Pholus, the fixed stars and several ”hypothetical” bodies. Most of the commercial astro-software available today is based on the Swiss Ephemeris-dll. The precision is very high. It is at least as accurate as the Astromical Almanac, the standard planetary and lunar tables astronomers refer to. Detailed information on the Swiss Ephemeris you will find @ Swiss Ephemeris - for 6000 years and more - Astrodienst and SWISS EPHEMERIS What I presented scratches only the surface of what was made possible by the fundamental work of Sunil and Peter. In fact, they did something revolutionary. Look at the VBA [by pressing Alt and F11] and you will notice, that with the same VBA module the topocentric, heliocentric and sidereal longitudes and declinations as well as speed can be calculated for all the planets and asteroids. E.g. one can calculate and chart easily and quickly any synodic planetary cycle in the above mentioned coordinate systems. The content of e.g. cell E13 is: =Planet_Location(YEAR($B13);MONTH($B13);DAY($B13);0;$K$6;$K$5;$K$7;0;11;$E$7) The location of the North Node in decimal degrees is calculated according to the date indicated in cell B13 and according to the coordinate system defined in cell E7. The north node is defined as 11 (second last term in the bracket). You can calculate the longitude of any other body by replacing 11 by one of the following values: SUN = 0 MOON = 1 MERCURY = 2 VENUS = 3 MARS = 4 JUPITER = 5 SATURN = 6 URANUS = 7 NEPTUNE = 8 PLUTO = 9 TRUE NODE = 11 EARTH = 14 Basically everything is calculated in decimal degrees. To convert these into zodiac degrees employ the =Outzdeg() command (like e.g. in column F). To convert decimal degrees in arc degrees (e.g. 143°23'50,2188) the command is =outdeg() To get declination change =Planet_Location(YEAR($B13);MONTH($B13);DAY($B13);0;$K$6;$K$5;$K$7;0;11;$E$7) to =Planet_declination(YEAR($B13);MONTH($B13);DAY($B13);0;$K$6;$K$5;$K$7;0;11;$E$7) If you are interested in speed write =Planet_speed(YEAR($B13);MONTH($B13);DAY($B13);0;$K$6;$K$5;$K$7;0;11;$E$7) I hope you will enjoy and get inspired by my humble presentation. Have a nice weekend Best Regards Georg The all-new My - Get yours free! Quote Link to comment Share on other sites More sharing options...
RAJENDRA SHAH Posted January 16, 2011 Report Share Posted January 16, 2011 Thanks for the Superb analysis and knowledge about VBA -EXCEL - Swiss ephemaries . ' Can you pl send me the xls file at Quote Link to comment Share on other sites More sharing options...
Recommended Posts
Join the conversation
You are posting as a guest. If you have an account, sign in now to post with your account.
Note: Your post will require moderator approval before it will be visible.