积分公式计算的线元法CASIO4850计算器程序.doc

请使用WORD的Times?New?Roman字体，若使用其它字体，字母O与数字0是区别不出的.切记切记! 积分公式计算的线元法CASIO4850计算器程序 第十一版 1 (主程序) (使用时请运行这个) L1 LbI 0:{ QDV} L2 U4= Prog “4”△ L3 U=5= Prog “2”△ L4 U=6= Prog “2”△ L5 Int U=7= D=0:V=0△ L6 LbI 4:U=8={W}: D=B÷Sin AbsV+W“01”P:S△ L7 U5= Prog “4” △ L8 LbI2:IntU=9= PS: Prog“F”:A=R+90: Prog“9”:Goto 2△ L9 LbI3:U=10=PSWB: Prog“F”: Pol ( P-W,S-B):J0=J=J+360:△A=J: Prog“9”:Goto 3△ L10 QDVHEFACZG: Frac Y=0= Prog “3”: △O: Prog “10” L11 U=2=T=T+ Int (-5+10 Ran# )÷1000: K=K+ Int (-5+10Ran# )÷1000: Prog “8”: Prog “5” △ L12 U=3= I= -S+2S Ran# :J=√(S2-I2): I= Int I÷1000:J= Int (-J+2J Ran# )÷1000:T+I: Pause 0:K+J: Pause 0:I: Pause 0:J◢ √(I2+J2) ◢ △ L13 LbI 1: IntU=7= {DV}: Prog“10”: S=D:D=B÷2÷Sin Abs V:J=R:U=7.1=D=B÷2:J=R+V-90: △ Prog “6”: Prog “8”: Prog “5”:D=2D:J=R-180: U=7.1= J=R+V+90: △ Prog “6”: Prog “8”: Prog “5”: V≤0=V=V+180: ≠V=V-180: △D=S:Goto 1△ L14 U=8= Goto 4△ L15 U5=Q=Q+B: △Goto 0 10（子程序）（为共用 计算中桩/加转角/用正算计算边桩/反算/显示 的过程） L1 Prog “F”:U=11=R=0:△J= R+V: Prog “6” :U=8=D=√(1-W2) Abs S :S0=J=180+R: ≠J=R:△Prog “6”: △ Prog “8” : Prog “5” 9 （子程序）（为点垂桩垂距/涵交桩交角的共同运行部分） L1 Prog“7”: Prog“8”: Abs(J-R)1=Q=Q-I:≠ Q=Q+I:△I0.001=T=P:K=S: Prog “8”: “OK”: Q: Pause 0:I: Pause 0: J=J-R:J180=J=-J+180:△J→DMS◢ U=9.1= Prog “11”: △△ Prog “4” 7 （子程序）（两点斜直线交点部分） (也可作为两点斜直线交点主程序独立运行) L1 E=Tan A:F= Tan R:Y=(EP-S-FT+K) ÷(E-F): Pause 0:O=E(Y-P)+S 5 (子程序)( 显示部分) L1 T: Pause 0:K: Pause 0:I: Pause 0:J→DMS◢ F (子程序) (中桩计算部分) L1 RAD:I= Abs(Q-H):J= Abs(G-H):R=Aπ/180+CI+I2(Z-C)/2/J:T=E+∫(Cos (Aπ/180+CX+X2(Z-C)/2/J),0,I,4):K= F+∫(Sin (Aπ/180+CX+X2(Z-C)/2/J),0,I,4):QG =R=R+π:△DEG:R=180R/π F2 (子程序) (中桩计算部分)(使用时把F2改为F;同时把F改为F1)(这个子程序计算速度快,但在缓曲长到2或3百米且半径小到6或7十米时,计算误差有几厘米) L1 Defm 7 L1 I=Q-H L2 J= (Z-C)I÷(G-H) L3 Z[1]=A+90(J÷8+2C)(I÷8)÷π L4 Z[2]=A+90(J÷4+2C)(I÷4)÷π L5 Z[3]=A+90(3J÷8+2C)(3I÷8)÷π L6 Z[4]=A+90(J÷2+2C)(I÷2)÷π L7 Z[5]=A+90(5J÷8+2C)(5I÷8)÷π L8 Z[6]=A+90(6J÷8+2C)(6I÷8)÷π L9 Z[7]=A+90(7J÷8+2C)(7I÷8)÷π L10 R=A+90(J+2C) I÷π L11 T=E+ AbsI(Cos A+4(CosZ[1]+ CosZ[3]+ CosZ[5