Function ComputeOrthometricScaleAtLatitude(Latitude As AngularValue, Height As LinearValue) As Double
function ComputeOrthometricScaleAtLatitude(const Latitude: IAngularValue; const Height: ILinearValue): Double;
The ComputeOrthometricScaleAtLatitude computes the orthometric height scale at a specified latitude and ellipsoid height. The orthometric height scale is also known as the elevation factor. It represents a factor of elevation that can be used to calculate geodetic distances above or below the Ellipsoid. This method requires two arguments, the first of which gives the latitude at which the scale should be calculated, and the second of which gives the ellipsoid height at which the scale should be calculated. The scale is returned by this method as a double value.
Sub Ellipsoid_ComputeOrthometricScaleAtLatitude(ell As Ellipsoid)
Dim latitude As New AngularValue
latitude.InDegrees = 45
Dim height As New LinearValue
height.InMeters = 350
Dim orthScale As Double
orthScale = ell.ComputeOrthometricScaleAtLatitude(latitude, height)
End Sub
procedure Ellipsoid_ComputeOrthometricScaleAtLatitude(ell : Ellipsoid);
var
latitude : AngularValue;
height : LinearValue;
scale : double;
begin
latitude := CoAngularValue.Create;
latitude.InDegrees := 45;
height := CoLinearValue.Create;
height.InMeters := 350;
scale := ell.ComputeOrthometricScaleAtLatitude(latitude, height);
end;