推荐个FX-4800P高等级公路程序.docVIP

推荐个fx-4800P高等级公路放样程序 王克华 （江西有色地质勘查三队，江西新余 338000） 摘 要：作者整理适应于fx-4800p程序型计算器的高等级公路施工放样程序，利用该程序，提高了野外放样坐标计算速度。 关键词：高等级公路程序 提高工作效率 现在公路建设施工大量采用室内电脑计算放样坐标、全站仪施工放样的工作模式，但在野外施工时，存在加桩坐标等意外情况发生，而携带笔记本电脑存在携带不便和电源供给的问题，使用程序型计算器，体积小、携带方便、经济实惠，还是得到了很多测量同行的钟爱。fx-4800p和fx-5800p两款程序型计算器得到了很多测量人员的认可，但多数都没有一个好的公路施工放样程序，既使在网上下载的测量程序要么不能用，要么功能不全，所以每次岀去放样要在图纸上用逐桩坐标表进行放样测量，如果要临时计算某些加桩坐标，就有点力不从心，很耽误工作。现将我完善后的公路施工放样程序，整理呈现给各位同行。唯一不足是需人为注意断链问题，本程序使用的基本数学模型是经泰劳级数展开后的公式: Xi=Li-Li/40R2L02+Li9/3456R4L04-…… yi〓Li3/6RL0- Li7/336R3L03+ Li11/42240R5L05-…… 此公式只取四位即可满足精度要求。 在程序中可以求取中桩坐标及中桩的任意边桩坐标，与设计图上坐标对比误差在±2mm内(视摘录线元数据精度有关)，完全满足实际工作精度。实际使用只要在室内将设计图纸中的线元数据摘录后，就可在现场计算公路各桩号中线及边线坐标进行放线施工。如在室内将计算的整条线路各整桩中边桩坐标输入全站仪，更可提高工作效率。本程序只需改动数据显示部分也能适用fx-5800p计算器。 程序名：GDJGL Lbi 0:Defml2:A“JDK=”:B“X0=”:C“Y0=”:D“PJo=”:E“FWJo:JD-ZH=”:R“R=”:H“Ls=” Lbi 1:F=90H/():P=H2/(24R:Q=H/2-H3/(240R2:L=πR(D-2F)/180+2H◢ Lbi 3:Z[12]=A:Z[11]=E:G=(R＋P)tan(D/2)+Q:V“ZH:DK”=Z[12]-G◢W“HZ:DK”＝V＋L◢ Lbi 4:Rec(G,Z[11]):X=B＋I:Y=C＋J:X“ZHX”=X◢Y“ZHY”=Y◢Z[1]=X:Z[2]=Y↙ Lbi 5:{N，T}:N“LP=1,RP=0”:T“S=0，S” ↙ Lbi 6:N＝1＝＞Z＝Z[11]－D＋180: ≠＝＞N＝0＝＞Z＝Z“[11]＋D－180⊿⊿ Lbi 7:Z＜0=＞Z=Z＋360:⊿Rec(G,Z):X=B＋I:Y=C＋J:X“HZX”=X◢Y“HZY”=Y◢Z[3]＝X:Z[4]＝Y↙ Lbi 9:Z[11]-180＜0＝＞Z[11]=Z[11]＋180: ≠＝＞Z[11]＝Z[11]-180⊿ Lbi A:{M}:M“PK=” Lbi B:M≤L/2＋V＝＞GotoC: ⊿ GotoG Lbi C:M≤V＝＞Rec(V-M，Z[11]):X＝Z[1]-I◢Y＝Z[2]-J◢Goto I: ≠＝＞M≤H＋V＝＞U＝M－V:Prog“Z2”: ≠＝＞O＝F＋180(M－V－H)/(πR):Prog“Z3”⊿ Lbi D:N＝1＝＞S＝Z[11]-tan-1(Y/X):≠＝＞N＝0＝＞S＝Z[11]＋tan-1(Y/X)⊿⊿ Lbi E:prog“Z4”:X＝Z[1]＋I◢Y＝Z[2]＋J◢ Lbi I:T＝0＝＞GotoA: ⊿GotoN Lbi N:{T}:T“S=”:M≤V＝＞Rec(T，Z[11]-90):Prog“Z6”:GotoA: ≠＝＞M≤H＋V＝＞G＝90U2/(πRH):GotoO: ≠＝＞Goto P⊿ Lbi O:N＝1＝＞Z[12]＝Z[11]-G-90:≠＝＞N＝0＝＞Z[12]＝Z[11]＋G-90⊿⊿Z[12] ＜0＝＞Z[12]＝Z[12]＋360: ⊿Rec(T，Z[12]):Prog“Z6”:Goto A↙ Lbi P:Prog“Z7”:Prog“Z6”:Goto A↙ Lbi G:N＝1＝＞S＝Z[11]-D: ≠＝＞S＝Z[11]＋D⊿M≥W＝＞Rec(M－W，S):X＝Z[3] ＋I◢Y＝Z[4]＋J◢GotoV: ≠＝＞M≤W-H＝＞O＝F＋180(W-H-M)/( πR):Prog“Z3”: ≠＝＞U＝W-M:Prog“Z2” ⊿ Lbi H:N＝1＝＞S=Z[11]-D＋180＋tan-1(Y/X): ≠＝＞N＝0＝＞S＝Z[11]＋D＋180-tan-1(Y/X) ⊿⊿ Lbi K:Prog“Z4”:X＝Z[3]＋I◢Y＝Z[4]＋J◢ Lbi V:T＝0＝＞GotoA: