卡西欧fx-4500程序集

yfy2003 发表于 2004-9-19 18:33:00

本帖最后由作者于 2004-9-19 19:02:02 编辑 
附闭合导线计算<?xml:namespace prefix = o ns = "urn:schemas-microsoft-com:office:office" /><o:p></o:p>

１、源程序

F<?xml:namespace prefix = st1 ns = "urn:schemas-microsoft-com:office:smarttags" /><st1:chmetcnv TCSC="0" NumberType="1" Negative="False" HasSpace="True" SourceValue="1" UnitName="a" w:st="on">1 A</st1:chmetcnv>1<o:p></o:p>

L1 Defm 4N-2<o:p></o:p>

L2 N:A:B:Pol(C-A,D-B):W<0=>W=W+360⊿T=W<o:p></o:p>

L3 K=0=>M=T+180:E=C:F=D:GOTO 0: ≠>E:F:Pol(G-E,H-F):W<0=>W=W+360⊿M=W<o:p></o:p>

L4 Lbl 0:L=0:U=0:I=0:R=2:Z=T<o:p></o:p>

L5 Lbl 1:{J}:Z+360: ⊿R=N+1=>GOTO 2: ≠>R=R+1:GOTO 1<o:p></o:p>

L6 Lbl 2:P”JB”=(Z-M) ◢Q”JL”=40√N◢R=2<o:p></o:p>

L<st1:chmetcnv TCSC="0" NumberType="1" Negative="False" HasSpace="True" SourceValue="7" UnitName="lb" w:st="on">7 Lb</st1:chmetcnv>1 3:{S}:Z=S:L=L+S◢<o:p></o:p>

L8 Z=Rec(S,(Z-P(R-1)/N)):U=U+V<o:p></o:p>

L9 Z=W:I=I+W:N=R=>GOT 4: ≠>R=R+1:GOTO 3<o:p></o:p>

L10 Lbl 4:P=U+C-E◢Q=I+D-F◢<o:p></o:p>

L<st1:chmetcnv TCSC="0" NumberType="1" Negative="False" HasSpace="True" SourceValue="11" UnitName="g" w:st="on">11 G</st1:chmetcnv>”1:M”=L/Pol(P,Q) ◢R=2<o:p></o:p>

L12 Lbl 5:X”XI”=C+Z-PZ/L◢Y”YI”=D+Z-QZ/L◢<o:p></o:p>

L13 R=N=>GOTO 6: ≠>R=R+1:C=X:D=Y:GOTO 5<o:p></o:p>

L14 Lbl 6:”END”<o:p></o:p>

<o:p> </o:p>

２、说明<o:p></o:p>

（1）、本程序可计算附和导线和闭合导线的坐标，计算的坐标系经过角度闭合差及坐标增量闭合差分配后的结果，能显示角度闭合差、增量闭合差及导线全长的相对精度；<o:p></o:p>

（2）、输入的观测角为导线的左角。<o:p></o:p>

<o:p> </o:p>

3、程序代号注释<o:p></o:p>

N—导线观测角的折角数；<o:p></o:p>

A、B—导线起始点所后视的已知点的坐标x,y；<o:p></o:p>

C、D—导线起始点（即设站点）的坐标x,y；<o:p></o:p>

E、F—导线终点（已知点）的坐标x,y；<o:p></o:p>

G、H—在导线终点设站观测前视已知点的坐标x,y；<o:p></o:p>

T—起始站后视至起始点的方位角；<o:p></o:p>

M—终点站至前视已知点的方位角；<o:p></o:p>

J—观测的左角值；<o:p></o:p>

JB—角度闭合差；<o:p></o:p>

JL—允许的角度闭合差，程序中是以40√n计算的，如和要求的不一致，可改一下L6语句中的有关部分。<o:p></o:p>

S—所测导线的边长；<o:p></o:p>

L—边长的累计数；<o:p></o:p>

U—△x的累计数；<o:p></o:p>

I—△y的累计数；<o:p></o:p>

P—x坐标的闭合差；<o:p></o:p>

Q—y坐标的闭合差；<o:p></o:p>

K—转换符，当K=0时为计算闭合导线，当K≠0（任意数）时为计算附和导线。<o:p></o:p>

<o:p> </o:p>

yfy2003 发表于 2004-9-19 18:33:00

面积计算（多边形法）<?xml:namespace prefix = o ns = "urn:schemas-microsoft-com:office:office" /><o:p></o:p>

1、源程序

F<?xml:namespace prefix = st1 ns = "urn:schemas-microsoft-com:office:smarttags" /><st1:chmetcnv w:st="on" UnitName="a" SourceValue="1" HasSpace="True" Negative="False" NumberType="1" TCSC="0">1 A</st1:chmetcnv>2<o:p></o:p>

L1 N:P=A:Q=B:S=0:I=2<o:p></o:p>

L2 Lbl 0:{C,D}:F=(A+C)(B-D):S=S+F<o:p></o:p>

L<st1:chmetcnv w:st="on" UnitName="a" SourceValue="3" HasSpace="True" Negative="False" NumberType="1" TCSC="0">3 A</st1:chmetcnv>=C:B=D:I=I+1<o:p></o:p>

L4 I≦N=>GOTO 0⊿<o:p></o:p>

L<st1:chmetcnv w:st="on" UnitName="F" SourceValue="5" HasSpace="True" Negative="False" NumberType="1" TCSC="0">5 F</st1:chmetcnv>=(C+P)(D-Q):S=S+F:S”W”=S/2◢<o:p></o:p>

<o:p> </o:p>

１、说明：<o:p></o:p>

（1）、本程序适用于所测断面为多边形闭合图形的面积计算。

（2）、折点坐标按顺时针方向输入，得出的面积为正，否则为负，绝对值是一样的。

２、程序代号注释<o:p></o:p>

A、B—计算面积起始点纵横坐标；<o:p></o:p>

C、D—各转折点的纵横坐标；<o:p></o:p>

S—代表计算过程中的有关面积；<o:p></o:p>

S“W”—为图形最后需要的计算面积。<o:p></o:p>

N—多边形的折点个数。<o:p></o:p>

yfy2003 发表于 2004-9-19 18:34:00

本帖最后由作者于 2004-9-19 19:03:38 编辑 
体积计算<?xml:namespace prefix = o ns = "urn:schemas-microsoft-com:office:office" /><o:p></o:p>

1、源程序

F<?xml:namespace prefix = st1 ns = "urn:schemas-microsoft-com:office:smarttags" /><st1:chmetcnv TCSC="0" NumberType="1" Negative="False" HasSpace="True" SourceValue="1" UnitName="a" w:st="on">1 A</st1:chmetcnv>3<o:p></o:p>

L1 J=0:H=0:WG<o:p></o:p>

L2 Lbl 0:{NAB}:NAB:P=A:Q=B:S=0:I=1<o:p></o:p>

L3 Lbl 1:{CD}:S=S+(A+C)(B-D)/2:A=C:B=D:I=I+1<o:p></o:p>

L4 I<N=>GOTO 1⊿S=S+(C+P)(D+Q)/2◢<o:p></o:p>

L5 J≠1=>GOTO 2: ≠>L=G-H:V=(R+S+√（R*S))*L/3◢⊿W=W+V◢<o:p></o:p>

L6 Lbl 2:R=S:H=G:J=1:{G}:G:GOTO 0<o:p></o:p>

2、说明<o:p></o:p>

（1）、程序可自动计算每一断面面积，当进行到第二个断面时就会显示出1~2断面间的体积，而后再进行第三断面面积计算，并累计出1~3断面之间的体积。。。。。。，直到最后得出需算断面间的总体积。<o:p></o:p>

（2）、坐标输入时，应按顺时针方向逐个输入折点坐标，这样得出的面积为正值，一个桩号折点输入完后，程序自动进入下一桩号的输入状态。<o:p></o:p>

3、程序代号注释<o:p></o:p>

G—断面桩号；<o:p></o:p>

A、B—断面起算折点的坐标；<o:p></o:p>

C、D—断面上其他折点坐标；<o:p></o:p>

S—断面面积；<o:p></o:p>

L—断面间距；<o:p></o:p>

V—本断面与前一断面之间计算出的体积。<o:p></o:p>

N—G桩号断面上的折点个数；<o:p></o:p>

W—本断面之前所有体积之和。<o:p></o:p>

yfy2003 发表于 2004-9-19 18:34:00

本帖最后由作者于 2004-9-19 19:04:44 编辑 
在任意控制点上测定直线上的任意位置与高程数据计算<?xml:namespace prefix = o ns = "urn:schemas-microsoft-com:office:office" /><o:p></o:p>

1、源程序<o:p></o:p>

F<?xml:namespace prefix = st1 ns = "urn:schemas-microsoft-com:office:smarttags" /><st1:chmetcnv TCSC="0" NumberType="1" Negative="False" HasSpace="True" SourceValue="1" UnitName="a" w:st="on">1 A</st1:chmetcnv>4<o:p></o:p>

L<st1:chmetcnv TCSC="0" NumberType="1" Negative="False" HasSpace="True" SourceValue="1" UnitName="a" w:st="on">1 A</st1:chmetcnv>”X”:B”Y”:E”Z<st1:chmetcnv TCSC="0" NumberType="1" Negative="False" HasSpace="False" SourceValue="0" UnitName="”" w:st="on">0”</st1:chmetcnv>:C”X<st1:chmetcnv TCSC="0" NumberType="1" Negative="False" HasSpace="False" SourceValue="1" UnitName="”" w:st="on">1”</st1:chmetcnv>:D”Y<st1:chmetcnv TCSC="0" NumberType="1" Negative="False" HasSpace="False" SourceValue="1" UnitName="”" w:st="on">1”</st1:chmetcnv>:F”Z<st1:chmetcnv TCSC="0" NumberType="1" Negative="False" HasSpace="False" SourceValue="1" UnitName="”" w:st="on">1”</st1:chmetcnv>:G”H<st1:chmetcnv TCSC="0" NumberType="1" Negative="False" HasSpace="False" SourceValue="0" UnitName="”" w:st="on">0”</st1:chmetcnv>:I<o:p></o:p>

L2 Lbl 0:{LJV}:LJV<o:p></o:p>

L3 K= tanF:T=tan(E+L)<o:p></o:p>

L4 X”XP”=(B-D-AT+KC)/(K-T) ◢Y”YP”=B+TX-AT◢<o:p></o:p>

L5 S=√（（X-A）2+（Y-B）2）<o:p></o:p>

L6 H=G+StanJ+I-V◢GOTO 0<o:p></o:p>

<o:p> </o:p>

2、说明<o:p></o:p>

（1）、本程序功能：在已知断面上某一点的坐标及断面方向的方位角后，可直接将仪器架设在邻近控制点上，为测设各个断面上的点提供数据，不需要一定要将仪器架设在断面桩上测设断面，而所测的断面点均有坐标和高程。<o:p></o:p>

（2）、基本原理：如图所示，A、B为已知控制点，其方位角为Z0，断1-断2为断面线控制桩，其方位角Z1可以算出，仪器架设在A点，后视B点，转角L1、L2、L3。。。。。。，这时A~1、A~2，。。。。。。的方位角也为已知，根据解析几何，两方位直线相交，可解出1#，2#。。。。。。的坐标及其与A的距离。<o:p></o:p>

<o:p> </o:p>

3、程序代号注释<o:p></o:p>

A、B—测站点坐标<o:p></o:p>

C、D—断面桩点坐标<o:p></o:p>

L—观测断面点的水平角<o:p></o:p>

J—观测断面点的竖直角<o:p></o:p>

V—觇标高<o:p></o:p>

S—测站至断面测点的距离<o:p></o:p>

H—断面测点的高程<o:p></o:p>

I—仪器高<o:p></o:p>

Z0—测站至后视点的方位角<o:p></o:p>

Z1—断面线的方位角<o:p></o:p>

yfy2003 发表于 2004-9-19 18:35:00

竖曲线计算<?xml:namespace prefix = o ns = "urn:schemas-microsoft-com:office:office" /><o:p></o:p>

1、源程序<o:p></o:p>

F<?xml:namespace prefix = st1 ns = "urn:schemas-microsoft-com:office:smarttags" /><st1:chmetcnv w:st="on" UnitName="a" SourceValue="1" HasSpace="True" Negative="False" NumberType="1" TCSC="0">1 A</st1:chmetcnv>5<o:p></o:p>

L1 BADTRZ<o:p></o:p>

L2 Lbl 0:{C}:C<o:p></o:p>

L3 Z≧1=>H=A+(B-A)/T*(C-D)-(C-D)2/(2R) ◢≠>H=A+(B-A)/T*(C-D)+ (C-D)2/(2R) ◢<o:p></o:p>

L4 GOTO 0<o:p></o:p>

<o:p> </o:p>

2、说明<o:p></o:p>

（1）、本程序的功能是根据道路施工纵断面图上的设计数据，算出竖曲线上各加桩点的高程；<o:p></o:p>

（2）、本程序适用于由小桩号向大桩号端方向计算，在键入全部已知数据后，当C出现时，只要键入该点的桩号，高程立即会显示出来。<o:p></o:p>

<o:p> </o:p>

3、程序代号注释<o:p></o:p>

A—起点（或终点）高程<o:p></o:p>

C—需计算点的桩号<o:p></o:p>

T—竖曲线切线长<o:p></o:p>

D—起点（或终点）高程<o:p></o:p>

R—竖曲线半径<o:p></o:p>

H—C桩号处的高程<o:p></o:p>

B—切线交点的高程<o:p></o:p>

Z—曲线凹凸判断符Z≧1时为凸曲线，z<0时为凹曲线。<o:p></o:p>

yfy2003 发表于 2004-9-19 18:35:00

两点测角前方交会坐标计算<?xml:namespace prefix = o ns = "urn:schemas-microsoft-com:office:office" /><o:p></o:p>

1、源程序<o:p></o:p>

F<?xml:namespace prefix = st1 ns = "urn:schemas-microsoft-com:office:smarttags" /><st1:chmetcnv w:st="on" UnitName="a" SourceValue="1" HasSpace="True" Negative="False" NumberType="1" TCSC="0">1 A</st1:chmetcnv>6<o:p></o:p>

L1 ABCDEF<o:p></o:p>

L2 X“XP”=（A/tanF+C/tanE-B+D）/(1/tanE+1/tanF) ◢<o:p></o:p>

L3 Y“YP”=（B/tanF+D/tanE-C+A）/(1/tanE+1/tanF) ◢<o:p></o:p>

<o:p> </o:p>

说明：<o:p></o:p>

E—1#点的观测角<o:p></o:p>

F—2#点的观测角<o:p></o:p>

1#、2#点的编号时应注意：面向交会点P的左侧定为1#点，右侧定为2#点。<o:p></o:p>

ysfncu 发表于 2004-9-19 22:12:00

有没有4800的程序集，请发给我，yanshaofancu©163.com

yfy2003 发表于 2004-9-19 22:19:00

NetBee 发表于 2005-1-3 22:20:00

不错，支持

chb81 发表于 2005-1-8 09:35:00

好东西

页: [1] 2

明经CAD社区's Archiver

卡西欧fx-4500程序集