文档介绍：CASIO FX-4800上的公路平面坐标正反算计算程序
程序功能介绍
本程序是一款在CASIO FX-4800 ±开发的通用公路平面施工测量控制小程序，计算由 下图组成的直线+缓和曲线+圆曲线+缓和曲线+直线构成的图形结构（基本线型）
lichen>yh=>lichen<hz=>
s=hz-lichen
xzhen=s-s A 5/(40 x j dr 人 2 x lh 人 2)
yzhen=sA3/(6xjdrxlh)-sA7/(336xjdrA3xlhA3)
d=SQR(xzhenA2+YzhenA2)
rfang=qifangh-zhuanxiangxatn(yzhen/xzheii)
faxianr= qifangh-sA2/(2xjdrxlh)xl80/7txzhuangxiang-90
qix=hzx: qiY=hzy
lichen>hz=>lichenW endlichen=>
pol(zhongdianx-hzx,zhongdiany-hzy)
rfang=J: faxianr=J+90
qix=hzx: qiy=hzy: d=lichen-hz n
rec(d,rfang):lichenx=qix+i:licheny=qiy+j
以上子程序完成基本线型上任一中心点的坐标lichenx, licheny,为以后进行正算 和反算准备数据，
正算在数据准备好的情况下直接调用上面的程序就是了，此处没写出来，以下在
4800中直接给出
**********************
以下是反算子程序 ***************************
FanSuan
six "si ce x="
siy "si ce y="
lichen=(qidianli+enlichen)/2
lab begin
prog” JiBenDuan"
pol(six-lichenx,siy-licheny)
czjuli=ixsin(faxianr-j)
lichen=lichen+czj uli x quj in
(abs(czjuli))>=>goto begin A
!(abs(czjuli))>，此段是程序的精妙部份
pol(six-lichenx,siy-licheny)
p=sin(j- faxianr+90)
p>=0 => p=l: 乂〉p=-l』 **************** 卜弃旱j辛 j^ainprograiii*************************** ***p=l进行数据输入，
***PU 1时，使用原有数据直接计算
***zhen=l时根据桩号和距中心的距离(左-右+)来计算任一点的平面坐标;***** ***zhen尹1时根据平面坐标计算任一点的桩号和距中心的距离(左-右+).****** mainprogram
Deg
P”du su ju=l,ji suan尹 1”
P=l=>prog”HHQX" /
Lab 2
Zhen55zhensuan=l,fansuan7f: I59
zhen=l=>
lichen Mlichen=M
juzhong njuzhongxian=H