计算机5800yfx程序,卡西欧5800计算器坐标正反算程序

M = (1.0/Re-1.0/Rs)/Ls;

x=∫｛cos(Ta + L/Rs + 0.5*M *L*L)，0，L｝;

y=∫｛sin(Ta +L/Rs + 0.5*M *L*L)，0，L｝;

a(i)= Ta +L/Rs + 0.5*M *L*L

Rs:缓和曲线起点半径

Re:缓和曲线止点半径

Rs，Re (NE坐标系下，右偏为正，左偏为负)

Ta:缓和曲线起点的真北方位角

Ls:不完整缓和曲线长度。

此公式为缓和曲线在坐标系下任意位置的通用积分公式，能完全适应缓和曲线左偏、右偏、Rs >Re 、Rs

Fx-5800计算机程序

QXJS-000 主程序

Lbl 4:“1.SZ=>NE”:“2.NE=>SZ”:?Q:?S:Prog“QXJS-SUB0”↙

Lbl 0:Q=1 => Goto1:Q=2 => Goto2:↙

Lbl 1:?Z:？G：Prog“QXJS-SUB1”:“N=”:N◢ “E=”:E◢ “F=”:F◢Goto4↙

Lbl 2: “N=”:?B: “E=”:?C:B→N: C→E:Prog“QXJS-SUB2”: “S=”:S◢: “Z=”:Z◢: Goto4↙

QXJS-SUB0 数据库子程序

Goto1↙ 同时保存多个曲线时的指针

Lbl 1

IF S

IF S

………………………..为了便于解读，每增加一个线元增加一行语句，每增加一条曲线增加一个Lbl，每增加一个工程增加一个文件。

QXJS-SUB1 正算子程序

0.5(1÷R-1÷P)÷L→D:S-O→X↙

U+∫(cos(A+(X÷P+DX2)×180÷π,0,X)→N↙

V+∫(sin(A+(X÷P+DX2)×180÷π,0,X)→E↙

A+(X÷P+DX2)×180÷π→F↙

N+Zcos(F+G) →N:E+Zsin(F+G) →E

QXJS-SUB2 反算子程序

Lbl 1:0→Z：1→Q：Prog“QXJS-SUB0”: Prog“QXJS-SUB1”↙