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