卡西欧4850计算器程序

卡西欧fx-4850P

万能放线程序

主程序：ZBJS

↙

◢“◢

：

H◢↙

注：

↙

↙

↙

↙

注：

此程序可把全线路要素输入数据库，能执行直线、

高程放线正反算。

卵形曲线。

卡西欧fx-4850P

直线、各种曲线任意放中线(匝道)

1：主程序：TYQXJS

“1，KS=＞XY”：“2，XY=＞KS”：N：U“X0”：V“Y0”：o“K0”：G“FWJ”：H“LS”：P“R1”：R“R2”：Q“Y+1；0；Z-1”：C=P-1：D=（P-R）÷（2HPR）：E=180÷π：N=1=＞Goto 1:≠＞Goto 2↙

◢“Goto 1↙

2：正算子程序：S U B1

A=0.1739274226:B=0.3260725774:Z=0.0694318442:L=0.33 00094782:F=1-L:M=1-Z:X=U+W(Acos(G+QEZW(C+ZWD))+Bcos (G+QELW(C+LWD))+Bcos(G+QEFW(C+FWD))+Acos(G+QEMW(C+M WD))):Y=V+W(Asin(G+QEZW(C+ZWD))+Bsin(G+QELW(C+LWD)) +Bsin(G+QEFW(C+FWD))+Asin(G+QEMW(C+MWD))):F=G+QEW(C +WD)+90:X=X+Scos F :Y=Y+SsinF↙

3坐标反算子程序 SUB2

T=G-90：W=Abs((Y-V)cosT-(X-U)sinT) :S=0:Lbl 0: Prog “SUB1”：L=T+QEW（C+WD）:S=（J-Y）cos L-(I-X)sin L : Abs S＜10-6=＞Goto 1: ≠＞W=W+S:Goto 0↙Lbl 1:S=0:Prog“SUB1”:S=(J-Y)÷sin F↙

注：o→代表：欧 0→代表零

使用说明：

1规定：

⑴本程序可执行直线、圆曲线、缓和曲线（完整或非

完整型）、复曲线、卵形曲线的任意里程中边桩坐

标的正反算。另外也可以将本程序中核心计算部分

的两个子程序移植到其它相关程序中，在引用该核

心计算部分时，请注名来源。

⑵当线元为直线时，其起点、止点的曲率半径为无穷

大，以10的45次方代替。

⑶此程序只能分段输入参数值，分段计算。即：直线

段、第一缓段、圆曲线段、第二缓段、直线段要分

别输入H Z点、Z H点、H Y点、Y H点、H Z点的起点

坐标里程，方位角和半径。

2输入与显示说明：

输入部分

N？选择计算方式，输入1表示正算，输入其数它值表示反算

X0？线元起点的X坐标

Y0？线元起点的Y坐标

K0？线元起点里程

FWJ？线元起点切线方位角

LS？线元长度。分别为直线段、第一缓和段、圆曲线段、第二缓和段、直线段的长度

R1？线元起点曲率半径

R2？线元止点曲率半径

Q？线元左右偏标志（左偏Q=-1；右偏Q=1；直线段Q=0）K？求点里程

S？求点中心距（左侧为负；右侧为正；中线上为0）X？反算时求点的X坐标

Y？反算时求点的Y坐标

显示部分：

同以上X、Y、K、S

FWJ：求点切线方位角