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

《4800、5800、工程计算器万能程序》由会员上传分享，免费在线阅读，更多相关内容在工程资料-天天文库。

1、48000直曲线计算器程序程序名ZCXP二I?十(24R)・L44-(2688R3)M=L^2-L3^(240R2)B=90L4-(jiR)T=(R+P)Xtan(AbsAF2)+MC“ZH”=D・TG“HY”二C+LH“YH”二G+(AbsA4-2-2B)XnR4-180I“HZ”=H+LLbiO:

2、F+180)+Jcos(AbsA0—A+F):“X0=”:Q/S=E+Tsin(F+180)+Jsin(AbsA0*A+F):“Y0=”:S,W二F+3AbsA0FALbi3-KwIIG0t06XHK丄—(K丄二小(40WSyh(i—k)3-i-(6lr)—(i—k)7+(336R3L3)JH<(X2+Y2)OHUm丄(Y-l-x)QHN+TCOS(F+A)+JCOS(F+A十180丄bsAO+A)uolokSHN+Tsin(F+A)+Jsin(F+A+180—AbsA0-l-A)-skWUF+A—3AbsA0-l-AGobo4、Lbi严Goto4K

3、LbiAKvH->G0b03XHRSin((K—G)X180+7R)+B)+Myhr(1—cos((k—g)X180+(n5十b))十PJH<(X2+Y2)OHUm丄(Y-l-x)QHN+TCOS(F+180)+JCOS(AbsA0+A+F)-okSHE+Tsin(F+180)+Jsin(AbsA0-l-A+F)“skWUF+AbsAB-l-A+AbsA(K—G)xl80-l-(nR)-l-AGobo4U二Q+Zcos(w-90):“XL二”:U，V二S+Zsin(W-90):“YL=”:N▲U二Q+Zcos(W+90):“XR二”:U/V二S+

4、Zsin(W+90):“YL二”:VJGotoOZlLbi5:Q=N+(D-K)cos(F+180):“X0=”:Q,S二E+(D-K)sin(F+180):“YO二”:S/W=FGotodZlLbi6:Q=N+(T+K-I)cos(F+A):“X0=”:Q,S二E+(T+K-I)sin(F+A):“YO二”:S/W二F+AGoto4Z“END”程序名JDXXXXA=XXXXXR=XXXXXF=XXXXXD=XXXXXL=XXXXXN=XXXXXE=XXXXXProg“ZCX”A程序中：K表示里程(変量)Z表示該里程處左右邊樁距中心垂距A表示曲綫轉角（

5、左轉-，右轉+）R曲綫半徑58000直曲线计算器程序程序名ZCXL24-(24R)-L44-(2688R3)->PL-F2-L3^(240R2)-MB=90LF(JiR)—BT=(R+P)Xtan(Abs(A)—2)+M-TD-T-C：“ZII二”:C+L-G：“HY二”:G,G+(AbsA一2・2B)XjiR4-180-H：“YH二”:H/H+L-1：“HZ二”:I〉LbiO:?KIfKWG：ThenGotol:ElseK>G：Goto2：IfEndLbil:(K-C)W0oGoto5K-C-(K-C)54-(40R2L2)-X(K-C)3(6LR)

6、-(K-C)7(336R3L3)->YV(X2+Y2)fJtan1(Y4-X)->0N+Tcos(F+180)+Jcos(AbsA04-A+F)—Q:“XO二”:Q/E+Tsin(F+180)+Jsin(AbsA04-A+F)-*S：“YO二”:S/F+3AbsA0FAfW/GotodLbi2:K^H>Goto3Rsin((K-G)X180=(兀R)+B)+M—XR(l-cos((K-G)X1804-(jiR)+B))+P-YJ(X2+Y2)Jtan1(Y4-X)->0Q二N+Tcos(F+180)+Jcos(AbsA0一A+F)-Q:“XO二”:Q,

7、S二E+Tsin(F+180)+Jsin(AbsA0FA+F)->S:“YO二”:W=F+AbsAB^A+AbsA(K-G)X180H-(nR)「A-WGoto4Lbi3:K2I=>+Goto6ZlK-I-(K-I)5H-(40R2L2)-X(I-K)34-(6LR)-(I-K)74-(336R:U)-YV(X2+Y2)fJtan1(Y4-X)->0N+Tcos(F+A)+Jcos(F+A+180-AbsA0—A)-Q:“XO二”：Q/N+Tsin(F+A)+Jsin(F+A+180-AbsA0=A)-S:“YO二”：S/F+A-3AbsA0=AfWG

8、oto4Lbi4:Q+Zcos(W-90)_U:“XL二”:S+Zsin(W-90)-V:“Y