测量程序集
FX5800计算器测量程序集2.4 版使用说明要点
FX5800计算器测量程序集2.4 版使用说明一、程序功能主要功能：采用交点法方式计算多条线路坐标正反算，可算任意复杂线型及立交匝道，包括C型，S型、卵型、回头曲线等；极坐标放样，全线路基边坡开挖口及坡脚放样计算、路基任意点设计高程、横坡、设计半幅宽度.隧道欠超挖放样计算。
新版本优化：1、优化程序语句、2、以复数形式输入变量及数据库，取消原矩阵数据库;3、修改隧道超欠挖程序为通用形，不受圆心个数限制、4、新增测量资料表计算二、源程序（绿色为程序名；蓝色为输入计算器内容）紫色为新版改动处（可以根据自己标段情况用相关主程序及子程序，再在0程序中汇总）0.汇总程序（1、坐标计算放样程序(1XY、A、AB、HX、JS、DX、QX、F、XY、X1)；2、坐标反算程序（2ZD、A、B、AB、HX、QX、F、ZD、X1)；3、高程计算查阅程序（3GC、H、I、QX、S1、I1）；4、路基半幅标准宽度查阅程序（4GD、C、QX、G1）；5、路基边坡及开挖口放样程序（5BP、A、B、AB、HX、H、I、C、JS、DX、QX、F、ZD、X1、S1、I1、G1、W1）；6、路基标准距离放样（6FM、A、AB、HX、H、I、JS、DX、QX、F、XY、X1、S1、I1)；7、桥梁锥坡计算放样程序（7ZP、A、AB、HX、C、JS、DX、QX、F、XY、X1、G1)；8、极坐标计算程序（8JS、JS、DS）；9、隧道超欠挖计算程序（A、B、AB、HX、H、I、QX、S、SD、F、ZD、X1、S1、I1、SD1）运行后按1~9数子约半秒，选择程序，返回时，在桩号输入-1,返回选择计算类型，输入-2,返回选择线路。
计算内程序排例：0、01（测量资料专用）、02、0XYH 、1DAO XIAN、1SC （水准测量用）、1XY、2XY-S（由坐标计算面积）、2ZD、3GC、4GD、5BP、6FM、7ZP、8JS、9SD、A、AB、B、B6（测量表格检表6）、B7（检表7）、B8（检表8）、B9（检表9）、C、DX、DX0、F、G1、H、HX、I、I1、JS、M（度分秒转十进制）、QX、S、S1、SD0、SD1、T、W1、X1、XY、（五点通线元法计算坐标）、ZD带有不完整缓和曲线的线元转交点数据程序（T）。
常用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=为放样距离。
ISO14001-2015监测和测量程序
环境监测和测量程序（ISO14001-2015）1.0目的:对可能具有重大环境影响的运行与活动进行例行监控与管理，以实现对环境影响的有效控制。
2.0适用范围:适用于对环境绩效、有关的运行控制、环境目标、指标符合情况、法律法规遵循情况等的监控与管理。
3.0定义:（无）4.0职责:4.1相关部门负责对废弃物进行区分，并分类放置。
4.2财务部门负责统计水、电的使用。
4.3行政部负责统计废弃物的处置情况，并负责对废弃物进行处置,目标和指标的统计。
4.4管理者代表负责联系法定监测单位，对公司的污染物排放进行定期监测与测量,并负责对环境绩效、有关的运行控制、环境目标、指标符合情况、法律法规的遵循情况等进行监督检查。
4.5仓库负责原材料消耗统计。
5.0作业程序:5.1监测与测量的项目及计划公司确定对可能具有重大环境影响的运行与活动的关键特性进行监测，由行政部负责制定《环境监测与测量计划》（附件一），管理者代表负责确定监测与测量的项目及监测计划并经总经理审核。
监测与测量的项目和频次可按以下方式进行：5.1.1噪声的污染（1次/年）5.1.2一般废弃物处理（一般1次/季度）5.1.3危险废弃物处理（一般1次/12个月）5.2监测、测量项目的实施5.2.1噪声的监测和测量委托由管理者代表与外部法定监测机构联系，并确定其具有足够资格和能力实施测量项目，待监测和测量后，管理者代表要求其提供书面报告，同时对其监测报告进行评估，对超标项目提出纠正措施并进行整改；5.2.2公司内废弃物的处理情况由行政部负责每月进行分类统计，并安排特定的位置统一存放废弃物，集中后定期联络有资质的专业处理机构进行处理，并将其处理结果用《废弃物处理记录表》进行记录；普通生活垃圾依据厂房租赁合同，由工业区统一处理；5.2.3公司生活污水按工业区规划由工业区统一处理达标排放，本公司对工业区作为相关方处理，对其环境施加影响。
5.2.4仓库负责对供应商回收的一般废弃物进行登记，由采购部对供应方施加环境影响。
FX4800P测量程序集
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-V3． 程序说明：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计算出的两个量，不能改变，直接回车默认即可。
测量各类计算程序
程序名称：SQX “竖曲线计算主程序”IA“⊿I1”B“⊿I2”C“BP”F“HP”RTD=C－T：E=C+TLbl 0：{K}KD= >X=C－K：N=A：Goto 1⊿K≥E= >X=C－K：N=B：Goto 1⊿K≤C= >X=K－D：Y=C-K：N=A：Goto 2：≠>X=E－K：Y=C－K：N=B：Goto 2⊿Lbl 1：H“HS”=F-XN◢Goto 0Lbl 2：H“HS”=F－YN－I X2÷2÷R◢Goto 0注：I——竖曲线为凹型时输入-1，为凸型时输入1；⊿I1、⊿I2——输入格式为0.###BP——为变坡点里程HP——为变坡点高程R——半径T——切线K——输入待计算桩号HS——计算输出结果Re:各种常用程序集.doc极座标放样LBI 1:{EF}:A”XO”:B”YO”:C”X1”:D”Y1”:E”XA”:F”YA’G”X1A”=E-A:H”Y1A”=F-B:I’X12’=C-A:J”Y12”=D-BK”A1A”=tan-1(H÷G):L”A12”= tan-1(J÷I)M”JN”=√(G2+H2) ▲T”JD”=180-Abs(L-K) ▲POL(A-E,B-F) ▲J<0=>J=360+J△Z=J▲GOTO 1注:O为仪点,A为放点偏角法LBI 0:R:A:Q”QD”{G}I=Abs(G-Q)A[1]=90×I÷(πR) ▲C[1]=2RsinA[1] ▲GOTO 0直线座标Q”QD”:E”XA”:F’YA’:A”QHJ”:O”L=-90,R=+90”:G”FXD”:B”KD”I=Abs(G-Q)X=E+IcosA▲Y=F+IsinA▲P=A+OX”LR”=X+BcosP▲Y”LR”=Y+BsinP▲注:KD,:为向左右的宽度左为-90,右为90QD,为起点桩号XA,YA为起点桩号座标QHJ;方位角直线计算高程LBI 0:{XE}:Y”QD”:D”QDGC”:U”MD”:X”FDLC”:C”PD”;F”SZDGC”:A”HS’:E”QS”:U<X=>GOTO 0△X<Y=>GOTO 0△LBI 1:B=Abs(X-Y)L”SJGC”=B×C+D▲R”SXG”=A+F▲E=0=>M”DS”=R-L▲GOTO 0≠>N”GC”=R-E▲GOTO 0注: QS:为前视为0时到读数闭合导线座标计算LBI 0:{CE}:X”XO”:Y”YO”:D”FVJ”:C”JN”:E”L,R=360-L”GOTO 1LBI 1:E=0=>F=D▲≠>F=D+E-180△GOTO 2LBI 2:G=Rec(C,F) ▲D=F▲GOTO3LBI 3:X=I+X▲Y=J+Y▲GOTO 0任意里程中边桩坐标正反算（CASIO fx-4800P计算器）程序一、源程序(SZ-XY-SZ)"1.SZ => XY"："2. XY => SZ"：NU"X0"V"Y0"O"S0"G"F0"Q：Q=0=>R=1E-45：≠>R△J=0：M=AbsQ：K=1-M：N=1=>Goto 1：≠>Goto 2△←┙Lbl 1：{SZ}：SZ：L=S-O：B=90QL÷π÷R：F=G+B：E=F+B+90：C=LK+2MRsinQB：X"XS"= U+Rec(C,F)+ZcosE◢Y"YS"=V+J+ZsinE◢Goto 1←┙Lbl 2：W=G+90Q：E=U+Rec(R,W)：F=V+J←┙Lbl 3：{XY}：XY：D=Pol(X-E,Y-F):T=J：J<0=>T=J+360△B=T-W-180M：P=Abs B：S"S"=O+ DKcosP+ MπRP÷180◢Z"Z"=DKsinB+MQ(R-D)◢Goto 3←┙二、使用说明1.由里程、中边桩计算坐标启动程序后按以下提示输入数据：N ？1 （N=1，由里程中边桩计算坐标；N≠1，由坐标反算里程及中边桩)X0 ？142.353 (直线或圆曲线起点的X坐标）Y0 ？368.166 (直线或圆曲线起点的Y坐标）S0 ？155.252 (直线或圆曲线起点的里程）F0 ？60°54′03″(直线或圆曲线起点的切线方位角）Q ？-1 (当线元为直线时Q=0；当线元为圆曲线且左偏时Q=-1；当线元为圆曲线且右偏时Q=1)R ？100 (圆曲线的半径)S ？194.016 (中线里程)Z ？-5.251 (中线左侧5.251m的边桩；在中线上Z=0，在左侧<0，在右侧Z>0)显示计算结果XS=172.7467767YS=395.23168072.由坐标反算里程、中边桩启动程序后按以下提示输入数据：N ？2 （N=1，由里程中边桩计算坐标；N≠1，由坐标反算里程及中边桩)X0 ？142.353 (直线或圆曲线起点的X坐标）Y0 ？368.166 (直线或圆曲线起点的Y坐标）S0 ？155.252 (直线或圆曲线起点的里程）F0 ？60°54′03″(直线或圆曲线起点的切线方位角）Q ？-1 (当线元为直线时Q=0；当线元为圆曲线且左偏时Q=-1；当线元为圆曲线且右偏时Q=1)R ？100 (圆曲线的半径)X ？172.7467767 (待求里程及中边桩的点的X坐标)Y ？395.2316807 (待求里程及中边桩的点的Y坐标)显示计算结果S=194.016 Z=-5.251三、注意事项1.本程序主要是针对市政道路工程中的直线和圆曲线而编制的，未考虑缓和曲线等曲线的计算；2.程序中“R=1E-45”的意思为10的-45次方，输入程序时切莫输错。
Fx5800计算器公路测量程序设计
FX5800计算器测量程序集2.4 版一、程序功能主要功能：采用交点法方式计算多条线路坐标正反算，可算任意复杂线型及立交匝道，包括C型，S型、卵型、回头曲线等；极坐标放样，全线路基边坡开挖口及坡脚放样计算、路基任意点设计高程、横坡、设计半幅宽度.隧道欠超挖放样计算。
新版本优化：1、优化程序语句、2、以复数形式输入变量及做数据库，取消原矩阵数据库;3、修改隧道超欠挖程序为通用形，不受圆心个数限制、4、新增测量资料表计算二、源程序（绿色为程序名；蓝色为输入计算器内容）紫色为新版改动处（可以根据自己标段情况用相关主程序及子程序，再在0程序中汇总）0.汇总程序（1、坐标计算放样程序(1XY、A、AB、HX、JS、DX、QX、F、XY、X1)；2、坐标反算程序（2ZD、A、B、AB、HX、QX、F、ZD、X1)；3、高程计算查阅程序（3GC、H、I、QX、S1、I1）；4、路基半幅标准宽度查阅程序（4GD、C、QX、G1）；5、路基边坡及开挖口放样程序（5BP、A、B、AB、HX、H、I、C、JS、DX、QX、F、ZD、X1、S1、I1、G1、W1）；6、路基标准距离放样（6FM、A、AB、HX、H、I、JS、DX、QX、F、XY、X1、S1、I1)；7、桥梁锥坡计算放样程序（7ZP、A、AB、HX、C、JS、DX、QX、F、XY、X1、G1)；8、极坐标计算程序（8JS、JS、DS）；9、隧道超欠挖计算程序（A、B、AB、HX、H、I、QX、S、SD、F、ZD、X1、S1、I1、SD1）运行后按1~9数子约半秒，则选择1至9的程序，返回时，在桩号输入-1,返回选择计算类型。
输入-2,返回选择线路。
程序名：0（数子0）ClrMat:ClrVar:12→DimZ：Norm 2:Do:＂(XY=1，ZD=2 ，GC=3，GD=4，BP=5，FM=6，ZP=7，JS=8，SD=9)===>QING AN 1-9＂：Getkey→Z[3]:While Z[3]=35:Prog＂1XY＂:WhileEnd:While Z[3]=36:Prog＂2ZD＂：WhileEnd: While Z[3]=37:Prog＂3GC＂：WhileEnd: While Z[3]=21:Prog＂4GD＂：WhileEnd: While Z[3]=22:Prog＂5BP＂：WhileEnd: While Z[3]=23:Prog＂6FM＂：WhileEnd: While Z[3]=31:Prog＂7ZP＂：WhileEnd: While Z[3]=32:Prog＂8JS＂：WhileEnd: While Z[3]=33:Prog＂9SD＂：WhileEnd:LpWhile Z[3]≠25:”XIE XIE SHI YONG”:计算内程序排例：0、01（测量资料专用）、1SC（水准测量用）、1XY、2XY-S（由坐标计算面积）、2ZD、3GC、4GD、5BP、6FM、7ZP、8JS、9S D、A、AB、B、B6（测量表格检表6）、B7（检表7）、B8（检表8）、B 9（检表9）、C、DX、DX0、F、G1、H、HX、I、I1、JS、M（度分秒转十进制）、QX、S、S1、SD0、SD1、T、W1、X1、XY、XYH（五点通线元法计算坐标）、ZD程序内容无电子版。
测绘勘察作业地籍测量作业流程
测绘勘察作业地籍测量作业流程一、目的地籍测量的目的不仅是为课税或保护产权服务，而且更重要的是为土地合理的利用、保护和科学管理提供基础资料。
为了规范地籍测量的作业流程，保证产品质量，特编制本作业流程。
二、范围此作业程序流程适用范围为城镇地籍权属调查和地籍测量。
三、作业依据1．法律与法规⑴《中华人民共和国土地管理法》；⑵《中华人民共和国城市房地产管理法》；⑶《中华人民共和国土地管理法实施条例》。
2．行政规章⑴《土地登记规则》（1995，国土[法]字第184号）；⑵《确定土地所有权和使用权的若干规定》（1995，国土[籍]字第26号）；⑶《土地权属争议调查处理办法》（2003，国土资源部17号令）。
3.技术标准⑴《城镇地籍调查规程》（TD1001-93）；⑵《城镇变更地籍调查实施细则（试行）》（1998，国土[籍]字第36号）；⑶《地籍测绘规范》（CH 5002-94）；⑷《地籍图图式》（CH 5003-94）；⑸《城市测量规范》（CJJ8-99）；⑹《1：500、1：1000、1：2000比例尺地形图图式》（GB/T7929-1995）；⑺《全球定位系统城市测量技术规程》（CJJ73-97）；⑻项目设计书或指导书；⑼其它有关的技术要求。
四、流程图作业流程图五、作业程序1．项目准备1.1宣传和动员配合政府地籍更新调查与测量领导小组行文发送到市辖区各单位，并在调查区内各主要路口和各级政府外墙张贴地籍更新调查与测量通告，同时通过广播、有线电视、报纸等媒体广泛宣传地籍更新调查与测量的目的、意义和重要性，争取各机关、企事业单位和全体市民的理解和积极配合。
同时，在开展地籍调查的区域，以街道为主体，分片召开动员会，参加人员为各社区有关负责人，为地籍调查工作的顺利开展打好基础。
1.2培训邀请专家和设计人员对作业人员和技术管理人员进行本次地籍调查工作的法律、法规、技术规程、设计书的学习培训，使作业人员充分掌握调查方法、技术要求和注意事项，确保调查成果的质量达到规定的要求。
测绘程序设计实验指导书1
《测绘程序设计》实验指导书华北科技学院土木工程系测绘工程教研室2010年8月实验一：线性方程组解算一、实验目的与要求⒈初步掌握线性方程组的算法；⒉初步掌握线线性方程组在计算机上实现方法。
二、实验安排⒈实验共需用2学时。
⒉实验每个小组1人，用C/VB等语言在计算机上完成程序代码的编写，并调试通过，然后用算例印证程序的正确性。
三、实验步骤及要点⒈在课余时间，提前准备线性方程组解算程序代码；⒉上机时写入代码，并调试运行；⒊用算例进行印证。
四、实验指导（一）Turbo C工作环境一个C语言程序的实施是从进入Turbo C的集成环境开始的，而进入C语言的环境，一般有两种途径：从DOS环境进入和从Windows环境进入。
1、从DOS环境进入：在DOS命令行上键入：C>CD \TC↙（指定当前目录为TC子目录）C>TC↙ (进入Turbo C环境)这时进入Turbo C集成环境的主菜单窗口，屏幕显示如下图所示。
2、从Windows环境进入：在Windows 95/98环境中，如果本机中已安装了Turbo C，可以在桌面上建立一个快捷方式，双击该快捷图标即可进入C语言环境。
或者从开始菜单中找到“运行”，在运行对话框中键入“C:\TC\TC”，“确定”即可。
刚进入TC环境时，光带覆盖在“File”上，整个屏幕由四部分组成，依次为：主菜单、编辑窗口、信息窗口和功能提示行（或称快速参考行）。
（1）主菜单显示屏的顶部是主菜单条，它提供了8个选择项：File 处理文件（装入、存盘、选择、建立、换名存盘、写盘），目录操作（列表、改变工作目录），退出Turbo C，返回DOS 状态。
Edit 建立、编辑源文件。
Run 自动编辑、连接并运行程序。
Compile 编辑、生成目标文件组合成工作文件。
Project 将多个源文件和目标文件组合成工作文件。
Option 提供集成环境下的多种选择和设置（如设置存储模式、选择编参数、诊断及连接任选项）以及定义宏；也可记录Include、Output及Library文件目录，保存编译任选项和从配置文件加载任选项。
顾客满意度测量控制程序
顾客满意度测量控制程序1 目的为规范顾客满意度评价，保证评价的客观性和有效性，提高顾客满意度，特制定对顾客满意度信息的收集和评价活动并执行本程序。
2 范围本程序适用于公司对顾客满意度的监视和评价。
3 职责3.1市场部为本程序的归口管理部门，负责顾客满意度的调查、汇总、分析工作；3.2售后部负责参与顾客满意度的调查工作。
3.3质量部负责对顾客满意度调查报告的采集、重大质量问题的仲裁和管理评审的输入工作。
4 工作程序4.1顾客满意度调查的内容a）已交付产品质量，包括但不限于：产品的功能、性能、美观性等；b）产品交付的及时性；c）产品价格及性价比；d）售后服务。
4.2顾客满意度调查的方式a）发放顾客满意度调查表；b）电话问询；c）用户走访及用户意见调查；d）对交付产品质量方面数据的分析；e）流失业务的分析（销量的变化）。
4.3 顾客满意度调查的实施市场部在办理产品交付手续时，应建立《用户服务档案》；每年集中组织进行一次顾客满意调查，向用户发送《顾客满意度调查表》，调查用户对公司产品质量和服务的满意程度，收集意见和建议。
市场部负责收回《顾客满意度调查表》，调查表的收回率应在80%以上，以便统计分析。
4.4 顾客满意度分析与改进4.4.1顾客满意度调查项的分级顾客满意度调查项一般分为五级，即：很满意、较满意、满意、不满意、很不满意。
4.4.2顾客满意度调查项4.4.3顾客满意度测量市场部收集完顾客满意度调查后，应根据产品的类型，对调查情况进行统计。
根据统计总分值，得出顾客满意度的评价：100分为很满意、90-100分为较满意、80-90分为满意、20-80分为不满意、0分为很不满意。
4.4.4 顾客满意度分析对统计完成的数据，市场部应整理成顾客满意度分析报告，报管理者代表、重要信息报总经理审批，同时抄报质量部。
顾客满意度分析报告应包括以下内容：a ) 每一项目、小项和产品类型统计的满意度结果；b ) 特殊统计数据说明，主要有平均分数最低的小项、项目或产品，与以前比较升降幅度最大和最小的小项、项目和产品；c) 存在下列情况下应进行重点分析，如监督机构发布的产品质量公告情况、媒体报道情况、顾客投诉、退货、顾客意见与建议；d) 分析与结论，对改进的建议。
卡西欧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计算器测量放样程序汇编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。
卡西欧4800P计算器测量程序集-10页文档资料
福建林业职业技术学院工程系土木工程室高国兴CASIO fx-4500PA计算中桩、边桩坐标程序直线、圆曲线中桩及左、右边桩计算程序fx-4800pC“Xθ=”：D“Yθ=”：E“Wθ=”：N=Ans：R“R=”：L“Lμo=”：K“D=”：M“Jμo=”：Q=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μo=置镜点到待求点距离D左、右边距离Jμo=前进方向左（+90），右（－90）O=中桩坐标P=中桩坐标W=待求点方位角X=左、右边桩坐标Y=左、右边桩坐标缓和曲线中桩及左、右边桩计算程序Fx-4800pC“Xθ=”：D“Yθ=”：E“Wθ=”：N=Ans：R“R=”：F“Lθ=”：L“Lμo=”：K“D=”：M“Jμo=”←U=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μo=置镜点到待求点距离D左、右待求距离Jμo=前进方向左（+90），右（－90）O=中桩坐标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=置镜点至前视点水平距离。
【测量程序】FX5800计算器测量程序集
测量程序】FX5800 计算器测量程序集FX5800 计算器测量程序集2.0 版一、程序功能主要功能：计算多条线路坐标正反算，可算任意复杂线型及立交匝道，包括C型，S型、卵型、回头曲线等；极坐标放样，全线路基边坡开挖口及坡脚放样计算、路基任意点设计高程、横坡、设计半幅宽度.隧道欠超挖放样计算。
新版本特点：1、优化原所有主程序，所有参变量（如导线点置仪点坐标、正反算选择、偏角、线路选择等），全部在程序头次显示一次，以后运行不需输入。
运行中也可以返回再次选择线路、可以直接以矩阵形式调出线路参数。
2、坐标计算考虑了线元法与交点法相结合，即是一条线路也可以一段用线元法，一段用交点法。
参数置放矩阵中，输入和可读性极好。
3、新增隧道断面欠超挖值放样计算4、高程程序中考虑了初次输入线路选择、计算面与设计面高差，输出中加入显示本桩号路基标准宽度。
二、源程序1•主程序1: 一般放样正反算程序（①正算坐标、放样点至置仪点方位角及距离；②反算桩号及距中距离）程序名:1ZD-XY Lb1 Q: Norm 2:14 —DimZ : 1 —F: Prog” DX " :Lb1 X : Prog" QX" : 90—B:” PJ”？B: B—Z[1] : Lb1 0: Norm 2 : “KM”?Z：If Z=-1:Then Goto X:Else If Z=-2: Then 2 —F :Goto 0: Else If Z=-3: Then Goto 9:IfEnd: Prog ” KM ”：IfF=1:Then ?D:Else “X0”?X:“Y0”?Y: IfEnd: Prog ＂THB ＂:IfF=1: Then Goto 1: Else Goto 2 : Lb1 1: F ix 3:" X =" : Locate6,4, X^H Y = H: Locate 6,4, Y丄P rog" 6JS” :Goto 0:Lb1 2:Fix 3: H KM = H: Locate 6,4, Z^H D = H : Locate6,4, D丄G oto 0 : Lbl 9:Mat F AG oto Q 2 .主程序2:高程、横坡、宽度程序（计算设计任意点高程、横坡及路基设计标准宽度）程序名：2GC14 — DimZ : LbI 0:Norm 2: Prog " QX": 0—B:” H-B: ” ？B:B —Z[9]:Lbl H: Norm 2: “KM ” ?Z:Z=-1=> Goto 0:?D:Prog” H” :Fix 3:” H=” :Locate 6,4,HA“I=” : Locate 6,4,I A Prog" GD " : “ SJLG= ”： Locate 6,4丄A Goto H3 .主程序3:涵洞放样程序（输入置仪点坐标。
市政管网测量控制流程
一、施工前准备1、技术准备（1）熟悉设计文件，图纸，进行现场踏勘，了解现场情况（2）依据建设单位提交的平面、高程控制点资料，制定具体测量技术方案，并经审批。
（3）依据设计图提供的定线条件、结合工程施工的需要，做好测量所需各项数据的内业搜集、计算、复核工作。
2、测量仪器的配置施工前对上述测量仪器进行校准和仪器鉴定，保证仪器精度，并对仪器进行施工测量设备进场报审，附加测量员证资料，上报监理业主。
二、控制网的测设1、控制网测设流程测量桩位交接→桩位复测→测量交接桩上报→控制网测设→测量成果上报（1）测量桩位交接测量桩位交接由建设单位主持，在现场由勘测单位向施工单位进行交桩，施工单位由测量主管人员负责接桩。
依照资料在现场指认具体位置，具体标志进行移交。
交接桩时，各桩位应完整稳固，交接桩测量资料必须要有图纸的位置和桩号及坐标和高程参数，现场桩位应与书面资料要吻合。
（2）桩位复测接桩后，应立即组织测量人员进行内业校核及外业复测，平面控制点复测采用附合导线测量方法进行，高程控制点复测采用附合水准测量或三角高程测量方法。
复测合格后及时向监理工程师和业主提交复测报告，上报测量交接桩，以使复测成果得到确认后使用。
（3）控制网测设现场选点→控制网布设→外业测量→内业数据处理①现场选点每个片区至少要有四个平面控制点和高程控制点，点位应通视良好，能进行前后视，和点位的复核，加密控制点应选在距沟槽50米左右的位置，方便对沟槽管道进行高程控制。
②控制网布设管线工程平面控制测量方法采用附合导线方法，高程控制测量采用附合水准测量方法，控制点每200米左右一个，施工期间定期复测。
③外业观测角度测量和距离测量应符合国家控制测量相应等级及相关要求。
④内业数据处理计算所用全部外业资料与起算数据，确认无误后方可使用。
进行数据平差。
平面控制点和高程控制点形成以后，在奥维地图中标明具体定位和数据，形成控制点数据表划分到片区，对施工队的测量人员和管理人员进行现场指认和交接控制点数据，并再次进行控制点的数据复核，确保准确无误。
工程测量坐标正反算通用程序(终极篇)
第五篇坐标正反算通用程序(终极篇)1. 坐标正算主程序(命名为ZBZS)第1行：Lbl 0:”K=”?K:”BIAN=”? Z:”α=”?B第2行：Prog “A”第3行：”X=”:N+Zcos(F+B)◢第4行：”Y=”:E+Zsin(F+B)◢第5行：”F=”:F►DMS◢第6行：Goto 0K——计算点的里程BIAN——计算点到中桩的距离（左负右正）α——取前右夹角为正2. 坐标反算桩号和偏距主程序(命名为ZBFS)第1行：”X1=”? C:”Y1=”?D:”K1=”?K第2行：Lbl 0:Prog “A”第3行：Pol(C-N,D-E):Icos(F-J)→S:K+S→K第4行：Abs(S)>0.0001=>Goto 0第5行：”K1=”:K◢第6行：”BIAN=”:Isin(J-F)→Z◢X1——取样点的X坐标Y1——取样点的Y坐标K1——输入时为计算起始点(在线路内即可)，输出时为反算点的桩号Z——偏距（左负右正）注：在9860或9960中需将第3行替换为Pol(C-N,D-E): List Ans[1]→I ：List Ans[2]→J：Icos(J-F)→S:K+S →K，正反算主程序所有输入赋值多加一赋值符号（→），其他所有除数据库外的程序均保持不变3. 计算坐标子程序(命名为XYF)为了简洁，本程序由数据库直接调用，上述中的正反算主程序不直接调用此程序第1行：K-A→S：(Q-P)÷L→I第2行：N+∫(cos(F+X(2P+XI)×90÷π),0,S)→N第3行：E+∫(sin(F+X(2P+XI)×90÷π),0,S)→E第4行：F+S(2P+S I)×90÷π→F第5行：F<0=>F+360→F: F>360=>F-360→F4. 数据库（命名为A）第1行：K≤175.191=>Stop（超出后显示Done）第2行：175.191→A:428513.730→N:557954.037→E:92°26′40″→F:0→P:1/240→Q:70.417→L:K≤A+L =>GoTo 1（第一缓和曲线）第3行：245.607→A: 428507.298→N:558024.092→E: 100°50′59.4″→F: 1/240→P:1/240→Q:72.915→L: K≤A+L =>Goto 1（圆曲线）第4行：318.522→A: 428482.988→N:558092.538→E: 118°15′25.2″→F: 1/240→P: 0→Q: 55.104→L: K≤A+L =>Goto 1（第二缓和曲线）第5行：373.627→A:428453.283→N:558138.912→E:124°50′4.5″→F:0→P:-1/180→Q:67.222→L:K≤A+L=>Goto 1:Stop（下一曲线的第一缓和曲线，示例为S型曲线，超出后显示Done）第6行：Lbl 1:Prog “XYF”A——曲线段起点的里程N——曲线段起点的x坐标E——曲线段起点的y坐标F——曲线段起点的坐标方位角P——曲线段起点的曲率(半径倒数，直线为0，左负右正)Q——曲线段终点的曲率(半径倒数，直线为0，左负右正)L——曲线段长度（尽量使用长度，为计算断链方便）说明：（1）正算主程序可以计算一般边桩的坐标，如要计算类似涵洞端墙的坐标需增加两个变量，具体方法参考本程序集中的第1篇辛普生公式的坐标计算通用程序（2）适用于任意线形：直线（0→P、0→Q）、圆曲线（圆半径倒数→P、圆半径倒数→Q）、缓和曲线（0或圆半径倒数→P、圆半径倒数或0→Q）、卵形曲线（接起点圆的半径倒数→P、接终点圆的半径倒数→Q），曲线左转多加一负号。
5800程序集锦
FX5800计算器公路测量常用程序集一、源程序1.总主程序（1、坐标计算放样程序2、坐标反算程序；3、高程计算查阅程序；4、路基半幅标准宽度查阅程序；5、路基边坡及开挖口放样程序；6、路基标准距离放样；7、桥梁锥坡计算放样程序；8、极坐标计算程序；9、隧道超欠挖计算程序）运行后输入1~9数子则选择1至9的程序，返回时，在桩号输入-1,返回选择选择计算类型。
输入-2,返回选择线路。
坐标计算中输入-3,则显示本段曲线要素。
程序名：0ZCXLbI Q: 15→DimZ：Norm 2:1→A：＂A:XY=1， ZD=2 ，GC=3， GD=4， BP=5， FM=6， ZP=7， JS=8， SD=9＂?A:A=1=>Goto 1:A=2=>Goto 2:A=3=>Goto 3:A=4=>Goto 4:A=5=>Goto 5:A=6=>Goto 6:A=7=>Goto 7:A=8=>Goto 8:A=9=>Goto 9LbI 1:Prog ＂DX＂:LbI A:Prog＂QX＂:90→B: ＂PJ1＂?B:B→C: ＂PJ2＂?C:B→Z[1]:C→Z[8]:LbI B:1→F: ＂KM＂?Z:Z= -1=>Goto 0:Z=-2=>Goto A:Z=-3=>Goto X:Prog＂KM＂:?D:Porg＂THB＂:O→L: ＂L0＂?L:Z[2]+Z[1]-Z[8] →E:X+L cos(E) →X:Y+Lsin(E) →Y:Prog＂XY＂:Prog＂JS＂:Goto BLbI 2:2→F:90→Z[1]:Prog＂QX＂:LbI C: ＂KM＂?Z:Z=-1=>Goto 0:Z=-2=>Goto 2:Z=-3=>Goto X:Prog＂KM＂: ＂XO＂?X: ＂Y0＂?Y:Prog＂THB＂:Porg＂ZD＂:Goto C: LbI 3:Prog＂QX＂:0→B: ＂H-B＂?B:B→Z[9]:LbI D: ＂KM＂?Z:Z=-1=>Goto 0:Z=-2=>Goto 3:?D:Porg＂H＂:Fix 3: ＂ H=＂:Lcoate 6,4,H-Z[9] ◢＂ I=＂:Locate 6,4,I◢ Goto DLbI 4:Prog＂QX＂:LbI E: ＂KM＂?Z:Z=-1=>Goto 0:Z=-2=>Goto 4:?D:Prog＂GD＂:Fix 3: ＂ SJGD=＂:Locate7,4,L ◢ Goto ELbI 5:Prog＂QX＂:0.5→B:＂TH-GD＂?B:B→Z[15]:LbI F:2→F:90→Z[1]:＂KM＂?Z:Z=-1 =>Goto 0:Z=-2 =>Goto 5: Prog＂KM＂: ＂X0＂?X: ＂Y0＂?Y:0→M:”M0”?M: M→Z[4]:Prog＂3FBZ＂Fix 2:Z[3] →D:Abs（D）-S→O: ＂ L0=＂:Locate 6,4,O◢Prog＂ZD＂: Z[5]→T:＂ TW=＂:Lcoate 6,4,T◢ Goto F:LbI 6:Prog＂DX＂:LbI G:Prog＂QX＂:LbI H:1→F:90→Z[1]: ＂KM＂?Z:Z=-1=>Goto 0:Z=-2=>Goto G:Prog＂KM＂:? D:Prog＂THB＂:Prog＂XY＂:Prog＂JS＂:Prog＂H＂:0→M: ＂M0＂?M:Fix 2:H-M→T: ＂ TW=＂:Locate 6,4,T◢ Go to H:LbI 7:Prog＂DX＂:LbI I:Prog＂QX＂:0→D: ＂LD:Z-,Y+＂? D:Abs(D) →R: ＂LR＂?R: ＂Z0＂?Z: D→Z[6]:R→Z [7]:Z→Z[8]:LbI J:0→Y: ＂L0:SZ+,DZ-＂?Y:Y=-1=>Goto 0:Y=-2=>Goto I:Prog＂ZP＂:Goto J:LbI 8:Prog＂DX＂:LbI K:?X:X=-1=>Goto 0:X=-2=>Goto 8:?Y:Prog＂JS＂:Goto K:LbI 9:Porg＂DX＂:LbI L:Prog”QX”:LbI M:2→F:90→Z[1]: ＂KM＂?Z:Z=-1=>Goto 0:Z=-2=>Goto L:Z=-3=>Goto X: Prog＂SD1＂: 0.5→A:“CQHD＂?A:“X0＂?X:＂Y0＂?Y:0→M=＂M0＂?M:M→Z[8]:A→Z[15]:Prog＂5SD＂： Goto M:LbI X:Mat F◢ Goto 02、次程序:路基开挖边线及填方坡脚线放样程序（输入填方放宽值、大概桩号及测量坐标、地面标高计算出偏移距离、桩号、距中距离、填挖高度）程序名：3FBXProg”THB”:D→P:Prog”GD”:If D<0:Then 0.75-L→D:Goto H:Else L-0.75→D:Goto H:IfEndLbI H:Prog“H”:H-0.03-Z[4] →Z[4]: Prog “W1”:If Z[4]<0:Then –Z[4] →G:Goto W:Else Z[4] →G:Goto T: LbI W:Z[8]+Z[9] →A: If G>A:Then Goto 1:Else If G>Z[8]:Then Goto 2:Else Goto 3:IfEnd:LbI 1:L+Z[10]+Z[11]+Z[12]+(G-A)×Z[7]+Z[9]×Z[6]+Z[8]×Z[5] →S:Goto Z:LbI 2:L+Z[10]+Z[11]+(G-Z[8])×Z[6]+Z[8]×Z[5] →S:Goto Z:LbI 3:L+Z[10]+G×Z[5] →S:Goto Z:LbI T:L+Z[17]→T:If G>Z[15]:Then (T+Z[16]+(G-Z[15])×Z[14]+Z[15]×Z[13])→S:Goto Z:Else (T+G×Z[13])→S:Goto Z:LbI Z3.次程序3.隧道超欠挖值计算放样程序（输入隧道线路，大概桩号、输入衬砌厚度、测量三维坐标，计算准确桩号及位置、计算欠超挖值）程序名：5SDProg”KM”:Prog“THB”: D→Z[13]:0→D:Prog“H”:Cos(Z[10]) ×Z[4] →E: H+Z[5] →Z[5]: H+Z[7] →Z[7]: E+ Z[5] →Z[10]:If Z[8]>Z[10]:Then Goto R:Else Goto S:IfEnd:LbI R:√((Z[13]-Z[9]) 2+(Z[8]-Z[5]) 2 )- Z[4]-Z[15] →L:Goto L:LbI S:Z[4]-Z[6] →S:√(S 2-(Z[7]-Z[5]) 2 )×S÷Abs(S)→T:Abs(Z[13]-Z[9])-T→T:√(T 2+(Z[8]-Z[7]) 2 )- Z[6]-Z[15] →L:Goto L:LbI L: Fix 2:” L0=”: Locate 6,4,L◢Prog”ZD”:“ H0=”: Locate 6,4,Z[8]-H◢4：极坐放样计算程序(计算放样点至置仪点方位角及距离)程序名：JSX：Y：Z[11]→K：Z[12]→L：Pol(X-K, Y-L):IF J<0:Then J+360→J:IFEnd:Int(J)+0.01Int(60Frac(J))+0.006Frac(6 0Frac(J)) →J: Fix 4:” FWJ=”: Locate 6,4,J◢F ix 3:” S=”:Locate 6,4,I◢5．路基宽度子程序6：路基标准半幅宽度计算程序(对于设计有加宽渐变的有用，如路基宽度无变化，则把此程序直接输入半幅宽度值至L)程序名： GD1→S: Prog “G1”:Z-C→E:(B-A)*E/S+A→L:6．坐标计算次程序（ＴＨＢ）程序名：THBIf Q=2:Then Goto J: Else 1÷P→Ｃ：(P-R)÷(2HPR)→Ｓ：180÷Π→E：If F=1:Then Abs(Ｚ－0) →W：Prog "Ａ"：Ｇoto 2:Else Ｘ→I：Ｙ→J：Prog ＂Ｂ＂：Ｏ＋Ｗ→Z：Ｄ→Ｄ：Ｇoto 2: IfEnd:LbI J: If F=1:Then Prog "Z"：Ｇoto 1:Else Prog ＂ZX＂：Ｇoto 2: IfEnd:LbI 1:I+D×COS(Z[2]+Z[1]) →X: J+D×Sin(Z[2]+Z[1]) →Y: LbI 27. 线元法正算子程序(Ａ)程序名：A0.1184634425→A： 0.2393143352→B：0.2844444444→N：0.046910077→K： 0.2307653449→L：0.5→M： U+W(Acos (G+QEKW(C+KWＳ))+Bcos(G+QELW(C+LWＳ))+Ncos(G+QEMW(C+MWＳ))+Bcos(G+QE(1-L)W(C+(1-L)WS))+Acos(G+QE(1-K)W (C+(1-K)WS))) →X：V+W(Asin(G+QEKW(C+KWＳ))+Bsin(G+QELW(C+LWＳ))+Nsin(G+QEMW(C+MWS))+Bsin(G+QE(1-L)W(C+(1-L)WS))+Asin(G+Q E(1-K)W(C+(1-K)WＳ))) →Y：G+QEW(C+WＳ)→Ｚ［２］：X+Ｄcos（Ｚ［２］+ Z[1]）→Ｘ： Y+Ｄsin（Ｚ［２］+ Z[1]）→Ｙ8. 线元法反算子程序(Ｂ)程序名：BG-90→Ｔ： Abs((Y-V)cos(T)-(X-U)sin(T)) →Ｗ： 0→Ｄ：Lbl 0：Prog "Ａ"： T+QEW(C+WＳ) →Ｌ： (J-Y)cos(L) -(I-X)sin(L)→Ｄ：IF Abs(Ｄ)<0.01:Then Goto 1：Else W+Ｄ→W:Goto 0: IfEnd:←┘Lbl 1:0→D：Prog "Ａ"：(J-Y)÷sin(Ｚ［２］+90) →D9. 交点法正算子程序(Z)程序名：ZH2÷R÷24-H∧(4) ÷2688÷R∧(3)→A:H÷2-H∧(3) ÷240÷R2→B:(R+A)tan(Abs(P) ÷2)+B→T:O-T→C:C+H→L:L+ΠR×Abs(P) ÷180→N:N-H→E:P÷Abs(P) →W:0→M:If Z<C:Then Z-O→S:G→Z[2]:Goto 2: IfEnd: If Z≥N:Then Z-N+T→S:G+P→Z[2]:Goto 2: IfEnd: If Z≥E:Then N-Z→S:Prog “HX”:G+P→S:S-WK→Z[2]:U+(T-A)Cos(S)-WBSin(S)→I:V+(T-A)Sin(S)+WBcos(S)→J:Goto 3: IfEnd: If Z>L:Then 180(Z-L+0.5H) ÷R÷Π→S :H÷2-H∧(3) ÷240÷R2+Rsin(S)→A:H2÷R÷24-H∧(4) ÷2688÷R∧(3)+R(1 -Cos(S))→B:R→M:G+WS→Z[2]:Goto 4: IfEnd:Z-C→S:Prog “HX”:G+WK→Z[2]:LbI 4:U+(A-T)cos(G)-WBsin(G)→I:V+(A-T)Sin(G)+WBcos(G) →J: Goto 3:LbI 2:U+Scos(Z[2])→I:V+Ssin(Z[2]) →J: LbI 310. 交点法缓和段转化子程序(HX)程序名：HXS-S∧(5) ÷40÷R2÷H2+S∧(9) ÷3456÷R∧(4) ÷H∧(4)→A:S∧(3) ÷6÷R÷H-S∧(7) ÷336÷R∧(3) ÷H∧(3)+S∧(11) ÷42240÷R∧(5) ÷H∧(5)→B:90S2÷Π÷R÷H→K:RH÷S→M11. 交点法反算子程序(ZX)程序名：ZXZ:0→D:LbI 0:Prog “Z”:Pol(X-I,Y-J):J-Z[2] →J:Isin(J) →S:Icos(J) →I:If Abs(I)<0.1:Then Z+I→Z:S→D: Goto 2:Else Goto 1: LbI 1:If M=0:Then Z+I→Z:Goto 0:Eles Pol(M-WS,I):(JMΠ)/180→I:Z+I→Z:Goto 0:IfEnd LbI 212．高程计算子程序（H）程序名：HP rog “S1”:C-T→F:Z-F→S:C+T→E:G-TI→Q:If T=O:Then Q+SI→H:Goto 0:Else If Z<F:Then Q+SI→H:Goto 0:Els e If Z≤E:Then Q+SI+S2÷2÷R→H:Goto 0:LbI 0:H:If D=0:Then Goto I:Else Prog “I”:H+V→H:Goto I:LbI I13.高程超高计算程序（I）程序名：IIf Z[3]=1:Then Prog “I1”:Goto 1:Else Prog “I2”:Goto1: IfEnd:LbI 1: If W=1:Then:Goto Z:Else:Goto X: IfEndLbI Z:If S=0:Then Abs(D)×M→V:Goto 2:Else Abs(D)×((N-M)×(Z-C)÷S+M)→V:Goto 2:IfEnd:LbI X:If S=0:Then Abs(D)×M→V:Goto 2:Else Abs(D)×(((3((Z-C)÷S)2-2((Z-C)÷S)∧(3))×(N-M))+M)→V:Goto 2:IfEnd:LbI 2:Abs(D)→E:V÷E→I:I(E-K)→V14．导线点子程序（DX）程序名：DXZ[11] →K:Z[12] →L:“X Z”?K:”YZ”?L:K→Z[11]:L→Z[12]15．线路选择子程序(线路选择输0时。