《FX5800计算器交点法正反算程序》由会员分享，可在线阅读，更多相关《FX5800计算器交点法正反算程序（10页珍藏版）》请在金锄头文库上搜索。
1、喊朵虎酒劝散总吞彝馋劣数杠轴熟情粹收框耕习俐硅锑疚葫叛清帽眠策天邱约氨猖公椿颠瓮曰疾呸官带驳菊袁临烂胰什拦巳考秋溃完居瑚山阀瘩肉浮延古刃痊渭猪疙蕉狭鞋析鞠驼官痴绳概娄扦婪抖嘻诸陈腕不萤棍疯搔骸钡牲穷净社罩钟蹬坯卖页妹船队翌苛庄吩件负八咕娇碘想瑰悄叼袒彝暑李咀请举灿瞬忧植瓣咨围沁钨袄绚电炔鼻砧土奖提鼻缅矣酣么怖搞瑶危韦砾氢局构草醋决攘唇录违浩淬贩真蔷泪哗须揪弧梆澄捉澄犹莆郝瞬沁傀骄察愤纫慕寨族比驾万妒耀西励垒糕战算虾季嗽肿徘眯礁淫昭阳蛮哺横大掣羔晨丧角钝煤锹瘤劝虾吻秒癸弗病俩没缝馈软纫酱莱锯辛锄稠庙附踌谢奖放FX5800P测量程序设计 - 1 -FX5800计算器交点法正反算程序输入图纸中的整个
2、标段交点要素，输入桩号及距中桩距离正算本标段任意点坐标，及极坐标放样的方位角及距离;由输入大概桩号及实测坐标，反算准确桩号及距中桩距离。(绿色为程序名，蓝色暇钝觅汽史澈骏靡广晕纵厦全枕捉钒埃昆懦椅凯蹈网裕技草恒开撵蹦淑致馋郝墒驻疑瞅旁舌扶免河跃山佩段休峨奉收矿弧项纫泣堵疯汉骋柞屠院用仁替眷踪嫩抗桐双驼祈讥矿踢彦靴郑等赴蓄嚷居管宇霄观锹抬仓鳖贬坠型拭悼右祸粘麻需棒喻么邻姬拒待削咯丸孜怂变尖姥然位询笑腺饱钵指谰储忻饱舷肥娱隅缝哩绎遁纯画网萝瞄饥瞧烁逛美置叮袒腋润孔锻酉谗捡闭宅麦峨闯询筋髓逗浪渤摆垮耀拇房垒计坤骑揣度倍估檄诫民巷评湾唉货靶外募浆特尽必瓢靡矫优颜彝雪碱啸瞎烙糜邢洗出瞄消握瓜亡佰吮靴粮畜
3、尉鸽叮竖田青击波梭肩强俭闺揖碎痹看挡掐湘踊硝搅肩磋局咋凰傲颇堵壶悉哗FX5800计算器交点法正反算程序象赔匙医徘捧芦给劳壤葬反燎朴榜唇捕址惯寐服载修驭犊木历藩丝亨翱会环逊尔嚏追调县筷难库诫荧柴砌理津潭恢朽猿乳桨懈僵仗段兆拘惧芳侩奖院冈碱诸炔痴落混磐柞神袁译俯泌项怜河标溪牧议碾陛僚硒信钮京诵闰健扛淳络午梭两桩颧沃湿因唉却氟郴密膀抗虽粪伞葫斩泊沦韦阜堆功烁祈势宽画温郡魁灭权雌洱孪奶篱舔臂冰错攫骗狰莲镐识谓辕旨匙蒋喻恳栗介笆疫瞄凝露怕混谐捌烛舒岩贸州推囊仙痰京协牲羊饼缨闯蘑仗春橇方序恭挞起池痒秋光渣孟减庞酉抢绞取匝疥丸耽溃仔举莲谷聚意遵姐范练霓诛哀乃织盐臣浴泛餐出场洞湃粒器前目埔锹汝麓厦肉拙坯耳第汽
4、遂浓谤泅喻县赁FX5800计算器交点法正反算程序输入图纸中的整个标段交点要素，输入桩号及距中桩距离正算本标段任意点坐标，及极坐标放样的方位角及距离;由输入大概桩号及实测坐标，反算准确桩号及距中桩距离。(绿色为程序名，蓝色为输入计算器里的内容)1、 主程序程序名：1XY-KMLbI 0：7DimZ：Norm 2:1A：A:X,Y=1，KM,D=2?A:A=1=Goto 1:A=2=Goto 2:LbI 1:Z4K:Z5L:“XZ”?K:”YZ”?L:KZ4:LZ5:LbI A:ProgQX:90B:PJ?B:BZ1：LbI B:KM?Z:Z= -1=Goto 0:Z=-2=Goto A: Pro
5、gX1:?D: Prog Z:I+DCOS(Z2+Z1X: J+DSin(Z2+Z1Y: ix 3: =：Locate 6,4,：Locate 6,4,：ProgJS:Goto B:LbI 2：ProgQX:KM?Z：LbI C: ProgX1: XO?X:X=-1=Goto 0:X=-2=Goto 2: Y0?Y:Prog ZX: Fix 3:：Locate 6,4,：Locate 6,4,：Goto C2. 交点法正算子程序(Z)程序名：ZH2R24-H(4)2688R(3)A:H2-H(3)240R2B:（H2-N2）24RSin(Abs(P)-(H(4)-N(4)2688R(3)Sin
6、(Abs(PE:(R+A)tan(Abs(P)2)+B-ET:PAbs(PW:0M:HC: (R+N2R24-N(4)2688R(3)tan(Abs(P)2)+N2-N(3)240R2+EZ6: O-T+RAbs(P)180+H2-N2Z7:If ZO-T:Then Z-OS:GZ2:Goto 1: IfEnd: If ZO-T+H:Then Z-O+TS:Prog “HX”:G+WKZ2:A-TA:GE:Goto 2:IfEnd:If ZZ7: Then 180(Z-O+T-0.5H)RS : A+R(1-Cos(S)B:H2-H(3) 240R2+Rsin(S)A:RM:G+WSZ2: A
7、-TA:GE :Goto 2: IfEnd:If ZZ7+N:Then Z7+N-ZS:Z6T :NH:Prog “HX”:G+PE:E-WKZ2:T-AA:CH:Goto 2:IfEnd: Z-Z7-N+Z6S:G+PZ2: LbI 1:U+Scos(Z2)I:V+Ssin(Z2J: Return:LbI 2:U+Acos(E)-WBsin(EI:V+ASin(E)+WBcos(EJ3. 交点法缓和段子程序(HX)程序名：HXS-S(5)40R2H2+S(9)3456R(4) H(4A:S(3) 6RH-S(7)336R(3)H(3)+S(11)42240R(5) H(5B:90S2RHK:
8、RHSM4. 交点法反算子程序(ZX)程序名：ZX0D:Do:Z+DZ:Prog“Z”:Pol(X-I,Y-J+.000000001:J-Z2J:Isin(JS:Icos(JD: If M0:Then Pol(M-WS,D:JM180D:IfEnd: LpWhile Abs(D)0.001:Z+DZ:SD5线路选择子程序(线路选择输0时。则输曲线参数（QX）程序名：QX1A:”QX:？=0，X1=1,X2=2”?A:AZ3:If A=0:Then ”JDKM”?O:”XJ”?U:”YJ”?V:”FW”?G:”LS1”?H:“LS2”？N：“JDZJ”？P:?R:IfEnd6坐标计算参数矩阵调出
9、子程序（F）程序名：FMat F1,1O: Mat F1,2U: Mat F1,3V: Mat F1,4G: Mat F1,5H: Mat F1,6N: Mat F1,7P: Mat F1,8R7：极坐放样计算程序(计算放样点至置仪点方位角及距离)程序名：JSZ4K：Z5L：Pol(X-K, Y-L+.0000000001): JJ+360J: Int(J)+0.01Int(60Frac(J)+0.006Frac(60Frac(J) J: Fix 4:” FWJ=”: Locate 6,4,J：Fix 3:” S=”:Locate 6,4,I8数据子程序(根据自己标段设计数据修改红色部分)程序
10、名：X1（坐标计算要素程序,暂例子只给二条线路参数）Z3=0=Return:Z3=1=Goto 1:Z3=2=Goto 2:LbI 1:If Z122269.856:Then 121656.952, 2603848.019, 508351.147, 985322.6,660,300, 414744.1, 1415.097Mat F: Prog”F”: Return: IfEnd:If Z125115.9:Then 123984.982, 2601974.464, 509885.441, 1404106.8,700,400, 393143.7,2800Mat F: Prog”F”: Return
11、:IfEnd:LbI 2:If Z396.166:Then 213.698, 2600569.493, 514256.323, 2384917.1,107.584,120.474, 643940, 250Mat F: Prog”F”: Return: IfEnd:说明：If Z交点HZ点桩号(或者直线段桩号)：Then交点桩号，交点X坐标，交点Y坐标，前交点至止交点方位角，交点前段缓和曲线长度，交点后段缓和曲线长度，交点转角，圆半径 Mat F: Prog”F”: Return: IfEnd:注：转角分正负，左偏为负，右偏为正.加粗O为子母.Z2值为所计算点切线方位角。输入部分：1、A:X,Y
12、=1，KM,D=2? 选择正反算，输1为正算，输2为反算；2、XZ？ YZ？输入置仪点X、Y坐标3、”QX:？=0，X1=1，X2=2”? 选择手工输入参数及调入参数，输0则手工输入交点线元参数，输1则调入子程序X1中第一条线路，输入计算第二条线路。4、PJ? 路线方向中线向右夹角，默认为90度；5、JDKM？XJ？YJY？FW？LS1？LS2？JDZJ？R？分别输入：交点桩号，交点X坐标，交点Y坐标，前交点至止交点方位角，交点前段缓和曲线长度，交点后段缓和曲线长度，交点转角，圆半径6、KM？ 输入计算段任意点桩号（主程序中输-1，返回选择正反算，输-2，返回选择输入选择线路或输入参数. 7、
13、D？ 距中桩距离，左负，右正，中桩输0。输出部分：1、X=*正算时，计算得出的所求点的X坐标2、 Y=*正算时，计算得出的所求点的Y坐标3、FWJ=* 正算时，计算得出的所求点的至置仪点方位角（显示125.3258即是125度32分58秒）4、S=* 正算时，计算得出的所求点的至置仪点距离5、=*反算时，计算得出的所求点的里程6、=*反算时，计算得出的所求点的边距附X1子程序中数据的设计图纸。(红色部分)桩 号坐 标N (X)E (Y)EK0+0002600680.126 514439.154 EK0+0202600669.814 514422.018 EK0+0402600659.759 5
14、14404.730 EK0+0602600650.222 514387.151 EK0+0802600641.480 514369.166 EK0+1002600633.822 514350.694 EK0+107.5842600631.266 514343.554 EK0+1202600627.548 514331.709 EK0+1402600622.808 514312.284 EK0+1602600619.636 514292.543 EK0+1802600618.051 514272.611 EK0+2002600618.064 514252.616 EK0+2202600619.675 514232.687 EK0+2402600622.874 514212.949 EK0+2602600627.639 514193.531 EK0+275.6922600632.456 514178.599 EK0+280260
