The three coordinates ( r, θ, φ) of a point P are defined as: The spherical coordinates (2,45°,−60°) determine the point of space where those three surfaces intersect, shown as a black sphere. The zenith direction is vertical, and the zero-azimuth axis is highlighted in green. The red sphere shows the points with r = 2, the blue cone shows the points with inclination (or elevation) θ = 45°, and the yellow half- plane shows the points with azimuth φ = −60°. The concept of spherical coordinates can be extended to higher dimensional spaces and are then referred to as hyperspherical coordinates.
In geography and astronomy, the elevation and azimuth (or quantities very close to them) are called the latitude and longitude, respectively and the radial distance is replaced by an altitude (measured from a central point or from a sea level surface). The radial distance is also called the radius or radial coordinate, and the inclination may be called colatitude, zenith angle, normal angle, or polar angle. The elevation angle is often replaced by the inclination angle measured from the zenith, the direction perpendicular to the reference plane. In mathematics, a spherical coordinate system is a coordinate system for three-dimensional space where the position of a point is specified by three numbers: the radial distance from a fixed origin, the elevation angle of that point from a fixed plane, and the azimuth angle of its orthogonal projection on that plane, from a fixed direction on the same. If newPosition IsNot Nothing Then 'set the value of the project positionĬurrentLocation.A spherical coordinate system, with origin O and azimuth axis A. ' convert degrees to radian Dim eastWest As Double = 30.0 'East to West offset Dim northSouth As Double = 23.32 'North to South offset Dim elevation As Double = 22.14 'Elevation above ground level 'create a new project position Dim newPosition As ProjectPosition = (eastWest, northSouth, elevation, angle) 'Angle from True North Dim angle As Double = 30.0 * angleRatio 'get the project position Dim origin As New XYZ( 0, 0, 0)Ĭonst angleRatio As Double = Math.PI / 180 ' angle conversion factor Dim projectPosition As ProjectPosition = currentLocation.GetProjectPosition(origin) 'get and set the value of the projectlocation Public Function GetProjectLocation(document As .Document) As ProjectLocationĭim currentLocation As ProjectLocation = document.ActiveProjectLocation
0 kommentar(er)
