说明:该程序适用于计算器 CASIO fx-5800P,针对圆弧线线形设计,可计算公路交叉口圆弧线线路中、边桩坐标、切线方位角及斜交。
1、K? 输入起点桩号
2、X? 输入起点坐标X
3、Y? 输入起点坐标Y
4、R? 输孝拦入曲线半径
5、FQ? 输入起点方位角
6、FZ? 输入止点方位角
计算参数:
1、K? 0 (起点桩号)
2、X? 685.312 (起点坐标X)
3、Y? 1165.147 (起点坐标Y)
4、R? 50 (曲线半径)
5、FQ? 45° (起点方位角)
6、FZ? 135° (止点方位角)
7、T= 50(计算结果:切线长T)
8、L= 78.54 (计算结果:曲线长L)
9、E= 20.711(计算结果:外失距E)
10、ZY= 00.00 (计算结果:直圆桩号ZY)
11、QZ= 39.27 (计算结果:曲中桩号QZ)
12、YZ= 78.54 (计算结果:圆直桩号YZ)
13、JK? 39.27 (输入待求点桩号)
14、PJ? 0 (输入计算偏距)
15、PA? 0 (输入计算偏角,正交为90°)
16、F= 90°00ˊ00.38″ (计算链困结果:切线方位角F)
17、X= 699.957 (计算结果:坐标X)
18、Y= 1200.502 (计算结果:坐标Y)
程序下载地址: http://www.fffsky.com/blog/post/CASIO-fx-5800P-YFXYuanHuXianZuoBiaoJiSuanChengXu.html
本程序是在yshf及hangniu1973两位师傅的成果上作的一次改动,修改内基滚容主要有一下几点:1、在变量符号上修改,目的是更能与工地实际结合;2、把原主程序分为蠢段两个,更能灵活调用;3、加入放样程序,做到坐标计算到放样一体化;4、使得整个测量放样过程更加简单。附件(点击下载):GAUSSLE坐标正反算fx-4850程序源程序1.正算主程序 GSZSI"X0":S"Y0":O"K0":G"F0":H"KN":P"R0":R"RN":Q”Q(-Z +Y)” :D=(P-R)÷(2(H-O)PR):KL”L(-Z +Y)” :M”ANG(YJJ)”=90:(注:此处若不给M赋值,则可计算斜交点)J=Abs(K-O):Prog"SUB1":”FWJ=”:F=F-M:”X=”:X=X:Pause0: ”Y=”:Y=Y◢2. 反算主程序 GSFSXY:Z[2]=X:Z[3] =Y:I"X0":S"Y0":O"K0"搏档余:G"F0":H"KN":P"R0":R"RN":Q”Q(-Z +Y)” :D=(P-R)÷(2(H-O)PR):J=Abs((Y-S)cos(G-90)-(X-I)sin(G-90)):L=0:M”M(YJJ)”=90:Lbl 0:Prog "SUB1":L=(Z[3]-Y)cos(G-90+QJ(1÷P+JD)×180÷π)-(Z[2]-X)sin(G-90+QJ(1÷P +JD) ×180÷π):AbsL<1E-6=>Goto1:≠>J=J+L:Goto 0Δ←┘Lbl 1:L=0:Prog "SUB1":L=(Z[3]-Y)÷sinF:”K=”:K=O+J:Pause0:”L=”:L=L◢3. 正算子程序(SUB1)Defm 4:A=0.1184634425:B=0.2393143352:Z[4]=0.2844444444:C=0.0469100770:E=0.2307653449:Z[1]=0.5:X=I+J(Acos(G+QCJ(1÷P+CJD)×180÷π)+Bcos(G+QEJ(1÷P+EJD)×180÷π)+Z[4]cos(G+QZ[1]J(1÷P+Z[1]JD)×180÷π)+Bcos(G+Q(1-E)J(1÷P+(1-E)JD)×180÷π)+Acos(G+Q (1-C)J(1÷P+(1-C)JD) ×180÷π)):Y=S+J(Asin(G+QCJ(1÷P+CJD)×180÷π)+Bsin(G+QEJ(1÷P+EJD)×180÷π)+Z[4]sin(G+QZ[1]J(1÷P+Z[1]JD)×180÷π)+Bsin(G+Q(1-E)J(1÷P+(1-E)JD)×180÷π)+Asin(G+Q (1-C)J(1÷P+(1-C)JD) ×180÷π)):F=G+QJ(1÷P+JD) ×180÷π+M:X=X+LcosF:Y=Y+LsinF4. 曲线元要素数据库:DAT-MK≥O=>K<H=>I=**:S=**:O=**:G=**:H=**:P=**:R=**:Q=**⊿⊿←┘K≥O=>K<H=>I=**:S=**:O=**:G=**:H=**:P=**:R=**:Q=**⊿⊿←┘ K≥O=>K<H=>I=**:S=**:O=**:G=**:H=**:P=**:R=**:Q=**⊿⊿←┘K≥O=>K<H=>I=**:S=**:O=**:G=**:H=**:P=**:R=**:Q=**⊿⊿←┘K≥O=>K≤H=>I=**:S=**:O=**:G=**:H=**:P=**:R=**:Q=**⊿⊿←┘ ……………………………K≥O=>K≤H=>I=**:S=**:O=**:G=**:H=**:P=**:R=**:Q=**⊿⊿←┘如果帮助到您,请记得采纳为满意答案哈,谢谢!祝您生活愉快! vae.la
欢迎分享,转载请注明来源:内存溢出
评论列表(0条)