精品文档---下载后可任意编辑路线坐标计算程序（单个交点）主程序名 CALXY （计算中桩、边桩坐标）Lbl 1：“ZZ”? →Z[27] ：“D(-+m)”? →D：If D≠0 ：Then “(DMS)”? →V∠：Ifend』If Z[27]≤Z[17]：Then Z[18]+ (Z[27] —Z[17]) Cos( F)+D Cos(F+V)：“X=”：Ans▲Z[19]+ (Z[27] —Z[17]) Sin( F )+D Sin(F+V)：“Y=”：Ans▲：Ifend』If Z[27]＞Z[17] And Z[27]≤Z[20]：Then Z[27] —Z[17] →L：Prog “HHXY”：Z[18] +I Cos(F+ JH）+D Cos(F+WH+V)：“X=”：Ans▲ ：Z[19] +I Sin(F+ JH）+D Sin(F+WH+V)：“Y=”：Ans▲：Ifend』 If Z[27]＞Z[20] And Z[27]≤Z[24] —Z[6]：Then Z[27] —Z[20] →L：Prog “YUXY”：Z[21] +I Cos(Z[23]+ JH）+D Cos(Z[23]+WH+V)：“X=”：Ans▲ ：Z[22] +I Sin(Z[23]+ JH）+D Sin(Z[23]+WH+V)：“Y=”：Ans▲：Ifend』If Z[27]＞Z[24] —Z[6] And Z[27]≤Z[24]：Then Z[24] —Z[27] →L：Prog “HHXY”：Z[25] +I Cos(C— JH）—D Cos(C—WH+V)：“X=”：Ans▲ ：Z[26] +I Sin(C—JH）—D Sin(C—WH+V)：“Y=”：Ans▲：Ifend』If Z[27] ＞Z[24]：Then Z[25] —(Z[27] —Z[24]) Cos(C )—D Cos(C+V)：“X=”：Ans▲Z[26] — (Z[27] —Z[24]) Sin(C—D Sin(C+V)：“Y=”：Ans▲：Ifend』Goto 1子程序名 JD （输入曲线参数，计算曲线要素）30→Dim Z：Fix 5：“JD”? →Z[1] ：“XJD”? →Z[2] ：“YJD”? →Z[3]：“F0(DMS)”? →F：“A（-+ DMS）”？→Z[4]：“R”? →R：“LH1”? →Z[5]：“LH2”? →Z[6]：√￣(Z[4]2)→A：Int(Z[4] ÷A)→H』Z[5] →S：Prog “PQ”：Q →Z[7]：P→Z[8]：B→Z[9]：R→S：Prog “PQ”：Q →Z[10]：P→Z[11] ：B →Z[12] 』（R+ Z[8]）Tan(A÷2)+ Z[7] —(Z[8]—Z[11])÷Sin(A)→Z[13] ：“T1=”：Ans▲（R+ Z[11]）Tan(A÷2)+ Z[10]—(Z[8]—Z[11])÷Sin(A)→Z[14] ：“T2=”：Ans▲』√￣((Z[13]—Z[7])2+( R+ Z[8])2) —R→Z[15]：“E=”：Ans▲R(A— Z[9]— Z[12])÷57.2958+ Z[5] + Z[6] →Z[16]：“L=”：Ans▲』Z[1] — Z[13]→Z[17]：Z[2] —Z[13]Cos(F)→Z[18]：Z[3] —Z[13]Sin(F)→Z[19]：If Z[5]＞0 ：thenZ[17] +Z[5]→Z[20]： Z[5]→L：Prog “HHXY”：Z[18]+I Cos( （F+ JH）)→Z[21]：Z[19] +I Sin( （...
