2024年3月17日发(作者：郭绮南)
坐标要已知才能放样呀，如果要计算坐标，可以用CAsio4800编程计算，只要有公式
就可以自己编入计算器运用，当然你可直接上网下载
如果是公路的我整理的你可以参考
CASIO4800程序组
1、极坐标法放样
Prog：FY
Lb1 0：A“X0”：B“Y0”：I=0：J=0：Pol（（C“XA”-A），（D“YA”-B）：
J<0=>G“FW- OA”=J+360▲L“L0”=I▲Goto 1：≠> G“FW
O-A”=J▲L“L0”=I▲
Lb1 1：{EQ}：E“Xi”：Q“Yi”：Pol（（E-A），（Q-B））：J<0=>J=J+360：Goto 2：
≠> Goto 2
Lb1 2： F“FW-OB”=J▲L=I▲0=F-G：O<0=>O“BJ”=O+360▲Goto 3：≠> O
“BJ” ▲
Lb1 3：P=O-180▲Goto 1
注：a、输入：（X0、Y0）、（XA、YA）——测站点坐标、后视点坐标
Xi、Yi ——放样点坐标
b、输出：FW-OA——测站至后视边方位角、L0——后视边长
FW-OB——测站至放样点方位角、L——放样边长
BJ——后视边置零，放样点顺时针拨角
P——偏角（+为右偏、-为左偏）{本值用于计算路线偏角}
2、公路竖曲线高程计算程序
Prog:SQX
Lbl A:A“+（-）i1”:B“+（-）i2” W=（B-A）÷100：R：T=Abs（RW）÷2：L=T*2：
E=T2÷（2R）：K“JD K+”：G“JD H”：C=K-T：D=K+T：
Lbl 0：J“Ki+”：J<0=>Goto 1：≠> Goto 2△△
Lb1 1：“Out QX1”：H=G-(K-J)A÷100▲Goto 5
Lb1 2：J>D=>Goto 4 △W<0=>F=-1△W>0=>F=1△J>K=>Goto 3△H=G-（K-J）
A÷100+F(J-C)2÷（2R）▲Goto 5△
Lb1 3：H=G+（J-K）B÷100+F（D-J）2÷（2R）▲Goto 5△
Lb1 4：“OUT QX2”：H=G+（J-K）B÷100▲Goto 5△
2024年3月17日发(作者：郭绮南)
坐标要已知才能放样呀，如果要计算坐标，可以用CAsio4800编程计算，只要有公式
就可以自己编入计算器运用，当然你可直接上网下载
如果是公路的我整理的你可以参考
CASIO4800程序组
1、极坐标法放样
Prog：FY
Lb1 0：A“X0”：B“Y0”：I=0：J=0：Pol（（C“XA”-A），（D“YA”-B）：
J<0=>G“FW- OA”=J+360▲L“L0”=I▲Goto 1：≠> G“FW
O-A”=J▲L“L0”=I▲
Lb1 1：{EQ}：E“Xi”：Q“Yi”：Pol（（E-A），（Q-B））：J<0=>J=J+360：Goto 2：
≠> Goto 2
Lb1 2： F“FW-OB”=J▲L=I▲0=F-G：O<0=>O“BJ”=O+360▲Goto 3：≠> O
“BJ” ▲
Lb1 3：P=O-180▲Goto 1
注：a、输入：（X0、Y0）、（XA、YA）——测站点坐标、后视点坐标
Xi、Yi ——放样点坐标
b、输出：FW-OA——测站至后视边方位角、L0——后视边长
FW-OB——测站至放样点方位角、L——放样边长
BJ——后视边置零，放样点顺时针拨角
P——偏角（+为右偏、-为左偏）{本值用于计算路线偏角}
2、公路竖曲线高程计算程序
Prog:SQX
Lbl A:A“+（-）i1”:B“+（-）i2” W=（B-A）÷100：R：T=Abs（RW）÷2：L=T*2：
E=T2÷（2R）：K“JD K+”：G“JD H”：C=K-T：D=K+T：
Lbl 0：J“Ki+”：J<0=>Goto 1：≠> Goto 2△△
Lb1 1：“Out QX1”：H=G-(K-J)A÷100▲Goto 5
Lb1 2：J>D=>Goto 4 △W<0=>F=-1△W>0=>F=1△J>K=>Goto 3△H=G-（K-J）
A÷100+F(J-C)2÷（2R）▲Goto 5△
Lb1 3：H=G+（J-K）B÷100+F（D-J）2÷（2R）▲Goto 5△
Lb1 4：“OUT QX2”：H=G+（J-K）B÷100▲Goto 5△