ASIf4850、5800程序.docVIP

CASIOfx-4850计算器程序 一、 对称曲线测量放样主程序[以交点支距法进行编制、同时可以计算左中右和斜交坐标] ZBF （主程序文件名〉 Lbl 0： {KB}： K“LI”： B“（+Z, 0, -Y）” （换行）（放样时公路左右幅宽度:左+,右-，中桩时为0） Prog “PQXSJK”: Prog “C”:（换行） 10 （零）J=2： GotoA: J=1 （换行） Lbl A:K〈Z-T S=Z-K： F=G+180： O=F+90： Goto4 （换行） K^Z-T+L/2 S=K-Z+T： E=l： F=G： Gotol （换行） Goto 8:LI 8:K〉Z-T+L S=2T-L-Z+K： F二G+I: O=E+270： Gotod: KZ-T+L/2 S=Z-T+L-K： E=2:F=G+I （换行） Lbl 1: Prog “ZJXY”：（换行） W=X+ （-1） J X Bsin （O+A）: H=Y- （-1） * J X Bcos （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” 即可。 Lbl 4： {A}（换行） X （换行） X （换行） （换行） 若采用后视方位角放样吋将此行中Prog “GLFY”改为Prog “FWJ”即可, “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次提取使刪才显，第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]=C2+24（T3 + 2688ir3:Z[2]二（T2 + C3 + 240ir2 （换行） T=（R+Z[l]）tan Abs 0.5I+Z[2]（换行） L= h R Abs I + 180+C （换行） J=2T-L （换行） E=（R+Z[1]）4- （cosO. 5I）-R （换行） 三、 切线支距（X、Y）子程序[服务于ZBF主程序、也能单独使用] ZJXY （切线支距子程序文件名）式中Z[1]=P; Z[2]=Q {A}： SC ^0=90 S24-（jiRC）:X=S-S:5+）lf 2 C2）:Y=S:3+（6KChS:7+（336R:3C3》:0=90（2S-C） 4- （ ji R）:X=Z[2]+RsinO:Y-Z[l]+R（l-cosO）（挽行）注：涂色样部分可换成微积分后的前七项使用。 四、 线路平面曲线要素数据库 ⑼巫麗醐座k K〈…（第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主程序、也能单独使用］ GLFY归零放样子程序文件名 U “X0” ： V “Y0”（罝仪点 x，y 值）：P “XI”： Q “Y1” ： XY （待放点 x,y 值）（换行） Pol （P-U, Q-V）（换行） W二J （换行） P