《常用casio4800计算程序集》由会员分享，可在线阅读，更多相关《常用casio4800计算程序集（10页珍藏版）》请在金锄头文库上搜索。
1、常用常用 CASIO4800 计算程序集计算程序集FX4800P 常用测量程序集1、由一个已知点坐标和一个已知方位角计算支导线坐标（程序名：ZBJS）程序清单：X：Y：T：Lb1 0：Fixm：AS：T=T+A-180：T0 =T=T+360 T360 =T=T-360TX=X+Scos TY=Y+Ssin TGoto 0程序运行说明：运行“ZBJS”，每运行一步按 EXE 键一次，显示 X？时输入已知点 X 坐标，显示 Y？时输入已知点 Y 坐标，显示 T？时输入已知点由后视到前视的已知坐 标方位角，运行一次本程序只需输入一次已知数据。显示 A？时输入第一个左转角值，显示S？时输入测站到前视
2、的水平距离。接下来计算器显示的 T 是测站到前视的坐标方位角，按 + 可将显示的十进制角度换算为度分秒。如此继续可计算出所有支导线未知坐标。2、由两个已知点坐标计算支导线坐标（程序名：ZBJS2）程序清单：M“X0”：N“Y0”：D“XH”：E“YH” Pol(M-D，N-E)：Fixm：T=J：X=M：Y=N：T0=T=T+360T“TH-J=” I“S=”Lb1 0:AS: T=T+A-180：T0 =T=T+360 T360 =T =T-360TX=X+Scos TY=Y+Ssin TGoto 0程序运行说明：运行后，显示 X0，Y0 时输入已知置镜点坐标，显示 XH，YH 时输入已知后
3、视点坐标，其它同 ZBJS 的输入与显示。3、由一个已知点坐标和一个已知方位角进行放射型导线坐标计算（程序名 FSXZBJS）程序清单：C“X0”：D“Y0”：E“T0”：Fixm：Lb1 1:SAT=E+A-180：T0=T=T+360 T360 =T=T-360TX=C+Scos TY=D+Ssin TGoto 1程序运行说明：变量输入参照 ZBJS 程序。4、由两个已知点坐标进行放射型导线坐标计算（程序名 FSXZBJS2）M“X0”：N“Y0”：D“XH”：E“YH” Pol(M-D，N-E)：Fixm：F=J：X=M：Y=N：F0=F=F+360F“TH-J=” I“S=” Lb1
4、1:SAT=F+A-180：T0=T=T+360 T360 =T=T-360TX=X+Scos TY=Y+Ssin TGoto 15、坐标计算优化程序（可进行连续式（LX）、放射式（FS）已知一点（1-D）或者两点（2-D）进行坐标计算）：V“1=LX，FS”：W“1 =1-D2-D”：W=1= Goto 1: Goto2Lb1 1：F“X0=”：G“Y0=”：H“T H-0=”：Goto 3Lb1 2:F“X0=”：G“Y0=”：M“XH=”：N“YH=”:Pol(F-M，G-N)：Fixm: J0=J=J+360H=J：H“TH-0=”I“S-H=”Goto 3Lb1 3: X=F：Y=G
5、：T=H ： V=1= Goto 4: Goto 5Lb1 4: AS: A:S:T=T+A-180：T0 =T=T+360 T360 =T =T-360TX=X+Scos TY=Y+Ssin TGoto 4Lb1 5：AS:A:ST=H+A-180：T0=T=T+360 T360 =T=T-360TX=F+Scos TY=G+Ssin TGoto 56、已知置镜点坐标和置镜点到后视点坐标方位角求放样角度和放样距离的放样程序（程序名 FY1）程序清单：F“X0”：G“Y0”：H“T0-H”：Fixm：Lb1 1:XYPol(X-F，Y-G) J0 =J=J+360A=J-HA0 =A=A+36
6、0A“A=” I“S=” Goto 1程序运行说明：变量输入参照坐标计算，A=为放样顺时针角度，S=为放样距离。7、已知置镜点和后视点坐标进行放样（FY2）程序清单：F“X0”：G“Y0”：M“XH”：N“YH”Pol(M-F，N-G)：Fixm：H=JH0=H=H+360H“T-H=”I“S-H=” Lb1 1:XY: Pol(X-F，Y-G) J0 =J=J+360A=J-HA0 =A=A+360A“A=”I“S=” Goto 18、放样优化程序（可分已知一点或者两点坐标进行放样角度距离的计算）程序名“FY”程序清单：I“I=1 =1-D2-D”I=1= Goto 1: Goto2Lb1
7、1：F“X0”：G“Y0”：H“T0-H”：Goto 3Lb1 2：F“X0”：G“Y0”：M“XH”：N“YH”:Pol(M-F，N-G)：Fixm:J0=J=J+360H=J:H“T-H=”I“S-H=”Goto 3Lb1 3：XYPol(X-F，Y-G) ：Fixm J0 =J=J+360A=J-HA0 =A=A+360A“A=” I“S=” Goto 3程序运行说明：变量输入参照坐标计算，A=为放样顺时针角度，S=为放样距离。9、已知两点坐标，反算两点之间的坐标方位角和距离（程序名 ZBFS）程序清单：A“X1=”：B“Y1=”：C“X2=”：D“Y2=”：P ol（C-A，D-B）：
8、Fixm：J0 =J=J+360J“T（1-2）=” I“S（1-2）=”10、分别已知两条直线上一点的坐标和坐标方位角，求这两条直线的交点坐标（程序名 JDZB）程序清单：X=（tan A“T1”B“X1”-C“Y1”-tan D“T2” E“X2”+F“Y2”） V（tan A- tan D）Y= tan A（X-B）+C11、直线线路坐标计算（ZXXY）程序清单：V“X0=”：W“Y0=”：T“T0=”：U“K0=”：Lb1 0：Fixm：KD：X=V+（K-U）cos T+Dcos(T+90)Y=W+（K-U）sin T+Dsin(T+90)Goto 0程序运行说明：已知某一直线线路上
9、一点的坐标为 X0，Y0，该点里程为 K0 以及该直线沿前进方向的坐标方位角 T0，按照提示输入以上数据，如果输入某一里程 K 和法线外移距离 D（向右移为正值，向左移为负值）即可计算出该里程点的法线外移桩坐标 X、Y，当 D=0 时计算结果为中桩坐标。12、“缓+圆+缓”型曲线坐标计算主程序（QXJS）程序清单：Prog “BQXYS”：Q“KZH”：F“ZHX=”：G“ZHY=”：N“TZHJD”：I“（Y1，Z-1）” Lbl 1:Fixm:KD:K“LICHENG=”：D“WAIYI=（Z-，Y+）”：Goto2Lbl 2:K Goto3: Goto4Lbl 3:“KOVER”: Go
10、to1Lbl 4:KQ+L = Goto3: Goto5Lbl 5:KQ+B = Goto6: Goto7Lbl 6:S=K-Q：W=B：Prog “HQXY”：O=N+I90S2( RB)：O O=O+360O360 = O=O-360O“FANGWEI=” X=UcosN-VsinN+F+Dcos(O+90) Y=VcosN+UsinN+G+Dsin(O+90) Goto1Lbl 7：KQ+L-C = Goto8: Goto9Lbl 8:S=K-Q：O=N+I90(2S-B)( R)：O O=O+360O360 = O=O-360O“FANGWEI=” Prog “YQXY”：X=Ucos
11、N-VsinN+F+Dcos(O+90) Y=VcosN+UsinN+G+Dsin(O+90) Goto1Lbl 9: S= Q+L-K：W=C：Prog “HQXY”：E=N+IA+180：O=E-I90S2( RC)+180：O O=O+360O360 = O=O-360O“FANGWEI=”V=-VX=(U-H)cosE-VsinE+F+T cosN+Dcos(O+90) Y=VcosE+(U-H)sinE+G+T sinN+Dsin(O+90) Goto1子程序“BQXYS”A:R:B“L01”:C“L02” M“M1”=B2-B3（240 R2）J“M2”=C2-C3（240 R2）
12、P“P1”= B2（24 R）- B4（2688 R3）Z“P2”= C2（24 R）- C4（2688 R3）T“T1”=M+（R+P）tan(A2)+(Z-P) sinAH“T2”=J+（R+Z）tan(A2)+( P-Z) sinAL= B2+C2+A R180E= 子程序“HQXY”U=S-S5(40R2 W2)+ S9(3456 R4 W4)-S13(599040R6 W6):V=I(S3(6RW)- S7(336 R3 W3) +S11(42240 R5 W5)子程序“YQXY”U=Rsin(180(S-B2)R)+M:V=I(R(1-cos(180(S-B2)R)+P)程序说明：
13、本程序可以计算等长和不等长“缓+圆+缓”型曲线或者单圆曲线的中线坐标、外移桩坐标以及中线的切线方位角。先将主、子程序存入计算器，然后运行主程序“QXJS”，输入 A（曲线偏角），曲线半径 R，第一缓和曲线长 L01，第二缓和曲线长 L02，（等长缓和曲线时 L01= L02），然后显示曲线逐要素，接着输入 ZH 坐标（ZHX，ZHY），ZH 到 JD 坐标方位角 TZHJD，当曲线为左偏时（Y1，Z-1）输-1，右偏输 1，输入计算里程 K，外移距离 D，计算中桩时 D 输 0，计算左边桩时 D 输负数，算右边桩时 D 输正数，当所输里程不在本曲线计算范围内时，屏幕显示 KOVER，继续输入有
14、效里程可继续计算。对于单圆曲线，缓和曲线长输入 0。本程序缓和曲线 X 计算取了 4 项，Y 计算取了 3 项，一般的曲线计算精度都可达到 mm 级。13、采用积分进行任意曲线线路坐标计算程序（直线、圆曲线、卵型曲线）程序名“XLJS”程序名“XLJS”(V1.1，2005 年 12 月 7 日星期三升级于秦岭公司)G“XJ=”：H“YJ=”：R“XH=”：S“YH=”：A“XA=”：B“YA=”：C“TA=”：E“1RA ,Z-，Y+”：P“KA=”Lbl 1：FQ：F“1RB, Z-，Y+”：Q“KB=” Lbl 2：V：V“K=”：O=V：O Goto3： Goto4Lbl 3：“K-S
15、MALL”：Goto2Lbl 4：OQ = Goto5： Goto7Lbl 5：I：I“I=1=ESCNEXT”：I=1= Goto2： Goto 6Lbl 6：“JISUAN：A-TXY”：V=Q：Z=0：D=0：Goto8Lbl 7: DZ：Z“JIA-JIAO=”：D“WAIYI=（Z-，Y+）”Lbl 8：T=C+90（2E+（F-E）（V-P）（Q-P）（V-P）：T0=T=T+360 T360 =T=T-360Rad：W=A+（cos（C+0.5(2E+(F-E)(X-P)(Q-P)(X-P)）,P,V,4）+ Dcos(T+Z) Y=B+（sin（C+0.5(2E+(F-E)(X-P)(Q-P)(X-P)）,P,V,4）+ Dsin(T+Z)：Deg：Goto9Lbl 9：OQ = GotoB： GotoALbl A：A=W：B=Y：C=T：E=F：P=Q： Goto1Lbl B： W“X=”Y“Y=”T“T=”Pol(R
