4800、5800、工程计算器万能程序.docVIP

48000直曲线计算器程序 程序名ZCX P=L2 ÷（24 R）- L4÷(2688 R3) M=L÷2-L3÷(240R2) B=90L÷（πR） T=（R+P）×tan(AbsA ÷2)+M C“ZH”=D-T G“HY”=C+L H“YH”=G+（AbsA÷2-2B）×πR÷180 I“HZ”=H+L Lbi0: ｛K｝ K≤G＝→Goto1:≠ →Goto2⊿ Lbi1: (K-C)≤0→Goto5⊿ X=K-C-(K-C)5÷(40R2L2) Y=(K-C)3÷(6LR)-(K-C)7÷(336R3L3) J=√(X2+Y2) O=tan-1(Y÷X) Q=N+Tcos(F+180)+Jcos(AbsAO÷A+F):“X0=”：Q◢ S=E+Tsin(F+180)+Jsin(AbsAO÷A+F):“Y0=”：S◢ W=F+3AbsAO÷A Goto4⊿ Lbi2: K≥H→Goto3⊿ X=Rsin((K-G)×180÷(πR)+B)+M Y=R（1-cos((K-G)×180÷（πR）+B)）+P J=√(X2+Y2) O=tan-1(Y÷X) Q=N+Tcos(F+180)+Jcos(AbsAO÷A+F):“X0=”：Q◢ S=E+Tsin(F+180)+Jsin(AbsAO÷A+F):“Y0=”：S◢ W=F+AbsAB÷A+AbsA(K-G)×180÷（πR）÷A Goto4⊿ Lbi3: K≥I→Goto6⊿ X=K-I-(K-I)5÷(40R2L2) Y=(I-K)3÷(6LR)-(I-K)7÷(336R3L3) J=√(X2+Y2) O=tan-1(Y÷X) Q=N+Tcos(F+A)+Jcos(F+A+180-AbsAO÷A):“X0=”:Q◢ S=N+Tsin(F+A)+Jsin(F+A+180-AbsAO÷A):“Y0=”:S◢ W=F+A-3AbsAO÷A Goto4⊿ Lbi4: ｛Z｝ U=Q+Zcos(W-90):“XL=”：U◢ V=S+Zsin(W-90):“YL=”：V◢ U=Q+Zcos(W+90):“XR=”：U◢ V=S+Zsin(W+90):“YL=”：V◢ Goto0⊿ Lbi5: Q=N+(D-K)cos(F+180):“X0=”：Q◢ S=E+(D-K)sin(F+180):“Y0=”：S◢ W=F Goto4⊿ Lbi6: Q=N+(T+K-I)cos(F+A):“X0=”：Q◢ S=E+(T+K-I)sin(F+A):“Y0=”：S◢ W=F+A Goto4⊿ “END” 程序名JDXXXX A=XXXXX R=XXXXX F=XXXXX D=XXXXX L=XXXXX N=XXXXX E=XXXXX Prog“ZCX”◢ 程序中：K表示里程（変量） Z表示該里程處左右邊樁距中心垂距 A表示曲綫轉角（左轉-，右轉+）R曲綫半徑 58000直曲线计算器程序 程序名ZCX L2 ÷（24 R）- L4÷(2688 R3)→P L÷2-L3÷(240R2) →M B=90L÷（πR）→B T=（R+P）×tan(Abs（A) ÷2)+M→T D-T→C：“ZH=”：C◢ C+L→G：“HY=”：G◢ G+（AbsA÷2-2B）×πR÷180→H：“YH=”：H◢ H+L→I：“HZ=”：I◢ Lbi0: ？K IfK≤G：ThenGoto1:ElseK＞G： Goto2：IfEnd Lbi1: (K-C)≤0? Goto5 K-C-(K-C)5÷(40R2L2) →X (K-C)3÷(6LR)-(K-C)7÷(336R3L3) →Y √(X2+Y2) →J tan-1(Y÷X) →O N+Tcos(F+180)+Jcos(AbsAO÷A+F) →Q:“X0=”：Q◢ E+Tsin(F+180)+Jsin(AbsAO÷A+F) →S：“Y0=”：S◢ F+3AbsAO÷A→W◢ Goto4 Lbi2: K≥H≯Goto3 Rsin((K-G)×180÷(πR)+B)+M→X R（1-cos((K-G)×180÷（πR）+B)）+P→Y √(X2+Y2) →J tan-1(Y÷X) →O Q=N+Tcos(F+180)+Jcos(AbsAO÷A+F) →Q:“X0=”：Q◢ S=E+Tsin(F+180)+Jsin(AbsAO÷A+F) →S:“Y0=”：S◢ W=F+AbsAB÷A+AbsA(K-G)×180÷（πR）÷A→W Goto4 Lbi3: K≥I?+Goto6⊿ K-I-(K-I)5÷(40R2L2) →X (I-K)3÷(6LR)-(I-K)7÷(336R3L3) →Y