测量专业坐标计算程序
|
|
| 文章简介： |
| 测量用，坐标计算程序 |
|
| 作者：lmx5888 文章来源：自创 点击数： 更新时间：2008-1-23 13:26:29 |
|
| 【阅读字号：缩小 放大】 |
|
| FILE “YQX”
Prog “SJK” ↙
T=Rtan(Abs Z[5]/2) ↙
L= RAbs Z[5]*π/180↙
E=R(1/COS(Z[5]/2)-1) ↙
P=2T-L↙
B”ZY”=Z[19]-T
C=B+L/2↙
D”YZ”=C+L/2▲
Rec(T,F+180) ↙
M=Z[2]+I:N=Z[3]+J↙
Lbl 0↙
Z[5]≤0→G=-1:≠→G=1△↙
｛KSV｝↙ （输入：K为计算桩号，S为边距，V：当计算左边为-90，右边为90）
K≤D→L=Abs(K-B) ▲
Goto2△↙
K>D→L=K-D+T ▲
Goto3△↙
Lbl 2↙
O=180L/(R*π) ↙
X=R*sinO↙
Z=R(1-cosO) ↙
Rec(X,F) ↙
X=M+I:Y=N+J↙
Rec(Z,F+90G) ↙
X=X+I▲
Y=Y+J▲
Rec(S,F+OG+V) ↙
X=X+I▲
Y=Y+J▲
Goto 0↙
Lbl 1↙
Rec(S,F+180-(180-V)) ↙
X=X+I▲
Y=Y+J▲
Goto 0↙
Lbl 3↙
Rec(L,F+Z[5]) ↙
X=X+I▲
Y=Y+J▲
Rec(S,F+Z[5]+V) ↙
X=X+I▲
Y=Y+J▲
Goto 0↙
注明：Prog “SJK”中：A:交点号，Z[19]：交点桩号，Z[5]:转角值（右正左负）Z[2]、Z[3]交点X,Y 坐标，F:前方位角,R:圆曲线半径，I,J为计算器默认值。
FILE “SJK”
A=1→Z[19]=402.305:Z[2]=643.858:Z[3]=675.815:F=423712:Z[5]=-194042:R=600△↙ (中华企业文化网) |
|
| 文章录入:lmx5888 责任编辑：xisheng |
|
| 前一条信息： 节能建筑工程为深加工玻璃工业带来生机 |
|
| 后一条信息： 工程项目施工准备工作 |
|
| 【发表评论】【加入收藏】【告诉好友】【打印此文】【关闭窗口】 |
|
