源程序：（有压缩附件）
JZBHHQX 极坐标缓合曲线放样
Lbl 0
ABCZEFMNSRUVT:G”L,R”
{K}:H=Z+M+S+N:O=B+(Z-A)cos E:D=C+(Z-A)sin E:G=2=>G=-1:⊿
K≤Z =>Goto 1⊿
K≤Z+M=>Goto 2⊿
k≤Z+M+S=>Goto 3⊿
k≤H=>Goto 4⊿
k>H=>Goto 5⊿
Lbl 1
Q=O-(Z-K)cos E◣
P=D-(Z-K)sin E◣
Goto 0
Lbl 2
L=K-Z:X=L-L^5÷40R2M2+L^9÷3456R^4M^4:Y=L^3÷6RM-L^7÷336R^3M^3+L^11÷42240R^5M^5:W=E-Gtan-1(Y÷X)
Q=O+√(X2+Y2) cosW◣
P=D+√(X2+Y2) sinW◣
Goto 0
Lbl 3
L=K-Z:I=(180L-90M) ÷πR:J=M2÷(24R):X=Rsin I+(M÷2-M^
3÷(240R2)):Y=R(1-cosI)+J:W=E-Gtan-1(Y÷X)
Q=O+√(X2+Y2) cosW◣
P=D+√(X2+Y2) sinW◣
Goto 0
Lbl 4
I=U+TcosF:J=V+TsinF:L=H-K
X=L-L^5÷40R2N2+L^9÷3456R^4N^4:Y=L^3÷6RN-L^7÷336R^3N^3+L^11÷42240R^5N^5:W=F+180+G tan-1(Y÷X)
Q=I+√(X2+Y2) cosW◣
P=J+√(X2+Y2) sinW◣
Goto 0
Lbl 5
L=T+K-H
Q=U+L cosW◣
P=V+L sinW◣
Goto 0

该程序的输入必须严格按照以上格式输入，请分辨清楚大写字母O与数字0的分别，不要输错了。
该程序为中桩坐标计算程序，请在使用前确定所输入数据的正确性，各曲线要素必要时进行互算，确认数据正确后再进行中桩坐标的的计算。
本程序是使用极坐标法缓和曲线放样计算方法。
输入数据A为起点桩号，B为起点X坐标，C为起点Y坐标，Z为ZH点桩号，E为起点至JD方位角，F为JD至HZ点方位角，M为LS1长度，N为LS2长度，S为圆曲线长度，R为圆曲线长度，U为JD的X坐标，V为JD的Y坐标，T为JD至HZ点的切线长度，G为曲线方向，左转时输入1，右转时输入2，K为被算点的里程桩号。
输出数据Q为被算点的X坐标，P为被算点的Y坐标。
该程序不含子程序，可避免程序目录过多，查找不方便。
计算方法：
1、先输入起点桩号、坐标及第一曲线各要素，计算至第二曲线ZH点，第一曲线计算完成，退出程序。
2、再次进入本程序，输入已算出和第一曲线HZ点坐标做为第二曲线起点坐标，输入第二曲线的参数进行第二曲线的计算。这样计算中，第一曲线终点至第二曲线起点之间的直线部分做了重复运算，可以做为校核，如果不需要这样计算，则第一曲线可以计算至曲线结束（HZ）时，就可以退出程序。其它曲线计算以此类推。
该程序可以使用于以下类型的曲线：ZH－HY－QZ－YH－HZ、ZH－QZ－HZ、ZY－QZ－YZ的中桩坐标放样。
对于有些朋友，如果公司不具备全站型仪器，必须用经纬仪放线时，可以按以上计算出的坐标，进行再次计算，运用交点偏角法计算并放样，具体放样方法如下：
源程序：
JDFFY：（交点法放样）
H“XO”：B“YO”：C“XH”：D“YH”
Lbl 1
｛FG｝：F“XQ”：G“YQ”
H=√((C-F)2+(D-G) 2
I“D”=√((F-A) 2+(G-B) 2)◢
J=√((C-A) 2+(D-B) 2)
L=“F”=cos-1((I2+J2-H2)÷2IJ) ◢
Goto 1
该程序使用于施工单位无全站型测量仪器，需用经纬仪放样中桩时使用，适用于任何曲线。
其中XO、YO、为仪器安置位置坐标（即JD位置），XH、YH为ZH点坐标，XQ、YQ为被施放点坐标。
该程序适用于具有逐桩坐标表时使用。
使用方法：将经纬仪安置于被放曲线交点上，后视照准ZH点，置零，按程序计算出的距离（交点至放样点的距离）D及偏角（放样点与ZH点的夹角）F进行放样，放样点里程控制用钢尺丈量，直至曲线结束。
竖曲线计算：SQXJS
R：T：A“K（JD）”：B“H（JD）”：C“IH”：D“IQ”
Lbl 1
｛k｝：D>C=>G=1: ≠=>G=-1⊿
K<A-T=>P=-C(A-K)+B: ≠=>K<A=>P=G(T-A+K) 2÷2R+B-C(A-K): ≠=>K<A+T=>P=G(T-K+A)2÷2R+B+D(K-A):≠=>K≥A+T=>P=D(K-A)+B⊿⊿⊿⊿P“H=” ◢
Goto 1
该程序适用于中线竖曲线计算，其中输入项K为放样点里程，R为竖曲线半径，T为切线长，K（JD）为交点桩号，H（JD）为交点中线高程，IH为交点后坡度，IQ为交点前坡度（以道路前进方向确定）。
输出项H为输入里程K所对应的中线高程。
其它程序诸如：超高、水准、导线平差、前、后方交会，坐标正、反算等程序以后再上传。
　　如果此程序对您有帮助，请回帖。


　　　　　　　　　　　　　　　　　　　　　　兰州