社體運協(xié)字〔2005〕74號
信鴿電子計時產(chǎn)品生產(chǎn)企業(yè):
為統(tǒng)一各企業(yè)計時產(chǎn)品空距計算數(shù)據(jù),減少不同GPS計算公式造成的空距差異,提高全國性和地區(qū)間信鴿比賽成績的準確性。經(jīng)研究決定,從現(xiàn)在起統(tǒng)一全國信鴿競翔比賽空距測量GPS計算公式,F(xiàn)將公式發(fā)給你們,請遵照執(zhí)行。
二○○五年八月三十一日
主題詞:信鴿協(xié)會 通知 抄送:各省、自治區(qū)、直轄市、火車頭、石油信鴿協(xié)會
附:GPS計算公式
*para u_x1,u_y1,u_x2,u_y2 priv u_dxy,u_x,u_y,u_mx1,u_mx2,u_my1,u_my2,tmpany if u_x1=0 .and. u_y1=0 u_xy=0 return u_xy endif
u_dxy=3.141592654 && 圓周率 tmpany=str((u_x1-int(u_x1))*10000,4) u_mx1=int(u_x1)+(val(left(tmpany,2))/60)+(val(right(tmpany,2))/3600)
tmpany=str((u_y1-int(u_y1))*10000,4) u_my1=int(u_y1)+(val(left(tmpany,2))/60)+(val(right(tmpany,2))/3600)
tmpany=str((u_x2-int(u_x2))*1000000,6) u_mx2=int(u_x2)+(val(left(tmpany,2))/60)+(val(substr(tmpany,3,2))/3600)+(val(right(tmpany,2))/360000)
tmpany=str((u_y2-int(u_y2))*1000000,6) u_my2=int(u_y2)+(val(left(tmpany,2))/60)+(val(substr(tmpany,3,2))/3600)+(val(right(tmpany,2))/360000)
u_x=(round((111.3200144*cos(dtor(u_my1))+111.3200144*cos(dtor(u_my2)))*(u_mx1-u_mx2)/2,7))**2 u_y=(round(110.9481458*(u_my1-u_my2),7))**2 *u_x=((12756.334*u_dxy/360*cos(dtor(u_my1))+12756.334*u_dxy/360*cos(dtor(u_my2)))*(u_mx1-u_mx2)/2)**2 *u_y=(12713.721*u_dxy/360*(u_my1-u_my2))**2
tmpany=round(sqrt(u_x+u_y)*1000,0) u_xy=iif(tmpany>=9999999,9999999,tmpany) *u_xy=u_xy/1000 replace sv with u_xy @ 13, 35 say u_xy return
點擊下載計算公式
咨詢電話:13701195878,010-83671088轉12 聯(lián) 系 人:張 龍 |