fx-4800计算器公路工程程序汇编.docVIP

PAGE  PAGE 13 Fx—4800P计算器 公路工程测量程序汇编 蒋立 日期：1998年12月 《fx4800p》由坐标计算多边形面积程序 程 序 清 单 程序名：A Lbi0：{NAB}：N“N=”：S=0：I=1：I“N”=I◢ A“X=”：B“Y=”：C=A：D=B ↙ Lbi1：{XY}：I=I+1：I“N”=I◢ X“X=”：Y“Y=”↙ Lbi2：S=S+0.5 (AY-BX) ： A=X ： B=Y ↙ Lbi3：IN＝＞Goto1: ≠＞S=S+0.5(DX-CY) ↙ Lbi4：S“S”=AbsS◢ ↙ Lbi5：Goto0 ↙ 使用说明：按FILE　■　Ａ→EXE ↙ 显示 Ｎ＝？　　问多边形个数，如 Ｎ＝３ Ｎ＝１　　提示输入第１个角点的 Ｘ、Ｙ坐标　　　　　　 Ｘ＝？　　１↙ Ｙ＝？　　１↙ Ｎ＝２　　提示输入第２个角点的Ｘ、Ｙ坐标 Ｘ＝？　　４↙ Ｙ＝？　　５↙ Ｎ＝３　　提示 ↙ 输入第３个角点的Ｘ、Ｙ坐标 Ｘ＝？　　１↙ Ｙ＝？　　５↙ Ｓ＝６　　多边形（三角形）面积的等于６ 《fx4800p》计算直线、园曲线、缓和曲线上的中桩坐标、 法线方向上边线坐标程序 程 序 清 单 程序名：B Lbi0 ：Defm12 ：{ABCDER}:A“JDK”：B“X0”：C“Y0”：D“PJ0”：E“FWJ：JD-ZH”：R“R”：H“Ls”↙ Lbi1 ：F=28.6479*H/R：P=H2/（24R：Q=H/2-H∧3/（240R2：L=R（D-2F）*π/180+2H◢ ↙ Lbi3 ：Z[12]=A：Z[11]=E：G=（R+P）*tan（D/2）+Q：V=Z[12]-G： W=V+L：V“ZH”=V◢ W“HZ”=W◢ ↙ Lbi4：Rec（G，Z[11]）：X=B+I：Y=C+J：X“ZHX”=X◢ Y“ZHY”=Y◢ Z[1]=X：Z[2]=Y↙ Lbi5：{N，T}：N“LP：1，RP：0”：T“S：0，S” ↙ Lbi6:N=1＝＞ Z=Z[11]-D+180：≠＞N=0＝＞Z=Z“Z[11]+D-180⊿⊿ ↙ Lbi7：Z＜0＝＞Z=Z+360：⊿ Rec（G，Z）：X=B+I：Y=C+J：X“HZX”=X◢ Y“HZY”=Y◢ Z[3]= X：Z[4]=Y ↙ Lbi9：Z[11]-180＜0＝＞Z[11]=Z[11]+180：≠＞Z[11]=Z[11]-180⊿ ↙ LbiA：{M}：M“PK” ↙ LbiB：M≤L/2+V＝＞GotoC：⊿ GotoG ↙ LbiC：M≤V＝＞Rec（V-M，Z[11]）：X=Z[1]-I◢ Y=Z[2]-J◢ GotoI：≠＞M≤H+V＝＞U=M-V：Prog“Z2”：≠＞O=F+180（M-V-H）/（πR）：Prog“Z3” ⊿ ↙ LbiD：N=1＝＞S=Z[11]-tan-1（Y/X）：≠＞N=0＝＞S=Z[11]+tan-1（Y/X）⊿⊿ ↙ LbiE：prog“Z4”：X=Z[1]+I◢ Y=Z[2]+J◢ ↙ LbiI：T=0＝＞GotoA：⊿ GotoN ↙ LbiN：{T}：T“S”：M???V＝＞Rec（T，Z[11]-90）：Prog“Z6”：GotoA：≠＞M≤H+V＝＞G=28.6479*U2/（RH）：GotoO：≠＞GotoP ⊿ ↙ LbiO：N=1＝＞Z[12]=Z[11]-G-90：≠＞N=0＝＞Z[12]=Z[11]+G-90⊿⊿ Z[12] ＜0＝＞Z[12]=Z[12]+360：⊿ Rec（T，Z[12]）：Prog“Z6”：GotoA ↙ LbiP：Prog“Z7”：Prog“Z6”：GotoA ↙ LbiG：N=1＝＞S=Z[11]-D：≠＞S=Z[11]+D⊿ M≥W＝＞Rec（M-W，S）：X=Z[3]+I◢ Y=Z[4]+J◢ GotoV：≠＞M≤W-H＝＞O=F+180（W-H-M）/（πR）：Prog“Z3”：≠＞U=W-M：Prog“Z2” ⊿ ↙ LbiH：N=1＝＞S=Z[11]-D+180+tan-1（Y/X）：≠＞N=0＝＞S=Z[11]+D+180- tan-1（Y/X）⊿⊿ ↙ LbiK：Prog“Z4”：X=Z[3]+I ◢ Y=Z[4]+J◢ ↙ LbiV：T=0＝＞GotoA：⊿ {T}：T“S”：M≥W＝＞Rec（T，S-90）： Prog“Z6”：GotoA：≠＞M≤W-H＝＞GotoS：⊿