卡西欧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 计算出的两个量，不能改变，直接回车默认即可。
CASIO_fx-4800P常用测量程序
一、QXFY 辛甫森公式放样程序1. U“X0”：V“Y0”2. A“XA”：B“Y A”：C“CA”：D“1÷RA”：E“1÷RB”：F“KA”：G“KB”3. Lb1 1：{HLR}：H“KI”：L“JJ”：R“DZ+Y-”4. H>G Goto 15. H<F Goto 16. P=(E-D) ÷Abs(G-F)：Q=Abs(H –F)：Z=P×Q：T=D+Z7. W=C+（Z+2D）Q×90÷π8. M=C+(Z÷4+2D)Q×22.5÷π：N=C+（3Z÷4+2D）Q×67.5÷π：K=C+(Z÷2+2D)Q×45÷π9. X=A+Q（cosC+4(cosM+cosN)+2cosK+cosW）÷12+Rcos(W-L)10. Y=B+Q(sinC+4(sinM+sinN)+2sinK+sinW) ÷12+ Rsin (W-L)11. Pol((X-U)，（Y-V）)J≤0J=J+360J“FWJ”12. I“S”13. Goto 1程序显示说明：须输入参数：X0:置镜点X (对应变量U)Y0:置镜点Y (对应变量V)XA:曲线起算点X (对应变量A)Y A:曲线起算点Y (对应变量B)CA：曲线起算点切线方位角(对应变量C) 1÷RA：1÷半径，即起算点曲率，右偏为正左偏为负(对应变量D)1÷RB：1÷半径，即曲终点曲率，右偏为正左偏为负(对应变量E)KA:起算点里程(对应变量F)KB:曲终点里程(对应变量G)KI:待求点里程(对应变量H)JJ:夹角(与前进方向切线方位角夹角，向右为正)(对应变量L)D“Z+Y－”：偏距，左正右负(对应变量R)计算结果: W: 待求点切线方位角(对应变量W) X:计算点x (对应变量X)Y:计算点y (对应变量Y)FWJ:放样方位角(对应变量J)S:放样距离(对应变量I)K BX 0Y 0本程序依据复化辛甫森公式计算原理改进而成，特点是把曲线按曲率变化点分成若干计算单元单独计算，不论直线（曲率为0）、圆曲线（曲率为1/R ）、卵形曲线，只要按曲率变化点分解弄清变化点曲率半径，右偏左偏曲线由曲率的正负号分别，既可求得该计算单元内任意里程中桩及斜交或正交的边桩。
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－置仪点与测点间的方位角(即拨角)。 注：应用此程序时须预置置仪点至后视点间的方位角。
Fx-4800P程序集
Fx-4800P程序集一、[YFJS]――――园弧计算L＝2×R×sin(A÷2)▲T=R×tan(A÷2)▲K=3.1416×R×R÷180▲L：弦长 T：切线长 K：弧线长 R：园弧半径A：园心角二、[JZBFYJS]――――极坐标放样计算主程序: [JZBFYJS]Prog “F”:J▲LbI 1:{xy}: Prog“F”:F=J▲D=I▲LbI 0:{STLZ}:G=L-F:Rec(S,T:Rec(J,G:E=J▲U=I-D▲Z“V.G”≠子程序: [F]PoI(x-A，Y-B：J＜＝J+360其中:(x,y)为后视点坐标 (A,B)为仪器点坐标三、[FWJJS]――――方位角计算G=180:{L}:F=F+L:F≤≠ΔF≥F:起算或推算方位角 L:水平角(左角)四、[SJTXJS]――――视距导线计算H=S×cosB×cosB▲X=X+H×cosF▲Y=Y+ H×sinF▲Z=Z+H×tanB-D+Q(X,Y,Z):起点坐标 H:平距 S:斜视距 F:方位角B:倾角 D:前点高(上-下+) Q:仪器高(上-下+) 五、[GDTXJS]――――光电导线计算X=X+H×cosF▲Y=Y+H×sinF▲Z=Z+V+D-Q(X,Y,Z):坐标 H:平距 F:方位角 V:倾斜值D:前点高(上+下-) Q:仪器高(上+下-)六、[JVTXJS]――――经纬导线计算H=S×co sB▲V=S×sinB▲X=X+S×cosB×cosF▲Y=Y+S×cosB×sinF▲Z=Z+S×sinB+D-QH:平距 S:斜距 B:倾角 V:倾斜值 F:方位角D:前点高(上+下-) Q:仪器高(上+下-)七、[DFXSJCLJS]――――多方向视距测量计算H=S×cosB×cosB▲V=0.5×S×sin2B▲X=M+H×cosF▲Y=N+H×sinF▲Z=G+V-D+QS:斜视距 B:倾角 V:倾斜值 (M,N,G):仪器站坐标(X,Y,Z):观测点坐标D:前点高(上-下+) Q:仪器高(上-下+)八、[DFXGDCLJS]――――多方向光电测量计算X=M+H×cosF▲Y=N+H×sinF▲Z=G+V-D+Q(M,N,G):仪器站坐标 (X,Y,Z):观测点坐标D:前点高(上-下+) Q:仪器高(上-下+)九、[DFXJVCLJS]――――多方向经纬仪测量计算X=M+S×cosB×cosF▲Y=N+S×cosB×sinF▲Z=G+S×sinB-D+QS:斜视距 B:倾角 F:方位角(M,N,G):仪器站坐标 (X,Y,Z):观测点坐标D:前点高(上-下+) Q:仪器高(上-下+)十、[SCHCJZWC]――――四测回测角中误差P=(A+B+C+D)÷4▲V=((A-P)2+(B-P)2+(C-P)2+(D-P)2)÷4:W=V▲(A、B、C、D)：四个测回各最终值 P:平均值 W:中误差十一、[DJRDPZZ]――――DJ2度盘整置O＝180°×（J-1）÷M＋0°10′×（J-1）＋0°10′×（J-0.5）÷M▲O:该测回整置数 J:第几测回 M:测回总数十二、[DJNDPZZ]――――DJ6度盘整置O＝180°×（J-1）÷MO:该测回整置数 J:第几测回 M:测回总数十三、[SDSZ]――――四等水准I=(A-B)÷10▲(A:后视黑面上丝 B:后视黑面下丝)X=0.5×(A+B) ▲(I:后视距 X:后视黑面中丝理论值) J=(D-E)÷10▲(D:前视黑面上丝 E:前视黑面下丝)Y=0.5×(D+E）▲(J:前视距 Y:前视黑面中丝理论值) K=(C-F)÷1000▲(C:后视黑面中丝 F:前视黑面中丝)S=F+P▲(K:黑面高差 P:前视标尺基数 S: 前视红面理论值)L=(-1×(-1×(P-G)+(O-H)))÷1000▲(G:前视红面中丝)T=C+O▲(O:后视标尺基数 H: 后视红面理论值 L: 红面高差) M=O+C-H▲(T:后视红面理论值 M:后视读数差)N=P+F-G▲(N:前视读数差)Q=I-J▲(Q:前后视距差)R=W+Q▲(W:上站前视距累差 R:至该站前后视距累差)十四、[NCHCJZWC]――――六测回测角中误差P=(A+B+C+D+E+F)÷6▲V=((A-P)2+(B-P)2+(C-P)2+(D-P)2+(E-P)2+(F-P)2)÷6: W=V▲十五、[IJJLJS]――――i角检验计算I=(-0.5×((A-B)+(C-D))×206000)÷S▲Y=D-((D-C)-(A-B))▲J=C-0.5×((D-C)-(A-B)▲接合观测记录图表使用十六、[ZYJFS]――――左右角反算B=360°- L▲B、L互为左右角十七、[SXGFLJS]――――三心拱方量计算S=（（B-0.3333×A）+0.264×A）×A▲V=L×SS:三心拱面积 A:巷宽 B:巷道全高V:体积 L:长度十八、[DGPJJS]――――等高平距计算X=(1÷(G-D))×(J-D)×H▲G:高端高程 D:低端高程 J:等高线高程H:低端至高端的平距(图上量取)X:低端至等高线的平距。
卡西欧4800P计算器测量程序集共10页
福建林业职业技术学院工程系土木工程室高国兴CASIO fx-4500PA计算中桩、边桩坐标程序直线、圆曲线中桩及左、右边桩计算程序fx-4800p=”：C“Xθ=”：D“Yθ=”：E“Wθ=”：N=Ans：R“R=”：L“Lμo=”：K“D=”：M“JμoQ=9θL÷（πR）：S=2RsinQ ：O =C＋Scos（N-Q）◢P=D+Ssin（N-Q）◢W=E-2Q◢X=O+Kcos（N-2Q-M）◢Y=P+Ksin（N-2Q-M）◢注：Xθ=起算点坐标Yθ=起算点坐标Wθ=起算点方位角R=曲线半径，线路前进方向，左+，右－直线R为无穷大=置镜点到待求点距离LμoD左、右边距离=前进方向左（+90），右（－90）JμoO=中桩坐标P=中桩坐标W=待求点方位角X=左、右边桩坐标Y=左、右边桩坐标缓和曲线中桩及左、右边桩计算程序Fx-4800pC“Xθ=”：D“Yθ=”：E“Wθ=”：N=Ans：R“R=”：F“Lθ=”：=”：K“D=”：M“Jμo=”←L“LμoU=L－L^5÷（40R2F2）：V=L^3÷（6RF）－L^7÷（336R^3F^3）：Q=tan－1（V÷U）：S=√（U2+V2）←B=9θL2÷（πRF）：O=C+Scos（N－Q）◢P=D+Ssin（N－Q）◢W=E－B◢X=O+Kcos（N－B－M）◢Y=P+Ksin（N－B－M）◢注：Xθ=起算点坐标Yθ=起算点坐标Wθ=起算点方位角R=曲线半径，线路前进方向，左+，右－Lθ=缓和曲线长=置镜点到待求点距离LμoD左、右待求距离=前进方向左（+90），右（－90）JμoO=中桩坐标P=中桩坐标W=待求点方位角X=左、右边桩坐标Y=左、右边桩坐标放样程序fx-4800pRLI“XZ”：W：“YZ”：G“XH”：H“YH”←B=H－W ←C=G－I ←Prog“P”：U=A←K=√（B2＋C2）←C=X“X－”－I←B=Y“Y－”－W←Prog“P”←L“L”=√（B2＋C2）◢V=A－U：V<θ==>V=V＋36θ⊿V “V=”◢PA=tan－1（B÷C）←B≥θ==> C≥θ==> A=A：≠=> C<θ==> A=A＋18θ⊿⊿≠=> B<θ==> C≥θ==> A=A＋36θ: ≠=>C<θ==>A= A＋18θ⊿⊿⊿←XZ、YZ—置镜点X、Y坐标；XH、YH—后视点坐标；X-、Y-—前视点坐标；输出：R=水平角、L=置镜点至前视点水平距离。
卡西欧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。
CASIO4800综合曲线坐标计算程序
[正确] CASIO fx-4800P综合曲线坐标计算程序说明：该程序适用于计算器 CASIO fx-4800P，可计算线路中心的缓和曲线、圆曲线、直线段，中、边桩坐标及切线方位角。
1、A? 输入转角:左转为负，右转为正2、R? 输入圆曲线半径3、LS? 输入缓和曲线长度4、JD(DK)? 输入交点里程桩号5、X(JD)? 输入本交点X坐标6、Y(JD)? 输入本交点Y坐标7、FWJ? 输入待求点切线方位角9、J? 输入0程序计算中桩，输入1程序计算边桩10、Z? 输入里程桩号1 A：R：C“LS”：D“JD(DK)”2 P=C∧2/24/R-C∧4/2688/R∧33 Q=C/2-C∧3/240/R∧24 B=90C/兀/R5 T=(R+P)tan(AbsA/2)+Q◢6 W=(R+P)/cos(A/2)-R◢7 L=((AbsA)-2B)兀R/180+2C◢8 G“ZH”=D-T◢9 H“HY”=G+C◢10 I“QZ”=G+L/2◢11 K“YH”=G+L-C◢12 M“HZ”=G+L◢13 N＂X(JD)＂：E＂Y(JD)＂：F＂FWJ＂: J14 A＜0=>S=-1:≠=>S=1⊿ (提示：0为数字“0”)15 U=F+A/2+90S16 V=W+R17 B=N+VcosU18 O=E+VsinU (提示：O为字母“O”)19 Lbl 120 {Z}21 Z≤G=>L=T+G-Z22 V=F+18023 U=F25 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“FWJ”=F+3L◢31 Goto 4⊿32 Z≤K=>L=F+A/2+90S+180+180(Z-I)S/R/兀33 U“FWJ”=L+90S◢34 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+A◢41 Goto4⊿42 Z>M=>L=Z-M+T43 U=F+A44 V=U45 Goto 246 Lbl 247 X=N+LcosV◢48 Y=E+LsinV◢49 Goto 6⊿50 Lbl 351 {W}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 Lbl 458 X=N+TcosP+VcosQ◢59 Y=E+TsinP+VsinQ◢60 Goto 661 Lbl 562 X=B+R cosL◢63 Y=O+RsinL◢ (提示：O为字母“O”)65 Lbl 666 J=1=> Goto 3⊿67 Goto 1注:1、◢为输出指令，若在后面加上，即可显示前面的计算结果输出在屏幕上。
卡西欧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=。
- 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、按上部形式依次输入完成数据库数据。