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

《积分公式计算的线元法CASIO4850计算器程序》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、请使用WORD的Times New Roman字体，若使用其它字体，字母O与数字0是区别不出的.切记切记!积分公式计算的线元法CASIO4850计算器程序第十一版1(主程序)(使用时请运行这个)L1LbI0:{QDV}L2U<4=>Prog“4”△L3U=5=>Prog“2”△L4U=6=>Prog“2”△L5IntU=7=>D=0:V=0△L6LbI4:U=8=>{W}:D=B÷SinAbsV+W“01”P:S△L7U>5=>Prog“4”△L8LbI2:IntU=9=>PS:Prog“F”:A=R+90:Prog“9”:Goto2△L9LbI3:

2、U=10=>PSWB:Prog“F”:Pol(P-W,S-B):J<0=>J=J+360:△A=J:Prog“9”:Goto3△L10QDVHEFACZG:FracY=0=>Prog“3”:△O:Prog“10”L11U=2=>T=T+Int(-5+10Ran#)÷1000:K=K+Int(-5+10Ran#)÷1000:Prog“8”:Prog“5”△L12U=3=>I=-S+2SRan#:J=√(S2-I2):I=IntI÷1000:J=Int(-J+2JRan#)÷1000:T+I:Pause0:K+J:Pause0:I:Pause0:J◢√(

3、I2+J2)◢△L13LbI1:IntU=7=>{DV}:Prog“10”:S=D:D=B÷2÷SinAbsV: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:Goto1△L14U=8=>Goto4△L15U<5=>Q=Q+B:△Goto010（子程序）（为共用计算中桩/加转角/用正算计算边桩/反算/显示的过程）L1Prog“F”:U=

4、11=>R=0:△J=R+V:Prog“6”:U=8=>D=√(1-W2)AbsS:S<0=>J=180+R:≠>J=R:△Prog“6”:△Prog“8”:Prog“5”9（子程序）（为点垂桩垂距/涵交桩交角的共同运行部分）L1Prog“7”:Prog“8”:Abs(J-R)<1=>Q=Q-I:≠>Q=Q+I:△I<0.001=>T=P:K=S:Prog“8”:“OK”:Q:Pause0:I:Pause0:J=J-R:J>180=>J=-J+180:△J→DMS◢U=9.1=>Prog“11”:△△Prog“4”7（子程序）（两点斜直线交点部分）(

5、也可作为两点斜直线交点主程序独立运行)L1E=TanA:F=TanR:Y=(EP-S-FT+K)÷(E-F):Pause0:O=E(Y-P)+S5(子程序)(显示部分)L1T:Pause0:K:Pause0:I:Pause0:J→DMS◢F(子程序)(中桩计算部分)L1RAD: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):Q>G=>R=R+π:△D

6、EG:R=180R/πF2(子程序)(中桩计算部分)(使用时把F2改为F;同时把F改为F1)(这个子程序计算速度快,但在缓曲长到2或3百米且半径小到6或7十米时,计算误差有几厘米)L1Defm7L1I=Q-HL2J=(Z-C)I÷(G-H)L3Z[1]=A+90(J÷8+2C)(I÷8)÷πL4Z[2]=A+90(J÷4+2C)(I÷4)÷πL5Z[3]=A+90(3J÷8+2C)(3I÷8)÷πL6Z[4]=A+90(J÷2+2C)(I÷2)÷πL7Z[5]=A+90(5J÷8+2C)(5I÷8)÷πL8Z[6]=A+90(6J÷8+2C)(6I÷

7、8)÷πL9Z[7]=A+90(7J÷8+2C)(7I÷8)÷πL10R=A+90(J+2C)I÷πL11T=E+AbsI(CosA+4(CosZ[1]+CosZ[3]+CosZ[5]+CosZ[7])+2(CosZ[2]+CosZ[4]+CosZ[6])+CosR)÷24L12K=F+AbsI(SinA+4(SinZ[1]+SinZ[3]+SinZ[5]+SinZ[7])+2(SinZ[2]+SinZ[4]+SinZ[6])+SinR)÷248(子程序)(座标反算部分)(也可作为座标反算主程序独立运行,方位角按RCLRSHIFT°′″显示)L1J=

8、TK:Pol(T-Y,K-O):Pause0:J<0=>J=J+360△6(子程序)(边桩和座标正算计算部分