CASIOfx5800P计算器路线坐标高程计算程序.docVIP

PAGE PAGE 1 CASIO fx—5800P计算器 路线坐标计算程序（单个交点） 主程序名 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)→ 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 ：then Z[17] +Z[5]→Z[20]： Z[5] →L：Prog “HHXY”：Z[18] +I Cos( （F+ JH）)→Z[21]：Z[19] +I Sin( （F+ JH）)→Z[22]：（F+ WH）→Z[23] ： Else Z[17]→Z[20]：Z[18]→Z[21]：Z[19]→Z[22]：F→Z[23]：Ifend』 Z[17] + Z[16]→Z[24]：Z[2] +Z[14] Cos( （F+ Z[4]）)→Z[25]：Z[3] +Z[14] Sin( （F+ Z[4]）)→Z[26]：F+ Z[4] —180→C』 Prog “CALXY”』 子程序名 PQ S÷2—S3÷（240 R2 ）→Q：S2÷（24 R）—S4÷（2384 R3 ）→P： 28.6479S÷ R→B』 子程序名 HHXY L—L5÷(40S2 R2)+L9÷(3456 R4S4) →X： L3÷（6S R）—L7÷（336S3 R3）+L11÷（42240 R5S5）→Y： 28.6