自编卡西欧5800程序(简单易懂,有说明2).doc

自编卡西欧5800程序(简单易懂,有说明2)
一、手工判断是否为完整缓和曲线,并将不完整缓和曲线恢复成完整的,然后输入数据库。
二、对于小半径的曲线,如回头曲线等,可先用软件核对图纸无误后,然后按线元分段编辑数据库,即第一缓和曲线段、圆曲线、第二缓和曲线段分别编一个数据库,其QD数据按核对无误后的来编辑。
本程序对小半径回头曲线不精确
1、主线主程序WST-Z (A匝道主程序WST-A??) Lbl 1 “K=”?→K:“L=”?→L:“JJ=”?→M
(输入待求点桩号;边距:左负右正)
If K≤:Then Prog“Z-S-1”:IfEnd:If K> And K≤:Then Prog“Q-S-1”: IfEnd: If K> And K≤:Then Prog“Z-S-2”:IfEnd: If K> And K≤:Then Prog“Q-S-2”:IfEnd: If K> And K≤:Then Prog“Q-S-3”:IfEnd: If K> And K≤:Then Prog“Q-S-4”:IfEnd: If K>:Then Prog“Z-S-3”:IfEnd:Goto 1
2、数据库子程序:Z-S-1(直线)
“QD:K=”???→A:“QD:FWJ=”???→B: “QD:X=”???→C:“QD:Y=”???→DProg“Z”
Return
3、数据库子程序:Z-S-2(直线)
“QD:K=”???→A:“QD:FWJ=”???→B: “QD:X=”???→C:“QD:Y=”???→DProg“Z”
Return
4、数据库子程序:Z-S-3(直线)
“QD:K=”???→A:“QD:FWJ=”???→B: “QD:X=”???→C:“QD:Y=”???→DProg“Z”
Return
5、数据库子程序:Q-S-1(曲线)
“ZH:K=”???→A:“ZH:FWJ=”???→B: “ZH:X=”???→C:“ZH:Y=”???→D:“R=”???→E:“ZJ=”???→F:“L1=”???→G:“L2=”???→H
(ZH点桩号A、ZH点方位角B、ZH点坐标CD、圆曲线半径E、交点转角F:左-1右+1、第一缓和曲线长度G、第二缓和曲线长度H)
Prog“ZDJS”
Return
6、数据库子程序:Q-S-2(曲线)
“ZH:K=”???→A:“ZH:FWJ=”???→B: “ZH:X=”???→C:“ZH:Y=”???→D:“R=”???→E:“ZJ=”???→F:“L1=”???→G:“L2=”???→H
(ZH点桩号A、ZH点方位角B、ZH点坐标CD、圆曲线半径E、交点转角F:左-1右+1、第一缓和曲线长度G、第二缓和曲线长度H)
Prog“ZDJS”
Return
7、数据库子程序:Q-S-3(曲线)
“ZH:K=”???→A:“ZH:FWJ=”???→B: “ZH:X=”???→C:“ZH:Y=”???→D:“R=”???→E:“ZJ=”???→F:“L1=”??