CASIO-48X0程序.doc

CASIO-48X0程序 本程序适用于CASIO-48X0,可计算一个交点的五个部分的中边桩（直－缓－圆－缓－直），缓和曲线可以是不等长的． PC2/24R-C4/2384R3QC/2-C3/240R2MI2/24R-I4/2384R3 NI/2-I3/240R2TRM-PRcosA/sinAQERP-PMcosA/sinAN L∏RA/180-CI/2 LBL 0 [J,S,F]JSF ZJ-GTZ≤0Goto 1≠Z≤CGoto 2≠ZJ-GT-CZ≤LGoto 3 ≠ZJ-G-TLICZ≤CGoto 4≠Goto 5⊿⊿⊿⊿ LBL 1 WZVBoB Goto 8 LBL 2 DZ-Z5/40R2C2VZ3/6RCo90Z2/∏RC Goto 6 LBL 3 DRsin180Z90C/∏RQVR1-cos180Z90C/∏RPo180Z90C/∏R Goto 6 LBL 4 DZ-Z5/40R2I2VZ3/6RIW√D2V2Vtan-1V/DA≤0VBAV180 oBA90Z2/∏RI≠VBA-V180oBA-90Z2/∏RI⊿ Goto 7 LBL 5 WZVBAoV Goto 7 LBL 6 W√D2V2Vtan-1V/DA≤0VB-VoB-o≠VBVoBo⊿ Goto 8 LBL 7 HXEcosBAWcosV KYEsinBAWsinV Goto 9 LBL 8 HX-TcosBWcosV KY-TsinBWsinV Goto 9 LBL 9 “X“HHFcosoS◢ “Y“KKFsinoS◢ Goto 0 A─偏角（左负右正，国际惯例） B─方位角（该交点与前一交点之间的） C－第一缓和曲线长 I－第二缓和曲线长 R－半径 G－交点桩号 X－交点X坐标 Y－交点Y坐标 J－所求点桩号 S－所求边桩与路线夹角（左负右正） F－所求边桩与路线间距离 2、 平曲线坐标、反算桩号计算程序 平曲线坐标、反算桩号计算程序 prog “PQX“ {mn}M“X0“N“Y0“Defm 1Z[1]0 Lbl 1{ABGHVWK}K“JL“G“JX“H“JY“V“I0“W“J0“A“R“B“LS“Fixm PB2/24/AQB/2-B3/240/A2TAPtanAbs W/2QCK-TDCBFDπ*A*AbsW/180EF-B ws-1≠s1△ Lbl 2{L}LL0GOTO 1△ Lbl 6L≤COK-LRG-OcosVUH-OsinVZVGOTO 3△ L≥FOL-FTZVWRGOcosZUHOsinZGOTO 3△ LOL-Cprog “XY“ZVSRRGI-TcosV-SjsinVUHI-TsinVjscosVGOTO 3△ LEOF-Lprog “XY“OVWZO-SRRGT-IcosO-SjsinOUHT-IsinOSJcosOGOTO 3△ O180L-DB/2/π/AIAsinOQJPA1-cosOZVSORG-T-IcosV-SjsinVUH-T-IsinVSJcosV Lbl 3Z[1]0.002GOTO 5≠O0△R“XL“◢U“YL“◢Z“ZL“◢ Lbl 4{O}O“YC“O0GOTO 2△ O-1GOTO 5△ XR-OsinZYUOcosZpolX-M,Y-NJJJ360△ X“XZ“◢Y“YZ“◢J“A0“◢I“DD“◢GOTO 4 Lbl 5{XY}X“XF“X-1Z[1]0GOTO 4△Y“YF“polX-R,Y-UOIcosJ-ZAbsO≤0.001O“DL“◢LO◢OIsinJ-ZO“YC“◢GOTO 5≠Z[1]0.002LLOGOTO 6△ prog “XY“ UABIO-O5/40/U2JO3/6/U-O7/336/U3R90O2/π/U 变量名称说明 M“X0“N“Y0“为测站点坐标 K“JL“G“JX“H“JY“V“I0“W“J0“A“R“B“LS“分别为交点桩号、坐标、起始方位角、转角左-右、半径、缓长 L、R“XL“、U“YL“、Z“ZL“ 分别为输入桩号、求出中桩坐标、即时方位角 O“YC“X“XZ“◢Y“YZ“◢J“A0“◢I“DD“ 分别为输入边桩距离左-右、求出边桩坐标、边桩点到测站点的方位角和平距 O“YC“0返回计算中桩坐标 O“YC“-1进入计算桩号过程输入坐标X“XF“ 、Y“YF“分别为求出桩号LO,及至中桩边距O“YC“，O“DL“为桩号计算的误差距 O“YC“约0.00001可求中桩点到测站点方位角和平距 X“XF“-1返回计算坐标过程 计算桩号过程时，需多次确认输入的坐标X“XF“、Y“YF“直到出现O“DL“桩号误差距较小时即可得出准确的桩号 3、 坐标反算程序 AB A,B测站坐标 LbI 0 {CD} C,D测点或后视点坐标 EC-A FD-B K√（E2F2）◢ K测站到测点的跳距离 F0Fe-20◢≠FF⊿J180-90F/AbsF-Tan-1E/F ◢ J坐标方位角 Goto 0 直线坐标计算程序 ABQJ A,B测站坐标 LbI 1 Q测点法线方向的左右偏移值（左“-”右“”） {L} L测站到测点的距离 UALCosJ◢ U,V计算点中线坐标 VBLSinJ◢ XUQcosJ90 ◢ X,Y计算点边线坐标 YVQsinJ90 ◢ Goto 1 缓和曲线坐标计算程序 ABRSJQZ A,BZHHZ点坐标 LbI 3 R圆曲线半径 {L} S缓和曲线全长 CL-L5/40R2S2L9/3456R4S4 JZHHZ点指向JD的方位角 E30L2/ЛRS L测点到ZHHZ点的曲线长（其值为正） FC/CosE Q测点法线方向的偏移值（内“”，外“-”） Z0UAFcosJ-E ◢ zJD转角的方向（左0，右1） VBFsinJ-E ◢ U，V缓和曲线测点中线坐标 XUQcosJ-3E-90 ◢ X，Y；边线点坐标 YVQsinJ-3E-90 ◢ ≠UAFcosJE ◢ VBFsinJE ◢ XUQcosJ3E90 ◢ YVQsinJ3E90 ◢ 圆曲线坐标计算程序 ABCDRSQz A,BHY点坐标 EC-A C,DYH点坐标 FD-B R圆曲线半径 F0Fe-10◢≠FF⊿J180-90F/AbsF-Tan-1E/F ◢ LbI 2 S圆曲线全长 {L} Q测点法线方向的偏移值（内“”，外“-”） G90S-L/ ЛR zJD转角的方向（左0，右1） K90L/ЛR L测点到HY点的曲线长（其值为正） P2RsinK U，V缓和曲线测点中线坐标 Z0UAPcosHG ◢ X，Y；边线点坐标 VBPsinHG ◢ XUQcosHG-K-90 ◢ YVQsinHG-K-90 ◢ ≠UAPcosH-G ◢ VBPsinH-G ◢ XUQcosH-GK90 ◢ YVQsinH-GK90 ◢ 线形反算程序（用于现场测量断面） 坐标反算ZBFS X“N0” Y“E0” U“N1” V“E1” EU-X FV-Y F0Fe-15≠FF⊿I180-90F/AbsF-Tan-1E/F ◢ S√（E2F2）◢ 直线反算程序（ZXFS） K“CH0” CH0直线起点里程桩号 J“I” I直线指向JD的方位角 Prog “ZBFS” II-J EScosI D“OS”SSinI◢ OS前视点偏距“-”为前进方向的左，“”右 M“CH”KE CH前视点里程 缓和曲线反算程序（HQFS） X“N0” N0，E0ZHHZ点坐标 Y“E0” I ZHHZ点指向JD的方位角 T“L0” L0缓和曲线长 K“CH0” CH0ZHHZ点的里程桩号 R“R” R曲线半径（左转“-” ，右转“” ） C“CHR” CHR测点里程桩号增大为1，减小为-1 LbI 0 {PQ} P，Q测点（前视点）坐标 P“N” Q“E” MK ZAbsR/R LbI 1 LAbsM-K O30L2/R/T/Л SL-L5/40R2S2L9/3456R4S4/CosO JIO UXScosJ VYSsinJ HJ2O EP-U FQ-V F0Fe-15 ≠FF⊿ J180-90F/AbsF-Tan-1E/F S√（E2F2） JJ-H WAbsSCosJ M“CH”MCSCosJ◢ CH前视点里程 D“OS”SSinJ◢ OS前视点偏距 W≤0.001Goto 0 ≠ Goto1◢⊿ 圆曲线反算程序（YQFS） K“CH0” CH0圆曲线起点里程桩号 R“R” R曲线半径，左转“-”右转“” X“N0” N0,E0HY点坐标 Y“E0” N1,E1YH点坐标 U“N1” A,B前视点坐标 V“E1” CH前视点里程桩号 EU-X OS前视点偏距 FV-Y F0Fe-15 ≠FF⊿ I180-90F/AbsF-Tan-1E/F S√（E2F2） JSin-1（S/R/2） ZR/AbsR JI90Z-J PXZRCosJ QYZRSinJ LbI 0 {AB} A“N” B“E” EA-P FB-Q F0Fe-15 ≠FF⊿ I180-90F/AbsF-Tan-1E/F S√（E2F2） HAbsI-J-180 H180H360-H ≠HH⊿ M“CH”KЛHRZ/180◢ D“OS”S-ZR◢ Goto 0