fx-5800程序1_建筑土木_工程科技_专业资料

《fx-5800程序1_建筑土木_工程科技_专业资料》由会员上传分享，免费在线阅读，更多相关内容在工程资料-天天文库。

1、X—5800P公路中线、边桩程序、主程序ZBJS18->DimZ:“X0二”?K:“Y0二”?D:?A:?R:“Ls二”?L:180/(jiR)—Z[8]:0.5L-L3/(240R2)-Q:“T二”：(R+L2/(24R))tan(0.5A)+Q—TAZ[8]L/2->B:"0二”:A/Z[8]+L->0,(本行中o为字母)“E二”：(R+L2/(24R))/(Cos(0.5A))-R^EJ“JD二”?Z:“ZH二”:Z-T->Z[18]^“HY二”：Z[18]+L->Z[l]A“QZ二”:Z[18]+0.50->Z[9]/(本行中o为字母)“YH二”:

2、Z[18]+0-L->Z[2],(本行中o为字母)“HZ二”：Z[18]+0-Z[3]/(本行中o为字母)“P(l,2)二”?P:“X(JD)二”?U:“Y(JD)二LblO:“K二”?M:MWZ[18]：WZ[1]：

3、>Z[10]:IfP<2:ThenF+Z[8]G2/(6L)-C:F+BG2/L2-H：ElseF-Z[8]G2/(6L)-C:F-BG2/L2->H：GoTo3:IfendLbl2:M-Z[l]->G:R(l-Cos(B+Z[8]G))+L2/(24R)-W:V—(W2+(RSin(B+Z[8]G)+Q)2)fZ[10]:IfP<2:ThenF+tan1(W/(RSin(B+Z[8]G)+Q))―C:F+B+Z[8]G->H：ElseF-tan1(W/(RSin(B+Z[8]G)+Q))〜C:F-B-Z[8]GfH：IfendLbI3:“X二”:U+TC

4、os(F-180)+Z[10]Cos(C)->X:“Y二”:V+TSin(F-180)+Z[10]Sin(C)T:Prog“A”：LbI4:X->Z[6]:YfZ[7]:?S:“Z(X)二”:Z[6]+Scos(H-90)fX/“Z(Y)二”:Z[7]+SSin(H-90)T>Prog“A”:“Y(X)二”:Z[6]+SCos(H+90)fX/“Y(Y)二”:Z[7]+SSin(H+90)fY/Prog“A”:GoTo0:LbI5:Z[3]-M->G:(T-G+G5/(40R2L2))Sin(A)+(G3/(6RL)-G5/(336R3L))Cos(A)-

5、>Z[4]:T+(T-G+G5/(40R2L2))Cos(A)一(G3/(6RL)-G5/(336R3L))Sin(A)->Z[5]:V-(Z[4]2+Z[5]2)fZ[10]:IfP<2:ThenF+tan1(Z[4]/Z[5])-C:F+A-BG2/L2->H:ElseF-tan_1(Z[4]/Z[5])->C:F+A-BG2/L2->H:GoTo3:IfEndLbI6:Z-MfZ[10]:F+180->C:F-H:GoTo8:LbI7:T+M-Z[3]—Z110]:IfP<2:ThenF+A->C:ElseF-A->C:C—H:IfEnd:LbI8:

6、“X二”:U+Z[10]cos(C)f“Y二”:V+Z[10]Sin(C)->XAProg“A”：GoTo4子程序一：A070->J：Pol(X-K,Y-D):“D二”:IfZ[ll]/IfY-DM0Then“F二”:J->Z[12]J(本行中0为字母)Else“F二”：360+J—Z[12]AIfEnd子程序二(虚交交点座标计算)XJJDZB?N:N-1->N：“TA二”?A:0-0(字母)：0—Q：Lbl0：“AB二”?S：“TB二”?B:(S+0)SinB/Sin(A+B)+Q->Q：(S+0)SinA/Sin(A+B)->0：Else:A+B->A

7、：“ZJ-A二”：A,N-1->N：IfN=0:ThenGoTo1：GoTo0:IfendLbl1：“JDl(TA)二”?I:“T1二”:Q,“Z(JD)二”:I+QfZ>Z-I->K：?F:IfKM0:ThenF—H:ElseF+180->H:Ifend“(TA)X二”?C:“(TA)Y二”?D:“U二”：C+AbsKcosH->U/“V二”:D+Abs(KSinH))―NAProgaZBJS”子程序三（距离、方位角计算）（可独立使用）：DF?A:?B:Lbl0:?X:?Y:0—1:0—J:PoL(X—A,Y-B):“D二”：IIfY—BM0:Then“

8、F二冬J->F/Else“F二冬360+J—F/Ifend:GoT