//
// call SpaceVectorRAD(x,y,z,dist,xRadians,hRadians)
// call SpaceVectorDEG(x,y,z,dist,xDEG,hDEG)
// 计算以坐标 x,y,z为中心, 距离dist, 方向xDEG, 倾斜角hDEG 的点的坐标
// 方向按WAR3里的方向, 倾斜角以水平面为0度
// 使用以下三个变量作为计算后的值
// spaceVector_x
// spaceVector_y
// spaceVector_z
globals
    real spaceVector_x=0.
    real spaceVector_y=0.
    real spaceVector_z=0.
endglobals
function SpaceVectorRAD takes real x,real y,real z,real dist,real xRadians,real hRadians returns nothing
    set spaceVector_z=dist*Cos(hRadians)
    set spaceVector_x=x+spaceVector_z*Cos(xRadians)
    set spaceVector_y=y+spaceVector_z*Sin(xRadians)
    set spaceVector_z=z+dist*Sin(hRadians)
endfunction
function SpaceVectorDEG takes real x,real y,real z,real dist,real xDEG,real hDEG returns nothing
    set xDEG=xDEG*bj_DEGTORAD
    set hDEG=hDEG*bj_DEGTORAD
    set spaceVector_z=dist*Cos(hDEG)
    set spaceVector_x=x+spaceVector_z*Cos(xDEG)
    set spaceVector_y=y+spaceVector_z*Sin(xDEG)
    set spaceVector_z=z+dist*Sin(hDEG)
endfunction