4800计算器程.docVIP

4800计算器编程 4800-4850直线、曲线、螺旋线、匝道中边桩坐标计算程序 直线、曲线、螺旋线、匝道中边桩坐标计算程序 主程序名称（4800-4850） A“XA”：B“YB”：C“CA”：D“RA”：E“RB”：F“DKA”：G“DKB”换行 D≠0=D=1÷D： 换行 E≠0=E=1÷E： 换行 Lb1 1:｛H，O，R｝换行 H“DKI”：O“DL”：R“DR” 换行 Lb1 0 换行 P=（E－D）÷Abs（G－F）换行 Abs（H－F）＞Abs（G－F）=Q= Abs（G－F）：≠=Q= Abs（H－F）： 换行 I=P×Q 换行 J=C＋（I＋2D）×Q×90÷π 换行 M=C＋（I÷8＋2D）×Q×45÷（4π）换行 N=C＋（3I÷8＋2D）×Q×135÷（4π）换行 U=C＋（5I÷8＋2D）×Q×225÷（4π）换行 V=C＋（7I÷8＋2D）×Q×315÷（4π）换行 K=C＋（I÷4＋2D）×Q×45÷（2π）换行 W=C＋（I÷2＋2D）×Q×45÷π 换行 Z=C＋（3I÷4＋2D）×Q×135÷（2π）换行 X=A＋Q÷24×（cosC＋4×（cosM＋cosN＋cosU＋cosV）＋2×（cosK＋cosW＋cosZ）＋cosJ）换行 Y=B＋Q÷24×（sinC＋4×（sinM＋sinN＋sinU＋sinV）＋2×（sinK＋sinW＋sinZ）＋sinJ）换行 U=X＋O×cos（J－90） 换行 V=Y＋O×sin（J－90） 换行 W=X＋R×cos（J＋90） 换行 Z=Y＋R×sin（J＋90） 换行 Abs（H－F）＞Abs（G－F）= Goto 3： 换行 H“DKI=” ◢ fx4850输入改为 “DKI=”： H ◢ X“X=” ◢ fx4850输入改为 “X=”：X ◢ Y“Y=” ◢ fx4850输入改为 “Y=”：Y ◢ U“XL=” ◢ fx4850输入改为 “XL=”：U◢ V“YL=” ◢ fx4850输入改为 “YL=”：V◢ W“XR=” ◢ fx4850输入改为 “XR=”：W◢ Z“YR=” ◢ fx4850输入改为 “YR=”：Z◢ Goto 1 换行 Lb1 3 换行 A=X：B=Y：D=E：F=G：C=J 换行 ｛E，G｝ 换行 E“RB”：G“DKB” 换行 E≠0=E=1÷E： 换行 Goto 0 计算器显示及输入方法： XA？线型起算点的X坐标。 YA？线型起算点的Y坐标。 CA？线型起算点切线方位角。 RA？第一曲线曲率，输入0。匝道及螺旋线时输入上段曲线半径左负右正。 RB？第二曲线曲率，输入所要计算曲线的半径，左传为负右转为正，直线输0 。 DKA？线型的起点里程。 DKB？线型的终点里程。 DKI？要求点的里程。 DL？输入左边桩的距离。可以0输入。 DR？输入右边桩的距离。可以0输入。 DKI= 显示要求点里程。 X= 显示要求里程点的X坐标。 Y= 显示要求里程点的Y坐标。 XL= 显示要求里程点的左边桩X坐标。 YL= 显示要求里程点的左边桩Y坐标 XR= 显示要求里程点的右边桩X坐标。 YR= 显示要求里程点的右边桩Y坐标 说明： 1、DKI？再次出现输入下一个要求的点的桩号，如果输入数据大于DKB？所输入的数据，则会再次出现RB？这时输入下一段线型的半径，直线输0，DKB？也会随后出现，这次出现输入下一段线型的终点里程桩号。则可以正常运算其它桩号点的坐标。 2、本程序可以反复计算下一线型。 3、上述说明中线型是指曲线上的某一段，例如直缓点到缓圆点则为一段的线型。 如有不足之处请直出 曲线任意里程中边桩坐标正反算(CASIO fx-4800P计算器)程序 曲线任意里程中边桩坐标正反算(CASIO fx-4800P计算器)程序 一、程序功能 本程序由一个主程序(TYQXJS)和两个子程——正算子程序(SUB1)、反算子程序( SUB2)序构成，可以根据曲线段——直线、圆曲线、缓和曲线（完整或非完整型）的线 元要素（起点坐标、起点里程、起点切线方位角、线元长度、起点曲率半径、止点曲 率半径）及里程边距或坐标，对该曲线段范围内任意里程中边桩坐