文档介绍：卡西欧5800计算器道路程序
发布时间:2008-11-19 10:33:38
功能:
坐标正反算(含高程),把要素内置化(无需改程序文件,即可更换路线,同时存两条线要素)
另含两个边仰(一个横向坡,一个纵向坡)坡放样模块.
帮助文件未完成
程序浏览:
FileName:RESET    初始化程序
Norm 1:50→C:12345→J
"RESET PW"?I:I=J=>500→DimZ   为数据库增加额外变量500个,在SET、SETPFDYS程序根据实际再增减变量
50→Z[C+22]
"PASSWORDS"?I:I→Z[C+39]      重设要素保护密码
Cls:Stop
FileName:DATLOCK      要素保护密码确定认程序
Cls:Norm 1:50→C
"PASSWORDS"?I:Cls:I≠Z[C+39]=>Stop
FileName:SHELL(外壳程序)
50→C             ;在扩充变量预留前50个给别的程序用。如不够就适量加大。RESET,SHELL,SET,SETPFDYS,这几个程序中C值必需一致
Z[C+35]→I:"STATION-N"?I:I→Z[C+35]      设置测站N坐标
Z[C+36]→I:"STATION-E"?I:I→Z[C+36]      设置测站E坐标
Z[C+44]→I:"STATION-Z"?I:I→Z[C+44] 设置测站Z坐标
Z[C+45]→I:"STATION-HI"?I:I→Z[C+45]     设置仪高
Z[C+41]→I:"GC-DH"?I:I→Z[C+41]     放样点高差常数
Norm 1
Z[C+23]→N 当前分段要素N坐标
Z[C+24]→E 当前分段要素E坐标
Z[C+25]→M 当前分段要素起点桩号
Z[C+26]→H 当前分段要素起点方位角(正北)单位:弧度
Z[C+27]→A 当前分段要素起点曲率有左偏负右偏正(注意不半径)
Z[C+28]→R 当前分段要素终点曲率有左偏负右偏正(注意不半径)
Z[C+29]→L 当前分段要素长度
Z[C+3]→W
Z[C+32]→I:"DAT1 2 3"?I:I→Z[C+32]  平曲线要素数库类型选择1为内置式,2文件式,3实时输入(查看当前要素值)
0→I
Z[C+4]→I:"1 2 3"?I:I→Z[C+4]   选择本程序模式默认为坐标正算,1坐标反算,2横向边仰坡放样,3,纵向边仰坡放样(隧道进出口用到)
Lbi 1
Z[C+4]→I
I=1=>Prog"TURNZH"
I=2=>Prog"HXBYP"
I=3=>Prog"ZXBYP"
Lbi A
Deg:Norm 1:Cls
Z[C+1]→G:"ZH"?G:G→Z[C+1] ;G桩求桩号
Z[C+2]→B:"JL"?B:B→Z[C+2] ;B横向距离,左正右负
Lbi B
Prog "ZBJS"     ;坐标正算
Prog "GCJS"     ;高程计算
Fix 3:Cls ;设置三位小数
"ZH=":Locate 4,1,G ;第一行显示桩号
"X=":Locate 3,2,X  ;第二行显示X(N)坐标
"Y=":