欢迎光临测量协同网!https://www.fffsky.com/blog
Loading
0

[原创]CASIO fx-5800P 矩形边缘坐标计算程序

CASIO fx-5800P 矩形边缘坐标计算程序

说明:本程序可计算矩形边缘坐标,已知:切线方位角,矩形各边宽度,矩形中心坐标即可解算。

 

主程序名:JUXING

Lbl 1

Deg:Fix 3

60→DimZ

"Xo"?X:"Yo"?Y:"FWJ"?F:?A:?B:?C:?D

tan-1(C/B)→Z[2]:C/sin(Z[2])→Z[7]……(α2及斜距)

tan-1(D/B)→Z[3]:D/sin(Z[3])→Z[8]……(α3及斜距)

tan-1(D/A)→Z[5]:D/sin(Z[5])→Z[9]……(α5及斜距)

tan-1(C/A)→Z[6]:C/sin(Z[6])→Z[10]……(α6及斜距)

F+180→Z[1]:If Z[1]>360:Then Z[1]-360→Z[1]:IfEnd……(切线方位角+180°)

Z[1]+Z[6]→Z[11]:If Z[11]>360:Then Z[11]-360→Z[11]:IfEnd……(o点至1#点方位角)

F-90→Z[12]:If Z[12]<0:Then Z[12]+360→Z[12]:IfEnd……(o点至2#点方位角)

F-Z[2]→Z[13]:If Z[13]<0:Then Z[13]+360→Z[13]:IfEnd……(o点至3#点方位角)

F+Z[3]→Z[19]:If Z[19]>360:Then Z[19]-360→Z[19]:IfEnd……(o点至9#点方位角)

F+90→Z[18]:If Z[18]>360:Then Z[18]-360→Z[18]:IfEnd……(o点至8#点方位角)

Z[1]-Z[5]→Z[17]:If Z[17]<0:Then Z[17]+360→Z[17]:IfEnd……(o点至7#点方位角)

Z[10]*cos(Z[11])→Z[21]……(ΔX)

Z[10]*sin(Z[11])→Z[31]……(ΔY)

C*cos(Z[12])→Z[22]……(ΔX)

C*sin(Z[12])→Z[32]……(ΔY)

Z[7]*cos(Z[13])→Z[23]……(ΔX)

Z[7]*sin(Z[13])→Z[33]……(ΔY)

A*cos(Z[1])→Z[24]……(ΔX)

A*sin(Z[1])→Z[34]……(ΔY)

B*cos(F)→Z[26]……(ΔX)

B*sin(F)→Z[36]……(ΔY)

Z[9]*cos(Z[17])→Z[27]……(ΔX)

Z[9]*sin(Z[17])→Z[37]……(ΔY)

D*cos(Z[18])→Z[28]……(ΔX)

D*sin(Z[18])→Z[38]……(ΔY)

Z[8]*cos(Z[19])→Z[29]……(ΔX)

Z[8]*sin(Z[19])→Z[39]……(ΔY)

"1(X)=":X+Z[21]→Z[41]◢

"1(Y)=":Y+Z[31]→Z[51]◢

"2(X)=":X+Z[22]→Z[42]◢

"2(Y)=":Y+Z[32]→Z[52]◢

"3(X)=":X+Z[23]→Z[43]◢

"3(Y)=":Y+Z[33]→Z[53]◢

"4(X)=":X+Z[24]→Z[44]◢

"4(Y)=":Y+Z[34]→Z[54]◢

"5(X)=":X+0→Z[45]◢

"5(Y)=":Y+0→Z[55]◢

"6(X)=":X+Z[26]→Z[46]◢

"6(Y)=":Y+Z[36]→Z[56]◢

"7(X)=":X+Z[27]→Z[47]◢

"7(Y)=":Y+Z[37]→Z[57]◢

"8(X)=":X+Z[28]→Z[48]◢

"8(Y)=":Y+Z[38]→Z[58]◢

"9(X)=":X+Z[29]→Z[49]◢

"9(Y)=":Y+Z[39]→Z[59]◢

Goto 1

 

核对数据:

XO?=685.427

YO?=1101.845

FWJ?=105-33-20

A?=3.3

B?=2.1

C?=7.5

D?=5.6

1(X)=693.537,1(Y)=1100.677

2(X)=692.652,2(Y)=1103.856

3(X)=692.089,3(Y)=1105.879

4(X)=686.312,4(Y)=1098.666

5(X)=685.427,5(Y)=1101.845

6(X)=684.864,6(Y)=1103.868

7(X)=680.917,7(Y)=1097.164

8(X)=680.032,8(Y)=1100.343

9(X)=679.469,9(Y)=1102.366

备注:式中tan-1为1/tan,为语句表达式,无需输入。

 

相关文章:

1、[CASIO fx-5800P CYT 综合曲线坐标正反算计算程序]

2、[CASIO fx-5800P ZXZFS 直线正反算坐标计算程序]

3、[CASIO fx-5800P 距离交会坐标程序]

4、[CASIO fx-5800P QXZB曲线坐标计算]

5、[CASIO fx-5800P FWJ方位角和距离计算程序]

 

©版权声明:文章源于作者原创,如需转载请注明文章出处。


测量协同网诚邀您投稿,文章主题与工程测量、大地测量等相关即可,可以是理论介绍,也可以是实务分析,还可以是工作总结。➮点击投稿

广修福田、行善积德广修福田、行善积德

如果文章对你有帮助,欢迎点击上方按钮行善积德

最后编辑于:2018/11/28作者: 测量测绘

暂无评论

发表评论

  1. 王贵明 王贵明说道:
    4#

    大哥这方墩柱实用啊

  2. qingyangxpc qingyangxpc说道:
    3#

    陈工,你好,这个程序我看到很实用的一个程序,在做涵洞的时候很好用,但是我有一个想法,您的excelV5程序中同样也存在一个结构物计算模块,该模块可以处理斜交斜做,斜交正做等各种情况,为什么你的5800程序里不采用同样计算模式呢?如果有的话能发给我一份儿吗?

  3. fffsky fffsky说道:
    2#

    计算矩形承台方便快捷。

  4. hua261523645 hua261523645说道:
    1#

    可以参照

扫一扫关注公众号

扫一扫关注公众号