casio4800各种曲线放样程序
ll_yj_8
ll_yj_8 Lv.3
2008年01月15日 15:26:47
只看楼主

源程序:(有压缩附件)JZBHHQX 极坐标缓合曲线放样Lbl 0ABCZEFMNSRUVT: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⊿

源程序:(有压缩附件)
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所对应的中线高程。
其它程序诸如:超高、水准、导线平差、前、后方交会,坐标正、反算等程序以后再上传。
  如果此程序对您有帮助,请回帖。


                      兰州
7ff14b0fe7624bb9e42f.rar
4.7 KB
立即下载
免费打赏
msbyye2009
2011年04月03日 19:41:01
12楼
谢谢 楼主辛苦奉献,下载学习备用,等到有用时,我在丛中笑
回复
yinxianshu
2013年03月04日 19:47:58
13楼
楼主辛苦奉献,下载学习备用
回复
yangmaolin0918
2013年03月28日 15:56:14
14楼

非常感谢楼主
回复
fzjian666777
2013年05月07日 09:11:58
15楼
好资料,谢谢楼主。
回复

相关推荐

APP内打开