第一个程序
Mcl：Lbl 0：{O}：Prog ``E``：I=V-T:J=W-U:Prog ``K``：Z「4」=J：G=Z「4」+FS：G<0→G=G+360△G>360→G=G-360△Z「2」=C2/24/R:Z「3」=C/2-C3/240/R2:T=Z「3」+(R+Z「2」)tan(S/2):L=ΠRS/180+C:H=D-T:Y=Z「4」+180:Z「8」=V+Tcos Y:D=W+Tsin Y:Z=H+L:U=V+Tcos G:Z「1」=W+Tsin G:Z「5」=T/tan(S/2):X=πZ「5」S/180: Z「6」=(L-X)/X:LbI 1:{ANQ}:A``X``:N``Y``:Q``GC``:F=-1→Z「7」= Z「4」+90: Z「7」>360→Z「7」= Z「7」-360△X= Z「8」+ Z「5」cos (Z「7」+180):Y=D+ Z「5」sin (Z「7」+180):I=A-X:J=N-Y:Prog``K``:X=J- Z「7」:X<0→X=X+360△X<180-S/2→I=A- Z「8」:J=N-D:Prog``K``:X=J- Z「7」:X<0→X=X+360△L=Isin X:O=H-L:Goto 2△X<360-S→I=A-V:J=N- Z「1」:Prog``K``:X=J-( Z「7」-S):X<0→X=X+360△L=Isin X:O=Z-L：Goto 2△L=ΠZ「5」(360-X)(1+ Z「6」)/180:O=H+L:Goto 2△F=1→Z「7」=G-90: Z「7」<0→Z「7」= Z「7」+360△X=U+ Z「5」cos(G+90):Y= Z「1」+ Z「5」sin(G+90):I=A-X:J=N-Y:Prog``K``:X=J- Z「7」:X<0→X=X+360△X<180-S/2→I=A-U:J=N- Z「1」:Prog``K``:X=J- Z「7」:X<0→X=X+360△L=IsinX:O=Z+L:Goto 2△X<360-S→I=A- Z「8」:J=N-D:Prog``K``:X=J-( Z「7」-S):X<0→X=X+360△L=IsinX:O=H+L:Goto 2△L=πZ「5」(360-X)(1+ Z「6」)/180:O=Z-L:LbI 2:O>Z→Goto 0△O≦H→V=H-O:T= Z「4」+180:L= Z「4」:Goto 3△O≦Z-C→L=O-H:L≦C→Prog``Z``:Prog``X``:L= Z「4」+3W:Goto 3△E=180(L-C)/π/R+90C/π/R:X= Z「3」+RsinE:Y=R-RcosE+ Z「2」:Prog``X``:L= Z「4」+FE:Goto3△O≦Z→L=Z-O:Prog``Z``:V=√(X2+Y2):W=-Ftan-1(Y/X):T=G+180+W:L=G+3W:LbI 3:X= Z「8」:Y=D:O>Z-C→X=U:Y= Z「1」△X=X+VcosT:Y=Y+VsinT:E=L+90:X=X+2.3cosE:Y=Y+2.3sinE:I=A-X:J=N-Y:Prog``K``: Z「9」=J-L: Z「9」<0→Z「9」= Z「9」+360△Z「10」=Icos Z「9」: Z「22」=Abs Z「10」: Z「22」>0.001→O=O+ Z「10」:Goto 2△O``O=``▲Prog``Y``: Z「11」=B-M: Z「12」=Abs Z「11」:L=P Z「12」:T=L/2: Z「14」=J-T: Z「15」=J+T: Z「13」=P: Z「13」=P: Z「11」>0→Z「13」=- Z「13」△O≦J→L=J-O:L>T→G=K-LB:Goto 4△Z「19」=O- Z「14」:G=K-LB+ Z「19」2/2/ Z「13」Goto 4△O≧J→L=0-J:L<T= Z「19」= Z「15」-O:G=K+LM+ Z「19」2/2/ Z「13」:Goto 4△G=K+LM:LbI 4:L=0{L}:L``R``: Z「17」``S X``=Q-(G+2.27): Z「18」``C Q``=√(I2+ Z「17」2)-L▲Goto 0

子程序(K):
POl(I,J:J<0→J=J+360
子程序(X):
V=√(X2+Y2):W=Ftan-1(Y/X):T= Z「4」+W
子程序(Y):
O≦142700→Z「21」=7:Goto 1△LbI 1: Z「21」=7→J=142400:K=38.1815:P=20000:B=0.0049:M=-0.0048
子程序(JK):
Mcl:Z``ZH``:H``HZ``:CB``JK``:N``I1``:M``IB``:T``LUK``:E=1→``L=``:L=NC/M▲G:``F=``:F=G+TN/2▲Goto 1△``L=``:L=2NC/(N+M)▲F:``G=``:G=F-TN/2▲LbI 1:{O}:O≦Z→Goto 2△O≦Z+C→X=O-Z:Goto 3△O≦H-C→``JK``:J=B▲``S=``:S=T/2+J▲``I=``:M▲Goto 1△O≦H→X=H-O:Goto 3△LbI 2:``JK=``:0▲``S=``:S=T/2▲``I=``:-N▲Goto 1△LbI 3:K=X/C:``JK=``:J=(4K3-3K4)B▲``S=``:S=T/2+J▲X≦L→V=TNX/L:U=G+V:``I=``:I=(U-F)×2/T▲Goto 1△``I=``:=N+(X-L)(M-N)/(C-L)▲Goto 1△←
子程序（E）：
O=138565：O≦137574.511→Z=4：Goto 1△O≦139909.777→Z=2:Goto 1△O≦143429.254→Z=1:Goto 1△LbI 1:Z=2→D=139305.727:T=1402.439:U=0:V=2008.435:W=0:S=8°22′52.66″:F=-1:R=6000:C=280△Z=1→D=142599.844:T=2008.435:U=0:V=5264.973:W=-508.871:S=15°33′17.97″:F=1:R=5000:C=310△Z=4→V=-379.918:W=0:U=19.645:T=-742.81566:D=137211.212:F=1:S=3°5′55″:R=9000:C=240←
子程序（C）:
Z=2Prog ``A``:Prog``B``:G=J+FS:B=90C/π/R:P=C2/24/R:Q=C/2-C3/240/R2:T=Q+(R+P)tan(S/2):L=πRS/180+C:E=(R+P)/cos (S/2)-R:H=D-T:E=J+180:S=V+Tcos E:D=W+Tsin E:Z=H+L:U=V+Tcos G:I=W+Tsin G:LbI 1:{OAMKN}:O≦H→V=H-O:T=J+180:L=J:Goto 2△O≧H→L=O-H:L≦C→Prog``Z``:Prog``Q``:L=J+3W:Goto 2△L≦Z-H-C→E=180(L-C)/π/R+B:X=Q+Rsin E:Y=R-Rcos E+P:Prog``Q``:L=J+FE:Goto 2△L≦Z-H→L=Z-O:Prog``Z``:V=√(X2+Y2):W=-Ftan-1(Y/X):T=G+180+W:L=G+3W:Goto 2△L≧Z-H→V=O-Z:T=G:L=G△LbI 2:X=S:Y=D:O>Z-C→X=U:Y=I△X=X+Vcos T▲Y=Y+Vsin T▲E=L+A:X=X+Kcos E▲Y=Y+Ksin E▲V=E+M:X=X+Ncos V▲Y=Y+Nsin V▲Goto 1
子程序（F）:
TUVW:Prog``B``:E=1→G=J:LbI 0:{XY}:I=X-T:J=Y-U:Pol(I,J:J<0→J=J+360△N=J-G:N<0→N=N+360△N▲L=I▲J``FW``▲Goto 0△E=2→LbI 1:{NL}:E=J+N:X=T+Lcos E▲Y=U+Lsin E▲Goto 1
子程序（S）：
Z=3:Prog``A``:JKRNM:D=N-M:S=Abs D:L=RD:T=L/2:E=T2/2/R:Z=J-T:H=J+T:E=R:D>0→E=-E△E:LbI 1:{O}:O≦Z→L=J-O:G=K-LN▲Goto 1△O≦J→L=J-O:I=O-Z:G=K-LN+I2/2/E▲Goto 1△O≦H→L=0-J:I=H-O:G=K+LM+I2/2/E▲Goto 1△O≧H→L=0-J:G=K+LM▲Goto 1
子程序（Z）：
X=L-L5/(40C2R2):Y=L3/(6CR)
子程序（Q）：
V=√(X2+Y2):W=Ftan-1(Y/X):T=J+W
子程序（B）：
I=V-T:J=W-U:Pol(I,J:J<0→J=J+360△J▲I▲
子程序（A）:
Z=1→D=142599.844:T=2008.435:U=0:V=5264.973:W=-508.871:S=15°33′17.97″:F=1:R=5000:C=310△Z=2→D=139305.727:T=1402.439:U=0:V=2008.435:W=0:S=8°22′52.66″:F=-1:R=6000:C=280△Z=3→R=20000:J=142400:K=38.1815:N=0.0049:M=-0.0048△Z=4→V=-379.918:W=0:U=19.645:T=-742.81566:D=137211.212:F=1:S=3°5′55″:R=9000:C=240
子程序（AREA）：
LbI 1:Mcl:{NAB}:N:P=A:Q=B:S=0:I=2:LbI 0:{CD}:F=(A+C)(B-D):S=S+F:A=C:B=D:I=I+1:I≦N→Goto 0△F=(C+P)(D-Q):S=S+F:S``MIAN JI``=S/2▲S``MU``=0.0015S▲Goto 1

源程序：（有压缩附件）
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◣ 注：网页显示有问题，X、Y后均为上标平方，凡字母后的2都表示平方，√这个符号是根号，以下同。
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所对应的中线高程。
其它程序诸如：超高、水准、导线平差、前、后方交会，坐标正、反算等程序以后再上传。
　　如果此程序对您有帮助，请回帖。


　　　　　　　　　　　　　　　　　　　　　　兰州

登陆WWW.LQ52.COM了解更多施工,测量知识

正好缺 太谢谢了

希望可以用，好东西
学习了

请问哈=&gt是什么符号啊

正好学习下 不错不错

CTCP