测量施工坐标互换器37新版A

宏算界面

测量施工坐标互换器37新版A

在工程测量施工中，坐标换算是常有的事情。这计算器解决了以前计算的繁琐，提高了工作效率。同时，这计算器集合了正算与反算的优点。

已知点 X0		m
已知点 Y0		m
已知点 X1		m
已知点 Y1		m
待求点Pxa		m
待求点Pyb		m
转换模式


OP的距离		m
坐标 X(A)		m
坐标 Y(B)		m
P点方位角		°
		'
		〃

无结果可显示

已知点0与已知点1必须是同在施工图纸的同一轴线且是已知的大地坐标，待求点可以是已知的大地坐标或施工坐标，在“转换摸式”选择你所要求的坐标方式。

基本信息

标题: 测量施工坐标互换器37新版A

版本: 第1版

发布者: 1688

创建时间: 2014-04-11 09:54:24

修改时间: 2014-04-11 10:00:26

发布时间: 2014-04-11 10:06:14

人气: 查询中...

评分: 查询中...

二维码

收藏 & 分享

下载

算式

option{title:"测量施工坐标互换器37A";}
input{c:"已知点 X0 ","m    ";q:"已知点 Y0 ","m";w:"已知点 X1 ","m";e:"已知点 Y1 ","m";a:"待求点Pxa","m";b:"待求点Pyb","m";t:"转 换 模 式";}

output{f:hide; v:hide; d:hide;ac:hide;as:hide;k:hide; j:hide; h:hide; z:hide; n:hide; o:hide;  p:"OP的距离","m";r:"坐标 X(A)","m";tx:"坐标 Y(B)","m";sa:hide;wa:hide;eb:hide;qt:hide;qs:hide;qf:hide;qa:"P点方位角"," °      ";qc:hide;qw:""," '";qz:hide;qm:"","〃";qg:hide;}

default{c:388;q:590;w:388;e:590;a:0;b:0;}
view{
t:"< 请 选 择 >","   测量转换施工","   施工转换测量";}

validate{alert:[ w==c and e==q,"       亲, 点0和点1不能是同一点" ][t==0,"    亲, 请选择转换模式"];}


f=a-c;v=b-q;k=w-c;j=e-q; 
d= sqrt(k^2+j^2); 
ac=acos(k/d);as=asin(j/d);


h=f*cos(ac)+v*sin(as);
z=c+a*cos(ac)-b*sin(as);

r=when(t-1,0,h)
	+when(t-2,0,z);

n=-f*sin(as)+v*cos(ac);
o=q+a*sin(as)+b*cos(ac);

tx=when(t-1,0,n)
	+when(t-2,0,o);

p=when(t-1,0,sqrt(f^2+v^2))
     +when(t-2,0,sqrt(a^2+b^2));

sa=when(t-1,0,toDegrees(atan(v/f)))
     +when(t-2,0,toDegrees(atan( (tx-q)/(r-c) ))) ; 

wa=when(t-1,0,a)
        +when(t-2,0,r);
eb=when(t-1,0,b)
        +when(t-2,0,tx);

if (wa>c and eb>q)
{sa= round(sa*100000)/100000 ;}
else if (wa<c and eb>q)
{sa= round(sa*100000)/100000 +180;}
else if (wa<c and eb<q)
{sa= round(sa*100000)/100000 +180;}
else if (wa>c and eb<q)
{sa= round(sa*100000)/100000 +360;}
if (wa==c and eb>q)
{sa= round(sa*100000)/100000 +90;}
else if (wa<c and eb==q)
{sa= round(sa*100000)/100000 +180;}
else if (wa==c and eb<q)
{sa= round(sa*100000)/100000 +270;}
else if (wa>c and eb==q)
{sa= round(sa*100000)/100000 ;}

qt=when(lessOrEqual(round(sa),sa),abs(round(sa)-sa),sa-round(sa)+1);
qs=qt*60;
qf=when(lessOrEqual(round(qs),qs),abs(round(qs)-qs),qs-round(qs)+1);
qa=sa-qt;qc=qs-qf;qz=qf*60;
qz=round(qz*100)/100;
qg=when(less(59.99999,qz),101,qz);
if(qg==101)
{qm=qg-101;}
else
{qm=qg;}
qw=when(equal(101,qg),qc+1,qc);

r=round(r*1000)/1000;


tx=round(tx*1000)/1000;
p=round(p*1000)/1000;