Synthesis of a method

Individuating the 3 periods (superior to 29 days and mod. 15) among the maximum seismic intensities, and also of the 1.st in comparison with the 4.th, I choose those with the maximum number of under-periods; we may verify that the resultant p is not always the maximum among they. In Pascal language the algorithm reduces notably in comparison with the electronic sheet, used to the data collection; but by the logical-analytical details Mathematica is better, like in the example where I uses the functions DateDifference[...] & PrimeOmega[...]. The agreements on the periods may be considered satisfactory, but for great Amplitudes of intensity it is necessary to consider, besides lunar Phases and solar Flares, hypothetic fields pseudo-gravitational -∂Ψ/∂r of till now neglected particles (planetary WIMPs).