卡西欧4800P程序合集
卡西欧fx-4800P计算器程序集(小刚)
计算器对应程序名称：{ZDZB}（转点坐标）A“XZ”B“YZ”C“XH”D“YH”：{RL}I=1：J=1：Pol（（C－A），（D－B））：F=R＋JRec（L，F）X“X”=I＋A◢Y“Y”=J＋B◢注：用于已知两点坐标，及待测点与测站点的连线与已知边（两已知点的连线）的水平夹角和待测点至测站点的水平距离求待测点坐标。
XZ、YZ—测站点坐标；XH、YH—后视点坐标；R—水平角（顺时针为正，逆时针为负）；L—待测点至测站点水平距离。
计算器对应程序名称：{FWJ}(方位角)X“X1”：Y “Y1”：U“X2”：V“Y2”G=U-X:H=V-YPol(G,H):I◢J<0==>J=+360⊿J“J0=”注：用于已知两点坐标，求两点之间的方位角和距离。
X1、Y1—前视（后视）点坐标；X2、Y2—测站点坐标；L—测站点至前视（后视）点距离；J0—方位角(按SHIFT键再按°′″键转换为60制角度)。
任意多边形面积计算程序fx-4800p（三）计算器对应程序名称：{MJ}Lbl 0:M“N”：N“E”：E=M：F=N：S=0Lbl 1:{XY}:S=S-(XN-YM)/2:X=E==>Y=F==>“㎡”:S ◢Goto O ⊿⊿M=X:N=Y:Goto 1注：用于计算任意多边形的面积。
N-起始点X坐标（闭合点X坐标）E-起始点Y坐标（闭合点Y坐标）X-前进点X坐标Y-前进点Y坐标S-多边形面积（取绝对值）应顺序依次输入点坐标，输完所有点坐标后应再次输入起点坐标，这样就形成了多边形的闭合，程序将自动计算出多边形的面积。
极坐标测设建筑物（放样）计算程序fx-4800p（四）计算器对应程序名称：{ZBCS}E:F:K:LG=K-E:H=L-FPOL(G,H):J<0==>B=J+360：≠==>B=J⊿Lbl 0{XY}:X=0==>G o t o E⊿G=X-E:H=Y-FPol(G,H):I◢J<0==>J=J+360⊿C=J-B:C<0==>C=C+360⊿C◢Goto 0Lbl E注：用于计算已知方向边AB（已知点A、B两点的连线）与A（测站点）点至任意放样点i方向边（测站点与待放样点的连线）的水平夹角Bi和水平距离。
卡西欧计算器坐标计算程序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÷（2 40R2）▲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^4 SR））：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－Ws in 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=Vsi n 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点桩号。
常用CASIO4800计算程序集
FX4800P常用测量程序集1、由一个已知点坐标和一个已知方位角计算支导线坐标（程序名：ZBJS）程序清单：X：Y：T：Lb1 0：Fixm：{AS}：T=T+A-180：T〈0 =〉T=T+360⊿T〉360 =〉T =T-360⊿T◢X=X+Scos T◢Y=Y+Ssin T◢Goto 0程序运行说明：运行“ZBJS”，每运行一步按EXE键一次，显示X？时输入已知点X坐标，显示Y？时输入已知点Y坐标，显示T？时输入已知点由后视到前视的已知坐标方位角，运行一次本程序只需输入一次已知数据。
显示A？时输入第一个左转角值，显示S？时输入测站到前视的水平距离。
接下来计算器显示的T是测站到前视的坐标方位角，按+ 可将显示的十进制角度换算为度分秒。
如此继续可计算出所有支导线未知坐标。
2、由两个已知点坐标计算支导线坐标（程序名：ZBJS2）程序清单：M“X0”：N“Y0”：D“XH”：E“YH” ↲Pol(M-D，N-E)：Fixm：T=J：X=M：Y=N：T〈0=〉T=T+360⊿T“TH-J=” ◢I“S=”◢Lb1 0:{AS}: T=T+A-180：T〈0 =〉T=T+360⊿T〉360 =〉T =T-360⊿T◢X=X+Scos T◢Y=Y+Ssin T◢Goto 0程序运行说明：运行后，显示X0，Y0时输入已知置镜点坐标，显示XH，YH时输入已知后视点坐标，其它同ZBJS的输入与显示。
3、由一个已知点坐标和一个已知方位角进行放射型导线坐标计算（程序名FSXZB JS）程序清单：C“X0”：D“Y0”：E“T0”：Fixm：Lb1 1:{SA}↲T=E+A-180：T〈0=〉T=T+360⊿T〉360 =〉T=T-360⊿T◢X=C+Scos T◢Y=D+Ssin T◢Goto 1程序运行说明：变量输入参照ZBJS程序。
4、由两个已知点坐标进行放射型导线坐标计算（程序名FSXZBJS2）M“X0”：N“Y0”：D“XH”：E“YH” ↲Pol(M-D，N-E)：Fixm：F=J：X=M：Y=N：F〈0=〉F=F+360⊿F“TH-J=” ◢I“S=” ◢Lb1 1:{SA}↲T=F+A-180：T〈0=〉T=T+360⊿T〉360 =〉T=T-360⊿T◢X=X+Scos T◢Y=Y+Ssin T◢Goto 15、坐标计算优化程序（可进行连续式（LX）、放射式（FS）已知一点（1-D）或者两点（2-D）进行坐标计算）：V“1=>LX，≠>FS”：W“1 =>1-D≠>2-D”：W=1=> Goto 1:≠> Goto2↲Lb1 1：F“X0=”：G“Y0=”：H“T H-0=”：Goto 3↲Lb1 2:F“X0=”：G“Y0=”：M“XH=”：N“YH=”:Pol(F-M，G-N)：Fixm: J〈0=〉J=J+ 360⊿H=J：H“TH-0=”◢I“S-H=”◢Goto 3↲Lb1 3: X=F：Y=G：T=H ：V=1=> Goto 4:≠> Goto 5↲Lb1 4: {AS}: A:S:T=T+A-180：T〈0 =〉T=T+360⊿T〉360 =〉T =T-360⊿T◢X=X+Scos T◢Y=Y+Ssin T◢Goto 4Lb1 5：{AS}:A:ST=H+A-180：T〈0=〉T=T+360⊿T〉360 =〉T=T-360⊿T◢X=F+Scos T◢Y=G+Ssin T◢Goto 56、已知置镜点坐标和置镜点到后视点坐标方位角求放样角度和放样距离的放样程序（程序名FY1）程序清单：F“X0”：G“Y0”：H“T0-H”：Fixm：Lb1 1:{XY}↲Pol(X-F，Y-G) ↲J〈0 =〉J=J+360⊿A=J-H↲A〈0 =〉A=A+360⊿A“A=” ◢I“S=” ◢Goto 1程序运行说明：变量输入参照坐标计算，A=为放样顺时针角度，S=为放样距离。
测量程序
CASIOfx—4800P测量程序设计程序一：线路测量综合程序ROUTELbI 0:{A}:A"COOR"=1=＞Goto1⊿A=0=＞Prog"SET"⊿{EFGH}:H://以下为通过极坐标法求测点坐标T=Z[4]:I=7.5T÷(237.3+T)+0.7857:J=1+T÷273.16: //T—温度、Z[5]—气压Y=281.8-(0.29065Z[5]÷J-4.126m×0.6÷J×10^I): //Y—测距仪温度、气压改正系数X=(E Abs sin F sin(G+Z[9]÷2+Z[3])2÷2÷63712-(Z[1]+E cosF÷2)÷6.371://X—高斯投影改正系数，E—测距仪读数，F—竖直角读数，G—水平角读数C=(E-3.3m)(1+(X+Y)μ): //-3.3m—测距仪加常数,C--高斯投影改正后斜距S=C Abs sinF×(1-0.147μ×CcosF): //S—平距Z[59] "GC"=CcosF+(CsinF)2×68.3η+Z[1]-H◢//Z[59]—高程V"OX"=Z[2]+Rec(S,G+Z[9]):W"OY"=Z[3]+J: //V,W—大地统一坐标LbI 1:B=Z[8]:｛B｝:B"0426"=1=＞｛XY｝:Goto2⊿B＞6=＞Goto3⊿//B—平曲线交点顺序编号或转向计算标高、结尾//以下进行统一坐标换算成对应某一右角(D+90)的里程及距离(坐标点至里程点)Z[8]=B:LbI A:J=7:LbI B:J[J=Z[7B+9+J]:DszJ:Goto B: //录入交点数据至K～RA=N2÷24M:R=Abs O÷2:T=(M+A)tanR+N÷2-N^3÷240M2:S=MRП÷180+N÷2://平曲线要素(切线长T、曲线长的一半S)U=PoI(V-K,W-L):Z=J:C=1:Rec(U,Z-P)＜0=＞Rec(U,Z-P+O+180):C=-1⊿X=I:Y=J:Z=X+JtanD:Z＞T=＞X=Q+SC+(Z-T)C:B≠6=＞X＞Q+S=＞Isz B:GotoA⊿⊿Y=JC-cosD:Goto 2⊿//直线里程坐标（X，Y）Z=P+O(45÷R-0.5):PoI(V-Rec((A+M)÷cosR,Z)-K,W-J-L):P=2R÷O:R=sin-1(MsinD÷I)-D:B=(J-Z+180+R)MП÷180:Abs B＜S-N=＞X=Q+BP:Y=P(M-I):D=0=＞Y=PIsinR÷sinD⊿Goto 2⊿//通过圆心求得圆曲线里程坐标A=0:B=N:X=T-X:Y=CPY:Z=-(90+D)CP: //设初值A、B，缓和曲线坐标XY//通过与里程点法向夹角进行二分法tan-1(Y÷X)-Z＞0=＞O=0:≠＞O=1⊿LbI C:U=(A+B)÷2:Pause0K=U-U^5÷40M2N2:L=U^3÷6MN:T=3tan-1(L÷K):PoI(X-K,Y-L):Sin(J-T-Z)＞0=＞R=0:≠＞R=1⊿O=R=＞A=U:≠＞B=U⊿Abs(A-B)＞1m=＞Goto C⊿X=Q+(S-U)C:Y=IAbs(J-T)÷(J-T)P: //缓和段里程坐标X，YLbI2:S=Z[8]:S=4=＞C=14:X"LK"◢⊿≠＞C=0: "RK"◢⊿S=6=＞C=22⊿Y◢//以下进入X里程点的设计标高、路面横坡、路面边缘标高等计算{A}:A"SJG"≠1=＞Goto 0⊿LbID:X＞Z[3C+60] =＞Isz C: Goto D⊿LbI E:B=3C+60:P=Z[B]:Q=Z[B+1]:R=Z[B+2]:K=P-X: //竖曲线要素I=(Q-Z[B-2])÷(P-Z[B-3]):J=(Z[B+4]-Q)÷(Z[B+3]-P):U=(J-I)R÷2T=AbsU:A=U÷T:K＞T=＞DszC:GotoE⊿K＜0=＞I=J⊿AbsK＞T=＞A=0⊿B=0:S=2=＞B=1⊿Z=Q-KI+A(AbsK-T)2÷2÷R+75mB◢//线路设计高程ZO=Y:S=4=＞O=-1⊿S=0=＞O=1⊿O＜0=＞B=144:≠＞B=160⊿I=-0.2:A=0:LbI F:C=4A+B:X＞Z[C+1]+Z[C+3] =＞Isz A:Goto F⊿B=4:LbI G:I[B]=Z[C+B-1]:Dsz B:Goto G: //设置超高数据X＞K=＞A=X-K:≠＞X＞J=＞A=0:≠＞X＞J-M=＞A=J-X:≠＞A=M⊿⊿⊿I"HP"=L+A(I-L)÷M◢//线路路面横坡IP=8:S=2=＞P=11.75⊿S=6=＞O=-Y⊿OY＜0=＞P=4.25:I=-I⊿J=-0.3:I＜J =＞J=I⊿B=Z+PI+0.75J◢//路基边缘标高BT=Z[59]-B:S=2=＞P=13.25⊿T＜0=＞U=-1.5T+0.75+P:≠＞{IAP}:U=I(T-A)+P⊿U-Abs Y◢//检测路基填筑边坡线，T—填高Goto 0:LbI 3: "QUIT"程序二：基本数据输入程序SETA=1:LbI 0:{A}:A"NO"＞0=＞A＞8=＞A=1:Goto 0⊿B=Z[A]:{B}:Z[A]=B"DATE":A=7=＞Z[9]=Z[6]-Z[7]⊿IszA:Goto 0⊿程序三：结构物坐标及放样程序STUCT"FROM":LbI 1:I=Z[8]:{IXYD}:I＞6 =＞Goto 2⊿J=7:LbI A:J[J]=Z[7I+9+J]:DszJ:Goto A: //录入平曲线交点数据K～RA=N2÷24M:B=N÷2-N^3÷240M2:R=Abs O÷2:T=(M+A)tan R+B://平曲线要素S=MRП÷180+N÷2:I≠6 =＞X＞Q+S=＞Isz I:J=7:Goto A⊿⊿U=2R÷O:Z=U:X＞Q+S-N=＞C= Q+S-X: R=P+180:U=-U: //判断所处线段，以HY点为界≠＞C=X-Q+S:R=P-O:P=R-180⊿V=Rec(T,P)+K:W=J+L://ZH或HZ坐标（V，W）K=C:L=0:P=0:C＞0=＞C＜N=＞K=C-C^5÷40M2N2:L=C^3÷6MN:P=3tan-1(L÷K):≠＞P=180(C-N÷2)÷MП:K=Msin P+B:L=M(1-cos P)+A⊿⊿//曲线段独立坐标（K，L）及偏角P C=Abs Y:Y=0=＞O=0:≠＞O=C÷Y⊿N=R+UP+90ZUO+D◢//对应右角的方位角NV=V+Kcos R-Lusin R+Rec(C,N)◢W=W+Lucos R+Ksin R+J◢//统一大地坐标V，W{Z}:Z=0=＞Z[178]=V:Z[179]=W: "TO":Goto 1⊿I=PoI(V-Z[178],W-Z[179])◢Z[180]=J: //两点间的距离及方位角LbI 2:A=2:Prog"ROUTE":N=PoI(V-Z[178],W-Z[179]):K=Rec(N,J-Z[180]):S=K+Jtan D◢T=J÷cos D◢Goto 2 //相对两点连线的右角坐标//……..T he End……..//固定变量说明:程序使用说明***本程序可解决公路、铁路等线形的施工测量及计算***一、进入ROUTE程序COOR?//是否进入大地（局部）统一坐标测量计算（适用于徕卡DI1600测距仪）1、输入除了0、1以外的值进入计算统一坐标（V，W）：H?---前点仪高E?---测距仪读数F?---竖直角G?---水平角读数GC=高程V、W=坐标2、输入0进入SET程序，进行扩存器值的录入。
卡西欧Casiofx-4800P道路中边桩坐标计算程序
卡西欧Casiofx-4800P道路中边桩坐标计算程序程序清单如下：Casio fx-4800P道路中边桩坐标计算程序程序目的：依平曲线要素计算直线、圆曲线、缓和曲线的任意中桩、左、右桩坐标。
程序说明：K0：起始桩号X0：起始X坐标Y0：起始Y坐标ALF：起始方位角R：半径LS：缓和曲线长N：曲线左转N=1，右转N=2K：待求桩号LL、LR：左、右桩距离Q：左、右桩与中线斜交角求得XZ、YZ、XL、YL、XR、YR分别为中桩、左、右桩坐标。
一、直线段文件名：ZX (COMP)程式：L”K0”:O”X0”:P”Y0”:W”ALF”:Lbl 0:{K}:X”XZ”=O+(K-L)cosW◢Y”YZ”=P+(K-L)sinW◢{B}:S”XL”=X-B”LL”cos(W+Q) ◢T”YL”=Y-Bsin(W+Q) ◢{C}:U”XR”=X+C”LR”cos(W+Q) ◢V”YR”=Y+Csin(W+Q) ◢Goto 0注：在程序执行过程中，赋给的要素变数的值被固定不变，可对变数（K、LL、LR）赋予不同值，迅速求得所需坐标。
二、圆曲线段文件名：YQX (COMP)程式：L”K0”:O”X0”:P”Y0”:W”ALF”: Lbl 1:{K}:J=(-1)^N (K-L)÷R×180÷π:D=2Rsin((-1)^N J÷2):X”XZ”=O+Dcos(W+J÷2) ◢Y”YZ”=P+Dsin(W+J÷2) ◢{B}:S”XL”=X-B”LL”cos(W+J+Q) ◢T”YL”=Y-Bsin(W+J+Q) ◢{C}:U”XR”=X+C”LR”cos(W+J+Q) ◢V”YR”=Y+Csin(W+J+Q) ◢Goto 1注：若没有直接HY点方位角，则ALFHY=ALFZH±Ls/2/R×180/π,(左转-，右转+)。
三、缓和曲线文件名：HHQX (COMP)程式：L”K0”:O”X0”:P”Y0”:W”ALF”: M”LS”:Lbl 3:{K}:I=(-1)^N×(K-L)^2÷M÷R÷6×180÷π:D=(K-L)-(K-L)^5÷90÷(RM)^2:X”XZ”=O+Dcos(W+I)◢Y”YZ”=P+Dsin(W+I) ◢{B}:S”XL”=X-B”LL”cos(W+3I+Q) ◢T”YL”=Y-Bsin(W+3I+Q) ◢{C}:U”XR”=X+C”LR”cos(W+3I+Q) ◢V”YR”=Y+Csin(W+3I+Q) ◢Goto 3注：1、坐标计算方法是根据偏角法原理；2、缓和曲线（ZH~HY或YH~HZ）以ZH（或HZ）为起始点；3、平曲线左转（ZH~HY段N=1，YH~HZ段N=2），曲线右转（ZH~HY段N=2，YH~HZ段N=1）。
CASIO-fx4800程序
CASIO-fx4800程序本人自网络上进行整理，谢谢大家支持！！！！CASIO-fx4800p 1 KWX Lbl1:{ABC}:Z[5]=A:Z[6]=B:Z[7]=C:Lbl2:Prog“ZBJX”:Abs(Z[5]-X)<0.001ÞG oto 4∆ Pol(Z[5]-X,Z[6]-Y):K=K+Icos(J-V):U=U-Isin(J-V):Goto2:Lbl4:Prog“SQX”:A=Z[7]-H:A$0ÞL=AbsU -1.5A-13:¹ÞL=AbsU-1.0A-15∆ Ky A+0.75y Uy Ay Goto 1¿ 2 ZBJX Fixm:{K}:Lbl 0:{K}:K:K# $ÞW:C: D:A:B:R:S∆ P=S2/24R-S4/2688R3:Q=S/2-S3/240R2:T=(R+P)tg(AbsA/2)+Q:L=pRAbsA/180:E=W-T:F= E+L¿ K#EÞL=W-K:X=C+Lcos(B-180):Y=D+Lsin(B-180):V=B:Goto 1∆ K#E+SÞL=K-E:X=L-L5/40R2S2: Y=L3-6RS-L7/336R3S3:Pol(T-X,Y):X=C+Icos(B-180-AbsAJ/A):Y=D+Isin(B-180- AbsAJ/A):V=B+90L2Ab sA/ApRS:Goto 1∆ K#FÞL=K-E-S:I=(S/2+L)×180/pR:X=T-RsinI-Q:Y=R(1-cosI)+P:V=IAbsA/A+B:Pol(X, Y):X=C+Icos(B-180-JAbsA/A):Y=D+ Isin(B-180-JAbsA/A):Goto 1∆ K#F+SÞL=F+S-K:X=T-L+L5/40R2S 2:Y=L3/6RS-L7/336R3S3:Pol(X,Y):X=C+Icos(B+A+JAbsA/A):Y=D+ Isin(B+A+JAbsA/A):V=B+A-90L2A bsA/ApRS:Goto 1∆ K>F+SÞL=K+T-S-F:X=C+Lcos(A+B):Y=D+Lsin(A+B):V=A+B:Goto 1∆ Lbl 1:X=X+ Ucos(V-090):Y=Y+Usin(V-090)¿ O=V¿ 3 SQX Fixm:{K}:K#$ÞG:C:R:E:F∆ W=F-E:T=Abs(RW/2):K<G-TÞH=C-E(G-K)∆ K$G-TÞH=C-E(G-K)+(K+T-G)2AbsW/2RW∆ K$GÞH=C-F(G-K)+(K-G-T)2AbsW/2RW∆K$G+TÞH=C-F(G-K)∆¿ 4 HGHXP {KU}:K:U=U:Prog“ZBJX”:Prog:“SQX”:Xy Yy H¿ 备注：1(KWX)中，A、B、C为某点的坐标X，Y，Z；K 桩号；L 当L=0时处于开挖线位置；A 高程；A+0.75 测点高程+路面厚度；U 距中线距离。
CASIO4800P计算器坐标计算程序
坐标放样程序Defm 60：A”JX”:B”JY”:Q:R:L”L1”:M”L2”:T”T1”: C”T2”:E”ZH”:D=E+L:O”HZ”:I=O-M:F:U :Fix3：回车Lbi 0:{K}:K≤E=〉G0t0 1：≠=〉G0t0 2⊿回车Lbi1：{VJZ}:Z[1]=A-T CosF:Z[2]=B-TSinF: Z[3]=E-K: Z[4]=F+VJ: Z[20]= Z[1]- Z[3] CosF:Z[21]=Z[2]-Z[3]SinF：X=Z[20]+ZCos （Z[4]）：Y=Z[21] +ZSin（Z[4]）：X“X=”▲Y“Y=”▲{N}：N＜1=〉Prog“FMH”:≠=> Goto 0回车Lbi 2：K≤D=> Goto 3: ≠=> Goto 4⊿回车Lbi3:{VJZ}:Z[5]=A-TCosF:Z[6]=B-TSinF: H=K-E: Z[7]=H-（(H＾5)÷（40R＾2L＾2)）-（(H＾13)÷（599040R＾6L＾6)）+（(H＾9)÷（3456R＾4L＾4)）:W=F+U(90H＾2÷（RL ∏）)+VJ:Z[22]=Z[5]+Z[7] ÷Cos(（30H＾2）÷（RL∏)） *Cos(F+U(30H^2)÷(RL∏)): Z[23]= Z[6]+ Z[7] ÷Cos((30H^2)÷(RL∏)) *Sin(F+U(30H^2)÷(RL∏)):回车X= Z[22]+Z CosW:Y=Z[23]+Z SinW: 回车X“X=”▲Y“Y=”▲Prog“AA”:回车{N}：N＜1=〉Prog“FMH”:≠=> Goto 0回车Lbi 4:K≤I=> Goto 5:≠=> Goto 6⊿回车Lbi5:{VJZ}:Z[8]=A+TCos(F+180):Z[9]=B+ TSin(F+180):Z[10]=L-(L^3)÷(40R^2)-(L^7)÷(599040R^6)+(L^5)÷(3456R^4): Z[11]=(30L)÷(R∏): Z[12]=F+U(30L)÷(R∏):P=K-D: Z[13]=F+90U（L+P）÷(R∏): Z[14]=(90P)÷(R∏):W=F+U(90L)÷(R∏)+(180UP)÷(R ∏)+VJ: 回车Z[24]= Z[8]+ Z[10]÷Cos(Z[11]) *Cos(Z[12])+2RSin(Z[14]) *Cos(Z[13]): Z[25]= Z[9]+ Z[10] ÷Cos(Z[11]) *Sin(Z[12])+2RSin(Z[14]) Sin(Z[13]):X=Z[24]+Z CosW:Y= Z[25]+Z SinW: X“X=”▲Y“Y=”▲Prog“BB”:{N}：回车N〈1=>Prog“FMH”:≠=> Goto 0⊿回车Lbi 6:K≤O=> Goto 7: ≠=> Goto 8⊿回车Lbi 7:{VJZ}:P=F+Q:Z[15]=A+C CosP: Z[16]=B+C SinP:H=O-K: Z[17]=H-(H∧5)÷(40R∧2M∧2)-(H∧13)÷(599040R∧6M∧6)+(H∧9)÷(3456R∧4M∧4): Z[18]=(30H∧2) ÷(RM ∏): Z[19]=P+180-U(30H^2)÷(RM ∏):W=P+180-U((90H∧2) ÷(RM∏))-VJ:Z[26]= Z[15]+ Z[17] ÷Cos (Z[18]) *Cos(Z[19]): Z[27]= Z[16]+ Z[17] ÷Cos( Z[18])* Sin (Z[19]):X= Z[26]+ Z CosW:Y= Z[27]+Z SinW:X“X=”▲Y“Y=”▲Prog“CC”:回车{N}：N〈1=>Prog“FMH”:≠=> Goto 0回车Lbi 8:K≤O=> Goto7: ≠=> Goto9⊿回车Lbi9:{VJZ}:P=F+Q:W=P+VJ:Z[28]=A+(C+K-O) CosP: Z[29]=B+(C+K-O) SinP:X= Z[28]+Z CosW:Y= Z[29]+Z SinW:X“X=”▲Y“X=”▲Prog“DD”:{N}：N〈1=>Prog“FM H”:≠=> Goto 0⊿2、文件名“ FMH”Lbi1:{S}:S<0=> Goto2: ≠=> Goto3⊿回车Lbi2{J}:Z[30]=X- Z[20]: Z[31]=Y- Z[21]: Z[32]= Z[31] ÷Z: Z[33]= Z[30] ÷Z:V= Z[20]+JZ[33]-SZ[32]:K= Z[21]+ JZ[32]+S Z[33]:V“X=”▲K“Y=”▲Goto13、文件名“AA”Z[20]= Z[22]: Z[21]= Z[23]4、文件名“BB”Z[20]= Z[24]: Z[21]= Z[25]5、文件名“CC”Z[20]= Z[26]: Z[21]= Z[27]6、文件名“DD”Z[20]= Z[28]: Z[21]= Z[29]道路前进方向操作：A:B:坐标:Q转角（左负，右正）：R：半径：L1：第一缓和曲线长度（L）：L2:第二缓和曲线长度(M):T1:第一起线长度（T）:T2: 第二起线长度(C):ZH:直缓点里程(E):HZ:缓直点里程(O):F：方位角：U：转向系数（左转负，U=-1,右正，U=1）:K:待求点里程：V:方向系数（左取－1，右取1）：J：边桩与道路中线的夹角:Z:边距：在左边上时S取正J取0左边下时S取负J 为距中宽度，在右边上时S取负J取距宽度中，在右边下时S取正J取0。
卡西欧测量程序集
CASIO fx 系列编程计算器测量程序集编写: 王劲松第一部分：CASIO fx-4800P 编程计算器测量程序集一．SHI JU CE TU （视距测图）1． 用途：该程序用于“经纬仪视距法碎部测量”时，计算测站点至碎部点间的平距及碎部点的高程。
2． 程序清单：C “H0”：I ：A “UP ”：B “DOWN ”：V “MIDDLE ”：L ：E=90-L ↙ D=100Abs （A-B ）（cosE ）2◢ H=（C+I ）+DtanE-V 3． 程序说明：H0——测站点高程；I ——测站仪器高；UP ——塔尺上丝读数；DOWN ——塔尺下丝读数；MIDDLE ——塔尺中丝读数；L ——经纬仪竖盘读数盘左读数；D ——测站点至碎部点间平距；H ——碎部点的高程。
5．该程序若在fx-3950中的程序清单为：？→M ：？→A ：？→B ：？→C ：？→D ：100（A-B ）（cos(90-D)）2→X ◢ M+Xtan(90-D)-C →Y说明：M ——将测站高程H0+仪器高I ；A ——上丝读数；B ——下丝读数；C ——中丝读数；D ——竖盘盘左读数L 。
X ——测站点至碎部点的平距；Y ——碎部点的高程。
二．FAN SUAN （反算）1．用途：该程序是“坐标反算公式”程序，用于根据两点1、2的平面坐标（X1，Y1）、（X2，Y2），计算两点间的距离D12及坐标方位角A12。
2． 程序清单：G “X1”：B “Y1”：C “X2”：H “Y2”：E=C-G ：F=H-B ↙ Pol （E ，F ）：I “D12”◢ ∆+=⇒<3600J J J J “A12” 3． 程序说明：X1，Y1——点1的平面坐标；X2，Y2——点2的平面坐标； D12——点1至点2间平距；A12——点1至点2坐标方位角。
由于编程时用到了极坐标函数POL （），故在程序运行中，会出现I=？XXX （数字）及J=？XXX （数字）这是函数POL 计算出的两个量，不能改变，直接回车默认即可。
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
对称缓和曲线任意点坐标计算公式（缺陷：非对称缓和曲线无算）1、Lb1 12、｛Z｝：Z”｛XY｝JI SUAN – K ”3、Z≥11100⇒Z＜13300⇒ A=101°15°19°:R=780：C=281.13:D=12510.916：N=3133280:E=511103:F=227°46°36°：J=1: ∆∆4、Z≥13300⇒Z＜14200⇒A=-20°44°10°：R=1000：C=140:D=13827.501:N=3134865.578:E=510151.503:F=329°01°56°：J=1: ∆∆5、P=C^2÷24÷R-C^4÷2688÷R^36、Q=C÷2-C^3÷240÷R^27、B=90C÷π÷R8、T=(R+P)tan(AbsA÷2)+Q◢9、W”E”=(R+P) ÷cos(A÷2)-R◢10、L=((AbsA)-2B) πR÷180+2C◢11、G”ZH-K”=D-T◢12、H”HY-K”=G+C◢13、I”QZ-K”=G+L÷2◢14、K”YH-K”=G+L-C◢15、M”HZ-K”=G+L◢16、A<0⇒S=-1:≠>S=1∆17、U=F+A÷2+90S18、V=W+R19、B=N+VcosU20、O=E+VsinU21、Z≤G⇒L=T+G-Z22、V=F+18023、U=F24、Goto 2∆25、Z≤H⇒L=Z-G26、V=L-L^5÷(90R^2C^2)27、L=30L^2S÷(πRC)28、P=F+18029、Q=F+L30、U=F+3L31、Goto 4∆32、Z≤K⇒L=F+A÷2+90S+180+180(Z-I)S÷R÷π33、U=L+90S34、Goto 5∆35、Z≤M⇒L=M-Z36、V=L-L^5÷(90R^2C^2)37、L=30SL^2÷(πRC)38、P=F+A39、Q=F+A+180-L40、U=F-3L+A41、Goto 4∆42、Z>M⇒L=Z-M+T43、U=F+A44、V=U45、Goto 246、Lb1 247、X=N+LcosV◢48、Y=E+LsinV◢49、Goto 6∆50、Lb1 351、｛W｝：W”｛WAI JU｝ L”52、P”XL”=X+Wcos(U-90)◢53、Q”YL”=Y+Wsin(U-90)◢54、P”XR”=X+Wcos(U+90)◢55、Q”YR”=Y+Wsin(U+90)◢56、Goto 157、Lb1 458、X=N+TcosP+VcosQ◢59、Y=E+TsinP+VsinQ◢60、Goto 661、Lb1 562、X=B+RcosL◢63、Y=O+RsinL◢64、Goto 665、Lb1 666、J=1⇒Goto3∆67、Goto12、解释A：转角，左“－”；右“＋”R：半径Ls：缓和曲线长JD：交点里程N、E：交点X、YF：方位角（交点后的方位角）Z：计算点里程，K12＋200＝12200J＝1（进行边桩计算）法线垂线上点坐标计算（弥补缺陷）（武小辉编程）XYPQPol（P-X,Q-Y）F=JLb 0｛W｝:W”1.CHUI ZU2.FA XIAN”W=1⇒Goto 1∆W=2⇒Goto 2∆Lb 1｛L｝:L”｛WAI FANG｝L=”Rec（L,F+90°）A”XR”=P+I▲B”YR”=Q+J▲Rec（L,F-90°）C”XL”=P+I▲D”YL”=Q+J▲Goto 0Lbl 2｛H｝:H”｛JU LI｝L=”Rec（H,F）P“X”=X+I▲Q“Y”=Y+J▲Goto 0说明：上程序接主程序，完善主程序法线垂线任意点坐标计算空白。
XY 为中桩XY坐标PQ为中桩左、右侧法线上点坐标L 为法线上垂线距离（计算时只需要输入这个数值就行了）H 直线上点距起点距离X Y 为直线上H距离处坐标提示：当计算线路右侧时，需要让主程序运算到右侧法线上点坐标后退出，进入此程序就可以了！（武小辉编程）1、A”PO-1”:B”PO-2”:C”BIAN PO - K”:D”BIAN PO - H”:T2、LbI 13、｛S｝:S”JI SUAN - K”（经典武小辉原创）一、原程序1、LbI 02、｛Z｝:Z”JI SUAN - K”3、Z≥11100⇒ Z＜11825⇒ A=11100:B=482.71:C=4÷100: Goto 1: ∆∆4、Z≥12175⇒Z＜12630⇒A=12000:B=518.71:C=2.6÷100: Goto 1: ∆∆5、Z≥12970⇒ Z＜13724⇒ A=12800:B=539.51:C=3÷100: Goto 1: ∆∆计算里程Z大于等于11100且小于11825时运行A=*** B=***C=***,然后到LbI 1 进行计算。
6、Z≥11825⇒ Z＜12175⇒A=.04:B=.026:C=12000:D=518.71:T=175: Goto 2: ∆∆7、Z≥12630⇒ Z＜12970⇒A=.026:B=.03:C=12800:D=539.51:T=170: Goto 2: ∆∆8、Z≥13724⇒ Z＜14076⇒A=.03:B=.008:C=13900:D=572.51:T=176: Goto 2: ∆∆（以上为曲线参数）9、LbI 110、H”JI SUAN - H”= (Z-A)C+B▲11、Goto 312、LbI 213、L=Z-C14、R=2T÷(B-A)15、H”JI SUAN - H”=D+((L+0.5R(A+B))2)÷2R-0.5RAB▲16、Goto 317、LbI 318、Z≥11500⇒Z＜11700.0001⇒X=（（0.42-0.24）÷200×（Z-11500）+0.24）:Y=((-0.42+.24)÷200×（Z-11500）+-0.24)：∆∆19、Z≥11700⇒Z＜12900.0001⇒X=0.42：Y=-0.42：∆∆20、Z≥12900⇒Z＜13000.0001⇒X=（0.42-（0.42-0.07）÷100×（Z-12900））:Y=(-0.42-（-0.42- -0.21)÷100×（Z-12900））：∆∆21、E”H1 ⇒ L”=H+X▲22、F”H2 ⇒ R”=H+Y▲23、Goto 0二、参考资料X: 左侧路面高差Y: 右侧路面高差路基宽度计算公式（武小辉编程）用作高差估算距离）1、LbI 02、｛Z｝:Z”JI SUAN - K”3、Z≥11500⇒ Z＜11920⇒ K=12.25: ∆∆4、Z≥11920⇒ Z＜11980⇒ K=(Z-11920)X0.02+12.25: ∆∆5、Z≥11980⇒ Z＜14000⇒ K=13.45: ∆∆6、K”1/2 LU KUAN”=K▲7、｛A｝: A”H1 DING”8、｛B｝: B”H2 DI”9、H=A-B10、H≥0⇒ H＜8.0001⇒W=1.5H+K+0.5: ∆∆11、H≥8.0001⇒ H＜20.0001⇒W=1.5×8+(H-8)×1.75+K+0.5: ∆∆12、H≥20.0001⇒ H＜30.0001⇒W=1.5×8+1.75×12+(H-20)×2+K+0.5: ∆∆13、H≥30.0001⇒ H＜100⇒W=1.5×8+1.75×12+2.0×10+2.25×(H-30)+K+0.5: ∆∆14、W”KUAN DU”=W▲15、Goto 0说明：宽度分3段， 1.K11500-11920 24.5m 半幅宽度12.25m2.K11920-11980 渐变宽度，渐变率+0.02m/m3.K11980-14000 26.9m 半幅宽度13.45mA:路基路缘石处高程B：测量底面高程H：高差W:计算里程处路基宽度，加宽0.5m坡度要求：H≤8m 1：1.5 8mH≤20m 1:1.5 8m 1:1.75其余H＞30m 1:1.5 8m 1:1.75 12m 1：2 10m其余1：2.25混凝土计算公式（武小辉编程）用作材料估算）1、LbI 02、｛Z｝:Z”｛BIAO HAO ｝（M7.5 10 C15 20 25 30 40 50 ”3、｛M｝:M”M3= ”3、Z=7.5⇒ A=266:B=1670:C=0:D=0:E=250: Goto 1: ∆4、Z=10⇒ A=325:B=1670:C=0:D=0:E=270: Goto 1: ∆5、Z=15⇒ A=363:B=791:C=1049:D=3.267:E=185: Goto 1: ∆6、Z=20⇒ A=268:B=807:C=1114:D=0:E=185: Goto 1: ∆7、Z=25⇒ A=300:B=842:C=1072:D=2.7:E=177: Goto 1: ∆8、Z=30⇒ A=318:B=838:C=1067:D=2.226:E=175: Goto 1: ∆9、Z=40⇒ A=410:B=802:C=1063:D=3.485:E=160: Goto 1: ∆10、Z=50⇒ A=485:B=685:C=1118:D=4.122:E=160: Goto 1: ∆11、G”SHA(M3) ”=MB÷1634▲坐标放样计算公式（用作放样角度、距离计算（武小辉编程）Z B 1”文件名称”1、｛Z｝:Z”ZHI JING H”:Prog“Z B 2”：E=A:F=B: ｛Z｝:Z”HOU SHI H”:Prog“Z B 2”：C=A:D=B2、Goto 03、Lbl 04、｛X｝:X”FANG X”: ｛Y｝:Y”FANG Y”5、Pol（C-E,D-F）6、M=J7、I”HOU L”=I▲8、Pol（X-E,Y-F）9、I”FANG L”=I▲10、R=J-M11、R＜0⇒Goto1∆12、R＞0⇒Goto2∆13、Lbl 114、R“FANG J°”=R+360▲15、goto 016、Lbl 217、R“FANG J°”=R▲18、Goto 0Z B 2”文件名称”1、Z≥485.68（相应点位高程）⇒Z＜485.7（范围上限高程值）⇒A=3134112.413:B=511966.684: ∆∆2、Z≥H⇒Z＜H’⇒A= X :B= Y : ∆∆3、按上部形式依次输入完成数据库数据。