Earthquake: Earthquake Calculations

[StephenG1CMZ]

Thanks Gamo.
It's good to see that my results match that example.

If you wanted to solve such a problem with this program - rather than directly using the HP solve on the relevant equation, here is how I checked those results.:

Code:


EXPORT EX1906()
BEGIN
 LOCAL KNOWN:=8.25;
 LOCAL GREATER:=105;
 LOCAL SMALLER:=1/GREATER;
 LOCAL CANDIDATES;
 PRINT();
 //
 PRINT("SMALLER "+SMALLER);
 //CHOOSE POSSIBLE 
 CANDIDATES:={KNOWN,6.22,6.23};
 //LIST VALUES
 PRINT(CANDIDATES);
 PRINT(Amplitudes(CANDIDATES,1));
 //VISUALLY CHOOSE NUMBER IN LIST
 //CLOSE TO SMALLER AND VERIFY THAT IS
 //GREATER
 PRINT(Amplitudes(CANDIDATES,3));
 //RESELECT CANDIDATES AS NECESSARY

 //SIMILARLY 
 //PRINT(Energies({KNOWN,6.9},1));
 //PRINT(Energies({KNOWN,6.9},2));

END;

Actually that uses functions from my next version, which extend the comparison of two magnitudes to a list of values.