CASIO fx-4850P/5800P 计算器在公路工程中的应用计算器在公路工程中的应用 （终结版）（终结版） 郭郭 长长 学学 云南交通职业技术学院公路学院实训部云南交通职业技术学院公路学院实训部 2007.11 《工程测量》《工程测量》 《公路勘测设计》《公路勘测设计》 《路基施工技术》《路基施工技术》 《《计算器编程实训计算器编程实训》》配套 实训 教材配套 实训 教材前 言 CASIO 公司出品的 fx-4500p、fx-4800p 及 fx-4850p 计算器，因其可 编程性，操作简单易用，体积小巧，携带方便等特点，广泛为众多的工程 技术人员所采用特别是 fx-4850p，因其存储量大，运算速度快，应用 更为广泛本人在多年的工作中编写了一系列的该程序，在工程实践中得 到了很大得帮助，希望它也一样能为你提供帮助因本人水平有限，程序 的编写中有许多的不足，说明中有词不达意之处，还望各位见谅，希望大 家多批评指正 联系：15925224652 E-mail：gcx9999＠ ：746782005 【本人对使用程序所造成的损失不负任何责任】 郭 长 学 云南交通职业技术学院公路分院实训部 2007 年 11 月 目 录 1、 CASIO fx-4850P 计算器程序代码 ……………共 10 页 2、 CASIO fx-5800P 计算器程序代码 ……………共 10 页 3、程序功能介绍及操作简介 …………………… 共 16 页 4、CASIO fx-4850P 计算器两个函数简介 ……… 共 1 页 5、程序使用中应注意的常见问题 ……………… 共 2 页 6、工程实例 ……………………………………… 共 44 页 CASIO fx-4850P 计算器程序代码 114(曲线要素计算程序) Fix 2： Z[99]=4： Z[98]=Ø： Lbl Ø： W=Ø： D=Ø： S=Ø： I=Ø： J=Ø： E=1： A=Ø： L=Ø： X=Ø： Y=Ø： G=Ø： Prog“B“：M=J－I/tan S： B=I/sin S：G=S：Lbl 3：N=Ø：｛RVNLFZEDH｝：R=Ø =〉“A=“：M：Pause Ø： “B=“： B◢“G=“： G→DMS◢Goto Ø⊿I=Abs G/2： A=1/cosI： Z[99]=4=〉 V=Ø：Z=Ø⊿R＜9=〉Goto A⊿Prog “A“：Z[99]≠4=〉“A1=“：(RZ： Pause Ø：“A2=“： (RV◢⊿“T1=“：X=Z[9]－M：Pause Ø：“T2=“： Y=T－B◢“L=“：L：Pause Ø：V=Z=〉M=Ø=〉“E=“：AR+AP－R◢ ⊿⊿N“JD“=999=〉 N=Z[98] ⊿N=Ø=〉 Goto 3⊿“G=“： G→DMS◢N=N－X： B=N+L：Z≠Ø =〉“ZH=“：N：Pause Ø：“HY=“：Z+N◢≠ =〉“ZY=“： N◢⊿V=Z=〉M=Ø=〉“QZ=“：N+L/2 ◢ ⊿⊿V≠Ø =〉“YH=“：B－V： Pause Ø： “HZ=“： B◢≠=〉 “YZ=“： B◢⊿｛F｝ ： A=B+F“NX“－Y： “NJD=“： A◢Z[98]=A：Goto Ø：Lbl A：N=V“LH“2/24：Z=V：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≥.ØØ1 =〉 Goto C⊿Goto 3⊿R=3 =〉P=A－1：Prog “F“：Goto 3⊿R=4 =〉R=9Ø(L －V)/Iπ：Goto 3⊿R=5 =〉E=1：{E}：E“DXN“：W=Z[5Ø+E]：O=G －W：X=1/sin O+1/sin W：P=1/tan O+1/tan W： E=sinG(M-Z[3Ø+E]+Z[4Ø+E]/ tan W )/sinO:E=E+D“EX“PG/Abs G： A=P：P=X－P：Prog “F“：Goto 3⊿ R=6=〉P=A－1：Prog “S“：Goto 3⊿R=7=〉P=Ø:E=2: {E}：E“PJN“：J=.5(Z[5Ø+E]+Z[49+E])+9Ø: Rec(D“EX“,J:Pol(Z[3Ø+E]+I-M, Z[4Ø+E]+J： F=I： D=J-9ØAbsG/G-G/2： Prog “A3“：Lbl 7：Prog “A“：E=R：Prog “A3“：E-R≥.Ø1=〉Goto 7⊿ Goto 3⊿ 115 (公路放样程序) Fix 4：Z[3]=Ø：Z[5]=Ø： Z[2]=Ø：I=Ø：J=Ø：C=1：E“FX“= 2=〉{G}：G“DN“：I=Ø：J=Ø：Goto Ø⊿E=3=〉Goto 1⊿G=Ø：A=Ø： I=Ø：J=Ø：Lbl B：I=Ø：J=Ø：E=E+1：S=Ø：Prog “B“：Prog “H“： E≠3 =〉Goto B⊿Lbl Ø：G=Ø=〉A“X1“B“Y1“：≠=〉Prog“Y“：A =X：B=Y⊿Q“S1“≠Ø =〉P“P1“：≠ =〉P=Ø⊿ G=Ø：E≠3=〉{G}： G“DN“⊿G=Ø=〉X“X2“Y“Y2“：≠=〉Porg “Y“⊿L“S2“≠Ø =〉T“P2“： ≠=〉T=Ø⊿G=Pol(X－A，Y－B：S=J：QL=Ø =〉G=Q+L－G：N=P +T：L=Ø =〉J=X：X=A：A=J：I=Y：Y=B：B=I⊿⊿QL≠Ø =〉C=R ec(Q，P：N=J：Pol(Rec(L，T)－C，J－N：G=G－I：Rec(L，T+18 Ø－J+S：A=X+I：B=Y+J：N=T⊿｛G｝：G“DK“：Pol(X－A，Y－B： M=J－N：N=Ø：G=777 =〉E=1⊿G=999 =〉{N}：N“JDN“：Z[3]=N⊿E=2=〉{WCXY}：F：N≠Ø=〉O=N－F：Prog“Q“：D=X：S=Y：O =N：Prog“Q“：Pol(X－D，Y－S：W=J：D=X：N=Y：Prog“A“：X= D：Y=N：C=Z[9]：G=FG：F=1=〉K=H：≠=〉K=H+L⊿⊿X“JDX“Y“ JDY“W“FW“：J=X－C“TX“cosW：I=Y－CsinW：Pol(J－A，I－B⊿Z [1Ø]=A：Z[11]=B：Z[12]=M：N=Ø=〉K=Ø： ｛K｝⊿G=888 =〉I=Ø： J=Ø：S=Ø⊿Lb1 1：Z[16]=Ø：Z[19]=Ø：G=888=〉Prog “B“⊿G=777 =〉Lb1 R：Prog “A1“：Goto R⊿C=J－M：E=2=〉M=J－W：A=－R ec(I，M：B=－J：E=3：H=K“ZH“：M=M－C⊿K≠9999=〉Prog “O“⊿E=4=〉{U}：U“HXØ“：Prog “N“⊿E=5=〉Z[5]=Ø=〉{U}：U“BMØ “：Z[5]=U⊿Prog “N“⊿E=3 =〉Z[3]=Ø=〉｛GRVZ｝：F⊿⊿Prog “A“∶ E=Ø：｛KE｝：K1ØØØ=〉 Z[2]=1ØØØInt (K÷1ØØØ：K=K－Z[2]⊿K=K+Z[2]：S=K－H“ZH“：J=1：E=2 =〉W=F：{F}：Y =G：Z[3]≠Ø=〉D=H：C=G：Z[3]=Z[3]+F：O=Z[3]：Prog“Q“：F=1 =〉K=H：≠=〉K=H+πAbs GR/18Ø+Ø.5(Z+V⊿Y=G：G=C：S=K－ D⊿FWØ =〉Z[4]=Z[4] ＋I＋S⊿“JDX=“：D－Z[4]◢Goto 1⊿ C=2 =〉Lbl A： ｛K｝：K“K1“： Prog “G“：Z[8]=J：Z[1]=I：｛K｝：K“K2“：Prog “G“：C=J：S=I： Pol(J－Z[8]，I－Z[1]：Z[6]=I：Z[7]=J：E=1：｛E｝：E=1 =〉Z[8] =C：Z[1]=S：Lbl B：｛K｝：K=888 =〉Goto 1⊿U=K：Prog “G“： C=J：S=I：Pol(J－Z[8]，I－Z[1]：E=J－Z[7]：U>Ø =〉Z[8]=C：Z[1] =S：Z[7]=J⊿C=I：Rec(I，E：S=I：Prog “U“：Goto B⊿E=2 =〉E=Ø： Lbl C：｛K｝：K=888 =〉Goto 1⊿U=K：Prog “G“：Pol(J－Z[8]， I－Z[1]：Rec(I，J－Z[7]：S=I－E：C=(S2+J2：I=I－E：Prog “U“： U>Ø =〉E=E＋I＋S⊿“JDX=“：Z[6]－E◢Goto C⊿⊿ 117(测角及测坐标程序) I=Ø：J=Ø：C=1：W“TX“>Ø =〉｛IJ｝⊿Prog “H“：I=.ØØØ1： J=.ØØØ1：W>Ø =〉 ｛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 =〉“JD X=“：I◢⊿Lbl Ø： ｛MV｝：P=Rec(V“CX“，M“PX“：Q=J：Pol(I－L， J－T：C=J－R：Abs C>18Ø =〉C=C－36ØAbs C/C⊿W≠ 1=〉“JD X=“：I：Pause Ø：“PJX=“：C→DMS ◢⊿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≠Ø =〉“X=“：X+I：Pause Ø ：“Y=“：Y+J◢⊿Goto Ø 118(坐标与角度、距离互算程序) I=Ø：J=Ø：X“X1“Y“Y1“A“X2“B“Y2“：Pol(A－X，B－Y：“DX =“：I◢ W=J：F“JX“=1=〉Lbl Ø：｛CD｝：C“PJ“D“DX“：W=W+C： Rec(D，W：“X=“：A=A+I：Pause Ø：“Y=“：B=B+J◢ Goto Ø⊿F=2=〉Lbl 1：｛CD｝：C“X“D“Y“：Pol(C－A，D－B：A=C：B=D： M=J－W：Abs M≥18Ø=〉M=M－36ØAbs M/M⊿“DX=“：I：Pause Ø：“PJ=“：M→DMS◢W=J：Goto 1⊿ 119(导线移线程序) T=Ø：L=Ø：V=Ø：Z=Ø：A=Ø：X=Ø：Y=Ø：Lbl Ø：E=Ø：F =Ø：K=2：I=Ø：J=Ø：｛WDKEFO｝：W“PJ“D“DX“：Z=Z+1：A= A+W：Abs K“VX“=1 =〉Pol(E“+X“， F“+Y“：K=－1=〉M=A－W： ≠=〉M=A⊿Rec(I，J+M⊿K=Ø=〉Rec(O“EX“，A+9Ø－W/2⊿P=X+I： Q=Y+J：X=X+Dcos A：Y=Y+DSin A：K=9=〉Z=Z－1：Goto Ø⊿Z =1=〉T=P：L=Q：Goto Ø⊿Pol(P－T，Q－L：T=P：L=Q：Z≥2=〉 C=J－V：Prog “Z“：“PJX=“：C→DMS◢⊿“JDX=“：I◢V=J：Goto Ø 12Ø(公路纵坡设计程序) ｛KH｝：KH：Lbl Ø：Z=1ØØØInt(.ØØ1K：｛AB｝：E=Ø： A“KX“B“HX“：A＜Ø=〉A=Abs A：｛E｝：E“DL“⊿Int(.ØØ1A= Ø=〉A=A+Z⊿D=.Ø1（A－K+E：“PL=“：1ØØD◢C=B－H：P=C/ D：Lbl 1：F=Ø：｛PF｝：B=P“PD“D+H：“HX=“：B◢ F“NX“= Ø=〉Goto 1⊿H=B：K=A：Goto Ø 121(竖曲线设计程序) Lb1 Ø：D=.Ø1Abs(A“IØ“－B“Ix“： Lb1 1：{RTE}：R≤9 =〉R≤2=〉R=2T/D⊿R=3=〉R=8E/D2 ⊿Goto 1⊿ “T=“：T=DR/2： Pause Ø：“E=“：T2 /2R◢W=Ø：{W}：W“NX“=Ø=〉Goto 1⊿A= B：{B}：。