资源描述：
《casiofx-4850、5800程序-》由会员上传分享，免费在线阅读，更多相关内容在工程资料-天天文库。
1、CASIOfx-4850计算器程序一、对称曲线测量放样主程序[以交点支距法进行编制、同时可以计算左中右和斜交坐标]ZBF（主程序文件名〉Lbl0：{KB}：K“LI”：B“（+Z,0,-Y）”（换行）（放样时公路左右幅宽度:左+,右-，中桩时为0）Prog“PQXSJK”:Prog“C”:（换行）1>0（零）J=2：GotoA:J=1（换行）LblA:K〈Z-TS=Z-K：F=G+180：O=F+90：Goto4（换行）K^Z-T+L/2S=K-Z+T：E=l：F=G：Gotol（换行）Goto8:LI8:K〉Z-T+LS=2T-L-Z+K：F二G+I:O=E+270：
2、Gotod:K>Z-T+L/2S=Z-T+L-K：E=2:F=G+I（换行）Lbl1:Prog“ZJXY”：（换行）W=X+（-1）JXBsin（O+A）:H=Y-（-1）*JXBcos（O+A）：“X=”:X=M+（-1）"E（T-W）cosF-（_l厂JXHsinF（换行）“Y=”:Y=N+（-1）'E（T-W）sinF+（-l）*JXHcosF（换行）Prog“GLFY”：GotoO（换行）若采用后视方位角放样时将此行巾Prog“GLFY”即可。Lbl4：{A}（换行）X（换行）（换行）若采用后视方位角放样吋将此行中Prog“GLFY”改为Prog“FWJ”即可,
3、X=M+ScosF+Bcos（0+A）:“X=”：“Y=”：Y=N+SsinE+Bsin（O+A）Prog“GLFY”：GotoO（换行）使用及计算器显示说明：1、提取文件名“ZBF”（坐标法）后按“EXE”键。2、显示LI?,此时输入待放点里程桩号。3、显示KD（+Z,0,-Y）?,此时输入待放点（里程桩号）相对中桩的距离，（左为+,中为0,右为-）。4、显示A?（边桩待放点与中桩的法线夹角），若正交90度时输入0,斜交吋输入实际斜交角度。5、显示X=****；Y=****；是计算出来的待点坐标（x,y）值。6、显示X0?,此时输入置仪点x坐标位。（第1次提取使刪才显
4、，第2*卿次均不显,但置仪点变后需重新提取输入XO、Y0、XI、Y1值）第6-9步-样，7、显示Y0?,此时输入貫仪点y坐标值。8、显示XI?,此时输入后视点x坐标值。9、显示Y1?,此吋输入后视点y坐标值。后连续按两下“EXE”键，10、r=****是置仪点至待放点的距离；0=****是经转换后的待放点方位角。二、曲线参数子程序[服务于ZBF主程序、也能单独使用]C（曲线参数子程序文件名）Defm2（换行）RC“LS”I（换行）注R曲线半径、“LS”设计缓和曲线长、I路线偏角（交点转角）在各程序中均为此代号。Z[l]=C"2+24（T3+2688ir3:Z[2]二（T
5、2+C"3+240ir2（换行）T=（R+Z[l]）tanAbs0.5I+Z[2]（换行）L=hRAbsI+180+C（换行）J=2T-L（换行）E=（R+Z[1]）4-（cosO.5I）-R（换行）三、切线支距（X、Y）子程序[服务于ZBF主程序、也能单独使用]ZJXY（切线支距子程序文件名）式中Z[1]=P;Z[2]=Q{A}：S）lf2C'2）:Y=S:3+（6KChS:7+（336R:3C3》:0=90（2S-C）4-（jiR）:X=Z[2]+RsinO:Y-Z[l]+R（l-cosO）（挽行）注：涂色样部
6、分可换成微积分后的前七项使用。四、线路平面曲线要素数据库⑼巫麗醐座kK〈…（第1曲线HZ或YZ点桩号）卜"（第1交点坐标x值）:N=…（第1交点坐标y值）:R=…（曲线半径）：C=…（缓和曲线长）：I—（线路偏角、输入时左转为一定要代号右转为“+”不代“+”号）：G=〜（线路切线方位角）:Z=…（交点桩号）：K〈…（第2曲线HZ或YZ点桩号）卜“（第2交点坐标x值）：N=…（第2交点坐标y值）：（曲线半径）：C=…（缓和曲线长）：1=同上，连续将整条线路曲线要素装完，便于使用吋方便。若另外有其他线路时就另装一条线的数据库。五、归零放样子程序［服务于ZBF主程序、也能
7、单独使用］GLFY归零放样子程序文件名U“X0”：V“Y0”（罝仪点x，y值）：P“XI”：Q“Y1”：XY（待放点x,y值）（换行）Pol（P-U,Q-V）（换行）W二J（换行）Pol（X-U,Y-V）A（换行）J-W^O（零）JR->D1SA（换行）J-W+360-*DMSA（挽行）六、后视方位角放样子程序［服务于ZBF主程序、也能单独使用］FWJ后视方位角放样子程序文件名U“XO”：V“YO”（置仪点x，y值）Lbl0:{XY}:X“X=,0END”（换行）Y”Y=”（换行）Pol（X-U,Y-V）:Cls（换行）J〈0J=J+3
