文档详情

曲线任意里程全线中边桩坐标正反算及放样(CASIOfxP计算器)程序档.doc

发布:2017-03-25约5.32千字共5页下载文档
文本预览下载声明
曲线任意里程全线中边桩坐标正反算及放样(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 2 Lb1 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+360 J“FWJ="▲ Goto1 Lbl2:{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-K X=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) 当线元为完整缓和曲线时,
显示全部
相似文档