Solpage

[munair]

Almost 9 years ago this thread was locked (for good reason):
https://forum.lazarus.freepascal.org/index.php/topic,38501.30.html

But I would like to add an update, which is nice to know for the Lazarus community and significant for the scientific community.

Solpage is 100% developed with Lazarus and runs on Linux (GTK) and Windows. It started out as a small project in 2016, but has grown into a 22k+ lines app with many features added based on long-time observational research, most notably SSGI and a statistics computation module:
https://ssgeos.org/solpage.htm
https://ssgeos.org/ssgi.htm

What it did to the scientific community

In response to the claims made based on Solpage's computations, in 2023 a team of 5 Moroccan scientists began their own research. Their peer-reviewed paper was published in 2024 and mentioned the Solpage developer by name (full payed PDF version). Conclusion (quote):  "The results obtained from RFR and ANN prove the partial influence of planets positions on sesimic activity on the earth."
https://www.sciencedirect.com/science/article/abs/pii/S0264370724000401

In addition to the peer-reviewed paper, SSGEOS published their own stats on Github based on a 24 years dataset covering extremely dense and rare planetary conjunction clusters: Result: an extremely low P-value, rejecting the null hypothesis: https://github.com/ssgeos/conjuntclust6p-2000-2024. This kind of research has never been done before, but the conclusion has been independently confirmed by the Moroccan paper.

I would like to add a relevant comparison, demonstrating that development in science is not gradual, but goes with ups and downs (quiet times confidently using existing models, followed by crises leading to fundamental paradigm shifts). In 1912 Alfred Wegener proposed the theory of continental drift - that Earth's upper mantle consists of shifting tectonic plates. He was ridiculed, laughed at and heavily criticized because his idea stood far away from any leading scientific consensus at the time. It took more than 50 years for the scientific community to catch up and confirm that Wegener had been right all along.

Based on Solpage's computations and the results that continue to be published, next to peer-reviewed research, there's no doubt in my mind that eventually mainstream science will confirm the significant influence of the planets and the Moon on seismic activity, especially stronger earthquakes.

While Solpage could have been developed with Delphi or other tools, Lazarus was the first choice for obvious reasons.

[Thaddy]

This is the right place and you reference the discussion, so just leave it here...At least this is now FPC related 

[munair]

I forgot to add a link to the peer-reviewed paper on sciencedirect.com, so I updated my first post.

[munair]

With (Free) Pascal it's relatively easy to implement the ELP MPP02 theory to accurately (above centimeters) compute the position of the Moon, even hundreds of years in the past or future. Once implemented, it's easy to get the spherical coordinates (longitude, latitude and distance) for any time:

Code: Pascal  [Select][+][-]

1. procedure TMoon.ElpMpp02(var sc: TSpherical; var t: TTime);
2. var
3.   X, Y, Z: double;
4.   cc: TCartesian;
5. begin
6.   // Get position (km, mean ecliptic J2000)
7.   GetX2000(t.T2000, ElpGlobalParam, ElpGlobalCoefs, X, Y, Z);
8.  
9.   // cartesian coordinates
10.   cc.X := X;
11.   cc.Y := Y;
12.   cc.Z := Z;
13.  
14.   // convert to spherical
15.   Spherical(cc, sc)
16. end;

I recently implemented this, which allowed me to do some interesting stats on the lunar cycle and debunk some wild claims in the process. 
https://github.com/ssgeos/great-earthquakes-lunar-phase-statistics

If you'd like to know more about ELP MPP02:
https://www.aanda.org/articles/aa/abs/2003/23/aa3101/aa3101.html

[Roland57]

I did read the description of the software. It sounds very interesting.

If I understand well, it's a private software? Since I see nowhere a link to download the sources or a binary.

[munair]

Yes, we keep it in-house for the time being.

[Roland57]

Idea: Publishing a demo with some features disabled.