线元法fx-5800P中边桩坐标放样程序

Deg:Fix 3:“Xco=”？V：“Yco=”？W:“XIAN LU”？Z:Lbl 0：Cls：“ZHUANG HAO”？K:“HENG JU”？R：Z=0=>prog“YU” Z=100=>Prog“DA” Cls

“Xi=”:X◢ “Yi=”：Y◢ Prog“FW”：GOto o

OF（坐标反算）

“XIAN LU”?Z:Lbl0:cls：“Xn=”？v：“Yn=”？W:V+000000→V:W+000000→W:“ZHUANG HAO”？k：“HENG JU”?R:LblA Z=0=>Prog“YU” Z=100=>Prog“DA”

If v=x：Then x+0.0001→X：If End Pol （v –x，w-Y） J—T→B K+Icos（B）→k R+Isin（B）→R

If Abs（x+Y-V-W）<.001:Then Goto B :If End Goto A Lbl B

Cls

Z=0=>locate 3，1，“ki=k” Z=100=>locate 3，1，“ki=K”

If Z=0 or Z=100：Then locate7，1，Int（k÷1000）：Else locate 8，1，Int（k÷1000）：If End：locate9,1，“+”：locate10,1,1000 Frac（k÷1000）：locate3，2，“Ri=”：locate10，2，R Locate 3，3，“Xn=”：locate7，3，v Locate3，4，“Yn=”：locate7，4，w◢ Goto 0

OXY（计算坐标）

“XIAN LU”? Z:Lbl 0：cls：“ZHUANG HAO”?k：“HENG JU”? R:Z=0=>Prog“YU” Z=100=>Prog“DA” CLS:

Z=0=>locate 3，1，“ki=k“ Z=100=>locate3，1，“ki=K”

If Z=0 or 100：Then locate7，1，Int（k÷1000）：Else locate 8，1，Int（k÷1000）：If End ：locate 9，1，“+”:locate10，1，1000Frac（k÷1000）：locate3，2， “Ri=”：locate 6，2，R Locate3，3，“Xi=”：locate6，3， X Locate3，4，“Yi=”：locate6，4，Y◢

Goto 0

需要平面线元数据表

FW(子程序)

Pol (X-V,Y-W):If J<0:Then 360+J→J:IfEnd:“FF=”:J▶DMS◢ “DD=”:I ◢ Return

XY(子程序)

D≠0=>D→D E≠0=>E→E

（E-D）÷Abs(G-F)→P

If Abs(K-F)> Abs(G-F):Then Abs(G-F)→Q:Else Abs(K-F)→Q:IfEnd PQ÷8→L

45Q÷(4π)→Q 2D→D

C+Q(D+L)→H C+2Q(D+2L)→I C+3Q(D+3L)→J C+4Q(D+4L)→M C+5Q(D+5L)→N C+6Q(D+6L)→O C+7Q(D+7L)→S C+8Q(D+8L)→T πQ÷270→Q A+Q(COS（C）+ COS（T）+2（COS（I）+ COS（M）+ COS（O））+4（COS（H）+ COS（J）+ COS（N）+ COS（S））)+R COS（T+90）→X

B+Q(SIN（C）+ SIN（T）+2（SIN（I）+ SIN（M）+ SIN（O））+4（SIN（H）+ SIN（J）+ SIN（N）+ SIN（S））)+R SIN（T+90）→Y Return

-1-1

YU 数据库

线元起点方位角→C:起点半径→D：终点半径→E:起点桩号→F:终点桩号→G:IF K≤G:Then 起点X坐标→A: 起点Y坐标→B: GOTO 8:IfEnd(转角左转，半径前面要加-号)

„„„„. „„„„

LBl 8:Prog“xy”:Return