FX5800计算器编制.docVIP

FX5800计算器高等级公路测量程序 AGXX总主程序（1、坐标计算放样程序 2、坐标反算程序；3、任意点高程计算程序; 4、路基标准距离放样程序；5、正反算路基边坡及开挖口放样程序；6挡土墙放样计算程序；；7盖板涵计算程序；8、桥梁锥坡放样程序；9、隧道超欠挖计算程序）返回时，在桩号输入-1返回选择计算类型，输入-2返回选择线路。 作者：龚喜雄 主程序名:AGXX ClrVar :20→DimZ :Norm 2 Do “(ZS=1,FS=2,GC=3,,GD=4,BP=5,DQ=6,GB=7,ZP=8,SD=9) ==QING AN 1-9” ‘长按键盘上相应数字进入相应程序 Getkey→Z[3] While Z[3]=35 :Prog “ZS” :WhileEnd :While Z[3]=36 : Prog“FS”：WhileEnd :While Z[3]=37:Prog“GC” :WhileEnd :While Z[3]=21 :Prog “GD” : WhileEnd :While Z[3]=22: Prog “BP”:WhileEnd : While Z[3]=23 :Prog “DQ” :WhileEnd :While Z[3]=31 :Prog “GB” :WhileEnd :While Z[3]=32 :Prog “ZP” :WhileEnd :While Z[3]=33 :Prog “SD” :WhileEnd :LpWhile Z[3]≠25: “XIE XIE SHI YONG” 1、程序：一般坐标计算及放样程序 程序名：ZS Prog “DX” (导线点子程序) Prog “QX” （线路选择子程序） Do “ZHUANGHAO=”?P :P=-1 =Stop :P=-2=Break Prog “ZX” （线路中线元段判别子程序） “BZ=”?D (边距长度) 90→W （ “BJ=”?W路线夹角） Prog “PQX” (交点法正算子程序PQX) X+Dcos(H+W) →X “曲线边桩坐标X项” Y+Dsin(H+W) →Y “曲线边桩坐标Y项” Prog “XY” (显示XY子程序) LpWhile P≠-1 平曲线子程序编程集 1、导线点数据库程序DX 程序名：DX 0→A Do : “QING AN :A(1),B(2),C(3),D(4)…..”?A If A=11 :Then 坐标X值1→X ：坐标Y值1→Y ：Goto 0 :IfEnd If A=12:Then 坐标X值2→X ：坐标Y值2→Y ：Goto 0 :IfEnd …… Lbl 0 “XZ=” Locate 6,4,X “YZ=”Locate 6,4,Y 0→B : “OK”?B :LpWhile B≠0 2、线路选择子程序 程序名：QX 1→K “QX：X1=1，X2=2” ? K K→Z[1] If K=0 :Then “JDZHHAO=”? A : “JDX=”?B : “JDY=”?C “FWJ=”?F (前方位角) ：“ZJ（+，-）=”？O （转角左负右正）: “LS1=”？E ：“LS2=”？K ：“R=”？R：IfEnd 3、线路中线元段判别子程序 程序名 :ZX If Z[1]=0 :Then Prog “XX”:Return :IfEnd If Z[1]=1 :Then Prog “X1” :Return :IfEnd If Z[1]=2 :Then Prog “X2” :Return :IfEnd 4、程序名X1 (线路1坐标计算要素程序，为1至6公里)数据库 IF P缓直点里程（后断链里程） AND P ≥前缓直点里程： THEN 交点桩号→A：交点X坐标→B：交点Y坐标→C：前直线方位角→F：转角（左负右正）→O：曲线半径→R：前缓和曲线长→E：后缓和曲线长→K：Goto 0：IFEND【一般标准曲线类型】 ……. IF P匝道终止桩号 AND P ≥本段起始桩号： THEN 本段起始桩号→A：起始X坐标→B：起始Y坐标→C：起始方位角→F：转角（左-1右1）→O：起始半径(直线为0)→R：终止半径（直线为0）→Z：曲线长度→E：0→K：Goto 1：IFEND【匝道标准曲线类型】 ……. Lb1 0 Prog “XX” Goto 2 Lb1 1 0→Z[3]：0→Z[4]：E→S Lb1 2 O /Abs(O) →Z