卡西欧5800坐标正反算.doc

《卡西欧5800坐标正反算.doc》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、卡西欧5800坐标正反算主程序“1.KD=>XY”:“2.XY=>KD”:”N”?N:”XA”?U:”YA”?V:”DKA”?O:”CA”?G:”LS”?H:”RA”?P:”RB”?R:”Q”?Q:1/P->C:(P-R)/(2*H*P*R)->D:180/∏->E:IFN=1:THENGOTO1:ELSEGOTO2:IFENDLbl1:”DKI”?S:”D”?Z:Abs(S-O)->W:PROG“SUB1”:”XS”:X◢“YS”:Y◢GOTO1Lbl2:”X”?X:”Y”?Y:X->I:Y->J:Prog“SUB2”:O+W->S“S

2、”:S◢“Z”:Z◢GOTO2子程序“SUB1”0.->A:0.->B:0.->K:0.->L:1-L->F:1-K->M:U+W(ACOS(G+QEKW(C+KWD))+BCOS(G+QELW(C+LWD))+BCOS(G+QEFW(C+FWD))+ACOS(G+QEMW(C+MWD))->X:V+W(ASIN(G+QEKW(C+KWD))+BSIN(G+QELW(C+LWD))+BSIN(G+QEFW(C+FWD))+ASIN(G+QEMW(C+MWD))->Y:G+QEW(C+WD)+90->F:X+ZCOS(F)->X:Y+ZSI

3、N(F)->Y子程序“SUB2”G-90->T:Abs((Y-V)COS(T)-(X-U)SIN(T))->W:0->Z:Lbl0:Prog“SUB1”:T+QEW(C+WD)->L:(J-Y)COS(L)-(I-X)SIN(L)->Z:IFAbs(Z)<1*10^(-6):THENGOTO1:ELSEW+Z->W:GOTO0:IFENDLbl1:0->Z:Prog”SUB1”：(J-Y)/SIN(F)->Z说明：输入与显示输入部分：1.SZ=>XY2.XY=>SZN?选择计算方式，输入1表示进行由里程、边距计算坐标；输入2表示由坐标反算

4、里程和边距。XA？线元起点的X坐标YA？线元起点的Y坐标DKA？线元起点里程CA？线元起点切线方位角LS？线元长度RA？线元起点半径（直线上输10的45次方）RB？线元止点半径（直线上输10的45次方）Q？线元左右偏标志(左偏Q=-1，右偏Q=1，直线段Q=0)DKI？正算时所求点的里程D？正算时所求点距中线的边距(左侧取负，值右侧取正值，在中线上取零)X？反算时所求点的X坐标Y？反算时所求点的Y坐标显示部分：XS=×××正算时，计算得出的所求点的X坐标YS=×××正算时，计算得出的所求点的Y坐标S=×××反算时，计算得出的所求点的里程Z

5、=×××反算时，计算得出的所求点的边距规定(1)以道路中线的前进方向（即里程增大的方向）区分左右；当线元往左偏时，Q=-1；当线元往右偏时，Q=1；当线元为直线时，Q=0。(2)当所求点位于中线时，Z=0；当位于中线左铡时，Z取负值；当位于中线中线右侧时，Z取正值。(3)当线元为直线时，其起点、止点的半径为无穷大，以10的45次代替。(4)当线元为圆曲线时，无论其起点、止点与什么线元相接，其半径均等于圆弧的半径。(5)当线元为完整缓和曲线时，起点与直线相接时，半径为无穷大，以10的45次代替；与圆曲线相接时，半径等于圆曲线的半径。止点与直

6、线相接时，半径为无穷大，以10的45次代替；与圆曲线相接时，半径等于圆曲线的半径。(6)当线元为非完整缓和曲线时，起点与直线相接时，半径等于设计规定的值；与圆曲线相接时半径等于圆曲线的半径。止点与直线相接时，半径等于设计规定的值；与圆曲线相接时，半径等于圆曲线的半径。曲线任意里程中边桩坐标正反算(CASIOfx-4800P计算器)程序1.主程序(TYQXJS)"1.SZ=>XY"："2.XY=>SZ"：N：U"X0"：V"Y0"：O"S0"：G"F0"：H"LS"：P"R0"：R"RN"：Q：C=1÷P：D=(P-R)÷(2HPR)：E=

7、180÷π：N=1=>Goto1：≠>Goto2Δ←┘Lbl1：{SZ}：SZ：W=Abs(S-O)：Prog"SUB1"："XS":X=X◢"YS":Y=Y◢"FS":F=F◢Goto1←┘Lbl2：{XY}：XY：I=X：J=Y：Prog"SUB2"："S":S=O+W◢"Z":Z=Z◢Goto22.正算子程序(SUB1)A=0.：B=0.：K=0.：L=0.：F=1-L：M=1-K：X=U+W(Acos(G+QEKW(C+KWD))+Bcos(G+QELW(C+LWD))+Bcos(G+QEFW(C+FWD))+Acos(G+QEM

8、W(C+MWD)))：Y=V+W(Asin(G+QEKW(C+KWD))+Bsin(G+QELW(C+LWD))+Bsin(G+QEFW(C+FWD))+Asin(G+QEMW(C+MWD))