卡西欧4800P计算器程序

环运算语句J 子程序名称H=X+DcosG◣ 公式运算、数据显示语I=Y+DsinG◣ 公式
运算、数据显示语T=X—EcosG◣ 公式运算、数据显示语U=Y—EsinG◣ 公式运
算、数据显示语最后计算器状态设定语句是大家最容易忽视的。

如果将单位进行预
设那么计算器就会默认其使用单位在进行下一单位换算时要一定要进行单位转换，
否者会使计算结果错误。

在显示屏幕的左下角可以清楚地发现小提示符号：如D代
表度为现在的缺省单位、R代表弧度为现在的缺省单位、G 代表梯度为现在的缺省
单位。

首页┊ GPS测量┊工程测量┊遥感测量┊地籍测量┊控制测量┊数字测图┊地图制
图┊数据处理┊测绘仪器┊软件应用┊房产测量┊地理信息┊测量管理┊程序开发
┊理论文章┊其他┊ 文章更新列表┊游客发布论文
所属分类：程序开发来源：作者：更新日期：2006-8-25 阅读次数：156 文章
更新列表查看公告列表
00-54700”Lbl 1:｛ZKB｝:Z:K:B:O=1=＞Goto 2△O=2=＞Goto 3△O=3=＞Goto 4△Lbl 2:Z＜47264=＞Goto 5△Z＞501
▲Goto 0Lbl 6:Prog“DQXY”:“X=”:X:Pause 0:“Y=”:Y▲Pol（X-Q,Y-U）:J＜0=＞J=360+J△:I=Intg（1000I+.5）Z、待求点的桩号。

K、待求点在左幅输0右幅输1。

B、待求点距中距离。

Goto 5前的桩号为起止点或断链点桩号。

P T÷100T-Int T）÷.6X=Q+Rec（L,T）:Y=U+J:“X=”:X:Pause 0:“Y=”:Y▲Lbl 1:Prog“55”:Prog“YS”:Z＞48980 oto 4△Prog“FQ”: Goto ZLbl 4:Prog“57-1”:Prog“YS”:Z＞50354.96=＞Goto 5△Prog“FQ”Z＞50167.16 =＞Z og“FQ”: Goto ZLbl 7:Prog“60”:Prog“YS”:Z＞52546.8=＞Goto 8△Prog“FQ”: Goto ZLbl 8:Prog“61”:Pro B△Prog“FQ”: Goto ZLbl B:“CX ERROR”▲ Goto 0Lbl Z:Z=Intg（1000Z+.5）÷1000:B=Intg（1000B+.5）÷100号为第2个曲线组合的ZH点桩号，以后类推。

“BJ＝”显示正值则测点在线路右幅，显示负值则测点在线路左幅。

DQ 0=＞K=-1△Z≤D-T=＞Goto 1△Z≥D-T+L=＞Goto 2△Z＜D-T+N=＞Goto 3△Z＞D-T+L-N=＞Goto 4△Lbl 0:M=A+G（90+9（B,A+90K）:Y=Y+J: Goto 5Lbl 2:X=E+Rec（Z-D+2T-L,C）:Y=F+J:X=X+Rec（B,C+90K）:Y=Y+J: Goto 5Lbl 3:X=E-Rec XY”X=X+Rec（P,C+180-Gtan-1（W÷V））:Y=Y+JX=X+Rec（B,C-90GH2÷πRN+90K）:Y=Y+J: Goto 5Lbl 5XY★缓和曲线）:G=（C-A）÷2SC-A＜-180=＞S=180-S:G=-G△C-A＞180=＞S=180-S:G=-G△T=（R+N2÷24R）tan S+N÷2-N^3÷240R2））:W=F+JO=C+G（90-S）+180:O＞360=＞O=O-360△Pol（X-V,Y-W）:J＜0=＞J=360+J△Z=D+G（J-O）πR÷180:B=G（=E+Rec（T,C）:F=F+J:P=C+90:Prog“HHXY”:Z=D-T: B=-B:Goto ALbl AHHXY★反求缓和曲线长度子程序Pol（X-E,Y-F :M=G÷15R2N2:O=GY÷8R2N2:P=X÷2RN:S=GY:Z=YLbl 2:V=BZ^13+HZ^10-IZ^9+JZ^8-KZ^6+MZ^5-OZ^4+PZ2-GZ+SW=13BZ^1 2N2+T^9÷3456R^4N^4V=X=＞W=Y=＞B=0:Goto 5△△Pol（X-V,Y-W）:B=sin（J+90GT2÷πRN-90）:S=-1:B＞0=＞S=1△=60 56★D=49148.91:E=41425.5219:F=16674.9305:A=151°56′02″:C=185°56′02″:R=354.724:N=120 57★D=4966 :N=8058★D=50498.68:E=40087.8038:F=16857.11:A=172°51′03″:C=184°48′17″:R=1250:N=6059★D=51112.95:E 2.43:E=38138.5471:F=15642.5421:A=237°03′19″:C=193°17′44″:R=910:N=10062★D=53677.91:E=37406.98:F=1止点K54＋700。

共十个交点，两处断链，第一处K50+ 167.16＝K50+150，长17.16M。

第二处K50＋673.5＝K50＋70 fx-4800P线路计算 6.0版》程序设计”中“反求缓曲长度子程序HQ”的计算式。

GCjs★路面高程计算主程序Lbl 0:｛=＞Goto 5△.75为1/2中央分隔带宽O=1=＞Goto 2△O=2=＞Goto 3△O=3=＞Goto 4△11.25为路面半幅宽度Lbl 2:Z Goto 6Lbl 4:Z＜50700=＞Goto 5△Z＞54700=＞Goto 5△Prog“C”: Prog“SQ”: Prog“Q”: Goto 6Lbl 5:“ZH E G-（D-Z）I÷100: Goto2Lbl 2CG★超高计算子程序（弯道未设加宽）P=2VS÷（V+W）Z＜M=＞Goto 1△Z＞M+L=＞Goto X:≠＞H=Y△Goto 5Lbl 1:H=H-（B-.75）V÷100: Goto 5Lbl 2:X=H-（B-.75）V÷100:Y=H+（（V+W）F÷S-V）（B-.7≠＞H=Y△Goto 5Lbl 5说明：竖曲线参数置数子程序中，D竖曲线顶点桩号。

G顶点高程。

I竖曲线前段纵坡。

J竖曲线1右偏取1。

V直线段双向横坡坡比。

纵坡按设计给出的正负取值，横坡均按正数取值。

坡比取值示例：2.5%取2.5。

A 135.61:I=-6:J=-3:R=5000:T=75:N=1: Goto 5Lbl 2:D=48640:G=1103.21:I=-3:J=-6:R=2700:T=40.5:N=-1: Goto 5Lbl 3:I=-3:J=-6:R=3000:T=45.04:N=-1C★Z＜50957.5 =＞Goto 1△Z＜51125 =＞Goto 2△Z＜51805 =＞Goto 3△Z＜5195
9Lbl 1:D=50920:G=978.89:I=-6:J=-3:R=2500:T=37.5:N=1: Goto 9Lbl 2:D=51080:G=974.09:I=-3:J=-6:R=3000:T=45 :J=-2:R=2300:T=46:N=1: Goto 9Lbl 6:D=52680:G=890.09:I=-2:J=-5:R=2500:T=47.44:N=-1: Goto 9Lbl 7:D=52900:＞Goto 1△Z＜49310.5 =＞Goto 2△Z＜49874.21 =＞Goto 3△Lbl 0:M=49874.21:S=80:L=288.41:W=3:E=1: Goto 4Lb 0.8:W=2:E=1Q★Z＜51265.12 =＞Goto 1△Z＜52266.78 =＞Goto 2△Z＜53341.82 =＞Goto 3△Z＜53868.03 =＞Goto 1: Goto 5Lbl 3:M=52546.8:S=100:L=795.02:W=2:E=-1: Goto 5Lbl 4:M=53477.04:S=80:L=390.99:W=4:E=1: Goto 5L
【目前共有 0 条对该新闻的评论】【查看参与评论】
收集来自网上，版权归原来作者所有 ,如果侵犯您的版权，请来信告诉我们，我们
会马上做出整理，谢谢Copyright ? 2004 测量论文中心 All Rights Reserved
(适用于无缓和曲线的平曲线)
本程序系本人精心编制而成,公路全线只需要一个数据库,欢迎各位测友下载试用！
知识共享是本人的宗旨。

联系方式：QQ 303223247漂人
更多程序请参
附件(点击下载)：
主程序名:ZBJS(坐标计算)
J=E-D:J=Arg(cosJ+ⅰsinJ):H=AbsJ÷J:T=Rtan （JH÷2）:L= JHRπ÷180:
K＜C-T?I=C-K:F=0:Goto 1⊿
K＜C-T+L?W=K-C+T:F=180W÷Rπ:I=T-RsinF+(R-RcosF)ⅰ⊿
Lb1 1:S“PJU”:Z“PJIAO”:
“X=”:A-cos(D-HArgI)AbsI+Scos(D+HF+Z)◢
“Y=”:B-sin(D-HArgI)AbsI+Ssin(D+HF+Z)
数据库:SJK (全线交点要素一个数据库)
K＜YZ点桩号?A=本交点X坐标:B=本交点Y坐标:C=本交点桩号:
D=前直线方位角:E=后直线方位角:R=曲线半径:Goto 0⊿
……………
Lbl 0:Prog“ZBJS”
程序说明:
K? 输入桩号
PJU? 输入边桩至中桩的斜距
PJIAO? 输入边桩方向与路线前进方向的右夹角
(n是圆周率,如程序用于4800计算器，显示部分需要更改才能正常：“X=”：更改为X“X=”=
“Y=”：更改为Y“Y=”=
谢谢发贴！平均用户评分：+5 【测量空间】
程序名：ZDZH(主点桩号计算)
Q=C“LS”/2-C3/240R2:P=C2/24R-C4/2384R3:T=(R+P)tan (AbsJ“PJ”/2)+Q:L=RπAbsJ/180+C:B=Z“JDZH”-T: “ZH=”:B◢
“HY=”:B+C◢
“QZ=”:B+L/2◢
“YH=”:B+L-C◢
“HZ=”:B+L
程序说明:
LS? 输入缓和曲线长
R? 输入半径
PJ? 偏角
JDZH? 交点桩号
程序名：WJPQX
A “PJ”:E:L“LS”:
N=1÷cos(0.5A):M=E÷(N-1):W=NL2÷(24N-24):Q=M2-4W: Q≥0?“R=”:0.5(M+√Q)⊿
程序说明:本程序适用于外距控制单交点平曲线
PJ? 输入路线转角
E? 输入外距
LS? 输入缓和曲线长
2006-03-28 17:52:15
大中小。