[测绘]卡西欧计算器FX-4X00程序(不断增加)
yfy2003
yfy2003 Lv.11
2004年09月25日 09:48:56
来自于工程测量
只看楼主

附闭合导线计算1、 源程序F1 A1L1 Defm 4N-2L2 N:A:B:Pol(C-A,D-B):W<0=>W=W+360?T=WL3 K=0=>M=T+180:E=C:F=D:GOTO 0: ≠>E:F:Pol(G-E,H-F):W<0=>W=W+360?M=WL4 Lbl 0:L=0:U=0:I=0:R=2:Z[1]=TL5 Lbl 1:{J}:Z[R]+360: ?R=N+1=>GOTO 2: ≠>R=R+1:GOTO 1

附闭合导线计算
1、 源程序
F1 A1
L1 Defm 4N-2
L2 N:A:B:Pol(C-A,D-B):W<0=>W=W+360?T=W
L3 K=0=>M=T+180:E=C:F=D:GOTO 0: ≠>E:F:Pol(G-E,H-F):W<0=>W=W+360?M=W
L4 Lbl 0:L=0:U=0:I=0:R=2:Z[1]=T
L5 Lbl 1:{J}:Z[R]+360: ?R=N+1=>GOTO 2: ≠>R=R+1:GOTO 1
L6 Lbl 2:P”JB”=(Z[N+1]-M) ?Q”JL”=40√N?R=2
L7 Lb1 3:{S}:Z[N+R]=S:L=L+S?
L8 Z[2N-1+R]=Rec(S,(Z[R]-P(R-1)/N)):U=U+V
L9 Z[3N-2+R]=W:I=I+W:N=R=>GOT 4: ≠>R=R+1:GOTO 3
L10 Lbl 4:P=U+C-E?Q=I+D-F?
L11 G”1:M”=L/Pol(P,Q) ?R=2
L12 Lbl 5:X”XI”=C+Z[2N-1+R]-PZ[N+R]/L?Y”YI”=D+Z[3N-2+R]-QZ[N+R]/L?
L13 R=N=>GOTO 6: ≠>R=R+1:C=X:D=Y:GOTO 5
L14 Lbl 6:”END”

2、 说明
(1)、本程序可计算附和导线和闭合导线的坐标,计算的坐标系经过角度闭合差及坐标增量闭合差分配后的结果,能显示角度闭合差、增量闭合差及导线全长的相对精度;
(2)、输入的观测角为导线的左角。

3、程序代号注释
N?导线观测角的折角数;
A、B?导线起始点所后视的已知点的坐标x,y;
C、D?导线起始点(即设站点)的坐标x,y;
E、F?导线终点(已知点)的坐标x,y;
G、H?在导线终点设站观测前视已知点的坐标x,y;
T?起始站后视至起始点的方位角;
M?终点站至前视已知点的方位角;
J?观测的左角值;
JB?角度闭合差;
JL?允许的角度闭合差,程序中是以40√n计算的,如和要求的不一致,可改一下L6语句中的有关部分。
S?所测导线的边长;
L?边长的累计数;
U?△x的累计数;
I?△y的累计数;
P?x坐标的闭合差;
Q?y坐标的闭合差;
K?转换符,当K=0时为计算闭合导线,当K≠0(任意数)时为计算附和导线。
免费打赏
yfy2003
2006年02月05日 12:56:09
42楼
圆弧段边坡超欠挖检查及开口线放样程序
程序名:YFFY
程序:
A“YX”:B“YY”:X“XP”:Y“YP”:Z“ZP”:
Fixm:Pol(A-X,B-Y):T=Abs(I-R):W=Abs(H-Z):
S=W*P-T:V=T/P-W:S<0=>M“Scw”=S◢⊿S≥0=>M“Sqw”=S◢⊿V<0=>K“Hcw”=V◢⊿
V≥0=>K“Hqw”=V◢⊿“END”
说明:
A、 B为圆心坐标,显示为YX?YY?,依次输入圆心点的X、Y;
X、Y、Z为测点坐标,显示为XP?YP?ZP?依次输入测点的X、Y,Z;
R为到边坡底线的距离(半径);
H为边坡底线的高程(马道或平台的高程);
I不用管它,直接按“EXE”,显示下一个输入;
P为坡比,无须输入正负号;
M为计算的边坡距离超欠值,显示为Scw或Sqw,分别表示超挖或欠挖,距离超欠值为:设计距离减测量距离;
K为计算的边坡高程超欠值,显示为Hcw或Hqw,分别表示超挖或欠挖,高程超欠值为:设计高程减测量高程。
回复
wulei422129
2006年02月25日 15:02:38
43楼
谢谢你斑竹!
回复
shenzhoufeng1888
2006年02月25日 17:30:36
44楼
xiexie
回复
xy947451
2006年02月26日 23:39:41
45楼
谢谢楼主,真是太有用了,以后测量的时候就可以省事多了
回复
lgj_991
2006年03月03日 09:49:50
46楼
  在发表本人的观点的时候我先来顶一哈
  楼主是做什么的哦,怎么会这样多的好东西,小弟简直是受益匪浅,想要达到楼主那样的境界,没的十年的寒窗修炼看来是不的行的哈,那小弟就跟这个楼主的路线在测量界杀出一条学路来.
回复
qgbgsse
2006年03月06日 13:07:12
47楼
厉害
回复
fuhong574
2006年04月23日 21:25:35
48楼
大哥,大姐们,小弟我才出山,对工程上好多不懂希望帮帮我!我求助4500PA在铁路上的坐标、偏角放样程序
回复
dongmujiyu
2006年06月01日 17:14:25
49楼
还可以,就是没有把数字0和字母0区分。
回复
ak_guoyanhui
2006年06月22日 20:09:02
50楼
老大,你真厉害,有时间得向你好好学习
回复
ztb_200
2006年06月26日 23:02:43
51楼
这么需要的东西都有啊
,不胜感谢!
回复

相关推荐

APP内打开