5800程序编写完整版.
5800卡西欧计算器程序大全
5800卡西欧计算器程序大全1.基本数学运算程序-加法：输入两个数字，然后计算它们的和。
-减法：输入两个数字，然后计算它们的差。
-乘法：输入两个数字，然后计算它们的积。
-除法：输入两个数字，然后计算它们的商。
-平方根：输入一个数字，然后计算它的平方根。
-幂运算：输入两个数字，然后计算第一个数字的第二个数字次方。
2.科学计算程序-对数运算：输入一个数字和一个底数，然后计算它们的对数。
-三角函数：输入一个角度，然后计算它的正弦、余弦和正切值。
-阶乘计算：输入一个数字，然后计算它的阶乘。
-指数函数：输入一个数字，然后计算e的这个数字次方。
-随机数生成：生成一个随机数。
3.金融计算程序-终值计算：输入本金、利率和时间，然后计算将来其中一时刻的价值。
-现值计算：输入将来其中一时刻的价值、利率和时间，然后计算现在的价值。
-年金支付计算：输入每期支付的金额、利率和时间，然后计算总支付金额。
-贷款利率计算：输入贷款金额、每期支付金额和时间，然后计算贷款利率。
-折现计算：输入每期支付金额、利率和时间，然后计算折现值。
4.统计计算程序-平均值计算：输入一组数字，然后计算它们的平均值。
-中值计算：输入一组数字，然后计算它们的中值。
-方差计算：输入一组数字，然后计算它们的方差。
-标准差计算：输入一组数字，然后计算它们的标准差。
-相关系数计算：输入两组数字，然后计算它们的相关系数。
以上只是一部分5800卡西欧计算器程序的示例，卡西欧计算器还提供了更多的功能，例如单位转换、时间计算、日期计算等等，可以根据实际需求选择使用。
希望以上内容对您有所帮助。
5800程序
5 8 0 0 程序正反算选择程序：ZS-FSDeg: //设置角度模式20→DimZ: //扩展变量“1LZ＝＞XY，2XY＝＞LZ，3JGW-4DZBJS”？U：//正反算选择，正算选1,反算选2,结构物4点坐标计算If U=1: ThenProg”ZS-XH”:IfEnd://进入正算循环主程序IfU=2:Then Prog”FS-XH”:IfEnd: //进入反算循环主程序IfU=3:Then Prog”JGW-4DZBJS”:IfEnd: / /进入结构物4点坐标计算主程序正算循环主体程序ZS-XH“XL-XZ“？U：//选择线路1～NLbi0:”L=”?L:”Z=”?Z: //输入桩号和边距Porg”ZS-XH-1“：//运行正算循环子程序Goto0：正算循环子程序ZS-XH-1Prog”PM-XL-XZ”: //进入平面线路选择程序对线路线元进行选择Prog”CHAOXIAN-CL”: //里程超限处理Prog”GL-ZS”: //进入坐标正算程序Prog”GL-BZ-ZS”: //进入公路边桩正算程序Prog”GC-XL-XZ”: //进入高程线路选择程序对线路线元进行选择Prog”GC”://进入高程部分提取中桩高程Prog”ZS-XS”: //进入正算显示程序，提取正算三维结果Goto0:反算循环主体程序FS-XH0→Z:“XL-XZ”？U：//选择线路 1～NLbi0：“L”？L：“X=”？T：“Y=”？S： //输入起算假定桩号，实测X YProg”GL-FS”: /进入公路反算程序Prog”GC-XL-XZ”: //进入高程线路选择程序对线路线元进行选择Prog”GC”://进入高程部分提取中桩高程Prog”FS-XS”: //进入反算显示程序Goto0:坐标正算程序GL-ZS.1739274226→I:.3260725774→J:.0694318442→K:.3300094782→E ://四节点法计算系数录入1-E→F：1-K→M：Q+KrO(C+KD) →K: //数据库要用X、Y、Q作为起点坐标方位角Q+ErO(C+ED) →E: //r是弧度,输入方法FUNCTION 选5Q+FrO(C+FD) →F:Q+MrO(C+MD) →M:X+O(ICos(K)+JCos(E)+JCos(F)+ICos(M)) →X://计算出X坐标Y+O(ISin(K)+JSin(E)+JSin(F)+ISin(M)) →Y: //计算出Y坐标Q+Or(C+D) →Q： //计算出算点方位角,O是字母,r是弧度:边桩坐标计算程序GL-BZ-ZS"XJ"?→A:X+Zcos(Q+A) →G: //计算出边桩X坐标Y+ZSin(Q+A) →M: //计算出边桩Y坐标公路反算程序GL-FSDo:Porg”PM-XL-XZ”://进入平面线路选择程序Porg”CHAOXIAN-CL”://里程超限处理程序Porg”GL-ZS”: //进入公路正算4节点程序T-X→I:S-Y→J: //试算点与测点X，Y距离差Pol(I,J):J-Q→J://方位角转换为接近试算点到测点的值：Rec(I,J): //计算出X差和Y差（X里程，J边）L+I→L：//修改后的里程Abs(I) →I://修改值的绝对值LpWhile I＞0.001: //小于一毫米通过，大于一毫米循环计算中桩高程计算程序GCIf I-A＜0:Then1→H:IfEnd://开口向上部分赋值IfI-A=0:ThenGoto1: IfEnd: //无竖曲线部分赋值IfI-A＞0:Then-1→H:IfEnd://开口向下时赋值(L-C)I+K+(L-C)^2/(2E)H→I：//计算得出竖曲线部分中桩高程Goto2:Lbi1:K+(L-C)I→I://计算得出无竖曲线部分中桩高程Lbi2:正算显示ZS-XS“FWJ”：Q◢ //显示计算里程方位角“ZHONG-X”:X◢ //显示中线X坐标“ZHONG-Y”: Y◢//显示中线Y坐标“ZHONG-GC”:I◢//显示中桩高程“B-X”:G◢//显示边桩X坐标“B-Y”: M◢ //显示边桩Y坐标反算显示FS-XS“L”：L◢ //显示计算里程“Z”：J◢//显示计算边距“ZHONG-GC”:I◢//显示中桩高程里程超限CHAOXIAN-CLIf L＜A:Then “L-＜＜＜”；Stop:IfEnd: //小于本路线最小里程提示，退出程序If L＞B: Then”L+＞＞＞”:Stop:IfEnd: //大于本路线最大里程提示，退出程序结构物循环主体程序JGW-4DZBJS30→DimZ://扩展变量“XL-XZ“？U：//选择线路1～NLbi0:”L=”?L://输入桩号Prog”PM-XL-XZ”: //进入平面线路选择程序对线路线元进行选择Prog”GL-ZS”://进入坐标正算程序，提取中桩坐标“ZL”?G: //输入左边长度“YL”?V: //输入右边长度“QK”?N: //输入前方宽度“HK”?S: //输入后方宽度?T: //输入斜交角度(右前方夹角）“1=>ZS,2=>XS”?W:W=1=>Goto2: W=2=>Goto 3 ↙//1=>斜交正做（平行于路中）2=>斜交斜做Lbl 2 ↙// 斜交正做（平行于路中）X+NcosQ÷sinT-Gcos(Q+T)→Z[6]: //计算左前方X坐标Y+NsinQ÷sinT-Gsin(Q+T)→Z[7]: //计算左前方Y坐标X-ScosQ÷sinT-G]cos(Q+T)→Z[8]: //计算左后方X坐标Y-SsinQ÷sinT-Gsin(Q+T)→Z[9]: //计算左后方Y坐标X+NcosQ÷sinT+Vcos(Q+T)→Z[10]: //计算右前方X坐标Y+NsinQ÷sinT+Vsin(Q+T)→Z[11]: //计算右前方Y坐标X-ScosQ÷sinT+Vcos(Q+T)→Z[12]: //计算右后方X坐标Y-SsinQ÷sinT+Vsin(Q+T)→Z[13]: //计算右后方Y坐标“ZQ.X=”:Locate 6,4,Z[6]: //第六行第四列开始显示左前X值“ZQ.Y=”:Locate 6,4,Z[7]: //第六行第四列开始显示左前Y值“ZH.X=”:Locate 6,4,Z[8]: //第六行第四列开始显示左后X值“ZH.Y=”:Locate 6,4,Z[9] ◢//第六行第四列开始显示左后Y值“YQ.X=”:Locate 6,4,Z[10]: //第六行第四列开始显示右前X值“YQ.Y=”:Locate 6,4,Z[11]: //第六行第四列开始显示右前Y值“YH.X=”:Locate 6,4,Z[12]: //第六行第四列开始显示右后X值“YH.Y=”:Locate 6,4,Z[13] ◢//第六行第四列开始显示右后Y值Goto 0↙//返回输入桩号Lbl 3 ↙// 斜交斜做X+Nsin(Q+T)-Gcos(Q+T)→Z[14]: //计算左前方X坐标Y-Ncos(Q+T)-G]sin(Q+T)→Z[15]: //计算左前方Y坐标X-Ssin(Q+T)-Gcos(Q+T)→Z[16]: //计算左后方X坐标Y+Scos(Q+T)-Gsin(Q+T)→Z[17]: //计算左后方Y坐标X+Nsin(Q+T)+Vcos(Q+T)→Z[18]: //计算右前方X坐标Y-N]cos(Q+T)+Vin(Q+T)→Z[19]: //计算右前方Y坐标X-Ssin(Q+T)+Vos(Q+T)→Z[20]: //计算右后方X坐标Y+Scos(Q+T)+Vsin(Q+T)→Z[21]: //计算右后方Y坐标“ZQ.X=”:Locate 6,4,Z[14]: //第六行第四列开始显示左前X值“ZQ.Y=”:Locate 6,4,Z[15]: //第六行第四列开始显示左前Y值“ZH.X=”:Locate 6,4,Z[16]: //第六行第四列开始显示左后X值“ZH.Y=”:Locate 6,4,Z[17] ◢//第六行第四列开始显示左后Y值“YQ.X=”:Locate 6,4,Z[18]: //第六行第四列开始显示右前X值“YQ.Y=”:Locate 6,4,Z[19]: //第六行第四列开始显示右前Y值“YH.X=”:Locate 6,4,Z[20]: //第六行第四列开始显示右后X值“YH.Y=”:Locate 6,4,Z[21] ◢//第六行第四列开始显示右后Y值Goto 0↙数据库部分1、平曲线数据库平面线路选择程序PM-XL-XZU=1＝＞Prog”QXYS”://进入假定线路活大线。
5800计算器程序1
5800计算器程序15800计算器程序1计算器程序通常是用来进行基本的数学运算的工具，能够帮助用户进行加减乘除等运算。
下面是一个简单的5800计算器程序的实现，代码行数大约1200字以上。
```python# -*- coding: utf-8 -*-#定义一个函数，用于检查输入是否为有效的数值def is_valid_number(num_str):try:float(num_str)return Trueexcept ValueError:return Falseclass Calculator:def __init__(self):self.result = 0#加法运算def add(self, a, b):if is_valid_number(a) and is_valid_number(b): self.result = float(a) + float(b)return self.resultelse:return "请输入有效的数字！"#减法运算def subtract(self, a, b):if is_valid_number(a) and is_valid_number(b): self.result = float(a) - float(b)return self.resultelse:return "请输入有效的数字！"#乘法运算def multiply(self, a, b):if is_valid_number(a) and is_valid_number(b): self.result = float(a) * float(b)return self.resultelse:return "请输入有效的数字！"#除法运算def divide(self, a, b):if is_valid_number(a) and is_valid_number(b): if float(b) != 0:self.result = float(a) / float(b)return self.resultelse:return "除数不能为0！"else:return "请输入有效的数字！"#主程序if __name__ == '__main__':calculator = Calculatorprint("欢迎使用5800计算器程序！")while True:print("请输入要进行的操作：")print("1. 加法")print("2. 减法")print("3. 乘法")print("4. 除法")print("5. 退出程序")choice = input("请选择操作（输入序号）：")if choice == "1":num1 = input("请输入第一个数：")num2 = input("请输入第二个数：")print(f"结果为：{calculator.add(num1, num2)}")elif choice == "2":num1 = input("请输入第一个数：")num2 = input("请输入第二个数：")print(f"结果为：{calculator.subtract(num1, num2)}") elif choice == "3":num1 = input("请输入第一个数：")num2 = input("请输入第二个数：")print(f"结果为：{calculator.multiply(num1, num2)}") elif choice == "4":num1 = input("请输入第一个数：")num2 = input("请输入第二个数：")print(f"结果为：{calculator.divide(num1, num2)}")elif choice == "5":print("感谢使用5800计算器程序，再见！")breakelse:print("无效的操作！请重新输入。
5800程序编写
FX-5800计算器公路测量常用程序一、程序功能本程序由6个主程序、5个次子程序及5个参数子程序组成。
主要用于公路测量中坐标正反算，设计任意点高程及横坡计算,桥涵放样，路基开挖口及填方坡脚线放样。
程序坐标计算适应于任何线型.二、源程序1.主程序1：一般放样反算程序(①正算坐标、放样点至置仪点方位角及距离；②反算桩号及距中距离)程序名:1ZD-XYLb1 0:Norm 2F=1：(正反算判别，F=1正算，F=2反算,也可以改F前加？，改F为变量)Z[1]=90（与路线右边夹角）Prog＂THB＂：F=1=>Goto 1:F=2=>Goto 2Lb1 1:Ｆix 3:＂Ｘ=＂：Locate 6,4,Ｘ◢＂Ｙ＝＂：Locate 6,4,Ｙ◢Ｐrog＂3JS”:Goto 0:Lb1 2:Fix 3:＂ＫＭ＝＂：Locate 6,4,Ｚ◢＂Ｄ＝＂：Locate 6,4,Ｄ◢Ｇoto 0２．主程序２：高程序横坡程序(设计任意点高程及横坡)程序名：2GCLbI 0:Norm 2“KM”?Z:?D:Prog”H”:Fix 3:” H=”:Locate 6,4,H◢“ I=”: Locate 6,4,I◢Goto 03.主程序3：极坐放样计算程序(计算放样点至置仪点方位角及距离)程序名：3JSX：Y：1268．123→K(置仪点X坐标)2243．545→L（置仪点Y坐标，都是手工输入,也可以建导线点数据库子程序,个人认为太麻烦）Y-L→E：X-K→F：Pol(F,E):IF J<0:Then J+360→J:Int(J)+0.01Int(60Frac(J))+0.006Frac(60Frac(J)) →J:(不习惯小数点后四位为角度显示的，也可以用命令J◢DMS◢来直接显示) Fix 4:” FWJ=”: Locate 6,4,J◢(不习惯小数点后四位为角度显示的，也可以用命令J◢DMS◢来直接显示)Fix 3:” S=”:Locate 6,4,I◢4．主程序4：涵洞放样程序（由涵中心桩号计算出各涵角坐标、在主程序3中输入置仪点坐标后计算放样点至置仪点方位角及距离)程序名：4JH-XYLbI 0:Norm 290→Z[1](涵洞中心桩与右边夹角，手工输入，也可以修改成前面加？后变为变量)1→F:Prog”THB”:?L:Z[2]-Z[1] →E:X+Lcos(E) →X:Y+Lsin(E) →Y:Fix 3: ＂Ｘ=＂：Locate 6,4,Ｘ◢＂Ｙ＝＂：Locate 6,4,Ｙ◢Ｐrog＂3JS”:Goto 0:5．主程序5:路基开挖边线及填方坡脚线放样程序（输入大概桩号及测量坐标、地面标高计算出偏移距离、桩号、距中距离、填挖高度）程序名：5FBXLbI 0:Norm 2: 18→DimZ:2→F:90→Z[1]:Prog “THB”:Z:D:”M0”?M:M→Z[4]:D →Z[3]:Prog”6GD”:L→Z[6]:If D<0:Then 0.75-L→D:Goto H:Else L-0.75→D:Goto H:IfEndLbI H:Prog”H”:H-0.03-Z[4] →Z[5]:Z[6] →L:If Z[5]<0:Then –z[5] →G:Goto W:Else Z[5] →G:Goto T:LbI W:Prog “W0”:Z[10]+Z[11] →A: If G>A:Then Goto 1:Else If G>Z[10]:Then Goto 2:Else Goto 3:IfEnd:LbI 1:L+Z[12]+Z[13]+Z[14]+(G-A)×Z[9]+Z[11]×Z[8]+Z[10]×Z[7]:Goto Z:LbI 2:L+Z[12]+Z[13]+(G-Z[10])×Z[8]+Z[10]×Z[7]:Goto Z:LbI 3:L+Z[12]+G×Z[7]:Goto z:LbI T:L+0.5→N:If G>Z[17]:Then (N+Z[18]+(G-Z[17])×Z[16]+Z[17]×Z[15])→S:Goto Z:Else (N+G×Z[15])→S:Goto z:LbI Z:Z[3]→D:Fix 2:Abs(D)-S→T:” L0=”:L Locate 6,4,T◢＂ＫＭ＝＂：Locate 6,4,Ｚ◢＂Ｄ＝＂：Locate 6,4,Ｄ◢“ TW=”: Locate 6,4,Z[5]◢Goto 06．主程序6：路基标准半幅宽度计算程序(对于设计有加宽渐变的有用，如路基宽度无变化，则把此程序直接输入半幅宽度值至L)程序名：6GDProg “G0”Z-C→E:(B-A)×E/S+A→L:L:7．坐标计算次程序（ＴＨＢ）程序名：THB18→DimZ：＂ＫＭ＂?Z：Prog ＂Ｘ０＂1÷P→Ｃ： (P-R)÷(2HPR) →Ｓ： 180÷π→Ｅ：Ｆ=1=>Goto 1：Ｆ=2=>Goto 2←┘Lbl 1：?Ｄ： Abs(Ｚ－O) →W：Prog "Ａ"：X：Ｙ：Ｇoto 3LbI 2:Ｘ：Ｙ：Ｘ→I：Ｙ→J：Prog ＂Ｂ＂：Ｏ＋Ｗ→Z：Ｄ→Ｄ：Ｇoto 3LbI 3:IF Ｆ＝１Then Ｘ：Ｙ：Else Ｚ：Ｄ8. 正算子程序(Ａ)程序名：A0.1184634425→A： 0.2393143352→B：0.2844444444→N 0.046910077→K：0.2307653449→L：0.5→M： U+W(Acos(G+QEKW(C+KWＳ))+Bcos(G+QELW(C+LW Ｓ))+Ncos(G+QEMW(C+MWＳ))+Bcos(G+QE(1-L)W(C+(1-L)WS))+Acos(G+QE(1-K)W(C+(1-K)WS))) →X：V+W(Asin(G+QEKW(C+KWＳ))+Bsin(G+QELW(C+LWＳ))+Nsin(G+QEMW(C+MWS))+Bsin(G+QE(1-L)W(C+(1-L)WS))+Asin(G+QE(1-K)W( C+(1-K)WＳ))) →Y：G+QEW(C+WＳ)+Ｚ［１］→Ｚ［２］：X+Ｄcos（Ｚ［２］）→Ｘ： Y+Ｄsin（Ｚ［２］）→Ｙ9. 反算子程序(Ｂ)程序名：BG-90→Ｔ： Abs((Y-V)cos(T)-(X-U)sin(T)) →Ｗ： 0→Ｄ：Lbl 0：Prog "Ａ"：T+QEW(C+WＳ) →Ｌ： (J-Y)cos(L)-(I-X)sin(L)→Ｄ：IF Abs(Ｄ)<0.01:Then Goto1：Else W+Ｄ→W:Goto 0←┘Lbl 1:0→D：Prog "Ａ"：(J-Y)÷sin(Ｚ［２］) →D:10．高程计算子程序（H）程序名：HProg “S0”:R:T:C:G:I:C-T→F:Z-F→L:C+T→E:G-TI→Q:If T=O:Then Q+LI→H:Goto 0:Else If Z<F:Then Q+LI→H:Goto 0:Else If Z≤E:Then Q+LI+L2÷2÷R→H:Goto 0:LbI 0:H:If D=0:Then Goto I:Else Prog “I”:H+V→H:Goto I:LbI I:H:I:11.高程超高计算程序（I）程序名：IProg”I0”:W=1=> Goto 0:W=2=>Goto 1:LbI 0:If L=0:Then Abs(D)×M→V:Goto 2:Else Abs(D)×((N-M)×(Z-C)÷L+M)→V:Goto 2:IfEnd:LbI 1:If L=0:Then Abs(D)×M→V:Goto 2:Else Abs(D)×(((3((Z-C)÷L)2-2((Z-C)÷L)∧(3))×(N-M))+M)→V:Goto 2:IfEnd:LbI 2:Abs(D)→E:V÷E→I:I(E-K)→V:12．数据子程序(附后示例)①程序名：X0（坐标计算要素程序）If Z≥25900 And Z≤26615.555:Then 25900→O:11587.421→U:1847.983→V:101。
5800程序（改的输入了计算器）
1. 主程序(TYQXJS)Lbl 4："1.SZ => XY"："2.XY => SZ"：？N：？S：Prog“SUB0”↙1÷P→C: (P-R)÷(2HPR) →D:180÷∏→E:N=1 => Goto1：Goto2：↙Lbl 1:? Z：Abs(S-O) →W：Prog "SUB1"："XS="：X◢"YS="：Y◢F-90→F：“FS=”：F▲DMS◢Goto4↙Lbl 2：？X：？Y：X→I：Y→J：Prog“SUB2”：O+W→S：“S=”：S◢“Z=”：Z◢Goto4↙2. 正算子程序(SUB1)0.1739274226→A：0.3260725774→B：0.0694318442→K：0.3300094782→L：1-L→F：1-K→M：U+W(Acos(G+QEKW(C+KWD))+Bcos(G+QELW(C+LWD))+Bcos(G+ QEFW(C+FWD))+Acos(G+QEMW(C+MWD))) →X：V+W(Asin(G+QEKW(C+KWD))+Bsin(G+QELW(C+LWD))+Bsin(G+ QEFW(C+FWD))+Asin(G+QEMW(C+MWD))) →Y：G+QEW(C+WD)+90→F：X+Zcos（F）→X：Y+Zsin（F）→Y 2. 反算子程序(SUB2)G-90→T：Abs((Y-V)cosT-(X-U)sinT) →W：0→Z：Lbl 0：Prog "SUB1"：T+QEW(C+WD) →L：(J-Y)cos（L）-(I-X)sin（L）→Z：IF Abs（Z）<1E-6：Then0→Z:Prog "SUB1" ：(J-Y)÷sin（F）→Z：（这里的两个冒号是自己加的)Else W+Z→w：Goto0:IfEndSUB0 数据库子程序Goto1↙同时保存多个曲线时的指针Lbl 1：IF S<***（线元终点里程）:Then***→G（线元起点方位角）:***→O（线元起点里程）:***→U（线元起点X）:***→V（线元起点Y）:***→P（线元起点曲率半径）:***→R（线元终点曲率半径）: ***→H（线元起点至终点长度）：0或1、-1→Q：Return:IfEnd↙Lbl 1：IF S<***（线元终点里程）:Then***→G（线元起点方位角）:***→O（线元起点里程）:***→U（线元起点X）:***→V（线元起点Y）:***→P（线元起点曲率半径）:***→R（线元终点曲率半径）: ***→H（线元起点至终点长度）：0或1、-1→Q：Return:IfEnd……………..为了便于解读，每增加一个线元增加一行语句，每增加一条曲线增加一个Lbl，每增加一个工程增加一个文件。
卡西欧5800简易编程
1、主程序：程序名：ZCX输入：”K”?K←If K >540980.584 (直线起点里程) And K<= （小于等于符号）541358.301:（直缓点里程）Then 2890632.365→A: 526217.878→B:79°34′47.8″→F:540980.584→J:Prog”ZX”(A,B,F,J分别为起算点坐标，方位角，里程) Prog”PJ”(运行求偏距的程序)IfEndIf K>541358.301 （直缓点里程）And K<=541488.301：（缓圆点里程）Then 2890700.680→A:526589.366→B: 79°34′47.8″→F: 541358.301→J:1→G:3500→R:130→L:Prog”HHQX”（A,B,F,J,G,L分别为直缓点坐标，方位角，里程，偏向，圆曲线半径，缓和曲线长度）Prog”PJ”IfEndIf K>541488.301（缓圆点里程）And K<=541694.275:（圆缓点里程）Then 2890723.4→A: 526717.363→B:80°38′38.4″→F:541488.301→J:1→G:3500→R:Prog”YQX”（A,B,F,J,G,L分别为缓圆点坐标，方位角，里程，偏向，圆曲线半径，缓和曲线长度）Prog”PJ”IfEndIf K>541694.275 （圆缓点里程）And K<=541824.275：（缓直点里程）Then 2890762.83→A:527050.912→B: 85°04′47.7″→F: 541824.275→J:-1→G:3500→R:130→L:Prog”HHQX”（A,B,F,J,G,L分别为缓直点坐标，方位角，里程，偏向，圆曲线半径，缓和曲线长度）Prog”PJ”IfEndIf K>541824.275 （缓直点里程）And K<=542167.602：（下一段直缓点里程）Then 2890762.83→A:527050.912→B: 85°04′47.7″→F: 541824.275→J: Prog”ZX”(A,B,F,J分别为缓直点坐标，方位角，里程)注：以上程序为一段标准曲线（包括直线，缓和曲线，圆曲线，缓和曲线，直线）的主程序，程序名为ZX，HHQX，YQX2、直线程序程序名：ZXA+(K – J )xcos(F) →X:”X0=”:X◢B+(K – J )xsin(F) →Y:”Y0=”:Y◢F→W:”F=”:W◢3、圆曲线程序程序名：YQXA+2xRxSin（90x(K- J)÷∏÷R）XCos(F+90xGx(K- J) ÷∏÷R) →X:”X0=”:X◢B+2xRxSin（90x(K- J)÷∏÷R）XSin (F+90xGx(K- J) ÷∏÷R) →Y:”Y0=”:Y◢F+180xGx(K- J) ÷∏÷R→W: F=”:W◢4、缓和曲线程序程序名：HHQXA+((K- J)-(K- J)5÷(90xR²xL²))xcos(F+30xGx(K- J) ²÷∏÷R÷L) →X: “X0=”:X◢B+((K- J)-(K- J)5÷(90xR²xL²))xsin(F+30xGx(K- J) ²÷∏÷R÷L) →Y: “Y0=”:Y◢F+90xGx(K- J) ²÷∏÷R÷L→W:”F=”:W◢5、偏距程序50→DimZ“Z=”?Z:(Z为偏离线路中线的距离)X+Zxcos(W-90) →U:”XL=”:U◢(左边X坐标)Y+Zxsin(W-90) →V:”YL=”:V◢(左边Y坐标)X+Zxcos(W+90) →D:”XR=”:D◢(右边X坐标)Y+Zxsin(W+90) →E:”YR=”:E◢(右边Y坐标)Return。
卡西欧5800程序完整版
卡西欧5800程序完整版＂ZS=1,FS=2＂？N: 1÷P →C:(P-R)÷(2HPH)→D:180÷π→E: If N=1: Then Goto 1: Else Goto 2: IfEnd←┚LbI 1:1 →I:0 →Z：Abs(K-Ｏ) →W: Prog＂ZS＂←┚F-90→F←┚＂JJ＂?K:＂PJ＂?L: ＂ZX=＂：X+Lcos(F+K) →Z[3]◢＂ZY=＂: Y+Lsin(F+K) →Z[4]◢＂QXFWJ=＂:F DMS◢Abs(Z) →Z:Goto 8←┚LbI 2:＂X＂?I:＂Y＂?J: Prog＂FS＂:＂FSZH=＂:Ｏ+W→K◢＂FSJL=＂:Z◢Lbl 8正算子程序（ZS）（不运行）1÷P→C:(P-R)÷(2HPR) →D: 180÷π→E←┚0.1739274226→A：0.3260725774→B：0.0694318442→K：0.3300094782→L：1-L→F：1-K→M：U+W（Acos（G+QEKW（C+KWD））+Bcos（G+QELW（C+ LWD））+Bcos（G+QEFW（C+FWD））+Acos（G+QEMW（C+MWD）））→X：V+W（Asin（G+QEKW（C+KWD））+Bsin（G+QELW（C+LWD））+Bsin（G+Q EFW（C+FWD））+Asin（G+QEMW（C+MWD）））→Y：G+QEW（C+WD）+9 0→F：X+ZcosF→X：Y+ZsinF→Y3反算子程序（FS）（不运行）G-90→T：Abs（（Y-V））cos（T）-（X-U）sin（T）→W：0→Z←┚Lbl 0←┚prog＂ZS＂：T+QEW（C+WD）→L：（J-Y）cosL-（I-X）sinL→Z：If Abs(Z)＜0.001: Then Goto1：Else W+Z→W：IfEnd :Goto 0←┚Lbl 1：0→Z：Prog＂ZS＂：（J-Y）÷sinF→ZZX-WN（运行主程序，该程序适用于匝道，对全段完整非对称曲线计算太过麻烦）＂CZX＂?S(仪站X坐标):＂CZY＂?W（仪站Y坐标）LbI 0: ＂K＂?K: If K≤126.9（第1条单一曲线的终点下面同上）: Then Goto A：El se If K≤176.9 And K＞126.9: Then Goto B:Else If K≤259.562 And K＞176.9: T hen Goto C:Else If K≤309.562 And K＞259.562: Then Goto D：IfEnd:IfEnd:IfEn d:IfEnd←┚LbI A:92094.336（起点X坐标）→U:8287.962（起点Y坐标）→V:0起点桩号→O:1 45°11＇54＂（方位角）→G:126.9（曲线长度）→H:10^(45) （起点半径）→P:10^(4 5) （止点半径）→R:+1（路线左右偏，左负右正，直线输0）→Q:Prog ＂WN＂:Got o WLbI B:91990.134→U:8360.388→V:126.9→O:145°11＇54＂→G:50→H:10^(45) →P: 150 →R:+1→Q:Prog ＂WN＂:Goto WLbI C:91947.609→U:8386.570→V:176.9→O:154°44＇51＂→G:82.662→H:150 →P: 150 →R:+1→Q:Prog ＂WN＂:Goto WLbI D:91867.101→U:8399.992→V:259.562→O:186°19＇19＂→G:50→H:150 →P: 10^(45) →R:+1→Q:Prog ＂WN＂:Goto WLbI W:＂PJ1＂?T←┚（该项是只左右边桩再左右偏距，输0为不再左右偏，可以直接出方位角、距离，适用于桥梁桥台、盖梁、涵洞八字墙等放样，以路线前进方向，前-，后+）If T=0：Then Z[3]→Z: Z[4]→M: Goto P: Else Goto V: IfEnd←┚LbI V:＂JJ1＂? O←┚（左右边桩再偏夹角，用180°减去路线夹角）＂X1=＂: Z[3]+Tcos（F+N+ O）→U◢＂Y1=＂:Z[4]+Tsin（F+N+ O）→V◢U→Z: V→M: GotoP←┚LbI P:Pol(Z-S,M-W): If J≤0：Then J+360°→J: IfEnd←┚＂JL=＂:I◢（仪站至测点的距离）＂FWJ=＂:J DMS◢（仪站至测点的方位角）Goto0备注：1．规定以道路中线前进方向（即里程增大的方向）区分左右；当线元往左偏时Q=-1；当元线往右偏时，Q=1：当元线为直线时，Q=0。
5800程序编写完整版要点
立交匝道坐标放样正反算CASIO fx-5800P程序（带数据库功能） [图片]MN互通式立交线位数据图（由于图片大小的限制，此处不清晰，参见《CASIO fx-5800P计算与道路坐标放样计算》P162附录2）.三、立交匝道线元数据的整理经整理，匝道a、b、c线元数据如下（d匝道和MR匝道略）。
四、程序代码注：根据实际使用情况，在桩号反算时，若桩号比较大（匝道起始桩号一般为0），还是让用户输入一个估算的对应桩号为好，因此程序第29、30行分别改为（每行结尾处省略回车符）：29行："X"?F: "Y"?G: "K"?P30行：F→I: G→Jd匝道和MR匝道数据库子程序略。
五、程序变量清单六、计算流程示例1．坐标正算示例计算任务：计算MN互通式立交c匝道K0+315.3中桩坐标及切线方位角，以及该桩左侧4.5米、右侧6米的边桩坐标，假设在导线点（2807544.340，475613.014）上架设全站仪，计算这三个点位的极坐标放样数据。
使注：第22行D1计算结果应为：124.944。
2．坐标反算示例计算任务：根据上面计算的c匝道K0+315.3中桩坐标，以及该桩左侧4.5米、右侧6米的边桩坐标计算结果，反算对应的c匝道桩号及距中距离，并进行结果的验证。
使用立交匝道坐标放样计算程序RAMP－4的操作流程见下表道路中边桩坐标放样正反算程序ROAD-2（0908改进版）1．主程序清单：ROAD－22．子程序1清单：ROAD－QXYS功能：计算非对称型道路平曲线要素及主点桩号。
3．子程序2清单：ROAD－LXZB功能：计算道路中线坐标。
注意：第16行笔误，改为：Z<0＝>Z+360→Z:Z>360＝>Z-360→Z。
4．子程序3清单：ROAD－XY功能：计算缓和曲线上一点的局部坐标。
5．子程序4清单：ROAD－XS功能：显示计算结果。
卡西欧5800计算程序自己编写实用计算程序
1．单圆曲线(YQX1)（张队提供）“KO”?O:“X0”?A:“Y0”?B：“JDX”?X：“JDY”？Y：“FWJ”？J：“FO”？F：?N：?R：6→DimZ←┘（K0为输入起算点桩号，X0为输入起算点X坐标，Y0为输入起算点Y坐标，JDX输入曲线所在交点X坐标，无输入0，JDY为输入曲线所在的Y坐标，无输入0，FWJ为输入起算点的方位角，F0为输入交点处的转角，带正负号，N为转角方向，线路左转输入+1，线路右转输入-1，R为输入曲线半径）Abs(F)÷2→G◢“T=”：Rtan(G)→T◢（计算切线长）“L=”：GRπ÷90→L◢（计算圆曲线长）“E=”：R÷cos(G)-R→E◢（计算外距，即交点到QZ点的距离）LbI 1←┘?K：180N（K-O）÷(πR)→V：2Rsin(0.5NV)→M←┘（K为输入待求点的桩号）V为带求点与起算点间的弦长说对应的圆心角“XZ=”:A+Mcos(J+0.5V)→Z[1]◢（计算出的中桩X坐标）“YZ=”:B+Msin(J+0.5V)→Z[2]◢（计算出的中桩Y坐标）tan-1（（Z[2]-Y）÷（Z[1]-X））→U←┘If U＜0:Then U+360→U:Else U→U:If End←┘“FW=”?U :U DMS◢（计算出的中桩与交点的方位角）?W:“XL=”：Z[1]-NWcos（J+V+90）→Z[3]◢（W为输入路半宽，计算出的左边桩X坐标）“YL=”：Z[2]-NWsin（J+V+90）→Z[4]◢（计算出的左边桩Y坐标）“XR=” Z[1]+NWcos（J+V+90）→Z[5]◢（计算出的右边桩X坐标）“YR=”：Z[2]+NWsin（J+V+90）→Z[6]◢（计算出的右边桩Y坐标）“OK”？S：If S=1：Then Goto 1：Else“STOP”:Stop（S输入1返回继续计算下一点，输入其他值退出程序）2.YQX-ZB(圆曲线中边桩放样)“R”?R:（圆曲线半径）“P”?P：(线路转角)“F”?F:（起始方位角）“G”?G:（线路转向信息，左转为-1，右转为+1）“ZY-X”?M:?N:(ZY点坐标)“L=”πRP÷180→A◢(曲线弧长)F+90G→F(ZY点的径向方位角)“O-X”:M+Rcos (F) →A◢（圆心X坐标）“O-Y”:N+Rsin (F)→B◢（圆心Y坐标）“ZY-ZH”:?Z(ZY点桩号)Lb1 0:“JM-ZH”:?K: (加密点桩号)K-Z→V: (加密点曲线弧长)180V÷(πR) →U: (加密点曲线弧长所对应的圆心角)F+180+GU→U: (圆心至加密点的方位角)“XP=”:A+Rcos(U) →S◢(加密点中桩X坐标)“YP=”:B+Rsin(U) →T◢(加密点中桩Y坐标)“BZ”:?W: (边桩宽度)“XL=”:S+GWcos(U)◢(左边桩X坐标)“YL=”:T+GWsin(U)◢(左边桩Y坐标)“XR=”:S-GWcos(U)◢(右边桩X坐标)“YR=”:T-GWsin(U)◢(右边桩Y坐标)Goto 0：3．(ZX-ZB) 直线段中边桩放样“QD-X,Y”:?A:?B: (起点坐标（A,B）)“QD-ZH”:?Z: (起算点桩号)“ZD-X,Y”:?C:?D: (终点坐标（C,D）)Pol(C-A,D-B):J<0=>J+360→J: (线路方位角) LbI 0：“ZD-ZH”:?K: (加密点桩号)K-Z→V: (加密点到起算点极径)“XP=”:A+Rec(K,F) →M◢(加密点中桩X坐标)“YP=”:B+J →N◢(加密点中桩Y坐标) “BZ”:?W: (边桩宽度)F-90→U(中桩到边桩向量的方位角)“XL=”:M+Rec(W,U)◢(左边桩X坐标)“YL=”:N+J◢(左边桩Y坐标)“XR=”:M-I◢(右边桩X坐标)“YR=”:N-J◢(右边桩Y坐标)Goto 0：。
5800简单全线坐标计算程序
5800全线任意坐标计算程序1. 正算主程序(ZHCX) （不运行）8→DimZ1÷P→Z[4 ]：(P-R)÷(2HPR)→D: 180÷π→E“Z=”?Z:”YJJ=”?A:Abs(S-O)→W0.26→Z[1 ]: 0.74→B: 0.02→K: 0.82→Z[3 ]: 1-Z[3 ]→F:1-K→Z[2 ]U+W(Z[1 ]cos(G+QEKW(Z[4 ]+KWD))+Bcos(G+Z[3 ]QEW(Z[4 ]+ Z[3 ]WD))+Bcos(G+QEFW (Z[4 ]+FWD))+ Z[1 ]cos(G+ Z[2 ]QEW(Z[4 ]+ Z[2 ]WD)))→X:V+W(Z[1 ] sin (G+QEKW(Z[4 ]+KWD))+B sin(G+ Z[3 ]QEW(Z[4 ]+ Z[3 ]WD))+B sin(G+QEFW (Z[4 ]+FWD))+ Z[1 ] sin(G+ Z[2 ]QEW(Z[4 ]+ Z[2 ]WD)))→Y：G+QEW(Z[4 ]+WD)→F：X+Zcos(F+A)→X：Y+Zsin(F+A)→Y:If F≧360:Then F-360→F:IfEnd”X=”:X→X◢”Y=”:Y→Y◢If F﹤0:Then F+360→F:IfEnd”QX FWJ=”:F▼DMS◢“C=1=>XX: C=2=>XZ”: ”C=”?C: ”QHJU=”?L: If C=1：Then Goto 1:Else Goto 2: IfEnd 可以计算斜交斜做或斜交正做的桥涵坐标Lbi 1X+L cos(F)→X：Y+Lsin(F)→Y: Goto 3Lbi 2X+L cos(F+A-90)→X：Y+Lsin(F+A-90)→Y: Goto 3Lbi 3“QH-X=”: X →X◢“QH-Y=”: Y →Y◢Prog “FY”2 . 参数子程序（直接运行）M(主线) 一条线路一个名称“S=”?SIf S≦线元终点：Then 线元起点X值→U: 线元起点Y值→V:线元起点切线方位角→G:线元起点桩号→O:线元长度→H：线元起点半径→P：线元终点半径→R：（左偏-1，或右偏 1）→Q:Goto 1:IfEnd……If S≦线元终点：Then 线元起点X值→U: 线元起点Y值→V:线元起点切线方位角→G:线元起点桩号→O:线元长度→H：线元起点半径→P：线元终点半径→R：（左偏-1，或右偏 1）→Q:Goto 1:IfEndLbi 1Prog “ZBJS”3. 放样程序（FY）（不运行）“X0=”?M:“Y0=”？NPol((X-M, Y-N)If J﹤0:Then J+360→J:IfEnd“FWJ=”:J▲DMS◢“JU-LI=”:I◢说明：一、程序功能及原理1.功能说明：本程序由一个主程序和两个子程——正算主程序(ZH)、参数子程序（M）、放样程序（FY），可以根据曲线段——直线、圆曲线、缓和曲线（完整或非完整型）的线元要素（起点坐标、起点里程、起点切线方位角、线元长度、起点曲率半径、止点曲率半径、左偏或右偏）及里程边距或坐标，对该线元段范围内任意里程中边桩坐标进行正算。
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
立交匝道坐标放样正反算CASIO fx-5800P程序（带数据库功能） [图片]
MN互通式立交线位数据图（由于图片大小的限制，此处不清晰，参见《CASIO fx-5800P计算与道路坐标放样计算》P162附录2）
.
三、立交匝道线元数据的整理
经整理，匝道a、b、c线元数据如下（d匝道和MR匝道略）。
四、程序代码
注：根据实际使用情况，在桩号反算时，若桩号比较大（匝道起始桩号一般为0），还是让用户输入一个估算的对应桩号为好，因此程序第29、30行分别改为（每行结尾处省略回车符）：
29行："X"?F: "Y"?G: "K"?P
30行：F→I: G→J
d匝道和MR匝道数据库子程序略。
五、程序变量清单
六、计算流程示例
1．坐标正算示例
计算任务：计算MN互通式立交c匝道K0+315.3中桩坐标及切线方位角，以及该桩左侧4.5米、右侧6米的边桩坐标，假设在导线点（2807544.340，475613.014）上架设全站仪，计算这三个点位的极坐标放样数据。
使
注：第22行D1计算结果应为：124.944。
2．坐标反算示例
计算任务：根据上面计算的c匝道K0+315.3中桩坐标，以及该桩左侧4.5米、右侧6米的边桩坐标计算结果，反算对应的c匝道桩号及距中距离，并进行结果的验证。
使用立交匝道坐标放样计算程序RAMP－4的操作流程见下表
道路中边桩坐标放样正反算程序ROAD-2（0908改进版）1．主程序清单：ROAD－2
2．子程序1清单：ROAD－QXYS
功能：计算非对称型道路平曲线要素及主点桩号。
3．子程序2清单：ROAD－LXZB
功能：计算道路中线坐标。
注意：第16行笔误，改为：Z<0＝>Z+360→Z:Z>360＝>Z-360→Z。
4．子程序3清单：ROAD－XY
功能：计算缓和曲线上一点的局部坐标。
5．子程序4清单：ROAD－XS
功能：显示计算结果。
本子程序名称应为“ROAD-XS”，特此更正。
三、数据库子程序的编写
1．道路示例项目基本资料
基本资料同《CASIO fx-5800P计算与道路坐标放样计算》第6章HY高速公路第2合同段（合同段起止桩号：K4+800~K9+600）。
这里摘取直线、曲线及转角表资料如下（若图片不清晰，请参见参见教材P161附录1）：
.
2．路线数据库子程序的编写与格式说明
注：路线数据库子程序ROAD－DATA1是根据计算示例项目的直曲表编写，大家使用时应按各自项目的直曲表改写或新建，本数据库子程序采用了简化坐标，根据项目的坐标范围，小数点前只取了四位数。
数据库采用给矩阵变量Mat A赋值的形式，使数据组织更加简洁，为减少数据库子程序的输入量（因为要经常根据不同的项目编写数据库子程序），矩阵变量因子赋值给字母变量的程序代码写在主程序中（见ROAD-2程序第4行）。
矩阵变量简介：5800P计算器开始有矩阵计算功能，内部有七个矩阵存储器（Mat A是其中之一），每个矩阵的行列数最大是10×10，有关矩阵具体内容见《CASIO fx-5800P计算器与道路坐标放样计算》34-38页。
数据库格式说明：
本交点计算起终点桩号的说明：
一般情况下，本交点的计算起点是指前一交点的HZ点或YZ点，本交点的计算终点是指后一交点的ZH点或ZY点。
之所以要强调是一般情况下，是因为有些特殊情况下，要灵活处理，比如：整个路线就是一段直线、断链的处理、卵
形曲线的处理等等，这些特殊情况后面我会以专题日志的形式来详细解说，这也是本次程序改进后的亮点之一。
四、程序变量清单
五、计算流程示例
1．中桩坐标计算示例
计算任务：计算HY高速公路K6+100～K6+700段的中桩坐标及切线方位角（桩距20m），并在导线点（2807118.026，474113.687）上架设全站仪，计算各中桩的极坐标放样数据。
在计算之前，先要看一下计算路段的桩号是位于哪个交点的计算范围，由直曲表得知在JD8的计算范围内（5425.031~6721.764），则可选择6400作为交点定位桩号定位JD8。
使用道路中边桩坐标放样正反算程序RAOD－2的操作流程见下表。
下表给出了由道路路线CAD软件计算的相关结果，供大家进行计算验证。
.
2．边桩坐标计算示例
计算任务：计算HY高速公路主线K6+100～K6+700段的边桩（左右各12.25米）坐标（桩距20m）。
使用道路中边桩坐标放样正反算程序RAOD－2的操作流程见下表。
下表给出了由道路路线CAD软件计算的相关结果，供大家进行计算验证。
.
3．坐标反算计算示例
计算任务：根据K6+440的中桩、左右边桩的坐标，反算对应桩号及偏距，并进行验证。
使用道路中边桩坐标放样正反算程序RAOD－2的操作流程见下表。
.
后记：本计算示例，展示的是道路路线一般情况下的典型应用，未展示手工输入交点数据的操作流程，该流程很简单，操作与ROAD-1程序类似，在此不再赘述。
道路路线坐标计算可能会遇到的以下特殊情况，今后我会在本空间中一一阐述，敬请关注：。