高达00 els:卡西欧5800程序

本文由韩永站贡献
    doc文档可能在WAP端浏览体验不佳。建议您优先选择TXT，或下载源文件到本机查看。
    卡西欧 5800 程序
    Lbl 0 ?L:IF L≤20618.348:then 20361.5→Q:5765.675→N:4016.969→E: 203-45-49.7→J: Goto1:Return: IfEnd（直线段）
    （当 L 输的里程小于 20618.348 时大于 20361.5 时程序就按直线的公式来计算 了。N——为起算点 X 坐标。E——为起算点 Y 坐标.）
    IF L≤22408.438:then 22108.438→Q:4279.930→N:3110.838→E: 216-28-12.8→J: 1→M:300→C:2700→R:Goto3: Return: IfEnd (缓 和曲线) IF L≤23154.77:then 22408.438→Q:4042.056→N:2928.105→E: 219-39-11.6→J:2700→R:1→M:Goto2: Return: IfEnd (圆曲线) IF L<23454.77:then 23454.77→Q:3379.469→N:2125.669→E: 58-40-26.7 → J:2700 → R:-1 → M:300 → C:180 → G:Goto3 ： Return:
    知道为什么这段有个 G=180 吗？。 IfEnd (这段是以 HZ 点往 YH 点推的缓和曲线)。 因为这段曲线计算的时候是以 ZH 往 YH 推坐标的。 我们现在加个 G=180 时计算边 桩的时候。输-90 是左。如果不加。输-90 计算出来的是右边桩了。 这段 M 因为时反过来推。以前时右偏曲线，现在就要变成左偏了。还有 HZ 点方 位角要加 180 了，因为是反的。
    上面的我只输了个例子。 要根据你实际的线路来输以上的子程序。这 （ 上面的我只输了个例子。 要根据你实际的线路来输以上的子程序。 个程序要所有数据输到一个程序里面来运行） 个程序要所有数据输到一个程序里面来运行） 公式: 直线公式： Lbl 1 L-Q→D（是为了算出里程差） J→P（方位角）
    N+D*COS J→X▲（这个就不用说了把） E+D*SIN J→Y▲ “1,0”？ U:If U=0：Then Goto0: Else Goto 4: IfEnd（程序运行时中 ” ： 桩算完会出现个这个，输 1 继续计算左右的边桩，输 0 返回） 现在到圆曲线公式 Lbl 2 L-Q→D（和上面一样的意思） 90*D/(兀 R) →I（计算偏角） J+2IM → P: 360If P>360 ： Then P-360-P: Else If P ≤ 360 ：
    P+360Then P+360-P: Else P-P:IfEnd:IfEnd （P=J+2IM 这个是方位角+偏角了。现在那个和那个 M 就有关系了。 M=1 是曲线往右偏。加上偏角。曲线是左偏 M 输 M=-1 不就减了）应 该能明白把。 N+2R SIN I*COM (J+IM) →X ▲（计算圆曲线中桩 X 坐标） E+2R SIN I*SIN (J+IM) →Y ▲ 1,0” U=0： IfEnd（和上面 “ 1,0 ” ？ U:If U=0 ： Then Goto0: Else Goto 4: IfEnd 一样） 缓和曲线的计算公式 Lbl 3 Abs (L-Q) →D D︿3/（6RC）-D︿7/(336(RC) ︿3)+D︿11/(42240(RC) ︿5) →B （这个是用切线之距法计算的。(D︿3 是 D 的 3 次方，后面也一样)
    D-D︿5/(40(RC) ︿2)+D︿9/(3456(RC) ︿4) →A （这个不用说了） tan-1 (B/A) →I（计算偏角） J+3IM+G → P: If P>360 ： Then P-360-P: Else If P ≤ 360 ： 360P+360Then P+360-P: Else P-P:IfEnd:IfEnd N+B/SIN I*COM (J+IM) →X ▲ E+B/SIN I*SIN (J+IM) →Y ▲ “1,0”？ U:If U=0：Then Goto0: Else Goto 4: IfEnd 直圆缓的 1,0 U=0： 公式写完了。下个是计算左右边桩的公式 Lbl 4 “JL”?Z:”JD”?T:X+(Z“JL”)*COM (P+(T“JD”)) →W ▲ （里面 的 Z 是旁边写了个 JL 是距离的缩写。运行程序的时候会出现这 JL。 意思是让你输，你想计算几米的边桩。T“JD”是角度的意思。边桩 距离输完了。现在就是角度了。算右边和线路正交桩的话就输 90， 左边输-90。如果算斜交桥或涵洞。你想输多少度就计算多少度的点。 （注意计算左为负。右为正） Y+Z*SIN (P+T) →V ▲（这个也一样。是计算 Y 的） Goto 0:（程序当运行到这就自动返回了） 说明： L——为待求点里程。Q——曲线或直线起点起算里程。 N——为起算点 X 坐标。E——为起算点 Y 坐标. R——为曲线半径。J——起算点的方位角。或切线方位角 如果程序计算完中线桩后出现 U“1,0”。输 1 继续往下进行边桩的
    计算。输 0 返回到 L(待求点里程)。 M——曲线往左偏还是往右偏。程序里面输 1 是右偏，输-1 为左偏。 I——偏角（弦切角）<计算中桩时坐标，左右的偏角。