第8章fx-4800程序
卡西欧fx-4800P计算器程序集(小刚)
计算器对应程序名称：{ZDZB}（转点坐标）A“XZ”B“YZ”C“XH”D“YH”：{RL}I=1：J=1：Pol（（C－A），（D－B））：F=R＋JRec（L，F）X“X”=I＋A◢Y“Y”=J＋B◢注：用于已知两点坐标，及待测点与测站点的连线与已知边（两已知点的连线）的水平夹角和待测点至测站点的水平距离求待测点坐标。
XZ、YZ—测站点坐标；XH、YH—后视点坐标；R—水平角（顺时针为正，逆时针为负）；L—待测点至测站点水平距离。
计算器对应程序名称：{FWJ}(方位角)X“X1”：Y “Y1”：U“X2”：V“Y2”G=U-X:H=V-YPol(G,H):I◢J<0==>J=+360⊿J“J0=”注：用于已知两点坐标，求两点之间的方位角和距离。
X1、Y1—前视（后视）点坐标；X2、Y2—测站点坐标；L—测站点至前视（后视）点距离；J0—方位角(按SHIFT键再按°′″键转换为60制角度)。
任意多边形面积计算程序fx-4800p（三）计算器对应程序名称：{MJ}Lbl 0:M“N”：N“E”：E=M：F=N：S=0Lbl 1:{XY}:S=S-(XN-YM)/2:X=E==>Y=F==>“㎡”:S ◢Goto O ⊿⊿M=X:N=Y:Goto 1注：用于计算任意多边形的面积。
N-起始点X坐标（闭合点X坐标）E-起始点Y坐标（闭合点Y坐标）X-前进点X坐标Y-前进点Y坐标S-多边形面积（取绝对值）应顺序依次输入点坐标，输完所有点坐标后应再次输入起点坐标，这样就形成了多边形的闭合，程序将自动计算出多边形的面积。
极坐标测设建筑物（放样）计算程序fx-4800p（四）计算器对应程序名称：{ZBCS}E:F:K:LG=K-E:H=L-FPOL(G,H):J<0==>B=J+360：≠==>B=J⊿Lbl 0{XY}:X=0==>G o t o E⊿G=X-E:H=Y-FPol(G,H):I◢J<0==>J=J+360⊿C=J-B:C<0==>C=C+360⊿C◢Goto 0Lbl E注：用于计算已知方向边AB（已知点A、B两点的连线）与A（测站点）点至任意放样点i方向边（测站点与待放样点的连线）的水平夹角Bi和水平距离。
卡西欧计算器程序fx-4800p
Casio Fx-4800P计算器测量计算程序抚顺市市政建设(集团)有限公司第一工程处：张和光Casio Fx-4800P一、整机概况Fx-4800P计算器是日本Casio公司的产品，它除了具备函数型计算器的全部功能之外，还具备如下特殊功能：1、二进制和八进制字组显示；2、二进制、八进制、十进制和十六进制的转换和加、减、乘、除运算。
3、进行f（x）函数的输入与积分的计算；4、进行标准差和回归计算。
Fx-4800P计算器具有同时显示运算表达式和计算结果的四行式显示的特点。
该计算器具有记存4500个程序步的记忆储存装置，计算器储存了程序之后，只要您输入数据，再按一下EXE键，计算器就会用数据进行程序执行,对于随数据而变化的反复计算的运用十分方便。
Fx-4800P计算器具备条件指令转移和非条件指令转移的能力，还具备逻辑判断能力，因此它可以进行测量工作中比较复杂的计算，当然其它专业的计算工作也同样可以解决。
（1）Fx-4800P计算器操作方法比较简单、易学，程序编排灵活、易懂，可称之谓各专业技术人员的物美、价廉、得心应手的计算工具。
每一台Fx-4800P计算器都具备一本说明书，该计算器各部键的功能以及操作方法，只要认真按照说明书各章节学习，很快就能掌握和运用，现将我在生产实践中应用的部分计算程序介绍给测绘界的同行以便共同探讨。
（2）二、程序库1．坐标反算：程序步骤：C”X1”:D”Y1”:E”X2”:F”Y2”:Fixm:Pol(E-C ,F-D:I”S1-2=”◢J≤O=>J=J+360△J”A1-2=”操作过程：ZBFS→EXE→输入X1值→EXE→输入Y1值→EXE→输入X2值→EXE→Y2→EXE→EXE→EXES1-2：计算得出的距离；A1-2：计算得出的角度。
（按shift°′″转换为60进制的角度）注：此程序可循环计算。
（3）2．坐标正算：程序步骤：C”X1”:D”Y1”:S”S1-2”:R”A1-2”:Fixm:X”X 2”=C+Rec(S,R◢Y” Y2”=D+J操作过程：ZBZS→EXE→输入X1值→EXE→输入Y1值→EXE→输入S1-2距离→EXE→输入A1-2角度（例125°31′23.25″）→EXE→EXE注：此程序可循环计算。
4800程序使用说明书
4800程序使用说明书术语：连续曲线数据块、独立曲线数据块、长短链功能：1、放样对应里程中心点2、放样对应里程旋转任意角度外移点（图A点）3、放样对应里程旋转任意角度外移点的外移点（图B点）4、获取放样点坐标及对应里程中心点沿线路前进方向切线方位角程序输入注意事项：1、常用程序文件放在前面，便于调用，一般先建立“CIRC LE”、“XY-AL”、“AL-XY”三文件，文件名千万不能输错。
2、加粗带下划线词组为计算器中的函数或符号，只能从计算器中调出此函数或符号，不能从键盘输入。
符号←表示回车键“EX E”坐标输入通用格式：屏幕显示OPP NAME?（置镜点名称）或CPP NAME?（后视点名称）：1：输入-1：手动输入坐标X,Y2：输入大于1数字：输入用数字所代表的控制点名。
如数据库中没有本数字所代表的点名，则系统显示Syn ERROR in…（文件名）。
曲线放样程序（CIRCLE）运行说明：步骤1：屏幕提示“LOAD?”（输入曲线要素）1.1：输入 1（默认）：输入里程后将自动判断所在曲线并调用（此功能必须保证曲线数据库中有连续曲线数据块，具体详见数据库建立）。
1.2：输入-1：屏幕提示手动输入各曲线要素，ZJ（转角）、R（半径）、L0(缓和曲线长)、ZH KM(直缓里程)、JDX(曲线交点X坐标)、JDY(曲线交点Y坐标)、A0(起始直线边前进方向方位角)、1 R,-1 L(右偏输入1，左偏输入-1)。
1.3：输入大于1的数字：输入用数字代表的曲线名称，比如13，表示放样点位于曲线 13 上（曲线名称在建立数据库是自己命名，但一定要大于1）。
如库中没有此名称，系统显示“Syn ERROR in CI RCLE”。
（此功能必须保证曲线数据库中有独立曲线数据块）步骤2：屏幕提示“OPP NAME?”（输入置镜点名称）详见坐标输入格式。
步骤3：屏幕提示“DK+M?”（输入放样点对应中心里程）如K15+002.35应输入15002.35。
4800程序
卡西欧Fx-4800P计算器测量程序一、坐标放样源程序ZBFYU“Xc”:M“Yc”:O“XH”:Q“YH”:I=O-U:J=Q-M: Pol(I，J):J＜0＝＞J=J+360:≠＞J=J:⊿T“HF” =J◢I“HL”◢X=0=＞W“XQ” =U+Lcos(T+P“a”)◢S“YQ” =M+Lsin(T+P)◢≠＞I=X-U:J=Y-M: Pol(I，J):J＜0＝＞J=J+360:≠＞J=J⊿I“QL=”◢H“QF” =J◢J=H-T:J＜0=＞J=J+360◢≠＞J=J使用说明:XH—后视点X坐标 YH—后视点Y坐标XC—置镜点X坐标 YC—置镜点Y坐标HF—后视方位角 QF—前视方位角HL—后视距离 QL—前视距离X、Y—前视点坐标 J—仪器后视归零后拨角当X=0时运行坐标反算QL—测设点到置镜点的距离а—测设点与后视点夹角XQ—测设点的X坐标 YQ—测设点的Y坐标二、复合辛卜生公式计算曲线元坐标源程序XBS—XY(已知里程求坐标)A“QD”:Z“ZD”:R“R0”:V“RN”:D“X0”:E“Y0”:F“F0”:K:L“B”:P“а”:J:Prog “SIM1”:W＜0＝＞W=W+360:≠＞W=W⊿W“FWI=”◢X=X◢Y=Y◢XBS—L、B(已知坐标求里程和边距)A“QD”:Z“ZD”:R“R0”:V“RN”:D“X0”:E“Y0”:F“F0”:K”K”(输入大致里程)I=X:B=Y:K=A+Abs((Y-E)cos(F+P“a”-180)+(X-D)sin(F+P-180):Lbl 1:L=0:Prog“SIM1”:C=(B-Y)cos(W+P-180)- (I-X)sin(W+P-180): AbsC＜10∧-4＝＞Goto2: ≠＞K=K+C∶Goto1:⊿Lbl2:L=0:Prog“SIM1”:C=(B-Y)÷sin(W+P):K=K◢C“B=”◢子程序SIM1T=(J÷V-J÷R)÷(Z-A)H=(K-A)÷NS=90H÷πW=F+((TNH+J÷R)+J÷R)NS: G=1:X=D+H÷6×(cosF+cosW+4×Σ(cos(F+((G+0.5)HT+2J÷R)(G+0.5)S),G,0,(N-1))+2Σ(cos(F+(THG+2J÷R)GS,G,1, (N-1)))+Lcos(W+P):Y=E+H÷6×(sinF+sinW+4×Σ(sin(F+((G+0.5)HT+2J÷R)(G+0.5)S,G,0,(N-1))+2×Σ(sin(F+(THG+2J÷R)GS,G,1,(N-1)))+Lsin(W+P)使用说明:QD—起点里程 ZD—终点里程R0—起点半径 RN—终点半径J—曲线转向 (左转为-1 直线为0 右转为+1)X0、Y0—线元起点坐标 F0—起点方位角K—待求点里程 N—计算精度(可取4～12的整数)а—边桩与中线右交角 B—边桩到中桩的距离，左“-”右“+”X、Y —待求点坐标 K—待求点里程三、数据库的编制以每个线元为一段先付参数值，例K≥542.759＝＞K≤686.148＝＞A”起点里程”=542.7590:Z终点里程=163.5:R起点半径=10^45: V终点半径=10^45:D起点坐标=22236.147:E起点坐标=32145.669:F起点切线方位角=81°22′42″:J＝0:⊿⊿K≥987.324＝＞K＜10234.021＝＞A=……J=－1⊿⊿……Prog“XBS—XY”四、纵断高程计算Lbi 0R:T:D”K(JD)”:H”H(JD)”:U”I1”:V”I2”:｛K｝V＞U=＞G=1:≠＞V＜U=＞G=-1⊿⊿K≤D-T=＞L=D-KP=H-LU/100≠＞K≤D=＞L=K-D+TP=H-U(D-K)/100+GL2/2R≠＞K≤D+T=＞L=D+T-KP=H+V(K-D)/100+GL2/2R≠＞K＞D+T=＞L=K-DP=H+LV/100⊿⊿⊿⊿P”H=”▲Goto 0H:高程、 K：变坡点里程、H：变坡点高程、I1、I2前后坡度五、中轴旋转、超高计算: (1)IR,(2)IL线路左转输2，W（Z）：中分带宽度，K：桩号，H（Z）：中桩设计高程，W（L）左侧宽度，W（R）：右侧宽度Lbi 1G”(1)IR,(2)IL”:D”K(ZH)”:S”LS1”:H”LS2”:Q”LY”:W”W(Z)”:I”I1”:J”IB”｛KVAE｝:K:V”h(Z)”:A”W(L)”:E”W(R)”G=2=＞G=-1⊿｛KPAB｝:K:P”H(Z)”:A”W(L)”:B”W(R)”Prog”XZ”:U”H(L)=”▲V”H(R)=”▲Goto11、子程序：XZG=1=＞U=A：V=B：≠＞G=-1=＞U=B：V=A⊿⊿K≤D=＞R=P-I（U-W/2）/100：E=P-I（V-W/2）/100：≠＞K≤D+S=＞Prog”ZXA”: ≠＞K≤D+S+Q=＞R=P+J(U-W/2)/100:E=P-J(V-W/2)/100: ≠＞K≤D+S+Q+H=＞Prog”ZXB”: ≠＞K＞D+S+Q+H=＞R=P-I(U-W/2)/100:E=P-I(V-W/2)/100⊿⊿⊿⊿⊿G=1=＞U=R:V=E: ≠＞G=-1=＞U=E:V=R⊿⊿2、子程序： ZXAL=K-DR=P-I(U-W/2)/100+L(U-W/2)(I+J)/100SL≤2IS/(I+J) =＞E=P-I(V-W/2)/100: ≠＞L＞2IS/(I+J) =＞E=P-LJ(V-W/2)/100S ⊿⊿3、子程序： ZXBL=D+S+Q+H-KR=P-I(U-W/2)/100+L(U-W/2)(I+J)/100HL≤2IH/(I+J) =＞E=P-I(V-W/2)/100: ≠＞L＞2IH/(I+J) =＞E=P-IJ(V-W/2)/100H ⊿⊿六：边轴旋转超高计算：L：平曲线长度，I1正常横坡，IB超高横坡。
fx-4800计算程序
标准测量曲线坐标计算程序1.文件名MAILLbi 0{U,D}（U为桩号，D为所求点到中点的距离左为负，右为正）U<12111.892(ZH点)=>PROG“JD1”：≠>U《12000=>“JD2”⊿⊿（有多少语句就有多少⊿）X◢Y◢GOTO 02.数据记录文件“JD1”Z=12000（直缓点桩号）H=13000（缓直点桩号）L=100（缓和曲线长度）T=100（切线长）R=2000（圆曲线半径）A=175.2315（第一方位角）B=150.2000（第二方位角）I=+ -1（左为负，右为正）P=（交点X坐标）Q=（交点Y坐标）V=（缓圆点X坐标）W=（缓圆点Y坐标）PROG“SE”3.“SE”判断J=Z+LG=H-LU〈Z=> PROG“LINE”：≠>U〈J=> PROG“Q1”：≠>U〈G=> PROG“CIR”：≠>U〈H=> PROG “Q2”⊿⊿⊿⊿（有多少语句就有多少⊿）4. “LINE”直线S=U-ZC=AX=P+（S+T）*COS（A+180）+D*COS（A+90）Y=Q+（S+T）* SIN（A+180）+D*SIN（A+90）5. 第一缓和曲线“Q1”S=U-ZC=A+I*S2/2/L/R*180/PIM=S-S5/40/R2/L2+S9/3456/（RL）4N=S3/6/L/R-S7/336/L3/R3+S11/42240/（RL）5X=P+T*COS（A+180）+M*COSA+N*COS（A+I*90）+D*COS（C+90）Y=Q+T*SIN （A+180）+M*SIN A+N* SIN（A+I*90）+D* SIN（C+90）6.圆曲线“CIR”S=U-JC=A+I*（L/2/R+S/R）*180/PIX=V+2*R*SIN（S/2/R*180/PI）*COS（A+I*（（L+S）/2/R）*180/PI）+D*COS （C+90）Y=W+2*R*SIN（S/2/R*180/PI）*SIN（A+I*（（L+S）/2/R）*180/PI）+D*SIN （C+90）7.第二缓和曲线“Q2”S=H-UC=B- I*S2/2/L/R*180/PIM=S-S5/40/R2/L2+S9/3456/（RL）4N=S3/6/L/R-S7/336/L3/R3+S11/42240/（RL）5X=P+M*COS（B+180）+T*COSB+N*COS（B+I*90）+D*COS（C+90）Y=Q+M*SIN （B+180）+T*SIN B+N* SIN（B+I*90）+D* SIN（C+90）匝道程序1.主程序（TYQXJS）“1.SZ=XY”：“2. XY =SZ”：N：U“X0”：V“Y0”：O“S0”：G“F0”：H“LS”：P“RO”：R“RN”：Q：C=1/P：D=（P-R）/（2HPR）：E=180/PI：N=1=>GOTO 1：≠>GOTO 2⊿Lbi 1：{SZ}：SZ：W=AbS（S-O）：PROG“SUB1”：X“XS”=X⊿Y“YS”=Y⊿GOTO 1Lbi 2：{XY}。
CASiO fx-4800计算器程序
CASiO fx-4800计算器程序1、CE ZHANFix3:Prog"X":U=X:V=Y:Prog"X":X=X:Y=Y:Fixm:Pol(X-U,Y-V:Pause0:W=J:J<0=>J=J+360△IntJ+.01(.6Fr ac 60J+Int(60 FracJ:Fix 4:J"D,F"= Ans2、QU XIANFix3:L"K+"D"B÷2":Fixm:AbsD<3E 3=>Prog"Q":≠>X=L:Y=D △X:Pause0:Y"N,E="◢Pol ( X-U ，Y-V:Pause0: J <0=>J=J+360△IntJ+.01( .6 Frac 60J+Int(60 FracJ:Fix 4:J"D,FWJ"=Ans3、X{NXY}:N=控制点编号=>X=控制点X 坐标：Y=控制点Y 坐标△N=下个控制点编号=>X=下个控制点X 坐标：Y=下个控制点Y 坐标△……X:Pause0:Y4、QProg"SJ":Prog"P":C=L-H:C>.5B=>K=B-C:≠>K=C △K>0=>K≤S=>A=RS:X=K -K 5÷40A 2:Y=K 3÷6A -K 7÷336A 3:≠>A=180(K-S)÷πR+M:Y=R(1-cosA)+W:X=RsinA+Z ［1△Pol(X,Y:≠>I=K:J=0△E-F>0=>C<.5B=>X=N+Rec(I,J+F:Y=J+Q:Prog"J":J=Ans+F:≠>J=-J:Prog"K":C=B-C:Prog"J":J=E-Ans:△≠>C<.5B=>J=-J:X=N+Rec(I,J+F:Y=J+Q:Prog"J":J=F- Ans: ≠>Prog"K":C=B-C:Prog"J":J=Ans+E: △△X=X+Rec(D,J+90:Y+J5、KX=P+Rec(I,J+180+E:Y=J+O6、JC≤0=>0: C≤S=>90C 2÷πA: ≠>A △△△7、PE=F-Z:G=H+B:W=S 2÷24R: Z ［1］=S-S 3÷40R 2-Rsin(180S÷2πR:M =180S÷2πR ：Rec （T,F-180：N=I+X:Q=J+Y: Rec （T,E:P=I:+X:O =Y+J8、SJL ≤缓直点桩号=>B=曲线长度:F=计算方位角:H=直缓点桩号:T=切线长度：X=交点X 坐标：Y=交点Y 坐标： S=缓和曲线长度:R=曲线半径：Z=转角（左转输正，右转输负）：≠>L≤下段直缓点桩号=>B=曲线长度：F=计算方位角:H=直缓点桩号：T=切线长度：X=交点X 坐标：Y=交点Y 坐标： S=缓和曲线长度:R=曲线半径：Z=转角值: ≠>L≤下段直缓点桩号……△△△ (注：有多少弯道就加多少个△)。
卡西欧FX4800计算中边桩程序
卡西欧FX4800计算中边桩程序,程序：McW“1.js 2.SZ”:W=1=>Goto 1 ΔW=2=> O“KOU LING”:O≠123456=>O=0“OUT” ◢Goto 4 ΔO=0:Defm 83:Z[81]=1:Goto 0←┘Lbi 0←┘{ABCDEFGU}:A“X0”:B“Y0”:C“F0’:D“R0”:E“RN’:F“D0”:G“LS”:U“G” ←┘Z[Z[81]]=A:Z[Z[81]+10]=B:Z[Z[81]+20]=C:Z[Z[81]+30]=1÷D:Z[Z[81]+40]=1÷E:Z[Z[81]+5 0]=F: Z[Z[81]+60]=F+G: Z[Z[81]+70]=U←┘A=0=> Dsz Z[81]:Goto 1ΔIsz Z[81]:Goto 0←┘Lbi 1←┘{HS}:H“D’:S“Z”:Z[82]=1:Goto 2←┘Lbi 2←┘Z[81]>Z[82] =>”OUT” ◢:Goto5←┘H≤Z[Z[82]+60]=>A=Z[Z[82]]:B=Z[Z[82]+10]:Z[Z[82]+20]=C:D=Z[Z[82]+30]: E=Z[Z[82]+ 40]: F=Z[Z[81]+50]: G=Z[Z[81]+60]: U=Z[Z[81]+70]: Goto3:ΔIsz Z[82]:Goto 2Lbi 3←┘P＝U（E-D）÷Abs（G-F）：Q＝Abs（H-F）：I＝PQ：J＝C+90 Q（I+2UD）/π：J<0=> J=J+360ΔM＝C+45 Q（I÷4+2UD）÷2π：N＝C+135Q（3I÷4+2UD）÷2π：K＝C+45Q（I ÷2+ 2UD）÷π←┘S=0=>Z=0：Goto4ΔS＜0=>Z＝－1：Goto4ΔZ＝1：Goto4←┘Lbi 4X＝A+Q(Cos C+4（Cos M+Cos N）+2Cos K+Cos J) ÷12 +ZSCos（J+90Z) ←┘Y＝B+Q(Sin C+4（Sin M+Sin N）+2Sin K+Sin J) ÷12 +ZSSin（J+90Z) ←┘S=0=>“X”:X:Pause 0: “Y” :Y◢Goto 1ΔS<0=>“XL”:X:Pause 0: “YL”:Y◢Goto 1ΔS>0=>“XR”:X:Pause 0: “YR”:Y ◢Goto 1 ←┘Lbi5←┘二、变量及说明X0：Y0：F0――――曲线元起点X、Y坐标及起点正切线方位角R0：RN――――――曲线元起点及终点半径D0：LS：Q―――曲线元起点桩号、路线长度及线路左右偏标志（左=-1,直线=0,右=1）D――――――――曲线元中待求点桩号Z―――――――――计算边桩距中线平距，左边输入负值，右边输入正值，中桩输入0 X：YXL:YLXR:YR ―――――――待求点中边桩桩号的X，Y坐标扩充变量：Z[Z[81]]: Z[Z[81]+10]: Z[Z[81]+20]: Z[Z[81]+30]: Z[Z[81]+40]: Z[Z[81]+50]: Z[Z[81]+60]: Z[Z[81]+70]: 分别为各线元X0:Y0:F0;R0:RN:D0:LS:Q(1) 以道路中线的前进方向（即里程增大的方向）区分左右；当线元往左偏时，Q=-1；当线元往右偏时，Q=1；当线元为直线时，Q=0。
CASIO-fx4800程序
CASIO-fx4800程序本人自网络上进行整理，谢谢大家支持！！！！CASIO-fx4800p 1 KWX Lbl1:{ABC}:Z[5]=A:Z[6]=B:Z[7]=C:Lbl2:Prog“ZBJX”:Abs(Z[5]-X)<0.001ÞG oto 4∆ Pol(Z[5]-X,Z[6]-Y):K=K+Icos(J-V):U=U-Isin(J-V):Goto2:Lbl4:Prog“SQX”:A=Z[7]-H:A$0ÞL=AbsU -1.5A-13:¹ÞL=AbsU-1.0A-15∆ Ky A+0.75y Uy Ay Goto 1¿ 2 ZBJX Fixm:{K}:Lbl 0:{K}:K:K# $ÞW:C: D:A:B:R:S∆ P=S2/24R-S4/2688R3:Q=S/2-S3/240R2:T=(R+P)tg(AbsA/2)+Q:L=pRAbsA/180:E=W-T:F= E+L¿ K#EÞL=W-K:X=C+Lcos(B-180):Y=D+Lsin(B-180):V=B:Goto 1∆ K#E+SÞL=K-E:X=L-L5/40R2S2: Y=L3-6RS-L7/336R3S3:Pol(T-X,Y):X=C+Icos(B-180-AbsAJ/A):Y=D+Isin(B-180- AbsAJ/A):V=B+90L2Ab sA/ApRS:Goto 1∆ K#FÞL=K-E-S:I=(S/2+L)×180/pR:X=T-RsinI-Q:Y=R(1-cosI)+P:V=IAbsA/A+B:Pol(X, Y):X=C+Icos(B-180-JAbsA/A):Y=D+ Isin(B-180-JAbsA/A):Goto 1∆ K#F+SÞL=F+S-K:X=T-L+L5/40R2S 2:Y=L3/6RS-L7/336R3S3:Pol(X,Y):X=C+Icos(B+A+JAbsA/A):Y=D+ Isin(B+A+JAbsA/A):V=B+A-90L2A bsA/ApRS:Goto 1∆ K>F+SÞL=K+T-S-F:X=C+Lcos(A+B):Y=D+Lsin(A+B):V=A+B:Goto 1∆ Lbl 1:X=X+ Ucos(V-090):Y=Y+Usin(V-090)¿ O=V¿ 3 SQX Fixm:{K}:K#$ÞG:C:R:E:F∆ W=F-E:T=Abs(RW/2):K<G-TÞH=C-E(G-K)∆ K$G-TÞH=C-E(G-K)+(K+T-G)2AbsW/2RW∆ K$GÞH=C-F(G-K)+(K-G-T)2AbsW/2RW∆K$G+TÞH=C-F(G-K)∆¿ 4 HGHXP {KU}:K:U=U:Prog“ZBJX”:Prog:“SQX”:Xy Yy H¿ 备注：1(KWX)中，A、B、C为某点的坐标X，Y，Z；K 桩号；L 当L=0时处于开挖线位置；A 高程；A+0.75 测点高程+路面厚度；U 距中线距离。
卡西欧fx-4800测量计算程序
O —X N Y N计算L1 ZX？输入置镜点X 坐标X “ ZX ” Y “ ZY ” ZKA “ ZH ” B ZY？输入置镜点丫坐标“ XZH ” S“ YZH ” O“ EJ”：R“ R Z？输入置镜点高程(L- , R+ ) ” = 9 — Goto E / I “ LS ”K？输入仪器高度L : Lbl E : Q= 9 : J “ HX ” U ZH？输入直缓点里程Goto 6 ： Lbl 9 XZH？输入直缓点X 坐标L2 YZH？输入直缓点丫坐标G : “ — E ” 丄Lbl 1 : {N} : N “ —L” ：EJ？输入直缓点方位角W=Abs ( A-AbsN ： N= 9 — Goto 9 R(L— , R +)？输入圆曲线半径,/ E=O: F= 9 : P= 9 : R 工9 — Q=90/ 左偏为负, 右偏为正n R : Goto2 / Rec ( W, 18 9 +O : LS？输入直缓点至缓圆点长度Goto4 / Lbl 2 L？输入完整曲线长度,即两倍L3 LS 加圆曲线长I < W — E=Q ( W-I : Goto 3 / HX？输入后视点X 坐标P=QW2/I Rec( W-Wx y5/9 9 R2I 2 , HY？输入后视点丫坐标P/3+O : Goto4 / Lbl 3 —E 显示后视方位角L4 —L？输入计算里程W > L-I — Goto 1 / F=2RsinE : E = 显示视方位角P=E+O+IQ FcosP+Rec ( I － Ix y3/9 S = 显示前视距离9 R2, IQ/3+O Lbl 4 M？输入1 进入①中桩计算模L5 式, 输入9 进入②边桩计算模式 , Q=B+Ans J=Q F=S+W+FsinP 输入竖直角度进入③测距仪计算U=Ans : N > 9 — Goto 6 / Lbl 5 模式L6{D} : D= 9 — Goto 1 / D=1 — Goto 8 ① 中桩计算模式/ H=P+E — 9 9 AbsD/D : J=Q+Rec XD = 显示计算里程中桩X 坐标( Abs D , P+E-9 9 AbsD/D YD = 显示计算里程中桩Y 坐标U=F+W Lbl 6 —L？输入下一计算里程L7 ② 边桩计算模式Pol ( J-X , U-Y : W v 9 — W+36 D？输入边桩距离,左侧输正值, 9 :工—W / Q=9 —G=Ans : Goto 右侧输负值9 / “ E=” 丄V: “ S=” 丄Lbl 7 E = 显示前视方位角L8 s= 显示前视距离{CMTH} : M= 9 — Goto 5 / M =1 M？输入1 显示边桩坐标—Goto 8 / C Abs sinM : “ — D= ”—L？输入下一计算里程丄V— Ans : “ / S=” 丄Z= 9 — Goto 7 ③测距仪计算模式/ T= 9 — Goto 7 / C？输入斜距K-T+H+Z+CcosM : “ —H ” 丄Goto —D = 显示平距5 / Lb1 8 / S= 显示距离仪器？mL9 说明“ 9 ” 为零 , O 为英文字J: “XD= ” 丄U: “ YD = ” 丄Goto 1C “ X 9 = ”：D “ Y 9 = ”：E “ W 9 = ”： N=Ans : R “ R= ”： L “ L 卩。
fx-4800程序
fx-4800计算源程序114(曲线要素计算程序)Fix 2:Lbl 0: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/sin S:G=S:Lbl 3:｛RVLFZEDH｝:R<0 =〉Pol(J,I:J"PX1"=J▲I"JX"=I▲J"PX2"=G-J▲Goto 0△I=Abs G/2:A=1/cosI:R＜9=〉Goto A△V"LH1"=0:Prog "A":X=P:Y=Q:H=V:｛V｝：V“LH2”=0：Prog"A":N=(R+P)tan I:T=Y+N-(X-P)/tanAbs G:F=Q+N+(X-P)/sinAbsG:X"A1"=√－(RH：X"A2"=√－(RV：X"T1"=T-M▲Y"T2"=F-B▲L"L"=(V+H)/2+IRπ/90▲V=H=〉M=0=〉E"E"=JA-R▲△△Z"JD"=0=〉Goto 3△G"G"=G▲Z=Z-X:B=Z+L:H≠0 =〉Z"ZH"=Z▲A"HY"=Z+H▲≠=〉Z"ZY"=Z▲△V=H=〉M=0=〉A"QZ"=Z+L/2 ▲△△V≠0 =〉A"YH"=B-V▲B"HZ"=B▲≠=〉B"YZ"=B▲△｛F｝:A"NJD"=B+F"NX"-Y▲Goto 0:LblA:V=0:N=V"LH"2/24:R≤2 =〉H"T":R=1 =〉F=H+M:≠=〉F=H+B△P=(F-V/2)/tan I:R=(P+√－(P2-4N))/2:Lbl C:Prog "A":R=(F-Q)/tan I-P:Prog "A":F-T≥0.001 =〉Goto C△H=V:Goto 3△R=3 =〉P=A-1:Prog "F":Goto 3△R=4 =〉R=90(L-V)/Iπ:Goto 3△R=5 =〉O=G-W:X=1/sinO+1/sin W:P=1/tan O+1/tan W:E=U+D"EX"PG/Abs G:A=P:P=X-P:Prog "F":Goto 3△R=6=〉P=A-1:Prog "S":Goto 3△115(公路中线、边桩、交点桩、构造物点、填方坡脚及挖方坡顶放样并可精确定出横断面方向及横断面测量程序)I=0:J=0:C=1:E"FX"=0 =〉Prog "116"△E=2=〉I=0:J=0:Goto 0△E=3 =〉Goto 1△A=0:I=0:J=0:G=0:Lbl B:I=0:J=0:E=E+1:S=0:Prog "B":Prog "H":E≠3 =〉Goto B△Lbl 0: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｝:Goto 0△Pol(X-A,Y-B:M=J:G=777=〉E=1△E =2 =〉｛IJGXYC｝:X"JDX"Y"JDY"G"FW":J=X-C"TX"cosG:I=Y-CsinG:Pol(J-A,I-B△K=0:｛K｝:M=M-Z:G=888 =〉I=0:J=0:S=0△Lb1 1:G=888=〉Prog "B"△G=777=〉Lb1 R:｛XY｝:Pol(X-A,Y-B:C=J-M:E=1:Prog "O":Goto R△C=J-M:E=2=〉M=J-G:A=-Rec(I,M:B=-J:E=3:H=K"ZH":M=M-C△Prog "O":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=Abs K△S=K-H"ZH":K=0=〉｛C｝:Z=C"PX"+M:W=tanZ:Prog"R":E=9:K=0:Goto 1△J=1:E=2 =〉P=F:｛F｝:FP<0 =〉C=F:F=P:Prog "D":F=C:G=180:≠=〉S=Abs S:Prog "E"△△E≠2 =〉Prog "G"△X=J:Y=I:E=1 =〉Prog "B"△Pol(J-A,I-B:Goto1116(皮尺放样程序)Prog "A":FH"ZH":N=0:M=0:A=0:B=0:｛E｝:E=3 =〉Lbl 0:D=T:{WD}:W"PJ"D"DX":Lbl 1:｛K｝:K=999 =〉N=0:Goto 2△K=888 =〉Goto A△U=K:Prog"G":Pol(J-A,I-B:Z=J-M:Rec(I,Z:S=I-N:X=I-N:{S}:S"X"=S"X"▲U>0 =〉N=I+S-X△Y=√（J2+（S-X）2：J>0=〉Y"Y"=Y▲≠=〉Y"Y"=-Y▲△Pol(X,J:J"CX"=I+Abs Y▲J"JDX"=D-N▲Goto 1:Lbl 2:A=A+DcosM:B=B+DsinM:W=G:｛WD｝:M=M+W"PJ":D"DX":Goto 1△E=4 =〉Lbl A:｛K｝:K"K1":Prog "G":X=J:Y=I:｛K｝:K"K2":Prog"G":C=J:S=I:Pol(J-X,I-Y:X=C:Y=S:Z=J:Lbl B:｛K｝:K=888 =〉Goto 0△U=K:Prog "G":C=J:S=I:Pol(J-X,I-Y:E=J-Z:U>0 =〉Z=J:X=C:Y=S△U=I:Rec(U,E:E=I:{E}:E"X"=E"X"▲N=√（J2+（E-I）2：J>0=〉N"Y"=N▲≠=〉N"Y"=-N▲△U"CX"=U+N▲Goto B△117(测角及测座标程序)I=0:J=0:C=1:W"TX">0 =〉｛IJ｝△Prog "H":I=0.0001:J=0.0001:W>0 =〉｛IJ｝△Prog"H":C=Rec(Q,P:Z=J:L=Rec(L,T:T=J:F=L:N=T:Pol(L-C,T-Z:R=J:E=J: W≠1 =〉I"JDX"=I▲△Lbl 0:｛MV｝:P=Rec(V"CX",M"PX":Q=J:Pol(I-L,J-T:C=J-R:Abs C>180 =〉C=C-360Abs C/C△W≠1=〉I"JDX"=I▲C"PJX"=C▲△L=P:T=Q:R=J:Pol(P-F,Q-N:C=J-E:O=I:Pol(X-A,Y-B:Rec(O,J+C:W≠0 =〉O"X"=X+I▲O"Y"=Y+J▲△Goto 0118(座标角度互算程序)I=0:J=0:X"X1"Y"Y1"A"X2"B"Y2":Pol(A-X,B-Y:V"DX"=I▲W=J:F=1=>Lb1 0:{CD}:C"PJ"D"DX":W=W+C:Rec(D,W:A"X"=A+I▲B=B+J▲GoTo 0△F=2=>Lb11:{CD}:C"X"D"Y":Pol(C-A,D-B:A=C:B=D:M=J-W:AbsM≥180=>M=M-360AbsM/M△M"PJ"=M▲N"DX"=I▲W=J:GoTo 1△119(移线程序)K=0:T=0:C=0:B=0:X=0:Y=0:I=0:Y=0:Lb10:{DWVK}:D"DX"W"△X"V"△Y":A=A+DcosC:B=B+DsinC:W+V≠0=>Pol(W,V:≠>J=0:I=0△Rec(I,J+C:P=I+A:Q=J+B:POL(P-X,Q-Y:F"JDX"=I ▲T=T+1:C=C+K"pj":X=P:Y=Q:T≠1=>S=J-E:AbsS>180=>S=S-360AbsC/C △S"PJX"=S▲△E=J:GoTo 0120(拉坡程序){KH}：KH：Lb1 0:{AB}:A"KX"B"HX":D=(A-K)/100:Z"PL"=100D▲C=B-H:P=C/D:LB1 1:{PF}:B"HX"=P"P"D+H▲F"NX"=0=〉Goto 1△F=1=〉H=B:K=A:K≥1000=〉K=K-1000△Goto 1△121(竖曲线计算程序）Lb1 0:{ABC}:A"IA"B"IB":D=.01Abs(A-B:Lb1 1:F=1:{FTE}:F"DR"=1=〉{T}:R"R"=2T/D▲≠=〉{E}:R"R"=8E /D2 ▲△Lb1 2:T " T "=DR/2▲E"E"=T2 /2R▲W=0:{W}:W"NX"=0=〉{R}:Goto 2△W=1=〉R=0: Goto 1△Goto 0122（中平计算程序）D=0：Lb1 1：{AC}：F"YG"=A"BM"-C"HS"▲Lb12:{B}:B"ZS"=999=>{D}:G"ZD"=F+D"QS"▲A=G:GOTO 1△G"DG"=F+B▲GOTO 2子程序⑴AO=Abs G/G:V=0:S=V"LH":V≠0 =〉Prog"C":≠=〉I=0:J=0:S=0△P=Abs I-R+Rcos S:Q=J-Rsin Abs S:J=R+P:I=Abs G/2:T=Q+JtanI:L=IRπ/90+V⑵BLbl A:｛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+Abs Dcos S:I=I+Abs Dsin S:G=888=〉X=J:Y=I:Pol(J-A,I-B:C=J-M:E=1:Prog "O":J=X:I=Y△D≠0 =〉Goto A△E=0 =〉U=T+X+Y/tanA:W=A△⑶CC=RV:J=S-S5/40C2+S9/3456C4-S13/599040C6+S17/175472640C8:I= O(S3/6C-S7/336C3+S11/42240C5-S15/9676800C7+S19/3530096640C9:S=9 0OS2/πC⑷DJ=JFS:I=0:S=0⑸ES=Abs S-L+T:J=Scos G+T:I=Ssin G:S=G⑹FR=(E+√－(E2-4ANP))/2Abs P⑺GK=Abs K:S=Abs (K-H:F=1 =〉J=-1:K≤H =〉Prog "D":Goto G△K ≥H+L =〉Prog "E":Goto G△△F=-1 =〉J=1:K≥H =〉Prog "D":Goto G△K≤H-L =〉Prog "E":Goto G△△S<V =〉Prog "C":Goto G△S≤L-V =〉S=90O(2S-V)/πR:J=ROsin S+Q:I=PO+RO(1-cos S:Goto G△S=L-S:Prog "C":C=T-J+I/tan G:J=T-I/sin G+Ccos G:I=CsinG:S=G-S:Lbl G⑻HC=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⑼IS=X:Prog"C":Y=WJ+D-I⑽JK=H+FL-FX:Prog"G":Y=WJ+D-I⑾KNY<0=〉U=X∶≠=〉N=Y:E=X△Y=0=〉E=U△⑿LX=(-U+E)/2N:Y=WX+D:Pol(X-Q,Y-OP:C=cos-1((2R2-I2)/2R2:S=9 0V/πR:C＞S=〉Abs J≥90=〉C=360-C△C<Abs G-S=〉K=H+FV/2+FC πR/180:Prog"M"△△⒀RS=A-B/W:S≤0=〉K=H+FS:Prog"M"△D=B-WA:V=0=〉Goto 9△E=0:U=V:X=0:Prog"I":N=Y:X=V:Prog"I":K=Y:NK>0=〉Goto 9△Lb1 W:X=(E+U)/2:Prog"I":Prog"K":Abs(E-U)>0.01=〉Goto W:≠=〉K=H+F(E+U)/2:Prog"M"△Lb19:D=B-WA:N=1+W2:C=O(R+P:U=2(DW-Q-WC:E=Q2-2DC+C2-R2+D 2:E=U2-4NE:E≥0=〉E=√—E:Prog"L":△E>0=〉E=-E:Prog"L":△V=0=〉Goto 8△E=0:U=V:X=E:Prog"J":N=Y:X=U:Prog"J":K=Y:NK≥0=〉Goto 8△Lb1 V:X=(E+U)/2:Prog"J":Prog"K":Abs (E-U)>.01=〉Goto V:≠=〉K=H+FL-F(E+U)/2:Prog"M"△Lb1 8:Y=(WT+D)/(1-W/tanG:X=T+Y/tan G:Pol(X-T,Y:YO>0=〉I≥T=〉K=H+F(L+I-T:Prog"M"△△⒁MProg"G":X=J:Y=I:Pol (J-A,I-B:C=I:Rec(C,Z:√—((A+I-X)2+(B+J-Y)2)≤.1=〉K"K"=K▲I"CX"=C▲△⒂NC=0:D=0:P=0:Q=0:E=4=〉Goto Z△Lb1 Y:｛PQ｝:C=C+P"GX":D=D+Q"BX":P+Q≠0=〉Goto Y:≠=〉｛N｝:N△Lb1 Z:｛TL｝:L"CX"≠0=〉Rec(L,T"PX"+M:≠=〉Goto X△Pol (A+I-X,B+J-Y:P=J:Rec(I,P-S+90:J= -J:{J}:J"LX"≠0=〉GotoZ△I=-I:｛P｝:P"HX":E=4=〉I"KX"=I▲J"GX"=P-U▲Goto Z△W=U+P:J=Abs(W-C:Q=(I-D)/J:W=J(N-Q:{W}:Abs W"BX"＞.1 =〉Goto Z△Lb1 X⒃OC＜0=〉C=360+C△C＞360=〉C=C-360△E≤1=〉C"PX"=C▲I"CX"=I▲Rec(I,C:I"△X"=I▲J"△Y"=J▲△⒄SF=3.25:O=0:Prog"T":R＞250=〉Goto S△O=.2:Prog"T":R＞200=〉Goto S△O=.3:Prog"T":R＞150=〉Goto S△O=.4:Prog"T":R＞100=〉Goto S△O=.5:Prog"T":R＞70=〉Goto S△O=.6:Prog"T":R＞50=〉Goto S△O=.7:Prog"T":R＞30=〉Goto S△O=.9:Prog"T":R＞25=〉Goto S△O=1.1:Prog"T":R＞20=〉Goto S△O=1.25:Prog"T":R＞15=〉Goto S△R=9999:Lb1 S⒅TE=H"MX"-F-O:Prog"F".............................................. END ............................................程序功能及操作简介114（曲线要素计算程序）一.程序功能简介:1.计算任意多点偏的各曲线要素及各主点里程,并推算下一交点里程;2.公路勘测中可用曲线两侧切线(T1或T2)、外距(E)、曲线长(L)、及任意多点拼中对任意基线切基线、割基线、离基线等条件确定曲线半径;3.计算连接导线任意两点所产生两偏角及两偏角间交点间距;4.程序目前只能用于对称曲线的计算。
CASIO_fx-4800P常用测量程序
一、QXFY 辛甫森公式放样程序1. U“X0”：V“Y0”2. A“XA”：B“Y A”：C“CA”：D“1÷RA”：E“1÷RB”：F“KA”：G“KB”3. Lb1 1：{HLR}：H“KI”：L“JJ”：R“DZ+Y-”4. H>G Goto 15. H<F Goto 16. P=(E-D) ÷Abs(G-F)：Q=Abs(H –F)：Z=P×Q：T=D+Z7. W=C+（Z+2D）Q×90÷π8. M=C+(Z÷4+2D)Q×22.5÷π：N=C+（3Z÷4+2D）Q×67.5÷π：K=C+(Z÷2+2D)Q×45÷π9. X=A+Q（cosC+4(cosM+cosN)+2cosK+cosW）÷12+Rcos(W-L)10. Y=B+Q(sinC+4(sinM+sinN)+2sinK+sinW) ÷12+ Rsin (W-L)11. Pol((X-U)，（Y-V）)J≤0J=J+360J“FWJ”12. I“S”13. Goto 1程序显示说明：须输入参数：X0:置镜点X (对应变量U)Y0:置镜点Y (对应变量V)XA:曲线起算点X (对应变量A)Y A:曲线起算点Y (对应变量B)CA：曲线起算点切线方位角(对应变量C) 1÷RA：1÷半径，即起算点曲率，右偏为正左偏为负(对应变量D)1÷RB：1÷半径，即曲终点曲率，右偏为正左偏为负(对应变量E)KA:起算点里程(对应变量F)KB:曲终点里程(对应变量G)KI:待求点里程(对应变量H)JJ:夹角(与前进方向切线方位角夹角，向右为正)(对应变量L)D“Z+Y－”：偏距，左正右负(对应变量R)计算结果: W: 待求点切线方位角(对应变量W) X:计算点x (对应变量X)Y:计算点y (对应变量Y)FWJ:放样方位角(对应变量J)S:放样距离(对应变量I)K BX 0Y 0本程序依据复化辛甫森公式计算原理改进而成，特点是把曲线按曲率变化点分成若干计算单元单独计算，不论直线（曲率为0）、圆曲线（曲率为1/R ）、卵形曲线，只要按曲率变化点分解弄清变化点曲率半径，右偏左偏曲线由曲率的正负号分别，既可求得该计算单元内任意里程中桩及斜交或正交的边桩。
《CASIO fx-4800、4850、5800测量程序集》
坐标放样(fx-4800)一.源程序:主程序:ZBFY.JSProg“CZ”：Prog“HS”：Lbl o：{XY}：Pol（X-A，Y-S）：J<o⇒J=J+360U=J-Z[2]:U<o⇒U=U+360L=o⇒U“P.SPJ”◢≠⇒J“P.FWJ”◢I“P.D”◢Prog“BCXZ”：Goto o↵子程序：CZA“X（CZ）”：S“Y（CZ）”：W“X（HS）”：D“Y（HS）”： L“SPJ=o，FWJ=1”↵子程序：HSI=o：J=o：Pol（W-A，D-S）：Z[1]“D（HS）”=I◢J<o⇒J=J+360Z[2]“FWJ（HS）”= J◢↵子程序：BCXZI“DS”=I÷（（1+（（Y+S）÷2-5E5）²÷2÷6371000²+（Y-S）²÷24÷6371000²）×（1-300÷（6371000+300）））◢↵二.程序功能：本程序能根据已知坐标进行放样计算。
三.程序说明：子程序BCXZ中的“……1-300÷（6371000+300）……”中的“300”为测区平均高程，主要是针对测区位于高斯坐标投影带边缘而设立的，不同测区时应重新设定之。
四.运行操作：运行ZBFY.JS时：X（CZ）？请输入测站坐标Y（CZ）？X（HS）？请输入后视坐标Y（HS）？SPJ=0，FWJ=1？以水平角放样键“0”，以方位角放样键“1”D（HS）= 显示后视平距FWJ（HS）= 显示后视方位角，按后以°′″格式显示X？请输入待放点坐标Y？P.SPJ（或P.FWJ）显示待放点水平角（或方位角）P.D 显示待放点理论平距DS= 显示待放点修正平距. .. .. .X？请输入待放点坐标Y？引点计算(fx-4800)一.源程序:主程序:YD.JSProg“CZ”：M“H（CZ）”：Prog“HS”：Lbl o：{PVH}：L=o⇒P=P“SPJ”+Z[2]：≠⇒P “FWJ”V“D”：H“h”：X=A+Vcos P◢Y=S+Vsin P◢ H=M+H+6.7336E-8V²◢Goto o↵子程序：CZA“X（CZ）”：S“Y（CZ）”：W“X（HS）”：D“Y（HS）”： L“SPJ=o，FWJ=1”↵子程序：HSI=o：J=o：Pol（W-A，D-S）：Z[1]“D（HS）”=I◢J<o⇒J=J+360Z[2]“FWJ（HS）”= J◢↵二.程序功能：本程序能根据水平角（或方位角）、平距、高差进行三维坐标计算。
fx4800编程计算器程序二
6. 圆曲线段 文件名：YQX (COMP) 程式： L”K0”:O”X0”:P”Y0”:W”ALF”: Lbl 1:{K}: J=(-1)^N (K-L)÷R×180÷π:D=2Rsin((-1)^N J÷2): X”XZ”=O+Dcos(W+J÷2) ◢ Y”YZ”=P+Dsin(W+J÷2) ◢ {B}:S”XL”=X-B”LL”cos(W+J+Q) ◢ T”YL”=Y-Bsin(W+J+Q) ◢ {C}:U”XR”=X+C”LR”cos(W+J+Q) ◢ V”YR”=Y+Csin(W+J+Q) ◢ Goto 1 注：若没有直接 HY 点方位角，则 ALFHY=ALFZH±Ls/2/R×180/π,(左转-，右转 +)。
3.缓和曲线曲线要素： 程序步骤： B=0°1718.87′﹡L/R◢ X=L-L＾3/40/ R2◢ Y=L2/6/ R◢ P=Y-R(1-cos B◢ Q= X-Rsin B◢ T=(R+P)tan(A/2)+Q◢ E=(R+P)(cos(A/2))-1-R◢ Z= R(A-2B)л/180+2L◢ J=2T-Z◢ D=X-Y/tan B 操作过程： HQQXYS→EXE→输入 L 值（即缓和曲线总长）→EXE→输入 R 值（即圆曲线半径） →EXE→得β角度→EXE→得 Xh 值→EXE→得 Yh 值→EXE→得 P 值→EXE→得 Q 值 →EXE→输入 A 角（例 125°31′23.25″）→EXE→得 T 值→EXE→得 E 值→EXE →得 Z 值→EXE→得 J 值→EXE→得 D 值 注：此程序可循环计算。
卡西欧4800程序
支导线程序(fx4800P)ZDXProg”006”:A=J:Z”1—2”:X=U:Y=W:LbI0:{Q}:Q”Q=”:{L}:L”L=”:X=X+LCos(A+Q):Y=Y+LSin(A+ Q): X”X=”▲ Y”Y=”▲A=A+Q+180:Z=2=>X=U:Y=W:A=J△Goto0放样程序(fx4800P)FYProg”006”: LbI0:{X}:X”X=”:{Y}:Y”Y=”: Prog”007” :Goto0竖曲线程序(fx4800P)SHU--QXI“I=”:J”J=”:R”R=”:W=I-J:C=Abs(RW)/1000:T=C/2:E=T^2/(2R): C”L=”▲ T”T=”▲ E”E=”▲W<0=>K=1△W>0=>K=-1△D”BIAN—LI=”:Z”BIAN—H=”:A=Z+(-IT)/1000:LbI0:{L}:L”DK=”:L≤D-T=>H=Z+(D-L)(-I/1000)△L>D-T=>H=A+I(L-(D-T))/1000+K(L-(D-T))^2/(2R) △L≥D+T=>H=Z+J(L-D)/1000△H”H=”▲Goto0已知点坐标求对应里程和距离(fx4800P)1、主程序(DYLC)Defm42: AB”N1=”C”N2=”:R:Pro g”000” :Pro g”009”:E”PYL=”:K”Z—Y”: Z”ZH=”:M”ZH—X”:P”ZH—Y”:F:Lbl0:Prog”XH”:Goto02、子程序(XH)Lbl1:Pro g”QX”:{U}:U”YZ—X=”:{W}:W”YZ—Y=”:I=U-X:J=W-Y:Pol(I,J):J<0=>J=J+360△Z[37]=J-Z[34]:Z[38]=cosZ[37]×I:D=D+Z[38]:AbsZ[38]≥0.001=>Goto1:≠> D”DYLC=”△▲Z[35]=sinZ[37] ×I: Z[35] “FXJL=”▲已知3点坐标求圆心和半径(fx4800P)主程序(3DZB--QYX)A”AX=”B”AY=”C”BX=”D”BY=”E”CX=”F”CY=”: X=((F-B)(D^2-B^2+C^2-A^2)+(D-B)(B^2-F^2+A^2-E^2))/(2(C-A)(F-B)-2(E-A)(D-B)):X”X=”▲Y=((E-A)(C^2-A^2+D^2-B^2)+(C-A)(A^2-E^2+B^2-F^2))/(2(D-B)(E-A)-2(F-B)(C-A)):Y”Y=”▲R=√((A-X)^2+(B-Y)^2):R“R=”▲自由设站(fx4800P)(边角后方交会)HFJHLbI0:{A}:A”H1—X=”:{B}:B”H1—Y=”:{C}:C”H2—X=”:{D}:D”H2—Y=”:I=C-A:J=D-B:POL(I,J):J≤0=>J=J+360⊿ I:”S=”▲Z[42]=J: Prog”006”:Z[42]:”FW—Q=”▲{E}:E”L1=”:{F}:F”L2=”:{G}:G”Q=”:H=Cos-1((I2+ E2-F2)/(2IE)):K=Cos-1((I2+ F2-E2)/(2IF)):L=A+E×Cos(J+H) :M=B+E×Sin(J+H):N=C+F×Cos(J+180-K):O=D+F×Sin(J+180-K):X=(L+N)/2:Y=(M+O)/2:X:”X=”▲Y:”Y=”▲Goto0不对称缓和曲线放样数据计算(fx4800P)(带偏移量+中边桩)1 主程序(--QX—Z-B)Defm42:AB”N1=”C”N2=”:R:Pro g”000”: Pro g”009”:E”PYL=”:K”Z—Y”: Z”ZH=”:M”ZH—X”:P”ZH—Y” :F Lbl0:Pro g”QX”: Prog”006”:Prog”007”:Goto02 子程序(QX){D}:Z[1]=D”DK=”-Z:O=Z+Z[2] :N=(M+Z[11]CosF)+Z[12]Cos(F+KA) :S=(P+Z[11]SinF)+Z[12]Sin (F+KA):{L}:L”BIN—L”:{Q}:Q”BIN—Q”:Z[1]≤0=>Prog”001”:≠>Z[1]≤B=>Prog”002”:≠>Z[1]≤(Z[2]-C)=>Prog”003”:≠>Z[1]≤Z[2]=>Prog”004”:≠>Z[1]>Z[2]=>Porg”005”△△△△△ X”X=”▲ Y”Y=”▲Z[34]<0=>Z[34]=Z[34]+360:≠>Z[34]>360=> Z[34]=Z[34]-360△△Z[42]=Z[34]:Pro g”010”:Z[42]”QX—Q”▲(该点切线方位角)3 子程序（000）曲线要素计算Z[4]=B/2-B^3/(240R^2):Z[6]=B^2/(24R)-B^4/(2688R^3):Z[8]=90B/(πR）:Z[5]=C/2-C^3/(240R^2):Z[7]=C^2/(24R)-C^4/(2688R^3):Z[9]=90C/(πR) :Z[11]=(R+Z[6])tng(A/2)+Z[4]-（Z[6]-Z[7]）/sinA:Z[12]=(R+Z[7])tng(A/2)+Z[5]+(Z[6]-Z[7])/sinA:Z[10]=(R+(Z[6]+Z[7])/2)(1/cos(A/2)) -R:Z[2]=(A-Z[8]-Z[9])Rπ/180+B+C: Z[3]=Z[2]-B-C4 子程序（001）第一切线段计算X=M+Z[1]cosF:Y=P+Z[1]sinF:X=X+Lcos(F+Q):Y=Y+Lsin(F+Q): Z[34]=F:5 子程序（002）第一缓和曲线段坐标计算Z[28]=F:Z[27]=E:Z[13]=90B/（πR）：Z[14]=Z[13]/3：Z[15]=90Z[1]^2/(πRB):Z[16]=Z[14](Z[1]/B)^2 :Z[17]=RB:Z[18]=Z[1]-Z[1]^5/(40Z[17]^2)+Z[1]^9/(3456Z[17]^4):Z[19]=Z[1]^3/(6Z[17])-Z[1 ]^7/(336Z[17]^3)+Z[1]^11/(42240Z[17]^5):Z[20]=√(Z[18]^2+Z[19]^2):X=M+Z[20]cos(Z[28]+KZ[16]) :Y=P+Z[20]sin(Z[28]+KZ[16]):K<0=> Z[27]= Z[27]:≠>K≥0=> Z[27]=-1 Z[27]△△Z[23]= Z[27] (Z[1]/B):Z[21]= Z[28]+KZ[15]+90: X=X+Z[23]cosZ[21]:Y=Y+Z[23]sinZ[21]:Z[22]=Z[28]+KZ[15]+Q : X=X+LcosZ[22]:Y=Y+LsinZ[22]: Z[34]=Z[28]+KZ[15]6 子程序（003）圆曲线段坐标计算Z[27]=E:Z[28]=F:Z[13]=90B/(πR):Z[22]=Z[28]+K(Z[13]/3):Z[17]=RB:Z[18]=B-B^5/(40Z[17]^2)+B^9/ (3456Z[17]^4):Z[19]=B^3/(6Z[17])-B^7(336Z[17]^3+B^11/(42240Z[17]^5):Z[20]=√(Z[18]^2+Z[19]^2) :X=M+Z[20]cosZ[22]:Y=P+Z[20]sinZ[22]:Z[14]=Z[1]-B:Z[15]=180Z[14]/( πR):Z[23]= Z[28]+KZ[13] :Z[21]=2Rsin(Z[15]/2):Z[16]=Z[15]/2:X=X+Z[21]cos(Z[23]+KZ[16]):Y=Y+Z[21]sin(Z[23]+KZ[16]):Z[24]= Z[23]+KZ[15]:K<0=> Z[27]= Z[27]:≠>K≥0=> Z[27]=-1 Z[27]△△X=X+ Z[27]cos(Z[24]+90):Y=Y+ Z[27]sin(Z[24]+90):X=X+Lcos(Z[24]+Q):Y=Y+Lsin(Z[24]+Q): Z[34]＝Z[28]+KZ[13]+KZ[15]7 子程序（004）第二缓和曲线段坐标计算Z[15]=O-D:Z[22]=F+KA+180:Z[27]=E:K>0=>Z[27]=Z[27]:≠>K<0=> Z[27]=-1Z[27]△△Z[25]=Z[27]( Z[15]/C):Z[23]=-K:Z[13]=90C/(πR):Z[14]=Z[13]/3:Z[16]=90Z[15]^2/(πRC):Z[17]=Z[14](Z[15]/C)^2 :Z[18]=RC:Z[19]=Z[15]-Z[15]^5/(40Z[18]^2)+Z[15]^9/(3456Z[18]^4):Z[20]=Z[15]^3/(6Z[18])-Z[15]^7 /(336Z[18]^3+Z[15]^11/(42240Z[18]^5):Z[21]=√(Z[19]^2+Z[20]^2):Z[30]=N+Z[21]cos(Z[22]+Z[23]Z[17]): Z[31]=S+Z[21]sin(Z[22]+Z[23]Z[17]):Z[24]=Z[22]+Z[23]Z[16]+90: Z[32]= Z[30]+Z[25]cosZ[24]: Z[33]= Z[31]+Z[25]sinZ[24]:Z[26]=F+KA+Z[23]Z[16]+ Q : X= Z[32]+LcosZ[26]:Y= Z[33]+LsinZ[26]: Z[34]＝Z[22]+（-1K）Z[16]-1808 子程序(005)计算第二切线段坐标Z[13]=F+KA:Z[14]=D-O:X=N+Z[14]cosZ[13]:Y=S+Z[14]sinZ[13]:X=X+Lcos(Z[13]+Q):Y=Y+Lsin(Z[ 13]+Q): Z[34]=Z[13]9 程序(006)计算后视数据{U}:U”ZX=”:{W}:W”ZY=”:{G}:G”HX=”:{H}:H”HY=”:I=G-U:J=H-W:Pol(I,J): I”S=”▲Prog”008”: Z[42]=J: Prog”010”: Z[42]”F0=”▲10 子程序(007)计算放样数据T=J:Pol(X-U, Y-W): Prog”008”: I”FY--L=”▲V=J-T:V<0=>V=V+360:≠>V>360=>V=V-360△△Z[42]=V: Prog”010”: Z[42]”FY--Q=”▲11 子程序(008)角度判断J<0=>J=J+360:≠>J>360=>J=J-360△△12 子程序（009）曲线要素结果显示Z[11]”T1=”▲ Z[12]”T2=”▲ Z[10]”E=”▲ Z[2]”QX--L=”▲ Z[3]”YQX—L=”▲13 子程序(010)角度的度分秒输出Z[40]=60FracZ[42]:Z[41]=60FracZ[40]:Z[42]=IntZ[42]+IntZ[40]÷100+Z[41]÷10000。
卡西欧fx-4800P计算器面积计算程序及其应用
摇 摇 随着电子产品的发展袁程序型计算器也在更新袁
. 其A容ll量在Ri不g断ht扩s充R袁e程s序er语v言ed趋.于人性化袁在林业上
主要用于树木蓄 积 量尧 公 路尧 面 积 的 调 查 测 量 计 算遥 现在袁虽有一些面积测量程序袁但还没有得到广泛推 广应用袁新程序计算器好买袁程序难求遥 为了林地尧 农田尧农地面积丈量及其绘图的需要袁现简单介绍 猿 种自编面积测量程序及其应用遥 程序分为院闭合导 线测量计算程序曰极坐标测量计算程序曰图形分割丈 量计算程序遥 程序简单实用袁不懂程序的人按输入 代号和操作步骤就会计算遥 此程序适用于卡西欧 枣曾
粤遭泽贼则葬糟贼院 哉灶凿藻则 贼澡藻 泽蚤贼怎葬贼蚤燥灶 燥枣 砸栽运鄄郧孕杂 泽赠泽贼藻皂 葬灶凿 贼燥贼葬造 泽贼葬贼蚤燥灶 灶燥贼 责燥责怎造葬则蚤扎藻凿袁 憎澡蚤造藻 郧孕杂 糟葬灶灶燥贼 则藻葬糟澡 贼澡藻 葬糟糟怎则葬糟赠 燥枣 泽皂葬造造 葬则藻葬 皂藻葬泽怎则藻皂藻灶贼袁 蚤贼 蚤糟葬造糟怎造葬贼燥则 糟燥皂遭蚤灶藻凿 憎蚤贼澡 糟燥皂责葬泽泽 葬灶凿 皂藻葬泽怎则蚤灶早 则燥责藻 枣燥则 泽皂葬造造 葬则藻葬 皂藻葬泽怎则藻皂藻灶贼泽郾 粤糟糟燥则凿蚤灶早 贼燥 贼澡藻 责燥造赠早燥灶 皂藻葬泽怎则蚤灶早 责则蚤灶糟蚤责造藻 燥枣 糟造燥泽藻凿 贼则葬增藻则泽藻袁 责燥造葬则 糟燥燥则凿蚤灶葬贼藻泽袁 贼则蚤葬灶早怎造葬则袁 贼澡藻 悦葬泽蚤燥 枣曾鄄源愿园园孕 葬灶凿 源愿缘园孕 葬则藻葬 糟葬造糟怎造葬贼燥则 责则燥早则葬皂 澡葬增藻 遭藻藻灶 皂葬凿藻 怎责郾 粤责责造蚤糟葬贼蚤燥灶 则藻泽怎造贼泽 泽澡燥憎 贼澡葬贼 贼澡藻 责则燥糟藻凿怎则藻 蚤泽 泽蚤皂责造藻 葬灶凿 责则葬糟贼蚤糟葬造郾 耘增藻灶 枣燥则 怎灶责则燥枣藻泽泽蚤燥灶葬造 责藻燥责造藻袁 燥灶糟藻 糟燥凿藻 蚤泽 蚤灶责怎贼袁 贼澡藻 责则燥早则葬皂 憎蚤造造 责则燥糟藻藻凿郾 运藻赠 憎燥则凿泽院 悦葬泽蚤燥 枣曾鄄源愿园园孕 糟葬造糟怎造葬贼燥则曰 葬则藻葬 糟葬造糟怎造葬贼蚤燥灶 责则燥早则葬皂曰 糟造燥泽藻凿 贼则葬增藻则泽藻曰 责燥造葬则 糟燥燥则凿蚤灶葬贼藻 皂藻葬泽怎则蚤灶早
一个简短实用的fx4800测量程序
一个简短实用的fx4800测量程序1.主程序(TYQXJS)"1.SZ => XY"："2.XY => SZ"：N：U"X0"：V"Y0"：O"S0"：G"F0"：H"LS"：P"R0"：R"RN"：Q：C=1÷P：D=(P-R)÷(2HPR)：E=180÷π：N=1=>Goto 1：≠>Goto 2Δ←┘Lbl 1：{SZ}：SZ：W=Abs(S-O)：Prog "SUB1"：X"XS"=X? Y"YS"=Y?F"FS"=F-90?Goto 1←┘Lbl 2：{XY}：XY：I=X：J=Y：Prog "SUB2"：S"S"=O+W? Z"Z"=Z?Goto 22. 正算子程序(SUB1)A=0.1739274226：B=0.3260725774：K=0.0694318442：L=0.3300094782：F=1-L：M=1-K：X=U+W(Acos(G+QEKW(C+KWD))+Bcos(G+QELW(C+LWD))+Bcos(G+QE FW(C+FWD))+Acos(G+QEMW(C+MWD)))：Y=V+W(Asin(G+QEKW(C+KWD))+Bsin(G+QELW(C+LWD))+Bsin(G+QEFW(C+FWD))+Asin(G+QEMW(C+MWD)))：F=G+QEW(C+WD)+90：X=X+ZcosF：Y=Y+ZsinF3. 反算子程序(SUB2)T=G-90：W=Abs((Y-V)cosT-(X-U)sinT)：Z=0：Lbl 0：Prog "SUB1"：L=T+QEW(C+WD)：Z=(J-Y)cosL-(I-X)sinL：AbsZ<1E-6=>Goto1：≠>W=W+Z：Goto 0Δ←┘Lbl 1：Z=0：Prog "SUB1"：Z=(J-Y)÷sinF输入部分：1. SZ => XY2. XY = > SZN ? 选择计算方式，输入1表示进行由里程、边距计算坐标；输入2表示由坐标反算里程和边距。
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
第8章 在砌体结构中的应用fx-4800P 程序
§8.1 砌体计算指标取值
§8.1.1砌体抗压强度设计值f 及弹性模量E
主程序名：F AND E
L”M”
L=2.5Prog ”M2.5”E=1390F L=5Prog ”M5”E=1600F L=7.5Prog ”M7.5”
E=1600F L=10Prog ”M10”E=1600F L=15Prog ”M15”E=1600F
子程序名：M2.5
M ”MU ”
M=10F ”F ”=1.3M=15F ”F ”=1.6M=20F ”F ”=1.84M=25F ”F ”=2.06M=30F ”
F ”=2.26
子程序名：M5
M ”MU ”
M=10F ”F ”=1.5M=15F ”F ”=1.83M=20F ”F ”=2.12M=25F ”F ”=2.37M=30F
”F ”=2.59
子程序名：M10
M ”MU ”
M=10F ”F ”=1.89M=15F ”F ”=2.31M=20F ”F ”=2.67M=25F ”F ”=2.98M=30
F ”F ”=3.27
子程序名：M15
M ”MU ”
M=15F ”F ”=2.79M=20F ”F ”=3.22M=25F ”F ”=3.6M=30F ”F ”=3.94
§8.1.2沿砌体灰缝截面破坏时砌体的轴心抗拉强度设计值t f 、弯曲抗拉强度设计值tm f 和抗剪强度设计值V f
程序名：FT FTM FV
{M} M=2.5T ”FT ”=0.09L ”FTM1”=0.17N ”FTM2”=0.08V ”FV ”=0.08Goto 1 M=5T ”FT ”=0.13L ”FTM1”=0.23N ”FTM2”=0.11V ”FV ”=0.11Goto 1 M=7.5T ”FT ”=0.16L ”FTM1”=0.29N ”FTM2”=0.14V ”FV ”=0.14Goto 1 M 10T ”FT ”=0.19L ”FTM1”=0.33N ”FTM2”=0.17V ”FV ”=0.17
Lb1 1
§8.2 墙、柱的计算高度和高厚比计算
§8.2.1墙、柱的计算高度0H 计算
程序名：H0
{N} N=1Prog ”C1(H0)”:Prog ”C2(H0)”
子程序名：C1(H0)
{DFKHPSZ}
D=1Goto 1:F=3Goto 2:K=1Goto 3:K=2Goto 4 Lb1 4:F=1H=1.25H:F=2H=1.1H Goto 0
Lb1 3:F=1H=1.5H:F=2H=1.2H Goto 0 Lb1 2:Z=1H=H:S 2H H=H:S H H=0.6S:H=0.4S+0.2H Goto 0 Lb1 1:P=1Goto 5:H=H Goto 0 Lb1 5:F=1H=2.5H:H=2H Goto 0
Lb1 0: H ”H0”=H
子程序名：C2(H0)
{DHP}
D=1Goto 1:H=H Goto 0
Lb1 1:P=1H=1.25H:H=0.8H
Lb1 0:H”H0”=H
h计算
§8.2.2带壁柱墙截面的折算厚度
T
程序名：HT
{ABLH}
S=B”BF”H”HF”+A”B1”L”H1”
Y=(BH2÷2+AL(H+L÷2))÷S:X=L+H-Y
I=BH^3÷12+BH(Y-H÷2)2:K=(I÷S):T”H T”=3.5K
§8.2.3墙、柱的高厚比验算
程序名：B
{NMLHDSPQ}
B=L”H0”÷H
N=1Prog”ZHU”:U=1:V=1:Goto 1
N=2Prog”QIANG”:V=1:U=1-0.4D”BS”÷S:U0.7U=0.7:P”W”÷Q”L”0.2U=1: Goto 1
N=3Prog“QIANG”:J=UVK:U=1-0.4D”BS”÷S:U0.7U=0.7:P”W”÷Q”L”0.2U=1: V=1.2+0.3(H-90)÷150:Goto 1
Lb1 1:K”[B]”=K
B=B
J”U1U2[B]”=UVK
B J”YES””NO”
子程序名：ZHU
M=2.5K=15:M=5K=16:M7.5K=17
子程序名：QIANG
M=2.5K=22:M=5K=24:M7.5K=26
§8.3 无筋砌体构件承载力计算
§8.3.1受压构件承载力计算
程序名：COLUMN
{LCGHNSV}
E=C”MK”×1E3÷V”NK”:B=G”H0”÷H
L”M”5A=0.0015:A=0.002
B3Q=(1+12(E÷H)2)-1:Q=(1+12(E÷H+B(A÷12))2)-1
Prog ”F AND E”
D”[N]”=QFS”A”
N D×1E-3”YES””NO”
§8.3.2砌体局部均匀受压承载力计算
程序名：PART1
{ABKNH}
J=AB
K=1Prog ”1”:Goto 1
K=2Prog ”2”:Goto 1
K=3Prog ”3”:Got o 1
K=4Prog ”4”:Goto 1
Lb1 1:Prog ”F AND E”:D”[N]”=RFJ
N D×1E-3”YES””NO”
子程序名：1
{C}
S=(A+C+H)H:R=1+0.35(S÷J-1):R 2.5R=R:R=2.5
子程序名：2
S=(B+2H)H:R=1+0.35(S÷J-1):R2R=R:R=2
子程序名：3
{I}:S=(A+H)H+(B+I”H1”-H)I
R=1+0.35(S÷J-1):R 1.5R=R:R=1.5
子程序名：4
S=(A+H)H:R=1+0.35(S÷J-1):R 1.25R=R:R=1.25
§8.3.3梁端支承处砌体的局部受压承载力计算
程序名：PART2
{CHABIPN}
Prog ”F AND E”
G=10(C÷F):G A G=A
J=GB
Prog ”2”
I=1K=0.7:K=1
D”[N]”=KRFJ
Q=1.5-0.5S÷J:S3J Q=0
O=P”P0”J:T”N0+NL”=QO+N”NL”×1E3
T D”YES””NO”
§8.3.4 梁端设有刚性垫块的砌体局部受压承载力计算
程序名：PART3
{XBPHCA VWN}
Prog ”F AND E”:J=X”AB”B
Prog ”2”
K=0.8R:K1K=1
Z=P”P0”÷F
Z=0I=5.4:Goto 1:Z0.2I=5.4+1.5Z:Goto 1:Z0.4I=5.7+1.5(Z-0.2):Goto 1:Z0.6I=6+4.5(Z-0.4):Goto 1:Z0.8I=6.9+4.5(Z-0.6):Goto 1
Lb1 1
G I(C”HC”÷F)
G A G=A
Y=V”NLK”(X÷2-0.4G)÷(WJ×1E(-3)+V):Q=1÷(1+12(Y÷X)2):
T”N0+NL”=PJ+N”NL”×1E3
D”[N]”=QKFJ
T D”YES””NO”
h 的垫梁下的砌体局部受压承载力计算
§8.3.5梁下设有长度大于
程序名：PART4
{BAHCEPKY}
Prog ”F AND E”
I=BA”HB”^3÷12:Z=2(C”EB”I÷EH):O=πBZP”P0”÷2
T”N0+NL”=O+N”NL”×1E3
Y=1K=1:K=0.8
D”[N]”=2.4KFBZ
T D”YES””NO”
§8.3.6轴心受拉构件的承载力验算
程序名：T
{BHN}
Prog ”FT FTM FV”
D”[N]”=TBH
N”NT”×1E3D”YES””NO”
§8.3.7受弯构件的承载力验算
程序名：M
{KBHXY}
Prog ”FT FTM FV”
K=1D”[M]”=LBH^2÷6 D”[M]”=NBH^2
Y”M”×1E6D”YES””NO”
Z=2H÷3:D”[V]”=VBZ
X”V”×1E3D”YES””NO”
§8.3.8受剪构件的承载力验算
程序名：V
{RKPABX}
Prog ”F AND E”
Prog ”FT FTM FV”
B=P÷F:B0.8B=0.8
R=1.2K=0.6(0.26-0.082B)K=0.64(0.23-0.065B) D”[V]”=(V＋KP)A
X”V”×1E3D”YES””NO”。