4800，4850曲线（含直线）任意里程中边桩坐标正反算（修改）.doc

曲线（含直线）任意里程中边桩坐标正反算 （CASIO fx-4800pfx-4850） J-SQX(竖曲线数据输入) “J-SQX”：{NHUVMQP}： Z[9]=N“SJD”：Z[10]=H“JDZ”：Z[11]=U“I1”：Z[12]=V“I2”：Z[13]=M“R”：Z[14]=Q“QD”：Z[15]=P“ZD”：“TO J-JSMS” J-PQX(平曲线数据输入,自动切换到J-JSMS) A“JD”B“JDX”C“JDY”F“FJ”O“ZJ：Z-，Y+”RE“LS1”K“LS2”：E＜1=＞E=1E-9⊿K＜1=＞K=1E-9⊿Z[1]=EE÷(24R)-E^4÷(2688RRR)：Z[2]=E÷2-EEE÷(240RR)：X=(EE-KK)÷(24R)÷sinAbsO：Z[3]“T1”=(R+Z[1])tan(AbsO÷2)+Z[2]-X▲ Z[4]“T2”=(R+KK÷(24R)-K^4÷(2688RRR))tan(AbsO÷2)+K÷2-KKK÷(240RR)+X▲ L=AbsOπR÷180+(E+K)÷2▲ J=tan-1((R+Z[1])÷(Z[3]-Z[2]))：X“E”=(R+Z[1])÷sinJ-R▲ X=A-Z[3]：Y=X+E：E＜1=＞X“ZY”▲ ≠=＞X“ZH”▲ Y“HY”▲ ⊿Y“QZ”=X+(L-K-E)÷2+E▲ Y=X+L-K：X=X+L：K＜1=＞X“YZ” ▲ ≠=＞Y“YH”▲ X“HZ” ▲ ⊿Prog“J-JSMS” J-JSMS(放样模式主程序) “1-ZS,2-FS,4-DMFY” Lb1 0：{Z}：Z“MS”≤1=＞Goto 1： ≠=＞Z“MS”≤4 =＞Goto 2⊿⊿ Lb1 1：{PDW}：PD“BZ”W“BJ”：Prog“JP”：X“X=” ▲ Y“Y=” ▲ Goto 0⊿ Lb1 2：{XYW}：XYW“BJ”： Prog“JF”：P“P=” ▲ D“BZ=” ▲ Z=3=＞Prog“JS”：Prog“DMFY” ⊿(运行竖曲线高程计算程序) Z=4=＞Z[26] “H”=12.417+(P-75360)*5.2/1000: Prog“DMFY” ⊿（运行单面坡比高程计算,语句中12.417为起点桩号DK75+360的高程,可以根据实际情况进行调整；5.2/1000为单面上坡率,上坡输正值，下坡输负值） Goto 0 JS(竖曲线计算主程序) P＜Z[14] =＞Prog“J-SQX” ⊿P＞Z[15] =＞ Prog“J-SQX” ⊿ N=Z[9]：U=Z[11]：V=Z[12]：H=Z[13]：G=H Abs(U-V)÷200：P＜N=＞I=U：M=N-G：M＞P=＞M=P⊿≠=＞I=V： M=N+G：M＜P=＞M=P⊿⊿J=(P-M)2÷(2H)：U-V＞0=＞J=-J⊿H=Z[10]+(P-N)×I÷100+J Z[26] “H”=H JP(平曲线正算子程序) Fixm Lb1 1：J=F：X=B-Z[3]cosF：Y=C-Z[3]sinF：G=E P≤A-Z[3] =＞I=A-Z[3]-P：M=-I：N=0：H=F+W：Goto5 ≠=＞P≤A-Z[3]+E=＞I=P-A+Z[3]：H=90II÷(REπ)：O＜0=＞H=-H⊿H=H+W+F： Goto 3 ≠=＞P≤A-Z[3]+L-K=＞I=P-A+Z[3]-E： Goto 4： ≠=＞Goto 2⊿⊿ Lb1 2：X=B+Z[4]cos（F+O）：Y=C+Z[4]sin（F+O）：J=F+O+180：G=K P≤A-Z[3]+L=＞I= A-Z[3]+L-P：H=90II÷(REπ)：O＞0=＞H=-H⊿H=H+J+W+180： Goto 3 ≠=＞I=P-A+Z[3]-L：M=-I：N=0：H=J+W+180： Goto 5 Lb1 3：M=I-I^5÷(40RRGG)：N=III÷(6GR)-I^7÷(336RRRGGG)： Goto 5 Lb1 4：H=(E+2I)×90÷(πR)：M=RsinH+Z[2]：N=R(1-cosH)+Z[1]：O＜0=＞H=-H⊿H=J+W+H： Goto 5 Lb1 5：P≤A-Z[3]+L-K=＞O＜0=＞N=-N⊿≠＞O＞0=＞N=-N⊿⊿Goto 6 Lb1 6：X=X+Mcos J-Nsin J+Dcos H：Y=Y+Msin J+N cosJ+Dsin H JF(平曲线反算子程序) Fixm U=X：V=Y：D=0：J=F-W：P=A+(Y-C)cos J-(X-B)sin J Lb1 1：Prog“JP”：J=H-180：I=(V-Y)cos J-(U-X)sin J：Abs I＜1E-4=＞Goto 2： ≠=＞P=P+I：