史上最全的casio-4800工程测量程序(测量放样、坐标放点、导线放样...)

卡西欧4800测量放样程序

卡西欧4800测量放样程序卡西欧4800测量放样程序“RMGL”（母文件）2 G “JDK” N“JDX” E“JDY” RH“LS1”Q “LS2” F “FWJ”Z “ZJ”3 Z[1]=90H / πR4 Z[2]=90Q / πR5 Z[3]= H2 / 24R6 Z[4]= Q2 / 24R7 Z[5]=H/2-H3 /240R28 Z[6]= Q/2-Q3 /240R29 O“T1”=（R+ Z[3]）10 U “T2”=(R+ Z[4])11 S=(AbsZ- Z[1]- Z[2])Rπ/180+H+Q12 A “ZH”=G-O13 B “HY”=A+H14 T “YH”=A+S-Q15 M“HZ”=A+S16 Z[9]=N+Ocos(F+180)17 Z[10]=E+O sin (F+180)18 Z[11]=N+Ucos(F+Z)19 Z[12]=E+U sin (F+Z)22 { k}Goto 5: ≠＞k≤B＝＞≠＞k≤M ＝＞≠＞Goto 025 { VD}K-A）27 Z[7]=L-L5/（40R2H2）28 Z[8]= L3/（6RH）- L7/（336 R3H3）29 C=√－（Z[7]2+ Z[8]2）：J= tan-1（Z[8]/ Z[7]）30 I=180 L2/（2πRH）△31 Z＞32 W=F+IP33 X= Z[9]+C cos(F+JP)+ Dcos(W+180-V)▲Y= Z[10]+Csin (F+JP)+ D sin(W+180-V) ▲“ZXGL”△35 { VD}K-B）37 I=(L/R+H/2/R)*180/π38 Z[7]=R sinI+ Z[5]39 Z[8]=R(1-cosI)+ Z[3]40 C=√－（Z[7]2+ Z[8]2）：J= tan-1（Z[8]/ Z[7]）41 Z＞0 ＝＞P =1：≠＞P= -1 △42 W=F+IP43 X= Z[9]+C cos(F+JP)+ Dcos(W+180-V)▲Y= Z[10]+Csin (F+JP)+ D sin(W+180-V) ▲ Prog “ZXGL”△44 Lb1 345 { VD}K-M）47 Z[7]= L-L5/（40R2Q2）48 Z[8]= L3/（6RQ）- L7/（336 R3Q3）49 C=√－（Z[7]2+ Z[8]2）：J= tan-1（Z[8] / Z[7]）50 I=180 L2/（2πRQ）△51 Z＞52 W=F+Z - IP53X=Z[11]+Ccos(F+Z-JP-180)+Dcos(W+180 -V) ▲ Y= Z[12]+Csin (F+Z-JP-180)+D sin (W+180-V) ▲ Prog “ZXGL”△55 { VD}K-M）57 W=F+Z58 X=Z[11]+LcosW+Dcos(W+180-V) ▲Y= Z[12]+Lsin W+ D sin (W+180-V) ▲ZXGL”△60 { VD}K-A）62 W=F63 X=Z[9]+Lcos(W+180)+Dcos(W+180-V) ▲Y= Z[10]+Lsin (W+180)+ D sin(W+180-V) ▲“ZXGL”△“ZXGL”（子文件）2 { K}3 G=22338.223 : N=204739.5 :E=2412.7 : R=800 : H=110 : Q=110 :F=213022’48” : Z=16022’32.1” :K≤22506.679 ＝＞Prog “RMGL”△.4 G=22919.881 : N=204362.6 :E=1967.4 : R=1000 : H=150 : Q=150 :F=229045’20” : Z=-17052’8.7” :K≤23149.409 ＝＞Prog “RMGL”△5 G=24321.732 : N=203169.9 :E=1225.4 : R=520 : H=210 : Q=210 :F=211053’11.3”:Z=-4907’12.4”:K≤24633.426“RMGL”△6 G=24868.523 : N=202616.7 : E=1397:R=550 : H=151.39 : Q=151.39 :F=162045’58.9”:Z=32014’17.6”:K≤25094.281“RMGL”△注: G 交点桩号N 交点桩号X坐标E 交点桩号Y坐标R 圆曲线半径H 缓和曲线长度Q 缓和曲线长度F 方位角Z 转角值(左为- 右为+)K 第二缓和曲线终点(圆曲线终点)操作数据： K 放样桩号D 与中桩距离（中桩为0，左-，右+）V 与中线夹角（中桩为0，左-90，右90）一个程序只能实行一个S曲线如二个必须重新编一个程序。

4800公路测量放样计算程序

4800公路测量放样计算程序CASIO fx-4800P计算器程序DA DI——N E (公路弯道坐标计算)K“JD”：R：S“LS”：F“PJ——L－R＋”：A“ZH——N”：B“ZH——E”：C“JD——N”：D“JD——E”M“ZH”=K－（R＋S2÷（24R））tan（Abs F÷2）－S÷2＋S^3÷（240R2）▲N“HY”=M＋S▲O“QZ”=M＋（πRAbs F÷180＋S）÷2▲Z[1]“YH”=M＋πRAbs F÷180▲Q“HZ”= Z[1]＋S▲T=K－M▲L=Q－M▲E=（R＋S2÷（24R））÷cos（F÷2）－R▲Lb1 0：{G}：G“ZHUANG HAO”：G＜O＝=＞Z=G－M≠=＞Z=Q－G：△{U}：U“I——B OUT＋IN－”Z＜S＋0.005＝=＞H=tan-1（24Z2S2R2－Z^6）÷（48Z^3R^3－6Z^4SR））：V=Z－Z^5÷（40S2R2）＋Usin H：W=Z^3÷（6SR）－Z ^7÷（336Z^3R^3）－Ucos H：≠=＞H=180（Z－S÷2）÷（πR）：V=Rsin H＋S÷2－S^3÷（240R2）＋Usin H：W=R－Rcos H＋S2÷（24R）－Ucos H：△F＜0＝=＞G＜O＝=＞X=V：Y=W：≠=＞X=T＋Tcos F－Vcos F－Wsin Abs F：Y=Tsin Abs F －Vsin Abs F＋Wcos F：△≠=＞G＜O＝=＞X=V：Y=－W：≠=＞X=T＋Tcos F－Vcos F－Wsin Abs F：Y=Vsin Abs F－Tsin Abs F－Wcos F：△△C=A＝=＞D≥B＝=＞P=90：≠=＞P=270：△≠=＞C＜A＝=＞P= tan-1（（D－B）÷（C－A））＋180：≠=＞P= tan-1（（D－B）÷（C－A））：△△I“COM——N”=A＋√（X2＋Y2）cos（P－tan-1（Y÷X））▲J“COM——E”=B＋√（X2＋Y2）sin（P－tan-1（Y÷X））▲G=G＋20Goto 0程序运行输入：JD？——交点桩号R？——圆曲线半径LS？——缓和曲线长度PJ——L－R＋？——偏角右偏为正ZH——N？——ZH点N坐标ZH——E？——ZH点E坐标JD——N？——JD点N坐标JD——E？——JD点E坐标输出：ZH= ——ZH点桩号HY= ——HY点桩号QZ= ——QZ点桩号YH= ——YH点桩号HZ= ——HZ点桩号T= ——切线长L= ——曲线长E= ——外矢距再输入：ZHUANG HAO？——输入任一点桩号I——B OUT＋IN－？——距中线距离（外侧为正）再输出：COM——N= ——计算出N坐标COM——E= ——计算出E坐标以此循环——再输入——再输出程序中各字母所代表的含义：A——ZH点N坐标B——ZH点E坐标C——JD点N坐标D——JD点E坐标E——外矢距F——偏角（右偏为正）G——弯道内任一点桩号H——弯道内任一点切线角I——计算出的N坐标J——计算出的E坐标K——交点桩号L——曲线长M——ZH点桩号N——HY点桩号O——QZ点桩号P——ZH--JD方位角Q——HZ点桩号R——圆曲线半径S——缓和曲线长度T——切线长U——距中线距离（外侧为正）V——支距W——支距X——弯道内坐标Y——弯道内坐标Z——任一点曲线长度Z[1]——YH点桩号。

4800程序

卡西欧Fx-4800P计算器测量程序一、坐标放样源程序ZBFYU“Xc”:M“Yc”:O“XH”:Q“YH”:I=O-U:J=Q-M: Pol(I，J):J＜0＝＞J=J+360:≠＞J=J:⊿T“HF” =J◢I“HL”◢X=0=＞W“XQ” =U+Lcos(T+P“a”)◢S“YQ” =M+Lsin(T+P)◢≠＞I=X-U:J=Y-M: Pol(I，J):J＜0＝＞J=J+360:≠＞J=J⊿I“QL=”◢H“QF” =J◢J=H-T:J＜0=＞J=J+360◢≠＞J=J使用说明:XH—后视点X坐标 YH—后视点Y坐标XC—置镜点X坐标 YC—置镜点Y坐标HF—后视方位角 QF—前视方位角HL—后视距离 QL—前视距离X、Y—前视点坐标 J—仪器后视归零后拨角当X=0时运行坐标反算QL—测设点到置镜点的距离а—测设点与后视点夹角XQ—测设点的X坐标 YQ—测设点的Y坐标二、复合辛卜生公式计算曲线元坐标源程序XBS—XY(已知里程求坐标)A“QD”:Z“ZD”:R“R0”:V“RN”:D“X0”:E“Y0”:F“F0”:K:L“B”:P“а”:J:Prog “SIM1”:W＜0＝＞W=W+360:≠＞W=W⊿W“FWI=”◢X=X◢Y=Y◢XBS—L、B(已知坐标求里程和边距)A“QD”:Z“ZD”:R“R0”:V“RN”:D“X0”:E“Y0”:F“F0”:K”K”(输入大致里程)I=X:B=Y:K=A+Abs((Y-E)cos(F+P“a”-180)+(X-D)sin(F+P-180):Lbl 1:L=0:Prog“SIM1”:C=(B-Y)cos(W+P-180)- (I-X)sin(W+P-180): AbsC＜10∧-4＝＞Goto2: ≠＞K=K+C∶Goto1:⊿Lbl2:L=0:Prog“SIM1”:C=(B-Y)÷sin(W+P):K=K◢C“B=”◢子程序SIM1T=(J÷V-J÷R)÷(Z-A)H=(K-A)÷NS=90H÷πW=F+((TNH+J÷R)+J÷R)NS: G=1:X=D+H÷6×(cosF+cosW+4×Σ(cos(F+((G+0.5)HT+2J÷R)(G+0.5)S),G,0,(N-1))+2Σ(cos(F+(THG+2J÷R)GS,G,1, (N-1)))+Lcos(W+P):Y=E+H÷6×(sinF+sinW+4×Σ(sin(F+((G+0.5)HT+2J÷R)(G+0.5)S,G,0,(N-1))+2×Σ(sin(F+(THG+2J÷R)GS,G,1,(N-1)))+Lsin(W+P)使用说明:QD—起点里程 ZD—终点里程R0—起点半径 RN—终点半径J—曲线转向 (左转为-1 直线为0 右转为+1)X0、Y0—线元起点坐标 F0—起点方位角K—待求点里程 N—计算精度(可取4～12的整数)а—边桩与中线右交角 B—边桩到中桩的距离，左“-”右“+”X、Y —待求点坐标 K—待求点里程三、数据库的编制以每个线元为一段先付参数值，例K≥542.759＝＞K≤686.148＝＞A”起点里程”=542.7590:Z终点里程=163.5:R起点半径=10^45: V终点半径=10^45:D起点坐标=22236.147:E起点坐标=32145.669:F起点切线方位角=81°22′42″:J＝0:⊿⊿K≥987.324＝＞K＜10234.021＝＞A=……J=－1⊿⊿……Prog“XBS—XY”四、纵断高程计算Lbi 0R:T:D”K(JD)”:H”H(JD)”:U”I1”:V”I2”:｛K｝V＞U=＞G=1:≠＞V＜U=＞G=-1⊿⊿K≤D-T=＞L=D-KP=H-LU/100≠＞K≤D=＞L=K-D+TP=H-U(D-K)/100+GL2/2R≠＞K≤D+T=＞L=D+T-KP=H+V(K-D)/100+GL2/2R≠＞K＞D+T=＞L=K-DP=H+LV/100⊿⊿⊿⊿P”H=”▲Goto 0H:高程、 K：变坡点里程、H：变坡点高程、I1、I2前后坡度五、中轴旋转、超高计算: (1)IR,(2)IL线路左转输2，W（Z）：中分带宽度，K：桩号，H（Z）：中桩设计高程，W（L）左侧宽度，W（R）：右侧宽度Lbi 1G”(1)IR,(2)IL”:D”K(ZH)”:S”LS1”:H”LS2”:Q”LY”:W”W(Z)”:I”I1”:J”IB”｛KVAE｝:K:V”h(Z)”:A”W(L)”:E”W(R)”G=2=＞G=-1⊿｛KPAB｝:K:P”H(Z)”:A”W(L)”:B”W(R)”Prog”XZ”:U”H(L)=”▲V”H(R)=”▲Goto11、子程序：XZG=1=＞U=A：V=B：≠＞G=-1=＞U=B：V=A⊿⊿K≤D=＞R=P-I（U-W/2）/100：E=P-I（V-W/2）/100：≠＞K≤D+S=＞Prog”ZXA”: ≠＞K≤D+S+Q=＞R=P+J(U-W/2)/100:E=P-J(V-W/2)/100: ≠＞K≤D+S+Q+H=＞Prog”ZXB”: ≠＞K＞D+S+Q+H=＞R=P-I(U-W/2)/100:E=P-I(V-W/2)/100⊿⊿⊿⊿⊿G=1=＞U=R:V=E: ≠＞G=-1=＞U=E:V=R⊿⊿2、子程序： ZXAL=K-DR=P-I(U-W/2)/100+L(U-W/2)(I+J)/100SL≤2IS/(I+J) =＞E=P-I(V-W/2)/100: ≠＞L＞2IS/(I+J) =＞E=P-LJ(V-W/2)/100S ⊿⊿3、子程序： ZXBL=D+S+Q+H-KR=P-I(U-W/2)/100+L(U-W/2)(I+J)/100HL≤2IH/(I+J) =＞E=P-I(V-W/2)/100: ≠＞L＞2IH/(I+J) =＞E=P-IJ(V-W/2)/100H ⊿⊿六：边轴旋转超高计算：L：平曲线长度，I1正常横坡，IB超高横坡。

4800公路测量放样计算程序

4800公路测量放样计算程序CASIO fx-4800P计算器程序DA DI——N E (公路弯道坐标计算)K“JD”：R：S“LS”：F“PJ——L－R＋”：A“ZH——N”：B“ZH——E”：C“JD——N”：D“JD——E”M“ZH”=K－（R＋S2÷（24R））tan（Abs F÷2）－S÷2＋S^3÷（240R2）▲N“HY”=M＋S▲O“QZ”=M＋（πRAbs F÷180＋S）÷2▲Z[1]“YH”=M＋πRAbs F÷180▲Q“HZ”= Z[1]＋S▲T=K－M▲L=Q－M▲E=（R＋S2÷（24R））÷cos（F÷2）－R▲Lb1 0：{G}：G“ZHUANG HAO”：G＜O＝=＞Z=G－M≠=＞Z=Q－G：△{U}：U“I——B OUT＋IN－”Z＜S＋0.005＝=＞H=tan-1（24Z2S2R2－Z^6）÷（48Z^3R^3－6Z^4SR））：V=Z－Z^5÷（40S2R2）＋Usin H：W=Z^3÷（6SR）－Z ^7÷（336Z^3R^3）－Ucos H：≠=＞H=180（Z －S÷2）÷（πR）：V=Rsin H＋S÷2－S^3÷（240R2）＋Usin H：W=R－Rcos H＋S2÷（24R）－Ucos H：△F＜0＝=＞G＜O＝=＞X=V：Y=W：≠=＞X=T＋Tcos F－Vcos F－Wsin Abs F：Y=Tsin Abs F －Vsin Abs F＋Wcos F：△≠=＞G＜O＝=＞X=V：Y=－W：≠=＞X=T＋Tcos F－Vcos F－Wsin Abs F：Y=Vsin Abs F－Tsin Abs F－Wcos F：△△C=A＝=＞D≥B＝=＞P=90：≠=＞P=270：△≠=＞C＜A＝=＞P= tan-1（（D－B）÷（C－A））＋180：≠=＞P= tan-1（（D－B）÷（C－A））：△△I“COM——N”=A＋√（X2＋Y2）cos（P－tan-1（Y÷X））▲J“COM——E”=B＋√（X2＋Y2）sin（P－tan-1（Y÷X））▲G=G＋20Goto 0程序运行输入：JD？——交点桩R？——圆曲线半径LS？——缓和曲线长度PJ——L－R＋？——偏角右偏为正ZH——N？——ZH点N坐标ZH——E？——ZH点E坐标JD——N？——JD点N坐标JD——E？——JD点E坐标输出：ZH= ——ZH点桩号HY= ——HY点桩号QZ= ——QZ点桩号YH= ——YH点桩号HZ= ——HZ点桩号T= ——切线长L= ——曲线长E= ——外矢距再输入：ZHUANG HAO？——输入任一点桩号I——B OUT＋IN－？——距中线距离（外侧为正）再输出：COM——N= ——计算出N坐标COM——E= ——计算出E坐标以此循环——再输入——再输出程序中各字母所代表的含义：A——ZH点N坐标B——ZH点E坐标C——JD点N坐标D——JD点E坐标E——外矢距F——偏角（右偏为正）G——弯道内任一点桩号H——弯道内任一点切线角I——计算出的N坐标J——计算出的E坐标K——交点桩号L——曲线长M——ZH点桩号N——HY点桩号O——QZ点桩号P——ZH--JD方位角Q——HZ点桩号R——圆曲线半径S——缓和曲线长度T——切线长U——距中线距离（外侧为正）V——支距W——支距X——弯道内坐标Y——弯道内坐标Z——任一点曲线长度Z[1]——YH点桩号有缓和曲线或无缓和曲线任意桩号中、边桩坐标4800计算程序四、QXZB(曲线坐标)A＂ZH(ZH)=″:B＂X(ZH)=″:C＂Y(ZH)=″ ＂X(HZ)=″:E＂Y(HZ)=″:F＂FWJ-1=″:G＂FWJ-2=″:H＂R=″:I＂L1=″:J＂L=″:K＂L2=″:L＂ZJ(Z=1,Y=-1)=″O=180/pi (pi为圆周率，电脑中找不到此符号以此代替)LbI A{MN}M＂ZHUANG HAO=″P=M-AMM>(A+I+J+K)?GOTO A⊿N＂ZHUANG JU(Z+,Y-)=″M>(A+I+J)?GOTO D⊿M>(A+I)?GOTO C⊿LbI B(第一缓和曲线)X=B+(P-(P5÷40÷H2÷I2))COSF+(P3÷6÷H÷I-P7÷336÷H3÷I3)LSINFY=C+(P-(P5÷40÷H2÷I2))SINF-(P3÷6÷H÷I-P7÷336÷H3÷I3)LCOSFX=X+NCOS(F-(P2÷2÷H÷I)OL-90)◢Y=Y+NSIN(F-(P2÷2÷H÷I)OL-90)◢GOTO ALbI C(圆曲线)X=B+(HSIN(((P-I)÷H+I÷2÷H)O)+(I÷2-I3÷240÷H2))COSF-(H(1-COS(((P-I )÷H+I÷2÷H)O))+ I2÷24÷H)(-1)LSINFY=C+(HSIN(((P-I)÷H+I÷2÷H)O)+(I÷2-I3÷240÷H2))SINF+(H(1-COS(((P-I )÷H+I÷2÷H)O))+I2÷24÷H)(-1)LCOSFX=X+NCOS(F-((P-I)÷H+I÷2÷H)OL-90)◢Y=Y+NSIN(F-((P-I)÷H+I÷2÷H)OL-90)◢GOTO A回答人的补充 2009-06-21 01:41LbI D(第二缓和曲线)Q=A+I+J+K-MX=D-(Q-Q5÷40÷H2÷K2)COSG+(Q3÷6÷H÷K-Q7÷336÷H3÷K3)LSINGY=E-(Q-Q5÷40÷H2÷K2)SING-(Q3÷6÷H÷K-Q7÷336÷H3÷K3)LCOSGX=X+NCOS(F-(I÷2÷H+J÷H+K÷2÷H-Q2÷2÷H÷K)OL-90)◢Y=Y+NSIN(F-(I÷2÷H+J÷H+K÷2÷H-Q2÷2÷H÷K)OL-90)◢GOTO A变量说明：以上变量依次为：ZH(ZH)=直缓点桩号，无缓和曲线则为直圆点；X(ZH)=直缓点X坐标；无缓和曲线则为直圆点；Y(ZH)=直缓点Y坐标，无缓和曲线则为直圆点；X(HZ)=缓直点X坐标，无缓和曲线则为圆直点；Y(HZ)=缓直点Y坐标，无缓和曲线则为圆直点；FWJ-1=第一切线方位角；FWJ-2=第二切线方位角；R=半径；L1=第一缓和曲线长；L=圆曲线长；L2=第二缓和曲线长；ZJ(Z=1,Y=-1)=转角形式(左=1，右=-1)ZHUANG HAO=所求点桩号ZHUANG JU(Z+,Y-)=边桩桩距，左边桩为正，右为负，中桩0我已经用过了，没发现什么问题，请大家提意见。

4800计算器常用测量计算程序

键即可。 FILE ，其余操作同①。
Prog
③ SHIFT
“DXJS”。
2．程序启动后，按照显示屏上的提示进行操作： ①“N=？” ，输入导线转折角总数。如：图 1.1—1 中，N=5；图 1.1—2(a、b)中，N=6；图 1.1—3 中，N=5。， ②“X1=？”“Y1=？” 对于图 1.1—1，图 1.1—2b、图 1.1—3 的图形，输入 A 点的已知坐标 XAYA。若已知 AB 边的坐标方位角αBA 则输入：X1=αBA（以小数形式输入：度、分、秒） 1=0，，Y
2.程序清单程序清单
2．1 各主程序 2．2 各子程序
1 程序使用说明
1.1 导线计算程序
（程序名：DXJS）
一、程序功能
本程序可用于进行单一导线（包括附合导线、闭合导线、支导线）的简易平差计算；同时还可计算以该导线点为测站点、定向点的极坐标点的坐标。
二、图形说明
本程序适合于以下图形的单一导线： 1.附合导线(图 1.1—1)
常用测量计算程序
（适用于 CASIOfx—4800P 计算器）
南昌徕特
有限公司
测绘仪器经营维修部
地址：江西省南昌市北京东路 220 号南昌大学南区对面电话：（0791）8302887
南昌大学土木工程系
目
1.程序使用说明程序使用说明
录
1．1 导线计算程序 1．2 公路任意中桩点、边桩点坐标或放样元素计算程序 1．3 方位角、边长反算程序 1．4 坐标交换计算程序 1．5 面积计算程序 1．6 交点坐标计算程序 1．7 点到直线的距离计算程序 1．8 高斯投影坐标正、反算及换带计算程序
桩点坐标或放样元素（方位角 A 或边长 S）。然后，只要输入任意点的里程 LP，即可计算出该点的中桩点，左、右边桩点的坐标或放样元素。若为桥涵点，还应输入公路中线之法线与桥涵中线的交角 O0。交角 O 由公路中线之法线起算，顺时针为正值，反时针为负值。计算完每一点后，显示屏都会显示“GO ON？” ，若要继续计算，输入 1，否则输入 2，当显示屏显示“MOVE STATION？”时，输入 1，为搬站，需重新输入搬站后测站点、定向点坐标；输入 2，表示该段道路已算完，程序运行结束。

CASIO 4800计算器小程序使用说明

CASIO 4800计算器程序使用说明一、程序列表：1。

PQX：主程序，计算路线的中边桩坐标。

(1)"L0"--- 输入测段的近似桩号，来调取合适的平曲线要素数据，输入0则默认上次输的平曲线要素。

输入-1可以手工输入交点桩号JL，交点X坐标JX，交点Y坐标JY，I0为前一交点与本交点的直线方位角，J0为本交点的偏角(左负右正)，R为圆曲线半径，LS为缓和曲线长度，L1为上一交点的HZ(或YZ)的桩号，L2为下一交点的ZH(或ZY)桩号。

(2)"L"---输入计算点的桩号(3)"JJ"---输入与路线前进方向的右交角（正交为90）(4)"YC"---输入与中桩的距离(左侧为负,右侧为正)注:若JJ和YC中任一个输入为0,则可返回上一级,重新输入桩号计算.若YC输入为-1,可以输入实测点的坐标X和Y来反算与中桩宽度YC,桩号差值DL和该点的近似桩号L.(5)"X,Y"数值1数值2显示计算点的坐标值X,Y(6)"A,D"ddd°mm′ss″数值4显示测站点与放样点的方位角及平距(7)"TMP"---进入自由运算状态,若计算结果为0则退出该状态.该状态会破坏变量I的内容.(8)"YC"---输入-1进入反算桩号模式,程序要求输x,y坐标,若x,y坐标其中任一输入为0则退出该状态.2.LYC程序:两个作用:一是根据实测坐标反算桩号L和与中桩宽度YC, 二是根据输入的三维坐标x,y,z和输入的设计标高SG以及"YC0","HC0","M"来进行边坡放样.(1)"L0"--- 输入测段的近似桩号，(2)"XF","YF","ZF"----输入测点的三维坐标x,y,z若ZF输为0则只反算桩号,若不为0则进行边桩放样.(3)"DL"---反算桩号时显示中间结果桩号差值DL,若DL值过大,可以重新输入测段的近似桩号来计算.(4) "L,YC"---显示桩号L和与中桩距YC(左负右正),存在变量L和O中.(5) "SG:"---输入路基边缘的设计高程(请分清左右),存在变量Z[10]中.(6) TW---显示填挖高度值(负值为挖方高度,正值为填方高度),存在变量C中.(7) "YC0"-路基横断面图上最后一个变坡点与中桩的水平宽度(左右均为正值),存在变量P中.(8)"HC0"---路基横断面图上最后一个变坡点与路基边缘设计标高的高差,挖方平台为正值,填方平台为负值,存在变量Q中.(9) "M="---路基横断面图上最后一级边坡的坡比,存在变量T中.(10) "BL"---显示在实测标高位置的路基设计宽度,存在变量U中.(11)"DB"---显示设计宽度和实测宽度的差值,存在变量J中.若DB为负值,则应往中桩位置移动(宽度减小),若DB为正值,则应往路线外侧移动(宽度增大).3、ZZ子程序---计算中桩坐标以及前进方位角的子程序。

卡西欧4800坐标计算程序

QL（坐标反算）Lbi 0:C“X0”:D“Y0”:{XY}:X“X2”Y“Y2”:(X-C)=O=>Goto 1:≠Lbi 1:W“Q”=0◢Goto 0Lbi 2:Prog“FWJ”Fix 4W“Q”=IntW+0.01Int(60FracW)+0.006Frac(60FracW) ◢NormT“L”= ((X-C)2+(Y-D)2)◢Goto 0说明：（已知两点坐标，反算方位角及两点间的距离）先按FILE键，光标选择QL，按EXE运行。

输入：X0? 测站点（或起算点）X轴坐标，按EXEY0? 测站点（或起算点）Y轴坐标，按EXEX2? 后视点（或方向点）X轴坐标，按EXEY2? 后视点（或方向点）Y轴坐标，按EXE显示： Q 方位角（如：125.0325即表示125。

03’25”）,按EXE L 两点间距离再按EXE进行循环运算，重复输入X2？、Y2?否则按AC键退出。

XY(坐标正算)Lbi 0:C“X0”:D“Y0”:{WM}:W“Q”M“L”:X=C+McosW◢Y=D+MsinW◢Goto 0说明：（已知一点坐标、方位角、距离，求另一点坐标）先按FILE键，光标选择XY，按EXE运行。

输入：X0? 测站点（或起算点）X轴坐标，按EXE Y0? 测站点（或起算点）Y轴坐标，按EXE Q? 已知方位角，按EXEL? 两点间距离，按EXE显示：X 所求点X轴坐标，按EXEY 所求点Y轴坐标，按EXE再按EXE进行循环运算，重复输入Q? 、L?否则按AC键退出。

ZX（直线坐标计算）Lbi 0:G“QD”：A“QDX”: B“QDY”:Q“Q”:{L,K}:Prog“ZZ”:Goto 0说明：（计算直线段任意里程桩号坐标）先按FILE键，光标选择XY，按EXE运行。

输入：QD? 直线段起点里程，按EXEQDX? 起点X轴坐标，按EXEQDY? 起点Y轴坐标，按EXEQ? 已知方位角，按EXEL? 所求点里程，按EXEK? 所求点距中线的宽度（左负右正），按EXE显示：X 所求点X轴坐标，按EXEY 所求点Y轴坐标，再按EXE进行循环运算，重复输入L? 、K?否则按AC键退出。

史上最全的casio-4800工程测量程序(测量放样、坐标放点、导线放样[1]...)

1 XY边长及方位角反算Prog"A":L=J:Prog"B"◢Fix 3:I"D="◢Lbl 1:{S}:V"X"=X+Rec(S, L ◢U"Y"=Y+J ◢Goto 1输入：X1,Y1,X2,Y2.输出: L°=,D=.2 XY-1输入里程桩号计算中间点坐标Prog"A":L=J:Prog"B"◢Fix 3:I"D="◢{Z}: Z:Lbl 1:{G}:V"X"=X+Rec(Abs(G-Z, L ◢U"Y"=Y+J ◢Z-起始点里程桩号Goto 1Ｇ－任一点里程桩号3 JD两直线交点坐标计算Prog"A":Prog"C":L"L1":Prog"F":E=W+K:{L}:L"L2":Prog"F":C=V+K:S=tan E:T=tan C:G=S-T:A=A+0.0001U"X"=(SA-MT-B+N)/G◢Z"Y"=S(U-A)+B◢Pol(U-M,Z-N:I"D="输入X1,Y1,X2,Y2,X3,Y3.X4,Y4,L1,L2,输出X=,Y=,D=,4 ZBFD坐标放点Prog"A":Lbl 3:Fix 3:{MN}:Pol(M"X3"-A,N"Y3"-B:I"D="◢J=J-W+180:J<0=>J=J+360L=J:Prog"B"◢Goto 3输入:X1,Y1,X2,Y2,X3,Y3.输出:D,L°5 Z自由导线推算E=0:1F=0:Prog"A":Fixm:C=A:D=B:J[F]=J:Lbl 4:{LH}:L"L0":Prog"F":I[F]=J[F]+K-180:H[E+F]=H"D":Prog"R":C"X="◢D"Y="◢J[F]=I[F]:Goto 46 ZDX支导线计算X1Y1,X2Y2,为已知点坐标Prog"A":L°-角度用小数输入Lbl 4:输一组L°、D.得一个点的坐标{LS}:L:Prog"F":M"X3"=A+Rec(S,W+K+180◢N"Y3"=B+J◢Goto 4输入:X1,Y1,X2,Y2,L,S.输出:X3,Y3.L°—观测角度以下按小数点输入7 DX单一导线简易平差计算Prog"A":Prog"C":J=W:Ｉ=V:C=A-M:D=B-N:F=E"N":I[F]=J:Lbl 1:F=F-1:{GH}:I[F]=J[F]+G"L°"-180:I[F]<0=>I[F]=I[F]+360:≠>I[F]>360=>I[F]=I[F]-360H[E+F]=H"D":F>1=>Goto 1{G}:G=I[F]+G"L°"-180:G<0=>G=G+360:≠>G>360=>G=G-360I=G-I:W=12″[S]=620.790G"W"=602FracI ◢相对中误差:fS/[S]=1/88119fX=-0.007fY=0.000G=0:Lbl 2:I[F]=I[F]-I(E-F)/E:Prog"R":说明:F=F+1:N-观测角数,L°-左角按度分秒输入G=H+G:W-角度闭合差,fX,fY 坐标闭合差F<E=>Goto 2若用外(右)角计算闭合差程序中之I=G-I-360G"[S]="◢若用内(左)角计算闭合差程序中之I=G-II"fX"=C ◢本程序只能计算八个未知点,多于八个时每增加一个C=A:未知点,必需扩展两个储存器.A"fY"=D ◢D=B:B"fS/[S]"=Int(G/ √ (I I+AA ◢Lbl 3: F=F －1:Prog"R":C"X"=C-I H/G ◢D"Y"=D-AH/G ◢F>1=>Goto 38 WDX 无定向导线Prog"A":D=I:C=0:M=0:N=0:P:Lbl 0:P=P-1:{LS}:L"B°":Prog"F":F=K:C=C+F:C=0=>Goto 1C=C+180:Goto 1X1Y1,X2Y2,-已知点坐标Lbl 1:P-边数,B°-观测角,第一个角输入0,Rec(S,C:S-边长,Xf,Yf-增量累加数,记录侍用Fix 4:输入一组Xf,Yf,求得一组X Y,M"Xf"=M+I ◢用左角,度以下按小数输入.N"Yf"=N+J ◢P>0=>Goto 0Pol(-M,-N:R=W+180-J:K=D/I:V=Cos R:点号观测角边长Xf Yf X Y E=Sin R:Lbl 2:{HO}:H"Xf":O"Yf":Fix 3:T"X"=X+K(HV-OE ◢Z"Y"=Y+K(HE+OV ◢Goto 2B 为观测角,第一个角输入04119.5814110.7005102.2204969.5125029.9914887.630142.64164.8800-66.203843.11280.0000-211.5145-303.145023 0°00′00″ 42 28 06 277 33 42 A 1164.88313.274329.1104426.9529 QJD前交点(正弦公式)Prog"A":Prog"J":S=I Sin E/Sin(E+K:Prog"O"A°、B°-观测角,X1、Y1、X2、Y2-正切公式Prog"A":Prog"J":S=tan E:T=tan K:G=S －1＋T -1:M"X3"=(X/T+A/S-Y+B)/G ◢N"Y3"=(Y/T+B/S+X-A)/G 输入:X1,Y1.X2,Y2,A°,B°,输出:X3Y310 FX 方向交会Prog"A":Prog"J":S=tan E:T=tan K:G=S-T:M"X3"=(SX-AT-Y+B)/G ◢N"Y3"=S(M-X)+YX1Y1,X2Y2,为起算点坐标.A°,B°-方位角.X,Y--交点坐标11 CJ 侧方交会点Prog"A":Prog"J":S=I sin(E+K)/Sin K:{K}:K=0=>M"X"=A+Rec(S,W+E-180◢≠N"Y"=B+JX1Y1,X1'Y1',X2Y2--已知点坐标,A°B°-观测角,左右分开.左K=0,右K=1A=63° 33′06″B=92° 20′51″从左右两组算出坐标取中数为XYA ′=109° 59′39″B ′=50° 57′06″12 HJ后交点计算Prog"A":M"X3":X1=992.692X2=1012.499N"Y3":Prog"J":S=tan E:T=tan K:H=(Y-B)/S+X-A:F=(X-A)/S-Y+B:Q=(N-B)/T-M+A:V=(M-A)/T+N-B:K=(H+Q)/(F+V:X3=1063.248D=(H-FK)/(1+K2:Y4=999.997Y3=1000.000O"X4"=A+D◢X1Y1,X2Y2,X3Y3---已知点坐标P"Y4"=B+KD A°、B°----观测角X4Y4--测点坐标12HJ—1Prog〝A〞︰D=I︰（另一种后Pol（A－M〝X3〞，B－N〝Y3〞︰交公式）S=I︰G=J︰Prog〝J〞︰Z=180－（W－G＋E＋K）÷2︰Q=tan－1（D Sin C÷S Sin E︰H=tan－1（tan Z÷tan（45＋Q︰R=Z＋H︰T=D Sin（E＋R）÷Sin E︰O〝X〞=X＋T Cos（W＋R◢P〝Y〞=Y＋T Sin（J＋R13 LDHJ两点后交Prog"A": L"A°":Prog"F":C=K:{L}:X2=857.025X1=944.202L"B°":Prog"F":O=K:{L}:L"E°":Prog"F":E=K:{L}:L"F°":Prog"F":F=K:Y3=139.053N=Sin O/Sin(O+F:P=√(S2+M2-2SM Cos(C-O:观测角A°B°E°F°度以下按小数点输入.T=√(D2+N2-2DN Cos(F-E:K"D1"=2I"D0"/(P+T◢S"S1"=KS◢D"S2"=KD◢M"S3"=KM◢N"S4"=KN◢H=Cos-1((I2+S2-M2)/2IS:L=H:Prog"B":Z"H°="◢G=Cos-1((I2+N2-D2)/2IN:L=G:Prog"B":Z"G°="◢Fix 3:Q"X3"=A+Rec(S,W+H+180◢R"Y3"=B+J◢Q"X4"=A+Rec(D,W+E-F-L◢R"Y4"=B+JProg"A":Lbl 0:Prog"W":Fix 2:S=D(Sin K)2◢H=S/tan K+G◢{L}:Prog"F":输入:X1,Y1,X2,Y2,H0-起点高,T仪高,Prog"O"◢D-视距,S-平距,Z°—天顶距,P标高Goto 0输出:X3,Y3,S平距15 JZB极坐标法测碎部点坐标、高程Prog"A":G=E"H0"+T:Lbl 8:{LSV}:Prog"F":Prog"O"◢H=G+V"h"-P◢Goto 8输入:X1,Y1,X2,Y2, H0,T,L°，S，h求:X,Y,H.X3=273.29916 SD 垂距,垂点坐标计算Y3=208.502Prog"A":O=Sin J:P=CosJ:E=M"X3"-X:F=N"Y3"-Y:S=EP+FO ◢D=EO-FP ◢Y=252.157V"X"=X+Rec(S,W ◢U"Y"=Y+J注:D 为正时,3点在1-2之左侧;S 为正,3在1-2之线上;为负则在2--117 MM 坐标法计算多边形面积N: P=0: V=0:A"X":B"Y":E=A: F=B:Fix 3:Lbl 0:{XY}:X: Y:N=4(边数)Lbl 1:Pol(X-A,Y-B: I"S"◢P=P+(Y-B)(X+A)/2:A=X:B=Y:V=V+1:V ≠N=>Goto 0P"m 2"=Abs P ◢Q"mu"=1.5 m P18断面图封闭图形面积计算(高程相当于X,距离相当于Y,用相对坐标计算,)N:P=0:V=0:Y=0:A"H":B"D":E=A:69.8F=B: Fix 3:Lbl 0:N=V+1=>H=E: Y=F: Goto 1｛HD ｝:H:Y=Y+D:Lbl 1:m =32.795A=H:B=Y:N=多边形边数,V=V+1:H=转折点高程V ≠N=> Goto 0D=相邻两点距离P"m 2"=Abs P第一点D 输入0。

4800全套计算程序（吐血推荐）

4800全套计算程序（吐⾎推荐）整套卡西欧计算器CASIO FX-4800 4500测量程序各位同⾏：我长年从事公路桥梁测绘⼯作，收集整理了⼀整套卡西欧计算器CASIOFX-4800P和卡西欧CASIO FX-4500P测量放线程序，该套程序经过反复修正，具有极⾼的可靠性。

现在免费提供给⼤家.程序⽬录：1.1 测边⼤地四边形的条件平差程序1.2 测边中点多边形的条件平差程序1.3 单⼀导线的严密平差程序1.4 单⼀结点导线的严密平差程序1.5 边、⾓后⽅交会的条件平差程序1.6 测边交汇点的条件平差程序1.7 单⼀⽔准路线的平差程序1.8 单结点的平差程序1.9 多结点⽔准⽹的平差程序1.10 多边形⽔准⽹的平差程序1.11 三⾓⾼程差的计算程序1.12 测距边⽔平距离的计算程序1.13 ⾼斯投影座标正、反解和换带的计算程序1.14 平⾯座标转移的计算程序2.1 单边、⾓后⽅交会的计算程序2.2 双边、⾓后⽅交会的计算程序2.3 碎部点座标的计算程序2.4 内、外分点座标的计算程序2.5 房⾓标的计算程序2.6 多次后⽅测⾓交会点2.7 测边交会点的计算程序2.8 导线三维值的计算程序2.9 圆⼼座标和半径的程序2.10 测站点、照准点归⼼改正的计算程序2.11 单边、双站后⽅交会的计算程序3.1 线路中⼼座标的计算程序3.3 红线交点座标的计算程序3.4 直线与圆曲线交点座标的计算程序3.5 垂⾜座标的计算程序3.6 道路不等宽时曲线要素的计算程序3.7 缓和曲线敷设时的计算程序3.8 圆曲线敷设时的计算程序3.9 极座标放线线的计算程序3.10 交点座标的计算程序3.11 宗地有关项⽬的计算程序3.12 丘地有关项⽬的计算程序4.1 导线X、Y、Z值的近似平差程序4.2 ⽆定向导线的计算程序4.3 测⾓前⽅交会点座标的计算程序4.4 测边交会座标的计算程序4.5 测⾓后⽅交会点座标的计算程序4.6 双边、⾓后⽅交会点座标的计算程序4.7 平⾯座标转移的计算程序4.8 测站点、照准点归⼼改正的计算程序4.9 三⾓⾼程⾼差的计算程序4.10 测距边⽔平距离的计算程序4.11 单⼀导线的严密平差程序4.12 边、⾓后⽅交会点的严密平差程序4.13 测边交会点的严密平差程序5.1 图跟导线点座标的计算程序5.2 碎部点座标的计算程序5.3 内、外分点座标的计算程序5.4 ⾓座标的计算程序5.5 圆⼼座标的和半径的计算程序5.6 交点座标的计算程序5.7 单边、⾓交会点座标的计算程序5.8 宗地有关项⽬的计算程序5.9 单边、双站后⽅交会座标的计算程序6.1 线路边桩座标的计算程序6.3 直线与曲线交点座标的计算程序6.4 道路不等宽时曲线元素的计算程序6.5 垂⾜座标的计算程序6.6 圆曲线敷设的计算程序6.7 缓各曲线敷设的计算程序6.8 极座标放线的计算程序6.9 单⼀⽔准路线的近似平差计算程序6.10 丘地有关项⽬的计算程序公路中、边桩坐标计算及放样程序功能：任意半径曲线中桩、任意交⾓边桩坐标计算放样、中桩切线⽅位⾓、任意点置仪放样、两点间距离计算、两点⽅位⾓计算。

卡西欧4800P计算器大地坐标放样程序

计算点K
LX
置仪点
置方位角预
后视点
eh曲线外距p输入1时计算测点的左边点输入0时计算中点
主程序 WTO
(卡西欧 4800P 计算器用坐标放样程序)
L“L1”E“L2”A“ZH”：Z：F：U“JX”V“JY”M“X0”N“Y0”：J=180/πR：B“HZ”=A+Z/J+L/2+E/2▲ W“-1，1”：Prog“K”↙ LIb0：｛K｝：｛H｝：｛P｝：K≤A ＞Goto1△K≤A+L ＞Goto2△K＜B-E ＞Goto3△ K≤B ＞Goto4△Goto5△↙ LIb1：S=K-A：X=U-TcosF+ScosF+Hcos（F+90P）▲Y=V-TsinF+SsinF+Hsin（F+90P）▲Goto6↙ LIb2：S=K-A：Prog“A”：Goto6↙ LIb3：S=K-A-L：Prog“B”：Goto6↙ LIb4：S=B-K：Prog“C”：Goto6↙ LIb5：S=K-B：X=U+(I+S)cos(F+WZ)+Hcos(F+WZ+90P)▲ Y=V+(I+S)sin(F+WZ)+Hsin(F+WZ+90P)▲Goto6↙ LIb6：X≠M ＞Prog“G”↙ Goto0 子程序G：
L1－第一缓和曲线总长；L2－第二缓和曲线总长；Z－曲线总转角；F－ZH点至JD点的方位角：
-1 2 缓点桩号；HZ－缓直点桩号；JX－交点的横坐标(N)；JY－交点的纵坐标(E)； X0－置仪点的横坐标(N)；ZY－置仪点的纵坐标(E)；R－曲线半径：HZ－缓直点桩号； “-1，1?"—曲线左转时输如“-1”，曲线右转时输入“+1”；Eh——曲线外距 K－测点的桩号；H－测点边桩与中线之间的距离； P－输入“-1”时计算测点的左边点，输入“0”时计算中点；输入“+1”时计算右边点 X－测点的点的横坐标(N)；Y－测点的纵坐标(E)； LX－测距；C－置仪点与测点间的方位角(即拨角)。注：应用此程序时须预置置仪点至后视点间的方位角。

卡西欧4800公路测量程序

卡西欧4800公路测量程序第一章：基本符号1、X0——始点横坐标2、Y0——始点纵坐标3、X1——终点横坐标4、Y1——终点纵坐标5、D——始点到终点的水平距离6、F——始点到终点的方位角7、X(P1)——P1点的横坐标8、Y(P1)——P1点的纵坐标9、X(P2)——P2点的横坐标10、Y(P2)——P2点的纵坐标11、D(OP1)——置仪点到P1的水平距离12、D(OP2)——置仪点到P2的水平距离13、F(OP2)——置仪点到P2的方位角14、X(00)——置仪点的横坐标15、Y(00)——置仪点的纵坐标16、JD，JD(AB)——选择输入1或者2（1）JD——实交（2）JD(AB)——虚交17、IR、IL——选择输入1或者2（1）IR——路线右转（2）IL——路线左转19、(1) E-R; (2) T-R——选择输入(1)或(2)（1）E-R——继续E长控制半径R（2）T-R——T长控制半径R19、(1) E-R; (2) END——选择输入(1)或(2)（1）E-R——继续E长控制半径R测曲中（2）END——结束20、(1)S1，(2)S2，(3)R2——选择输入(1)或(2)或(3)(反复曲线S型)（1）S1——进入第一条曲线测量（2）S2——进入第二条曲线测量（3）R2——这是由第二条曲线测设后，进入第一条曲线测，在进入第二条曲线直接测量曲中21、(1)R1，(2)R2，(3)END——选择输入(1)或(2)或(3)(反复曲线S型)（1）R1——如对曲线一、二的测设皆不满意，可输入1，进入第一条曲线的测设，结束后输入3，进入第二条曲线的测设（2）R2——(2)R2:如对曲线二的邪恶设不满意，可输入2，再测曲中（3）END——结束22、X(QZ)——曲中的横坐标23、Y(QZ)——曲中的纵坐标24、D(QZ)——置仪点到曲中的水平距离25、F(QZ)——置仪点到曲中的方位角26、K——输入桩号27、W(L)——左侧边桩距离中桩的水平距离28、W(R)——右侧边桩距离中桩的水平距离29、X(L)——左侧边的桩横坐标30、Y(L)——左侧边的桩纵坐标31、H(L)——左侧边的高程32、D(L)——置仪点到左侧边桩的水平距离33、F(L)——置仪点到左侧边桩的方位角34、X(Z)——中桩的横坐标35、Y(Z)——中桩的纵坐标36、H(Z)——中桩的高程37、D(Z)——置仪点到中桩的水平距离38、F(Z)——置仪点到中桩的方位角39、X(R)——右侧边桩的横坐标40、Y(R)——右侧边桩的纵坐标41、H(R)——右侧边桩的高程42、D(R)——置仪点到右侧边桩的水平距离43、F(R)——置仪点到右侧边桩的方位角44、F1——第一条线路的方位角45、F2——第二条线路的方位角46、JA——虚交JDA转角47、JB——虚交JDB转角48、ａ——路线转角49、R——平、竖曲线半径50、R1——第一天曲线半径51、R2——第二条曲线半径52、L S——缓和曲线长度53、L S1——第一缓和曲线长度54、L S2——第二缓和曲线长度55、T——平、竖曲线切线长度56、T1——第一平曲线切线长度57、T2——第二平曲线切线长度62、L——平、竖曲线长度63、L1——第一平曲线长度64、L2——第二平曲线长度65、E——平、竖曲线外距66、E1——第一平曲线外距67、E2——第二平曲线外距68、LY——圆曲线长度69、L Y1——第一圆曲线长度70、L Y2——第二圆曲线长度72、K(JD) ——交点桩号73、AB——虚交JDA—JDB的水平距离74、ZH——直缓点桩号75、HY——缓圆点桩号76、QZ——曲中点桩号77、YH——圆缓点桩号78、HZ——缓直点桩号79、GQ——公切点桩号80、N°——右角顺时针第二章：路线测量与道路施工放样计算程序第一节：已知两点坐标求距离和方位角计算程序【例题1】如图1-1，已知A点坐标A(100,100)， XB点坐标B(-100,-100)。

卡西欧4800计算器测量放样程序汇编

卡西欧4800计算器测量放样程序汇编4800程序使用说明书程序代码术语：连续曲线数据块、独立曲线数据块、长短链功能：1、放样对应里程中心点2、放样对应里程旋转任意角度外移点（图A点）3、放样对应里程旋转任意角度外移点的外移点（图B点）4、获取放样点坐标及对应里程中心点沿线路前进方向切线方位角程序输入注意事项：1、常用程序文件放在前面，便于调用，一般先建立“CIRCLE”、“XY-AL”、“AL-XY”三文件，文件名千万不能输错。

2、加粗带下划线词组为计算器中的函数或符号，只能从计算器中调出此函数或符号，不能从键盘输入。

符号←表示回车键“EXE”坐标输入通用格式：屏幕显示OPP NAME?（置镜点名称）或CPP NAME?（后视点名称）：1：输入-1：手动输入坐标X,Y2：输入大于1数字：输入用数字所代表的控制点名。

如数据库中没有本数字所代表的点名，则系统显示SynERROR in…（文件名）。

曲线放样程序（CIRCLE）运行说明：步骤1：屏幕提示“LOAD?”（输入曲线要素）1.1：输入1（默认）：输入里程后将自动判断所在曲线并调用（此功能必须保证曲线数据库中有连续曲线数据块，具体详见数据库建立）。

1.2：输入-1：屏幕提示手动输入各曲线要素，ZJ（转角）、R（半径）、L0(缓和曲线长)、ZH KM(直缓里程)、JDX(曲线交点X坐标)、JDY(曲线交点Y坐标)、A0(起始直线边前进方向方位角)、1 R,-1 L(右偏输入1，左偏输入-1)。

1.3：输入大于1的数字：输入用数字代表的曲线名称，比如13，表示放样点位于曲线13 上（曲线名称在建立数据库是自己命名，但一定要大于1）。

如库中没有此名称，系统显示“Syn ERROR in CIRCLE”。

（此功能必须保证曲线数据库中有独立曲线数据块）步骤2：屏幕提示“OPP NAME?”（输入置镜点名称）详见坐标输入格式。

步骤3：屏幕提示“DK+M?”（输入放样点对应中心里程）如K15+002.35应输入15002.35。

卡西欧4800程序

支导线程序(fx4800P)ZDXProg”006”:A=J:Z”1—2”:X=U:Y=W:LbI0:{Q}:Q”Q=”:{L}:L”L=”:X=X+LCos(A+Q):Y=Y+LSin(A+ Q): X”X=”▲ Y”Y=”▲A=A+Q+180:Z=2=>X=U:Y=W:A=J△Goto0放样程序(fx4800P)FYProg”006”: LbI0:{X}:X”X=”:{Y}:Y”Y=”: Prog”007” :Goto0竖曲线程序(fx4800P)SHU--QXI“I=”:J”J=”:R”R=”:W=I-J:C=Abs(RW)/1000:T=C/2:E=T^2/(2R): C”L=”▲ T”T=”▲ E”E=”▲W<0=>K=1△W>0=>K=-1△D”BIAN—LI=”:Z”BIAN—H=”:A=Z+(-IT)/1000:LbI0:{L}:L”DK=”:L≤D-T=>H=Z+(D-L)(-I/1000)△L>D-T=>H=A+I(L-(D-T))/1000+K(L-(D-T))^2/(2R) △L≥D+T=>H=Z+J(L-D)/1000△H”H=”▲Goto0已知点坐标求对应里程和距离(fx4800P)1、主程序(DYLC)Defm42: AB”N1=”C”N2=”:R:Pro g”000” :Pro g”009”:E”PYL=”:K”Z—Y”: Z”ZH=”:M”ZH—X”:P”ZH—Y”:F:Lbl0:Prog”XH”:Goto02、子程序(XH)Lbl1:Pro g”QX”:{U}:U”YZ—X=”:{W}:W”YZ—Y=”:I=U-X:J=W-Y:Pol(I,J):J<0=>J=J+360△Z[37]=J-Z[34]:Z[38]=cosZ[37]×I:D=D+Z[38]:AbsZ[38]≥0.001=>Goto1:≠> D”DYLC=”△▲Z[35]=sinZ[37] ×I: Z[35] “FXJL=”▲已知3点坐标求圆心和半径(fx4800P)主程序(3DZB--QYX)A”AX=”B”AY=”C”BX=”D”BY=”E”CX=”F”CY=”: X=((F-B)(D^2-B^2+C^2-A^2)+(D-B)(B^2-F^2+A^2-E^2))/(2(C-A)(F-B)-2(E-A)(D-B)):X”X=”▲Y=((E-A)(C^2-A^2+D^2-B^2)+(C-A)(A^2-E^2+B^2-F^2))/(2(D-B)(E-A)-2(F-B)(C-A)):Y”Y=”▲R=√((A-X)^2+(B-Y)^2):R“R=”▲自由设站(fx4800P)(边角后方交会)HFJHLbI0:{A}:A”H1—X=”:{B}:B”H1—Y=”:{C}:C”H2—X=”:{D}:D”H2—Y=”:I=C-A:J=D-B:POL(I,J):J≤0=>J=J+360⊿ I:”S=”▲Z[42]=J: Prog”006”:Z[42]:”FW—Q=”▲{E}:E”L1=”:{F}:F”L2=”:{G}:G”Q=”:H=Cos-1((I2+ E2-F2)/(2IE)):K=Cos-1((I2+ F2-E2)/(2IF)):L=A+E×Cos(J+H) :M=B+E×Sin(J+H):N=C+F×Cos(J+180-K):O=D+F×Sin(J+180-K):X=(L+N)/2:Y=(M+O)/2:X:”X=”▲Y:”Y=”▲Goto0不对称缓和曲线放样数据计算(fx4800P)(带偏移量+中边桩)1 主程序(--QX—Z-B)Defm42:AB”N1=”C”N2=”:R:Pro g”000”: Pro g”009”:E”PYL=”:K”Z—Y”: Z”ZH=”:M”ZH—X”:P”ZH—Y” :F Lbl0:Pro g”QX”: Prog”006”:Prog”007”:Goto02 子程序(QX){D}:Z[1]=D”DK=”-Z:O=Z+Z[2] :N=(M+Z[11]CosF)+Z[12]Cos(F+KA) :S=(P+Z[11]SinF)+Z[12]Sin (F+KA):{L}:L”BIN—L”:{Q}:Q”BIN—Q”:Z[1]≤0=>Prog”001”:≠>Z[1]≤B=>Prog”002”:≠>Z[1]≤(Z[2]-C)=>Prog”003”:≠>Z[1]≤Z[2]=>Prog”004”:≠>Z[1]>Z[2]=>Porg”005”△△△△△ X”X=”▲ Y”Y=”▲Z[34]<0=>Z[34]=Z[34]+360:≠>Z[34]>360=> Z[34]=Z[34]-360△△Z[42]=Z[34]:Pro g”010”:Z[42]”QX—Q”▲(该点切线方位角)3 子程序（000）曲线要素计算Z[4]=B/2-B^3/(240R^2):Z[6]=B^2/(24R)-B^4/(2688R^3):Z[8]=90B/(πR）:Z[5]=C/2-C^3/(240R^2):Z[7]=C^2/(24R)-C^4/(2688R^3):Z[9]=90C/(πR) :Z[11]=(R+Z[6])tng(A/2)+Z[4]-（Z[6]-Z[7]）/sinA:Z[12]=(R+Z[7])tng(A/2)+Z[5]+(Z[6]-Z[7])/sinA:Z[10]=(R+(Z[6]+Z[7])/2)(1/cos(A/2)) -R:Z[2]=(A-Z[8]-Z[9])Rπ/180+B+C: Z[3]=Z[2]-B-C4 子程序（001）第一切线段计算X=M+Z[1]cosF:Y=P+Z[1]sinF:X=X+Lcos(F+Q):Y=Y+Lsin(F+Q): Z[34]=F:5 子程序（002）第一缓和曲线段坐标计算Z[28]=F:Z[27]=E:Z[13]=90B/（πR）：Z[14]=Z[13]/3：Z[15]=90Z[1]^2/(πRB):Z[16]=Z[14](Z[1]/B)^2 :Z[17]=RB:Z[18]=Z[1]-Z[1]^5/(40Z[17]^2)+Z[1]^9/(3456Z[17]^4):Z[19]=Z[1]^3/(6Z[17])-Z[1 ]^7/(336Z[17]^3)+Z[1]^11/(42240Z[17]^5):Z[20]=√(Z[18]^2+Z[19]^2):X=M+Z[20]cos(Z[28]+KZ[16]) :Y=P+Z[20]sin(Z[28]+KZ[16]):K<0=> Z[27]= Z[27]:≠>K≥0=> Z[27]=-1 Z[27]△△Z[23]= Z[27] (Z[1]/B):Z[21]= Z[28]+KZ[15]+90: X=X+Z[23]cosZ[21]:Y=Y+Z[23]sinZ[21]:Z[22]=Z[28]+KZ[15]+Q : X=X+LcosZ[22]:Y=Y+LsinZ[22]: Z[34]=Z[28]+KZ[15]6 子程序（003）圆曲线段坐标计算Z[27]=E:Z[28]=F:Z[13]=90B/(πR):Z[22]=Z[28]+K(Z[13]/3):Z[17]=RB:Z[18]=B-B^5/(40Z[17]^2)+B^9/ (3456Z[17]^4):Z[19]=B^3/(6Z[17])-B^7(336Z[17]^3+B^11/(42240Z[17]^5):Z[20]=√(Z[18]^2+Z[19]^2) :X=M+Z[20]cosZ[22]:Y=P+Z[20]sinZ[22]:Z[14]=Z[1]-B:Z[15]=180Z[14]/( πR):Z[23]= Z[28]+KZ[13] :Z[21]=2Rsin(Z[15]/2):Z[16]=Z[15]/2:X=X+Z[21]cos(Z[23]+KZ[16]):Y=Y+Z[21]sin(Z[23]+KZ[16]):Z[24]= Z[23]+KZ[15]:K<0=> Z[27]= Z[27]:≠>K≥0=> Z[27]=-1 Z[27]△△X=X+ Z[27]cos(Z[24]+90):Y=Y+ Z[27]sin(Z[24]+90):X=X+Lcos(Z[24]+Q):Y=Y+Lsin(Z[24]+Q): Z[34]＝Z[28]+KZ[13]+KZ[15]7 子程序（004）第二缓和曲线段坐标计算Z[15]=O-D:Z[22]=F+KA+180:Z[27]=E:K>0=>Z[27]=Z[27]:≠>K<0=> Z[27]=-1Z[27]△△Z[25]=Z[27]( Z[15]/C):Z[23]=-K:Z[13]=90C/(πR):Z[14]=Z[13]/3:Z[16]=90Z[15]^2/(πRC):Z[17]=Z[14](Z[15]/C)^2 :Z[18]=RC:Z[19]=Z[15]-Z[15]^5/(40Z[18]^2)+Z[15]^9/(3456Z[18]^4):Z[20]=Z[15]^3/(6Z[18])-Z[15]^7 /(336Z[18]^3+Z[15]^11/(42240Z[18]^5):Z[21]=√(Z[19]^2+Z[20]^2):Z[30]=N+Z[21]cos(Z[22]+Z[23]Z[17]): Z[31]=S+Z[21]sin(Z[22]+Z[23]Z[17]):Z[24]=Z[22]+Z[23]Z[16]+90: Z[32]= Z[30]+Z[25]cosZ[24]: Z[33]= Z[31]+Z[25]sinZ[24]:Z[26]=F+KA+Z[23]Z[16]+ Q : X= Z[32]+LcosZ[26]:Y= Z[33]+LsinZ[26]: Z[34]＝Z[22]+（-1K）Z[16]-1808 子程序(005)计算第二切线段坐标Z[13]=F+KA:Z[14]=D-O:X=N+Z[14]cosZ[13]:Y=S+Z[14]sinZ[13]:X=X+Lcos(Z[13]+Q):Y=Y+Lsin(Z[ 13]+Q): Z[34]=Z[13]9 程序(006)计算后视数据{U}:U”ZX=”:{W}:W”ZY=”:{G}:G”HX=”:{H}:H”HY=”:I=G-U:J=H-W:Pol(I,J): I”S=”▲Prog”008”: Z[42]=J: Prog”010”: Z[42]”F0=”▲10 子程序(007)计算放样数据T=J:Pol(X-U, Y-W): Prog”008”: I”FY--L=”▲V=J-T:V<0=>V=V+360:≠>V>360=>V=V-360△△Z[42]=V: Prog”010”: Z[42]”FY--Q=”▲11 子程序(008)角度判断J<0=>J=J+360:≠>J>360=>J=J-360△△12 子程序（009）曲线要素结果显示Z[11]”T1=”▲ Z[12]”T2=”▲ Z[10]”E=”▲ Z[2]”QX--L=”▲ Z[3]”YQX—L=”▲13 子程序(010)角度的度分秒输出Z[40]=60FracZ[42]:Z[41]=60FracZ[40]:Z[42]=IntZ[42]+IntZ[40]÷100+Z[41]÷10000。

卡西欧4800道路测量程序

各位同行,本人领悟yshf的程序后,进行了以下改编,达到以下目标:1.加编数据库,计算中不必逐项输入"线元要素",提高运算速度，避免现场忙中出错2.计算直观,人性化3.正算直接输入里程和边距,反算输入近似里程便可4.增加了“计算点与测站点”的距离和方位角计算语句，方便直接放样5.愿收获与大家共享一.改动后的程序清单:1.主程序(TYQXJS)"1.SZ => XY"："2.XY => SZ"：U"X0"：V"Y0"：O"S0"：G"F0"：H"LS"：P"R0"：R"RN"：Q：D=(P-R)÷(2HPR)：N=1=>Goto 1：≠>Goto 2Δ←┘Lbl 1：{Z}：Z：W=Abs(S-O)：Prog "SUB1"：X"XS"=X◢Y"YS"=Y◢F"FS"=F-90◢C“XC”：E“YC”：I=0：J=0：Pol（X-C，Y-E）：I“I=” ◢J∠0＝＞J“J=”+360◢≠＞J“J=” ◢ΔProg"SJK"←┘Lbl 2：{XY}：XY：I=X：J=Y：Prog "SUB2"：S"S"=O+W◢Z"Z"=Z◢Prog"SJK"2. 正算子程序(SUB1) A=0.1739274226：B=0.3260725774：K=0.0694318442：L=0.3300094782：F=1-L：M=1-K：X=U+W(Acos(G+57.2958QKW(1/P+KWD))+Bcos(G+57.2958QLW(1/P+LWD))+Bcos(G+ 57.2958QFW(1/P+FWD))+Acos(G+57.2958QMW(1/P+MWD)))：Y=V+W(Asin(G+57.2958QKW(1/P+KWD))+Bsin(G+57.2958QLW(1/P+LWD))+Bsin(G+57.2958QFW(1/P+FWD))+Asin(G+57.2958QMW(1/ P+MWD)))：F=G+57.2958QW(1/P+WD)+90：X=X+ZcosF：Y=Y+ZsinF3. 反算子程序(SUB2)T=G-90：W=Abs((Y-V)cosT-(X-U)sinT)：Z=0：Lbl 0：Prog "SUB1"：L=T+Q57.2958W(1/P+WD)：Z=(J-Y)cosL-(I-X)sinL：AbsZ<1E-6=>Goto1：≠>W=W+Z：Goto 0Δ←┘Lbl 1：Z=0：Prog "SUB1"：Z=(J-Y)÷sinF二.增设数据库程序（ＳＪＫ）Lbo4：｛S｝：S∠下一线元起点里程≡＞O=本线元起点里程：U=本线元起点X：V=本线元起点Y：G=本线元起算方位角：H=本线元长度：P=起点曲率半径：R=终点曲率半径：Q=0或1、-1：Prog“TYQXJS”：Goto4Δ←┘S∠下一线元起点里程=＞O=。

史上最全的casio测量放样、坐标放点、导线放

史上最全的casio测量放样、坐标放点、导线放1 XY边长及方位角反算Prog“A":L=J:Prog"B"Fix 3:I"D="Lbl 1:{S}:V"X"=X+Rec(S, L U"Y"=Y+J Goto 1输入：X1,Y1,X2,Y2.输出: L°=,D=.2 XY-1输入里程桩号计算中间点坐标Prog"A":L=J:Prog"B"Fix 3:I"D="{Z}: Z:Lbl 1:{G}:V"X"=X+Rec(Abs(G-Z, LU"Y"=Y+J Z-起始点里程桩号Goto 1Ｇ－任一点里程桩号测量程序.xls 第1 页3 JD两直线交点坐标计算Prog"A": Prog"C":L"L1":Prog"F":E=W+K:{L}:L"L2":Prog"F":C=V+K:S=tan E:T=tan C:G=S-T:A=A+0.0001 U"X"=(SA-MT-B+N)/G Z"Y"=S(U-A)+BPol(U-M,Z-N:I"D="输入X1,Y1,X2,Y2,X3,Y3. X4,Y4,L1,L2,输出X=,Y=,D=,4 ZBFD坐标放点Prog"A":Fix 3:{MN}:Pol(M"X3"-A,N"Y3"-B: I"D="J=J-W+180:J0=J=J+360L=J:Prog"B"Goto 3输入:X1,Y1,X2,Y2,X3,Y3. 输出:D,L°测量程序.xls第2 页5 Z自由导线推算E=0:1F=0:Prog"A":Fixm:C=A:D=B:J[F]=J:{LH}:L"L0":Prog"F":I[F]=J[F]+K-180:H[E+F]=H"D":Prog"R":C"X="D"Y="J[F]=I[F]:Goto 46 ZDX支导线计算X1Y1,X2Y2,为已知点坐标Prog"A":L°-角度用小数输入Lbl 4:输一组L°、D.得一个点的坐标{LS}:L:Prog"F":M"X3"=A+Rec(S,W+K+180N"Y3"=B+JGoto 4输入:X1,Y1,X2,Y2,L,S.输出:X3,Y3.L°―观测角度以下按小数点输入测量程序.xls第3 页7 DX单一导线简易平差计算Prog"A":Prog"C":J=W:Ｉ=V:C=A-M:D=B-N:F=E"N":I[F]=J:Lbl 1:F=F-1:{GH}:I[F]=J[F]+G"L°"-180:I[F]0=I[F]=I[F]+360:≠I[F]360=I[F]=I[F]-360H[E+F]=H"D":F1=Goto 1{G}:G=I[F]+G"L°"-180:G0=G=G+360:≠G360=G=G-360I=G-I:W=12″[S]=620.790G"W"=602FracI 相对中误差:fS/[S]=1/*****fX=-0.007fY=0.000G=0:Lbl 2:I[F]=I[F]-I(E-F)/E:Prog"R":说明:F=F+1:N-观测角数,L°-左角按度分秒输入G=H+G:W-角度闭合差,fX,fY坐标闭合差F Goto 2若用外(右)角计算闭合差程序中之I=G-I-360G"[S]="若用内(左)角计算闭合差程序中之I=G-II"fX"=C 本程序只能计算八个未知点,多于八个时每增加一个C=A:未知点,必需扩展两个储存器.A"fY"=D D=B:B"fS/[S]"=Int(G/ √ (I I+AA Lbl 3: F=F －1:Prog"R":C"X"=C-I H/G D"Y"=D-AH/G F1=Goto 3测量程序.xls 第4 页8 WDX 无定向导线Prog"A":D=I:C=0:M=0:N=0:P:Lbl 0:P=P-1:{LS}:L"B°":Prog"F":F=K:C=C+F:C=0=Goto 1C=C+180:Goto 1X1Y1,X2Y2,-已知点坐标Lbl 1:P-边数,B°-观测角,第一个角输入0,Rec(S,C:S-边长,Xf,Yf-增量累加数,记录侍用Fix 4:输入一组Xf,Yf,求得一组X Y,M"Xf"=M+I 用左角,度以下按小数输入.N"Yf"=N+JP0=Goto 0Pol(-M,-N:R=W+180-J:K=D/I:V=Cos R:点号观测角边长Xf Yf X Y E=Sin R:Lbl 2:{HO}:H"Xf":O"Yf":Fix 3:T"X"=X+K(HV-OE Z"Y"=Y+K(HE+OV Goto 2B 为观测角,第一个角输入04119.***-*****.***-*****.***-*****.***-*****.***-*****.630142.*****.8800-66.*****.*****.0000-211.5145-303.*****0°00′00″ 42 28 06 277 33 42 A 1164.*****.*****.***-*****.952 测量程序.xls 第5 页9 QJD前交点(正弦公式)Prog"A":Prog"J":S=I Sin E/Sin(E+K:Prog"O"A°、B°-观测角,X1、Y1、X2、Y2-正切公式Prog"A":Prog"J":S=tan E:T=tan K:G=S －1＋T -1:M"X3"=(X/T+A/S-Y+B)/G N"Y3"=(Y/T+B/S+X-A)/G 输入:X1,Y1.X2,Y2,A°,B°,输出:X3Y310 FX 方向交会Prog"A":Prog"J":S=tan E:T=tan K:G=S-T:M"X3"=(SX-AT-Y+B)/G N"Y3"=S(M-X)+YX1Y1,X2Y2,为起算点坐标.A°,B°-方位角.X,Y--交点坐标11 CJ 侧方交会点Prog"A":Prog"J":S=I sin(E+K)/Sin K:{K}:K=0=M"X"=A+Rec(S,W+E-180≠N"Y"=B+JX1Y1,X1'Y1',X2Y2--已知点坐标,A°B°-观测角,左右分开.左K=0,右K=1A=63° 33′06″B=92° 20′51″从左右两组算出坐标取中数为XYA ′=109° 59′39″B ′=50° 57′06″测量程序.xls 第6 页12 HJ后交点计算Prog"A":M"X3":X1=992.692X2=1012.499N"Y3":Prog"J":S=tan E:T=tan K:H=(Y-B)/S+X-A:F=(X-A)/S-Y+B:Q=(N-B)/T-M+A:V=(M-A)/T+N-B:K=(H+Q)/(F+V:X3=1063.248D=(H-FK)/(1+K2:Y4=999.997Y3=1000.000 O"X4"=A+DX1Y1,X2Y2,X3Y3---已知点坐标P"Y4"=B+KD A°、B°----观测角X4Y4--测点坐标12HJ―1ProgAUD=IU（另一种后Pol（A－MX3，B－NY3U交公式）S=IUG=JUProgJUZ=180－（W－G＋E＋K）÷2UQ=tan－1（D Sin C÷S Sin EUH=tan－1（tan Z÷tan（45＋QUR=Z＋HUT=D Sin（E＋R）÷Sin EU OX=X＋T Cos（W＋RPY=Y＋T Sin（J＋R测量程序.xls第7 页13 LDHJ两点后交Prog"A": L"A°": Prog"F":C=K:{L}:X2=857.025X1=944.202 L"B°":Prog"F":O=K:{L}:L"E°":Prog"F":E=K:{L}:L"F°":Prog"F":F=K:Y3=139.053N=Sin O/Sin(O+F:P=√(S2+M2-2SM Cos(C-O:观测角A°B°E°F°度以下按小数点输入.T=√(D2+N2-2DN Cos(F-E:K"D1"=2I"D0"/(P+TS"S1"=KSD"S2"=KDM"S3"=KMN"S4"=KNH=Cos-1((I2+S2-M2)/2IS:L=H:Prog"B":Z"H°="G=Cos-1((I2+N2-D2)/2IN:L=G:Prog"B":Z"G°="Fix 3:Q"X3"=A+Rec(S,W+H+180R"Y3"=B+JQ"X4"=A+Rec(D,W+E-F-LR"Y4"=B+J测量程序.xls第8 页Prog"A":Lbl 0:Prog"W":Fix 2:S=D(Sin K)2H=S/tan K+G{L}:Prog"F":输入:X1,Y1,X2,Y2,H0-起点高,T仪高, Prog"O"D-视距,S-平距,Z°―天顶距,P标高Goto 0输出:X3,Y3,S平距15 JZB极坐标法测碎部点坐标、高程Prog"A":G=E"H0"+T:Lbl 8:{LSV}:Prog"F":Prog"O"H=G+V"h"-PGoto 8输入:X1,Y1,X2,Y2, H0,T,L°，S，h求:X,Y,H.测量程序.xls第9 页X3=273.***** SD 垂距,垂点坐标计算Y3=208.502Prog"A":O=Sin J:P=CosJ:E=M"X3"-X:F=N"Y3"-Y:S=EP+FO D=EO-FPY=252.157V"X"=X+Rec(S,W U"Y"=Y+J注:D 为正时,3点在1-2之左侧;S 为正,3在1-2之线上;为负则在2--117 MM 坐标法计算多边形面积N: P=0: V=0:A"X":B"Y":E=A: F=B:Fix 3:Lbl 0:{XY}:X: Y:N=4(边数)Lbl 1:Pol(X-A,Y-B: I"S"P=P+(Y-B)(X+A)/2:A=X:B=Y:V=V+1:V ≠N=Goto 0P"m 2"=Abs P Q"mu"=1.5 m P测量程序.xls 第10 页18断面图封闭图形面积计算(高程相当于X,距离相当于Y,用相对坐标计算,)N:P=0:V=0:Y=0:A"H":B"D":E=A:69.8F=B: Fix 3:Lbl 0:N=V+1=H=E: Y=F: Goto 1｛HD ｝:H:Y=Y+D:Lbl 1:m =32.795A=H:B=Y:N=多边形边数,V=V+1:H=转折点高程V ≠N= Goto 0D=相邻两点距离P"m 2"=Abs P第一点D 输入0。