本帖最后由 abcyt 于 2014-3-12 12:44 编辑 说明:本程序适用于计算器 CASIO fx-5800P,可计算:第一夹直线段、第一缓和曲线段、圆曲线段、第二缓和曲线段、第二夹直线段的线路中、边桩坐标及切线方位角,反算里程和偏距。数据库名:YTGoto 1Lbl 1:If Z<10000:Then 3378226.731→U:456053.721→V:3373351.385→N:458628.379→E:9557.84→D:2040→R:260→S:280→T:-14°18ˊ10″→A:Return:IfEnd
说明:本程序适用于计算器 CASIO fx-5800P,可计算:第一夹直线段、第一缓和曲线段、圆曲线段、第二缓和曲线段、第二夹直线段的线路中、边桩坐标及切线方位角,反算里程和偏距。
数据库名:YT
Goto 1
Lbl 1:If Z<10000:Then 3378226.731→U:456053.721→V:3373351.385→N:458628.379→E:9557.84→D:2040→R:260→S:280→T:-14°18ˊ10″→A:Return:IfEnd
Lbl 1:If Z<………………………………………………………………………………………………………………
Lbl 1:If Z <本交点hz里程或下个交点zh里程:then 前交点坐标x→u:前交点坐标y→v:本交点坐标x→n:本交点坐标y→e:交点里程→d:曲线半径→r:第一缓和曲线长→s:第二缓和曲线长→t:转角→a:return:ifend
Lbl 1每增加一行则为增加一个交点要素,……表示下一个交点要素。
注:
1、◢ 为显示指令。
2、 ↙为回车(EXE)标识。
3、()括号内为注解不用输入。
程序下载地址: