excel绶和曲线计算公式
文字 U,?_[x2LF  
1.应用程序的目标 _u_mt_*;U=  
E>t5/^c)*w  
计算最为复杂的诗路中线逐点坐标和切线方位角，既中桩的x值、y值。excel的主要目标就是计算公路中线的中桩参数。 osS?SuQTE  
~_((
_'1+  
2．源程序 R_!mFMw__"  
k E^%w_?C  
l1 f：n：g：r：u：q：j：k起算要素 _o5NV4=__  

f_,__Z* o  
l2 defm 4 扩大内存 _4CUzp.S`h  
Fx6c*KNX3  
l3 m=i/2-i^3/240/r^2 m为加设缓和曲线后使切线增长的距离 _G?p !*7_N  
9_/?_@2_  
l4 p=i^2/24/r-i^4/2688/r^3 p为加设缓和曲线，圆曲线相对于切线的内移量 PV_[ Bqt  
<_'{* 6f@n  
l5 e=（r+p）/cos(n/2)-r e外矢距在excel中角度默认为弧度。 u_q.!{3)8  
Wu}84W"!.V  
l6 l=πrn/180+i l为曲线长含缓和段 "s$$_M\)_T  
r _|H_ 1Yy  
l7 t=m+（r+p）tan（n/2）切线长 _-a=RCzX]  
_`(_2Y%L(r  
l8 a=q-t：b=a+i：d=a+l：c=d-i zh：hy：hz：yh里程桩号 ,Y) 7M3I__  
z_s=[C+Z\  
l9  rec（t，f+180） zh点坐标增量计算 x6q_Q Y<_>  
H.Q648A"PF  
l10 z[1]=v+j：z[2]=w+k zh点坐标（v，w坐标增量，计算机内部运算） __bjO?k54I  
iImy"_$yX{
 
l11 rec（t，f+gn） hz点坐标增量计算 _
O_s r_HA  
_p.ks _jD  
l12 z[3]=v+j：z[4]=w+k hz点坐标 +~7_x+_6_E  
)` ^_/Dj;_  
lbi θ ,SF>_$ _.  
%_7_S{ _ g  
l14 {h，s，e} 待点要素 r+W_;_}nyf  
cHAq[Ebp2!  
l15 h<a＝＞goto 1 第一段直线上任一点坐标计算 8_=-/_0y9,  
:5#iV_a#_<  
l16 ≠＞h<b＝＞goto 2 第一段缓和曲线上任一点坐标计算 q&nE_odv>+  
K&{ruHoKB_  
l17 ≠＞h<c＝＞goto 3 圆曲线上任一点坐标计算 _ [KW9J}]  
\_!Wph5w_A
 
l18 ≠＞h<d＝＞goto 4 第二段缓和曲线上任一点坐标计算 TNF+yj-|X:  
O|mWQp^?q  
l19 ≠＞goto 5　第二段直线上任一点坐标计算
P_F___0lO  
(r-8*
)Qh8  
l20 lbi i 第一段直线坐标计算开始 D_}/ nE>*  
THcX.%To_T  
l21 rec（q-h，f+180） 中桩坐标增量计算 .F]"_%RK_[  
eEX*\1G_g  
l22 x=v+j：y=w+k 中桩坐标 >@.:_9_}Z  
I__o4Ss1="  
l23 x=x+v：“x”=◢ blmY___=/]  
cdv_0_:+[P  
l24 y=y+w：“y”=◢第一段直线上任一点坐标计算结果 *|S{_%z9_>  
c{\x< AwO  
l25 goto θ W__jF_#YW\  
wm_aj[_e,h  
l26 lbi 2第一段缓和曲线坐标计算开始 _o_(Q='kK  
Pa_Bq_v]_  
l27 z=h-a所求点到zh距离 _[_Owr_IL  
V w_5@)l*f  
l28 o=90z^2/r/i/π 所求点的方位角 _FSyeD_C^@  
V_6tUijz  
l29 x=z-z^5/40/r^2/i^2+z^9/3456/r^4/i^4
8_@BN
6  
9 p`|~^X  
l30 z=z^6/6/r/i-z^7/336/r^3/i^3+z^11/42440/r^5/i^5 第一段缓和曲线上任一点切线支距法坐
标计算 h_G>3y\!#_  
_KGsW*G4U=  
l31 lbi 6 第一段缓和曲线、圆曲线坐标换算计算 ]?j _[P=\_  
] KR\<_MJK  
l32 rec（x，f） 4P $_#m<;t  
zoO9N oUHW  
l33 x=z[1]+v：y=z[2]+w Vv_5#{+eT;  
2_#V w_&v  
l34 rec（x，f+90g） ]_ WP[hF  
WMX__k-?v4  
l35 x=x+v：y=y+w X4}_Lg2_ts  
)4/227b/(_  
l36 lbi 3 圆曲线上任一点切线支距法计算开始 ]>\!}_\R<  
K\_]I@UTwq  
l37 z=h-a-i/2 sV_Jwe__\!  
"v_nWq=E 2
 
l38 o=180z/r/π z所对中心角 /\&W_k_;u3  
V`M
_V_zA2  
l39 x=z-z^3/6/r^2+z^5/120/r^4+m MGzuQ_rl{H  
BXf.^s_{H_  
l40 z=z^2/2/r-z^4/r^3/24+z^6/720/r^5+p ,wvzY_7%_  
.g6DK_jy>_  
l41 goto 6 'F__6__65_  
5c~OG6C_Ox  
l42 lbi 4 第二段缓和曲线计算开始 !M_iH^w_P_  
_H_8}}R~ZO  
l43 z=d-h到hz点长度 _z!={d1u#T  
S}r_W=
_hO  
l44 o=90z^2/r/i/π z所对中心角 D* oJ _z3[  
_A_F_ q_ut  
l45 x=z-z^5/40/r^2/i^2+z^9/3456/r^4/i4 :W/__,V^x}  
I\0m_mdi73  
l46 z=z^3/6/r/i-z^7/336/r^3/i^3+z^11/42240/r^5/i^5 A@wRP8<GKj  
'M*_+HY\.0  
l47 rec（x，f+gn+180） _L_}&U%eD_  
_mySm:To_T  
l48 x=z[3]+v：y=z[4]+w ; b2)_WM:_  
Uv6#d":_f;  
l49 rec（x，f+gn+180-90g） \j_d_p__L1  
IkSzjXE__{  
l50 x=x+v：y=y+w B 0%kq7>g_  
OC'cP[$ __  
l51 x=x+v：“x”=◢ _p&F=<<_C_  
GA6)O_-^G_
 
l52 y=y+v：“y”=◢ AZ__5c^_c)  
T7YzO,b/ _  
l53 goto θ Dy__p'__a_  
0[0</"K%1m  
程序中符号说明 _|_|7_r'Q  
_t0_9,X_  
f-第一直线段正方位角（即后视切线上任一点（如zh）至交点的方位角； __}6eWdm!B  
_NF0}_ eom  
n—交点转向角（即偏角）；右偏角为正，左偏角为负，输入转向角时不得输入“+、-” lXm]1 *<  
_g{__l;v  
g—条件（左偏输入-1，右偏输入+1）； @8 @cp__m_  
b__Q0m=BzF  
r—半径； -CY?~W L&  

[F+_lVb

 excel线上教学课程
i—缓和曲线长度（m）（圆曲线i输入0）； |!I#____T  
"_
v jF_L9  
q—交点里程桩号； __)F]E[sga  
6P? __ __  
j—交点x坐标值； 5@__O__t@o  
.yQDW]q81G  
k—交点y坐标值； _)"__A+T&_  
bP__OehvK/  
h—所求点里程桩号； }_# _'_O b  
"_J%u_ !~  
x、y—所求点x、y坐标值。 DDc?G Y_:_  
&'c1"%*%8>  
3．基本思路 <.s[x~b_\`  
DP_ &,_jU6  
本文基本思路是在execel表格中建立若干个工作表，利用execl的逻辑循环语句（if，vlookup）与函数计算公式把这些工作表链接一起。本文利用蒲石河对外永久公路（k1+200-k2+100段）中桩及边桩计算做出execl实例（路宽10米，路基8米，路肩2米），下面以此展开叙述： _P8).__Qn_  
3i_R;(l_}_  
⑴、首先在电子表中建立9个工作表，分别命名为基本资料、jd7、jd8、jd9、jd10、jd11、jd12、jd13、成果。 _; R&wr _%  
s_ZFj_kfak  
⑵、a首先在基本资料工作表中输入如下表相对的数据。在电子表格中，三角函数计算以弧度为单位，所以角度值必须在单元格中必须利用pi()/180在角度与弧度的转换。在转向角输入时，向左转时在g对应的单元格中输入-1，向右转时在g对应的单元格中输入1（如表1）。方位角所对应的数据可以直接从设计提供的参数表输入，另外可以用几个单元格链接在一起计算，在表2中利用9个单元格链接起来计算。例如利用jd7与jd6所对应的xy值相减，
得出jd7所对行数据的△x△y值，在jd7所对应行的反切值1数据中输入公式=if(e4="","",if(f4=0,"",atan(g4/f4)))，在jd7所对应行的反切值2数据中输入公式=if(e4="","",if(g4=0,"",atan(f4/g4)))，在jd7所对应行的数据1中输入公式=if(and(f4>0,g4=0),0,(""))，在jd7所对应行的数据2中输入公式=if(and(g4>0,f4>0),h4,if(and(g4>0,f4=0),pi()/2,if(and(g4>0,f4<0),pi()/2-i4,(""))))，在jd7所对应行的数据3中输入公式if(and(f4<0,g4=0),pi(),(""))，在jd7所对应行的数据4输入公式=if(and(g4<0,f4<0),pi()+h4,if(and(f4=0,g4<0),1.5*pi(),if(and(g4<0,f4>0),1.5*pi()-i4,(""))))，在jd7所对应行数据方位角弧度中输入公式=if(and(f4>0,g4=0),j4,if(g4>0,k4,if(and(g4=0,f4<0),l4,if((g4<0),m4,("")))))。

版权声明：本站内容均来自互联网，仅供演示用，请勿用于商业和其他非法用途。如果侵犯了您的权益请与我们联系QQ:729038198，我们将在24小时内删除。