卡西欧5800计算器编程入门程序集

合集下载

5800卡西欧计算器程序大全

5800卡西欧计算器程序大全

5800卡西欧计算器程序大全1.基本数学运算程序-加法:输入两个数字,然后计算它们的和。

-减法:输入两个数字,然后计算它们的差。

-乘法:输入两个数字,然后计算它们的积。

-除法:输入两个数字,然后计算它们的商。

-平方根:输入一个数字,然后计算它的平方根。

-幂运算:输入两个数字,然后计算第一个数字的第二个数字次方。

2.科学计算程序-对数运算:输入一个数字和一个底数,然后计算它们的对数。

-三角函数:输入一个角度,然后计算它的正弦、余弦和正切值。

-阶乘计算:输入一个数字,然后计算它的阶乘。

-指数函数:输入一个数字,然后计算e的这个数字次方。

-随机数生成:生成一个随机数。

3.金融计算程序-终值计算:输入本金、利率和时间,然后计算将来其中一时刻的价值。

-现值计算:输入将来其中一时刻的价值、利率和时间,然后计算现在的价值。

-年金支付计算:输入每期支付的金额、利率和时间,然后计算总支付金额。

-贷款利率计算:输入贷款金额、每期支付金额和时间,然后计算贷款利率。

-折现计算:输入每期支付金额、利率和时间,然后计算折现值。

4.统计计算程序-平均值计算:输入一组数字,然后计算它们的平均值。

-中值计算:输入一组数字,然后计算它们的中值。

-方差计算:输入一组数字,然后计算它们的方差。

-标准差计算:输入一组数字,然后计算它们的标准差。

-相关系数计算:输入两组数字,然后计算它们的相关系数。

以上只是一部分5800卡西欧计算器程序的示例,卡西欧计算器还提供了更多的功能,例如单位转换、时间计算、日期计算等等,可以根据实际需求选择使用。

希望以上内容对您有所帮助。

卡西欧5800正反算程序ZFS合集程序(23个子程序)

卡西欧5800正反算程序ZFS合集程序(23个子程序)

5800通用程序计算主程序ZFS(命令程序)Lbl 0:Z[10] →S“1XY=>ZLH,2ZL=>XYZ,3=>GAOCHENG,4=>GOUZAOWU”? S:S→Z[10]:If S=1 :Then Prog“ZBFS”:Goto 0 :IfEnd : If S=2 :Then Prog “T-1”:Prog“SATA”: Prog“POLXY”:Goto 0: IfEnd : If S=3 :Then Prog “100”: Goto 0 :IfEnd :If S=4 :Then Prog“T-1”:Prog“SATA”: Prog“NREC”: Goto 0: IfEnd : If S<0 :Then Stop:IfEnd ←┘子程序1:POLXY(曲线坐标主程序)Z[3]+K→Z[8] : Z[8]+L→Z[6] : Z[6]+ πR (A-180C÷(πR )) ÷180→Z[7]:Z[4]+H→Z[9]←┘If S≥Z[3] And S≤Z[8]:Then Prog“ZZ”: IfEnd: If S>Z[8] And S≤Z[6]:Then Prog“HX1”: IfEnd: If S>Z[6] And S≤Z[7]:Then Prog“YX”: IfEnd: If S>Z[7] And S≤Z[4]:Then Prog“HX2”: IfEnd: If S>Z[4] And S≤Z[9]:Then Prog“ZZH”: IfEnd :Return←┘子程序2:NREC(结构物计算子程序)X→Z[8] : Y→Z[9] : J→B:“NREC-R”? Z←┘Lbl 1:“ZHONG XIAN:SUN+,FAN-”?H:If H=1000:Stop: IfEnd: “HENGXIANG:R+,L-”?C:0→A: 0→L: Z[8] +H*Cos(B)+C*Cos(B+Z) 0→X:Z[9] +H*Sin(B)+C* Sin (B+Z) 0→Y: Prog“XS”: Goto 1←┘子程序3:T-1(曲线坐标要素)Z[5] →S :Z[2] →M: “ZHUANGHAO=”? S:S→Z[5] :“XIAN LU=”? M: M →Z[2]子程序4:SATA(曲线坐标要素)If M=1:The Goto 1: Ifend : If M=2:The Goto 2:IfendLbl 1:If S≤133962.256(第一缓和曲线最后一个里程桩号HZ或YZ):Then 132205.295(前一段缓和曲线HZ或YZ点桩号)→Z[3]: 133962.256→Z[4]: 756.81→T(切线长): 2450→R(半径): 166°47′29.4″→B(方位角):1→W(转角方向,左转-1右+1):28°01′37.7″→A(转角):290→C(缓和曲线长):7723.072→G(第一缓和曲线交点X坐标): 6759.57→V(第一缓和曲线交点Y坐标):268.504→K(第一段缓和曲线的前切点与前一段曲线终点(HZ或YZ)间直线段长度):0→H(第一段缓和曲线的后切点与下一段曲线起点(ZH或ZY)间直线段长度):Goto 3: IfEnd :If S≤135701.233:Then 133962.256→Z[3]: 135701.233→Z[4]:538.663→T: 1250→R: 194°49′07.2″→B:-1→W:39°52′03″→A:170→C:5794.739→G: 6249.411→V: 699.202→K :0→H: Goto 3: IfEnd : If S≤136719.362: Then 135701.233→Z[3]: 136719.362→Z[4]:395.034→T: 1200→R: 154°57′04.2″→B:1→W:28°57′02.1″→A:170→C:4729.811→G: 6747.1→V: 241.789→K :0→H: Goto 3: IfEnd : If S≤138500.304: Then 136719.362→Z[3]: 138500.304→Z[4]:537.629→T: 1200→R: 183°54′06.3″→B:-1→W:41°18′05.8″→A:170→C:3055.115→G: 6632.879→V: 745.923→K :358.217→H: Goto 3: IfEnd : Lbl 2:If S≤133966.874:Then 132208.893→Z[3]: 133966.874→Z[4]: 665.863→T: 2000→R: 166°47′29.4″→B:1→W:30°30′55.2″→A:240→C:7597.066→G: 6789.145→V:452.794→K:0→H:Goto 3: IfEnd : If S≤135806.291 :Then 133966.874→Z[3]: 135806.291→Z[4]:641.553→T: 1250→R: 197°18′24.6″→B:-1→W:47°58′10.5″→A:170→C:5754.159→G: 6214.901→V: 622.884→K :0→H: Goto 3: IfEnd : If S≤136742.011: Then 135806.291→Z[3]: 136742.011→Z[4]:478.898→T: 1250→R: 149°20′14.4″→B: 1→W:33°20′54.4″→A:208.169→C:4790.364→G: 6786.312→V: 0→K :0→H: Goto 3: IfEnd : If S≤138614.023: Then 136742.011→Z[3]: 138614.023→Z[4]:564.626→T: 1300→R: 182°41′08.7″→B: -1→W:40°05′08.2″→A:180→C:2966.347→G: 6700.747→V: 782.498→K :219.48→H: Goto 3: IfEndLbl 3:子程序5:ZZ(曲线坐标子程序)Z[8] - Z[5]+T→Z[11]:G + Z[11] cos(B +180)→X:V + Z[11] sin (B +180)→Y:B →J: Prog“XS”: Return子程序6:YX(曲线坐标子程序)S- Z[6]→S:180S÷(πR) +180C÷(2πR)→P:C÷2-L^3÷(240 R2)→ J: G+T cos(B +180) →X: V+T sin (B +180) →Y: X+(R sinA+J)cosB+W( R(1-cosA)+ C2÷(24R)) cos(B+90)→ X:Y+(R sin A+J) sin B+W( R(1-cosA)+ C2÷(24R)) sin(B+90)→ Y :B+WA→ J: Prog“XS”:Return子程序7:HX1(曲线坐标子程序)S- Z[8]→S:G+T cos (B+180) →X :V+T sin (B +180) →Y:X+(S-S^5÷(40 R2C2))cosB+W( S^3÷ (6RC)-S^7÷(336R^3C^3)) cos(B+90)→ X :Y+(S-S^5÷(40 R2 C2))sinB+W( S^3÷ (6RC)-S^7÷(336R^3C^3)) sin(B+90)→ Y: B+180W S2÷ (2πR C)→ J: Prog“XS”: Return子程序8:HX2(曲线坐标子程序)Z[4] -S→S:G+T cos (B +WA) →X :V+T sin (B +WA) →Y: X+(S-S^5÷(40 R2C2))cos(B+WA+180)-W(S^3÷ (6RC)-S^7÷(336R^3C^3)) cos(B+WA+270)→X :Y+(S-S^5÷(40 R2 C2))sin(B+WA+180)-W(S^3÷ (6RC)-S^7÷(336R^3C^3)) sin(B+WA+270)→ Y: B+WA-180W S2÷ (2πR C)→ J: Prog“XS”: Return子程序9:ZZH(曲线坐标子程序)Z[5]-Z[4] +T→S:G+Scos(B+WA) →X:V+Ssin(B+WA) →Y: B+WA→J: Prog“XS”: Return子程序10 :ZBFS(坐标反算)Prog“T-1” : Z[1] →A: Z[13] →B: Z[15] →E: Z[16] →O: “X0”? E:“Y0”? O:“H0” ?A: “HOU DU=” ? B: A→Z[1]:B→Z[13] :E→Z[15]: O→Z[16]←┘Lbl 1: Prog“SATA” : Z[3] +K→Z:S-Z→L:Prog“HQ”:(X-E)sin(Q+90)-(Y-O)cos(Q+90)→H:While Abs H≥0.0001: S-H→S: Goto 1:WhileEnd:“S=”:S◢“D=”: (X-E) sinQ-(Y-O) cos(Q)→D◢Lbl 2:D→Z[6]:S→Z[5]:Prog”GC”: Z[3]→B←┘子程序11:Prog “HQ”ARπ÷180+C →K:C2÷(24R)-C^4÷(2688R^3)→ P:(R+P)tan(A÷2)+C÷2-C^3÷(240R2 )→T: -1→N:If L >K-C: Then K-L →L:1→N : IfEnd←┘If L≤0: Then L→X: 0→Y: 0→Q: Goto 1: IfEnd←┘If L≤C :Then L-L^5÷(40R2C2)→X: L^3÷(6RC)-L^7÷(336R^3C^3)→ Y: 90L2÷(πRC )→Q: Goto 1: IfEnd←┘If L≤K-C :Then 180(L-C)÷(Rπ)+90C÷(Rπ)→Q: RsinQ+C÷2-C^3÷(240 R2)→X:R(1-cosQ)+P→Y:IfEnd←┘Lbl 1: If N=1 :Then A-Q→Q: X→I: =Y →J: T+(T-I)cosA-JsinA →X: (T-I)sinA+J cosA→Y:IfEnd←┘X →I: W Y→J: G+Tcos(180+B)+IcosB-JsinB→X:V+Tsin(180+B)+IsinB+JcosB →Y: B+WQ→Q:Return隧道超欠挖子程序12:Prog “SD”Z[2] →M: If M=1 :Then Z[6]-5.9→D: Goto 1:Else Z[6]+5.9→D:Goto 2: IfEnd ←┘Lbl 1: If S≤136300: Then Goto 3 : IfEnd:If S≤137525: Then Goto 4 : IfEnd:If S≤137635: Then D+(Z[4] -137525)*(0.066÷110) →D: H+(Z[4] -137525)*(0.195÷110) →H: Goto 4: IfEnd:If S >137635: Then D+0.066 →D: H+0.195 →H: Goto 4: IfEndLbl 2:If S≤133730: Then D-0.049→D:H+0.151→D:Goto 3 : IfEnd:If S≤133830: Then D+(Z[5] -133730)*(0.017÷100)-0.049 →D: H-(Z[5] -133730)*(0.053÷100) +0.151→H: Goto 3: IfEnd:If S≤133897.5: Then D+(Z[5] -133830)*(0.032÷67.5)-0.032 →D: H-(Z[5] -133830)*(0.098÷67.5) +0.098→H: Goto 3: IfEnd:If S ≤136000: Then Goto 3: IfEnd: If S ≤136535: Then D-0.064→D:H+0.196→H:Goto 4 : IfEnd : If S ≤136605: Then D+(Z[5] -136535)*(0.032÷70)-0.064→D:H-(Z[5]-136535)*(0.098÷70)+0.196→H:Goto 4 :IfEnd: If S ≤136672.5: Then D+(Z[5]-136605)*(0.032÷67.5)-0.032→D:H-(Z[5]-136605)*(0.098÷67.5)+0.098→H:Goto 4 : IfEnd: If S >136672.5: Then Goto 4 : IfEndLbl 3: POl(Z[1]-H-1.55, D):”CQW=“:I-(5.65+ Z[13])◢ReturnLbl 4: POl(Z[1]-H-1.5, D):”CQW=“:I-(5.7+ Z[13])◢Return←┘子程序13:Prog “GC”Z[14] →B : Z[5] →K : K→S: “CQW≠0 AND GAOCHENG=0”? B:B→Z[14]:If B ≠0 : Then Goto 1 :IfEnd : If B=0 : Then Goto 2: IfEnd←┘Lbl1: If M=1:Then Prog“S1”:Goto 5:IfEnd:If M=2 :Then Prog“S2”:Goto 5:IfEnd←┘Lbl2: Z[17] →G : “FEN L≠0 AND ZHENG T=0”?G: G→Z[17]: If G≠0: Then Goto 4:Else Goto 3:IfEnd←┘Lbl3:If M=1 AND D >=0: :Then Prog“S1”:Prog“SQX”:Prog“C1”:Goto 6:IfEnd: If M=1 AND D <=0: :Then Prog“S1”: Prog“SQX”:Prog“C2”:Goto 6:IfEnd←┘Lbl4: If M=1: Then Prog“S1”:Prog“SQX”:Prog“C1”: Goto 7:IfEnd: If M=2: Then Prog“S2”: Prog“SQX”:Prog“C2”: Goto 7:IfEnd←┘Lbl5: Prog“SQX”:Prog“SD” : Return←┘Lbl6: Prog“GC1”: H +E*(Abs(D)-1)→H : Prog“GC3”:Return ←┘Lbl7: Prog“GC1”: Prog““GC2””: Return ←┘子程序14:Prog “SQX”Abs(R*Tan(Tan-1(I-J) ÷2))→T:R(I-J) ÷ Abs(I-J) →R:Z-T→N:Z+T→W: Abs(Z-K) →U:If K≤N:Then A-JU→H: Goto 2:IfEnd: If K≤Z:Then A-JU+(K-N)2÷(2R) →H: Goto 2:IfEnd: If K≤W:Then A+IU+(W-K)2÷(2R) →H: Goto 2:IfEnd: If K>W:Then A+IU →H: H→Z[12]:Goto 2:IfEnd: Lbl 2:“H=”:H◢右线高程数据库子程15:Prog “S1”Lbl 1: If Z≤133450 (终点桩号):Then 20000→R(半径): 0.028→I(前坡度):0.013→J(后坡度): 133300→Z(交点桩号): 414.25→A(交点高程):Goto 2: IfEnd:If Z≤134519:Then 16000→R: -0.005→I: 0.028→J:134255→Z: 440.99→A:Goto 2:IfEnd:If Z≤135107.15:Then 10000→R: 0.036431→I:-0.005→J: 134900→Z: 437.765→A:Goto 2:IfEnd:If Z≤135635.9:Then 23846.153→R: 0.02→I:0.036431→J: 135440→Z: 457.437→A:Goto 2:IfEnd:If Z≤136465:Then 280000→R: 0.0185→I:0.02→J: 136255→Z: 473.737→A:Goto 2:IfEnd:If Z≤137415:Then 180000→R: 0.015→I:0.0185→J: 137100→Z: 489.37→A:Goto 2:IfEnd:If Z≤138250:Then 40000→R: 0.03→I:0.015→J: 137950→Z: 502.12→A:Goto 2:IfEnd Lbl 2左线高程数据库子程序16:Prog “S2”Lbl 1: If Z≤133495 (终点桩号):Then 60000→R(半径): 0.0265→I(前坡度):0.02→J(后坡度): 133300→Z(交点桩号):416.358→A(交点高程):Goto 2: IfEnd:If Z≤134527:Then 17000→R: -0.0055→I: 0.0265→J: 134255→Z: 441.665→A:Goto 2:IfEnd:If Z≤135109.65:Then10000→R: 0.036431→I:-0.0055→J: 134900→Z: 438.118→A:Goto2:IfEnd:If Z≤135633.8:Then 23589.743→R: 0.02→I:0.036431→J:135440→Z: 457.79→A:Goto 2:IfEnd:If Z≤136455:Then 100000→R:0.024→I:0.02→J: 136255→Z: 474.09→A:Goto 2:IfEnd:If Z≤137403.75:Then 45000→R: 0.0105→I:0.024→J: 137100→Z: 494.37→A:Goto 2:IfEnd:If Z≤138159.5:Then 30000→R: 0.0278→I:0.0105→J: 137900→Z: 502.77→A:Goto 2:IfEnd:Lbl 2右线平曲线超高数据库子程17:Prog “C1”If S≤134665:Then -0.02→E:Goto 1: IfEnd:If S≤133830:Then-0.02+(0.06÷165)*(S-133665)→E:Goto 1:IfEnd:f S≤135485:Then0.04→E :Goto 1:IfEnd:If S≤135650:Then 0.04-(0.06÷165)*(S-135485)→E:Goto 1:IfEnd: I f S≤135980:Then -0.02→E:Goto 1:IfEnd:If S≤136100:Then -0.02-(0.02÷120)*(S-135980)→E:Goto 1:IfEnd:I f S≤136555:Then -0.04→E:Goto 1:IfEnd:If S≤136675:Then -0.04+(0.02÷120)*(S-136555)→E:Goto 1:IfEnd:I f S≤137470:Then -0.02→E:Goto 1:IfEnd:If S≤137635:Then-0.02+(0.06÷165)*(S-137470)→E:Else 0.04→E:Goto 1:IfEnd←┘Lbl 1: Return←┘左线平曲线超高数据库子程18:Prog “C2”Lbl 1: If S≤133730:Then 0.03→E:Goto 1: IfEnd:If S≤133830:Then0.03-(0.01÷100)*(S-133730)→E:Goto 1:IfEnd:f S≤133965:Then0.02-(0.04÷135)*(S-133830)→E:Goto 1:IfEnd::Goto 1:IfEnd: I fS≤134600:Then -0.02→E:Goto 1:IfEnd:If S≤134755:Then-0.02-(0.02÷155)*(S-134600)→E:Goto 1:IfEnd:I f S≤135640:Then-0.04→E:Goto 1:IfEnd:If S≤135735:Then -0.04+(0.02÷95)*(S-135640)→E:Goto 1:IfEnd:If S≤135875:Then -0.02+(0.04÷140)*(S-135735)→E:Goto 1:IfEnd:If S≤136010:Then 0.02+(0.02÷135)*(S-135875)→E:Goto 1:IfEnd:I f S≤136535:Then 0.04→E:Goto 1:IfEnd:If S≤136605:Then 0.04-(0.02÷70)*(S-136535)→E:Goto 1:IfEnd:If S≤136740:Then 0.02-(0.04÷135)*(S-136605)→E:Goto 1:IfEnd:I f S≤137530:Then - 0.02→E:Goto 1:IfEnd:If S≤137700:Then -0.02-(0.02÷170)*(S-137530)→E:Else -0.04→E:Goto1:IfEnd←┘Lbl 1: Return←┘边桩高程子程19:Prog “GC1”Z[12]→H:Z[1]→C:Z[6]→D::H+ Z[13]→H:边桩高程子程20:Prog “GC2”If M=1: Then H +E*(D-1)→H:Prog “GC3”:IfEnd:If M=2: Then H-E*(D+1)→H:Prog “GC3”:IfEnd←┘边桩高程显示子程21:Prog “GC3”“HB=”:Locate 7,4,H: “GC=”:Locate 7,4,C-H◢高程主程序程22:Prog “100”Prog“T-1”:“PIAN JU=”? D:“HONG DU=”?N:N→Z[13]:”H0=”?C:C→Z[1]: Prog“GC”平面坐标显示子序程23:Prog “XS”“X=”:Locate 6,4,X: “Y=”:Locate 6,4,Y◢程序说明:进入主程序界面:?S输入计算判断数值:1~坐标反算~”ZHUAN GHAO”?(输入所要反算大概桩号,只要是上一段曲线的HZ点到下一段曲线的ZH点范围内都可以,不过输入的桩号越是接近计算速度会越快)←┘”XIAN LU=”?(主线输入1、左线输入2)←┘X0?输入实测X值←┘Y0?输入实测Y值←┘“H0”?输入实测高程←┘“HOU DU=”?计算超欠挖的时候输入衬砌厚度值,计算高程时输入路面厚度值(路面以下为负值,路面以上为正值)←┘计算显示结果“S=”(桩号),“D=”(偏距),“CQW≠0 AND GAOCHENG=0”?当进行隧道超欠挖计算时输入不等于零的值,当只是计算边桩或中桩高程是输入零←┘“FNE L≠0 AND ZHENG T=0”?判断是整体是路基还是分离式路基,整体式路基等于零,分离式路基不等于零。

CASIO5800计算器测量计算程序

CASIO5800计算器测量计算程序

CASIO5800计算器测量计算程序
程序功能:温度单位转换和体积计算
--------------------------------------------------------------
1.温度单位转换:
a.华氏度转摄氏度:C=(F-32)*5/9
b.摄氏度转华氏度:F=C*9/5+32
2.体积计算:
a.圆柱体体积计算:V=π*r^2*h
b.球体体积计算:V=(4/3)*π*r^3
--------------------------------------------------------------
程序开始:
1.清零操作:
a.按下【AC】键,确保计算器归零。

2.温度单位转换:
a.输入待转换的温度值,例如华氏度的数值。

b.使用【-】键计算华氏度转摄氏度,或者使用【+】键计算摄氏度转华氏度。

c.输入转换得到的温度值。

3.体积计算:
a.选择需要计算的体形,例如圆柱体或球体。

b.输入相应的参数,例如半径和高度。

c.使用【×】键计算圆柱体体积,或者使用【÷】键计算球体体积。

d.输入计算得到的体积值。

--------------------------------------------------------------
程序结束。

这只是一个简单的示例程序,CASIO5800计算器具有更多的功能和测量计算程序。

用户可以根据需要自行设计和编写更复杂的程序。

卡西欧5800计算器如何编程

卡西欧5800计算器如何编程

卡西欧5800计算器如何编程步骤一:进入编程模式首先,在计算器的主界面上找到“MODE”按钮,按下该按钮,进入模式选择界面。

在模式选择界面中,选择“PROGRAM”模式,按下“=”确认进入编程模式。

步骤三:编写程序指令1.输入指令:通过使用”INPUT”指令,可以要求用户输入一个数值。

例如,输入指令“INPUTA”表示将用户输入的数值存储到变量A中。

2.输出指令:通过使用“PRINT”指令,可以打印变量的值。

例如,输出指令“PRINTA”表示打印变量A的值。

3.运算指令:卡西欧5800支持基本的数学运算,如加法、减法、乘法和除法。

例如,运算指令“A=B+C”表示将变量B和变量C的值相加,并将结果存储到变量A中。

4.条件指令:卡西欧5800支持简单的条件操作。

例如,条件指令“IFA>BTHENPRINTAELSEPRINTB”表示如果变量A的值大于变量B的值,则打印变量A的值,否则打印变量B的值。

除了上述基本指令外,卡西欧5800还支持其他一些高级指令,如循环和调用子程序等。

但是,由于篇幅限制,无法在本文中详细介绍这些指令。

你可以查阅卡西欧5800的用户手册,以了解更多详细的编程指令和语法规则。

步骤四:保存和执行程序在程序执行过程中,计算器将按照你编写的指令顺序执行,执行完毕后,将输出结果或者执行下一步的操作。

需要注意的是,卡西欧5800的编程功能较为简单,适合用于一些基本的数学计算。

如果你需要进行更复杂的编程任务,可能需要使用更高级的计算器或其他编程工具。

总结:以上就是关于如何使用卡西欧5800进行编程的详细介绍。

通过简单的编程,你可以利用卡西欧5800解决一些常见的数学计算问题。

虽然卡西欧5800的编程功能相对简单,但对于初学者来说,它是一个很好的入门工具,帮助你了解和掌握基本的编程概念和语法。

最新卡西欧5800计算器编程语言学习

最新卡西欧5800计算器编程语言学习

卡西欧5800计算器编程语言学习1.Norm 1 指数显示Norm 2 小数显示2.?→x 只显示?字符+?→x 显示字符+??x 显示 x?“字符”?x 显示字符+?有→则不显示该变量当前3.(判断表达式)语句1 : 语句2。

如果判断表达式为真(或非零),则不跳过语句1.如果判断表达式为假(或是零),则会跳过语句1.4. If...then…else…ifend如果语句为真,则执行then(不执行else),然后执行ifend.如果语句为假,则执行else(不执行then),然后执行ifend.5. Break 中断语句中断For,Do,While循环,并从该循环的下个命令起继续运行6. Dsz使控制变量递减一,在变量的值为零时执行转移7. IszIsz<变量>:<语句1> <语句2>,变量应为A~Z以1 为增量逐次增加变量的值,当变量的值不等于0 时,执行语句1,否则执行语句28. ClsDsz<变量>:<语句1> <语句2>。

变量应为A~Z。

以1 为减量逐次减小变量的值,当变量的值不等于0 时,执行语句1,否则执行语句29. Locate 定位显示语句句法 1:Locate <列数>, <行数>,<数值>句法2:Locate <列数>, <行数>,<表达式>句法3:Locate <列数>, <行数>, "字符串"fx-5800P 的屏幕最多可以显示4 行、16 列字符,因此定位语句中的列数值应为大于等于1、小于等于16 的整数,行数值应为大于等于1、小于等于4 的整数。

10. Lbi n ~ Goto n Goto n~Lbl n无条件转移至 Lbi n 位置11. Getkey返回与上次按键相对应的代码,Getkey=12. DO ~ LpWhile循环语句Do <语句块> LpWhile<条件>先执行语句块,然后测试条件,条件为真时重复执行语句块,否则执行<条件>后的语句。

5800卡西欧计算器程序大全

5800卡西欧计算器程序大全

FX5800计算器公路测量常用程序集一、程序功能本程序由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:Fix 3:"X=":Locate 6,4,X◢"Y=":Locate 6,4,Y◢Prog"3JS”:Goto 0:Lb1 2:Fix 3:"KM=":Locate 6,4,Z◢"D=":Locate 6,4,D◢Goto 02.主程序2:高程序横坡程序(设计任意点高程及横坡)程序名: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: "X=":Locate 6,4,X◢"Y=":Locate 6,4,Y◢Prog"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:L bI Z:Z[3]→D:Fix 2:Abs(D)-S→T:”L0=”:L Locate 6,4,T◢"KM=":Locate 6,4,Z◢"D=":Locate 6,4,D◢“TW=”: Locate 6,4,Z[5]◢Goto 06.主程序6:路基标准半幅宽度计算程序(对于设计有加宽渐变的有用,如路基宽度无变化,则把此程序直接输入半幅宽度值至L)程序名:6GDProg “G0”Z-C→E:(B-A)×E/S+A→L:L:7.坐标计算次程序(THB)程序名:THB18→DimZ:"KM"?Z:Prog "X0"1÷P→C:(P-R)÷(2HPR) →S:180÷π→E:F=1=>Goto 1:F=2=>Goto 2←┘Lbl 1:?D:Abs(Z-O) →W:Prog "A":X:Y:Goto 3LbI 2:X:Y:X→I:Y→J:Prog "B":O+W→Z:D→D:Goto 3LbI 3:IF F=1Then X:Y:Else Z:D8. 正算子程序(A)程序名:A0.1184634425→A:0.2393143352→B:0.2844444444→N 0.046910077→K:0.2307653449→L:0.5→M:U+W(Acos(G+QEKW(C+KWS))+Bcos(G+QELW(C+LW S))+Ncos(G+QEMW(C+MW S))+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+KWS))+Bsin(G+QELW(C+LW S))+Nsin(G+QEMW(C+MWS))+Bsin(G+QE(1-L)W(C+(1-L)WS))+Asin(G+QE(1-K)W(C +(1-K)WS))) →Y:G+QEW(C+WS)+Z[1]→Z[2]:X+Dcos(Z[2])→X:Y+Dsin(Z[2])→Y9. 反算子程序(B)程序名:BG-90→T:Abs((Y-V)cos(T)-(X-U)sin(T)) →W:0→D:Lbl 0:Prog "A":T+QEW(C+W S) →L:(J-Y)cos(L)-(I-X)sin(L)→D:IF Abs(D)<0.01:Then Goto1:Else W+D→W:Goto 0←┘Lbl 1:0→D:Prog "A":(J-Y)÷sin(Z[2]) →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:Lb I 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。

CASIO5800程序编辑说明

CASIO5800程序编辑说明

CASIO 5800程序编辑说明CASIO-5800P计算器程序编辑说明一(程序名称:直线坐标计算——Z-X-Z程序内容:1. “X=“,A : “Y=“,B : “Q=”,Q2. LbI 03. “N=”,N : “S=”,S : ”E=”,E4. A + N cos(Q) ?D : B + N sin(Q) ?F5. D + S cos(Q + E) ?6. F + S sin(Q + E) ?7. Goto 0内容说明:A 、 B——以知点即起算点的x,y坐标值;Q——直线段方位角;N——直线段距离;S——边桩距离;E——转向角;(左转为“,E”,右转为“E”) 二(程序名称:圆曲线任意坐标计算——ZY-YZ程序内容:1. “Q=”,Q : “ X= ”,W : “ Y= “,K : “R= ”,R:“F=”,F : “N=”,N : “U=”,U2. R tan(N?2) ? T3. Q–T ? A4. W+T cos(F+180) ?M : K+T sin(F+180) ?G5. LbI 06. “H=” ,H : ” S=” ?,S : “E=” ,E7. Abs(H - A) ? D8. 180 D?(Rπ) ?О9. R sin(О) ?C10. R (1-cos(О)) ?D11. M+C cos(F) ? I : G+C sin(F) ? J12. I+D cos(F+90U) ?X : J+D sin(F+90U) ? Y13. X+S cos(F+ОU+E) ?14. Y+S sin(F+ОU+E) ?15. Goto 0内容说明: Q——交点里程桩号;W 、K——交点X、Y坐标;R——圆曲线半径;F——前切线正方位角;N——偏角;(即转向角)U——控制偏角条件;(左偏角输入“,1”,右偏角输入“+1”)H——圆曲线上任意一点里程桩号;S——中桩至边桩距离;E——夹角;(左边桩输入“,E”,右边桩输入“E”) 三(程序名称:极坐标放样元素计算——J-Z-B-F-J程序内容: 1. “X=”,A : “Y=”,B : “X0=”,C :“Y0=”,D2. PoI ( C - A,D - B ) : CIs3. If J,0 : Then J+360?E : EIse J?E:IfEnd:E?DMS?4. I?5. LbI 06. “XN=”,U7. WhiIe U?0 (输入“0”即结束程序)8. “YN=”,V9. PoI(U-A,V-B):CIs10. If J,0:Then J+360?F:EIse J?F:IfEnd:F?DMS?11. I?12. F – E ? H13. If H,0:Then H+360?H:IfEnd : H?DMS?14. Goto 0内容说明: A、B——测站点坐标C、D——0方向点坐标E——计算出的测站点至0方向点的方位角I——计算出的测站点至0方向点的距离U,V——N方向点坐标F——计算出的测站点至N方向点的方位角I——计算出的测站点至N方向点的距离H——计算出的0方向与N方向的水平夹角表格:点号 X坐标 Y坐标距离方位角起止点号夹角测站点0点 0?01点 0?12点 0?2四(程序名称:有缓和曲线的圆曲线上点位坐标计算 F-Y-X-Y 程序内容:1(“Q=”,Q :“J=”,J :“K=”,K :“R=”,R :“F=”,F :“N=”,N :“I =”,I :“U=”,U2(6 ? Dim Z3(90 I?(Rπ) ? G (切线角,即缓和曲线角计算)3 24 4(I?(24R) - I?(2688R) ? P (内移距)32 5(I?2 - I?(240R) ? M (切线增值)6((R+P) tan (N?2)+M ? T (切线长)7(πRN ? 180 + I ? L (曲线长)8(Q – T ? A : A + I ? B :A + L ? D : D – I ? C9(J + T cos(F+180) ? Z[1] : K + T sin (F+180) ? Z[2]10(LbI 011(“H=”,H :“S=”,S :“E=”,E12(H – A – I ? Z13(180 Z?(Rπ) + G ? О14(R sin(О) + M ? X15(R (1 –cos(О)) + P ? Z16(Z[1]+ Xcos( F ) ? Z[3] : Z[2] + X sin( F )? Z[4]17(Z[3]+ Z cos (F + 90U ) ? Z[5] :Z[4] + Z sin(F + 90U )? Z[6]18(Z[5]+ S cos ( F +ОU + E ) ?19. Z[6] + S sin( F+ОU + E ) ?20(Goto 0内容说明: Q——交点里程桩号;J 、K——交点X、Y坐标;R——圆曲线半径;F——前切线正方位角;N——偏角;(即转向角)I——缓和曲线长;U——控制偏角条件;(左偏角输入“,1”,右偏角输入“+1”) H——有缓和圆曲的线圆曲线上任一点里程桩号;S——中桩至边桩距离;E——夹角;(左边桩输入“,E”,右边桩输入“E”)第9项——ZH点坐标;五(程序名称:缓和曲线段上点位坐标计算 F-H-X-Y程序内容:1 (“Q=”,Q :“J=”,J :“K=”,K :“R=”,R : “F=”,F :“N=”,N :“I =”,I :“U=”,U2(12 ? Dim Z32 3(I?2 - I?(240R) ? M (切线增值)3 24 4(I?(24R) - I?(2688R) ? P (内移距)5(πRN ? 180 + I ? L (曲线长)6(M+ (R+P) tan (N?2) ? T (切线长)7(Q – T ? A : A + I ? B : (ZH : HY)A + L ? D : D – I ? C (HZ:YH)8(J + T cos(F+180) ? Z[1] : K + T sin (F+180) ? Z[2] 9. J + T cos(F+NU) ? Z[3] : K + T sin (F+NU) ? Z[4] 10(LbI 011(“H=”,H :“S=”,S :“E=”,E12. H,B? Goto 113. H,D? Goto 214(LbI 115(Abs(H - A) ? Z216(90 Z?(πR I ) ?О229445 17(Z - Z?(40 RI) + Z?(3456 RI) ? X 7331155318(Z?(6 RI) – Z?(336 RI) + Z?(42240 RI) ? Z 19(Z[1]+ Xcos( F ) ? Z[5] : Z[2] + X sin( F )? Z[6] 20(Z[5]+ Z cos (F + 90U ) ? Z[7] :Z[6] + Z sin(F + 90U )? Z[8]21(Z[7]+ S cos ( F +ОU + E ) ?22. Z[8] + S sin( F+ОU + E ) ?23(Goto 024. LbI 225. D - H ? Z226(90 Z?(πR I ) ?О229445 27(Z - Z?(40 RI) + Z?(3456 RI) ? X 7331155328(Z?(6 RI) – Z?(336 RI) + Z?(42240 RI) ? Z 29(Z[3]+ X cos( F + NU+180 ) ? Z[9] :Z[4] + X sin( F + NU+180)? Z[10]30(Z[9]+ Z cos (F + NU+180 - 90U ) ? Z[11] :Z[10] + Z sin(F + NU+180 - 90U )? Z[12]31(Z[11]+ S cos ( F +NU+180 - ОU -(180 – E)) ?32. Z[12] + S sin( F+ NU+180 - ОU -(180 - E)) ?33. Goto 0内容说明: Q——交点里程桩号;J 、K——交点X、Y坐标;R——圆曲线半径;F——前直线段正方位角;N——偏角;(即转向角)I——缓和曲线长;U——控制偏角条件;(左偏角输入“,1”,右偏角输入“+1”) H——缓和曲线段上任一点里程桩号;S——中桩至边桩距离;E——夹角;(左边桩输入“,E”,右边桩输入“E”)第8项——ZH点坐标第9项——HZ点坐标。

卡西欧5800简易编程

卡西欧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程序

1、ZXKW(直线开挖)“D=”?D:“PD=”?F:“ZXJ=”?L:Lbl 0:“Y=”?Y:“Z=”?Z“T=”:Abs(Y)-((Z-D)*F+L)→T◢“ZL=”:Z-(D+0.3)◢GoTo 0本程序适用于直线段渠道开挖,坐标为工程坐标,D为坡脚处高程,PD为坡度,ZXJ为待放样边坡坡脚距中心线的水平距离,T表示棱镜所应水平移动距离,T为正值时向中心线方向移动,负值时向中心线外移动。

“ZL=”表示为垂直向下开挖深度。

Lbl 0前各数值为定量,后各数值为变量,Lbl 0后的0为01234的0.2、ZXDM(直线段面)“M=”?M:“N=”?N:“Q=”?Q:“O=”?O:L bl 0:“X=”?X:“Y=”?Y:“Z=”?Z“F=”(X-M)COS(Q)+(Y-N)SIN(Q)+O→F◢“G=”-(X-M)SIN(Q)+(Y-N)COS(Q) →G◢“T=”:Abs(G)-((Z-96)*2+8.88-0.67) ◢GoTo 0本程序适用于直线段渠道开挖,坐标为大地坐标,M、N为某段直线起点在大地坐标中的大地坐标值,O为直线起点处桩号值,F为桩号,G为中心距,T表示棱镜所应水平移动距离,T为正值时向中心线方向移动,负值时向中心线外移动。

3、ZJZB(直角坐标)“A=”?A:“B=”?B:Lbl 0:“C=”?C:“D=”?DPol(C-A,D-B)“L=”:I→L◢J≤0 => J+360°→J“Q=”:J→Q◢GoTo 0本程序适用于坐标反算,A、B为起算点坐标值,C、D为待定点坐标值,L为起算点与待定点间水平距离,Q为起算点与待定点间的方位角。

4、JZB(极坐标)“A=”?A:“B=”?B:Lbl 0:“L=”?L: “Q=”?QRec(L,Q)“X=”:I+A→X◢“Y=”:J+B→Y◢GoTo 0本程序适用于坐标正算,A、B为起算点坐标值,L为起算点与待定点间水平距离,Q为起算点与待定点间的方位角,X、Y为待定点坐标。

卡西欧5800计算程序自己编写实用计算程序

卡西欧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-9960系列计算器通用程序集

卡西欧5800-9960系列计算器通用程序集

卡西欧5800-9960系列计算器通用程序集作者:柠檬树QQ:249910569第一篇坐标正反算通用程序(终极篇)1.第1行:Lbl 0:”第2行:Prog “A”第3行:”X=”◢第4行:”Y=”第5行:”F=”第6行:GotoK——计算点的里程BIAN——计算点到中桩的距离(左负右正)α——取前右夹角为正A匝道数据2.第1行:”X1=”? C:第2行:Lbl第3行:第4行:第5行:第6行:第7行:Abs(S)>0.0001=>Goto 0第8行:”K1=”:K◢第9行:”BIAN=”:Isin(J-F)→Z◢X1——取样点的X坐标Y1——取样点的Y坐标K1ZA匝道数据List Ans列表中反算桩号反算偏距,为方便其他程序的调用,赋值到变量Z注:第4行和第53.第1行:K-A I第2行:N+∫(cos(F+X(2P+XI)×90÷π),0,S)→N第3行:E+∫(sin(F+X(2P+XI)×90÷π),0,S)→E第4行:F+S(2P+S I)×90÷π→F反向计算时需改为Abs(K-A)→S计算中桩的X坐标计算中桩的Y坐标计算中线切线方位角4. 数据库(命名为A)第1行:K≤第2行:175.191→→→K≤A+L第3行:245.607→→→Q:第4行:→→Q: 55.104 →L:第5行:373.627→A:428453.283→N:558138.912→E:124°50′4.5″→F:0→P:-1/180→Q:67.222→L: K≤A+L=>Goto 1:Stop(第一缓和曲线,圆半径为180)卡西欧fx-5800P程序集作者:柠檬树QQ:249910569第6行:Lbl 1:Prog “XYF”ANE——曲线段起点的FP)Q)L说明:(1)在9860中,程序中所有公式和部分函数结果均存储在List Ans列表数组中,要想多次调用最好随公式取出结果,并赋给变量。

卡西欧5800坐标计算程序(通俗易懂版)

卡西欧5800坐标计算程序(通俗易懂版)

卡西欧5800道路坐标测量程序(通俗易懂版)主程序(自己给取个名吧)2→Dimz“1.SZ=﹥XY2.XY=﹥SZ”◢“N=”?NIf N=1:Then Goto 1:Else Goto 2:IfEndLbl 1“S=”?S“Z=”?Z“J=”?TIf S﹤0:Then Prog “SYL”:Else Prog “SYR”:IfEnd(可拿掉)1÷P→C:(P-R) ÷(2HPR)→D:180÷∏→E:Abs(Abs(S)-O)→W:Prog “SUB1”“QJ=”:Z[1]◣DMS◢“X=”:X◢“Y=”:Y◢Goto 1Lbl 2“S=”?SIf S<0:Then Prog “SYL”:Else Prog “SYR”:IfEnd(可拿掉) 90→T1÷P→C:(P-R) ÷(2HPR)→D:180÷∏→E“X=”?X“Y=”?YX→I:Y→JProg “SUB2”O+W→S(红色加粗加下画线为字母,常规为零)“S=”:S◢Z→Z“Z=”:Z◢Goto 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)))→XV+W(Asin(G+QEKW(C+KWD))+Bsin(G+QELW(C+LWD))+Bsin(G+QEFW(C+F WD))+Asin(G+QEMW(C+MWD))) →YG+QEW(C+WD)→Z[1]Z[1]+T→FX+Zcos(F)→XY+Zsin(F)→YReturn子程序(SUB2)G-90→Z[2]:Abs((Y-V)cos(Z[2])-(X-U)sin(L)→W:0→ZLbl 0Prog “SUB1”Z[2]+QEW(C+WD)→L(J-Y)cos(L)-(I-X)sin(L)→ZIf Abs(Z)<10(-6):Then Goto 1:EIse W+Z→W:Goto 0:IfEndLb1 10→Z:Prog “SUB1”(J-Y)÷sin(F)→ZReturn数据库(SYR)If S>29599.031(本段线元计算范围起点里程) And S≤29759.031(本段线元计算范围终点里程):Then 3311072.206(本段线元起点X坐标)→U:502909.1014(本段线元起点Y坐标)→V: 29599.031(本段线元起点里程)→O:256-25-59.11(本段线元起点方位角)→G:160(本段线元长度)→H:1400(本段线元起点半径)→P:10(45)(本段线元终点半径)(直线段为10的45次方)→R:-1(线元转向标识)(左偏为-1,右偏为1,直线为0)→Q:IfEnd输入说明正算 1 输入 N:输入1进入计算坐标模式S:里程桩号Z:偏距J:与线路角度2 显示 QJ:切线方位角X:X坐标Y:Y坐标反算 1 输入 N:输入2进入坐标反算里程偏距模式S:输入相近里程X:输入X坐标Y:输入Y坐标2 显示 S:反算出的里程桩号Z:反算出的偏距。

卡西欧5800计算器的详细编程

卡西欧5800计算器的详细编程

CASIO fx—5800计算器工程测量与公路测量程序1、坐标正算”X0=〃X:”Y0=〃Y:”I=〃I:”J=〃JX+ICos(J)→U:Y+ISin(J)→V”X=〃:U (待求点的X坐标)”Y=〃:V (待求点的Y坐标)说明:X0 Y0:已知点坐标I:两点的距离J:方位角2、坐标反算Lbl 0”X1=〃X:”Y1=〃Y:”X2=〃U:”Y2=〃VPol(U-X,V-Y):J<0 J+360→J”I=〃:I”J=〃:J DMSGOTO 0说明:X1Y1:第一点的坐标,X2Y2第二点的坐标,I:两点的距离,J:方位角3、圆曲线”X0=〃X: ”Y0=〃Y:”FWJ=〃D:”QDHAO=〃G: ”ZDHAO=〃C: ”R=〃RLbl 1”DQHAO=〃LL<G Or L>C GOTO 2”PY=〃K180(L-G)÷(πR) →E2RSin →FReC(Abs(F),D+:Cls”X=〃:X+I+KCos(D+E+90) →A”Y=〃:Y+J+KSin(D+E+90) →BD+E→o:o<0 360+o→0o”FWJ=〃:o DMSGoto 1Lbl 2”END〃说明:X0Y0:起始点的坐标,FWJ:起始点的方位角,QDHAO:起点里程,ZDHAO 终点里程,R:半径,DQHAO:待求点里程,PY:偏移量4、竖曲线”QZHAO =〃J: ”H+B〃=B:”I1=〃C:”I2=〃D:”R=〃R:”T=〃T:((D-C)÷100) ÷Abs((D-C) ÷100)→A:Abs(D-C) ÷100)→S”T〃:SJ-T→XJ+T→YLbl 0”DQ=〃LIf L<X:Then Goto 1:Else If L>Y:Then Goto 1:If End:If End”GC=〃:B+C(L-J) ÷100+A(L-J+T) ÷(2R) →HLbl 1”END〃说明:QZHAO:曲中点里程,H+B:曲中点高程,I1:第一坡度,I2:第二坡度,R:半径,T:切线长,DQ:待求点里程。

卡西欧5800程序集

卡西欧5800程序集

第十四篇坐标法面积、周长计算1. 坐标法面积、周长计算程序(命名为ZBMJ)第1行:FreqOn:ClrStat:ClrMemory第2行:“N=1”: 1→N: “X=”?→C: “Y=”?→D: C→A:D→B:A→List X[1] :B→List Y[1]第3行:Lbl 0:“N=”:N+1→N◢“X=”?→E: “Y=”?→F:E→List X[N] :F→List Y[N]第4行:Pol(E-C,F-D+10^(-45)): I→G:J→H:L+G→L第5行:Pol(E-A,F-B+10^(-45)): E→C:F→D:N=2=>J?DMS◢第6行:“PMT=”: N=2=>0→I: L+I◢第7行:“ARE=”:S+GIsin(J-H)÷2→S:Abs(S)→List Freq[N]◢第8行:Goto 0N——取样点的顺序号PMT——多边形的周长ARE——多边形的面积X——对应点号N的取样点X坐标Y——对应点号N的取样点Y坐标以上为5800程序,在9860中程序如下第1行:ClrList:0→L:0→S:0→List 3[1]:0→List 4[1]第2行:“N=1”: 1→N: “X=”?→C: “Y=”?→D: C→A:D→B:A→List 1[1] :B→List 2[1]第3行:Lbl 0:“N=”:N+1→N◢“X=”?→E: “Y=”?→F:E→List 1[N] :F→List 2[N]第4行:Pol(E-C,F-D+10^(-45)) : List Ans[1]→G:List Ans[2]→H:L+G→L第5行:Pol(E-A,F-B+10^(-45)) : List Ans[1]→I:List Ans[2]→J: E→C:F→D:N=2=>J?DMS◢第6行:“PMT=”: N=2=>0→I: L+I→List 3[N]◢第7行:“ARE=”:S+GIsin(J-H)÷2→S:Abs S→List 4[N]◢第8行:Goto 02.计算实例:N=1 X = 940.5392 Y = 898.4861N=2 X = 1114.8811 Y = 996.4907 PMT=200.000 ARE=0 (29°20′31.54″) N=3 X = 1065.8788 Y = 1083.6617 PMT=523.607 ARE=10000N=4 X = 1338.2253 Y = 1007.3243 PMT=995.153 ARE=20000N=5 X = 1261.8880 Y = 734.9778 PMT=1226.241 ARE=70000N=6 X = 1212.8857 Y = 822.1488 PMT=1248.528 ARE=60000N=7 X = 1038.5438 Y = 724.1442 PMT=1365.686 ARE=800003. 说明:(1)动态显示结果:按照一定顺序(逆时针或顺时针均可)依次取样输入到计算器,可动态显示周长和面积,并可以随时停止,最后一次显示结果为最终结果。

卡西欧5800P计算器程序

卡西欧5800P计算器程序

卡西欧5800P计算器TYQXJSI坐标正反算(经过修改)1.主程序(TYQXJSI)10→DimZ:"1.SZ → XY":"2.XY → SZ":?N:"XO"? U:"YO"? V:"SO"? O:"FO"? G:"LS"? H:"RO"? P:"RN"? R:? Q: 1÷P→C:(P-R)÷(2HPR) →D:180÷π→E:If N=1: Then Goto 1: Else Goto 2: IfEndLbl 1:"DK? +?"? S:?Z: Abs(S-O)→W:If W>H or S<O: Then Stop: IfEnd : Prog "SUB1": "XS=”:X◢"YS=”: Y◢"FS=”:(F-90) →F:F DMS◢Goto 1Lbl 2:? X:? Y: "H"?A:X→I:Y→J:Prog "SUB2":If W>H or S<O: Then Stop: IfEnd :"DK?+?=”:O+W→S◢"Z”:Z◢Prog”NGDM”:Prog”OPRP1”:Goto 2IF N=2: Then If S<157188: Then Prog”OPRP1-100”:Else If S>157297: Then Prog”OPRP2-0”: ElseProg”OPRP1-50” IfEnd: IfEndElse If N=3: Then Prog”OPRP4”: IfEnd :IfEnd2. 正算子程序(SUB1)0.1739274226 →Z[3]:0.3260725774→B:0.0694318442→K:0.3300094782→L:(1-L) →F:(1-K)→M:(U+W(Z[3]cos(G+QEKW(C+KWD))+Bcos(G+QELW(C+LWD))+Bcos(G+QEFW (C+FWD))+ Z[3]cos(G+QEMW(C+MWD)))) →X:V+W(Z[3]sin(G+QEKW(C+KWD))+Bsin(G+QELW(C+LWD))+Bsin(G+QEFW( C+FWD))+ Z[3]sin(G+QEMW(C+MWD))) →Y:G+QEW(C+WD)+90→F:(X+Zcos(F))→X:(Y+Zsin(F))→Y注:Z[3]替代源程序A。

卡西欧FX5800P编程计算器应用及程序.

卡西欧FX5800P编程计算器应用及程序.

1
号点,后视为 2 号点。
Prog FXA
Norm 1:?N:N=2=>Goto 0:N=2=>Goto 1: “ = ”: ◢
“ X0+Y0i ” ?M:List X[M]+List Y[M]i->C:Lb1 0“ X+Yi”?T:T=0=>Goto 1:T->K:?L:List
FX5800卡西欧计算器应用及程序
第一章 计算器语法与模型
一、复 数 部 分
1.1 、计算中的复数形式
5800P 计算器只能对直角坐标与极坐标表示的复数进行计算,其数学表示形式分别如 下:
( 1-1 )
( 1-2 )
要求 在计算器中的表示格式为:
为复数的实部(测量系中的 X 坐标), 为复数的虚部(测量系中的 Y 坐标)。
该值。最多可以输入 199 个数据,输入的数据直到删除与使用复位计算器时才会丢失数据。
在 SD模式下,虽然只显示 X 值,但计算器内部会对 X 值提供一个 Y 值,只不过始终为 0 而
已。
且行天涯
804963666
1
FX5800卡西欧计算器应用及程序
插入行,在 SD或 REG模式下将光标移到要插入行的位置,按 以在光标所处的行的上面行插入新行了。需要删除输入的数据时,在 FUNCTION-> 5-> 1-> 2 再“确认”就可删除统计储存器中的数据。
式中 A 是点号, C 是任意储存单元。具体示例详见“程序部分” -> “极程序放样”
( 2)、利用统计计算( SD/REG)
1、以
形式输入坐标的复数并存入相应的单元后,就可以使用复数运算命令提取
单元中的复数了。例 ( 坐标换算的尺度比例计算 )

卡西欧5800计算器编程入门程序集

卡西欧5800计算器编程入门程序集

卡西欧5800计算器编程入门程序集编程入门程序集:1.输入输出控制:程序的第一步是实现输入输出控制,以便用户能够与程序进行交互。

以下是一个简单的输入输出程序示例:```PROGRAM HelloWorld;BEGINPRINTLN("Hello, World!");PAUSE;END.```这个程序会在计算器的屏幕上显示"Hello, World!",并暂停等待用户的确认,直到用户按下任意键时继续执行。

2.简单的计算:接下来,我们来看一个简单的计算程序示例:```PROGRAM SimpleCalculator;VARnum1, num2, result: INTEGER;BEGINPRINTLN("Enter the first number: ");READLN(num1);PRINTLN("Enter the second number: ");READLN(num2);result := num1 + num2;PRINTLN("The sum is: ");PRINTLN(result);PAUSE;END.```这个程序会要求用户输入两个数字,然后计算它们的和,并在屏幕上显示结果。

3.条件语句:条件语句可以根据条件执行不同的操作。

以下是一个条件语句的示例程序:```PROGRAM EvenOrOdd;VARnum: INTEGER;BEGINPRINTLN("Enter a number: ");READLN(num);IF num MOD 2 = 0 THENPRINTLN("The number is even.");ELSEPRINTLN("The number is odd.");PAUSE;END.```这个程序会要求用户输入一个数字,并判断它是偶数还是奇数,并在屏幕上显示相应的信息。

卡西欧5800测量实用程序(含直线、圆曲线、大地转施工程序)

卡西欧5800测量实用程序(含直线、圆曲线、大地转施工程序)

卡西欧5800测量实用程序(含直线、圆曲线、大地转施工程序)一、直线计算程序0→I:0→J:”X0”?D:”Y0”?E:”X1”?B:”Y1”?C:Pol(B-D,C-E):J →A:If A<0:Then A+360→A:Else A→A:IfEnd:Lbl 0:?O:?S:If O≠0:Then Goto 1:IfEnd:D+Scos(A) →X:”X=”:X ◢E+Ssin(A) →Y:”Y=”:Y ◢Goto 0:Lbl 1:D+Scos(A)+Ocos(A+90) →X:”X=”:X ◢E+Ssin(A)+Osin(A+90) →Y:”Y=”:Y ◢Goto 0说明:输入程序时注意区别字母O 与数字0程序运行时符号说明X0? Y0? 分别输入直线起点的XY 坐标值X1? Y1? 分别输入直线终点的XY 坐标值O? 输入边桩与中桩的距离( 左边桩为负值, 右边桩为正值), 如计算中桩坐标输入0S? 输入所求点到直线起点的距离二、圆曲线计算程序0→I:0→J: ”X0”?C:”Y0”?D:”X1”?E:”Y1”?F:?R:”L:-1 R:1”?N:”ZY”?W:Lbl 0:”LN”?T:T-W→O:Pol(E-C,F-D):I→S:J→A: If A<0:Then A+360→A:Else A →A:IfEnd:sin-1(S÷(2R)) →K:2∏RK÷180→L:180O÷(2∏R) →G:(2R)sin(G) →H:C+Hcos(A-KN+GN) →X:”X=”:X ◢D+Hsin(A-KN+GN) →Y:”Y=”:Y ◢R-0.5√(4R2-H2) →Q:”Q=”:Q ◢“S=”?V:If V=0:Then Goto 0:IfEnd:”L:-90 R:90”?U:X+Vcos(A-KN+2GN+U) →X:”X=”:X ◢Y+Vsin(A-KN+2GN+U) →Y:”Y=”:Y ◢Goto 0说明:输入程序时注意区别字母O 与数字0程序运行时符号说明X0? Y0? 分别输入直线起点的XY 坐标值X1? Y1? 分别输入直线终点的XY 坐标值R? 输入圆曲线半径L:-1 R:1? 圆曲线向左转弯时输入-1, 向右转弯时输入1ZY? 输入起点桩号LN? 输入所求点桩号( 按下exe 键后显示中桩坐标)S? 输入所要求的边桩与中桩的距离L:-90 R:90 要求左边边桩输入-90, 右边边桩输入90( 按下exe 键后显示边桩坐标)三、大地转施工“QK=”?Z:“QX=”?A:“QY=”?B:“ZX=”?O :“ZY=”?Q ↙Pol( O -A,Q-B) ↙J<0=>J+360→J ↙J>360=>J-360→J ↙J→F:“JF=”:F ◆DMS ◢Lb1 0 ↙?X:?Y ↙Pol (X-A,Y-B):I→D ↙J<0=>J+360→J ↙J>360=>J-360→J ↙J-F→T:T→G ↙T<0=>T+360→G ↙T>360=>T-360→G ↙Z+Dcos (G)→K:“K=”:K ◢Dsin (G)→C:“C=”:C ◢GoTo 0 ↙说明:QK-- 输入线路起始点里程QX-- 输入线路起始点中桩X 坐标QY-- 输入线路起始点中桩Y 坐标ZX-- 输入线路前进方向中桩X 坐标ZY-- 输入线路前进方向中桩Y 坐标JF=-- 显示线路测量坐标方位角X-- 输入线路附近任意点测量X 坐标Y-- 输入线路附近任意点测量Y 坐标K-- 显示计算结果:里程桩号,即工程X 坐标C-- 显示计算结果:左右偏距,即工程Y 坐标, 中桩=0 ,左偏= 负值,右偏= 正值。

卡西欧FX5800P编程计算器应用及程序

卡西欧FX5800P编程计算器应用及程序

Prog FXA
Norm 1:?N:N=2=>Goto 0:N=2=>Goto 1:“ =”: ◢
“X0+Y0i”?M:List X[M]+List Y[M]i->C:Lb1 0“X+Yi”?T:T=0=>Goto 1:T->K:?L:List X[T]+List Y[T]i->B:Fix 3:“D=”:Abs(B-C->D◢ Arg(B-C->A:A<0=>A+360->A:“A=”:A▶DMS◢ “X,Yi”:B◢ Norm 1:O->X:Goto 0: Lb1:?X:X=0=>Goto 0:X->O:?Y:?H:X+Yi->S:Abs(S-C->I:Fix 3: If S>D:Then“DV=”:Locate 5,4,I:Else “D∧=”:Locate 5,4,I:IfEnd:Arg(E-C->J: J<0=>J+360->J:J-A->J:J<0=>J+360->J:Abs(Ssin(J->I:If >180:Then “=>”: Loca te 4,4,I:Else“<=”:Locate 4,4,I:IfEnd:Abs(H-L->I:If H>L:Then“hV=”:Locat e 5,4,I◢ Else“h∧=”: Locate 5,4,I◢ IfEnd:K->T:Norm 1:Goto 1:“END”
<=、0.663 =>、0.023 <=、0.218 <=、0.561 =>、0.298
2.1.2 隧洞断面(直线、圆曲线城门洞型)放样程序
  1. 1、下载文档前请自行甄别文档内容的完整性,平台不提供额外的编辑、内容补充、找答案等附加服务。
  2. 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
  3. 3、如文档侵犯您的权益,请联系客服反馈,我们会尽快为您处理(人工客服工作时间:9:00-18:30)。

fx-5800P易学易用程序集卡西欧(中国)贸易有限公司版程序列表备注;;用户对用本书疑问,请发邮件到:gongchengji@ 。

欢迎交流!卡西欧的客服热线:400-700-6655。

联系:gongchengji@ 。

G1G2G3G4G5G6G7G8G9G10G111-1G12G12-10-10-2fx-5800P G2011-9-30...常用测量程序1极坐标放样程序(已知坐标计算边长、方位角计算程序),程序名5 J<0J+360→J把小于6 7 "FWJ=":J DMS ◢显示方位角2已知边长方位角计算坐标程序,程序名3建筑轴线偏移程序(或扩大基础程序)。

程序名()()4测角前方交会坐标计算,程序名5测角后方交会坐标计算,程序名3 Pol((C –A),(D –B)) : J<0J+360→J : J →Z[4] 计算点()的方位角4 Pol((E –A),(F –B)) : J<0J+360→J : J →Z[5]计算点()的方位角5 6 Z[1]<0Z[1]+360→Z[1]计算点()的顶角并存贮到变量 7 Pol((E –C),(F –D)): J<0J+360→J : J →Z[4] 计算点()的方位角 8 Pol((A –C),(B –D)): J<0J+360→J : J →Z[5] 计算点()的方位角9Z[4]-Z[5]→Z[2]方位角计算顶角10 Z[2]<0Z[2]+360→Z[2]计算点()的顶角并存贮到变量 11 Pol((A –E),(B –F)) : J<0J+360→J :J →Z[4] 计算点()的方位角 12 Pol((C –E),(D –F)) : J<0J+360→J : J →Z[5]计算点()的方位角13 14 Z[3]<0Z[3]+360→Z[3]计算点()的顶角并存贮到变量 15 tan(Z[1]) tan(G) ÷(tan(Z[1])- tan(G))→Z[7] 计算点()的参数 计算点()的参数 计算点()的参数()()()6坐标转换计算程序,程序名-D ()()()7直线中边桩坐标计算程序,程序名8圆曲线中边桩坐标计算程序,程序名9完整缓和曲线中边桩坐标计算程序,程序名fx-5800P 程序使用流程:本程序数据和主程序是分开的,编程时将不同的工程数据存放到不同的数据文件里,如A匝道,文件名为A ,将匝道A 所有的曲线线元参数输入A文件里。

运行时只要运行文件名A 的程序就可以了,具体运行流程见下图:第四位小数点后为0.0001,如1100.0001第四位小数点不能是0.0001, 如1100.0(一)交点法数据文件编辑交点法编写数据文件必须是对称型的,即直线段→缓和曲线段→圆曲线段→缓和曲线段→直线段,(如果任意一端没有直线段,则把直线段长度看做是0),另外圆曲线两侧缓和曲线的旋转常数必须相等,并且和直线段连接处的半径必须是无穷大。

交点法数据文件编写一般是根据设计图纸提供的平面曲线参数一览表提供的参数来编写,每个弯道包括:弯道起点方位角(C ),交点X 坐标(D ),交点Y 坐标(E ),缓和曲线长度(F ,当没有设缓和曲线时,F=0),交点转交(G ,向左转弯,G 为负值,向右转弯,G 取正值),交点桩号(H ),弯道圆曲线半径(R )。

下图是一段市政道路设计参数数据。

根据上图提供的数据,可以编辑成如下的数据文件:文件名(O 表示变量字母O ,其余的0均为零)在程式中,有两个条件转移语句即If L>0:Then 98°39°35.12°→C:4774.384→D: 2415.861→E:140→F:31°17°23°→G:410.007→H:600→R:IfEnd If L>1060:Then 129°56°58.19°→C:4206.421→D: 3093.946→E:70→F:-33°50°48°→G:1285.437→H:600→R:IfEnd……如果还有其他弯道,可以继续后加。

在这些存放设计参数的语句程序表达式是固定的。

编辑曲线参数时,每个曲线参数放在一个If L>***.***(两个弯道中间直线段上的任意桩号):Then ***°**°**.**°→C(弯道起点方位角):****.***→D(交点X坐标):****.****→E(交点Y坐标):***.***→F(缓和曲线长度:**°**°**°→G(转角,向左转为负值,向右转为正值):***.***→H(交点里程桩号):***→R(圆曲线半径):IfEnd 条件式语句里。

如果有多个弯道,一直按上述形式编下去。

(二)线元法数据文件编辑线元法数据文件编辑适合于各种各样的线型组合,特别是在大型立交区或者是不规则的线型组合地方,如小区道路、重丘区山路等有特别明显的有点,本程序为了减少使用者设计参数的输入,特别把直线与缓和曲线以及圆曲线连接的地方只要输入缓和曲线参数就可以了,这样可以减少输入很多设计参数,同时节约大量的内存。

看下图:该图是一个半喇叭型的互通立交,一共是5条匝道,我们以D匝道为例,来看看线元法数据文件的建立。

3→DimZ :“X0”?A: “Y0”?B: “Ln ”?L: Abs(L)-Int(Abs(1000L))÷→Z[3]:Lbl 0:If Z[3]≠0.0001: Then ?L:Else “Xp ”?X:”Yp ”?Y:X →Z[1]:Y →Z[2]:IfEnd:Lbl 1:If L ≥0 :Then 302°18°26°→W :494347.926→X :477989. 873→Y :55→P: 40→R :39.216→I: 39.289→J :IfEnd: If L ≥78.504:Then 494380.677→X :477971.271→Y :358°28°45.9°→W :40→R : -65→P:39.216→I: 78.504→J :IfEnd:Prog ””: Prog ””: If Z[3]≠0.0001:Then Goto 0:Else (Z[1]-X)cos(O)+(Z[2]-Y)sin(O)→N:L +N →L:-(Z[1]-X)sin(O)+(Z[2]-Y)c os (O )→K :If Abs (N )≥0.001:Then Goto 1:Else “L=“:L ◢ “K=”:K ◢IfEnd:Goto 0: IfEnd下表是D 匝道的线元表: D 匝道线元数据分析:从上表中可以看出,D匝道由三个线元组成,第一段是缓和曲线段,根据上表判断,该缓和曲线属于第一段缓和曲线,其最小半径处桩号为J=K0+039.289,该处坐标X=494347.926,Y=477989. 873,半径为R=40米,方位角W=302°18′26.0″,缓和曲线旋转常数P=55,在缓和曲线终点K0+039.289处,有一圆曲线与其相连接,长度I=39.216。

第二段是圆曲线,第三段又是一段缓和曲线,根据上表判断,该曲线属于第二缓和曲线,曲线最小半径位于与园曲线连接处,桩号J=K0+78.504,坐标为X=494380.677,Y=477971.271,方位角W=358°28′45.9″,最小半径R=40,缓和曲线旋转常数P=-65(为了判断是第一段还是第二缓和曲线,我们通过P 的正负来判断,第一缓和段P 统一用正数表示,第二缓和段统一用负号表示。

起点处相连的圆曲线长度I 可以看做0,也可以看做是39.216.由此我们整理下。

从整个线型全部是向右转向,所以R 全部取正数。

具体如下:当桩号L 位于K0+000~ K0+78.504时,曲线参数按第一段编写,当L>78.504时,按第二段缓和曲线编写,当然第二段缓和曲线计算范围也可以从圆曲线起点K0+039.289到K0+78.504中间任意桩号开始。

下面是D 匝道的数据程序文件(文件名“”):(O 表示变量字母O ,其余的0均为零)在上面程式中,每个缓和曲线的线元参数放在一个If …Then ……IfEnd循环语句中,If 后面紧跟计算的起点范围,终点范围从下段的起点范围结束。

再看看E匝道数据文件编辑E匝道线元设计数据表在匝道线元表中,我们可以看出,E匝道式由一段直线段→缓和曲线段→圆曲线段→缓和曲线段→缓和曲线段→圆曲线段连接起来的。

值得注意的是,在位于K0+248.491处,是两段反向的缓和曲线连接点,在编写数据程序文件时,分三段编写,第一段从K0+000到K0+203.366,第二段从K0+203.366到K0+248.919,第三段从K0+248.919到线路终点K0+331.13。

具体文件如下:(O表示变量字母O,其余的0均为零)3→DimZ:“X0”?A:”Y0”?B: “Ln”?L:Abs(L)-Int(Abs(1000L))/1000→Z[3]:Lbl 0:If Z[3]≠0.0001: Then ?L: Else “Xp ”?X:”Yp”?Y:X→Z[1]:Y→Z[2]:IfEnd:Lbl 1:If L≥0 :Then 494381.6316→X:477847.870→Y:90°08°44.6°→W:200→R:120→P:60.07→I: 143.296→J:IfEnd: If L≥203.366:Then 494372.527→X:477907.018→Y:107°21°16.3°→W:200→R:-95→P:60.07→I: 203.366→J:IfEnd: If L≥248.491:Then 494337.373→X:478010.658→Y:92°24°19°→W:-86.75→R:75→P:17.8→I: 313.333→J:IfEnd: Prog””: Prog””:If Z[3]≠0.0001:Then Goto 0:Else (Z[1]-X)cos(O)+(Z[2]-Y)sin(O) →N:L+N→L:-(Z[1]-X)sin(O)+(Z[2]-Y)cos(O)→K:If Abs(N)≥0.001:Then Goto 1:Else “L=“:L◢”K=”:K◢IfEnd:Goto 0: IfEnd为了让使用者熟悉掌握数据程序文件的编写线元法的数据程序文件,现在将C、F、G等匝道的线元数据列出来,供使用者练习。

相关文档
最新文档