卡西欧5800.doc

[CASIO坐标正反算程序]以下程序为CASIO(卡西欧)fx-5800工程用坐标正反算计算程序,由一个主程序和两个子程序构成,可以根据直线、圆曲线、缓和曲线(完整和非完整)的线元要素(起点坐标、起点里程、起点切线方位角、线元长度、起点曲率半径、止点曲率半径)及里程边距或坐标,对该曲线段范围内任意里程中边桩坐标进行正反算。以下程序不是我班华响编的,但已经经过我小班修改后在本人的5800上输入使用过了的,计算很精确,正算完全没问题,反算有点误差,,感觉非常棒。如果有哪个朋友干工程用5800的尽管放心使用,绝对没问题,有问题的话在QQ上和我说,帮你解答疑问。ZBZFS(主程序名)"→XY""→SZ"?→N:Cls"QDX"?U:"QDY"?V:"QDLC"?O:"QDFWJ"?G:"XC"?H:"QDR"?P:"ZDR"?R:"ZP:-1YP:1ZX:0"?Q1÷P→C:(P-R)÷(2HPR)→D:180÷π→EN=2=>Goto2LbI1:Cls:"JSDLC"?S"ZP:-YP:+IN:0"?Z:Abs(S-O)→WProg"ZBZS":Cls"X=":X◢"Y=":Y◢"JSDFWJ=":F-90?DMS◢Goto1LbI2:Cls:?X?Y:X→I:Y→JProg"ZBFS":O+W→S:Cls"LC=":S◢"ZP:-YP:+NP:0=":Z◢Goto2ZBZS(子程序名)→A:→→K:→L1-L→F:1-K→MG+QEKW(C+KWD)→Z[1]G+QELW(C+LWD)→Z[2]G+QEFW(C+FWD)→Z[3]G+QEMW(C+MWD)→Z[4]A×cos(Z[1])→X(乘号可省略)X+Bcos(Z[2])→XX+Bcos(Z[3])→XX+Acos(Z[4])→XU+WX→XAsin(Z[1])→YY+Bsin(Z[2])→YY+Bsin(Z[3])→YY+Asin(Z[4])→YV+WY→YG+QEW(C+WD)+90→FX+Zcos(F)→XY+Zsin(F)→YZBFS(子程序名)G-90→T(Y-V)cos(T)-(X-U)sin(T)→WAbs(W)→W:0→ZLbI4:Prog"ZBZS"T+QEW(C+WD)→L(J-Y)cos(L)-(I-X)sin(L)→ZIfAbs(Z)<1E-6:Then0→Z:Prog"ZBZS"(J-Y)÷sin(F)→ZElseW+Z→W:Goto4:IfEnd注意:①输入程序时请注意数字0和字母O的区别。②1E-6即是10的负6次方,,输入时按SHIFT---log---(-)---6,也可以直接將IfAbs(Z)<1E-6写成IfAbs(Z)<③当线元为直线时,其起点和终点的曲率半径为无穷大,以10的45次方代替。当线元为圆曲线时,无论其起点和止点与什么线元相接,其曲率半径均等于圆弧半径。当线元为完整缓和曲线时,起点与直线相接时,曲率半径为无穷大,以10的45次方代替,与圆曲线相接时,曲率半径等于圆曲线的半径;止点与直线相接时曲率半径为无穷大,以10的45次方代替,与圆曲线相接时,曲率半径等于圆曲线半径。当线元为非完