CASIOfx-4500PA计算器程序和操作.doc

CASIOfx-4500PA计算器程序和操作一、 水准测量高程计算程序1、程序名：H-（1）第一行：L1 lbl 0 第二行：L2 Z：A：BK 第三行：L3 H=ZAB 第四行：L4 V=K-H 第五行：L5 Goto 02、操作步骤 开机：按AC键：呼出文件名：按FILE键，显示H-（1）文件名为止： 按EXE键，显示Z？，输入水准点BM后视点高程：如129.919； 按EXE键，显示A？，输入后视水准尺读数：如1.633； 按EXE键，显示B？，输入前视水准尺读数：如4.186； 按EXE键，显示H=127.366，此结果是K3300中桩地面髙程； 按EXE键，显示K？，输入K3300中桩设计高程127.032； 按EXE键，显示V=K-H，-0.334此结果是K3300中桩挖出数据； 按EXE键，显示B？，连续算下去（挖；填）。二、 坐标反算程序1、 程序名；1ZBFS第一行：L1 AB：Fixm：CD 第二行：L2 Pol(C-A，D-B） 第三行: L3 W0 =W=W+360 第四行：L4 lntW0.01lnt（60 Frac W）0.006 Frac（60 Frac W）2、操作步骤 开机：按AC键： 呼出文件名：按FILE键，显示1ZBFS文件名为止： 按EXE键，显示A？，输入第一点x坐标：如363.567（也可当测站）； 按EXE键，显示B？，输入第一点y坐标：如814.454（也可当测站）； 按EXE键，显示C？，输入第二点x坐标：如406.260 （也可作后视点）； 按EXE键，显示D？，输入第二点y坐标：如1029.145（也可作后视点）； 按EXE键，显示Pol(C-A，D-B）：218.89476为两点间距离； 按EXE键，显示lntW0.01lnt（60 Frac W）0.006 Frac（60 Frac W）78.45108两点方位角；(即是784511)三、 坐标正算程序1、 程序名；2ZBZS第一行：L1 AB：Lbl5：ST 第二行：L2 C=ARce（S，T） 第三行：L3 D=BW 第四行：L4 Goto52、 操作步骤 开机：按AC键： 呼出文件名：按FILE键，显示2ZBZS文件名为止： 按EXE键，显示A？，输入第一点x坐标：如363.567； 按EXE键，显示B？，输入第一点y坐标：如814.454； 按EXE键，显示S？，输入两点间距离：如218.89476； 按EXE键，显示T？，输入两点方位角：如784510.8； 按EXE键，显示C=ARce（S，T），为第二点x坐标：如406.260； 按EXE键，显示D=BW，为第二点y坐标：如1029.14499；四、 坐标反算程序1、程序名；ZF第一行：L1 Lbl 0 第二行：L2 A：B：CD：C0 G=oto2 第三行：L3 X=CA 第四行：L4 Y=DB 第五行：L5 S=Pol（X，Y） 第六行：L6 T=W 第七行：L7 T0=oto 1 第八行：L8 T=W 第九行：L9 Goto 0 第十行：L10 Lbl 1 第十一行：L11 TT=360T 第十二行：L12 Goto 0 第十三行：L3 lbl 2 第十四行：L14 AB第十五行：L15 Goto 0 2、操作步骤 开机：按AC键： 呼出文件名：按FILE键，显示ZF文件名为止： 按EXE键，显示A？，输入第一点x坐标：如363.567 ； 按EXE键，显示B？，输入第一点y坐标：如814.454； 按EXE键，显示C？，输入第二点x坐标：如354.618； 按EXE键，显示D？，输入第二点y坐标：如553.341； 按EXE键，显示Pol(C-A，D-B）S=Pol（X，Y）：261.2663为两点间距离； 按EXE键，显示T=268.0371接着按SHIFT 键显T=268213.55为两点的方位角； 按EXE键，显示C？，输入下一点x值； 重复以上操作方法（略）五、 线路直线段点坐标计算程序(1) 本可计算前切线YZ至ZY点(或后切 1、程序名；Z-X,Y(1) 线ZY至YZ)间直线上任点中、边桩坐标。第一行：L1 Lbl 0 可计算有缓和曲线的圆曲线的前切 第二行：L2 L：A：B：F 线HY至YH点(或后切线YH至HY)间任一第三行：L3 CD 点的中、边桩坐标。第四行：L4 K=Abs(D-L) 使用方位角输入：当切线的YZ(HZ)第五行：L5 Rec(K,F) 点起算时输入：JD1JD2正方位角, 当第六行：L6 X=A-V:Y=B+W 切线的ZY(或ZH)为起算点时输入： JD1第七行：L7 Rec(S,F+E) JD2反方位角, 当从后切线的YZ (或ZH第八行：L8 X=X+Y Y=Y+W HZ ) 为起算点时输入： JD2JD3正 第九行：L9 Goto 0 位角，ZY(或ZH )为起算点为反方位角。2、操作步骤开机：按AC键：呼出文件名：按FILE键，显示ZF文件名为止： 按EXE键，显示L？，输入ZY点起算点桩号如128271.428； 按EXE键，显示A？，输入ZY点的x坐标：如401.974； 按EXE键，显示B？，输入ZY点的y坐标：如228.259； 按EXE键，显示F？，输入方位角；如2801015； 按EXE键，显示D？, 输入所求点桩号：如128075； 按EXE键，显示S？, 输入中桩边桩距离：如13.16； 按EXE键，显示E？，输入E=+90； 按EXE键，显示X=X+V=449.613(左边桩x坐标计算结果)； 按EXE键，显示Y=Y+W=037.242(右边桩y坐标计算结果)； 按EXE键，显示D？, (若是计算128075中桩或右边桩则用原点桩号)； 按EXE键，显示S？, (若是计算中桩输入0;若计算右桩输入中至边桩距离)； 按EXE键，显示E？，(若是中桩输入0;若计算右桩输入90)； 以下继续往下算(略)六、 直线段点点坐标计算程序(2)1、 程序名；Y-Z-X,Y(2)第一行：L1 Q：J：K：R：F: N: U 使用本程序的起 第二行：L2 T=Rtan(N/2) 算数据必须是交点桩号第三行：L3 L=RN/180 、交点坐标、圆曲线的半第四行：L4 A=Q-T:C=A+L 径、偏角,以及前切线正第五行：L5 Lbl 0:H S E 方位角。第六行：L6 HA=Goto 1 本程序使用范围第七行：L7 =HC=Goto 2 对圆曲线：前切线可计算第八行：L8 Lbl 1 YZ至ZY点间直线段上第九行：L9 Rce(Q-H,F+180) 仼点中、边桩坐标；后第十行：L10 X=J+V:Y=k+W 切线可计算YZ至ZY点第十一行：L11 Rce(S,F+180-(180-E) 间直线段上仼点中、边第十二行：L12 X=X+VY=Y+W 桩坐标。对有缓和曲线第十三行：L13 Goto 0 圆曲线段上点不能计算第十四行：L14 Lbl 2 可计算曲线要素：第十五行：L15 Rce(H-C+T,F+NU) 曲线长、切线长。第十六行：L16 X=J+V:Y=k+W 可计算圆曲线主点第十七行：L17 Rce(S,F+NU+E) 桩号里程：ZY、QZ、YZ第十八行：L18 X=X+VY=Y+W 点的桩号里程,改L4为：第十九行：L19 Goto 0 A=Q-T C=A+L2、 操作步骤开机：按AC键：呼出文件名：按FILE键，显示Y-Z-X,Y(2)文件名为止： 按EXE键，显示Q？，输入交点桩号如：JD18128+645.04； 按EXE键，显示J？，输入交点桩的x坐标：如31336； 按EXE键，显示K？，输入交点桩的y坐标：如65965； 按EXE键，显示R？，输入曲线半径；如R=5000； 按EXE键，显示F？, 输入前切线方位角：如1001015； 按EXE键，显示N？, 输入偏角(输入时不考虑符号)：如83248； 按EXE键，显示U？，输入偏角条件:左-1,右+1； 按EXE键，显示T=Rtan(N/2) 373.6117(切线长计算结果)； 按EXE键，显示L=RN/180(曲线长计算结果)； 按EXE键，显示H？，输入直线段上任一点桩号如：128+150 按EXE键，显示S？, (输入中桩输至边桩距离)；如：13.16 按EXE键，显示E？，(若中桩输入0,右桩输入+90,左桩输入+90)； 按EXE键，显示X=X+V,31436.3692(为128+150桩号的X坐标值)； 按EXE键，显示Y=Y+W,69111.0631(为128+150桩号的y坐标值)； 按EXE键,以下继续往下算(略)。七、圆曲线上任意点坐标计算程序 1、程序名；ZY-YZ-X,Y第一行：L1 Q：J：K：R：F: N: U 使用本程序的起算数 第二行：L2 T=Rtan(N/2) 据必须是圆曲线交点桩号,第三行：L3 L=RN/180 该交点的坐标、圆曲线半径、第四行：L4 A=Q-T:B=A+L/2:C=A+L 偏角,以及前切线方位角；第五行：L5 Rce(T,F+180) 坐标转换的起点坐第六行：L6 Z1= J+V：Z2=K+W 标必须是ZY点的坐标； 第七行：L7 Lbl 0：HSE 本程序的使用范围第八行：L8 Z=Abs(H-A) 是；由ZY点始经QZ点至第九行：L9 O=180Z/(R) YZ点间旳那一段曲线上任第十行：L10 X=R sin O 一点的中桩和边桩坐标计算。第十一行：L11 Z=R(1-cos O) 第十二行：L12 Rce (X,F) 第十三行：L13 X=Z1 +V：Y=Z2+W 第十四行：L14 Rce(Z,F+90U)第十五行：L15 X=X+V:Y=Y+W第十六行：L16 Rce(S,F+OU+E) 第十七行：L17 X=X+V第十八行：L18 Y=Y+W 第十九行：L19 Goto 02、操作步骤开机：按AC键：呼出文件名：按FILE键，显示ZY-ZZ-X,Y文件名为止： 按EXE键，显示Q？，输入交点桩号如：128645.040； 按EXE键，显示J？，输入交点桩的x坐标：如31336； 按EXE键，显示K？，输入交点桩的y坐标：如65965； 按EXE键，显示R？，输入曲线半径；如R=5000； 按EXE键，显示F？, 输入前切线方位角：如1001015； 按EXE键，显示N？, 输入偏角(输入时不考虑符号)：如83248； 按EXE键，显示U？，输入偏角条件:左-1,； 按EXE键，显示H？，输入圆曲线段上任一点桩号如：128644.347； 按EXE键，显示S？，输入中桩输至边桩距离；如：13.16； 按EXE键， 显示E？，输入128644.3470断面与中线夹角-90,(计算左边桩输)； 按EXE键，显示X=X+V, 362.596(128644.347左桩X坐标值)； 按EXE键，显示 Y=Y+W，598.784(128644.347左桩y坐标值)； 按EXE键，显示H？，计算128644.347中桩,仍用128644.347； 按EXE键，显示S？，计算中桩输入0； 按EXE键, 显示E？，计算中桩输入0； 按EXE键，显示X=X+V, 31349.865(128644.347中桩X坐标值)； 按EXE键，显示 Y=Y+W，69597.4323(128644.347中桩y坐标值)八、计算HY(缓圆) 点至YH(缓圆)点任一点中边桩坐标程序1、程序名；YH -QZ- HY 第一行：L1 Lbl 0 第二行：L2 R：I：A：P：Q：F: G: B S E ：B0=Goto 1第三行：L3 T=90I/（R）第四行：L4 D=I2/(24R)-I3/（2688R3） 本程序可计算HY至YH第五行：L5 L=I/2-I3/（240R2) 曲线间任一点的中桩及边第六行：L6 K= Abs(B-A) 桩坐标。 第七行：L7 O=180K/(R)+T 亦可计算ZY点至YZ点间第八行：L8 Z=Rsin O+L 的中桩及边桩坐标。只是此时 第九行：L9 U=R(1-con O)+D 缓和曲线长I应输入0,A应输第十行：L10 Rce(Z,F) 入ZY点的桩号,P和Q应输入第十一行：L11 X=P+V：Y=Q+W ZY点的X,y值。第十二行：L12 Rce (U,F+90G) 在计算HY至YH间任一点第十三行：L13 X=X+V：Y=Y+W 的中桩及边桩坐标,其A点的桩第十四行：L14 M=X+Scos(F-OG-E) 桩号应输入HY点的桩号,P,Q应第十五行：L15 N=Y+Ssin(F-OG-E) 应输入ZY点的X,y值。第十六行：L16 Goto 0 当给B输入0或小于0时第十七行：L17 Lbl 1 程序自动重头开始执行。第十八行：L18 R I A P Q F G 第十九行：L19 Goto 02、操作步骤开机：按AC键：呼出文件名：按FILE键，显示HY-QZ-YH 文件名为止： 按EXE键，显示R？，输入半径：如400； 按EXE键，显示I？，输入缓和曲线长：如100； 按EXE键，显示A？，输入HY桩的桩号：如153.711； 按EXE键，显示P？，输入ZH点坐标X值；如5002.398； 按EXE键，显示Q？, 输入ZH点坐标y值；如8674.206； 按EXE键，显示F？, 输入前切线方位角：如1661517； 按EXE键，显示G？，输入右偏角条件:左+1,； 按EXE键，显示B？，输入所求点桩号；如QZ