《CASIO fx-4850P线路计算9.0版·匝道版》程序设计 作者：徐光辉 2004年9月26日
YQ：1.CJY 2.QZY? XZ? (2)仪器选择：1.测距仪 2.全站仪？
当此步选择2时，下一步从第（12）步开始运行
(3)输入置镜点的X坐标XZ？
只有当第(2)步选择1时才出现此步 YZ? XH? YH? HZ? AH? AQ? S? 输入置镜点的Y坐标YZ？
(2)步选择1时才出现此步 输入后视点的X坐标XH？
(2)步选择1时才出现此步 输入后视点的Y坐标YH？
(2)步选择1时才出现此步 (7)输入置镜点的高程（包括仪器高）HZ？ 只有当第(2)步选择1时，才会出现此步
(8)输入后视角度AH？
只有当第(2)步选择1时，才会出现此步
(9)输入前视角度AQ？
只有当第(2)步选择1时，才会出现此步
(10) 输入前视平距S？
只有当第(2)步选择1时，才会出现此步
11
(4)只有当第
(5)只有当第
(6)只有当第
《CASIO fx-4850P线路计算9.0版·匝道版》程序设计 作者：徐光辉 2004年9月26日
HD? X? (11) 输入前视高差HD？（高于测站为“+”，低于测站为“-”） 只有当第(2)步选择1时，才会出现此步
(12) 输入测点的X坐标？
只有当第(2)步选择2时，才会出现此步 Y? Z? HY? BP：1.W 2.T? X= Y= KD=
(13) 输入测点的Y坐标？
只有当第(2)步选择2时，才会出现此步
(14)输入测点的高程Z？
只有当第(2)步选择2时，才会出现此步
(15)输入前视仪高HY？
只有当第(2)步选择1时，才会出现此步
(16)边坡填挖情况选择：1.边坡挖 2.边坡填？ 只有当第(1)步选择1时，才会出现此步
(17) 输出测点的X坐标
只有当第(2)步选择1时，才会出现此步
(18) 输出测点的Y坐标
只有当第(2)步选择1时，才会出现此步
(19)输出测点的桩号KD
12
《CASIO fx-4850P线路计算9.0版·匝道版》程序设计 作者：徐光辉 2004年9月26日
(20)输出测点离线路中线平距WB
(21)输出测点的高程H H=
(22)输出测点距坡脚(填方为坡顶)的平距TP TP= 只有当第(1)步选择1时，才会出现此步 “-”为还需左移到坡脚,“+”为还需右移到坡脚
(23)输出测点距坡脚(填方为坡顶)的高差TC TC= 只有当第(1)步选择1时，才会出现此步 对于边坡填，“-”为低于坡顶，“+”为高于坡顶 对于边坡挖，“+”为低于坡脚，“-”为高于坡脚
(24)输出测点距边坡的平距DB DB= 只有当第(1)步选择1时，才会出现此步 “-”为还需左移到边线,“+”为还需右移到边线
(25)输出测点距路面的高差DH(已扣除结构层) DH= “+”为低于设计,“-”为高于设计 只有当第（1）步选择2时，才会出现此步
当此(24)步(或(25)步)操作完成后，返回第(9)步（当第(2)步选择1时）或第(12)步（当第(2)步选择2时），要求重新输入计算。
6．匝道桩号反求程序ZDFQ
(1)输入待求点的X坐标DX？ DX?
(2)输入待求点的Y坐标DY？ DY?
WB= 13
《CASIO fx-4850P线路计算9.0版·匝道版》程序设计 作者：徐光辉 2004年9月26日
(3)输出待求点的桩号KD
(4)输出待求点离中线的平距(左偏为“-”，右偏为“+”) WB=
当此步操作完成后，返回第(1)步，要求重新输入计算。 KD=
△特别说明：
当进行匝道桩号反求或边线放样计算时，有可能计算点相对于线路有多个桩号，此时会出现如下屏会话：
SEL QXD？ 20411 出现的多个曲线段的序号以数字出现，从个位数开始每两位为一个曲线段的序号
此时应进行曲线段选择，输入该点位于第几曲线段，象上述的对话框中就表明计算点相对于第2、第4和第11段曲线均有桩号，此时应输入数字为2、4、11中的一个。 当计算点相对于线路无桩号时则显示如下屏：
NO 0 14
《CASIO fx-4850P线路计算9.0版·匝道版》程序设计 作者：徐光辉 2004年9月26日 三、程序设计
特别说明：各程序中@即为英文大写字母O（使用@代替O以区分阿拉伯数字0） 1． 匝道放样计算主程序ZDFY Z[1]=Int Z[1]? Z[1]>6?Z[1]=6? Z[1]<1?Z[1]=1?
N=Z[60+Z[1]]:H=Z[96+Z[1]]:V=H? Fixm:Rad?
@=Z[12]:{@}:@”JS:1.L 2.X 3.D”:Z[12]=@? @?3?@=Z[13]:{@}:@”FY:1.ZX 2.BX”:Z[13]=@? Z[12]?3?@?1?@=Z[14]:{@}:@”WZ:1.XD 2.JD”:Z[14]=@?
E=Z[8]:D=Z[9]:{ED}:E”XZ”:D”YZ”:Z[8]=E:Z[9]=D? F=Z[10]:B=Z[11]:{FB}:F”XH”:B”YH”:Z[10]=F:Z[11]=B? S=Z[15]:{S}:S”AH”:Z[15]=S:Q=0?
Z[12]=2?K=Z[16]:@=Z[17]:{K@}:K”XQ”:@”XZ”:Z[16]=K:Z[17]=@?
Z[12]=2?Prog”BZ”:Z[18]=X:Z[19]=Y:K=Z[17]:Prog”BZ”:Z[20]=X:Z[21]=Y? Z[12]=2?Z[16]?Z[17]?Pol(Z[18]-Z[20],Z[19]-Z[21]):U=J+π?
Pol(Z[10]-Z[8],Z[11]-Z[9]):Z[30]=J? Lbl 1?
Z[12]=3?X=Z[23]:Y=Z[24]:{XY}:X”XD”:Y”YD”:Z[23]=X:Z[24]=Y:Goto 2? Z[12]=1?K=Z[25]:{K}:K”KF”:Z[25]=K:??Z=Z[26]:{Z}:Z”L(D-Q)”:Z[26]=Z? Z[13]?1?Q=Z[27]:{QG}:Q”L”:G”AJ”:Z[27]=Q?
Z[13]?1?Z[14]?1?Z=Z[28]:@=Z[29]:{Z@}:Z”WL”:@”AP”:Z[28]=Z:Z[29]=@?
Z[13]=1?Z[28]=0:Z[29]=90? Z[14]=1?Z[28]=0:Z[29]=90?
Z[12]=1?Prog”BZ”:??X=Z[18]+Rec(Z[26],U):Y=Z[19]+J? X=X+Rec(Q,U+πG÷180):Y=Y+J?
X=X+Rec(Z[28],U+π(G-Z[29])÷180):”X=”:X◢ “Y=”:Y=Y+J◢ Lbl 2
15