曲线任意里程全线中边桩坐标正反算及放样(CASIO fx-4800P计算器)程序供参习.docVIP

曲线任意里程全线中边桩坐标正反算及放样(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(Ｓ－Ｏ)：Ｐｒｏｇ“ＳＵＢ１”：Ｘ＂ＸＳ＂＝Ｘ▲Ｙ＂ＹＳ＂＝Ｙ▲Ｆ＂ＦＳ＂＝Ｆ－９０▲Ｃ＂Ｘ１＂：Ｅ＂Ｙ１＂：Ｉ＝０：Ｊ＝０：ｐｏＩ（X-C,Y-E）：Ｉ“ＪＵＬＩ＝”▲Ｊ＜０=Ｊ=Ｊ+３６０Ｊ“ＦＷＪ＝＂▲Goto１Ｌｂｌ２：｛XY｝：XY：I=X:J=Y：Ｐｒｏｇ“ＳＵＢ2”： S”K”=O+W▲Z”B”=Z▲Goto2三： 正算子程序(SUB1)????????????????????????????????????????????????????????A=0.1739274226：B=0.