5800计算器程序

◢Δ°√ˉ（根号）Lbl sin cos Goto

≠> => （这是推出符号,不要以为是不等于和大于了）

说明:

该程序可计算由直线段、缓圆段、圆曲线段和圆缓段组成的简单曲线，再由这些简单曲线组成的综合线路坐标及外移桩坐标。其中最大特点就是在计算外移桩时引入了相对与中桩两个方向上(垂直与中桩的切线方向和中桩的切线方向)的偏移量,减少了我们在计算部分曲线上外移桩时的工作量.

程序输入时注意主程序 L-COORDINATE是永远不用变的，只改变子程序L-PARAMETER中的各参数。下例中是有三段简单曲线组成综合线路，你可以根据自己的需要自由增减简单曲线的个数，根据4850程序定义Goto后值的范围，理论上你可以用次程序计算最多由35个简单曲线组成的综合线路，当然你必须事先在子程序里输入好各段简单曲线的各要素值，当然下例中的三段应该足够大家在日常工程中使用了

1、交点1坐标（Z[1]，Z[2]），切距G 方位角E；

2、交点2坐标（Z[3]，Z[4]），切距H 方位角F ；

3、HZ点O ，ZH点A（Z[5]，Z[6]）， HY点B ，YH点C ， HZ 点D （Z[7]，Z[8]）；

4、缓和曲线长S ，半径 R ，转向W （左1右-1）。

主程序L-COORDINATE

Lbl 0：Defm 13

Prog “L-PARAMETER”

{U}：U“D（X）=”

{V}：V“D（Y）=”

I=0：J=0

Z[9]=√ˉ（（Z[3]-Z[1]）2+（Z[4]-Z[2]）2）：A=O+ Z[9]-G-H：B=A+S：C= D-S

Z[5]= Z[1]+（Z[9]-H）cos E：Z[6]= Z[2]+（Z[9]-H）sin E：X[7]= Z[3]+Hcos F：Z[8]=Z[4]+H sin F

U=0=> Goto 1：≠>U≠0=> Goto 2ΔΔ

Lbl 1：V≠0=> Goto 2：≠>V=0=>I=0ΔΔ

Goto 3

Lbl 2：Pol（V，U）：Goto 3

Lbl 3：K≤A=> Goto 4：≠> K≤B=> Goto 5：≠> K≤C=> Goto 6：≠> K≤D=> Goto 7ΔΔΔΔ

Lbl 4：X=Z[5]-（A-K）cos E+Icos（E-J）：Y=Z[6]-（A-K）sin E+Isin （E-J）：Goto 8

Lbl 5

N=180（K-A）2/3RSπ：Z[10]=（K-A）-（K-A）5/40R2S2：Z[11]=（K-A）3/6RS

Z[12]=Z[5]+ Z[10]cos E+W Z[11]sin E：Z[13]=Z[6]+ Z[10] sin E-W Z[11] cos E：L=I：Z=J：Pol（Z[12]-Z[5]，Z[13]-Z[6]）：T=J- Z-WN X= Z[12]+Lcos T：Y= Z[13]+ L sin T：Goto 8

Lbl 6

N=90（K-B）/Rπ：M=180（2（K-B）+S）/2Rπ：P=S2/24R：Q=S/2-S3/240R2：Z[10]=RsinM+Q：Z[11]=R（1-cosM）+P

Z[12]=Z[5]+ Z[10]cos E+W Z[11]sin E：Z[13]=Z[6]+ Z[10] sin E-W Z[11] cos E：L=I：Z=J：Pol（Z[12]-（Z[5]+ （S-S3/40R2）cos E+W （S2/6R）sin E），Z[13]-（Z[6]+ （S-S3/40R2）sin E-W （S2/6R）cos E））：

T=J- Z-WN

X= Z[12]+ Lcos T：Y= Z[13]+ L sin T：Goto 8

Lbl 7：K=D => Goto A：≠>K Goto BΔΔ

Lbl A：X=Z[7] +Icos（F-J）：Y=Z[8] +Isin（F-J）：Goto 8

Lbl B

N=180（D - K）2/3RSπ：Z[10]=（D- K）-（D-K）5/40R2S2：Z[11]=（D-K）3/6RS

Z[12]=Z[7]- Z[10]cos F+W Z[11]sin F：Z[13]=Z[8]-Z[10] sin F-W Z[11] cos F：L=I：Z=J：Pol（Z[12]-Z[7]，Z[13]-Z[8]）：T=J- Z+WN+180 X= Z[12]+ L cos T：Y= Z[13]+ L sin T：Goto 8

Lbl 8

Fix 4

“X=”：X◢

“Y=”：Y◢

Norm

Goto 0

子程序L-PARAMETER

Lbl 0:{K}:K“72700≤DK≤77349.49”

K<72700=> Goto 0:≠>K>77349.49=>Goto 0:≠>K<73738.037=>Goto 1:≠>K≤77349.49=>Goto 2:≠>K≤78715.84=>Goto 3ΔΔΔΔΔ（该段为根据你输入的里程选择该里程的各要素值，就是具体选择下面的那段，你都需要修改的哦）

Lbl 1

Z[1]=0:Z[2]=-444.5:Z[3]=0:Z[4]=296.832:E=90°：F=86°56°35°：O=72700：D=73738.037：G=0：H=296.832：S=60：R=10000：W=1：Goto 4

Lbl 2

Z[1]=0:Z[2]=296.832:Z[3]=141.444:Z[4]=2945.38:E= 86°56°35°：F=51°49°24°：O=73738.037：D=77349.49：G=296.83：H=1335.86：S=140：R=4000：W=1：Goto 4

Lbl 3

Z[1]=141.444:Z[2]=2945.380:Z[3]=1694.601:Z[4]=4920.745:E=51°49°2 4°：F=49°36°43°：O=77349.49：D=78715.84：G=1335.86：H=189.4：