《2022年程序[参 .pdf》由会员分享，可在线阅读，更多相关《2022年程序[参 .pdf（5页珍藏版）》请在taowenge.com淘文阁网|工程机械CAD图纸|机械工程制图|CAD装配图下载|SolidWorks_CaTia_CAD_UG_PROE_设计图分享下载上搜索。
1、卡西欧 5800程序1 ZBZFS(坐标正反算)LbI 5:“1.SZ=NE”:“2.NE=SZ”:?Q:LbI 0:Q=1=Goto 1:Q=2=Goto2LbI 1:“K”?K:“Z”:?Z:“J”?J:Prog“MN09-2”:Prog“QXJS-SUB1”:Prog“GK”:Prog“GCJS”:“N”:X“E”:Y“W”:F?DMS“KM”:K“H”:GProg“PODU”:(E-B)100(D-A)(K-A)+B 100I:(F-C)100(D-A)(K-A)+C 100 J“HL=”：G+I(Abs(Z)-1)“HR=”：G+J(Abs(Z)-1)Goto 5 LbI 2:“K”
2、?K:Prog“MN09-2”:“N”?B:“E”:?C:BN:CE:Prog“QXJS-SUB2”:Prog“GK”:Prog“GCJS”:“K”:K“Z”:Z“H”:GGoto 5 名师资料总结-精品资料欢迎下载-名师精心整理-第 1 页，共 5 页 -2MN092(平曲线要素)If K(HY 点桩号)：then.(ZH 点桩号)O：1045P：,(圆曲线半径)R：,(前缓和曲线长度)L：,(ZH 点 X 坐标)U：,(ZH 点 Y 坐标)V：,.(前一交点方位角)A：Return：IfEnd If K (YH点 桩 号)：then.(HY点 桩 号)O：,(圆曲线半径)P：,(圆曲线半径
3、)R：,(平曲线总长度 Ls1+Ls2)L：,(HY点 X坐标)U：,(HY 点 Y坐标)V：,.(缓圆点的方位角)A：Return：IfEnd(缓圆点的方位角=Ls2R180oZH点的方位角（左减右加）)If K (HZ点 桩 号)：then.(YH点 桩 号)O：,(圆曲线半径)P：1045R：,(后缓和曲线长度)L：,(YH点 X坐标)U：,(YH点 Y坐标)V：,(圆缓点的方位角)A：Return：IfEnd(圆缓点的方位角=LR180oHY点的方位角（左减右加）)名师资料总结-精品资料欢迎下载-名师精心整理-第 2 页，共 5 页 -If K(下一交点的 ZH 点桩号)：then.(
4、HZ 点桩号)O：1045 P：1045R：,(两曲线间的直线长度)L：,(HZ点 X坐标)U：,(HZ 点 Y坐标)V：,.(缓直点的方位角)A：Return：IfEnd 3.GK(竖曲线要素)If K(竖曲线终点桩号)：then.(边坡点高程)A：,(边坡点桩号)B：,(前纵坡)C：(后纵坡)D：,(竖曲线半径)R ：Return：IfEnd 4.QXJSSUB1 0.51R1P LD：KO X：U(Cos(AXPDX 2180,O,X)NV(Sin(A XPDX 2180,O,X)EA(XPDX 2)180ENZCos(F+J)N：EZSin(F+J)Y：Return 5.QXJSSUB
5、2 LbI 1：0 1：1Q：Prog“QXJS-SUB1”Pol(N B10-46,E-C10-46)：Z Sin(F 90JW:K W KAbsw0.0001 Goto 1名师资料总结-精品资料欢迎下载-名师精心整理-第 3 页，共 5 页 -LbI 2：0Z:Prog“QXJS-SUB1”:(C E)Sin(F+90)ZReturn 5.GCJS CDE:Abs RE 2S:RAbsE)E)RIf K BS:then 0H:Else If K BS:then 0H:DC:Else KBSH:IfEnd :IfEnd A-(BKCH22R G:Cls Return 6.GAOCHENG L
6、bI 1：“K”?K:Prog“G K”:Prog“GCJS”:“Z”?Z:“JG”?N:“KM=”:Locate 4,1，K：Locate 10,1，“Z”Locate 13,1，Z：Fix 3“H=”:Locate 4,2，G Prog“PODU”:(E B100DAKAB100I:FC100DAKAC100J“HL=”:GI Z1X:Locate 4,3，X:Locate 11,3，“I=”:Locate 13,4，I 100“HR=”:G JZ1Y:Locate 4,4，X:Locate 11,4，“I=”:Locate 13,4，J100 Cls:Norm 2：“BM+SH”0，Go
7、to 1”？Z:Z0，Goto 1:Cls 名师资料总结-精品资料欢迎下载-名师精心整理-第 4 页，共 5 页 -“KM=”:Locate 4,1，K：Locate 10,1，“PY”Locate 13,1，L：Fix 3“QSM=”:Locate 6,2，ZG“QSL=”:Locate 6,3，ZX“QSR=”:Locate 6,4，ZY Norm 2：Cls:Goto 1 7.BPFY Prog“GCJS”:G 11.25Z2 1000.750.04Z1 D:If D0 then13+4+AbsD 1.5 AbsZ W:Else If D0:then 13+0.5+AbsD1.5AbsZW:IfEnd :Return名师资料总结-精品资料欢迎下载-名师精心整理-第 5 页，共 5 页 -