CASIO4800匝道程序

《CASIO4800匝道程序》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、CASIO-fx48ØØ匝道坐标放样程序0№XIANXINGZU（471步）1Deg:Defm154:M“1SURU6YIZB7FY”=7=>Goto2⊿M=6=>Goto5⊿Z“JIZUXIANXIN”:E=Z:2T=1:Z［5］=T:L“1JISUAN2SHURU”=2=>Goto4⊿Fixm:｛WGHD｝:Prog“D”:LbI1:Fixm:3｛ABU｝:Prog“E:S=Ø:Prog“C”:Prog“A”:IszT:Prog“B”:DszZ:Goto1:Goto5:4LbI2:Fixm:IszZ［5］:｛FS｝:F“ZHUANGHAO”S“D”:T=1:LbI3:F≥Z［7T+5］=>

2、IszT:5T＜E+1=>Goto3⊿⊿T=T-1:T≤1=>T=1:T＞E+1=>T=E⊿⊿Prog“B”:L=F-W:Z［5］＞20=>6Goto2:Prog“C”:“ENDOK!”:Z［3］=E-3Ø:N=Z［1］:O=Z［2］:K=Z［6］:L=Z［4］:7Prog“F”:V=J:Prog“G”:J-V:Prog“I”:Goto2:8LbI4:Fixm:｛WGHDABU｝:Prog“D”:Prog“E”:Prog“A”:W=W+L:IszT:DszZ:Goto4:Goto5:9LbI5:Fixm:｛NOKL｝:Prog“H”:Z［1］=N:Z［2］=O:Z［6］=K:Z［4］=L:Go

3、to2(主程序结束)A（子程序）（132步）1Z［7T+1］=G:Z［7T+2］=H:Z［7T+3］=U:Z［7T+4］=D:Z［7T+5］=W:Z［7T+12］=W+L:2Z［7T+6］=A:Z［7T+7］=B:Z［7T+11］=V-9Ø:Z［7T+8］=X:Z［7T+9］=YB（子程序）（87步）1G=Z［7T+1］:H=Z［7T+2］:W=Z［7T+5］:A=Z［7T+6］:B=Z［7T+7］:D=Z［7T+4］:C=Z［7T+3］C（子程序）（16Ø步）1P=AbsC÷C:C=AbsC:V=D+P(AL+L2÷2C×(B-A))r+9Ø:Rad:2X=L:Y=H+∫((Sin(Dº+P

4、(AX+X2÷2C×(B-A，Ø，X，4:3X=L:X=G+∫((Cos(Dº+P(AX+X2÷2C×(B-A，Ø，X，4:Deg:4X=X+ScosV◢Y=Y+SsinV◢D（子程序）（49步）1W“QDZHUANGHAO”G“X1”H“Y1”D“A1>”E（子程序）（54步）1A“R1”：B“R2”：U“LS”:C=U:L=AbsC:A=A-1:B=B-1F（子程序）（3Ø步）1Pol(K-N，L-O+Z[3]G（子程序）（3Ø步）1Pol(X-N，Y-O+Z[3]H（子程序）（53步）1N“XYIQI”O“YYIQI”K“XHOUSI”L“YHOUSI”I(子程序）（65步）1Ans＜Ø

5、=>Ans+36Ø⊿2V=Ans:6ØFracAns:V“＜JIAODU”=IntV+.Ø1IntAns+6mFracAns◢I“S=”◢4CASIOfx-48ØØ匝道坐标程序02ØØ3.11说明：1.本程序根据微积分中牛顿-柯特斯（辛普生）公式编制。可对任何线形（直、缓、园、复、卵、回头曲线）上的坐标及边桩坐标进行计算。并在输入置仪点和后视点坐标后及时给出放样所需的角度,边长。2.本程序一次最多可输入二十组连续线形。若要增加或减少，请将主程序(1)中【Defm154:】的154改为（线形组数量+2）×7即可。【CASIO-48ØØ扩展内存不能用字母输入是该机的一个设计缺陷。】3．程序中数据存

6、储在下列寄存器中：线形数量→Z,线形序号→T,起算点坐标X1→Z［7T+1］,Y1→Z［7T+2］,曲线长度LS→Z［7T+3］,起算点的切线方位角→Z［7T+4］，起算点桩号→Z［7T+5］,线形前半径R1→Z［7T+6］,线形后半径R2→Z［7T+7］,欲求点桩号→F,边桩距离→S，置仪点坐标X→Z［1］,Y→Z［2］,后视点X→Z［6］,Y→Z［4］，T为线形序号，程序自动计算。4.本程序直接输入各线形参数时需输入数据①起算点桩号，②起算点坐标X,Y;③线形两端半径R1,R2;角，④起算点的切线方位⑤线形长度，⑥欲求点桩号，⑦边桩距中线距离。进行计算输入时第一次需输入上述①-⑤数据，以后

7、只需输入③⑤即可。本程序自动计算下一个线形的起算坐标，桩号，方位角。5.本程序直线半径输入时因为是无穷大，所以输入直线半径请按【EXP】【99】。子程序C(1)中V=D+P(AL+L2÷2C×(B-A))r的r用按键[FUNCTION][5][5]输入。子程序C(2,3)中(Dº+的º用按键[FUNCTION][5][4]输入。子程序R(2)中(6mFracAns◢)的m用按键[FUNCTION]