| 会
员 登 录 |
|
|
|
软 件 排 行 |
|
|
|
推 荐 软 件
|
|
道路测设大师
本软件适用于公路、铁路、城市道路主线、立交匝道的勘测设计与施工放样工作。包括导线测量平差...
|
|
|
|
软 件 查 找 |
|
|
|
| 软
件 下 载 |
| 安桌AnMath编程应用于地矿勘探线剖面测量 |
| 加入时间 |
2014-10-28 9:45:59 |
|
| 程序类别 |
工程测量 |
| 文件大小 |
0.1m |
| 授权方式 |
免费软件 |
| 应用平台 |
IIS环境 |
| 推荐程度 |
 |
| 下载权限 |
游客身份 |
| 下载花费 |
0 E 币 |
| 程序演示 |
主页
|
| 发布会员 |
yangshulin |
| 下载浏览 |
下载:60 浏览:1088 |
相关简介：
笔者把本人2007年在地矿勘探剖面线测量时编写的CASIO程序移植到安桌手机或平板电脑上，并作适当改进，在现场快速计算出全站仪任意视线方向与剖面线交点的坐标及放样数据。测量人员在测站上定向后，只需转动全站仪视线至合适的方向，读取全站仪视线方向坐标方位角，输入程序，程序即可计算出视线与剖面线交点坐标和测站至交点水平距离，持镜人员在视线方向上移动棱镜，即可定位。
“勘探线剖面测量程序”（ myfCDM(Xo,Yo,Xq,Yq,Xz,Yz)）
程序中：
Xo—测站点纵坐标；
Yo--测站点横坐标；
Xq—勘探线起点纵坐标；
Yq--勘探线起点横坐标；
Xz—勘探线终点纵坐标；
Yz--勘探线终点横坐标；
D---全站仪视线方位角；
Xp—勘探线上任一点纵坐标；
Yp—勘探线上任一点横坐标；
Dop-测站点至勘探线上点水平距离。
程序代码如下：
function myfCDM(Xo,Yo,Xq,Yq,Xz,Yz)
variable D,Ax,Ay,Xp,Yp,Dop//定义变量
do
do
D=input("请输入全站仪视线方位角 度=")
if D==-1
Xq=input("请输入剖面线起点Xq=")
if Xq==-1
break
endif Yq=input("请输入剖面线起点Yq=")
Xz=input("请输入剖面线终点Xz=")
Yz=input("请输入剖面线终点Yz=") D=input("请输入全站仪视线方位角 度=")
endif
D=D+input("请输入全站仪视线方位角 分=")/60
D=D+input("请输入全站仪视线方位角 秒=")/3600
Ax=Xz-Xq
Ay=Yz-Yq
solve Xp,Yp,Dop
Ay*Xp-Ax*Yp==Ay*Xq-Ax*Yq
Xp-Dop*cosd(D)==Xo
Yp-Dop*sind(D)==Yo
slvreto
//以下输出全站仪视线与剖面线交点坐标、测站至交点距离
print(" Xp=")
print(ceil(Xp,4))
print(" Yp=")
print(ceil(Yp,4))
print(" Dop=")
print(ceil(Dop,4))
sleep(5000) //暂停5秒
plot_2d_data([Yq,Yz],[Xq,Xz],[Yo,Yp],[Xo,Xp])
print("请输入下一个方位角：")
until D==-1
print("请输入下一断面线起止点坐标：")
until Xq==-1
endf
return Xp,Yp,Dop
|
| 点击查找 |
| 下载地址 |
|
|
|
|
|
|
| 相关说明 |
特别声明：☉为确保正常使用请使用
WinRAR v3.10 以上版本解压本站软件。
☉由于GIS软件都较大，本站不保证每个链接都一直有效,请在软件发布后尽快下载。
☉如提示找不到文件不能下载，耽误了您的宝贵时间，也请多多体谅,如果急需可直接联系站长，信箱:[email protected]
☉未经本站明确许可，任何网站不得非法盗链及抄袭本站资源；如引用页面，请注明来自测绘信息网，谢谢您的支持！
☉ 如提示"Service Unavailable"，说明现在网站下载人数过多,请多刷新几次,或是换个在线人数相对不太太多的时候下载。
☉如有其它问题,欢迎联系我们,谢谢!
|
| 相关评论 |
|
|
|
|
评论者：