CASIO(fx-4800p)带缓和圆曲线及圆曲线中桩计算放样程序.doc

CASIO（ fx-4800p）计算器平曲线应用程序 编制：路惠新创建时间： 2009-2-22 22:04:00 第 1 页 共 5 页CASIO（fx-4800p）缓和圆曲线放样主程序名：ZBJSCX程序清单如下：Defm 10U”PJ”：R：C”LS”：P”JDK”：A”FWJ”：F”JDX”：S”JDY”：E”XO”：N”YO”：IZ[2]=C2÷24÷R-C∧ 4÷2384÷R∧ 3Z[3]=C÷2-C∧ 3÷240÷R2Z[4]=90×C÷π÷RT=（R+Z[2]）×tan（U÷2）+Z[3]W=（R+Z[2]）÷cos（U÷2）-RL=（U-2×Z[4]）×π×R÷180+2CZ[5] ”ZH”=P-T◢Z[6] ”HY”=Z[5]+C◢Z[7] ”QZ”=Z[5]+L÷2◢Z[8] ”YH”=Z[5]+L-C◢Z[9] ”HZ”=Z[5]+L◢Lb1 0{ZK}Z≤Z[5]=>L=Z[5]-ZO=A+90Goto 1⊿Z≤Z[6]=>L=Z-Z[5]B=L-L∧ 5÷40÷R2÷C2+L∧ 9÷3456÷R∧ 4÷C∧ 4D=L∧ 3÷6÷R÷C-L∧ 7÷336÷R∧ 3÷C∧ 3O=A+28.64789×I×L2÷R÷C+90Goto 2⊿Z≤Z[8]=>L=Z-Z[5]-CV=90×(2L+C)÷R÷πB=R×sinV+C÷2-C∧ 3÷240÷R2D=R×(1-cosV)+C2÷24÷R-C∧ 4÷2384÷R∧ 3O=A+28.64789×I×C÷R+57.29578×L×I÷R+90Goto 2⊿Z≤Z[9]=>L=Z[9]-ZB=L-L∧ 5÷40÷R2÷C2+L∧ 9÷3456÷R∧ 4÷C∧ 4D=L∧ 3÷6÷R÷C-L∧ 7÷336÷R∧ 3÷C∧ 3W=A+I×UO=W-28.64789×I×L2÷R÷C+90Goto 3⊿Z>Z[9]=>L=Z-Z[9]W=A+I×UO=W+90Goto 4⊿Lb1 1X=F-T×cosA-L×cosA+K×cosO◢Y=S-T×sinA-L×sinA+K×sinO◢Goto 5Lb1 2X=F-T×cosA+B×cosA-I×D×sinA+K×cosO◢Y=S-T×sinA+B×sinA+I×D×cosA+K×sinO◢Goto 5Lb1 3X=F+T×cosW-B×cosW-I×D×sinW+K×cosO◢Y=S+T×sinW-B×sinW+I×D×cosW+K×sinO◢Goto 5Lb1 4X=F+T×cosW+L×cosW+K×cosO◢Y=S+T×sinW+L×sinW+K×sinO◢Goto 5Lb1 5X=X：Y=Y：E=E：N=NProg”JSS”Goto 0子程序名：JSS程序清单如下：X：Y：E：NQ=tan-1（（Y-N）÷（X-E） ）（X-E）Q=Q+180◢Goto 8：≠>（Y-N）>0=>Q=Q◢Goto 8：≠>Q=Q+360◢Goto 8Lb1 8CASIO（ fx-4800p）计算器平曲线应用程序 编制：路惠新创建时间： 2009-2-22 22:04:00 第 2 页 共 5 页M=√ ― （（X-E） 2+（Y-N） 2）◢程序中各所需输变量说明如下：U”PJ” ：平曲线沿路线前进方向的转角输（度“分“秒“）R ：平曲线的半径（米）C”LS” ：曲线的缓和曲线长度（米）P”JDK” ：平曲线的交点桩号（米）A”FWJ” ：该平曲线直缓点切线方位角（度“分“秒“）F”JDX” ：该平曲线交点的 X 坐标S”JDY” ：该平曲线交点的 Y 坐标E”XO” ：架仪器点的 X 坐标N”YO” ：架仪器点的 Y 坐标I ：曲线偏转情况（曲线左偏-1，右偏+1）Q ：架仪器点至设计点的实际方位角转换（SHIFT+度“分“秒“）M ：架仪器点至设计点的高斯投影改正距离（米）Z ：上一曲线 HZ 到下一曲线 ZH点之间平曲线的任一点的桩号其中包括直线，缓和曲线，圆曲线K ：边桩到中桩任距离（米）（中桩为零，左侧为负值，右侧为正值）程序说明：本程序所计算的是一个完整的平曲线（包括直线、缓和曲线以及圆曲线、也就是一个交点以内的曲线以及其两端的直线段）的设计线、中线、及其横断面上任一点的大地坐标和对这些点用全站仪（测距仪）进行施工桩的实地放线，也可对桥涵等构造物的定位及检测路基路面、桥位等的偏移情况。

如改用其它的同类可编程计算器可对变量进行相应的修改输入便可投入使用实例如下：已知交点为右转角逐 27°07′03.1″ R=3000 米LS=350 米JD=K270+092.785，交点坐标为 JDX=201475.00 米,JDY=27142.000 米,ZH 点的切线方位角 A=236°44′30.9″导线点的坐标为 XO=201461.784 米YO=27181.329 米 现在任选三点 K270+100 左 20 米，K270+100 中桩，K270+100 右 20 米，放样使用计算器程序计算的过程的说明如下: 按 FILE 键 选择程序（ZBJSCX） EXEPJ？ 输入 27°07′03.1″ EXER？ 输入 3000 EXELS？ 输入 350 EXEJDK？ 输入 270092.785 EXEFWJ? 输入 236°44′30.9″ EXEJDX? 输入 201475 EXEJDY? 输入 27142 EXEXO? 输入 201461.748 EXEYO? 输入 27181.329 EXEI? 输入 1 EXE显示 ZH=269193.9033 EXE显示 HY=269543.9033 EXE显示 QZ=270078.8385 EXE显示 YH=270613.7737 EXE显示 HZ=270963.7737 EXEZ? 输入 270100 EXEK? 输入-20 EXE显示 X=201531.6815 EXE显示 Y=27099.07922 EXE显示 （SHIFT+度“分“秒“）Q=310°22′23.21″ EXE显示 M=107.9617 EXE(K270+100 左 20 米点放样结束)Z? 输入 270100 EXEK? 输入 0 EXE显示 X=201550.5581 EXE显示 Y=27092.47052 EXE显示 （SHIFT+度“分“秒“）Q=314°59′03.84″ EXE显示 M=125.6307 EXE(K270+100 中心桩放样完成) Z? 输入 270100 EXEK? 输入 20 EXE显示 X=201569.4347 EXE显示 Y=27085.8618 EXE显示 （SHIFT+度“分“秒“）Q=318°26′31.7″ EXECASIO（ fx-4800p）计算器平曲线应用程序 编制：路惠新创建时间： 2009-2-22 22:04:00 第 3 页 共 5 页显示 M=143.9119 EXE(K270+100 右 20 米点放样结束)Z? 输入 269000 EXEK? 输入-20 EXE显示 X=202057.5714 EXE显示 Y= 28066.7647 EXE显示 （SHIFT+度“分“秒“）Q=56°03′46″ EXE显示 M= 1067.2403 EXE(K269+000 左 20 米点放样完成) Z? 输入 269000 EXEK? 输入 0 EXE显示 X=202074.2955 EXE显示 Y=28055.7964 EXE显示 （SHIFT+度“分“秒“）Q=54°59′22.2″ EXE显示 M=1067.6646 EXE(K269+000 中心桩放样完成) Z? 输入 269400 EXEK? 输入-20 EXE显示 X=201839.1550 EXE显示 Y=27731.1857 EXE显示 （SHIFT+度“分“秒“）Q=55°32′07.19″ EXE显示 M=666.9171 EXE(K269+400 左 20 米点放样完成) Z? 输入 269400 EXEK? 输入 0 EXE显示 X=201856.0976 EXE显示 Y=27720.5579 EXE显示 （SHIFT+度“分“秒“） Q=53°49′16.32″ EXE显示 M=668.0415 EXE(K269+400 中心桩放样完成) Z? 输入 270800 EXEK? 输入-20 EXE显示 X=201377.2037 EXE显示 Y=26413.4256 EXE显示 （SHIFT+度“分“秒“）Q=263°43′01.85″ EXE显示 M=772.5434 EXE(K270+800 左 20 米点放样完成) Z? 输入 270800 EXEK? 输入 0 EXE显示 X=201397.0600 EXE显示 Y=26411.0325 EXE显示 （SHIFT+度“分“秒“）Q=265°11′58.84″ EXE显示 M=773.0079 EXE(K270+800 中心桩放样完成) Z? 输入 280100 EXEK? 输入-20 EXE显示 X=200381.680。