CASIOfx4500P计算器程序
CASIOfx4500PA计算器程序和操作
CASIOfx-4500PA计算器程序和操作一、水准测量高程计算程序1、程序名：H-（1）第一行：L1 lbl 0 第二行：L2 Z：A：｛BK｝第三行：L3 H=Z＋A－B◢第四行：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，此结果是K3＋300中桩地面髙程；⑦按EXE键，显示K？，输入K3＋300中桩设计高程127.032；⑧按EXE键，显示V=K-H，-0.334此结果是K3＋300中桩挖出数据；⑨按EXE键，显示B？，连续算下去……（－挖；＋填）。
二、坐标反算程序①1、程序名；1ZBFS第一行：L1 AB：Fixm：｛CD｝第二行：L2 Pol(C-A，D-B）◢第三行: L3 W<0 =〉W=W+360第四行：L4 lntW＋0.01lnt（）＋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键，显示lntW＋0.01lnt（60 Frac W）＋0.006 Frac（60 Frac W）78.45108两点方位角；(即是78°45′11″)三、坐标正算程序1、程序名；2ZBZS第一行：L1 AB：Lbl5：｛ST｝第二行：L2 C=A＋Rce（S，T）◢第三行：L3 D=B＋W◢第四行：L4 Goto52、操作步骤①开机：按AC键：②呼出文件名：按FILE键，显示2ZBZS文件名为止：③按EXE键，显示A？，输入第一点x坐标：如363.567；④按EXE键，显示B？，输入第一点y坐标：如814.454；⑤按EXE键，显示S？，输入两点间距离：如218.89476；⑥按EXE键，显示T？，输入两点方位角：如78°45′10.8″；⑦按EXE键，显示C=A＋Rce（S，T），为第二点x坐标：如406.260；⑧按EXE键，显示D=B＋W，为第二点y坐标：如1029.14499；四、坐标反算程序②1、程序名；ZF第一行：L1 Lbl 0第二行：L2 A：B：｛CD｝：C≤0 G=〉oto2第三行：L3 X=C－A第四行：L4 Y=D－B第五行：L5 S=Pol（X，Y）◢第六行：L6 T=W第七行：L7 T＜0=〉第八行：L8 T=W ◢第九行：L9 Goto 0第十行：L10 Lbl 1第十一行：L11 T″T″=360＋T◢第十二行：L12 Goto 0第十三行：L3 lbl 2第十四行：L14 ｛AB｝第十五行：L15 Goto 02、操作步骤①开机：按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=268°2′13.55″为两点的方位角；⑨按EXE键，显示C？，输入下一点x值；⑩重复以上操作方法（略）五、线路直线段点坐标计算程序(1) ㈠本可计算前切线YZ至ZY点(或后切1、程序名；Z-X,Y(1) 线ZY至YZ)间直线上任点中、边桩坐标。
最新CASIOfx4500P计算器程序汇总
C A S I O f x4500P计算器程序CASIO fx4500P计算器实用程序XCAJCJ 编著二○○一年八月说明本程序稿由于时间仓促及编者水平有限，缺点、错误以及疏漏与不足之处在所难免，恳请大家批评指正。
程序步骤计算：1个字符的文件名算3步(每增加一个字符多算一步)，行号算1步，每个字符算1步。
CASIO fx-4500P共有1103步。
XCAJCJ二○○一年八月目录程序1——角度判断 (1)程序2——角度换算① (1)程序3——角度换算② (1)程序4——角度换算③ (1)程序5——角度换算④ (1)程序6——视距测量 (2)程序7——坐标反算 (2)程序8——坐标方位角计算 (3)程序9——坐标正算 (3)程序10——坐标方位角交会计算 (3)程序11——垂距计算 (4)程序12——视差法测距计算 (5)程序13——剖面交点计算 (6)程序14——前方交绘计算 (6)程序15——附合导线近似平差 (7)程序16——渠道中线里程计算 (10)程序17——多边形面积计算 (12)程序18——闭合导线近似平差 (15)程序19——直线交点坐标计算 (16)程序20——极坐标法放样计算 (17)附录1：CASIO fx-4500P错误标示一览表 (18)附录2：常用数学公式 (19)附录3：常用测量公式 (19)附录4：单一附合导线内业平差计算 (22)程序1——角度判断说明：①程序A为子程序，对≥360°或＜0°的角值进行判断处理。
程序2——角度换算①程序3——角度换算②程序4——角度换算③程序5——角度换算④说明：①程序B、C、D、E均为子程序，简化测量计算中角度的输入及显示。
注：子程序应先输入CAISOfx-4500P中，以备其它程序调用。
程序6——视距测量说明：①程序用以计算视距测量中测站至照准点的平距及高程；②程序中：H=测站高程+仪高(程序只要求输入该值一次)；S=视距、C=切尺、B=竖盘读数；③算例：按Prog 1调用程序显示H？输入测站高程+仪高445.79+1.41，按EXE 键、显示S？输入视距39，按EXE键、显示C？输入切尺2.9，按EXE键、显示B？输入竖盘读数90.12，按EXE键、显示(计算结果)平距38.9995248，按EXE键、显示高程444.1638654，按EXE键、显示S？、输入视距……④竖盘读数90.12是将度分秒值(90°12′00″)以小数的形式输入；其它程序的角度值输入及显示均如此。
卡西欧fx4500程序集
卡西欧fx4500程序集一、简易的程序指令1、无条件转移无条件转移由“GOTO”和“LB1”构成。
当程序实行到“GOTO”状态和一个分类名称时，在实行后会转移至相同标记有“GOTO”指令的分类名称的“LB1”处，这点同电脑语言有相同之处。
无条件转移经常使用在简单的程序中，用以将实行回调到起点以实行重复计算，或是在没有程序时的定点重复计算。
2、 4500P的条件转移是以下列方式构成：（1）左侧关系运算子右侧 =>语句{：◢}≠>语句{：◢} 语句（2）左侧关系运算子右侧 =>语句{：◢} 语句3、子行列（子程序）是由： prog和程序名指令来进行的。
例如：PROG ABC 是指转移至程序区ABC。
4、变数输入指令当一个数值在程序中当作变数输入时，此数值当成定义数值存入存储器中。
若是必须输入新的数值来取代此一变数时，变数输入指令2ndF { ,2ndF } 可用来让此变数回复至非定义状态。
例如：{AB} {A、B} {A B}……变数A和B回复至非定义状态。
5、 Fixm 一个当独语句的处理当2ndF Fixm 输入至一个程序中时，所有在此指令之后的变数（A-Z）数值均当成定义数值处理。
当此程序被执行时，程序不必等待变数的数值输入，而是利用以前所输入过的数值来完成计算。
若是变数输入指令“{}”使用与“Fixm”相同的程序时，“{}”指令优先执行。
6、“”起对变量的注释的作用。
二、坐标正算的程序LINE1∶X“HZB”：Y“ZZB”LINE2∶A=REC(S，T) +X ◢LINE3∶B=Y+V注释∶LINE1（第一行）输入坐标X、Y值；LINE2中函数REC()是计算器提供的由距离及角度的极坐标到X、Y直角坐标的变换函数。
当运行时会提示输入S(距离)，T(方位角)值，计算出X增加值后加上原X值存于A中；LINE3为原Y值加上增加值V存于B中。
◢为程序暂停显示的符号，由2ndF和↑键产生；三、坐标反算的程序LINE1∶A：B：C：DLINE2∶POL((C-A),(D-B))◢LINE3∶W≥0 =>E=W◢≠>E=W+360注释∶LINE1是要求输入坐标正算中两点的x，y坐标，即A，B代表x1，y1，C，D代表x2，y2；LINE2中为计算器提供的由直角坐标到极坐标的函数；式中(C-A)，(D-B)，是考虑到输入数据的顺序性而定的，因为L1～L4中A、B为点1的X、Y坐标C、D为点2的X、Y坐标，要得到点1-点2的方位角，如要输入按顺序的话，就必须(C-A)，(D-B)；LINE3因为计算器把计算后的方位角值存于W中，所以第3行的作用是如果W值即方位角值<0的话，加上3600 即可。
CASIO fx-4500P、4800P计算器程序
CASIO fx－4500P与CASIO fx－4800P计算器部分按键及程序语句不同之处比较【坐标反算程序】文件名：ZBFS（调用子程序文件名：Z.FS）L1 Lbl 0L2 {XY}:X″X1″:Y″Y1″:U″X0″:Z″Y0″L3 Prog ″Z.FS″L4 ″DIST=″:D:Pause 0L5 D=0=>Goto 0:◣A″ANGLE=″◢Goto 0使用说明屏幕提示执行操作屏幕显示计算结果X1? 输入视点坐标XDIST= 置镜点与视点的距离Y1? 输入视点坐标YX0? 输入置镜点坐标XANGLE= 置镜点→视点方位角Y0? 输入置镜点坐标Y注意fx-4500P型计算器将L3行改成：Prog Z.FS【坐标正算程序】文件名：ZBZSL1 Lbl 0L2 {DA}:D″DIST″:A″ANGLE″:U″X0″:Z″Y0″L3 ″X=″:X=U+Dcos A:Pause 0L4 Y=Z+Dsin A◢Goto 0使用说明屏幕提示执行操作屏幕显示计算结果DIST? 输入置镜点与视点的距离X= 视点坐标X ANGLE? 输入置镜点→视点方位角X0? 输入置镜点坐标XY= 视点坐标Y Y0? 输入置镜点坐标Y 【转角放样程序】文件名：ZJFY（调用子程序文件名：Z.FS）L1 Lbl 0L2 {STUZ}:X=S″HSX″:Y=T″HSY″:U″X0″:Z″Y0″L3 Prog ″Z.FS″L4 D=0=>Goto 0:◣J=AL5 Lbl 1L6 {XY}:X″QSX″:Y″QSY″L7 Prog ″Z.FS″L8 ″DIST=″:D:Pause 0L9 D=0=>Goto 1:◣A≥J=>A″R-ANGLE″=A-J◢≠=>A″R-ANGLE″=A-J+360◢◣Goto 1使用说明屏幕提示执行操作屏幕显示计算结果HSX? 输入后视点坐标XDIST= 置镜点与前视点距离HSY? 输入后视点坐标YX0? 输入置镜点坐标XY0? 输入置镜点坐标YR-ANGLE=置镜点→后视点到置镜点→前视点的转角QSX? 输入前视点坐标XQSY? 输入前视点坐标Y注意fx-4500P型计算器将L3、L7行改成：Prog Z.FS【单交点基本型（对称、非对称）平曲线要素、中桩、边桩坐标计算程序】文件名：PQXJS（调用子程序文件名：PQXZB）L1 R:H″LS1″:H=0=>I=0:◣I″LS2″:Z:D″JD″:S=Abs Z L2 N=H2÷24R-H^4÷2384R^3L3 P=I2÷24R-I^4÷2384R^3L4 K=H÷2-H^3÷240R2L5 M=I÷2-I^3÷240R2L6 B=H÷2R:C=I÷2RL7 T″T1″=(R+P-(R+N)cos S)÷sin S+K◢U″T2″=(R+N-(R+P)cos S)÷sin S+M◢L=H+I+(Sπ÷180-B-C)R◢H=I=>E=(R+N)÷cos (S÷2)-R◢J=2T-L◢◣N″LY″=L-H-I◢B″ZH″=D-T◢C″HY″=B+H◢E″YH″=C+L-H-I◢F″HZ″=E+I◢G″QZ″=C+N÷2◢Prog ″PQXZB″使用说明屏幕提示执行操作屏幕显示计算结果R? 输入圆曲线半径T1= 小里程段切线长LS1?输入小里程段缓和曲线长（不设缓和曲线时，输入0）T2= 大里程段切线长LS2?输入大里程段缓和曲线长（不设缓和曲线时，不提示）L= 平曲线总长Z? 输入转向角(左转负、右转正) E= 外距(T1=T2时显示)JD? 输入交点桩号J= 校正数(T1=T2时显示)LY= 圆曲线长ZH= 直缓点桩号不设缓和曲线时，ZH=HY，为直圆点桩号HY= 缓圆点桩号YH= 圆缓点桩号不设缓和曲线时，YH=HZ，为圆直点桩号HZ= 缓直点桩号QZ= 曲中点桩号XJD? 输入交点的X坐标XZH= 直缓点X坐标（不设缓和曲线时，为直圆点X坐标）YJD? 输入交点的Y坐标YZH= 直缓点Y坐标（不设缓和曲线时，为直圆点Y坐标）F1? 输入小里程段导线的方位角XHZ= 缓直点X坐标（不设缓和曲线时，为圆直点X坐标）YHZ= 缓直点Y坐标（不设缓和曲线时，为圆直点Y坐标）XHY= 缓圆点X坐标不设缓和曲线时，不显示YHY= 缓圆点Y坐标XYH= 圆缓点X坐标YYH= 圆缓点Y坐标DQD? 输入待求点桩号FWJ= 待求点切线方位角X= 待求点中桩X坐标Y= 待求点中桩Y坐标ZB? 输入左幅宽度XZ= 待求点左幅边桩X坐标YZ= 待求点左幅边桩Y坐标YB? 输入右幅宽度XY= 待求点右幅边桩X坐标YY= 待求点右幅边桩Y坐标注意fx-4500P型计算器将L7行最后一句改成：Prog PQXZB；子程序中Prog ″PQX.F″改成Prog PQX.F，Prog ″PQX.BZ″改成Prog PQX.BZ【单交点基本型（对称、非对称）平曲线中桩、边桩坐标计算子程序】文件名：PQXZB（可单独执行，调用子程序PQX.F，PQX.BZ）L1 R:H″LS1″:H=0=>I=0:◣I″LS2″:Z:{XY}:X″XJD″:Y″YJD″:T″T1″:H=0=>U=T:◣U″T2″:B″ZH″:H=0=>C=B:◣C″HY″:E″YH″:H=0=>F=E:◣F″HZ″:{A}:A″F1″:Q=A+Z:Z>0=>S=1:≠=>S=-1:◣ J″XZH″=X+Tcos (A+180)◢K″YZH″=Y+Tsin (A+180)◢P″XHZ″=X+Ucos Q◢O″YHZ″=Y+Usin Q◢H≠0=>V=C-B-(C-B)^5÷40R2H2:W=(C-B)^3÷6RH-(C-B)^7÷336R^3H^3:M″XHY″=J+Vcos A+Wcos (A+90S)◢N″YHY″=K+Vsin A+Wsin (A+90S)◢V=F-E-(F-E)^5÷40R2I2:W=(F-E)^3÷6RI-(F-E)^7÷336R^3I^3:Z ″XYH″=P+Vcos (Q+180)+Wcos (Q+90S)◢Z ″YYH″=O+Vsin (Q+180)+Wsin (Q+90S)◢◣Lbl 0L2 {Z}:Z″DQD″L3 Z<B=>Goto 0:◣Z>F=>Goto 0:◣H=0=>G=A+180(Z-B)S÷πR:Prog ″PQX.F″:M=J:N=K:Goto 1:◣Z≤C=>G=A+90(Z-B)2S÷πRH:Prog ″PQX.F″:V=Z-B-(Z-B)^5÷40R2H2:W=(Z-B)^3÷6RH-(Z-B)^7÷336R^3H^3:X=J+Vcos A+Wcos (A+90S)◢Y=K+Vsin A+Wsin (A+90S)◢Prog ″PQX.BZ″:Goto 0:◣Lbl 1L4 Z≤E=>G=A+90(C-B)2S÷πRH+180(Z-C)S÷πR:Prog ″PQX.F″:V=90H÷πR:W=90(Z-C)÷πR:X=M+2Rsin Wcos (A+SV+SW)◢Y=N+2Rsin Wsin (A+SV+SW)◢Prog ″PQX.BZ″:Goto 0:◣Z>E=>G=Q-90(F-Z)2S÷πRI:Prog ″PQX.F″:V=F-Z-(F-Z)^5÷40R2I2:W=(F-Z)^3÷6RI-(F-Z)^7÷336R^3I^3:X=P+Vcos (Q+180)+Wcos (Q+90S)◢Y=O+Vsin (Q+180)+Wsin (Q+90S)◢Prog ″PQX.BZ″:◣Goto 0【平曲线切线方位角计算结果处理子程序】文件名：PQX.FL1 G>0=>G<360=>G″FWJ=″◢≠>G″FWJ″=G-360◢◣≠>G″FWJ″=G+360◢◣【平曲线边桩坐标计算子程序】文件名：PQX.BZL1 {L}:V=G-90:W″XZ″=X+L″ZB″cos V◢W″YZ″=Y+Lsin V◢{L}:V=G+90:W″XY″=X+L″YB″cos V◢W″YY″=Y+Lsin V◢【契形体体积计算程序】文件名：XXTTJL1 V=H÷6×(A″A1″×B″B1″+C″A2″×D″B2″+(A+C)(B+D)) 【竖曲线要素及高程计算程序】文件名：SQXJSL1 M″BZH″:G″BGC″:A″I1″:B″I2″:RL2 W=B-A◢L=RAbs W◢T=L÷2◢E=T2÷2R◢F″QZH″=M-T◢J″ZZH″=M+T◢Lbl 0L3 {Z}:Z″ZH″L4 Z≤F=>H=G-(M-Z)A◢Goto 0:◣Z≥J=>H=G+(Z-M)B◢Goto 0:◣Y=(Z-F)2÷2RL5 H=G-(M-Z)AL6 W≥0=>H=H+Y◢≠=>H=H-Y◢◣Goto 0 使用说明屏幕提示执行操作屏幕显示计算结果BZH? 输入变坡点桩号W= 前后纵坡坡度差BGC? 输入变坡顶点高程L= 竖曲线长度I1? 输入小里程段纵坡(前进方向上坡为+，下坡为-) T= 竖曲线切线长I2? 输入大里程段纵坡(前进方向上坡为+，下坡为-) E= 竖曲线外距R? 输入竖曲线半径QZH= 竖曲线起点桩号ZH? 输入计算点的桩号ZZH= 竖曲线终点桩号H= 计算点的中桩高程【无竖曲线段纵坡高程连续计算程序】文件名：ZPGC L1 F″ZH0″:G″GC0″:IL2 Lbl 0:{N}:N=0=>Goto 0:◣Z=FL3 Lbl 1L4 ″ZH=″:Z=Z+N:Pause 0L5 ″H=″:H=G+(Z-F)I:Pause 2L6 Goto 1使用说明屏幕提示执行操作屏幕显示计算结果ZH0? 输入已知桩号ZH= 计算点的桩号GC0? 输入已知桩号的高程I? 输入纵坡(前进方向下坡为负，上坡为正)H= 计算点的高程N? 输入桩号增量【余弦定理的坐标运用】文件名：YXDL-ZBL1 A″AX″:B″AY″:C″BX″:D″BY″:E″CX″:F″CY″L2 G″AB″=√((C-A)2+(D-B)2)◢H″BC″=√((E-C)2+(F-D)2)◢I″CA″=√((E-A)2+(F-B)2)◢J″<A″=cos-1 ((G2+I2-H2)÷2GI)◢J″360°-<A″=360-J◢J″<B″=cos-1 ((G2+H2-I2)÷2GH)◢J″360°-<B″=360-J◢J″<C″=cos-1 ((H2+I2-G2)÷2HI)◢J″360°-<C″=360-J使用说明屏幕提示执行操作屏幕显示计算结果AX? 输入A点坐标X AB= AB距离AY? 输入A点坐标Y BC= BC距离BX? 输入B点坐标X CA= CA距离BY? 输入B点坐标Y <A= <A角度CX? 输入C点坐标X <B= <B角度CY? 输入C点坐标Y <C= <C角度【施工坐标与大地坐标相互转换程序】文件名：ZBZH（调用子程序文件名：Z.FS，Z.ZH）L1 Lbl 0L2 {XYFG}:X″AX1″:Y″AY1″:U=F″OX1″:Z=G″OY1″L3 Prog ″Z.FS″L4 D=0=>Goto 0:◣E=AL5 Lbl 1L6 {XYHI}:X″AX2″:Y″AY2″:U=H″OX2″:Z=I″OY2″L7 Prog ″Z.FS″L8 D=0=>Goto 1:◣E≥A=>E″ANGLE1->2″=E-A◢≠=>E″ANGLE1->2″=E-A+360◢◣Prog ″Z.ZH″使用说明屏幕提示执行操作屏幕显示计算结果AX1? 输入A点在坐标系1中的坐标XANGLE1->2= 坐标系1到坐标系2的转角AY1? 输入A点在坐标系1中的坐标Y OX1? 输入O点在坐标系1中的坐标X OY1? 输入O点在坐标系1中的坐标Y AX2? 输入A点在坐标系2中的坐标X AY2? 输入A点在坐标系2中的坐标YOX2? 输入O点在坐标系2中的坐标XX2= 计算点在坐标系2中的坐标XOY2? 输入O点在坐标系2中的坐标YX1? 输入计算点在坐标系1中的坐标XY2= 计算点在坐标系2中的坐标YY1? 输入计算点在坐标系1中的坐标Y注意fx-4500P型计算器将L3、L7行改成：Prog Z.FSL8行最后一句改成：Prog Z.ZH【坐标反算子程序】文件名：Z.FSL1 B=X-U:C=Y-ZL2 D=√(B2+C2)L3 D=0=>Goto 0:◣C≥0=>A=cos-1(B÷D):≠=>A=360-cos-1(B÷D):◣Lbl 0【坐标转换子程序】文件名：Z.ZH（可单独执行，调用子程序：Z.FS）L1 U=F″OX1″:Z=G″0Y1″:H″0X2″:I″OY2″:E″ANGLE1->2″L2 Lbl 0L3 {XY}:X″X1″:Y″Y1″L4 Prog ″Z.FS″L5 D=0=>Goto 0:◣A=A-EL6 ″X2=″:X=H+Dcos A:Pause 0L7 Y″Y2″=I+Dsin A◢Goto 0使用说明屏幕提示执行操作屏幕显示计算结果OX1? 输入O点在坐标系1中的坐标XX2=计算点在坐标系2中的坐标XOY1? 输入O点在坐标系1中的坐标YOX2? 输入O点在坐标系2中的坐标XY2=计算点在坐标系2中的坐标YOY2? 输入O点在坐标系2中的坐标YANGLE1->2? 输入坐标系1到坐标系2的转角X1? 输入计算点在坐标系1中的坐标XY1? 输入计算点在坐标系1中的坐标Y注意fx-4500P型计算器将L4行改成：Prog Z.FS【仁宗海交通桥拱圈悬链线坐标计算程序】文件名：XLXL1 M=2.514:F=12.195:L=30.484L2 Lbl 0L3 {X}:J=30.484-XL4 P=-0.00011837194X2+0.0072169X◢A=Jln (M+√(M2-1))÷LL5 D=tan-1(FAsinh A÷J(M-1))◢Y″YZ″=F-F(cosh A-1)÷(M-1)+2363.821+P◢Z″YS″=Y+0.7÷cosD◢{H}:U=Z-H◢W″YX″=Y-0.7÷cosD◢Q=W-H◢Goto 0使用说明屏幕提示执行操作屏幕显示计算结果X? 输入拱圈X坐标(以拱圈左下角为坐标原点)P= 计算点的设计预拱度YZ= 中轴设计高程（已加了设计预拱度P）YS= 上缘设计高程（已加了设计预拱度P）H? 输入实测高程U=上缘设计高程与实测高程的高差：负数表明实测高程高于设计高程正数表明实测高程低于设计高程YX= 下缘设计高程（已加了设计预拱度P）Q=下缘设计高程与实测高程的高差：负数表明实测高程高于设计高程正数表明实测高程低于设计高程注意fx-4500P型计算器将L5行中sinh A改成(e A-e-A)÷2；将coshA改成(e A+e-A)÷2【高斯坐标转换程序】文件名：GSZHL1 A″H0″:Lbl 1:{BCH}:E=B″H1″+C″H2″:F″HD0″=(1+(A-.5E)÷6378245)H″HD″◢Goto 1【高斯坐标转换程序1】文件名：GSZH1L1 A″H0″:R=6378245:Lbl 1:{BCH}:E=B″H1″+C″H2″:F″HD0″=(R+A)H″HD″÷(R+.5E)◢Goto 1使用说明屏幕提示执行操作屏幕显示计算结果H0? 输入投影面高程HD0=高程投影后的平距H1?、H2? 输入该边两端点的高程HD? 输入平距【40米T型梁梁底模反拱度高程控制程序】文件名：FGD-Q（使用全站仪）L1 Lbl 0L2 {XQ}L3 P=.003X-.04+(20-X)2÷10000◢Z=P+2717.90358◢B=Z-Q◢Goto 0使用说明屏幕提示执行操作屏幕显示计算结果X? 输入X坐标（以0＃台梁端为(0,0)点，输入范围0～40）P= 计算点与0,0点的设计高差Z= 计算点的设计高程Q? 输入实测高程B= 设计高程－实测高程（正值表示该点偏低，负值表示该点偏高）注意fx-4500P型计算器将L3行中“÷”改为“/”，0＃台梁端高程为2717.90358【40米T型梁梁底模反拱度高程控制程序】文件名：FGD-S（使用水准仪）L1 Lbl 0L2 {XQ}L3 P=.003X-.04+(20-X)2÷10000◢Z=P+2717.90358◢B=Z-S+Q◢Goto 0使用说明屏幕提示执行操作屏幕显示计算结果X?输入X坐标（以0＃台梁端为(0,0)点，输入范围0～40）P= 计算点与0,0点的设计高差Z= 计算点的设计高程S?输入视线高程（单位：m，只输入一次）B=设计高程－实测高程（正值表示该点偏低，负值表示该点偏高）Q? 输入前视读数（单位：m）注意fx-4500P型计算器将L3行中“÷”改为“/”，0＃台梁端高程为2717.90358。
CASIO4500坐标计算程序
CASIO4500坐标计算程序HUANHEQUXIANK〝JD〝D〝LS〝：B=D2/24R：M=D/2-DB/10RT=M+tan.5A(R+B)▲L=∏RA/180+D▲E=(R+B)/cos.5A-R▲Z〝ZH〝=K-T▲H〝HY〝=Z+D▲Q〝QZ〝= Z+L/2▲J〝YH〝=Z+L-D▲O〝HZ〝J+D▲prog 1▲N〝N=1＝＞V〝:P:prog 3:L=W:FixmLb1 2:｛S｝:S〝KX〝:S＞J＝＞Goto4△S＞H＝＞Goto3△U=S-Z:E =U-UXY5/40R2D2:F=UXY3/6RD:Goto5Lb1 3:U=90(2S-2H+D)/ ∏R:E=RsinU+M:F=R-RcosU+B:Goto5Lb1 4:F=O-S:D≠0＝＞I=30F2/∏RD△V=F-FXY3/90R2:N=1＝＞U= 360-A:F=180-A+I: ≠＝＞U=A:F-180+A-I△E=T+TcosU+VcosF:F=Tsi nU+VsinF:Goto1Lb1 5:N=1＝＞F=-F△Lb1 1:X=E:Y=F:P=1＝＞prog2: prog4△: prog3:W=W-L:W＜0＝＞W=W+360△V: 〝S〝▲W: 〝R〝▲Goto2X=C+EcosL-FsinL▲Y=G+EsinL+FcosL▲C〝X0〝G〝Y0〝:Pol(X-C,Y-G):W＜0＝＞W=W+360△WD≠0＝＞Q＝＞90U2/∏RD△Fixm:I=A-3I:N=1＝＞Q=-Q:U=-U:I=-I△S＜H＝＞F=L+Q≠＝＞S＞J＝＞F=L+I: ≠＝＞F=L+U△△V=1: ｛E｝:E〝＜B〝:F〝R〝=F+E:Lb1 6: ｛I｝:I〝SL〝:X+IcosF▲Y+IsinF▲V ＜2＝＞V=V+1：Goto6△ZHI XIANE〝X0〝F〝Y0〝A〝R0〝K〝CZ〝:Lb1 1: ｛S｝=S〝KX〝:D=S-K: X=E+DcosA▲Y=F+DsinA▲V=1:Lb1 2: ｛BI｝:H=A+B-180:I〝SL〝:X +IcosH▲Y+IsinH▲V＜2＝＞V=V+1:Goto2△Goto1计算要素：JD——交点里程 LS——缓和曲线长R ——圆曲线半径 A ——线路转角T ——切线长 L ——圆弧总长度E ——外矢距 N ——曲线方向，左偏取“1”，右偏取“0”P ——取“1” X0.Y0——ZH点坐标X.Y——交点坐标 KX——待求点里程B ——与中线夹角 SL——边距，左“+”；右“-”-- 作者：admin-- 发布时间：2005-8-15 9:43:10--CASIO4800超高计算程序超高及高程（源程序）L1: R:L“LS”:Z“ZH”:H“HZ”:V“RS”:F“I1”:G“I2”:O“BP H”:N“BP”:T=Vabs(G－F)÷2:X“X(R+1,L-1)”:P“P(R+,L-1)”L2: Lbl 6 : ｛S｝L3: S+T－N<0 D=O+(S－N)F: S－N<0 D=O+(S－N)F－U(S－N+T)2÷2÷V: S－N≤T D=O+(S－N)G－U(T－S+N)2÷2÷V: D=O+(S－N)G D“H=”◢L4: R< E= : M= Goto 1: R< E= : M= Goto 1:L5: Lbl 1 : M ≥ L C=L: Goto 2: C=ML6: Lbl 2 : P X >0 Goto 3 : Goto 4L7: Lbl 4 : S ≤Z I=0.02 : Goto 5: S<Z+C I=0.02－(0.02－EP X)÷C×(S－Z) : Goto 5: S<H－C I=EPX : Goto 5: S<H I=EPX+ (0.02－EPX)÷C×(S－H+C) : Goto 5: I=0.02 : Goto 5L8: Lbl 3 : Z[1]=0.04÷(EPX+0.02)×C : S ≤Z + Z[1] I=0.02 : Goto 5: S<Z+C I=0.02+(EPX－0.02)÷(C－Z[1])×(S－Z－Z [1]) : Goto 5: S<H－C I=EPX : Goto 5: S<H－Z[1] I=EPX－(EPX －0.02)÷(C－Z[1])×(S－H+C) : Goto 5: I=0.02 : Goto 5L9: Lbl 5 : {B} : W“HB”=D－IB◢L10: Goto 6说明： R:平曲线半径 L“LS”:缓和曲线长 P：偏转，Z=－1,Y=1 X“XL”：线路（Z,Y）左线＝－1,右线＝1 Z“ZH”: 直缓点里程H“HZ”：缓直点里程 V“RS”：竖曲线半径 F“I 1”：前坡堵（带符号）G“I2”：后坡度值（带符号） O“BPH”：变坡点高程 N“BP”：变坡点里程T：切线长 E：最大超高值 C ：渐变段长度（LC）I：横坡值 M：最大渐变长度（Lmax） B ：距中心距离 W“HB”：边部高程-- 作者：admin-- 发布时间：2005-8-15 9:43:38--CASIO4800计算程序曲线任意里程中边桩坐标正反算(CASIO fx-4800P计算器)程序曲线任意里程中边桩坐标正反算(CASIO fx-4800P计算器)程序一、程序功能本程序由一个主程序(TYQXJS)和两个子程——正算子程序(SUB1)、反算子程序(SUB2)序构成，可以根据曲线段——直线、圆曲线、缓和曲线（完整或非完整型）的线元要素（起点坐标、起点里程、起点切线方位角、线元长度、起点曲率半径、止点曲率半径）及里程边距或坐标，对该曲线段范围内任意里程中边桩坐标进行正反算。
CASIOfx-4500PA自动计算程序
CASIOfx-4500PA自动计算程序：F1 HW（已知两点坐标，求两点间距离与方位角）L1 Lbl 0:{ABCD}:S=Pol(C-A,D-B◢L2 W<0=>W=360+W◢L3 ≠>W>0=>W=W◢Goto 0F2 ZB（已知一点坐标，另一点的方位角及两点间距离，求另一点坐标）L1 Lbl 0:{ABDFIJ}:X=A+cosF×D◢L2 Y=B+sinF×D◢L3 N=F-90:P=X+cosN×I◢L4 Q=Y+sinN×I◢L5 K=F+90:S=X+cosK×J◢L6 O=Y+sinK×J◢ Goto 0F3 HDQFY（右偏缓和曲线上点的计算）L1 Lbl 0:{RLHFIJAB}:X=H-H X Y5/(40R X Y2L X Y2:Y=H X Y3/(6RL)-H X Y7/(336R X Y3L X Y3:V=tan-1(y/x:M=√(X X Y2+Y X Y2:U=90H X Y2/(πRL:C=A+COS(F+V)×M◢L2 D=B+sin(F+V)×M◢L3 N=F+U-90:P=C+cosN×I◢L4 Q=D+sinN×I◢L5 K=F+U+90:G=C+cosK×J◢L6 O=D+sinK×J◢ Goto 0F4 HDQFZ（左偏缓和曲线上点的计算）L1 Lbl 0:{RLHFIJAB}:X=H-H X Y5/(40R X Y2L X Y2:Y=H X Y3/(6RL)-H X Y7/(336R X Y3L X Y3:V=tan-1(y/x:M=√(X X Y2+Y X Y2:U=90H X Y2/(πRL:C=A+COS(F-V)×M◢L2 D=B+sin(F-V)×M◢L3 N=F-U-90:P=C+cosN×I◢L4 Q=D+sinN×I◢L5 K=F-U+90:G=C+cosK×J◢L6 O=D+sinK×J◢ Goto 0F5 YQXZBY（右偏圆曲线上点的计算）L1 Lbl 0: {RFABIJH}:M=90H/π/R:V=F+M:D=2RsinM:X=A+cosV×D◢L2 Y=B+sinV×D◢L3 N=V+M-90:P=X+cosN×I◢L4 Q=Y+sinN×I◢L5 K=V+M+90:S=X+cosK×J◢L6 O=Y+sinK×J◢ Goto 0F6 YQXZBZ（左偏圆曲线上点的计算）L1 Lbl 0: {RFHABIJ}:M=90H/π/R:V=F-M:D=2RsinM:X=A+cosV×D◢L2 Y=B+sinV×D◢L3 N=V-M-90:P=X+cosN×I◢L4 Q=Y+sinN×I◢L5 K=V-M+90:S=X+cosK×J◢L6 O=Y+sinK×J◢ Goto 0F7 PJY(缓和曲线全偏角[右偏]计算)L1 Lb1 0:{RLV}:M=90L/π/RL2 M<360-V=>F=V+M◢ ≠=>F=V+M-360◢L3 ◣Goto 0F8 PJZ(缓和曲线全偏角[左偏]计算)L1 Lb1 0:{RLV}:M=90L/π/RL2 M≤V=>F=V-M◢ ≠=>F=V-M+360◢L3 ◣Goto 0。
CASIOfx-4500P,4800P程序
N
+
计算曲线长。G、H加E-21的目的是防止“0”溢出，增强程序的通用性。
(
O
+
U
)
/
2
:
″
Q
X
C
=
″
◢
G
=
R
O
+
EXP
(-)
2
1
:
H
=
R
U
+
EXP
(-)
2
1
L3
V(I)
=
O
:
W(J)
=
L
-
O
-
U
:
K
=
U
调用子程序Z2，计算曲线坐标。
:
Prog
Z
2
L4
Y
=
Y
Z
/
Sin
P
:
X
-
Y
Cos
P
:
″
计算第一切线长L1、第二切线长L2。
(
O
+
W(J)
)
/
2
R
L4
E
=
K
-
(
U
xy
5
-
(
U
-
K
)
xy
求第二缓和曲线坐标增量计算元素E和F。
5
)
/
4
0
H2
:
F
=
(
U
xy
3
-
(
U
-
K
)
xy
3
)
/
6
H
-
(
U
xy
常用FX4500程序
8
圆曲线放样程序（2）
（Filename）13YQXFY2
L1 Lbl5：{ZS}：ABXYRGZPKS L2 T=P+K Abs (Z-G)×180/π/R L3 Rec(S+R,T) : C=X+V : D= Y+W L4 Prog 1ZBFS L5 Goto5
说明：
o
(X,Y)
(A,B)
Z
(C,D) S
说明： 1、本程序用于利用 3 个合适的已知点进行方向后方交会法计算测站坐标。 2、观测、计算时将 3 个已知点按顺时针方向对应排列，已知点的直角坐标分别为（A，B）、（C，D）
和（E，F）。对应 3 个已知点的方向值分别为 O、P、Q。 3、L3 至 L9 行的作用是当两相邻方向间的夹角出现直角或平角时将导致不能计算时进行自动处理。 4、为提高解算精度和防止错误，宜尽可能使测站点与 3 个已知点组成较理想的图形，如采取测站
6
面积计算程序
（Filename）10 MJJS
L1 SAB：Lbl2：{XYN} L2 S=S+(X+A)(Y-B)/2 L3 A=X：B=Y
L4 N=0 ⇒ Goto5 Goto2
L5 Lbl5：S◢
说明：
(X2 ,Y2 )
(Xi ,Yi )
(X1 ,Y1 )
(Xn ,Yn )
Y
(Xi+1 ,Yi+1)
（Filename）2ZBZS
L1 AB：Lbl5：{ST}
L2 C=A+Rec(S,T)◢
L3 D=B+W◢
L4 Goto5
说明： 1、本程序用于当已知起算点的直角坐标、起算点到目标点的边长和坐标方位角时，计算目标点的
卡西欧4500、4800计算器计算程序
卡西欧4500、4800计算器计算程序卡西欧4500/4800计算器程序任意里程桩号计算程序1.主程序(TYQXjs)"1.SZ => XY"："2.XY => SZ"：N：U"X0"：V"Y0"：O"S0"：G"F0"：H"LS"：P"R0"：R"RN"：Q：C =1÷P：D=(P-R)÷(2HPR)：E=180÷π：N=1=>Goto 1：≠>Goto 2Δ←┘Lbl 1：{SZ}：SZ：W=Abs(S-O)：Prog "SUB1"：X"XS"=X◢Y"YS"=Y◢F”FS”=F-90◢Goto 1←┘Lbl 2：{XY}：XY：I=X：J=Y：Prog "SUB2"：S"S"=O+W◢Z"Z"=Z◢Goto 22. 正算子程序(SUB1)A=0.1739274226：B=0.3260725774：K=0.0694318442：L=0.3300094782：F=1-L：M=1-K：X=U+W(Acos(G+QEKW(C+KWD))+Bcos(G+QELW(C+LWD))+Bc os(G+QEFW(C+FWD))+Acos(G+QE M W(C+M WD))):Y=V+W(Asin(G+QEKW(C+KWD))+Bsin(G+QELW(C+LWD) )+Bsin(G+QEFW(C+FWD)) +Asin(G+QE M W(C+M WD))) :F=G+QEW(C+WD)+90:X=X+ZcosF：Y=Y+ZsinF3. 反算子程序(SUB2)T=G-90：W=Abs((Y-V)cosT-(X-U)sinT)：Z=0：Lbl 0：Prog "SUB1"：L=T+QEW(C+WD)：Z=(J-Y)cosL-(I-X)sinL：AbsZ<1E-6=>Goto1：≠>W=W+Z：Goto 0Δ←┘Lbl 1：Z=0：Prog "SUB1"：Z=(J-Y)÷sinF二、使用说明1、规定(1) 以道路中线的前进方向（即里程增大的方向）区分左右；当线元往左偏时，Q=-1；当线元往右偏时，Q=1；当线元为直线时，Q=0。
Casiofx4500p计算器程序
这是我在施工测量中使用的Casiofx4500p计算器程序,较实用,供大家参考使用.名代码变量与说明2 曲线要素：P=I2/24R-I4/2688R3M=I/2-I3/240R2T=(R+P)Tan(A/2)+ML=A/180×πR+IB=I/R×90/πA,R,I,m,p,B,T,L本系统的变量是统一的，代表特定含义，在各段代码中通用，不宜更改。
A:曲线转角R:曲线半径I:缓和曲线长T:切线长L:曲线长m,p,B:曲线要素3 直线相交（四点）点:NSOTPUQVPol(Q-P,V-U)Q=U-PtanWU=WPol(O-N,T-S)N=T-OtanWO=W▲ U▲A=U-O:Pol(cosA,sinA):A=AbsW▲ K=W/A▲J=(Q-N)/(tanO-tanU) ▲D=JtanO+N▲O,U,J,D连续输入四点坐标两条直线方位转角交点坐标O,U:第一、第二条直线的方位（计算后）J,D:交点坐标（计算后）31 交点方位:JDOUA=U-OPol(cosA,sinA)A=AbsAK=W/AJ,D,O,U输入交点坐标与切线方位转角转向K:曲线转向,右转为正4 任意点坐标：Lbl 2:{S}S≤0→G=S:H=0:C=0:Goto 4△S≥L→G=L-S:H=0:C=0: Goto 3△S→Prog 5: Goto 4△S→C=B+180(S-I)/RπG=RsinC+M:H=R-RcosC+P: Goto 4 ≠>S=L-S:Prog 5Lbl 3X=J-KhsinU+cosU(T-G) ▲Y=D+KhcosU+sinU(T-G) ▲Z=U-KC:Goto 5Lbl 4X=J-KhsinO-cosO(T-G) ▲Y=D+KhcosO-sinO(T-G) ▲Z=O+KCLbl 5:{N}:G=X+KNsinZ▲ H=Y-KNcosZ▲Goto 2S,X,Y,G,H,N输入到曲线起点的弧长坐标坐标方向距离（外侧为正）法线点坐标S:距曲线起点的弧长,S可用到曲线起点的里程差得到N:法向距离(曲线外侧为正)X,Y:中线点坐标Z:切线方位G,H:法向点坐标41 程序连接:Prog 31:Prog 2:Prog 448 曲线长反算:Z=O+(90+A/2)KS=(R+P)/cos(A/2)G=J+ScosZH=D+SsinZLbl 8:{XY}Pol(X-G,Y-H)Z=K(W-O)+90S=RZ×/180+I/2▲Goto 8X,Y,SOAKRPJD为曲线变量法向点坐标曲线长由法向点坐标反算成对应曲线长49 E=G+G5/40Q2-G9/3456Q4F=H-E3/6Q+E7/336Q3E2/2Q×F/(1-EF/Q)+E缓和曲线段的反算5 缓和曲线:Q=RIG=S-S5/40Q2+S9/3456Q2Q2H=S3/6Q-S7/336Q3+S11/42240Q5C=S2/RI×90/πG,H,C6 放样:Defm 2Z[1] ▲ Z[1]=Ans:Z[2] ▲ Z[2]=Ans EFPol(Z[1]-E,Z[2]-F)Q=WLbl 0:{XY}Pol(X-E,Y-F) ▲W-QAns<0→Ans+360△”B=”▲Goto 0输入后视点坐标输入测站坐标EF放样距离V放样顺拨角度(度)Z[1],Z[2]:后视点坐标E,F: 测站点坐标Q:后视方位X,Y: 放样点坐标8 单导线:KLbL 1:{AS}Prog A:SB=B+180-KA▲X=X+ScosB▲ Y=Y+SsinB▲ Goto 1A,S,B,X,Y输入左角右角输入角度距离前视方位前视点坐标连续计算单导线坐标，角度按度.分秒输入左角K=-1,右角K=181 支导线:ZSZ=Z+QX=E+ScosZ▲ Y=F+SsinZ▲Z,S,Q,X,Y前视角度(度),距离前视方位前视坐标放样时计算前视点的坐标,以便反算A 角度转换:A=IntA+Int(100FracA)/60+Frac(100A)/36 A 输入度.分秒，转换成度。
4500计算器程序
L4 W△△X”X”=D+Rec(PoI(X,ZAns,W+B▲Y”Y”=K+W▲ Goto F [主程序结束]
F2： Q [子程序]
L1 Y=2RS:W=180I2/πY:X=I-Ixy5/10Y2-T-ZNsin W:Ixy3/3Y-Ixy7/42Yxy3+ZNcosW [子程序结束]
4、程序中I"≦Deg"=Int I+.01Int Ans+6mFrac Ans▲处的m 用按键[SHIFT][5]输入；
操作说明：
Fixm C=>?
首次启动时，需输入密码：“10000000”。重启动功能控制符，输入“7”或“-7”可启动重启动功能。
F2： Q [子程序]
L1 Y=2RS:W=180I2/πY:X=I-Ixy5/10Y2-T-ZNsin W:Ixy3/3Y-Ixy7/42Yxy3+ZNcosW [子程序结束]
输入说明：
F1为第一个程序，L1为第一个程序的第一行，L2为第二行，依次类推。
A0？
曲线转角，要求以度分秒形式输入，左转输入“负” 值，右转输入“正”值。
R?
曲线半径，直接输入即可。
LSci?
缓和曲线长度，有缓和曲线时输入缓和曲线长度，圆曲线输入“0”。
T=S/2-Sxy3/2→
程序输出曲线切线长度。
程序名：ZBZS
C”X1”D”Y1”S”S=”R”Aμ”：X”X2”=C+Rec(S，R▲Y”Y2”=D+W
注意：本程序在CASIO4500上调试运行通过。如果是在4800上运行请将源程序中的V，W分别用I，J替代即可。
运行后界面如下：
CASIOfx4500P计算器程序
二○○一年八月
目录
程序1——角度判断
文件名
A
角度判断
29步
L1
B≥360B=B－360△B＜0B=B+360
说明：①程序A为子程序，对≥360°或＜0°的角值进行判断处理。
程序2——角度换算①
文件名
B
角度换算①
23步
L1
B=Int B+Frac B/.6+Frac100B/90
程序3——角度换算②
程序13——剖面交点计算
文件名
8
剖面交点计算
55步
L1
说明：①程序8用以计算剖面交点距离；
②输入坐标方位角时不用考虑方向性；
③算例：如图,按Prog 8调用程序显示B？输入坝1的坐标方位角96.0303或276.0303，按EXE键、显示L？输入坝1交坝Ⅱ围Ⅰ的距离21.9，按EXE键、显示J？输入坝Ⅱ的坐标方位角301.0950或121.0950，按EXE键、显示I？输入围Ⅰ的坐标方位角307.1202或127.1202，按EXE键、显示坝Ⅱ交围Ⅰ及坝1的距离107.7198781，按EXE键、显示围Ⅰ交坝1坝Ⅱ的距离88.38012441。
⑤若转折角为右角，将语句B=B+I－180改为B=B－I+180即可。
程序9——坐标正算
文件名
4
坐标正算
22步
L1
说明：①程序根据已知坐标、边长及其坐标方位角计算待定点坐标；
②程序中：B=坐标方位角、L=边长、X=已知点纵坐标、Y=已知点横坐标；
③算例：按Prog3调用程序显示B？输入坐标方位角100.11431，按EXE键、显示L？输入边长151.213，按EXE键、显示X？输入已知点纵坐标1000，按EXE键、显示待定点纵坐标973.2346789，按EXE键、显示Y？输入已知点横坐标2000，按EXE键、显示待定点横坐标2148.825364。
CASIO fx-4500P讲稿(13.9.6)
CASIO fx-4500P编程入门（第一讲）一、fx-4500P计算器简介(仅限于测量常规计算用到的内容)1.1概述该型计算器显示屏为液晶板，双行显示，上行显示变量名或算式（编程时为某行的内容），下行显示计算器运行状态和角度制等信息（计算时显示计算结果），其最大每行输入步数为127步，当输入到121步时即出现方形闪烁光标，以示警告。
此虽为编程型计算器，但编程者必须清楚——因4500P计算器较之早期曾使用过的可编程计算器如180P、3600P和3800P等其可用程序步有了大幅度的增加（由38步到1103步），但若要处理较为复杂的问题，则小程序难以担当。
所以，为最大限度利用每一程序步，文件名的字母个数不宜过多，且在编程时尽量利用其已有功能以有效减少使用字母、冒号、逗号，并少用或不用双引号的提示信息，将主程序中重复出现的程序段设置为子程序，若非必要不使用下标变量等，总之，一定要厉行节约！1.2功能简介1.左上角黄键——Shift，即上档键。
它与某键组合使用，即用的是某键上方以黄色标识的功能；2.左上角蓝键——2ndF，多在编程时它与某键组合使用写入程序，同样用的是某键上方的蓝色标识；3.左上角红键——ALPHA，多在编程时它与某键组合使用指定常数、变量或提示信息等，若上档键与红键组合，则键面26个字母将可直接按下即可显示在显示屏上；4.第二排左起第一键——FILE，按此键可以呼出已经存入的程序；5.第二键——OUT（上档IN），按此键可以调出已经存入的算式进行编辑，若上档键与之组合使用，则可以将屏显算式写入机子（不论算式长短，均不会损失程序步，此算式最长只要小于127步即可）；6.第三键——CALC(上档Prog),呼出已经存入的算式以重复计算，上档功能用于编程；7.编辑四键——此四键仅用于公式及程序编辑；8.制式设置键——MODE，此键只能组合使用，是一个十分关键、重要的键，计算器使用者应参照说明书仔细地了解其功用和相关的设置方法。
卡西欧4500、4800计算器计算程序
卡西欧4500/4800计算器程序任意里程桩号计算程序1.主程序(TYQXjs)"1.SZ => XY"："2.XY => SZ"：N：U"X0"：V"Y0"：O"S0"：G"F0"：H"LS"：P"R0"：R"RN"：Q：C =1÷P：D=(P-R)÷(2HPR)：E=180÷π：N=1=>Goto 1：≠>Goto 2Δ←┘Lbl 1：{SZ}：SZ：W=Abs(S-O)：Prog "SUB1"：X"XS"=X◢Y"YS"=Y◢F”FS”=F-90◢Goto 1←┘Lbl 2：{XY}：XY：I=X：J=Y：Prog "SUB2"：S"S"=O+W◢Z"Z"=Z◢Goto 22. 正算子程序(SUB1)A=0.1739274226：B=0.3260725774：K=0.0694318442：L=0.3300094782：F=1-L：M=1-K：X=U+W(Acos(G+QEKW(C+KWD))+Bcos(G+QELW(C+LWD))+Bcos(G+QEFW(C+FWD))+Acos(G+QE M W(C+M WD))):Y=V+W(Asin(G+QEKW(C+KWD))+Bsin(G+QELW(C+LWD))+Bsin(G+QEFW(C+FWD)) +Asin(G+QE M W(C+M WD))) :F=G+QEW(C+WD)+90:X=X+ZcosF：Y=Y+ZsinF3. 反算子程序(SUB2)T=G-90：W=Abs((Y-V)cosT-(X-U)sinT)：Z=0：Lbl 0：Prog "SUB1"：L=T+QEW(C+WD)：Z=(J-Y)cosL-(I-X)sinL：AbsZ<1E-6=>Goto1：≠>W=W+Z：Goto 0Δ←┘Lbl 1：Z=0：Prog "SUB1"：Z=(J-Y)÷sinF二、使用说明1、规定(1) 以道路中线的前进方向（即里程增大的方向）区分左右；当线元往左偏时，Q=-1；当线元往右偏时，Q=1；当线元为直线时，Q=0。
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
CASIO fx4500P计算器实用程序XCAJCJ 编著二○○一年八月说明本程序稿由于时间仓促及编者水平有限，缺点、错误以及疏漏与不足之处在所难免，恳请大家批评指正。
程序步骤计算：1个字符的文件名算3步(每增加一个字符多算一步)，行号算1步，每个字符算1步。
CASIO fx-4500P共有1103步。
XCAJCJ二○○一年八月目录程序1——角度判断 (1)程序2——角度换算① (1)程序3——角度换算② (1)程序4——角度换算③ (1)程序5——角度换算④ (1)程序6——视距测量 (2)程序7——坐标反算 (2)程序8——坐标方位角计算 (2)程序9——坐标正算 (3)程序10——坐标方位角交会计算 (3)程序11——垂距计算 (4)程序12——视差法测距计算 (5)程序13——剖面交点计算 (6)程序14——前方交绘计算 (6)程序15——附合导线近似平差 (7)程序16——渠道中线里程计算 (9)程序17——多边形面积计算 (11)程序18——闭合导线近似平差 (13)程序19——直线交点坐标计算 (14)程序20——极坐标法放样计算 (15)附录1：CASIO fx-4500P错误标示一览表 (16)附录2：常用数学公式 (17)附录3：常用测量公式 (17)附录4：单一附合导线内业平差计算 (20)附录5：勘察分院CAD制图《试行》规定 ............................................. 错误！未定义书签。
CASIO fx 4500P 计算器实用程序版权所有© 2003-2005 XCAJCJ 1程序1——角度判断说明：①程序A 为子程序，对≥360°或＜0°的角值进行判断处理。
程序2——角度换算①程序3——角度换算②程序4——角度换算③程序5——角度换算④说明：①程序B 、C 、D 、E 均为子程序，简化测量计算中角度的输入及显示。
注：子程序应先输入CAISOfx-4500P 中，以备其它程序调用。
CASIO fx 4500P 计算器实用程序2 版权所有© 2003-2005 XCAJCJ程序6——视距测量说明：①程序用以计算视距测量中测站至照准点的平距及高程；②程序中：H=测站高程+仪高(程序只要求输入该值一次)；S=视距、C=切尺、B=竖盘读数；③算例：按Prog 1调用程序显示H ？输入测站高程+仪高445.79+1.41，按EXE 键、显示S ？输入视距39，按EXE 键、显示 C ？输入切尺2.9，按EXE 键、显示B ？输入竖盘读数90.12，按EXE 键、显示(计算结果)平距38.9995248，按EXE 键、显示高程444.1638654，按EXE 键、显示S ？、输入视距……④竖盘读数90.12是将度分秒值(90°12′00″)以小数的形式输入；其它程序的角度值输入及显示均如此。
程序7——坐标反算说明：①程序用以计算两点间的距离及坐标方位角；②程序中：A=起点纵坐标X0，C=起点横坐标Y0，X=终点纵坐标，Y=终点横坐标； ③算例：按Prog 2调用程序显示X0？输入起点纵坐标667.132，按EXE 键、显示Y0？输入起点横坐标993.505，按EXE 键、显示X ？、输入终点纵坐标395.372，按EXE 键、显示Y ？输入终点横坐标914.821，按EXE 键、显示两点间距离282.9216666，按EXE 键、显示起点至终点的方位角196.0851267。
程序8——坐标方位角计算CASIO fx4500P计算器实用程序说明：①程序用以推算导线边的坐标方位角(左角公式)；②程序中：B=已知方位角、I=转折角(左角)；③语句B=D是为其它程序调用本程序而预设的，此处无具体用途；④算例：按Prog 4调用程序显示B？输入已知方位角120.10214按EXE键、显示I？输入转折角160.01217，按EXE键、显示所求方位角100.11431；⑤若转折角为右角，将语句B=B+I－180改为B=B－I+180即可。
程序9——坐标正算说明：①程序根据已知坐标、边长及其坐标方位角计算待定点坐标；②程序中：B=坐标方位角、L=边长、X=已知点纵坐标、Y=已知点横坐标；③算例：按Prog3调用程序显示B？输入坐标方位角100.11431，按EXE键、显示L？输入边长151.213，按EXE键、显示X？输入已知点纵坐标1000，按EXE键、显示待定点纵坐标973.2346789，按EXE键、显示Y？输入已知点横坐标2000，按EXE键、显示待定点横坐标2148.825364。
程序10——坐标方位角交会计算说明：①程序利用已知方位角，计算测站上任意方向线与轴线相交的距离及交点坐标和该交点作为测站后与轴线的夹角；②如下图，程序中：B=已知方位角、I=观测角、A(X0)=测站纵坐标、C(Y0)=测站横坐标、X=轴线上任意点纵坐标、Y=轴线上任意点横坐标、N=轴线方位角；版权所有© 2003-2005XCAJCJ 3CASIO fx 4500P 计算器实用程序4 版权所有© 2003-2005 XCAJCJ③算例：按Prog5调用程序显示B ？输入已知方位角150.01252，按EXE 键、显示I ？输入观测角110.30，按EXE 键、显示X0？输入测站纵坐标100，按EXE 键、显示Y0？输入测站横坐标100，按EXE 键、显示X ？输入轴线方向上任意点纵坐标80，按EXE 键、显示Y ？输入任意点横坐标150，按EXE 键、显示N ？输入轴线方位角210.12374，按EXE 键、显示交点纵坐标111.3973848，按EXE 键、显示交点横坐标168.2813366，按EXE 键、显示测点至交点的距离69.22601608，按EXE 键、显示该交点作为测站后与轴线的夹角09.41122，按EXE 键、显示I ？输入观测角……④程序所用正切公式如图所示：已知两方向、两点坐标，求其交点P 的坐标；BPAP A B BP B AP A P tg tg Y Y tg X tg X X αααα--+-=AP A P A P tg X X Y Y α)(-+=程序11——垂距计算说明：①程序用以计算勘探点偏离轴线的距离；②如图，程序中：B=轴线坐标方位角、A(X0)=轴线控制点的纵坐标、C(Y0)=轴线控制点的横坐标、X=勘探点纵坐标、Y=勘探点横坐标；③算例：按Prog 6调用程序显示B？输入轴线坐标方位角301.09505，按EXE键、显示X0？输入轴线上控制点的纵坐标138.579，按EXE键、显示Y0？输入轴线上控制点的横坐标1321.474，按EXE键、显示X？输入勘探点的纵坐标341.871，按EXE键、显示Y？输入勘探点的横坐标986.408，按EXE键、显示控制点至勘探点的距离391.914355(斜距)，按EXE键、显示控制点至勘探点的坐标方位角301.1446034，按EXE键、显示控制点至勘探点的距离(平距)391.9139527，按EXE键、显示勘探点偏离轴线的距离0.561530147(垂距)；④如果勘探点偏离轴线的距离为正值，表示该点在轴线右侧；若为负值，则该点在轴线左侧。
程序12——视差法测距计算说明：①程序用以计算2M横基尺视差法测距的边长及高程；②程序中：B=视差角、I=垂直角、K=仪高、T=觇标高、H=测站高程；③算例：按Prog 7调用程序显示B？输入视差角2.33176，按EXE键、显示I？输入垂直角1.45386，按EXE键、显示K？输入仪高1.432，按EXE键、显示T？输入觇标高1.405，按EXE键、显示H？输入测站高程443.425，按EXE键、显示测站至测点的距离44.84444364，按EXE键、显示测点高程444.8305217。
程序13——剖面交点计算说明：①程序8用以计算剖面交点距离；②输入坐标方位角时不用考虑方向性；③算例：如图,按Prog 8调用程序显示B？输入坝1的坐标方位角96.0303或276.0303，按EXE键、显示L？输入坝1交坝Ⅱ围Ⅰ的距离21.9，按EXE键、显示J？输入坝Ⅱ的坐标方位角301.0950或121.0950，按EXE键、显示I？输入围Ⅰ的坐标方位角307.1202或127.1202，按EXE键、显示坝Ⅱ交围Ⅰ及坝1的距离107.7198781，按EXE键、显示围Ⅰ交坝1坝Ⅱ的距离88.38012441。
程序14——前方交绘计算说明：①程序9用以计算前方交会法中待定点的坐标；②程序采用余切公式计算坐标，三角形点号应按逆时针编排。
若是顺时针排列，观测角应以负值输入；③算例，如图表所示：④交会角∠C在30°~50°之间时交会误差最小。
程序15——附合导线近似平差说明：①程序10用以单一附合导线的近似平差计算；②程序中：A=测站数、B=起算边坐标方位角、附合边坐标方位角、导线边边长、起点纵坐标、I=观测角(左角)、终点横坐标、G=起点横坐标、H=终点纵坐标；③程序设计可以计算9个测站，大于是9站时只要计算器剩余有步骤数，程序会自动扩充储存器增加储存变量；④算例如表：按Prog 10调用程序显示A？输入测站数5，按EXE键、显示B？输入起算边的坐标方位角169.5359，按EXE键、显示I？输入B点的观测角93.3642，按EXE 键、显示I？输入C点的观测角179.56，依次输入各观测角…，按EXE键、显示B？输入附合边的坐标方位角250.06，按EXE键、显示导线的角度闭合差－0.003699999(－37″)，按EXE键、显示平差后B点至C点的坐标方位角83.30484，按EXE键依次显示各导线边平差后的坐标方位角…，按EXE键、显示B？输入B点至C点的边长126.11，按EXE 键、显示B？依次输入各导线边的边长…，按EXE键、显示各边长之和508.96，按EXE 键、显示B？输入起点纵坐标801.53，按EXE键、显示G？输入起点横坐标724.84，按EXE键、显示H？输入终点纵坐标959.29，按EXE键、显示I？输入终点横坐标1158.41，按EXE键、显示纵坐标闭合差0.093449934，按EXE键、显示横坐标闭合差－0.02045631，按EXE键、显示导线全长相对闭合差5320.360577(K=1/5320)，按EXE键、显示C点纵坐标815.754，按EXE键、显示C点横坐标850. 148，按EXE键依次显示D、E、F、G 点的纵横坐标。
程序16——渠道中线里程计算说明：①程序11用以渠道中线测量的里程及其曲线要素的计算②程序中：A=渠线起点IP0的纵坐标、C=渠线起点IP0的横坐标、X=IP1…IPn 的纵坐标、Y=IP1…IPn 的横坐标、R=半径；③程序计算时会自动取舍弧长L 的小数位为偶数，其它数据取位后均无余留尾数，用以消除累加误差；④程序设计只保留1位小数，若要保留2位小数，应修改取位子程序中的语句U=Frac 10V/10为U=Frac 100V/100；修改取位子程序中的语句:10U ≥.5⇒V+.1－U △10U ＜.5⇒V －U △为:100U ≥.5⇒V+.01－U △100U ＜.5⇒V －U △；修改曲线要素计算子程序中的语句W=5(Frac V －U 为W=5(Frac 10V －10U ；修改语句Frac W ≠0⇒V=V+.05△Frac W=0⇒V=V －.05△为Frac W ≠0⇒V=V+.005△Frac W=0⇒V=V －.005△⑤若要保留3位小数，应修改取位子程序中的语句U=Frac 10V/10为U=Frac 1000V/1000；修改取位子程序中的语句10U ≥.5⇒V+.1－U △10U ＜.5⇒V －U △为1000U ≥.5⇒V+.001－U △1000U ＜.5⇒V －U △；修改曲线要素计算子程序中的语句W=5(Frac V －U 为W=5(Frac 100V －100U ；修改语句Frac W ≠0⇒V=V+.05△Frac W=0⇒V=V －.05△为Frac W≠0⇒V=V+.0005△Frac W=0⇒V=V－.0005△；⑥算例见下表，按Prog 11调用程序显示X0？输入IP0的纵坐标，按EXE键、显示Y0？输入IP0的横坐标，按EXE键、显示X？输入IP1的纵坐标，按EXE键、显示Y？输入IP1的横坐标，按EXE键、显示IP0至P1的坐标方位角，按EXE键、显示IP0至IP1的距离，按EXE键、显示X？输入IP2的纵坐标，按EXE键、输入IP2的横坐标，按EXE键、显示IP1至IP2的坐标方位角，按EXE键、显示IP1至IP2的距离，按EXE 键、显示IP1的里程J，按EXE键、显示IP1的外偏角α，按EXE键、显示R？输入半径，按EXE键、显示切线长T，按EXE键、显示弧长L，按EXE键、显示外矢距E，按EXE键、显示直圆点(ZY)里程，按EXE键、显示曲中点(QZ)里程，按EXE键、显示圆直点(YZ)里程，按EXE键、显示直圆点(ZY)至曲中点(QZ)的坐标方位角，按EXE键、显示曲中点(QZ)至圆直点(YZ)的坐标方位角，按EXE键、显示X？依次输入IP3…IPn的纵横坐标……；⑦计算结束后按AC、RCL、M+键将显示终点IP桩的里程。