网站公告列表 [路桥吾爱]全新改版,正在为打造一个真正属于路桥人自己并完全免费的网络空间而努力。新站启用了多线路镜像空间,让您无论使用哪种线路都能体会到不错的速度。本站继续坚持“我为人人,人人为我”的精神,鼓励大家发布并免费共享自己收藏的资料。现在加入让我们与[路桥吾爱]共同成长,有了您的加入我们会更加优秀!
 
收藏本站
会员中心
用户注册
您现在的位置: 路桥吾爱 >> 文章中心 >> 其他相关 >> 测绘 >> 文章正文
  CASIO 4500公路中线坐标计算程序          【字体:
CASIO 4500公路中线坐标计算程序

ZXCLCX 
Defm16 
Lbl1 
X=1:{X}:X“ZJF-1 ZBF-2 TT-3 SJD-4 P2L-5 B2A-6” 
X=1=>Prog"ZJF"△ 
X=2=>Prog“ZBF”△ 
X=3=>Prog“TT"△ 
X=4=>Prog“SJD"△ 
X=5=>Prog“P2L"△ 
X=6=>Prog“B2A"△ 
Goto1 
ZBF 
“-----ZXZBjs-----”:{YD}:Y“I1”“I2” 
Y≠D=>Z=0rog“FP”:A=B:B=0:Goto3△ 
X=0:{TPXVWU}:T“HJD(X+Yi)” 
Lbl1 
X“XJA=1”“JD(X+Yi)”:U“JDLC”:Y=Arg(P-T) 
Y<0=>Y=Y+360△ 
Y“I”◢C“L”=Abs(P-T)◢ 
X=0=>V=P:Goto2△ 
V“JDB(X+Yi)”=Arg(V-P) 
D<0=>D=D+360△ 
D“I”◢Z“L”=Abs(V-P)◢Prog"FP":A=B 
Lbl2 
W“QJD(X+Yi)”=Arg(W-V) 
D<0=>D=D+360△ 
D“I”◢C“L”=Abs(W-V)◢ 
Lbl4 
Prog“FP” 
X=1=>B=B-A△ 
X=0=>A=B:B=0:Z=0:E=Rep P:F=ImpP:Goto3△ 
M=Rep(P-T):N=Imp(P-T):I=Rep(W-V):J=Imp(W-V):F“Y”=(M Imp T÷N-I Imp V÷J+Rep V-Rep T)÷(M÷N-I÷J)◢E“X”=M(F-Imp T)÷N+Rep T◢C“L1”=√((E-Rep P)2+(F-Imp P)2)◢U=U+C:C“L2”=√((E-Rep V)2+(F-Imp V)2)◢ 
Lbl3 
X=0:{X}:X“ZBF(0)ZJF(1)” 
X=1=>O=Zrog"ZJF"△A=A+Brog"ZBjs" 

ZBjs 
I=0:J=0:B=0:{RGH}:R:G“LS1”:H“LS2”rog“TWE” 
Z=0=>E“JD(X)”:F“JD(Y)”:U“JDLC”△ 
Rec(-Z[7],Y):Z[15]=I+E:Z[16]=J+F:Rec(Z[8],D):Z[13]=I+E:Z[14]=J+F:C=U-Z[7]:Z[6]“ZH”=C◢Prog“ZDZ” 
C=Z[6] 
Lbl1 
{C}:C“JIAZHUANG”:Z=C-Z[6] 
Z≤0=>Rec(Z,Y):Z[11]“X”=I+Z[15]◢Z[12]“Y”=J+Z[16]◢Prog“BZ”:Goto1△ 
Z≤G=>S=G=Z[1]:Q=Z[3]rog“H”ol(Z[11],Z[12]):Rec(I,Y-JO):Z[11]“X”=I+Z[15]◢Z[12]“Y”=J+Z[16]◢Prog“BZ”:Goto1△ 
Z≤W-H=>S=G=Z[1]:Q=Z[3]rog“Y”ol(Z[11],Z[12]):Rec(I,Y-JO):Z[11]“X”=I+Z[15]◢Z[12]“Y”=J+Z[16]◢Prog"BZ":Goto1△ 
Z≤W=>Z=W-Z=H=Z[2]:Q=Z[4]rog"H"ol(Z[11],Z[12]):Rec(I,D+180+JO):Z[11]“X"=I+Z[13]◢Z[12]“Y"=J+Z[14]◢Z=W-Zrog“BZ”:Goto1△ 
Z>W=>Z=Z-W:Rec(Z,D):Z[11]“X"=I+Z[13]◢Z[12]“Y"=J+Z[14]◢Z=W+Zrog“BZ”:Goto1△ 
FP 
B=Y-D 
B>180=>B=B-360△ 
B<-180=>B=B+360△ 
O=B÷Abs B:B=Abs B 
TWE 
S=Grog“PQ”:Z[1]=P:Z[3]=Q=Hrog“PQ”:Z[2]=P:Z[4]=Q 
Z[7]“T1”=(R+Z[2]-(R+Z[1])cos(A+B))÷sin(A+B)+Z[3]◢Z[8]“T2”=(R+Z[1]-(R+Z[2])cos(A+B))÷sin(A+B)+Z[4]◢W“L”=πR(A+B)÷180+.5G+.5H◢X“E”=(R+Z[1])÷cos(tan-1(((R+Z[2])÷(R+Z[1])-cos(A+B))÷sin(A+B)))-R◢Z[9]=Z[7]-Osin B÷sin(A+B):Z[10]=Z[8]-Osin A÷sin(A+B) 
B≠0=>Z[9]“TA”◢ 
Z[10]“TB”◢△

文章录入:admin    责任编辑:admin 
  • 上一篇文章:

  • 下一篇文章:
  • 最新热点 最新推荐 相关文章
    拱桥悬链线拱轴坐标计算程序…
    利用Simpson公式和垂距趋近正…
    CASIO计算器比较
    曲线任意里程中边桩坐标正反…
    CASS经验交流内容
    土方工程量计算软件HTCAD
    曲线任意里程中边桩坐标正反…
    CASIO fx4800P曲线任意里程中…
    CASIO可编程计算器在公路施工…
    任意里程中边桩坐标正反算(…
      网友评论:(只显示最新10条。评论内容只代表网友观点,与本站立场无关!)
    粤ICP备06026757号
    站长:白黑点击这里和我QQ聊天-进入[路桥吾爱]新版