曲线任意里程全线中边桩坐标正反算及放样(CASIOfxP计算器)程序档.doc
文本预览下载声明
曲线任意里程全线中边桩坐标正反算及放样(CASIO fx-4800P计算器)程序 一.QXZDJS(计算总调度程序)1 = SJK1:2 = SJK2:M=1 =Prog “SJK1“:Prog “TYQXJS“M=2 =Prog “SJK2“⊿↙M=n =Prog “SJKn“⊿二:TYQXJS(运算主程序曲线任意里程中边桩坐标正反算及放样(CASIO fx-4800P计算器)程序Lb1 0:1.SZ= XY:“2 .XY=SZ”:M:O”ZHK”U”X0”: V”Y0”: G”QFWJ”: HLS:P”RA”:R”RB”: Q:D=(P-R)/(2HPR):M=1 =Goto 1:≠ Goto 2Lb1 1:{SZ}:S“K“:Z:W=Abs(S-O):Prog“SUB1”:X"XS"=X▲Y"YS"=Y▲F"FS"=F-90▲C"X1":E"Y1":I=0:J=0:poI(X-C,Y-E):I“JULI=”▲J<0=J=J+360J“FWJ="▲Goto1Lbl2:{XY}:XY:I=X:J=Y:Prog“SUB2”: S”K”=O+W▲Z”B”=Z▲Goto2三: 正算子程序(SUB1)????????????????????????????????????????????????????????A=0.1739274226:B=0.3260725774:K=0.0694318442:L=0.3300094782:F=1-L:M=1-KX=U+W(Acos(G+57.2958QKW(1/P+KWD))+Bcos(G+57.2958QLW(1/P+LWD))+Bcos(G+57.2958QFW(1/P+FWD))+Acos(G+57.2958QMW(1/P+MWD))):Y=V+W(Asin(G+57.2958QKW(1/P+KWD))+Bsin(G+57.2958QLW(1/P+LWD))+Bsin(G+57.2958QFW(1/P+FWD))+Asin(G+57.2958QMW(1/P+MWD))):F=G+57.2958QW(1/P+WD)+N“N=90”:X=X+ZcosF:Y=Y+ZsinF四. 反算子程序(SUB2)?? T=G-90:W=Abs((Y-V)cosT-(X-U)sinT):Z=0:Lbl 0:Prog SUB1:L=T+57.2958QW(1/P+WD):Z=(J-Y)cosL-(I-X)sinL:AbsZ1E-6=Goto1:≠W=W+Z:Goto 0Δ←┘Lbl 1:Z=0:Prog SUB1:Z=(J-Y)÷sinF五.增设数据库程序(SJK1)????1.SZ = XY:2.XY = SZ:{NS}:S下一线元起点里程=>O=本线元起点里程:U=本线元起点X:V=本线元起点Y:G=本线元起算方位角:H=本线元长度:P=起点曲率半径:R=终点曲率半径:Q=0或1、-1:≠ (第一线元数据要素)S下一线元起点里程=>O=本线元起点里程:U=本线元起点X:V=本线元起点Y:G=本线元起算方位角:H=本线元长度:P=起点曲率半径:R=终点曲率半径:Q=0或1、-1:≠: (第二线元数据要素)S下一线元起点里程=>O=本线元起点里程:U=本线元起点X:V=本线元起点Y:G=本线元起算方位角:H=本线元长度:P=起点曲率半径:R=终点曲率半径:Q=0或1、-1:≠: (第三线元数据要素)。。。。。。。。。。Goto0Δ←┘(第n--1线元数据要素)。。。。。。。。。。Goto0Δ←┘(第n线元数据要素)???????????????????????????????????? 六、使用说明1、规定??????(1).把所有相关的”线元要素“依次输入”SJK1“,M=1是计算“SJK1” 的”线元要素,同时可以计算N条曲线。??(2).运算时QXZDJS(计算总调度程序运行,程序提示输入里程“S”?时,正算直接输入待求点里程,反算输入所求点“近似“里程(3).程序中“X1、Y1、”为测站坐标,“I=”、“J=”为放样距离和方位角??(4) 以道路中线的前进方向(即里程增大的方向)区分左右;当线元往左偏时,Q=-1;当线元往右偏时,Q=1;当线元为直线时,Q=0。????????(5) 当所求点位于中线时,Z=0;当位于中线左铡时,Z取负值;当位于中线中线右侧时,Z取正值。????????(6) 当线元为直线时,其起点、止点的曲率半径为无穷大,以10的45次代替。????????(7) 当线元为圆曲线时,无论其起点、止点与什么线元相接,其曲率半径均等于圆弧的半径。???????? (8) 当线元为完整缓和曲线时,
显示全部