卧龙岗 - 2007-5-15 20:50:00
从今天起将在本贴对卡西欧计算器和一些普通工程测量放样程序进行讲解本人水平有限.权当抛砖引玉.同时也希望路过的高人也能指点一二.
卧龙岗 - 2007-5-16 14:28:00
坐标反算程序
Norm: A”X1”:B”Y1”:pOI(C”X2”-A,D”Y2”-B:Fix3:”I=▲J<0=>J=J+360△J:ProgM:Fix4:”W
=”
这段程序译出就是解除小数保留位数和小数有效位数状态,同时给字母AB指定名称并且以名称原文显示.pOI(这个函数就是直角坐标转换极坐标的函数它同Rec(作用是相反的.在这里它就是通过计算已知两点间的坐标增量而来求出这两点的距离和方位角.Fix3这个在这里就是指定距离保留三位小数显示.ProgM的意思就是无件转移至子程序M,子程序M是一个十进制换算六十进制的一个小程序,在这里就不细说了.经过这一步就把计算出来的方位角变成角度显示了,如计算出的方位角为45.3622那就是45度36分22秒.如果没有加上这一步45.3622那就等于45度21分43.92秒.
卧龙岗 - 2007-5-17 10:17:00
坐标正算
Norm:E:B:Rec(S,A:Fix3:X=E+V▲Y=B+W
这个没有什么好译的和上一个程序差不多,只不过它们的功能正好相反.
值得指出的一点就是,在4500里面计算结查的距离和方位角默认是V和W而在4800里面默认的是I和J
卧龙岗 - 2007-5-18 9:28:00
竖曲线高程计算
L1 {IKRZM}:I"I1"K"I2"RZ"JDDK"M"JDGC"
L2 A=(K-I)/100:B=AbsA
L3 L=RB:T=L/2▲E=BT/4▲
L4 A<0=>W=-1:≠>=1△
L5 Y=Z-T:V=Z+T
L6 LbI 1:{X}:X"DK="
L7 X<Z=>S=X-Y:≠>S=V-X△
L8 S<0=>S=0△(这里的0是指阿拉伯数字0)
L9 X<Z=>J=M-I(Z-X)/100:≠>J=M+K(X-Z)/100△
L10 Fix3:H=J+WS2(平方) /2R:H▲Norm
l11 X=X+25
L12 Goto 1
卧龙岗 - 2007-5-18 12:11:00
上面这个为单变坡竖曲线计算程序,译文如下:
将字母IKRZM回复至非定义状态,并给IKZM指定名称,并以名称原文显示.其分别代表坡比1,坡比2,半径,交点桩号,交点高程.
第二步为求转折角,并指点其绝对值
第三步计算竖曲线的元素,曲线长,切线长,外距
第四步通过对转折角A的判定来定义曲线的凹凸
第五步求曲线的起点桩号和终点桩号
第六步指定循环计算的起点标号,将代表循环变量的字母回复至非定义状态,并给循环计算变量指定名称且以名称原文显示
第七步通过求点桩与交点的桩号的比较来求出支距所需变量X的长度
第八步判断语句
第九步,不考虑改正值时求点桩号的高程
第十步考虑改正值时的高程
第十一步变量的步长值
第十二步循环至LbI1
liubiao-a - 2007-5-18 21:08:00
感谢小姚兄弟发分享
卧龙岗 - 2007-5-20 0:15:00
这两天要报计量了,实验资料又出问题了,加班到现在还没有搞定,7点要送高监办去:( 本来打算上传圆曲线的程序呢,暂时没时间传了,有哪位朋友有空先传个上来看看,有空我会接着传的,希望大家多多支持
卧龙岗 - 2007-5-20 0:46:00
圆曲线
ABCDZSGRV:Fixm
LbI 1:{TK}:KT;L=K-Z+.0001;L<0=>Goto 3△K>Z+S=>Goto 2△
F=90L/πR:M=2RsinF: N=G=VF: Q=G+2VF: Q<0=>Q=Q+360△
Q:Prog"m":Fix4:Q:P=Q+90:Goto 4
LbI 3:M=Abs L:N=G+180P; p=G-270:Goto 4
LbI 2:F=90S/πR:W=2RsinF;L=K-Z-S:M=√(L2-W2-2LWcos(180-F:N=G+VF+90:Goto4
LbI 4:X=C+McosN+TcosP:Y=D+MsinN+TsinP; PoI(X-A,Y-B:J<0=>J=J=360△J; prog"M":Fix 4:J:Fix 3:I:X▲
Y▲
这两天没时间哪位有时间帮忙译一下,不胜感激
以上译文为:
第一句:指定变量字母,并锁定变量其分别代表测站纵横坐标,圆曲线起点纵横坐标,曲线起点桩号,曲线长,起点方位角,半径,以及路线走向
第二句:指定标号1,变量输入命令,输入TK,在这里分别代表输 入求点桩号和边桩距.求出求点至曲线起点的距离,并用此数据进行判别其返回至标号3或2
第三句:计算弦切角,弦长,弦方位角,切线方位角
第四句:计算曲线前直线段
第五句:计算曲线后直线段
第六句:通过四五句参数的计算此时可根据起点坐标按弦长和弦切角进行求点坐标的计算.
此程序也就是用圆曲线弦切计算方法原理编制的,根椐需要可选择性的输出测站到求点的方位角和距离,求点的坐标,求点的切线方位角,当然求点可以是中桩也可以是边桩.
时间仓促只能大至的说下,有不对的地方还望批评.
tufei627 - 2007-5-21 12:18:00
真牛啊，佩服:)
tufei627 - 2007-5-21 12:19:00
慢慢来吧，不要累坏身体了哦:)
卧龙岗 - 2007-5-22 20:04:00
就没有一个愿意译下试试吗?其实只要你有4800说明书,另外学过测量,知道圆曲线计算原理,其实很简单的呀,没有一个人尝试吗?
卧龙岗 - 2007-5-23 9:53:00
十进制化六十进制
M
Int Ans+.01Int (60Frac Ans )+.006Frac (60Frac Ans
只是一个十进制化六十进制的程序没有什么说的
yg11111 - 2007-12-3 16:04:00
好好好啊
xueliu656 - 2007-12-6 16:40:00
好啊，非常感谢！
zuozhigang - 2007-12-14 22:07:00
看了看