CASIO fx-4800P 施工放样计算程序 编制：苏畅

 

程序名称：JD COMP “读入缓和曲线计算初始数据”

K≥1467.71=>K≤2239=>Goto1⊿⊿

K＜2000=> Goto2⊿

Lbl 1:Q=1：A=17°6′30.9″R=2583.323:C=0:F=1856.291：M=7063.351: N=3346.948:Z=134°24′24.8″

Prog”S”

Lbl 2:Q=1：A=11°47′58.2″R=3300:C=0:F=1208.318: M=8517.706:N=3934.392:Z=187°31′14.3″

Prog”S”

 

程序名称：SQ19“读入竖曲线计算初始数据”

I=－1:A=－0.035:B=－0.02:C=1970:F=270.79:R=35000:T=262.5:Prog”SQX”

 

程序名称：X   “坐标正算：已知A点坐标，A点到B点方位角及距离，算B点坐标”

Prog”A”：X“HD”Y“HA”

I“X”=S + Rec（X，Y◢

J“Y”=G + J

 

程序名称：P   “坐标反算：已知A、B两点坐标，算A－>B的方位角”

Prog “A”：XY

Pol（X－S，Y－G：J＜0=>J=360+J△I“HD=”◢

J“HA=”◢

 

程序名称：P1 P2－P    “双点后方交会”

S“XA”G“YA”X“XB”Y“YB”ABC

Prog “P”：D“HD1”=√（A²+B²-2ABCOSC◢

D=Sin^-1（B SIN C÷D：I“X”=S+Rec（A，J+D◢

J“Y”=G+J◢

S=I；G=J：Prog “P”

 

程序名称：S1    “斜距改正计算”

Lbl 1：{XY}：X“S”Y“VA”：Y= SIN^-1（0.18 Sin Y÷X）+Y

J“ 〈+－〉”=I－Abs（X Sin Y◢

J“△H”=X Cos Y：J“H”=Z[1]+ X Cos Y◢

{J}：J“Goto”：J=0=>Goto1⊿

 

程序名称：A     “输入测站数据”

S“X0”G“Y0”：I=0：J=0

 

程序名称：1      “输入测站点高程”

Z[1]=测站点高程+仪器高-觇标高   “如：Z[1]=270.654+1.548-1.30

 

程序名称：GJ      “输入相应钢筋直径可计算每米钢筋重量”

P=0.617D²÷100

 

程序名称：AREA   “多边形面计算”

NA“X0”B“Y0”：S=0

Lbl 1：{CD}：C“X”D“Y”：S=S+AD－BC：A=C：B=D：Dsz N：Goto 1：

S=Abs S÷2◢

 

程序名称：Q      “边坡开挖线计算”

A“L1”B“H1”C“L2”D“H2”E“PL”F“PH”

M=（D－B）÷（C－A：L“QL”=（D－F－MC+KE）÷（K－M◢

H“QH”=F+K（L－E◢

 

程序名称：= >XYZ     “从测站测设未知点坐标”

X“X0”Y“Y0”Z“Z0”A“P0”B“P1”

Lbl  0：{CDE}：C“HA”D“S”E“VA”：J=0：E=Sin^-1（0.18 Sin E÷D）+E

F“HD”=Abs （D Sin E ◢

G=Z+A-B+D cos E：I“X”=X+Rec（F，C◢

J“Y”=Y+J◢

G“Z”=G◢

Goto 0

 

程序名称：SQX       “竖曲线计算主程序”

IA“⊿I1”B“⊿I2”C“BP”F“HP”RT

D=C－T：E=C+T

Lbl  0：{K}

KD= >X=C－K：N=A：Goto 1⊿

K≥E= >X=C－K：N=B：Goto 1⊿

K≤C= >X=K－D：Y=C-K：N=A：Goto 2：≠>X=E－K：Y=C－K：N=B：Goto 2⊿

Lbl  1：H“HS”=F-XN◢

Goto 0

Lbl  2：H“HS”=F－YN－I X²÷2÷R◢

Goto 0

 

程序名称：S       “缓和曲线计算主程序”

Defm 3：Prog“1”：Prog“A”

B=90C÷π÷R：T=C÷2-C^3÷（240R²）+（R+C²÷24÷R）Tan（A÷2）：L=ARπ÷180+C:H=F－T+C：O=F－T+L:V=O-C

J=0:Z[2]=M+Rec（T,Z-180）：Z[3]=N+J

Lbl  0：｛KP｝:KP“BZ”

K≤F-T=>U=K－F+T：D=0：E=0：Goto 2⊿

K≤H=>D=K－F+T： Goto 1⊿

K<V=>E=B+180（K-H）÷（πR）：U=R Sin E+C÷2－C^3÷R²÷240：D=C²÷24÷R+R（1－Cos E）: Goto 2⊿

K≤O=>D=O－K：Goto 1⊿

K≥O=>D=T+K－O：U=T+D Cos A：D=D Sin A：E=A：Goto 2⊿

Lbl  1：W=RC：E=180D²÷（2πW：U=D－D^5÷40÷W²：D= D^3÷6÷W－D^7÷（336 W^3）：V≤K=>E=A－E：W=U：U=T+（T－W－D tan A）Cos A：D=D Cos A+（T－W）Sin A⊿Goto 2

Lbl  2：Q<0=>U=U+PSin E：D=D－P Cos E：≠> U=U－P Sin E：D=D+P Cos E⊿

X=U Cos Z－DQ Sin Z+Z[2]◢

Y=U Sin Z+ DQ CosZ+Z[3]◢

Prog“P”：｛J｝：J“GoOn”：J=0=>Goto 0⊿

Prog“S1”：Goto 0