Fx4800程序.docx
- 文档编号:5931080
- 上传时间:2023-01-02
- 格式:DOCX
- 页数:8
- 大小:22.29KB
Fx4800程序.docx
《Fx4800程序.docx》由会员分享,可在线阅读,更多相关《Fx4800程序.docx(8页珍藏版)》请在冰豆网上搜索。
Fx4800程序
Fx4800—计算器施工放样程序:
F1
Defm6:
Norm:
U“Z﹢Y‐”〉0⇒Z[2]=1:
≠〉Z[2]=-1:
⊿Deg:
R:
L:
A:
F“ZH=”:
Q“NZH”:
P“EZH”:
B“ZXFWJ”:
Fix3←
Z[1]=90L∕(πR)←
Z[3]=L²∕(24R﹚﹣L4∕(2688R³﹚←
M=L∕2‐L³∕(240R²)←
T=M﹢(R﹢Z[3])tg(A∕2)◢
Z=πR(A‐2Z[1])∕180﹢2L◢
E=(R﹢Z[3])∕cos(A∕2)R◢
Prog“F2”
F2
G“XZ”:
H“YZ”:
K“XH”:
D“YH”←
I=Pol(KG,DH):
J〈0⇒J=J﹢360:
≠〉J=J⊿J“A0”=J◢I“HD”=I◢
Lbl0:
Fixm:
﹛CS﹜:
Prog“F3”:
N=Q﹢VcosB﹢Z[2]WsinB◢E=P﹢VsinBZ[2]WcosB◢I=Pol(NG,EH):
J〈0⇒J=J﹢360:
≠〉J=J⊿J“A0”=J◢I“HD”=I◢Goto0
F3
N=CF:
N≤L⇒Z[1]=90N²∕(πRL):
V=NN5∕(40R²L²)N9∕(3456R4L4)SsinZ[1]:
W=N³∕(6RL)N7∕(336R³L³)﹢ScosZ[1]:
≠〉N≤ZL⇒Z[1]=180(NL∕2)∕πR:
V=(RS)sinZ[1]﹢M:
W=R(RS)cosZ[1]﹢Z[3]:
≠〉N≤Z⇒N=F﹢ZC:
Z[1]=90N²∕(πRL):
I=NN5∕(40R²L²)N9∕(3456R4L4)SsinZ[1]:
J=N³∕(6RL)N7∕(336R³L³)﹢ScosZ[1]:
V=T﹢(TI)cosAJsinA:
W=(TI)sinA﹢JcosA:
≠〉V=T﹢(CZF﹢T)cosASsinA:
W=(CZF﹢T)sinA﹢ScosA⊿⊿⊿
程序运行说明:
F1程序:
“Z﹢Y”=?
曲线左右转系数;左转为正,右转为负。
R=?
圆曲线半径;
L=?
缓和曲线长度;
A=?
缓和曲线转角;
ZH=?
直缓点里程;
NZH=?
直缓点N坐标;
EZH=?
直缓点E坐标;
ZXFWJ=?
起始直线方位角;
F2程序:
XZ=?
置仪点N坐标(X坐标)
YZ=?
置仪点E坐标(Y坐标)
XH=?
后视点N坐标(X坐标)
YH=?
后视点E坐标(Y坐标)
F3程序:
C=?
所放样点里程;
S=?
待求点至中桩的水平距离;(求中桩S=0,求边粧曲线内侧为正,曲线外侧为负。
)
运行结果提示:
HR—放样转角。
HD—放样距离。
其它:
Z[3]—缓和曲线内移值;
M—缓和曲线切线增长值;
T—切线长;
E—外距;
ZZ—缓和曲线全长;
2.选线程序:
XX
S“Ls”:
﹛A﹜:
A“IA”:
C=0:
F=0:
U=0:
N=0:
Lbl0:
{D}:
D“AB”:
D≠0⇒U=U﹢1:
N=N﹢D:
﹛B﹜:
B“IB”:
D=C+D:
H=D÷Sin(A+B):
F=F+HSinB:
C=HSinA:
A=A+B:
Goto0⊿I=A÷2:
R≠0⇒Prog“R”:
≠〉T≠0⇒Prog“T”:
≠〉J“T1”≠0⇒T=J+F:
Prog“T”⊿L≠0⇒R=180(L‐S)÷π÷A◢Prog“R”:
≠〉E≠0⇒W=1‐cosI:
R=EcosI÷W÷2+√((EcosI÷W﹚²‐S²+6÷W)÷2◢Prog“R”:
≠〉﹛J﹜:
J=0⇒Goto3:
≠〉Goto4⊿Lbl3:
U=1⇒Q=N÷(tan(B÷2﹚﹚:
≠〉Q=N÷U÷2÷tan﹙A÷2÷(U+I)):
⊿P=S²÷24÷Q:
R=Q‐P◢Prog“R”:
Lbl4:
Q=N÷(tan(A÷2‐B÷2)+tan(B÷2)):
P=S²÷24÷Q:
R=Q‐P:
E=(R+P)÷cosI‐R:
E=E+J:
W=1‐cosI:
R=EcosI÷W÷2+√((EcosI÷W)²‐S²÷6÷W)÷2Prog“R”⊿
R
Lbl0:
P=S²÷24÷R◢Q=S÷2‐S³÷240÷R²◢X=S‐S³÷40÷R²◢Y=S²÷6÷R◢T=(R+P)tanI+Q◢L=πRA÷180+S◢E=(R+P)÷cosI‐R◢U≠0⇒J“T1”=T‐F◢V“T2”=T‐C◢⊿B=R:
﹛R﹜:
R≠0⇒Goto0⊿R=B:
Z“ZH”=W“JD”‐T+F◢Z[7]“HY”=Z+S◢M“QZ”=Z+L÷2◢Z[8]“YH”=Z+L‐S◢Z[9]“HZ”=Z+L◢
T
R=(T‐S÷2)÷2÷tanI+√((T‐S÷2)²‐S²(tanI)²÷6)÷2÷tanI◢prog“R”
运行程序XX,按以下步骤依次输入数据即可:
Ls?
输入缓和曲线长;
IA?
输入第一转角;
AB?
输入第一基线长(如为单交;则输入0);
IB?
输入第二转角(第N个转角);
AB?
输入第N-1基线长,如无,则输入0;
R?
输入圆曲线半径(此时输入0,程序则自动进入选线程序中各种条件控制下,反算圆曲线半径的计算);
P—圆曲线内移值
Q—切线增长值
X—缓圆点X坐标
Y—缓圆点Y坐标
T—切线长
L—曲线长
E—外距
T1—起始边切线长(如曲线为单交,则无T1、T2项显示)
T2—终止边切线长
R?
输入圆曲线半径(此时所显示半径;如为满意值,请输入0,程序自动进入中线计算,如为不满意值,请继续输入调整后的半径值,直至满意为止,然后再输入0,程序自动进入中线计算);
JD?
输入交点里程桩号;
ZH直缓点里程桩号;
HY缓圆点里程桩号;
QZ曲中点里程桩号;
YH圆缓点里程桩号;
HZ缓直点里程桩号;
1)T?
—输入欲控制的切线长,程序即可反算出,再该控制条件下的圆曲线半径及相关曲线元素,如遇控制的不是该条件,请输入0,则程序自动进行下一控制条件的计算。
2)T1?
—输入欲控制的ZH(或ZY)点到TA的距离T1,程序即可反算出,再该控制条件下的圆曲线半径及相关曲线元素,如遇控制的不是该条件,请输入0,则程序自动进行下一控制条件的计算。
3)L?
—输入欲控制的曲线长,程序即可反算出,再该控制条件下的圆曲线半径及相关元素;如遇控制的不是该条件,请输入0,则程序自动进行下一控制条件的计算。
4)E?
—输入欲控制的外距,程序即可反算出,再该控制条件下的圆曲线半径及相关曲线元素,如遇控制的不是该条件,请输入0,则程序自动进行下一控制条件的计算。
5)J?
—输入欲控制的距离基线的距离;
(一)当输入0时,为曲线切基线;
(二)当输入正值时,为曲线在基线内的距离;
(三)当输入负值时,为曲线在基线外的距离,程序即可反算出在该控制条件下的圆曲线半径及相关曲线元素。
3.fx—4800P施工放样引点程序:
HS
X“ZY‐N0.”:
X=0⇒G“IntN⊿”:
H“IntE⊿”:
≠〉Prog“IF”:
G=U:
H=V⊿Y“HS‐N0.”:
Y=0⇒U“HSN⊿”:
V“HSE⊿”:
≠〉X=Y:
Prog“IF”⊿I=Pol(U‐G,V‐H):
J〈0⇒J=J+360:
≠〉J=J⊿J“A0”=J◢I“HD”=I◢
Z[3]=G:
Z[4]=H:
Z[5]=J←
IF
X=1⇒Prog“01”:
≠〉X=2⇒Prog“02”:
≠〉X=3⇒Prog“03”:
≠〉X=4⇒Prog“04”:
≠〉X=11⇒Prog“11”⊿⊿⊿⊿⊿⊿
DXCL
Prog“HS”:
Lbl1:
{AS}:
A“⊿〈”:
S“⊿‐”:
J=Z[5]+A:
N=Z[3]+ScosJ◢E=Z[4]+SsinJ◢
FREE
Prog“HS”:
C“S0”:
B“S1”:
O=J+cos-1((I²+C²‐B²)÷(2CI)):
X“N0”=G+CcosO◢Y“E0”=H+CsinO◢I=Pol(G‐X,H‐Y):
J〈0⇒J=J+360:
≠〉J=J⊿J“A0”=J◢I“HD”=I
注:
以上程序中,省略“Z[5]=J”﹑省略“Z[5]+”,输入“⊿〈”时为方位角;反之为夹角。
fx—4800计算源程序
114(曲线要素计算程序)QXYSJS
Lbl0:
Mcl:
S=0:
I=0:
J=0:
E=1:
A=0:
X=0:
Y=0:
G=0:
Prog“B”:
M=J‐I∕tanS:
B=I∕sinS:
G=S:
Lbl3:
{RVLFZEDH}:
R〈0⇒Pol(J,I):
J“PX1”=J◢I“JX”=I◢J“PX2”=G‐J◢Goto0⊿I=AbsG∕2:
A=1∕cosI:
R=0⇒GotoA⊿V“LH”:
Prog“A”:
X“A”=√(RV)◢X“T1”=T‐M◢Y“T2”=T‐B◢L“L”=L◢M=0⇒E“E”=JA‐R◢⊿Z“JD”=0⇒Goto3⊿G“G”=G◢Z=Z‐X:
B=Z+L:
V≠0⇒Z“ZH”=Z◢A“HY”=Z+V◢≠〉Z“ZY”=Z◢⊿M=0⇒A“QZ”=Z+L∕2◢⊿V≠0⇒A“YH”=B‐V◢B“HZ”=B◢≠〉B“YZ”=B◢⊿A“NJD”=B+F“NX”‐Y◢Goto0:
LblA:
N=V“LH”²∕24:
{R}:
R“DR”≦2⇒H“T”:
R=1⇒F=H+M:
≠〉F=H+B⊿P=(F‐V∕2)∕tanI:
R=(P+√(P²‐4N))∕2:
LblC:
Prog“A”:
R=(F‐Q)∕tanI‐P:
Prog“A”:
F‐T≥0.001⇒GotoC⊿Goto3⊿R=3⇒P=A‐1:
Prog“F”:
Goto3⊿R=4⇒R=90(L‐V)∕Iπ:
Goto3⊿R=5⇒O=G‐W:
X=1∕sinO+1∕sinW:
P=1∕tanO+1∕tanW:
E=U+D“EX”PAbsG∕G:
A=P:
P=X‐P:
Prog“F”:
Goto3⊿
115(公路中线、边桩、交点桩、构造物点、填方坡脚及挖方坡顶放样并可精确定出横断面方向及横断面测量程序)FYCX
I=0:
J=0:
C=1:
E“FX”=0⇒Prog“116”⊿E=2⇒Goto0⊿E=3⇒Goto1⊿A=0:
LblB:
I=0:
J=0:
E=E+1:
S=0:
Prog“B”:
Prog“H”:
E≠3⇒GotoB⊿Lbl0:
A“X1”B“Y1”:
Q“S1”≠0⇒P“P1”:
≠〉P=0⊿X“X2”Y“Y2”:
L“S2”≠0⇒T“P2”:
≠〉T=0⊿G=Pol(X‐A,Y‐B):
S=J:
QL=0⇒G=Q+L‐G:
Z=P+T:
L=0⇒J=X:
X=A:
A=J:
I=Y:
Y=B:
B=I⊿⊿QL≠0⇒C=Rec(Q,P):
Z=J:
Pol(Rec(L,T)‐C,J‐Z):
G=G‐I:
Rec(L,T)+180‐J+S:
A=X+I:
B=Y+J:
Z=T⊿{G}:
G“DK”=999⇒{PQTL}:
Goto0⊿G=0:
Pol(X‐A,Y‐B):
M=J:
E=2⇒{IJ}:
Pol(J“XQ”‐A,I“YQ”‐B):
{G}:
G“FW”⊿K=0:
M=M‐Z:
Lbl1:
C=J‐M:
E=2⇒M=J‐G:
A=‐Rec(I,M):
B=‐J:
E=3:
H=K“ZH”:
M=M‐C⊿C〈0⇒C=360+C⊿C〉360⇒C=C‐360⊿E≦1⇒C“PX”=C◢I“CX”=I◢⊿E=4⇒{U}:
U“HX0”:
Prog“N”⊿E=5⇒{U}:
U“BM0”:
Prog“N”⊿E=3⇒{GRV}:
F⊿Prog“A”:
E=0:
{KE}:
K〈0⇒{H}:
H“ZH”:
K=AbsK⊿S=K‐H“ZH”:
K=0⇒{C}:
Z=C“Px”+M:
W=tanZ:
Prog“R”:
E=9:
K=0:
Goto1⊿J=1:
E=2⇒P=F:
{F}:
FP〈0⇒C=F:
F=P:
Prog“D”:
F=C:
G=180:
≠〉S=AbsS:
Prog“E”⊿⊿E≠2⇒Prog“G”⊿X=J:
Y=I:
E=1⇒Prog“B”⊿Pol(J‐A,I‐B):
Goto1
子程序
(1)A
O=AbsG∕G:
S=V“LH”:
V≠0⇒Prog“C”:
≠〉I=0:
J=0:
S=0⊿P=AbsI‐R+RcosS:
Q=J‐RsinAbsS:
J=R+P:
I=AbsG∕2:
T=Q+JtanI:
L=IRπ∕90+V
(2)B
LblA:
{WD}:
S=S+W“PJ”:
D“DX”〈0⇒Prog“H”:
E=3⊿E=0⇒A=A+W:
X=X+DcosA:
Y=Y+DsinA⊿D〉9000⇒D=D-9000:
E=0:
T=D+I∕sinS⊿J=J+AbsDcosS:
I=I+AbsDsinS:
D≠0⇒GotoA⊿E=0⇒U=T+X+Y∕tanA:
W=A⊿
(3)C
C=RV:
J=S‐S5∕40C²+S9∕3456C4‐S13∕599040C6+S17∕175472640C8:
I=O(S³∕6C‐S7∕336C³+S11∕42240C5‐S15∕9676800C7+S19∕3530096640C9:
S=90OS²∕πC
(4)D
J=JFS:
I=0:
S=0
(5)E
S=AbsS‐L+T:
J=ScosG+T:
I=SsinG:
S=G
(6)F
R=(E+√(E²‐4ANP))∕2AbsP
(7)G
K=AbSK:
S=Abs(K‐H):
F=1⇒J=‐1:
K≤H⇒Prog“D”:
GotoG⊿K≥H+L⇒Prog“E”:
GotoG⊿⊿F=‐1⇒J=1:
K≥H⇒Prog“D”:
GotoG⊿K≤H‐L⇒Prog“E”:
GotoG⊿⊿S〈V⇒Prog“C”:
GotoG⊿S≦L‐V⇒S=90O(2S‐V)∕πR:
J=ROsinS+Q:
I=PO+RO(1‐cosS):
GotoG⊿S=L‐S:
Prog“C”:
C=T‐J+I∕tanG:
J=T‐I∕sinG+CcosG:
I=CsinG:
S=G‐S:
LblG
(8)H
C=1⇒A=J“X1”:
B=I“Y1”:
Q“S1”≠0⇒P“P1”:
≠〉P=0⊿⊿C=2⇒X=J“X2”:
Y=I“Y2”:
L“S2”≠0⇒T“P2”:
≠〉T=0⊿⊿C=C+1
(9)I
S=X:
Prog“C”:
Y=WJ+D‐I
(10)J
K=H+FL‐FX:
Prog“G”:
Y=WJ+D‐I
(11)K
NY〈0⇒U=X:
≠〉N=Y:
E=X⊿Y=0⇒E=U⊿
(12)L
X=(‐U+E)∕2N:
Y=WK+D:
Pol(X‐Q,Y‐OP):
C=cos‐1((2R²‐I²)∕2R²):
S=90V∕πR:
C〉S⇒AbsJ≥90⇒C=360‐C⊿C〈AbsG‐S⇒K=H+FV∕2+FCπR∕180:
Prog“M”⊿⊿
(13)R
S=A‐B∕W:
S≤0⇒K=H+FS:
Prog“M”⊿:
D=B‐WA:
V=0⇒Goto9⊿E=0:
U=V:
X=0:
Prog“I”:
N=Y:
X=V:
Prog“I”:
K=Y:
NK〉0⇒Goto9⊿LblW:
X=(E+U)∕2:
Prog“I”:
Prog“K”:
Abs(E‐U)〉0.01⇒GotoW:
≠〉K=H+F(E+U)∕2:
Prog“M”⊿Lbl9:
D=B‐WA:
N=1+W²:
C=O(R+P):
U=2(DW‐Q‐WC):
E=Q²‐2DC+C²‐R²+D²:
E=U²‐4NE:
E≥0⇒E=√E:
Prog“L”:
⊿E〉0⇒E=‐E:
Prog“L”:
⊿V=0⇒Goto8⊿E=0:
U=V:
X=E:
Prog“J”:
N=Y:
X=U:
Prog“J”:
K=Y:
NK≥0⇒Goto8⊿LblV:
X=(E+U)∕2:
Prog“J”:
Prog“K”:
AbS(E‐U)〉0.01⇒GotoV:
≠〉K=H+FL‐F(E+U)∕2:
Prog“M”⊿Lbl8:
Y=(WT+D)∕(1‐W∕tanG):
X=T+Y∕tanG:
Pol(X‐T,Y):
OY〉0⇒I≥T⇒K=H+F(L+I‐T):
Prog“M”⊿⊿
(14)M
Prog“G”:
X=J:
Y=I:
Pol(J‐A,I‐B):
C=I:
Rec(C,Z):
√((A+I‐X)²+(B+J‐Y))≤0.1⇒K“K”=K◢I“CX””=C◢⊿
(15)N
O=0:
C=0:
D=0:
P=0:
Q=0:
E=4⇒GotoZ⊿LblY:
{PQ}:
C=C+P“GX”:
D=D+Q“BX”:
P+Q≠0⇒GotoY:
≠〉{ZN}:
Z“ND”N⊿LblZ:
O=O+1:
{TL}:
L“CX”≠0⇒Rec(L,T“PX”+M):
≠〉GotoX⊿Pol(A+I‐X,B+J‐Y):
P=J:
Rec(I,P‐S+90):
J=‐J:
{J}:
J“Lx”≠0⇒O=1⇒O=0⊿GotoZ⊿I=I:
{P}:
P“HX”:
E=4⇒I“KX”=I◢J“GX”=P‐U◢GotoZ⊿Z=1⇒W=U+P:
J=Abs(W‐C):
Q=(I‐D)∕J:
W=J(N‐Q):
{W}:
AbsW“BX”〉0.1⇒GotoZ:
≠〉GotoX⊿⊿O=1⇒K=I:
W=U+P:
GotoZ⊿J=(U+P‐W)∕(I‐K):
J=(Abs(W‐C)+JD‐JK)∕(1‐JN):
Q=D+JN:
J“BX1”=Q‐K◢J“BX2”=Q‐I◢K=I:
W=U+P:
GotoZ:
LblX
……………………END……………………
程序功能及操作简介
114(曲线要素计算程序)
一.程序功能简介:
1.计算任意多点偏的各曲线要素及各主点里程,并推算下一交点里程;
2.公路勘测中可用曲线两侧切线(T1或T2)、外距(E)、曲线长(L)、及任意多点拼中对任意基线切基线、割基线、离基线等条件确定曲线半径;
3.计算连接导线任意两点所产生两偏角及两偏角间交点间距;
4.程序目前只能用于对称曲线的计算。
二.程序操作简介:
1.PJ-依次输入曲线偏角,偏角按左负右正输入;
2.DX-依次输入基线长,需要进行切割离定半径时,其值加9000输入,最后输入零值;
3.LH-输入缓和曲线长;
4.R-输入曲线半径,当半径未知时输入零进行定半径,当R输入负数用于上述功能3的计算;
5.DR-输入确定曲线半径的条件代码,DR输入1时用T1确定半径,DR输入2时用T2确定半径,DR输入3时用E确定半径,DR输入4时用L确定半径,DR输入5时用切割离基线确定半径;
6.T-用T1或T2确定半径输入切线长
7.E-用外距确定半径输入外距长
8.L-用曲线长确定半径输入曲线长
9.EX-EX输入零时表示切基线确定半径,EX输入正值时表示离基线确定半径,EX输入负值时表示割基线确定半径;
10.JD-输入交点里程,当输入零时表示重新确定半径;
11.NX-输入本曲线最后一交点至下一曲线第一个交点的距离;
以下为输出结果:
A-回旋参数T1-曲线切线长T2-曲线切线长
E-曲线外距L-曲线长NJD-下一曲线交点里程
ZYQZYZZHHYQZYHHZ-各主点桩号
115(公路放样程序)
一.程序功能简介:
1.可任意点置仪对公路中桩、边桩、交点桩、构造物各控制点、填方坡脚、挖方坡顶进行放样;可用程序精确确定横断面方向并进行横断面的测量;
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- Fx4800 程序