距离,在A3输入公式 =SQRT((A2-A1)^2+(B2-B1)^2)
方位角,在A4输入公式 =ASIN((B2-B1)/A3)*180/PI()
1. 将圆周均为56份,求出每一份弧度值,公式:pi()/56; 列B;2. 求出圆周上每一个点对应的弧度值,公式:A x B; 列C;
3. 求出圆周上每一个点的X坐标,公式 114 x cos(C);列D;
4. 求出圆周上每一个点的Y坐标,公式 114 x sin(D);列E;
5. 求出圆周上任何一点右上角桩的X坐标,这时候要进行下坐标变换;
如果以圆心和圆周点连线为X轴的话,桩坐标为(3,3),半径为18的开方;与X轴夹角为pi()/4
将这个坐标系顺时针转C列的角度就是现在大坐标系下的坐标了,那么,在大坐标系的X坐标公式为:
18 x cos[pi()/4+C列角度],然后再加上该圆周点的X坐标;即在EXCEL单元格中输入:
D+18 x cos(pi()/4+C);列F
6. 同样求得在大坐标系下的Y坐标;公式:E+18 x sin(pi()/4+C);列G
7. 求左上角桩位X坐标,只不过与小坐标系中X的夹角为pi()/4*3而已;公式为:
D+18 x cos(pi()/4 x 3+C);列H
8. 同样求左上角桩位y坐标,公式:E+18 x sin(pi()/4 x 3+C);列I
9. 公式:E+18 x sin(pi()/4 x 5+C);列J
10.公式:E+18 x sin(pi()/4 x 5+C);列K
11.公式:E+18 x sin(pi()/4 x 7+C);列L
12.公式:E+18 x sin(pi()/4 x 7+C);列M
这个计算是以圆心坐标是(0,0),并且第一个点为0度时候的右侧点来计算的,
最后加上你真正的圆心坐标就可以了。
希望你能看的明白。
fx-4500p坐标计算程序根据坐标计算方位角L1 A“X1=”:B“Y1=”:Pol(C“X2”-A,D“Y2”-B:“S=”▲W<0W=W+360△W:“ALF(1~2)=”
直线段坐标计算L1 X“X(0)”:Y“Y(0)”:S“S(0)”:A“ALF”L2 Lb12L3 {L}:L“LX”L4 M“X(Z)”=X+(L-S)cosA▲L5 N“Y(Z)”=Y+(L-S)sinA▲L6 {B}:B“B(L)”:Q“Q”L7 O“X(L)”=M+Bcos(A+Q+180)▲L8 P“Y(L)”=N+Bsin(A+Q+180)▲L9 {C}:C“B(R)”L10 U“X(R)”=M+Ccos(A+Q)▲L11 V“Y(R)”=N+Csin(A+Q)▲L12 Goto 2
园曲线段坐标计算L1 S“S(0)-Km”:X“X(0)”:Y“Y(0)”:A“ALF”:R“R”:K“K(L=1,R=2)”L2 Lb1 2L3 {L}:L“L(X)”L4 V=180/π×(L-S)/R:W=V/2L5 C=A+(-1)K×W:D=2RsinW:F=A+(-1)K×VL6 M“X(Z)”=X+DcosC▲L7 N“Y(Z)”=Y+DsinC▲L8 {E}:E“B(L)”:Q“Q”L9 O“X(L)”=M+Ecos(F+Q+180)▲L10 P“Y(L)”=N+Esin(F+Q+180)▲L11 {G}:G“B(R)”L12 T“X(R)”=M+Gcos(F+Q)▲L13 U“Y(R)”=N+Gsin(F+Q)▲L14 Goto 2
正向缓和曲线段坐标计算L1 S“ZH-Km”:X“X(ZH)”:Y“Y(ZH)”:A“ALF”:R“R”:H“LS”:K“K(L=1,R=2)”L2 Lb1 2L3 {L}:L“L(X)”L4 D=30(L-S)2/π/R/H:C=L-S-(L-S)5/90/(R×H)2:B=A+D(-1)K:E=A+3D(-1)KL5 U“X(Z)”=X+CcosB▲L6 V“Y(Z)”=Y+CsinB▲L7 {G}:G“B(L)”:Q“Q”L8 F“X(L)”=U+Gcos(E+Q+180)▲L9 I“Y(L)”=V+Gsin(E+Q+180)▲L10 {J}:J“B(R)”L11 M“X(R)”=U+Jcos(E+Q)▲L12 N“Y(R)”=V+Jsin(E+Q)▲L13 Goto 2
卵形曲线坐标计算L1 S“Km-YH”:E“X(YH)”:F“Y(YH)”:G“ALF”:B“R1”:D“A”:K“K(L=1,R=2)”:Q“R1-R2X=1,D=2)”L2 Lb1 2L3 {Z}:Z“L(X)”L4 J“L1”=D2/B: R“RP”=D2B/(D2+(-1)Q(Z-S)B):L“LP”=D2/RL5 M=(L-J)-(L5-J5)/40/D4+(L9-J9)/3456/D8L6 N=(L3-J3)/6/D2-(L7-J7)/336/D6+(L11-J11)/42240/D10L7 T=G-(-1)Q(-1)K×J2×90/D2/πL8 X“X(Z)”=E+(-1)QMcosT-(-1)KNsinT▲L9 Y“Y(Z)”=F+(-1)QMsinT+(-1)KNcosT▲L10 A“ALF(P)”=G+(-1)K(Z-S)×90×(1/B+1/R)/πL11 {H}:H“B(L)”:U“Q”L12 W“X(L)”=X+Hcos(A+U+180)▲L13 V“Y(L)”=Y+Hsin(A+U+180)▲L14 {C}:C“B(R)”L15 I“X(R)”=X+Ccos(A+U)▲L16 P“Y(R)”=Y+Csin(A+U)▲L17 Goto 2
卡西欧4500的程序集附闭合导线计算附闭合导线计算
1、源程序
F1 A1L1 Defm 4N-2L2 N:A:B:Pol(C-A,D-B):W<0=>W=W+360⊿T=WL3K=0=>M=T+180:E=C:F=D:GOTO 0: ≠>E:F: Pol(G-E,H-F):W<0=>W=W+360⊿M=WL4 Lbl 0: L=0:U=0:I=0:R=2:Z[1]=TL5 Lbl 1:{J}:Z[R]+360: ⊿R=N+1=>GOTO 2: ≠>R=R+1:GOTO 1L6 Lbl 2:P”JB”=(Z[N+1]-M) ◢Q”JL”=40√N◢R=2L7 Lb1 3:{S}:Z[N+R]=S: L=L+S◢L8 Z[2N-1+R]=Rec(S,(Z[R]-P(R-1)/N)):U=U+VL9Z[3N-2+R]=W:I=I+W:N=R=>GOT 4: ≠>R=R+1:GOTO 3L10Lbl 4: P=U+C-E◢Q=I+D-F◢L11 G”1:M”=L/Pol(P,Q) ◢R=2L12Lbl 5:X”XI”=C+Z[2N-1+R]-PZ[N+R]/L◢Y”YI”=D+Z[3N-2+R]-QZ[N+R]/L◢L13 R=N=>GOTO 6: ≠>R=R+1:C=X: D=Y:GOTO5L14 Lbl 6:”END”
2、说明(1)、本程序可计算附和导线和闭合导线的坐标,计算的坐标系经过角度闭合差及坐标增量闭合差分配后的结果,能显示角度闭合差、增量闭合差及导线全长的相对精度;(2)、输入的观测角为导线的左角。3、程序代号注释N—导线观测角的折角数;A、B—导线起始点所后视的已知点的坐标x,y;C、D—导线起始点(即设站点)的坐标x,y;E、F—导线终点(已知点)的坐标x,y;G、H—在导线终点设站观测前视已知点的坐标x,y;T—起始站后视至起始点的方位角;M—终点站至前视已知点的方位角;J—观测的左角值;JB—角度闭合差;JL—允许的角度闭合差,程序中是以40√n计算的,如和要求的不一致,可改一下L6语句中的有关部分。S—所测导线的边长;L—边长的累计数;U—△x的累计数;I—△y的累计数;P—x坐标的闭合差;Q—y坐标的闭合差;K—转换符,当K=0时为计算闭合导线,当K≠0(任意数)时为计算附和导线。
面积计算(多边形法)
1、源程序F1 A2L1 N: P=A: Q=B:S=0:I=2L2Lbl 0:{C,D}:F=(A+C)(B-D):S=S+FL3 A=C:B=D:I=I+1L4 I≦N=>GOTO0⊿L5 F=(C+P)(D-Q):S=S+F:S”W”=S/2◢
1、说明:(1)、本程序适用于所测断面为多边形闭合图形的面积计算。(2)、折点坐标按顺时针方向输入,得出的面积为正,否则为负,绝对值是一样的。
2、程序代号注释A、B—计算面积起始点纵横坐标;C、D—各转折点的纵横坐标;S—代表计算过程中的有关面积;S“W”—为图形最后需要的计算面积。N—多边形的折点个数。
体积计算
1、源程序F1 A3L1 J=0:H=0:WGL2 Lbl0:{NAB}:NAB: P=A: Q=B:S=0:I=1L3 Lbl 1:{CD}:S=S+(A+C)(B-D)/2:A=C:B=D:I=I+1L4I<N=>GOTO 1⊿S=S+(C+P)(D+Q)/2◢L5 J≠1=>GOTO 2: ≠>L=G-H:V=(R+S+√(R*S))*L/3◢⊿W=W+V◢L6Lbl 2:R=S:H=G:J=1:{G}:G:GOTO 0
2、说明(1)、程序可自动计算每一断面面积,当进行到第二个断面时就会显示出1~2断面间的体积,而后再进行第三断面面积计算,并累计出1~3断面之间的体积。。。。。。,直到最后得出需算断面间的总体积。(2)、坐标输入时,应按顺时针方向逐个输入折点坐标,这样得出的面积为正值,一个桩号折点输入完后,程序自动进入下一桩号的输入状态。
3、程序代号注释G—断面桩号;A、B—断面起算折点的坐标;C、D—断面上其他折点坐标;S—断面面积;L—断面间距;V—本断面与前一断面之间计算出的体积。N—G桩号断面上的折点个数;W—本断面之前所有体积之和。
在任意控制点上测定直线上的任意位置与高程数据计算
1、源程序F1 A4L1 A”X”:B”Y”:E”Z0”:C”X1”: D”Y1”:F”Z1”:G”H0”:IL2 Lbl 0:{LJV}: LJVL3 K=tanF:T=tan(E+L)L4 X”XP”=(B-D-AT+KC)/(K-T)◢Y”YP”=B+TX-AT◢L5 S=√((X-A)2+(Y-B)2)L6H=G+StanJ+I-V◢GOTO 0
2、说明(1)、本程序功能:在已知断面上某一点的坐标及断面方向的方位角后,可直接将仪器架设在邻近控制点上,为测设各个断面上的点提供数据,不需要一定要将仪器架设在断面桩上测设断面,而所测的断面点均有坐标和高程。(2)、基本原理:如图所示,A、B为已知控制点,其方位角为Z0,断1-断2为断面线控制桩,其方位角Z1可以算出,仪器架设在A点,后视B点,转角L1、L2、L3。。。。。。,这时A~1、A~2,。。。。。。的方位角也为已知,根据解析几何,两方位直线相交,可解出1#,2#。。。。。。的坐标及其与A的距离。
3、程序代号注释A、B—测站点坐标C、D—断面桩点坐标L—观测断面点的水平角J—观测断面点的竖直角V—觇标高S—测站至断面测点的距离H—断面测点的高程I—仪器高Z0—测站至后视点的方位角Z1—断面线的方位角
竖曲线计算
1、源程序F1 A5L1 BADTRZL2 Lbl 0:{C}:CL3Z≧1=>H=A+(B-A)/T*(C-D)-(C-D)2/(2R) ◢≠>H=A+(B-A)/T*(C-D)+ (C-D)2/(2R) ◢L4 GOTO0
2、说明(1)、本程序的功能是根据道路施工纵断面图上的设计数据,算出竖曲线上各加桩点的高程;(2)、本程序适用于由小桩号向大桩号端方向计算,在键入全部已知数据后,当C出现时,只要键入该点的桩号,高程立即会显示出来。
3、程序代号注释A—起点(或终点)高程C—需计算点的桩号T—竖曲线切线长D—起点(或终点)高程R—竖曲线半径H—C桩号处的高程B—切线交点的高程Z—曲线凹凸判断符Z≧1时为凸曲线,z<0时为凹曲线。
两点测角前方交会坐标计算
1、源程序F1 A6L1 ABCDEFL2 X“XP”=(A/tanF+C/tanE-B+D)/(1/tanE+1/tanF)◢L3 Y“YP”=(B/tanF+D/tanE-C+A)/(1/tanE+1/tanF)◢
说明:E—1#点的观测角F—2#点的观测角1#、2#点的编号时应注意:面向交会点P的左侧定为1#点,右侧定为2#点。
欢迎分享,转载请注明来源:内存溢出
评论列表(0条)