casiofx-5800p放样程序(长链反算)

《casiofx-5800p放样程序(长链反算)》由会员上传分享，免费在线阅读，更多相关内容在工程资料-天天文库。

1、CASIOfx-5800P放样程序长链反算相对公路而言，城市道路的标段里程比较短，道路设计曲线亦少。rti于征地、拆迁等原因，有时城市道路设计亦不可避免的出现断链。编写测量程序，当整条线路只建立一个曲线要素数据库时，相当多数的反算程序反算不出长链后的重复桩号区域，这是由于反算程序计算方法的局限性所导致。编写后，经过四次修改、优化，本程序解决了长链的问题。程序适用于CASIOfx-5800P本程序的反算方法决定了计算速度，当线路弯道越少，反算速度越快；弯道越多，反算速度越慢。因此，本程序用于城市道路比较合适。正算主程序[KB-MN1]l-DimZ:?X:?YLbll:Fi

2、x3:?K:?B:K->Z[l]:90-*AProg“PQ-l”：ProgPQXYw:Z[1]<0=>-K->K:M-X->I:N-Y->J:Prog“C”:Cls:Locate1,1,"J二”：Locate4,1,J°:Locate1,2,T二”:Locate10,2,T:Locate1,3,“M二”：Locate6,3,M：Locate1,4,"N二”：Locate7,4,N>Z[l]-*K:Cls:Goto1反算主稈序[MN-KB1]7-*DimZLbl0:Fix3:?M:?N:M->Z[1]:N->Z[2]:0->K:Prog“PQ-1”:Prog"DJ-M”L

3、bll:TfZ[7]H0:ThenKWZ[7]=>-K—K:IfEnd:IfKWZ[6]:ThenIfAbs(B)W100:ThenCis:Locate1,1,"K二”:Locate9,2,K:Locate1,3,“B二”：Locate10,4,B/TfEnd:ElseZ[6]+l-K:Prog“PQT”:Prog“DJ-M”:Gotol:TfEnd:Goto0子程序[C]1+X10-9-*I:J+X10-9-*J:Pol(I,J:JV0=>J+360fJ子程序[PQXY]GH-Abs(G-L:F24-(24R-P:F一2-F人(3)4-(240R2-*Q:Q+(R+P

4、)Ltan(G4-2-T:兀RGLF180+F-1:IfKWH-T:ThenK-H->J:Goto1:IfEndIfKWH-T+F:ThenK-H+T-J:l->S:Goto2:IfEndIfKWH-T+I-F:ThenK-H+T->J:L->S:Goto3:IfEndTfKJ:C+G->C：-1->S:Goto2:TfEndIfKMH-T+I:ThenK-H-I+2T-*J:C+G->C:Goto1:1fEndLbll:U+Jcos(C->M:V町sin(CfN:C->0:Goto5Lbl2:C+90J2SLm(3iRFfO:

5、S(J-T-J八(5)一(40R2F2-W:L(J八(3)4-(6RF)-J"(7)4-(336R人(3)F人(3-L:Goto4Lbl3:180(J-0.5F)4-(nR->0:Q-T+Rsin(0-*W:L(P+R(1-cos(0->L:C+0S->0Lbl4:U+Wcos(C)-Lsin(C-*M:V+Wsin(C)+Lcos(C-*NLbl5:0+A-L:M+Bcos(L-M:N+Bsin(L-N子程序[DJ-M]S~Z[7]:90->A:Z~Z[6]:G4-Abs(G->E:F24-(24R-*P:F-r2-F"(3)4-(240R2->Q:Q+(R+P)Et

6、an(G-r2->T:兀RGE—180+F-Z[5]:H-T+F->K:0->B:Prog“PQXY”:M->Z[3]:N->Z[4]:H-T+F+7->K:ER->B:Prog“PQXY”:Abs(G)-180F4-(nR—L:Z[3]-M—I：Z[4]-N->J:Prog“C”:J->A:Z[l]-M->I:Z[2]-N->J:Prog“C”：I-*S:A-JfJ:JW0=>J+360->J:E=-l=>360-J->J:IfJ<180:ThenC+180-*P:H-T->Q:-1->0:Goto3:ElseIfJW360-L:ThenC+G-P:P<0=>P+36

7、0-*P:H-T+Z[5]-*Q:1-0:Goto3:ElseH-T+F+nR4-180(360-J-*K:10"(-9)+E(R-S-B:IfEnd:Goto1:IfEndLbl3:RF->A:cos(P->C:sin(P-F:U+CT-D:V+FT-W:Z[1]-D->U:Z[2]-W->V:-CU-VF->M:UF-CV^B:IfMW0:ThenQ-0M->K:0=1=>-B^B:Gotol:TfEnd:TfE=0:Then-B-*L:ElseB-*L:IfEnd:IfA=0:ThenQ-OM-*K:0=1=:Gotol:IfEnd