“DKA”?F:“XA”?A:“YA”?B: “FWJ”?C:“RA”? D:”DKB”? G:“RB”?E:
“1,-1” ?Z:
Lb1 0:”Z=1,F=2”?R:If R=1:Then Goto 1:Else R=2:Goto 2:Ifend
Lb1 1:”KX=”?H: Prog”SUB1”:
”FWJ=”:J
”XKX=”:X
”YKX=”:Y
Goto 3
Lb1 2:“N”?U: “E”?V: Prog“SUB2”:
“KX”=H
“JL”=L
Goto 0
Lb1 3: ”JL=”?L:If L=1:Then Goto 0:Ifend:“PJ=”?J:
”XB=”:X+LCOS(J+O) → X
”YB=”:Y+LSIN(J+O) → Y
Goto 0
“SUB1”
(1÷Z÷E-1÷Z÷D) ÷ABS (G-F) →P:
ABS (H-F) →Q:
P×Q→I:
1÷Z÷D+I→T:
C+(I+2(1÷Z÷D)) ×Q×90÷3.1415926→J:
C+(I÷4+2(1÷Z÷D)) ×Q×45÷(2×3.1415926) →M:
C+(3I÷4+2(1÷Z÷D)) ×Q×135÷(2×3.1415926) →N:
C+(I÷2+2(1÷Z÷D)) ×Q×45÷3.1415926→K:
A+Q(COS C+4(COS M+COS N)+2 COS K+COS J) ÷12→X:
B+Q(SIN C+4(SIN M+ SIN N)+2 SIN K+ SIN J) ÷12→Y:
“SUB2”
C＋90→J:
(U-A) SIN J-(V-B) COS J→ W:
Lb1 0: F+W→ H: Prog“SUB1” :
(U-X) SIN (J+90)-(V-Y) COS (J+90) → L :
IF L＜ 0.0001 :Then Goto 1 :Else: W＋L→W: Goto 0 :Ifend
Lb1 1: Prog“SUB1” :
(U-X) SIN J -(V-Y) COS J → L:
程序浏览: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:StopFileName:DATLOCK 要素保护密码确定认程序Cls:Norm 1:50→C "PASSWORDS"?J:Cls:J≠Z[C+39]=>Stop 2008-08-07修改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 1Z[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]→WZ[C+32]→I:"DAT1 2 3"?I:I→Z[C+32] 平曲线要素数库类型选择1为内置式，2文件式，3实时输入(查看当前要素值) 0→IZ[C+4]→I:"1 2 3"?I:I→Z[C+4] 选择本程序模式默认为坐标正算，1坐标反算，2横向边仰坡放样，3，纵向边仰坡放样(隧道进出口用到)Lbi 1Z[C+4]→II=1=>Prog"TURNZH"I=2=>Prog"HXBYP"I=3=>Prog"ZXBYP"Lbi ADeg:Norm 1:ClsZ[C+1]→G:"ZH"?G:G→Z[C+1] ;G桩求桩号Z[C+2]→B:"JL"?B:B→Z[C+2] ;B横向距离，左正右负Lbi BProg "ZBJS" ;坐标正算Prog "GCJS" ;高程计算Fix 3:Cls ;设置三位小数"ZH＝":Locate 4,1,G ;第一行显示桩号"X＝":Locate 3,2,X ;第二行显示X(N)坐标"Y＝":Locate 3,3,Y ；第三行显示Y(E)坐标Prog "GCJS" ;高程计算"Z":Locate 2,4,Z+Z[C+41] ；第四行显示Z坐标Locate 10,4,Z[C+2] ；第四行显示横向距离0→IDo:I+1→I:I=