4500计算器坐标计算程序如何输入计算器

发布网友 发布时间：2022-04-23 12:56

我来回答

共1个回答

热心网友 时间：2023-10-14 10:39

fx－4500p坐标计算程序根据坐标计算方位角
L1 A“X1＝”：B“Y1＝”：Pol(C“X2”－A，D“Y2”－B：“S＝”▲W＜0W＝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-R2X＝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#点。

热心网友 时间：2023-10-14 10:39

fx－4500p坐标计算程序根据坐标计算方位角
L1 A“X1＝”：B“Y1＝”：Pol(C“X2”－A，D“Y2”－B：“S＝”▲W＜0W＝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-R2X＝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#点。