5800万能程序

《5800万能程序》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、5800万能程序1.主程序XLJS（线路计算）Lbl0"1.ZBZS,2.ZBFS"?NIfN=1：ThenGoto1：ElseIfN=2：ThenGoto1：IfEnd：Goto0Lbl1"QDDK"?O："X0"?U："Y0"?V："N0"?G："L"?H："R1"?P："R2"?R："，Z,-1,0,Y,+1"？Q1÷P→C：(P-R)÷(2HPR)→D：180÷π→EIfN=1:ThenGoto2：ElseIfN=2：ThenGoto3：IfEnd：Goto0Lbl2："JSDK"?ZIfZO+H：ThenGoto2：IfEnd"E,

2、Z,-,Y,+"?S：Abs(Z-O)→W：Prog"ZSZCX"："X="：▲"Y="：Y◢▲"N0="：F-90→M：M实心DMS◢▲Goto1Lbl3："X0"?X："Y0"?Y：X→I：Y→J：Prog"FSZ0CX"："DK="：O+W→Z◢▲"E=,Z,-,Y,+"：S▲◢Goto12.反算子程序(FSZCX)G-90→T：Abs((Y-V)cos(T)-(X-U)sin(T)→W：0→S：Lb10：Prog"ZSZCX"：T+QEW(C+WD)→L：(J-Y)cos(L)-(I-X)sin(L)→SIfAbs(S)<10^(-6):ThenGoto1：ElseW+S→W

3、：Goto0Lbl10→SProg"ZSZCX"：(J-Y)÷sin(F)→S3.正算子程序(ZSZCX)0.1739274226→A：0.3260725774→B：0.0694318442→K：0.3300094782→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))

4、）→Y：G+QEW(C+WD)+90→F：X+Scos(F)→X：Y+Ssin(F)→Y说明：5800计算万能程序可以反算曲线弧长！（QDDK(起点里程)为曲线左右偏左偏输入-1右偏输1E为偏距左偏输入负值右偏输入正值）本程序算的将曲线分为三段算ZH—HY,HY—YH，YH—HZa、ZH—HY段算的R1=1*R2=R(曲线半径)L为缓和曲线长b、HY—YHR1=RR2=R为圆曲线长N为HY的切线方位角c、ZH—HY段算的R1=RR2=1*L为缓和曲线长N为YH的切线方位角d、反算也一样下面两个为常用的坐标正反算1.ZBFS（坐标反算）"X0"?A："Y0"?B："X1"?C："Y1"

5、?D◢"M="：C-A→M◢"L="：D-B→L◢"S="：→S◢"N=："(M÷S)→N：IfL<0：Then360-N→N：ElseN→N2.ZBZS（坐标正算）"X0"?A："Y0"?B："K2"?P："K1"?Q："N"?N："E"?E◢"S="：Abs(P-Q)→S◢"X="：A+Scos(N)+Ecos(N+90)→X◢"Y="：B+Ssin(N)+Esin(N+90)→Y◢